module Network.AWS.SES.Types.Sum where
import Network.AWS.Prelude
data IdentityType
= Domain
| EmailAddress
deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)
instance FromText IdentityType where
parser = takeLowerText >>= \case
"domain" -> pure Domain
"emailaddress" -> pure EmailAddress
e -> fromTextError $ "Failure parsing IdentityType from value: '" <> e
<> "'. Accepted values: domain, emailaddress"
instance ToText IdentityType where
toText = \case
Domain -> "domain"
EmailAddress -> "emailaddress"
instance Hashable IdentityType
instance ToByteString IdentityType
instance ToQuery IdentityType
instance ToHeader IdentityType
data NotificationType
= Bounce
| Complaint
| Delivery
deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)
instance FromText NotificationType where
parser = takeLowerText >>= \case
"bounce" -> pure Bounce
"complaint" -> pure Complaint
"delivery" -> pure Delivery
e -> fromTextError $ "Failure parsing NotificationType from value: '" <> e
<> "'. Accepted values: bounce, complaint, delivery"
instance ToText NotificationType where
toText = \case
Bounce -> "bounce"
Complaint -> "complaint"
Delivery -> "delivery"
instance Hashable NotificationType
instance ToByteString NotificationType
instance ToQuery NotificationType
instance ToHeader NotificationType
data VerificationStatus
= Failed
| NotStarted
| Pending
| Success
| TemporaryFailure
deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)
instance FromText VerificationStatus where
parser = takeLowerText >>= \case
"failed" -> pure Failed
"notstarted" -> pure NotStarted
"pending" -> pure Pending
"success" -> pure Success
"temporaryfailure" -> pure TemporaryFailure
e -> fromTextError $ "Failure parsing VerificationStatus from value: '" <> e
<> "'. Accepted values: failed, notstarted, pending, success, temporaryfailure"
instance ToText VerificationStatus where
toText = \case
Failed -> "failed"
NotStarted -> "notstarted"
Pending -> "pending"
Success -> "success"
TemporaryFailure -> "temporaryfailure"
instance Hashable VerificationStatus
instance ToByteString VerificationStatus
instance ToQuery VerificationStatus
instance ToHeader VerificationStatus
instance FromXML VerificationStatus where
parseXML = parseXMLText "VerificationStatus"