diff options
Diffstat (limited to 'Main.hs')
-rw-r--r-- | Main.hs | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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 |