only exit if there is a failure, makes it easier to use as a library

NorfairKing · Jun 15, 2021 · f182ec4 · f182ec4
1 parent 41a2962
commit f182ec4
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/seocheck/src/SeoCheck.hs b/seocheck/src/SeoCheck.hs
@@ -60,10 +60,9 @@ runSeoCheck Settings {..} = do
   resultsMap <- readTVarIO results
   bytestringMaker <- byteStringMakerFromEnvironment
   mapM_ (mapM_ SB.putStr . chunksToByteStrings bytestringMaker) $ renderSEOResult $ SEOResult {seoResultPageResults = resultsMap}
-  exitWith $
-    if any resultBad resultsMap
-      then ExitFailure 1
-      else ExitSuccess
+  when (any resultBad resultsMap)
+    $ exitWith
+    $ ExitFailure 1
 
 newtype SEOResult
   = SEOResult