Music Player

music.hs

import System.Process
import Control.Concurrent
import System.Directory
import System.FilePath ((</>))

printFiles :: [String] -> IO()
printFiles (x:xs) = do
  putStrLn x
  printFiles xs


main :: IO ()
main = do
  let songsDir = "./songs"
  
  files <- getDirectoryContents songsDir

  let validFiles = filter (\f -> f /= "." && f /= "..") files
  
  -- Start the background pro  -- Print the list of valid files
  putStrLn "All Songs:"
  mapM_ putStrLn validFiles
  
  chosenSongIndex <- getLine

  let chosenSong = validFiles !! (read chosenSongIndex :: Int) 

  callCommand $ "mpg123 " ++ "\"./songs/" ++ chosenSong ++ "\""