cln: hlint: Remove exitSuccess warning.
This commit is contained in:
parent
119e20aa36
commit
d2beb89eba
@ -71,7 +71,6 @@
|
|||||||
- ignore: {name: "Use lambda-case"}
|
- ignore: {name: "Use lambda-case"}
|
||||||
- ignore: {name: "Redundant lambda"}
|
- ignore: {name: "Redundant lambda"}
|
||||||
- ignore: {name: "Replace case with fromMaybe"}
|
- ignore: {name: "Replace case with fromMaybe"}
|
||||||
- ignore: {name: "Use exitSuccess"}
|
|
||||||
|
|
||||||
|
|
||||||
# Specify additional command line arguments
|
# Specify additional command line arguments
|
||||||
|
|||||||
@ -51,7 +51,7 @@ main = do
|
|||||||
putStrLn $ printf "Running %d doctests from %s" (length tests) f
|
putStrLn $ printf "Running %d doctests from %s" (length tests) f
|
||||||
ok <- mapM runShellDocTest $ doctests s
|
ok <- mapM runShellDocTest $ doctests s
|
||||||
putStrLn ""
|
putStrLn ""
|
||||||
if any not ok then exitFailure else exitWith ExitSuccess
|
if all ok then exitSuccess else exitFailure
|
||||||
|
|
||||||
runShellDocTest :: String -> IO Bool
|
runShellDocTest :: String -> IO Bool
|
||||||
runShellDocTest s = do
|
runShellDocTest s = do
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user