From 47d68019e505edaad6125e113d4eea4eb8fbfbe0 Mon Sep 17 00:00:00 2001 From: Vidar Holen Date: Sun, 2 Aug 2015 19:13:01 -0700 Subject: [PATCH] Fixed exit status for missing files. --- shellcheck.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/shellcheck.hs b/shellcheck.hs index 5453a31..6bea5e2 100644 --- a/shellcheck.hs +++ b/shellcheck.hs @@ -99,7 +99,7 @@ formats = Map.fromList [ toStatus = liftM (either id (const NoProblems)) . runErrorT catchExceptions :: IO Status -> IO Status -catchExceptions action = action -- action `catch` handler +catchExceptions action = action `catch` handler where handler err = do printErr $ show (err :: SomeException)