module Hydra.Contract.UtilError (
  UtilError (..),
  errorCode,
) where

import Hydra.Contract.Error (ToErrorCode (..), errorCode)
import Hydra.Prelude (Show)

data UtilError
  = MintingOrBurningIsForbidden
  deriving stock (Int -> UtilError -> ShowS
[UtilError] -> ShowS
UtilError -> String
(Int -> UtilError -> ShowS)
-> (UtilError -> String)
-> ([UtilError] -> ShowS)
-> Show UtilError
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> UtilError -> ShowS
showsPrec :: Int -> UtilError -> ShowS
$cshow :: UtilError -> String
show :: UtilError -> String
$cshowList :: [UtilError] -> ShowS
showList :: [UtilError] -> ShowS
Show)

instance ToErrorCode UtilError where
  toErrorCode :: UtilError -> Text
toErrorCode = \case
    UtilError
MintingOrBurningIsForbidden -> Text
"U01"