amazonka-ses 1.2.0.2 → 1.3.0

raw patch · 24 files changed

+296/−296 lines, 24 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 +17/−17
• gen/Network/AWS/SES/DeleteIdentity.hs +8/−8
• gen/Network/AWS/SES/DeleteIdentityPolicy.hs +8/−8
• gen/Network/AWS/SES/GetIdentityDkimAttributes.hs +8/−8
• gen/Network/AWS/SES/GetIdentityNotificationAttributes.hs +8/−8
• gen/Network/AWS/SES/GetIdentityPolicies.hs +9/−9
• gen/Network/AWS/SES/GetIdentityVerificationAttributes.hs +8/−8
• gen/Network/AWS/SES/GetSendQuota.hs +8/−8
• gen/Network/AWS/SES/GetSendStatistics.hs +8/−8
• gen/Network/AWS/SES/ListIdentities.hs +10/−10
• gen/Network/AWS/SES/ListIdentityPolicies.hs +9/−9
• gen/Network/AWS/SES/ListVerifiedEmailAddresses.hs +8/−8
• gen/Network/AWS/SES/PutIdentityPolicy.hs +8/−8
• gen/Network/AWS/SES/SendEmail.hs +9/−9
• gen/Network/AWS/SES/SendRawEmail.hs +9/−9
• gen/Network/AWS/SES/SetIdentityDkimEnabled.hs +8/−8
• gen/Network/AWS/SES/SetIdentityFeedbackForwardingEnabled.hs +8/−8
• gen/Network/AWS/SES/SetIdentityNotificationTopic.hs +8/−8
• gen/Network/AWS/SES/VerifyDomainDkim.hs +9/−9
• gen/Network/AWS/SES/VerifyDomainIdentity.hs +8/−8
• gen/Network/AWS/SES/VerifyEmailIdentity.hs +8/−8
• test/Test/AWS/Gen/SES.hs +106/−106

@@ -8,7 +8,7 @@  ## Version -`1.2.0.2`+`1.3.0`   ## Description

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

@@ -45,14 +45,11 @@     -- ** GetSendQuota     , module Network.AWS.SES.GetSendQuota -    -- ** DeleteIdentityPolicy-    , module Network.AWS.SES.DeleteIdentityPolicy-     -- ** PutIdentityPolicy     , module Network.AWS.SES.PutIdentityPolicy -    -- ** SetIdentityDkimEnabled-    , module Network.AWS.SES.SetIdentityDkimEnabled+    -- ** DeleteIdentityPolicy+    , module Network.AWS.SES.DeleteIdentityPolicy      -- ** GetIdentityNotificationAttributes     , module Network.AWS.SES.GetIdentityNotificationAttributes@@ -60,6 +57,9 @@     -- ** ListIdentityPolicies     , module Network.AWS.SES.ListIdentityPolicies +    -- ** SetIdentityDkimEnabled+    , module Network.AWS.SES.SetIdentityDkimEnabled+     -- ** SetIdentityFeedbackForwardingEnabled     , module Network.AWS.SES.SetIdentityFeedbackForwardingEnabled @@ -72,41 +72,41 @@     -- ** VerifyDomainIdentity     , module Network.AWS.SES.VerifyDomainIdentity +    -- ** GetIdentityDkimAttributes+    , module Network.AWS.SES.GetIdentityDkimAttributes+     -- ** VerifyDomainDkim     , module Network.AWS.SES.VerifyDomainDkim      -- ** SendRawEmail     , module Network.AWS.SES.SendRawEmail -    -- ** GetIdentityDkimAttributes-    , module Network.AWS.SES.GetIdentityDkimAttributes+    -- ** GetSendStatistics+    , module Network.AWS.SES.GetSendStatistics      -- ** DeleteIdentity     , module Network.AWS.SES.DeleteIdentity -    -- ** GetSendStatistics-    , module Network.AWS.SES.GetSendStatistics-     -- ** ListIdentities (Paginated)     , module Network.AWS.SES.ListIdentities -    -- ** DeleteVerifiedEmailAddress-    , module Network.AWS.SES.DeleteVerifiedEmailAddress+    -- ** VerifyEmailIdentity+    , module Network.AWS.SES.VerifyEmailIdentity      -- ** VerifyEmailAddress     , module Network.AWS.SES.VerifyEmailAddress -    -- ** VerifyEmailIdentity-    , module Network.AWS.SES.VerifyEmailIdentity--    -- ** SendEmail-    , module Network.AWS.SES.SendEmail+    -- ** DeleteVerifiedEmailAddress+    , module Network.AWS.SES.DeleteVerifiedEmailAddress      -- ** ListVerifiedEmailAddresses     , module Network.AWS.SES.ListVerifiedEmailAddresses      -- ** SetIdentityNotificationTopic     , module Network.AWS.SES.SetIdentityNotificationTopic++    -- ** SendEmail+    , module Network.AWS.SES.SendEmail      -- * Types 

@@ -36,7 +36,7 @@     , deleteIdentityResponse     , DeleteIdentityResponse     -- * Response Lenses-    , dirsStatus+    , dirsResponseStatus     ) where  import           Network.AWS.Prelude@@ -97,22 +97,22 @@ -- -- /See:/ 'deleteIdentityResponse' smart constructor. newtype DeleteIdentityResponse = DeleteIdentityResponse'-    { _dirsStatus :: Int+    { _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: ----- * 'dirsStatus'+-- * 'dirsResponseStatus' deleteIdentityResponse-    :: Int -- ^ 'dirsStatus'+    :: Int -- ^ 'dirsResponseStatus'     -> DeleteIdentityResponse-deleteIdentityResponse pStatus_ =+deleteIdentityResponse pResponseStatus_ =     DeleteIdentityResponse'-    { _dirsStatus = pStatus_+    { _dirsResponseStatus = pResponseStatus_     }  -- | The response status code.-dirsStatus :: Lens' DeleteIdentityResponse Int-dirsStatus = lens _dirsStatus (\ s a -> s{_dirsStatus = a});+dirsResponseStatus :: Lens' DeleteIdentityResponse Int+dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a});

@@ -46,7 +46,7 @@     , deleteIdentityPolicyResponse     , DeleteIdentityPolicyResponse     -- * Response Lenses-    , diprsStatus+    , diprsResponseStatus     ) where  import           Network.AWS.Prelude@@ -125,22 +125,22 @@ -- -- /See:/ 'deleteIdentityPolicyResponse' smart constructor. newtype DeleteIdentityPolicyResponse = DeleteIdentityPolicyResponse'-    { _diprsStatus :: Int+    { _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: ----- * 'diprsStatus'+-- * 'diprsResponseStatus' deleteIdentityPolicyResponse-    :: Int -- ^ 'diprsStatus'+    :: Int -- ^ 'diprsResponseStatus'     -> DeleteIdentityPolicyResponse-deleteIdentityPolicyResponse pStatus_ =+deleteIdentityPolicyResponse pResponseStatus_ =     DeleteIdentityPolicyResponse'-    { _diprsStatus = pStatus_+    { _diprsResponseStatus = pResponseStatus_     }  -- | The response status code.-diprsStatus :: Lens' DeleteIdentityPolicyResponse Int-diprsStatus = lens _diprsStatus (\ s a -> s{_diprsStatus = a});+diprsResponseStatus :: Lens' DeleteIdentityPolicyResponse Int+diprsResponseStatus = lens _diprsResponseStatus (\ s a -> s{_diprsResponseStatus = a});

@@ -53,7 +53,7 @@     , getIdentityDkimAttributesResponse     , GetIdentityDkimAttributesResponse     -- * Response Lenses-    , gidarsStatus+    , gidarsResponseStatus     , gidarsDkimAttributes     ) where @@ -122,7 +122,7 @@ -- -- /See:/ 'getIdentityDkimAttributesResponse' smart constructor. data GetIdentityDkimAttributesResponse = GetIdentityDkimAttributesResponse'-    { _gidarsStatus         :: !Int+    { _gidarsResponseStatus :: !Int     , _gidarsDkimAttributes :: !(Map Text IdentityDkimAttributes)     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -130,21 +130,21 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gidarsStatus'+-- * 'gidarsResponseStatus' -- -- * 'gidarsDkimAttributes' getIdentityDkimAttributesResponse-    :: Int -- ^ 'gidarsStatus'+    :: Int -- ^ 'gidarsResponseStatus'     -> GetIdentityDkimAttributesResponse-getIdentityDkimAttributesResponse pStatus_ =+getIdentityDkimAttributesResponse pResponseStatus_ =     GetIdentityDkimAttributesResponse'-    { _gidarsStatus = pStatus_+    { _gidarsResponseStatus = pResponseStatus_     , _gidarsDkimAttributes = mempty     }  -- | The response status code.-gidarsStatus :: Lens' GetIdentityDkimAttributesResponse Int-gidarsStatus = lens _gidarsStatus (\ s a -> s{_gidarsStatus = a});+gidarsResponseStatus :: Lens' GetIdentityDkimAttributesResponse Int+gidarsResponseStatus = lens _gidarsResponseStatus (\ s a -> s{_gidarsResponseStatus = a});  -- | The DKIM attributes for an email address or a domain. gidarsDkimAttributes :: Lens' GetIdentityDkimAttributesResponse (HashMap Text IdentityDkimAttributes)

@@ -40,7 +40,7 @@     , getIdentityNotificationAttributesResponse     , GetIdentityNotificationAttributesResponse     -- * Response Lenses-    , ginarsStatus+    , ginarsResponseStatus     , ginarsNotificationAttributes     ) where @@ -112,7 +112,7 @@ -- -- /See:/ 'getIdentityNotificationAttributesResponse' smart constructor. data GetIdentityNotificationAttributesResponse = GetIdentityNotificationAttributesResponse'-    { _ginarsStatus                 :: !Int+    { _ginarsResponseStatus         :: !Int     , _ginarsNotificationAttributes :: !(Map Text IdentityNotificationAttributes)     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -120,21 +120,21 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ginarsStatus'+-- * 'ginarsResponseStatus' -- -- * 'ginarsNotificationAttributes' getIdentityNotificationAttributesResponse-    :: Int -- ^ 'ginarsStatus'+    :: Int -- ^ 'ginarsResponseStatus'     -> GetIdentityNotificationAttributesResponse-getIdentityNotificationAttributesResponse pStatus_ =+getIdentityNotificationAttributesResponse pResponseStatus_ =     GetIdentityNotificationAttributesResponse'-    { _ginarsStatus = pStatus_+    { _ginarsResponseStatus = pResponseStatus_     , _ginarsNotificationAttributes = mempty     }  -- | The response status code.-ginarsStatus :: Lens' GetIdentityNotificationAttributesResponse Int-ginarsStatus = lens _ginarsStatus (\ s a -> s{_ginarsStatus = a});+ginarsResponseStatus :: Lens' GetIdentityNotificationAttributesResponse Int+ginarsResponseStatus = lens _ginarsResponseStatus (\ s a -> s{_ginarsResponseStatus = a});  -- | A map of Identity to IdentityNotificationAttributes. ginarsNotificationAttributes :: Lens' GetIdentityNotificationAttributesResponse (HashMap Text IdentityNotificationAttributes)

@@ -47,7 +47,7 @@     , getIdentityPoliciesResponse     , GetIdentityPoliciesResponse     -- * Response Lenses-    , giprsStatus+    , giprsResponseStatus     , giprsPolicies     ) where @@ -130,29 +130,29 @@ -- -- /See:/ 'getIdentityPoliciesResponse' smart constructor. data GetIdentityPoliciesResponse = GetIdentityPoliciesResponse'-    { _giprsStatus   :: !Int-    , _giprsPolicies :: !(Map Text Text)+    { _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: ----- * 'giprsStatus'+-- * 'giprsResponseStatus' -- -- * 'giprsPolicies' getIdentityPoliciesResponse-    :: Int -- ^ 'giprsStatus'+    :: Int -- ^ 'giprsResponseStatus'     -> GetIdentityPoliciesResponse-getIdentityPoliciesResponse pStatus_ =+getIdentityPoliciesResponse pResponseStatus_ =     GetIdentityPoliciesResponse'-    { _giprsStatus = pStatus_+    { _giprsResponseStatus = pResponseStatus_     , _giprsPolicies = mempty     }  -- | The response status code.-giprsStatus :: Lens' GetIdentityPoliciesResponse Int-giprsStatus = lens _giprsStatus (\ s a -> s{_giprsStatus = a});+giprsResponseStatus :: Lens' GetIdentityPoliciesResponse Int+giprsResponseStatus = lens _giprsResponseStatus (\ s a -> s{_giprsResponseStatus = a});  -- | A map of policy names to policies. giprsPolicies :: Lens' GetIdentityPoliciesResponse (HashMap Text Text)

@@ -38,7 +38,7 @@     , getIdentityVerificationAttributesResponse     , GetIdentityVerificationAttributesResponse     -- * Response Lenses-    , givarsStatus+    , givarsResponseStatus     , givarsVerificationAttributes     ) where @@ -107,7 +107,7 @@ -- -- /See:/ 'getIdentityVerificationAttributesResponse' smart constructor. data GetIdentityVerificationAttributesResponse = GetIdentityVerificationAttributesResponse'-    { _givarsStatus                 :: !Int+    { _givarsResponseStatus         :: !Int     , _givarsVerificationAttributes :: !(Map Text IdentityVerificationAttributes)     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -115,21 +115,21 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'givarsStatus'+-- * 'givarsResponseStatus' -- -- * 'givarsVerificationAttributes' getIdentityVerificationAttributesResponse-    :: Int -- ^ 'givarsStatus'+    :: Int -- ^ 'givarsResponseStatus'     -> GetIdentityVerificationAttributesResponse-getIdentityVerificationAttributesResponse pStatus_ =+getIdentityVerificationAttributesResponse pResponseStatus_ =     GetIdentityVerificationAttributesResponse'-    { _givarsStatus = pStatus_+    { _givarsResponseStatus = pResponseStatus_     , _givarsVerificationAttributes = mempty     }  -- | The response status code.-givarsStatus :: Lens' GetIdentityVerificationAttributesResponse Int-givarsStatus = lens _givarsStatus (\ s a -> s{_givarsStatus = a});+givarsResponseStatus :: Lens' GetIdentityVerificationAttributesResponse Int+givarsResponseStatus = lens _givarsResponseStatus (\ s a -> s{_givarsResponseStatus = a});  -- | A map of Identities to IdentityVerificationAttributes objects. givarsVerificationAttributes :: Lens' GetIdentityVerificationAttributesResponse (HashMap Text IdentityVerificationAttributes)

@@ -36,7 +36,7 @@     , gsqrsMaxSendRate     , gsqrsSentLast24Hours     , gsqrsMax24HourSend-    , gsqrsStatus+    , gsqrsResponseStatus     ) where  import           Network.AWS.Prelude@@ -88,7 +88,7 @@     { _gsqrsMaxSendRate     :: !(Maybe Double)     , _gsqrsSentLast24Hours :: !(Maybe Double)     , _gsqrsMax24HourSend   :: !(Maybe Double)-    , _gsqrsStatus          :: !Int+    , _gsqrsResponseStatus  :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetSendQuotaResponse' with the minimum fields required to make a request.@@ -101,16 +101,16 @@ -- -- * 'gsqrsMax24HourSend' ----- * 'gsqrsStatus'+-- * 'gsqrsResponseStatus' getSendQuotaResponse-    :: Int -- ^ 'gsqrsStatus'+    :: Int -- ^ 'gsqrsResponseStatus'     -> GetSendQuotaResponse-getSendQuotaResponse pStatus_ =+getSendQuotaResponse pResponseStatus_ =     GetSendQuotaResponse'     { _gsqrsMaxSendRate = Nothing     , _gsqrsSentLast24Hours = Nothing     , _gsqrsMax24HourSend = Nothing-    , _gsqrsStatus = pStatus_+    , _gsqrsResponseStatus = pResponseStatus_     }  -- | The maximum number of emails that Amazon SES can accept from the user\'s@@ -131,5 +131,5 @@ gsqrsMax24HourSend = lens _gsqrsMax24HourSend (\ s a -> s{_gsqrsMax24HourSend = a});  -- | The response status code.-gsqrsStatus :: Lens' GetSendQuotaResponse Int-gsqrsStatus = lens _gsqrsStatus (\ s a -> s{_gsqrsStatus = a});+gsqrsResponseStatus :: Lens' GetSendQuotaResponse Int+gsqrsResponseStatus = lens _gsqrsResponseStatus (\ s a -> s{_gsqrsResponseStatus = a});

@@ -38,7 +38,7 @@     , GetSendStatisticsResponse     -- * Response Lenses     , gssrsSendDataPoints-    , gssrsStatus+    , gssrsResponseStatus     ) where  import           Network.AWS.Prelude@@ -89,7 +89,7 @@ -- /See:/ 'getSendStatisticsResponse' smart constructor. data GetSendStatisticsResponse = GetSendStatisticsResponse'     { _gssrsSendDataPoints :: !(Maybe [SendDataPoint])-    , _gssrsStatus         :: !Int+    , _gssrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetSendStatisticsResponse' with the minimum fields required to make a request.@@ -98,14 +98,14 @@ -- -- * 'gssrsSendDataPoints' ----- * 'gssrsStatus'+-- * 'gssrsResponseStatus' getSendStatisticsResponse-    :: Int -- ^ 'gssrsStatus'+    :: Int -- ^ 'gssrsResponseStatus'     -> GetSendStatisticsResponse-getSendStatisticsResponse pStatus_ =+getSendStatisticsResponse pResponseStatus_ =     GetSendStatisticsResponse'     { _gssrsSendDataPoints = Nothing-    , _gssrsStatus = pStatus_+    , _gssrsResponseStatus = pResponseStatus_     }  -- | A list of data points, each of which represents 15 minutes of activity.@@ -113,5 +113,5 @@ gssrsSendDataPoints = lens _gssrsSendDataPoints (\ s a -> s{_gssrsSendDataPoints = a}) . _Default . _Coerce;  -- | The response status code.-gssrsStatus :: Lens' GetSendStatisticsResponse Int-gssrsStatus = lens _gssrsStatus (\ s a -> s{_gssrsStatus = a});+gssrsResponseStatus :: Lens' GetSendStatisticsResponse Int+gssrsResponseStatus = lens _gssrsResponseStatus (\ s a -> s{_gssrsResponseStatus = a});

@@ -41,7 +41,7 @@     , ListIdentitiesResponse     -- * Response Lenses     , lirsNextToken-    , lirsStatus+    , lirsResponseStatus     , lirsIdentities     ) where @@ -132,9 +132,9 @@ -- -- /See:/ 'listIdentitiesResponse' smart constructor. data ListIdentitiesResponse = ListIdentitiesResponse'-    { _lirsNextToken  :: !(Maybe Text)-    , _lirsStatus     :: !Int-    , _lirsIdentities :: ![Text]+    { _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.@@ -143,16 +143,16 @@ -- -- * 'lirsNextToken' ----- * 'lirsStatus'+-- * 'lirsResponseStatus' -- -- * 'lirsIdentities' listIdentitiesResponse-    :: Int -- ^ 'lirsStatus'+    :: Int -- ^ 'lirsResponseStatus'     -> ListIdentitiesResponse-listIdentitiesResponse pStatus_ =+listIdentitiesResponse pResponseStatus_ =     ListIdentitiesResponse'     { _lirsNextToken = Nothing-    , _lirsStatus = pStatus_+    , _lirsResponseStatus = pResponseStatus_     , _lirsIdentities = mempty     } @@ -161,8 +161,8 @@ lirsNextToken = lens _lirsNextToken (\ s a -> s{_lirsNextToken = a});  -- | The response status code.-lirsStatus :: Lens' ListIdentitiesResponse Int-lirsStatus = lens _lirsStatus (\ s a -> s{_lirsStatus = a});+lirsResponseStatus :: Lens' ListIdentitiesResponse Int+lirsResponseStatus = lens _lirsResponseStatus (\ s a -> s{_lirsResponseStatus = a});  -- | A list of identities. lirsIdentities :: Lens' ListIdentitiesResponse [Text]

@@ -46,7 +46,7 @@     , listIdentityPoliciesResponse     , ListIdentityPoliciesResponse     -- * Response Lenses-    , liprsStatus+    , liprsResponseStatus     , liprsPolicyNames     ) where @@ -117,29 +117,29 @@ -- -- /See:/ 'listIdentityPoliciesResponse' smart constructor. data ListIdentityPoliciesResponse = ListIdentityPoliciesResponse'-    { _liprsStatus      :: !Int-    , _liprsPolicyNames :: ![Text]+    { _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: ----- * 'liprsStatus'+-- * 'liprsResponseStatus' -- -- * 'liprsPolicyNames' listIdentityPoliciesResponse-    :: Int -- ^ 'liprsStatus'+    :: Int -- ^ 'liprsResponseStatus'     -> ListIdentityPoliciesResponse-listIdentityPoliciesResponse pStatus_ =+listIdentityPoliciesResponse pResponseStatus_ =     ListIdentityPoliciesResponse'-    { _liprsStatus = pStatus_+    { _liprsResponseStatus = pResponseStatus_     , _liprsPolicyNames = mempty     }  -- | The response status code.-liprsStatus :: Lens' ListIdentityPoliciesResponse Int-liprsStatus = lens _liprsStatus (\ s a -> s{_liprsStatus = a});+liprsResponseStatus :: Lens' ListIdentityPoliciesResponse Int+liprsResponseStatus = lens _liprsResponseStatus (\ s a -> s{_liprsResponseStatus = a});  -- | A list of names of policies that apply to the specified identity. liprsPolicyNames :: Lens' ListIdentityPoliciesResponse [Text]

@@ -39,7 +39,7 @@     , ListVerifiedEmailAddressesResponse     -- * Response Lenses     , lvearsVerifiedEmailAddresses-    , lvearsStatus+    , lvearsResponseStatus     ) where  import           Network.AWS.Prelude@@ -92,7 +92,7 @@ -- /See:/ 'listVerifiedEmailAddressesResponse' smart constructor. data ListVerifiedEmailAddressesResponse = ListVerifiedEmailAddressesResponse'     { _lvearsVerifiedEmailAddresses :: !(Maybe [Text])-    , _lvearsStatus                 :: !Int+    , _lvearsResponseStatus         :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListVerifiedEmailAddressesResponse' with the minimum fields required to make a request.@@ -101,14 +101,14 @@ -- -- * 'lvearsVerifiedEmailAddresses' ----- * 'lvearsStatus'+-- * 'lvearsResponseStatus' listVerifiedEmailAddressesResponse-    :: Int -- ^ 'lvearsStatus'+    :: Int -- ^ 'lvearsResponseStatus'     -> ListVerifiedEmailAddressesResponse-listVerifiedEmailAddressesResponse pStatus_ =+listVerifiedEmailAddressesResponse pResponseStatus_ =     ListVerifiedEmailAddressesResponse'     { _lvearsVerifiedEmailAddresses = Nothing-    , _lvearsStatus = pStatus_+    , _lvearsResponseStatus = pResponseStatus_     }  -- | A list of email addresses that have been verified.@@ -116,5 +116,5 @@ lvearsVerifiedEmailAddresses = lens _lvearsVerifiedEmailAddresses (\ s a -> s{_lvearsVerifiedEmailAddresses = a}) . _Default . _Coerce;  -- | The response status code.-lvearsStatus :: Lens' ListVerifiedEmailAddressesResponse Int-lvearsStatus = lens _lvearsStatus (\ s a -> s{_lvearsStatus = a});+lvearsResponseStatus :: Lens' ListVerifiedEmailAddressesResponse Int+lvearsResponseStatus = lens _lvearsResponseStatus (\ s a -> s{_lvearsResponseStatus = a});

@@ -46,7 +46,7 @@     , putIdentityPolicyResponse     , PutIdentityPolicyResponse     -- * Response Lenses-    , piprsStatus+    , piprsResponseStatus     ) where  import           Network.AWS.Prelude@@ -138,22 +138,22 @@ -- -- /See:/ 'putIdentityPolicyResponse' smart constructor. newtype PutIdentityPolicyResponse = PutIdentityPolicyResponse'-    { _piprsStatus :: Int+    { _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: ----- * 'piprsStatus'+-- * 'piprsResponseStatus' putIdentityPolicyResponse-    :: Int -- ^ 'piprsStatus'+    :: Int -- ^ 'piprsResponseStatus'     -> PutIdentityPolicyResponse-putIdentityPolicyResponse pStatus_ =+putIdentityPolicyResponse pResponseStatus_ =     PutIdentityPolicyResponse'-    { _piprsStatus = pStatus_+    { _piprsResponseStatus = pResponseStatus_     }  -- | The response status code.-piprsStatus :: Lens' PutIdentityPolicyResponse Int-piprsStatus = lens _piprsStatus (\ s a -> s{_piprsStatus = a});+piprsResponseStatus :: Lens' PutIdentityPolicyResponse Int+piprsResponseStatus = lens _piprsResponseStatus (\ s a -> s{_piprsResponseStatus = a});

@@ -63,7 +63,7 @@     , sendEmailResponse     , SendEmailResponse     -- * Response Lenses-    , sersStatus+    , sersResponseStatus     , sersMessageId     ) where @@ -237,30 +237,30 @@ -- -- /See:/ 'sendEmailResponse' smart constructor. data SendEmailResponse = SendEmailResponse'-    { _sersStatus    :: !Int-    , _sersMessageId :: !Text+    { _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: ----- * 'sersStatus'+-- * 'sersResponseStatus' -- -- * 'sersMessageId' sendEmailResponse-    :: Int -- ^ 'sersStatus'+    :: Int -- ^ 'sersResponseStatus'     -> Text -- ^ 'sersMessageId'     -> SendEmailResponse-sendEmailResponse pStatus_ pMessageId_ =+sendEmailResponse pResponseStatus_ pMessageId_ =     SendEmailResponse'-    { _sersStatus = pStatus_+    { _sersResponseStatus = pResponseStatus_     , _sersMessageId = pMessageId_     }  -- | The response status code.-sersStatus :: Lens' SendEmailResponse Int-sersStatus = lens _sersStatus (\ s a -> s{_sersStatus = a});+sersResponseStatus :: Lens' SendEmailResponse Int+sersResponseStatus = lens _sersResponseStatus (\ s a -> s{_sersResponseStatus = a});  -- | The unique message identifier returned from the 'SendEmail' action. sersMessageId :: Lens' SendEmailResponse Text

@@ -88,7 +88,7 @@     , sendRawEmailResponse     , SendRawEmailResponse     -- * Response Lenses-    , srersStatus+    , srersResponseStatus     , srersMessageId     ) where @@ -272,30 +272,30 @@ -- -- /See:/ 'sendRawEmailResponse' smart constructor. data SendRawEmailResponse = SendRawEmailResponse'-    { _srersStatus    :: !Int-    , _srersMessageId :: !Text+    { _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: ----- * 'srersStatus'+-- * 'srersResponseStatus' -- -- * 'srersMessageId' sendRawEmailResponse-    :: Int -- ^ 'srersStatus'+    :: Int -- ^ 'srersResponseStatus'     -> Text -- ^ 'srersMessageId'     -> SendRawEmailResponse-sendRawEmailResponse pStatus_ pMessageId_ =+sendRawEmailResponse pResponseStatus_ pMessageId_ =     SendRawEmailResponse'-    { _srersStatus = pStatus_+    { _srersResponseStatus = pResponseStatus_     , _srersMessageId = pMessageId_     }  -- | The response status code.-srersStatus :: Lens' SendRawEmailResponse Int-srersStatus = lens _srersStatus (\ s a -> s{_srersStatus = a});+srersResponseStatus :: Lens' SendRawEmailResponse Int+srersResponseStatus = lens _srersResponseStatus (\ s a -> s{_srersResponseStatus = a});  -- | The unique message identifier returned from the 'SendRawEmail' action. srersMessageId :: Lens' SendRawEmailResponse Text

@@ -50,7 +50,7 @@     , setIdentityDkimEnabledResponse     , SetIdentityDkimEnabledResponse     -- * Response Lenses-    , sidersStatus+    , sidersResponseStatus     ) where  import           Network.AWS.Prelude@@ -124,22 +124,22 @@ -- -- /See:/ 'setIdentityDkimEnabledResponse' smart constructor. newtype SetIdentityDkimEnabledResponse = SetIdentityDkimEnabledResponse'-    { _sidersStatus :: Int+    { _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: ----- * 'sidersStatus'+-- * 'sidersResponseStatus' setIdentityDkimEnabledResponse-    :: Int -- ^ 'sidersStatus'+    :: Int -- ^ 'sidersResponseStatus'     -> SetIdentityDkimEnabledResponse-setIdentityDkimEnabledResponse pStatus_ =+setIdentityDkimEnabledResponse pResponseStatus_ =     SetIdentityDkimEnabledResponse'-    { _sidersStatus = pStatus_+    { _sidersResponseStatus = pResponseStatus_     }  -- | The response status code.-sidersStatus :: Lens' SetIdentityDkimEnabledResponse Int-sidersStatus = lens _sidersStatus (\ s a -> s{_sidersStatus = a});+sidersResponseStatus :: Lens' SetIdentityDkimEnabledResponse Int+sidersResponseStatus = lens _sidersResponseStatus (\ s a -> s{_sidersResponseStatus = a});

@@ -46,7 +46,7 @@     , setIdentityFeedbackForwardingEnabledResponse     , SetIdentityFeedbackForwardingEnabledResponse     -- * Response Lenses-    , siffersStatus+    , siffersResponseStatus     ) where  import           Network.AWS.Prelude@@ -129,22 +129,22 @@ -- -- /See:/ 'setIdentityFeedbackForwardingEnabledResponse' smart constructor. newtype SetIdentityFeedbackForwardingEnabledResponse = SetIdentityFeedbackForwardingEnabledResponse'-    { _siffersStatus :: Int+    { _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: ----- * 'siffersStatus'+-- * 'siffersResponseStatus' setIdentityFeedbackForwardingEnabledResponse-    :: Int -- ^ 'siffersStatus'+    :: Int -- ^ 'siffersResponseStatus'     -> SetIdentityFeedbackForwardingEnabledResponse-setIdentityFeedbackForwardingEnabledResponse pStatus_ =+setIdentityFeedbackForwardingEnabledResponse pResponseStatus_ =     SetIdentityFeedbackForwardingEnabledResponse'-    { _siffersStatus = pStatus_+    { _siffersResponseStatus = pResponseStatus_     }  -- | The response status code.-siffersStatus :: Lens' SetIdentityFeedbackForwardingEnabledResponse Int-siffersStatus = lens _siffersStatus (\ s a -> s{_siffersStatus = a});+siffersResponseStatus :: Lens' SetIdentityFeedbackForwardingEnabledResponse Int+siffersResponseStatus = lens _siffersResponseStatus (\ s a -> s{_siffersResponseStatus = a});

@@ -47,7 +47,7 @@     , setIdentityNotificationTopicResponse     , SetIdentityNotificationTopicResponse     -- * Response Lenses-    , sintrsStatus+    , sintrsResponseStatus     ) where  import           Network.AWS.Prelude@@ -136,22 +136,22 @@ -- -- /See:/ 'setIdentityNotificationTopicResponse' smart constructor. newtype SetIdentityNotificationTopicResponse = SetIdentityNotificationTopicResponse'-    { _sintrsStatus :: Int+    { _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: ----- * 'sintrsStatus'+-- * 'sintrsResponseStatus' setIdentityNotificationTopicResponse-    :: Int -- ^ 'sintrsStatus'+    :: Int -- ^ 'sintrsResponseStatus'     -> SetIdentityNotificationTopicResponse-setIdentityNotificationTopicResponse pStatus_ =+setIdentityNotificationTopicResponse pResponseStatus_ =     SetIdentityNotificationTopicResponse'-    { _sintrsStatus = pStatus_+    { _sintrsResponseStatus = pResponseStatus_     }  -- | The response status code.-sintrsStatus :: Lens' SetIdentityNotificationTopicResponse Int-sintrsStatus = lens _sintrsStatus (\ s a -> s{_sintrsStatus = a});+sintrsResponseStatus :: Lens' SetIdentityNotificationTopicResponse Int+sintrsResponseStatus = lens _sintrsResponseStatus (\ s a -> s{_sintrsResponseStatus = a});

@@ -48,7 +48,7 @@     , verifyDomainDkimResponse     , VerifyDomainDkimResponse     -- * Response Lenses-    , vddrsStatus+    , vddrsResponseStatus     , vddrsDkimTokens     ) where @@ -112,29 +112,29 @@ -- -- /See:/ 'verifyDomainDkimResponse' smart constructor. data VerifyDomainDkimResponse = VerifyDomainDkimResponse'-    { _vddrsStatus     :: !Int-    , _vddrsDkimTokens :: ![Text]+    { _vddrsResponseStatus :: !Int+    , _vddrsDkimTokens     :: ![Text]     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'VerifyDomainDkimResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'vddrsStatus'+-- * 'vddrsResponseStatus' -- -- * 'vddrsDkimTokens' verifyDomainDkimResponse-    :: Int -- ^ 'vddrsStatus'+    :: Int -- ^ 'vddrsResponseStatus'     -> VerifyDomainDkimResponse-verifyDomainDkimResponse pStatus_ =+verifyDomainDkimResponse pResponseStatus_ =     VerifyDomainDkimResponse'-    { _vddrsStatus = pStatus_+    { _vddrsResponseStatus = pResponseStatus_     , _vddrsDkimTokens = mempty     }  -- | The response status code.-vddrsStatus :: Lens' VerifyDomainDkimResponse Int-vddrsStatus = lens _vddrsStatus (\ s a -> s{_vddrsStatus = a});+vddrsResponseStatus :: Lens' VerifyDomainDkimResponse Int+vddrsResponseStatus = lens _vddrsResponseStatus (\ s a -> s{_vddrsResponseStatus = a});  -- | A set of character strings that represent the domain\'s identity. If the -- identity is an email address, the tokens represent the domain of that

@@ -35,7 +35,7 @@     , verifyDomainIdentityResponse     , VerifyDomainIdentityResponse     -- * Response Lenses-    , vdirsStatus+    , vdirsResponseStatus     , vdirsVerificationToken     ) where @@ -97,7 +97,7 @@ -- -- /See:/ 'verifyDomainIdentityResponse' smart constructor. data VerifyDomainIdentityResponse = VerifyDomainIdentityResponse'-    { _vdirsStatus            :: !Int+    { _vdirsResponseStatus    :: !Int     , _vdirsVerificationToken :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -105,22 +105,22 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'vdirsStatus'+-- * 'vdirsResponseStatus' -- -- * 'vdirsVerificationToken' verifyDomainIdentityResponse-    :: Int -- ^ 'vdirsStatus'+    :: Int -- ^ 'vdirsResponseStatus'     -> Text -- ^ 'vdirsVerificationToken'     -> VerifyDomainIdentityResponse-verifyDomainIdentityResponse pStatus_ pVerificationToken_ =+verifyDomainIdentityResponse pResponseStatus_ pVerificationToken_ =     VerifyDomainIdentityResponse'-    { _vdirsStatus = pStatus_+    { _vdirsResponseStatus = pResponseStatus_     , _vdirsVerificationToken = pVerificationToken_     }  -- | The response status code.-vdirsStatus :: Lens' VerifyDomainIdentityResponse Int-vdirsStatus = lens _vdirsStatus (\ s a -> s{_vdirsStatus = a});+vdirsResponseStatus :: Lens' VerifyDomainIdentityResponse Int+vdirsResponseStatus = lens _vdirsResponseStatus (\ s a -> s{_vdirsResponseStatus = a});  -- | A TXT record that must be placed in the DNS settings for the domain, in -- order to complete domain verification.

@@ -36,7 +36,7 @@     , verifyEmailIdentityResponse     , VerifyEmailIdentityResponse     -- * Response Lenses-    , veirsStatus+    , veirsResponseStatus     ) where  import           Network.AWS.Prelude@@ -97,22 +97,22 @@ -- -- /See:/ 'verifyEmailIdentityResponse' smart constructor. newtype VerifyEmailIdentityResponse = VerifyEmailIdentityResponse'-    { _veirsStatus :: Int+    { _veirsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'VerifyEmailIdentityResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'veirsStatus'+-- * 'veirsResponseStatus' verifyEmailIdentityResponse-    :: Int -- ^ 'veirsStatus'+    :: Int -- ^ 'veirsResponseStatus'     -> VerifyEmailIdentityResponse-verifyEmailIdentityResponse pStatus_ =+verifyEmailIdentityResponse pResponseStatus_ =     VerifyEmailIdentityResponse'-    { _veirsStatus = pStatus_+    { _veirsResponseStatus = pResponseStatus_     }  -- | The response status code.-veirsStatus :: Lens' VerifyEmailIdentityResponse Int-veirsStatus = lens _veirsStatus (\ s a -> s{_veirsStatus = a});+veirsResponseStatus :: Lens' VerifyEmailIdentityResponse Int+veirsResponseStatus = lens _veirsResponseStatus (\ s a -> s{_veirsResponseStatus = a});

@@ -31,14 +31,11 @@ --         [ testGetSendQuota $ --             getSendQuota -----         , testDeleteIdentityPolicy $---             deleteIdentityPolicy--- --         , testPutIdentityPolicy $ --             putIdentityPolicy -----         , testSetIdentityDkimEnabled $---             setIdentityDkimEnabled+--         , testDeleteIdentityPolicy $+--             deleteIdentityPolicy -- --         , testGetIdentityNotificationAttributes $ --             getIdentityNotificationAttributes@@ -46,6 +43,9 @@ --         , testListIdentityPolicies $ --             listIdentityPolicies --+--         , testSetIdentityDkimEnabled $+--             setIdentityDkimEnabled+-- --         , testSetIdentityFeedbackForwardingEnabled $ --             setIdentityFeedbackForwardingEnabled --@@ -58,35 +58,32 @@ --         , testVerifyDomainIdentity $ --             verifyDomainIdentity --+--         , testGetIdentityDkimAttributes $+--             getIdentityDkimAttributes+-- --         , testVerifyDomainDkim $ --             verifyDomainDkim -- --         , testSendRawEmail $ --             sendRawEmail -----         , testGetIdentityDkimAttributes $---             getIdentityDkimAttributes+--         , testGetSendStatistics $+--             getSendStatistics -- --         , testDeleteIdentity $ --             deleteIdentity -----         , testGetSendStatistics $---             getSendStatistics--- --         , testListIdentities $ --             listIdentities -----         , testDeleteVerifiedEmailAddress $---             deleteVerifiedEmailAddress+--         , testVerifyEmailIdentity $+--             verifyEmailIdentity -- --         , testVerifyEmailAddress $ --             verifyEmailAddress -----         , testVerifyEmailIdentity $---             verifyEmailIdentity------         , testSendEmail $---             sendEmail+--         , testDeleteVerifiedEmailAddress $+--             deleteVerifiedEmailAddress -- --         , testListVerifiedEmailAddresses $ --             listVerifiedEmailAddresses@@ -94,20 +91,20 @@ --         , testSetIdentityNotificationTopic $ --             setIdentityNotificationTopic --+--         , testSendEmail $+--             sendEmail+-- --           ]  --     , testGroup "response" --         [ testGetSendQuotaResponse $ --             getSendQuotaResponse -----         , testDeleteIdentityPolicyResponse $---             deleteIdentityPolicyResponse--- --         , testPutIdentityPolicyResponse $ --             putIdentityPolicyResponse -----         , testSetIdentityDkimEnabledResponse $---             setIdentityDkimEnabledResponse+--         , testDeleteIdentityPolicyResponse $+--             deleteIdentityPolicyResponse -- --         , testGetIdentityNotificationAttributesResponse $ --             getIdentityNotificationAttributesResponse@@ -115,6 +112,9 @@ --         , testListIdentityPoliciesResponse $ --             listIdentityPoliciesResponse --+--         , testSetIdentityDkimEnabledResponse $+--             setIdentityDkimEnabledResponse+-- --         , testSetIdentityFeedbackForwardingEnabledResponse $ --             setIdentityFeedbackForwardingEnabledResponse --@@ -127,35 +127,32 @@ --         , testVerifyDomainIdentityResponse $ --             verifyDomainIdentityResponse --+--         , testGetIdentityDkimAttributesResponse $+--             getIdentityDkimAttributesResponse+-- --         , testVerifyDomainDkimResponse $ --             verifyDomainDkimResponse -- --         , testSendRawEmailResponse $ --             sendRawEmailResponse -----         , testGetIdentityDkimAttributesResponse $---             getIdentityDkimAttributesResponse+--         , testGetSendStatisticsResponse $+--             getSendStatisticsResponse -- --         , testDeleteIdentityResponse $ --             deleteIdentityResponse -----         , testGetSendStatisticsResponse $---             getSendStatisticsResponse--- --         , testListIdentitiesResponse $ --             listIdentitiesResponse -----         , testDeleteVerifiedEmailAddressResponse $---             deleteVerifiedEmailAddressResponse+--         , testVerifyEmailIdentityResponse $+--             verifyEmailIdentityResponse -- --         , testVerifyEmailAddressResponse $ --             verifyEmailAddressResponse -----         , testVerifyEmailIdentityResponse $---             verifyEmailIdentityResponse------         , testSendEmailResponse $---             sendEmailResponse+--         , testDeleteVerifiedEmailAddressResponse $+--             deleteVerifiedEmailAddressResponse -- --         , testListVerifiedEmailAddressesResponse $ --             listVerifiedEmailAddressesResponse@@ -163,6 +160,9 @@ --         , testSetIdentityNotificationTopicResponse $ --             setIdentityNotificationTopicResponse --+--         , testSendEmailResponse $+--             sendEmailResponse+-- --           ] --     ] @@ -173,20 +173,15 @@     "GetSendQuota"     "fixture/GetSendQuota.yaml" -testDeleteIdentityPolicy :: DeleteIdentityPolicy -> TestTree-testDeleteIdentityPolicy = req-    "DeleteIdentityPolicy"-    "fixture/DeleteIdentityPolicy.yaml"- testPutIdentityPolicy :: PutIdentityPolicy -> TestTree testPutIdentityPolicy = req     "PutIdentityPolicy"     "fixture/PutIdentityPolicy.yaml" -testSetIdentityDkimEnabled :: SetIdentityDkimEnabled -> TestTree-testSetIdentityDkimEnabled = req-    "SetIdentityDkimEnabled"-    "fixture/SetIdentityDkimEnabled.yaml"+testDeleteIdentityPolicy :: DeleteIdentityPolicy -> TestTree+testDeleteIdentityPolicy = req+    "DeleteIdentityPolicy"+    "fixture/DeleteIdentityPolicy.yaml"  testGetIdentityNotificationAttributes :: GetIdentityNotificationAttributes -> TestTree testGetIdentityNotificationAttributes = req@@ -198,6 +193,11 @@     "ListIdentityPolicies"     "fixture/ListIdentityPolicies.yaml" +testSetIdentityDkimEnabled :: SetIdentityDkimEnabled -> TestTree+testSetIdentityDkimEnabled = req+    "SetIdentityDkimEnabled"+    "fixture/SetIdentityDkimEnabled.yaml"+ testSetIdentityFeedbackForwardingEnabled :: SetIdentityFeedbackForwardingEnabled -> TestTree testSetIdentityFeedbackForwardingEnabled = req     "SetIdentityFeedbackForwardingEnabled"@@ -218,6 +218,11 @@     "VerifyDomainIdentity"     "fixture/VerifyDomainIdentity.yaml" +testGetIdentityDkimAttributes :: GetIdentityDkimAttributes -> TestTree+testGetIdentityDkimAttributes = req+    "GetIdentityDkimAttributes"+    "fixture/GetIdentityDkimAttributes.yaml"+ testVerifyDomainDkim :: VerifyDomainDkim -> TestTree testVerifyDomainDkim = req     "VerifyDomainDkim"@@ -228,45 +233,35 @@     "SendRawEmail"     "fixture/SendRawEmail.yaml" -testGetIdentityDkimAttributes :: GetIdentityDkimAttributes -> TestTree-testGetIdentityDkimAttributes = req-    "GetIdentityDkimAttributes"-    "fixture/GetIdentityDkimAttributes.yaml"+testGetSendStatistics :: GetSendStatistics -> TestTree+testGetSendStatistics = req+    "GetSendStatistics"+    "fixture/GetSendStatistics.yaml"  testDeleteIdentity :: DeleteIdentity -> TestTree testDeleteIdentity = req     "DeleteIdentity"     "fixture/DeleteIdentity.yaml" -testGetSendStatistics :: GetSendStatistics -> TestTree-testGetSendStatistics = req-    "GetSendStatistics"-    "fixture/GetSendStatistics.yaml"- testListIdentities :: ListIdentities -> TestTree testListIdentities = req     "ListIdentities"     "fixture/ListIdentities.yaml" -testDeleteVerifiedEmailAddress :: DeleteVerifiedEmailAddress -> TestTree-testDeleteVerifiedEmailAddress = req-    "DeleteVerifiedEmailAddress"-    "fixture/DeleteVerifiedEmailAddress.yaml"+testVerifyEmailIdentity :: VerifyEmailIdentity -> TestTree+testVerifyEmailIdentity = req+    "VerifyEmailIdentity"+    "fixture/VerifyEmailIdentity.yaml"  testVerifyEmailAddress :: VerifyEmailAddress -> TestTree testVerifyEmailAddress = req     "VerifyEmailAddress"     "fixture/VerifyEmailAddress.yaml" -testVerifyEmailIdentity :: VerifyEmailIdentity -> TestTree-testVerifyEmailIdentity = req-    "VerifyEmailIdentity"-    "fixture/VerifyEmailIdentity.yaml"--testSendEmail :: SendEmail -> TestTree-testSendEmail = req-    "SendEmail"-    "fixture/SendEmail.yaml"+testDeleteVerifiedEmailAddress :: DeleteVerifiedEmailAddress -> TestTree+testDeleteVerifiedEmailAddress = req+    "DeleteVerifiedEmailAddress"+    "fixture/DeleteVerifiedEmailAddress.yaml"  testListVerifiedEmailAddresses :: ListVerifiedEmailAddresses -> TestTree testListVerifiedEmailAddresses = req@@ -278,6 +273,11 @@     "SetIdentityNotificationTopic"     "fixture/SetIdentityNotificationTopic.yaml" +testSendEmail :: SendEmail -> TestTree+testSendEmail = req+    "SendEmail"+    "fixture/SendEmail.yaml"+ -- Responses  testGetSendQuotaResponse :: GetSendQuotaResponse -> TestTree@@ -287,13 +287,6 @@     sES     (Proxy :: Proxy GetSendQuota) -testDeleteIdentityPolicyResponse :: DeleteIdentityPolicyResponse -> TestTree-testDeleteIdentityPolicyResponse = res-    "DeleteIdentityPolicyResponse"-    "fixture/DeleteIdentityPolicyResponse.proto"-    sES-    (Proxy :: Proxy DeleteIdentityPolicy)- testPutIdentityPolicyResponse :: PutIdentityPolicyResponse -> TestTree testPutIdentityPolicyResponse = res     "PutIdentityPolicyResponse"@@ -301,12 +294,12 @@     sES     (Proxy :: Proxy PutIdentityPolicy) -testSetIdentityDkimEnabledResponse :: SetIdentityDkimEnabledResponse -> TestTree-testSetIdentityDkimEnabledResponse = res-    "SetIdentityDkimEnabledResponse"-    "fixture/SetIdentityDkimEnabledResponse.proto"+testDeleteIdentityPolicyResponse :: DeleteIdentityPolicyResponse -> TestTree+testDeleteIdentityPolicyResponse = res+    "DeleteIdentityPolicyResponse"+    "fixture/DeleteIdentityPolicyResponse.proto"     sES-    (Proxy :: Proxy SetIdentityDkimEnabled)+    (Proxy :: Proxy DeleteIdentityPolicy)  testGetIdentityNotificationAttributesResponse :: GetIdentityNotificationAttributesResponse -> TestTree testGetIdentityNotificationAttributesResponse = res@@ -322,6 +315,13 @@     sES     (Proxy :: Proxy ListIdentityPolicies) +testSetIdentityDkimEnabledResponse :: SetIdentityDkimEnabledResponse -> TestTree+testSetIdentityDkimEnabledResponse = res+    "SetIdentityDkimEnabledResponse"+    "fixture/SetIdentityDkimEnabledResponse.proto"+    sES+    (Proxy :: Proxy SetIdentityDkimEnabled)+ testSetIdentityFeedbackForwardingEnabledResponse :: SetIdentityFeedbackForwardingEnabledResponse -> TestTree testSetIdentityFeedbackForwardingEnabledResponse = res     "SetIdentityFeedbackForwardingEnabledResponse"@@ -350,6 +350,13 @@     sES     (Proxy :: Proxy VerifyDomainIdentity) +testGetIdentityDkimAttributesResponse :: GetIdentityDkimAttributesResponse -> TestTree+testGetIdentityDkimAttributesResponse = res+    "GetIdentityDkimAttributesResponse"+    "fixture/GetIdentityDkimAttributesResponse.proto"+    sES+    (Proxy :: Proxy GetIdentityDkimAttributes)+ testVerifyDomainDkimResponse :: VerifyDomainDkimResponse -> TestTree testVerifyDomainDkimResponse = res     "VerifyDomainDkimResponse"@@ -364,12 +371,12 @@     sES     (Proxy :: Proxy SendRawEmail) -testGetIdentityDkimAttributesResponse :: GetIdentityDkimAttributesResponse -> TestTree-testGetIdentityDkimAttributesResponse = res-    "GetIdentityDkimAttributesResponse"-    "fixture/GetIdentityDkimAttributesResponse.proto"+testGetSendStatisticsResponse :: GetSendStatisticsResponse -> TestTree+testGetSendStatisticsResponse = res+    "GetSendStatisticsResponse"+    "fixture/GetSendStatisticsResponse.proto"     sES-    (Proxy :: Proxy GetIdentityDkimAttributes)+    (Proxy :: Proxy GetSendStatistics)  testDeleteIdentityResponse :: DeleteIdentityResponse -> TestTree testDeleteIdentityResponse = res@@ -378,13 +385,6 @@     sES     (Proxy :: Proxy DeleteIdentity) -testGetSendStatisticsResponse :: GetSendStatisticsResponse -> TestTree-testGetSendStatisticsResponse = res-    "GetSendStatisticsResponse"-    "fixture/GetSendStatisticsResponse.proto"-    sES-    (Proxy :: Proxy GetSendStatistics)- testListIdentitiesResponse :: ListIdentitiesResponse -> TestTree testListIdentitiesResponse = res     "ListIdentitiesResponse"@@ -392,12 +392,12 @@     sES     (Proxy :: Proxy ListIdentities) -testDeleteVerifiedEmailAddressResponse :: DeleteVerifiedEmailAddressResponse -> TestTree-testDeleteVerifiedEmailAddressResponse = res-    "DeleteVerifiedEmailAddressResponse"-    "fixture/DeleteVerifiedEmailAddressResponse.proto"+testVerifyEmailIdentityResponse :: VerifyEmailIdentityResponse -> TestTree+testVerifyEmailIdentityResponse = res+    "VerifyEmailIdentityResponse"+    "fixture/VerifyEmailIdentityResponse.proto"     sES-    (Proxy :: Proxy DeleteVerifiedEmailAddress)+    (Proxy :: Proxy VerifyEmailIdentity)  testVerifyEmailAddressResponse :: VerifyEmailAddressResponse -> TestTree testVerifyEmailAddressResponse = res@@ -406,19 +406,12 @@     sES     (Proxy :: Proxy VerifyEmailAddress) -testVerifyEmailIdentityResponse :: VerifyEmailIdentityResponse -> TestTree-testVerifyEmailIdentityResponse = res-    "VerifyEmailIdentityResponse"-    "fixture/VerifyEmailIdentityResponse.proto"-    sES-    (Proxy :: Proxy VerifyEmailIdentity)--testSendEmailResponse :: SendEmailResponse -> TestTree-testSendEmailResponse = res-    "SendEmailResponse"-    "fixture/SendEmailResponse.proto"+testDeleteVerifiedEmailAddressResponse :: DeleteVerifiedEmailAddressResponse -> TestTree+testDeleteVerifiedEmailAddressResponse = res+    "DeleteVerifiedEmailAddressResponse"+    "fixture/DeleteVerifiedEmailAddressResponse.proto"     sES-    (Proxy :: Proxy SendEmail)+    (Proxy :: Proxy DeleteVerifiedEmailAddress)  testListVerifiedEmailAddressesResponse :: ListVerifiedEmailAddressesResponse -> TestTree testListVerifiedEmailAddressesResponse = res@@ -433,3 +426,10 @@     "fixture/SetIdentityNotificationTopicResponse.proto"     sES     (Proxy :: Proxy SetIdentityNotificationTopic)++testSendEmailResponse :: SendEmailResponse -> TestTree+testSendEmailResponse = res+    "SendEmailResponse"+    "fixture/SendEmailResponse.proto"+    sES+    (Proxy :: Proxy SendEmail)