module ServantSerf.Exception.ExtraArgument where

import qualified Control.Monad.Catch as Exception

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

instance Exception.Exception ExtraArgument