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.Environment.Root (EnvCommand, runEnv)
import HWM.CLI.Command.Init (InitOptions (..), initWorkspace)
import HWM.CLI.Command.Registry.Root (RegistryCommand, runRegistry)
import HWM.CLI.Command.Release.Root (ReleaseCommand (..), runRelease)
import HWM.CLI.Command.Run (ScriptOptions, TaskCommandOptions, runBuild, runInstall, runScript, runTest)
import HWM.CLI.Command.Status (showStatus)
import HWM.CLI.Command.Sync (sync)
import HWM.CLI.Command.Version (VersionOptions, runVersion)
import HWM.CLI.Command.Workspace.Root (WorkspaceCommand, runWorkspace)
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}
  | Version VersionOptions
  | Run {scriptName :: Name, runOptions :: ScriptOptions}
  | Status
  | Init {initOptions :: InitOptions}
  | -- Domain-specific commands
    Registry RegistryCommand
  | Env EnvCommand
  | Workspace WorkspaceCommand
  | Release ReleaseCommand
  | Install TaskCommandOptions
  | Build TaskCommandOptions
  | Test TaskCommandOptions
  deriving (Show)

currentVersion :: String
currentVersion = showVersion CLI.version

-- | Run the top-level command
command :: Command -> ConfigT ()
command (Release cmd) = runRelease cmd
command (Version options) = runVersion options
command Sync {tag} = sync tag
command Run {scriptName, runOptions} = runScript scriptName runOptions
command (Build options) = runBuild options
command (Install options) = runInstall options
command (Test options) = runTest options
command Status = showStatus
command Init {} = pure ()
command (Registry options) = runRegistry options
command (Env options) = runEnv options
command (Workspace options) = runWorkspace options

-- EnvCommand and runEnv are now defined in Command.Environment

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