templatise-0.1.3.0: bin/initialise/Main.hs

module Main (main) where

import qualified Configuration (parser)
import qualified Defaults (getDefaults)
import Initialiser (defaultInitialiser, runInitialiser)
import Options.Applicative (execParser, fullDesc, helper, info, progDesc, (<**>))

main :: IO ()
main = do
  defaults <- Defaults.getDefaults

  let options =
        info
          (Configuration.parser defaults <**> helper)
          ( fullDesc
              <> progDesc
                ( unlines
                    [ "Initialise a new project using the current checked out repository.",
                      "WARNING: THIS WILL MODIFY THE CURRENT CONTENTS OF YOUR CHECKED OUT REPOSITORY!"
                    ]
                )
          )

  execParser options >>= runInitialiser defaultInitialiser