amazonka-ses 1.4.5 → 1.5.0

raw patch · 91 files changed

+6245/−3421 lines, 91 filesdep ~amazonka-coredep ~amazonka-sesdep ~amazonka-testPVP ok

version bump matches the API change (PVP)

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

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-ses.cabal +27/−11
• fixture/CreateConfigurationSetTrackingOptions.yaml +10/−0
• fixture/CreateConfigurationSetTrackingOptionsResponse.proto +0/−0
• fixture/CreateTemplate.yaml +10/−0
• fixture/CreateTemplateResponse.proto +0/−0
• fixture/DeleteConfigurationSetTrackingOptions.yaml +10/−0
• fixture/DeleteConfigurationSetTrackingOptionsResponse.proto +0/−0
• fixture/DeleteTemplate.yaml +10/−0
• fixture/DeleteTemplateResponse.proto +0/−0
• fixture/GetTemplate.yaml +10/−0
• fixture/GetTemplateResponse.proto +0/−0
• fixture/ListTemplates.yaml +10/−0
• fixture/ListTemplatesResponse.proto +0/−0
• fixture/SendBulkTemplatedEmail.yaml +10/−0
• fixture/SendBulkTemplatedEmailResponse.proto +0/−0
• fixture/SendTemplatedEmail.yaml +10/−0
• fixture/SendTemplatedEmailResponse.proto +0/−0
• fixture/TestRenderTemplate.yaml +10/−0
• fixture/TestRenderTemplateResponse.proto +0/−0
• fixture/UpdateConfigurationSetTrackingOptions.yaml +10/−0
• fixture/UpdateConfigurationSetTrackingOptionsResponse.proto +0/−0
• fixture/UpdateTemplate.yaml +10/−0
• fixture/UpdateTemplateResponse.proto +0/−0
• gen/Network/AWS/SES.hs +164/−54
• gen/Network/AWS/SES/CloneReceiptRuleSet.hs +24/−24
• gen/Network/AWS/SES/CreateConfigurationSet.hs +22/−22
• gen/Network/AWS/SES/CreateConfigurationSetEventDestination.hs +42/−32
• gen/Network/AWS/SES/CreateConfigurationSetTrackingOptions.hs +156/−0
• gen/Network/AWS/SES/CreateReceiptFilter.hs +22/−23
• gen/Network/AWS/SES/CreateReceiptRule.hs +27/−28
• gen/Network/AWS/SES/CreateReceiptRuleSet.hs +22/−22
• gen/Network/AWS/SES/CreateTemplate.hs +120/−0
• gen/Network/AWS/SES/DeleteConfigurationSet.hs +23/−25
• gen/Network/AWS/SES/DeleteConfigurationSetEventDestination.hs +39/−31
• gen/Network/AWS/SES/DeleteConfigurationSetTrackingOptions.hs +144/−0
• gen/Network/AWS/SES/DeleteIdentity.hs +22/−23
• gen/Network/AWS/SES/DeleteIdentityPolicy.hs +24/−24
• gen/Network/AWS/SES/DeleteReceiptFilter.hs +22/−22
• gen/Network/AWS/SES/DeleteReceiptRule.hs +24/−24
• gen/Network/AWS/SES/DeleteReceiptRuleSet.hs +22/−22
• gen/Network/AWS/SES/DeleteTemplate.hs +121/−0
• gen/Network/AWS/SES/DeleteVerifiedEmailAddress.hs +21/−22
• gen/Network/AWS/SES/DescribeActiveReceiptRuleSet.hs +27/−22
• gen/Network/AWS/SES/DescribeConfigurationSet.hs +45/−31
• gen/Network/AWS/SES/DescribeReceiptRule.hs +28/−28
• gen/Network/AWS/SES/DescribeReceiptRuleSet.hs +28/−26
• gen/Network/AWS/SES/GetIdentityDkimAttributes.hs +26/−25
• gen/Network/AWS/SES/GetIdentityMailFromDomainAttributes.hs +32/−25
• gen/Network/AWS/SES/GetIdentityNotificationAttributes.hs +27/−22
• gen/Network/AWS/SES/GetIdentityPolicies.hs +25/−26
• gen/Network/AWS/SES/GetIdentityVerificationAttributes.hs +31/−22
• gen/Network/AWS/SES/GetSendQuota.hs +30/−26
• gen/Network/AWS/SES/GetSendStatistics.hs +24/−24
• gen/Network/AWS/SES/GetTemplate.hs +126/−0
• gen/Network/AWS/SES/ListConfigurationSets.hs +30/−31
• gen/Network/AWS/SES/ListIdentities.hs +32/−31
• gen/Network/AWS/SES/ListIdentityPolicies.hs +24/−24
• gen/Network/AWS/SES/ListReceiptFilters.hs +23/−21
• gen/Network/AWS/SES/ListReceiptRuleSets.hs +28/−27
• gen/Network/AWS/SES/ListTemplates.hs +148/−0
• gen/Network/AWS/SES/ListVerifiedEmailAddresses.hs +25/−24
• gen/Network/AWS/SES/PutIdentityPolicy.hs +30/−28
• gen/Network/AWS/SES/ReorderReceiptRuleSet.hs +24/−24
• gen/Network/AWS/SES/SendBounce.hs +36/−34
• gen/Network/AWS/SES/SendBulkTemplatedEmail.hs +253/−0
• gen/Network/AWS/SES/SendEmail.hs +53/−49
• gen/Network/AWS/SES/SendRawEmail.hs +60/−52
• gen/Network/AWS/SES/SendTemplatedEmail.hs +255/−0
• gen/Network/AWS/SES/SetActiveReceiptRuleSet.hs +22/−23
• gen/Network/AWS/SES/SetIdentityDkimEnabled.hs +26/−26
• gen/Network/AWS/SES/SetIdentityFeedbackForwardingEnabled.hs +31/−25
• gen/Network/AWS/SES/SetIdentityHeadersInNotificationsEnabled.hs +40/−30
• gen/Network/AWS/SES/SetIdentityMailFromDomain.hs +28/−25
• gen/Network/AWS/SES/SetIdentityNotificationTopic.hs +29/−25
• gen/Network/AWS/SES/SetReceiptRulePosition.hs +28/−26
• gen/Network/AWS/SES/TestRenderTemplate.hs +139/−0
• gen/Network/AWS/SES/Types.hs +184/−47
• gen/Network/AWS/SES/Types/Product.hs +2226/−1901
• gen/Network/AWS/SES/Types/Sum.hs +175/−88
• gen/Network/AWS/SES/UpdateConfigurationSetEventDestination.hs +41/−33
• gen/Network/AWS/SES/UpdateConfigurationSetTrackingOptions.hs +156/−0
• gen/Network/AWS/SES/UpdateReceiptRule.hs +25/−26
• gen/Network/AWS/SES/UpdateTemplate.hs +116/−0
• gen/Network/AWS/SES/VerifyDomainDkim.hs +25/−26
• gen/Network/AWS/SES/VerifyDomainIdentity.hs +29/−28
• gen/Network/AWS/SES/VerifyEmailAddress.hs +21/−23
• gen/Network/AWS/SES/VerifyEmailIdentity.hs +23/−23
• gen/Network/AWS/SES/Waiters.hs +6/−6
• test/Main.hs +2/−2
• test/Test/AWS/Gen/SES.hs +204/−6

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

@@ -1,13 +1,13 @@ name:                  amazonka-ses-version:               1.4.5+version:               1.5.0 synopsis:              Amazon Simple Email Service SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues-license:               OtherLicense+license:               MPL-2.0 license-file:          LICENSE author:                Brendan Hay-maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2013-2016 Brendan Hay+maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>+copyright:             Copyright (c) 2013-2017 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -29,30 +29,39 @@     to get started.  source-repository head-    type:     git-    location: git://github.com/brendanhay/amazonka.git+    type:              git+    location:          git://github.com/brendanhay/amazonka.git+    subdir:            amazonka-ses  library     default-language:  Haskell2010     hs-source-dirs:    src gen -    ghc-options:       -Wall+    ghc-options:+        -Wall+        -fwarn-incomplete-uni-patterns+        -fwarn-incomplete-record-updates+        -funbox-strict-fields      exposed-modules:           Network.AWS.SES         , Network.AWS.SES.CloneReceiptRuleSet         , Network.AWS.SES.CreateConfigurationSet         , Network.AWS.SES.CreateConfigurationSetEventDestination+        , Network.AWS.SES.CreateConfigurationSetTrackingOptions         , Network.AWS.SES.CreateReceiptFilter         , Network.AWS.SES.CreateReceiptRule         , Network.AWS.SES.CreateReceiptRuleSet+        , Network.AWS.SES.CreateTemplate         , Network.AWS.SES.DeleteConfigurationSet         , Network.AWS.SES.DeleteConfigurationSetEventDestination+        , Network.AWS.SES.DeleteConfigurationSetTrackingOptions         , Network.AWS.SES.DeleteIdentity         , Network.AWS.SES.DeleteIdentityPolicy         , Network.AWS.SES.DeleteReceiptFilter         , Network.AWS.SES.DeleteReceiptRule         , Network.AWS.SES.DeleteReceiptRuleSet+        , Network.AWS.SES.DeleteTemplate         , Network.AWS.SES.DeleteVerifiedEmailAddress         , Network.AWS.SES.DescribeActiveReceiptRuleSet         , Network.AWS.SES.DescribeConfigurationSet@@ -65,17 +74,21 @@         , Network.AWS.SES.GetIdentityVerificationAttributes         , Network.AWS.SES.GetSendQuota         , Network.AWS.SES.GetSendStatistics+        , Network.AWS.SES.GetTemplate         , Network.AWS.SES.ListConfigurationSets         , Network.AWS.SES.ListIdentities         , Network.AWS.SES.ListIdentityPolicies         , Network.AWS.SES.ListReceiptFilters         , Network.AWS.SES.ListReceiptRuleSets+        , Network.AWS.SES.ListTemplates         , Network.AWS.SES.ListVerifiedEmailAddresses         , Network.AWS.SES.PutIdentityPolicy         , Network.AWS.SES.ReorderReceiptRuleSet         , Network.AWS.SES.SendBounce+        , Network.AWS.SES.SendBulkTemplatedEmail         , Network.AWS.SES.SendEmail         , Network.AWS.SES.SendRawEmail+        , Network.AWS.SES.SendTemplatedEmail         , Network.AWS.SES.SetActiveReceiptRuleSet         , Network.AWS.SES.SetIdentityDkimEnabled         , Network.AWS.SES.SetIdentityFeedbackForwardingEnabled@@ -83,9 +96,12 @@         , Network.AWS.SES.SetIdentityMailFromDomain         , Network.AWS.SES.SetIdentityNotificationTopic         , Network.AWS.SES.SetReceiptRulePosition+        , Network.AWS.SES.TestRenderTemplate         , Network.AWS.SES.Types         , Network.AWS.SES.UpdateConfigurationSetEventDestination+        , Network.AWS.SES.UpdateConfigurationSetTrackingOptions         , Network.AWS.SES.UpdateReceiptRule+        , Network.AWS.SES.UpdateTemplate         , Network.AWS.SES.VerifyDomainDkim         , Network.AWS.SES.VerifyDomainIdentity         , Network.AWS.SES.VerifyEmailAddress@@ -97,7 +113,7 @@         , Network.AWS.SES.Types.Sum      build-depends:-          amazonka-core == 1.4.5.*+          amazonka-core == 1.5.0.*         , base          >= 4.7     && < 5  test-suite amazonka-ses-test@@ -117,9 +133,9 @@         , Test.AWS.SES.Internal      build-depends:-          amazonka-core == 1.4.5.*-        , amazonka-test == 1.4.5.*-        , amazonka-ses == 1.4.5.*+          amazonka-core == 1.5.0.*+        , amazonka-test == 1.5.0.*+        , amazonka-ses         , base         , bytestring         , tasty

@@ -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:+  ''

@@ -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,15 +5,15 @@  -- | -- Module      : Network.AWS.SES--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- __Amazon Simple Email Service__ ----- This is the API Reference for Amazon Simple Email Service (Amazon SES). This documentation is intended to be used in conjunction with the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/Welcome.html Amazon SES Developer Guide> .+-- This is the API Reference for <https://aws.amazon.com/ses/ Amazon Simple Email Service> (Amazon SES). This documentation is intended to be used in conjunction with the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/Welcome.html Amazon SES Developer Guide> . -- module Network.AWS.SES     (@@ -26,6 +26,12 @@     -- ** InvalidConfigurationSetException     , _InvalidConfigurationSetException +    -- ** InvalidSNSDestinationException+    , _InvalidSNSDestinationException++    -- ** TemplateDoesNotExistException+    , _TemplateDoesNotExistException+     -- ** CannotDeleteException     , _CannotDeleteException @@ -35,6 +41,12 @@     -- ** MessageRejected     , _MessageRejected +    -- ** InvalidRenderingParameterException+    , _InvalidRenderingParameterException++    -- ** MissingRenderingAttributeException+    , _MissingRenderingAttributeException+     -- ** RuleSetDoesNotExistException     , _RuleSetDoesNotExistException @@ -47,6 +59,9 @@     -- ** ConfigurationSetAlreadyExistsException     , _ConfigurationSetAlreadyExistsException +    -- ** InvalidTrackingOptionsException+    , _InvalidTrackingOptionsException+     -- ** EventDestinationDoesNotExistException     , _EventDestinationDoesNotExistException @@ -56,6 +71,12 @@     -- ** InvalidLambdaFunctionException     , _InvalidLambdaFunctionException +    -- ** TrackingOptionsDoesNotExistException+    , _TrackingOptionsDoesNotExistException++    -- ** InvalidTemplateException+    , _InvalidTemplateException+     -- ** ConfigurationSetDoesNotExistException     , _ConfigurationSetDoesNotExistException @@ -65,6 +86,9 @@     -- ** InvalidS3ConfigurationException     , _InvalidS3ConfigurationException +    -- ** TrackingOptionsAlreadyExistsException+    , _TrackingOptionsAlreadyExistsException+     -- ** InvalidSNSTopicException     , _InvalidSNSTopicException @@ -83,6 +107,15 @@     -- * Operations     -- $operations +    -- ** CreateTemplate+    , module Network.AWS.SES.CreateTemplate++    -- ** DeleteConfigurationSetTrackingOptions+    , module Network.AWS.SES.DeleteConfigurationSetTrackingOptions++    -- ** UpdateConfigurationSetTrackingOptions+    , module Network.AWS.SES.UpdateConfigurationSetTrackingOptions+     -- ** CreateReceiptRuleSet     , module Network.AWS.SES.CreateReceiptRuleSet @@ -146,9 +179,18 @@     -- ** GetIdentityPolicies     , module Network.AWS.SES.GetIdentityPolicies +    -- ** ListTemplates+    , module Network.AWS.SES.ListTemplates+     -- ** VerifyDomainIdentity     , module Network.AWS.SES.VerifyDomainIdentity +    -- ** UpdateTemplate+    , module Network.AWS.SES.UpdateTemplate++    -- ** DeleteTemplate+    , module Network.AWS.SES.DeleteTemplate+     -- ** ReorderReceiptRuleSet     , module Network.AWS.SES.ReorderReceiptRuleSet @@ -167,9 +209,18 @@     -- ** GetIdentityDkimAttributes     , module Network.AWS.SES.GetIdentityDkimAttributes +    -- ** SendTemplatedEmail+    , module Network.AWS.SES.SendTemplatedEmail+     -- ** VerifyDomainDkim     , module Network.AWS.SES.VerifyDomainDkim +    -- ** TestRenderTemplate+    , module Network.AWS.SES.TestRenderTemplate++    -- ** SendBulkTemplatedEmail+    , module Network.AWS.SES.SendBulkTemplatedEmail+     -- ** SendRawEmail     , module Network.AWS.SES.SendRawEmail @@ -221,12 +272,18 @@     -- ** CreateReceiptRule     , module Network.AWS.SES.CreateReceiptRule +    -- ** GetTemplate+    , module Network.AWS.SES.GetTemplate+     -- ** SetActiveReceiptRuleSet     , module Network.AWS.SES.SetActiveReceiptRuleSet      -- ** CreateConfigurationSet     , module Network.AWS.SES.CreateConfigurationSet +    -- ** CreateConfigurationSetTrackingOptions+    , module Network.AWS.SES.CreateConfigurationSetTrackingOptions+     -- ** DescribeActiveReceiptRuleSet     , module Network.AWS.SES.DescribeActiveReceiptRuleSet @@ -238,6 +295,9 @@     -- ** BounceType     , BounceType (..) +    -- ** BulkEmailStatus+    , BulkEmailStatus (..)+     -- ** ConfigurationSetAttribute     , ConfigurationSetAttribute (..) @@ -306,6 +366,20 @@     , briRecipientARN     , briRecipient +    -- ** BulkEmailDestination+    , BulkEmailDestination+    , bulkEmailDestination+    , bedReplacementTemplateData+    , bedReplacementTags+    , bedDestination++    -- ** BulkEmailDestinationStatus+    , BulkEmailDestinationStatus+    , bulkEmailDestinationStatus+    , bedsStatus+    , bedsError+    , bedsMessageId+     -- ** CloudWatchDestination     , CloudWatchDestination     , cloudWatchDestination@@ -342,6 +416,7 @@     , edEnabled     , edKinesisFirehoseDestination     , edCloudWatchDestination+    , edSNSDestination     , edName     , edMatchingEventTypes @@ -483,6 +558,11 @@     , saEncoding     , saTopicARN +    -- ** SNSDestination+    , SNSDestination+    , snsDestination+    , sdTopicARN+     -- ** SendDataPoint     , SendDataPoint     , sendDataPoint@@ -498,6 +578,25 @@     , sTopicARN     , sScope +    -- ** Template+    , Template+    , template+    , tTextPart+    , tSubjectPart+    , tHTMLPart+    , tTemplateName++    -- ** TemplateMetadata+    , TemplateMetadata+    , templateMetadata+    , tmName+    , tmCreatedTimestamp++    -- ** TrackingOptions+    , TrackingOptions+    , trackingOptions+    , toCustomRedirectDomain+     -- ** WorkmailAction     , WorkmailAction     , workmailAction@@ -505,57 +604,68 @@     , waOrganizationARN     ) where -import           Network.AWS.SES.CloneReceiptRuleSet-import           Network.AWS.SES.CreateConfigurationSet-import           Network.AWS.SES.CreateConfigurationSetEventDestination-import           Network.AWS.SES.CreateReceiptFilter-import           Network.AWS.SES.CreateReceiptRule-import           Network.AWS.SES.CreateReceiptRuleSet-import           Network.AWS.SES.DeleteConfigurationSet-import           Network.AWS.SES.DeleteConfigurationSetEventDestination-import           Network.AWS.SES.DeleteIdentity-import           Network.AWS.SES.DeleteIdentityPolicy-import           Network.AWS.SES.DeleteReceiptFilter-import           Network.AWS.SES.DeleteReceiptRule-import           Network.AWS.SES.DeleteReceiptRuleSet-import           Network.AWS.SES.DeleteVerifiedEmailAddress-import           Network.AWS.SES.DescribeActiveReceiptRuleSet-import           Network.AWS.SES.DescribeConfigurationSet-import           Network.AWS.SES.DescribeReceiptRule-import           Network.AWS.SES.DescribeReceiptRuleSet-import           Network.AWS.SES.GetIdentityDkimAttributes-import           Network.AWS.SES.GetIdentityMailFromDomainAttributes-import           Network.AWS.SES.GetIdentityNotificationAttributes-import           Network.AWS.SES.GetIdentityPolicies-import           Network.AWS.SES.GetIdentityVerificationAttributes-import           Network.AWS.SES.GetSendQuota-import           Network.AWS.SES.GetSendStatistics-import           Network.AWS.SES.ListConfigurationSets-import           Network.AWS.SES.ListIdentities-import           Network.AWS.SES.ListIdentityPolicies-import           Network.AWS.SES.ListReceiptFilters-import           Network.AWS.SES.ListReceiptRuleSets-import           Network.AWS.SES.ListVerifiedEmailAddresses-import           Network.AWS.SES.PutIdentityPolicy-import           Network.AWS.SES.ReorderReceiptRuleSet-import           Network.AWS.SES.SendBounce-import           Network.AWS.SES.SendEmail-import           Network.AWS.SES.SendRawEmail-import           Network.AWS.SES.SetActiveReceiptRuleSet-import           Network.AWS.SES.SetIdentityDkimEnabled-import           Network.AWS.SES.SetIdentityFeedbackForwardingEnabled-import           Network.AWS.SES.SetIdentityHeadersInNotificationsEnabled-import           Network.AWS.SES.SetIdentityMailFromDomain-import           Network.AWS.SES.SetIdentityNotificationTopic-import           Network.AWS.SES.SetReceiptRulePosition-import           Network.AWS.SES.Types-import           Network.AWS.SES.UpdateConfigurationSetEventDestination-import           Network.AWS.SES.UpdateReceiptRule-import           Network.AWS.SES.VerifyDomainDkim-import           Network.AWS.SES.VerifyDomainIdentity-import           Network.AWS.SES.VerifyEmailAddress-import           Network.AWS.SES.VerifyEmailIdentity-import           Network.AWS.SES.Waiters+import Network.AWS.SES.CloneReceiptRuleSet+import Network.AWS.SES.CreateConfigurationSet+import Network.AWS.SES.CreateConfigurationSetEventDestination+import Network.AWS.SES.CreateConfigurationSetTrackingOptions+import Network.AWS.SES.CreateReceiptFilter+import Network.AWS.SES.CreateReceiptRule+import Network.AWS.SES.CreateReceiptRuleSet+import Network.AWS.SES.CreateTemplate+import Network.AWS.SES.DeleteConfigurationSet+import Network.AWS.SES.DeleteConfigurationSetEventDestination+import Network.AWS.SES.DeleteConfigurationSetTrackingOptions+import Network.AWS.SES.DeleteIdentity+import Network.AWS.SES.DeleteIdentityPolicy+import Network.AWS.SES.DeleteReceiptFilter+import Network.AWS.SES.DeleteReceiptRule+import Network.AWS.SES.DeleteReceiptRuleSet+import Network.AWS.SES.DeleteTemplate+import Network.AWS.SES.DeleteVerifiedEmailAddress+import Network.AWS.SES.DescribeActiveReceiptRuleSet+import Network.AWS.SES.DescribeConfigurationSet+import Network.AWS.SES.DescribeReceiptRule+import Network.AWS.SES.DescribeReceiptRuleSet+import Network.AWS.SES.GetIdentityDkimAttributes+import Network.AWS.SES.GetIdentityMailFromDomainAttributes+import Network.AWS.SES.GetIdentityNotificationAttributes+import Network.AWS.SES.GetIdentityPolicies+import Network.AWS.SES.GetIdentityVerificationAttributes+import Network.AWS.SES.GetSendQuota+import Network.AWS.SES.GetSendStatistics+import Network.AWS.SES.GetTemplate+import Network.AWS.SES.ListConfigurationSets+import Network.AWS.SES.ListIdentities+import Network.AWS.SES.ListIdentityPolicies+import Network.AWS.SES.ListReceiptFilters+import Network.AWS.SES.ListReceiptRuleSets+import Network.AWS.SES.ListTemplates+import Network.AWS.SES.ListVerifiedEmailAddresses+import Network.AWS.SES.PutIdentityPolicy+import Network.AWS.SES.ReorderReceiptRuleSet+import Network.AWS.SES.SendBounce+import Network.AWS.SES.SendBulkTemplatedEmail+import Network.AWS.SES.SendEmail+import Network.AWS.SES.SendRawEmail+import Network.AWS.SES.SendTemplatedEmail+import Network.AWS.SES.SetActiveReceiptRuleSet+import Network.AWS.SES.SetIdentityDkimEnabled+import Network.AWS.SES.SetIdentityFeedbackForwardingEnabled+import Network.AWS.SES.SetIdentityHeadersInNotificationsEnabled+import Network.AWS.SES.SetIdentityMailFromDomain+import Network.AWS.SES.SetIdentityNotificationTopic+import Network.AWS.SES.SetReceiptRulePosition+import Network.AWS.SES.TestRenderTemplate+import Network.AWS.SES.Types+import Network.AWS.SES.UpdateConfigurationSetEventDestination+import Network.AWS.SES.UpdateConfigurationSetTrackingOptions+import Network.AWS.SES.UpdateReceiptRule+import Network.AWS.SES.UpdateTemplate+import Network.AWS.SES.VerifyDomainDkim+import Network.AWS.SES.VerifyDomainIdentity+import Network.AWS.SES.VerifyEmailAddress+import Network.AWS.SES.VerifyEmailIdentity+import Network.AWS.SES.Waiters  {- $errors Error matchers are designed for use with the functions provided by

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SES.CloneReceiptRuleSet--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -23,7 +23,7 @@ -- -- For information about setting up rule sets, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-receipt-rule-set.html Amazon SES Developer Guide> . ----- This action is throttled at one request per second.+-- You can execute this operation no more than once per second. -- module Network.AWS.SES.CloneReceiptRuleSet     (@@ -41,12 +41,12 @@     , crsResponseStatus     ) 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+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 receipt rule set by cloning an existing one. You use receipt rule sets to receive email with Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-concepts.html Amazon SES Developer Guide> . --@@ -54,10 +54,11 @@ -- -- /See:/ 'cloneReceiptRuleSet' smart constructor. data CloneReceiptRuleSet = CloneReceiptRuleSet'-    { _cRuleSetName         :: !Text-    , _cOriginalRuleSetName :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cRuleSetName         :: !Text+  , _cOriginalRuleSetName :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CloneReceiptRuleSet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -70,11 +71,10 @@     -> Text -- ^ 'cOriginalRuleSetName'     -> CloneReceiptRuleSet cloneReceiptRuleSet pRuleSetName_ pOriginalRuleSetName_ =-    CloneReceiptRuleSet'-    { _cRuleSetName = pRuleSetName_-    , _cOriginalRuleSetName = pOriginalRuleSetName_-    }+  CloneReceiptRuleSet'+  {_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. cRuleSetName :: Lens' CloneReceiptRuleSet Text cRuleSetName = lens _cRuleSetName (\ s a -> s{_cRuleSetName = a});@@ -92,9 +92,9 @@               (\ s h x ->                  CloneReceiptRuleSetResponse' <$> (pure (fromEnum s))) -instance Hashable CloneReceiptRuleSet+instance Hashable CloneReceiptRuleSet where -instance NFData CloneReceiptRuleSet+instance NFData CloneReceiptRuleSet where  instance ToHeaders CloneReceiptRuleSet where         toHeaders = const mempty@@ -116,9 +116,10 @@ -- -- /See:/ 'cloneReceiptRuleSetResponse' smart constructor. newtype CloneReceiptRuleSetResponse = CloneReceiptRuleSetResponse'-    { _crsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _crsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CloneReceiptRuleSetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -128,12 +129,11 @@     :: Int -- ^ 'crsResponseStatus'     -> CloneReceiptRuleSetResponse cloneReceiptRuleSetResponse pResponseStatus_ =-    CloneReceiptRuleSetResponse'-    { _crsResponseStatus = pResponseStatus_-    }+  CloneReceiptRuleSetResponse' {_crsResponseStatus = pResponseStatus_} + -- | -- | The response status code. crsResponseStatus :: Lens' CloneReceiptRuleSetResponse Int crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a}); -instance NFData CloneReceiptRuleSetResponse+instance NFData CloneReceiptRuleSetResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SES.CreateConfigurationSet--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -23,7 +23,7 @@ -- -- Configuration sets enable you to publish email sending events. For information about using configuration sets, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/monitor-sending-activity.html Amazon SES Developer Guide> . ----- This action is throttled at one request per second.+-- You can execute this operation no more than once per second. -- module Network.AWS.SES.CreateConfigurationSet     (@@ -40,12 +40,12 @@     , ccsrsResponseStatus     ) 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+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 configuration set. Configuration sets enable you to publish email sending events. For information about using configuration sets, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/monitor-sending-activity.html Amazon SES Developer Guide> . --@@ -53,9 +53,10 @@ -- -- /See:/ 'createConfigurationSet' smart constructor. newtype CreateConfigurationSet = CreateConfigurationSet'-    { _ccsConfigurationSet :: ConfigurationSet-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ccsConfigurationSet :: ConfigurationSet+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateConfigurationSet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,10 +66,9 @@     :: ConfigurationSet -- ^ 'ccsConfigurationSet'     -> CreateConfigurationSet createConfigurationSet pConfigurationSet_ =-    CreateConfigurationSet'-    { _ccsConfigurationSet = pConfigurationSet_-    }+  CreateConfigurationSet' {_ccsConfigurationSet = pConfigurationSet_} + -- | A data structure that contains the name of the configuration set. ccsConfigurationSet :: Lens' CreateConfigurationSet ConfigurationSet ccsConfigurationSet = lens _ccsConfigurationSet (\ s a -> s{_ccsConfigurationSet = a});@@ -83,9 +83,9 @@                  CreateConfigurationSetResponse' <$>                    (pure (fromEnum s))) -instance Hashable CreateConfigurationSet+instance Hashable CreateConfigurationSet where -instance NFData CreateConfigurationSet+instance NFData CreateConfigurationSet where  instance ToHeaders CreateConfigurationSet where         toHeaders = const mempty@@ -107,9 +107,10 @@ -- -- /See:/ 'createConfigurationSetResponse' smart constructor. newtype CreateConfigurationSetResponse = CreateConfigurationSetResponse'-    { _ccsrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ccsrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateConfigurationSetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -119,12 +120,11 @@     :: Int -- ^ 'ccsrsResponseStatus'     -> CreateConfigurationSetResponse createConfigurationSetResponse pResponseStatus_ =-    CreateConfigurationSetResponse'-    { _ccsrsResponseStatus = pResponseStatus_-    }+  CreateConfigurationSetResponse' {_ccsrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. ccsrsResponseStatus :: Lens' CreateConfigurationSetResponse Int ccsrsResponseStatus = lens _ccsrsResponseStatus (\ s a -> s{_ccsrsResponseStatus = a}); -instance NFData CreateConfigurationSetResponse+instance NFData CreateConfigurationSetResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SES.CreateConfigurationSetEventDestination--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -23,7 +23,7 @@ -- -- An event destination is the AWS service to which Amazon SES publishes the email sending events associated with a configuration set. For information about using configuration sets, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/monitor-sending-activity.html Amazon SES Developer Guide> . ----- This action is throttled at one request per second.+-- You can execute this operation no more than once per second. -- module Network.AWS.SES.CreateConfigurationSetEventDestination     (@@ -41,12 +41,12 @@     , ccsedrsResponseStatus     ) 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+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 configuration set event destination. A configuration set event destination, which can be either Amazon CloudWatch or Amazon Kinesis Firehose, describes an AWS service in which Amazon SES publishes the email sending events associated with a configuration set. For information about using configuration sets, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/monitor-sending-activity.html Amazon SES Developer Guide> . --@@ -54,37 +54,40 @@ -- -- /See:/ 'createConfigurationSetEventDestination' smart constructor. data CreateConfigurationSetEventDestination = CreateConfigurationSetEventDestination'-    { _ccsedConfigurationSetName :: !Text-    , _ccsedEventDestination     :: !EventDestination-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ccsedConfigurationSetName :: !Text+  , _ccsedEventDestination     :: !EventDestination+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateConfigurationSetEventDestination' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ccsedConfigurationSetName' - The name of the configuration set to which to apply the event destination.+-- * 'ccsedConfigurationSetName' - The name of the configuration set that the event destination should be associated with. ----- * 'ccsedEventDestination' - An object that describes the AWS service to which Amazon SES will publish the email sending events associated with the specified configuration set.+-- * 'ccsedEventDestination' - An object that describes the AWS service that email sending event information will be published to. createConfigurationSetEventDestination     :: Text -- ^ 'ccsedConfigurationSetName'     -> EventDestination -- ^ 'ccsedEventDestination'     -> CreateConfigurationSetEventDestination createConfigurationSetEventDestination pConfigurationSetName_ pEventDestination_ =-    CreateConfigurationSetEventDestination'-    { _ccsedConfigurationSetName = pConfigurationSetName_-    , _ccsedEventDestination = pEventDestination_-    }+  CreateConfigurationSetEventDestination'+  { _ccsedConfigurationSetName = pConfigurationSetName_+  , _ccsedEventDestination = pEventDestination_+  } --- | The name of the configuration set to which to apply the event destination.++-- | 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}); --- | An object that describes the AWS service to which Amazon SES will publish the email sending events associated with the specified configuration set.+-- | 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});  instance AWSRequest-         CreateConfigurationSetEventDestination where+           CreateConfigurationSetEventDestination+         where         type Rs CreateConfigurationSetEventDestination =              CreateConfigurationSetEventDestinationResponse         request = postQuery ses@@ -96,21 +99,26 @@                    (pure (fromEnum s)))  instance Hashable-         CreateConfigurationSetEventDestination+           CreateConfigurationSetEventDestination+         where  instance NFData-         CreateConfigurationSetEventDestination+           CreateConfigurationSetEventDestination+         where  instance ToHeaders-         CreateConfigurationSetEventDestination where+           CreateConfigurationSetEventDestination+         where         toHeaders = const mempty  instance ToPath-         CreateConfigurationSetEventDestination where+           CreateConfigurationSetEventDestination+         where         toPath = const "/"  instance ToQuery-         CreateConfigurationSetEventDestination where+           CreateConfigurationSetEventDestination+         where         toQuery CreateConfigurationSetEventDestination'{..}           = mconcat               ["Action" =:@@ -126,9 +134,10 @@ -- -- /See:/ 'createConfigurationSetEventDestinationResponse' smart constructor. newtype CreateConfigurationSetEventDestinationResponse = CreateConfigurationSetEventDestinationResponse'-    { _ccsedrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ccsedrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateConfigurationSetEventDestinationResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -138,13 +147,14 @@     :: Int -- ^ 'ccsedrsResponseStatus'     -> CreateConfigurationSetEventDestinationResponse createConfigurationSetEventDestinationResponse pResponseStatus_ =-    CreateConfigurationSetEventDestinationResponse'-    { _ccsedrsResponseStatus = pResponseStatus_-    }+  CreateConfigurationSetEventDestinationResponse'+  {_ccsedrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. ccsedrsResponseStatus :: Lens' CreateConfigurationSetEventDestinationResponse Int ccsedrsResponseStatus = lens _ccsedrsResponseStatus (\ s a -> s{_ccsedrsResponseStatus = a});  instance NFData-         CreateConfigurationSetEventDestinationResponse+           CreateConfigurationSetEventDestinationResponse+         where

@@ -0,0 +1,156 @@+{-# 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.CreateConfigurationSetTrackingOptions+-- Copyright   : (c) 2013-2017 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 an association between a configuration set and a custom domain for open and click event tracking.+--+--+-- By default, images and links used for tracking open and click events are hosted on domains operated by Amazon SES. You can configure a subdomain of your own to handle these events. For information about using configuration sets, see <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/configure-custom-open-click-domains.html Configuring Custom Domains to Handle Open and Click Tracking> in the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/Welcome.html Amazon SES Developer Guide> .+--+module Network.AWS.SES.CreateConfigurationSetTrackingOptions+    (+    -- * Creating a Request+      createConfigurationSetTrackingOptions+    , CreateConfigurationSetTrackingOptions+    -- * Request Lenses+    , ccstoConfigurationSetName+    , ccstoTrackingOptions++    -- * Destructuring the Response+    , createConfigurationSetTrackingOptionsResponse+    , CreateConfigurationSetTrackingOptionsResponse+    -- * Response Lenses+    , ccstorsResponseStatus+    ) 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 an open and click tracking option object in a configuration set.+--+--+--+-- /See:/ 'createConfigurationSetTrackingOptions' smart constructor.+data CreateConfigurationSetTrackingOptions = CreateConfigurationSetTrackingOptions'+  { _ccstoConfigurationSetName :: !Text+  , _ccstoTrackingOptions      :: !TrackingOptions+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateConfigurationSetTrackingOptions' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ccstoConfigurationSetName' - The name of the configuration set that the tracking options should be associated with.+--+-- * 'ccstoTrackingOptions' - Undocumented member.+createConfigurationSetTrackingOptions+    :: Text -- ^ 'ccstoConfigurationSetName'+    -> TrackingOptions -- ^ 'ccstoTrackingOptions'+    -> CreateConfigurationSetTrackingOptions+createConfigurationSetTrackingOptions pConfigurationSetName_ pTrackingOptions_ =+  CreateConfigurationSetTrackingOptions'+  { _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});++-- | Undocumented member.+ccstoTrackingOptions :: Lens' CreateConfigurationSetTrackingOptions TrackingOptions+ccstoTrackingOptions = lens _ccstoTrackingOptions (\ s a -> s{_ccstoTrackingOptions = a});++instance AWSRequest+           CreateConfigurationSetTrackingOptions+         where+        type Rs CreateConfigurationSetTrackingOptions =+             CreateConfigurationSetTrackingOptionsResponse+        request = postQuery ses+        response+          = receiveXMLWrapper+              "CreateConfigurationSetTrackingOptionsResult"+              (\ s h x ->+                 CreateConfigurationSetTrackingOptionsResponse' <$>+                   (pure (fromEnum s)))++instance Hashable+           CreateConfigurationSetTrackingOptions+         where++instance NFData CreateConfigurationSetTrackingOptions+         where++instance ToHeaders+           CreateConfigurationSetTrackingOptions+         where+        toHeaders = const mempty++instance ToPath CreateConfigurationSetTrackingOptions+         where+        toPath = const "/"++instance ToQuery+           CreateConfigurationSetTrackingOptions+         where+        toQuery CreateConfigurationSetTrackingOptions'{..}+          = mconcat+              ["Action" =:+                 ("CreateConfigurationSetTrackingOptions" ::+                    ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "ConfigurationSetName" =: _ccstoConfigurationSetName,+               "TrackingOptions" =: _ccstoTrackingOptions]++-- | An empty element returned on a successful request.+--+--+--+-- /See:/ 'createConfigurationSetTrackingOptionsResponse' smart constructor.+newtype CreateConfigurationSetTrackingOptionsResponse = CreateConfigurationSetTrackingOptionsResponse'+  { _ccstorsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateConfigurationSetTrackingOptionsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ccstorsResponseStatus' - -- | The response status code.+createConfigurationSetTrackingOptionsResponse+    :: Int -- ^ 'ccstorsResponseStatus'+    -> CreateConfigurationSetTrackingOptionsResponse+createConfigurationSetTrackingOptionsResponse pResponseStatus_ =+  CreateConfigurationSetTrackingOptionsResponse'+  {_ccstorsResponseStatus = pResponseStatus_}+++-- | -- | The response status code.+ccstorsResponseStatus :: Lens' CreateConfigurationSetTrackingOptionsResponse Int+ccstorsResponseStatus = lens _ccstorsResponseStatus (\ s a -> s{_ccstorsResponseStatus = a});++instance NFData+           CreateConfigurationSetTrackingOptionsResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SES.CreateReceiptFilter--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -23,7 +23,7 @@ -- -- For information about setting up IP address filters, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-ip-filters.html Amazon SES Developer Guide> . ----- This action is throttled at one request per second.+-- You can execute this operation no more than once per second. -- module Network.AWS.SES.CreateReceiptFilter     (@@ -40,12 +40,12 @@     , crfrsResponseStatus     ) 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+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 new IP address filter. You use IP address filters when you receive email with Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-concepts.html Amazon SES Developer Guide> . --@@ -53,9 +53,10 @@ -- -- /See:/ 'createReceiptFilter' smart constructor. newtype CreateReceiptFilter = CreateReceiptFilter'-    { _crfFilter :: ReceiptFilter-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _crfFilter :: ReceiptFilter+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateReceiptFilter' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -64,11 +65,9 @@ createReceiptFilter     :: ReceiptFilter -- ^ 'crfFilter'     -> CreateReceiptFilter-createReceiptFilter pFilter_ =-    CreateReceiptFilter'-    { _crfFilter = pFilter_-    }+createReceiptFilter pFilter_ = CreateReceiptFilter' {_crfFilter = pFilter_} + -- | 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});@@ -82,9 +81,9 @@               (\ s h x ->                  CreateReceiptFilterResponse' <$> (pure (fromEnum s))) -instance Hashable CreateReceiptFilter+instance Hashable CreateReceiptFilter where -instance NFData CreateReceiptFilter+instance NFData CreateReceiptFilter where  instance ToHeaders CreateReceiptFilter where         toHeaders = const mempty@@ -105,9 +104,10 @@ -- -- /See:/ 'createReceiptFilterResponse' smart constructor. newtype CreateReceiptFilterResponse = CreateReceiptFilterResponse'-    { _crfrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _crfrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateReceiptFilterResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -117,12 +117,11 @@     :: Int -- ^ 'crfrsResponseStatus'     -> CreateReceiptFilterResponse createReceiptFilterResponse pResponseStatus_ =-    CreateReceiptFilterResponse'-    { _crfrsResponseStatus = pResponseStatus_-    }+  CreateReceiptFilterResponse' {_crfrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. crfrsResponseStatus :: Lens' CreateReceiptFilterResponse Int crfrsResponseStatus = lens _crfrsResponseStatus (\ s a -> s{_crfrsResponseStatus = a}); -instance NFData CreateReceiptFilterResponse+instance NFData CreateReceiptFilterResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SES.CreateReceiptRule--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -23,7 +23,7 @@ -- -- For information about setting up receipt rules, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-receipt-rules.html Amazon SES Developer Guide> . ----- This action is throttled at one request per second.+-- You can execute this operation no more than once per second. -- module Network.AWS.SES.CreateReceiptRule     (@@ -42,12 +42,12 @@     , crrrsResponseStatus     ) 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+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 receipt rule. You use receipt rules to receive email with Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-concepts.html Amazon SES Developer Guide> . --@@ -55,18 +55,19 @@ -- -- /See:/ 'createReceiptRule' smart constructor. data CreateReceiptRule = CreateReceiptRule'-    { _crrAfter       :: !(Maybe Text)-    , _crrRuleSetName :: !Text-    , _crrRule        :: !ReceiptRule-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _crrAfter       :: !(Maybe Text)+  , _crrRuleSetName :: !Text+  , _crrRule        :: !ReceiptRule+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateReceiptRule' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'crrAfter' - 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. ----- * 'crrRuleSetName' - The name of the rule set to which to add the rule.+-- * 'crrRuleSetName' - The name of the rule set that the receipt rule will be added to. -- -- * 'crrRule' - A data structure that contains the specified rule's name, actions, recipients, domains, enabled status, scan status, and TLS policy. createReceiptRule@@ -74,17 +75,15 @@     -> ReceiptRule -- ^ 'crrRule'     -> CreateReceiptRule createReceiptRule pRuleSetName_ pRule_ =-    CreateReceiptRule'-    { _crrAfter = Nothing-    , _crrRuleSetName = pRuleSetName_-    , _crrRule = pRule_-    }+  CreateReceiptRule'+  {_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}); --- | The name of the rule set to which to add the rule.+-- | 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}); @@ -100,9 +99,9 @@               (\ s h x ->                  CreateReceiptRuleResponse' <$> (pure (fromEnum s))) -instance Hashable CreateReceiptRule+instance Hashable CreateReceiptRule where -instance NFData CreateReceiptRule+instance NFData CreateReceiptRule where  instance ToHeaders CreateReceiptRule where         toHeaders = const mempty@@ -124,9 +123,10 @@ -- -- /See:/ 'createReceiptRuleResponse' smart constructor. newtype CreateReceiptRuleResponse = CreateReceiptRuleResponse'-    { _crrrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _crrrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateReceiptRuleResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -136,12 +136,11 @@     :: Int -- ^ 'crrrsResponseStatus'     -> CreateReceiptRuleResponse createReceiptRuleResponse pResponseStatus_ =-    CreateReceiptRuleResponse'-    { _crrrsResponseStatus = pResponseStatus_-    }+  CreateReceiptRuleResponse' {_crrrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. crrrsResponseStatus :: Lens' CreateReceiptRuleResponse Int crrrsResponseStatus = lens _crrrsResponseStatus (\ s a -> s{_crrrsResponseStatus = a}); -instance NFData CreateReceiptRuleResponse+instance NFData CreateReceiptRuleResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SES.CreateReceiptRuleSet--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -23,7 +23,7 @@ -- -- For information about setting up receipt rule sets, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-receipt-rule-set.html Amazon SES Developer Guide> . ----- This action is throttled at one request per second.+-- You can execute this operation no more than once per second. -- module Network.AWS.SES.CreateReceiptRuleSet     (@@ -40,12 +40,12 @@     , crrsrsResponseStatus     ) 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+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 an empty receipt rule set. You use receipt rule sets to receive email with Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-concepts.html Amazon SES Developer Guide> . --@@ -53,9 +53,10 @@ -- -- /See:/ 'createReceiptRuleSet' smart constructor. newtype CreateReceiptRuleSet = CreateReceiptRuleSet'-    { _crrsRuleSetName :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _crrsRuleSetName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateReceiptRuleSet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,10 +66,9 @@     :: Text -- ^ 'crrsRuleSetName'     -> CreateReceiptRuleSet createReceiptRuleSet pRuleSetName_ =-    CreateReceiptRuleSet'-    { _crrsRuleSetName = pRuleSetName_-    }+  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. crrsRuleSetName :: Lens' CreateReceiptRuleSet Text crrsRuleSetName = lens _crrsRuleSetName (\ s a -> s{_crrsRuleSetName = a});@@ -83,9 +83,9 @@                  CreateReceiptRuleSetResponse' <$>                    (pure (fromEnum s))) -instance Hashable CreateReceiptRuleSet+instance Hashable CreateReceiptRuleSet where -instance NFData CreateReceiptRuleSet+instance NFData CreateReceiptRuleSet where  instance ToHeaders CreateReceiptRuleSet where         toHeaders = const mempty@@ -106,9 +106,10 @@ -- -- /See:/ 'createReceiptRuleSetResponse' smart constructor. newtype CreateReceiptRuleSetResponse = CreateReceiptRuleSetResponse'-    { _crrsrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _crrsrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateReceiptRuleSetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -118,12 +119,11 @@     :: Int -- ^ 'crrsrsResponseStatus'     -> CreateReceiptRuleSetResponse createReceiptRuleSetResponse pResponseStatus_ =-    CreateReceiptRuleSetResponse'-    { _crrsrsResponseStatus = pResponseStatus_-    }+  CreateReceiptRuleSetResponse' {_crrsrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. crrsrsResponseStatus :: Lens' CreateReceiptRuleSetResponse Int crrsrsResponseStatus = lens _crrsrsResponseStatus (\ s a -> s{_crrsrsResponseStatus = a}); -instance NFData CreateReceiptRuleSetResponse+instance NFData CreateReceiptRuleSetResponse where

@@ -0,0 +1,120 @@+{-# 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.CreateTemplate+-- Copyright   : (c) 2013-2017 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 an email template. Email templates enable you to send personalized email to one or more destinations in a single API operation. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/send-personalized-email-api.html Amazon SES Developer Guide> .+--+--+-- You can execute this operation no more than once per second.+--+module Network.AWS.SES.CreateTemplate+    (+    -- * Creating a Request+      createTemplate+    , CreateTemplate+    -- * Request Lenses+    , ctTemplate++    -- * Destructuring the Response+    , createTemplateResponse+    , CreateTemplateResponse+    -- * Response Lenses+    , ctrsResponseStatus+    ) 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 an email template. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/send-personalized-email-api.html Amazon SES Developer Guide> .+--+--+--+-- /See:/ 'createTemplate' smart constructor.+newtype CreateTemplate = CreateTemplate'+  { _ctTemplate :: Template+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateTemplate' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ctTemplate' - The content of the email, composed of a subject line, an HTML part, and a text-only part.+createTemplate+    :: Template -- ^ 'ctTemplate'+    -> CreateTemplate+createTemplate pTemplate_ = CreateTemplate' {_ctTemplate = pTemplate_}+++-- | 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});++instance AWSRequest CreateTemplate where+        type Rs CreateTemplate = CreateTemplateResponse+        request = postQuery ses+        response+          = receiveXMLWrapper "CreateTemplateResult"+              (\ s h x ->+                 CreateTemplateResponse' <$> (pure (fromEnum s)))++instance Hashable CreateTemplate where++instance NFData CreateTemplate where++instance ToHeaders CreateTemplate where+        toHeaders = const mempty++instance ToPath CreateTemplate where+        toPath = const "/"++instance ToQuery CreateTemplate where+        toQuery CreateTemplate'{..}+          = mconcat+              ["Action" =: ("CreateTemplate" :: ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "Template" =: _ctTemplate]++-- | /See:/ 'createTemplateResponse' smart constructor.+newtype CreateTemplateResponse = CreateTemplateResponse'+  { _ctrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateTemplateResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ctrsResponseStatus' - -- | The response status code.+createTemplateResponse+    :: Int -- ^ 'ctrsResponseStatus'+    -> CreateTemplateResponse+createTemplateResponse pResponseStatus_ =+  CreateTemplateResponse' {_ctrsResponseStatus = pResponseStatus_}+++-- | -- | The response status code.+ctrsResponseStatus :: Lens' CreateTemplateResponse Int+ctrsResponseStatus = lens _ctrsResponseStatus (\ s a -> s{_ctrsResponseStatus = a});++instance NFData CreateTemplateResponse where

@@ -12,18 +12,16 @@  -- | -- Module      : Network.AWS.SES.DeleteConfigurationSet--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes a configuration set.+-- Deletes a configuration set. Configuration sets enable you to publish email sending events. For information about using configuration sets, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/monitor-sending-activity.html Amazon SES Developer Guide> . -- ----- Configuration sets enable you to publish email sending events. For information about using configuration sets, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/monitor-sending-activity.html Amazon SES Developer Guide> .------ This action is throttled at one request per second.+-- You can execute this operation no more than once per second. -- module Network.AWS.SES.DeleteConfigurationSet     (@@ -40,12 +38,12 @@     , drsResponseStatus     ) 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+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 a configuration set. Configuration sets enable you to publish email sending events. For information about using configuration sets, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/monitor-sending-activity.html Amazon SES Developer Guide> . --@@ -53,9 +51,10 @@ -- -- /See:/ 'deleteConfigurationSet' smart constructor. newtype DeleteConfigurationSet = DeleteConfigurationSet'-    { _dConfigurationSetName :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dConfigurationSetName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteConfigurationSet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,10 +64,9 @@     :: Text -- ^ 'dConfigurationSetName'     -> DeleteConfigurationSet deleteConfigurationSet pConfigurationSetName_ =-    DeleteConfigurationSet'-    { _dConfigurationSetName = pConfigurationSetName_-    }+  DeleteConfigurationSet' {_dConfigurationSetName = pConfigurationSetName_} + -- | The name of the configuration set to delete. dConfigurationSetName :: Lens' DeleteConfigurationSet Text dConfigurationSetName = lens _dConfigurationSetName (\ s a -> s{_dConfigurationSetName = a});@@ -83,9 +81,9 @@                  DeleteConfigurationSetResponse' <$>                    (pure (fromEnum s))) -instance Hashable DeleteConfigurationSet+instance Hashable DeleteConfigurationSet where -instance NFData DeleteConfigurationSet+instance NFData DeleteConfigurationSet where  instance ToHeaders DeleteConfigurationSet where         toHeaders = const mempty@@ -107,9 +105,10 @@ -- -- /See:/ 'deleteConfigurationSetResponse' smart constructor. newtype DeleteConfigurationSetResponse = DeleteConfigurationSetResponse'-    { _drsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _drsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteConfigurationSetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -119,12 +118,11 @@     :: Int -- ^ 'drsResponseStatus'     -> DeleteConfigurationSetResponse deleteConfigurationSetResponse pResponseStatus_ =-    DeleteConfigurationSetResponse'-    { _drsResponseStatus = pResponseStatus_-    }+  DeleteConfigurationSetResponse' {_drsResponseStatus = pResponseStatus_} + -- | -- | The response status code. drsResponseStatus :: Lens' DeleteConfigurationSetResponse Int drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}); -instance NFData DeleteConfigurationSetResponse+instance NFData DeleteConfigurationSetResponse where

@@ -12,18 +12,16 @@  -- | -- Module      : Network.AWS.SES.DeleteConfigurationSetEventDestination--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes a configuration set event destination.+-- Deletes a configuration set event destination. Configuration set event destinations are associated with configuration sets, which enable you to publish email sending events. For information about using configuration sets, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/monitor-sending-activity.html Amazon SES Developer Guide> . -- ----- Configuration set event destinations are associated with configuration sets, which enable you to publish email sending events. For information about using configuration sets, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/monitor-sending-activity.html Amazon SES Developer Guide> .------ This action is throttled at one request per second.+-- You can execute this operation no more than once per second. -- module Network.AWS.SES.DeleteConfigurationSetEventDestination     (@@ -41,12 +39,12 @@     , dcsedrsResponseStatus     ) 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+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 a configuration set event destination. Configuration set event destinations are associated with configuration sets, which enable you to publish email sending events. For information about using configuration sets, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/monitor-sending-activity.html Amazon SES Developer Guide> . --@@ -54,10 +52,11 @@ -- -- /See:/ 'deleteConfigurationSetEventDestination' smart constructor. data DeleteConfigurationSetEventDestination = DeleteConfigurationSetEventDestination'-    { _dcsedConfigurationSetName :: !Text-    , _dcsedEventDestinationName :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dcsedConfigurationSetName :: !Text+  , _dcsedEventDestinationName :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteConfigurationSetEventDestination' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -70,11 +69,12 @@     -> Text -- ^ 'dcsedEventDestinationName'     -> DeleteConfigurationSetEventDestination deleteConfigurationSetEventDestination pConfigurationSetName_ pEventDestinationName_ =-    DeleteConfigurationSetEventDestination'-    { _dcsedConfigurationSetName = pConfigurationSetName_-    , _dcsedEventDestinationName = pEventDestinationName_-    }+  DeleteConfigurationSetEventDestination'+  { _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});@@ -84,7 +84,8 @@ dcsedEventDestinationName = lens _dcsedEventDestinationName (\ s a -> s{_dcsedEventDestinationName = a});  instance AWSRequest-         DeleteConfigurationSetEventDestination where+           DeleteConfigurationSetEventDestination+         where         type Rs DeleteConfigurationSetEventDestination =              DeleteConfigurationSetEventDestinationResponse         request = postQuery ses@@ -96,21 +97,26 @@                    (pure (fromEnum s)))  instance Hashable-         DeleteConfigurationSetEventDestination+           DeleteConfigurationSetEventDestination+         where  instance NFData-         DeleteConfigurationSetEventDestination+           DeleteConfigurationSetEventDestination+         where  instance ToHeaders-         DeleteConfigurationSetEventDestination where+           DeleteConfigurationSetEventDestination+         where         toHeaders = const mempty  instance ToPath-         DeleteConfigurationSetEventDestination where+           DeleteConfigurationSetEventDestination+         where         toPath = const "/"  instance ToQuery-         DeleteConfigurationSetEventDestination where+           DeleteConfigurationSetEventDestination+         where         toQuery DeleteConfigurationSetEventDestination'{..}           = mconcat               ["Action" =:@@ -126,9 +132,10 @@ -- -- /See:/ 'deleteConfigurationSetEventDestinationResponse' smart constructor. newtype DeleteConfigurationSetEventDestinationResponse = DeleteConfigurationSetEventDestinationResponse'-    { _dcsedrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dcsedrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteConfigurationSetEventDestinationResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -138,13 +145,14 @@     :: Int -- ^ 'dcsedrsResponseStatus'     -> DeleteConfigurationSetEventDestinationResponse deleteConfigurationSetEventDestinationResponse pResponseStatus_ =-    DeleteConfigurationSetEventDestinationResponse'-    { _dcsedrsResponseStatus = pResponseStatus_-    }+  DeleteConfigurationSetEventDestinationResponse'+  {_dcsedrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. dcsedrsResponseStatus :: Lens' DeleteConfigurationSetEventDestinationResponse Int dcsedrsResponseStatus = lens _dcsedrsResponseStatus (\ s a -> s{_dcsedrsResponseStatus = a});  instance NFData-         DeleteConfigurationSetEventDestinationResponse+           DeleteConfigurationSetEventDestinationResponse+         where

@@ -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.DeleteConfigurationSetTrackingOptions+-- Copyright   : (c) 2013-2017 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 association between a configuration set and a custom domain for open and click event tracking.+--+--+-- By default, images and links used for tracking open and click events are hosted on domains operated by Amazon SES. You can configure a subdomain of your own to handle these events. For information about using configuration sets, see <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/configure-custom-open-click-domains.html Configuring Custom Domains to Handle Open and Click Tracking> in the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/Welcome.html Amazon SES Developer Guide> .+--+module Network.AWS.SES.DeleteConfigurationSetTrackingOptions+    (+    -- * Creating a Request+      deleteConfigurationSetTrackingOptions+    , DeleteConfigurationSetTrackingOptions+    -- * Request Lenses+    , dcstoConfigurationSetName++    -- * Destructuring the Response+    , deleteConfigurationSetTrackingOptionsResponse+    , DeleteConfigurationSetTrackingOptionsResponse+    -- * Response Lenses+    , dcstorsResponseStatus+    ) 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 open and click tracking options in a configuration set.+--+--+--+-- /See:/ 'deleteConfigurationSetTrackingOptions' smart constructor.+newtype DeleteConfigurationSetTrackingOptions = DeleteConfigurationSetTrackingOptions'+  { _dcstoConfigurationSetName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteConfigurationSetTrackingOptions' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dcstoConfigurationSetName' - The name of the configuration set from which you want to delete the tracking options.+deleteConfigurationSetTrackingOptions+    :: Text -- ^ 'dcstoConfigurationSetName'+    -> DeleteConfigurationSetTrackingOptions+deleteConfigurationSetTrackingOptions pConfigurationSetName_ =+  DeleteConfigurationSetTrackingOptions'+  {_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});++instance AWSRequest+           DeleteConfigurationSetTrackingOptions+         where+        type Rs DeleteConfigurationSetTrackingOptions =+             DeleteConfigurationSetTrackingOptionsResponse+        request = postQuery ses+        response+          = receiveXMLWrapper+              "DeleteConfigurationSetTrackingOptionsResult"+              (\ s h x ->+                 DeleteConfigurationSetTrackingOptionsResponse' <$>+                   (pure (fromEnum s)))++instance Hashable+           DeleteConfigurationSetTrackingOptions+         where++instance NFData DeleteConfigurationSetTrackingOptions+         where++instance ToHeaders+           DeleteConfigurationSetTrackingOptions+         where+        toHeaders = const mempty++instance ToPath DeleteConfigurationSetTrackingOptions+         where+        toPath = const "/"++instance ToQuery+           DeleteConfigurationSetTrackingOptions+         where+        toQuery DeleteConfigurationSetTrackingOptions'{..}+          = mconcat+              ["Action" =:+                 ("DeleteConfigurationSetTrackingOptions" ::+                    ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "ConfigurationSetName" =: _dcstoConfigurationSetName]++-- | An empty element returned on a successful request.+--+--+--+-- /See:/ 'deleteConfigurationSetTrackingOptionsResponse' smart constructor.+newtype DeleteConfigurationSetTrackingOptionsResponse = DeleteConfigurationSetTrackingOptionsResponse'+  { _dcstorsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteConfigurationSetTrackingOptionsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dcstorsResponseStatus' - -- | The response status code.+deleteConfigurationSetTrackingOptionsResponse+    :: Int -- ^ 'dcstorsResponseStatus'+    -> DeleteConfigurationSetTrackingOptionsResponse+deleteConfigurationSetTrackingOptionsResponse pResponseStatus_ =+  DeleteConfigurationSetTrackingOptionsResponse'+  {_dcstorsResponseStatus = pResponseStatus_}+++-- | -- | The response status code.+dcstorsResponseStatus :: Lens' DeleteConfigurationSetTrackingOptionsResponse Int+dcstorsResponseStatus = lens _dcstorsResponseStatus (\ s a -> s{_dcstorsResponseStatus = a});++instance NFData+           DeleteConfigurationSetTrackingOptionsResponse+         where

@@ -12,16 +12,16 @@  -- | -- Module      : Network.AWS.SES.DeleteIdentity--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- Deletes the specified identity (an email address or a domain) from the list of verified identities. -- ----- This action is throttled at one request per second.+-- You can execute this operation no more than once per second. -- module Network.AWS.SES.DeleteIdentity     (@@ -38,12 +38,12 @@     , dirsResponseStatus     ) 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+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 one of your Amazon SES identities (an email address or domain). --@@ -51,9 +51,10 @@ -- -- /See:/ 'deleteIdentity' smart constructor. newtype DeleteIdentity = DeleteIdentity'-    { _diIdentity :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _diIdentity :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteIdentity' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -62,11 +63,9 @@ deleteIdentity     :: Text -- ^ 'diIdentity'     -> DeleteIdentity-deleteIdentity pIdentity_ =-    DeleteIdentity'-    { _diIdentity = pIdentity_-    }+deleteIdentity pIdentity_ = DeleteIdentity' {_diIdentity = pIdentity_} + -- | 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});@@ -79,9 +78,9 @@               (\ s h x ->                  DeleteIdentityResponse' <$> (pure (fromEnum s))) -instance Hashable DeleteIdentity+instance Hashable DeleteIdentity where -instance NFData DeleteIdentity+instance NFData DeleteIdentity where  instance ToHeaders DeleteIdentity where         toHeaders = const mempty@@ -102,9 +101,10 @@ -- -- /See:/ 'deleteIdentityResponse' smart constructor. newtype DeleteIdentityResponse = DeleteIdentityResponse'-    { _dirsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dirsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteIdentityResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -114,12 +114,11 @@     :: Int -- ^ 'dirsResponseStatus'     -> DeleteIdentityResponse deleteIdentityResponse pResponseStatus_ =-    DeleteIdentityResponse'-    { _dirsResponseStatus = pResponseStatus_-    }+  DeleteIdentityResponse' {_dirsResponseStatus = pResponseStatus_} + -- | -- | The response status code. dirsResponseStatus :: Lens' DeleteIdentityResponse Int dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a}); -instance NFData DeleteIdentityResponse+instance NFData DeleteIdentityResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SES.DeleteIdentityPolicy--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -23,7 +23,7 @@ -- -- Sending authorization is a feature that enables an identity owner to authorize other senders to use its identities. For information about using sending authorization, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization.html Amazon SES Developer Guide> . ----- This action is throttled at one request per second.+-- You can execute this operation no more than once per second. -- module Network.AWS.SES.DeleteIdentityPolicy     (@@ -41,12 +41,12 @@     , diprsResponseStatus     ) 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+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 a sending authorization policy for an identity. Sending authorization is an Amazon SES feature that enables you to authorize other senders to use your identities. For information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization.html Amazon SES Developer Guide> . --@@ -54,10 +54,11 @@ -- -- /See:/ 'deleteIdentityPolicy' smart constructor. data DeleteIdentityPolicy = DeleteIdentityPolicy'-    { _dipIdentity   :: !Text-    , _dipPolicyName :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dipIdentity   :: !Text+  , _dipPolicyName :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteIdentityPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -70,11 +71,10 @@     -> Text -- ^ 'dipPolicyName'     -> DeleteIdentityPolicy deleteIdentityPolicy pIdentity_ pPolicyName_ =-    DeleteIdentityPolicy'-    { _dipIdentity = pIdentity_-    , _dipPolicyName = pPolicyName_-    }+  DeleteIdentityPolicy'+  {_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});@@ -93,9 +93,9 @@                  DeleteIdentityPolicyResponse' <$>                    (pure (fromEnum s))) -instance Hashable DeleteIdentityPolicy+instance Hashable DeleteIdentityPolicy where -instance NFData DeleteIdentityPolicy+instance NFData DeleteIdentityPolicy where  instance ToHeaders DeleteIdentityPolicy where         toHeaders = const mempty@@ -117,9 +117,10 @@ -- -- /See:/ 'deleteIdentityPolicyResponse' smart constructor. newtype DeleteIdentityPolicyResponse = DeleteIdentityPolicyResponse'-    { _diprsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _diprsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteIdentityPolicyResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -129,12 +130,11 @@     :: Int -- ^ 'diprsResponseStatus'     -> DeleteIdentityPolicyResponse deleteIdentityPolicyResponse pResponseStatus_ =-    DeleteIdentityPolicyResponse'-    { _diprsResponseStatus = pResponseStatus_-    }+  DeleteIdentityPolicyResponse' {_diprsResponseStatus = pResponseStatus_} + -- | -- | The response status code. diprsResponseStatus :: Lens' DeleteIdentityPolicyResponse Int diprsResponseStatus = lens _diprsResponseStatus (\ s a -> s{_diprsResponseStatus = a}); -instance NFData DeleteIdentityPolicyResponse+instance NFData DeleteIdentityPolicyResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SES.DeleteReceiptFilter--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -23,7 +23,7 @@ -- -- For information about managing IP address filters, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-managing-ip-filters.html Amazon SES Developer Guide> . ----- This action is throttled at one request per second.+-- You can execute this operation no more than once per second. -- module Network.AWS.SES.DeleteReceiptFilter     (@@ -40,12 +40,12 @@     , drfrsResponseStatus     ) 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+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 IP address filter. You use IP address filters when you receive email with Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-concepts.html Amazon SES Developer Guide> . --@@ -53,9 +53,10 @@ -- -- /See:/ 'deleteReceiptFilter' smart constructor. newtype DeleteReceiptFilter = DeleteReceiptFilter'-    { _drfFilterName :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _drfFilterName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteReceiptFilter' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,10 +66,9 @@     :: Text -- ^ 'drfFilterName'     -> DeleteReceiptFilter deleteReceiptFilter pFilterName_ =-    DeleteReceiptFilter'-    { _drfFilterName = pFilterName_-    }+  DeleteReceiptFilter' {_drfFilterName = pFilterName_} + -- | The name of the IP address filter to delete. drfFilterName :: Lens' DeleteReceiptFilter Text drfFilterName = lens _drfFilterName (\ s a -> s{_drfFilterName = a});@@ -82,9 +82,9 @@               (\ s h x ->                  DeleteReceiptFilterResponse' <$> (pure (fromEnum s))) -instance Hashable DeleteReceiptFilter+instance Hashable DeleteReceiptFilter where -instance NFData DeleteReceiptFilter+instance NFData DeleteReceiptFilter where  instance ToHeaders DeleteReceiptFilter where         toHeaders = const mempty@@ -105,9 +105,10 @@ -- -- /See:/ 'deleteReceiptFilterResponse' smart constructor. newtype DeleteReceiptFilterResponse = DeleteReceiptFilterResponse'-    { _drfrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _drfrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteReceiptFilterResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -117,12 +118,11 @@     :: Int -- ^ 'drfrsResponseStatus'     -> DeleteReceiptFilterResponse deleteReceiptFilterResponse pResponseStatus_ =-    DeleteReceiptFilterResponse'-    { _drfrsResponseStatus = pResponseStatus_-    }+  DeleteReceiptFilterResponse' {_drfrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. drfrsResponseStatus :: Lens' DeleteReceiptFilterResponse Int drfrsResponseStatus = lens _drfrsResponseStatus (\ s a -> s{_drfrsResponseStatus = a}); -instance NFData DeleteReceiptFilterResponse+instance NFData DeleteReceiptFilterResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SES.DeleteReceiptRule--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -23,7 +23,7 @@ -- -- For information about managing receipt rules, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-managing-receipt-rules.html Amazon SES Developer Guide> . ----- This action is throttled at one request per second.+-- You can execute this operation no more than once per second. -- module Network.AWS.SES.DeleteReceiptRule     (@@ -41,12 +41,12 @@     , delrsResponseStatus     ) 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+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 a receipt rule. You use receipt rules to receive email with Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-concepts.html Amazon SES Developer Guide> . --@@ -54,10 +54,11 @@ -- -- /See:/ 'deleteReceiptRule' smart constructor. data DeleteReceiptRule = DeleteReceiptRule'-    { _delRuleSetName :: !Text-    , _delRuleName    :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _delRuleSetName :: !Text+  , _delRuleName    :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteReceiptRule' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -70,11 +71,10 @@     -> Text -- ^ 'delRuleName'     -> DeleteReceiptRule deleteReceiptRule pRuleSetName_ pRuleName_ =-    DeleteReceiptRule'-    { _delRuleSetName = pRuleSetName_-    , _delRuleName = pRuleName_-    }+  DeleteReceiptRule'+  {_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});@@ -91,9 +91,9 @@               (\ s h x ->                  DeleteReceiptRuleResponse' <$> (pure (fromEnum s))) -instance Hashable DeleteReceiptRule+instance Hashable DeleteReceiptRule where -instance NFData DeleteReceiptRule+instance NFData DeleteReceiptRule where  instance ToHeaders DeleteReceiptRule where         toHeaders = const mempty@@ -115,9 +115,10 @@ -- -- /See:/ 'deleteReceiptRuleResponse' smart constructor. newtype DeleteReceiptRuleResponse = DeleteReceiptRuleResponse'-    { _delrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _delrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteReceiptRuleResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -127,12 +128,11 @@     :: Int -- ^ 'delrsResponseStatus'     -> DeleteReceiptRuleResponse deleteReceiptRuleResponse pResponseStatus_ =-    DeleteReceiptRuleResponse'-    { _delrsResponseStatus = pResponseStatus_-    }+  DeleteReceiptRuleResponse' {_delrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. delrsResponseStatus :: Lens' DeleteReceiptRuleResponse Int delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a}); -instance NFData DeleteReceiptRuleResponse+instance NFData DeleteReceiptRuleResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SES.DeleteReceiptRuleSet--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -23,7 +23,7 @@ -- -- For information about managing receipt rule sets, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-managing-receipt-rule-sets.html Amazon SES Developer Guide> . ----- This action is throttled at one request per second.+-- You can execute this operation no more than once per second. -- module Network.AWS.SES.DeleteReceiptRuleSet     (@@ -40,12 +40,12 @@     , drrsrsResponseStatus     ) 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+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 a receipt rule set and all of the receipt rules it contains. You use receipt rule sets to receive email with Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-concepts.html Amazon SES Developer Guide> . --@@ -53,9 +53,10 @@ -- -- /See:/ 'deleteReceiptRuleSet' smart constructor. newtype DeleteReceiptRuleSet = DeleteReceiptRuleSet'-    { _dRuleSetName :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dRuleSetName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteReceiptRuleSet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,10 +66,9 @@     :: Text -- ^ 'dRuleSetName'     -> DeleteReceiptRuleSet deleteReceiptRuleSet pRuleSetName_ =-    DeleteReceiptRuleSet'-    { _dRuleSetName = pRuleSetName_-    }+  DeleteReceiptRuleSet' {_dRuleSetName = pRuleSetName_} + -- | The name of the receipt rule set to delete. dRuleSetName :: Lens' DeleteReceiptRuleSet Text dRuleSetName = lens _dRuleSetName (\ s a -> s{_dRuleSetName = a});@@ -83,9 +83,9 @@                  DeleteReceiptRuleSetResponse' <$>                    (pure (fromEnum s))) -instance Hashable DeleteReceiptRuleSet+instance Hashable DeleteReceiptRuleSet where -instance NFData DeleteReceiptRuleSet+instance NFData DeleteReceiptRuleSet where  instance ToHeaders DeleteReceiptRuleSet where         toHeaders = const mempty@@ -106,9 +106,10 @@ -- -- /See:/ 'deleteReceiptRuleSetResponse' smart constructor. newtype DeleteReceiptRuleSetResponse = DeleteReceiptRuleSetResponse'-    { _drrsrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _drrsrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteReceiptRuleSetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -118,12 +119,11 @@     :: Int -- ^ 'drrsrsResponseStatus'     -> DeleteReceiptRuleSetResponse deleteReceiptRuleSetResponse pResponseStatus_ =-    DeleteReceiptRuleSetResponse'-    { _drrsrsResponseStatus = pResponseStatus_-    }+  DeleteReceiptRuleSetResponse' {_drrsrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. drrsrsResponseStatus :: Lens' DeleteReceiptRuleSetResponse Int drrsrsResponseStatus = lens _drrsrsResponseStatus (\ s a -> s{_drrsrsResponseStatus = a}); -instance NFData DeleteReceiptRuleSetResponse+instance NFData DeleteReceiptRuleSetResponse where

@@ -0,0 +1,121 @@+{-# 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.DeleteTemplate+-- Copyright   : (c) 2013-2017 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 email template.+--+--+-- You can execute this operation no more than once per second.+--+module Network.AWS.SES.DeleteTemplate+    (+    -- * Creating a Request+      deleteTemplate+    , DeleteTemplate+    -- * Request Lenses+    , dtTemplateName++    -- * Destructuring the Response+    , deleteTemplateResponse+    , DeleteTemplateResponse+    -- * Response Lenses+    , dtrsResponseStatus+    ) 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 email template. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/send-personalized-email-api.html Amazon SES Developer Guide> .+--+--+--+-- /See:/ 'deleteTemplate' smart constructor.+newtype DeleteTemplate = DeleteTemplate'+  { _dtTemplateName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteTemplate' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dtTemplateName' - The name of the template to be deleted.+deleteTemplate+    :: Text -- ^ 'dtTemplateName'+    -> DeleteTemplate+deleteTemplate pTemplateName_ =+  DeleteTemplate' {_dtTemplateName = pTemplateName_}+++-- | The name of the template to be deleted.+dtTemplateName :: Lens' DeleteTemplate Text+dtTemplateName = lens _dtTemplateName (\ s a -> s{_dtTemplateName = a});++instance AWSRequest DeleteTemplate where+        type Rs DeleteTemplate = DeleteTemplateResponse+        request = postQuery ses+        response+          = receiveXMLWrapper "DeleteTemplateResult"+              (\ s h x ->+                 DeleteTemplateResponse' <$> (pure (fromEnum s)))++instance Hashable DeleteTemplate where++instance NFData DeleteTemplate where++instance ToHeaders DeleteTemplate where+        toHeaders = const mempty++instance ToPath DeleteTemplate where+        toPath = const "/"++instance ToQuery DeleteTemplate where+        toQuery DeleteTemplate'{..}+          = mconcat+              ["Action" =: ("DeleteTemplate" :: ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "TemplateName" =: _dtTemplateName]++-- | /See:/ 'deleteTemplateResponse' smart constructor.+newtype DeleteTemplateResponse = DeleteTemplateResponse'+  { _dtrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteTemplateResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dtrsResponseStatus' - -- | The response status code.+deleteTemplateResponse+    :: Int -- ^ 'dtrsResponseStatus'+    -> DeleteTemplateResponse+deleteTemplateResponse pResponseStatus_ =+  DeleteTemplateResponse' {_dtrsResponseStatus = pResponseStatus_}+++-- | -- | The response status code.+dtrsResponseStatus :: Lens' DeleteTemplateResponse Int+dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a});++instance NFData DeleteTemplateResponse where

@@ -12,19 +12,15 @@  -- | -- Module      : Network.AWS.SES.DeleteVerifiedEmailAddress--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes the specified email address from the list of verified addresses.+-- Deprecated. Use the @DeleteIdentity@ operation to delete email addresses and domains. -- ----- /Important:/ The DeleteVerifiedEmailAddress action is deprecated as of the May 15, 2012 release of Domain Verification. The DeleteIdentity action is now preferred.------ This action is throttled at one request per second.--- module Network.AWS.SES.DeleteVerifiedEmailAddress     (     -- * Creating a Request@@ -38,12 +34,12 @@     , DeleteVerifiedEmailAddressResponse     ) 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+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 email address from the list of email addresses you have attempted to verify under your AWS account. --@@ -51,9 +47,10 @@ -- -- /See:/ 'deleteVerifiedEmailAddress' smart constructor. newtype DeleteVerifiedEmailAddress = DeleteVerifiedEmailAddress'-    { _dveaEmailAddress :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dveaEmailAddress :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteVerifiedEmailAddress' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -63,10 +60,9 @@     :: Text -- ^ 'dveaEmailAddress'     -> DeleteVerifiedEmailAddress deleteVerifiedEmailAddress pEmailAddress_ =-    DeleteVerifiedEmailAddress'-    { _dveaEmailAddress = pEmailAddress_-    }+  DeleteVerifiedEmailAddress' {_dveaEmailAddress = pEmailAddress_} + -- | An email address to be removed from the list of verified addresses. dveaEmailAddress :: Lens' DeleteVerifiedEmailAddress Text dveaEmailAddress = lens _dveaEmailAddress (\ s a -> s{_dveaEmailAddress = a});@@ -78,9 +74,9 @@         response           = receiveNull DeleteVerifiedEmailAddressResponse' -instance Hashable DeleteVerifiedEmailAddress+instance Hashable DeleteVerifiedEmailAddress where -instance NFData DeleteVerifiedEmailAddress+instance NFData DeleteVerifiedEmailAddress where  instance ToHeaders DeleteVerifiedEmailAddress where         toHeaders = const mempty@@ -98,13 +94,16 @@  -- | /See:/ 'deleteVerifiedEmailAddressResponse' smart constructor. data DeleteVerifiedEmailAddressResponse =-    DeleteVerifiedEmailAddressResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeleteVerifiedEmailAddressResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteVerifiedEmailAddressResponse' with the minimum fields required to make a request. -- deleteVerifiedEmailAddressResponse     :: DeleteVerifiedEmailAddressResponse deleteVerifiedEmailAddressResponse = DeleteVerifiedEmailAddressResponse' + instance NFData DeleteVerifiedEmailAddressResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SES.DescribeActiveReceiptRuleSet--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -23,7 +23,7 @@ -- -- For information about setting up receipt rule sets, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-receipt-rule-set.html Amazon SES Developer Guide> . ----- This action is throttled at one request per second.+-- You can execute this operation no more than once per second. -- module Network.AWS.SES.DescribeActiveReceiptRuleSet     (@@ -40,12 +40,12 @@     , darrsrsResponseStatus     ) 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+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 return the metadata and receipt rules for the receipt rule set that is currently active. You use receipt rule sets to receive email with Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-concepts.html Amazon SES Developer Guide> . --@@ -53,15 +53,17 @@ -- -- /See:/ 'describeActiveReceiptRuleSet' smart constructor. data DescribeActiveReceiptRuleSet =-    DescribeActiveReceiptRuleSet'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DescribeActiveReceiptRuleSet'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeActiveReceiptRuleSet' with the minimum fields required to make a request. -- describeActiveReceiptRuleSet     :: DescribeActiveReceiptRuleSet describeActiveReceiptRuleSet = DescribeActiveReceiptRuleSet' + instance AWSRequest DescribeActiveReceiptRuleSet          where         type Rs DescribeActiveReceiptRuleSet =@@ -77,9 +79,9 @@                      <*> (x .@? "Metadata")                      <*> (pure (fromEnum s))) -instance Hashable DescribeActiveReceiptRuleSet+instance Hashable DescribeActiveReceiptRuleSet where -instance NFData DescribeActiveReceiptRuleSet+instance NFData DescribeActiveReceiptRuleSet where  instance ToHeaders DescribeActiveReceiptRuleSet where         toHeaders = const mempty@@ -101,11 +103,12 @@ -- -- /See:/ 'describeActiveReceiptRuleSetResponse' smart constructor. data DescribeActiveReceiptRuleSetResponse = DescribeActiveReceiptRuleSetResponse'-    { _darrsrsRules          :: !(Maybe [ReceiptRule])-    , _darrsrsMetadata       :: !(Maybe ReceiptRuleSetMetadata)-    , _darrsrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _darrsrsRules          :: !(Maybe [ReceiptRule])+  , _darrsrsMetadata       :: !(Maybe ReceiptRuleSetMetadata)+  , _darrsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeActiveReceiptRuleSetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -119,12 +122,13 @@     :: Int -- ^ 'darrsrsResponseStatus'     -> DescribeActiveReceiptRuleSetResponse describeActiveReceiptRuleSetResponse pResponseStatus_ =-    DescribeActiveReceiptRuleSetResponse'-    { _darrsrsRules = Nothing-    , _darrsrsMetadata = Nothing-    , _darrsrsResponseStatus = pResponseStatus_-    }+  DescribeActiveReceiptRuleSetResponse'+  { _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;@@ -138,3 +142,4 @@ darrsrsResponseStatus = lens _darrsrsResponseStatus (\ s a -> s{_darrsrsResponseStatus = a});  instance NFData DescribeActiveReceiptRuleSetResponse+         where

@@ -12,18 +12,16 @@  -- | -- Module      : Network.AWS.SES.DescribeConfigurationSet--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns the details of the specified configuration set.+-- Returns the details of the specified configuration set. For information about using configuration sets, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/monitor-sending-activity.html Amazon SES Developer Guide> . -- ----- Configuration sets enable you to publish email sending events. For information about using configuration sets, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/monitor-sending-activity.html Amazon SES Developer Guide> .------ This action is throttled at one request per second.+-- You can execute this operation no more than once per second. -- module Network.AWS.SES.DescribeConfigurationSet     (@@ -38,17 +36,18 @@     , describeConfigurationSetResponse     , DescribeConfigurationSetResponse     -- * Response Lenses+    , dcsrsTrackingOptions     , dcsrsConfigurationSet     , dcsrsEventDestinations     , dcsrsResponseStatus     ) 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+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 return the details of a configuration set. Configuration sets enable you to publish email sending events. For information about using configuration sets, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/monitor-sending-activity.html Amazon SES Developer Guide> . --@@ -56,10 +55,11 @@ -- -- /See:/ 'describeConfigurationSet' smart constructor. data DescribeConfigurationSet = DescribeConfigurationSet'-    { _dcsConfigurationSetAttributeNames :: !(Maybe [ConfigurationSetAttribute])-    , _dcsConfigurationSetName           :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dcsConfigurationSetAttributeNames :: !(Maybe [ConfigurationSetAttribute])+  , _dcsConfigurationSetName           :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeConfigurationSet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,11 +71,12 @@     :: Text -- ^ 'dcsConfigurationSetName'     -> DescribeConfigurationSet describeConfigurationSet pConfigurationSetName_ =-    DescribeConfigurationSet'-    { _dcsConfigurationSetAttributeNames = Nothing-    , _dcsConfigurationSetName = pConfigurationSetName_-    }+  DescribeConfigurationSet'+  { _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;@@ -92,14 +93,16 @@           = receiveXMLWrapper "DescribeConfigurationSetResult"               (\ s h x ->                  DescribeConfigurationSetResponse' <$>-                   (x .@? "ConfigurationSet") <*>+                   (x .@? "TrackingOptions") <*>+                     (x .@? "ConfigurationSet")+                     <*>                      (x .@? "EventDestinations" .!@ mempty >>=                         may (parseXMLList "member"))                      <*> (pure (fromEnum s))) -instance Hashable DescribeConfigurationSet+instance Hashable DescribeConfigurationSet where -instance NFData DescribeConfigurationSet+instance NFData DescribeConfigurationSet where  instance ToHeaders DescribeConfigurationSet where         toHeaders = const mempty@@ -125,15 +128,19 @@ -- -- /See:/ 'describeConfigurationSetResponse' smart constructor. data DescribeConfigurationSetResponse = DescribeConfigurationSetResponse'-    { _dcsrsConfigurationSet  :: !(Maybe ConfigurationSet)-    , _dcsrsEventDestinations :: !(Maybe [EventDestination])-    , _dcsrsResponseStatus    :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dcsrsTrackingOptions   :: !(Maybe TrackingOptions)+  , _dcsrsConfigurationSet  :: !(Maybe ConfigurationSet)+  , _dcsrsEventDestinations :: !(Maybe [EventDestination])+  , _dcsrsResponseStatus    :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeConfigurationSetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'dcsrsTrackingOptions' - The name of the custom open and click tracking domain associated with the configuration set.+-- -- * 'dcsrsConfigurationSet' - The configuration set object associated with the specified configuration set. -- -- * 'dcsrsEventDestinations' - A list of event destinations associated with the configuration set.@@ -143,12 +150,18 @@     :: Int -- ^ 'dcsrsResponseStatus'     -> DescribeConfigurationSetResponse describeConfigurationSetResponse pResponseStatus_ =-    DescribeConfigurationSetResponse'-    { _dcsrsConfigurationSet = Nothing-    , _dcsrsEventDestinations = Nothing-    , _dcsrsResponseStatus = pResponseStatus_-    }+  DescribeConfigurationSetResponse'+  { _dcsrsTrackingOptions = Nothing+  , _dcsrsConfigurationSet = 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});+ -- | The configuration set object associated with the specified configuration set. dcsrsConfigurationSet :: Lens' DescribeConfigurationSetResponse (Maybe ConfigurationSet) dcsrsConfigurationSet = lens _dcsrsConfigurationSet (\ s a -> s{_dcsrsConfigurationSet = a});@@ -162,3 +175,4 @@ dcsrsResponseStatus = lens _dcsrsResponseStatus (\ s a -> s{_dcsrsResponseStatus = a});  instance NFData DescribeConfigurationSetResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SES.DescribeReceiptRule--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -23,7 +23,7 @@ -- -- For information about setting up receipt rules, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-receipt-rules.html Amazon SES Developer Guide> . ----- This action is throttled at one request per second.+-- You can execute this operation no more than once per second. -- module Network.AWS.SES.DescribeReceiptRule     (@@ -42,12 +42,12 @@     , drrrsResponseStatus     ) 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+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 return the details of a receipt rule. You use receipt rules to receive email with Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-concepts.html Amazon SES Developer Guide> . --@@ -55,15 +55,16 @@ -- -- /See:/ 'describeReceiptRule' smart constructor. data DescribeReceiptRule = DescribeReceiptRule'-    { _drrRuleSetName :: !Text-    , _drrRuleName    :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _drrRuleSetName :: !Text+  , _drrRuleName    :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeReceiptRule' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'drrRuleSetName' - The name of the receipt rule set to which the receipt rule belongs.+-- * 'drrRuleSetName' - The name of the receipt rule set that the receipt rule belongs to. -- -- * 'drrRuleName' - The name of the receipt rule. describeReceiptRule@@ -71,12 +72,11 @@     -> Text -- ^ 'drrRuleName'     -> DescribeReceiptRule describeReceiptRule pRuleSetName_ pRuleName_ =-    DescribeReceiptRule'-    { _drrRuleSetName = pRuleSetName_-    , _drrRuleName = pRuleName_-    }+  DescribeReceiptRule'+  {_drrRuleSetName = pRuleSetName_, _drrRuleName = pRuleName_} --- | The name of the receipt rule set to which the receipt rule belongs.++-- | 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}); @@ -94,9 +94,9 @@                  DescribeReceiptRuleResponse' <$>                    (x .@? "Rule") <*> (pure (fromEnum s))) -instance Hashable DescribeReceiptRule+instance Hashable DescribeReceiptRule where -instance NFData DescribeReceiptRule+instance NFData DescribeReceiptRule where  instance ToHeaders DescribeReceiptRule where         toHeaders = const mempty@@ -118,10 +118,11 @@ -- -- /See:/ 'describeReceiptRuleResponse' smart constructor. data DescribeReceiptRuleResponse = DescribeReceiptRuleResponse'-    { _drrrsRule           :: !(Maybe ReceiptRule)-    , _drrrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _drrrsRule           :: !(Maybe ReceiptRule)+  , _drrrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeReceiptRuleResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -133,11 +134,10 @@     :: Int -- ^ 'drrrsResponseStatus'     -> DescribeReceiptRuleResponse describeReceiptRuleResponse pResponseStatus_ =-    DescribeReceiptRuleResponse'-    { _drrrsRule = Nothing-    , _drrrsResponseStatus = pResponseStatus_-    }+  DescribeReceiptRuleResponse'+  {_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});@@ -146,4 +146,4 @@ drrrsResponseStatus :: Lens' DescribeReceiptRuleResponse Int drrrsResponseStatus = lens _drrrsResponseStatus (\ s a -> s{_drrrsResponseStatus = a}); -instance NFData DescribeReceiptRuleResponse+instance NFData DescribeReceiptRuleResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SES.DescribeReceiptRuleSet--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -23,7 +23,7 @@ -- -- For information about managing receipt rule sets, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-managing-receipt-rule-sets.html Amazon SES Developer Guide> . ----- This action is throttled at one request per second.+-- You can execute this operation no more than once per second. -- module Network.AWS.SES.DescribeReceiptRuleSet     (@@ -42,12 +42,12 @@     , desrsResponseStatus     ) 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+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 return the details of a receipt rule set. You use receipt rule sets to receive email with Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-concepts.html Amazon SES Developer Guide> . --@@ -55,9 +55,10 @@ -- -- /See:/ 'describeReceiptRuleSet' smart constructor. newtype DescribeReceiptRuleSet = DescribeReceiptRuleSet'-    { _drrsRuleSetName :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _drrsRuleSetName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeReceiptRuleSet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -67,10 +68,9 @@     :: Text -- ^ 'drrsRuleSetName'     -> DescribeReceiptRuleSet describeReceiptRuleSet pRuleSetName_ =-    DescribeReceiptRuleSet'-    { _drrsRuleSetName = pRuleSetName_-    }+  DescribeReceiptRuleSet' {_drrsRuleSetName = pRuleSetName_} + -- | The name of the receipt rule set to describe. drrsRuleSetName :: Lens' DescribeReceiptRuleSet Text drrsRuleSetName = lens _drrsRuleSetName (\ s a -> s{_drrsRuleSetName = a});@@ -88,9 +88,9 @@                      <*> (x .@? "Metadata")                      <*> (pure (fromEnum s))) -instance Hashable DescribeReceiptRuleSet+instance Hashable DescribeReceiptRuleSet where -instance NFData DescribeReceiptRuleSet+instance NFData DescribeReceiptRuleSet where  instance ToHeaders DescribeReceiptRuleSet where         toHeaders = const mempty@@ -112,11 +112,12 @@ -- -- /See:/ 'describeReceiptRuleSetResponse' smart constructor. data DescribeReceiptRuleSetResponse = DescribeReceiptRuleSetResponse'-    { _desrsRules          :: !(Maybe [ReceiptRule])-    , _desrsMetadata       :: !(Maybe ReceiptRuleSetMetadata)-    , _desrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _desrsRules          :: !(Maybe [ReceiptRule])+  , _desrsMetadata       :: !(Maybe ReceiptRuleSetMetadata)+  , _desrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeReceiptRuleSetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -130,12 +131,13 @@     :: Int -- ^ 'desrsResponseStatus'     -> DescribeReceiptRuleSetResponse describeReceiptRuleSetResponse pResponseStatus_ =-    DescribeReceiptRuleSetResponse'-    { _desrsRules = Nothing-    , _desrsMetadata = Nothing-    , _desrsResponseStatus = pResponseStatus_-    }+  DescribeReceiptRuleSetResponse'+  { _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;@@ -148,4 +150,4 @@ desrsResponseStatus :: Lens' DescribeReceiptRuleSetResponse Int desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a}); -instance NFData DescribeReceiptRuleSetResponse+instance NFData DescribeReceiptRuleSetResponse where

@@ -12,16 +12,16 @@  -- | -- Module      : Network.AWS.SES.GetIdentityDkimAttributes--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns the current status of Easy DKIM signing for an entity. For domain name identities, this action also returns the DKIM tokens that are required for Easy DKIM signing, and whether Amazon SES has successfully verified that these tokens have been published.+-- Returns the current status of Easy DKIM signing for an entity. For domain name identities, this operation also returns the DKIM tokens that are required for Easy DKIM signing, and whether Amazon SES has successfully verified that these tokens have been published. -- ----- This action takes a list of identities as input and returns the following information for each:+-- This operation takes a list of identities as input and returns the following information for each: -- --     * Whether Easy DKIM signing is enabled or disabled. --@@ -31,7 +31,7 @@ -- -- ----- This action is throttled at one request per second and can only get DKIM attributes for up to 100 identities at a time.+-- This operation is throttled at one request per second and can only get DKIM attributes for up to 100 identities at a time. -- -- 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> . --@@ -51,12 +51,12 @@     , gidarsDkimAttributes     ) 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+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 for the status of Amazon SES Easy DKIM signing for an identity. For domain identities, this request also returns the DKIM tokens that are required for Easy DKIM signing, and whether Amazon SES successfully verified that these tokens were published. For more information about Easy DKIM, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/easy-dkim.html Amazon SES Developer Guide> . --@@ -64,9 +64,10 @@ -- -- /See:/ 'getIdentityDkimAttributes' smart constructor. newtype GetIdentityDkimAttributes = GetIdentityDkimAttributes'-    { _gidaIdentities :: [Text]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gidaIdentities :: [Text]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetIdentityDkimAttributes' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -75,10 +76,9 @@ getIdentityDkimAttributes     :: GetIdentityDkimAttributes getIdentityDkimAttributes =-    GetIdentityDkimAttributes'-    { _gidaIdentities = mempty-    }+  GetIdentityDkimAttributes' {_gidaIdentities = mempty} + -- | 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;@@ -95,9 +95,9 @@                      (x .@? "DkimAttributes" .!@ mempty >>=                         parseXMLMap "entry" "key" "value")) -instance Hashable GetIdentityDkimAttributes+instance Hashable GetIdentityDkimAttributes where -instance NFData GetIdentityDkimAttributes+instance NFData GetIdentityDkimAttributes where  instance ToHeaders GetIdentityDkimAttributes where         toHeaders = const mempty@@ -119,10 +119,11 @@ -- -- /See:/ 'getIdentityDkimAttributesResponse' smart constructor. data GetIdentityDkimAttributesResponse = GetIdentityDkimAttributesResponse'-    { _gidarsResponseStatus :: !Int-    , _gidarsDkimAttributes :: !(Map Text IdentityDkimAttributes)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gidarsResponseStatus :: !Int+  , _gidarsDkimAttributes :: !(Map Text IdentityDkimAttributes)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetIdentityDkimAttributesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -134,11 +135,10 @@     :: Int -- ^ 'gidarsResponseStatus'     -> GetIdentityDkimAttributesResponse getIdentityDkimAttributesResponse pResponseStatus_ =-    GetIdentityDkimAttributesResponse'-    { _gidarsResponseStatus = pResponseStatus_-    , _gidarsDkimAttributes = mempty-    }+  GetIdentityDkimAttributesResponse'+  {_gidarsResponseStatus = pResponseStatus_, _gidarsDkimAttributes = mempty} + -- | -- | The response status code. gidarsResponseStatus :: Lens' GetIdentityDkimAttributesResponse Int gidarsResponseStatus = lens _gidarsResponseStatus (\ s a -> s{_gidarsResponseStatus = a});@@ -148,3 +148,4 @@ gidarsDkimAttributes = lens _gidarsDkimAttributes (\ s a -> s{_gidarsDkimAttributes = a}) . _Map;  instance NFData GetIdentityDkimAttributesResponse+         where

@@ -12,16 +12,16 @@  -- | -- Module      : Network.AWS.SES.GetIdentityMailFromDomainAttributes--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns the custom MAIL FROM attributes for a list of identities (email addresses and/or domains).+-- Returns the custom MAIL FROM attributes for a list of identities (email addresses : domains). -- ----- This action is throttled at one request per second and can only get custom MAIL FROM attributes for up to 100 identities at a time.+-- This operation is throttled at one request per second and can only get custom MAIL FROM attributes for up to 100 identities at a time. -- module Network.AWS.SES.GetIdentityMailFromDomainAttributes     (@@ -39,12 +39,12 @@     , gimfdarsMailFromDomainAttributes     ) 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+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 return the Amazon SES custom MAIL FROM attributes for a list of identities. For information about using a custom MAIL FROM domain, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/mail-from.html Amazon SES Developer Guide> . --@@ -52,9 +52,10 @@ -- -- /See:/ 'getIdentityMailFromDomainAttributes' smart constructor. newtype GetIdentityMailFromDomainAttributes = GetIdentityMailFromDomainAttributes'-    { _gimfdaIdentities :: [Text]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gimfdaIdentities :: [Text]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetIdentityMailFromDomainAttributes' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -63,16 +64,16 @@ getIdentityMailFromDomainAttributes     :: GetIdentityMailFromDomainAttributes getIdentityMailFromDomainAttributes =-    GetIdentityMailFromDomainAttributes'-    { _gimfdaIdentities = mempty-    }+  GetIdentityMailFromDomainAttributes' {_gimfdaIdentities = mempty} + -- | A list of one or more identities. gimfdaIdentities :: Lens' GetIdentityMailFromDomainAttributes [Text] gimfdaIdentities = lens _gimfdaIdentities (\ s a -> s{_gimfdaIdentities = a}) . _Coerce;  instance AWSRequest-         GetIdentityMailFromDomainAttributes where+           GetIdentityMailFromDomainAttributes+         where         type Rs GetIdentityMailFromDomainAttributes =              GetIdentityMailFromDomainAttributesResponse         request = postQuery ses@@ -86,11 +87,14 @@                         parseXMLMap "entry" "key" "value"))  instance Hashable GetIdentityMailFromDomainAttributes+         where  instance NFData GetIdentityMailFromDomainAttributes+         where  instance ToHeaders-         GetIdentityMailFromDomainAttributes where+           GetIdentityMailFromDomainAttributes+         where         toHeaders = const mempty  instance ToPath GetIdentityMailFromDomainAttributes@@ -114,10 +118,11 @@ -- -- /See:/ 'getIdentityMailFromDomainAttributesResponse' smart constructor. data GetIdentityMailFromDomainAttributesResponse = GetIdentityMailFromDomainAttributesResponse'-    { _gimfdarsResponseStatus           :: !Int-    , _gimfdarsMailFromDomainAttributes :: !(Map Text IdentityMailFromDomainAttributes)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gimfdarsResponseStatus :: !Int+  , _gimfdarsMailFromDomainAttributes :: !(Map Text IdentityMailFromDomainAttributes)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetIdentityMailFromDomainAttributesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -129,11 +134,12 @@     :: Int -- ^ 'gimfdarsResponseStatus'     -> GetIdentityMailFromDomainAttributesResponse getIdentityMailFromDomainAttributesResponse pResponseStatus_ =-    GetIdentityMailFromDomainAttributesResponse'-    { _gimfdarsResponseStatus = pResponseStatus_-    , _gimfdarsMailFromDomainAttributes = mempty-    }+  GetIdentityMailFromDomainAttributesResponse'+  { _gimfdarsResponseStatus = pResponseStatus_+  , _gimfdarsMailFromDomainAttributes = mempty+  } + -- | -- | The response status code. gimfdarsResponseStatus :: Lens' GetIdentityMailFromDomainAttributesResponse Int gimfdarsResponseStatus = lens _gimfdarsResponseStatus (\ s a -> s{_gimfdarsResponseStatus = a});@@ -143,4 +149,5 @@ gimfdarsMailFromDomainAttributes = lens _gimfdarsMailFromDomainAttributes (\ s a -> s{_gimfdarsMailFromDomainAttributes = a}) . _Map;  instance NFData-         GetIdentityMailFromDomainAttributesResponse+           GetIdentityMailFromDomainAttributesResponse+         where

@@ -12,16 +12,16 @@  -- | -- Module      : Network.AWS.SES.GetIdentityNotificationAttributes--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- Given a list of verified identities (email addresses and/or domains), returns a structure describing identity notification attributes. -- ----- This action is throttled at one request per second and can only get notification attributes for up to 100 identities at a time.+-- This operation is throttled at one request per second and can only get notification attributes for up to 100 identities at a time. -- -- For more information about using notifications with Amazon SES, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/notifications.html Amazon SES Developer Guide> . --@@ -41,12 +41,12 @@     , ginarsNotificationAttributes     ) 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+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 return the notification attributes for a list of identities you verified with Amazon SES. For information about Amazon SES notifications, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/notifications.html Amazon SES Developer Guide> . --@@ -54,9 +54,10 @@ -- -- /See:/ 'getIdentityNotificationAttributes' smart constructor. newtype GetIdentityNotificationAttributes = GetIdentityNotificationAttributes'-    { _ginaIdentities :: [Text]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ginaIdentities :: [Text]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetIdentityNotificationAttributes' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,10 +66,9 @@ getIdentityNotificationAttributes     :: GetIdentityNotificationAttributes getIdentityNotificationAttributes =-    GetIdentityNotificationAttributes'-    { _ginaIdentities = mempty-    }+  GetIdentityNotificationAttributes' {_ginaIdentities = mempty} + -- | 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;@@ -88,8 +88,10 @@                         parseXMLMap "entry" "key" "value"))  instance Hashable GetIdentityNotificationAttributes+         where  instance NFData GetIdentityNotificationAttributes+         where  instance ToHeaders GetIdentityNotificationAttributes          where@@ -114,10 +116,11 @@ -- -- /See:/ 'getIdentityNotificationAttributesResponse' smart constructor. data GetIdentityNotificationAttributesResponse = GetIdentityNotificationAttributesResponse'-    { _ginarsResponseStatus         :: !Int-    , _ginarsNotificationAttributes :: !(Map Text IdentityNotificationAttributes)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ginarsResponseStatus         :: !Int+  , _ginarsNotificationAttributes :: !(Map Text IdentityNotificationAttributes)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetIdentityNotificationAttributesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -129,11 +132,12 @@     :: Int -- ^ 'ginarsResponseStatus'     -> GetIdentityNotificationAttributesResponse getIdentityNotificationAttributesResponse pResponseStatus_ =-    GetIdentityNotificationAttributesResponse'-    { _ginarsResponseStatus = pResponseStatus_-    , _ginarsNotificationAttributes = mempty-    }+  GetIdentityNotificationAttributesResponse'+  { _ginarsResponseStatus = pResponseStatus_+  , _ginarsNotificationAttributes = mempty+  } + -- | -- | The response status code. ginarsResponseStatus :: Lens' GetIdentityNotificationAttributesResponse Int ginarsResponseStatus = lens _ginarsResponseStatus (\ s a -> s{_ginarsResponseStatus = a});@@ -143,4 +147,5 @@ ginarsNotificationAttributes = lens _ginarsNotificationAttributes (\ s a -> s{_ginarsNotificationAttributes = a}) . _Map;  instance NFData-         GetIdentityNotificationAttributesResponse+           GetIdentityNotificationAttributesResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SES.GetIdentityPolicies--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -23,7 +23,7 @@ -- -- Sending authorization is a feature that enables an identity owner to authorize other senders to use its identities. For information about using sending authorization, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization.html Amazon SES Developer Guide> . ----- This action is throttled at one request per second.+-- You can execute this operation no more than once per second. -- module Network.AWS.SES.GetIdentityPolicies     (@@ -42,12 +42,12 @@     , giprsPolicies     ) 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+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 return the requested sending authorization policies for an identity. Sending authorization is an Amazon SES feature that enables you to authorize other senders to use your identities. For information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization.html Amazon SES Developer Guide> . --@@ -55,10 +55,11 @@ -- -- /See:/ 'getIdentityPolicies' smart constructor. data GetIdentityPolicies = GetIdentityPolicies'-    { _gipIdentity    :: !Text-    , _gipPolicyNames :: ![Text]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gipIdentity    :: !Text+  , _gipPolicyNames :: ![Text]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetIdentityPolicies' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -70,11 +71,9 @@     :: Text -- ^ 'gipIdentity'     -> GetIdentityPolicies getIdentityPolicies pIdentity_ =-    GetIdentityPolicies'-    { _gipIdentity = pIdentity_-    , _gipPolicyNames = mempty-    }+  GetIdentityPolicies' {_gipIdentity = pIdentity_, _gipPolicyNames = mempty} + -- | 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});@@ -95,9 +94,9 @@                      (x .@? "Policies" .!@ mempty >>=                         parseXMLMap "entry" "key" "value")) -instance Hashable GetIdentityPolicies+instance Hashable GetIdentityPolicies where -instance NFData GetIdentityPolicies+instance NFData GetIdentityPolicies where  instance ToHeaders GetIdentityPolicies where         toHeaders = const mempty@@ -120,10 +119,11 @@ -- -- /See:/ 'getIdentityPoliciesResponse' smart constructor. data GetIdentityPoliciesResponse = GetIdentityPoliciesResponse'-    { _giprsResponseStatus :: !Int-    , _giprsPolicies       :: !(Map Text Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _giprsResponseStatus :: !Int+  , _giprsPolicies       :: !(Map Text Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetIdentityPoliciesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -135,11 +135,10 @@     :: Int -- ^ 'giprsResponseStatus'     -> GetIdentityPoliciesResponse getIdentityPoliciesResponse pResponseStatus_ =-    GetIdentityPoliciesResponse'-    { _giprsResponseStatus = pResponseStatus_-    , _giprsPolicies = mempty-    }+  GetIdentityPoliciesResponse'+  {_giprsResponseStatus = pResponseStatus_, _giprsPolicies = mempty} + -- | -- | The response status code. giprsResponseStatus :: Lens' GetIdentityPoliciesResponse Int giprsResponseStatus = lens _giprsResponseStatus (\ s a -> s{_giprsResponseStatus = a});@@ -148,4 +147,4 @@ giprsPolicies :: Lens' GetIdentityPoliciesResponse (HashMap Text Text) giprsPolicies = lens _giprsPolicies (\ s a -> s{_giprsPolicies = a}) . _Map; -instance NFData GetIdentityPoliciesResponse+instance NFData GetIdentityPoliciesResponse where

@@ -12,17 +12,21 @@  -- | -- Module      : Network.AWS.SES.GetIdentityVerificationAttributes--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- Given a list of identities (email addresses and/or domains), returns the verification status and (for domain identities) the verification token for each identity. -- ----- This action is throttled at one request per second and can only get verification attributes for up to 100 identities at a time.+-- The verification status of an email address is "Pending" until the email address owner clicks the link within the verification email that Amazon SES sent to that address. If the email address owner clicks the link within 24 hours, the verification status of the email address changes to "Success". If the link is not clicked within 24 hours, the verification status changes to "Failed." In that case, if you still want to verify the email address, you must restart the verification process from the beginning. --+-- For domain identities, the domain's verification status is "Pending" as Amazon SES searches for the required TXT record in the DNS settings of the domain. 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.+--+-- This operation is throttled at one request per second and can only get verification attributes for up to 100 identities at a time.+-- module Network.AWS.SES.GetIdentityVerificationAttributes     (     -- * Creating a Request@@ -39,12 +43,12 @@     , givarsVerificationAttributes     ) 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+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 return the Amazon SES verification status of a list of identities. For domain identities, this request also returns the verification token. For information about verifying identities with Amazon SES, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/verify-addresses-and-domains.html Amazon SES Developer Guide> . --@@ -52,9 +56,10 @@ -- -- /See:/ 'getIdentityVerificationAttributes' smart constructor. newtype GetIdentityVerificationAttributes = GetIdentityVerificationAttributes'-    { _givaIdentities :: [Text]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _givaIdentities :: [Text]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetIdentityVerificationAttributes' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -63,10 +68,9 @@ getIdentityVerificationAttributes     :: GetIdentityVerificationAttributes getIdentityVerificationAttributes =-    GetIdentityVerificationAttributes'-    { _givaIdentities = mempty-    }+  GetIdentityVerificationAttributes' {_givaIdentities = mempty} + -- | A list of identities. givaIdentities :: Lens' GetIdentityVerificationAttributes [Text] givaIdentities = lens _givaIdentities (\ s a -> s{_givaIdentities = a}) . _Coerce;@@ -86,8 +90,10 @@                         parseXMLMap "entry" "key" "value"))  instance Hashable GetIdentityVerificationAttributes+         where  instance NFData GetIdentityVerificationAttributes+         where  instance ToHeaders GetIdentityVerificationAttributes          where@@ -112,10 +118,11 @@ -- -- /See:/ 'getIdentityVerificationAttributesResponse' smart constructor. data GetIdentityVerificationAttributesResponse = GetIdentityVerificationAttributesResponse'-    { _givarsResponseStatus         :: !Int-    , _givarsVerificationAttributes :: !(Map Text IdentityVerificationAttributes)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _givarsResponseStatus         :: !Int+  , _givarsVerificationAttributes :: !(Map Text IdentityVerificationAttributes)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetIdentityVerificationAttributesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -127,11 +134,12 @@     :: Int -- ^ 'givarsResponseStatus'     -> GetIdentityVerificationAttributesResponse getIdentityVerificationAttributesResponse pResponseStatus_ =-    GetIdentityVerificationAttributesResponse'-    { _givarsResponseStatus = pResponseStatus_-    , _givarsVerificationAttributes = mempty-    }+  GetIdentityVerificationAttributesResponse'+  { _givarsResponseStatus = pResponseStatus_+  , _givarsVerificationAttributes = mempty+  } + -- | -- | The response status code. givarsResponseStatus :: Lens' GetIdentityVerificationAttributesResponse Int givarsResponseStatus = lens _givarsResponseStatus (\ s a -> s{_givarsResponseStatus = a});@@ -141,4 +149,5 @@ givarsVerificationAttributes = lens _givarsVerificationAttributes (\ s a -> s{_givarsVerificationAttributes = a}) . _Map;  instance NFData-         GetIdentityVerificationAttributesResponse+           GetIdentityVerificationAttributesResponse+         where

@@ -12,16 +12,16 @@  -- | -- Module      : Network.AWS.SES.GetSendQuota--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns the user's current sending limits.+-- Provides the sending limits for the Amazon SES account. -- ----- This action is throttled at one request per second.+-- You can execute this operation no more than once per second. -- module Network.AWS.SES.GetSendQuota     (@@ -39,24 +39,26 @@     , gsqrsResponseStatus     ) 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+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:/ 'getSendQuota' smart constructor. data GetSendQuota =-    GetSendQuota'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  GetSendQuota'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetSendQuota' with the minimum fields required to make a request. -- getSendQuota     :: GetSendQuota getSendQuota = GetSendQuota' + instance AWSRequest GetSendQuota where         type Rs GetSendQuota = GetSendQuotaResponse         request = postQuery ses@@ -68,9 +70,9 @@                      <*> (x .@? "Max24HourSend")                      <*> (pure (fromEnum s))) -instance Hashable GetSendQuota+instance Hashable GetSendQuota where -instance NFData GetSendQuota+instance NFData GetSendQuota where  instance ToHeaders GetSendQuota where         toHeaders = const mempty@@ -91,12 +93,13 @@ -- -- /See:/ 'getSendQuotaResponse' smart constructor. data GetSendQuotaResponse = GetSendQuotaResponse'-    { _gsqrsMaxSendRate     :: !(Maybe Double)-    , _gsqrsSentLast24Hours :: !(Maybe Double)-    , _gsqrsMax24HourSend   :: !(Maybe Double)-    , _gsqrsResponseStatus  :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gsqrsMaxSendRate     :: !(Maybe Double)+  , _gsqrsSentLast24Hours :: !(Maybe Double)+  , _gsqrsMax24HourSend   :: !(Maybe Double)+  , _gsqrsResponseStatus  :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetSendQuotaResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -112,13 +115,14 @@     :: Int -- ^ 'gsqrsResponseStatus'     -> GetSendQuotaResponse getSendQuotaResponse pResponseStatus_ =-    GetSendQuotaResponse'-    { _gsqrsMaxSendRate = Nothing-    , _gsqrsSentLast24Hours = Nothing-    , _gsqrsMax24HourSend = Nothing-    , _gsqrsResponseStatus = pResponseStatus_-    }+  GetSendQuotaResponse'+  { _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});@@ -135,4 +139,4 @@ gsqrsResponseStatus :: Lens' GetSendQuotaResponse Int gsqrsResponseStatus = lens _gsqrsResponseStatus (\ s a -> s{_gsqrsResponseStatus = a}); -instance NFData GetSendQuotaResponse+instance NFData GetSendQuotaResponse where

@@ -12,18 +12,16 @@  -- | -- Module      : Network.AWS.SES.GetSendStatistics--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns the user's sending statistics. The result is a list of data points, representing the last two weeks of sending activity.+-- Provides sending statistics for the Amazon SES account. The result is a list of data points, representing the last two weeks of sending activity. Each data point in the list contains statistics for a 15-minute period of time. -- ----- Each data point in the list contains statistics for a 15-minute interval.------ This action is throttled at one request per second.+-- You can execute this operation no more than once per second. -- module Network.AWS.SES.GetSendStatistics     (@@ -39,24 +37,26 @@     , gssrsResponseStatus     ) 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+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:/ 'getSendStatistics' smart constructor. data GetSendStatistics =-    GetSendStatistics'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  GetSendStatistics'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetSendStatistics' with the minimum fields required to make a request. -- getSendStatistics     :: GetSendStatistics getSendStatistics = GetSendStatistics' + instance AWSRequest GetSendStatistics where         type Rs GetSendStatistics = GetSendStatisticsResponse         request = postQuery ses@@ -68,9 +68,9 @@                       may (parseXMLList "member"))                      <*> (pure (fromEnum s))) -instance Hashable GetSendStatistics+instance Hashable GetSendStatistics where -instance NFData GetSendStatistics+instance NFData GetSendStatistics where  instance ToHeaders GetSendStatistics where         toHeaders = const mempty@@ -91,10 +91,11 @@ -- -- /See:/ 'getSendStatisticsResponse' smart constructor. data GetSendStatisticsResponse = GetSendStatisticsResponse'-    { _gssrsSendDataPoints :: !(Maybe [SendDataPoint])-    , _gssrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gssrsSendDataPoints :: !(Maybe [SendDataPoint])+  , _gssrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetSendStatisticsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -106,11 +107,10 @@     :: Int -- ^ 'gssrsResponseStatus'     -> GetSendStatisticsResponse getSendStatisticsResponse pResponseStatus_ =-    GetSendStatisticsResponse'-    { _gssrsSendDataPoints = Nothing-    , _gssrsResponseStatus = pResponseStatus_-    }+  GetSendStatisticsResponse'+  {_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;@@ -119,4 +119,4 @@ gssrsResponseStatus :: Lens' GetSendStatisticsResponse Int gssrsResponseStatus = lens _gssrsResponseStatus (\ s a -> s{_gssrsResponseStatus = a}); -instance NFData GetSendStatisticsResponse+instance NFData GetSendStatisticsResponse where

@@ -0,0 +1,126 @@+{-# 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.GetTemplate+-- Copyright   : (c) 2013-2017 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)+--+-- Displays the template object (which includes the Subject line, HTML part and text part) for the template you specify.+--+--+-- You can execute this operation no more than once per second.+--+module Network.AWS.SES.GetTemplate+    (+    -- * Creating a Request+      getTemplate+    , GetTemplate+    -- * Request Lenses+    , gtTemplateName++    -- * Destructuring the Response+    , getTemplateResponse+    , GetTemplateResponse+    -- * Response Lenses+    , gtrsTemplate+    , gtrsResponseStatus+    ) 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:/ 'getTemplate' smart constructor.+newtype GetTemplate = GetTemplate'+  { _gtTemplateName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetTemplate' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gtTemplateName' - The name of the template you want to retrieve.+getTemplate+    :: Text -- ^ 'gtTemplateName'+    -> GetTemplate+getTemplate pTemplateName_ = GetTemplate' {_gtTemplateName = pTemplateName_}+++-- | The name of the template you want to retrieve.+gtTemplateName :: Lens' GetTemplate Text+gtTemplateName = lens _gtTemplateName (\ s a -> s{_gtTemplateName = a});++instance AWSRequest GetTemplate where+        type Rs GetTemplate = GetTemplateResponse+        request = postQuery ses+        response+          = receiveXMLWrapper "GetTemplateResult"+              (\ s h x ->+                 GetTemplateResponse' <$>+                   (x .@? "Template") <*> (pure (fromEnum s)))++instance Hashable GetTemplate where++instance NFData GetTemplate where++instance ToHeaders GetTemplate where+        toHeaders = const mempty++instance ToPath GetTemplate where+        toPath = const "/"++instance ToQuery GetTemplate where+        toQuery GetTemplate'{..}+          = mconcat+              ["Action" =: ("GetTemplate" :: ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "TemplateName" =: _gtTemplateName]++-- | /See:/ 'getTemplateResponse' smart constructor.+data GetTemplateResponse = GetTemplateResponse'+  { _gtrsTemplate       :: !(Maybe Template)+  , _gtrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetTemplateResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gtrsTemplate' - Undocumented member.+--+-- * 'gtrsResponseStatus' - -- | The response status code.+getTemplateResponse+    :: Int -- ^ 'gtrsResponseStatus'+    -> GetTemplateResponse+getTemplateResponse pResponseStatus_ =+  GetTemplateResponse'+  {_gtrsTemplate = Nothing, _gtrsResponseStatus = pResponseStatus_}+++-- | Undocumented member.+gtrsTemplate :: Lens' GetTemplateResponse (Maybe Template)+gtrsTemplate = lens _gtrsTemplate (\ s a -> s{_gtrsTemplate = a});++-- | -- | The response status code.+gtrsResponseStatus :: Lens' GetTemplateResponse Int+gtrsResponseStatus = lens _gtrsResponseStatus (\ s a -> s{_gtrsResponseStatus = a});++instance NFData GetTemplateResponse where

@@ -12,18 +12,16 @@  -- | -- Module      : Network.AWS.SES.ListConfigurationSets--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Lists the configuration sets associated with your AWS account.+-- Provides a list of the configuration sets associated with your Amazon SES account. For information about using configuration sets, see <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/monitor-sending-activity.html Monitoring Your Amazon SES Sending Activity> in the /Amazon SES Developer Guide./ -- ----- Configuration sets enable you to publish email sending events. For information about using configuration sets, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/monitor-sending-activity.html Amazon SES Developer Guide> .------ This action is throttled at one request per second and can return up to 50 configuration sets at a time.+-- You can execute this operation no more than once per second. This operation will return up to 1,000 configuration sets each time it is run. If your Amazon SES account has more than 1,000 configuration sets, this operation will also return a NextToken element. You can then execute the @ListConfigurationSets@ operation again, passing the @NextToken@ parameter and the value of the NextToken element to retrieve additional results. -- module Network.AWS.SES.ListConfigurationSets     (@@ -43,12 +41,12 @@     , lcsrsResponseStatus     ) 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+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 list the configuration sets associated with your AWS account. Configuration sets enable you to publish email sending events. For information about using configuration sets, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/monitor-sending-activity.html Amazon SES Developer Guide> . --@@ -56,10 +54,11 @@ -- -- /See:/ 'listConfigurationSets' smart constructor. data ListConfigurationSets = ListConfigurationSets'-    { _lcsNextToken :: !(Maybe Text)-    , _lcsMaxItems  :: !(Maybe Int)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lcsNextToken :: !(Maybe Text)+  , _lcsMaxItems  :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListConfigurationSets' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -70,11 +69,9 @@ listConfigurationSets     :: ListConfigurationSets listConfigurationSets =-    ListConfigurationSets'-    { _lcsNextToken = Nothing-    , _lcsMaxItems = Nothing-    }+  ListConfigurationSets' {_lcsNextToken = Nothing, _lcsMaxItems = Nothing} + -- | 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});@@ -96,9 +93,9 @@                      <*> (x .@? "NextToken")                      <*> (pure (fromEnum s))) -instance Hashable ListConfigurationSets+instance Hashable ListConfigurationSets where -instance NFData ListConfigurationSets+instance NFData ListConfigurationSets where  instance ToHeaders ListConfigurationSets where         toHeaders = const mempty@@ -120,11 +117,12 @@ -- -- /See:/ 'listConfigurationSetsResponse' smart constructor. data ListConfigurationSetsResponse = ListConfigurationSetsResponse'-    { _lcsrsConfigurationSets :: !(Maybe [ConfigurationSet])-    , _lcsrsNextToken         :: !(Maybe Text)-    , _lcsrsResponseStatus    :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lcsrsConfigurationSets :: !(Maybe [ConfigurationSet])+  , _lcsrsNextToken         :: !(Maybe Text)+  , _lcsrsResponseStatus    :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListConfigurationSetsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -138,12 +136,13 @@     :: Int -- ^ 'lcsrsResponseStatus'     -> ListConfigurationSetsResponse listConfigurationSetsResponse pResponseStatus_ =-    ListConfigurationSetsResponse'-    { _lcsrsConfigurationSets = Nothing-    , _lcsrsNextToken = Nothing-    , _lcsrsResponseStatus = pResponseStatus_-    }+  ListConfigurationSetsResponse'+  { _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;@@ -156,4 +155,4 @@ lcsrsResponseStatus :: Lens' ListConfigurationSetsResponse Int lcsrsResponseStatus = lens _lcsrsResponseStatus (\ s a -> s{_lcsrsResponseStatus = a}); -instance NFData ListConfigurationSetsResponse+instance NFData ListConfigurationSetsResponse where

@@ -12,16 +12,16 @@  -- | -- Module      : Network.AWS.SES.ListIdentities--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- Returns a list containing all of the identities (email addresses and domains) for your AWS account, regardless of verification status. -- ----- This action is throttled at one request per second.+-- You can execute this operation no more than once per second. -- -- -- This operation returns paginated results.@@ -44,13 +44,13 @@     , lirsIdentities     ) 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+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 return a list of all identities (email addresses and domains) that you have attempted to verify under your AWS account, regardless of verification status. --@@ -58,11 +58,12 @@ -- -- /See:/ 'listIdentities' smart constructor. data ListIdentities = ListIdentities'-    { _liIdentityType :: !(Maybe IdentityType)-    , _liNextToken    :: !(Maybe Text)-    , _liMaxItems     :: !(Maybe Int)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _liIdentityType :: !(Maybe IdentityType)+  , _liNextToken    :: !(Maybe Text)+  , _liMaxItems     :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListIdentities' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -75,12 +76,10 @@ listIdentities     :: ListIdentities listIdentities =-    ListIdentities'-    { _liIdentityType = Nothing-    , _liNextToken = Nothing-    , _liMaxItems = Nothing-    }+  ListIdentities'+  {_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});@@ -111,9 +110,9 @@                      (x .@? "Identities" .!@ mempty >>=                         parseXMLList "member")) -instance Hashable ListIdentities+instance Hashable ListIdentities where -instance NFData ListIdentities+instance NFData ListIdentities where  instance ToHeaders ListIdentities where         toHeaders = const mempty@@ -136,11 +135,12 @@ -- -- /See:/ 'listIdentitiesResponse' smart constructor. data ListIdentitiesResponse = ListIdentitiesResponse'-    { _lirsNextToken      :: !(Maybe Text)-    , _lirsResponseStatus :: !Int-    , _lirsIdentities     :: ![Text]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lirsNextToken      :: !(Maybe Text)+  , _lirsResponseStatus :: !Int+  , _lirsIdentities     :: ![Text]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListIdentitiesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -154,12 +154,13 @@     :: Int -- ^ 'lirsResponseStatus'     -> ListIdentitiesResponse listIdentitiesResponse pResponseStatus_ =-    ListIdentitiesResponse'-    { _lirsNextToken = Nothing-    , _lirsResponseStatus = pResponseStatus_-    , _lirsIdentities = mempty-    }+  ListIdentitiesResponse'+  { _lirsNextToken = Nothing+  , _lirsResponseStatus = pResponseStatus_+  , _lirsIdentities = mempty+  } + -- | The token used for pagination. lirsNextToken :: Lens' ListIdentitiesResponse (Maybe Text) lirsNextToken = lens _lirsNextToken (\ s a -> s{_lirsNextToken = a});@@ -172,4 +173,4 @@ lirsIdentities :: Lens' ListIdentitiesResponse [Text] lirsIdentities = lens _lirsIdentities (\ s a -> s{_lirsIdentities = a}) . _Coerce; -instance NFData ListIdentitiesResponse+instance NFData ListIdentitiesResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SES.ListIdentityPolicies--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -23,7 +23,7 @@ -- -- Sending authorization is a feature that enables an identity owner to authorize other senders to use its identities. For information about using sending authorization, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization.html Amazon SES Developer Guide> . ----- This action is throttled at one request per second.+-- You can execute this operation no more than once per second. -- module Network.AWS.SES.ListIdentityPolicies     (@@ -41,12 +41,12 @@     , liprsPolicyNames     ) 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+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 return a list of sending authorization policies that are attached to an identity. Sending authorization is an Amazon SES feature that enables you to authorize other senders to use your identities. For information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization.html Amazon SES Developer Guide> . --@@ -54,9 +54,10 @@ -- -- /See:/ 'listIdentityPolicies' smart constructor. newtype ListIdentityPolicies = ListIdentityPolicies'-    { _lipIdentity :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lipIdentity :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListIdentityPolicies' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -66,10 +67,9 @@     :: Text -- ^ 'lipIdentity'     -> ListIdentityPolicies listIdentityPolicies pIdentity_ =-    ListIdentityPolicies'-    { _lipIdentity = pIdentity_-    }+  ListIdentityPolicies' {_lipIdentity = pIdentity_} + -- | 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});@@ -86,9 +86,9 @@                      (x .@? "PolicyNames" .!@ mempty >>=                         parseXMLList "member")) -instance Hashable ListIdentityPolicies+instance Hashable ListIdentityPolicies where -instance NFData ListIdentityPolicies+instance NFData ListIdentityPolicies where  instance ToHeaders ListIdentityPolicies where         toHeaders = const mempty@@ -109,10 +109,11 @@ -- -- /See:/ 'listIdentityPoliciesResponse' smart constructor. data ListIdentityPoliciesResponse = ListIdentityPoliciesResponse'-    { _liprsResponseStatus :: !Int-    , _liprsPolicyNames    :: ![Text]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _liprsResponseStatus :: !Int+  , _liprsPolicyNames    :: ![Text]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListIdentityPoliciesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -124,11 +125,10 @@     :: Int -- ^ 'liprsResponseStatus'     -> ListIdentityPoliciesResponse listIdentityPoliciesResponse pResponseStatus_ =-    ListIdentityPoliciesResponse'-    { _liprsResponseStatus = pResponseStatus_-    , _liprsPolicyNames = mempty-    }+  ListIdentityPoliciesResponse'+  {_liprsResponseStatus = pResponseStatus_, _liprsPolicyNames = mempty} + -- | -- | The response status code. liprsResponseStatus :: Lens' ListIdentityPoliciesResponse Int liprsResponseStatus = lens _liprsResponseStatus (\ s a -> s{_liprsResponseStatus = a});@@ -137,4 +137,4 @@ liprsPolicyNames :: Lens' ListIdentityPoliciesResponse [Text] liprsPolicyNames = lens _liprsPolicyNames (\ s a -> s{_liprsPolicyNames = a}) . _Coerce; -instance NFData ListIdentityPoliciesResponse+instance NFData ListIdentityPoliciesResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SES.ListReceiptFilters--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -23,7 +23,7 @@ -- -- For information about managing IP address filters, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-managing-ip-filters.html Amazon SES Developer Guide> . ----- This action is throttled at one request per second.+-- You can execute this operation no more than once per second. -- module Network.AWS.SES.ListReceiptFilters     (@@ -39,12 +39,12 @@     , lrfrsResponseStatus     ) 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+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 list the IP address filters that exist under your AWS account. You use IP address filters when you receive email with Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-concepts.html Amazon SES Developer Guide> . --@@ -52,15 +52,17 @@ -- -- /See:/ 'listReceiptFilters' smart constructor. data ListReceiptFilters =-    ListReceiptFilters'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  ListReceiptFilters'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListReceiptFilters' with the minimum fields required to make a request. -- listReceiptFilters     :: ListReceiptFilters listReceiptFilters = ListReceiptFilters' + instance AWSRequest ListReceiptFilters where         type Rs ListReceiptFilters =              ListReceiptFiltersResponse@@ -73,9 +75,9 @@                       may (parseXMLList "member"))                      <*> (pure (fromEnum s))) -instance Hashable ListReceiptFilters+instance Hashable ListReceiptFilters where -instance NFData ListReceiptFilters+instance NFData ListReceiptFilters where  instance ToHeaders ListReceiptFilters where         toHeaders = const mempty@@ -96,10 +98,11 @@ -- -- /See:/ 'listReceiptFiltersResponse' smart constructor. data ListReceiptFiltersResponse = ListReceiptFiltersResponse'-    { _lrfrsFilters        :: !(Maybe [ReceiptFilter])-    , _lrfrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lrfrsFilters        :: !(Maybe [ReceiptFilter])+  , _lrfrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListReceiptFiltersResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -111,11 +114,10 @@     :: Int -- ^ 'lrfrsResponseStatus'     -> ListReceiptFiltersResponse listReceiptFiltersResponse pResponseStatus_ =-    ListReceiptFiltersResponse'-    { _lrfrsFilters = Nothing-    , _lrfrsResponseStatus = pResponseStatus_-    }+  ListReceiptFiltersResponse'+  {_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;@@ -124,4 +126,4 @@ lrfrsResponseStatus :: Lens' ListReceiptFiltersResponse Int lrfrsResponseStatus = lens _lrfrsResponseStatus (\ s a -> s{_lrfrsResponseStatus = a}); -instance NFData ListReceiptFiltersResponse+instance NFData ListReceiptFiltersResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SES.ListReceiptRuleSets--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -23,7 +23,7 @@ -- -- For information about managing receipt rule sets, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-managing-receipt-rule-sets.html Amazon SES Developer Guide> . ----- This action is throttled at one request per second.+-- You can execute this operation no more than once per second. -- module Network.AWS.SES.ListReceiptRuleSets     (@@ -42,12 +42,12 @@     , lrrsrsResponseStatus     ) 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+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 list the receipt rule sets that exist under your AWS account. You use receipt rule sets to receive email with Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-concepts.html Amazon SES Developer Guide> . --@@ -55,9 +55,10 @@ -- -- /See:/ 'listReceiptRuleSets' smart constructor. newtype ListReceiptRuleSets = ListReceiptRuleSets'-    { _lrrsNextToken :: Maybe Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lrrsNextToken :: Maybe Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListReceiptRuleSets' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,11 +66,9 @@ -- * 'lrrsNextToken' - A token returned from a previous call to @ListReceiptRuleSets@ to indicate the position in the receipt rule set list. listReceiptRuleSets     :: ListReceiptRuleSets-listReceiptRuleSets =-    ListReceiptRuleSets'-    { _lrrsNextToken = Nothing-    }+listReceiptRuleSets = ListReceiptRuleSets' {_lrrsNextToken = Nothing} + -- | 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});@@ -87,9 +86,9 @@                      <*> (x .@? "NextToken")                      <*> (pure (fromEnum s))) -instance Hashable ListReceiptRuleSets+instance Hashable ListReceiptRuleSets where -instance NFData ListReceiptRuleSets+instance NFData ListReceiptRuleSets where  instance ToHeaders ListReceiptRuleSets where         toHeaders = const mempty@@ -110,11 +109,12 @@ -- -- /See:/ 'listReceiptRuleSetsResponse' smart constructor. data ListReceiptRuleSetsResponse = ListReceiptRuleSetsResponse'-    { _lrrsrsRuleSets       :: !(Maybe [ReceiptRuleSetMetadata])-    , _lrrsrsNextToken      :: !(Maybe Text)-    , _lrrsrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lrrsrsRuleSets       :: !(Maybe [ReceiptRuleSetMetadata])+  , _lrrsrsNextToken      :: !(Maybe Text)+  , _lrrsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListReceiptRuleSetsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -128,12 +128,13 @@     :: Int -- ^ 'lrrsrsResponseStatus'     -> ListReceiptRuleSetsResponse listReceiptRuleSetsResponse pResponseStatus_ =-    ListReceiptRuleSetsResponse'-    { _lrrsrsRuleSets = Nothing-    , _lrrsrsNextToken = Nothing-    , _lrrsrsResponseStatus = pResponseStatus_-    }+  ListReceiptRuleSetsResponse'+  { _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;@@ -146,4 +147,4 @@ lrrsrsResponseStatus :: Lens' ListReceiptRuleSetsResponse Int lrrsrsResponseStatus = lens _lrrsrsResponseStatus (\ s a -> s{_lrrsrsResponseStatus = a}); -instance NFData ListReceiptRuleSetsResponse+instance NFData ListReceiptRuleSetsResponse where

@@ -0,0 +1,148 @@+{-# 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.ListTemplates+-- Copyright   : (c) 2013-2017 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 email templates present in your Amazon SES account.+--+--+-- You can execute this operation no more than once per second.+--+module Network.AWS.SES.ListTemplates+    (+    -- * Creating a Request+      listTemplates+    , ListTemplates+    -- * Request Lenses+    , ltNextToken+    , ltMaxItems++    -- * Destructuring the Response+    , listTemplatesResponse+    , ListTemplatesResponse+    -- * Response Lenses+    , ltrsTemplatesMetadata+    , ltrsNextToken+    , ltrsResponseStatus+    ) 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:/ 'listTemplates' smart constructor.+data ListTemplates = ListTemplates'+  { _ltNextToken :: !(Maybe Text)+  , _ltMaxItems  :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListTemplates' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ltNextToken' - The token to use for pagination.+--+-- * '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+    :: ListTemplates+listTemplates = ListTemplates' {_ltNextToken = Nothing, _ltMaxItems = Nothing}+++-- | The token to use for pagination.+ltNextToken :: Lens' ListTemplates (Maybe Text)+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});++instance AWSRequest ListTemplates where+        type Rs ListTemplates = ListTemplatesResponse+        request = postQuery ses+        response+          = receiveXMLWrapper "ListTemplatesResult"+              (\ s h x ->+                 ListTemplatesResponse' <$>+                   (x .@? "TemplatesMetadata" .!@ mempty >>=+                      may (parseXMLList "member"))+                     <*> (x .@? "NextToken")+                     <*> (pure (fromEnum s)))++instance Hashable ListTemplates where++instance NFData ListTemplates where++instance ToHeaders ListTemplates where+        toHeaders = const mempty++instance ToPath ListTemplates where+        toPath = const "/"++instance ToQuery ListTemplates where+        toQuery ListTemplates'{..}+          = mconcat+              ["Action" =: ("ListTemplates" :: ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "NextToken" =: _ltNextToken,+               "MaxItems" =: _ltMaxItems]++-- | /See:/ 'listTemplatesResponse' smart constructor.+data ListTemplatesResponse = ListTemplatesResponse'+  { _ltrsTemplatesMetadata :: !(Maybe [TemplateMetadata])+  , _ltrsNextToken         :: !(Maybe Text)+  , _ltrsResponseStatus    :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListTemplatesResponse' with the minimum fields required to make a request.+--+-- 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.+--+-- * 'ltrsNextToken' - The token to use for pagination.+--+-- * 'ltrsResponseStatus' - -- | The response status code.+listTemplatesResponse+    :: Int -- ^ 'ltrsResponseStatus'+    -> ListTemplatesResponse+listTemplatesResponse pResponseStatus_ =+  ListTemplatesResponse'+  { _ltrsTemplatesMetadata = Nothing+  , _ltrsNextToken = Nothing+  , _ltrsResponseStatus = pResponseStatus_+  }+++-- | An array the contains the name of 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;++-- | The token to use for pagination.+ltrsNextToken :: Lens' ListTemplatesResponse (Maybe Text)+ltrsNextToken = lens _ltrsNextToken (\ s a -> s{_ltrsNextToken = a});++-- | -- | The response status code.+ltrsResponseStatus :: Lens' ListTemplatesResponse Int+ltrsResponseStatus = lens _ltrsResponseStatus (\ s a -> s{_ltrsResponseStatus = a});++instance NFData ListTemplatesResponse where

@@ -12,19 +12,15 @@  -- | -- Module      : Network.AWS.SES.ListVerifiedEmailAddresses--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns a list containing all of the email addresses that have been verified.+-- Deprecated. Use the @ListIdentities@ operation to list the email addresses and domains associated with your account. -- ----- /Important:/ The ListVerifiedEmailAddresses action is deprecated as of the May 15, 2012 release of Domain Verification. The ListIdentities action is now preferred.------ This action is throttled at one request per second.--- module Network.AWS.SES.ListVerifiedEmailAddresses     (     -- * Creating a Request@@ -39,24 +35,26 @@     , lvearsResponseStatus     ) 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+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:/ 'listVerifiedEmailAddresses' smart constructor. data ListVerifiedEmailAddresses =-    ListVerifiedEmailAddresses'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  ListVerifiedEmailAddresses'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListVerifiedEmailAddresses' with the minimum fields required to make a request. -- listVerifiedEmailAddresses     :: ListVerifiedEmailAddresses listVerifiedEmailAddresses = ListVerifiedEmailAddresses' + instance AWSRequest ListVerifiedEmailAddresses where         type Rs ListVerifiedEmailAddresses =              ListVerifiedEmailAddressesResponse@@ -70,9 +68,9 @@                       may (parseXMLList "member"))                      <*> (pure (fromEnum s))) -instance Hashable ListVerifiedEmailAddresses+instance Hashable ListVerifiedEmailAddresses where -instance NFData ListVerifiedEmailAddresses+instance NFData ListVerifiedEmailAddresses where  instance ToHeaders ListVerifiedEmailAddresses where         toHeaders = const mempty@@ -94,10 +92,11 @@ -- -- /See:/ 'listVerifiedEmailAddressesResponse' smart constructor. data ListVerifiedEmailAddressesResponse = ListVerifiedEmailAddressesResponse'-    { _lvearsVerifiedEmailAddresses :: !(Maybe [Text])-    , _lvearsResponseStatus         :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lvearsVerifiedEmailAddresses :: !(Maybe [Text])+  , _lvearsResponseStatus         :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListVerifiedEmailAddressesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -109,11 +108,12 @@     :: Int -- ^ 'lvearsResponseStatus'     -> ListVerifiedEmailAddressesResponse listVerifiedEmailAddressesResponse pResponseStatus_ =-    ListVerifiedEmailAddressesResponse'-    { _lvearsVerifiedEmailAddresses = Nothing-    , _lvearsResponseStatus = pResponseStatus_-    }+  ListVerifiedEmailAddressesResponse'+  { _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;@@ -123,3 +123,4 @@ lvearsResponseStatus = lens _lvearsResponseStatus (\ s a -> s{_lvearsResponseStatus = a});  instance NFData ListVerifiedEmailAddressesResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SES.PutIdentityPolicy--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -23,7 +23,7 @@ -- -- Sending authorization is a feature that enables an identity owner to authorize other senders to use its identities. For information about using sending authorization, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization.html Amazon SES Developer Guide> . ----- This action is throttled at one request per second.+-- You can execute this operation no more than once per second. -- module Network.AWS.SES.PutIdentityPolicy     (@@ -42,12 +42,12 @@     , piprsResponseStatus     ) 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+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 add or update a sending authorization policy for an identity. Sending authorization is an Amazon SES feature that enables you to authorize other senders to use your identities. For information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization.html Amazon SES Developer Guide> . --@@ -55,16 +55,17 @@ -- -- /See:/ 'putIdentityPolicy' smart constructor. data PutIdentityPolicy = PutIdentityPolicy'-    { _pipIdentity   :: !Text-    , _pipPolicyName :: !Text-    , _pipPolicy     :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _pipIdentity   :: !Text+  , _pipPolicyName :: !Text+  , _pipPolicy     :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PutIdentityPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'pipIdentity' - The identity to which the policy will apply. 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' - 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. -- -- * 'pipPolicyName' - The name of the policy. The policy name cannot exceed 64 characters and can only include alphanumeric characters, dashes, and underscores. --@@ -75,13 +76,14 @@     -> Text -- ^ 'pipPolicy'     -> PutIdentityPolicy putIdentityPolicy pIdentity_ pPolicyName_ pPolicy_ =-    PutIdentityPolicy'-    { _pipIdentity = pIdentity_-    , _pipPolicyName = pPolicyName_-    , _pipPolicy = pPolicy_-    }+  PutIdentityPolicy'+  { _pipIdentity = pIdentity_+  , _pipPolicyName = pPolicyName_+  , _pipPolicy = pPolicy_+  } --- | The identity to which the policy will apply. 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.++-- | 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}); @@ -101,9 +103,9 @@               (\ s h x ->                  PutIdentityPolicyResponse' <$> (pure (fromEnum s))) -instance Hashable PutIdentityPolicy+instance Hashable PutIdentityPolicy where -instance NFData PutIdentityPolicy+instance NFData PutIdentityPolicy where  instance ToHeaders PutIdentityPolicy where         toHeaders = const mempty@@ -126,9 +128,10 @@ -- -- /See:/ 'putIdentityPolicyResponse' smart constructor. newtype PutIdentityPolicyResponse = PutIdentityPolicyResponse'-    { _piprsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _piprsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PutIdentityPolicyResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -138,12 +141,11 @@     :: Int -- ^ 'piprsResponseStatus'     -> PutIdentityPolicyResponse putIdentityPolicyResponse pResponseStatus_ =-    PutIdentityPolicyResponse'-    { _piprsResponseStatus = pResponseStatus_-    }+  PutIdentityPolicyResponse' {_piprsResponseStatus = pResponseStatus_} + -- | -- | The response status code. piprsResponseStatus :: Lens' PutIdentityPolicyResponse Int piprsResponseStatus = lens _piprsResponseStatus (\ s a -> s{_piprsResponseStatus = a}); -instance NFData PutIdentityPolicyResponse+instance NFData PutIdentityPolicyResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SES.ReorderReceiptRuleSet--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -23,7 +23,7 @@ -- -- For information about managing receipt rule sets, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-managing-receipt-rule-sets.html Amazon SES Developer Guide> . ----- This action is throttled at one request per second.+-- You can execute this operation no more than once per second. -- module Network.AWS.SES.ReorderReceiptRuleSet     (@@ -41,12 +41,12 @@     , rrrsrsResponseStatus     ) 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+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 reorder the receipt rules within a receipt rule set. You use receipt rule sets to receive email with Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-concepts.html Amazon SES Developer Guide> . --@@ -54,10 +54,11 @@ -- -- /See:/ 'reorderReceiptRuleSet' smart constructor. data ReorderReceiptRuleSet = ReorderReceiptRuleSet'-    { _rrrsRuleSetName :: !Text-    , _rrrsRuleNames   :: ![Text]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rrrsRuleSetName :: !Text+  , _rrrsRuleNames   :: ![Text]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ReorderReceiptRuleSet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -69,11 +70,10 @@     :: Text -- ^ 'rrrsRuleSetName'     -> ReorderReceiptRuleSet reorderReceiptRuleSet pRuleSetName_ =-    ReorderReceiptRuleSet'-    { _rrrsRuleSetName = pRuleSetName_-    , _rrrsRuleNames = mempty-    }+  ReorderReceiptRuleSet'+  {_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});@@ -92,9 +92,9 @@                  ReorderReceiptRuleSetResponse' <$>                    (pure (fromEnum s))) -instance Hashable ReorderReceiptRuleSet+instance Hashable ReorderReceiptRuleSet where -instance NFData ReorderReceiptRuleSet+instance NFData ReorderReceiptRuleSet where  instance ToHeaders ReorderReceiptRuleSet where         toHeaders = const mempty@@ -116,9 +116,10 @@ -- -- /See:/ 'reorderReceiptRuleSetResponse' smart constructor. newtype ReorderReceiptRuleSetResponse = ReorderReceiptRuleSetResponse'-    { _rrrsrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rrrsrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ReorderReceiptRuleSetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -128,12 +129,11 @@     :: Int -- ^ 'rrrsrsResponseStatus'     -> ReorderReceiptRuleSetResponse reorderReceiptRuleSetResponse pResponseStatus_ =-    ReorderReceiptRuleSetResponse'-    { _rrrsrsResponseStatus = pResponseStatus_-    }+  ReorderReceiptRuleSetResponse' {_rrrsrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. rrrsrsResponseStatus :: Lens' ReorderReceiptRuleSetResponse Int rrrsrsResponseStatus = lens _rrrsrsResponseStatus (\ s a -> s{_rrrsrsResponseStatus = a}); -instance NFData ReorderReceiptRuleSetResponse+instance NFData ReorderReceiptRuleSetResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SES.SendBounce--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -23,7 +23,7 @@ -- -- For information about receiving email through Amazon SES, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email.html Amazon SES Developer Guide> . ----- This action is throttled at one request per second.+-- You can execute this operation no more than once per second. -- module Network.AWS.SES.SendBounce     (@@ -46,12 +46,12 @@     , sbrsResponseStatus     ) 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+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 bounce message to the sender of an email you received through Amazon SES. --@@ -59,14 +59,15 @@ -- -- /See:/ 'sendBounce' smart constructor. data SendBounce = SendBounce'-    { _sbMessageDsn               :: !(Maybe MessageDsn)-    , _sbExplanation              :: !(Maybe Text)-    , _sbBounceSenderARN          :: !(Maybe Text)-    , _sbOriginalMessageId        :: !Text-    , _sbBounceSender             :: !Text-    , _sbBouncedRecipientInfoList :: ![BouncedRecipientInfo]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _sbMessageDsn               :: !(Maybe MessageDsn)+  , _sbExplanation              :: !(Maybe Text)+  , _sbBounceSenderARN          :: !(Maybe Text)+  , _sbOriginalMessageId        :: !Text+  , _sbBounceSender             :: !Text+  , _sbBouncedRecipientInfoList :: ![BouncedRecipientInfo]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SendBounce' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -87,15 +88,16 @@     -> Text -- ^ 'sbBounceSender'     -> SendBounce sendBounce pOriginalMessageId_ pBounceSender_ =-    SendBounce'-    { _sbMessageDsn = Nothing-    , _sbExplanation = Nothing-    , _sbBounceSenderARN = Nothing-    , _sbOriginalMessageId = pOriginalMessageId_-    , _sbBounceSender = pBounceSender_-    , _sbBouncedRecipientInfoList = mempty-    }+  SendBounce'+  { _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});@@ -129,9 +131,9 @@                  SendBounceResponse' <$>                    (x .@? "MessageId") <*> (pure (fromEnum s))) -instance Hashable SendBounce+instance Hashable SendBounce where -instance NFData SendBounce+instance NFData SendBounce where  instance ToHeaders SendBounce where         toHeaders = const mempty@@ -158,10 +160,11 @@ -- -- /See:/ 'sendBounceResponse' smart constructor. data SendBounceResponse = SendBounceResponse'-    { _sbrsMessageId      :: !(Maybe Text)-    , _sbrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _sbrsMessageId      :: !(Maybe Text)+  , _sbrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SendBounceResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -173,11 +176,10 @@     :: Int -- ^ 'sbrsResponseStatus'     -> SendBounceResponse sendBounceResponse pResponseStatus_ =-    SendBounceResponse'-    { _sbrsMessageId = Nothing-    , _sbrsResponseStatus = pResponseStatus_-    }+  SendBounceResponse'+  {_sbrsMessageId = Nothing, _sbrsResponseStatus = pResponseStatus_} + -- | The message ID of the bounce message. sbrsMessageId :: Lens' SendBounceResponse (Maybe Text) sbrsMessageId = lens _sbrsMessageId (\ s a -> s{_sbrsMessageId = a});@@ -186,4 +188,4 @@ sbrsResponseStatus :: Lens' SendBounceResponse Int sbrsResponseStatus = lens _sbrsResponseStatus (\ s a -> s{_sbrsResponseStatus = a}); -instance NFData SendBounceResponse+instance NFData SendBounceResponse where

@@ -0,0 +1,253 @@+{-# 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.SendBulkTemplatedEmail+-- Copyright   : (c) 2013-2017 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)+--+-- Composes an email message to multiple destinations. The message body is created using an email template.+--+--+-- In order to send email using the @SendBulkTemplatedEmail@ operation, your call to the API must meet the following requirements:+--+--     * The call must refer to an existing email template. You can create email templates using the 'CreateTemplate' operation.+--+--     * The message must be sent from a verified email address or domain.+--+--     * If your account is still in the Amazon SES sandbox, you may only send to verified addresses or domains, or to email addresses associated with the Amazon SES Mailbox Simulator. For more information, see <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/verify-addresses-and-domains.html Verifying Email Addresses and Domains> in the /Amazon SES Developer Guide./+--+--     * The total size of the message, including attachments, must be less than 10 MB.+--+--     * Each @Destination@ parameter must include at least one recipient email address. The recipient address can be a To: address, a CC: address, or a BCC: address. If a recipient email address is invalid (that is, it is not in the format /UserName@[SubDomain.]Domain.TopLevelDomain/ ), the entire message will be rejected, even if the message contains other recipients that are valid.+--+--+--+module Network.AWS.SES.SendBulkTemplatedEmail+    (+    -- * Creating a Request+      sendBulkTemplatedEmail+    , SendBulkTemplatedEmail+    -- * Request Lenses+    , sbteReturnPath+    , sbteConfigurationSetName+    , sbteSourceARN+    , sbteDefaultTags+    , sbteReturnPathARN+    , sbteTemplateARN+    , sbteDefaultTemplateData+    , sbteReplyToAddresses+    , sbteSource+    , sbteTemplate+    , sbteDestinations++    -- * Destructuring the Response+    , sendBulkTemplatedEmailResponse+    , SendBulkTemplatedEmailResponse+    -- * Response Lenses+    , sbtersResponseStatus+    , sbtersStatus+    ) 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 templated email to multiple destinations using Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/send-personalized-email-api.html Amazon SES Developer Guide> .+--+--+--+-- /See:/ 'sendBulkTemplatedEmail' smart constructor.+data SendBulkTemplatedEmail = SendBulkTemplatedEmail'+  { _sbteReturnPath           :: !(Maybe Text)+  , _sbteConfigurationSetName :: !(Maybe Text)+  , _sbteSourceARN            :: !(Maybe Text)+  , _sbteDefaultTags          :: !(Maybe [MessageTag])+  , _sbteReturnPathARN        :: !(Maybe Text)+  , _sbteTemplateARN          :: !(Maybe Text)+  , _sbteDefaultTemplateData  :: !(Maybe Text)+  , _sbteReplyToAddresses     :: !(Maybe [Text])+  , _sbteSource               :: !Text+  , _sbteTemplate             :: !Text+  , _sbteDestinations         :: ![BulkEmailDestination]+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'SendBulkTemplatedEmail' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sbteReturnPath' - 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.+--+-- * 'sbteConfigurationSetName' - The name of the configuration set to use when you send an email using @SendBulkTemplatedEmail@ .+--+-- * 'sbteSourceARN' - 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> .+--+-- * 'sbteDefaultTags' - A list of tags, in the form of name/value pairs, to apply to an email that you send to a destination using @SendBulkTemplatedEmail@ .+--+-- * 'sbteReturnPathARN' - 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> .+--+-- * 'sbteTemplateARN' - The ARN of the template to use when sending this email.+--+-- * 'sbteDefaultTemplateData' - 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.+--+-- * '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> .+--+-- * 'sbteTemplate' - The template to use when sending this email.+--+-- * 'sbteDestinations' - 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.+sendBulkTemplatedEmail+    :: Text -- ^ 'sbteSource'+    -> Text -- ^ 'sbteTemplate'+    -> 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+  }+++-- | 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});++-- | 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});++-- | 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});++-- | 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;++-- | 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});++-- | The ARN of the template to use when sending this email.+sbteTemplateARN :: Lens' SendBulkTemplatedEmail (Maybe Text)+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});++-- | 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;++-- | 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 :: Lens' SendBulkTemplatedEmail Text+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});++-- | 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;++instance AWSRequest SendBulkTemplatedEmail where+        type Rs SendBulkTemplatedEmail =+             SendBulkTemplatedEmailResponse+        request = postQuery ses+        response+          = receiveXMLWrapper "SendBulkTemplatedEmailResult"+              (\ s h x ->+                 SendBulkTemplatedEmailResponse' <$>+                   (pure (fromEnum s)) <*>+                     (x .@? "Status" .!@ mempty >>=+                        parseXMLList "member"))++instance Hashable SendBulkTemplatedEmail where++instance NFData SendBulkTemplatedEmail where++instance ToHeaders SendBulkTemplatedEmail where+        toHeaders = const mempty++instance ToPath SendBulkTemplatedEmail where+        toPath = const "/"++instance ToQuery SendBulkTemplatedEmail where+        toQuery SendBulkTemplatedEmail'{..}+          = mconcat+              ["Action" =:+                 ("SendBulkTemplatedEmail" :: ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "ReturnPath" =: _sbteReturnPath,+               "ConfigurationSetName" =: _sbteConfigurationSetName,+               "SourceArn" =: _sbteSourceARN,+               "DefaultTags" =:+                 toQuery (toQueryList "member" <$> _sbteDefaultTags),+               "ReturnPathArn" =: _sbteReturnPathARN,+               "TemplateArn" =: _sbteTemplateARN,+               "DefaultTemplateData" =: _sbteDefaultTemplateData,+               "ReplyToAddresses" =:+                 toQuery+                   (toQueryList "member" <$> _sbteReplyToAddresses),+               "Source" =: _sbteSource, "Template" =: _sbteTemplate,+               "Destinations" =:+                 toQueryList "member" _sbteDestinations]++-- | /See:/ 'sendBulkTemplatedEmailResponse' smart constructor.+data SendBulkTemplatedEmailResponse = SendBulkTemplatedEmailResponse'+  { _sbtersResponseStatus :: !Int+  , _sbtersStatus         :: ![BulkEmailDestinationStatus]+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'SendBulkTemplatedEmailResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sbtersResponseStatus' - -- | The response status code.+--+-- * 'sbtersStatus' - The unique message identifier returned from the @SendBulkTemplatedEmail@ action.+sendBulkTemplatedEmailResponse+    :: Int -- ^ 'sbtersResponseStatus'+    -> SendBulkTemplatedEmailResponse+sendBulkTemplatedEmailResponse pResponseStatus_ =+  SendBulkTemplatedEmailResponse'+  {_sbtersResponseStatus = pResponseStatus_, _sbtersStatus = mempty}+++-- | -- | The response status code.+sbtersResponseStatus :: Lens' SendBulkTemplatedEmailResponse Int+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;++instance NFData SendBulkTemplatedEmailResponse where

@@ -12,27 +12,29 @@  -- | -- Module      : Network.AWS.SES.SendEmail--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Composes an email message based on input data, and then immediately queues the message for sending.+-- Composes an email message and immediately queues it for sending. In order to send email using the @SendEmail@ operation, your message must meet the following requirements: -- ----- There are several important points to know about @SendEmail@ :+--     * The message must be sent from a verified email address or domain. If you attempt to send email using a non-verified address or domain, the operation will result in an "Email address not verified" error. -----     * You can only send email from verified email addresses and domains; otherwise, you will get an "Email address not verified" error. If your account is still in the Amazon SES sandbox, you must also verify every recipient email address except for the recipients provided by the Amazon SES mailbox simulator. For more information, go to the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/verify-addresses-and-domains.html Amazon SES Developer Guide> .+--     * If your account is still in the Amazon SES sandbox, you may only send to verified addresses or domains, or to email addresses associated with the Amazon SES Mailbox Simulator. For more information, see <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/verify-addresses-and-domains.html Verifying Email Addresses and Domains> in the /Amazon SES Developer Guide./ -----     * The total size of the message cannot exceed 10 MB. This includes any attachments that are part of the message.+--     * The total size of the message, including attachments, must be smaller than 10 MB. -----     * Amazon SES has a limit on the total number of recipients per message. The combined number of To:, CC: and BCC: email addresses cannot exceed 50. If you need to send an email message to a larger audience, you can divide your recipient list into groups of 50 or fewer, and then call Amazon SES repeatedly to send the message to each group.+--     * The message must include at least one recipient email address. The recipient address can be a To: address, a CC: address, or a BCC: address. If a recipient email address is invalid (that is, it is not in the format /UserName@[SubDomain.]Domain.TopLevelDomain/ ), the entire message will be rejected, even if the message contains other recipients that are valid. -----     * For every message that you send, the total number of recipients (To:, CC: and BCC:) is counted against your sending quota - the maximum number of emails you can send in a 24-hour period. For information about your sending quota, go to the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/manage-sending-limits.html Amazon SES Developer Guide> .+--     * The message may not include more than 50 recipients, across the To:, CC: and BCC: fields. If you need to send an email message to a larger audience, you can divide your recipient list into groups of 50 or fewer, and then call the @SendEmail@ operation several times to send the message to each group. -- -- --+-- /Important:/ For every message that you send, the total number of recipients (including each recipient in the To:, CC: and BCC: fields) is counted against the maximum number of emails you can send in a 24-hour period (your /sending quota/ ). For more information about sending quotas in Amazon SES, see <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/manage-sending-limits.html Managing Your Amazon SES Sending Limits> in the /Amazon SES Developer Guide./+-- module Network.AWS.SES.SendEmail     (     -- * Creating a Request@@ -57,12 +59,12 @@     , sersMessageId     ) 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+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 single formatted email using Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/send-email-formatted.html Amazon SES Developer Guide> . --@@ -70,22 +72,23 @@ -- -- /See:/ 'sendEmail' smart constructor. data SendEmail = SendEmail'-    { _seReturnPath           :: !(Maybe Text)-    , _seConfigurationSetName :: !(Maybe Text)-    , _seSourceARN            :: !(Maybe Text)-    , _seReturnPathARN        :: !(Maybe Text)-    , _seTags                 :: !(Maybe [MessageTag])-    , _seReplyToAddresses     :: !(Maybe [Text])-    , _seSource               :: !Text-    , _seDestination          :: !Destination-    , _seMessage              :: !Message-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _seReturnPath           :: !(Maybe Text)+  , _seConfigurationSetName :: !(Maybe Text)+  , _seSourceARN            :: !(Maybe Text)+  , _seReturnPathARN        :: !(Maybe Text)+  , _seTags                 :: !(Maybe [MessageTag])+  , _seReplyToAddresses     :: !(Maybe [Text])+  , _seSource               :: !Text+  , _seDestination          :: !Destination+  , _seMessage              :: !Message+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SendEmail' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'seReturnPath' - The email address to which bounces and complaints are to be forwarded 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' - 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. -- -- * 'seConfigurationSetName' - The name of the configuration set to use when you send an email using @SendEmail@ . --@@ -97,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 <http://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> . 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> . -- -- * 'seDestination' - The destination for this email, composed of To:, CC:, and BCC: fields. --@@ -108,19 +111,20 @@     -> Message -- ^ 'seMessage'     -> SendEmail sendEmail pSource_ pDestination_ pMessage_ =-    SendEmail'-    { _seReturnPath = Nothing-    , _seConfigurationSetName = Nothing-    , _seSourceARN = Nothing-    , _seReturnPathARN = Nothing-    , _seTags = Nothing-    , _seReplyToAddresses = Nothing-    , _seSource = pSource_-    , _seDestination = pDestination_-    , _seMessage = pMessage_-    }+  SendEmail'+  { _seReturnPath = Nothing+  , _seConfigurationSetName = Nothing+  , _seSourceARN = Nothing+  , _seReturnPathARN = Nothing+  , _seTags = Nothing+  , _seReplyToAddresses = Nothing+  , _seSource = pSource_+  , _seDestination = pDestination_+  , _seMessage = pMessage_+  } --- | The email address to which bounces and complaints are to be forwarded 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.++-- | 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}); @@ -144,7 +148,7 @@ seReplyToAddresses :: Lens' SendEmail [Text] 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 <http://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> . 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 :: Lens' SendEmail Text seSource = lens _seSource (\ s a -> s{_seSource = a}); @@ -165,9 +169,9 @@                  SendEmailResponse' <$>                    (pure (fromEnum s)) <*> (x .@ "MessageId")) -instance Hashable SendEmail+instance Hashable SendEmail where -instance NFData SendEmail+instance NFData SendEmail where  instance ToHeaders SendEmail where         toHeaders = const mempty@@ -198,10 +202,11 @@ -- -- /See:/ 'sendEmailResponse' smart constructor. data SendEmailResponse = SendEmailResponse'-    { _sersResponseStatus :: !Int-    , _sersMessageId      :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _sersResponseStatus :: !Int+  , _sersMessageId      :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SendEmailResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -214,11 +219,10 @@     -> Text -- ^ 'sersMessageId'     -> SendEmailResponse sendEmailResponse pResponseStatus_ pMessageId_ =-    SendEmailResponse'-    { _sersResponseStatus = pResponseStatus_-    , _sersMessageId = pMessageId_-    }+  SendEmailResponse'+  {_sersResponseStatus = pResponseStatus_, _sersMessageId = pMessageId_} + -- | -- | The response status code. sersResponseStatus :: Lens' SendEmailResponse Int sersResponseStatus = lens _sersResponseStatus (\ s a -> s{_sersResponseStatus = a});@@ -227,4 +231,4 @@ sersMessageId :: Lens' SendEmailResponse Text sersMessageId = lens _sersMessageId (\ s a -> s{_sersMessageId = a}); -instance NFData SendEmailResponse+instance NFData SendEmailResponse where

@@ -12,31 +12,37 @@  -- | -- Module      : Network.AWS.SES.SendRawEmail--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Sends an email message, with header and content specified by the client. The @SendRawEmail@ action is useful for sending multipart MIME emails. The raw text of the message must comply with Internet email standards; otherwise, the message cannot be sent.+-- Composes an email message and immediately queues it for sending. When calling this operation, you may specify the message headers as well as the content. The @SendRawEmail@ operation is particularly useful for sending multipart MIME emails (such as those that contain both a plain-text and an HTML version). -- ----- There are several important points to know about @SendRawEmail@ :+-- In order to send email using the @SendRawEmail@ operation, your message must meet the following requirements: -----     * You can only send email from verified email addresses and domains; otherwise, you will get an "Email address not verified" error. If your account is still in the Amazon SES sandbox, you must also verify every recipient email address except for the recipients provided by the Amazon SES mailbox simulator. For more information, go to the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/verify-addresses-and-domains.html Amazon SES Developer Guide> .+--     * The message must be sent from a verified email address or domain. If you attempt to send email using a non-verified address or domain, the operation will result in an "Email address not verified" error. -----     * The total size of the message cannot exceed 10 MB. This includes any attachments that are part of the message.+--     * If your account is still in the Amazon SES sandbox, you may only send to verified addresses or domains, or to email addresses associated with the Amazon SES Mailbox Simulator. For more information, see <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/verify-addresses-and-domains.html Verifying Email Addresses and Domains> in the /Amazon SES Developer Guide./ -----     * Amazon SES has a limit on the total number of recipients per message. The combined number of To:, CC: and BCC: email addresses cannot exceed 50. If you need to send an email message to a larger audience, you can divide your recipient list into groups of 50 or fewer, and then call Amazon SES repeatedly to send the message to each group.+--     * The total size of the message, including attachments, must be smaller than 10 MB. -----     * The To:, CC:, and BCC: headers in the raw message can contain a group list. Note that each recipient in a group list counts towards the 50-recipient limit.+--     * The message must include at least one recipient email address. The recipient address can be a To: address, a CC: address, or a BCC: address. If a recipient email address is invalid (that is, it is not in the format /UserName@[SubDomain.]Domain.TopLevelDomain/ ), the entire message will be rejected, even if the message contains other recipients that are valid. -----     * Amazon SES overrides any Message-ID and Date headers you provide.+--     * The message may not include more than 50 recipients, across the To:, CC: and BCC: fields. If you need to send an email message to a larger audience, you can divide your recipient list into groups of 50 or fewer, and then call the @SendRawEmail@ operation several times to send the message to each group. -----     * For every message that you send, the total number of recipients (To:, CC: and BCC:) is counted against your sending quota - the maximum number of emails you can send in a 24-hour period. For information about your sending quota, go to the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/manage-sending-limits.html Amazon SES Developer Guide> . -----     * If you are using sending authorization to send on behalf of another user, @SendRawEmail@ enables you to specify the cross-account identity for the email's "Source," "From," and "Return-Path" parameters in one of two ways: you can pass optional parameters @SourceArn@ , @FromArn@ , and/or @ReturnPathArn@ to the API, or you can include the following X-headers in the header of your raw email: --+-- /Important:/ For every message that you send, the total number of recipients (including each recipient in the To:, CC: and BCC: fields) is counted against the maximum number of emails you can send in a 24-hour period (your /sending quota/ ). For more information about sending quotas in Amazon SES, see <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/manage-sending-limits.html Managing Your Amazon SES Sending Limits> in the /Amazon SES Developer Guide./+--+-- Additionally, keep the following considerations in mind when using the @SendRawEmail@ operation:+--+--     * Although you can customize the message headers when using the @SendRawEmail@ operation, Amazon SES will automatically apply its own @Message-ID@ and @Date@ headers; if you passed these headers when creating the message, they will be overwritten by the values that Amazon SES provides.+--+--     * If you are using sending authorization to send on behalf of another user, @SendRawEmail@ enables you to specify the cross-account identity for the email's Source, From, and Return-Path parameters in one of two ways: you can pass optional parameters @SourceArn@ , @FromArn@ , and/or @ReturnPathArn@ to the API, or you can include the following X-headers in the header of your raw email:+-- --     * @X-SES-SOURCE-ARN@ -- --     * @X-SES-FROM-ARN@@@ -45,9 +51,9 @@ -- -- ----- /Important:/ Do not include these X-headers in the DKIM signature, because they are removed by Amazon SES before sending the email.+-- /Important:/ Do not include these X-headers in the DKIM signature; Amazon SES will remove them before sending the email. ----- For the most common sending authorization use case, we recommend that you specify the @SourceIdentityArn@ and do not specify either the @FromIdentityArn@ or @ReturnPathIdentityArn@ . (The same note applies to the corresponding X-headers.) If you only specify the @SourceIdentityArn@ , Amazon SES will simply set the "From" address and the "Return Path" address to the identity specified in @SourceIdentityArn@ . For more information about sending authorization, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization.html Amazon SES Developer Guide> .+-- For most common sending authorization scenarios, we recommend that you specify the @SourceIdentityArn@ parameter and not the @FromIdentityArn@ or @ReturnPathIdentityArn@ parameters. If you only specify the @SourceIdentityArn@ parameter, Amazon SES will set the From and Return Path addresses to the identity specified in @SourceIdentityArn@ . For more information about sending authorization, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/sending-authorization.html Using Sending Authorization with Amazon SES> in the /Amazon SES Developer Guide./ -- -- --@@ -74,12 +80,12 @@     , srersMessageId     ) 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+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 single raw email using Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/send-email-raw.html Amazon SES Developer Guide> . --@@ -87,16 +93,17 @@ -- -- /See:/ 'sendRawEmail' smart constructor. data SendRawEmail = SendRawEmail'-    { _sreConfigurationSetName :: !(Maybe Text)-    , _sreSourceARN            :: !(Maybe Text)-    , _sreDestinations         :: !(Maybe [Text])-    , _sreReturnPathARN        :: !(Maybe Text)-    , _sreSource               :: !(Maybe Text)-    , _sreFromARN              :: !(Maybe Text)-    , _sreTags                 :: !(Maybe [MessageTag])-    , _sreRawMessage           :: !RawMessage-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _sreConfigurationSetName :: !(Maybe Text)+  , _sreSourceARN            :: !(Maybe Text)+  , _sreDestinations         :: !(Maybe [Text])+  , _sreReturnPathARN        :: !(Maybe Text)+  , _sreSource               :: !(Maybe Text)+  , _sreFromARN              :: !(Maybe Text)+  , _sreTags                 :: !(Maybe [MessageTag])+  , _sreRawMessage           :: !RawMessage+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SendRawEmail' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -109,28 +116,29 @@ -- -- * '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 <http://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.) 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> . -- -- * '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. -- -- * 'sreTags' - 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. ----- * 'sreRawMessage' - 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.+-- * 'sreRawMessage' - 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. sendRawEmail     :: RawMessage -- ^ 'sreRawMessage'     -> SendRawEmail sendRawEmail pRawMessage_ =-    SendRawEmail'-    { _sreConfigurationSetName = Nothing-    , _sreSourceARN = Nothing-    , _sreDestinations = Nothing-    , _sreReturnPathARN = Nothing-    , _sreSource = Nothing-    , _sreFromARN = Nothing-    , _sreTags = Nothing-    , _sreRawMessage = pRawMessage_-    }+  SendRawEmail'+  { _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});@@ -147,7 +155,7 @@ sreReturnPathARN :: Lens' SendRawEmail (Maybe Text) 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 <http://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.) 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 :: Lens' SendRawEmail (Maybe Text) sreSource = lens _sreSource (\ s a -> s{_sreSource = a}); @@ -159,7 +167,7 @@ sreTags :: Lens' SendRawEmail [MessageTag] 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.+-- | 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}); @@ -172,9 +180,9 @@                  SendRawEmailResponse' <$>                    (pure (fromEnum s)) <*> (x .@ "MessageId")) -instance Hashable SendRawEmail+instance Hashable SendRawEmail where -instance NFData SendRawEmail+instance NFData SendRawEmail where  instance ToHeaders SendRawEmail where         toHeaders = const mempty@@ -203,10 +211,11 @@ -- -- /See:/ 'sendRawEmailResponse' smart constructor. data SendRawEmailResponse = SendRawEmailResponse'-    { _srersResponseStatus :: !Int-    , _srersMessageId      :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _srersResponseStatus :: !Int+  , _srersMessageId      :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SendRawEmailResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -219,11 +228,10 @@     -> Text -- ^ 'srersMessageId'     -> SendRawEmailResponse sendRawEmailResponse pResponseStatus_ pMessageId_ =-    SendRawEmailResponse'-    { _srersResponseStatus = pResponseStatus_-    , _srersMessageId = pMessageId_-    }+  SendRawEmailResponse'+  {_srersResponseStatus = pResponseStatus_, _srersMessageId = pMessageId_} + -- | -- | The response status code. srersResponseStatus :: Lens' SendRawEmailResponse Int srersResponseStatus = lens _srersResponseStatus (\ s a -> s{_srersResponseStatus = a});@@ -232,4 +240,4 @@ srersMessageId :: Lens' SendRawEmailResponse Text srersMessageId = lens _srersMessageId (\ s a -> s{_srersMessageId = a}); -instance NFData SendRawEmailResponse+instance NFData SendRawEmailResponse where

@@ -0,0 +1,255 @@+{-# 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.SendTemplatedEmail+-- Copyright   : (c) 2013-2017 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)+--+-- Composes an email message using an email template and immediately queues it for sending.+--+--+-- In order to send email using the @SendTemplatedEmail@ operation, your call to the API must meet the following requirements:+--+--     * The call must refer to an existing email template. You can create email templates using the 'CreateTemplate' operation.+--+--     * The message must be sent from a verified email address or domain.+--+--     * If your account is still in the Amazon SES sandbox, you may only send to verified addresses or domains, or to email addresses associated with the Amazon SES Mailbox Simulator. For more information, see <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/verify-addresses-and-domains.html Verifying Email Addresses and Domains> in the /Amazon SES Developer Guide./+--+--     * The total size of the message, including attachments, must be less than 10 MB.+--+--     * Calls to the @SendTemplatedEmail@ operation may only include one @Destination@ parameter. A destination is a set of recipients who will receive the same version of the email. The @Destination@ parameter can include up to 50 recipients, across the To:, CC: and BCC: fields.+--+--     * The @Destination@ parameter must include at least one recipient email address. The recipient address can be a To: address, a CC: address, or a BCC: address. If a recipient email address is invalid (that is, it is not in the format /UserName@[SubDomain.]Domain.TopLevelDomain/ ), the entire message will be rejected, even if the message contains other recipients that are valid.+--+--+--+module Network.AWS.SES.SendTemplatedEmail+    (+    -- * Creating a Request+      sendTemplatedEmail+    , SendTemplatedEmail+    -- * Request Lenses+    , steReturnPath+    , steConfigurationSetName+    , steSourceARN+    , steReturnPathARN+    , steTemplateARN+    , steTags+    , steReplyToAddresses+    , steSource+    , steDestination+    , steTemplate+    , steTemplateData++    -- * Destructuring the Response+    , sendTemplatedEmailResponse+    , SendTemplatedEmailResponse+    -- * Response Lenses+    , stersResponseStatus+    , stersMessageId+    ) 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 templated email using Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/send-personalized-email-api.html Amazon SES Developer Guide> .+--+--+--+-- /See:/ 'sendTemplatedEmail' smart constructor.+data SendTemplatedEmail = SendTemplatedEmail'+  { _steReturnPath           :: !(Maybe Text)+  , _steConfigurationSetName :: !(Maybe Text)+  , _steSourceARN            :: !(Maybe Text)+  , _steReturnPathARN        :: !(Maybe Text)+  , _steTemplateARN          :: !(Maybe Text)+  , _steTags                 :: !(Maybe [MessageTag])+  , _steReplyToAddresses     :: !(Maybe [Text])+  , _steSource               :: !Text+  , _steDestination          :: !Destination+  , _steTemplate             :: !Text+  , _steTemplateData         :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'SendTemplatedEmail' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'steReturnPath' - 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.+--+-- * 'steConfigurationSetName' - The name of the configuration set to use when you send an email using @SendTemplatedEmail@ .+--+-- * 'steSourceARN' - 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> .+--+-- * 'steReturnPathARN' - 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> .+--+-- * 'steTemplateARN' - The ARN of the template to use when sending this email.+--+-- * 'steTags' - 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.+--+-- * '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> .+--+-- * '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.+--+-- * 'steTemplate' - The template to use when sending this email.+--+-- * 'steTemplateData' - 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.+sendTemplatedEmail+    :: Text -- ^ 'steSource'+    -> Destination -- ^ 'steDestination'+    -> Text -- ^ 'steTemplate'+    -> Text -- ^ 'steTemplateData'+    -> 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_+  }+++-- | 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});++-- | 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});++-- | 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});++-- | 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});++-- | The ARN of the template to use when sending this email.+steTemplateARN :: Lens' SendTemplatedEmail (Maybe Text)+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;++-- | 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;++-- | 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 :: Lens' SendTemplatedEmail Text+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});++-- | The template to use when sending this email.+steTemplate :: Lens' SendTemplatedEmail Text+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});++instance AWSRequest SendTemplatedEmail where+        type Rs SendTemplatedEmail =+             SendTemplatedEmailResponse+        request = postQuery ses+        response+          = receiveXMLWrapper "SendTemplatedEmailResult"+              (\ s h x ->+                 SendTemplatedEmailResponse' <$>+                   (pure (fromEnum s)) <*> (x .@ "MessageId"))++instance Hashable SendTemplatedEmail where++instance NFData SendTemplatedEmail where++instance ToHeaders SendTemplatedEmail where+        toHeaders = const mempty++instance ToPath SendTemplatedEmail where+        toPath = const "/"++instance ToQuery SendTemplatedEmail where+        toQuery SendTemplatedEmail'{..}+          = mconcat+              ["Action" =: ("SendTemplatedEmail" :: ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "ReturnPath" =: _steReturnPath,+               "ConfigurationSetName" =: _steConfigurationSetName,+               "SourceArn" =: _steSourceARN,+               "ReturnPathArn" =: _steReturnPathARN,+               "TemplateArn" =: _steTemplateARN,+               "Tags" =:+                 toQuery (toQueryList "member" <$> _steTags),+               "ReplyToAddresses" =:+                 toQuery+                   (toQueryList "member" <$> _steReplyToAddresses),+               "Source" =: _steSource,+               "Destination" =: _steDestination,+               "Template" =: _steTemplate,+               "TemplateData" =: _steTemplateData]++-- | /See:/ 'sendTemplatedEmailResponse' smart constructor.+data SendTemplatedEmailResponse = SendTemplatedEmailResponse'+  { _stersResponseStatus :: !Int+  , _stersMessageId      :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'SendTemplatedEmailResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'stersResponseStatus' - -- | The response status code.+--+-- * 'stersMessageId' - The unique message identifier returned from the @SendTemplatedEmail@ action.+sendTemplatedEmailResponse+    :: Int -- ^ 'stersResponseStatus'+    -> Text -- ^ 'stersMessageId'+    -> SendTemplatedEmailResponse+sendTemplatedEmailResponse pResponseStatus_ pMessageId_ =+  SendTemplatedEmailResponse'+  {_stersResponseStatus = pResponseStatus_, _stersMessageId = pMessageId_}+++-- | -- | The response status code.+stersResponseStatus :: Lens' SendTemplatedEmailResponse Int+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});++instance NFData SendTemplatedEmailResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SES.SetActiveReceiptRuleSet--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -23,7 +23,7 @@ -- -- For information about managing receipt rule sets, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-managing-receipt-rule-sets.html Amazon SES Developer Guide> . ----- This action is throttled at one request per second.+-- You can execute this operation no more than once per second. -- module Network.AWS.SES.SetActiveReceiptRuleSet     (@@ -40,12 +40,12 @@     , sarrsrsResponseStatus     ) 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+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SES.Types+import Network.AWS.SES.Types.Product  -- | Represents a request to set a receipt rule set as the active receipt rule set. You use receipt rule sets to receive email with Amazon SES. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/receiving-email-concepts.html Amazon SES Developer Guide> . --@@ -53,9 +53,10 @@ -- -- /See:/ 'setActiveReceiptRuleSet' smart constructor. newtype SetActiveReceiptRuleSet = SetActiveReceiptRuleSet'-    { _sarrsRuleSetName :: Maybe Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _sarrsRuleSetName :: Maybe Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetActiveReceiptRuleSet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -63,11 +64,9 @@ -- * 'sarrsRuleSetName' - The name of the receipt rule set to make active. Setting this value to null disables all email receiving. setActiveReceiptRuleSet     :: SetActiveReceiptRuleSet-setActiveReceiptRuleSet =-    SetActiveReceiptRuleSet'-    { _sarrsRuleSetName = Nothing-    }+setActiveReceiptRuleSet = SetActiveReceiptRuleSet' {_sarrsRuleSetName = Nothing} + -- | 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});@@ -82,9 +81,9 @@                  SetActiveReceiptRuleSetResponse' <$>                    (pure (fromEnum s))) -instance Hashable SetActiveReceiptRuleSet+instance Hashable SetActiveReceiptRuleSet where -instance NFData SetActiveReceiptRuleSet+instance NFData SetActiveReceiptRuleSet where  instance ToHeaders SetActiveReceiptRuleSet where         toHeaders = const mempty@@ -106,9 +105,10 @@ -- -- /See:/ 'setActiveReceiptRuleSetResponse' smart constructor. newtype SetActiveReceiptRuleSetResponse = SetActiveReceiptRuleSetResponse'-    { _sarrsrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _sarrsrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetActiveReceiptRuleSetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -118,12 +118,11 @@     :: Int -- ^ 'sarrsrsResponseStatus'     -> SetActiveReceiptRuleSetResponse setActiveReceiptRuleSetResponse pResponseStatus_ =-    SetActiveReceiptRuleSetResponse'-    { _sarrsrsResponseStatus = pResponseStatus_-    }+  SetActiveReceiptRuleSetResponse' {_sarrsrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. sarrsrsResponseStatus :: Lens' SetActiveReceiptRuleSetResponse Int sarrsrsResponseStatus = lens _sarrsrsResponseStatus (\ s a -> s{_sarrsrsResponseStatus = a}); -instance NFData SetActiveReceiptRuleSetResponse+instance NFData SetActiveReceiptRuleSetResponse where

@@ -12,24 +12,24 @@  -- | -- Module      : Network.AWS.SES.SetIdentityDkimEnabled--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- Enables or disables Easy DKIM signing of email sent from an identity: -- -----     * If Easy DKIM signing is enabled for a domain name identity (e.g., @example.com@ ), then Amazon SES will DKIM-sign all email sent by addresses under that domain name (e.g., @user@example.com@ ).+--     * If Easy DKIM signing is enabled for a domain name identity (such as @example.com@ ), then Amazon SES will DKIM-sign all email sent by addresses under that domain name (for example, @user@example.com@ ). -- --     * If Easy DKIM signing is enabled for an email address, then Amazon SES will DKIM-sign all email sent by that email address. -- -- ----- For email addresses (e.g., @user@example.com@ ), you can only enable Easy DKIM signing if the corresponding domain (e.g., @example.com@ ) has been set up for Easy DKIM using the AWS Console or the @VerifyDomainDkim@ action.+-- For email addresses (for example, @user@example.com@ ), you can only enable Easy DKIM signing if the corresponding domain (in this case, @example.com@ ) has been set up for Easy DKIM using the AWS Console or the @VerifyDomainDkim@ operation. ----- This action is throttled at one request per second.+-- You can execute this operation no more than once per second. -- -- For more information about Easy DKIM signing, go to the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/easy-dkim.html Amazon SES Developer Guide> . --@@ -49,12 +49,12 @@     , sidersResponseStatus     ) 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+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 Amazon SES Easy DKIM signing for an identity. For more information about setting up Easy DKIM, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/easy-dkim.html Amazon SES Developer Guide> . --@@ -62,10 +62,11 @@ -- -- /See:/ 'setIdentityDkimEnabled' smart constructor. data SetIdentityDkimEnabled = SetIdentityDkimEnabled'-    { _sideIdentity    :: !Text-    , _sideDkimEnabled :: !Bool-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _sideIdentity    :: !Text+  , _sideDkimEnabled :: !Bool+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetIdentityDkimEnabled' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -78,11 +79,10 @@     -> Bool -- ^ 'sideDkimEnabled'     -> SetIdentityDkimEnabled setIdentityDkimEnabled pIdentity_ pDkimEnabled_ =-    SetIdentityDkimEnabled'-    { _sideIdentity = pIdentity_-    , _sideDkimEnabled = pDkimEnabled_-    }+  SetIdentityDkimEnabled'+  {_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});@@ -101,9 +101,9 @@                  SetIdentityDkimEnabledResponse' <$>                    (pure (fromEnum s))) -instance Hashable SetIdentityDkimEnabled+instance Hashable SetIdentityDkimEnabled where -instance NFData SetIdentityDkimEnabled+instance NFData SetIdentityDkimEnabled where  instance ToHeaders SetIdentityDkimEnabled where         toHeaders = const mempty@@ -126,9 +126,10 @@ -- -- /See:/ 'setIdentityDkimEnabledResponse' smart constructor. newtype SetIdentityDkimEnabledResponse = SetIdentityDkimEnabledResponse'-    { _sidersResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _sidersResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetIdentityDkimEnabledResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -138,12 +139,11 @@     :: Int -- ^ 'sidersResponseStatus'     -> SetIdentityDkimEnabledResponse setIdentityDkimEnabledResponse pResponseStatus_ =-    SetIdentityDkimEnabledResponse'-    { _sidersResponseStatus = pResponseStatus_-    }+  SetIdentityDkimEnabledResponse' {_sidersResponseStatus = pResponseStatus_} + -- | -- | The response status code. sidersResponseStatus :: Lens' SetIdentityDkimEnabledResponse Int sidersResponseStatus = lens _sidersResponseStatus (\ s a -> s{_sidersResponseStatus = a}); -instance NFData SetIdentityDkimEnabledResponse+instance NFData SetIdentityDkimEnabledResponse where

@@ -12,16 +12,16 @@  -- | -- Module      : Network.AWS.SES.SetIdentityFeedbackForwardingEnabled--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- Given an identity (an email address or a domain), enables or disables whether Amazon SES forwards bounce and complaint notifications as email. Feedback forwarding can only be disabled when Amazon Simple Notification Service (Amazon SNS) topics are specified for both bounces and complaints. -- ----- This action is throttled at one request per second.+-- You can execute this operation no more than once per second. -- -- For more information about using notifications with Amazon SES, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/notifications.html Amazon SES Developer Guide> . --@@ -41,12 +41,12 @@     , siffersResponseStatus     ) 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+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 whether Amazon SES forwards you bounce and complaint notifications through email. For information about email feedback forwarding, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/notifications-via-email.html Amazon SES Developer Guide> . --@@ -54,10 +54,11 @@ -- -- /See:/ 'setIdentityFeedbackForwardingEnabled' smart constructor. data SetIdentityFeedbackForwardingEnabled = SetIdentityFeedbackForwardingEnabled'-    { _siffeIdentity          :: !Text-    , _siffeForwardingEnabled :: !Bool-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _siffeIdentity          :: !Text+  , _siffeForwardingEnabled :: !Bool+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetIdentityFeedbackForwardingEnabled' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -70,11 +71,10 @@     -> Bool -- ^ 'siffeForwardingEnabled'     -> SetIdentityFeedbackForwardingEnabled setIdentityFeedbackForwardingEnabled pIdentity_ pForwardingEnabled_ =-    SetIdentityFeedbackForwardingEnabled'-    { _siffeIdentity = pIdentity_-    , _siffeForwardingEnabled = pForwardingEnabled_-    }+  SetIdentityFeedbackForwardingEnabled'+  {_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});@@ -84,7 +84,8 @@ siffeForwardingEnabled = lens _siffeForwardingEnabled (\ s a -> s{_siffeForwardingEnabled = a});  instance AWSRequest-         SetIdentityFeedbackForwardingEnabled where+           SetIdentityFeedbackForwardingEnabled+         where         type Rs SetIdentityFeedbackForwardingEnabled =              SetIdentityFeedbackForwardingEnabledResponse         request = postQuery ses@@ -96,12 +97,15 @@                    (pure (fromEnum s)))  instance Hashable-         SetIdentityFeedbackForwardingEnabled+           SetIdentityFeedbackForwardingEnabled+         where  instance NFData SetIdentityFeedbackForwardingEnabled+         where  instance ToHeaders-         SetIdentityFeedbackForwardingEnabled where+           SetIdentityFeedbackForwardingEnabled+         where         toHeaders = const mempty  instance ToPath SetIdentityFeedbackForwardingEnabled@@ -125,9 +129,10 @@ -- -- /See:/ 'setIdentityFeedbackForwardingEnabledResponse' smart constructor. newtype SetIdentityFeedbackForwardingEnabledResponse = SetIdentityFeedbackForwardingEnabledResponse'-    { _siffersResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _siffersResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetIdentityFeedbackForwardingEnabledResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -137,13 +142,14 @@     :: Int -- ^ 'siffersResponseStatus'     -> SetIdentityFeedbackForwardingEnabledResponse setIdentityFeedbackForwardingEnabledResponse pResponseStatus_ =-    SetIdentityFeedbackForwardingEnabledResponse'-    { _siffersResponseStatus = pResponseStatus_-    }+  SetIdentityFeedbackForwardingEnabledResponse'+  {_siffersResponseStatus = pResponseStatus_} + -- | -- | The response status code. siffersResponseStatus :: Lens' SetIdentityFeedbackForwardingEnabledResponse Int siffersResponseStatus = lens _siffersResponseStatus (\ s a -> s{_siffersResponseStatus = a});  instance NFData-         SetIdentityFeedbackForwardingEnabledResponse+           SetIdentityFeedbackForwardingEnabledResponse+         where

@@ -12,16 +12,16 @@  -- | -- Module      : Network.AWS.SES.SetIdentityHeadersInNotificationsEnabled--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- Given an identity (an email address or a domain), sets whether Amazon SES includes the original email headers in the Amazon Simple Notification Service (Amazon SNS) notifications of a specified type. -- ----- This action is throttled at one request per second.+-- You can execute this operation no more than once per second. -- -- For more information about using notifications with Amazon SES, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/notifications.html Amazon SES Developer Guide> . --@@ -42,12 +42,12 @@     , sihinersResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.SES.Types-import           Network.AWS.SES.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SES.Types+import Network.AWS.SES.Types.Product  -- | Represents a request to set whether Amazon SES includes the original email headers in the Amazon SNS notifications of a specified type. For information about notifications, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/notifications-via-sns.html Amazon SES Developer Guide> . --@@ -55,11 +55,12 @@ -- -- /See:/ 'setIdentityHeadersInNotificationsEnabled' smart constructor. data SetIdentityHeadersInNotificationsEnabled = SetIdentityHeadersInNotificationsEnabled'-    { _sihineIdentity         :: !Text-    , _sihineNotificationType :: !NotificationType-    , _sihineEnabled          :: !Bool-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _sihineIdentity         :: !Text+  , _sihineNotificationType :: !NotificationType+  , _sihineEnabled          :: !Bool+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetIdentityHeadersInNotificationsEnabled' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -75,12 +76,13 @@     -> Bool -- ^ 'sihineEnabled'     -> SetIdentityHeadersInNotificationsEnabled setIdentityHeadersInNotificationsEnabled pIdentity_ pNotificationType_ pEnabled_ =-    SetIdentityHeadersInNotificationsEnabled'-    { _sihineIdentity = pIdentity_-    , _sihineNotificationType = pNotificationType_-    , _sihineEnabled = pEnabled_-    }+  SetIdentityHeadersInNotificationsEnabled'+  { _sihineIdentity = pIdentity_+  , _sihineNotificationType = pNotificationType_+  , _sihineEnabled = pEnabled_+  } + -- | The identity for which to enable or disable headers in notifications. Examples: @user@example.com@ , @example.com@ . sihineIdentity :: Lens' SetIdentityHeadersInNotificationsEnabled Text sihineIdentity = lens _sihineIdentity (\ s a -> s{_sihineIdentity = a});@@ -94,7 +96,8 @@ sihineEnabled = lens _sihineEnabled (\ s a -> s{_sihineEnabled = a});  instance AWSRequest-         SetIdentityHeadersInNotificationsEnabled where+           SetIdentityHeadersInNotificationsEnabled+         where         type Rs SetIdentityHeadersInNotificationsEnabled =              SetIdentityHeadersInNotificationsEnabledResponse         request = postQuery ses@@ -106,21 +109,26 @@                    (pure (fromEnum s)))  instance Hashable-         SetIdentityHeadersInNotificationsEnabled+           SetIdentityHeadersInNotificationsEnabled+         where  instance NFData-         SetIdentityHeadersInNotificationsEnabled+           SetIdentityHeadersInNotificationsEnabled+         where  instance ToHeaders-         SetIdentityHeadersInNotificationsEnabled where+           SetIdentityHeadersInNotificationsEnabled+         where         toHeaders = const mempty  instance ToPath-         SetIdentityHeadersInNotificationsEnabled where+           SetIdentityHeadersInNotificationsEnabled+         where         toPath = const "/"  instance ToQuery-         SetIdentityHeadersInNotificationsEnabled where+           SetIdentityHeadersInNotificationsEnabled+         where         toQuery SetIdentityHeadersInNotificationsEnabled'{..}           = mconcat               ["Action" =:@@ -137,9 +145,10 @@ -- -- /See:/ 'setIdentityHeadersInNotificationsEnabledResponse' smart constructor. newtype SetIdentityHeadersInNotificationsEnabledResponse = SetIdentityHeadersInNotificationsEnabledResponse'-    { _sihinersResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _sihinersResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetIdentityHeadersInNotificationsEnabledResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -149,13 +158,14 @@     :: Int -- ^ 'sihinersResponseStatus'     -> SetIdentityHeadersInNotificationsEnabledResponse setIdentityHeadersInNotificationsEnabledResponse pResponseStatus_ =-    SetIdentityHeadersInNotificationsEnabledResponse'-    { _sihinersResponseStatus = pResponseStatus_-    }+  SetIdentityHeadersInNotificationsEnabledResponse'+  {_sihinersResponseStatus = pResponseStatus_} + -- | -- | The response status code. sihinersResponseStatus :: Lens' SetIdentityHeadersInNotificationsEnabledResponse Int sihinersResponseStatus = lens _sihinersResponseStatus (\ s a -> s{_sihinersResponseStatus = a});  instance NFData-         SetIdentityHeadersInNotificationsEnabledResponse+           SetIdentityHeadersInNotificationsEnabledResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SES.SetIdentityMailFromDomain--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -23,7 +23,7 @@ -- -- /Important:/ To send emails using the specified MAIL FROM domain, you must add an MX record to your MAIL FROM domain's DNS settings. If you want your emails to pass Sender Policy Framework (SPF) checks, you must also add or update an SPF record. For more information, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/mail-from-set.html Amazon SES Developer Guide> . ----- This action is throttled at one request per second.+-- You can execute this operation no more than once per second. -- module Network.AWS.SES.SetIdentityMailFromDomain     (@@ -42,12 +42,12 @@     , simfdrsResponseStatus     ) 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+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 Amazon SES custom MAIL FROM domain setup for a verified identity. For information about using a custom MAIL FROM domain, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/mail-from.html Amazon SES Developer Guide> . --@@ -55,11 +55,12 @@ -- -- /See:/ 'setIdentityMailFromDomain' smart constructor. data SetIdentityMailFromDomain = SetIdentityMailFromDomain'-    { _simfdMailFromDomain      :: !(Maybe Text)-    , _simfdBehaviorOnMXFailure :: !(Maybe BehaviorOnMXFailure)-    , _simfdIdentity            :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _simfdMailFromDomain      :: !(Maybe Text)+  , _simfdBehaviorOnMXFailure :: !(Maybe BehaviorOnMXFailure)+  , _simfdIdentity            :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetIdentityMailFromDomain' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -73,12 +74,13 @@     :: Text -- ^ 'simfdIdentity'     -> SetIdentityMailFromDomain setIdentityMailFromDomain pIdentity_ =-    SetIdentityMailFromDomain'-    { _simfdMailFromDomain = Nothing-    , _simfdBehaviorOnMXFailure = Nothing-    , _simfdIdentity = pIdentity_-    }+  SetIdentityMailFromDomain'+  { _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});@@ -101,9 +103,9 @@                  SetIdentityMailFromDomainResponse' <$>                    (pure (fromEnum s))) -instance Hashable SetIdentityMailFromDomain+instance Hashable SetIdentityMailFromDomain where -instance NFData SetIdentityMailFromDomain+instance NFData SetIdentityMailFromDomain where  instance ToHeaders SetIdentityMailFromDomain where         toHeaders = const mempty@@ -127,9 +129,10 @@ -- -- /See:/ 'setIdentityMailFromDomainResponse' smart constructor. newtype SetIdentityMailFromDomainResponse = SetIdentityMailFromDomainResponse'-    { _simfdrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _simfdrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetIdentityMailFromDomainResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -139,12 +142,12 @@     :: Int -- ^ 'simfdrsResponseStatus'     -> SetIdentityMailFromDomainResponse setIdentityMailFromDomainResponse pResponseStatus_ =-    SetIdentityMailFromDomainResponse'-    { _simfdrsResponseStatus = pResponseStatus_-    }+  SetIdentityMailFromDomainResponse' {_simfdrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. simfdrsResponseStatus :: Lens' SetIdentityMailFromDomainResponse Int simfdrsResponseStatus = lens _simfdrsResponseStatus (\ s a -> s{_simfdrsResponseStatus = a});  instance NFData SetIdentityMailFromDomainResponse+         where

@@ -12,16 +12,16 @@  -- | -- Module      : Network.AWS.SES.SetIdentityNotificationTopic--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- Given an identity (an email address or a domain), sets the Amazon Simple Notification Service (Amazon SNS) topic to which Amazon SES will publish bounce, complaint, and/or delivery notifications for emails sent with that identity as the @Source@ . -- ----- This action is throttled at one request per second.+-- You can execute this operation no more than once per second. -- -- For more information about feedback notification, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/notifications.html Amazon SES Developer Guide> . --@@ -42,12 +42,12 @@     , sintrsResponseStatus     ) 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+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 specify the Amazon SNS topic to which Amazon SES will publish bounce, complaint, or delivery notifications for emails sent with that identity as the Source. For information about Amazon SES notifications, see the <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/notifications-via-sns.html Amazon SES Developer Guide> . --@@ -55,11 +55,12 @@ -- -- /See:/ 'setIdentityNotificationTopic' smart constructor. data SetIdentityNotificationTopic = SetIdentityNotificationTopic'-    { _sintSNSTopic         :: !(Maybe Text)-    , _sintIdentity         :: !Text-    , _sintNotificationType :: !NotificationType-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _sintSNSTopic         :: !(Maybe Text)+  , _sintIdentity         :: !Text+  , _sintNotificationType :: !NotificationType+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetIdentityNotificationTopic' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -74,12 +75,13 @@     -> NotificationType -- ^ 'sintNotificationType'     -> SetIdentityNotificationTopic setIdentityNotificationTopic pIdentity_ pNotificationType_ =-    SetIdentityNotificationTopic'-    { _sintSNSTopic = Nothing-    , _sintIdentity = pIdentity_-    , _sintNotificationType = pNotificationType_-    }+  SetIdentityNotificationTopic'+  { _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});@@ -104,9 +106,9 @@                  SetIdentityNotificationTopicResponse' <$>                    (pure (fromEnum s))) -instance Hashable SetIdentityNotificationTopic+instance Hashable SetIdentityNotificationTopic where -instance NFData SetIdentityNotificationTopic+instance NFData SetIdentityNotificationTopic where  instance ToHeaders SetIdentityNotificationTopic where         toHeaders = const mempty@@ -130,9 +132,10 @@ -- -- /See:/ 'setIdentityNotificationTopicResponse' smart constructor. newtype SetIdentityNotificationTopicResponse = SetIdentityNotificationTopicResponse'-    { _sintrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _sintrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetIdentityNotificationTopicResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -142,12 +145,13 @@     :: Int -- ^ 'sintrsResponseStatus'     -> SetIdentityNotificationTopicResponse setIdentityNotificationTopicResponse pResponseStatus_ =-    SetIdentityNotificationTopicResponse'-    { _sintrsResponseStatus = pResponseStatus_-    }+  SetIdentityNotificationTopicResponse'+  {_sintrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. sintrsResponseStatus :: Lens' SetIdentityNotificationTopicResponse Int sintrsResponseStatus = lens _sintrsResponseStatus (\ s a -> s{_sintrsResponseStatus = a});  instance NFData SetIdentityNotificationTopicResponse+         where