begin

exe/Main.hs

@@ -1,4 +1,21 @@
 module Main where
 
+import System.Posix.Directory ( getWorkingDirectory )
+import System.Directory.Extra ( listContents )
+import Control.Monad          ( (<=<), filterM )
+import System.Process         ( ProcessHandle, spawnCommand )
+
+fetchLocalAudio :: FilePath -> IO [FilePath]
+fetchLocalAudio = filterM isAudioVideo <=< listContents
+
+isAudioVideo :: FilePath -> IO Bool
+isAudioVideo = undefined
+
+-- Paths need to be escaped if containing certain characters
+playHeadless :: FilePath -> IO ProcessHandle
+playHeadless = spawnCommand . (++) "mpv --vid=no "
+
 main :: IO ()
-main = putStrLn "Hello, Haskell!"
+main =
+  getWorkingDirectory >>= \a ->
+  pure ()