wasp/waspc/cli/Wasp/Cli/Command.hs

{-# LANGUAGE GeneralizedNewtypeDeriving #-}

module Wasp.Cli.Command
  ( Command,
    runCommand,
    CommandError (..),
  )
where

import Control.Monad.Except (ExceptT, MonadError, runExceptT)
import Control.Monad.IO.Class (MonadIO)
import qualified Wasp.Util.Terminal as Term

newtype Command a = Command {_runCommand :: ExceptT CommandError IO a}
  deriving (Functor, Applicative, Monad, MonadIO, MonadError CommandError)

runCommand :: Command a -> IO ()
runCommand cmd = do
  errorOrResult <- runExceptT $ _runCommand cmd
  case errorOrResult of
    Left cmdError -> putStrLn $ Term.applyStyles [Term.Red] (_errorMsg cmdError)
    Right _ -> return ()

-- TODO: What if we want to recognize errors in order to handle them?
--   Should we add _commandErrorType? Should CommandError be parametrized by it, is that even possible?
data CommandError = CommandError {_errorMsg :: !String}