module ServantSerf.Exception.ExtraArgument where

import qualified Control.Monad.Catch as Exception

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

instance Exception.Exception ExtraArgument