From a572b9e1b113e0c8bea94c4f561c35742cdf4aeb Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Wed, 17 Nov 2021 00:51:21 +0100
Subject: exit with code 1 if maximum lint level exceeded

---
 lib/WriteRepo.hs | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'lib/WriteRepo.hs')

diff --git a/lib/WriteRepo.hs b/lib/WriteRepo.hs
index 89e1bea..fbe139b 100644
--- a/lib/WriteRepo.hs
+++ b/lib/WriteRepo.hs
@@ -5,9 +5,8 @@
 -- | Module for writing an already linted map Repository back out again.
 module WriteRepo where
 
-import           CheckDir               (DirResult (dirresultMaps),
-                                         resultIsFatal)
-import           CheckMap               (MapResult (mapresultAdjusted, mapresultDepends))
+import           CheckDir               (DirResult (..), resultIsFatal)
+import           CheckMap               (MapResult (..))
 import           Control.Monad          (forM_, unless)
 import           Data.Aeson             (encodeFile)
 import           Data.Map.Strict        (toList)
@@ -25,11 +24,13 @@ import           System.FilePath.Posix  ((</>))
 import           Types                  (Dep (Local))
 
 
+
 writeAdjustedRepository :: LintConfig' -> FilePath -> FilePath -> DirResult -> IO ExitCode
 writeAdjustedRepository config inPath outPath result
-  | resultIsFatal result && not (configDontCopyAssets config) = do
-      -- putStrLn "FATAL: Repository has missing assets; cannot write to outPath"
+  | resultIsFatal config result =
       pure (ExitFailure 1)
+  | not (configDontCopyAssets config) =
+      pure (ExitSuccess)
   | otherwise = do
       createDirectoryIfMissing True outPath
 
-- 
cgit v1.2.3