From 6c677d55b80ac985c0d43743d741bb0222831724 Mon Sep 17 00:00:00 2001
From: hasufell <hasufell@hasufell.de>
Date: Sun, 5 Oct 2014 18:09:49 +0200
Subject: [PATCH] Fix parsing error

---
 Main.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Main.hs b/Main.hs
index b384b2c..300474a 100644
--- 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 ""