module Initialise.Initialisers
  ( defaultInitialiser,
  )
where

import qualified Cabal (replace)
import qualified File (replace)
import Initialise.Types
import qualified Licence (replace)
import System.FilePath ((</>))

defaultInitialiser :: Initialise ()
defaultInitialiser :: Initialise ()
defaultInitialiser = do
  (FilePath -> Initialise ()) -> [FilePath] -> Initialise ()
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_
    FilePath -> Initialise ()
File.replace
    [ FilePath
".devcontainer" FilePath -> FilePath -> FilePath
</> FilePath
"devcontainer.json",
      FilePath
".github" FilePath -> FilePath -> FilePath
</> FilePath
"workflows" FilePath -> FilePath -> FilePath
</> FilePath
"haskell-ci.yml",
      FilePath
"CHANGELOG.md"
    ]
  FilePath -> Initialise ()
Licence.replace FilePath
"LICENSE"
  FilePath -> Initialise ()
Cabal.replace FilePath
"templatise.cabal"

-- TODO README