Fix parsing error

2014-10-05 18:09:49 +02:00
parent 197dc99058
commit 6c677d55b8
1 changed files with 3 additions and 1 deletions
--- a/Main.hs
+++ b/Main.hs
@@ -5,4 +5,6 @@ import System.Environment
 main :: IO ()
 main = do
  a <- getArgs
-  makeGUI (if null a then head a else "")
+  case null a of
+    False -> makeGUI (head a)
+    True  -> makeGUI ""