Command.hs

{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE NoImplicitPrelude #-}

module HWM.CLI.Command
  ( Options (..),
    Command (..),
    currentVersion,
    defaultOptions,
    Bump (..),
    runCommand,
  )
where

import Data.Version (showVersion)
import HWM.CLI.Command.Init (InitOptions (..), initWorkspace)
import HWM.CLI.Command.Outdated (runOutdated)
import HWM.CLI.Command.Publish (publish)
import HWM.CLI.Command.Run (ScriptOptions, runScript)
import HWM.CLI.Command.Status (showStatus)
import HWM.CLI.Command.Sync (sync)
import HWM.CLI.Command.Version (runVersion)
import HWM.Core.Common (Name)
import HWM.Core.Options (Options (..), defaultOptions)
import HWM.Core.Version (Bump (..))
import HWM.Domain.ConfigT (ConfigT, runConfigT)
import qualified Paths_hwm as CLI
import Relude hiding (fix)

data Command
  = Sync {tag :: Maybe Name}
  | Publish {groupName :: Maybe Name}
  | Version {bump :: Maybe Bump}
  | Outdated {fix :: Bool}
  | Run {runOptions :: ScriptOptions}
  | Status
  | Init {initOptions :: InitOptions}
  deriving (Show)

currentVersion :: String
currentVersion = showVersion CLI.version

command :: Command -> ConfigT ()
command Publish {groupName} = publish groupName
command Version {bump} = runVersion bump
command Outdated {fix} = runOutdated fix
command Sync {tag} = sync tag
command Run {runOptions} = runScript runOptions
command Status = showStatus
command Init {} = pure ()

runCommand :: Command -> Options -> IO ()
runCommand Init {initOptions} ops = initWorkspace initOptions ops >> runConfigT showStatus ops
runCommand cmd ops = runConfigT (command cmd) ops