Improved UI

yemi · May 20, 2016 · f76e0bc · f76e0bc
1 parent 3a11639
commit f76e0bc
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 4 deletions.
diff --git a/app/Main.hs b/app/Main.hs
@@ -104,7 +104,6 @@ renderUI Stopped = do
   playerState' <- liftIO $ handleResources maybeResources
   renderUI playerState'
 renderUI _ = do
-  outputStr "Enter command:"
   maybeChar <- getInputChar "> "
   case maybeChar of
     Nothing -> return ()
@@ -132,8 +131,8 @@ main = runInputT defaultSettings $ do
   outputStrLn "j - pause"
   outputStrLn "k - play"
   outputStrLn "l - next\n"
-  outputStrLn "Tooning:"
-  outputStrLn "r - search"
+  outputStrLn "Tooning:\n"
+  outputStrLn "r - enter URL to track\n"
 
   renderUI Stopped
 
diff --git a/toon.cabal b/toon.cabal
@@ -20,7 +20,7 @@ library
   build-depends:       base >= 4.7 && < 5
   default-language:    Haskell2010
 
-executable toon-exe
+executable toon
   hs-source-dirs:      app
   main-is:             Main.hs
   ghc-options:         -Wall -threaded -rtsopts -with-rtsopts=-N