{-# LANGUAGE TemplateHaskell #-}
module CalamityCommands.Error (CommandError (..)) where
import qualified Data.Text 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
showList :: [CommandError] -> ShowS
$cshowList :: [CommandError] -> ShowS
show :: CommandError -> String
$cshow :: CommandError -> String
showsPrec :: Int -> CommandError -> ShowS
$cshowsPrec :: Int -> CommandError -> ShowS
Show)
$(deriveTextShow ''CommandError)