diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.1.0` +`1.2.0` ## Description diff --git a/amazonka-ses.cabal b/amazonka-ses.cabal --- a/amazonka-ses.cabal +++ b/amazonka-ses.cabal @@ -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 diff --git a/gen/Network/AWS/SES.hs b/gen/Network/AWS/SES.hs --- a/gen/Network/AWS/SES.hs +++ b/gen/Network/AWS/SES.hs @@ -24,8 +24,8 @@ -- /See:/ module Network.AWS.SES ( - -- * Service - SES + -- * Service Configuration + sES -- * Errors -- $errors diff --git a/gen/Network/AWS/SES/DeleteIdentity.hs b/gen/Network/AWS/SES/DeleteIdentity.hs --- a/gen/Network/AWS/SES/DeleteIdentity.hs +++ b/gen/Network/AWS/SES/DeleteIdentity.hs @@ -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 -> diff --git a/gen/Network/AWS/SES/DeleteIdentityPolicy.hs b/gen/Network/AWS/SES/DeleteIdentityPolicy.hs --- a/gen/Network/AWS/SES/DeleteIdentityPolicy.hs +++ b/gen/Network/AWS/SES/DeleteIdentityPolicy.hs @@ -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 -> diff --git a/gen/Network/AWS/SES/DeleteVerifiedEmailAddress.hs b/gen/Network/AWS/SES/DeleteVerifiedEmailAddress.hs --- a/gen/Network/AWS/SES/DeleteVerifiedEmailAddress.hs +++ b/gen/Network/AWS/SES/DeleteVerifiedEmailAddress.hs @@ -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' diff --git a/gen/Network/AWS/SES/GetIdentityDkimAttributes.hs b/gen/Network/AWS/SES/GetIdentityDkimAttributes.hs --- a/gen/Network/AWS/SES/GetIdentityDkimAttributes.hs +++ b/gen/Network/AWS/SES/GetIdentityDkimAttributes.hs @@ -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 -> diff --git a/gen/Network/AWS/SES/GetIdentityNotificationAttributes.hs b/gen/Network/AWS/SES/GetIdentityNotificationAttributes.hs --- a/gen/Network/AWS/SES/GetIdentityNotificationAttributes.hs +++ b/gen/Network/AWS/SES/GetIdentityNotificationAttributes.hs @@ -76,10 +76,9 @@ instance AWSRequest GetIdentityNotificationAttributes where - type Sv GetIdentityNotificationAttributes = SES type Rs GetIdentityNotificationAttributes = GetIdentityNotificationAttributesResponse - request = postQuery + request = postQuery sES response = receiveXMLWrapper "GetIdentityNotificationAttributesResult" diff --git a/gen/Network/AWS/SES/GetIdentityPolicies.hs b/gen/Network/AWS/SES/GetIdentityPolicies.hs --- a/gen/Network/AWS/SES/GetIdentityPolicies.hs +++ b/gen/Network/AWS/SES/GetIdentityPolicies.hs @@ -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 -> diff --git a/gen/Network/AWS/SES/GetIdentityVerificationAttributes.hs b/gen/Network/AWS/SES/GetIdentityVerificationAttributes.hs --- a/gen/Network/AWS/SES/GetIdentityVerificationAttributes.hs +++ b/gen/Network/AWS/SES/GetIdentityVerificationAttributes.hs @@ -74,10 +74,9 @@ instance AWSRequest GetIdentityVerificationAttributes where - type Sv GetIdentityVerificationAttributes = SES type Rs GetIdentityVerificationAttributes = GetIdentityVerificationAttributesResponse - request = postQuery + request = postQuery sES response = receiveXMLWrapper "GetIdentityVerificationAttributesResult" diff --git a/gen/Network/AWS/SES/GetSendQuota.hs b/gen/Network/AWS/SES/GetSendQuota.hs --- a/gen/Network/AWS/SES/GetSendQuota.hs +++ b/gen/Network/AWS/SES/GetSendQuota.hs @@ -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 -> diff --git a/gen/Network/AWS/SES/GetSendStatistics.hs b/gen/Network/AWS/SES/GetSendStatistics.hs --- a/gen/Network/AWS/SES/GetSendStatistics.hs +++ b/gen/Network/AWS/SES/GetSendStatistics.hs @@ -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 -> diff --git a/gen/Network/AWS/SES/ListIdentities.hs b/gen/Network/AWS/SES/ListIdentities.hs --- a/gen/Network/AWS/SES/ListIdentities.hs +++ b/gen/Network/AWS/SES/ListIdentities.hs @@ -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 -> diff --git a/gen/Network/AWS/SES/ListIdentityPolicies.hs b/gen/Network/AWS/SES/ListIdentityPolicies.hs --- a/gen/Network/AWS/SES/ListIdentityPolicies.hs +++ b/gen/Network/AWS/SES/ListIdentityPolicies.hs @@ -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 -> diff --git a/gen/Network/AWS/SES/ListVerifiedEmailAddresses.hs b/gen/Network/AWS/SES/ListVerifiedEmailAddresses.hs --- a/gen/Network/AWS/SES/ListVerifiedEmailAddresses.hs +++ b/gen/Network/AWS/SES/ListVerifiedEmailAddresses.hs @@ -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" diff --git a/gen/Network/AWS/SES/PutIdentityPolicy.hs b/gen/Network/AWS/SES/PutIdentityPolicy.hs --- a/gen/Network/AWS/SES/PutIdentityPolicy.hs +++ b/gen/Network/AWS/SES/PutIdentityPolicy.hs @@ -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 -> diff --git a/gen/Network/AWS/SES/SendEmail.hs b/gen/Network/AWS/SES/SendEmail.hs --- a/gen/Network/AWS/SES/SendEmail.hs +++ b/gen/Network/AWS/SES/SendEmail.hs @@ -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 -> diff --git a/gen/Network/AWS/SES/SendRawEmail.hs b/gen/Network/AWS/SES/SendRawEmail.hs --- a/gen/Network/AWS/SES/SendRawEmail.hs +++ b/gen/Network/AWS/SES/SendRawEmail.hs @@ -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 -> diff --git a/gen/Network/AWS/SES/SetIdentityDkimEnabled.hs b/gen/Network/AWS/SES/SetIdentityDkimEnabled.hs --- a/gen/Network/AWS/SES/SetIdentityDkimEnabled.hs +++ b/gen/Network/AWS/SES/SetIdentityDkimEnabled.hs @@ -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 -> diff --git a/gen/Network/AWS/SES/SetIdentityFeedbackForwardingEnabled.hs b/gen/Network/AWS/SES/SetIdentityFeedbackForwardingEnabled.hs --- a/gen/Network/AWS/SES/SetIdentityFeedbackForwardingEnabled.hs +++ b/gen/Network/AWS/SES/SetIdentityFeedbackForwardingEnabled.hs @@ -95,10 +95,9 @@ instance AWSRequest SetIdentityFeedbackForwardingEnabled where - type Sv SetIdentityFeedbackForwardingEnabled = SES type Rs SetIdentityFeedbackForwardingEnabled = SetIdentityFeedbackForwardingEnabledResponse - request = postQuery + request = postQuery sES response = receiveXMLWrapper "SetIdentityFeedbackForwardingEnabledResult" diff --git a/gen/Network/AWS/SES/SetIdentityNotificationTopic.hs b/gen/Network/AWS/SES/SetIdentityNotificationTopic.hs --- a/gen/Network/AWS/SES/SetIdentityNotificationTopic.hs +++ b/gen/Network/AWS/SES/SetIdentityNotificationTopic.hs @@ -105,10 +105,9 @@ instance AWSRequest SetIdentityNotificationTopic where - type Sv SetIdentityNotificationTopic = SES type Rs SetIdentityNotificationTopic = SetIdentityNotificationTopicResponse - request = postQuery + request = postQuery sES response = receiveXMLWrapper "SetIdentityNotificationTopicResult" diff --git a/gen/Network/AWS/SES/Types.hs b/gen/Network/AWS/SES/Types.hs --- a/gen/Network/AWS/SES/Types.hs +++ b/gen/Network/AWS/SES/Types.hs @@ -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. diff --git a/gen/Network/AWS/SES/Types/Product.hs b/gen/Network/AWS/SES/Types/Product.hs --- a/gen/Network/AWS/SES/Types/Product.hs +++ b/gen/Network/AWS/SES/Types/Product.hs @@ -2,7 +2,6 @@ {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} diff --git a/gen/Network/AWS/SES/VerifyDomainDkim.hs b/gen/Network/AWS/SES/VerifyDomainDkim.hs --- a/gen/Network/AWS/SES/VerifyDomainDkim.hs +++ b/gen/Network/AWS/SES/VerifyDomainDkim.hs @@ -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 -> diff --git a/gen/Network/AWS/SES/VerifyDomainIdentity.hs b/gen/Network/AWS/SES/VerifyDomainIdentity.hs --- a/gen/Network/AWS/SES/VerifyDomainIdentity.hs +++ b/gen/Network/AWS/SES/VerifyDomainIdentity.hs @@ -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 -> diff --git a/gen/Network/AWS/SES/VerifyEmailAddress.hs b/gen/Network/AWS/SES/VerifyEmailAddress.hs --- a/gen/Network/AWS/SES/VerifyEmailAddress.hs +++ b/gen/Network/AWS/SES/VerifyEmailAddress.hs @@ -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 diff --git a/gen/Network/AWS/SES/VerifyEmailIdentity.hs b/gen/Network/AWS/SES/VerifyEmailIdentity.hs --- a/gen/Network/AWS/SES/VerifyEmailIdentity.hs +++ b/gen/Network/AWS/SES/VerifyEmailIdentity.hs @@ -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 -> diff --git a/test/Test/AWS/Gen/SES.hs b/test/Test/AWS/Gen/SES.hs --- a/test/Test/AWS/Gen/SES.hs +++ b/test/Test/AWS/Gen/SES.hs @@ -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)