{-# LANGUAGE TemplateHaskell #-}
module CalamityCommands.Error (CommandError (..)) where
import Data.Text qualified as T
import TextShow.TH (deriveTextShow)
data CommandError
= ParseError
T.Text
T.Text
| CheckError
T.Text
T.Text
| InvokeError
T.Text
T.Text
deriving (Int -> CommandError -> ShowS
[CommandError] -> ShowS
CommandError -> String
(Int -> CommandError -> ShowS)
-> (CommandError -> String)
-> ([CommandError] -> ShowS)
-> Show CommandError
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> CommandError -> ShowS
showsPrec :: Int -> CommandError -> ShowS
$cshow :: CommandError -> String
show :: CommandError -> String
$cshowList :: [CommandError] -> ShowS
showList :: [CommandError] -> ShowS
Show)
$(deriveTextShow ''CommandError)