module Imp.Exception.UnknownOption where import qualified Control.Monad.Catch as Exception newtype UnknownOption = UnknownOption String deriving (UnknownOption -> UnknownOption -> Bool (UnknownOption -> UnknownOption -> Bool) -> (UnknownOption -> UnknownOption -> Bool) -> Eq UnknownOption forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c== :: UnknownOption -> UnknownOption -> Bool == :: UnknownOption -> UnknownOption -> Bool $c/= :: UnknownOption -> UnknownOption -> Bool /= :: UnknownOption -> UnknownOption -> Bool Eq, Int -> UnknownOption -> ShowS [UnknownOption] -> ShowS UnknownOption -> String (Int -> UnknownOption -> ShowS) -> (UnknownOption -> String) -> ([UnknownOption] -> ShowS) -> Show UnknownOption forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a $cshowsPrec :: Int -> UnknownOption -> ShowS showsPrec :: Int -> UnknownOption -> ShowS $cshow :: UnknownOption -> String show :: UnknownOption -> String $cshowList :: [UnknownOption] -> ShowS showList :: [UnknownOption] -> ShowS Show) instance Exception.Exception UnknownOption where displayException :: UnknownOption -> String displayException (UnknownOption String x) = String "unknown option: " String -> ShowS forall a. Semigroup a => a -> a -> a <> ShowS forall a. Show a => a -> String show String x new :: String -> UnknownOption new :: String -> UnknownOption new = String -> UnknownOption UnknownOption