amazonka-ses 1.5.0 → 1.6.0

raw patch · 101 files changed

+2901/−736 lines, 101 filesdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-ses.cabal +15/−5
• fixture/CreateCustomVerificationEmailTemplate.yaml +10/−0
• fixture/CreateCustomVerificationEmailTemplateResponse.proto +0/−0
• fixture/DeleteCustomVerificationEmailTemplate.yaml +10/−0
• fixture/DeleteCustomVerificationEmailTemplateResponse.proto +0/−0
• fixture/GetAccountSendingEnabled.yaml +10/−0
• fixture/GetAccountSendingEnabledResponse.proto +0/−0
• fixture/GetCustomVerificationEmailTemplate.yaml +10/−0
• fixture/GetCustomVerificationEmailTemplateResponse.proto +0/−0
• fixture/ListCustomVerificationEmailTemplates.yaml +10/−0
• fixture/ListCustomVerificationEmailTemplatesResponse.proto +0/−0
• fixture/SendCustomVerificationEmail.yaml +10/−0
• fixture/SendCustomVerificationEmailResponse.proto +0/−0
• fixture/UpdateAccountSendingEnabled.yaml +10/−0
• fixture/UpdateAccountSendingEnabledResponse.proto +0/−0
• fixture/UpdateConfigurationSetReputationMetricsEnabled.yaml +10/−0
• fixture/UpdateConfigurationSetReputationMetricsEnabledResponse.proto +0/−0
• fixture/UpdateConfigurationSetSendingEnabled.yaml +10/−0
• fixture/UpdateConfigurationSetSendingEnabledResponse.proto +0/−0
• fixture/UpdateCustomVerificationEmailTemplate.yaml +10/−0
• fixture/UpdateCustomVerificationEmailTemplateResponse.proto +0/−0
• gen/Network/AWS/SES.hs +78/−1
• gen/Network/AWS/SES/CloneReceiptRuleSet.hs +9/−7
• gen/Network/AWS/SES/CreateConfigurationSet.hs +3/−3
• gen/Network/AWS/SES/CreateConfigurationSetEventDestination.hs +8/−8
• gen/Network/AWS/SES/CreateConfigurationSetTrackingOptions.hs +8/−8
• gen/Network/AWS/SES/CreateCustomVerificationEmailTemplate.hs +186/−0
• gen/Network/AWS/SES/CreateReceiptFilter.hs +3/−3
• gen/Network/AWS/SES/CreateReceiptRule.hs +6/−6
• gen/Network/AWS/SES/CreateReceiptRuleSet.hs +5/−5
• gen/Network/AWS/SES/CreateTemplate.hs +3/−3
• gen/Network/AWS/SES/DeleteConfigurationSet.hs +3/−3
• gen/Network/AWS/SES/DeleteConfigurationSetEventDestination.hs +8/−8
• gen/Network/AWS/SES/DeleteConfigurationSetTrackingOptions.hs +5/−5
• gen/Network/AWS/SES/DeleteCustomVerificationEmailTemplate.hs +127/−0
• gen/Network/AWS/SES/DeleteIdentity.hs +3/−3
• gen/Network/AWS/SES/DeleteIdentityPolicy.hs +5/−5
• gen/Network/AWS/SES/DeleteReceiptFilter.hs +3/−3
• gen/Network/AWS/SES/DeleteReceiptRule.hs +5/−5
• gen/Network/AWS/SES/DeleteReceiptRuleSet.hs +3/−3
• gen/Network/AWS/SES/DeleteTemplate.hs +3/−3
• gen/Network/AWS/SES/DeleteVerifiedEmailAddress.hs +2/−2
• gen/Network/AWS/SES/DescribeActiveReceiptRuleSet.hs +8/−8
• gen/Network/AWS/SES/DescribeConfigurationSet.hs +25/−15
• gen/Network/AWS/SES/DescribeReceiptRule.hs +7/−7
• gen/Network/AWS/SES/DescribeReceiptRuleSet.hs +9/−9
• gen/Network/AWS/SES/GetAccountSendingEnabled.hs +123/−0
• gen/Network/AWS/SES/GetCustomVerificationEmailTemplate.hs +201/−0
• gen/Network/AWS/SES/GetIdentityDkimAttributes.hs +5/−5
• gen/Network/AWS/SES/GetIdentityMailFromDomainAttributes.hs +7/−7
• gen/Network/AWS/SES/GetIdentityNotificationAttributes.hs +7/−7
• gen/Network/AWS/SES/GetIdentityPolicies.hs +6/−6
• gen/Network/AWS/SES/GetIdentityVerificationAttributes.hs +7/−7
• gen/Network/AWS/SES/GetSendQuota.hs +10/−10
• gen/Network/AWS/SES/GetSendStatistics.hs +4/−4
• gen/Network/AWS/SES/GetTemplate.hs +5/−5
• gen/Network/AWS/SES/ListConfigurationSets.hs +10/−10
• gen/Network/AWS/SES/ListCustomVerificationEmailTemplates.hs +191/−0
• gen/Network/AWS/SES/ListIdentities.hs +12/−12
• gen/Network/AWS/SES/ListIdentityPolicies.hs +5/−5
• gen/Network/AWS/SES/ListReceiptFilters.hs +4/−4
• gen/Network/AWS/SES/ListReceiptRuleSets.hs +9/−9
• gen/Network/AWS/SES/ListTemplates.hs +16/−16
• gen/Network/AWS/SES/ListVerifiedEmailAddresses.hs +6/−6
• gen/Network/AWS/SES/PutIdentityPolicy.hs +9/−9
• gen/Network/AWS/SES/ReorderReceiptRuleSet.hs +5/−5
• gen/Network/AWS/SES/SendBounce.hs +17/−17
• gen/Network/AWS/SES/SendBulkTemplatedEmail.hs +29/−29
• gen/Network/AWS/SES/SendCustomVerificationEmail.hs +164/−0
• gen/Network/AWS/SES/SendEmail.hs +25/−25
• gen/Network/AWS/SES/SendRawEmail.hs +23/−23
• gen/Network/AWS/SES/SendTemplatedEmail.hs +29/−29
• gen/Network/AWS/SES/SetActiveReceiptRuleSet.hs +3/−3
• gen/Network/AWS/SES/SetIdentityDkimEnabled.hs +5/−5
• gen/Network/AWS/SES/SetIdentityFeedbackForwardingEnabled.hs +6/−6
• gen/Network/AWS/SES/SetIdentityHeadersInNotificationsEnabled.hs +10/−10
• gen/Network/AWS/SES/SetIdentityMailFromDomain.hs +9/−9
• gen/Network/AWS/SES/SetIdentityNotificationTopic.hs +10/−10
• gen/Network/AWS/SES/SetReceiptRulePosition.hs +9/−9
• gen/Network/AWS/SES/TestRenderTemplate.hs +7/−7
• gen/Network/AWS/SES/Types.hs +104/−16
• gen/Network/AWS/SES/Types/Product.hs +358/−233
• gen/Network/AWS/SES/Types/Sum.hs +12/−3
• gen/Network/AWS/SES/UpdateAccountSendingEnabled.hs +110/−0
• gen/Network/AWS/SES/UpdateConfigurationSetEventDestination.hs +8/−8
• gen/Network/AWS/SES/UpdateConfigurationSetReputationMetricsEnabled.hs +144/−0
• gen/Network/AWS/SES/UpdateConfigurationSetSendingEnabled.hs +137/−0
• gen/Network/AWS/SES/UpdateConfigurationSetTrackingOptions.hs +8/−8
• gen/Network/AWS/SES/UpdateCustomVerificationEmailTemplate.hs +181/−0
• gen/Network/AWS/SES/UpdateReceiptRule.hs +4/−4
• gen/Network/AWS/SES/UpdateTemplate.hs +3/−3
• gen/Network/AWS/SES/VerifyDomainDkim.hs +5/−5
• gen/Network/AWS/SES/VerifyDomainIdentity.hs +7/−7
• gen/Network/AWS/SES/VerifyEmailAddress.hs +2/−2
• gen/Network/AWS/SES/VerifyEmailIdentity.hs +4/−4
• gen/Network/AWS/SES/Waiters.hs +1/−1
• test/Main.hs +1/−1
• test/Test/AWS/Gen/SES.hs +181/−1
• test/Test/AWS/SES.hs +1/−1
• test/Test/AWS/SES/Internal.hs +1/−1

@@ -8,7 +8,7 @@  ## Version -`1.5.0`+`1.6.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-ses-version:               1.5.0+version:               1.6.0 synopsis:              Amazon Simple Email Service SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -7,7 +7,7 @@ license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2017 Brendan Hay+copyright:             Copyright (c) 2013-2018 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -49,6 +49,7 @@         , Network.AWS.SES.CreateConfigurationSet         , Network.AWS.SES.CreateConfigurationSetEventDestination         , Network.AWS.SES.CreateConfigurationSetTrackingOptions+        , Network.AWS.SES.CreateCustomVerificationEmailTemplate         , Network.AWS.SES.CreateReceiptFilter         , Network.AWS.SES.CreateReceiptRule         , Network.AWS.SES.CreateReceiptRuleSet@@ -56,6 +57,7 @@         , Network.AWS.SES.DeleteConfigurationSet         , Network.AWS.SES.DeleteConfigurationSetEventDestination         , Network.AWS.SES.DeleteConfigurationSetTrackingOptions+        , Network.AWS.SES.DeleteCustomVerificationEmailTemplate         , Network.AWS.SES.DeleteIdentity         , Network.AWS.SES.DeleteIdentityPolicy         , Network.AWS.SES.DeleteReceiptFilter@@ -67,6 +69,8 @@         , Network.AWS.SES.DescribeConfigurationSet         , Network.AWS.SES.DescribeReceiptRule         , Network.AWS.SES.DescribeReceiptRuleSet+        , Network.AWS.SES.GetAccountSendingEnabled+        , Network.AWS.SES.GetCustomVerificationEmailTemplate         , Network.AWS.SES.GetIdentityDkimAttributes         , Network.AWS.SES.GetIdentityMailFromDomainAttributes         , Network.AWS.SES.GetIdentityNotificationAttributes@@ -76,6 +80,7 @@         , Network.AWS.SES.GetSendStatistics         , Network.AWS.SES.GetTemplate         , Network.AWS.SES.ListConfigurationSets+        , Network.AWS.SES.ListCustomVerificationEmailTemplates         , Network.AWS.SES.ListIdentities         , Network.AWS.SES.ListIdentityPolicies         , Network.AWS.SES.ListReceiptFilters@@ -86,6 +91,7 @@         , Network.AWS.SES.ReorderReceiptRuleSet         , Network.AWS.SES.SendBounce         , Network.AWS.SES.SendBulkTemplatedEmail+        , Network.AWS.SES.SendCustomVerificationEmail         , Network.AWS.SES.SendEmail         , Network.AWS.SES.SendRawEmail         , Network.AWS.SES.SendTemplatedEmail@@ -98,8 +104,12 @@         , Network.AWS.SES.SetReceiptRulePosition         , Network.AWS.SES.TestRenderTemplate         , Network.AWS.SES.Types+        , Network.AWS.SES.UpdateAccountSendingEnabled         , Network.AWS.SES.UpdateConfigurationSetEventDestination+        , Network.AWS.SES.UpdateConfigurationSetReputationMetricsEnabled+        , Network.AWS.SES.UpdateConfigurationSetSendingEnabled         , Network.AWS.SES.UpdateConfigurationSetTrackingOptions+        , Network.AWS.SES.UpdateCustomVerificationEmailTemplate         , Network.AWS.SES.UpdateReceiptRule         , Network.AWS.SES.UpdateTemplate         , Network.AWS.SES.VerifyDomainDkim@@ -113,7 +123,7 @@         , Network.AWS.SES.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5  test-suite amazonka-ses-test@@ -133,8 +143,8 @@         , Test.AWS.SES.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-ses         , base         , bytestring

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/email/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  email.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/email/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  email.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/email/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  email.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/email/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  email.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/email/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  email.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/email/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  email.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/email/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  email.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/email/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  email.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/email/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  email.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/email/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  email.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -5,7 +5,7 @@  -- | -- Module      : Network.AWS.SES--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -32,9 +32,15 @@     -- ** TemplateDoesNotExistException     , _TemplateDoesNotExistException +    -- ** ConfigurationSetSendingPausedException+    , _ConfigurationSetSendingPausedException+     -- ** CannotDeleteException     , _CannotDeleteException +    -- ** ProductionAccessNotGrantedException+    , _ProductionAccessNotGrantedException+     -- ** RuleDoesNotExistException     , _RuleDoesNotExistException @@ -47,6 +53,9 @@     -- ** MissingRenderingAttributeException     , _MissingRenderingAttributeException +    -- ** FromEmailAddressNotVerifiedException+    , _FromEmailAddressNotVerifiedException+     -- ** RuleSetDoesNotExistException     , _RuleSetDoesNotExistException @@ -59,12 +68,24 @@     -- ** ConfigurationSetAlreadyExistsException     , _ConfigurationSetAlreadyExistsException +    -- ** CustomVerificationEmailInvalidContentException+    , _CustomVerificationEmailInvalidContentException+     -- ** InvalidTrackingOptionsException     , _InvalidTrackingOptionsException +    -- ** AccountSendingPausedException+    , _AccountSendingPausedException+     -- ** EventDestinationDoesNotExistException     , _EventDestinationDoesNotExistException +    -- ** CustomVerificationEmailTemplateAlreadyExistsException+    , _CustomVerificationEmailTemplateAlreadyExistsException++    -- ** CustomVerificationEmailTemplateDoesNotExistException+    , _CustomVerificationEmailTemplateDoesNotExistException+     -- ** InvalidCloudWatchDestinationException     , _InvalidCloudWatchDestinationException @@ -131,12 +152,24 @@     -- ** PutIdentityPolicy     , module Network.AWS.SES.PutIdentityPolicy +    -- ** DeleteCustomVerificationEmailTemplate+    , module Network.AWS.SES.DeleteCustomVerificationEmailTemplate+     -- ** DeleteIdentityPolicy     , module Network.AWS.SES.DeleteIdentityPolicy +    -- ** UpdateCustomVerificationEmailTemplate+    , module Network.AWS.SES.UpdateCustomVerificationEmailTemplate++    -- ** SendCustomVerificationEmail+    , module Network.AWS.SES.SendCustomVerificationEmail+     -- ** GetIdentityNotificationAttributes     , module Network.AWS.SES.GetIdentityNotificationAttributes +    -- ** UpdateConfigurationSetReputationMetricsEnabled+    , module Network.AWS.SES.UpdateConfigurationSetReputationMetricsEnabled+     -- ** ListIdentityPolicies     , module Network.AWS.SES.ListIdentityPolicies @@ -227,6 +260,9 @@     -- ** GetSendStatistics     , module Network.AWS.SES.GetSendStatistics +    -- ** ListCustomVerificationEmailTemplates (Paginated)+    , module Network.AWS.SES.ListCustomVerificationEmailTemplates+     -- ** DeleteIdentity     , module Network.AWS.SES.DeleteIdentity @@ -236,6 +272,12 @@     -- ** ListIdentities (Paginated)     , module Network.AWS.SES.ListIdentities +    -- ** UpdateConfigurationSetSendingEnabled+    , module Network.AWS.SES.UpdateConfigurationSetSendingEnabled++    -- ** CreateCustomVerificationEmailTemplate+    , module Network.AWS.SES.CreateCustomVerificationEmailTemplate+     -- ** VerifyEmailIdentity     , module Network.AWS.SES.VerifyEmailIdentity @@ -251,6 +293,9 @@     -- ** ListVerifiedEmailAddresses     , module Network.AWS.SES.ListVerifiedEmailAddresses +    -- ** GetCustomVerificationEmailTemplate+    , module Network.AWS.SES.GetCustomVerificationEmailTemplate+     -- ** SetIdentityNotificationTopic     , module Network.AWS.SES.SetIdentityNotificationTopic @@ -269,6 +314,9 @@     -- ** CreateConfigurationSetEventDestination     , module Network.AWS.SES.CreateConfigurationSetEventDestination +    -- ** GetAccountSendingEnabled+    , module Network.AWS.SES.GetAccountSendingEnabled+     -- ** CreateReceiptRule     , module Network.AWS.SES.CreateReceiptRule @@ -281,6 +329,9 @@     -- ** CreateConfigurationSet     , module Network.AWS.SES.CreateConfigurationSet +    -- ** UpdateAccountSendingEnabled+    , module Network.AWS.SES.UpdateAccountSendingEnabled+     -- ** CreateConfigurationSetTrackingOptions     , module Network.AWS.SES.CreateConfigurationSetTrackingOptions @@ -403,6 +454,15 @@     , cCharset     , cData +    -- ** CustomVerificationEmailTemplate+    , CustomVerificationEmailTemplate+    , customVerificationEmailTemplate+    , cvetFromEmailAddress+    , cvetTemplateName+    , cvetFailureRedirectionURL+    , cvetTemplateSubject+    , cvetSuccessRedirectionURL+     -- ** Destination     , Destination     , destination@@ -544,6 +604,13 @@     , rdfAction     , rdfStatus +    -- ** ReputationOptions+    , ReputationOptions+    , reputationOptions+    , roLastFreshStart+    , roReputationMetricsEnabled+    , roSendingEnabled+     -- ** S3Action     , S3Action     , s3Action@@ -608,6 +675,7 @@ import Network.AWS.SES.CreateConfigurationSet import Network.AWS.SES.CreateConfigurationSetEventDestination import Network.AWS.SES.CreateConfigurationSetTrackingOptions+import Network.AWS.SES.CreateCustomVerificationEmailTemplate import Network.AWS.SES.CreateReceiptFilter import Network.AWS.SES.CreateReceiptRule import Network.AWS.SES.CreateReceiptRuleSet@@ -615,6 +683,7 @@ import Network.AWS.SES.DeleteConfigurationSet import Network.AWS.SES.DeleteConfigurationSetEventDestination import Network.AWS.SES.DeleteConfigurationSetTrackingOptions+import Network.AWS.SES.DeleteCustomVerificationEmailTemplate import Network.AWS.SES.DeleteIdentity import Network.AWS.SES.DeleteIdentityPolicy import Network.AWS.SES.DeleteReceiptFilter@@ -626,6 +695,8 @@ import Network.AWS.SES.DescribeConfigurationSet import Network.AWS.SES.DescribeReceiptRule import Network.AWS.SES.DescribeReceiptRuleSet+import Network.AWS.SES.GetAccountSendingEnabled+import Network.AWS.SES.GetCustomVerificationEmailTemplate import Network.AWS.SES.GetIdentityDkimAttributes import Network.AWS.SES.GetIdentityMailFromDomainAttributes import Network.AWS.SES.GetIdentityNotificationAttributes@@ -635,6 +706,7 @@ import Network.AWS.SES.GetSendStatistics import Network.AWS.SES.GetTemplate import Network.AWS.SES.ListConfigurationSets+import Network.AWS.SES.ListCustomVerificationEmailTemplates import Network.AWS.SES.ListIdentities import Network.AWS.SES.ListIdentityPolicies import Network.AWS.SES.ListReceiptFilters@@ -645,6 +717,7 @@ import Network.AWS.SES.ReorderReceiptRuleSet import Network.AWS.SES.SendBounce import Network.AWS.SES.SendBulkTemplatedEmail+import Network.AWS.SES.SendCustomVerificationEmail import Network.AWS.SES.SendEmail import Network.AWS.SES.SendRawEmail import Network.AWS.SES.SendTemplatedEmail@@ -657,8 +730,12 @@ import Network.AWS.SES.SetReceiptRulePosition import Network.AWS.SES.TestRenderTemplate import Network.AWS.SES.Types+import Network.AWS.SES.UpdateAccountSendingEnabled import Network.AWS.SES.UpdateConfigurationSetEventDestination+import Network.AWS.SES.UpdateConfigurationSetReputationMetricsEnabled+import Network.AWS.SES.UpdateConfigurationSetSendingEnabled import Network.AWS.SES.UpdateConfigurationSetTrackingOptions+import Network.AWS.SES.UpdateCustomVerificationEmailTemplate import Network.AWS.SES.UpdateReceiptRule import Network.AWS.SES.UpdateTemplate import Network.AWS.SES.VerifyDomainDkim

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.CloneReceiptRuleSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -63,7 +63,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cRuleSetName' - 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' - The name of the rule set to create. The name must:     * This value can only contain ASCII letters (a-z, A-Z), numbers (0-9), underscores (_), or dashes (-).     * Start and end with a letter or number.     * Contain less than 64 characters. -- -- * 'cOriginalRuleSetName' - The name of the rule set to clone. cloneReceiptRuleSet@@ -72,16 +72,18 @@     -> CloneReceiptRuleSet cloneReceiptRuleSet pRuleSetName_ pOriginalRuleSetName_ =   CloneReceiptRuleSet'-  {_cRuleSetName = pRuleSetName_, _cOriginalRuleSetName = pOriginalRuleSetName_}+    { _cRuleSetName = pRuleSetName_+    , _cOriginalRuleSetName = pOriginalRuleSetName_+    }  --- | 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.+-- | The name of the rule set to create. The name must:     * This value can only contain ASCII letters (a-z, A-Z), numbers (0-9), 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});+cRuleSetName = lens _cRuleSetName (\ s a -> s{_cRuleSetName = a})  -- | The name of the rule set to clone. cOriginalRuleSetName :: Lens' CloneReceiptRuleSet Text-cOriginalRuleSetName = lens _cOriginalRuleSetName (\ s a -> s{_cOriginalRuleSetName = a});+cOriginalRuleSetName = lens _cOriginalRuleSetName (\ s a -> s{_cOriginalRuleSetName = a})  instance AWSRequest CloneReceiptRuleSet where         type Rs CloneReceiptRuleSet =@@ -134,6 +136,6 @@  -- | -- | The response status code. crsResponseStatus :: Lens' CloneReceiptRuleSetResponse Int-crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a});+crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a})  instance NFData CloneReceiptRuleSetResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.CreateConfigurationSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,7 +71,7 @@  -- | A data structure that contains the name of the configuration set. ccsConfigurationSet :: Lens' CreateConfigurationSet ConfigurationSet-ccsConfigurationSet = lens _ccsConfigurationSet (\ s a -> s{_ccsConfigurationSet = a});+ccsConfigurationSet = lens _ccsConfigurationSet (\ s a -> s{_ccsConfigurationSet = a})  instance AWSRequest CreateConfigurationSet where         type Rs CreateConfigurationSet =@@ -125,6 +125,6 @@  -- | -- | The response status code. ccsrsResponseStatus :: Lens' CreateConfigurationSetResponse Int-ccsrsResponseStatus = lens _ccsrsResponseStatus (\ s a -> s{_ccsrsResponseStatus = a});+ccsrsResponseStatus = lens _ccsrsResponseStatus (\ s a -> s{_ccsrsResponseStatus = a})  instance NFData CreateConfigurationSetResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.CreateConfigurationSetEventDestination--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -72,18 +72,18 @@     -> CreateConfigurationSetEventDestination createConfigurationSetEventDestination pConfigurationSetName_ pEventDestination_ =   CreateConfigurationSetEventDestination'-  { _ccsedConfigurationSetName = pConfigurationSetName_-  , _ccsedEventDestination = pEventDestination_-  }+    { _ccsedConfigurationSetName = pConfigurationSetName_+    , _ccsedEventDestination = pEventDestination_+    }   -- | The name of the configuration set that the event destination should be associated with. ccsedConfigurationSetName :: Lens' CreateConfigurationSetEventDestination Text-ccsedConfigurationSetName = lens _ccsedConfigurationSetName (\ s a -> s{_ccsedConfigurationSetName = a});+ccsedConfigurationSetName = lens _ccsedConfigurationSetName (\ s a -> s{_ccsedConfigurationSetName = a})  -- | An object that describes the AWS service that email sending event information will be published to. ccsedEventDestination :: Lens' CreateConfigurationSetEventDestination EventDestination-ccsedEventDestination = lens _ccsedEventDestination (\ s a -> s{_ccsedEventDestination = a});+ccsedEventDestination = lens _ccsedEventDestination (\ s a -> s{_ccsedEventDestination = a})  instance AWSRequest            CreateConfigurationSetEventDestination@@ -148,12 +148,12 @@     -> CreateConfigurationSetEventDestinationResponse createConfigurationSetEventDestinationResponse pResponseStatus_ =   CreateConfigurationSetEventDestinationResponse'-  {_ccsedrsResponseStatus = pResponseStatus_}+    {_ccsedrsResponseStatus = pResponseStatus_}   -- | -- | The response status code. ccsedrsResponseStatus :: Lens' CreateConfigurationSetEventDestinationResponse Int-ccsedrsResponseStatus = lens _ccsedrsResponseStatus (\ s a -> s{_ccsedrsResponseStatus = a});+ccsedrsResponseStatus = lens _ccsedrsResponseStatus (\ s a -> s{_ccsedrsResponseStatus = a})  instance NFData            CreateConfigurationSetEventDestinationResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.CreateConfigurationSetTrackingOptions--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -70,18 +70,18 @@     -> CreateConfigurationSetTrackingOptions createConfigurationSetTrackingOptions pConfigurationSetName_ pTrackingOptions_ =   CreateConfigurationSetTrackingOptions'-  { _ccstoConfigurationSetName = pConfigurationSetName_-  , _ccstoTrackingOptions = pTrackingOptions_-  }+    { _ccstoConfigurationSetName = pConfigurationSetName_+    , _ccstoTrackingOptions = pTrackingOptions_+    }   -- | The name of the configuration set that the tracking options should be associated with. ccstoConfigurationSetName :: Lens' CreateConfigurationSetTrackingOptions Text-ccstoConfigurationSetName = lens _ccstoConfigurationSetName (\ s a -> s{_ccstoConfigurationSetName = a});+ccstoConfigurationSetName = lens _ccstoConfigurationSetName (\ s a -> s{_ccstoConfigurationSetName = a})  -- | Undocumented member. ccstoTrackingOptions :: Lens' CreateConfigurationSetTrackingOptions TrackingOptions-ccstoTrackingOptions = lens _ccstoTrackingOptions (\ s a -> s{_ccstoTrackingOptions = a});+ccstoTrackingOptions = lens _ccstoTrackingOptions (\ s a -> s{_ccstoTrackingOptions = a})  instance AWSRequest            CreateConfigurationSetTrackingOptions@@ -144,12 +144,12 @@     -> CreateConfigurationSetTrackingOptionsResponse createConfigurationSetTrackingOptionsResponse pResponseStatus_ =   CreateConfigurationSetTrackingOptionsResponse'-  {_ccstorsResponseStatus = pResponseStatus_}+    {_ccstorsResponseStatus = pResponseStatus_}   -- | -- | The response status code. ccstorsResponseStatus :: Lens' CreateConfigurationSetTrackingOptionsResponse Int-ccstorsResponseStatus = lens _ccstorsResponseStatus (\ s a -> s{_ccstorsResponseStatus = a});+ccstorsResponseStatus = lens _ccstorsResponseStatus (\ s a -> s{_ccstorsResponseStatus = a})  instance NFData            CreateConfigurationSetTrackingOptionsResponse

@@ -0,0 +1,186 @@+{-# 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.CreateCustomVerificationEmailTemplate+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a new custom verification email template.+--+--+-- For more information about custom verification email templates, see <https://docs.aws.amazon.com/ses/latest/DeveloperGuide/custom-verification-emails.html Using Custom Verification Email Templates> in the /Amazon SES Developer Guide/ .+--+-- You can execute this operation no more than once per second.+--+module Network.AWS.SES.CreateCustomVerificationEmailTemplate+    (+    -- * Creating a Request+      createCustomVerificationEmailTemplate+    , CreateCustomVerificationEmailTemplate+    -- * Request Lenses+    , ccvetTemplateName+    , ccvetFromEmailAddress+    , ccvetTemplateSubject+    , ccvetTemplateContent+    , ccvetSuccessRedirectionURL+    , ccvetFailureRedirectionURL++    -- * Destructuring the Response+    , createCustomVerificationEmailTemplateResponse+    , CreateCustomVerificationEmailTemplateResponse+    ) 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 create a custom verification email template.+--+--+--+-- /See:/ 'createCustomVerificationEmailTemplate' smart constructor.+data CreateCustomVerificationEmailTemplate = CreateCustomVerificationEmailTemplate'+  { _ccvetTemplateName          :: !Text+  , _ccvetFromEmailAddress      :: !Text+  , _ccvetTemplateSubject       :: !Text+  , _ccvetTemplateContent       :: !Text+  , _ccvetSuccessRedirectionURL :: !Text+  , _ccvetFailureRedirectionURL :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateCustomVerificationEmailTemplate' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ccvetTemplateName' - The name of the custom verification email template.+--+-- * 'ccvetFromEmailAddress' - The email address that the custom verification email is sent from.+--+-- * 'ccvetTemplateSubject' - The subject line of the custom verification email.+--+-- * 'ccvetTemplateContent' - The content of the custom verification email. The total size of the email must be less than 10 MB. The message body may contain HTML, with some limitations. For more information, see <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/custom-verification-emails.html#custom-verification-emails-faq Custom Verification Email Frequently Asked Questions> in the /Amazon SES Developer Guide/ .+--+-- * 'ccvetSuccessRedirectionURL' - The URL that the recipient of the verification email is sent to if his or her address is successfully verified.+--+-- * 'ccvetFailureRedirectionURL' - The URL that the recipient of the verification email is sent to if his or her address is not successfully verified.+createCustomVerificationEmailTemplate+    :: Text -- ^ 'ccvetTemplateName'+    -> Text -- ^ 'ccvetFromEmailAddress'+    -> Text -- ^ 'ccvetTemplateSubject'+    -> Text -- ^ 'ccvetTemplateContent'+    -> Text -- ^ 'ccvetSuccessRedirectionURL'+    -> Text -- ^ 'ccvetFailureRedirectionURL'+    -> CreateCustomVerificationEmailTemplate+createCustomVerificationEmailTemplate pTemplateName_ pFromEmailAddress_ pTemplateSubject_ pTemplateContent_ pSuccessRedirectionURL_ pFailureRedirectionURL_ =+  CreateCustomVerificationEmailTemplate'+    { _ccvetTemplateName = pTemplateName_+    , _ccvetFromEmailAddress = pFromEmailAddress_+    , _ccvetTemplateSubject = pTemplateSubject_+    , _ccvetTemplateContent = pTemplateContent_+    , _ccvetSuccessRedirectionURL = pSuccessRedirectionURL_+    , _ccvetFailureRedirectionURL = pFailureRedirectionURL_+    }+++-- | The name of the custom verification email template.+ccvetTemplateName :: Lens' CreateCustomVerificationEmailTemplate Text+ccvetTemplateName = lens _ccvetTemplateName (\ s a -> s{_ccvetTemplateName = a})++-- | The email address that the custom verification email is sent from.+ccvetFromEmailAddress :: Lens' CreateCustomVerificationEmailTemplate Text+ccvetFromEmailAddress = lens _ccvetFromEmailAddress (\ s a -> s{_ccvetFromEmailAddress = a})++-- | The subject line of the custom verification email.+ccvetTemplateSubject :: Lens' CreateCustomVerificationEmailTemplate Text+ccvetTemplateSubject = lens _ccvetTemplateSubject (\ s a -> s{_ccvetTemplateSubject = a})++-- | The content of the custom verification email. The total size of the email must be less than 10 MB. The message body may contain HTML, with some limitations. For more information, see <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/custom-verification-emails.html#custom-verification-emails-faq Custom Verification Email Frequently Asked Questions> in the /Amazon SES Developer Guide/ .+ccvetTemplateContent :: Lens' CreateCustomVerificationEmailTemplate Text+ccvetTemplateContent = lens _ccvetTemplateContent (\ s a -> s{_ccvetTemplateContent = a})++-- | The URL that the recipient of the verification email is sent to if his or her address is successfully verified.+ccvetSuccessRedirectionURL :: Lens' CreateCustomVerificationEmailTemplate Text+ccvetSuccessRedirectionURL = lens _ccvetSuccessRedirectionURL (\ s a -> s{_ccvetSuccessRedirectionURL = a})++-- | The URL that the recipient of the verification email is sent to if his or her address is not successfully verified.+ccvetFailureRedirectionURL :: Lens' CreateCustomVerificationEmailTemplate Text+ccvetFailureRedirectionURL = lens _ccvetFailureRedirectionURL (\ s a -> s{_ccvetFailureRedirectionURL = a})++instance AWSRequest+           CreateCustomVerificationEmailTemplate+         where+        type Rs CreateCustomVerificationEmailTemplate =+             CreateCustomVerificationEmailTemplateResponse+        request = postQuery ses+        response+          = receiveNull+              CreateCustomVerificationEmailTemplateResponse'++instance Hashable+           CreateCustomVerificationEmailTemplate+         where++instance NFData CreateCustomVerificationEmailTemplate+         where++instance ToHeaders+           CreateCustomVerificationEmailTemplate+         where+        toHeaders = const mempty++instance ToPath CreateCustomVerificationEmailTemplate+         where+        toPath = const "/"++instance ToQuery+           CreateCustomVerificationEmailTemplate+         where+        toQuery CreateCustomVerificationEmailTemplate'{..}+          = mconcat+              ["Action" =:+                 ("CreateCustomVerificationEmailTemplate" ::+                    ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "TemplateName" =: _ccvetTemplateName,+               "FromEmailAddress" =: _ccvetFromEmailAddress,+               "TemplateSubject" =: _ccvetTemplateSubject,+               "TemplateContent" =: _ccvetTemplateContent,+               "SuccessRedirectionURL" =:+                 _ccvetSuccessRedirectionURL,+               "FailureRedirectionURL" =:+                 _ccvetFailureRedirectionURL]++-- | /See:/ 'createCustomVerificationEmailTemplateResponse' smart constructor.+data CreateCustomVerificationEmailTemplateResponse =+  CreateCustomVerificationEmailTemplateResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateCustomVerificationEmailTemplateResponse' with the minimum fields required to make a request.+--+createCustomVerificationEmailTemplateResponse+    :: CreateCustomVerificationEmailTemplateResponse+createCustomVerificationEmailTemplateResponse =+  CreateCustomVerificationEmailTemplateResponse'+++instance NFData+           CreateCustomVerificationEmailTemplateResponse+         where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.CreateReceiptFilter--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -70,7 +70,7 @@  -- | A data structure that describes the IP address filter to create, which consists of a name, an IP address range, and whether to allow or block mail from it. crfFilter :: Lens' CreateReceiptFilter ReceiptFilter-crfFilter = lens _crfFilter (\ s a -> s{_crfFilter = a});+crfFilter = lens _crfFilter (\ s a -> s{_crfFilter = a})  instance AWSRequest CreateReceiptFilter where         type Rs CreateReceiptFilter =@@ -122,6 +122,6 @@  -- | -- | The response status code. crfrsResponseStatus :: Lens' CreateReceiptFilterResponse Int-crfrsResponseStatus = lens _crfrsResponseStatus (\ s a -> s{_crfrsResponseStatus = a});+crfrsResponseStatus = lens _crfrsResponseStatus (\ s a -> s{_crfrsResponseStatus = a})  instance NFData CreateReceiptFilterResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.CreateReceiptRule--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -76,20 +76,20 @@     -> CreateReceiptRule createReceiptRule pRuleSetName_ pRule_ =   CreateReceiptRule'-  {_crrAfter = Nothing, _crrRuleSetName = pRuleSetName_, _crrRule = pRule_}+    {_crrAfter = Nothing, _crrRuleSetName = pRuleSetName_, _crrRule = pRule_}   -- | The name of an existing rule after which the new rule will be placed. If this parameter is null, the new rule will be inserted at the beginning of the rule list. crrAfter :: Lens' CreateReceiptRule (Maybe Text)-crrAfter = lens _crrAfter (\ s a -> s{_crrAfter = a});+crrAfter = lens _crrAfter (\ s a -> s{_crrAfter = a})  -- | The name of the rule set that the receipt rule will be added to. crrRuleSetName :: Lens' CreateReceiptRule Text-crrRuleSetName = lens _crrRuleSetName (\ s a -> s{_crrRuleSetName = a});+crrRuleSetName = lens _crrRuleSetName (\ s a -> s{_crrRuleSetName = a})  -- | A data structure that contains the specified rule's name, actions, recipients, domains, enabled status, scan status, and TLS policy. crrRule :: Lens' CreateReceiptRule ReceiptRule-crrRule = lens _crrRule (\ s a -> s{_crrRule = a});+crrRule = lens _crrRule (\ s a -> s{_crrRule = a})  instance AWSRequest CreateReceiptRule where         type Rs CreateReceiptRule = CreateReceiptRuleResponse@@ -141,6 +141,6 @@  -- | -- | The response status code. crrrsResponseStatus :: Lens' CreateReceiptRuleResponse Int-crrrsResponseStatus = lens _crrrsResponseStatus (\ s a -> s{_crrrsResponseStatus = a});+crrrsResponseStatus = lens _crrrsResponseStatus (\ s a -> s{_crrrsResponseStatus = a})  instance NFData CreateReceiptRuleResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.CreateReceiptRuleSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -61,7 +61,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'crrsRuleSetName' - 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' - The name of the rule set to create. The name must:     * This value can only contain ASCII letters (a-z, A-Z), numbers (0-9), underscores (_), or dashes (-).     * Start and end with a letter or number.     * Contain less than 64 characters. createReceiptRuleSet     :: Text -- ^ 'crrsRuleSetName'     -> CreateReceiptRuleSet@@ -69,9 +69,9 @@   CreateReceiptRuleSet' {_crrsRuleSetName = pRuleSetName_}  --- | 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.+-- | The name of the rule set to create. The name must:     * This value can only contain ASCII letters (a-z, A-Z), numbers (0-9), 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});+crrsRuleSetName = lens _crrsRuleSetName (\ s a -> s{_crrsRuleSetName = a})  instance AWSRequest CreateReceiptRuleSet where         type Rs CreateReceiptRuleSet =@@ -124,6 +124,6 @@  -- | -- | The response status code. crrsrsResponseStatus :: Lens' CreateReceiptRuleSetResponse Int-crrsrsResponseStatus = lens _crrsrsResponseStatus (\ s a -> s{_crrsrsResponseStatus = a});+crrsrsResponseStatus = lens _crrsrsResponseStatus (\ s a -> s{_crrsrsResponseStatus = a})  instance NFData CreateReceiptRuleSetResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.CreateTemplate--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,7 +68,7 @@  -- | The content of the email, composed of a subject line, an HTML part, and a text-only part. ctTemplate :: Lens' CreateTemplate Template-ctTemplate = lens _ctTemplate (\ s a -> s{_ctTemplate = a});+ctTemplate = lens _ctTemplate (\ s a -> s{_ctTemplate = a})  instance AWSRequest CreateTemplate where         type Rs CreateTemplate = CreateTemplateResponse@@ -115,6 +115,6 @@  -- | -- | The response status code. ctrsResponseStatus :: Lens' CreateTemplateResponse Int-ctrsResponseStatus = lens _ctrsResponseStatus (\ s a -> s{_ctrsResponseStatus = a});+ctrsResponseStatus = lens _ctrsResponseStatus (\ s a -> s{_ctrsResponseStatus = a})  instance NFData CreateTemplateResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.DeleteConfigurationSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,7 +69,7 @@  -- | The name of the configuration set to delete. dConfigurationSetName :: Lens' DeleteConfigurationSet Text-dConfigurationSetName = lens _dConfigurationSetName (\ s a -> s{_dConfigurationSetName = a});+dConfigurationSetName = lens _dConfigurationSetName (\ s a -> s{_dConfigurationSetName = a})  instance AWSRequest DeleteConfigurationSet where         type Rs DeleteConfigurationSet =@@ -123,6 +123,6 @@  -- | -- | The response status code. drsResponseStatus :: Lens' DeleteConfigurationSetResponse Int-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})  instance NFData DeleteConfigurationSetResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.DeleteConfigurationSetEventDestination--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -70,18 +70,18 @@     -> DeleteConfigurationSetEventDestination deleteConfigurationSetEventDestination pConfigurationSetName_ pEventDestinationName_ =   DeleteConfigurationSetEventDestination'-  { _dcsedConfigurationSetName = pConfigurationSetName_-  , _dcsedEventDestinationName = pEventDestinationName_-  }+    { _dcsedConfigurationSetName = pConfigurationSetName_+    , _dcsedEventDestinationName = pEventDestinationName_+    }   -- | The name of the configuration set from which to delete the event destination. dcsedConfigurationSetName :: Lens' DeleteConfigurationSetEventDestination Text-dcsedConfigurationSetName = lens _dcsedConfigurationSetName (\ s a -> s{_dcsedConfigurationSetName = a});+dcsedConfigurationSetName = lens _dcsedConfigurationSetName (\ s a -> s{_dcsedConfigurationSetName = a})  -- | The name of the event destination to delete. dcsedEventDestinationName :: Lens' DeleteConfigurationSetEventDestination Text-dcsedEventDestinationName = lens _dcsedEventDestinationName (\ s a -> s{_dcsedEventDestinationName = a});+dcsedEventDestinationName = lens _dcsedEventDestinationName (\ s a -> s{_dcsedEventDestinationName = a})  instance AWSRequest            DeleteConfigurationSetEventDestination@@ -146,12 +146,12 @@     -> DeleteConfigurationSetEventDestinationResponse deleteConfigurationSetEventDestinationResponse pResponseStatus_ =   DeleteConfigurationSetEventDestinationResponse'-  {_dcsedrsResponseStatus = pResponseStatus_}+    {_dcsedrsResponseStatus = pResponseStatus_}   -- | -- | The response status code. dcsedrsResponseStatus :: Lens' DeleteConfigurationSetEventDestinationResponse Int-dcsedrsResponseStatus = lens _dcsedrsResponseStatus (\ s a -> s{_dcsedrsResponseStatus = a});+dcsedrsResponseStatus = lens _dcsedrsResponseStatus (\ s a -> s{_dcsedrsResponseStatus = a})  instance NFData            DeleteConfigurationSetEventDestinationResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.DeleteConfigurationSetTrackingOptions--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -65,12 +65,12 @@     -> DeleteConfigurationSetTrackingOptions deleteConfigurationSetTrackingOptions pConfigurationSetName_ =   DeleteConfigurationSetTrackingOptions'-  {_dcstoConfigurationSetName = pConfigurationSetName_}+    {_dcstoConfigurationSetName = pConfigurationSetName_}   -- | The name of the configuration set from which you want to delete the tracking options. dcstoConfigurationSetName :: Lens' DeleteConfigurationSetTrackingOptions Text-dcstoConfigurationSetName = lens _dcstoConfigurationSetName (\ s a -> s{_dcstoConfigurationSetName = a});+dcstoConfigurationSetName = lens _dcstoConfigurationSetName (\ s a -> s{_dcstoConfigurationSetName = a})  instance AWSRequest            DeleteConfigurationSetTrackingOptions@@ -132,12 +132,12 @@     -> DeleteConfigurationSetTrackingOptionsResponse deleteConfigurationSetTrackingOptionsResponse pResponseStatus_ =   DeleteConfigurationSetTrackingOptionsResponse'-  {_dcstorsResponseStatus = pResponseStatus_}+    {_dcstorsResponseStatus = pResponseStatus_}   -- | -- | The response status code. dcstorsResponseStatus :: Lens' DeleteConfigurationSetTrackingOptionsResponse Int-dcstorsResponseStatus = lens _dcstorsResponseStatus (\ s a -> s{_dcstorsResponseStatus = a});+dcstorsResponseStatus = lens _dcstorsResponseStatus (\ s a -> s{_dcstorsResponseStatus = a})  instance NFData            DeleteConfigurationSetTrackingOptionsResponse

@@ -0,0 +1,127 @@+{-# 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.DeleteCustomVerificationEmailTemplate+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes an existing custom verification email template.+--+--+-- For more information about custom verification email templates, see <https://docs.aws.amazon.com/ses/latest/DeveloperGuide/custom-verification-emails.html Using Custom Verification Email Templates> in the /Amazon SES Developer Guide/ .+--+-- You can execute this operation no more than once per second.+--+module Network.AWS.SES.DeleteCustomVerificationEmailTemplate+    (+    -- * Creating a Request+      deleteCustomVerificationEmailTemplate+    , DeleteCustomVerificationEmailTemplate+    -- * Request Lenses+    , dcvetTemplateName++    -- * Destructuring the Response+    , deleteCustomVerificationEmailTemplateResponse+    , DeleteCustomVerificationEmailTemplateResponse+    ) 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 delete an existing custom verification email template.+--+--+--+-- /See:/ 'deleteCustomVerificationEmailTemplate' smart constructor.+newtype DeleteCustomVerificationEmailTemplate = DeleteCustomVerificationEmailTemplate'+  { _dcvetTemplateName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteCustomVerificationEmailTemplate' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dcvetTemplateName' - The name of the custom verification email template that you want to delete.+deleteCustomVerificationEmailTemplate+    :: Text -- ^ 'dcvetTemplateName'+    -> DeleteCustomVerificationEmailTemplate+deleteCustomVerificationEmailTemplate pTemplateName_ =+  DeleteCustomVerificationEmailTemplate' {_dcvetTemplateName = pTemplateName_}+++-- | The name of the custom verification email template that you want to delete.+dcvetTemplateName :: Lens' DeleteCustomVerificationEmailTemplate Text+dcvetTemplateName = lens _dcvetTemplateName (\ s a -> s{_dcvetTemplateName = a})++instance AWSRequest+           DeleteCustomVerificationEmailTemplate+         where+        type Rs DeleteCustomVerificationEmailTemplate =+             DeleteCustomVerificationEmailTemplateResponse+        request = postQuery ses+        response+          = receiveNull+              DeleteCustomVerificationEmailTemplateResponse'++instance Hashable+           DeleteCustomVerificationEmailTemplate+         where++instance NFData DeleteCustomVerificationEmailTemplate+         where++instance ToHeaders+           DeleteCustomVerificationEmailTemplate+         where+        toHeaders = const mempty++instance ToPath DeleteCustomVerificationEmailTemplate+         where+        toPath = const "/"++instance ToQuery+           DeleteCustomVerificationEmailTemplate+         where+        toQuery DeleteCustomVerificationEmailTemplate'{..}+          = mconcat+              ["Action" =:+                 ("DeleteCustomVerificationEmailTemplate" ::+                    ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "TemplateName" =: _dcvetTemplateName]++-- | /See:/ 'deleteCustomVerificationEmailTemplateResponse' smart constructor.+data DeleteCustomVerificationEmailTemplateResponse =+  DeleteCustomVerificationEmailTemplateResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteCustomVerificationEmailTemplateResponse' with the minimum fields required to make a request.+--+deleteCustomVerificationEmailTemplateResponse+    :: DeleteCustomVerificationEmailTemplateResponse+deleteCustomVerificationEmailTemplateResponse =+  DeleteCustomVerificationEmailTemplateResponse'+++instance NFData+           DeleteCustomVerificationEmailTemplateResponse+         where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.DeleteIdentity--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,7 +68,7 @@  -- | The identity to be removed from the list of identities for the AWS Account. diIdentity :: Lens' DeleteIdentity Text-diIdentity = lens _diIdentity (\ s a -> s{_diIdentity = a});+diIdentity = lens _diIdentity (\ s a -> s{_diIdentity = a})  instance AWSRequest DeleteIdentity where         type Rs DeleteIdentity = DeleteIdentityResponse@@ -119,6 +119,6 @@  -- | -- | The response status code. dirsResponseStatus :: Lens' DeleteIdentityResponse Int-dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a});+dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a})  instance NFData DeleteIdentityResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.DeleteIdentityPolicy--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -72,16 +72,16 @@     -> DeleteIdentityPolicy deleteIdentityPolicy pIdentity_ pPolicyName_ =   DeleteIdentityPolicy'-  {_dipIdentity = pIdentity_, _dipPolicyName = pPolicyName_}+    {_dipIdentity = pIdentity_, _dipPolicyName = pPolicyName_}   -- | The identity that is associated with the policy that you want to delete. You can specify the identity by using its name or by using its Amazon Resource Name (ARN). Examples: @user@example.com@ , @example.com@ , @arn:aws:ses:us-east-1:123456789012:identity/example.com@ . To successfully call this API, you must own the identity. dipIdentity :: Lens' DeleteIdentityPolicy Text-dipIdentity = lens _dipIdentity (\ s a -> s{_dipIdentity = a});+dipIdentity = lens _dipIdentity (\ s a -> s{_dipIdentity = a})  -- | The name of the policy to be deleted. dipPolicyName :: Lens' DeleteIdentityPolicy Text-dipPolicyName = lens _dipPolicyName (\ s a -> s{_dipPolicyName = a});+dipPolicyName = lens _dipPolicyName (\ s a -> s{_dipPolicyName = a})  instance AWSRequest DeleteIdentityPolicy where         type Rs DeleteIdentityPolicy =@@ -135,6 +135,6 @@  -- | -- | The response status code. diprsResponseStatus :: Lens' DeleteIdentityPolicyResponse Int-diprsResponseStatus = lens _diprsResponseStatus (\ s a -> s{_diprsResponseStatus = a});+diprsResponseStatus = lens _diprsResponseStatus (\ s a -> s{_diprsResponseStatus = a})  instance NFData DeleteIdentityPolicyResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.DeleteReceiptFilter--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,7 +71,7 @@  -- | The name of the IP address filter to delete. drfFilterName :: Lens' DeleteReceiptFilter Text-drfFilterName = lens _drfFilterName (\ s a -> s{_drfFilterName = a});+drfFilterName = lens _drfFilterName (\ s a -> s{_drfFilterName = a})  instance AWSRequest DeleteReceiptFilter where         type Rs DeleteReceiptFilter =@@ -123,6 +123,6 @@  -- | -- | The response status code. drfrsResponseStatus :: Lens' DeleteReceiptFilterResponse Int-drfrsResponseStatus = lens _drfrsResponseStatus (\ s a -> s{_drfrsResponseStatus = a});+drfrsResponseStatus = lens _drfrsResponseStatus (\ s a -> s{_drfrsResponseStatus = a})  instance NFData DeleteReceiptFilterResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.DeleteReceiptRule--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -72,16 +72,16 @@     -> DeleteReceiptRule deleteReceiptRule pRuleSetName_ pRuleName_ =   DeleteReceiptRule'-  {_delRuleSetName = pRuleSetName_, _delRuleName = pRuleName_}+    {_delRuleSetName = pRuleSetName_, _delRuleName = pRuleName_}   -- | The name of the receipt rule set that contains the receipt rule to delete. delRuleSetName :: Lens' DeleteReceiptRule Text-delRuleSetName = lens _delRuleSetName (\ s a -> s{_delRuleSetName = a});+delRuleSetName = lens _delRuleSetName (\ s a -> s{_delRuleSetName = a})  -- | The name of the receipt rule to delete. delRuleName :: Lens' DeleteReceiptRule Text-delRuleName = lens _delRuleName (\ s a -> s{_delRuleName = a});+delRuleName = lens _delRuleName (\ s a -> s{_delRuleName = a})  instance AWSRequest DeleteReceiptRule where         type Rs DeleteReceiptRule = DeleteReceiptRuleResponse@@ -133,6 +133,6 @@  -- | -- | The response status code. delrsResponseStatus :: Lens' DeleteReceiptRuleResponse Int-delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a});+delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a})  instance NFData DeleteReceiptRuleResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.DeleteReceiptRuleSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,7 +71,7 @@  -- | The name of the receipt rule set to delete. dRuleSetName :: Lens' DeleteReceiptRuleSet Text-dRuleSetName = lens _dRuleSetName (\ s a -> s{_dRuleSetName = a});+dRuleSetName = lens _dRuleSetName (\ s a -> s{_dRuleSetName = a})  instance AWSRequest DeleteReceiptRuleSet where         type Rs DeleteReceiptRuleSet =@@ -124,6 +124,6 @@  -- | -- | The response status code. drrsrsResponseStatus :: Lens' DeleteReceiptRuleSetResponse Int-drrsrsResponseStatus = lens _drrsrsResponseStatus (\ s a -> s{_drrsrsResponseStatus = a});+drrsrsResponseStatus = lens _drrsrsResponseStatus (\ s a -> s{_drrsrsResponseStatus = a})  instance NFData DeleteReceiptRuleSetResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.DeleteTemplate--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,7 +69,7 @@  -- | The name of the template to be deleted. dtTemplateName :: Lens' DeleteTemplate Text-dtTemplateName = lens _dtTemplateName (\ s a -> s{_dtTemplateName = a});+dtTemplateName = lens _dtTemplateName (\ s a -> s{_dtTemplateName = a})  instance AWSRequest DeleteTemplate where         type Rs DeleteTemplate = DeleteTemplateResponse@@ -116,6 +116,6 @@  -- | -- | The response status code. dtrsResponseStatus :: Lens' DeleteTemplateResponse Int-dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a});+dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a})  instance NFData DeleteTemplateResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.DeleteVerifiedEmailAddress--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -65,7 +65,7 @@  -- | An email address to be removed from the list of verified addresses. dveaEmailAddress :: Lens' DeleteVerifiedEmailAddress Text-dveaEmailAddress = lens _dveaEmailAddress (\ s a -> s{_dveaEmailAddress = a});+dveaEmailAddress = lens _dveaEmailAddress (\ s a -> s{_dveaEmailAddress = a})  instance AWSRequest DeleteVerifiedEmailAddress where         type Rs DeleteVerifiedEmailAddress =

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.DescribeActiveReceiptRuleSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -123,23 +123,23 @@     -> DescribeActiveReceiptRuleSetResponse describeActiveReceiptRuleSetResponse pResponseStatus_ =   DescribeActiveReceiptRuleSetResponse'-  { _darrsrsRules = Nothing-  , _darrsrsMetadata = Nothing-  , _darrsrsResponseStatus = pResponseStatus_-  }+    { _darrsrsRules = Nothing+    , _darrsrsMetadata = Nothing+    , _darrsrsResponseStatus = pResponseStatus_+    }   -- | The receipt rules that belong to the active rule set. darrsrsRules :: Lens' DescribeActiveReceiptRuleSetResponse [ReceiptRule]-darrsrsRules = lens _darrsrsRules (\ s a -> s{_darrsrsRules = a}) . _Default . _Coerce;+darrsrsRules = lens _darrsrsRules (\ s a -> s{_darrsrsRules = a}) . _Default . _Coerce  -- | The metadata for the currently active receipt rule set. The metadata consists of the rule set name and a timestamp of when the rule set was created. darrsrsMetadata :: Lens' DescribeActiveReceiptRuleSetResponse (Maybe ReceiptRuleSetMetadata)-darrsrsMetadata = lens _darrsrsMetadata (\ s a -> s{_darrsrsMetadata = a});+darrsrsMetadata = lens _darrsrsMetadata (\ s a -> s{_darrsrsMetadata = a})  -- | -- | The response status code. darrsrsResponseStatus :: Lens' DescribeActiveReceiptRuleSetResponse Int-darrsrsResponseStatus = lens _darrsrsResponseStatus (\ s a -> s{_darrsrsResponseStatus = a});+darrsrsResponseStatus = lens _darrsrsResponseStatus (\ s a -> s{_darrsrsResponseStatus = a})  instance NFData DescribeActiveReceiptRuleSetResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.DescribeConfigurationSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -38,6 +38,7 @@     -- * Response Lenses     , dcsrsTrackingOptions     , dcsrsConfigurationSet+    , dcsrsReputationOptions     , dcsrsEventDestinations     , dcsrsResponseStatus     ) where@@ -72,18 +73,18 @@     -> DescribeConfigurationSet describeConfigurationSet pConfigurationSetName_ =   DescribeConfigurationSet'-  { _dcsConfigurationSetAttributeNames = Nothing-  , _dcsConfigurationSetName = pConfigurationSetName_-  }+    { _dcsConfigurationSetAttributeNames = Nothing+    , _dcsConfigurationSetName = pConfigurationSetName_+    }   -- | A list of configuration set attributes to return. dcsConfigurationSetAttributeNames :: Lens' DescribeConfigurationSet [ConfigurationSetAttribute]-dcsConfigurationSetAttributeNames = lens _dcsConfigurationSetAttributeNames (\ s a -> s{_dcsConfigurationSetAttributeNames = a}) . _Default . _Coerce;+dcsConfigurationSetAttributeNames = lens _dcsConfigurationSetAttributeNames (\ s a -> s{_dcsConfigurationSetAttributeNames = a}) . _Default . _Coerce  -- | The name of the configuration set to describe. dcsConfigurationSetName :: Lens' DescribeConfigurationSet Text-dcsConfigurationSetName = lens _dcsConfigurationSetName (\ s a -> s{_dcsConfigurationSetName = a});+dcsConfigurationSetName = lens _dcsConfigurationSetName (\ s a -> s{_dcsConfigurationSetName = a})  instance AWSRequest DescribeConfigurationSet where         type Rs DescribeConfigurationSet =@@ -95,6 +96,7 @@                  DescribeConfigurationSetResponse' <$>                    (x .@? "TrackingOptions") <*>                      (x .@? "ConfigurationSet")+                     <*> (x .@? "ReputationOptions")                      <*>                      (x .@? "EventDestinations" .!@ mempty >>=                         may (parseXMLList "member"))@@ -130,6 +132,7 @@ data DescribeConfigurationSetResponse = DescribeConfigurationSetResponse'   { _dcsrsTrackingOptions   :: !(Maybe TrackingOptions)   , _dcsrsConfigurationSet  :: !(Maybe ConfigurationSet)+  , _dcsrsReputationOptions :: !(Maybe ReputationOptions)   , _dcsrsEventDestinations :: !(Maybe [EventDestination])   , _dcsrsResponseStatus    :: !Int   } deriving (Eq, Read, Show, Data, Typeable, Generic)@@ -143,6 +146,8 @@ -- -- * 'dcsrsConfigurationSet' - The configuration set object associated with the specified configuration set. --+-- * 'dcsrsReputationOptions' - An object that represents the reputation settings for the configuration set.+-- -- * 'dcsrsEventDestinations' - A list of event destinations associated with the configuration set. -- -- * 'dcsrsResponseStatus' - -- | The response status code.@@ -151,28 +156,33 @@     -> DescribeConfigurationSetResponse describeConfigurationSetResponse pResponseStatus_ =   DescribeConfigurationSetResponse'-  { _dcsrsTrackingOptions = Nothing-  , _dcsrsConfigurationSet = Nothing-  , _dcsrsEventDestinations = Nothing-  , _dcsrsResponseStatus = pResponseStatus_-  }+    { _dcsrsTrackingOptions = Nothing+    , _dcsrsConfigurationSet = Nothing+    , _dcsrsReputationOptions = Nothing+    , _dcsrsEventDestinations = Nothing+    , _dcsrsResponseStatus = pResponseStatus_+    }   -- | The name of the custom open and click tracking domain associated with the configuration set. dcsrsTrackingOptions :: Lens' DescribeConfigurationSetResponse (Maybe TrackingOptions)-dcsrsTrackingOptions = lens _dcsrsTrackingOptions (\ s a -> s{_dcsrsTrackingOptions = a});+dcsrsTrackingOptions = lens _dcsrsTrackingOptions (\ s a -> s{_dcsrsTrackingOptions = a})  -- | The configuration set object associated with the specified configuration set. dcsrsConfigurationSet :: Lens' DescribeConfigurationSetResponse (Maybe ConfigurationSet)-dcsrsConfigurationSet = lens _dcsrsConfigurationSet (\ s a -> s{_dcsrsConfigurationSet = a});+dcsrsConfigurationSet = lens _dcsrsConfigurationSet (\ s a -> s{_dcsrsConfigurationSet = a}) +-- | An object that represents the reputation settings for the configuration set.+dcsrsReputationOptions :: Lens' DescribeConfigurationSetResponse (Maybe ReputationOptions)+dcsrsReputationOptions = lens _dcsrsReputationOptions (\ s a -> s{_dcsrsReputationOptions = a})+ -- | A list of event destinations associated with the configuration set. dcsrsEventDestinations :: Lens' DescribeConfigurationSetResponse [EventDestination]-dcsrsEventDestinations = lens _dcsrsEventDestinations (\ s a -> s{_dcsrsEventDestinations = a}) . _Default . _Coerce;+dcsrsEventDestinations = lens _dcsrsEventDestinations (\ s a -> s{_dcsrsEventDestinations = a}) . _Default . _Coerce  -- | -- | The response status code. dcsrsResponseStatus :: Lens' DescribeConfigurationSetResponse Int-dcsrsResponseStatus = lens _dcsrsResponseStatus (\ s a -> s{_dcsrsResponseStatus = a});+dcsrsResponseStatus = lens _dcsrsResponseStatus (\ s a -> s{_dcsrsResponseStatus = a})  instance NFData DescribeConfigurationSetResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.DescribeReceiptRule--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -73,16 +73,16 @@     -> DescribeReceiptRule describeReceiptRule pRuleSetName_ pRuleName_ =   DescribeReceiptRule'-  {_drrRuleSetName = pRuleSetName_, _drrRuleName = pRuleName_}+    {_drrRuleSetName = pRuleSetName_, _drrRuleName = pRuleName_}   -- | The name of the receipt rule set that the receipt rule belongs to. drrRuleSetName :: Lens' DescribeReceiptRule Text-drrRuleSetName = lens _drrRuleSetName (\ s a -> s{_drrRuleSetName = a});+drrRuleSetName = lens _drrRuleSetName (\ s a -> s{_drrRuleSetName = a})  -- | The name of the receipt rule. drrRuleName :: Lens' DescribeReceiptRule Text-drrRuleName = lens _drrRuleName (\ s a -> s{_drrRuleName = a});+drrRuleName = lens _drrRuleName (\ s a -> s{_drrRuleName = a})  instance AWSRequest DescribeReceiptRule where         type Rs DescribeReceiptRule =@@ -135,15 +135,15 @@     -> DescribeReceiptRuleResponse describeReceiptRuleResponse pResponseStatus_ =   DescribeReceiptRuleResponse'-  {_drrrsRule = Nothing, _drrrsResponseStatus = pResponseStatus_}+    {_drrrsRule = Nothing, _drrrsResponseStatus = pResponseStatus_}   -- | A data structure that contains the specified receipt rule's name, actions, recipients, domains, enabled status, scan status, and Transport Layer Security (TLS) policy. drrrsRule :: Lens' DescribeReceiptRuleResponse (Maybe ReceiptRule)-drrrsRule = lens _drrrsRule (\ s a -> s{_drrrsRule = a});+drrrsRule = lens _drrrsRule (\ s a -> s{_drrrsRule = a})  -- | -- | The response status code. drrrsResponseStatus :: Lens' DescribeReceiptRuleResponse Int-drrrsResponseStatus = lens _drrrsResponseStatus (\ s a -> s{_drrrsResponseStatus = a});+drrrsResponseStatus = lens _drrrsResponseStatus (\ s a -> s{_drrrsResponseStatus = a})  instance NFData DescribeReceiptRuleResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.DescribeReceiptRuleSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -73,7 +73,7 @@  -- | The name of the receipt rule set to describe. drrsRuleSetName :: Lens' DescribeReceiptRuleSet Text-drrsRuleSetName = lens _drrsRuleSetName (\ s a -> s{_drrsRuleSetName = a});+drrsRuleSetName = lens _drrsRuleSetName (\ s a -> s{_drrsRuleSetName = a})  instance AWSRequest DescribeReceiptRuleSet where         type Rs DescribeReceiptRuleSet =@@ -132,22 +132,22 @@     -> DescribeReceiptRuleSetResponse describeReceiptRuleSetResponse pResponseStatus_ =   DescribeReceiptRuleSetResponse'-  { _desrsRules = Nothing-  , _desrsMetadata = Nothing-  , _desrsResponseStatus = pResponseStatus_-  }+    { _desrsRules = Nothing+    , _desrsMetadata = Nothing+    , _desrsResponseStatus = pResponseStatus_+    }   -- | A list of the receipt rules that belong to the specified receipt rule set. desrsRules :: Lens' DescribeReceiptRuleSetResponse [ReceiptRule]-desrsRules = lens _desrsRules (\ s a -> s{_desrsRules = a}) . _Default . _Coerce;+desrsRules = lens _desrsRules (\ s a -> s{_desrsRules = a}) . _Default . _Coerce  -- | The metadata for the receipt rule set, which consists of the rule set name and the timestamp of when the rule set was created. desrsMetadata :: Lens' DescribeReceiptRuleSetResponse (Maybe ReceiptRuleSetMetadata)-desrsMetadata = lens _desrsMetadata (\ s a -> s{_desrsMetadata = a});+desrsMetadata = lens _desrsMetadata (\ s a -> s{_desrsMetadata = a})  -- | -- | The response status code. desrsResponseStatus :: Lens' DescribeReceiptRuleSetResponse Int-desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a});+desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a})  instance NFData DescribeReceiptRuleSetResponse where

@@ -0,0 +1,123 @@+{-# 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.GetAccountSendingEnabled+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the email sending status of the Amazon SES account.+--+--+-- You can execute this operation no more than once per second.+--+module Network.AWS.SES.GetAccountSendingEnabled+    (+    -- * Creating a Request+      getAccountSendingEnabled+    , GetAccountSendingEnabled++    -- * Destructuring the Response+    , getAccountSendingEnabledResponse+    , GetAccountSendingEnabledResponse+    -- * Response Lenses+    , gasersEnabled+    , gasersResponseStatus+    ) 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++-- | /See:/ 'getAccountSendingEnabled' smart constructor.+data GetAccountSendingEnabled =+  GetAccountSendingEnabled'+  deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetAccountSendingEnabled' with the minimum fields required to make a request.+--+getAccountSendingEnabled+    :: GetAccountSendingEnabled+getAccountSendingEnabled = GetAccountSendingEnabled'+++instance AWSRequest GetAccountSendingEnabled where+        type Rs GetAccountSendingEnabled =+             GetAccountSendingEnabledResponse+        request = postQuery ses+        response+          = receiveXMLWrapper "GetAccountSendingEnabledResult"+              (\ s h x ->+                 GetAccountSendingEnabledResponse' <$>+                   (x .@? "Enabled") <*> (pure (fromEnum s)))++instance Hashable GetAccountSendingEnabled where++instance NFData GetAccountSendingEnabled where++instance ToHeaders GetAccountSendingEnabled where+        toHeaders = const mempty++instance ToPath GetAccountSendingEnabled where+        toPath = const "/"++instance ToQuery GetAccountSendingEnabled where+        toQuery+          = const+              (mconcat+                 ["Action" =:+                    ("GetAccountSendingEnabled" :: ByteString),+                  "Version" =: ("2010-12-01" :: ByteString)])++-- | Represents a request to return the email sending status for your Amazon SES account.+--+--+--+-- /See:/ 'getAccountSendingEnabledResponse' smart constructor.+data GetAccountSendingEnabledResponse = GetAccountSendingEnabledResponse'+  { _gasersEnabled        :: !(Maybe Bool)+  , _gasersResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetAccountSendingEnabledResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gasersEnabled' - Describes whether email sending is enabled or disabled for your Amazon SES account.+--+-- * 'gasersResponseStatus' - -- | The response status code.+getAccountSendingEnabledResponse+    :: Int -- ^ 'gasersResponseStatus'+    -> GetAccountSendingEnabledResponse+getAccountSendingEnabledResponse pResponseStatus_ =+  GetAccountSendingEnabledResponse'+    {_gasersEnabled = Nothing, _gasersResponseStatus = pResponseStatus_}+++-- | Describes whether email sending is enabled or disabled for your Amazon SES account.+gasersEnabled :: Lens' GetAccountSendingEnabledResponse (Maybe Bool)+gasersEnabled = lens _gasersEnabled (\ s a -> s{_gasersEnabled = a})++-- | -- | The response status code.+gasersResponseStatus :: Lens' GetAccountSendingEnabledResponse Int+gasersResponseStatus = lens _gasersResponseStatus (\ s a -> s{_gasersResponseStatus = a})++instance NFData GetAccountSendingEnabledResponse+         where

@@ -0,0 +1,201 @@+{-# 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.GetCustomVerificationEmailTemplate+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the custom email verification template for the template name you specify.+--+--+-- For more information about custom verification email templates, see <https://docs.aws.amazon.com/ses/latest/DeveloperGuide/custom-verification-emails.html Using Custom Verification Email Templates> in the /Amazon SES Developer Guide/ .+--+-- You can execute this operation no more than once per second.+--+module Network.AWS.SES.GetCustomVerificationEmailTemplate+    (+    -- * Creating a Request+      getCustomVerificationEmailTemplate+    , GetCustomVerificationEmailTemplate+    -- * Request Lenses+    , gcvetTemplateName++    -- * Destructuring the Response+    , getCustomVerificationEmailTemplateResponse+    , GetCustomVerificationEmailTemplateResponse+    -- * Response Lenses+    , gcvetrsFromEmailAddress+    , gcvetrsTemplateName+    , gcvetrsFailureRedirectionURL+    , gcvetrsTemplateSubject+    , gcvetrsSuccessRedirectionURL+    , gcvetrsTemplateContent+    , gcvetrsResponseStatus+    ) 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 retrieve an existing custom verification email template.+--+--+--+-- /See:/ 'getCustomVerificationEmailTemplate' smart constructor.+newtype GetCustomVerificationEmailTemplate = GetCustomVerificationEmailTemplate'+  { _gcvetTemplateName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetCustomVerificationEmailTemplate' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gcvetTemplateName' - The name of the custom verification email template that you want to retrieve.+getCustomVerificationEmailTemplate+    :: Text -- ^ 'gcvetTemplateName'+    -> GetCustomVerificationEmailTemplate+getCustomVerificationEmailTemplate pTemplateName_ =+  GetCustomVerificationEmailTemplate' {_gcvetTemplateName = pTemplateName_}+++-- | The name of the custom verification email template that you want to retrieve.+gcvetTemplateName :: Lens' GetCustomVerificationEmailTemplate Text+gcvetTemplateName = lens _gcvetTemplateName (\ s a -> s{_gcvetTemplateName = a})++instance AWSRequest+           GetCustomVerificationEmailTemplate+         where+        type Rs GetCustomVerificationEmailTemplate =+             GetCustomVerificationEmailTemplateResponse+        request = postQuery ses+        response+          = receiveXMLWrapper+              "GetCustomVerificationEmailTemplateResult"+              (\ s h x ->+                 GetCustomVerificationEmailTemplateResponse' <$>+                   (x .@? "FromEmailAddress") <*> (x .@? "TemplateName")+                     <*> (x .@? "FailureRedirectionURL")+                     <*> (x .@? "TemplateSubject")+                     <*> (x .@? "SuccessRedirectionURL")+                     <*> (x .@? "TemplateContent")+                     <*> (pure (fromEnum s)))++instance Hashable GetCustomVerificationEmailTemplate+         where++instance NFData GetCustomVerificationEmailTemplate+         where++instance ToHeaders GetCustomVerificationEmailTemplate+         where+        toHeaders = const mempty++instance ToPath GetCustomVerificationEmailTemplate+         where+        toPath = const "/"++instance ToQuery GetCustomVerificationEmailTemplate+         where+        toQuery GetCustomVerificationEmailTemplate'{..}+          = mconcat+              ["Action" =:+                 ("GetCustomVerificationEmailTemplate" :: ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "TemplateName" =: _gcvetTemplateName]++-- | The content of the custom verification email template.+--+--+--+-- /See:/ 'getCustomVerificationEmailTemplateResponse' smart constructor.+data GetCustomVerificationEmailTemplateResponse = GetCustomVerificationEmailTemplateResponse'+  { _gcvetrsFromEmailAddress      :: !(Maybe Text)+  , _gcvetrsTemplateName          :: !(Maybe Text)+  , _gcvetrsFailureRedirectionURL :: !(Maybe Text)+  , _gcvetrsTemplateSubject       :: !(Maybe Text)+  , _gcvetrsSuccessRedirectionURL :: !(Maybe Text)+  , _gcvetrsTemplateContent       :: !(Maybe Text)+  , _gcvetrsResponseStatus        :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetCustomVerificationEmailTemplateResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gcvetrsFromEmailAddress' - The email address that the custom verification email is sent from.+--+-- * 'gcvetrsTemplateName' - The name of the custom verification email template.+--+-- * 'gcvetrsFailureRedirectionURL' - The URL that the recipient of the verification email is sent to if his or her address is not successfully verified.+--+-- * 'gcvetrsTemplateSubject' - The subject line of the custom verification email.+--+-- * 'gcvetrsSuccessRedirectionURL' - The URL that the recipient of the verification email is sent to if his or her address is successfully verified.+--+-- * 'gcvetrsTemplateContent' - The content of the custom verification email.+--+-- * 'gcvetrsResponseStatus' - -- | The response status code.+getCustomVerificationEmailTemplateResponse+    :: Int -- ^ 'gcvetrsResponseStatus'+    -> GetCustomVerificationEmailTemplateResponse+getCustomVerificationEmailTemplateResponse pResponseStatus_ =+  GetCustomVerificationEmailTemplateResponse'+    { _gcvetrsFromEmailAddress = Nothing+    , _gcvetrsTemplateName = Nothing+    , _gcvetrsFailureRedirectionURL = Nothing+    , _gcvetrsTemplateSubject = Nothing+    , _gcvetrsSuccessRedirectionURL = Nothing+    , _gcvetrsTemplateContent = Nothing+    , _gcvetrsResponseStatus = pResponseStatus_+    }+++-- | The email address that the custom verification email is sent from.+gcvetrsFromEmailAddress :: Lens' GetCustomVerificationEmailTemplateResponse (Maybe Text)+gcvetrsFromEmailAddress = lens _gcvetrsFromEmailAddress (\ s a -> s{_gcvetrsFromEmailAddress = a})++-- | The name of the custom verification email template.+gcvetrsTemplateName :: Lens' GetCustomVerificationEmailTemplateResponse (Maybe Text)+gcvetrsTemplateName = lens _gcvetrsTemplateName (\ s a -> s{_gcvetrsTemplateName = a})++-- | The URL that the recipient of the verification email is sent to if his or her address is not successfully verified.+gcvetrsFailureRedirectionURL :: Lens' GetCustomVerificationEmailTemplateResponse (Maybe Text)+gcvetrsFailureRedirectionURL = lens _gcvetrsFailureRedirectionURL (\ s a -> s{_gcvetrsFailureRedirectionURL = a})++-- | The subject line of the custom verification email.+gcvetrsTemplateSubject :: Lens' GetCustomVerificationEmailTemplateResponse (Maybe Text)+gcvetrsTemplateSubject = lens _gcvetrsTemplateSubject (\ s a -> s{_gcvetrsTemplateSubject = a})++-- | The URL that the recipient of the verification email is sent to if his or her address is successfully verified.+gcvetrsSuccessRedirectionURL :: Lens' GetCustomVerificationEmailTemplateResponse (Maybe Text)+gcvetrsSuccessRedirectionURL = lens _gcvetrsSuccessRedirectionURL (\ s a -> s{_gcvetrsSuccessRedirectionURL = a})++-- | The content of the custom verification email.+gcvetrsTemplateContent :: Lens' GetCustomVerificationEmailTemplateResponse (Maybe Text)+gcvetrsTemplateContent = lens _gcvetrsTemplateContent (\ s a -> s{_gcvetrsTemplateContent = a})++-- | -- | The response status code.+gcvetrsResponseStatus :: Lens' GetCustomVerificationEmailTemplateResponse Int+gcvetrsResponseStatus = lens _gcvetrsResponseStatus (\ s a -> s{_gcvetrsResponseStatus = a})++instance NFData+           GetCustomVerificationEmailTemplateResponse+         where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.GetIdentityDkimAttributes--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -81,7 +81,7 @@  -- | A list of one or more verified identities - email addresses, domains, or both. gidaIdentities :: Lens' GetIdentityDkimAttributes [Text]-gidaIdentities = lens _gidaIdentities (\ s a -> s{_gidaIdentities = a}) . _Coerce;+gidaIdentities = lens _gidaIdentities (\ s a -> s{_gidaIdentities = a}) . _Coerce  instance AWSRequest GetIdentityDkimAttributes where         type Rs GetIdentityDkimAttributes =@@ -136,16 +136,16 @@     -> GetIdentityDkimAttributesResponse getIdentityDkimAttributesResponse pResponseStatus_ =   GetIdentityDkimAttributesResponse'-  {_gidarsResponseStatus = pResponseStatus_, _gidarsDkimAttributes = mempty}+    {_gidarsResponseStatus = pResponseStatus_, _gidarsDkimAttributes = mempty}   -- | -- | The response status code. gidarsResponseStatus :: Lens' GetIdentityDkimAttributesResponse Int-gidarsResponseStatus = lens _gidarsResponseStatus (\ s a -> s{_gidarsResponseStatus = a});+gidarsResponseStatus = lens _gidarsResponseStatus (\ s a -> s{_gidarsResponseStatus = a})  -- | The DKIM attributes for an email address or a domain. gidarsDkimAttributes :: Lens' GetIdentityDkimAttributesResponse (HashMap Text IdentityDkimAttributes)-gidarsDkimAttributes = lens _gidarsDkimAttributes (\ s a -> s{_gidarsDkimAttributes = a}) . _Map;+gidarsDkimAttributes = lens _gidarsDkimAttributes (\ s a -> s{_gidarsDkimAttributes = a}) . _Map  instance NFData GetIdentityDkimAttributesResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.GetIdentityMailFromDomainAttributes--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,7 +69,7 @@  -- | A list of one or more identities. gimfdaIdentities :: Lens' GetIdentityMailFromDomainAttributes [Text]-gimfdaIdentities = lens _gimfdaIdentities (\ s a -> s{_gimfdaIdentities = a}) . _Coerce;+gimfdaIdentities = lens _gimfdaIdentities (\ s a -> s{_gimfdaIdentities = a}) . _Coerce  instance AWSRequest            GetIdentityMailFromDomainAttributes@@ -135,18 +135,18 @@     -> GetIdentityMailFromDomainAttributesResponse getIdentityMailFromDomainAttributesResponse pResponseStatus_ =   GetIdentityMailFromDomainAttributesResponse'-  { _gimfdarsResponseStatus = pResponseStatus_-  , _gimfdarsMailFromDomainAttributes = mempty-  }+    { _gimfdarsResponseStatus = pResponseStatus_+    , _gimfdarsMailFromDomainAttributes = mempty+    }   -- | -- | The response status code. gimfdarsResponseStatus :: Lens' GetIdentityMailFromDomainAttributesResponse Int-gimfdarsResponseStatus = lens _gimfdarsResponseStatus (\ s a -> s{_gimfdarsResponseStatus = a});+gimfdarsResponseStatus = lens _gimfdarsResponseStatus (\ s a -> s{_gimfdarsResponseStatus = a})  -- | A map of identities to custom MAIL FROM attributes. gimfdarsMailFromDomainAttributes :: Lens' GetIdentityMailFromDomainAttributesResponse (HashMap Text IdentityMailFromDomainAttributes)-gimfdarsMailFromDomainAttributes = lens _gimfdarsMailFromDomainAttributes (\ s a -> s{_gimfdarsMailFromDomainAttributes = a}) . _Map;+gimfdarsMailFromDomainAttributes = lens _gimfdarsMailFromDomainAttributes (\ s a -> s{_gimfdarsMailFromDomainAttributes = a}) . _Map  instance NFData            GetIdentityMailFromDomainAttributesResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.GetIdentityNotificationAttributes--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,7 +71,7 @@  -- | A list of one or more identities. You can specify an identity by using its name or by using its Amazon Resource Name (ARN). Examples: @user@example.com@ , @example.com@ , @arn:aws:ses:us-east-1:123456789012:identity/example.com@ . ginaIdentities :: Lens' GetIdentityNotificationAttributes [Text]-ginaIdentities = lens _ginaIdentities (\ s a -> s{_ginaIdentities = a}) . _Coerce;+ginaIdentities = lens _ginaIdentities (\ s a -> s{_ginaIdentities = a}) . _Coerce  instance AWSRequest GetIdentityNotificationAttributes          where@@ -133,18 +133,18 @@     -> GetIdentityNotificationAttributesResponse getIdentityNotificationAttributesResponse pResponseStatus_ =   GetIdentityNotificationAttributesResponse'-  { _ginarsResponseStatus = pResponseStatus_-  , _ginarsNotificationAttributes = mempty-  }+    { _ginarsResponseStatus = pResponseStatus_+    , _ginarsNotificationAttributes = mempty+    }   -- | -- | The response status code. ginarsResponseStatus :: Lens' GetIdentityNotificationAttributesResponse Int-ginarsResponseStatus = lens _ginarsResponseStatus (\ s a -> s{_ginarsResponseStatus = a});+ginarsResponseStatus = lens _ginarsResponseStatus (\ s a -> s{_ginarsResponseStatus = a})  -- | A map of Identity to IdentityNotificationAttributes. ginarsNotificationAttributes :: Lens' GetIdentityNotificationAttributesResponse (HashMap Text IdentityNotificationAttributes)-ginarsNotificationAttributes = lens _ginarsNotificationAttributes (\ s a -> s{_ginarsNotificationAttributes = a}) . _Map;+ginarsNotificationAttributes = lens _ginarsNotificationAttributes (\ s a -> s{_ginarsNotificationAttributes = a}) . _Map  instance NFData            GetIdentityNotificationAttributesResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.GetIdentityPolicies--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -76,11 +76,11 @@  -- | The identity for which the policies will be retrieved. You can specify an identity by using its name or by using its Amazon Resource Name (ARN). Examples: @user@example.com@ , @example.com@ , @arn:aws:ses:us-east-1:123456789012:identity/example.com@ . To successfully call this API, you must own the identity. gipIdentity :: Lens' GetIdentityPolicies Text-gipIdentity = lens _gipIdentity (\ s a -> s{_gipIdentity = a});+gipIdentity = lens _gipIdentity (\ s a -> s{_gipIdentity = a})  -- | A list of the names of policies to be retrieved. You can retrieve a maximum of 20 policies at a time. If you do not know the names of the policies that are attached to the identity, you can use @ListIdentityPolicies@ . gipPolicyNames :: Lens' GetIdentityPolicies [Text]-gipPolicyNames = lens _gipPolicyNames (\ s a -> s{_gipPolicyNames = a}) . _Coerce;+gipPolicyNames = lens _gipPolicyNames (\ s a -> s{_gipPolicyNames = a}) . _Coerce  instance AWSRequest GetIdentityPolicies where         type Rs GetIdentityPolicies =@@ -136,15 +136,15 @@     -> GetIdentityPoliciesResponse getIdentityPoliciesResponse pResponseStatus_ =   GetIdentityPoliciesResponse'-  {_giprsResponseStatus = pResponseStatus_, _giprsPolicies = mempty}+    {_giprsResponseStatus = pResponseStatus_, _giprsPolicies = mempty}   -- | -- | The response status code. giprsResponseStatus :: Lens' GetIdentityPoliciesResponse Int-giprsResponseStatus = lens _giprsResponseStatus (\ s a -> s{_giprsResponseStatus = a});+giprsResponseStatus = lens _giprsResponseStatus (\ s a -> s{_giprsResponseStatus = a})  -- | A map of policy names to policies. giprsPolicies :: Lens' GetIdentityPoliciesResponse (HashMap Text Text)-giprsPolicies = lens _giprsPolicies (\ s a -> s{_giprsPolicies = a}) . _Map;+giprsPolicies = lens _giprsPolicies (\ s a -> s{_giprsPolicies = a}) . _Map  instance NFData GetIdentityPoliciesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.GetIdentityVerificationAttributes--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -73,7 +73,7 @@  -- | A list of identities. givaIdentities :: Lens' GetIdentityVerificationAttributes [Text]-givaIdentities = lens _givaIdentities (\ s a -> s{_givaIdentities = a}) . _Coerce;+givaIdentities = lens _givaIdentities (\ s a -> s{_givaIdentities = a}) . _Coerce  instance AWSRequest GetIdentityVerificationAttributes          where@@ -135,18 +135,18 @@     -> GetIdentityVerificationAttributesResponse getIdentityVerificationAttributesResponse pResponseStatus_ =   GetIdentityVerificationAttributesResponse'-  { _givarsResponseStatus = pResponseStatus_-  , _givarsVerificationAttributes = mempty-  }+    { _givarsResponseStatus = pResponseStatus_+    , _givarsVerificationAttributes = mempty+    }   -- | -- | The response status code. givarsResponseStatus :: Lens' GetIdentityVerificationAttributesResponse Int-givarsResponseStatus = lens _givarsResponseStatus (\ s a -> s{_givarsResponseStatus = a});+givarsResponseStatus = lens _givarsResponseStatus (\ s a -> s{_givarsResponseStatus = a})  -- | A map of Identities to IdentityVerificationAttributes objects. givarsVerificationAttributes :: Lens' GetIdentityVerificationAttributesResponse (HashMap Text IdentityVerificationAttributes)-givarsVerificationAttributes = lens _givarsVerificationAttributes (\ s a -> s{_givarsVerificationAttributes = a}) . _Map;+givarsVerificationAttributes = lens _givarsVerificationAttributes (\ s a -> s{_givarsVerificationAttributes = a}) . _Map  instance NFData            GetIdentityVerificationAttributesResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.GetSendQuota--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -116,27 +116,27 @@     -> GetSendQuotaResponse getSendQuotaResponse pResponseStatus_ =   GetSendQuotaResponse'-  { _gsqrsMaxSendRate = Nothing-  , _gsqrsSentLast24Hours = Nothing-  , _gsqrsMax24HourSend = Nothing-  , _gsqrsResponseStatus = pResponseStatus_-  }+    { _gsqrsMaxSendRate = Nothing+    , _gsqrsSentLast24Hours = Nothing+    , _gsqrsMax24HourSend = Nothing+    , _gsqrsResponseStatus = pResponseStatus_+    }   -- | The maximum number of emails that Amazon SES can accept from the user's account per second. gsqrsMaxSendRate :: Lens' GetSendQuotaResponse (Maybe Double)-gsqrsMaxSendRate = lens _gsqrsMaxSendRate (\ s a -> s{_gsqrsMaxSendRate = a});+gsqrsMaxSendRate = lens _gsqrsMaxSendRate (\ s a -> s{_gsqrsMaxSendRate = a})  -- | The number of emails sent during the previous 24 hours. gsqrsSentLast24Hours :: Lens' GetSendQuotaResponse (Maybe Double)-gsqrsSentLast24Hours = lens _gsqrsSentLast24Hours (\ s a -> s{_gsqrsSentLast24Hours = a});+gsqrsSentLast24Hours = lens _gsqrsSentLast24Hours (\ s a -> s{_gsqrsSentLast24Hours = a})  -- | The maximum number of emails the user is allowed to send in a 24-hour interval. A value of -1 signifies an unlimited quota. gsqrsMax24HourSend :: Lens' GetSendQuotaResponse (Maybe Double)-gsqrsMax24HourSend = lens _gsqrsMax24HourSend (\ s a -> s{_gsqrsMax24HourSend = a});+gsqrsMax24HourSend = lens _gsqrsMax24HourSend (\ s a -> s{_gsqrsMax24HourSend = a})  -- | -- | The response status code. gsqrsResponseStatus :: Lens' GetSendQuotaResponse Int-gsqrsResponseStatus = lens _gsqrsResponseStatus (\ s a -> s{_gsqrsResponseStatus = a});+gsqrsResponseStatus = lens _gsqrsResponseStatus (\ s a -> s{_gsqrsResponseStatus = a})  instance NFData GetSendQuotaResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.GetSendStatistics--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -108,15 +108,15 @@     -> GetSendStatisticsResponse getSendStatisticsResponse pResponseStatus_ =   GetSendStatisticsResponse'-  {_gssrsSendDataPoints = Nothing, _gssrsResponseStatus = pResponseStatus_}+    {_gssrsSendDataPoints = Nothing, _gssrsResponseStatus = pResponseStatus_}   -- | A list of data points, each of which represents 15 minutes of activity. gssrsSendDataPoints :: Lens' GetSendStatisticsResponse [SendDataPoint]-gssrsSendDataPoints = lens _gssrsSendDataPoints (\ s a -> s{_gssrsSendDataPoints = a}) . _Default . _Coerce;+gssrsSendDataPoints = lens _gssrsSendDataPoints (\ s a -> s{_gssrsSendDataPoints = a}) . _Default . _Coerce  -- | -- | The response status code. gssrsResponseStatus :: Lens' GetSendStatisticsResponse Int-gssrsResponseStatus = lens _gssrsResponseStatus (\ s a -> s{_gssrsResponseStatus = a});+gssrsResponseStatus = lens _gssrsResponseStatus (\ s a -> s{_gssrsResponseStatus = a})  instance NFData GetSendStatisticsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.GetTemplate--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -65,7 +65,7 @@  -- | The name of the template you want to retrieve. gtTemplateName :: Lens' GetTemplate Text-gtTemplateName = lens _gtTemplateName (\ s a -> s{_gtTemplateName = a});+gtTemplateName = lens _gtTemplateName (\ s a -> s{_gtTemplateName = a})  instance AWSRequest GetTemplate where         type Rs GetTemplate = GetTemplateResponse@@ -112,15 +112,15 @@     -> GetTemplateResponse getTemplateResponse pResponseStatus_ =   GetTemplateResponse'-  {_gtrsTemplate = Nothing, _gtrsResponseStatus = pResponseStatus_}+    {_gtrsTemplate = Nothing, _gtrsResponseStatus = pResponseStatus_}   -- | Undocumented member. gtrsTemplate :: Lens' GetTemplateResponse (Maybe Template)-gtrsTemplate = lens _gtrsTemplate (\ s a -> s{_gtrsTemplate = a});+gtrsTemplate = lens _gtrsTemplate (\ s a -> s{_gtrsTemplate = a})  -- | -- | The response status code. gtrsResponseStatus :: Lens' GetTemplateResponse Int-gtrsResponseStatus = lens _gtrsResponseStatus (\ s a -> s{_gtrsResponseStatus = a});+gtrsResponseStatus = lens _gtrsResponseStatus (\ s a -> s{_gtrsResponseStatus = a})  instance NFData GetTemplateResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.ListConfigurationSets--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -74,11 +74,11 @@  -- | A token returned from a previous call to @ListConfigurationSets@ to indicate the position of the configuration set in the configuration set list. lcsNextToken :: Lens' ListConfigurationSets (Maybe Text)-lcsNextToken = lens _lcsNextToken (\ s a -> s{_lcsNextToken = a});+lcsNextToken = lens _lcsNextToken (\ s a -> s{_lcsNextToken = a})  -- | The number of configuration sets to return. lcsMaxItems :: Lens' ListConfigurationSets (Maybe Int)-lcsMaxItems = lens _lcsMaxItems (\ s a -> s{_lcsMaxItems = a});+lcsMaxItems = lens _lcsMaxItems (\ s a -> s{_lcsMaxItems = a})  instance AWSRequest ListConfigurationSets where         type Rs ListConfigurationSets =@@ -137,22 +137,22 @@     -> ListConfigurationSetsResponse listConfigurationSetsResponse pResponseStatus_ =   ListConfigurationSetsResponse'-  { _lcsrsConfigurationSets = Nothing-  , _lcsrsNextToken = Nothing-  , _lcsrsResponseStatus = pResponseStatus_-  }+    { _lcsrsConfigurationSets = Nothing+    , _lcsrsNextToken = Nothing+    , _lcsrsResponseStatus = pResponseStatus_+    }   -- | A list of configuration sets. lcsrsConfigurationSets :: Lens' ListConfigurationSetsResponse [ConfigurationSet]-lcsrsConfigurationSets = lens _lcsrsConfigurationSets (\ s a -> s{_lcsrsConfigurationSets = a}) . _Default . _Coerce;+lcsrsConfigurationSets = lens _lcsrsConfigurationSets (\ s a -> s{_lcsrsConfigurationSets = a}) . _Default . _Coerce  -- | A token indicating that there are additional configuration sets available to be listed. Pass this token to successive calls of @ListConfigurationSets@ . lcsrsNextToken :: Lens' ListConfigurationSetsResponse (Maybe Text)-lcsrsNextToken = lens _lcsrsNextToken (\ s a -> s{_lcsrsNextToken = a});+lcsrsNextToken = lens _lcsrsNextToken (\ s a -> s{_lcsrsNextToken = a})  -- | -- | The response status code. lcsrsResponseStatus :: Lens' ListConfigurationSetsResponse Int-lcsrsResponseStatus = lens _lcsrsResponseStatus (\ s a -> s{_lcsrsResponseStatus = a});+lcsrsResponseStatus = lens _lcsrsResponseStatus (\ s a -> s{_lcsrsResponseStatus = a})  instance NFData ListConfigurationSetsResponse where

@@ -0,0 +1,191 @@+{-# 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.ListCustomVerificationEmailTemplates+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists the existing custom verification email templates for your account.+--+--+-- For more information about custom verification email templates, see <https://docs.aws.amazon.com/ses/latest/DeveloperGuide/custom-verification-emails.html Using Custom Verification Email Templates> in the /Amazon SES Developer Guide/ .+--+-- You can execute this operation no more than once per second.+--+--+-- This operation returns paginated results.+module Network.AWS.SES.ListCustomVerificationEmailTemplates+    (+    -- * Creating a Request+      listCustomVerificationEmailTemplates+    , ListCustomVerificationEmailTemplates+    -- * Request Lenses+    , lcvetNextToken+    , lcvetMaxResults++    -- * Destructuring the Response+    , listCustomVerificationEmailTemplatesResponse+    , ListCustomVerificationEmailTemplatesResponse+    -- * Response Lenses+    , lcvetrsNextToken+    , lcvetrsCustomVerificationEmailTemplates+    , lcvetrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Pager+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 list the existing custom verification email templates for your account.+--+--+-- For more information about custom verification email templates, see <https://docs.aws.amazon.com/ses/latest/DeveloperGuide/custom-verification-emails.html Using Custom Verification Email Templates> in the /Amazon SES Developer Guide/ .+--+--+-- /See:/ 'listCustomVerificationEmailTemplates' smart constructor.+data ListCustomVerificationEmailTemplates = ListCustomVerificationEmailTemplates'+  { _lcvetNextToken  :: !(Maybe Text)+  , _lcvetMaxResults :: !(Maybe Nat)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListCustomVerificationEmailTemplates' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lcvetNextToken' - An array the contains the name and creation time stamp for each template in your Amazon SES account.+--+-- * 'lcvetMaxResults' - The maximum number of custom verification email templates to return. This value must be at least 1 and less than or equal to 50. If you do not specify a value, or if you specify a value less than 1 or greater than 50, the operation will return up to 50 results.+listCustomVerificationEmailTemplates+    :: ListCustomVerificationEmailTemplates+listCustomVerificationEmailTemplates =+  ListCustomVerificationEmailTemplates'+    {_lcvetNextToken = Nothing, _lcvetMaxResults = Nothing}+++-- | An array the contains the name and creation time stamp for each template in your Amazon SES account.+lcvetNextToken :: Lens' ListCustomVerificationEmailTemplates (Maybe Text)+lcvetNextToken = lens _lcvetNextToken (\ s a -> s{_lcvetNextToken = a})++-- | The maximum number of custom verification email templates to return. This value must be at least 1 and less than or equal to 50. If you do not specify a value, or if you specify a value less than 1 or greater than 50, the operation will return up to 50 results.+lcvetMaxResults :: Lens' ListCustomVerificationEmailTemplates (Maybe Natural)+lcvetMaxResults = lens _lcvetMaxResults (\ s a -> s{_lcvetMaxResults = a}) . mapping _Nat++instance AWSPager+           ListCustomVerificationEmailTemplates+         where+        page rq rs+          | stop (rs ^. lcvetrsNextToken) = Nothing+          | stop+              (rs ^. lcvetrsCustomVerificationEmailTemplates)+            = Nothing+          | otherwise =+            Just $ rq & lcvetNextToken .~ rs ^. lcvetrsNextToken++instance AWSRequest+           ListCustomVerificationEmailTemplates+         where+        type Rs ListCustomVerificationEmailTemplates =+             ListCustomVerificationEmailTemplatesResponse+        request = postQuery ses+        response+          = receiveXMLWrapper+              "ListCustomVerificationEmailTemplatesResult"+              (\ s h x ->+                 ListCustomVerificationEmailTemplatesResponse' <$>+                   (x .@? "NextToken") <*>+                     (x .@? "CustomVerificationEmailTemplates" .!@ mempty+                        >>= may (parseXMLList "member"))+                     <*> (pure (fromEnum s)))++instance Hashable+           ListCustomVerificationEmailTemplates+         where++instance NFData ListCustomVerificationEmailTemplates+         where++instance ToHeaders+           ListCustomVerificationEmailTemplates+         where+        toHeaders = const mempty++instance ToPath ListCustomVerificationEmailTemplates+         where+        toPath = const "/"++instance ToQuery ListCustomVerificationEmailTemplates+         where+        toQuery ListCustomVerificationEmailTemplates'{..}+          = mconcat+              ["Action" =:+                 ("ListCustomVerificationEmailTemplates" ::+                    ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "NextToken" =: _lcvetNextToken,+               "MaxResults" =: _lcvetMaxResults]++-- | A paginated list of custom verification email templates.+--+--+--+-- /See:/ 'listCustomVerificationEmailTemplatesResponse' smart constructor.+data ListCustomVerificationEmailTemplatesResponse = ListCustomVerificationEmailTemplatesResponse'+  { _lcvetrsNextToken :: !(Maybe Text)+  , _lcvetrsCustomVerificationEmailTemplates :: !(Maybe [CustomVerificationEmailTemplate])+  , _lcvetrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListCustomVerificationEmailTemplatesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lcvetrsNextToken' - A token indicating that there are additional custom verification email templates available to be listed. Pass this token to a subsequent call to @ListTemplates@ to retrieve the next 50 custom verification email templates.+--+-- * 'lcvetrsCustomVerificationEmailTemplates' - A list of the custom verification email templates that exist in your account.+--+-- * 'lcvetrsResponseStatus' - -- | The response status code.+listCustomVerificationEmailTemplatesResponse+    :: Int -- ^ 'lcvetrsResponseStatus'+    -> ListCustomVerificationEmailTemplatesResponse+listCustomVerificationEmailTemplatesResponse pResponseStatus_ =+  ListCustomVerificationEmailTemplatesResponse'+    { _lcvetrsNextToken = Nothing+    , _lcvetrsCustomVerificationEmailTemplates = Nothing+    , _lcvetrsResponseStatus = pResponseStatus_+    }+++-- | A token indicating that there are additional custom verification email templates available to be listed. Pass this token to a subsequent call to @ListTemplates@ to retrieve the next 50 custom verification email templates.+lcvetrsNextToken :: Lens' ListCustomVerificationEmailTemplatesResponse (Maybe Text)+lcvetrsNextToken = lens _lcvetrsNextToken (\ s a -> s{_lcvetrsNextToken = a})++-- | A list of the custom verification email templates that exist in your account.+lcvetrsCustomVerificationEmailTemplates :: Lens' ListCustomVerificationEmailTemplatesResponse [CustomVerificationEmailTemplate]+lcvetrsCustomVerificationEmailTemplates = lens _lcvetrsCustomVerificationEmailTemplates (\ s a -> s{_lcvetrsCustomVerificationEmailTemplates = a}) . _Default . _Coerce++-- | -- | The response status code.+lcvetrsResponseStatus :: Lens' ListCustomVerificationEmailTemplatesResponse Int+lcvetrsResponseStatus = lens _lcvetrsResponseStatus (\ s a -> s{_lcvetrsResponseStatus = a})++instance NFData+           ListCustomVerificationEmailTemplatesResponse+         where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.ListIdentities--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -77,20 +77,20 @@     :: ListIdentities listIdentities =   ListIdentities'-  {_liIdentityType = Nothing, _liNextToken = Nothing, _liMaxItems = Nothing}+    {_liIdentityType = Nothing, _liNextToken = Nothing, _liMaxItems = Nothing}   -- | The type of the identities to list. Possible values are "EmailAddress" and "Domain". If this parameter is omitted, then all identities will be listed. liIdentityType :: Lens' ListIdentities (Maybe IdentityType)-liIdentityType = lens _liIdentityType (\ s a -> s{_liIdentityType = a});+liIdentityType = lens _liIdentityType (\ s a -> s{_liIdentityType = a})  -- | The token to use for pagination. liNextToken :: Lens' ListIdentities (Maybe Text)-liNextToken = lens _liNextToken (\ s a -> s{_liNextToken = a});+liNextToken = lens _liNextToken (\ s a -> s{_liNextToken = a})  -- | The maximum number of identities per page. Possible values are 1-1000 inclusive. liMaxItems :: Lens' ListIdentities (Maybe Int)-liMaxItems = lens _liMaxItems (\ s a -> s{_liMaxItems = a});+liMaxItems = lens _liMaxItems (\ s a -> s{_liMaxItems = a})  instance AWSPager ListIdentities where         page rq rs@@ -155,22 +155,22 @@     -> ListIdentitiesResponse listIdentitiesResponse pResponseStatus_ =   ListIdentitiesResponse'-  { _lirsNextToken = Nothing-  , _lirsResponseStatus = pResponseStatus_-  , _lirsIdentities = mempty-  }+    { _lirsNextToken = Nothing+    , _lirsResponseStatus = pResponseStatus_+    , _lirsIdentities = mempty+    }   -- | The token used for pagination. lirsNextToken :: Lens' ListIdentitiesResponse (Maybe Text)-lirsNextToken = lens _lirsNextToken (\ s a -> s{_lirsNextToken = a});+lirsNextToken = lens _lirsNextToken (\ s a -> s{_lirsNextToken = a})  -- | -- | The response status code. lirsResponseStatus :: Lens' ListIdentitiesResponse Int-lirsResponseStatus = lens _lirsResponseStatus (\ s a -> s{_lirsResponseStatus = a});+lirsResponseStatus = lens _lirsResponseStatus (\ s a -> s{_lirsResponseStatus = a})  -- | A list of identities. lirsIdentities :: Lens' ListIdentitiesResponse [Text]-lirsIdentities = lens _lirsIdentities (\ s a -> s{_lirsIdentities = a}) . _Coerce;+lirsIdentities = lens _lirsIdentities (\ s a -> s{_lirsIdentities = a}) . _Coerce  instance NFData ListIdentitiesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.ListIdentityPolicies--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -72,7 +72,7 @@  -- | The identity that is associated with the policy for which the policies will be listed. You can specify an identity by using its name or by using its Amazon Resource Name (ARN). Examples: @user@example.com@ , @example.com@ , @arn:aws:ses:us-east-1:123456789012:identity/example.com@ . To successfully call this API, you must own the identity. lipIdentity :: Lens' ListIdentityPolicies Text-lipIdentity = lens _lipIdentity (\ s a -> s{_lipIdentity = a});+lipIdentity = lens _lipIdentity (\ s a -> s{_lipIdentity = a})  instance AWSRequest ListIdentityPolicies where         type Rs ListIdentityPolicies =@@ -126,15 +126,15 @@     -> ListIdentityPoliciesResponse listIdentityPoliciesResponse pResponseStatus_ =   ListIdentityPoliciesResponse'-  {_liprsResponseStatus = pResponseStatus_, _liprsPolicyNames = mempty}+    {_liprsResponseStatus = pResponseStatus_, _liprsPolicyNames = mempty}   -- | -- | The response status code. liprsResponseStatus :: Lens' ListIdentityPoliciesResponse Int-liprsResponseStatus = lens _liprsResponseStatus (\ s a -> s{_liprsResponseStatus = a});+liprsResponseStatus = lens _liprsResponseStatus (\ s a -> s{_liprsResponseStatus = a})  -- | A list of names of policies that apply to the specified identity. liprsPolicyNames :: Lens' ListIdentityPoliciesResponse [Text]-liprsPolicyNames = lens _liprsPolicyNames (\ s a -> s{_liprsPolicyNames = a}) . _Coerce;+liprsPolicyNames = lens _liprsPolicyNames (\ s a -> s{_liprsPolicyNames = a}) . _Coerce  instance NFData ListIdentityPoliciesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.ListReceiptFilters--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -115,15 +115,15 @@     -> ListReceiptFiltersResponse listReceiptFiltersResponse pResponseStatus_ =   ListReceiptFiltersResponse'-  {_lrfrsFilters = Nothing, _lrfrsResponseStatus = pResponseStatus_}+    {_lrfrsFilters = Nothing, _lrfrsResponseStatus = pResponseStatus_}   -- | A list of IP address filter data structures, which each consist of a name, an IP address range, and whether to allow or block mail from it. lrfrsFilters :: Lens' ListReceiptFiltersResponse [ReceiptFilter]-lrfrsFilters = lens _lrfrsFilters (\ s a -> s{_lrfrsFilters = a}) . _Default . _Coerce;+lrfrsFilters = lens _lrfrsFilters (\ s a -> s{_lrfrsFilters = a}) . _Default . _Coerce  -- | -- | The response status code. lrfrsResponseStatus :: Lens' ListReceiptFiltersResponse Int-lrfrsResponseStatus = lens _lrfrsResponseStatus (\ s a -> s{_lrfrsResponseStatus = a});+lrfrsResponseStatus = lens _lrfrsResponseStatus (\ s a -> s{_lrfrsResponseStatus = a})  instance NFData ListReceiptFiltersResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.ListReceiptRuleSets--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,7 +71,7 @@  -- | A token returned from a previous call to @ListReceiptRuleSets@ to indicate the position in the receipt rule set list. lrrsNextToken :: Lens' ListReceiptRuleSets (Maybe Text)-lrrsNextToken = lens _lrrsNextToken (\ s a -> s{_lrrsNextToken = a});+lrrsNextToken = lens _lrrsNextToken (\ s a -> s{_lrrsNextToken = a})  instance AWSRequest ListReceiptRuleSets where         type Rs ListReceiptRuleSets =@@ -129,22 +129,22 @@     -> ListReceiptRuleSetsResponse listReceiptRuleSetsResponse pResponseStatus_ =   ListReceiptRuleSetsResponse'-  { _lrrsrsRuleSets = Nothing-  , _lrrsrsNextToken = Nothing-  , _lrrsrsResponseStatus = pResponseStatus_-  }+    { _lrrsrsRuleSets = Nothing+    , _lrrsrsNextToken = Nothing+    , _lrrsrsResponseStatus = pResponseStatus_+    }   -- | The metadata for the currently active receipt rule set. The metadata consists of the rule set name and the timestamp of when the rule set was created. lrrsrsRuleSets :: Lens' ListReceiptRuleSetsResponse [ReceiptRuleSetMetadata]-lrrsrsRuleSets = lens _lrrsrsRuleSets (\ s a -> s{_lrrsrsRuleSets = a}) . _Default . _Coerce;+lrrsrsRuleSets = lens _lrrsrsRuleSets (\ s a -> s{_lrrsrsRuleSets = a}) . _Default . _Coerce  -- | A token indicating that there are additional receipt rule sets available to be listed. Pass this token to successive calls of @ListReceiptRuleSets@ to retrieve up to 100 receipt rule sets at a time. lrrsrsNextToken :: Lens' ListReceiptRuleSetsResponse (Maybe Text)-lrrsrsNextToken = lens _lrrsrsNextToken (\ s a -> s{_lrrsrsNextToken = a});+lrrsrsNextToken = lens _lrrsrsNextToken (\ s a -> s{_lrrsrsNextToken = a})  -- | -- | The response status code. lrrsrsResponseStatus :: Lens' ListReceiptRuleSetsResponse Int-lrrsrsResponseStatus = lens _lrrsrsResponseStatus (\ s a -> s{_lrrsrsResponseStatus = a});+lrrsrsResponseStatus = lens _lrrsrsResponseStatus (\ s a -> s{_lrrsrsResponseStatus = a})  instance NFData ListReceiptRuleSetsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.ListTemplates--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -59,7 +59,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ltNextToken' - The token to use for pagination.+-- * 'ltNextToken' - A token returned from a previous call to @ListTemplates@ to indicate the position in the list of email templates. -- -- * 'ltMaxItems' - The maximum number of templates to return. This value must be at least 1 and less than or equal to 10. If you do not specify a value, or if you specify a value less than 1 or greater than 10, the operation will return up to 10 results. listTemplates@@ -67,13 +67,13 @@ listTemplates = ListTemplates' {_ltNextToken = Nothing, _ltMaxItems = Nothing}  --- | The token to use for pagination.+-- | A token returned from a previous call to @ListTemplates@ to indicate the position in the list of email templates. ltNextToken :: Lens' ListTemplates (Maybe Text)-ltNextToken = lens _ltNextToken (\ s a -> s{_ltNextToken = a});+ltNextToken = lens _ltNextToken (\ s a -> s{_ltNextToken = a})  -- | The maximum number of templates to return. This value must be at least 1 and less than or equal to 10. If you do not specify a value, or if you specify a value less than 1 or greater than 10, the operation will return up to 10 results. ltMaxItems :: Lens' ListTemplates (Maybe Int)-ltMaxItems = lens _ltMaxItems (\ s a -> s{_ltMaxItems = a});+ltMaxItems = lens _ltMaxItems (\ s a -> s{_ltMaxItems = a})  instance AWSRequest ListTemplates where         type Rs ListTemplates = ListTemplatesResponse@@ -117,9 +117,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ltrsTemplatesMetadata' - An array the contains the name of creation time stamp for each template in your Amazon SES account.+-- * 'ltrsTemplatesMetadata' - An array the contains the name and creation time stamp for each template in your Amazon SES account. ----- * 'ltrsNextToken' - The token to use for pagination.+-- * 'ltrsNextToken' - A token indicating that there are additional email templates available to be listed. Pass this token to a subsequent call to @ListTemplates@ to retrieve the next 50 email templates. -- -- * 'ltrsResponseStatus' - -- | The response status code. listTemplatesResponse@@ -127,22 +127,22 @@     -> ListTemplatesResponse listTemplatesResponse pResponseStatus_ =   ListTemplatesResponse'-  { _ltrsTemplatesMetadata = Nothing-  , _ltrsNextToken = Nothing-  , _ltrsResponseStatus = pResponseStatus_-  }+    { _ltrsTemplatesMetadata = Nothing+    , _ltrsNextToken = Nothing+    , _ltrsResponseStatus = pResponseStatus_+    }  --- | An array the contains the name of creation time stamp for each template in your Amazon SES account.+-- | An array the contains the name and creation time stamp for each template in your Amazon SES account. ltrsTemplatesMetadata :: Lens' ListTemplatesResponse [TemplateMetadata]-ltrsTemplatesMetadata = lens _ltrsTemplatesMetadata (\ s a -> s{_ltrsTemplatesMetadata = a}) . _Default . _Coerce;+ltrsTemplatesMetadata = lens _ltrsTemplatesMetadata (\ s a -> s{_ltrsTemplatesMetadata = a}) . _Default . _Coerce --- | The token to use for pagination.+-- | A token indicating that there are additional email templates available to be listed. Pass this token to a subsequent call to @ListTemplates@ to retrieve the next 50 email templates. ltrsNextToken :: Lens' ListTemplatesResponse (Maybe Text)-ltrsNextToken = lens _ltrsNextToken (\ s a -> s{_ltrsNextToken = a});+ltrsNextToken = lens _ltrsNextToken (\ s a -> s{_ltrsNextToken = a})  -- | -- | The response status code. ltrsResponseStatus :: Lens' ListTemplatesResponse Int-ltrsResponseStatus = lens _ltrsResponseStatus (\ s a -> s{_ltrsResponseStatus = a});+ltrsResponseStatus = lens _ltrsResponseStatus (\ s a -> s{_ltrsResponseStatus = a})  instance NFData ListTemplatesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.ListVerifiedEmailAddresses--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -109,18 +109,18 @@     -> ListVerifiedEmailAddressesResponse listVerifiedEmailAddressesResponse pResponseStatus_ =   ListVerifiedEmailAddressesResponse'-  { _lvearsVerifiedEmailAddresses = Nothing-  , _lvearsResponseStatus = pResponseStatus_-  }+    { _lvearsVerifiedEmailAddresses = Nothing+    , _lvearsResponseStatus = pResponseStatus_+    }   -- | A list of email addresses that have been verified. lvearsVerifiedEmailAddresses :: Lens' ListVerifiedEmailAddressesResponse [Text]-lvearsVerifiedEmailAddresses = lens _lvearsVerifiedEmailAddresses (\ s a -> s{_lvearsVerifiedEmailAddresses = a}) . _Default . _Coerce;+lvearsVerifiedEmailAddresses = lens _lvearsVerifiedEmailAddresses (\ s a -> s{_lvearsVerifiedEmailAddresses = a}) . _Default . _Coerce  -- | -- | The response status code. lvearsResponseStatus :: Lens' ListVerifiedEmailAddressesResponse Int-lvearsResponseStatus = lens _lvearsResponseStatus (\ s a -> s{_lvearsResponseStatus = a});+lvearsResponseStatus = lens _lvearsResponseStatus (\ s a -> s{_lvearsResponseStatus = a})  instance NFData ListVerifiedEmailAddressesResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.PutIdentityPolicy--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -77,23 +77,23 @@     -> PutIdentityPolicy putIdentityPolicy pIdentity_ pPolicyName_ pPolicy_ =   PutIdentityPolicy'-  { _pipIdentity = pIdentity_-  , _pipPolicyName = pPolicyName_-  , _pipPolicy = pPolicy_-  }+    { _pipIdentity = pIdentity_+    , _pipPolicyName = pPolicyName_+    , _pipPolicy = pPolicy_+    }   -- | The identity that the policy will apply to. You can specify an identity by using its name or by using its Amazon Resource Name (ARN). Examples: @user@example.com@ , @example.com@ , @arn:aws:ses:us-east-1:123456789012:identity/example.com@ . To successfully call this API, you must own the identity. pipIdentity :: Lens' PutIdentityPolicy Text-pipIdentity = lens _pipIdentity (\ s a -> s{_pipIdentity = a});+pipIdentity = lens _pipIdentity (\ s a -> s{_pipIdentity = a})  -- | The name of the policy. The policy name cannot exceed 64 characters and can only include alphanumeric characters, dashes, and underscores. pipPolicyName :: Lens' PutIdentityPolicy Text-pipPolicyName = lens _pipPolicyName (\ s a -> s{_pipPolicyName = a});+pipPolicyName = lens _pipPolicyName (\ s a -> s{_pipPolicyName = a})  -- | The text of the policy in JSON format. The policy cannot exceed 4 KB. For information about the syntax of sending authorization policies, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization-policies.html Amazon SES Developer Guide> . pipPolicy :: Lens' PutIdentityPolicy Text-pipPolicy = lens _pipPolicy (\ s a -> s{_pipPolicy = a});+pipPolicy = lens _pipPolicy (\ s a -> s{_pipPolicy = a})  instance AWSRequest PutIdentityPolicy where         type Rs PutIdentityPolicy = PutIdentityPolicyResponse@@ -146,6 +146,6 @@  -- | -- | The response status code. piprsResponseStatus :: Lens' PutIdentityPolicyResponse Int-piprsResponseStatus = lens _piprsResponseStatus (\ s a -> s{_piprsResponseStatus = a});+piprsResponseStatus = lens _piprsResponseStatus (\ s a -> s{_piprsResponseStatus = a})  instance NFData PutIdentityPolicyResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.ReorderReceiptRuleSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,16 +71,16 @@     -> ReorderReceiptRuleSet reorderReceiptRuleSet pRuleSetName_ =   ReorderReceiptRuleSet'-  {_rrrsRuleSetName = pRuleSetName_, _rrrsRuleNames = mempty}+    {_rrrsRuleSetName = pRuleSetName_, _rrrsRuleNames = mempty}   -- | The name of the receipt rule set to reorder. rrrsRuleSetName :: Lens' ReorderReceiptRuleSet Text-rrrsRuleSetName = lens _rrrsRuleSetName (\ s a -> s{_rrrsRuleSetName = a});+rrrsRuleSetName = lens _rrrsRuleSetName (\ s a -> s{_rrrsRuleSetName = a})  -- | A list of the specified receipt rule set's receipt rules in the order that you want to put them. rrrsRuleNames :: Lens' ReorderReceiptRuleSet [Text]-rrrsRuleNames = lens _rrrsRuleNames (\ s a -> s{_rrrsRuleNames = a}) . _Coerce;+rrrsRuleNames = lens _rrrsRuleNames (\ s a -> s{_rrrsRuleNames = a}) . _Coerce  instance AWSRequest ReorderReceiptRuleSet where         type Rs ReorderReceiptRuleSet =@@ -134,6 +134,6 @@  -- | -- | The response status code. rrrsrsResponseStatus :: Lens' ReorderReceiptRuleSetResponse Int-rrrsrsResponseStatus = lens _rrrsrsResponseStatus (\ s a -> s{_rrrsrsResponseStatus = a});+rrrsrsResponseStatus = lens _rrrsrsResponseStatus (\ s a -> s{_rrrsrsResponseStatus = a})  instance NFData ReorderReceiptRuleSetResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.SendBounce--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -89,38 +89,38 @@     -> SendBounce sendBounce pOriginalMessageId_ pBounceSender_ =   SendBounce'-  { _sbMessageDsn = Nothing-  , _sbExplanation = Nothing-  , _sbBounceSenderARN = Nothing-  , _sbOriginalMessageId = pOriginalMessageId_-  , _sbBounceSender = pBounceSender_-  , _sbBouncedRecipientInfoList = mempty-  }+    { _sbMessageDsn = Nothing+    , _sbExplanation = Nothing+    , _sbBounceSenderARN = Nothing+    , _sbOriginalMessageId = pOriginalMessageId_+    , _sbBounceSender = pBounceSender_+    , _sbBouncedRecipientInfoList = mempty+    }   -- | Message-related DSN fields. If not specified, Amazon SES will choose the values. sbMessageDsn :: Lens' SendBounce (Maybe MessageDsn)-sbMessageDsn = lens _sbMessageDsn (\ s a -> s{_sbMessageDsn = a});+sbMessageDsn = lens _sbMessageDsn (\ s a -> s{_sbMessageDsn = a})  -- | Human-readable text for the bounce message to explain the failure. If not specified, the text will be auto-generated based on the bounced recipient information. sbExplanation :: Lens' SendBounce (Maybe Text)-sbExplanation = lens _sbExplanation (\ s a -> s{_sbExplanation = a});+sbExplanation = lens _sbExplanation (\ s a -> s{_sbExplanation = a})  -- | This parameter is used only for sending authorization. It is the ARN of the identity that is associated with the sending authorization policy that permits you to use the address in the "From" header of the bounce. For more information about sending authorization, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization.html Amazon SES Developer Guide> . sbBounceSenderARN :: Lens' SendBounce (Maybe Text)-sbBounceSenderARN = lens _sbBounceSenderARN (\ s a -> s{_sbBounceSenderARN = a});+sbBounceSenderARN = lens _sbBounceSenderARN (\ s a -> s{_sbBounceSenderARN = a})  -- | The message ID of the message to be bounced. sbOriginalMessageId :: Lens' SendBounce Text-sbOriginalMessageId = lens _sbOriginalMessageId (\ s a -> s{_sbOriginalMessageId = a});+sbOriginalMessageId = lens _sbOriginalMessageId (\ s a -> s{_sbOriginalMessageId = a})  -- | The address to use in the "From" header of the bounce message. This must be an identity that you have verified with Amazon SES. sbBounceSender :: Lens' SendBounce Text-sbBounceSender = lens _sbBounceSender (\ s a -> s{_sbBounceSender = a});+sbBounceSender = lens _sbBounceSender (\ s a -> s{_sbBounceSender = a})  -- | A list of recipients of the bounced message, including the information required to create the Delivery Status Notifications (DSNs) for the recipients. You must specify at least one @BouncedRecipientInfo@ in the list. sbBouncedRecipientInfoList :: Lens' SendBounce [BouncedRecipientInfo]-sbBouncedRecipientInfoList = lens _sbBouncedRecipientInfoList (\ s a -> s{_sbBouncedRecipientInfoList = a}) . _Coerce;+sbBouncedRecipientInfoList = lens _sbBouncedRecipientInfoList (\ s a -> s{_sbBouncedRecipientInfoList = a}) . _Coerce  instance AWSRequest SendBounce where         type Rs SendBounce = SendBounceResponse@@ -177,15 +177,15 @@     -> SendBounceResponse sendBounceResponse pResponseStatus_ =   SendBounceResponse'-  {_sbrsMessageId = Nothing, _sbrsResponseStatus = pResponseStatus_}+    {_sbrsMessageId = Nothing, _sbrsResponseStatus = pResponseStatus_}   -- | The message ID of the bounce message. sbrsMessageId :: Lens' SendBounceResponse (Maybe Text)-sbrsMessageId = lens _sbrsMessageId (\ s a -> s{_sbrsMessageId = a});+sbrsMessageId = lens _sbrsMessageId (\ s a -> s{_sbrsMessageId = a})  -- | -- | The response status code. sbrsResponseStatus :: Lens' SendBounceResponse Int-sbrsResponseStatus = lens _sbrsResponseStatus (\ s a -> s{_sbrsResponseStatus = a});+sbrsResponseStatus = lens _sbrsResponseStatus (\ s a -> s{_sbrsResponseStatus = a})  instance NFData SendBounceResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.SendBulkTemplatedEmail--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -108,7 +108,7 @@ -- -- * 'sbteReplyToAddresses' - The reply-to email address(es) for the message. If the recipient replies to the message, each reply-to address will receive the reply. ----- * 'sbteSource' - The email address that is sending the email. This email address must be either individually verified with Amazon SES, or from a domain that has been verified with Amazon SES. For information about verifying identities, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/verify-addresses-and-domains.html Amazon SES Developer Guide> . If you are sending on behalf of another user and have been permitted to do so by a sending authorization policy, then you must also specify the @SourceArn@ parameter. For more information about sending authorization, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization.html Amazon SES Developer Guide> . In all cases, the email address must be 7-bit ASCII. If the text must contain any other characters, then you must use MIME encoded-word syntax (RFC 2047) instead of a literal string. MIME encoded-word syntax uses the following form: @=?charset?encoding?encoded-text?=@ . For more information, see <https://tools.ietf.org/html/rfc2047 RFC 2047> .+-- * 'sbteSource' - The email address that is sending the email. This email address must be either individually verified with Amazon SES, or from a domain that has been verified with Amazon SES. For information about verifying identities, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/verify-addresses-and-domains.html Amazon SES Developer Guide> . If you are sending on behalf of another user and have been permitted to do so by a sending authorization policy, then you must also specify the @SourceArn@ parameter. For more information about sending authorization, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization.html Amazon SES Developer Guide> . -- -- * 'sbteTemplate' - The template to use when sending this email. --@@ -119,63 +119,63 @@     -> SendBulkTemplatedEmail sendBulkTemplatedEmail pSource_ pTemplate_ =   SendBulkTemplatedEmail'-  { _sbteReturnPath = Nothing-  , _sbteConfigurationSetName = Nothing-  , _sbteSourceARN = Nothing-  , _sbteDefaultTags = Nothing-  , _sbteReturnPathARN = Nothing-  , _sbteTemplateARN = Nothing-  , _sbteDefaultTemplateData = Nothing-  , _sbteReplyToAddresses = Nothing-  , _sbteSource = pSource_-  , _sbteTemplate = pTemplate_-  , _sbteDestinations = mempty-  }+    { _sbteReturnPath = Nothing+    , _sbteConfigurationSetName = Nothing+    , _sbteSourceARN = Nothing+    , _sbteDefaultTags = Nothing+    , _sbteReturnPathARN = Nothing+    , _sbteTemplateARN = Nothing+    , _sbteDefaultTemplateData = Nothing+    , _sbteReplyToAddresses = Nothing+    , _sbteSource = pSource_+    , _sbteTemplate = pTemplate_+    , _sbteDestinations = mempty+    }   -- | The email address that bounces and complaints will be forwarded to when feedback forwarding is enabled. If the message cannot be delivered to the recipient, then an error message will be returned from the recipient's ISP; this message will then be forwarded to the email address specified by the @ReturnPath@ parameter. The @ReturnPath@ parameter is never overwritten. This email address must be either individually verified with Amazon SES, or from a domain that has been verified with Amazon SES. sbteReturnPath :: Lens' SendBulkTemplatedEmail (Maybe Text)-sbteReturnPath = lens _sbteReturnPath (\ s a -> s{_sbteReturnPath = a});+sbteReturnPath = lens _sbteReturnPath (\ s a -> s{_sbteReturnPath = a})  -- | The name of the configuration set to use when you send an email using @SendBulkTemplatedEmail@ . sbteConfigurationSetName :: Lens' SendBulkTemplatedEmail (Maybe Text)-sbteConfigurationSetName = lens _sbteConfigurationSetName (\ s a -> s{_sbteConfigurationSetName = a});+sbteConfigurationSetName = lens _sbteConfigurationSetName (\ s a -> s{_sbteConfigurationSetName = a})  -- | This parameter is used only for sending authorization. It is the ARN of the identity that is associated with the sending authorization policy that permits you to send for the email address specified in the @Source@ parameter. For example, if the owner of @example.com@ (which has ARN @arn:aws:ses:us-east-1:123456789012:identity/example.com@ ) attaches a policy to it that authorizes you to send from @user@example.com@ , then you would specify the @SourceArn@ to be @arn:aws:ses:us-east-1:123456789012:identity/example.com@ , and the @Source@ to be @user@example.com@ . For more information about sending authorization, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization.html Amazon SES Developer Guide> . sbteSourceARN :: Lens' SendBulkTemplatedEmail (Maybe Text)-sbteSourceARN = lens _sbteSourceARN (\ s a -> s{_sbteSourceARN = a});+sbteSourceARN = lens _sbteSourceARN (\ s a -> s{_sbteSourceARN = a})  -- | A list of tags, in the form of name/value pairs, to apply to an email that you send to a destination using @SendBulkTemplatedEmail@ . sbteDefaultTags :: Lens' SendBulkTemplatedEmail [MessageTag]-sbteDefaultTags = lens _sbteDefaultTags (\ s a -> s{_sbteDefaultTags = a}) . _Default . _Coerce;+sbteDefaultTags = lens _sbteDefaultTags (\ s a -> s{_sbteDefaultTags = a}) . _Default . _Coerce  -- | This parameter is used only for sending authorization. It is the ARN of the identity that is associated with the sending authorization policy that permits you to use the email address specified in the @ReturnPath@ parameter. For example, if the owner of @example.com@ (which has ARN @arn:aws:ses:us-east-1:123456789012:identity/example.com@ ) attaches a policy to it that authorizes you to use @feedback@example.com@ , then you would specify the @ReturnPathArn@ to be @arn:aws:ses:us-east-1:123456789012:identity/example.com@ , and the @ReturnPath@ to be @feedback@example.com@ . For more information about sending authorization, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization.html Amazon SES Developer Guide> . sbteReturnPathARN :: Lens' SendBulkTemplatedEmail (Maybe Text)-sbteReturnPathARN = lens _sbteReturnPathARN (\ s a -> s{_sbteReturnPathARN = a});+sbteReturnPathARN = lens _sbteReturnPathARN (\ s a -> s{_sbteReturnPathARN = a})  -- | The ARN of the template to use when sending this email. sbteTemplateARN :: Lens' SendBulkTemplatedEmail (Maybe Text)-sbteTemplateARN = lens _sbteTemplateARN (\ s a -> s{_sbteTemplateARN = a});+sbteTemplateARN = lens _sbteTemplateARN (\ s a -> s{_sbteTemplateARN = a})  -- | A list of replacement values to apply to the template when replacement data is not specified in a Destination object. These values act as a default or fallback option when no other data is available. The template data is a JSON object, typically consisting of key-value pairs in which the keys correspond to replacement tags in the email template. sbteDefaultTemplateData :: Lens' SendBulkTemplatedEmail (Maybe Text)-sbteDefaultTemplateData = lens _sbteDefaultTemplateData (\ s a -> s{_sbteDefaultTemplateData = a});+sbteDefaultTemplateData = lens _sbteDefaultTemplateData (\ s a -> s{_sbteDefaultTemplateData = a})  -- | The reply-to email address(es) for the message. If the recipient replies to the message, each reply-to address will receive the reply. sbteReplyToAddresses :: Lens' SendBulkTemplatedEmail [Text]-sbteReplyToAddresses = lens _sbteReplyToAddresses (\ s a -> s{_sbteReplyToAddresses = a}) . _Default . _Coerce;+sbteReplyToAddresses = lens _sbteReplyToAddresses (\ s a -> s{_sbteReplyToAddresses = a}) . _Default . _Coerce --- | The email address that is sending the email. This email address must be either individually verified with Amazon SES, or from a domain that has been verified with Amazon SES. For information about verifying identities, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/verify-addresses-and-domains.html Amazon SES Developer Guide> . If you are sending on behalf of another user and have been permitted to do so by a sending authorization policy, then you must also specify the @SourceArn@ parameter. For more information about sending authorization, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization.html Amazon SES Developer Guide> . In all cases, the email address must be 7-bit ASCII. If the text must contain any other characters, then you must use MIME encoded-word syntax (RFC 2047) instead of a literal string. MIME encoded-word syntax uses the following form: @=?charset?encoding?encoded-text?=@ . For more information, see <https://tools.ietf.org/html/rfc2047 RFC 2047> .+-- | The email address that is sending the email. This email address must be either individually verified with Amazon SES, or from a domain that has been verified with Amazon SES. For information about verifying identities, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/verify-addresses-and-domains.html Amazon SES Developer Guide> . If you are sending on behalf of another user and have been permitted to do so by a sending authorization policy, then you must also specify the @SourceArn@ parameter. For more information about sending authorization, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization.html Amazon SES Developer Guide> . sbteSource :: Lens' SendBulkTemplatedEmail Text-sbteSource = lens _sbteSource (\ s a -> s{_sbteSource = a});+sbteSource = lens _sbteSource (\ s a -> s{_sbteSource = a})  -- | The template to use when sending this email. sbteTemplate :: Lens' SendBulkTemplatedEmail Text-sbteTemplate = lens _sbteTemplate (\ s a -> s{_sbteTemplate = a});+sbteTemplate = lens _sbteTemplate (\ s a -> s{_sbteTemplate = a})  -- | One or more @Destination@ objects. All of the recipients in a @Destination@ will receive the same version of the email. You can specify up to 50 @Destination@ objects within a @Destinations@ array. sbteDestinations :: Lens' SendBulkTemplatedEmail [BulkEmailDestination]-sbteDestinations = lens _sbteDestinations (\ s a -> s{_sbteDestinations = a}) . _Coerce;+sbteDestinations = lens _sbteDestinations (\ s a -> s{_sbteDestinations = a}) . _Coerce  instance AWSRequest SendBulkTemplatedEmail where         type Rs SendBulkTemplatedEmail =@@ -239,15 +239,15 @@     -> SendBulkTemplatedEmailResponse sendBulkTemplatedEmailResponse pResponseStatus_ =   SendBulkTemplatedEmailResponse'-  {_sbtersResponseStatus = pResponseStatus_, _sbtersStatus = mempty}+    {_sbtersResponseStatus = pResponseStatus_, _sbtersStatus = mempty}   -- | -- | The response status code. sbtersResponseStatus :: Lens' SendBulkTemplatedEmailResponse Int-sbtersResponseStatus = lens _sbtersResponseStatus (\ s a -> s{_sbtersResponseStatus = a});+sbtersResponseStatus = lens _sbtersResponseStatus (\ s a -> s{_sbtersResponseStatus = a})  -- | The unique message identifier returned from the @SendBulkTemplatedEmail@ action. sbtersStatus :: Lens' SendBulkTemplatedEmailResponse [BulkEmailDestinationStatus]-sbtersStatus = lens _sbtersStatus (\ s a -> s{_sbtersStatus = a}) . _Coerce;+sbtersStatus = lens _sbtersStatus (\ s a -> s{_sbtersStatus = a}) . _Coerce  instance NFData SendBulkTemplatedEmailResponse where

@@ -0,0 +1,164 @@+{-# 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.SendCustomVerificationEmail+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Adds an email address to the list of identities for your Amazon SES account and attempts to verify it. As a result of executing this operation, a customized verification email is sent to the specified address.+--+--+-- To use this operation, you must first create a custom verification email template. For more information about creating and using custom verification email templates, see <https://docs.aws.amazon.com/ses/latest/DeveloperGuide/custom-verification-emails.html Using Custom Verification Email Templates> in the /Amazon SES Developer Guide/ .+--+-- You can execute this operation no more than once per second.+--+module Network.AWS.SES.SendCustomVerificationEmail+    (+    -- * Creating a Request+      sendCustomVerificationEmail+    , SendCustomVerificationEmail+    -- * Request Lenses+    , scveConfigurationSetName+    , scveEmailAddress+    , scveTemplateName++    -- * Destructuring the Response+    , sendCustomVerificationEmailResponse+    , SendCustomVerificationEmailResponse+    -- * Response Lenses+    , scversMessageId+    , scversResponseStatus+    ) 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 send a custom verification email to a specified recipient.+--+--+--+-- /See:/ 'sendCustomVerificationEmail' smart constructor.+data SendCustomVerificationEmail = SendCustomVerificationEmail'+  { _scveConfigurationSetName :: !(Maybe Text)+  , _scveEmailAddress         :: !Text+  , _scveTemplateName         :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'SendCustomVerificationEmail' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'scveConfigurationSetName' - Name of a configuration set to use when sending the verification email.+--+-- * 'scveEmailAddress' - The email address to verify.+--+-- * 'scveTemplateName' - The name of the custom verification email template to use when sending the verification email.+sendCustomVerificationEmail+    :: Text -- ^ 'scveEmailAddress'+    -> Text -- ^ 'scveTemplateName'+    -> SendCustomVerificationEmail+sendCustomVerificationEmail pEmailAddress_ pTemplateName_ =+  SendCustomVerificationEmail'+    { _scveConfigurationSetName = Nothing+    , _scveEmailAddress = pEmailAddress_+    , _scveTemplateName = pTemplateName_+    }+++-- | Name of a configuration set to use when sending the verification email.+scveConfigurationSetName :: Lens' SendCustomVerificationEmail (Maybe Text)+scveConfigurationSetName = lens _scveConfigurationSetName (\ s a -> s{_scveConfigurationSetName = a})++-- | The email address to verify.+scveEmailAddress :: Lens' SendCustomVerificationEmail Text+scveEmailAddress = lens _scveEmailAddress (\ s a -> s{_scveEmailAddress = a})++-- | The name of the custom verification email template to use when sending the verification email.+scveTemplateName :: Lens' SendCustomVerificationEmail Text+scveTemplateName = lens _scveTemplateName (\ s a -> s{_scveTemplateName = a})++instance AWSRequest SendCustomVerificationEmail where+        type Rs SendCustomVerificationEmail =+             SendCustomVerificationEmailResponse+        request = postQuery ses+        response+          = receiveXMLWrapper+              "SendCustomVerificationEmailResult"+              (\ s h x ->+                 SendCustomVerificationEmailResponse' <$>+                   (x .@? "MessageId") <*> (pure (fromEnum s)))++instance Hashable SendCustomVerificationEmail where++instance NFData SendCustomVerificationEmail where++instance ToHeaders SendCustomVerificationEmail where+        toHeaders = const mempty++instance ToPath SendCustomVerificationEmail where+        toPath = const "/"++instance ToQuery SendCustomVerificationEmail where+        toQuery SendCustomVerificationEmail'{..}+          = mconcat+              ["Action" =:+                 ("SendCustomVerificationEmail" :: ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "ConfigurationSetName" =: _scveConfigurationSetName,+               "EmailAddress" =: _scveEmailAddress,+               "TemplateName" =: _scveTemplateName]++-- | The response received when attempting to send the custom verification email.+--+--+--+-- /See:/ 'sendCustomVerificationEmailResponse' smart constructor.+data SendCustomVerificationEmailResponse = SendCustomVerificationEmailResponse'+  { _scversMessageId      :: !(Maybe Text)+  , _scversResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'SendCustomVerificationEmailResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'scversMessageId' - The unique message identifier returned from the @SendCustomVerificationEmail@ operation.+--+-- * 'scversResponseStatus' - -- | The response status code.+sendCustomVerificationEmailResponse+    :: Int -- ^ 'scversResponseStatus'+    -> SendCustomVerificationEmailResponse+sendCustomVerificationEmailResponse pResponseStatus_ =+  SendCustomVerificationEmailResponse'+    {_scversMessageId = Nothing, _scversResponseStatus = pResponseStatus_}+++-- | The unique message identifier returned from the @SendCustomVerificationEmail@ operation.+scversMessageId :: Lens' SendCustomVerificationEmailResponse (Maybe Text)+scversMessageId = lens _scversMessageId (\ s a -> s{_scversMessageId = a})++-- | -- | The response status code.+scversResponseStatus :: Lens' SendCustomVerificationEmailResponse Int+scversResponseStatus = lens _scversResponseStatus (\ s a -> s{_scversResponseStatus = a})++instance NFData SendCustomVerificationEmailResponse+         where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.SendEmail--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -100,7 +100,7 @@ -- -- * 'seReplyToAddresses' - The reply-to email address(es) for the message. If the recipient replies to the message, each reply-to address will receive the reply. ----- * 'seSource' - The email address that is sending the email. This email address must be either individually verified with Amazon SES, or from a domain that has been verified with Amazon SES. For information about verifying identities, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/verify-addresses-and-domains.html Amazon SES Developer Guide> . If you are sending on behalf of another user and have been permitted to do so by a sending authorization policy, then you must also specify the @SourceArn@ parameter. For more information about sending authorization, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization.html Amazon SES Developer Guide> . In all cases, the email address must be 7-bit ASCII. If the text must contain any other characters, then you must use MIME encoded-word syntax (RFC 2047) instead of a literal string. MIME encoded-word syntax uses the following form: @=?charset?encoding?encoded-text?=@ . For more information, see <https://tools.ietf.org/html/rfc2047 RFC 2047> .+-- * 'seSource' - The email address that is sending the email. This email address must be either individually verified with Amazon SES, or from a domain that has been verified with Amazon SES. For information about verifying identities, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/verify-addresses-and-domains.html Amazon SES Developer Guide> . If you are sending on behalf of another user and have been permitted to do so by a sending authorization policy, then you must also specify the @SourceArn@ parameter. For more information about sending authorization, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization.html Amazon SES Developer Guide> . -- -- * 'seDestination' - The destination for this email, composed of To:, CC:, and BCC: fields. --@@ -112,53 +112,53 @@     -> SendEmail sendEmail pSource_ pDestination_ pMessage_ =   SendEmail'-  { _seReturnPath = Nothing-  , _seConfigurationSetName = Nothing-  , _seSourceARN = Nothing-  , _seReturnPathARN = Nothing-  , _seTags = Nothing-  , _seReplyToAddresses = Nothing-  , _seSource = pSource_-  , _seDestination = pDestination_-  , _seMessage = pMessage_-  }+    { _seReturnPath = Nothing+    , _seConfigurationSetName = Nothing+    , _seSourceARN = Nothing+    , _seReturnPathARN = Nothing+    , _seTags = Nothing+    , _seReplyToAddresses = Nothing+    , _seSource = pSource_+    , _seDestination = pDestination_+    , _seMessage = pMessage_+    }   -- | The email address that bounces and complaints will be forwarded to when feedback forwarding is enabled. If the message cannot be delivered to the recipient, then an error message will be returned from the recipient's ISP; this message will then be forwarded to the email address specified by the @ReturnPath@ parameter. The @ReturnPath@ parameter is never overwritten. This email address must be either individually verified with Amazon SES, or from a domain that has been verified with Amazon SES. seReturnPath :: Lens' SendEmail (Maybe Text)-seReturnPath = lens _seReturnPath (\ s a -> s{_seReturnPath = a});+seReturnPath = lens _seReturnPath (\ s a -> s{_seReturnPath = a})  -- | The name of the configuration set to use when you send an email using @SendEmail@ . seConfigurationSetName :: Lens' SendEmail (Maybe Text)-seConfigurationSetName = lens _seConfigurationSetName (\ s a -> s{_seConfigurationSetName = a});+seConfigurationSetName = lens _seConfigurationSetName (\ s a -> s{_seConfigurationSetName = a})  -- | This parameter is used only for sending authorization. It is the ARN of the identity that is associated with the sending authorization policy that permits you to send for the email address specified in the @Source@ parameter. For example, if the owner of @example.com@ (which has ARN @arn:aws:ses:us-east-1:123456789012:identity/example.com@ ) attaches a policy to it that authorizes you to send from @user@example.com@ , then you would specify the @SourceArn@ to be @arn:aws:ses:us-east-1:123456789012:identity/example.com@ , and the @Source@ to be @user@example.com@ . For more information about sending authorization, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization.html Amazon SES Developer Guide> . seSourceARN :: Lens' SendEmail (Maybe Text)-seSourceARN = lens _seSourceARN (\ s a -> s{_seSourceARN = a});+seSourceARN = lens _seSourceARN (\ s a -> s{_seSourceARN = a})  -- | This parameter is used only for sending authorization. It is the ARN of the identity that is associated with the sending authorization policy that permits you to use the email address specified in the @ReturnPath@ parameter. For example, if the owner of @example.com@ (which has ARN @arn:aws:ses:us-east-1:123456789012:identity/example.com@ ) attaches a policy to it that authorizes you to use @feedback@example.com@ , then you would specify the @ReturnPathArn@ to be @arn:aws:ses:us-east-1:123456789012:identity/example.com@ , and the @ReturnPath@ to be @feedback@example.com@ . For more information about sending authorization, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization.html Amazon SES Developer Guide> . seReturnPathARN :: Lens' SendEmail (Maybe Text)-seReturnPathARN = lens _seReturnPathARN (\ s a -> s{_seReturnPathARN = a});+seReturnPathARN = lens _seReturnPathARN (\ s a -> s{_seReturnPathARN = a})  -- | A list of tags, in the form of name/value pairs, to apply to an email that you send using @SendEmail@ . Tags correspond to characteristics of the email that you define, so that you can publish email sending events. seTags :: Lens' SendEmail [MessageTag]-seTags = lens _seTags (\ s a -> s{_seTags = a}) . _Default . _Coerce;+seTags = lens _seTags (\ s a -> s{_seTags = a}) . _Default . _Coerce  -- | The reply-to email address(es) for the message. If the recipient replies to the message, each reply-to address will receive the reply. seReplyToAddresses :: Lens' SendEmail [Text]-seReplyToAddresses = lens _seReplyToAddresses (\ s a -> s{_seReplyToAddresses = a}) . _Default . _Coerce;+seReplyToAddresses = lens _seReplyToAddresses (\ s a -> s{_seReplyToAddresses = a}) . _Default . _Coerce --- | The email address that is sending the email. This email address must be either individually verified with Amazon SES, or from a domain that has been verified with Amazon SES. For information about verifying identities, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/verify-addresses-and-domains.html Amazon SES Developer Guide> . If you are sending on behalf of another user and have been permitted to do so by a sending authorization policy, then you must also specify the @SourceArn@ parameter. For more information about sending authorization, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization.html Amazon SES Developer Guide> . In all cases, the email address must be 7-bit ASCII. If the text must contain any other characters, then you must use MIME encoded-word syntax (RFC 2047) instead of a literal string. MIME encoded-word syntax uses the following form: @=?charset?encoding?encoded-text?=@ . For more information, see <https://tools.ietf.org/html/rfc2047 RFC 2047> .+-- | The email address that is sending the email. This email address must be either individually verified with Amazon SES, or from a domain that has been verified with Amazon SES. For information about verifying identities, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/verify-addresses-and-domains.html Amazon SES Developer Guide> . If you are sending on behalf of another user and have been permitted to do so by a sending authorization policy, then you must also specify the @SourceArn@ parameter. For more information about sending authorization, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization.html Amazon SES Developer Guide> . seSource :: Lens' SendEmail Text-seSource = lens _seSource (\ s a -> s{_seSource = a});+seSource = lens _seSource (\ s a -> s{_seSource = a})  -- | The destination for this email, composed of To:, CC:, and BCC: fields. seDestination :: Lens' SendEmail Destination-seDestination = lens _seDestination (\ s a -> s{_seDestination = a});+seDestination = lens _seDestination (\ s a -> s{_seDestination = a})  -- | The message to be sent. seMessage :: Lens' SendEmail Message-seMessage = lens _seMessage (\ s a -> s{_seMessage = a});+seMessage = lens _seMessage (\ s a -> s{_seMessage = a})  instance AWSRequest SendEmail where         type Rs SendEmail = SendEmailResponse@@ -220,15 +220,15 @@     -> SendEmailResponse sendEmailResponse pResponseStatus_ pMessageId_ =   SendEmailResponse'-  {_sersResponseStatus = pResponseStatus_, _sersMessageId = pMessageId_}+    {_sersResponseStatus = pResponseStatus_, _sersMessageId = pMessageId_}   -- | -- | The response status code. sersResponseStatus :: Lens' SendEmailResponse Int-sersResponseStatus = lens _sersResponseStatus (\ s a -> s{_sersResponseStatus = a});+sersResponseStatus = lens _sersResponseStatus (\ s a -> s{_sersResponseStatus = a})  -- | The unique message identifier returned from the @SendEmail@ action. sersMessageId :: Lens' SendEmailResponse Text-sersMessageId = lens _sersMessageId (\ s a -> s{_sersMessageId = a});+sersMessageId = lens _sersMessageId (\ s a -> s{_sersMessageId = a})  instance NFData SendEmailResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.SendRawEmail--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -116,7 +116,7 @@ -- -- * 'sreReturnPathARN' - This parameter is used only for sending authorization. It is the ARN of the identity that is associated with the sending authorization policy that permits you to use the email address specified in the @ReturnPath@ parameter. For example, if the owner of @example.com@ (which has ARN @arn:aws:ses:us-east-1:123456789012:identity/example.com@ ) attaches a policy to it that authorizes you to use @feedback@example.com@ , then you would specify the @ReturnPathArn@ to be @arn:aws:ses:us-east-1:123456789012:identity/example.com@ , and the @ReturnPath@ to be @feedback@example.com@ . Instead of using this parameter, you can use the X-header @X-SES-RETURN-PATH-ARN@ in the raw message of the email. If you use both the @ReturnPathArn@ parameter and the corresponding X-header, Amazon SES uses the value of the @ReturnPathArn@ parameter. ----- * 'sreSource' - The identity's email address. If you do not provide a value for this parameter, you must specify a "From" address in the raw text of the message. (You can also specify both.) By default, the string must be 7-bit ASCII. If the text must contain any other characters, then you must use MIME encoded-word syntax (RFC 2047) instead of a literal string. MIME encoded-word syntax uses the following form: @=?charset?encoding?encoded-text?=@ . For more information, see <https://tools.ietf.org/html/rfc2047 RFC 2047> .+-- * 'sreSource' - The identity's email address. If you do not provide a value for this parameter, you must specify a "From" address in the raw text of the message. (You can also specify both.) If you specify the @Source@ parameter and have feedback forwarding enabled, then bounces and complaints will be sent to this email address. This takes precedence over any Return-Path header that you might include in the raw text of the message. -- -- * 'sreFromARN' - This parameter is used only for sending authorization. It is the ARN of the identity that is associated with the sending authorization policy that permits you to specify a particular "From" address in the header of the raw email. Instead of using this parameter, you can use the X-header @X-SES-FROM-ARN@ in the raw message of the email. If you use both the @FromArn@ parameter and the corresponding X-header, Amazon SES uses the value of the @FromArn@ parameter. --@@ -128,48 +128,48 @@     -> SendRawEmail sendRawEmail pRawMessage_ =   SendRawEmail'-  { _sreConfigurationSetName = Nothing-  , _sreSourceARN = Nothing-  , _sreDestinations = Nothing-  , _sreReturnPathARN = Nothing-  , _sreSource = Nothing-  , _sreFromARN = Nothing-  , _sreTags = Nothing-  , _sreRawMessage = pRawMessage_-  }+    { _sreConfigurationSetName = Nothing+    , _sreSourceARN = Nothing+    , _sreDestinations = Nothing+    , _sreReturnPathARN = Nothing+    , _sreSource = Nothing+    , _sreFromARN = Nothing+    , _sreTags = Nothing+    , _sreRawMessage = pRawMessage_+    }   -- | The name of the configuration set to use when you send an email using @SendRawEmail@ . sreConfigurationSetName :: Lens' SendRawEmail (Maybe Text)-sreConfigurationSetName = lens _sreConfigurationSetName (\ s a -> s{_sreConfigurationSetName = a});+sreConfigurationSetName = lens _sreConfigurationSetName (\ s a -> s{_sreConfigurationSetName = a})  -- | This parameter is used only for sending authorization. It is the ARN of the identity that is associated with the sending authorization policy that permits you to send for the email address specified in the @Source@ parameter. For example, if the owner of @example.com@ (which has ARN @arn:aws:ses:us-east-1:123456789012:identity/example.com@ ) attaches a policy to it that authorizes you to send from @user@example.com@ , then you would specify the @SourceArn@ to be @arn:aws:ses:us-east-1:123456789012:identity/example.com@ , and the @Source@ to be @user@example.com@ . Instead of using this parameter, you can use the X-header @X-SES-SOURCE-ARN@ in the raw message of the email. If you use both the @SourceArn@ parameter and the corresponding X-header, Amazon SES uses the value of the @SourceArn@ parameter. sreSourceARN :: Lens' SendRawEmail (Maybe Text)-sreSourceARN = lens _sreSourceARN (\ s a -> s{_sreSourceARN = a});+sreSourceARN = lens _sreSourceARN (\ s a -> s{_sreSourceARN = a})  -- | A list of destinations for the message, consisting of To:, CC:, and BCC: addresses. sreDestinations :: Lens' SendRawEmail [Text]-sreDestinations = lens _sreDestinations (\ s a -> s{_sreDestinations = a}) . _Default . _Coerce;+sreDestinations = lens _sreDestinations (\ s a -> s{_sreDestinations = a}) . _Default . _Coerce  -- | This parameter is used only for sending authorization. It is the ARN of the identity that is associated with the sending authorization policy that permits you to use the email address specified in the @ReturnPath@ parameter. For example, if the owner of @example.com@ (which has ARN @arn:aws:ses:us-east-1:123456789012:identity/example.com@ ) attaches a policy to it that authorizes you to use @feedback@example.com@ , then you would specify the @ReturnPathArn@ to be @arn:aws:ses:us-east-1:123456789012:identity/example.com@ , and the @ReturnPath@ to be @feedback@example.com@ . Instead of using this parameter, you can use the X-header @X-SES-RETURN-PATH-ARN@ in the raw message of the email. If you use both the @ReturnPathArn@ parameter and the corresponding X-header, Amazon SES uses the value of the @ReturnPathArn@ parameter. sreReturnPathARN :: Lens' SendRawEmail (Maybe Text)-sreReturnPathARN = lens _sreReturnPathARN (\ s a -> s{_sreReturnPathARN = a});+sreReturnPathARN = lens _sreReturnPathARN (\ s a -> s{_sreReturnPathARN = a}) --- | The identity's email address. If you do not provide a value for this parameter, you must specify a "From" address in the raw text of the message. (You can also specify both.) By default, the string must be 7-bit ASCII. If the text must contain any other characters, then you must use MIME encoded-word syntax (RFC 2047) instead of a literal string. MIME encoded-word syntax uses the following form: @=?charset?encoding?encoded-text?=@ . For more information, see <https://tools.ietf.org/html/rfc2047 RFC 2047> .+-- | The identity's email address. If you do not provide a value for this parameter, you must specify a "From" address in the raw text of the message. (You can also specify both.) If you specify the @Source@ parameter and have feedback forwarding enabled, then bounces and complaints will be sent to this email address. This takes precedence over any Return-Path header that you might include in the raw text of the message. sreSource :: Lens' SendRawEmail (Maybe Text)-sreSource = lens _sreSource (\ s a -> s{_sreSource = a});+sreSource = lens _sreSource (\ s a -> s{_sreSource = a})  -- | This parameter is used only for sending authorization. It is the ARN of the identity that is associated with the sending authorization policy that permits you to specify a particular "From" address in the header of the raw email. Instead of using this parameter, you can use the X-header @X-SES-FROM-ARN@ in the raw message of the email. If you use both the @FromArn@ parameter and the corresponding X-header, Amazon SES uses the value of the @FromArn@ parameter. sreFromARN :: Lens' SendRawEmail (Maybe Text)-sreFromARN = lens _sreFromARN (\ s a -> s{_sreFromARN = a});+sreFromARN = lens _sreFromARN (\ s a -> s{_sreFromARN = a})  -- | A list of tags, in the form of name/value pairs, to apply to an email that you send using @SendRawEmail@ . Tags correspond to characteristics of the email that you define, so that you can publish email sending events. sreTags :: Lens' SendRawEmail [MessageTag]-sreTags = lens _sreTags (\ s a -> s{_sreTags = a}) . _Default . _Coerce;+sreTags = lens _sreTags (\ s a -> s{_sreTags = a}) . _Default . _Coerce  -- | 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> .     * Must be base64-encoded.     * Per <https://tools.ietf.org/html/rfc5321#section-4.5.3.1.6 RFC 5321> , the maximum length of each line of text, including the <CRLF>, must not exceed 1,000 characters. sreRawMessage :: Lens' SendRawEmail RawMessage-sreRawMessage = lens _sreRawMessage (\ s a -> s{_sreRawMessage = a});+sreRawMessage = lens _sreRawMessage (\ s a -> s{_sreRawMessage = a})  instance AWSRequest SendRawEmail where         type Rs SendRawEmail = SendRawEmailResponse@@ -229,15 +229,15 @@     -> SendRawEmailResponse sendRawEmailResponse pResponseStatus_ pMessageId_ =   SendRawEmailResponse'-  {_srersResponseStatus = pResponseStatus_, _srersMessageId = pMessageId_}+    {_srersResponseStatus = pResponseStatus_, _srersMessageId = pMessageId_}   -- | -- | The response status code. srersResponseStatus :: Lens' SendRawEmailResponse Int-srersResponseStatus = lens _srersResponseStatus (\ s a -> s{_srersResponseStatus = a});+srersResponseStatus = lens _srersResponseStatus (\ s a -> s{_srersResponseStatus = a})  -- | The unique message identifier returned from the @SendRawEmail@ action. srersMessageId :: Lens' SendRawEmailResponse Text-srersMessageId = lens _srersMessageId (\ s a -> s{_srersMessageId = a});+srersMessageId = lens _srersMessageId (\ s a -> s{_srersMessageId = a})  instance NFData SendRawEmailResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.SendTemplatedEmail--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -108,7 +108,7 @@ -- -- * 'steReplyToAddresses' - The reply-to email address(es) for the message. If the recipient replies to the message, each reply-to address will receive the reply. ----- * 'steSource' - The email address that is sending the email. This email address must be either individually verified with Amazon SES, or from a domain that has been verified with Amazon SES. For information about verifying identities, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/verify-addresses-and-domains.html Amazon SES Developer Guide> . If you are sending on behalf of another user and have been permitted to do so by a sending authorization policy, then you must also specify the @SourceArn@ parameter. For more information about sending authorization, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization.html Amazon SES Developer Guide> . In all cases, the email address must be 7-bit ASCII. If the text must contain any other characters, then you must use MIME encoded-word syntax (RFC 2047) instead of a literal string. MIME encoded-word syntax uses the following form: @=?charset?encoding?encoded-text?=@ . For more information, see <https://tools.ietf.org/html/rfc2047 RFC 2047> .+-- * 'steSource' - The email address that is sending the email. This email address must be either individually verified with Amazon SES, or from a domain that has been verified with Amazon SES. For information about verifying identities, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/verify-addresses-and-domains.html Amazon SES Developer Guide> . If you are sending on behalf of another user and have been permitted to do so by a sending authorization policy, then you must also specify the @SourceArn@ parameter. For more information about sending authorization, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization.html Amazon SES Developer Guide> . -- -- * 'steDestination' - The destination for this email, composed of To:, CC:, and BCC: fields. A Destination can include up to 50 recipients across these three fields. --@@ -123,63 +123,63 @@     -> SendTemplatedEmail sendTemplatedEmail pSource_ pDestination_ pTemplate_ pTemplateData_ =   SendTemplatedEmail'-  { _steReturnPath = Nothing-  , _steConfigurationSetName = Nothing-  , _steSourceARN = Nothing-  , _steReturnPathARN = Nothing-  , _steTemplateARN = Nothing-  , _steTags = Nothing-  , _steReplyToAddresses = Nothing-  , _steSource = pSource_-  , _steDestination = pDestination_-  , _steTemplate = pTemplate_-  , _steTemplateData = pTemplateData_-  }+    { _steReturnPath = Nothing+    , _steConfigurationSetName = Nothing+    , _steSourceARN = Nothing+    , _steReturnPathARN = Nothing+    , _steTemplateARN = Nothing+    , _steTags = Nothing+    , _steReplyToAddresses = Nothing+    , _steSource = pSource_+    , _steDestination = pDestination_+    , _steTemplate = pTemplate_+    , _steTemplateData = pTemplateData_+    }   -- | The email address that bounces and complaints will be forwarded to when feedback forwarding is enabled. If the message cannot be delivered to the recipient, then an error message will be returned from the recipient's ISP; this message will then be forwarded to the email address specified by the @ReturnPath@ parameter. The @ReturnPath@ parameter is never overwritten. This email address must be either individually verified with Amazon SES, or from a domain that has been verified with Amazon SES. steReturnPath :: Lens' SendTemplatedEmail (Maybe Text)-steReturnPath = lens _steReturnPath (\ s a -> s{_steReturnPath = a});+steReturnPath = lens _steReturnPath (\ s a -> s{_steReturnPath = a})  -- | The name of the configuration set to use when you send an email using @SendTemplatedEmail@ . steConfigurationSetName :: Lens' SendTemplatedEmail (Maybe Text)-steConfigurationSetName = lens _steConfigurationSetName (\ s a -> s{_steConfigurationSetName = a});+steConfigurationSetName = lens _steConfigurationSetName (\ s a -> s{_steConfigurationSetName = a})  -- | This parameter is used only for sending authorization. It is the ARN of the identity that is associated with the sending authorization policy that permits you to send for the email address specified in the @Source@ parameter. For example, if the owner of @example.com@ (which has ARN @arn:aws:ses:us-east-1:123456789012:identity/example.com@ ) attaches a policy to it that authorizes you to send from @user@example.com@ , then you would specify the @SourceArn@ to be @arn:aws:ses:us-east-1:123456789012:identity/example.com@ , and the @Source@ to be @user@example.com@ . For more information about sending authorization, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization.html Amazon SES Developer Guide> . steSourceARN :: Lens' SendTemplatedEmail (Maybe Text)-steSourceARN = lens _steSourceARN (\ s a -> s{_steSourceARN = a});+steSourceARN = lens _steSourceARN (\ s a -> s{_steSourceARN = a})  -- | This parameter is used only for sending authorization. It is the ARN of the identity that is associated with the sending authorization policy that permits you to use the email address specified in the @ReturnPath@ parameter. For example, if the owner of @example.com@ (which has ARN @arn:aws:ses:us-east-1:123456789012:identity/example.com@ ) attaches a policy to it that authorizes you to use @feedback@example.com@ , then you would specify the @ReturnPathArn@ to be @arn:aws:ses:us-east-1:123456789012:identity/example.com@ , and the @ReturnPath@ to be @feedback@example.com@ . For more information about sending authorization, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization.html Amazon SES Developer Guide> . steReturnPathARN :: Lens' SendTemplatedEmail (Maybe Text)-steReturnPathARN = lens _steReturnPathARN (\ s a -> s{_steReturnPathARN = a});+steReturnPathARN = lens _steReturnPathARN (\ s a -> s{_steReturnPathARN = a})  -- | The ARN of the template to use when sending this email. steTemplateARN :: Lens' SendTemplatedEmail (Maybe Text)-steTemplateARN = lens _steTemplateARN (\ s a -> s{_steTemplateARN = a});+steTemplateARN = lens _steTemplateARN (\ s a -> s{_steTemplateARN = a})  -- | A list of tags, in the form of name/value pairs, to apply to an email that you send using @SendTemplatedEmail@ . Tags correspond to characteristics of the email that you define, so that you can publish email sending events. steTags :: Lens' SendTemplatedEmail [MessageTag]-steTags = lens _steTags (\ s a -> s{_steTags = a}) . _Default . _Coerce;+steTags = lens _steTags (\ s a -> s{_steTags = a}) . _Default . _Coerce  -- | The reply-to email address(es) for the message. If the recipient replies to the message, each reply-to address will receive the reply. steReplyToAddresses :: Lens' SendTemplatedEmail [Text]-steReplyToAddresses = lens _steReplyToAddresses (\ s a -> s{_steReplyToAddresses = a}) . _Default . _Coerce;+steReplyToAddresses = lens _steReplyToAddresses (\ s a -> s{_steReplyToAddresses = a}) . _Default . _Coerce --- | The email address that is sending the email. This email address must be either individually verified with Amazon SES, or from a domain that has been verified with Amazon SES. For information about verifying identities, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/verify-addresses-and-domains.html Amazon SES Developer Guide> . If you are sending on behalf of another user and have been permitted to do so by a sending authorization policy, then you must also specify the @SourceArn@ parameter. For more information about sending authorization, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization.html Amazon SES Developer Guide> . In all cases, the email address must be 7-bit ASCII. If the text must contain any other characters, then you must use MIME encoded-word syntax (RFC 2047) instead of a literal string. MIME encoded-word syntax uses the following form: @=?charset?encoding?encoded-text?=@ . For more information, see <https://tools.ietf.org/html/rfc2047 RFC 2047> .+-- | The email address that is sending the email. This email address must be either individually verified with Amazon SES, or from a domain that has been verified with Amazon SES. For information about verifying identities, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/verify-addresses-and-domains.html Amazon SES Developer Guide> . If you are sending on behalf of another user and have been permitted to do so by a sending authorization policy, then you must also specify the @SourceArn@ parameter. For more information about sending authorization, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization.html Amazon SES Developer Guide> . steSource :: Lens' SendTemplatedEmail Text-steSource = lens _steSource (\ s a -> s{_steSource = a});+steSource = lens _steSource (\ s a -> s{_steSource = a})  -- | The destination for this email, composed of To:, CC:, and BCC: fields. A Destination can include up to 50 recipients across these three fields. steDestination :: Lens' SendTemplatedEmail Destination-steDestination = lens _steDestination (\ s a -> s{_steDestination = a});+steDestination = lens _steDestination (\ s a -> s{_steDestination = a})  -- | The template to use when sending this email. steTemplate :: Lens' SendTemplatedEmail Text-steTemplate = lens _steTemplate (\ s a -> s{_steTemplate = a});+steTemplate = lens _steTemplate (\ s a -> s{_steTemplate = a})  -- | A list of replacement values to apply to the template. This parameter is a JSON object, typically consisting of key-value pairs in which the keys correspond to replacement tags in the email template. steTemplateData :: Lens' SendTemplatedEmail Text-steTemplateData = lens _steTemplateData (\ s a -> s{_steTemplateData = a});+steTemplateData = lens _steTemplateData (\ s a -> s{_steTemplateData = a})  instance AWSRequest SendTemplatedEmail where         type Rs SendTemplatedEmail =@@ -241,15 +241,15 @@     -> SendTemplatedEmailResponse sendTemplatedEmailResponse pResponseStatus_ pMessageId_ =   SendTemplatedEmailResponse'-  {_stersResponseStatus = pResponseStatus_, _stersMessageId = pMessageId_}+    {_stersResponseStatus = pResponseStatus_, _stersMessageId = pMessageId_}   -- | -- | The response status code. stersResponseStatus :: Lens' SendTemplatedEmailResponse Int-stersResponseStatus = lens _stersResponseStatus (\ s a -> s{_stersResponseStatus = a});+stersResponseStatus = lens _stersResponseStatus (\ s a -> s{_stersResponseStatus = a})  -- | The unique message identifier returned from the @SendTemplatedEmail@ action. stersMessageId :: Lens' SendTemplatedEmailResponse Text-stersMessageId = lens _stersMessageId (\ s a -> s{_stersMessageId = a});+stersMessageId = lens _stersMessageId (\ s a -> s{_stersMessageId = a})  instance NFData SendTemplatedEmailResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.SetActiveReceiptRuleSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,7 +69,7 @@  -- | The name of the receipt rule set to make active. Setting this value to null disables all email receiving. sarrsRuleSetName :: Lens' SetActiveReceiptRuleSet (Maybe Text)-sarrsRuleSetName = lens _sarrsRuleSetName (\ s a -> s{_sarrsRuleSetName = a});+sarrsRuleSetName = lens _sarrsRuleSetName (\ s a -> s{_sarrsRuleSetName = a})  instance AWSRequest SetActiveReceiptRuleSet where         type Rs SetActiveReceiptRuleSet =@@ -123,6 +123,6 @@  -- | -- | The response status code. sarrsrsResponseStatus :: Lens' SetActiveReceiptRuleSetResponse Int-sarrsrsResponseStatus = lens _sarrsrsResponseStatus (\ s a -> s{_sarrsrsResponseStatus = a});+sarrsrsResponseStatus = lens _sarrsrsResponseStatus (\ s a -> s{_sarrsrsResponseStatus = a})  instance NFData SetActiveReceiptRuleSetResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.SetIdentityDkimEnabled--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -80,16 +80,16 @@     -> SetIdentityDkimEnabled setIdentityDkimEnabled pIdentity_ pDkimEnabled_ =   SetIdentityDkimEnabled'-  {_sideIdentity = pIdentity_, _sideDkimEnabled = pDkimEnabled_}+    {_sideIdentity = pIdentity_, _sideDkimEnabled = pDkimEnabled_}   -- | The identity for which DKIM signing should be enabled or disabled. sideIdentity :: Lens' SetIdentityDkimEnabled Text-sideIdentity = lens _sideIdentity (\ s a -> s{_sideIdentity = a});+sideIdentity = lens _sideIdentity (\ s a -> s{_sideIdentity = a})  -- | Sets whether DKIM signing is enabled for an identity. Set to @true@ to enable DKIM signing for this identity; @false@ to disable it. sideDkimEnabled :: Lens' SetIdentityDkimEnabled Bool-sideDkimEnabled = lens _sideDkimEnabled (\ s a -> s{_sideDkimEnabled = a});+sideDkimEnabled = lens _sideDkimEnabled (\ s a -> s{_sideDkimEnabled = a})  instance AWSRequest SetIdentityDkimEnabled where         type Rs SetIdentityDkimEnabled =@@ -144,6 +144,6 @@  -- | -- | The response status code. sidersResponseStatus :: Lens' SetIdentityDkimEnabledResponse Int-sidersResponseStatus = lens _sidersResponseStatus (\ s a -> s{_sidersResponseStatus = a});+sidersResponseStatus = lens _sidersResponseStatus (\ s a -> s{_sidersResponseStatus = a})  instance NFData SetIdentityDkimEnabledResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.SetIdentityFeedbackForwardingEnabled--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -72,16 +72,16 @@     -> SetIdentityFeedbackForwardingEnabled setIdentityFeedbackForwardingEnabled pIdentity_ pForwardingEnabled_ =   SetIdentityFeedbackForwardingEnabled'-  {_siffeIdentity = pIdentity_, _siffeForwardingEnabled = pForwardingEnabled_}+    {_siffeIdentity = pIdentity_, _siffeForwardingEnabled = pForwardingEnabled_}   -- | The identity for which to set bounce and complaint notification forwarding. Examples: @user@example.com@ , @example.com@ . siffeIdentity :: Lens' SetIdentityFeedbackForwardingEnabled Text-siffeIdentity = lens _siffeIdentity (\ s a -> s{_siffeIdentity = a});+siffeIdentity = lens _siffeIdentity (\ s a -> s{_siffeIdentity = a})  -- | Sets whether Amazon SES will forward bounce and complaint notifications as email. @true@ specifies that Amazon SES will forward bounce and complaint notifications as email, in addition to any Amazon SNS topic publishing otherwise specified. @false@ specifies that Amazon SES will publish bounce and complaint notifications only through Amazon SNS. This value can only be set to @false@ when Amazon SNS topics are set for both @Bounce@ and @Complaint@ notification types. siffeForwardingEnabled :: Lens' SetIdentityFeedbackForwardingEnabled Bool-siffeForwardingEnabled = lens _siffeForwardingEnabled (\ s a -> s{_siffeForwardingEnabled = a});+siffeForwardingEnabled = lens _siffeForwardingEnabled (\ s a -> s{_siffeForwardingEnabled = a})  instance AWSRequest            SetIdentityFeedbackForwardingEnabled@@ -143,12 +143,12 @@     -> SetIdentityFeedbackForwardingEnabledResponse setIdentityFeedbackForwardingEnabledResponse pResponseStatus_ =   SetIdentityFeedbackForwardingEnabledResponse'-  {_siffersResponseStatus = pResponseStatus_}+    {_siffersResponseStatus = pResponseStatus_}   -- | -- | The response status code. siffersResponseStatus :: Lens' SetIdentityFeedbackForwardingEnabledResponse Int-siffersResponseStatus = lens _siffersResponseStatus (\ s a -> s{_siffersResponseStatus = a});+siffersResponseStatus = lens _siffersResponseStatus (\ s a -> s{_siffersResponseStatus = a})  instance NFData            SetIdentityFeedbackForwardingEnabledResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.SetIdentityHeadersInNotificationsEnabled--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -77,23 +77,23 @@     -> SetIdentityHeadersInNotificationsEnabled setIdentityHeadersInNotificationsEnabled pIdentity_ pNotificationType_ pEnabled_ =   SetIdentityHeadersInNotificationsEnabled'-  { _sihineIdentity = pIdentity_-  , _sihineNotificationType = pNotificationType_-  , _sihineEnabled = pEnabled_-  }+    { _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});+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});+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});+sihineEnabled = lens _sihineEnabled (\ s a -> s{_sihineEnabled = a})  instance AWSRequest            SetIdentityHeadersInNotificationsEnabled@@ -159,12 +159,12 @@     -> SetIdentityHeadersInNotificationsEnabledResponse setIdentityHeadersInNotificationsEnabledResponse pResponseStatus_ =   SetIdentityHeadersInNotificationsEnabledResponse'-  {_sihinersResponseStatus = pResponseStatus_}+    {_sihinersResponseStatus = pResponseStatus_}   -- | -- | The response status code. sihinersResponseStatus :: Lens' SetIdentityHeadersInNotificationsEnabledResponse Int-sihinersResponseStatus = lens _sihinersResponseStatus (\ s a -> s{_sihinersResponseStatus = a});+sihinersResponseStatus = lens _sihinersResponseStatus (\ s a -> s{_sihinersResponseStatus = a})  instance NFData            SetIdentityHeadersInNotificationsEnabledResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.SetIdentityMailFromDomain--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -75,23 +75,23 @@     -> SetIdentityMailFromDomain setIdentityMailFromDomain pIdentity_ =   SetIdentityMailFromDomain'-  { _simfdMailFromDomain = Nothing-  , _simfdBehaviorOnMXFailure = Nothing-  , _simfdIdentity = pIdentity_-  }+    { _simfdMailFromDomain = Nothing+    , _simfdBehaviorOnMXFailure = Nothing+    , _simfdIdentity = pIdentity_+    }   -- | The custom MAIL FROM domain that you want the verified identity to use. The MAIL FROM domain must 1) be a subdomain of the verified identity, 2) not be used in a "From" address if the MAIL FROM domain is the destination of email feedback forwarding (for more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/mail-from.html Amazon SES Developer Guide> ), and 3) not be used to receive emails. A value of @null@ disables the custom MAIL FROM setting for the identity. simfdMailFromDomain :: Lens' SetIdentityMailFromDomain (Maybe Text)-simfdMailFromDomain = lens _simfdMailFromDomain (\ s a -> s{_simfdMailFromDomain = a});+simfdMailFromDomain = lens _simfdMailFromDomain (\ s a -> s{_simfdMailFromDomain = a})  -- | The action that you want Amazon SES to take if it cannot successfully read the required MX record when you send an email. If you choose @UseDefaultValue@ , Amazon SES will use amazonses.com (or a subdomain of that) as the MAIL FROM domain. If you choose @RejectMessage@ , Amazon SES will return a @MailFromDomainNotVerified@ error and not send the email. The action specified in @BehaviorOnMXFailure@ is taken when the custom MAIL FROM domain setup is in the @Pending@ , @Failed@ , and @TemporaryFailure@ states. simfdBehaviorOnMXFailure :: Lens' SetIdentityMailFromDomain (Maybe BehaviorOnMXFailure)-simfdBehaviorOnMXFailure = lens _simfdBehaviorOnMXFailure (\ s a -> s{_simfdBehaviorOnMXFailure = a});+simfdBehaviorOnMXFailure = lens _simfdBehaviorOnMXFailure (\ s a -> s{_simfdBehaviorOnMXFailure = a})  -- | The verified identity for which you want to enable or disable the specified custom MAIL FROM domain. simfdIdentity :: Lens' SetIdentityMailFromDomain Text-simfdIdentity = lens _simfdIdentity (\ s a -> s{_simfdIdentity = a});+simfdIdentity = lens _simfdIdentity (\ s a -> s{_simfdIdentity = a})  instance AWSRequest SetIdentityMailFromDomain where         type Rs SetIdentityMailFromDomain =@@ -147,7 +147,7 @@  -- | -- | The response status code. simfdrsResponseStatus :: Lens' SetIdentityMailFromDomainResponse Int-simfdrsResponseStatus = lens _simfdrsResponseStatus (\ s a -> s{_simfdrsResponseStatus = a});+simfdrsResponseStatus = lens _simfdrsResponseStatus (\ s a -> s{_simfdrsResponseStatus = a})  instance NFData SetIdentityMailFromDomainResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.SetIdentityNotificationTopic--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -76,23 +76,23 @@     -> SetIdentityNotificationTopic setIdentityNotificationTopic pIdentity_ pNotificationType_ =   SetIdentityNotificationTopic'-  { _sintSNSTopic = Nothing-  , _sintIdentity = pIdentity_-  , _sintNotificationType = pNotificationType_-  }+    { _sintSNSTopic = Nothing+    , _sintIdentity = pIdentity_+    , _sintNotificationType = pNotificationType_+    }   -- | The Amazon Resource Name (ARN) of the Amazon SNS topic. If the parameter is omitted from the request or a null value is passed, @SnsTopic@ is cleared and publishing is disabled. sintSNSTopic :: Lens' SetIdentityNotificationTopic (Maybe Text)-sintSNSTopic = lens _sintSNSTopic (\ s a -> s{_sintSNSTopic = a});+sintSNSTopic = lens _sintSNSTopic (\ s a -> s{_sintSNSTopic = a})  -- | The identity for which the Amazon SNS topic will be set. You can specify an identity by using its name or by using its Amazon Resource Name (ARN). Examples: @user@example.com@ , @example.com@ , @arn:aws:ses:us-east-1:123456789012:identity/example.com@ . sintIdentity :: Lens' SetIdentityNotificationTopic Text-sintIdentity = lens _sintIdentity (\ s a -> s{_sintIdentity = a});+sintIdentity = lens _sintIdentity (\ s a -> s{_sintIdentity = a})  -- | The type of notifications that will be published to the specified Amazon SNS topic. sintNotificationType :: Lens' SetIdentityNotificationTopic NotificationType-sintNotificationType = lens _sintNotificationType (\ s a -> s{_sintNotificationType = a});+sintNotificationType = lens _sintNotificationType (\ s a -> s{_sintNotificationType = a})  instance AWSRequest SetIdentityNotificationTopic          where@@ -146,12 +146,12 @@     -> SetIdentityNotificationTopicResponse setIdentityNotificationTopicResponse pResponseStatus_ =   SetIdentityNotificationTopicResponse'-  {_sintrsResponseStatus = pResponseStatus_}+    {_sintrsResponseStatus = pResponseStatus_}   -- | -- | The response status code. sintrsResponseStatus :: Lens' SetIdentityNotificationTopicResponse Int-sintrsResponseStatus = lens _sintrsResponseStatus (\ s a -> s{_sintrsResponseStatus = a});+sintrsResponseStatus = lens _sintrsResponseStatus (\ s a -> s{_sintrsResponseStatus = a})  instance NFData SetIdentityNotificationTopicResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.SetReceiptRulePosition--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -76,23 +76,23 @@     -> SetReceiptRulePosition setReceiptRulePosition pRuleSetName_ pRuleName_ =   SetReceiptRulePosition'-  { _srrpAfter = Nothing-  , _srrpRuleSetName = pRuleSetName_-  , _srrpRuleName = pRuleName_-  }+    { _srrpAfter = Nothing+    , _srrpRuleSetName = pRuleSetName_+    , _srrpRuleName = pRuleName_+    }   -- | The name of the receipt rule after which to place the specified receipt rule. srrpAfter :: Lens' SetReceiptRulePosition (Maybe Text)-srrpAfter = lens _srrpAfter (\ s a -> s{_srrpAfter = a});+srrpAfter = lens _srrpAfter (\ s a -> s{_srrpAfter = a})  -- | The name of the receipt rule set that contains the receipt rule to reposition. srrpRuleSetName :: Lens' SetReceiptRulePosition Text-srrpRuleSetName = lens _srrpRuleSetName (\ s a -> s{_srrpRuleSetName = a});+srrpRuleSetName = lens _srrpRuleSetName (\ s a -> s{_srrpRuleSetName = a})  -- | The name of the receipt rule to reposition. srrpRuleName :: Lens' SetReceiptRulePosition Text-srrpRuleName = lens _srrpRuleName (\ s a -> s{_srrpRuleName = a});+srrpRuleName = lens _srrpRuleName (\ s a -> s{_srrpRuleName = a})  instance AWSRequest SetReceiptRulePosition where         type Rs SetReceiptRulePosition =@@ -148,6 +148,6 @@  -- | -- | The response status code. srrprsResponseStatus :: Lens' SetReceiptRulePositionResponse Int-srrprsResponseStatus = lens _srrprsResponseStatus (\ s a -> s{_srrprsResponseStatus = a});+srrprsResponseStatus = lens _srrprsResponseStatus (\ s a -> s{_srrprsResponseStatus = a})  instance NFData SetReceiptRulePositionResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.TestRenderTemplate--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -67,16 +67,16 @@     -> TestRenderTemplate testRenderTemplate pTemplateName_ pTemplateData_ =   TestRenderTemplate'-  {_trtTemplateName = pTemplateName_, _trtTemplateData = pTemplateData_}+    {_trtTemplateName = pTemplateName_, _trtTemplateData = pTemplateData_}   -- | The name of the template that you want to render. trtTemplateName :: Lens' TestRenderTemplate Text-trtTemplateName = lens _trtTemplateName (\ s a -> s{_trtTemplateName = a});+trtTemplateName = lens _trtTemplateName (\ s a -> s{_trtTemplateName = a})  -- | A list of replacement values to apply to the template. This parameter is a JSON object, typically consisting of key-value pairs in which the keys correspond to replacement tags in the email template. trtTemplateData :: Lens' TestRenderTemplate Text-trtTemplateData = lens _trtTemplateData (\ s a -> s{_trtTemplateData = a});+trtTemplateData = lens _trtTemplateData (\ s a -> s{_trtTemplateData = a})  instance AWSRequest TestRenderTemplate where         type Rs TestRenderTemplate =@@ -125,15 +125,15 @@     -> TestRenderTemplateResponse testRenderTemplateResponse pResponseStatus_ =   TestRenderTemplateResponse'-  {_trtrsRenderedTemplate = Nothing, _trtrsResponseStatus = pResponseStatus_}+    {_trtrsRenderedTemplate = Nothing, _trtrsResponseStatus = pResponseStatus_}   -- | The complete MIME message rendered by applying the data in the TemplateData parameter to the template specified in the TemplateName parameter. trtrsRenderedTemplate :: Lens' TestRenderTemplateResponse (Maybe Text)-trtrsRenderedTemplate = lens _trtrsRenderedTemplate (\ s a -> s{_trtrsRenderedTemplate = a});+trtrsRenderedTemplate = lens _trtrsRenderedTemplate (\ s a -> s{_trtrsRenderedTemplate = a})  -- | -- | The response status code. trtrsResponseStatus :: Lens' TestRenderTemplateResponse Int-trtrsResponseStatus = lens _trtrsResponseStatus (\ s a -> s{_trtrsResponseStatus = a});+trtrsResponseStatus = lens _trtrsResponseStatus (\ s a -> s{_trtrsResponseStatus = a})  instance NFData TestRenderTemplateResponse where

@@ -4,7 +4,7 @@  -- | -- Module      : Network.AWS.SES.Types--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -19,17 +19,24 @@     , _InvalidConfigurationSetException     , _InvalidSNSDestinationException     , _TemplateDoesNotExistException+    , _ConfigurationSetSendingPausedException     , _CannotDeleteException+    , _ProductionAccessNotGrantedException     , _RuleDoesNotExistException     , _MessageRejected     , _InvalidRenderingParameterException     , _MissingRenderingAttributeException+    , _FromEmailAddressNotVerifiedException     , _RuleSetDoesNotExistException     , _MailFromDomainNotVerifiedException     , _InvalidFirehoseDestinationException     , _ConfigurationSetAlreadyExistsException+    , _CustomVerificationEmailInvalidContentException     , _InvalidTrackingOptionsException+    , _AccountSendingPausedException     , _EventDestinationDoesNotExistException+    , _CustomVerificationEmailTemplateAlreadyExistsException+    , _CustomVerificationEmailTemplateDoesNotExistException     , _InvalidCloudWatchDestinationException     , _InvalidLambdaFunctionException     , _TrackingOptionsDoesNotExistException@@ -157,6 +164,15 @@     , cCharset     , cData +    -- * CustomVerificationEmailTemplate+    , CustomVerificationEmailTemplate+    , customVerificationEmailTemplate+    , cvetFromEmailAddress+    , cvetTemplateName+    , cvetFailureRedirectionURL+    , cvetTemplateSubject+    , cvetSuccessRedirectionURL+     -- * Destination     , Destination     , destination@@ -298,6 +314,13 @@     , rdfAction     , rdfStatus +    -- * ReputationOptions+    , ReputationOptions+    , reputationOptions+    , roLastFreshStart+    , roReputationMetricsEnabled+    , roSendingEnabled+     -- * S3Action     , S3Action     , s3Action@@ -368,24 +391,24 @@ ses :: Service ses =   Service-  { _svcAbbrev = "SES"-  , _svcSigner = v4-  , _svcPrefix = "email"-  , _svcVersion = "2010-12-01"-  , _svcEndpoint = defaultEndpoint ses-  , _svcTimeout = Just 70-  , _svcCheck = statusSuccess-  , _svcError = parseXMLError "SES"-  , _svcRetry = retry-  }+    { _svcAbbrev = "SES"+    , _svcSigner = v4+    , _svcPrefix = "email"+    , _svcVersion = "2010-12-01"+    , _svcEndpoint = defaultEndpoint ses+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseXMLError "SES"+    , _svcRetry = retry+    }   where     retry =       Exponential-      { _retryBase = 5.0e-2-      , _retryGrowth = 2-      , _retryAttempts = 5-      , _retryCheck = check-      }+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }     check e       | has (hasCode "ThrottledException" . hasStatus 400) e =         Just "throttled_exception"@@ -394,6 +417,8 @@         Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"+      | has (hasCode "RequestThrottledException" . hasStatus 400) e =+        Just "request_throttled_exception"       | has (hasStatus 502) e = Just "bad_gateway"       | has (hasStatus 503) e = Just "service_unavailable"       | has (hasStatus 500) e = Just "general_server_error"@@ -425,6 +450,17 @@   _MatchServiceError ses "TemplateDoesNotExist" . hasStatus 400  +-- | Indicates that email sending is disabled for the configuration set.+--+--+-- You can enable or disable email sending for a configuration set using 'UpdateConfigurationSetSendingEnabled' .+--+_ConfigurationSetSendingPausedException :: AsError a => Getting (First ServiceError) a ServiceError+_ConfigurationSetSendingPausedException =+  _MatchServiceError ses "ConfigurationSetSendingPausedException" .+  hasStatus 400++ -- | Indicates that the delete operation could not be completed. -- --@@ -432,6 +468,14 @@ _CannotDeleteException = _MatchServiceError ses "CannotDelete" . hasStatus 400  +-- | Indicates that the account has not been granted production access.+--+--+_ProductionAccessNotGrantedException :: AsError a => Getting (First ServiceError) a ServiceError+_ProductionAccessNotGrantedException =+  _MatchServiceError ses "ProductionAccessNotGranted" . hasStatus 400++ -- | Indicates that the provided receipt rule does not exist. -- --@@ -463,6 +507,14 @@   _MatchServiceError ses "MissingRenderingAttribute" . hasStatus 400  +-- | Indicates that the sender address specified for a custom verification email is not verified, and is therefore not eligible to send the custom verification email.+--+--+_FromEmailAddressNotVerifiedException :: AsError a => Getting (First ServiceError) a ServiceError+_FromEmailAddressNotVerifiedException =+  _MatchServiceError ses "FromEmailAddressNotVerified" . hasStatus 400++ -- | Indicates that the provided receipt rule set does not exist. -- --@@ -495,6 +547,14 @@   _MatchServiceError ses "ConfigurationSetAlreadyExists" . hasStatus 400  +-- | Indicates that custom verification email template provided content is invalid.+--+--+_CustomVerificationEmailInvalidContentException :: AsError a => Getting (First ServiceError) a ServiceError+_CustomVerificationEmailInvalidContentException =+  _MatchServiceError ses "CustomVerificationEmailInvalidContent" . hasStatus 400++ -- | Indicates that the custom domain to be used for open and click tracking redirects is invalid. This error appears most often in the following situations: -- --@@ -509,12 +569,40 @@   _MatchServiceError ses "InvalidTrackingOptions" . hasStatus 400  +-- | Indicates that email sending is disabled for your entire Amazon SES account.+--+--+-- You can enable or disable email sending for your Amazon SES account using 'UpdateAccountSendingEnabled' .+--+_AccountSendingPausedException :: AsError a => Getting (First ServiceError) a ServiceError+_AccountSendingPausedException =+  _MatchServiceError ses "AccountSendingPausedException" . hasStatus 400++ -- | Indicates that the event destination does not exist. -- -- _EventDestinationDoesNotExistException :: AsError a => Getting (First ServiceError) a ServiceError _EventDestinationDoesNotExistException =   _MatchServiceError ses "EventDestinationDoesNotExist" . hasStatus 400+++-- | Indicates that a custom verification email template with the name you specified already exists.+--+--+_CustomVerificationEmailTemplateAlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError+_CustomVerificationEmailTemplateAlreadyExistsException =+  _MatchServiceError ses "CustomVerificationEmailTemplateAlreadyExists" .+  hasStatus 400+++-- | Indicates that a custom verification email template with the name you specified does not exist.+--+--+_CustomVerificationEmailTemplateDoesNotExistException :: AsError a => Getting (First ServiceError) a ServiceError+_CustomVerificationEmailTemplateDoesNotExistException =+  _MatchServiceError ses "CustomVerificationEmailTemplateDoesNotExist" .+  hasStatus 400   -- | Indicates that the Amazon CloudWatch destination is invalid. See the error message for details.

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.SES.Types.Product--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -47,16 +47,16 @@     -> AddHeaderAction addHeaderAction pHeaderName_ pHeaderValue_ =   AddHeaderAction'-  {_ahaHeaderName = pHeaderName_, _ahaHeaderValue = pHeaderValue_}+    {_ahaHeaderName = pHeaderName_, _ahaHeaderValue = pHeaderValue_}   -- | The name of the header to add. Must be between 1 and 50 characters, inclusive, and consist of alphanumeric (a-z, A-Z, 0-9) characters and dashes only. ahaHeaderName :: Lens' AddHeaderAction Text-ahaHeaderName = lens _ahaHeaderName (\ s a -> s{_ahaHeaderName = a});+ahaHeaderName = lens _ahaHeaderName (\ s a -> s{_ahaHeaderName = a})  -- | Must be less than 2048 characters, and must not contain newline characters ("\r" or "\n"). ahaHeaderValue :: Lens' AddHeaderAction Text-ahaHeaderValue = lens _ahaHeaderValue (\ s a -> s{_ahaHeaderValue = a});+ahaHeaderValue = lens _ahaHeaderValue (\ s a -> s{_ahaHeaderValue = a})  instance FromXML AddHeaderAction where         parseXML x@@ -98,11 +98,11 @@  -- | The content of the message, in text format. Use this for text-based email clients, or clients on high-latency networks (such as mobile devices). bText :: Lens' Body (Maybe Content)-bText = lens _bText (\ s a -> s{_bText = a});+bText = lens _bText (\ s a -> s{_bText = a})  -- | The content of the message, in HTML format. Use this for email clients that can process HTML. You can include clickable links, formatted text, and much more in an HTML message. bHTML :: Lens' Body (Maybe Content)-bHTML = lens _bHTML (\ s a -> s{_bHTML = a});+bHTML = lens _bHTML (\ s a -> s{_bHTML = a})  instance Hashable Body where @@ -148,33 +148,33 @@     -> BounceAction bounceAction pSmtpReplyCode_ pMessage_ pSender_ =   BounceAction'-  { _baTopicARN = Nothing-  , _baStatusCode = Nothing-  , _baSmtpReplyCode = pSmtpReplyCode_-  , _baMessage = pMessage_-  , _baSender = pSender_-  }+    { _baTopicARN = Nothing+    , _baStatusCode = Nothing+    , _baSmtpReplyCode = pSmtpReplyCode_+    , _baMessage = pMessage_+    , _baSender = pSender_+    }   -- | The Amazon Resource Name (ARN) of the Amazon SNS topic to notify when the bounce action is taken. An example of an Amazon SNS topic ARN is @arn:aws:sns:us-west-2:123456789012:MyTopic@ . For more information about Amazon SNS topics, see the <http://docs.aws.amazon.com/sns/latest/dg/CreateTopic.html Amazon SNS Developer Guide> . baTopicARN :: Lens' BounceAction (Maybe Text)-baTopicARN = lens _baTopicARN (\ s a -> s{_baTopicARN = a});+baTopicARN = lens _baTopicARN (\ s a -> s{_baTopicARN = a})  -- | The SMTP enhanced status code, as defined by <https://tools.ietf.org/html/rfc3463 RFC 3463> . baStatusCode :: Lens' BounceAction (Maybe Text)-baStatusCode = lens _baStatusCode (\ s a -> s{_baStatusCode = a});+baStatusCode = lens _baStatusCode (\ s a -> s{_baStatusCode = a})  -- | The SMTP reply code, as defined by <https://tools.ietf.org/html/rfc5321 RFC 5321> . baSmtpReplyCode :: Lens' BounceAction Text-baSmtpReplyCode = lens _baSmtpReplyCode (\ s a -> s{_baSmtpReplyCode = a});+baSmtpReplyCode = lens _baSmtpReplyCode (\ s a -> s{_baSmtpReplyCode = a})  -- | Human-readable text to include in the bounce message. baMessage :: Lens' BounceAction Text-baMessage = lens _baMessage (\ s a -> s{_baMessage = a});+baMessage = lens _baMessage (\ s a -> s{_baMessage = a})  -- | The email address of the sender of the bounced email. This is the address from which the bounce message will be sent. baSender :: Lens' BounceAction Text-baSender = lens _baSender (\ s a -> s{_baSender = a});+baSender = lens _baSender (\ s a -> s{_baSender = a})  instance FromXML BounceAction where         parseXML x@@ -227,28 +227,28 @@     -> BouncedRecipientInfo bouncedRecipientInfo pRecipient_ =   BouncedRecipientInfo'-  { _briBounceType = Nothing-  , _briRecipientDsnFields = Nothing-  , _briRecipientARN = Nothing-  , _briRecipient = pRecipient_-  }+    { _briBounceType = Nothing+    , _briRecipientDsnFields = Nothing+    , _briRecipientARN = Nothing+    , _briRecipient = pRecipient_+    }   -- | The reason for the bounce. You must provide either this parameter or @RecipientDsnFields@ . briBounceType :: Lens' BouncedRecipientInfo (Maybe BounceType)-briBounceType = lens _briBounceType (\ s a -> s{_briBounceType = a});+briBounceType = lens _briBounceType (\ s a -> s{_briBounceType = a})  -- | Recipient-related DSN fields, most of which would normally be filled in automatically when provided with a @BounceType@ . You must provide either this parameter or @BounceType@ . briRecipientDsnFields :: Lens' BouncedRecipientInfo (Maybe RecipientDsnFields)-briRecipientDsnFields = lens _briRecipientDsnFields (\ s a -> s{_briRecipientDsnFields = a});+briRecipientDsnFields = lens _briRecipientDsnFields (\ s a -> s{_briRecipientDsnFields = a})  -- | This parameter is used only for sending authorization. It is the ARN of the identity that is associated with the sending authorization policy that permits you to receive email for the recipient of the bounced email. For more information about sending authorization, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization.html Amazon SES Developer Guide> . briRecipientARN :: Lens' BouncedRecipientInfo (Maybe Text)-briRecipientARN = lens _briRecipientARN (\ s a -> s{_briRecipientARN = a});+briRecipientARN = lens _briRecipientARN (\ s a -> s{_briRecipientARN = a})  -- | The email address of the recipient of the bounced email. briRecipient :: Lens' BouncedRecipientInfo Text-briRecipient = lens _briRecipient (\ s a -> s{_briRecipient = a});+briRecipient = lens _briRecipient (\ s a -> s{_briRecipient = a})  instance Hashable BouncedRecipientInfo where @@ -288,23 +288,23 @@     -> BulkEmailDestination bulkEmailDestination pDestination_ =   BulkEmailDestination'-  { _bedReplacementTemplateData = Nothing-  , _bedReplacementTags = Nothing-  , _bedDestination = pDestination_-  }+    { _bedReplacementTemplateData = Nothing+    , _bedReplacementTags = Nothing+    , _bedDestination = pDestination_+    }   -- | A list of replacement values to apply to the template. This parameter is a JSON object, typically consisting of key-value pairs in which the keys correspond to replacement tags in the email template. bedReplacementTemplateData :: Lens' BulkEmailDestination (Maybe Text)-bedReplacementTemplateData = lens _bedReplacementTemplateData (\ s a -> s{_bedReplacementTemplateData = a});+bedReplacementTemplateData = lens _bedReplacementTemplateData (\ s a -> s{_bedReplacementTemplateData = a})  -- | A list of tags, in the form of name/value pairs, to apply to an email that you send using @SendBulkTemplatedEmail@ . Tags correspond to characteristics of the email that you define, so that you can publish email sending events. bedReplacementTags :: Lens' BulkEmailDestination [MessageTag]-bedReplacementTags = lens _bedReplacementTags (\ s a -> s{_bedReplacementTags = a}) . _Default . _Coerce;+bedReplacementTags = lens _bedReplacementTags (\ s a -> s{_bedReplacementTags = a}) . _Default . _Coerce  -- | Undocumented member. bedDestination :: Lens' BulkEmailDestination Destination-bedDestination = lens _bedDestination (\ s a -> s{_bedDestination = a});+bedDestination = lens _bedDestination (\ s a -> s{_bedDestination = a})  instance Hashable BulkEmailDestination where @@ -336,7 +336,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'bedsStatus' - The status of a message sent using the @SendBulkTemplatedEmail@ operation. Possible values for this parameter include:     * @Success@ : Amazon SES accepted the message, and will attempt to deliver it to the recipients.     * @MessageRejected@ : The message was rejected because it contained a virus.     * @MailFromDomainNotVerified@ : The sender's email address or domain was not verified.     * @ConfigurationSetDoesNotExist@ : The configuration set you specified does not exist.     * @TemplateDoesNotExist@ : The template you specified does not exist.     * @AccountSuspended@ : Your account has been shut down because of issues related to your email sending practices.     * @AccountThrottled@ : The number of emails you can send has been reduced because your account has exceeded its allocated sending limit.     * @AccountDailyQuotaExceeded@ : You have reached or exceeded the maximum number of emails you can send from your account in a 24-hour period.     * @InvalidSendingPoolName@ : The configuration set you specified refers to an IP pool that does not exist.     * @InvalidParameterValue@ : One or more of the parameters you specified when calling this operation was invalid. See the error message for additional information.     * @TransientFailure@ : Amazon SES was unable to process your request because of a temporary issue.     * @Failed@ : Amazon SES was unable to process your request. See the error message for additional information.+-- * 'bedsStatus' - The status of a message sent using the @SendBulkTemplatedEmail@ operation. Possible values for this parameter include:     * @Success@ : Amazon SES accepted the message, and will attempt to deliver it to the recipients.     * @MessageRejected@ : The message was rejected because it contained a virus.     * @MailFromDomainNotVerified@ : The sender's email address or domain was not verified.     * @ConfigurationSetDoesNotExist@ : The configuration set you specified does not exist.     * @TemplateDoesNotExist@ : The template you specified does not exist.     * @AccountSuspended@ : Your account has been shut down because of issues related to your email sending practices.     * @AccountThrottled@ : The number of emails you can send has been reduced because your account has exceeded its allocated sending limit.     * @AccountDailyQuotaExceeded@ : You have reached or exceeded the maximum number of emails you can send from your account in a 24-hour period.     * @InvalidSendingPoolName@ : The configuration set you specified refers to an IP pool that does not exist.     * @AccountSendingPaused@ : Email sending for the Amazon SES account was disabled using the 'UpdateAccountSendingEnabled' operation.     * @ConfigurationSetSendingPaused@ : Email sending for this configuration set was disabled using the 'UpdateConfigurationSetSendingEnabled' operation.     * @InvalidParameterValue@ : One or more of the parameters you specified when calling this operation was invalid. See the error message for additional information.     * @TransientFailure@ : Amazon SES was unable to process your request because of a temporary issue.     * @Failed@ : Amazon SES was unable to process your request. See the error message for additional information. -- -- * 'bedsError' - A description of an error that prevented a message being sent using the @SendBulkTemplatedEmail@ operation. --@@ -345,20 +345,20 @@     :: BulkEmailDestinationStatus bulkEmailDestinationStatus =   BulkEmailDestinationStatus'-  {_bedsStatus = Nothing, _bedsError = Nothing, _bedsMessageId = Nothing}+    {_bedsStatus = Nothing, _bedsError = Nothing, _bedsMessageId = Nothing}  --- | The status of a message sent using the @SendBulkTemplatedEmail@ operation. Possible values for this parameter include:     * @Success@ : Amazon SES accepted the message, and will attempt to deliver it to the recipients.     * @MessageRejected@ : The message was rejected because it contained a virus.     * @MailFromDomainNotVerified@ : The sender's email address or domain was not verified.     * @ConfigurationSetDoesNotExist@ : The configuration set you specified does not exist.     * @TemplateDoesNotExist@ : The template you specified does not exist.     * @AccountSuspended@ : Your account has been shut down because of issues related to your email sending practices.     * @AccountThrottled@ : The number of emails you can send has been reduced because your account has exceeded its allocated sending limit.     * @AccountDailyQuotaExceeded@ : You have reached or exceeded the maximum number of emails you can send from your account in a 24-hour period.     * @InvalidSendingPoolName@ : The configuration set you specified refers to an IP pool that does not exist.     * @InvalidParameterValue@ : One or more of the parameters you specified when calling this operation was invalid. See the error message for additional information.     * @TransientFailure@ : Amazon SES was unable to process your request because of a temporary issue.     * @Failed@ : Amazon SES was unable to process your request. See the error message for additional information.+-- | The status of a message sent using the @SendBulkTemplatedEmail@ operation. Possible values for this parameter include:     * @Success@ : Amazon SES accepted the message, and will attempt to deliver it to the recipients.     * @MessageRejected@ : The message was rejected because it contained a virus.     * @MailFromDomainNotVerified@ : The sender's email address or domain was not verified.     * @ConfigurationSetDoesNotExist@ : The configuration set you specified does not exist.     * @TemplateDoesNotExist@ : The template you specified does not exist.     * @AccountSuspended@ : Your account has been shut down because of issues related to your email sending practices.     * @AccountThrottled@ : The number of emails you can send has been reduced because your account has exceeded its allocated sending limit.     * @AccountDailyQuotaExceeded@ : You have reached or exceeded the maximum number of emails you can send from your account in a 24-hour period.     * @InvalidSendingPoolName@ : The configuration set you specified refers to an IP pool that does not exist.     * @AccountSendingPaused@ : Email sending for the Amazon SES account was disabled using the 'UpdateAccountSendingEnabled' operation.     * @ConfigurationSetSendingPaused@ : Email sending for this configuration set was disabled using the 'UpdateConfigurationSetSendingEnabled' operation.     * @InvalidParameterValue@ : One or more of the parameters you specified when calling this operation was invalid. See the error message for additional information.     * @TransientFailure@ : Amazon SES was unable to process your request because of a temporary issue.     * @Failed@ : Amazon SES was unable to process your request. See the error message for additional information. bedsStatus :: Lens' BulkEmailDestinationStatus (Maybe BulkEmailStatus)-bedsStatus = lens _bedsStatus (\ s a -> s{_bedsStatus = a});+bedsStatus = lens _bedsStatus (\ s a -> s{_bedsStatus = a})  -- | A description of an error that prevented a message being sent using the @SendBulkTemplatedEmail@ operation. bedsError :: Lens' BulkEmailDestinationStatus (Maybe Text)-bedsError = lens _bedsError (\ s a -> s{_bedsError = a});+bedsError = lens _bedsError (\ s a -> s{_bedsError = a})  -- | The unique message identifier returned from the @SendBulkTemplatedEmail@ operation. bedsMessageId :: Lens' BulkEmailDestinationStatus (Maybe Text)-bedsMessageId = lens _bedsMessageId (\ s a -> s{_bedsMessageId = a});+bedsMessageId = lens _bedsMessageId (\ s a -> s{_bedsMessageId = a})  instance FromXML BulkEmailDestinationStatus where         parseXML x@@ -395,7 +395,7 @@  -- | A list of dimensions upon which to categorize your emails when you publish email sending events to Amazon CloudWatch. cwdDimensionConfigurations :: Lens' CloudWatchDestination [CloudWatchDimensionConfiguration]-cwdDimensionConfigurations = lens _cwdDimensionConfigurations (\ s a -> s{_cwdDimensionConfigurations = a}) . _Coerce;+cwdDimensionConfigurations = lens _cwdDimensionConfigurations (\ s a -> s{_cwdDimensionConfigurations = a}) . _Coerce  instance FromXML CloudWatchDestination where         parseXML x@@ -431,11 +431,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cwdcDimensionName' - The name of an Amazon CloudWatch dimension associated with an email sending metric. The name must:     * Contain only ASCII letters (a-z, A-Z), numbers (0-9), underscores (_), or dashes (-).     * Contain less than 256 characters.+-- * 'cwdcDimensionName' - The name of an Amazon CloudWatch dimension associated with an email sending metric. The name must:     * This value can only contain ASCII letters (a-z, A-Z), numbers (0-9), underscores (_), or dashes (-).     * Contain less than 256 characters. -- -- * 'cwdcDimensionValueSource' - The place where Amazon SES finds the value of a dimension to publish to Amazon CloudWatch. If you want Amazon SES to use the message tags that you specify using an @X-SES-MESSAGE-TAGS@ header or a parameter to the @SendEmail@ /@SendRawEmail@ API, choose @messageTag@ . If you want Amazon SES to use your own email headers, choose @emailHeader@ . ----- * 'cwdcDefaultDimensionValue' - The default value of the dimension that is published to Amazon CloudWatch if you do not provide the value of the dimension when you send an email. The default value must:     * Contain only ASCII letters (a-z, A-Z), numbers (0-9), underscores (_), or dashes (-).     * Contain less than 256 characters.+-- * 'cwdcDefaultDimensionValue' - The default value of the dimension that is published to Amazon CloudWatch if you do not provide the value of the dimension when you send an email. The default value must:     * This value can only contain ASCII letters (a-z, A-Z), numbers (0-9), underscores (_), or dashes (-).     * Contain less than 256 characters. cloudWatchDimensionConfiguration     :: Text -- ^ 'cwdcDimensionName'     -> DimensionValueSource -- ^ 'cwdcDimensionValueSource'@@ -443,23 +443,23 @@     -> CloudWatchDimensionConfiguration cloudWatchDimensionConfiguration pDimensionName_ pDimensionValueSource_ pDefaultDimensionValue_ =   CloudWatchDimensionConfiguration'-  { _cwdcDimensionName = pDimensionName_-  , _cwdcDimensionValueSource = pDimensionValueSource_-  , _cwdcDefaultDimensionValue = pDefaultDimensionValue_-  }+    { _cwdcDimensionName = pDimensionName_+    , _cwdcDimensionValueSource = pDimensionValueSource_+    , _cwdcDefaultDimensionValue = pDefaultDimensionValue_+    }  --- | The name of an Amazon CloudWatch dimension associated with an email sending metric. The name must:     * Contain only ASCII letters (a-z, A-Z), numbers (0-9), underscores (_), or dashes (-).     * Contain less than 256 characters.+-- | The name of an Amazon CloudWatch dimension associated with an email sending metric. The name must:     * This value can only contain ASCII letters (a-z, A-Z), numbers (0-9), underscores (_), or dashes (-).     * Contain less than 256 characters. cwdcDimensionName :: Lens' CloudWatchDimensionConfiguration Text-cwdcDimensionName = lens _cwdcDimensionName (\ s a -> s{_cwdcDimensionName = a});+cwdcDimensionName = lens _cwdcDimensionName (\ s a -> s{_cwdcDimensionName = a})  -- | The place where Amazon SES finds the value of a dimension to publish to Amazon CloudWatch. If you want Amazon SES to use the message tags that you specify using an @X-SES-MESSAGE-TAGS@ header or a parameter to the @SendEmail@ /@SendRawEmail@ API, choose @messageTag@ . If you want Amazon SES to use your own email headers, choose @emailHeader@ . cwdcDimensionValueSource :: Lens' CloudWatchDimensionConfiguration DimensionValueSource-cwdcDimensionValueSource = lens _cwdcDimensionValueSource (\ s a -> s{_cwdcDimensionValueSource = a});+cwdcDimensionValueSource = lens _cwdcDimensionValueSource (\ s a -> s{_cwdcDimensionValueSource = a}) --- | The default value of the dimension that is published to Amazon CloudWatch if you do not provide the value of the dimension when you send an email. The default value must:     * Contain only ASCII letters (a-z, A-Z), numbers (0-9), underscores (_), or dashes (-).     * Contain less than 256 characters.+-- | The default value of the dimension that is published to Amazon CloudWatch if you do not provide the value of the dimension when you send an email. The default value must:     * This value can only contain ASCII letters (a-z, A-Z), numbers (0-9), underscores (_), or dashes (-).     * Contain less than 256 characters. cwdcDefaultDimensionValue :: Lens' CloudWatchDimensionConfiguration Text-cwdcDefaultDimensionValue = lens _cwdcDefaultDimensionValue (\ s a -> s{_cwdcDefaultDimensionValue = a});+cwdcDefaultDimensionValue = lens _cwdcDefaultDimensionValue (\ s a -> s{_cwdcDefaultDimensionValue = a})  instance FromXML CloudWatchDimensionConfiguration          where@@ -509,7 +509,7 @@  -- | The name of the configuration set. The name must meet the following requirements:     * Contain only letters (a-z, A-Z), numbers (0-9), underscores (_), or dashes (-).     * Contain 64 characters or fewer. csName :: Lens' ConfigurationSet Text-csName = lens _csName (\ s a -> s{_csName = a});+csName = lens _csName (\ s a -> s{_csName = a})  instance FromXML ConfigurationSet where         parseXML x = ConfigurationSet' <$> (x .@ "Name")@@ -550,11 +550,11 @@  -- | The character set of the content. cCharset :: Lens' Content (Maybe Text)-cCharset = lens _cCharset (\ s a -> s{_cCharset = a});+cCharset = lens _cCharset (\ s a -> s{_cCharset = a})  -- | The textual data of the content. cData :: Lens' Content Text-cData = lens _cData (\ s a -> s{_cData = a});+cData = lens _cData (\ s a -> s{_cData = a})  instance Hashable Content where @@ -564,12 +564,83 @@         toQuery Content'{..}           = mconcat ["Charset" =: _cCharset, "Data" =: _cData] --- | Represents the destination of the message, consisting of To:, CC:, and BCC: fields.+-- | Contains information about a custom verification email template. -- ----- By default, the string must be 7-bit ASCII. If the text must contain any other characters, then you must use MIME encoded-word syntax (RFC 2047) instead of a literal string. MIME encoded-word syntax uses the following form: @=?charset?encoding?encoded-text?=@ . For more information, see <https://tools.ietf.org/html/rfc2047 RFC 2047> . --+-- /See:/ 'customVerificationEmailTemplate' smart constructor.+data CustomVerificationEmailTemplate = CustomVerificationEmailTemplate'+  { _cvetFromEmailAddress      :: !(Maybe Text)+  , _cvetTemplateName          :: !(Maybe Text)+  , _cvetFailureRedirectionURL :: !(Maybe Text)+  , _cvetTemplateSubject       :: !(Maybe Text)+  , _cvetSuccessRedirectionURL :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CustomVerificationEmailTemplate' with the minimum fields required to make a request. --+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cvetFromEmailAddress' - The email address that the custom verification email is sent from.+--+-- * 'cvetTemplateName' - The name of the custom verification email template.+--+-- * 'cvetFailureRedirectionURL' - The URL that the recipient of the verification email is sent to if his or her address is not successfully verified.+--+-- * 'cvetTemplateSubject' - The subject line of the custom verification email.+--+-- * 'cvetSuccessRedirectionURL' - The URL that the recipient of the verification email is sent to if his or her address is successfully verified.+customVerificationEmailTemplate+    :: CustomVerificationEmailTemplate+customVerificationEmailTemplate =+  CustomVerificationEmailTemplate'+    { _cvetFromEmailAddress = Nothing+    , _cvetTemplateName = Nothing+    , _cvetFailureRedirectionURL = Nothing+    , _cvetTemplateSubject = Nothing+    , _cvetSuccessRedirectionURL = Nothing+    }+++-- | The email address that the custom verification email is sent from.+cvetFromEmailAddress :: Lens' CustomVerificationEmailTemplate (Maybe Text)+cvetFromEmailAddress = lens _cvetFromEmailAddress (\ s a -> s{_cvetFromEmailAddress = a})++-- | The name of the custom verification email template.+cvetTemplateName :: Lens' CustomVerificationEmailTemplate (Maybe Text)+cvetTemplateName = lens _cvetTemplateName (\ s a -> s{_cvetTemplateName = a})++-- | The URL that the recipient of the verification email is sent to if his or her address is not successfully verified.+cvetFailureRedirectionURL :: Lens' CustomVerificationEmailTemplate (Maybe Text)+cvetFailureRedirectionURL = lens _cvetFailureRedirectionURL (\ s a -> s{_cvetFailureRedirectionURL = a})++-- | The subject line of the custom verification email.+cvetTemplateSubject :: Lens' CustomVerificationEmailTemplate (Maybe Text)+cvetTemplateSubject = lens _cvetTemplateSubject (\ s a -> s{_cvetTemplateSubject = a})++-- | The URL that the recipient of the verification email is sent to if his or her address is successfully verified.+cvetSuccessRedirectionURL :: Lens' CustomVerificationEmailTemplate (Maybe Text)+cvetSuccessRedirectionURL = lens _cvetSuccessRedirectionURL (\ s a -> s{_cvetSuccessRedirectionURL = a})++instance FromXML CustomVerificationEmailTemplate+         where+        parseXML x+          = CustomVerificationEmailTemplate' <$>+              (x .@? "FromEmailAddress") <*> (x .@? "TemplateName")+                <*> (x .@? "FailureRedirectionURL")+                <*> (x .@? "TemplateSubject")+                <*> (x .@? "SuccessRedirectionURL")++instance Hashable CustomVerificationEmailTemplate+         where++instance NFData CustomVerificationEmailTemplate where++-- | Represents the destination of the message, consisting of To:, CC:, and BCC: fields.+--+--+-- -- /See:/ 'destination' smart constructor. data Destination = Destination'   { _dBCCAddresses :: !(Maybe [Text])@@ -591,20 +662,20 @@     :: Destination destination =   Destination'-  {_dBCCAddresses = Nothing, _dCCAddresses = Nothing, _dToAddresses = Nothing}+    {_dBCCAddresses = Nothing, _dCCAddresses = Nothing, _dToAddresses = Nothing}   -- | The BCC: field(s) of the message. dBCCAddresses :: Lens' Destination [Text]-dBCCAddresses = lens _dBCCAddresses (\ s a -> s{_dBCCAddresses = a}) . _Default . _Coerce;+dBCCAddresses = lens _dBCCAddresses (\ s a -> s{_dBCCAddresses = a}) . _Default . _Coerce  -- | The CC: field(s) of the message. dCCAddresses :: Lens' Destination [Text]-dCCAddresses = lens _dCCAddresses (\ s a -> s{_dCCAddresses = a}) . _Default . _Coerce;+dCCAddresses = lens _dCCAddresses (\ s a -> s{_dCCAddresses = a}) . _Default . _Coerce  -- | The To: field(s) of the message. dToAddresses :: Lens' Destination [Text]-dToAddresses = lens _dToAddresses (\ s a -> s{_dToAddresses = a}) . _Default . _Coerce;+dToAddresses = lens _dToAddresses (\ s a -> s{_dToAddresses = a}) . _Default . _Coerce  instance Hashable Destination where @@ -649,7 +720,7 @@ -- -- * 'edSNSDestination' - An object that contains the topic ARN associated with an Amazon Simple Notification Service (Amazon SNS) event destination. ----- * 'edName' - The name of the event destination. The name must:     * Contain only ASCII letters (a-z, A-Z), numbers (0-9), underscores (_), or dashes (-).     * Contain less than 64 characters.+-- * 'edName' - The name of the event destination. The name must:     * This value can only contain ASCII letters (a-z, A-Z), numbers (0-9), underscores (_), or dashes (-).     * Contain less than 64 characters. -- -- * 'edMatchingEventTypes' - The type of email sending events to publish to the event destination. eventDestination@@ -657,38 +728,38 @@     -> EventDestination eventDestination pName_ =   EventDestination'-  { _edEnabled = Nothing-  , _edKinesisFirehoseDestination = Nothing-  , _edCloudWatchDestination = Nothing-  , _edSNSDestination = Nothing-  , _edName = pName_-  , _edMatchingEventTypes = mempty-  }+    { _edEnabled = Nothing+    , _edKinesisFirehoseDestination = Nothing+    , _edCloudWatchDestination = Nothing+    , _edSNSDestination = Nothing+    , _edName = pName_+    , _edMatchingEventTypes = mempty+    }   -- | Sets whether Amazon SES publishes events to this destination when you send an email with the associated configuration set. Set to @true@ to enable publishing to this destination; set to @false@ to prevent publishing to this destination. The default value is @false@ . edEnabled :: Lens' EventDestination (Maybe Bool)-edEnabled = lens _edEnabled (\ s a -> s{_edEnabled = a});+edEnabled = lens _edEnabled (\ s a -> s{_edEnabled = a})  -- | An object that contains the delivery stream ARN and the IAM role ARN associated with an Amazon Kinesis Firehose event destination. edKinesisFirehoseDestination :: Lens' EventDestination (Maybe KinesisFirehoseDestination)-edKinesisFirehoseDestination = lens _edKinesisFirehoseDestination (\ s a -> s{_edKinesisFirehoseDestination = a});+edKinesisFirehoseDestination = lens _edKinesisFirehoseDestination (\ s a -> s{_edKinesisFirehoseDestination = a})  -- | An object that contains the names, default values, and sources of the dimensions associated with an Amazon CloudWatch event destination. edCloudWatchDestination :: Lens' EventDestination (Maybe CloudWatchDestination)-edCloudWatchDestination = lens _edCloudWatchDestination (\ s a -> s{_edCloudWatchDestination = a});+edCloudWatchDestination = lens _edCloudWatchDestination (\ s a -> s{_edCloudWatchDestination = a})  -- | An object that contains the topic ARN associated with an Amazon Simple Notification Service (Amazon SNS) event destination. edSNSDestination :: Lens' EventDestination (Maybe SNSDestination)-edSNSDestination = lens _edSNSDestination (\ s a -> s{_edSNSDestination = a});+edSNSDestination = lens _edSNSDestination (\ s a -> s{_edSNSDestination = a}) --- | The name of the event destination. The name must:     * Contain only ASCII letters (a-z, A-Z), numbers (0-9), underscores (_), or dashes (-).     * Contain less than 64 characters.+-- | The name of the event destination. The name must:     * This value can only contain ASCII letters (a-z, A-Z), numbers (0-9), underscores (_), or dashes (-).     * Contain less than 64 characters. edName :: Lens' EventDestination Text-edName = lens _edName (\ s a -> s{_edName = a});+edName = lens _edName (\ s a -> s{_edName = a})  -- | The type of email sending events to publish to the event destination. edMatchingEventTypes :: Lens' EventDestination [EventType]-edMatchingEventTypes = lens _edMatchingEventTypes (\ s a -> s{_edMatchingEventTypes = a}) . _Coerce;+edMatchingEventTypes = lens _edMatchingEventTypes (\ s a -> s{_edMatchingEventTypes = a}) . _Coerce  instance FromXML EventDestination where         parseXML x@@ -748,11 +819,11 @@  -- | The name of the header to add. Must be between 1 and 50 characters, inclusive, and consist of alphanumeric (a-z, A-Z, 0-9) characters and dashes only. efName :: Lens' ExtensionField Text-efName = lens _efName (\ s a -> s{_efName = a});+efName = lens _efName (\ s a -> s{_efName = a})  -- | The value of the header to add. Must be less than 2048 characters, and must not contain newline characters ("\r" or "\n"). efValue :: Lens' ExtensionField Text-efValue = lens _efValue (\ s a -> s{_efValue = a});+efValue = lens _efValue (\ s a -> s{_efValue = a})  instance Hashable ExtensionField where @@ -789,23 +860,23 @@     -> IdentityDkimAttributes identityDkimAttributes pDkimEnabled_ pDkimVerificationStatus_ =   IdentityDkimAttributes'-  { _idaDkimTokens = Nothing-  , _idaDkimEnabled = pDkimEnabled_-  , _idaDkimVerificationStatus = pDkimVerificationStatus_-  }+    { _idaDkimTokens = Nothing+    , _idaDkimEnabled = pDkimEnabled_+    , _idaDkimVerificationStatus = pDkimVerificationStatus_+    }   -- | A set of character strings that represent the domain's identity. Using these tokens, you will need to create DNS CNAME records that point to DKIM public keys hosted by Amazon SES. Amazon Web Services will eventually detect that you have updated your DNS records; this detection process may take up to 72 hours. Upon successful detection, Amazon SES will be able to DKIM-sign email originating from that domain. (This only applies to domain identities, not email address identities.) For more information about creating DNS records using DKIM tokens, go to the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/easy-dkim-dns-records.html Amazon SES Developer Guide> . idaDkimTokens :: Lens' IdentityDkimAttributes [Text]-idaDkimTokens = lens _idaDkimTokens (\ s a -> s{_idaDkimTokens = a}) . _Default . _Coerce;+idaDkimTokens = lens _idaDkimTokens (\ s a -> s{_idaDkimTokens = a}) . _Default . _Coerce  -- | True if DKIM signing is enabled for email sent from the identity; false otherwise. The default value is true. idaDkimEnabled :: Lens' IdentityDkimAttributes Bool-idaDkimEnabled = lens _idaDkimEnabled (\ s a -> s{_idaDkimEnabled = a});+idaDkimEnabled = lens _idaDkimEnabled (\ s a -> s{_idaDkimEnabled = a})  -- | Describes whether Amazon SES has successfully verified the DKIM DNS records (tokens) published in the domain name's DNS. (This only applies to domain identities, not email address identities.) idaDkimVerificationStatus :: Lens' IdentityDkimAttributes VerificationStatus-idaDkimVerificationStatus = lens _idaDkimVerificationStatus (\ s a -> s{_idaDkimVerificationStatus = a});+idaDkimVerificationStatus = lens _idaDkimVerificationStatus (\ s a -> s{_idaDkimVerificationStatus = a})  instance FromXML IdentityDkimAttributes where         parseXML x@@ -847,23 +918,23 @@     -> IdentityMailFromDomainAttributes identityMailFromDomainAttributes pMailFromDomain_ pMailFromDomainStatus_ pBehaviorOnMXFailure_ =   IdentityMailFromDomainAttributes'-  { _imfdaMailFromDomain = pMailFromDomain_-  , _imfdaMailFromDomainStatus = pMailFromDomainStatus_-  , _imfdaBehaviorOnMXFailure = pBehaviorOnMXFailure_-  }+    { _imfdaMailFromDomain = pMailFromDomain_+    , _imfdaMailFromDomainStatus = pMailFromDomainStatus_+    , _imfdaBehaviorOnMXFailure = pBehaviorOnMXFailure_+    }   -- | The custom MAIL FROM domain that the identity is configured to use. imfdaMailFromDomain :: Lens' IdentityMailFromDomainAttributes Text-imfdaMailFromDomain = lens _imfdaMailFromDomain (\ s a -> s{_imfdaMailFromDomain = a});+imfdaMailFromDomain = lens _imfdaMailFromDomain (\ s a -> s{_imfdaMailFromDomain = a})  -- | The state that indicates whether Amazon SES has successfully read the MX record required for custom MAIL FROM domain setup. If the state is @Success@ , Amazon SES uses the specified custom MAIL FROM domain when the verified identity sends an email. All other states indicate that Amazon SES takes the action described by @BehaviorOnMXFailure@ . imfdaMailFromDomainStatus :: Lens' IdentityMailFromDomainAttributes CustomMailFromStatus-imfdaMailFromDomainStatus = lens _imfdaMailFromDomainStatus (\ s a -> s{_imfdaMailFromDomainStatus = a});+imfdaMailFromDomainStatus = lens _imfdaMailFromDomainStatus (\ s a -> s{_imfdaMailFromDomainStatus = a})  -- | The action that Amazon SES takes if it cannot successfully read the required MX record when you send an email. A value of @UseDefaultValue@ indicates that if Amazon SES cannot read the required MX record, it uses amazonses.com (or a subdomain of that) as the MAIL FROM domain. A value of @RejectMessage@ indicates that if Amazon SES cannot read the required MX record, Amazon SES returns a @MailFromDomainNotVerified@ error and does not send the email. The custom MAIL FROM setup states that result in this behavior are @Pending@ , @Failed@ , and @TemporaryFailure@ . imfdaBehaviorOnMXFailure :: Lens' IdentityMailFromDomainAttributes BehaviorOnMXFailure-imfdaBehaviorOnMXFailure = lens _imfdaBehaviorOnMXFailure (\ s a -> s{_imfdaBehaviorOnMXFailure = a});+imfdaBehaviorOnMXFailure = lens _imfdaBehaviorOnMXFailure (\ s a -> s{_imfdaBehaviorOnMXFailure = a})  instance FromXML IdentityMailFromDomainAttributes          where@@ -920,43 +991,43 @@     -> IdentityNotificationAttributes identityNotificationAttributes pBounceTopic_ pComplaintTopic_ pDeliveryTopic_ pForwardingEnabled_ =   IdentityNotificationAttributes'-  { _inaHeadersInDeliveryNotificationsEnabled = Nothing-  , _inaHeadersInComplaintNotificationsEnabled = Nothing-  , _inaHeadersInBounceNotificationsEnabled = Nothing-  , _inaBounceTopic = pBounceTopic_-  , _inaComplaintTopic = pComplaintTopic_-  , _inaDeliveryTopic = pDeliveryTopic_-  , _inaForwardingEnabled = pForwardingEnabled_-  }+    { _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});+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});+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});+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});+inaBounceTopic = lens _inaBounceTopic (\ s a -> s{_inaBounceTopic = a})  -- | The Amazon Resource Name (ARN) of the Amazon SNS topic where Amazon SES will publish complaint notifications. inaComplaintTopic :: Lens' IdentityNotificationAttributes Text-inaComplaintTopic = lens _inaComplaintTopic (\ s a -> s{_inaComplaintTopic = a});+inaComplaintTopic = lens _inaComplaintTopic (\ s a -> s{_inaComplaintTopic = a})  -- | The Amazon Resource Name (ARN) of the Amazon SNS topic where Amazon SES will publish delivery notifications. inaDeliveryTopic :: Lens' IdentityNotificationAttributes Text-inaDeliveryTopic = lens _inaDeliveryTopic (\ s a -> s{_inaDeliveryTopic = a});+inaDeliveryTopic = lens _inaDeliveryTopic (\ s a -> s{_inaDeliveryTopic = a})  -- | Describes whether Amazon SES will forward bounce and complaint notifications as email. @true@ indicates that Amazon SES will forward bounce and complaint notifications as email, while @false@ indicates that bounce and complaint notifications will be published only to the specified bounce and complaint Amazon SNS topics. inaForwardingEnabled :: Lens' IdentityNotificationAttributes Bool-inaForwardingEnabled = lens _inaForwardingEnabled (\ s a -> s{_inaForwardingEnabled = a});+inaForwardingEnabled = lens _inaForwardingEnabled (\ s a -> s{_inaForwardingEnabled = a})  instance FromXML IdentityNotificationAttributes where         parseXML x@@ -997,18 +1068,18 @@     -> IdentityVerificationAttributes identityVerificationAttributes pVerificationStatus_ =   IdentityVerificationAttributes'-  { _ivaVerificationToken = Nothing-  , _ivaVerificationStatus = pVerificationStatus_-  }+    { _ivaVerificationToken = Nothing+    , _ivaVerificationStatus = pVerificationStatus_+    }   -- | The verification token for a domain identity. Null for email address identities. ivaVerificationToken :: Lens' IdentityVerificationAttributes (Maybe Text)-ivaVerificationToken = lens _ivaVerificationToken (\ s a -> s{_ivaVerificationToken = a});+ivaVerificationToken = lens _ivaVerificationToken (\ s a -> s{_ivaVerificationToken = a})  -- | The verification status of the identity: "Pending", "Success", "Failed", or "TemporaryFailure". ivaVerificationStatus :: Lens' IdentityVerificationAttributes VerificationStatus-ivaVerificationStatus = lens _ivaVerificationStatus (\ s a -> s{_ivaVerificationStatus = a});+ivaVerificationStatus = lens _ivaVerificationStatus (\ s a -> s{_ivaVerificationStatus = a})  instance FromXML IdentityVerificationAttributes where         parseXML x@@ -1047,16 +1118,16 @@     -> KinesisFirehoseDestination kinesisFirehoseDestination pIAMRoleARN_ pDeliveryStreamARN_ =   KinesisFirehoseDestination'-  {_kfdIAMRoleARN = pIAMRoleARN_, _kfdDeliveryStreamARN = pDeliveryStreamARN_}+    {_kfdIAMRoleARN = pIAMRoleARN_, _kfdDeliveryStreamARN = pDeliveryStreamARN_}   -- | The ARN of the IAM role under which Amazon SES publishes email sending events to the Amazon Kinesis Firehose stream. kfdIAMRoleARN :: Lens' KinesisFirehoseDestination Text-kfdIAMRoleARN = lens _kfdIAMRoleARN (\ s a -> s{_kfdIAMRoleARN = a});+kfdIAMRoleARN = lens _kfdIAMRoleARN (\ s a -> s{_kfdIAMRoleARN = a})  -- | The ARN of the Amazon Kinesis Firehose stream that email sending events should be published to. kfdDeliveryStreamARN :: Lens' KinesisFirehoseDestination Text-kfdDeliveryStreamARN = lens _kfdDeliveryStreamARN (\ s a -> s{_kfdDeliveryStreamARN = a});+kfdDeliveryStreamARN = lens _kfdDeliveryStreamARN (\ s a -> s{_kfdDeliveryStreamARN = a})  instance FromXML KinesisFirehoseDestination where         parseXML x@@ -1103,23 +1174,23 @@     -> LambdaAction lambdaAction pFunctionARN_ =   LambdaAction'-  { _laInvocationType = Nothing-  , _laTopicARN = Nothing-  , _laFunctionARN = pFunctionARN_-  }+    { _laInvocationType = Nothing+    , _laTopicARN = Nothing+    , _laFunctionARN = pFunctionARN_+    }   -- | The invocation type of the AWS Lambda function. An invocation type of @RequestResponse@ means that the execution of the function will immediately result in a response, and a value of @Event@ means that the function will be invoked asynchronously. The default value is @Event@ . For information about AWS Lambda invocation types, see the <http://docs.aws.amazon.com/lambda/latest/dg/API_Invoke.html AWS Lambda Developer Guide> . /Important:/ There is a 30-second timeout on @RequestResponse@ invocations. You should use @Event@ invocation in most cases. Use @RequestResponse@ only when you want to make a mail flow decision, such as whether to stop the receipt rule or the receipt rule set. laInvocationType :: Lens' LambdaAction (Maybe InvocationType)-laInvocationType = lens _laInvocationType (\ s a -> s{_laInvocationType = a});+laInvocationType = lens _laInvocationType (\ s a -> s{_laInvocationType = a})  -- | The Amazon Resource Name (ARN) of the Amazon SNS topic to notify when the Lambda action is taken. An example of an Amazon SNS topic ARN is @arn:aws:sns:us-west-2:123456789012:MyTopic@ . For more information about Amazon SNS topics, see the <http://docs.aws.amazon.com/sns/latest/dg/CreateTopic.html Amazon SNS Developer Guide> . laTopicARN :: Lens' LambdaAction (Maybe Text)-laTopicARN = lens _laTopicARN (\ s a -> s{_laTopicARN = a});+laTopicARN = lens _laTopicARN (\ s a -> s{_laTopicARN = a})  -- | The Amazon Resource Name (ARN) of the AWS Lambda function. An example of an AWS Lambda function ARN is @arn:aws:lambda:us-west-2:account-id:function:MyFunction@ . For more information about AWS Lambda, see the <http://docs.aws.amazon.com/lambda/latest/dg/welcome.html AWS Lambda Developer Guide> . laFunctionARN :: Lens' LambdaAction Text-laFunctionARN = lens _laFunctionARN (\ s a -> s{_laFunctionARN = a});+laFunctionARN = lens _laFunctionARN (\ s a -> s{_laFunctionARN = a})  instance FromXML LambdaAction where         parseXML x@@ -1165,11 +1236,11 @@  -- | The subject of the message: A short summary of the content, which will appear in the recipient's inbox. mSubject :: Lens' Message Content-mSubject = lens _mSubject (\ s a -> s{_mSubject = a});+mSubject = lens _mSubject (\ s a -> s{_mSubject = a})  -- | The message body. mBody :: Lens' Message Body-mBody = lens _mBody (\ s a -> s{_mBody = a});+mBody = lens _mBody (\ s a -> s{_mBody = a})  instance Hashable Message where @@ -1207,23 +1278,23 @@     -> MessageDsn messageDsn pReportingMta_ =   MessageDsn'-  { _mdArrivalDate = Nothing-  , _mdExtensionFields = Nothing-  , _mdReportingMta = pReportingMta_-  }+    { _mdArrivalDate = Nothing+    , _mdExtensionFields = Nothing+    , _mdReportingMta = pReportingMta_+    }   -- | When the message was received by the reporting mail transfer agent (MTA), in <https://www.ietf.org/rfc/rfc0822.txt RFC 822> date-time format. mdArrivalDate :: Lens' MessageDsn (Maybe UTCTime)-mdArrivalDate = lens _mdArrivalDate (\ s a -> s{_mdArrivalDate = a}) . mapping _Time;+mdArrivalDate = lens _mdArrivalDate (\ s a -> s{_mdArrivalDate = a}) . mapping _Time  -- | Additional X-headers to include in the DSN. mdExtensionFields :: Lens' MessageDsn [ExtensionField]-mdExtensionFields = lens _mdExtensionFields (\ s a -> s{_mdExtensionFields = a}) . _Default . _Coerce;+mdExtensionFields = lens _mdExtensionFields (\ s a -> s{_mdExtensionFields = a}) . _Default . _Coerce  -- | The reporting MTA that attempted to deliver the message, formatted as specified in <https://tools.ietf.org/html/rfc3464 RFC 3464> (@mta-name-type; mta-name@ ). The default value is @dns; inbound-smtp.[region].amazonaws.com@ . mdReportingMta :: Lens' MessageDsn Text-mdReportingMta = lens _mdReportingMta (\ s a -> s{_mdReportingMta = a});+mdReportingMta = lens _mdReportingMta (\ s a -> s{_mdReportingMta = a})  instance Hashable MessageDsn where @@ -1255,9 +1326,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'mtName' - The name of the tag. The name must:     * Contain only ASCII letters (a-z, A-Z), numbers (0-9), underscores (_), or dashes (-).     * Contain less than 256 characters.+-- * 'mtName' - The name of the tag. The name must:     * This value can only contain ASCII letters (a-z, A-Z), numbers (0-9), underscores (_), or dashes (-).     * Contain less than 256 characters. ----- * 'mtValue' - The value of the tag. The value must:     * Contain only ASCII letters (a-z, A-Z), numbers (0-9), underscores (_), or dashes (-).     * Contain less than 256 characters.+-- * 'mtValue' - The value of the tag. The value must:     * This value can only contain ASCII letters (a-z, A-Z), numbers (0-9), underscores (_), or dashes (-).     * Contain less than 256 characters. messageTag     :: Text -- ^ 'mtName'     -> Text -- ^ 'mtValue'@@ -1265,13 +1336,13 @@ messageTag pName_ pValue_ = MessageTag' {_mtName = pName_, _mtValue = pValue_}  --- | The name of the tag. The name must:     * Contain only ASCII letters (a-z, A-Z), numbers (0-9), underscores (_), or dashes (-).     * Contain less than 256 characters.+-- | The name of the tag. The name must:     * This value can only contain ASCII letters (a-z, A-Z), numbers (0-9), underscores (_), or dashes (-).     * Contain less than 256 characters. mtName :: Lens' MessageTag Text-mtName = lens _mtName (\ s a -> s{_mtName = a});+mtName = lens _mtName (\ s a -> s{_mtName = a}) --- | The value of the tag. The value must:     * Contain only ASCII letters (a-z, A-Z), numbers (0-9), underscores (_), or dashes (-).     * Contain less than 256 characters.+-- | The value of the tag. The value must:     * This value can only contain ASCII letters (a-z, A-Z), numbers (0-9), underscores (_), or dashes (-).     * Contain less than 256 characters. mtValue :: Lens' MessageTag Text-mtValue = lens _mtValue (\ s a -> s{_mtValue = a});+mtValue = lens _mtValue (\ s a -> s{_mtValue = a})  instance Hashable MessageTag where @@ -1304,7 +1375,7 @@  -- | The raw data of the message. This data needs to base64-encoded if you are accessing Amazon SES directly through the HTTPS interface. If you are accessing Amazon SES using an AWS SDK, the SDK takes care of the base 64-encoding for you. In all cases, the client must ensure that the message format complies with Internet email standards regarding email header fields, MIME types, and MIME encoding. The To:, CC:, and BCC: headers in the raw message can contain a group list. If you are using @SendRawEmail@ with sending authorization, you can include X-headers in the raw message to specify the "Source," "From," and "Return-Path" addresses. For more information, see the documentation for @SendRawEmail@ .  /Important:/ Do not include these X-headers in the DKIM signature, because they are removed by Amazon SES before sending the email. For more information, go to the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/send-email-raw.html Amazon SES Developer Guide> .-- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data. rmData :: Lens' RawMessage ByteString-rmData = lens _rmData (\ s a -> s{_rmData = a}) . _Base64;+rmData = lens _rmData (\ s a -> s{_rmData = a}) . _Base64  instance Hashable RawMessage where @@ -1352,43 +1423,43 @@     :: ReceiptAction receiptAction =   ReceiptAction'-  { _raAddHeaderAction = Nothing-  , _raSNSAction = Nothing-  , _raWorkmailAction = Nothing-  , _raBounceAction = Nothing-  , _raLambdaAction = Nothing-  , _raStopAction = Nothing-  , _raS3Action = Nothing-  }+    { _raAddHeaderAction = Nothing+    , _raSNSAction = Nothing+    , _raWorkmailAction = Nothing+    , _raBounceAction = Nothing+    , _raLambdaAction = Nothing+    , _raStopAction = Nothing+    , _raS3Action = Nothing+    }   -- | Adds a header to the received email. raAddHeaderAction :: Lens' ReceiptAction (Maybe AddHeaderAction)-raAddHeaderAction = lens _raAddHeaderAction (\ s a -> s{_raAddHeaderAction = a});+raAddHeaderAction = lens _raAddHeaderAction (\ s a -> s{_raAddHeaderAction = a})  -- | Publishes the email content within a notification to Amazon SNS. raSNSAction :: Lens' ReceiptAction (Maybe SNSAction)-raSNSAction = lens _raSNSAction (\ s a -> s{_raSNSAction = a});+raSNSAction = lens _raSNSAction (\ s a -> s{_raSNSAction = a})  -- | Calls Amazon WorkMail and, optionally, publishes a notification to Amazon SNS. raWorkmailAction :: Lens' ReceiptAction (Maybe WorkmailAction)-raWorkmailAction = lens _raWorkmailAction (\ s a -> s{_raWorkmailAction = a});+raWorkmailAction = lens _raWorkmailAction (\ s a -> s{_raWorkmailAction = a})  -- | Rejects the received email by returning a bounce response to the sender and, optionally, publishes a notification to Amazon Simple Notification Service (Amazon SNS). raBounceAction :: Lens' ReceiptAction (Maybe BounceAction)-raBounceAction = lens _raBounceAction (\ s a -> s{_raBounceAction = a});+raBounceAction = lens _raBounceAction (\ s a -> s{_raBounceAction = a})  -- | Calls an AWS Lambda function, and optionally, publishes a notification to Amazon SNS. raLambdaAction :: Lens' ReceiptAction (Maybe LambdaAction)-raLambdaAction = lens _raLambdaAction (\ s a -> s{_raLambdaAction = a});+raLambdaAction = lens _raLambdaAction (\ s a -> s{_raLambdaAction = a})  -- | Terminates the evaluation of the receipt rule set and optionally publishes a notification to Amazon SNS. raStopAction :: Lens' ReceiptAction (Maybe StopAction)-raStopAction = lens _raStopAction (\ s a -> s{_raStopAction = a});+raStopAction = lens _raStopAction (\ s a -> s{_raStopAction = a})  -- | Saves the received message to an Amazon Simple Storage Service (Amazon S3) bucket and, optionally, publishes a notification to Amazon SNS. raS3Action :: Lens' ReceiptAction (Maybe S3Action)-raS3Action = lens _raS3Action (\ s a -> s{_raS3Action = a});+raS3Action = lens _raS3Action (\ s a -> s{_raS3Action = a})  instance FromXML ReceiptAction where         parseXML x@@ -1432,7 +1503,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rfName' - 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' - The name of the IP address filter. The name must:     * This value can only contain ASCII letters (a-z, A-Z), numbers (0-9), underscores (_), or dashes (-).     * Start and end with a letter or number.     * Contain less than 64 characters. -- -- * 'rfIPFilter' - A structure that provides the IP addresses to block or allow, and whether to block or allow incoming mail from them. receiptFilter@@ -1443,13 +1514,13 @@   ReceiptFilter' {_rfName = pName_, _rfIPFilter = pIPFilter_}  --- | 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.+-- | The name of the IP address filter. The name must:     * This value can only contain ASCII letters (a-z, A-Z), numbers (0-9), 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});+rfName = lens _rfName (\ s a -> s{_rfName = a})  -- | A structure that provides the IP addresses to block or allow, and whether to block or allow incoming mail from them. rfIPFilter :: Lens' ReceiptFilter ReceiptIPFilter-rfIPFilter = lens _rfIPFilter (\ s a -> s{_rfIPFilter = a});+rfIPFilter = lens _rfIPFilter (\ s a -> s{_rfIPFilter = a})  instance FromXML ReceiptFilter where         parseXML x@@ -1495,11 +1566,11 @@  -- | Indicates whether to block or allow incoming mail from the specified IP addresses. rifPolicy :: Lens' ReceiptIPFilter ReceiptFilterPolicy-rifPolicy = lens _rifPolicy (\ s a -> s{_rifPolicy = a});+rifPolicy = lens _rifPolicy (\ s a -> s{_rifPolicy = a})  -- | A single IP address or a range of IP addresses that you want to block or allow, specified in Classless Inter-Domain Routing (CIDR) notation. An example of a single email address is 10.0.0.1. An example of a range of IP addresses is 10.0.0.1/24. For more information about CIDR notation, see <https://tools.ietf.org/html/rfc2317 RFC 2317> . rifCidr :: Lens' ReceiptIPFilter Text-rifCidr = lens _rifCidr (\ s a -> s{_rifCidr = a});+rifCidr = lens _rifCidr (\ s a -> s{_rifCidr = a})  instance FromXML ReceiptIPFilter where         parseXML x@@ -1548,44 +1619,44 @@ -- -- * 'rrTLSPolicy' - Specifies whether Amazon SES should require that incoming email is delivered over a connection encrypted with Transport Layer Security (TLS). If this parameter is set to @Require@ , Amazon SES will bounce emails that are not received over TLS. The default is @Optional@ . ----- * 'rrName' - 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' - The name of the receipt rule. The name must:     * This value can only contain ASCII letters (a-z, A-Z), numbers (0-9), underscores (_), or dashes (-).     * Start and end with a letter or number.     * Contain less than 64 characters. receiptRule     :: Text -- ^ 'rrName'     -> ReceiptRule receiptRule pName_ =   ReceiptRule'-  { _rrScanEnabled = Nothing-  , _rrEnabled = Nothing-  , _rrActions = Nothing-  , _rrRecipients = Nothing-  , _rrTLSPolicy = Nothing-  , _rrName = pName_-  }+    { _rrScanEnabled = Nothing+    , _rrEnabled = Nothing+    , _rrActions = Nothing+    , _rrRecipients = Nothing+    , _rrTLSPolicy = Nothing+    , _rrName = pName_+    }   -- | If @true@ , then messages that this receipt rule applies to are scanned for spam and viruses. The default value is @false@ . rrScanEnabled :: Lens' ReceiptRule (Maybe Bool)-rrScanEnabled = lens _rrScanEnabled (\ s a -> s{_rrScanEnabled = a});+rrScanEnabled = lens _rrScanEnabled (\ s a -> s{_rrScanEnabled = a})  -- | If @true@ , the receipt rule is active. The default value is @false@ . rrEnabled :: Lens' ReceiptRule (Maybe Bool)-rrEnabled = lens _rrEnabled (\ s a -> s{_rrEnabled = a});+rrEnabled = lens _rrEnabled (\ s a -> s{_rrEnabled = a})  -- | An ordered list of actions to perform on messages that match at least one of the recipient email addresses or domains specified in the receipt rule. rrActions :: Lens' ReceiptRule [ReceiptAction]-rrActions = lens _rrActions (\ s a -> s{_rrActions = a}) . _Default . _Coerce;+rrActions = lens _rrActions (\ s a -> s{_rrActions = a}) . _Default . _Coerce  -- | The recipient domains and email addresses that the receipt rule applies to. If this field is not specified, this rule will match all recipients under all verified domains. rrRecipients :: Lens' ReceiptRule [Text]-rrRecipients = lens _rrRecipients (\ s a -> s{_rrRecipients = a}) . _Default . _Coerce;+rrRecipients = lens _rrRecipients (\ s a -> s{_rrRecipients = a}) . _Default . _Coerce  -- | Specifies whether Amazon SES should require that incoming email is delivered over a connection encrypted with Transport Layer Security (TLS). If this parameter is set to @Require@ , Amazon SES will bounce emails that are not received over TLS. The default is @Optional@ . rrTLSPolicy :: Lens' ReceiptRule (Maybe TLSPolicy)-rrTLSPolicy = lens _rrTLSPolicy (\ s a -> s{_rrTLSPolicy = a});+rrTLSPolicy = lens _rrTLSPolicy (\ s a -> s{_rrTLSPolicy = a}) --- | 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.+-- | The name of the receipt rule. The name must:     * This value can only contain ASCII letters (a-z, A-Z), numbers (0-9), 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});+rrName = lens _rrName (\ s a -> s{_rrName = a})  instance FromXML ReceiptRule where         parseXML x@@ -1633,7 +1704,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rrsmName' - 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' - The name of the receipt rule set. The name must:     * This value can only contain ASCII letters (a-z, A-Z), numbers (0-9), underscores (_), or dashes (-).     * Start and end with a letter or number.     * Contain less than 64 characters. -- -- * 'rrsmCreatedTimestamp' - The date and time the receipt rule set was created. receiptRuleSetMetadata@@ -1642,13 +1713,13 @@   ReceiptRuleSetMetadata' {_rrsmName = Nothing, _rrsmCreatedTimestamp = Nothing}  --- | 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.+-- | The name of the receipt rule set. The name must:     * This value can only contain ASCII letters (a-z, A-Z), numbers (0-9), 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});+rrsmName = lens _rrsmName (\ s a -> s{_rrsmName = a})  -- | The date and time the receipt rule set was created. rrsmCreatedTimestamp :: Lens' ReceiptRuleSetMetadata (Maybe UTCTime)-rrsmCreatedTimestamp = lens _rrsmCreatedTimestamp (\ s a -> s{_rrsmCreatedTimestamp = a}) . mapping _Time;+rrsmCreatedTimestamp = lens _rrsmCreatedTimestamp (\ s a -> s{_rrsmCreatedTimestamp = a}) . mapping _Time  instance FromXML ReceiptRuleSetMetadata where         parseXML x@@ -1700,43 +1771,43 @@     -> RecipientDsnFields recipientDsnFields pAction_ pStatus_ =   RecipientDsnFields'-  { _rdfDiagnosticCode = Nothing-  , _rdfRemoteMta = Nothing-  , _rdfFinalRecipient = Nothing-  , _rdfExtensionFields = Nothing-  , _rdfLastAttemptDate = Nothing-  , _rdfAction = pAction_-  , _rdfStatus = pStatus_-  }+    { _rdfDiagnosticCode = Nothing+    , _rdfRemoteMta = Nothing+    , _rdfFinalRecipient = Nothing+    , _rdfExtensionFields = Nothing+    , _rdfLastAttemptDate = Nothing+    , _rdfAction = pAction_+    , _rdfStatus = pStatus_+    }   -- | An extended explanation of what went wrong; this is usually an SMTP response. See <https://tools.ietf.org/html/rfc3463 RFC 3463> for the correct formatting of this parameter. rdfDiagnosticCode :: Lens' RecipientDsnFields (Maybe Text)-rdfDiagnosticCode = lens _rdfDiagnosticCode (\ s a -> s{_rdfDiagnosticCode = a});+rdfDiagnosticCode = lens _rdfDiagnosticCode (\ s a -> s{_rdfDiagnosticCode = a})  -- | The MTA to which the remote MTA attempted to deliver the message, formatted as specified in <https://tools.ietf.org/html/rfc3464 RFC 3464> (@mta-name-type; mta-name@ ). This parameter typically applies only to propagating synchronous bounces. rdfRemoteMta :: Lens' RecipientDsnFields (Maybe Text)-rdfRemoteMta = lens _rdfRemoteMta (\ s a -> s{_rdfRemoteMta = a});+rdfRemoteMta = lens _rdfRemoteMta (\ s a -> s{_rdfRemoteMta = a})  -- | The email address that the message was ultimately delivered to. This corresponds to the @Final-Recipient@ in the DSN. If not specified, @FinalRecipient@ will be set to the @Recipient@ specified in the @BouncedRecipientInfo@ structure. Either @FinalRecipient@ or the recipient in @BouncedRecipientInfo@ must be a recipient of the original bounced message. rdfFinalRecipient :: Lens' RecipientDsnFields (Maybe Text)-rdfFinalRecipient = lens _rdfFinalRecipient (\ s a -> s{_rdfFinalRecipient = a});+rdfFinalRecipient = lens _rdfFinalRecipient (\ s a -> s{_rdfFinalRecipient = a})  -- | Additional X-headers to include in the DSN. rdfExtensionFields :: Lens' RecipientDsnFields [ExtensionField]-rdfExtensionFields = lens _rdfExtensionFields (\ s a -> s{_rdfExtensionFields = a}) . _Default . _Coerce;+rdfExtensionFields = lens _rdfExtensionFields (\ s a -> s{_rdfExtensionFields = a}) . _Default . _Coerce  -- | The time the final delivery attempt was made, in <https://www.ietf.org/rfc/rfc0822.txt RFC 822> date-time format. rdfLastAttemptDate :: Lens' RecipientDsnFields (Maybe UTCTime)-rdfLastAttemptDate = lens _rdfLastAttemptDate (\ s a -> s{_rdfLastAttemptDate = a}) . mapping _Time;+rdfLastAttemptDate = lens _rdfLastAttemptDate (\ s a -> s{_rdfLastAttemptDate = a}) . mapping _Time  -- | The action performed by the reporting mail transfer agent (MTA) as a result of its attempt to deliver the message to the recipient address. This is required by <https://tools.ietf.org/html/rfc3464 RFC 3464> . rdfAction :: Lens' RecipientDsnFields DsnAction-rdfAction = lens _rdfAction (\ s a -> s{_rdfAction = a});+rdfAction = lens _rdfAction (\ s a -> s{_rdfAction = a})  -- | The status code that indicates what went wrong. This is required by <https://tools.ietf.org/html/rfc3464 RFC 3464> . rdfStatus :: Lens' RecipientDsnFields Text-rdfStatus = lens _rdfStatus (\ s a -> s{_rdfStatus = a});+rdfStatus = lens _rdfStatus (\ s a -> s{_rdfStatus = a})  instance Hashable RecipientDsnFields where @@ -1754,6 +1825,60 @@                "LastAttemptDate" =: _rdfLastAttemptDate,                "Action" =: _rdfAction, "Status" =: _rdfStatus] +-- | Contains information about the reputation settings for a configuration set.+--+--+--+-- /See:/ 'reputationOptions' smart constructor.+data ReputationOptions = ReputationOptions'+  { _roLastFreshStart           :: !(Maybe ISO8601)+  , _roReputationMetricsEnabled :: !(Maybe Bool)+  , _roSendingEnabled           :: !(Maybe Bool)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ReputationOptions' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'roLastFreshStart' - The date and time at which the reputation metrics for the configuration set were last reset. Resetting these metrics is known as a /fresh start/ . When you disable email sending for a configuration set using 'UpdateConfigurationSetSendingEnabled' and later re-enable it, the reputation metrics for the configuration set (but not for the entire Amazon SES account) are reset. If email sending for the configuration set has never been disabled and later re-enabled, the value of this attribute is @null@ .+--+-- * 'roReputationMetricsEnabled' - Describes whether or not Amazon SES publishes reputation metrics for the configuration set, such as bounce and complaint rates, to Amazon CloudWatch. If the value is @true@ , reputation metrics are published. If the value is @false@ , reputation metrics are not published. The default value is @false@ .+--+-- * 'roSendingEnabled' - Describes whether email sending is enabled or disabled for the configuration set. If the value is @true@ , then Amazon SES will send emails that use the configuration set. If the value is @false@ , Amazon SES will not send emails that use the configuration set. The default value is @true@ . You can change this setting using 'UpdateConfigurationSetSendingEnabled' .+reputationOptions+    :: ReputationOptions+reputationOptions =+  ReputationOptions'+    { _roLastFreshStart = Nothing+    , _roReputationMetricsEnabled = Nothing+    , _roSendingEnabled = Nothing+    }+++-- | The date and time at which the reputation metrics for the configuration set were last reset. Resetting these metrics is known as a /fresh start/ . When you disable email sending for a configuration set using 'UpdateConfigurationSetSendingEnabled' and later re-enable it, the reputation metrics for the configuration set (but not for the entire Amazon SES account) are reset. If email sending for the configuration set has never been disabled and later re-enabled, the value of this attribute is @null@ .+roLastFreshStart :: Lens' ReputationOptions (Maybe UTCTime)+roLastFreshStart = lens _roLastFreshStart (\ s a -> s{_roLastFreshStart = a}) . mapping _Time++-- | Describes whether or not Amazon SES publishes reputation metrics for the configuration set, such as bounce and complaint rates, to Amazon CloudWatch. If the value is @true@ , reputation metrics are published. If the value is @false@ , reputation metrics are not published. The default value is @false@ .+roReputationMetricsEnabled :: Lens' ReputationOptions (Maybe Bool)+roReputationMetricsEnabled = lens _roReputationMetricsEnabled (\ s a -> s{_roReputationMetricsEnabled = a})++-- | Describes whether email sending is enabled or disabled for the configuration set. If the value is @true@ , then Amazon SES will send emails that use the configuration set. If the value is @false@ , Amazon SES will not send emails that use the configuration set. The default value is @true@ . You can change this setting using 'UpdateConfigurationSetSendingEnabled' .+roSendingEnabled :: Lens' ReputationOptions (Maybe Bool)+roSendingEnabled = lens _roSendingEnabled (\ s a -> s{_roSendingEnabled = a})++instance FromXML ReputationOptions where+        parseXML x+          = ReputationOptions' <$>+              (x .@? "LastFreshStart") <*>+                (x .@? "ReputationMetricsEnabled")+                <*> (x .@? "SendingEnabled")++instance Hashable ReputationOptions where++instance NFData ReputationOptions where+ -- | When included in a receipt rule, this action saves the received message to an Amazon Simple Storage Service (Amazon S3) bucket and, optionally, publishes a notification to Amazon Simple Notification Service (Amazon SNS). -- --@@ -1787,28 +1912,28 @@     -> S3Action s3Action pBucketName_ =   S3Action'-  { _s3KMSKeyARN = Nothing-  , _s3TopicARN = Nothing-  , _s3ObjectKeyPrefix = Nothing-  , _s3BucketName = pBucketName_-  }+    { _s3KMSKeyARN = Nothing+    , _s3TopicARN = Nothing+    , _s3ObjectKeyPrefix = Nothing+    , _s3BucketName = pBucketName_+    }   -- | 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. /Important:/ 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 <AmazonS3/latest/dev/UsingClientSideEncryption.html Amazon S3 Developer Guide> . s3KMSKeyARN :: Lens' S3Action (Maybe Text)-s3KMSKeyARN = lens _s3KMSKeyARN (\ s a -> s{_s3KMSKeyARN = a});+s3KMSKeyARN = lens _s3KMSKeyARN (\ s a -> s{_s3KMSKeyARN = a})  -- | The ARN of the Amazon SNS topic to notify when the message is saved to the Amazon S3 bucket. An example of an Amazon SNS topic ARN is @arn:aws:sns:us-west-2:123456789012:MyTopic@ . For more information about Amazon SNS topics, see the <http://docs.aws.amazon.com/sns/latest/dg/CreateTopic.html Amazon SNS Developer Guide> . s3TopicARN :: Lens' S3Action (Maybe Text)-s3TopicARN = lens _s3TopicARN (\ s a -> s{_s3TopicARN = a});+s3TopicARN = lens _s3TopicARN (\ s a -> s{_s3TopicARN = a})  -- | The key prefix of the Amazon S3 bucket. The key prefix is similar to a directory name that enables you to store similar data under the same directory in a bucket. s3ObjectKeyPrefix :: Lens' S3Action (Maybe Text)-s3ObjectKeyPrefix = lens _s3ObjectKeyPrefix (\ s a -> s{_s3ObjectKeyPrefix = a});+s3ObjectKeyPrefix = lens _s3ObjectKeyPrefix (\ s a -> s{_s3ObjectKeyPrefix = a})  -- | The name of the Amazon S3 bucket that incoming email will be saved to. s3BucketName :: Lens' S3Action Text-s3BucketName = lens _s3BucketName (\ s a -> s{_s3BucketName = a});+s3BucketName = lens _s3BucketName (\ s a -> s{_s3BucketName = a})  instance FromXML S3Action where         parseXML x@@ -1862,11 +1987,11 @@  -- | The encoding to use for the email within the Amazon SNS notification. UTF-8 is easier to use, but may not preserve all special characters when a message was encoded with a different encoding format. Base64 preserves all special characters. The default value is UTF-8. saEncoding :: Lens' SNSAction (Maybe SNSActionEncoding)-saEncoding = lens _saEncoding (\ s a -> s{_saEncoding = a});+saEncoding = lens _saEncoding (\ s a -> s{_saEncoding = a})  -- | The Amazon Resource Name (ARN) of the Amazon SNS topic to notify. An example of an Amazon SNS topic ARN is @arn:aws:sns:us-west-2:123456789012:MyTopic@ . For more information about Amazon SNS topics, see the <http://docs.aws.amazon.com/sns/latest/dg/CreateTopic.html Amazon SNS Developer Guide> . saTopicARN :: Lens' SNSAction Text-saTopicARN = lens _saTopicARN (\ s a -> s{_saTopicARN = a});+saTopicARN = lens _saTopicARN (\ s a -> s{_saTopicARN = a})  instance FromXML SNSAction where         parseXML x@@ -1908,7 +2033,7 @@  -- | The ARN of the Amazon SNS topic that email sending events will be published to. An example of an Amazon SNS topic ARN is @arn:aws:sns:us-west-2:123456789012:MyTopic@ . For more information about Amazon SNS topics, see the <http://docs.aws.amazon.com/sns/latest/dg/CreateTopic.html Amazon SNS Developer Guide> . sdTopicARN :: Lens' SNSDestination Text-sdTopicARN = lens _sdTopicARN (\ s a -> s{_sdTopicARN = a});+sdTopicARN = lens _sdTopicARN (\ s a -> s{_sdTopicARN = a})  instance FromXML SNSDestination where         parseXML x = SNSDestination' <$> (x .@ "TopicARN")@@ -1952,33 +2077,33 @@     :: SendDataPoint sendDataPoint =   SendDataPoint'-  { _sdpRejects = Nothing-  , _sdpComplaints = Nothing-  , _sdpDeliveryAttempts = Nothing-  , _sdpBounces = Nothing-  , _sdpTimestamp = Nothing-  }+    { _sdpRejects = Nothing+    , _sdpComplaints = Nothing+    , _sdpDeliveryAttempts = Nothing+    , _sdpBounces = Nothing+    , _sdpTimestamp = Nothing+    }   -- | Number of emails rejected by Amazon SES. sdpRejects :: Lens' SendDataPoint (Maybe Integer)-sdpRejects = lens _sdpRejects (\ s a -> s{_sdpRejects = a});+sdpRejects = lens _sdpRejects (\ s a -> s{_sdpRejects = a})  -- | Number of unwanted emails that were rejected by recipients. sdpComplaints :: Lens' SendDataPoint (Maybe Integer)-sdpComplaints = lens _sdpComplaints (\ s a -> s{_sdpComplaints = a});+sdpComplaints = lens _sdpComplaints (\ s a -> s{_sdpComplaints = a})  -- | Number of emails that have been sent. sdpDeliveryAttempts :: Lens' SendDataPoint (Maybe Integer)-sdpDeliveryAttempts = lens _sdpDeliveryAttempts (\ s a -> s{_sdpDeliveryAttempts = a});+sdpDeliveryAttempts = lens _sdpDeliveryAttempts (\ s a -> s{_sdpDeliveryAttempts = a})  -- | Number of emails that have bounced. sdpBounces :: Lens' SendDataPoint (Maybe Integer)-sdpBounces = lens _sdpBounces (\ s a -> s{_sdpBounces = a});+sdpBounces = lens _sdpBounces (\ s a -> s{_sdpBounces = a})  -- | Time of the data point. sdpTimestamp :: Lens' SendDataPoint (Maybe UTCTime)-sdpTimestamp = lens _sdpTimestamp (\ s a -> s{_sdpTimestamp = a}) . mapping _Time;+sdpTimestamp = lens _sdpTimestamp (\ s a -> s{_sdpTimestamp = a}) . mapping _Time  instance FromXML SendDataPoint where         parseXML x@@ -2020,11 +2145,11 @@  -- | The Amazon Resource Name (ARN) of the Amazon SNS topic to notify when the stop action is taken. An example of an Amazon SNS topic ARN is @arn:aws:sns:us-west-2:123456789012:MyTopic@ . For more information about Amazon SNS topics, see the <http://docs.aws.amazon.com/sns/latest/dg/CreateTopic.html Amazon SNS Developer Guide> . sTopicARN :: Lens' StopAction (Maybe Text)-sTopicARN = lens _sTopicARN (\ s a -> s{_sTopicARN = a});+sTopicARN = lens _sTopicARN (\ s a -> s{_sTopicARN = a})  -- | The name of the RuleSet that is being stopped. sScope :: Lens' StopAction StopScope-sScope = lens _sScope (\ s a -> s{_sScope = a});+sScope = lens _sScope (\ s a -> s{_sScope = a})  instance FromXML StopAction where         parseXML x@@ -2069,28 +2194,28 @@     -> Template template pTemplateName_ =   Template'-  { _tTextPart = Nothing-  , _tSubjectPart = Nothing-  , _tHTMLPart = Nothing-  , _tTemplateName = pTemplateName_-  }+    { _tTextPart = Nothing+    , _tSubjectPart = Nothing+    , _tHTMLPart = Nothing+    , _tTemplateName = pTemplateName_+    }   -- | The email body that will be visible to recipients whose email clients do not display HTML. tTextPart :: Lens' Template (Maybe Text)-tTextPart = lens _tTextPart (\ s a -> s{_tTextPart = a});+tTextPart = lens _tTextPart (\ s a -> s{_tTextPart = a})  -- | The subject line of the email. tSubjectPart :: Lens' Template (Maybe Text)-tSubjectPart = lens _tSubjectPart (\ s a -> s{_tSubjectPart = a});+tSubjectPart = lens _tSubjectPart (\ s a -> s{_tSubjectPart = a})  -- | The HTML body of the email. tHTMLPart :: Lens' Template (Maybe Text)-tHTMLPart = lens _tHTMLPart (\ s a -> s{_tHTMLPart = a});+tHTMLPart = lens _tHTMLPart (\ s a -> s{_tHTMLPart = a})  -- | The name of the template. You will refer to this name when you send email using the @SendTemplatedEmail@ or @SendBulkTemplatedEmail@ operations. tTemplateName :: Lens' Template Text-tTemplateName = lens _tTemplateName (\ s a -> s{_tTemplateName = a});+tTemplateName = lens _tTemplateName (\ s a -> s{_tTemplateName = a})  instance FromXML Template where         parseXML x@@ -2111,7 +2236,7 @@                "HtmlPart" =: _tHTMLPart,                "TemplateName" =: _tTemplateName] --- | Information about an email template.+-- | Contains information about an email template. -- -- --@@ -2137,11 +2262,11 @@  -- | The name of the template. tmName :: Lens' TemplateMetadata (Maybe Text)-tmName = lens _tmName (\ s a -> s{_tmName = a});+tmName = lens _tmName (\ s a -> s{_tmName = a})  -- | The time and date the template was created. tmCreatedTimestamp :: Lens' TemplateMetadata (Maybe UTCTime)-tmCreatedTimestamp = lens _tmCreatedTimestamp (\ s a -> s{_tmCreatedTimestamp = a}) . mapping _Time;+tmCreatedTimestamp = lens _tmCreatedTimestamp (\ s a -> s{_tmCreatedTimestamp = a}) . mapping _Time  instance FromXML TemplateMetadata where         parseXML x@@ -2176,7 +2301,7 @@  -- | The custom subdomain that will be used to redirect email recipients to the Amazon SES event tracking domain. toCustomRedirectDomain :: Lens' TrackingOptions (Maybe Text)-toCustomRedirectDomain = lens _toCustomRedirectDomain (\ s a -> s{_toCustomRedirectDomain = a});+toCustomRedirectDomain = lens _toCustomRedirectDomain (\ s a -> s{_toCustomRedirectDomain = a})  instance FromXML TrackingOptions where         parseXML x@@ -2216,16 +2341,16 @@     -> WorkmailAction workmailAction pOrganizationARN_ =   WorkmailAction'-  {_waTopicARN = Nothing, _waOrganizationARN = pOrganizationARN_}+    {_waTopicARN = Nothing, _waOrganizationARN = pOrganizationARN_}   -- | The Amazon Resource Name (ARN) of the Amazon SNS topic to notify when the WorkMail action is called. An example of an Amazon SNS topic ARN is @arn:aws:sns:us-west-2:123456789012:MyTopic@ . For more information about Amazon SNS topics, see the <http://docs.aws.amazon.com/sns/latest/dg/CreateTopic.html Amazon SNS Developer Guide> . waTopicARN :: Lens' WorkmailAction (Maybe Text)-waTopicARN = lens _waTopicARN (\ s a -> s{_waTopicARN = a});+waTopicARN = lens _waTopicARN (\ s a -> s{_waTopicARN = a})  -- | The ARN of the Amazon WorkMail organization. An example of an Amazon WorkMail organization ARN is @arn:aws:workmail:us-west-2:123456789012:organization/m-68755160c4cb4e29a2b2f8fb58f359d7@ . For information about Amazon WorkMail organizations, see the <http://docs.aws.amazon.com/workmail/latest/adminguide/organizations_overview.html Amazon WorkMail Administrator Guide> . waOrganizationARN :: Lens' WorkmailAction Text-waOrganizationARN = lens _waOrganizationARN (\ s a -> s{_waOrganizationARN = a});+waOrganizationARN = lens _waOrganizationARN (\ s a -> s{_waOrganizationARN = a})  instance FromXML WorkmailAction where         parseXML x

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.SES.Types.Sum--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -84,9 +84,11 @@  data BulkEmailStatus   = AccountDailyQuotaExceeded+  | AccountSendingPaused   | AccountSuspended   | AccountThrottled   | ConfigurationSetDoesNotExist+  | ConfigurationSetSendingPaused   | Failed   | InvalidParameterValue   | InvalidSendingPoolName@@ -101,9 +103,11 @@ instance FromText BulkEmailStatus where     parser = takeLowerText >>= \case         "accountdailyquotaexceeded" -> pure AccountDailyQuotaExceeded+        "accountsendingpaused" -> pure AccountSendingPaused         "accountsuspended" -> pure AccountSuspended         "accountthrottled" -> pure AccountThrottled         "configurationsetdoesnotexist" -> pure ConfigurationSetDoesNotExist+        "configurationsetsendingpaused" -> pure ConfigurationSetSendingPaused         "failed" -> pure Failed         "invalidparametervalue" -> pure InvalidParameterValue         "invalidsendingpoolname" -> pure InvalidSendingPoolName@@ -113,14 +117,16 @@         "templatedoesnotexist" -> pure TemplateDoesNotExist         "transientfailure" -> pure TransientFailure         e -> fromTextError $ "Failure parsing BulkEmailStatus from value: '" <> e-           <> "'. Accepted values: accountdailyquotaexceeded, accountsuspended, accountthrottled, configurationsetdoesnotexist, failed, invalidparametervalue, invalidsendingpoolname, mailfromdomainnotverified, messagerejected, success, templatedoesnotexist, transientfailure"+           <> "'. Accepted values: accountdailyquotaexceeded, accountsendingpaused, accountsuspended, accountthrottled, configurationsetdoesnotexist, configurationsetsendingpaused, failed, invalidparametervalue, invalidsendingpoolname, mailfromdomainnotverified, messagerejected, success, templatedoesnotexist, transientfailure"  instance ToText BulkEmailStatus where     toText = \case         AccountDailyQuotaExceeded -> "AccountDailyQuotaExceeded"+        AccountSendingPaused -> "AccountSendingPaused"         AccountSuspended -> "AccountSuspended"         AccountThrottled -> "AccountThrottled"         ConfigurationSetDoesNotExist -> "ConfigurationSetDoesNotExist"+        ConfigurationSetSendingPaused -> "ConfigurationSetSendingPaused"         Failed -> "Failed"         InvalidParameterValue -> "InvalidParameterValue"         InvalidSendingPoolName -> "InvalidSendingPoolName"@@ -141,6 +147,7 @@  data ConfigurationSetAttribute   = EventDestinations+  | ReputationOptions   | TrackingOptions   deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) @@ -148,13 +155,15 @@ instance FromText ConfigurationSetAttribute where     parser = takeLowerText >>= \case         "eventdestinations" -> pure EventDestinations+        "reputationoptions" -> pure ReputationOptions         "trackingoptions" -> pure TrackingOptions         e -> fromTextError $ "Failure parsing ConfigurationSetAttribute from value: '" <> e-           <> "'. Accepted values: eventdestinations, trackingoptions"+           <> "'. Accepted values: eventdestinations, reputationoptions, trackingoptions"  instance ToText ConfigurationSetAttribute where     toText = \case         EventDestinations -> "eventDestinations"+        ReputationOptions -> "reputationOptions"         TrackingOptions -> "trackingOptions"  instance Hashable     ConfigurationSetAttribute

@@ -0,0 +1,110 @@+{-# 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.UpdateAccountSendingEnabled+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Enables or disables email sending across your entire Amazon SES account. You can use this operation in conjunction with Amazon CloudWatch alarms to temporarily pause email sending across your Amazon SES account when reputation metrics (such as your bounce on complaint rate) reach certain thresholds.+--+--+-- You can execute this operation no more than once per second.+--+module Network.AWS.SES.UpdateAccountSendingEnabled+    (+    -- * Creating a Request+      updateAccountSendingEnabled+    , UpdateAccountSendingEnabled+    -- * Request Lenses+    , uaseEnabled++    -- * Destructuring the Response+    , updateAccountSendingEnabledResponse+    , UpdateAccountSendingEnabledResponse+    ) 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 enable or disable the email sending capabilities for your entire Amazon SES account.+--+--+--+-- /See:/ 'updateAccountSendingEnabled' smart constructor.+newtype UpdateAccountSendingEnabled = UpdateAccountSendingEnabled'+  { _uaseEnabled :: Maybe Bool+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'UpdateAccountSendingEnabled' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'uaseEnabled' - Describes whether email sending is enabled or disabled for your Amazon SES account.+updateAccountSendingEnabled+    :: UpdateAccountSendingEnabled+updateAccountSendingEnabled =+  UpdateAccountSendingEnabled' {_uaseEnabled = Nothing}+++-- | Describes whether email sending is enabled or disabled for your Amazon SES account.+uaseEnabled :: Lens' UpdateAccountSendingEnabled (Maybe Bool)+uaseEnabled = lens _uaseEnabled (\ s a -> s{_uaseEnabled = a})++instance AWSRequest UpdateAccountSendingEnabled where+        type Rs UpdateAccountSendingEnabled =+             UpdateAccountSendingEnabledResponse+        request = postQuery ses+        response+          = receiveNull UpdateAccountSendingEnabledResponse'++instance Hashable UpdateAccountSendingEnabled where++instance NFData UpdateAccountSendingEnabled where++instance ToHeaders UpdateAccountSendingEnabled where+        toHeaders = const mempty++instance ToPath UpdateAccountSendingEnabled where+        toPath = const "/"++instance ToQuery UpdateAccountSendingEnabled where+        toQuery UpdateAccountSendingEnabled'{..}+          = mconcat+              ["Action" =:+                 ("UpdateAccountSendingEnabled" :: ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "Enabled" =: _uaseEnabled]++-- | /See:/ 'updateAccountSendingEnabledResponse' smart constructor.+data UpdateAccountSendingEnabledResponse =+  UpdateAccountSendingEnabledResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'UpdateAccountSendingEnabledResponse' with the minimum fields required to make a request.+--+updateAccountSendingEnabledResponse+    :: UpdateAccountSendingEnabledResponse+updateAccountSendingEnabledResponse = UpdateAccountSendingEnabledResponse'+++instance NFData UpdateAccountSendingEnabledResponse+         where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.UpdateConfigurationSetEventDestination--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -70,18 +70,18 @@     -> UpdateConfigurationSetEventDestination updateConfigurationSetEventDestination pConfigurationSetName_ pEventDestination_ =   UpdateConfigurationSetEventDestination'-  { _ucsedConfigurationSetName = pConfigurationSetName_-  , _ucsedEventDestination = pEventDestination_-  }+    { _ucsedConfigurationSetName = pConfigurationSetName_+    , _ucsedEventDestination = pEventDestination_+    }   -- | The name of the configuration set that contains the event destination that you want to update. ucsedConfigurationSetName :: Lens' UpdateConfigurationSetEventDestination Text-ucsedConfigurationSetName = lens _ucsedConfigurationSetName (\ s a -> s{_ucsedConfigurationSetName = a});+ucsedConfigurationSetName = lens _ucsedConfigurationSetName (\ s a -> s{_ucsedConfigurationSetName = a})  -- | The event destination object that you want to apply to the specified configuration set. ucsedEventDestination :: Lens' UpdateConfigurationSetEventDestination EventDestination-ucsedEventDestination = lens _ucsedEventDestination (\ s a -> s{_ucsedEventDestination = a});+ucsedEventDestination = lens _ucsedEventDestination (\ s a -> s{_ucsedEventDestination = a})  instance AWSRequest            UpdateConfigurationSetEventDestination@@ -146,12 +146,12 @@     -> UpdateConfigurationSetEventDestinationResponse updateConfigurationSetEventDestinationResponse pResponseStatus_ =   UpdateConfigurationSetEventDestinationResponse'-  {_ucsedrsResponseStatus = pResponseStatus_}+    {_ucsedrsResponseStatus = pResponseStatus_}   -- | -- | The response status code. ucsedrsResponseStatus :: Lens' UpdateConfigurationSetEventDestinationResponse Int-ucsedrsResponseStatus = lens _ucsedrsResponseStatus (\ s a -> s{_ucsedrsResponseStatus = a});+ucsedrsResponseStatus = lens _ucsedrsResponseStatus (\ s a -> s{_ucsedrsResponseStatus = a})  instance NFData            UpdateConfigurationSetEventDestinationResponse

@@ -0,0 +1,144 @@+{-# 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.UpdateConfigurationSetReputationMetricsEnabled+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Enables or disables the publishing of reputation metrics for emails sent using a specific configuration set. Reputation metrics include bounce and complaint rates. These metrics are published to Amazon CloudWatch. By using Amazon CloudWatch, you can create alarms when bounce or complaint rates exceed a certain threshold.+--+--+-- You can execute this operation no more than once per second.+--+module Network.AWS.SES.UpdateConfigurationSetReputationMetricsEnabled+    (+    -- * Creating a Request+      updateConfigurationSetReputationMetricsEnabled+    , UpdateConfigurationSetReputationMetricsEnabled+    -- * Request Lenses+    , ucsrmeConfigurationSetName+    , ucsrmeEnabled++    -- * Destructuring the Response+    , updateConfigurationSetReputationMetricsEnabledResponse+    , UpdateConfigurationSetReputationMetricsEnabledResponse+    ) 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 modify the reputation metric publishing settings for a configuration set.+--+--+--+-- /See:/ 'updateConfigurationSetReputationMetricsEnabled' smart constructor.+data UpdateConfigurationSetReputationMetricsEnabled = UpdateConfigurationSetReputationMetricsEnabled'+  { _ucsrmeConfigurationSetName :: !Text+  , _ucsrmeEnabled              :: !Bool+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'UpdateConfigurationSetReputationMetricsEnabled' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ucsrmeConfigurationSetName' - The name of the configuration set that you want to update.+--+-- * 'ucsrmeEnabled' - Describes whether or not Amazon SES will publish reputation metrics for the configuration set, such as bounce and complaint rates, to Amazon CloudWatch.+updateConfigurationSetReputationMetricsEnabled+    :: Text -- ^ 'ucsrmeConfigurationSetName'+    -> Bool -- ^ 'ucsrmeEnabled'+    -> UpdateConfigurationSetReputationMetricsEnabled+updateConfigurationSetReputationMetricsEnabled pConfigurationSetName_ pEnabled_ =+  UpdateConfigurationSetReputationMetricsEnabled'+    { _ucsrmeConfigurationSetName = pConfigurationSetName_+    , _ucsrmeEnabled = pEnabled_+    }+++-- | The name of the configuration set that you want to update.+ucsrmeConfigurationSetName :: Lens' UpdateConfigurationSetReputationMetricsEnabled Text+ucsrmeConfigurationSetName = lens _ucsrmeConfigurationSetName (\ s a -> s{_ucsrmeConfigurationSetName = a})++-- | Describes whether or not Amazon SES will publish reputation metrics for the configuration set, such as bounce and complaint rates, to Amazon CloudWatch.+ucsrmeEnabled :: Lens' UpdateConfigurationSetReputationMetricsEnabled Bool+ucsrmeEnabled = lens _ucsrmeEnabled (\ s a -> s{_ucsrmeEnabled = a})++instance AWSRequest+           UpdateConfigurationSetReputationMetricsEnabled+         where+        type Rs+               UpdateConfigurationSetReputationMetricsEnabled+             =+             UpdateConfigurationSetReputationMetricsEnabledResponse+        request = postQuery ses+        response+          = receiveNull+              UpdateConfigurationSetReputationMetricsEnabledResponse'++instance Hashable+           UpdateConfigurationSetReputationMetricsEnabled+         where++instance NFData+           UpdateConfigurationSetReputationMetricsEnabled+         where++instance ToHeaders+           UpdateConfigurationSetReputationMetricsEnabled+         where+        toHeaders = const mempty++instance ToPath+           UpdateConfigurationSetReputationMetricsEnabled+         where+        toPath = const "/"++instance ToQuery+           UpdateConfigurationSetReputationMetricsEnabled+         where+        toQuery+          UpdateConfigurationSetReputationMetricsEnabled'{..}+          = mconcat+              ["Action" =:+                 ("UpdateConfigurationSetReputationMetricsEnabled" ::+                    ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "ConfigurationSetName" =:+                 _ucsrmeConfigurationSetName,+               "Enabled" =: _ucsrmeEnabled]++-- | /See:/ 'updateConfigurationSetReputationMetricsEnabledResponse' smart constructor.+data UpdateConfigurationSetReputationMetricsEnabledResponse =+  UpdateConfigurationSetReputationMetricsEnabledResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'UpdateConfigurationSetReputationMetricsEnabledResponse' with the minimum fields required to make a request.+--+updateConfigurationSetReputationMetricsEnabledResponse+    :: UpdateConfigurationSetReputationMetricsEnabledResponse+updateConfigurationSetReputationMetricsEnabledResponse =+  UpdateConfigurationSetReputationMetricsEnabledResponse'+++instance NFData+           UpdateConfigurationSetReputationMetricsEnabledResponse+         where

@@ -0,0 +1,137 @@+{-# 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.UpdateConfigurationSetSendingEnabled+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Enables or disables email sending for messages sent using a specific configuration set. You can use this operation in conjunction with Amazon CloudWatch alarms to temporarily pause email sending for a configuration set when the reputation metrics for that configuration set (such as your bounce on complaint rate) reach certain thresholds.+--+--+-- You can execute this operation no more than once per second.+--+module Network.AWS.SES.UpdateConfigurationSetSendingEnabled+    (+    -- * Creating a Request+      updateConfigurationSetSendingEnabled+    , UpdateConfigurationSetSendingEnabled+    -- * Request Lenses+    , ucsseConfigurationSetName+    , ucsseEnabled++    -- * Destructuring the Response+    , updateConfigurationSetSendingEnabledResponse+    , UpdateConfigurationSetSendingEnabledResponse+    ) 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 enable or disable the email sending capabilities for a specific configuration set.+--+--+--+-- /See:/ 'updateConfigurationSetSendingEnabled' smart constructor.+data UpdateConfigurationSetSendingEnabled = UpdateConfigurationSetSendingEnabled'+  { _ucsseConfigurationSetName :: !Text+  , _ucsseEnabled              :: !Bool+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'UpdateConfigurationSetSendingEnabled' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ucsseConfigurationSetName' - The name of the configuration set that you want to update.+--+-- * 'ucsseEnabled' - Describes whether email sending is enabled or disabled for the configuration set.+updateConfigurationSetSendingEnabled+    :: Text -- ^ 'ucsseConfigurationSetName'+    -> Bool -- ^ 'ucsseEnabled'+    -> UpdateConfigurationSetSendingEnabled+updateConfigurationSetSendingEnabled pConfigurationSetName_ pEnabled_ =+  UpdateConfigurationSetSendingEnabled'+    { _ucsseConfigurationSetName = pConfigurationSetName_+    , _ucsseEnabled = pEnabled_+    }+++-- | The name of the configuration set that you want to update.+ucsseConfigurationSetName :: Lens' UpdateConfigurationSetSendingEnabled Text+ucsseConfigurationSetName = lens _ucsseConfigurationSetName (\ s a -> s{_ucsseConfigurationSetName = a})++-- | Describes whether email sending is enabled or disabled for the configuration set.+ucsseEnabled :: Lens' UpdateConfigurationSetSendingEnabled Bool+ucsseEnabled = lens _ucsseEnabled (\ s a -> s{_ucsseEnabled = a})++instance AWSRequest+           UpdateConfigurationSetSendingEnabled+         where+        type Rs UpdateConfigurationSetSendingEnabled =+             UpdateConfigurationSetSendingEnabledResponse+        request = postQuery ses+        response+          = receiveNull+              UpdateConfigurationSetSendingEnabledResponse'++instance Hashable+           UpdateConfigurationSetSendingEnabled+         where++instance NFData UpdateConfigurationSetSendingEnabled+         where++instance ToHeaders+           UpdateConfigurationSetSendingEnabled+         where+        toHeaders = const mempty++instance ToPath UpdateConfigurationSetSendingEnabled+         where+        toPath = const "/"++instance ToQuery UpdateConfigurationSetSendingEnabled+         where+        toQuery UpdateConfigurationSetSendingEnabled'{..}+          = mconcat+              ["Action" =:+                 ("UpdateConfigurationSetSendingEnabled" ::+                    ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "ConfigurationSetName" =: _ucsseConfigurationSetName,+               "Enabled" =: _ucsseEnabled]++-- | /See:/ 'updateConfigurationSetSendingEnabledResponse' smart constructor.+data UpdateConfigurationSetSendingEnabledResponse =+  UpdateConfigurationSetSendingEnabledResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'UpdateConfigurationSetSendingEnabledResponse' with the minimum fields required to make a request.+--+updateConfigurationSetSendingEnabledResponse+    :: UpdateConfigurationSetSendingEnabledResponse+updateConfigurationSetSendingEnabledResponse =+  UpdateConfigurationSetSendingEnabledResponse'+++instance NFData+           UpdateConfigurationSetSendingEnabledResponse+         where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.UpdateConfigurationSetTrackingOptions--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -70,18 +70,18 @@     -> UpdateConfigurationSetTrackingOptions updateConfigurationSetTrackingOptions pConfigurationSetName_ pTrackingOptions_ =   UpdateConfigurationSetTrackingOptions'-  { _ucstoConfigurationSetName = pConfigurationSetName_-  , _ucstoTrackingOptions = pTrackingOptions_-  }+    { _ucstoConfigurationSetName = pConfigurationSetName_+    , _ucstoTrackingOptions = pTrackingOptions_+    }   -- | The name of the configuration set for which you want to update the custom tracking domain. ucstoConfigurationSetName :: Lens' UpdateConfigurationSetTrackingOptions Text-ucstoConfigurationSetName = lens _ucstoConfigurationSetName (\ s a -> s{_ucstoConfigurationSetName = a});+ucstoConfigurationSetName = lens _ucstoConfigurationSetName (\ s a -> s{_ucstoConfigurationSetName = a})  -- | Undocumented member. ucstoTrackingOptions :: Lens' UpdateConfigurationSetTrackingOptions TrackingOptions-ucstoTrackingOptions = lens _ucstoTrackingOptions (\ s a -> s{_ucstoTrackingOptions = a});+ucstoTrackingOptions = lens _ucstoTrackingOptions (\ s a -> s{_ucstoTrackingOptions = a})  instance AWSRequest            UpdateConfigurationSetTrackingOptions@@ -144,12 +144,12 @@     -> UpdateConfigurationSetTrackingOptionsResponse updateConfigurationSetTrackingOptionsResponse pResponseStatus_ =   UpdateConfigurationSetTrackingOptionsResponse'-  {_ucstorsResponseStatus = pResponseStatus_}+    {_ucstorsResponseStatus = pResponseStatus_}   -- | -- | The response status code. ucstorsResponseStatus :: Lens' UpdateConfigurationSetTrackingOptionsResponse Int-ucstorsResponseStatus = lens _ucstorsResponseStatus (\ s a -> s{_ucstorsResponseStatus = a});+ucstorsResponseStatus = lens _ucstorsResponseStatus (\ s a -> s{_ucstorsResponseStatus = a})  instance NFData            UpdateConfigurationSetTrackingOptionsResponse

@@ -0,0 +1,181 @@+{-# 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.UpdateCustomVerificationEmailTemplate+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates an existing custom verification email template.+--+--+-- For more information about custom verification email templates, see <https://docs.aws.amazon.com/ses/latest/DeveloperGuide/custom-verification-emails.html Using Custom Verification Email Templates> in the /Amazon SES Developer Guide/ .+--+-- You can execute this operation no more than once per second.+--+module Network.AWS.SES.UpdateCustomVerificationEmailTemplate+    (+    -- * Creating a Request+      updateCustomVerificationEmailTemplate+    , UpdateCustomVerificationEmailTemplate+    -- * Request Lenses+    , ucvetFromEmailAddress+    , ucvetFailureRedirectionURL+    , ucvetTemplateSubject+    , ucvetSuccessRedirectionURL+    , ucvetTemplateContent+    , ucvetTemplateName++    -- * Destructuring the Response+    , updateCustomVerificationEmailTemplateResponse+    , UpdateCustomVerificationEmailTemplateResponse+    ) 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 update an existing custom verification email template.+--+--+--+-- /See:/ 'updateCustomVerificationEmailTemplate' smart constructor.+data UpdateCustomVerificationEmailTemplate = UpdateCustomVerificationEmailTemplate'+  { _ucvetFromEmailAddress      :: !(Maybe Text)+  , _ucvetFailureRedirectionURL :: !(Maybe Text)+  , _ucvetTemplateSubject       :: !(Maybe Text)+  , _ucvetSuccessRedirectionURL :: !(Maybe Text)+  , _ucvetTemplateContent       :: !(Maybe Text)+  , _ucvetTemplateName          :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'UpdateCustomVerificationEmailTemplate' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ucvetFromEmailAddress' - The email address that the custom verification email is sent from.+--+-- * 'ucvetFailureRedirectionURL' - The URL that the recipient of the verification email is sent to if his or her address is not successfully verified.+--+-- * 'ucvetTemplateSubject' - The subject line of the custom verification email.+--+-- * 'ucvetSuccessRedirectionURL' - The URL that the recipient of the verification email is sent to if his or her address is successfully verified.+--+-- * 'ucvetTemplateContent' - The content of the custom verification email. The total size of the email must be less than 10 MB. The message body may contain HTML, with some limitations. For more information, see <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/custom-verification-emails.html#custom-verification-emails-faq Custom Verification Email Frequently Asked Questions> in the /Amazon SES Developer Guide/ .+--+-- * 'ucvetTemplateName' - The name of the custom verification email template that you want to update.+updateCustomVerificationEmailTemplate+    :: Text -- ^ 'ucvetTemplateName'+    -> UpdateCustomVerificationEmailTemplate+updateCustomVerificationEmailTemplate pTemplateName_ =+  UpdateCustomVerificationEmailTemplate'+    { _ucvetFromEmailAddress = Nothing+    , _ucvetFailureRedirectionURL = Nothing+    , _ucvetTemplateSubject = Nothing+    , _ucvetSuccessRedirectionURL = Nothing+    , _ucvetTemplateContent = Nothing+    , _ucvetTemplateName = pTemplateName_+    }+++-- | The email address that the custom verification email is sent from.+ucvetFromEmailAddress :: Lens' UpdateCustomVerificationEmailTemplate (Maybe Text)+ucvetFromEmailAddress = lens _ucvetFromEmailAddress (\ s a -> s{_ucvetFromEmailAddress = a})++-- | The URL that the recipient of the verification email is sent to if his or her address is not successfully verified.+ucvetFailureRedirectionURL :: Lens' UpdateCustomVerificationEmailTemplate (Maybe Text)+ucvetFailureRedirectionURL = lens _ucvetFailureRedirectionURL (\ s a -> s{_ucvetFailureRedirectionURL = a})++-- | The subject line of the custom verification email.+ucvetTemplateSubject :: Lens' UpdateCustomVerificationEmailTemplate (Maybe Text)+ucvetTemplateSubject = lens _ucvetTemplateSubject (\ s a -> s{_ucvetTemplateSubject = a})++-- | The URL that the recipient of the verification email is sent to if his or her address is successfully verified.+ucvetSuccessRedirectionURL :: Lens' UpdateCustomVerificationEmailTemplate (Maybe Text)+ucvetSuccessRedirectionURL = lens _ucvetSuccessRedirectionURL (\ s a -> s{_ucvetSuccessRedirectionURL = a})++-- | The content of the custom verification email. The total size of the email must be less than 10 MB. The message body may contain HTML, with some limitations. For more information, see <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/custom-verification-emails.html#custom-verification-emails-faq Custom Verification Email Frequently Asked Questions> in the /Amazon SES Developer Guide/ .+ucvetTemplateContent :: Lens' UpdateCustomVerificationEmailTemplate (Maybe Text)+ucvetTemplateContent = lens _ucvetTemplateContent (\ s a -> s{_ucvetTemplateContent = a})++-- | The name of the custom verification email template that you want to update.+ucvetTemplateName :: Lens' UpdateCustomVerificationEmailTemplate Text+ucvetTemplateName = lens _ucvetTemplateName (\ s a -> s{_ucvetTemplateName = a})++instance AWSRequest+           UpdateCustomVerificationEmailTemplate+         where+        type Rs UpdateCustomVerificationEmailTemplate =+             UpdateCustomVerificationEmailTemplateResponse+        request = postQuery ses+        response+          = receiveNull+              UpdateCustomVerificationEmailTemplateResponse'++instance Hashable+           UpdateCustomVerificationEmailTemplate+         where++instance NFData UpdateCustomVerificationEmailTemplate+         where++instance ToHeaders+           UpdateCustomVerificationEmailTemplate+         where+        toHeaders = const mempty++instance ToPath UpdateCustomVerificationEmailTemplate+         where+        toPath = const "/"++instance ToQuery+           UpdateCustomVerificationEmailTemplate+         where+        toQuery UpdateCustomVerificationEmailTemplate'{..}+          = mconcat+              ["Action" =:+                 ("UpdateCustomVerificationEmailTemplate" ::+                    ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "FromEmailAddress" =: _ucvetFromEmailAddress,+               "FailureRedirectionURL" =:+                 _ucvetFailureRedirectionURL,+               "TemplateSubject" =: _ucvetTemplateSubject,+               "SuccessRedirectionURL" =:+                 _ucvetSuccessRedirectionURL,+               "TemplateContent" =: _ucvetTemplateContent,+               "TemplateName" =: _ucvetTemplateName]++-- | /See:/ 'updateCustomVerificationEmailTemplateResponse' smart constructor.+data UpdateCustomVerificationEmailTemplateResponse =+  UpdateCustomVerificationEmailTemplateResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'UpdateCustomVerificationEmailTemplateResponse' with the minimum fields required to make a request.+--+updateCustomVerificationEmailTemplateResponse+    :: UpdateCustomVerificationEmailTemplateResponse+updateCustomVerificationEmailTemplateResponse =+  UpdateCustomVerificationEmailTemplateResponse'+++instance NFData+           UpdateCustomVerificationEmailTemplateResponse+         where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.UpdateReceiptRule--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -76,11 +76,11 @@  -- | The name of the receipt rule set that the receipt rule belongs to. urrRuleSetName :: Lens' UpdateReceiptRule Text-urrRuleSetName = lens _urrRuleSetName (\ s a -> s{_urrRuleSetName = a});+urrRuleSetName = lens _urrRuleSetName (\ s a -> s{_urrRuleSetName = a})  -- | A data structure that contains the updated receipt rule information. urrRule :: Lens' UpdateReceiptRule ReceiptRule-urrRule = lens _urrRule (\ s a -> s{_urrRule = a});+urrRule = lens _urrRule (\ s a -> s{_urrRule = a})  instance AWSRequest UpdateReceiptRule where         type Rs UpdateReceiptRule = UpdateReceiptRuleResponse@@ -131,6 +131,6 @@  -- | -- | The response status code. urrrsResponseStatus :: Lens' UpdateReceiptRuleResponse Int-urrrsResponseStatus = lens _urrrsResponseStatus (\ s a -> s{_urrrsResponseStatus = a});+urrrsResponseStatus = lens _urrrsResponseStatus (\ s a -> s{_urrrsResponseStatus = a})  instance NFData UpdateReceiptRuleResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.UpdateTemplate--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@  -- | Undocumented member. utTemplate :: Lens' UpdateTemplate Template-utTemplate = lens _utTemplate (\ s a -> s{_utTemplate = a});+utTemplate = lens _utTemplate (\ s a -> s{_utTemplate = a})  instance AWSRequest UpdateTemplate where         type Rs UpdateTemplate = UpdateTemplateResponse@@ -111,6 +111,6 @@  -- | -- | The response status code. utrsResponseStatus :: Lens' UpdateTemplateResponse Int-utrsResponseStatus = lens _utrsResponseStatus (\ s a -> s{_utrsResponseStatus = a});+utrsResponseStatus = lens _utrsResponseStatus (\ s a -> s{_utrsResponseStatus = a})  instance NFData UpdateTemplateResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.VerifyDomainDkim--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -73,7 +73,7 @@  -- | The name of the domain to be verified for Easy DKIM signing. vddDomain :: Lens' VerifyDomainDkim Text-vddDomain = lens _vddDomain (\ s a -> s{_vddDomain = a});+vddDomain = lens _vddDomain (\ s a -> s{_vddDomain = a})  instance AWSRequest VerifyDomainDkim where         type Rs VerifyDomainDkim = VerifyDomainDkimResponse@@ -126,15 +126,15 @@     -> VerifyDomainDkimResponse verifyDomainDkimResponse pResponseStatus_ =   VerifyDomainDkimResponse'-  {_vddrsResponseStatus = pResponseStatus_, _vddrsDkimTokens = mempty}+    {_vddrsResponseStatus = pResponseStatus_, _vddrsDkimTokens = mempty}   -- | -- | The response status code. vddrsResponseStatus :: Lens' VerifyDomainDkimResponse Int-vddrsResponseStatus = lens _vddrsResponseStatus (\ s a -> s{_vddrsResponseStatus = a});+vddrsResponseStatus = lens _vddrsResponseStatus (\ s a -> s{_vddrsResponseStatus = a})  -- | A set of character strings that represent the domain's identity. If the identity is an email address, the tokens represent the domain of that address. Using these tokens, you will need to create DNS CNAME records that point to DKIM public keys hosted by Amazon SES. Amazon Web Services will eventually detect that you have updated your DNS records; this detection process may take up to 72 hours. Upon successful detection, Amazon SES will be able to DKIM-sign emails originating from that domain. For more information about creating DNS records using DKIM tokens, go to the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/easy-dkim-dns-records.html Amazon SES Developer Guide> . vddrsDkimTokens :: Lens' VerifyDomainDkimResponse [Text]-vddrsDkimTokens = lens _vddrsDkimTokens (\ s a -> s{_vddrsDkimTokens = a}) . _Coerce;+vddrsDkimTokens = lens _vddrsDkimTokens (\ s a -> s{_vddrsDkimTokens = a}) . _Coerce  instance NFData VerifyDomainDkimResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.VerifyDomainIdentity--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,7 +69,7 @@  -- | The domain to be verified. vdiDomain :: Lens' VerifyDomainIdentity Text-vdiDomain = lens _vdiDomain (\ s a -> s{_vdiDomain = a});+vdiDomain = lens _vdiDomain (\ s a -> s{_vdiDomain = a})  instance AWSRequest VerifyDomainIdentity where         type Rs VerifyDomainIdentity =@@ -122,17 +122,17 @@     -> VerifyDomainIdentityResponse verifyDomainIdentityResponse pResponseStatus_ pVerificationToken_ =   VerifyDomainIdentityResponse'-  { _vdirsResponseStatus = pResponseStatus_-  , _vdirsVerificationToken = pVerificationToken_-  }+    { _vdirsResponseStatus = pResponseStatus_+    , _vdirsVerificationToken = pVerificationToken_+    }   -- | -- | The response status code. vdirsResponseStatus :: Lens' VerifyDomainIdentityResponse Int-vdirsResponseStatus = lens _vdirsResponseStatus (\ s a -> s{_vdirsResponseStatus = a});+vdirsResponseStatus = lens _vdirsResponseStatus (\ s a -> s{_vdirsResponseStatus = a})  -- | A TXT record that you must place in the DNS settings of the domain to complete domain verification with Amazon SES. As Amazon SES searches for the TXT record, the domain's verification status is "Pending". When Amazon SES detects the record, the domain's verification status changes to "Success". If Amazon SES is unable to detect the record within 72 hours, the domain's verification status changes to "Failed." In that case, if you still want to verify the domain, you must restart the verification process from the beginning. vdirsVerificationToken :: Lens' VerifyDomainIdentityResponse Text-vdirsVerificationToken = lens _vdirsVerificationToken (\ s a -> s{_vdirsVerificationToken = a});+vdirsVerificationToken = lens _vdirsVerificationToken (\ s a -> s{_vdirsVerificationToken = a})  instance NFData VerifyDomainIdentityResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SES.VerifyEmailAddress--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -65,7 +65,7 @@  -- | The email address to be verified. veaEmailAddress :: Lens' VerifyEmailAddress Text-veaEmailAddress = lens _veaEmailAddress (\ s a -> s{_veaEmailAddress = a});+veaEmailAddress = lens _veaEmailAddress (\ s a -> s{_veaEmailAddress = a})  instance AWSRequest VerifyEmailAddress where         type Rs VerifyEmailAddress =

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.SES.VerifyEmailIdentity--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Adds an email address to the list of identities for your Amazon SES account and attempts to verify it. This operation causes a confirmation email message to be sent to the specified address.+-- Adds an email address to the list of identities for your Amazon SES account and attempts to verify it. As a result of executing this operation, a verification email is sent to the specified address. -- -- -- You can execute this operation no more than once per second.@@ -69,7 +69,7 @@  -- | The email address to be verified. veiEmailAddress :: Lens' VerifyEmailIdentity Text-veiEmailAddress = lens _veiEmailAddress (\ s a -> s{_veiEmailAddress = a});+veiEmailAddress = lens _veiEmailAddress (\ s a -> s{_veiEmailAddress = a})  instance AWSRequest VerifyEmailIdentity where         type Rs VerifyEmailIdentity =@@ -121,6 +121,6 @@  -- | -- | The response status code. veirsResponseStatus :: Lens' VerifyEmailIdentityResponse Int-veirsResponseStatus = lens _veirsResponseStatus (\ s a -> s{_veirsResponseStatus = a});+veirsResponseStatus = lens _veirsResponseStatus (\ s a -> s{_veirsResponseStatus = a})  instance NFData VerifyEmailIdentityResponse where

@@ -7,7 +7,7 @@  -- | -- Module      : Network.AWS.SES.Waiters--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated

@@ -2,7 +2,7 @@  -- | -- Module      : Main--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated

@@ -5,7 +5,7 @@  -- | -- Module      : Test.AWS.Gen.SES--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -52,12 +52,24 @@ --         , requestPutIdentityPolicy $ --             putIdentityPolicy --+--         , requestDeleteCustomVerificationEmailTemplate $+--             deleteCustomVerificationEmailTemplate+-- --         , requestDeleteIdentityPolicy $ --             deleteIdentityPolicy --+--         , requestUpdateCustomVerificationEmailTemplate $+--             updateCustomVerificationEmailTemplate+--+--         , requestSendCustomVerificationEmail $+--             sendCustomVerificationEmail+-- --         , requestGetIdentityNotificationAttributes $ --             getIdentityNotificationAttributes --+--         , requestUpdateConfigurationSetReputationMetricsEnabled $+--             updateConfigurationSetReputationMetricsEnabled+-- --         , requestListIdentityPolicies $ --             listIdentityPolicies --@@ -148,6 +160,9 @@ --         , requestGetSendStatistics $ --             getSendStatistics --+--         , requestListCustomVerificationEmailTemplates $+--             listCustomVerificationEmailTemplates+-- --         , requestDeleteIdentity $ --             deleteIdentity --@@ -157,6 +172,12 @@ --         , requestListIdentities $ --             listIdentities --+--         , requestUpdateConfigurationSetSendingEnabled $+--             updateConfigurationSetSendingEnabled+--+--         , requestCreateCustomVerificationEmailTemplate $+--             createCustomVerificationEmailTemplate+-- --         , requestVerifyEmailIdentity $ --             verifyEmailIdentity --@@ -172,6 +193,9 @@ --         , requestListVerifiedEmailAddresses $ --             listVerifiedEmailAddresses --+--         , requestGetCustomVerificationEmailTemplate $+--             getCustomVerificationEmailTemplate+-- --         , requestSetIdentityNotificationTopic $ --             setIdentityNotificationTopic --@@ -190,6 +214,9 @@ --         , requestCreateConfigurationSetEventDestination $ --             createConfigurationSetEventDestination --+--         , requestGetAccountSendingEnabled $+--             getAccountSendingEnabled+-- --         , requestCreateReceiptRule $ --             createReceiptRule --@@ -202,6 +229,9 @@ --         , requestCreateConfigurationSet $ --             createConfigurationSet --+--         , requestUpdateAccountSendingEnabled $+--             updateAccountSendingEnabled+-- --         , requestCreateConfigurationSetTrackingOptions $ --             createConfigurationSetTrackingOptions --@@ -235,12 +265,24 @@ --         , responsePutIdentityPolicy $ --             putIdentityPolicyResponse --+--         , responseDeleteCustomVerificationEmailTemplate $+--             deleteCustomVerificationEmailTemplateResponse+-- --         , responseDeleteIdentityPolicy $ --             deleteIdentityPolicyResponse --+--         , responseUpdateCustomVerificationEmailTemplate $+--             updateCustomVerificationEmailTemplateResponse+--+--         , responseSendCustomVerificationEmail $+--             sendCustomVerificationEmailResponse+-- --         , responseGetIdentityNotificationAttributes $ --             getIdentityNotificationAttributesResponse --+--         , responseUpdateConfigurationSetReputationMetricsEnabled $+--             updateConfigurationSetReputationMetricsEnabledResponse+-- --         , responseListIdentityPolicies $ --             listIdentityPoliciesResponse --@@ -331,6 +373,9 @@ --         , responseGetSendStatistics $ --             getSendStatisticsResponse --+--         , responseListCustomVerificationEmailTemplates $+--             listCustomVerificationEmailTemplatesResponse+-- --         , responseDeleteIdentity $ --             deleteIdentityResponse --@@ -340,6 +385,12 @@ --         , responseListIdentities $ --             listIdentitiesResponse --+--         , responseUpdateConfigurationSetSendingEnabled $+--             updateConfigurationSetSendingEnabledResponse+--+--         , responseCreateCustomVerificationEmailTemplate $+--             createCustomVerificationEmailTemplateResponse+-- --         , responseVerifyEmailIdentity $ --             verifyEmailIdentityResponse --@@ -355,6 +406,9 @@ --         , responseListVerifiedEmailAddresses $ --             listVerifiedEmailAddressesResponse --+--         , responseGetCustomVerificationEmailTemplate $+--             getCustomVerificationEmailTemplateResponse+-- --         , responseSetIdentityNotificationTopic $ --             setIdentityNotificationTopicResponse --@@ -373,6 +427,9 @@ --         , responseCreateConfigurationSetEventDestination $ --             createConfigurationSetEventDestinationResponse --+--         , responseGetAccountSendingEnabled $+--             getAccountSendingEnabledResponse+-- --         , responseCreateReceiptRule $ --             createReceiptRuleResponse --@@ -385,6 +442,9 @@ --         , responseCreateConfigurationSet $ --             createConfigurationSetResponse --+--         , responseUpdateAccountSendingEnabled $+--             updateAccountSendingEnabledResponse+-- --         , responseCreateConfigurationSetTrackingOptions $ --             createConfigurationSetTrackingOptionsResponse --@@ -436,16 +496,36 @@     "PutIdentityPolicy"     "fixture/PutIdentityPolicy.yaml" +requestDeleteCustomVerificationEmailTemplate :: DeleteCustomVerificationEmailTemplate -> TestTree+requestDeleteCustomVerificationEmailTemplate = req+    "DeleteCustomVerificationEmailTemplate"+    "fixture/DeleteCustomVerificationEmailTemplate.yaml"+ requestDeleteIdentityPolicy :: DeleteIdentityPolicy -> TestTree requestDeleteIdentityPolicy = req     "DeleteIdentityPolicy"     "fixture/DeleteIdentityPolicy.yaml" +requestUpdateCustomVerificationEmailTemplate :: UpdateCustomVerificationEmailTemplate -> TestTree+requestUpdateCustomVerificationEmailTemplate = req+    "UpdateCustomVerificationEmailTemplate"+    "fixture/UpdateCustomVerificationEmailTemplate.yaml"++requestSendCustomVerificationEmail :: SendCustomVerificationEmail -> TestTree+requestSendCustomVerificationEmail = req+    "SendCustomVerificationEmail"+    "fixture/SendCustomVerificationEmail.yaml"+ requestGetIdentityNotificationAttributes :: GetIdentityNotificationAttributes -> TestTree requestGetIdentityNotificationAttributes = req     "GetIdentityNotificationAttributes"     "fixture/GetIdentityNotificationAttributes.yaml" +requestUpdateConfigurationSetReputationMetricsEnabled :: UpdateConfigurationSetReputationMetricsEnabled -> TestTree+requestUpdateConfigurationSetReputationMetricsEnabled = req+    "UpdateConfigurationSetReputationMetricsEnabled"+    "fixture/UpdateConfigurationSetReputationMetricsEnabled.yaml"+ requestListIdentityPolicies :: ListIdentityPolicies -> TestTree requestListIdentityPolicies = req     "ListIdentityPolicies"@@ -596,6 +676,11 @@     "GetSendStatistics"     "fixture/GetSendStatistics.yaml" +requestListCustomVerificationEmailTemplates :: ListCustomVerificationEmailTemplates -> TestTree+requestListCustomVerificationEmailTemplates = req+    "ListCustomVerificationEmailTemplates"+    "fixture/ListCustomVerificationEmailTemplates.yaml"+ requestDeleteIdentity :: DeleteIdentity -> TestTree requestDeleteIdentity = req     "DeleteIdentity"@@ -611,6 +696,16 @@     "ListIdentities"     "fixture/ListIdentities.yaml" +requestUpdateConfigurationSetSendingEnabled :: UpdateConfigurationSetSendingEnabled -> TestTree+requestUpdateConfigurationSetSendingEnabled = req+    "UpdateConfigurationSetSendingEnabled"+    "fixture/UpdateConfigurationSetSendingEnabled.yaml"++requestCreateCustomVerificationEmailTemplate :: CreateCustomVerificationEmailTemplate -> TestTree+requestCreateCustomVerificationEmailTemplate = req+    "CreateCustomVerificationEmailTemplate"+    "fixture/CreateCustomVerificationEmailTemplate.yaml"+ requestVerifyEmailIdentity :: VerifyEmailIdentity -> TestTree requestVerifyEmailIdentity = req     "VerifyEmailIdentity"@@ -636,6 +731,11 @@     "ListVerifiedEmailAddresses"     "fixture/ListVerifiedEmailAddresses.yaml" +requestGetCustomVerificationEmailTemplate :: GetCustomVerificationEmailTemplate -> TestTree+requestGetCustomVerificationEmailTemplate = req+    "GetCustomVerificationEmailTemplate"+    "fixture/GetCustomVerificationEmailTemplate.yaml"+ requestSetIdentityNotificationTopic :: SetIdentityNotificationTopic -> TestTree requestSetIdentityNotificationTopic = req     "SetIdentityNotificationTopic"@@ -666,6 +766,11 @@     "CreateConfigurationSetEventDestination"     "fixture/CreateConfigurationSetEventDestination.yaml" +requestGetAccountSendingEnabled :: GetAccountSendingEnabled -> TestTree+requestGetAccountSendingEnabled = req+    "GetAccountSendingEnabled"+    "fixture/GetAccountSendingEnabled.yaml"+ requestCreateReceiptRule :: CreateReceiptRule -> TestTree requestCreateReceiptRule = req     "CreateReceiptRule"@@ -686,6 +791,11 @@     "CreateConfigurationSet"     "fixture/CreateConfigurationSet.yaml" +requestUpdateAccountSendingEnabled :: UpdateAccountSendingEnabled -> TestTree+requestUpdateAccountSendingEnabled = req+    "UpdateAccountSendingEnabled"+    "fixture/UpdateAccountSendingEnabled.yaml"+ requestCreateConfigurationSetTrackingOptions :: CreateConfigurationSetTrackingOptions -> TestTree requestCreateConfigurationSetTrackingOptions = req     "CreateConfigurationSetTrackingOptions"@@ -754,6 +864,13 @@     ses     (Proxy :: Proxy PutIdentityPolicy) +responseDeleteCustomVerificationEmailTemplate :: DeleteCustomVerificationEmailTemplateResponse -> TestTree+responseDeleteCustomVerificationEmailTemplate = res+    "DeleteCustomVerificationEmailTemplateResponse"+    "fixture/DeleteCustomVerificationEmailTemplateResponse.proto"+    ses+    (Proxy :: Proxy DeleteCustomVerificationEmailTemplate)+ responseDeleteIdentityPolicy :: DeleteIdentityPolicyResponse -> TestTree responseDeleteIdentityPolicy = res     "DeleteIdentityPolicyResponse"@@ -761,6 +878,20 @@     ses     (Proxy :: Proxy DeleteIdentityPolicy) +responseUpdateCustomVerificationEmailTemplate :: UpdateCustomVerificationEmailTemplateResponse -> TestTree+responseUpdateCustomVerificationEmailTemplate = res+    "UpdateCustomVerificationEmailTemplateResponse"+    "fixture/UpdateCustomVerificationEmailTemplateResponse.proto"+    ses+    (Proxy :: Proxy UpdateCustomVerificationEmailTemplate)++responseSendCustomVerificationEmail :: SendCustomVerificationEmailResponse -> TestTree+responseSendCustomVerificationEmail = res+    "SendCustomVerificationEmailResponse"+    "fixture/SendCustomVerificationEmailResponse.proto"+    ses+    (Proxy :: Proxy SendCustomVerificationEmail)+ responseGetIdentityNotificationAttributes :: GetIdentityNotificationAttributesResponse -> TestTree responseGetIdentityNotificationAttributes = res     "GetIdentityNotificationAttributesResponse"@@ -768,6 +899,13 @@     ses     (Proxy :: Proxy GetIdentityNotificationAttributes) +responseUpdateConfigurationSetReputationMetricsEnabled :: UpdateConfigurationSetReputationMetricsEnabledResponse -> TestTree+responseUpdateConfigurationSetReputationMetricsEnabled = res+    "UpdateConfigurationSetReputationMetricsEnabledResponse"+    "fixture/UpdateConfigurationSetReputationMetricsEnabledResponse.proto"+    ses+    (Proxy :: Proxy UpdateConfigurationSetReputationMetricsEnabled)+ responseListIdentityPolicies :: ListIdentityPoliciesResponse -> TestTree responseListIdentityPolicies = res     "ListIdentityPoliciesResponse"@@ -978,6 +1116,13 @@     ses     (Proxy :: Proxy GetSendStatistics) +responseListCustomVerificationEmailTemplates :: ListCustomVerificationEmailTemplatesResponse -> TestTree+responseListCustomVerificationEmailTemplates = res+    "ListCustomVerificationEmailTemplatesResponse"+    "fixture/ListCustomVerificationEmailTemplatesResponse.proto"+    ses+    (Proxy :: Proxy ListCustomVerificationEmailTemplates)+ responseDeleteIdentity :: DeleteIdentityResponse -> TestTree responseDeleteIdentity = res     "DeleteIdentityResponse"@@ -999,6 +1144,20 @@     ses     (Proxy :: Proxy ListIdentities) +responseUpdateConfigurationSetSendingEnabled :: UpdateConfigurationSetSendingEnabledResponse -> TestTree+responseUpdateConfigurationSetSendingEnabled = res+    "UpdateConfigurationSetSendingEnabledResponse"+    "fixture/UpdateConfigurationSetSendingEnabledResponse.proto"+    ses+    (Proxy :: Proxy UpdateConfigurationSetSendingEnabled)++responseCreateCustomVerificationEmailTemplate :: CreateCustomVerificationEmailTemplateResponse -> TestTree+responseCreateCustomVerificationEmailTemplate = res+    "CreateCustomVerificationEmailTemplateResponse"+    "fixture/CreateCustomVerificationEmailTemplateResponse.proto"+    ses+    (Proxy :: Proxy CreateCustomVerificationEmailTemplate)+ responseVerifyEmailIdentity :: VerifyEmailIdentityResponse -> TestTree responseVerifyEmailIdentity = res     "VerifyEmailIdentityResponse"@@ -1034,6 +1193,13 @@     ses     (Proxy :: Proxy ListVerifiedEmailAddresses) +responseGetCustomVerificationEmailTemplate :: GetCustomVerificationEmailTemplateResponse -> TestTree+responseGetCustomVerificationEmailTemplate = res+    "GetCustomVerificationEmailTemplateResponse"+    "fixture/GetCustomVerificationEmailTemplateResponse.proto"+    ses+    (Proxy :: Proxy GetCustomVerificationEmailTemplate)+ responseSetIdentityNotificationTopic :: SetIdentityNotificationTopicResponse -> TestTree responseSetIdentityNotificationTopic = res     "SetIdentityNotificationTopicResponse"@@ -1076,6 +1242,13 @@     ses     (Proxy :: Proxy CreateConfigurationSetEventDestination) +responseGetAccountSendingEnabled :: GetAccountSendingEnabledResponse -> TestTree+responseGetAccountSendingEnabled = res+    "GetAccountSendingEnabledResponse"+    "fixture/GetAccountSendingEnabledResponse.proto"+    ses+    (Proxy :: Proxy GetAccountSendingEnabled)+ responseCreateReceiptRule :: CreateReceiptRuleResponse -> TestTree responseCreateReceiptRule = res     "CreateReceiptRuleResponse"@@ -1103,6 +1276,13 @@     "fixture/CreateConfigurationSetResponse.proto"     ses     (Proxy :: Proxy CreateConfigurationSet)++responseUpdateAccountSendingEnabled :: UpdateAccountSendingEnabledResponse -> TestTree+responseUpdateAccountSendingEnabled = res+    "UpdateAccountSendingEnabledResponse"+    "fixture/UpdateAccountSendingEnabledResponse.proto"+    ses+    (Proxy :: Proxy UpdateAccountSendingEnabled)  responseCreateConfigurationSetTrackingOptions :: CreateConfigurationSetTrackingOptionsResponse -> TestTree responseCreateConfigurationSetTrackingOptions = res

@@ -1,7 +1,7 @@ {-# LANGUAGE OverloadedStrings #-}  -- Module      : Test.AWS.SES--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : This Source Code Form is subject to the terms of --               the Mozilla Public License, v. 2.0. --               A copy of the MPL can be found in the LICENSE file or

@@ -2,7 +2,7 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-}  -- Module      : Test.AWS.SES.Internal--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : This Source Code Form is subject to the terms of --               the Mozilla Public License, v. 2.0. --               A copy of the MPL can be found in the LICENSE file or