Style

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