module Signet.Unstable.Exception.InvalidSymmetricSignature where

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

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

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

unwrap :: InvalidSymmetricSignature -> ByteString.ByteString
unwrap :: InvalidSymmetricSignature -> ByteString
unwrap (MkInvalidSymmetricSignature ByteString
byteString) = ByteString
byteString