diff options
author | stuebinm | 2021-11-17 00:51:21 +0100 |
---|---|---|
committer | stuebinm | 2021-11-17 00:51:21 +0100 |
commit | a572b9e1b113e0c8bea94c4f561c35742cdf4aeb (patch) | |
tree | 478e848a77a5289356bb9acef8746f347f0b6275 /lib/WriteRepo.hs | |
parent | 7b079ff7a66ea0d7baa12fa16f084f025c1c9fce (diff) |
exit with code 1 if maximum lint level exceeded
Diffstat (limited to 'lib/WriteRepo.hs')
-rw-r--r-- | lib/WriteRepo.hs | 11 |
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 |