1234567891011121314151617 |
- module Data.SMTP.Types.Seal where
- import Data.ByteString (ByteString)
- data Seal = Seal {
- cp :: ByteString,
- seal :: ByteString,
- nonce :: Maybe ByteString} deriving (Eq, Ord, Read, Show)
- data SealAlgo = ED25519 deriving (Eq, Ord, Read, Show, Bounded, Enum)
- cpHeaderName :: String
- cpHeaderName = "FCMTP-SEAL-CP"
- nonceHeaderName :: String
- nonceHeaderName = "FCMTP-SEAL-NONCE"
- sealHeaderName :: String
- sealHeaderName = "FCMTP-SEAL"
|