Fixed exit status for missing files.
This commit is contained in:
parent
cbda90eeb5
commit
47d68019e5
|
@ -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)
|
||||||
|
|
Loading…
Reference in New Issue