diff options
author | stuebinm | 2021-11-10 22:49:17 +0100 |
---|---|---|
committer | stuebinm | 2021-11-10 22:49:17 +0100 |
commit | 508f8885f6087f2c56b188cd0632a4fc39de0540 (patch) | |
tree | 95c8036e1d73ee2a0b20ef76d892d83927fd6243 /lib/CheckDir.hs | |
parent | 5bb4079f7b2d576f67649c37874556e73dc8f68b (diff) |
extra module for repository writeout
Diffstat (limited to '')
-rw-r--r-- | lib/CheckDir.hs | 13 |
1 files changed, 4 insertions, 9 deletions
diff --git a/lib/CheckDir.hs b/lib/CheckDir.hs index 4654051..68bcefe 100644 --- a/lib/CheckDir.hs +++ b/lib/CheckDir.hs @@ -6,17 +6,17 @@ {-# LANGUAGE TupleSections #-} -- | Module that contains high-level checking for an entire directory -module CheckDir (recursiveCheckDir, writeAdjustedRepository) where +module CheckDir (recursiveCheckDir, DirResult(..)) where -import CheckMap (MapResult (mapresultAdjusted, mapresultProvides), +import CheckMap (MapResult (mapresultProvides), loadAndLintMap, mapresultDepends) import Control.Monad (void) import Control.Monad.Extra (mapMaybeM) -import Data.Aeson (ToJSON, encodeFile, (.=)) +import Data.Aeson (ToJSON, (.=)) import qualified Data.Aeson as A import Data.Foldable (fold) import Data.Functor ((<&>)) -import Data.Map (Map, toList) +import Data.Map (Map) import qualified Data.Map as M import Data.Map.Strict (mapKeys, (\\)) import Data.Maybe (mapMaybe) @@ -206,8 +206,3 @@ recursiveCheckDir' prefix paths done acc = do -writeAdjustedRepository :: FilePath -> DirResult -> IO () -writeAdjustedRepository outPath result = - mapM_ - (\(path,out) -> encodeFile (outPath </> path) $ mapresultAdjusted out) - (toList $ dirresultMaps result) |