(Main)~restructured main to be a bit smarter

Decompose args list via case so some arguments can be handled ahead of time.

1 files changed, 4 insertions, 4 deletions

diff --git a/Main.hs b/Main.hs
index cfe5669..e8b2927 100644
--- a/Main.hs
+++ b/Main.hs
@@ -63,7 +63,7 @@ flagHandler _ _ =
 
 main = do
   args <- getArgs
-  if (length args) == 0
-    then putStrLn $ errorMessage ""
-    else
-    putStrLn $ flagHandler (head args) (tail args)
+  putStr $
+    case args of
+        []      -> errorMessage ""
+        (x: xs) -> if x == "-help" then errorMessage "" else flagHandler x xs