module Signet.Unstable.Exception.InvalidAsymmetricSignature where

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

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

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

unwrap :: InvalidAsymmetricSignature -> ByteString.ByteString
unwrap :: InvalidAsymmetricSignature -> ByteString
unwrap (MkInvalidAsymmetricSignature ByteString
byteString) = ByteString
byteString