module ServantSerf.Exception.InvalidOption where

import qualified Control.Monad.Catch as Exception

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

instance Exception.Exception InvalidOption