From 1fb87d8e1ee2e42841d1ad5d8f117f8ad1b965e3 Mon Sep 17 00:00:00 2001
From: hasufell <hasufell@hasufell.de>
Date: Sun, 5 Oct 2014 18:43:10 +0200
Subject: [PATCH] Style

---
 Main.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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