module Signet.Unstable.Exception.InvalidVerifier where

import qualified Control.Monad.Catch as Exception
import qualified Data.ByteString as ByteString

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

instance Exception.Exception InvalidVerifier where
  displayException :: InvalidVerifier -> String
displayException = String -> ShowS
forall a. Monoid a => a -> a -> a
mappend String
"invalid verifier: " ShowS -> (InvalidVerifier -> String) -> InvalidVerifier -> String
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> String
forall a. Show a => a -> String
show (ByteString -> String)
-> (InvalidVerifier -> ByteString) -> InvalidVerifier -> String
forall b c a. (b -> c) -> (a -> b) -> a -> c
. InvalidVerifier -> ByteString
unwrap

unwrap :: InvalidVerifier -> ByteString.ByteString
unwrap :: InvalidVerifier -> ByteString
unwrap (MkInvalidVerifier ByteString
byteString) = ByteString
byteString