Fixed exit status for missing files.

This commit is contained in:
Vidar Holen 2015-08-02 19:13:01 -07:00
parent cbda90eeb5
commit 47d68019e5
1 changed files with 1 additions and 1 deletions

View File

@ -99,7 +99,7 @@ formats = Map.fromList [
toStatus = liftM (either id (const NoProblems)) . runErrorT toStatus = liftM (either id (const NoProblems)) . runErrorT
catchExceptions :: IO Status -> IO Status catchExceptions :: IO Status -> IO Status
catchExceptions action = action -- action `catch` handler catchExceptions action = action `catch` handler
where where
handler err = do handler err = do
printErr $ show (err :: SomeException) printErr $ show (err :: SomeException)