diff options
Diffstat (limited to 'lib/CheckDir.hs')
| -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) |