exit with code 1 if maximum lint level exceeded

1 files changed, 6 insertions, 5 deletions

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