module ServantSerf.Exception.InvalidDepth where

import qualified Control.Monad.Catch as Exception

newtype InvalidDepth
  = InvalidDepth String
  deriving (InvalidDepth -> InvalidDepth -> Bool
(InvalidDepth -> InvalidDepth -> Bool)
-> (InvalidDepth -> InvalidDepth -> Bool) -> Eq InvalidDepth
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: InvalidDepth -> InvalidDepth -> Bool
== :: InvalidDepth -> InvalidDepth -> Bool
$c/= :: InvalidDepth -> InvalidDepth -> Bool
/= :: InvalidDepth -> InvalidDepth -> Bool
Eq, Int -> InvalidDepth -> ShowS
[InvalidDepth] -> ShowS
InvalidDepth -> String
(Int -> InvalidDepth -> ShowS)
-> (InvalidDepth -> String)
-> ([InvalidDepth] -> ShowS)
-> Show InvalidDepth
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> InvalidDepth -> ShowS
showsPrec :: Int -> InvalidDepth -> ShowS
$cshow :: InvalidDepth -> String
show :: InvalidDepth -> String
$cshowList :: [InvalidDepth] -> ShowS
showList :: [InvalidDepth] -> ShowS
Show)

instance Exception.Exception InvalidDepth