module Crypto.PubKey.RSA.Types
( Error(..)
, Blinder(..)
) where
data Blinder = Blinder !Integer !Integer
deriving (Int -> Blinder -> ShowS
[Blinder] -> ShowS
Blinder -> String
(Int -> Blinder -> ShowS)
-> (Blinder -> String) -> ([Blinder] -> ShowS) -> Show Blinder
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Blinder] -> ShowS
$cshowList :: [Blinder] -> ShowS
show :: Blinder -> String
$cshow :: Blinder -> String
showsPrec :: Int -> Blinder -> ShowS
$cshowsPrec :: Int -> Blinder -> ShowS
Show,Blinder -> Blinder -> Bool
(Blinder -> Blinder -> Bool)
-> (Blinder -> Blinder -> Bool) -> Eq Blinder
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Blinder -> Blinder -> Bool
$c/= :: Blinder -> Blinder -> Bool
== :: Blinder -> Blinder -> Bool
$c== :: Blinder -> Blinder -> Bool
Eq)
data Error =
MessageSizeIncorrect
| MessageTooLong
| MessageNotRecognized
| SignatureTooLong
| InvalidParameters
deriving (Int -> Error -> ShowS
[Error] -> ShowS
Error -> String
(Int -> Error -> ShowS)
-> (Error -> String) -> ([Error] -> ShowS) -> Show Error
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Error] -> ShowS
$cshowList :: [Error] -> ShowS
show :: Error -> String
$cshow :: Error -> String
showsPrec :: Int -> Error -> ShowS
$cshowsPrec :: Int -> Error -> ShowS
Show,Error -> Error -> Bool
(Error -> Error -> Bool) -> (Error -> Error -> Bool) -> Eq Error
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Error -> Error -> Bool
$c/= :: Error -> Error -> Bool
== :: Error -> Error -> Bool
$c== :: Error -> Error -> Bool
Eq)