Add nice welcome message. Remove redundant return ()

norm2782 · Aug 22, 2010 · bae6e0f · bae6e0f
1 parent fa8c418
commit bae6e0f
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/HaskBan.hs b/HaskBan.hs
@@ -47,7 +47,6 @@ module HaskBan where
 
   progLoop :: IO ()
   progLoop = do key <- getCh
-                return ()
                 if shouldTerminate key
                   then do endWin
                   else do return (processKey key)
@@ -56,4 +55,7 @@ module HaskBan where
   main :: IO ()
   main = do window <- initScr
             initCurses
+            mvWAddStr window 0 0 "Welcome to HaskBan, the world's most awesome Haskell-based Sokoban game."
+            move 1 0
+            refresh
             progLoop