cln: hlint: Remove exitSuccess warning.

This commit is contained in:
Stephen Morgan 2021-08-16 15:59:16 +10:00 committed by Simon Michael
parent 119e20aa36
commit d2beb89eba
2 changed files with 1 additions and 2 deletions

View File

@ -71,7 +71,6 @@
- ignore: {name: "Use lambda-case"}
- ignore: {name: "Redundant lambda"}
- ignore: {name: "Replace case with fromMaybe"}
- ignore: {name: "Use exitSuccess"}
# Specify additional command line arguments

View File

@ -51,7 +51,7 @@ main = do
putStrLn $ printf "Running %d doctests from %s" (length tests) f
ok <- mapM runShellDocTest $ doctests s
putStrLn ""
if any not ok then exitFailure else exitWith ExitSuccess
if all ok then exitSuccess else exitFailure
runShellDocTest :: String -> IO Bool
runShellDocTest s = do