-- | Command errors
module CalamityCommands.Error (CommandError (..)) where

import qualified Data.Text as T

import GHC.Generics

import TextShow
import qualified TextShow.Generic as TSG

data CommandError
    = ParseError
        T.Text
        -- ^ The type of the parser
        T.Text
        -- ^ The reason that parsing failed
    | CheckError
        T.Text
        -- ^ The name of the check that failed
        T.Text
        -- ^ The reason for the check failing
    | InvokeError
        T.Text
        -- ^ The name of the command that failed
        T.Text
        -- ^ The reason for failing
    deriving (Show, Generic)
    deriving (TextShow) via TSG.FromGeneric CommandError