From d2beb89ebaaeaca5b937d617404c8dfed7c732bd Mon Sep 17 00:00:00 2001
From: Stephen Morgan <morgan.stephen99@gmail.com>
Date: Mon, 16 Aug 2021 15:59:16 +1000
Subject: [PATCH] cln: hlint: Remove exitSuccess warning.

---
 .hlint.yaml           | 1 -
 tools/docshelltest.hs | 2 +-
 2 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/.hlint.yaml b/.hlint.yaml
index 48f50c20a..3a16704c4 100644
--- a/.hlint.yaml
+++ b/.hlint.yaml
@@ -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
diff --git a/tools/docshelltest.hs b/tools/docshelltest.hs
index 0778629e8..d4163ae26 100755
--- a/tools/docshelltest.hs
+++ b/tools/docshelltest.hs
@@ -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