Style

Main.hs

@@ -5,6 +5,4 @@ import System.Environment
 main :: IO ()
 main = do
   a <- getArgs
-  case null a of
+  makeGUI (if null a then "" else head a)
-    False -> makeGUI (head a)
-    True  -> makeGUI ""