amazonka-ses 1.1.0 → 1.2.0

raw patch · 28 files changed

+84/−89 lines, 28 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 +5/−5
• gen/Network/AWS/SES.hs +2/−2
• gen/Network/AWS/SES/DeleteIdentity.hs +1/−2
• gen/Network/AWS/SES/DeleteIdentityPolicy.hs +1/−2
• gen/Network/AWS/SES/DeleteVerifiedEmailAddress.hs +1/−2
• gen/Network/AWS/SES/GetIdentityDkimAttributes.hs +1/−2
• gen/Network/AWS/SES/GetIdentityNotificationAttributes.hs +1/−2
• gen/Network/AWS/SES/GetIdentityPolicies.hs +1/−2
• gen/Network/AWS/SES/GetIdentityVerificationAttributes.hs +1/−2
• gen/Network/AWS/SES/GetSendQuota.hs +1/−2
• gen/Network/AWS/SES/GetSendStatistics.hs +1/−2
• gen/Network/AWS/SES/ListIdentities.hs +1/−2
• gen/Network/AWS/SES/ListIdentityPolicies.hs +1/−2
• gen/Network/AWS/SES/ListVerifiedEmailAddresses.hs +1/−2
• gen/Network/AWS/SES/PutIdentityPolicy.hs +1/−2
• gen/Network/AWS/SES/SendEmail.hs +1/−2
• gen/Network/AWS/SES/SendRawEmail.hs +1/−2
• gen/Network/AWS/SES/SetIdentityDkimEnabled.hs +1/−2
• gen/Network/AWS/SES/SetIdentityFeedbackForwardingEnabled.hs +1/−2
• gen/Network/AWS/SES/SetIdentityNotificationTopic.hs +1/−2
• gen/Network/AWS/SES/Types.hs +32/−36
• gen/Network/AWS/SES/Types/Product.hs +0/−1
• gen/Network/AWS/SES/VerifyDomainDkim.hs +1/−2
• gen/Network/AWS/SES/VerifyDomainIdentity.hs +1/−2
• gen/Network/AWS/SES/VerifyEmailAddress.hs +1/−2
• gen/Network/AWS/SES/VerifyEmailIdentity.hs +1/−2
• test/Test/AWS/Gen/SES.hs +22/−0

@@ -8,7 +8,7 @@  ## Version -`1.1.0`+`1.2.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-ses-version:               1.1.0+version:               1.2.0 synopsis:              Amazon Simple Email Service SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense@@ -79,7 +79,7 @@         , Network.AWS.SES.Types.Sum      build-depends:-          amazonka-core == 1.1.0.*+          amazonka-core == 1.2.0.*         , base          >= 4.7     && < 5  test-suite amazonka-ses-test@@ -98,9 +98,9 @@         , Test.AWS.SES.Internal      build-depends:-          amazonka-core == 1.1.0-        , amazonka-test == 1.1.0-        , amazonka-ses == 1.1.0+          amazonka-core == 1.2.0+        , amazonka-test == 1.2.0+        , amazonka-ses == 1.2.0         , base         , bytestring         , lens

@@ -24,8 +24,8 @@ -- /See:/ <http://docs.aws.amazon.com/ses/latest/APIReference/Welcome.html AWS API Reference> module Network.AWS.SES     (-    -- * Service-      SES+    -- * Service Configuration+      sES      -- * Errors     -- $errors

@@ -72,9 +72,8 @@ diIdentity = lens _diIdentity (\ s a -> s{_diIdentity = a});  instance AWSRequest DeleteIdentity where-        type Sv DeleteIdentity = SES         type Rs DeleteIdentity = DeleteIdentityResponse-        request = postQuery+        request = postQuery sES         response           = receiveXMLWrapper "DeleteIdentityResult"               (\ s h x ->

@@ -97,10 +97,9 @@ dipPolicyName = lens _dipPolicyName (\ s a -> s{_dipPolicyName = a});  instance AWSRequest DeleteIdentityPolicy where-        type Sv DeleteIdentityPolicy = SES         type Rs DeleteIdentityPolicy =              DeleteIdentityPolicyResponse-        request = postQuery+        request = postQuery sES         response           = receiveXMLWrapper "DeleteIdentityPolicyResult"               (\ s h x ->

@@ -72,10 +72,9 @@ dveaEmailAddress = lens _dveaEmailAddress (\ s a -> s{_dveaEmailAddress = a});  instance AWSRequest DeleteVerifiedEmailAddress where-        type Sv DeleteVerifiedEmailAddress = SES         type Rs DeleteVerifiedEmailAddress =              DeleteVerifiedEmailAddressResponse-        request = postQuery+        request = postQuery sES         response           = receiveNull DeleteVerifiedEmailAddressResponse' 

@@ -93,10 +93,9 @@ gidaIdentities = lens _gidaIdentities (\ s a -> s{_gidaIdentities = a}) . _Coerce;  instance AWSRequest GetIdentityDkimAttributes where-        type Sv GetIdentityDkimAttributes = SES         type Rs GetIdentityDkimAttributes =              GetIdentityDkimAttributesResponse-        request = postQuery+        request = postQuery sES         response           = receiveXMLWrapper "GetIdentityDkimAttributesResult"               (\ s h x ->

@@ -76,10 +76,9 @@  instance AWSRequest GetIdentityNotificationAttributes          where-        type Sv GetIdentityNotificationAttributes = SES         type Rs GetIdentityNotificationAttributes =              GetIdentityNotificationAttributesResponse-        request = postQuery+        request = postQuery sES         response           = receiveXMLWrapper               "GetIdentityNotificationAttributesResult"

@@ -99,10 +99,9 @@ gipPolicyNames = lens _gipPolicyNames (\ s a -> s{_gipPolicyNames = a}) . _Coerce;  instance AWSRequest GetIdentityPolicies where-        type Sv GetIdentityPolicies = SES         type Rs GetIdentityPolicies =              GetIdentityPoliciesResponse-        request = postQuery+        request = postQuery sES         response           = receiveXMLWrapper "GetIdentityPoliciesResult"               (\ s h x ->

@@ -74,10 +74,9 @@  instance AWSRequest GetIdentityVerificationAttributes          where-        type Sv GetIdentityVerificationAttributes = SES         type Rs GetIdentityVerificationAttributes =              GetIdentityVerificationAttributesResponse-        request = postQuery+        request = postQuery sES         response           = receiveXMLWrapper               "GetIdentityVerificationAttributesResult"

@@ -57,9 +57,8 @@ getSendQuota = GetSendQuota'  instance AWSRequest GetSendQuota where-        type Sv GetSendQuota = SES         type Rs GetSendQuota = GetSendQuotaResponse-        request = postQuery+        request = postQuery sES         response           = receiveXMLWrapper "GetSendQuotaResult"               (\ s h x ->

@@ -59,9 +59,8 @@ getSendStatistics = GetSendStatistics'  instance AWSRequest GetSendStatistics where-        type Sv GetSendStatistics = SES         type Rs GetSendStatistics = GetSendStatisticsResponse-        request = postQuery+        request = postQuery sES         response           = receiveXMLWrapper "GetSendStatisticsResult"               (\ s h x ->

@@ -103,9 +103,8 @@             Just $ rq & liNextToken .~ rs ^. lirsNextToken  instance AWSRequest ListIdentities where-        type Sv ListIdentities = SES         type Rs ListIdentities = ListIdentitiesResponse-        request = postQuery+        request = postQuery sES         response           = receiveXMLWrapper "ListIdentitiesResult"               (\ s h x ->

@@ -88,10 +88,9 @@ lipIdentity = lens _lipIdentity (\ s a -> s{_lipIdentity = a});  instance AWSRequest ListIdentityPolicies where-        type Sv ListIdentityPolicies = SES         type Rs ListIdentityPolicies =              ListIdentityPoliciesResponse-        request = postQuery+        request = postQuery sES         response           = receiveXMLWrapper "ListIdentityPoliciesResult"               (\ s h x ->

@@ -60,10 +60,9 @@ listVerifiedEmailAddresses = ListVerifiedEmailAddresses'  instance AWSRequest ListVerifiedEmailAddresses where-        type Sv ListVerifiedEmailAddresses = SES         type Rs ListVerifiedEmailAddresses =              ListVerifiedEmailAddressesResponse-        request = postQuery+        request = postQuery sES         response           = receiveXMLWrapper               "ListVerifiedEmailAddressesResult"

@@ -111,9 +111,8 @@ pipPolicy = lens _pipPolicy (\ s a -> s{_pipPolicy = a});  instance AWSRequest PutIdentityPolicy where-        type Sv PutIdentityPolicy = SES         type Rs PutIdentityPolicy = PutIdentityPolicyResponse-        request = postQuery+        request = postQuery sES         response           = receiveXMLWrapper "PutIdentityPolicyResult"               (\ s h x ->

@@ -203,9 +203,8 @@ seMessage = lens _seMessage (\ s a -> s{_seMessage = a});  instance AWSRequest SendEmail where-        type Sv SendEmail = SES         type Rs SendEmail = SendEmailResponse-        request = postQuery+        request = postQuery sES         response           = receiveXMLWrapper "SendEmailResult"               (\ s h x ->

@@ -241,9 +241,8 @@ sreRawMessage = lens _sreRawMessage (\ s a -> s{_sreRawMessage = a});  instance AWSRequest SendRawEmail where-        type Sv SendRawEmail = SES         type Rs SendRawEmail = SendRawEmailResponse-        request = postQuery+        request = postQuery sES         response           = receiveXMLWrapper "SendRawEmailResult"               (\ s h x ->

@@ -95,10 +95,9 @@ sideDkimEnabled = lens _sideDkimEnabled (\ s a -> s{_sideDkimEnabled = a});  instance AWSRequest SetIdentityDkimEnabled where-        type Sv SetIdentityDkimEnabled = SES         type Rs SetIdentityDkimEnabled =              SetIdentityDkimEnabledResponse-        request = postQuery+        request = postQuery sES         response           = receiveXMLWrapper "SetIdentityDkimEnabledResult"               (\ s h x ->

@@ -95,10 +95,9 @@  instance AWSRequest          SetIdentityFeedbackForwardingEnabled where-        type Sv SetIdentityFeedbackForwardingEnabled = SES         type Rs SetIdentityFeedbackForwardingEnabled =              SetIdentityFeedbackForwardingEnabledResponse-        request = postQuery+        request = postQuery sES         response           = receiveXMLWrapper               "SetIdentityFeedbackForwardingEnabledResult"

@@ -105,10 +105,9 @@  instance AWSRequest SetIdentityNotificationTopic          where-        type Sv SetIdentityNotificationTopic = SES         type Rs SetIdentityNotificationTopic =              SetIdentityNotificationTopicResponse-        request = postQuery+        request = postQuery sES         response           = receiveXMLWrapper               "SetIdentityNotificationTopicResult"

@@ -1,5 +1,4 @@ {-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE TypeFamilies      #-}  -- Derived from AWS service descriptions, licensed under Apache 2.0. @@ -13,8 +12,8 @@ -- module Network.AWS.SES.Types     (-    -- * Service-      SES+    -- * Service Configuration+      sES      -- * Errors     , _MessageRejected@@ -95,39 +94,36 @@ import           Network.AWS.SES.Types.Sum import           Network.AWS.Sign.V4 --- | Version @2010-12-01@ of the Amazon Simple Email Service SDK.-data SES--instance AWSService SES where-    type Sg SES = V4-    service = const svc-      where-        svc =-            Service-            { _svcAbbrev = "SES"-            , _svcPrefix = "email"-            , _svcVersion = "2010-12-01"-            , _svcEndpoint = defaultEndpoint svc-            , _svcTimeout = Just 70-            , _svcStatus = statusSuccess-            , _svcError = parseXMLError-            , _svcRetry = retry-            }-        retry =-            Exponential-            { _retryBase = 5.0e-2-            , _retryGrowth = 2-            , _retryAttempts = 5-            , _retryCheck = check-            }-        check e-          | has (hasCode "ThrottlingException" . hasStatus 400) e =-              Just "throttling_exception"-          | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"-          | has (hasStatus 503) e = Just "service_unavailable"-          | has (hasStatus 500) e = Just "general_server_error"-          | has (hasStatus 509) e = Just "limit_exceeded"-          | otherwise = Nothing+-- | API version '2010-12-01' of the Amazon Simple Email Service SDK configuration.+sES :: Service+sES =+    Service+    { _svcAbbrev = "SES"+    , _svcSigner = v4+    , _svcPrefix = "email"+    , _svcVersion = "2010-12-01"+    , _svcEndpoint = defaultEndpoint sES+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseXMLError+    , _svcRetry = retry+    }+  where+    retry =+        Exponential+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }+    check e+      | has (hasCode "ThrottlingException" . hasStatus 400) e =+          Just "throttling_exception"+      | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"+      | has (hasStatus 503) e = Just "service_unavailable"+      | has (hasStatus 500) e = Just "general_server_error"+      | has (hasStatus 509) e = Just "limit_exceeded"+      | otherwise = Nothing  -- | Indicates that the action failed, and the message could not be sent. -- Check the error stack for more information about what caused the error.

@@ -2,7 +2,6 @@ {-# LANGUAGE DeriveGeneric      #-} {-# LANGUAGE OverloadedStrings  #-} {-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-} 

@@ -84,9 +84,8 @@ vddDomain = lens _vddDomain (\ s a -> s{_vddDomain = a});  instance AWSRequest VerifyDomainDkim where-        type Sv VerifyDomainDkim = SES         type Rs VerifyDomainDkim = VerifyDomainDkimResponse-        request = postQuery+        request = postQuery sES         response           = receiveXMLWrapper "VerifyDomainDkimResult"               (\ s h x ->

@@ -71,10 +71,9 @@ vdiDomain = lens _vdiDomain (\ s a -> s{_vdiDomain = a});  instance AWSRequest VerifyDomainIdentity where-        type Sv VerifyDomainIdentity = SES         type Rs VerifyDomainIdentity =              VerifyDomainIdentityResponse-        request = postQuery+        request = postQuery sES         response           = receiveXMLWrapper "VerifyDomainIdentityResult"               (\ s h x ->

@@ -73,10 +73,9 @@ veaEmailAddress = lens _veaEmailAddress (\ s a -> s{_veaEmailAddress = a});  instance AWSRequest VerifyEmailAddress where-        type Sv VerifyEmailAddress = SES         type Rs VerifyEmailAddress =              VerifyEmailAddressResponse-        request = postQuery+        request = postQuery sES         response = receiveNull VerifyEmailAddressResponse'  instance ToHeaders VerifyEmailAddress where

@@ -71,10 +71,9 @@ veiEmailAddress = lens _veiEmailAddress (\ s a -> s{_veiEmailAddress = a});  instance AWSRequest VerifyEmailIdentity where-        type Sv VerifyEmailIdentity = SES         type Rs VerifyEmailIdentity =              VerifyEmailIdentityResponse-        request = postQuery+        request = postQuery sES         response           = receiveXMLWrapper "VerifyEmailIdentityResult"               (\ s h x ->

@@ -284,130 +284,152 @@ testGetSendQuotaResponse = res     "GetSendQuotaResponse"     "fixture/GetSendQuotaResponse"+    sES     (Proxy :: Proxy GetSendQuota)  testDeleteIdentityPolicyResponse :: DeleteIdentityPolicyResponse -> TestTree testDeleteIdentityPolicyResponse = res     "DeleteIdentityPolicyResponse"     "fixture/DeleteIdentityPolicyResponse"+    sES     (Proxy :: Proxy DeleteIdentityPolicy)  testPutIdentityPolicyResponse :: PutIdentityPolicyResponse -> TestTree testPutIdentityPolicyResponse = res     "PutIdentityPolicyResponse"     "fixture/PutIdentityPolicyResponse"+    sES     (Proxy :: Proxy PutIdentityPolicy)  testSetIdentityDkimEnabledResponse :: SetIdentityDkimEnabledResponse -> TestTree testSetIdentityDkimEnabledResponse = res     "SetIdentityDkimEnabledResponse"     "fixture/SetIdentityDkimEnabledResponse"+    sES     (Proxy :: Proxy SetIdentityDkimEnabled)  testGetIdentityNotificationAttributesResponse :: GetIdentityNotificationAttributesResponse -> TestTree testGetIdentityNotificationAttributesResponse = res     "GetIdentityNotificationAttributesResponse"     "fixture/GetIdentityNotificationAttributesResponse"+    sES     (Proxy :: Proxy GetIdentityNotificationAttributes)  testListIdentityPoliciesResponse :: ListIdentityPoliciesResponse -> TestTree testListIdentityPoliciesResponse = res     "ListIdentityPoliciesResponse"     "fixture/ListIdentityPoliciesResponse"+    sES     (Proxy :: Proxy ListIdentityPolicies)  testSetIdentityFeedbackForwardingEnabledResponse :: SetIdentityFeedbackForwardingEnabledResponse -> TestTree testSetIdentityFeedbackForwardingEnabledResponse = res     "SetIdentityFeedbackForwardingEnabledResponse"     "fixture/SetIdentityFeedbackForwardingEnabledResponse"+    sES     (Proxy :: Proxy SetIdentityFeedbackForwardingEnabled)  testGetIdentityVerificationAttributesResponse :: GetIdentityVerificationAttributesResponse -> TestTree testGetIdentityVerificationAttributesResponse = res     "GetIdentityVerificationAttributesResponse"     "fixture/GetIdentityVerificationAttributesResponse"+    sES     (Proxy :: Proxy GetIdentityVerificationAttributes)  testGetIdentityPoliciesResponse :: GetIdentityPoliciesResponse -> TestTree testGetIdentityPoliciesResponse = res     "GetIdentityPoliciesResponse"     "fixture/GetIdentityPoliciesResponse"+    sES     (Proxy :: Proxy GetIdentityPolicies)  testVerifyDomainIdentityResponse :: VerifyDomainIdentityResponse -> TestTree testVerifyDomainIdentityResponse = res     "VerifyDomainIdentityResponse"     "fixture/VerifyDomainIdentityResponse"+    sES     (Proxy :: Proxy VerifyDomainIdentity)  testVerifyDomainDkimResponse :: VerifyDomainDkimResponse -> TestTree testVerifyDomainDkimResponse = res     "VerifyDomainDkimResponse"     "fixture/VerifyDomainDkimResponse"+    sES     (Proxy :: Proxy VerifyDomainDkim)  testSendRawEmailResponse :: SendRawEmailResponse -> TestTree testSendRawEmailResponse = res     "SendRawEmailResponse"     "fixture/SendRawEmailResponse"+    sES     (Proxy :: Proxy SendRawEmail)  testGetIdentityDkimAttributesResponse :: GetIdentityDkimAttributesResponse -> TestTree testGetIdentityDkimAttributesResponse = res     "GetIdentityDkimAttributesResponse"     "fixture/GetIdentityDkimAttributesResponse"+    sES     (Proxy :: Proxy GetIdentityDkimAttributes)  testDeleteIdentityResponse :: DeleteIdentityResponse -> TestTree testDeleteIdentityResponse = res     "DeleteIdentityResponse"     "fixture/DeleteIdentityResponse"+    sES     (Proxy :: Proxy DeleteIdentity)  testGetSendStatisticsResponse :: GetSendStatisticsResponse -> TestTree testGetSendStatisticsResponse = res     "GetSendStatisticsResponse"     "fixture/GetSendStatisticsResponse"+    sES     (Proxy :: Proxy GetSendStatistics)  testListIdentitiesResponse :: ListIdentitiesResponse -> TestTree testListIdentitiesResponse = res     "ListIdentitiesResponse"     "fixture/ListIdentitiesResponse"+    sES     (Proxy :: Proxy ListIdentities)  testDeleteVerifiedEmailAddressResponse :: DeleteVerifiedEmailAddressResponse -> TestTree testDeleteVerifiedEmailAddressResponse = res     "DeleteVerifiedEmailAddressResponse"     "fixture/DeleteVerifiedEmailAddressResponse"+    sES     (Proxy :: Proxy DeleteVerifiedEmailAddress)  testVerifyEmailAddressResponse :: VerifyEmailAddressResponse -> TestTree testVerifyEmailAddressResponse = res     "VerifyEmailAddressResponse"     "fixture/VerifyEmailAddressResponse"+    sES     (Proxy :: Proxy VerifyEmailAddress)  testVerifyEmailIdentityResponse :: VerifyEmailIdentityResponse -> TestTree testVerifyEmailIdentityResponse = res     "VerifyEmailIdentityResponse"     "fixture/VerifyEmailIdentityResponse"+    sES     (Proxy :: Proxy VerifyEmailIdentity)  testSendEmailResponse :: SendEmailResponse -> TestTree testSendEmailResponse = res     "SendEmailResponse"     "fixture/SendEmailResponse"+    sES     (Proxy :: Proxy SendEmail)  testListVerifiedEmailAddressesResponse :: ListVerifiedEmailAddressesResponse -> TestTree testListVerifiedEmailAddressesResponse = res     "ListVerifiedEmailAddressesResponse"     "fixture/ListVerifiedEmailAddressesResponse"+    sES     (Proxy :: Proxy ListVerifiedEmailAddresses)  testSetIdentityNotificationTopicResponse :: SetIdentityNotificationTopicResponse -> TestTree testSetIdentityNotificationTopicResponse = res     "SetIdentityNotificationTopicResponse"     "fixture/SetIdentityNotificationTopicResponse"+    sES     (Proxy :: Proxy SetIdentityNotificationTopic)