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