-- | Module for writing an already linted map Repository back out again.

module WriteRepo where

import           CheckDir               (DirResult (dirresultMaps))
import           CheckMap               (MapResult (mapresultAdjusted))
import           Data.Aeson             (encodeFile)
import           Data.Map.Strict        (toList)
import           System.Directory.Extra (createDirectoryIfMissing)
import           System.FilePath.Posix  ((</>))



writeAdjustedRepository :: FilePath -> DirResult -> IO ()
writeAdjustedRepository outPath result = do

  -- True here just means the equivalent of mkdir -p
  createDirectoryIfMissing True outPath

  -- write out all maps
  mapM_
    (\(path,out) -> encodeFile (outPath </> path) $ mapresultAdjusted out)
    (toList $ dirresultMaps result)

  -- TODO: copy all assets