amazonka-ses 1.4.3 → 1.4.4

raw patch · 52 files changed

+523/−115 lines, 52 filesdep ~amazonka-coredep ~amazonka-sesdep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-ses, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-ses.cabal +7/−6
• fixture/SetIdentityHeadersInNotificationsEnabled.yaml +0/−0
• fixture/SetIdentityHeadersInNotificationsEnabledResponse.proto +0/−0
• gen/Network/AWS/SES.hs +7/−0
• gen/Network/AWS/SES/CloneReceiptRuleSet.hs +9/−2
• gen/Network/AWS/SES/CreateReceiptFilter.hs +6/−2
• gen/Network/AWS/SES/CreateReceiptRule.hs +6/−2
• gen/Network/AWS/SES/CreateReceiptRuleSet.hs +9/−2
• gen/Network/AWS/SES/DeleteIdentity.hs +7/−3
• gen/Network/AWS/SES/DeleteIdentityPolicy.hs +7/−3
• gen/Network/AWS/SES/DeleteReceiptFilter.hs +6/−2
• gen/Network/AWS/SES/DeleteReceiptRule.hs +6/−2
• gen/Network/AWS/SES/DeleteReceiptRuleSet.hs +6/−2
• gen/Network/AWS/SES/DeleteVerifiedEmailAddress.hs +3/−1
• gen/Network/AWS/SES/DescribeActiveReceiptRuleSet.hs +6/−2
• gen/Network/AWS/SES/DescribeReceiptRule.hs +6/−2
• gen/Network/AWS/SES/DescribeReceiptRuleSet.hs +6/−2
• gen/Network/AWS/SES/GetIdentityDkimAttributes.hs +8/−2
• gen/Network/AWS/SES/GetIdentityMailFromDomainAttributes.hs +6/−2
• gen/Network/AWS/SES/GetIdentityNotificationAttributes.hs +6/−2
• gen/Network/AWS/SES/GetIdentityPolicies.hs +7/−3
• gen/Network/AWS/SES/GetIdentityVerificationAttributes.hs +6/−2
• gen/Network/AWS/SES/GetSendQuota.hs +3/−1
• gen/Network/AWS/SES/GetSendStatistics.hs +3/−1
• gen/Network/AWS/SES/ListIdentities.hs +7/−3
• gen/Network/AWS/SES/ListIdentityPolicies.hs +7/−3
• gen/Network/AWS/SES/ListReceiptFilters.hs +7/−3
• gen/Network/AWS/SES/ListReceiptRuleSets.hs +6/−2
• gen/Network/AWS/SES/ListVerifiedEmailAddresses.hs +3/−1
• gen/Network/AWS/SES/PutIdentityPolicy.hs +7/−3
• gen/Network/AWS/SES/ReorderReceiptRuleSet.hs +6/−2
• gen/Network/AWS/SES/SendBounce.hs +6/−2
• gen/Network/AWS/SES/SendEmail.hs +10/−2
• gen/Network/AWS/SES/SendRawEmail.hs +24/−3
• gen/Network/AWS/SES/SetActiveReceiptRuleSet.hs +6/−2
• gen/Network/AWS/SES/SetIdentityDkimEnabled.hs +7/−2
• gen/Network/AWS/SES/SetIdentityFeedbackForwardingEnabled.hs +7/−3
• gen/Network/AWS/SES/SetIdentityHeadersInNotificationsEnabled.hs +157/−0
• gen/Network/AWS/SES/SetIdentityMailFromDomain.hs +7/−3
• gen/Network/AWS/SES/SetIdentityNotificationTopic.hs +7/−3
• gen/Network/AWS/SES/SetReceiptRulePosition.hs +6/−2
• gen/Network/AWS/SES/Types.hs +3/−0
• gen/Network/AWS/SES/Types/Product.hs +47/−9
• gen/Network/AWS/SES/Types/Sum.hs +11/−11
• gen/Network/AWS/SES/UpdateReceiptRule.hs +6/−2
• gen/Network/AWS/SES/VerifyDomainDkim.hs +6/−2
• gen/Network/AWS/SES/VerifyDomainIdentity.hs +6/−2
• gen/Network/AWS/SES/VerifyEmailAddress.hs +3/−1
• gen/Network/AWS/SES/VerifyEmailIdentity.hs +6/−2
• src/.gitkeep +0/−0
• test/Test/AWS/Gen/SES.hs +18/−0

@@ -8,7 +8,7 @@  ## Version -`1.4.3`+`1.4.4`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-ses-version:               1.4.3+version:               1.4.4 synopsis:              Amazon Simple Email Service SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -11,7 +11,7 @@ category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10-extra-source-files:    README.md fixture/*.yaml fixture/*.proto+extra-source-files:    README.md fixture/*.yaml fixture/*.proto src/.gitkeep description:     Amazon Simple Email Service @@ -78,6 +78,7 @@         , Network.AWS.SES.SetActiveReceiptRuleSet         , Network.AWS.SES.SetIdentityDkimEnabled         , Network.AWS.SES.SetIdentityFeedbackForwardingEnabled+        , Network.AWS.SES.SetIdentityHeadersInNotificationsEnabled         , Network.AWS.SES.SetIdentityMailFromDomain         , Network.AWS.SES.SetIdentityNotificationTopic         , Network.AWS.SES.SetReceiptRulePosition@@ -94,7 +95,7 @@         , Network.AWS.SES.Types.Sum      build-depends:-          amazonka-core == 1.4.3.*+          amazonka-core == 1.4.4.*         , base          >= 4.7     && < 5  test-suite amazonka-ses-test@@ -114,9 +115,9 @@         , Test.AWS.SES.Internal      build-depends:-          amazonka-core == 1.4.3.*-        , amazonka-test == 1.4.3.*-        , amazonka-ses == 1.4.3.*+          amazonka-core == 1.4.4.*+        , amazonka-test == 1.4.4.*+        , amazonka-ses == 1.4.4.*         , base         , bytestring         , tasty

@@ -66,6 +66,9 @@     -- ** CreateReceiptRuleSet     , module Network.AWS.SES.CreateReceiptRuleSet +    -- ** SetIdentityHeadersInNotificationsEnabled+    , module Network.AWS.SES.SetIdentityHeadersInNotificationsEnabled+     -- ** GetSendQuota     , module Network.AWS.SES.GetSendQuota @@ -289,6 +292,9 @@     -- ** IdentityNotificationAttributes     , IdentityNotificationAttributes     , identityNotificationAttributes+    , inaHeadersInDeliveryNotificationsEnabled+    , inaHeadersInComplaintNotificationsEnabled+    , inaHeadersInBounceNotificationsEnabled     , inaBounceTopic     , inaComplaintTopic     , inaDeliveryTopic@@ -444,6 +450,7 @@ import           Network.AWS.SES.SetActiveReceiptRuleSet import           Network.AWS.SES.SetIdentityDkimEnabled import           Network.AWS.SES.SetIdentityFeedbackForwardingEnabled+import           Network.AWS.SES.SetIdentityHeadersInNotificationsEnabled import           Network.AWS.SES.SetIdentityMailFromDomain import           Network.AWS.SES.SetIdentityNotificationTopic import           Network.AWS.SES.SetReceiptRulePosition

@@ -46,7 +46,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'cloneReceiptRuleSet' smart constructor.+-- | Represents a request to create a receipt rule set by cloning an existing one. You use receipt rule sets to receive email with Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-concepts.html Amazon SES Developer Guide>.+--+-- /See:/ 'cloneReceiptRuleSet' smart constructor. data CloneReceiptRuleSet = CloneReceiptRuleSet'     { _cRuleSetName         :: !Text     , _cOriginalRuleSetName :: !Text@@ -72,8 +74,11 @@ -- | The name of the rule set to create. The name must: -- -- -   Contain only ASCII letters (a-z, A-Z), numbers (0-9), periods (.), underscores (_), or dashes (-).+-- -- -   Start and end with a letter or number.+-- -- -   Contain less than 64 characters.+-- cRuleSetName :: Lens' CloneReceiptRuleSet Text cRuleSetName = lens _cRuleSetName (\ s a -> s{_cRuleSetName = a}); @@ -108,7 +113,9 @@                "RuleSetName" =: _cRuleSetName,                "OriginalRuleSetName" =: _cOriginalRuleSetName] --- | /See:/ 'cloneReceiptRuleSetResponse' smart constructor.+-- | An empty element returned on a successful request.+--+-- /See:/ 'cloneReceiptRuleSetResponse' smart constructor. newtype CloneReceiptRuleSetResponse = CloneReceiptRuleSetResponse'     { _crsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -45,7 +45,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'createReceiptFilter' smart constructor.+-- | Represents a request to create a new IP address filter. You use IP address filters when you receive email with Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-concepts.html Amazon SES Developer Guide>.+--+-- /See:/ 'createReceiptFilter' smart constructor. newtype CreateReceiptFilter = CreateReceiptFilter'     { _crfFilter :: ReceiptFilter     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -93,7 +95,9 @@                "Version" =: ("2010-12-01" :: ByteString),                "Filter" =: _crfFilter] --- | /See:/ 'createReceiptFilterResponse' smart constructor.+-- | An empty element returned on a successful request.+--+-- /See:/ 'createReceiptFilterResponse' smart constructor. newtype CreateReceiptFilterResponse = CreateReceiptFilterResponse'     { _crfrsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -47,7 +47,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'createReceiptRule' smart constructor.+-- | Represents a request to create a receipt rule. You use receipt rules to receive email with Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-concepts.html Amazon SES Developer Guide>.+--+-- /See:/ 'createReceiptRule' smart constructor. data CreateReceiptRule = CreateReceiptRule'     { _crrAfter       :: !(Maybe Text)     , _crrRuleSetName :: !Text@@ -112,7 +114,9 @@                "After" =: _crrAfter,                "RuleSetName" =: _crrRuleSetName, "Rule" =: _crrRule] --- | /See:/ 'createReceiptRuleResponse' smart constructor.+-- | An empty element returned on a successful request.+--+-- /See:/ 'createReceiptRuleResponse' smart constructor. newtype CreateReceiptRuleResponse = CreateReceiptRuleResponse'     { _crrrsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -45,7 +45,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'createReceiptRuleSet' smart constructor.+-- | Represents a request to create an empty receipt rule set. You use receipt rule sets to receive email with Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-concepts.html Amazon SES Developer Guide>.+--+-- /See:/ 'createReceiptRuleSet' smart constructor. newtype CreateReceiptRuleSet = CreateReceiptRuleSet'     { _crrsRuleSetName :: Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -66,8 +68,11 @@ -- | The name of the rule set to create. The name must: -- -- -   Contain only ASCII letters (a-z, A-Z), numbers (0-9), periods (.), underscores (_), or dashes (-).+-- -- -   Start and end with a letter or number.+-- -- -   Contain less than 64 characters.+-- crrsRuleSetName :: Lens' CreateReceiptRuleSet Text crrsRuleSetName = lens _crrsRuleSetName (\ s a -> s{_crrsRuleSetName = a}); @@ -98,7 +103,9 @@                "Version" =: ("2010-12-01" :: ByteString),                "RuleSetName" =: _crrsRuleSetName] --- | /See:/ 'createReceiptRuleSetResponse' smart constructor.+-- | An empty element returned on a successful request.+--+-- /See:/ 'createReceiptRuleSetResponse' smart constructor. newtype CreateReceiptRuleSetResponse = CreateReceiptRuleSetResponse'     { _crrsrsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes the specified identity (email address or domain) from the list of verified identities.+-- Deletes the specified identity (an email address or a domain) from the list of verified identities. -- -- This action is throttled at one request per second. module Network.AWS.SES.DeleteIdentity@@ -43,7 +43,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'deleteIdentity' smart constructor.+-- | Represents a request to delete one of your Amazon SES identities (an email address or domain).+--+-- /See:/ 'deleteIdentity' smart constructor. newtype DeleteIdentity = DeleteIdentity'     { _diIdentity :: Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -90,7 +92,9 @@                "Version" =: ("2010-12-01" :: ByteString),                "Identity" =: _diIdentity] --- | /See:/ 'deleteIdentityResponse' smart constructor.+-- | An empty element returned on a successful request.+--+-- /See:/ 'deleteIdentityResponse' smart constructor. newtype DeleteIdentityResponse = DeleteIdentityResponse'     { _dirsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes the specified sending authorization policy for the given identity (email address or domain). This API returns successfully even if a policy with the specified name does not exist.+-- Deletes the specified sending authorization policy for the given identity (an email address or a domain). This API returns successfully even if a policy with the specified name does not exist. -- -- This API is for the identity owner only. If you have not verified the identity, this API will return an error. --@@ -48,7 +48,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'deleteIdentityPolicy' smart constructor.+-- | Represents a request to delete a sending authorization policy for an identity. Sending authorization is an Amazon SES feature that enables you to authorize other senders to use your identities. For information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization.html Amazon SES Developer Guide>.+--+-- /See:/ 'deleteIdentityPolicy' smart constructor. data DeleteIdentityPolicy = DeleteIdentityPolicy'     { _dipIdentity   :: !Text     , _dipPolicyName :: !Text@@ -109,7 +111,9 @@                "Identity" =: _dipIdentity,                "PolicyName" =: _dipPolicyName] --- | /See:/ 'deleteIdentityPolicyResponse' smart constructor.+-- | An empty element returned on a successful request.+--+-- /See:/ 'deleteIdentityPolicyResponse' smart constructor. newtype DeleteIdentityPolicyResponse = DeleteIdentityPolicyResponse'     { _diprsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -45,7 +45,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'deleteReceiptFilter' smart constructor.+-- | Represents a request to delete an IP address filter. You use IP address filters when you receive email with Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-concepts.html Amazon SES Developer Guide>.+--+-- /See:/ 'deleteReceiptFilter' smart constructor. newtype DeleteReceiptFilter = DeleteReceiptFilter'     { _drfFilterName :: Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -93,7 +95,9 @@                "Version" =: ("2010-12-01" :: ByteString),                "FilterName" =: _drfFilterName] --- | /See:/ 'deleteReceiptFilterResponse' smart constructor.+-- | An empty element returned on a successful request.+--+-- /See:/ 'deleteReceiptFilterResponse' smart constructor. newtype DeleteReceiptFilterResponse = DeleteReceiptFilterResponse'     { _drfrsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -46,7 +46,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'deleteReceiptRule' smart constructor.+-- | Represents a request to delete a receipt rule. You use receipt rules to receive email with Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-concepts.html Amazon SES Developer Guide>.+--+-- /See:/ 'deleteReceiptRule' smart constructor. data DeleteReceiptRule = DeleteReceiptRule'     { _delRuleSetName :: !Text     , _delRuleName    :: !Text@@ -103,7 +105,9 @@                "RuleSetName" =: _delRuleSetName,                "RuleName" =: _delRuleName] --- | /See:/ 'deleteReceiptRuleResponse' smart constructor.+-- | An empty element returned on a successful request.+--+-- /See:/ 'deleteReceiptRuleResponse' smart constructor. newtype DeleteReceiptRuleResponse = DeleteReceiptRuleResponse'     { _drsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -47,7 +47,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'deleteReceiptRuleSet' smart constructor.+-- | Represents a request to delete a receipt rule set and all of the receipt rules it contains. You use receipt rule sets to receive email with Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-concepts.html Amazon SES Developer Guide>.+--+-- /See:/ 'deleteReceiptRuleSet' smart constructor. newtype DeleteReceiptRuleSet = DeleteReceiptRuleSet'     { _dRuleSetName :: Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -96,7 +98,9 @@                "Version" =: ("2010-12-01" :: ByteString),                "RuleSetName" =: _dRuleSetName] --- | /See:/ 'deleteReceiptRuleSetResponse' smart constructor.+-- | An empty element returned on a successful request.+--+-- /See:/ 'deleteReceiptRuleSetResponse' smart constructor. newtype DeleteReceiptRuleSetResponse = DeleteReceiptRuleSetResponse'     { _drrsrsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -43,7 +43,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'deleteVerifiedEmailAddress' smart constructor.+-- | Represents a request to delete an email address from the list of email addresses you have attempted to verify under your AWS account.+--+-- /See:/ 'deleteVerifiedEmailAddress' smart constructor. newtype DeleteVerifiedEmailAddress = DeleteVerifiedEmailAddress'     { _dveaEmailAddress :: Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -45,7 +45,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'describeActiveReceiptRuleSet' smart constructor.+-- | Represents a request to return the metadata and receipt rules for the receipt rule set that is currently active. You use receipt rule sets to receive email with Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-concepts.html Amazon SES Developer Guide>.+--+-- /See:/ 'describeActiveReceiptRuleSet' smart constructor. data DescribeActiveReceiptRuleSet =     DescribeActiveReceiptRuleSet'     deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -89,7 +91,9 @@                     ("DescribeActiveReceiptRuleSet" :: ByteString),                   "Version" =: ("2010-12-01" :: ByteString)]) --- | /See:/ 'describeActiveReceiptRuleSetResponse' smart constructor.+-- | Represents the metadata and receipt rules for the receipt rule set that is currently active.+--+-- /See:/ 'describeActiveReceiptRuleSetResponse' smart constructor. data DescribeActiveReceiptRuleSetResponse = DescribeActiveReceiptRuleSetResponse'     { _darrsrsRules          :: !(Maybe [ReceiptRule])     , _darrsrsMetadata       :: !(Maybe ReceiptRuleSetMetadata)

@@ -47,7 +47,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'describeReceiptRule' smart constructor.+-- | Represents a request to return the details of a receipt rule. You use receipt rules to receive email with Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-concepts.html Amazon SES Developer Guide>.+--+-- /See:/ 'describeReceiptRule' smart constructor. data DescribeReceiptRule = DescribeReceiptRule'     { _drrRuleSetName :: !Text     , _drrRuleName    :: !Text@@ -106,7 +108,9 @@                "RuleSetName" =: _drrRuleSetName,                "RuleName" =: _drrRuleName] --- | /See:/ 'describeReceiptRuleResponse' smart constructor.+-- | Represents the details of a receipt rule.+--+-- /See:/ 'describeReceiptRuleResponse' smart constructor. data DescribeReceiptRuleResponse = DescribeReceiptRuleResponse'     { _drrrsRule           :: !(Maybe ReceiptRule)     , _drrrsResponseStatus :: !Int

@@ -47,7 +47,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'describeReceiptRuleSet' smart constructor.+-- | Represents a request to return the details of a receipt rule set. You use receipt rule sets to receive email with Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-concepts.html Amazon SES Developer Guide>.+--+-- /See:/ 'describeReceiptRuleSet' smart constructor. newtype DescribeReceiptRuleSet = DescribeReceiptRuleSet'     { _drrsRuleSetName :: Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -100,7 +102,9 @@                "Version" =: ("2010-12-01" :: ByteString),                "RuleSetName" =: _drrsRuleSetName] --- | /See:/ 'describeReceiptRuleSetResponse' smart constructor.+-- | Represents the details of the specified receipt rule set.+--+-- /See:/ 'describeReceiptRuleSetResponse' smart constructor. data DescribeReceiptRuleSetResponse = DescribeReceiptRuleSetResponse'     { _desrsRules          :: !(Maybe [ReceiptRule])     , _desrsMetadata       :: !(Maybe ReceiptRuleSetMetadata)

@@ -23,7 +23,9 @@ -- This action takes a list of identities as input and returns the following information for each: -- -- -   Whether Easy DKIM signing is enabled or disabled.+-- -- -   A set of DKIM tokens that represent the identity. If the identity is an email address, the tokens represent the domain of that address.+-- -- -   Whether Amazon SES has successfully verified the DKIM tokens published in the domain\'s DNS. This information is only returned for domain name identities, not for email addresses. -- -- This action is throttled at one request per second and can only get DKIM attributes for up to 100 identities at a time.@@ -52,7 +54,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'getIdentityDkimAttributes' smart constructor.+-- | Represents a request for the status of Amazon SES Easy DKIM signing for an identity. For domain identities, this request also returns the DKIM tokens that are required for Easy DKIM signing, and whether Amazon SES successfully verified that these tokens were published. For more information about Easy DKIM, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/easy-dkim.html Amazon SES Developer Guide>.+--+-- /See:/ 'getIdentityDkimAttributes' smart constructor. newtype GetIdentityDkimAttributes = GetIdentityDkimAttributes'     { _gidaIdentities :: [Text]     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -103,7 +107,9 @@                "Version" =: ("2010-12-01" :: ByteString),                "Identities" =: toQueryList "member" _gidaIdentities] --- | /See:/ 'getIdentityDkimAttributesResponse' smart constructor.+-- | Represents the status of Amazon SES Easy DKIM signing for an identity. For domain identities, this response also contains the DKIM tokens that are required for Easy DKIM signing, and whether Amazon SES successfully verified that these tokens were published.+--+-- /See:/ 'getIdentityDkimAttributesResponse' smart constructor. data GetIdentityDkimAttributesResponse = GetIdentityDkimAttributesResponse'     { _gidarsResponseStatus :: !Int     , _gidarsDkimAttributes :: !(Map Text IdentityDkimAttributes)

@@ -44,7 +44,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'getIdentityMailFromDomainAttributes' smart constructor.+-- | Represents a request to return the Amazon SES custom MAIL FROM attributes for a list of identities. For information about using a custom MAIL FROM domain, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/mail-from.html Amazon SES Developer Guide>.+--+-- /See:/ 'getIdentityMailFromDomainAttributes' smart constructor. newtype GetIdentityMailFromDomainAttributes = GetIdentityMailFromDomainAttributes'     { _gimfdaIdentities :: [Text]     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -102,7 +104,9 @@                "Identities" =:                  toQueryList "member" _gimfdaIdentities] --- | /See:/ 'getIdentityMailFromDomainAttributesResponse' smart constructor.+-- | Represents the custom MAIL FROM attributes for a list of identities.+--+-- /See:/ 'getIdentityMailFromDomainAttributesResponse' smart constructor. data GetIdentityMailFromDomainAttributesResponse = GetIdentityMailFromDomainAttributesResponse'     { _gimfdarsResponseStatus           :: !Int     , _gimfdarsMailFromDomainAttributes :: !(Map Text IdentityMailFromDomainAttributes)

@@ -46,7 +46,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'getIdentityNotificationAttributes' smart constructor.+-- | Represents a request to return the notification attributes for a list of identities you verified with Amazon SES. For information about Amazon SES notifications, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/notifications.html Amazon SES Developer Guide>.+--+-- /See:/ 'getIdentityNotificationAttributes' smart constructor. newtype GetIdentityNotificationAttributes = GetIdentityNotificationAttributes'     { _ginaIdentities :: [Text]     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -102,7 +104,9 @@                "Version" =: ("2010-12-01" :: ByteString),                "Identities" =: toQueryList "member" _ginaIdentities] --- | /See:/ 'getIdentityNotificationAttributesResponse' smart constructor.+-- | Represents the notification attributes for a list of identities.+--+-- /See:/ 'getIdentityNotificationAttributesResponse' smart constructor. data GetIdentityNotificationAttributesResponse = GetIdentityNotificationAttributesResponse'     { _ginarsResponseStatus         :: !Int     , _ginarsNotificationAttributes :: !(Map Text IdentityNotificationAttributes)

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns the requested sending authorization policies for the given identity (email address or domain). The policies are returned as a map of policy names to policy contents. You can retrieve a maximum of 20 policies at a time.+-- Returns the requested sending authorization policies for the given identity (an email address or a domain). The policies are returned as a map of policy names to policy contents. You can retrieve a maximum of 20 policies at a time. -- -- This API is for the identity owner only. If you have not verified the identity, this API will return an error. --@@ -49,7 +49,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'getIdentityPolicies' smart constructor.+-- | Represents a request to return the requested sending authorization policies for an identity. Sending authorization is an Amazon SES feature that enables you to authorize other senders to use your identities. For information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization.html Amazon SES Developer Guide>.+--+-- /See:/ 'getIdentityPolicies' smart constructor. data GetIdentityPolicies = GetIdentityPolicies'     { _gipIdentity    :: !Text     , _gipPolicyNames :: ![Text]@@ -112,7 +114,9 @@                "PolicyNames" =:                  toQueryList "member" _gipPolicyNames] --- | /See:/ 'getIdentityPoliciesResponse' smart constructor.+-- | Represents the requested sending authorization policies.+--+-- /See:/ 'getIdentityPoliciesResponse' smart constructor. data GetIdentityPoliciesResponse = GetIdentityPoliciesResponse'     { _giprsResponseStatus :: !Int     , _giprsPolicies       :: !(Map Text Text)

@@ -44,7 +44,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'getIdentityVerificationAttributes' smart constructor.+-- | Represents a request to return the Amazon SES verification status of a list of identities. For domain identities, this request also returns the verification token. For information about verifying identities with Amazon SES, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/verify-addresses-and-domains.html Amazon SES Developer Guide>.+--+-- /See:/ 'getIdentityVerificationAttributes' smart constructor. newtype GetIdentityVerificationAttributes = GetIdentityVerificationAttributes'     { _givaIdentities :: [Text]     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -100,7 +102,9 @@                "Version" =: ("2010-12-01" :: ByteString),                "Identities" =: toQueryList "member" _givaIdentities] --- | /See:/ 'getIdentityVerificationAttributesResponse' smart constructor.+-- | The Amazon SES verification status of a list of identities. For domain identities, this response also contains the verification token.+--+-- /See:/ 'getIdentityVerificationAttributesResponse' smart constructor. data GetIdentityVerificationAttributesResponse = GetIdentityVerificationAttributesResponse'     { _givarsResponseStatus         :: !Int     , _givarsVerificationAttributes :: !(Map Text IdentityVerificationAttributes)

@@ -83,7 +83,9 @@                  ["Action" =: ("GetSendQuota" :: ByteString),                   "Version" =: ("2010-12-01" :: ByteString)]) --- | /See:/ 'getSendQuotaResponse' smart constructor.+-- | Represents your Amazon SES daily sending quota, maximum send rate, and the number of emails you have sent in the last 24 hours.+--+-- /See:/ 'getSendQuotaResponse' smart constructor. data GetSendQuotaResponse = GetSendQuotaResponse'     { _gsqrsMaxSendRate     :: !(Maybe Double)     , _gsqrsSentLast24Hours :: !(Maybe Double)

@@ -83,7 +83,9 @@                  ["Action" =: ("GetSendStatistics" :: ByteString),                   "Version" =: ("2010-12-01" :: ByteString)]) --- | /See:/ 'getSendStatisticsResponse' smart constructor.+-- | Represents a list of data points. This list contains aggregated data from the previous two weeks of your sending activity with Amazon SES.+--+-- /See:/ 'getSendStatisticsResponse' smart constructor. data GetSendStatisticsResponse = GetSendStatisticsResponse'     { _gssrsSendDataPoints :: !(Maybe [SendDataPoint])     , _gssrsResponseStatus :: !Int

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns a list containing all of the identities (email addresses and domains) for a specific AWS Account, regardless of verification status.+-- Returns a list containing all of the identities (email addresses and domains) for your AWS account, regardless of verification status. -- -- This action is throttled at one request per second. --@@ -50,7 +50,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'listIdentities' smart constructor.+-- | Represents a request to return a list of all identities (email addresses and domains) that you have attempted to verify under your AWS account, regardless of verification status.+--+-- /See:/ 'listIdentities' smart constructor. data ListIdentities = ListIdentities'     { _liIdentityType :: !(Maybe IdentityType)     , _liNextToken    :: !(Maybe Text)@@ -124,7 +126,9 @@                "NextToken" =: _liNextToken,                "MaxItems" =: _liMaxItems] --- | /See:/ 'listIdentitiesResponse' smart constructor.+-- | A list of all identities that you have attempted to verify under your AWS account, regardless of verification status.+--+-- /See:/ 'listIdentitiesResponse' smart constructor. data ListIdentitiesResponse = ListIdentitiesResponse'     { _lirsNextToken      :: !(Maybe Text)     , _lirsResponseStatus :: !Int

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns a list of sending authorization policies that are attached to the given identity (email address or domain). This API returns only a list. If you want the actual policy content, you can use 'GetIdentityPolicies'.+-- Returns a list of sending authorization policies that are attached to the given identity (an email address or a domain). This API returns only a list. If you want the actual policy content, you can use 'GetIdentityPolicies'. -- -- This API is for the identity owner only. If you have not verified the identity, this API will return an error. --@@ -48,7 +48,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'listIdentityPolicies' smart constructor.+-- | Represents a request to return a list of sending authorization policies that are attached to an identity. Sending authorization is an Amazon SES feature that enables you to authorize other senders to use your identities. For information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization.html Amazon SES Developer Guide>.+--+-- /See:/ 'listIdentityPolicies' smart constructor. newtype ListIdentityPolicies = ListIdentityPolicies'     { _lipIdentity :: Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -101,7 +103,9 @@                "Version" =: ("2010-12-01" :: ByteString),                "Identity" =: _lipIdentity] --- | /See:/ 'listIdentityPoliciesResponse' smart constructor.+-- | A list of names of sending authorization policies that apply to an identity.+--+-- /See:/ 'listIdentityPoliciesResponse' smart constructor. data ListIdentityPoliciesResponse = ListIdentityPoliciesResponse'     { _liprsResponseStatus :: !Int     , _liprsPolicyNames    :: ![Text]

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Lists the IP address filters associated with your account.+-- Lists the IP address filters associated with your AWS account. -- -- For information about managing IP address filters, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-managing-ip-filters.html Amazon SES Developer Guide>. --@@ -44,7 +44,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'listReceiptFilters' smart constructor.+-- | : Represents a request to list the IP address filters that exist under your AWS account. You use IP address filters when you receive email with Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-concepts.html Amazon SES Developer Guide>.+--+-- /See:/ 'listReceiptFilters' smart constructor. data ListReceiptFilters =     ListReceiptFilters'     deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -84,7 +86,9 @@                  ["Action" =: ("ListReceiptFilters" :: ByteString),                   "Version" =: ("2010-12-01" :: ByteString)]) --- | /See:/ 'listReceiptFiltersResponse' smart constructor.+-- | A list of IP address filters that exist under your AWS account.+--+-- /See:/ 'listReceiptFiltersResponse' smart constructor. data ListReceiptFiltersResponse = ListReceiptFiltersResponse'     { _lrfrsFilters        :: !(Maybe [ReceiptFilter])     , _lrfrsResponseStatus :: !Int

@@ -47,7 +47,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'listReceiptRuleSets' smart constructor.+-- | Represents a request to list the receipt rule sets that exist under your AWS account. You use receipt rule sets to receive email with Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-concepts.html Amazon SES Developer Guide>.+--+-- /See:/ 'listReceiptRuleSets' smart constructor. newtype ListReceiptRuleSets = ListReceiptRuleSets'     { _lrrsNextToken :: Maybe Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -98,7 +100,9 @@                "Version" =: ("2010-12-01" :: ByteString),                "NextToken" =: _lrrsNextToken] --- | /See:/ 'listReceiptRuleSetsResponse' smart constructor.+-- | A list of receipt rule sets that exist under your AWS account.+--+-- /See:/ 'listReceiptRuleSetsResponse' smart constructor. data ListReceiptRuleSetsResponse = ListReceiptRuleSetsResponse'     { _lrrsrsRuleSets       :: !(Maybe [ReceiptRuleSetMetadata])     , _lrrsrsNextToken      :: !(Maybe Text)

@@ -86,7 +86,9 @@                     ("ListVerifiedEmailAddresses" :: ByteString),                   "Version" =: ("2010-12-01" :: ByteString)]) --- | /See:/ 'listVerifiedEmailAddressesResponse' smart constructor.+-- | A list of email addresses that you have verified with Amazon SES under your AWS account.+--+-- /See:/ 'listVerifiedEmailAddressesResponse' smart constructor. data ListVerifiedEmailAddressesResponse = ListVerifiedEmailAddressesResponse'     { _lvearsVerifiedEmailAddresses :: !(Maybe [Text])     , _lvearsResponseStatus         :: !Int

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Adds or updates a sending authorization policy for the specified identity (email address or domain).+-- Adds or updates a sending authorization policy for the specified identity (an email address or a domain). -- -- This API is for the identity owner only. If you have not verified the identity, this API will return an error. --@@ -49,7 +49,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'putIdentityPolicy' smart constructor.+-- | Represents a request to add or update a sending authorization policy for an identity. Sending authorization is an Amazon SES feature that enables you to authorize other senders to use your identities. For information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization.html Amazon SES Developer Guide>.+--+-- /See:/ 'putIdentityPolicy' smart constructor. data PutIdentityPolicy = PutIdentityPolicy'     { _pipIdentity   :: !Text     , _pipPolicyName :: !Text@@ -122,7 +124,9 @@                "PolicyName" =: _pipPolicyName,                "Policy" =: _pipPolicy] --- | /See:/ 'putIdentityPolicyResponse' smart constructor.+-- | An empty element returned on a successful request.+--+-- /See:/ 'putIdentityPolicyResponse' smart constructor. newtype PutIdentityPolicyResponse = PutIdentityPolicyResponse'     { _piprsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -48,7 +48,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'reorderReceiptRuleSet' smart constructor.+-- | Represents a request to reorder the receipt rules within a receipt rule set. You use receipt rule sets to receive email with Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-concepts.html Amazon SES Developer Guide>.+--+-- /See:/ 'reorderReceiptRuleSet' smart constructor. data ReorderReceiptRuleSet = ReorderReceiptRuleSet'     { _rrrsRuleSetName :: !Text     , _rrrsRuleNames   :: ![Text]@@ -106,7 +108,9 @@                "RuleSetName" =: _rrrsRuleSetName,                "RuleNames" =: toQueryList "member" _rrrsRuleNames] --- | /See:/ 'reorderReceiptRuleSetResponse' smart constructor.+-- | An empty element returned on a successful request.+--+-- /See:/ 'reorderReceiptRuleSetResponse' smart constructor. newtype ReorderReceiptRuleSetResponse = ReorderReceiptRuleSetResponse'     { _rrrsrsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -53,7 +53,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'sendBounce' smart constructor.+-- | Represents a request to send a bounce message to the sender of an email you received through Amazon SES.+--+-- /See:/ 'sendBounce' smart constructor. data SendBounce = SendBounce'     { _sbMessageDsn               :: !(Maybe MessageDsn)     , _sbExplanation              :: !(Maybe Text)@@ -148,7 +150,9 @@                "BouncedRecipientInfoList" =:                  toQueryList "member" _sbBouncedRecipientInfoList] --- | /See:/ 'sendBounceResponse' smart constructor.+-- | Represents a unique message ID.+--+-- /See:/ 'sendBounceResponse' smart constructor. data SendBounceResponse = SendBounceResponse'     { _sbrsMessageId      :: !(Maybe Text)     , _sbrsResponseStatus :: !Int

@@ -23,9 +23,13 @@ -- There are several important points to know about 'SendEmail': -- -- -   You can only send email from verified email addresses and domains; otherwise, you will get an \"Email address not verified\" error. If your account is still in the Amazon SES sandbox, you must also verify every recipient email address except for the recipients provided by the Amazon SES mailbox simulator. For more information, go to the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/verify-addresses-and-domains.html Amazon SES Developer Guide>.+-- -- -   The total size of the message cannot exceed 10 MB. This includes any attachments that are part of the message.+-- -- -   Amazon SES has a limit on the total number of recipients per message. The combined number of To:, CC: and BCC: email addresses cannot exceed 50. If you need to send an email message to a larger audience, you can divide your recipient list into groups of 50 or fewer, and then call Amazon SES repeatedly to send the message to each group.+-- -- -   For every message that you send, the total number of recipients (To:, CC: and BCC:) is counted against your sending quota - the maximum number of emails you can send in a 24-hour period. For information about your sending quota, go to the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/manage-sending-limits.html Amazon SES Developer Guide>.+-- module Network.AWS.SES.SendEmail     (     -- * Creating a Request@@ -55,7 +59,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'sendEmail' smart constructor.+-- | Represents a request to send a single formatted email using Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/send-email-formatted.html Amazon SES Developer Guide>.+--+-- /See:/ 'sendEmail' smart constructor. data SendEmail = SendEmail'     { _seReturnPath       :: !(Maybe Text)     , _seSourceARN        :: !(Maybe Text)@@ -173,7 +179,9 @@                "Destination" =: _seDestination,                "Message" =: _seMessage] --- | /See:/ 'sendEmailResponse' smart constructor.+-- | Represents a unique message ID.+--+-- /See:/ 'sendEmailResponse' smart constructor. data SendEmailResponse = SendEmailResponse'     { _sersResponseStatus :: !Int     , _sersMessageId      :: !Text

@@ -23,17 +23,29 @@ -- There are several important points to know about 'SendRawEmail': -- -- -   You can only send email from verified email addresses and domains; otherwise, you will get an \"Email address not verified\" error. If your account is still in the Amazon SES sandbox, you must also verify every recipient email address except for the recipients provided by the Amazon SES mailbox simulator. For more information, go to the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/verify-addresses-and-domains.html Amazon SES Developer Guide>.+-- -- -   The total size of the message cannot exceed 10 MB. This includes any attachments that are part of the message.+-- -- -   Amazon SES has a limit on the total number of recipients per message. The combined number of To:, CC: and BCC: email addresses cannot exceed 50. If you need to send an email message to a larger audience, you can divide your recipient list into groups of 50 or fewer, and then call Amazon SES repeatedly to send the message to each group.+-- -- -   The To:, CC:, and BCC: headers in the raw message can contain a group list. Note that each recipient in a group list counts towards the 50-recipient limit.+--+-- -   Amazon SES overrides any Message-ID and Date headers you provide.+-- -- -   For every message that you send, the total number of recipients (To:, CC: and BCC:) is counted against your sending quota - the maximum number of emails you can send in a 24-hour period. For information about your sending quota, go to the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/manage-sending-limits.html Amazon SES Developer Guide>.+-- -- -   If you are using sending authorization to send on behalf of another user, 'SendRawEmail' enables you to specify the cross-account identity for the email\'s \"Source,\" \"From,\" and \"Return-Path\" parameters in one of two ways: you can pass optional parameters 'SourceArn', 'FromArn', and\/or 'ReturnPathArn' to the API, or you can include the following X-headers in the header of your raw email:+-- --     -   'X-SES-SOURCE-ARN'+-- --     -   'X-SES-FROM-ARN'+-- --     -   'X-SES-RETURN-PATH-ARN' -- --     Do not include these X-headers in the DKIM signature, because they are removed by Amazon SES before sending the email.+-- --     For the most common sending authorization use case, we recommend that you specify the 'SourceIdentityArn' and do not specify either the 'FromIdentityArn' or 'ReturnPathIdentityArn'. (The same note applies to the corresponding X-headers.) If you only specify the 'SourceIdentityArn', Amazon SES will simply set the \"From\" address and the \"Return Path\" address to the identity specified in 'SourceIdentityArn'. For more information about sending authorization, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization.html Amazon SES Developer Guide>.+-- module Network.AWS.SES.SendRawEmail     (     -- * Creating a Request@@ -62,7 +74,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'sendRawEmail' smart constructor.+-- | Represents a request to send a single raw email using Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/send-email-raw.html Amazon SES Developer Guide>.+--+-- /See:/ 'sendRawEmail' smart constructor. data SendRawEmail = SendRawEmail'     { _sreSourceARN     :: !(Maybe Text)     , _sreDestinations  :: !(Maybe [Text])@@ -143,10 +157,15 @@ -- | The raw text of the message. The client is responsible for ensuring the following: -- -- -   Message must contain a header and a body, separated by a blank line.+-- -- -   All required header fields must be present.+-- -- -   Each part of a multipart MIME message must be formatted properly.+-- -- -   MIME content types must be among those supported by Amazon SES. For more information, go to the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/mime-types.html Amazon SES Developer Guide>.--- -   Content must be base64-encoded, if MIME requires it.+--+-- -   Must be base64-encoded.+-- sreRawMessage :: Lens' SendRawEmail RawMessage sreRawMessage = lens _sreRawMessage (\ s a -> s{_sreRawMessage = a}); @@ -181,7 +200,9 @@                "Source" =: _sreSource, "FromArn" =: _sreFromARN,                "RawMessage" =: _sreRawMessage] --- | /See:/ 'sendRawEmailResponse' smart constructor.+-- | Represents a unique message ID.+--+-- /See:/ 'sendRawEmailResponse' smart constructor. data SendRawEmailResponse = SendRawEmailResponse'     { _srersResponseStatus :: !Int     , _srersMessageId      :: !Text

@@ -47,7 +47,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'setActiveReceiptRuleSet' smart constructor.+-- | Represents a request to set a receipt rule set as the active receipt rule set. You use receipt rule sets to receive email with Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-concepts.html Amazon SES Developer Guide>.+--+-- /See:/ 'setActiveReceiptRuleSet' smart constructor. newtype SetActiveReceiptRuleSet = SetActiveReceiptRuleSet'     { _sarrsRuleSetName :: Maybe Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -96,7 +98,9 @@                "Version" =: ("2010-12-01" :: ByteString),                "RuleSetName" =: _sarrsRuleSetName] --- | /See:/ 'setActiveReceiptRuleSetResponse' smart constructor.+-- | An empty element returned on a successful request.+--+-- /See:/ 'setActiveReceiptRuleSetResponse' smart constructor. newtype SetActiveReceiptRuleSetResponse = SetActiveReceiptRuleSetResponse'     { _sarrsrsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -21,6 +21,7 @@ -- Enables or disables Easy DKIM signing of email sent from an identity: -- -- -   If Easy DKIM signing is enabled for a domain name identity (e.g., 'example.com'), then Amazon SES will DKIM-sign all email sent by addresses under that domain name (e.g., 'user\'example.com').+-- -- -   If Easy DKIM signing is enabled for an email address, then Amazon SES will DKIM-sign all email sent by that email address. -- -- For email addresses (e.g., 'user\'example.com'), you can only enable Easy DKIM signing if the corresponding domain (e.g., 'example.com') has been set up for Easy DKIM using the AWS Console or the 'VerifyDomainDkim' action.@@ -51,7 +52,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'setIdentityDkimEnabled' smart constructor.+-- | Represents a request to enable or disable Amazon SES Easy DKIM signing for an identity. For more information about setting up Easy DKIM, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/easy-dkim.html Amazon SES Developer Guide>.+--+-- /See:/ 'setIdentityDkimEnabled' smart constructor. data SetIdentityDkimEnabled = SetIdentityDkimEnabled'     { _sideIdentity    :: !Text     , _sideDkimEnabled :: !Bool@@ -111,7 +114,9 @@                "Identity" =: _sideIdentity,                "DkimEnabled" =: _sideDkimEnabled] --- | /See:/ 'setIdentityDkimEnabledResponse' smart constructor.+-- | An empty element returned on a successful request.+--+-- /See:/ 'setIdentityDkimEnabledResponse' smart constructor. newtype SetIdentityDkimEnabledResponse = SetIdentityDkimEnabledResponse'     { _sidersResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Given an identity (email address or domain), enables or disables whether Amazon SES forwards bounce and complaint notifications as email. Feedback forwarding can only be disabled when Amazon Simple Notification Service (Amazon SNS) topics are specified for both bounces and complaints.+-- Given an identity (an email address or a domain), enables or disables whether Amazon SES forwards bounce and complaint notifications as email. Feedback forwarding can only be disabled when Amazon Simple Notification Service (Amazon SNS) topics are specified for both bounces and complaints. -- -- Feedback forwarding does not apply to delivery notifications. Delivery notifications are only available through Amazon SNS. --@@ -48,7 +48,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'setIdentityFeedbackForwardingEnabled' smart constructor.+-- | Represents a request to enable or disable whether Amazon SES forwards you bounce and complaint notifications through email. For information about email feedback forwarding, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/notifications-via-email.html Amazon SES Developer Guide>.+--+-- /See:/ 'setIdentityFeedbackForwardingEnabled' smart constructor. data SetIdentityFeedbackForwardingEnabled = SetIdentityFeedbackForwardingEnabled'     { _siffeIdentity          :: !Text     , _siffeForwardingEnabled :: !Bool@@ -115,7 +117,9 @@                "Identity" =: _siffeIdentity,                "ForwardingEnabled" =: _siffeForwardingEnabled] --- | /See:/ 'setIdentityFeedbackForwardingEnabledResponse' smart constructor.+-- | An empty element returned on a successful request.+--+-- /See:/ 'setIdentityFeedbackForwardingEnabledResponse' smart constructor. newtype SetIdentityFeedbackForwardingEnabledResponse = SetIdentityFeedbackForwardingEnabledResponse'     { _siffersResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -0,0 +1,157 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.SES.SetIdentityHeadersInNotificationsEnabled+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Given an identity (an email address or a domain), sets whether Amazon SES includes the original email headers in the Amazon Simple Notification Service (Amazon SNS) notifications of a specified type.+--+-- This action is throttled at one request per second.+--+-- For more information about using notifications with Amazon SES, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/notifications.html Amazon SES Developer Guide>.+module Network.AWS.SES.SetIdentityHeadersInNotificationsEnabled+    (+    -- * Creating a Request+      setIdentityHeadersInNotificationsEnabled+    , SetIdentityHeadersInNotificationsEnabled+    -- * Request Lenses+    , sihineIdentity+    , sihineNotificationType+    , sihineEnabled++    -- * Destructuring the Response+    , setIdentityHeadersInNotificationsEnabledResponse+    , SetIdentityHeadersInNotificationsEnabledResponse+    -- * Response Lenses+    , sihinersResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.SES.Types+import           Network.AWS.SES.Types.Product++-- | Represents a request to set whether Amazon SES includes the original email headers in the Amazon SNS notifications of a specified type. For information about notifications, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/notifications-via-sns.html Amazon SES Developer Guide>.+--+-- /See:/ 'setIdentityHeadersInNotificationsEnabled' smart constructor.+data SetIdentityHeadersInNotificationsEnabled = SetIdentityHeadersInNotificationsEnabled'+    { _sihineIdentity         :: !Text+    , _sihineNotificationType :: !NotificationType+    , _sihineEnabled          :: !Bool+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'SetIdentityHeadersInNotificationsEnabled' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sihineIdentity'+--+-- * 'sihineNotificationType'+--+-- * 'sihineEnabled'+setIdentityHeadersInNotificationsEnabled+    :: Text -- ^ 'sihineIdentity'+    -> NotificationType -- ^ 'sihineNotificationType'+    -> Bool -- ^ 'sihineEnabled'+    -> SetIdentityHeadersInNotificationsEnabled+setIdentityHeadersInNotificationsEnabled pIdentity_ pNotificationType_ pEnabled_ =+    SetIdentityHeadersInNotificationsEnabled'+    { _sihineIdentity = pIdentity_+    , _sihineNotificationType = pNotificationType_+    , _sihineEnabled = pEnabled_+    }++-- | The identity for which to enable or disable headers in notifications. Examples: 'user\'example.com', 'example.com'.+sihineIdentity :: Lens' SetIdentityHeadersInNotificationsEnabled Text+sihineIdentity = lens _sihineIdentity (\ s a -> s{_sihineIdentity = a});++-- | The notification type for which to enable or disable headers in notifications.+sihineNotificationType :: Lens' SetIdentityHeadersInNotificationsEnabled NotificationType+sihineNotificationType = lens _sihineNotificationType (\ s a -> s{_sihineNotificationType = a});++-- | Sets whether Amazon SES includes the original email headers in Amazon SNS notifications of the specified notification type. A value of 'true' specifies that Amazon SES will include headers in notifications, and a value of 'false' specifies that Amazon SES will not include headers in notifications.+--+-- This value can only be set when 'NotificationType' is already set to use a particular Amazon SNS topic.+sihineEnabled :: Lens' SetIdentityHeadersInNotificationsEnabled Bool+sihineEnabled = lens _sihineEnabled (\ s a -> s{_sihineEnabled = a});++instance AWSRequest+         SetIdentityHeadersInNotificationsEnabled where+        type Rs SetIdentityHeadersInNotificationsEnabled =+             SetIdentityHeadersInNotificationsEnabledResponse+        request = postQuery ses+        response+          = receiveXMLWrapper+              "SetIdentityHeadersInNotificationsEnabledResult"+              (\ s h x ->+                 SetIdentityHeadersInNotificationsEnabledResponse' <$>+                   (pure (fromEnum s)))++instance Hashable+         SetIdentityHeadersInNotificationsEnabled++instance NFData+         SetIdentityHeadersInNotificationsEnabled++instance ToHeaders+         SetIdentityHeadersInNotificationsEnabled where+        toHeaders = const mempty++instance ToPath+         SetIdentityHeadersInNotificationsEnabled where+        toPath = const "/"++instance ToQuery+         SetIdentityHeadersInNotificationsEnabled where+        toQuery SetIdentityHeadersInNotificationsEnabled'{..}+          = mconcat+              ["Action" =:+                 ("SetIdentityHeadersInNotificationsEnabled" ::+                    ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "Identity" =: _sihineIdentity,+               "NotificationType" =: _sihineNotificationType,+               "Enabled" =: _sihineEnabled]++-- | An empty element returned on a successful request.+--+-- /See:/ 'setIdentityHeadersInNotificationsEnabledResponse' smart constructor.+newtype SetIdentityHeadersInNotificationsEnabledResponse = SetIdentityHeadersInNotificationsEnabledResponse'+    { _sihinersResponseStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'SetIdentityHeadersInNotificationsEnabledResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sihinersResponseStatus'+setIdentityHeadersInNotificationsEnabledResponse+    :: Int -- ^ 'sihinersResponseStatus'+    -> SetIdentityHeadersInNotificationsEnabledResponse+setIdentityHeadersInNotificationsEnabledResponse pResponseStatus_ =+    SetIdentityHeadersInNotificationsEnabledResponse'+    { _sihinersResponseStatus = pResponseStatus_+    }++-- | The response status code.+sihinersResponseStatus :: Lens' SetIdentityHeadersInNotificationsEnabledResponse Int+sihinersResponseStatus = lens _sihinersResponseStatus (\ s a -> s{_sihinersResponseStatus = a});++instance NFData+         SetIdentityHeadersInNotificationsEnabledResponse

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Enables or disables the custom MAIL FROM domain setup for a verified identity (email address or domain).+-- Enables or disables the custom MAIL FROM domain setup for a verified identity (an email address or a domain). -- -- To send emails using the specified MAIL FROM domain, you must add an MX record to your MAIL FROM domain\'s DNS settings. If you want your emails to pass Sender Policy Framework (SPF) checks, you must also add or update an SPF record. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/mail-from-set.html Amazon SES Developer Guide>. --@@ -47,7 +47,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'setIdentityMailFromDomain' smart constructor.+-- | Represents a request to enable or disable the Amazon SES custom MAIL FROM domain setup for a verified identity. For information about using a custom MAIL FROM domain, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/mail-from.html Amazon SES Developer Guide>.+--+-- /See:/ 'setIdentityMailFromDomain' smart constructor. data SetIdentityMailFromDomain = SetIdentityMailFromDomain'     { _simfdMailFromDomain      :: !(Maybe Text)     , _simfdBehaviorOnMXFailure :: !(Maybe BehaviorOnMXFailure)@@ -117,7 +119,9 @@                "BehaviorOnMXFailure" =: _simfdBehaviorOnMXFailure,                "Identity" =: _simfdIdentity] --- | /See:/ 'setIdentityMailFromDomainResponse' smart constructor.+-- | An empty element returned on a successful request.+--+-- /See:/ 'setIdentityMailFromDomainResponse' smart constructor. newtype SetIdentityMailFromDomainResponse = SetIdentityMailFromDomainResponse'     { _simfdrsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Given an identity (email address or domain), sets the Amazon Simple Notification Service (Amazon SNS) topic to which Amazon SES will publish bounce, complaint, and\/or delivery notifications for emails sent with that identity as the 'Source'.+-- Given an identity (an email address or a domain), sets the Amazon Simple Notification Service (Amazon SNS) topic to which Amazon SES will publish bounce, complaint, and\/or delivery notifications for emails sent with that identity as the 'Source'. -- -- Unless feedback forwarding is enabled, you must specify Amazon SNS topics for bounce and complaint notifications. For more information, see 'SetIdentityFeedbackForwardingEnabled'. --@@ -49,7 +49,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'setIdentityNotificationTopic' smart constructor.+-- | Represents a request to specify the Amazon SNS topic to which Amazon SES will publish bounce, complaint, or delivery notifications for emails sent with that identity as the Source. For information about Amazon SES notifications, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/notifications-via-sns.html Amazon SES Developer Guide>.+--+-- /See:/ 'setIdentityNotificationTopic' smart constructor. data SetIdentityNotificationTopic = SetIdentityNotificationTopic'     { _sintSNSTopic         :: !(Maybe Text)     , _sintIdentity         :: !Text@@ -120,7 +122,9 @@                "Identity" =: _sintIdentity,                "NotificationType" =: _sintNotificationType] --- | /See:/ 'setIdentityNotificationTopicResponse' smart constructor.+-- | An empty element returned on a successful request.+--+-- /See:/ 'setIdentityNotificationTopicResponse' smart constructor. newtype SetIdentityNotificationTopicResponse = SetIdentityNotificationTopicResponse'     { _sintrsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -47,7 +47,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'setReceiptRulePosition' smart constructor.+-- | Represents a request to set the position of a receipt rule in a receipt rule set. You use receipt rule sets to receive email with Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-concepts.html Amazon SES Developer Guide>.+--+-- /See:/ 'setReceiptRulePosition' smart constructor. data SetReceiptRulePosition = SetReceiptRulePosition'     { _srrpAfter       :: !(Maybe Text)     , _srrpRuleSetName :: !Text@@ -116,7 +118,9 @@                "RuleSetName" =: _srrpRuleSetName,                "RuleName" =: _srrpRuleName] --- | /See:/ 'setReceiptRulePositionResponse' smart constructor.+-- | An empty element returned on a successful request.+--+-- /See:/ 'setReceiptRulePositionResponse' smart constructor. newtype SetReceiptRulePositionResponse = SetReceiptRulePositionResponse'     { _srrprsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -129,6 +129,9 @@     -- * IdentityNotificationAttributes     , IdentityNotificationAttributes     , identityNotificationAttributes+    , inaHeadersInDeliveryNotificationsEnabled+    , inaHeadersInComplaintNotificationsEnabled+    , inaHeadersInBounceNotificationsEnabled     , inaBounceTopic     , inaComplaintTopic     , inaDeliveryTopic

@@ -507,16 +507,25 @@ -- -- /See:/ 'identityNotificationAttributes' smart constructor. data IdentityNotificationAttributes = IdentityNotificationAttributes'-    { _inaBounceTopic       :: !Text-    , _inaComplaintTopic    :: !Text-    , _inaDeliveryTopic     :: !Text-    , _inaForwardingEnabled :: !Bool+    { _inaHeadersInDeliveryNotificationsEnabled  :: !(Maybe Bool)+    , _inaHeadersInComplaintNotificationsEnabled :: !(Maybe Bool)+    , _inaHeadersInBounceNotificationsEnabled    :: !(Maybe Bool)+    , _inaBounceTopic                            :: !Text+    , _inaComplaintTopic                         :: !Text+    , _inaDeliveryTopic                          :: !Text+    , _inaForwardingEnabled                      :: !Bool     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'IdentityNotificationAttributes' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'inaHeadersInDeliveryNotificationsEnabled'+--+-- * 'inaHeadersInComplaintNotificationsEnabled'+--+-- * 'inaHeadersInBounceNotificationsEnabled'+-- -- * 'inaBounceTopic' -- -- * 'inaComplaintTopic'@@ -532,12 +541,27 @@     -> IdentityNotificationAttributes identityNotificationAttributes pBounceTopic_ pComplaintTopic_ pDeliveryTopic_ pForwardingEnabled_ =     IdentityNotificationAttributes'-    { _inaBounceTopic = pBounceTopic_+    { _inaHeadersInDeliveryNotificationsEnabled = Nothing+    , _inaHeadersInComplaintNotificationsEnabled = Nothing+    , _inaHeadersInBounceNotificationsEnabled = Nothing+    , _inaBounceTopic = pBounceTopic_     , _inaComplaintTopic = pComplaintTopic_     , _inaDeliveryTopic = pDeliveryTopic_     , _inaForwardingEnabled = pForwardingEnabled_     } +-- | Describes whether Amazon SES includes the original email headers in Amazon SNS notifications of type 'Delivery'. A value of 'true' specifies that Amazon SES will include headers in delivery notifications, and a value of 'false' specifies that Amazon SES will not include headers in delivery notifications.+inaHeadersInDeliveryNotificationsEnabled :: Lens' IdentityNotificationAttributes (Maybe Bool)+inaHeadersInDeliveryNotificationsEnabled = lens _inaHeadersInDeliveryNotificationsEnabled (\ s a -> s{_inaHeadersInDeliveryNotificationsEnabled = a});++-- | Describes whether Amazon SES includes the original email headers in Amazon SNS notifications of type 'Complaint'. A value of 'true' specifies that Amazon SES will include headers in complaint notifications, and a value of 'false' specifies that Amazon SES will not include headers in complaint notifications.+inaHeadersInComplaintNotificationsEnabled :: Lens' IdentityNotificationAttributes (Maybe Bool)+inaHeadersInComplaintNotificationsEnabled = lens _inaHeadersInComplaintNotificationsEnabled (\ s a -> s{_inaHeadersInComplaintNotificationsEnabled = a});++-- | Describes whether Amazon SES includes the original email headers in Amazon SNS notifications of type 'Bounce'. A value of 'true' specifies that Amazon SES will include headers in bounce notifications, and a value of 'false' specifies that Amazon SES will not include headers in bounce notifications.+inaHeadersInBounceNotificationsEnabled :: Lens' IdentityNotificationAttributes (Maybe Bool)+inaHeadersInBounceNotificationsEnabled = lens _inaHeadersInBounceNotificationsEnabled (\ s a -> s{_inaHeadersInBounceNotificationsEnabled = a});+ -- | The Amazon Resource Name (ARN) of the Amazon SNS topic where Amazon SES will publish bounce notifications. inaBounceTopic :: Lens' IdentityNotificationAttributes Text inaBounceTopic = lens _inaBounceTopic (\ s a -> s{_inaBounceTopic = a});@@ -557,8 +581,12 @@ instance FromXML IdentityNotificationAttributes where         parseXML x           = IdentityNotificationAttributes' <$>-              (x .@ "BounceTopic") <*> (x .@ "ComplaintTopic") <*>-                (x .@ "DeliveryTopic")+              (x .@? "HeadersInDeliveryNotificationsEnabled") <*>+                (x .@? "HeadersInComplaintNotificationsEnabled")+                <*> (x .@? "HeadersInBounceNotificationsEnabled")+                <*> (x .@ "BounceTopic")+                <*> (x .@ "ComplaintTopic")+                <*> (x .@ "DeliveryTopic")                 <*> (x .@ "ForwardingEnabled")  instance Hashable IdentityNotificationAttributes@@ -786,7 +814,7 @@     { _rmData = _Base64 # pData_     } --- | The raw data of the message. The client must ensure that the message format complies with Internet email standards regarding email header fields, MIME types, MIME encoding, and base64 encoding (if necessary).+-- | The raw data of the message. The client must ensure that the message format complies with Internet email standards regarding email header fields, MIME types, MIME encoding, and base64 encoding. -- -- The To:, CC:, and BCC: headers in the raw message can contain a group list. --@@ -939,8 +967,11 @@ -- | The name of the IP address filter. The name must: -- -- -   Contain only ASCII letters (a-z, A-Z), numbers (0-9), periods (.), underscores (_), or dashes (-).+-- -- -   Start and end with a letter or number.+-- -- -   Contain less than 64 characters.+-- rfName :: Lens' ReceiptFilter Text rfName = lens _rfName (\ s a -> s{_rfName = a}); @@ -1078,8 +1109,11 @@ -- | The name of the receipt rule. The name must: -- -- -   Contain only ASCII letters (a-z, A-Z), numbers (0-9), periods (.), underscores (_), or dashes (-).+-- -- -   Start and end with a letter or number.+-- -- -   Contain less than 64 characters.+-- rrName :: Lens' ReceiptRule Text rrName = lens _rrName (\ s a -> s{_rrName = a}); @@ -1140,8 +1174,11 @@ -- | The name of the receipt rule set. The name must: -- -- -   Contain only ASCII letters (a-z, A-Z), numbers (0-9), periods (.), underscores (_), or dashes (-).+-- -- -   Start and end with a letter or number.+-- -- -   Contain less than 64 characters.+-- rrsmName :: Lens' ReceiptRuleSetMetadata (Maybe Text) rrsmName = lens _rrsmName (\ s a -> s{_rrsmName = a}); @@ -1292,11 +1329,12 @@ -- | The customer master key that Amazon SES should use to encrypt your emails before saving them to the Amazon S3 bucket. You can use the default master key or a custom master key you created in AWS KMS as follows: -- -- -   To use the default master key, provide an ARN in the form of 'arn:aws:kms:REGION:ACCOUNT-ID-WITHOUT-HYPHENS:alias\/aws\/ses'. For example, if your AWS account ID is 123456789012 and you want to use the default master key in the US West (Oregon) region, the ARN of the default master key would be 'arn:aws:kms:us-west-2:123456789012:alias\/aws\/ses'. If you use the default master key, you don\'t need to perform any extra steps to give Amazon SES permission to use the key.+-- -- -   To use a custom master key you created in AWS KMS, provide the ARN of the master key and ensure that you add a statement to your key\'s policy to give Amazon SES permission to use it. For more information about giving permissions, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-permissions.html Amazon SES Developer Guide>. -- -- For more information about key policies, see the <http://docs.aws.amazon.com/kms/latest/developerguide/concepts.html AWS KMS Developer Guide>. If you do not specify a master key, Amazon SES will not encrypt your emails. ----- Your mail is encrypted by Amazon SES using the Amazon S3 encryption client before the mail is submitted to Amazon S3 for storage. It is not encrypted using Amazon S3 server-side encryption. This means that you must use the Amazon S3 encryption client to decrypt the email after retrieving it from Amazon S3, as the service has no access to use your AWS KMS keys for decryption. This encryption client is currently available with the <https://aws.amazon.com/sdk-for-java/ AWS Java SDK> and <https://aws.amazon.com/sdk-for-ruby/ AWS Ruby SDK> only. For more information about client-side encryption using AWS KMS master keys, see the <http://alpha-docs-aws.amazon.com/AmazonS3/latest/dev/UsingClientSideEncryption.html Amazon S3 Developer Guide>.+-- Your mail is encrypted by Amazon SES using the Amazon S3 encryption client before the mail is submitted to Amazon S3 for storage. It is not encrypted using Amazon S3 server-side encryption. This means that you must use the Amazon S3 encryption client to decrypt the email after retrieving it from Amazon S3, as the service has no access to use your AWS KMS keys for decryption. This encryption client is currently available with the <http://aws.amazon.com/sdk-for-java/ AWS Java SDK> and <http://aws.amazon.com/sdk-for-ruby/ AWS Ruby SDK> only. For more information about client-side encryption using AWS KMS master keys, see the <http://alpha-docs-aws.amazon.com/AmazonS3/latest/dev/UsingClientSideEncryption.html Amazon S3 Developer Guide>. s3KMSKeyARN :: Lens' S3Action (Maybe Text) s3KMSKeyARN = lens _s3KMSKeyARN (\ s a -> s{_s3KMSKeyARN = a}); 

@@ -29,7 +29,7 @@         "rejectmessage" -> pure RejectMessage         "usedefaultvalue" -> pure UseDefaultValue         e -> fromTextError $ "Failure parsing BehaviorOnMXFailure from value: '" <> e-           <> "'. Accepted values: RejectMessage, UseDefaultValue"+           <> "'. Accepted values: rejectmessage, usedefaultvalue"  instance ToText BehaviorOnMXFailure where     toText = \case@@ -63,7 +63,7 @@         "temporaryfailure" -> pure BTTemporaryFailure         "undefined" -> pure BTUndefined         e -> fromTextError $ "Failure parsing BounceType from value: '" <> e-           <> "'. Accepted values: ContentRejected, DoesNotExist, ExceededQuota, MessageTooLarge, TemporaryFailure, Undefined"+           <> "'. Accepted values: contentrejected, doesnotexist, exceededquota, messagetoolarge, temporaryfailure, undefined"  instance ToText BounceType where     toText = \case@@ -94,7 +94,7 @@         "success" -> pure CMFSSuccess         "temporaryfailure" -> pure CMFSTemporaryFailure         e -> fromTextError $ "Failure parsing CustomMailFromStatus from value: '" <> e-           <> "'. Accepted values: Failed, Pending, Success, TemporaryFailure"+           <> "'. Accepted values: failed, pending, success, temporaryfailure"  instance ToText CustomMailFromStatus where     toText = \case@@ -154,7 +154,7 @@         "domain" -> pure Domain         "emailaddress" -> pure EmailAddress         e -> fromTextError $ "Failure parsing IdentityType from value: '" <> e-           <> "'. Accepted values: Domain, EmailAddress"+           <> "'. Accepted values: domain, emailaddress"  instance ToText IdentityType where     toText = \case@@ -177,7 +177,7 @@         "event" -> pure Event         "requestresponse" -> pure RequestResponse         e -> fromTextError $ "Failure parsing InvocationType from value: '" <> e-           <> "'. Accepted values: Event, RequestResponse"+           <> "'. Accepted values: event, requestresponse"  instance ToText InvocationType where     toText = \case@@ -205,7 +205,7 @@         "complaint" -> pure Complaint         "delivery" -> pure Delivery         e -> fromTextError $ "Failure parsing NotificationType from value: '" <> e-           <> "'. Accepted values: Bounce, Complaint, Delivery"+           <> "'. Accepted values: bounce, complaint, delivery"  instance ToText NotificationType where     toText = \case@@ -229,7 +229,7 @@         "allow" -> pure Allow         "block" -> pure Block         e -> fromTextError $ "Failure parsing ReceiptFilterPolicy from value: '" <> e-           <> "'. Accepted values: Allow, Block"+           <> "'. Accepted values: allow, block"  instance ToText ReceiptFilterPolicy where     toText = \case@@ -255,7 +255,7 @@         "base64" -> pure BASE64         "utf-8" -> pure Utf8         e -> fromTextError $ "Failure parsing SNSActionEncoding from value: '" <> e-           <> "'. Accepted values: Base64, UTF-8"+           <> "'. Accepted values: base64, utf-8"  instance ToText SNSActionEncoding where     toText = \case@@ -279,7 +279,7 @@     parser = takeLowerText >>= \case         "ruleset" -> pure RuleSet         e -> fromTextError $ "Failure parsing StopScope from value: '" <> e-           <> "'. Accepted values: RuleSet"+           <> "'. Accepted values: ruleset"  instance ToText StopScope where     toText = \case@@ -304,7 +304,7 @@         "optional" -> pure Optional         "require" -> pure Require         e -> fromTextError $ "Failure parsing TLSPolicy from value: '" <> e-           <> "'. Accepted values: Optional, Require"+           <> "'. Accepted values: optional, require"  instance ToText TLSPolicy where     toText = \case@@ -336,7 +336,7 @@         "success" -> pure Success         "temporaryfailure" -> pure TemporaryFailure         e -> fromTextError $ "Failure parsing VerificationStatus from value: '" <> e-           <> "'. Accepted values: Failed, NotStarted, Pending, Success, TemporaryFailure"+           <> "'. Accepted values: failed, notstarted, pending, success, temporaryfailure"  instance ToText VerificationStatus where     toText = \case

@@ -46,7 +46,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'updateReceiptRule' smart constructor.+-- | Represents a request to update a receipt rule. You use receipt rules to receive email with Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-concepts.html Amazon SES Developer Guide>.+--+-- /See:/ 'updateReceiptRule' smart constructor. data UpdateReceiptRule = UpdateReceiptRule'     { _urrRuleSetName :: !Text     , _urrRule        :: !ReceiptRule@@ -102,7 +104,9 @@                "Version" =: ("2010-12-01" :: ByteString),                "RuleSetName" =: _urrRuleSetName, "Rule" =: _urrRule] --- | /See:/ 'updateReceiptRuleResponse' smart constructor.+-- | An empty element returned on a successful request.+--+-- /See:/ 'updateReceiptRuleResponse' smart constructor. newtype UpdateReceiptRuleResponse = UpdateReceiptRuleResponse'     { _urrrsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -48,7 +48,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'verifyDomainDkim' smart constructor.+-- | Represents a request to generate the CNAME records needed to set up Easy DKIM with Amazon SES. For more information about setting up Easy DKIM, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/easy-dkim.html Amazon SES Developer Guide>.+--+-- /See:/ 'verifyDomainDkim' smart constructor. newtype VerifyDomainDkim = VerifyDomainDkim'     { _vddDomain :: Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -98,7 +100,9 @@                "Version" =: ("2010-12-01" :: ByteString),                "Domain" =: _vddDomain] --- | /See:/ 'verifyDomainDkimResponse' smart constructor.+-- | Returns CNAME records that you must publish to the DNS server of your domain to set up Easy DKIM with Amazon SES.+--+-- /See:/ 'verifyDomainDkimResponse' smart constructor. data VerifyDomainDkimResponse = VerifyDomainDkimResponse'     { _vddrsResponseStatus :: !Int     , _vddrsDkimTokens     :: ![Text]

@@ -44,7 +44,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'verifyDomainIdentity' smart constructor.+-- | Represents a request to begin Amazon SES domain verification and to generate the TXT records that you must publish to the DNS server of your domain to complete the verification. For information about domain verification, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/verify-domains.html Amazon SES Developer Guide>.+--+-- /See:/ 'verifyDomainIdentity' smart constructor. newtype VerifyDomainIdentity = VerifyDomainIdentity'     { _vdiDomain :: Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -93,7 +95,9 @@                "Version" =: ("2010-12-01" :: ByteString),                "Domain" =: _vdiDomain] --- | /See:/ 'verifyDomainIdentityResponse' smart constructor.+-- | Returns a TXT record that you must publish to the DNS server of your domain to complete domain verification with Amazon SES.+--+-- /See:/ 'verifyDomainIdentityResponse' smart constructor. data VerifyDomainIdentityResponse = VerifyDomainIdentityResponse'     { _vdirsResponseStatus    :: !Int     , _vdirsVerificationToken :: !Text

@@ -43,7 +43,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'verifyEmailAddress' smart constructor.+-- | Represents a request to begin email address verification with Amazon SES. For information about email address verification, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/verify-email-addresses.html Amazon SES Developer Guide>.+--+-- /See:/ 'verifyEmailAddress' smart constructor. newtype VerifyEmailAddress = VerifyEmailAddress'     { _veaEmailAddress :: Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -43,7 +43,9 @@ import           Network.AWS.SES.Types import           Network.AWS.SES.Types.Product --- | /See:/ 'verifyEmailIdentity' smart constructor.+-- | Represents a request to begin email address verification with Amazon SES. For information about email address verification, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/verify-email-addresses.html Amazon SES Developer Guide>.+--+-- /See:/ 'verifyEmailIdentity' smart constructor. newtype VerifyEmailIdentity = VerifyEmailIdentity'     { _veiEmailAddress :: Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -91,7 +93,9 @@                "Version" =: ("2010-12-01" :: ByteString),                "EmailAddress" =: _veiEmailAddress] --- | /See:/ 'verifyEmailIdentityResponse' smart constructor.+-- | An empty element returned on a successful request.+--+-- /See:/ 'verifyEmailIdentityResponse' smart constructor. newtype VerifyEmailIdentityResponse = VerifyEmailIdentityResponse'     { _veirsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -31,6 +31,9 @@ --         [ requestCreateReceiptRuleSet $ --             createReceiptRuleSet --+--         , requestSetIdentityHeadersInNotificationsEnabled $+--             setIdentityHeadersInNotificationsEnabled+-- --         , requestGetSendQuota $ --             getSendQuota --@@ -157,6 +160,9 @@ --         [ responseCreateReceiptRuleSet $ --             createReceiptRuleSetResponse --+--         , responseSetIdentityHeadersInNotificationsEnabled $+--             setIdentityHeadersInNotificationsEnabledResponse+-- --         , responseGetSendQuota $ --             getSendQuotaResponse --@@ -287,6 +293,11 @@     "CreateReceiptRuleSet"     "fixture/CreateReceiptRuleSet.yaml" +requestSetIdentityHeadersInNotificationsEnabled :: SetIdentityHeadersInNotificationsEnabled -> TestTree+requestSetIdentityHeadersInNotificationsEnabled = req+    "SetIdentityHeadersInNotificationsEnabled"+    "fixture/SetIdentityHeadersInNotificationsEnabled.yaml"+ requestGetSendQuota :: GetSendQuota -> TestTree requestGetSendQuota = req     "GetSendQuota"@@ -495,6 +506,13 @@     "fixture/CreateReceiptRuleSetResponse.proto"     ses     (Proxy :: Proxy CreateReceiptRuleSet)++responseSetIdentityHeadersInNotificationsEnabled :: SetIdentityHeadersInNotificationsEnabledResponse -> TestTree+responseSetIdentityHeadersInNotificationsEnabled = res+    "SetIdentityHeadersInNotificationsEnabledResponse"+    "fixture/SetIdentityHeadersInNotificationsEnabledResponse.proto"+    ses+    (Proxy :: Proxy SetIdentityHeadersInNotificationsEnabled)  responseGetSendQuota :: GetSendQuotaResponse -> TestTree responseGetSendQuota = res