Exit with 1 on comments and 2 on failure

schmidt73 · Nov 15, 2013 · 68cc00b · 68cc00b
1 parent 8b7c0be
commit 68cc00b
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/shellcheck.hs b/shellcheck.hs
@@ -211,8 +211,12 @@ getOption (_:rest) flag def = getOption rest flag def
 main = do
     args <- getArgs
     parsedArgs <- parseArguments args
-    status <- process parsedArgs
-    if status then exitSuccess else exitFailure
+    do
+        status <- process parsedArgs
+        if status then exitSuccess else exitWith (ExitFailure 1)
+    `catch` \err -> do
+        printErr $ show err
+        exitWith $ ExitFailure 2
 
 process Nothing = return False
 process (Just (options, files)) =