Executes mpd binary on startup

yemi · May 22, 2016 · 533d15a · 533d15a
1 parent f76e0bc
commit 533d15a
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 2 deletions.
diff --git a/app/Main.hs b/app/Main.hs
@@ -20,8 +20,11 @@ import           Network.Wreq             (asJSON, defaults, getWith, header,
                                            param, responseBody)
 import           System.Console.Haskeline (InputT (), defaultSettings,
                                            getInputChar,
-                                           getInputLineWithInitial, outputStrLn,
-                                           outputStr, runInputT)
+                                           getInputLineWithInitial, outputStr,
+                                           outputStrLn, runInputT)
+import           System.Process           (createProcess, proc)
+
+import           Toon
 
 type UI a = InputT IO a
 
@@ -120,6 +123,12 @@ renderUI _ = do
 
 main :: IO ()
 main = runInputT defaultSettings $ do
+
+  -- Start `mpd` server
+  _ <- liftIO . createProcess $ proc "mpd" ["--no-config"]
+
+
+  -- Usage info
   outputStrLn "\ntt                          "
   outputStrLn "tt     oooo   oooo  nn nnn  "
   outputStrLn "tttt  oo  oo oo  oo nnn  nn "
@@ -134,5 +143,6 @@ main = runInputT defaultSettings $ do
   outputStrLn "Tooning:\n"
   outputStrLn "r - enter URL to track\n"
 
+  -- Render UI
   renderUI Stopped
 
diff --git a/toon.cabal b/toon.cabal
@@ -37,6 +37,7 @@ executable toon
                      , lens
                      , text
                      , libmpd
+                     , process
   default-language:    Haskell2010
 
 test-suite toon-test