module CabalGild.Unstable.Exception.InvalidLeniency where

import qualified Control.Monad.Catch as Exception

-- | This exception is thrown when the given
-- 'CabalGild.Type.Leniency.Leniency' is invalid.
newtype InvalidLeniency
  = InvalidLeniency String
  deriving (InvalidLeniency -> InvalidLeniency -> Bool
(InvalidLeniency -> InvalidLeniency -> Bool)
-> (InvalidLeniency -> InvalidLeniency -> Bool)
-> Eq InvalidLeniency
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: InvalidLeniency -> InvalidLeniency -> Bool
== :: InvalidLeniency -> InvalidLeniency -> Bool
$c/= :: InvalidLeniency -> InvalidLeniency -> Bool
/= :: InvalidLeniency -> InvalidLeniency -> Bool
Eq, Int -> InvalidLeniency -> ShowS
[InvalidLeniency] -> ShowS
InvalidLeniency -> String
(Int -> InvalidLeniency -> ShowS)
-> (InvalidLeniency -> String)
-> ([InvalidLeniency] -> ShowS)
-> Show InvalidLeniency
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> InvalidLeniency -> ShowS
showsPrec :: Int -> InvalidLeniency -> ShowS
$cshow :: InvalidLeniency -> String
show :: InvalidLeniency -> String
$cshowList :: [InvalidLeniency] -> ShowS
showList :: [InvalidLeniency] -> ShowS
Show)

instance Exception.Exception InvalidLeniency where
  displayException :: InvalidLeniency -> String
displayException (InvalidLeniency String
s) = String
"invalid leniency: " String -> ShowS
forall a. Semigroup a => a -> a -> a
<> String
s

-- | Constructs an 'InvalidLeniency' from the given 'String'.
fromString :: String -> InvalidLeniency
fromString :: String -> InvalidLeniency
fromString = String -> InvalidLeniency
InvalidLeniency