diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -8,7 +8,7 @@
 
 ## Version
 
-`1.4.0`
+`1.4.1`
 
 
 ## 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.4.0
+version:               1.4.1
 synopsis:              Amazon Simple Email Service SDK.
 homepage:              https://github.com/brendanhay/amazonka
 bug-reports:           https://github.com/brendanhay/amazonka/issues
@@ -98,7 +98,7 @@
         , Network.AWS.SES.Types.Sum
 
     build-depends:
-          amazonka-core == 1.4.0.*
+          amazonka-core == 1.4.1.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-ses-test
@@ -118,9 +118,9 @@
         , Test.AWS.SES.Internal
 
     build-depends:
-          amazonka-core == 1.4.0.*
-        , amazonka-test == 1.4.0.*
-        , amazonka-ses == 1.4.0.*
+          amazonka-core == 1.4.1.*
+        , amazonka-test == 1.4.1.*
+        , amazonka-ses == 1.4.1.*
         , base
         , bytestring
         , tasty
diff --git a/gen/Network/AWS/SES/CloneReceiptRuleSet.hs b/gen/Network/AWS/SES/CloneReceiptRuleSet.hs
--- a/gen/Network/AWS/SES/CloneReceiptRuleSet.hs
+++ b/gen/Network/AWS/SES/CloneReceiptRuleSet.hs
@@ -96,6 +96,8 @@
 
 instance Hashable CloneReceiptRuleSet
 
+instance NFData CloneReceiptRuleSet
+
 instance ToHeaders CloneReceiptRuleSet where
         toHeaders = const mempty
 
@@ -131,3 +133,5 @@
 -- | The response status code.
 crsResponseStatus :: Lens' CloneReceiptRuleSetResponse Int
 crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a});
+
+instance NFData CloneReceiptRuleSetResponse
diff --git a/gen/Network/AWS/SES/CreateReceiptFilter.hs b/gen/Network/AWS/SES/CreateReceiptFilter.hs
--- a/gen/Network/AWS/SES/CreateReceiptFilter.hs
+++ b/gen/Network/AWS/SES/CreateReceiptFilter.hs
@@ -81,6 +81,8 @@
 
 instance Hashable CreateReceiptFilter
 
+instance NFData CreateReceiptFilter
+
 instance ToHeaders CreateReceiptFilter where
         toHeaders = const mempty
 
@@ -115,3 +117,5 @@
 -- | The response status code.
 crfrsResponseStatus :: Lens' CreateReceiptFilterResponse Int
 crfrsResponseStatus = lens _crfrsResponseStatus (\ s a -> s{_crfrsResponseStatus = a});
+
+instance NFData CreateReceiptFilterResponse
diff --git a/gen/Network/AWS/SES/CreateReceiptRule.hs b/gen/Network/AWS/SES/CreateReceiptRule.hs
--- a/gen/Network/AWS/SES/CreateReceiptRule.hs
+++ b/gen/Network/AWS/SES/CreateReceiptRule.hs
@@ -100,6 +100,8 @@
 
 instance Hashable CreateReceiptRule
 
+instance NFData CreateReceiptRule
+
 instance ToHeaders CreateReceiptRule where
         toHeaders = const mempty
 
@@ -135,3 +137,5 @@
 -- | The response status code.
 crrrsResponseStatus :: Lens' CreateReceiptRuleResponse Int
 crrrsResponseStatus = lens _crrrsResponseStatus (\ s a -> s{_crrrsResponseStatus = a});
+
+instance NFData CreateReceiptRuleResponse
diff --git a/gen/Network/AWS/SES/CreateReceiptRuleSet.hs b/gen/Network/AWS/SES/CreateReceiptRuleSet.hs
--- a/gen/Network/AWS/SES/CreateReceiptRuleSet.hs
+++ b/gen/Network/AWS/SES/CreateReceiptRuleSet.hs
@@ -85,6 +85,8 @@
 
 instance Hashable CreateReceiptRuleSet
 
+instance NFData CreateReceiptRuleSet
+
 instance ToHeaders CreateReceiptRuleSet where
         toHeaders = const mempty
 
@@ -119,3 +121,5 @@
 -- | The response status code.
 crrsrsResponseStatus :: Lens' CreateReceiptRuleSetResponse Int
 crrsrsResponseStatus = lens _crrsrsResponseStatus (\ s a -> s{_crrsrsResponseStatus = a});
+
+instance NFData CreateReceiptRuleSetResponse
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
@@ -77,6 +77,8 @@
 
 instance Hashable DeleteIdentity
 
+instance NFData DeleteIdentity
+
 instance ToHeaders DeleteIdentity where
         toHeaders = const mempty
 
@@ -111,3 +113,5 @@
 -- | The response status code.
 dirsResponseStatus :: Lens' DeleteIdentityResponse Int
 dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a});
+
+instance NFData DeleteIdentityResponse
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
@@ -102,6 +102,8 @@
 
 instance Hashable DeleteIdentityPolicy
 
+instance NFData DeleteIdentityPolicy
+
 instance ToHeaders DeleteIdentityPolicy where
         toHeaders = const mempty
 
@@ -137,3 +139,5 @@
 -- | The response status code.
 diprsResponseStatus :: Lens' DeleteIdentityPolicyResponse Int
 diprsResponseStatus = lens _diprsResponseStatus (\ s a -> s{_diprsResponseStatus = a});
+
+instance NFData DeleteIdentityPolicyResponse
diff --git a/gen/Network/AWS/SES/DeleteReceiptFilter.hs b/gen/Network/AWS/SES/DeleteReceiptFilter.hs
--- a/gen/Network/AWS/SES/DeleteReceiptFilter.hs
+++ b/gen/Network/AWS/SES/DeleteReceiptFilter.hs
@@ -79,6 +79,8 @@
 
 instance Hashable DeleteReceiptFilter
 
+instance NFData DeleteReceiptFilter
+
 instance ToHeaders DeleteReceiptFilter where
         toHeaders = const mempty
 
@@ -113,3 +115,5 @@
 -- | The response status code.
 drfrsResponseStatus :: Lens' DeleteReceiptFilterResponse Int
 drfrsResponseStatus = lens _drfrsResponseStatus (\ s a -> s{_drfrsResponseStatus = a});
+
+instance NFData DeleteReceiptFilterResponse
diff --git a/gen/Network/AWS/SES/DeleteReceiptRule.hs b/gen/Network/AWS/SES/DeleteReceiptRule.hs
--- a/gen/Network/AWS/SES/DeleteReceiptRule.hs
+++ b/gen/Network/AWS/SES/DeleteReceiptRule.hs
@@ -89,6 +89,8 @@
 
 instance Hashable DeleteReceiptRule
 
+instance NFData DeleteReceiptRule
+
 instance ToHeaders DeleteReceiptRule where
         toHeaders = const mempty
 
@@ -124,3 +126,5 @@
 -- | The response status code.
 drsResponseStatus :: Lens' DeleteReceiptRuleResponse Int
 drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});
+
+instance NFData DeleteReceiptRuleResponse
diff --git a/gen/Network/AWS/SES/DeleteReceiptRuleSet.hs b/gen/Network/AWS/SES/DeleteReceiptRuleSet.hs
--- a/gen/Network/AWS/SES/DeleteReceiptRuleSet.hs
+++ b/gen/Network/AWS/SES/DeleteReceiptRuleSet.hs
@@ -83,6 +83,8 @@
 
 instance Hashable DeleteReceiptRuleSet
 
+instance NFData DeleteReceiptRuleSet
+
 instance ToHeaders DeleteReceiptRuleSet where
         toHeaders = const mempty
 
@@ -117,3 +119,5 @@
 -- | The response status code.
 drrsrsResponseStatus :: Lens' DeleteReceiptRuleSetResponse Int
 drrsrsResponseStatus = lens _drrsrsResponseStatus (\ s a -> s{_drrsrsResponseStatus = a});
+
+instance NFData DeleteReceiptRuleSetResponse
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
@@ -76,6 +76,8 @@
 
 instance Hashable DeleteVerifiedEmailAddress
 
+instance NFData DeleteVerifiedEmailAddress
+
 instance ToHeaders DeleteVerifiedEmailAddress where
         toHeaders = const mempty
 
@@ -100,3 +102,5 @@
 deleteVerifiedEmailAddressResponse
     :: DeleteVerifiedEmailAddressResponse
 deleteVerifiedEmailAddressResponse = DeleteVerifiedEmailAddressResponse'
+
+instance NFData DeleteVerifiedEmailAddressResponse
diff --git a/gen/Network/AWS/SES/DescribeActiveReceiptRuleSet.hs b/gen/Network/AWS/SES/DescribeActiveReceiptRuleSet.hs
--- a/gen/Network/AWS/SES/DescribeActiveReceiptRuleSet.hs
+++ b/gen/Network/AWS/SES/DescribeActiveReceiptRuleSet.hs
@@ -75,6 +75,8 @@
 
 instance Hashable DescribeActiveReceiptRuleSet
 
+instance NFData DescribeActiveReceiptRuleSet
+
 instance ToHeaders DescribeActiveReceiptRuleSet where
         toHeaders = const mempty
 
@@ -128,3 +130,5 @@
 -- | The response status code.
 darrsrsResponseStatus :: Lens' DescribeActiveReceiptRuleSetResponse Int
 darrsrsResponseStatus = lens _darrsrsResponseStatus (\ s a -> s{_darrsrsResponseStatus = a});
+
+instance NFData DescribeActiveReceiptRuleSetResponse
diff --git a/gen/Network/AWS/SES/DescribeReceiptRule.hs b/gen/Network/AWS/SES/DescribeReceiptRule.hs
--- a/gen/Network/AWS/SES/DescribeReceiptRule.hs
+++ b/gen/Network/AWS/SES/DescribeReceiptRule.hs
@@ -91,6 +91,8 @@
 
 instance Hashable DescribeReceiptRule
 
+instance NFData DescribeReceiptRule
+
 instance ToHeaders DescribeReceiptRule where
         toHeaders = const mempty
 
@@ -136,3 +138,5 @@
 -- | The response status code.
 drrrsResponseStatus :: Lens' DescribeReceiptRuleResponse Int
 drrrsResponseStatus = lens _drrrsResponseStatus (\ s a -> s{_drrrsResponseStatus = a});
+
+instance NFData DescribeReceiptRuleResponse
diff --git a/gen/Network/AWS/SES/DescribeReceiptRuleSet.hs b/gen/Network/AWS/SES/DescribeReceiptRuleSet.hs
--- a/gen/Network/AWS/SES/DescribeReceiptRuleSet.hs
+++ b/gen/Network/AWS/SES/DescribeReceiptRuleSet.hs
@@ -85,6 +85,8 @@
 
 instance Hashable DescribeReceiptRuleSet
 
+instance NFData DescribeReceiptRuleSet
+
 instance ToHeaders DescribeReceiptRuleSet where
         toHeaders = const mempty
 
@@ -138,3 +140,5 @@
 -- | The response status code.
 desrsResponseStatus :: Lens' DescribeReceiptRuleSetResponse Int
 desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a});
+
+instance NFData DescribeReceiptRuleSetResponse
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
@@ -98,6 +98,8 @@
 
 instance Hashable GetIdentityDkimAttributes
 
+instance NFData GetIdentityDkimAttributes
+
 instance ToHeaders GetIdentityDkimAttributes where
         toHeaders = const mempty
 
@@ -141,3 +143,5 @@
 -- | The DKIM attributes for an email address or a domain.
 gidarsDkimAttributes :: Lens' GetIdentityDkimAttributesResponse (HashMap Text IdentityDkimAttributes)
 gidarsDkimAttributes = lens _gidarsDkimAttributes (\ s a -> s{_gidarsDkimAttributes = a}) . _Map;
+
+instance NFData GetIdentityDkimAttributesResponse
diff --git a/gen/Network/AWS/SES/GetIdentityMailFromDomainAttributes.hs b/gen/Network/AWS/SES/GetIdentityMailFromDomainAttributes.hs
--- a/gen/Network/AWS/SES/GetIdentityMailFromDomainAttributes.hs
+++ b/gen/Network/AWS/SES/GetIdentityMailFromDomainAttributes.hs
@@ -83,6 +83,8 @@
 
 instance Hashable GetIdentityMailFromDomainAttributes
 
+instance NFData GetIdentityMailFromDomainAttributes
+
 instance ToHeaders
          GetIdentityMailFromDomainAttributes where
         toHeaders = const mempty
@@ -131,3 +133,6 @@
 -- | A map of identities to custom MAIL FROM attributes.
 gimfdarsMailFromDomainAttributes :: Lens' GetIdentityMailFromDomainAttributesResponse (HashMap Text IdentityMailFromDomainAttributes)
 gimfdarsMailFromDomainAttributes = lens _gimfdarsMailFromDomainAttributes (\ s a -> s{_gimfdarsMailFromDomainAttributes = a}) . _Map;
+
+instance NFData
+         GetIdentityMailFromDomainAttributesResponse
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
@@ -89,6 +89,8 @@
 
 instance Hashable GetIdentityNotificationAttributes
 
+instance NFData GetIdentityNotificationAttributes
+
 instance ToHeaders GetIdentityNotificationAttributes
          where
         toHeaders = const mempty
@@ -135,3 +137,6 @@
 -- | A map of Identity to IdentityNotificationAttributes.
 ginarsNotificationAttributes :: Lens' GetIdentityNotificationAttributesResponse (HashMap Text IdentityNotificationAttributes)
 ginarsNotificationAttributes = lens _ginarsNotificationAttributes (\ s a -> s{_ginarsNotificationAttributes = a}) . _Map;
+
+instance NFData
+         GetIdentityNotificationAttributesResponse
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
@@ -108,6 +108,8 @@
 
 instance Hashable GetIdentityPolicies
 
+instance NFData GetIdentityPolicies
+
 instance ToHeaders GetIdentityPolicies where
         toHeaders = const mempty
 
@@ -152,3 +154,5 @@
 -- | A map of policy names to policies.
 giprsPolicies :: Lens' GetIdentityPoliciesResponse (HashMap Text Text)
 giprsPolicies = lens _giprsPolicies (\ s a -> s{_giprsPolicies = a}) . _Map;
+
+instance NFData GetIdentityPoliciesResponse
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
@@ -84,6 +84,8 @@
 
 instance Hashable GetIdentityVerificationAttributes
 
+instance NFData GetIdentityVerificationAttributes
+
 instance ToHeaders GetIdentityVerificationAttributes
          where
         toHeaders = const mempty
@@ -130,3 +132,6 @@
 -- | A map of Identities to IdentityVerificationAttributes objects.
 givarsVerificationAttributes :: Lens' GetIdentityVerificationAttributesResponse (HashMap Text IdentityVerificationAttributes)
 givarsVerificationAttributes = lens _givarsVerificationAttributes (\ s a -> s{_givarsVerificationAttributes = a}) . _Map;
+
+instance NFData
+         GetIdentityVerificationAttributesResponse
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
@@ -68,6 +68,8 @@
 
 instance Hashable GetSendQuota
 
+instance NFData GetSendQuota
+
 instance ToHeaders GetSendQuota where
         toHeaders = const mempty
 
@@ -131,3 +133,5 @@
 -- | The response status code.
 gsqrsResponseStatus :: Lens' GetSendQuotaResponse Int
 gsqrsResponseStatus = lens _gsqrsResponseStatus (\ s a -> s{_gsqrsResponseStatus = a});
+
+instance NFData GetSendQuotaResponse
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
@@ -70,6 +70,8 @@
 
 instance Hashable GetSendStatistics
 
+instance NFData GetSendStatistics
+
 instance ToHeaders GetSendStatistics where
         toHeaders = const mempty
 
@@ -112,3 +114,5 @@
 -- | The response status code.
 gssrsResponseStatus :: Lens' GetSendStatisticsResponse Int
 gssrsResponseStatus = lens _gssrsResponseStatus (\ s a -> s{_gssrsResponseStatus = a});
+
+instance NFData GetSendStatisticsResponse
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
@@ -111,6 +111,8 @@
 
 instance Hashable ListIdentities
 
+instance NFData ListIdentities
+
 instance ToHeaders ListIdentities where
         toHeaders = const mempty
 
@@ -163,3 +165,5 @@
 -- | A list of identities.
 lirsIdentities :: Lens' ListIdentitiesResponse [Text]
 lirsIdentities = lens _lirsIdentities (\ s a -> s{_lirsIdentities = a}) . _Coerce;
+
+instance NFData ListIdentitiesResponse
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
@@ -97,6 +97,8 @@
 
 instance Hashable ListIdentityPolicies
 
+instance NFData ListIdentityPolicies
+
 instance ToHeaders ListIdentityPolicies where
         toHeaders = const mempty
 
@@ -139,3 +141,5 @@
 -- | A list of names of policies that apply to the specified identity.
 liprsPolicyNames :: Lens' ListIdentityPoliciesResponse [Text]
 liprsPolicyNames = lens _liprsPolicyNames (\ s a -> s{_liprsPolicyNames = a}) . _Coerce;
+
+instance NFData ListIdentityPoliciesResponse
diff --git a/gen/Network/AWS/SES/ListReceiptFilters.hs b/gen/Network/AWS/SES/ListReceiptFilters.hs
--- a/gen/Network/AWS/SES/ListReceiptFilters.hs
+++ b/gen/Network/AWS/SES/ListReceiptFilters.hs
@@ -70,6 +70,8 @@
 
 instance Hashable ListReceiptFilters
 
+instance NFData ListReceiptFilters
+
 instance ToHeaders ListReceiptFilters where
         toHeaders = const mempty
 
@@ -113,3 +115,5 @@
 -- | The response status code.
 lrfrsResponseStatus :: Lens' ListReceiptFiltersResponse Int
 lrfrsResponseStatus = lens _lrfrsResponseStatus (\ s a -> s{_lrfrsResponseStatus = a});
+
+instance NFData ListReceiptFiltersResponse
diff --git a/gen/Network/AWS/SES/ListReceiptRuleSets.hs b/gen/Network/AWS/SES/ListReceiptRuleSets.hs
--- a/gen/Network/AWS/SES/ListReceiptRuleSets.hs
+++ b/gen/Network/AWS/SES/ListReceiptRuleSets.hs
@@ -88,6 +88,8 @@
 
 instance Hashable ListReceiptRuleSets
 
+instance NFData ListReceiptRuleSets
+
 instance ToHeaders ListReceiptRuleSets where
         toHeaders = const mempty
 
@@ -142,3 +144,5 @@
 -- | The response status code.
 lrrsrsResponseStatus :: Lens' ListReceiptRuleSetsResponse Int
 lrrsrsResponseStatus = lens _lrrsrsResponseStatus (\ s a -> s{_lrrsrsResponseStatus = a});
+
+instance NFData ListReceiptRuleSetsResponse
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
@@ -73,6 +73,8 @@
 
 instance Hashable ListVerifiedEmailAddresses
 
+instance NFData ListVerifiedEmailAddresses
+
 instance ToHeaders ListVerifiedEmailAddresses where
         toHeaders = const mempty
 
@@ -116,3 +118,5 @@
 -- | The response status code.
 lvearsResponseStatus :: Lens' ListVerifiedEmailAddressesResponse Int
 lvearsResponseStatus = lens _lvearsResponseStatus (\ s a -> s{_lvearsResponseStatus = a});
+
+instance NFData ListVerifiedEmailAddressesResponse
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
@@ -116,6 +116,8 @@
 
 instance Hashable PutIdentityPolicy
 
+instance NFData PutIdentityPolicy
+
 instance ToHeaders PutIdentityPolicy where
         toHeaders = const mempty
 
@@ -152,3 +154,5 @@
 -- | The response status code.
 piprsResponseStatus :: Lens' PutIdentityPolicyResponse Int
 piprsResponseStatus = lens _piprsResponseStatus (\ s a -> s{_piprsResponseStatus = a});
+
+instance NFData PutIdentityPolicyResponse
diff --git a/gen/Network/AWS/SES/ReorderReceiptRuleSet.hs b/gen/Network/AWS/SES/ReorderReceiptRuleSet.hs
--- a/gen/Network/AWS/SES/ReorderReceiptRuleSet.hs
+++ b/gen/Network/AWS/SES/ReorderReceiptRuleSet.hs
@@ -94,6 +94,8 @@
 
 instance Hashable ReorderReceiptRuleSet
 
+instance NFData ReorderReceiptRuleSet
+
 instance ToHeaders ReorderReceiptRuleSet where
         toHeaders = const mempty
 
@@ -129,3 +131,5 @@
 -- | The response status code.
 rrrsrsResponseStatus :: Lens' ReorderReceiptRuleSetResponse Int
 rrrsrsResponseStatus = lens _rrrsrsResponseStatus (\ s a -> s{_rrrsrsResponseStatus = a});
+
+instance NFData ReorderReceiptRuleSetResponse
diff --git a/gen/Network/AWS/SES/SendBounce.hs b/gen/Network/AWS/SES/SendBounce.hs
--- a/gen/Network/AWS/SES/SendBounce.hs
+++ b/gen/Network/AWS/SES/SendBounce.hs
@@ -142,6 +142,8 @@
 
 instance Hashable SendBounce
 
+instance NFData SendBounce
+
 instance ToHeaders SendBounce where
         toHeaders = const mempty
 
@@ -190,3 +192,5 @@
 -- | The response status code.
 sbrsResponseStatus :: Lens' SendBounceResponse Int
 sbrsResponseStatus = lens _sbrsResponseStatus (\ s a -> s{_sbrsResponseStatus = a});
+
+instance NFData SendBounceResponse
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
@@ -205,6 +205,8 @@
 
 instance Hashable SendEmail
 
+instance NFData SendEmail
+
 instance ToHeaders SendEmail where
         toHeaders = const mempty
 
@@ -256,3 +258,5 @@
 -- | The unique message identifier returned from the 'SendEmail' action.
 sersMessageId :: Lens' SendEmailResponse Text
 sersMessageId = lens _sersMessageId (\ s a -> s{_sersMessageId = a});
+
+instance NFData SendEmailResponse
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
@@ -243,6 +243,8 @@
 
 instance Hashable SendRawEmail
 
+instance NFData SendRawEmail
+
 instance ToHeaders SendRawEmail where
         toHeaders = const mempty
 
@@ -291,3 +293,5 @@
 -- | The unique message identifier returned from the 'SendRawEmail' action.
 srersMessageId :: Lens' SendRawEmailResponse Text
 srersMessageId = lens _srersMessageId (\ s a -> s{_srersMessageId = a});
+
+instance NFData SendRawEmailResponse
diff --git a/gen/Network/AWS/SES/SetActiveReceiptRuleSet.hs b/gen/Network/AWS/SES/SetActiveReceiptRuleSet.hs
--- a/gen/Network/AWS/SES/SetActiveReceiptRuleSet.hs
+++ b/gen/Network/AWS/SES/SetActiveReceiptRuleSet.hs
@@ -83,6 +83,8 @@
 
 instance Hashable SetActiveReceiptRuleSet
 
+instance NFData SetActiveReceiptRuleSet
+
 instance ToHeaders SetActiveReceiptRuleSet where
         toHeaders = const mempty
 
@@ -118,3 +120,5 @@
 -- | The response status code.
 sarrsrsResponseStatus :: Lens' SetActiveReceiptRuleSetResponse Int
 sarrsrsResponseStatus = lens _sarrsrsResponseStatus (\ s a -> s{_sarrsrsResponseStatus = a});
+
+instance NFData SetActiveReceiptRuleSetResponse
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
@@ -102,6 +102,8 @@
 
 instance Hashable SetIdentityDkimEnabled
 
+instance NFData SetIdentityDkimEnabled
+
 instance ToHeaders SetIdentityDkimEnabled where
         toHeaders = const mempty
 
@@ -138,3 +140,5 @@
 -- | The response status code.
 sidersResponseStatus :: Lens' SetIdentityDkimEnabledResponse Int
 sidersResponseStatus = lens _sidersResponseStatus (\ s a -> s{_sidersResponseStatus = a});
+
+instance NFData SetIdentityDkimEnabledResponse
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
@@ -107,6 +107,8 @@
 instance Hashable
          SetIdentityFeedbackForwardingEnabled
 
+instance NFData SetIdentityFeedbackForwardingEnabled
+
 instance ToHeaders
          SetIdentityFeedbackForwardingEnabled where
         toHeaders = const mempty
@@ -147,3 +149,6 @@
 -- | The response status code.
 siffersResponseStatus :: Lens' SetIdentityFeedbackForwardingEnabledResponse Int
 siffersResponseStatus = lens _siffersResponseStatus (\ s a -> s{_siffersResponseStatus = a});
+
+instance NFData
+         SetIdentityFeedbackForwardingEnabledResponse
diff --git a/gen/Network/AWS/SES/SetIdentityMailFromDomain.hs b/gen/Network/AWS/SES/SetIdentityMailFromDomain.hs
--- a/gen/Network/AWS/SES/SetIdentityMailFromDomain.hs
+++ b/gen/Network/AWS/SES/SetIdentityMailFromDomain.hs
@@ -117,6 +117,8 @@
 
 instance Hashable SetIdentityMailFromDomain
 
+instance NFData SetIdentityMailFromDomain
+
 instance ToHeaders SetIdentityMailFromDomain where
         toHeaders = const mempty
 
@@ -154,3 +156,5 @@
 -- | The response status code.
 simfdrsResponseStatus :: Lens' SetIdentityMailFromDomainResponse Int
 simfdrsResponseStatus = lens _simfdrsResponseStatus (\ s a -> s{_simfdrsResponseStatus = a});
+
+instance NFData SetIdentityMailFromDomainResponse
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
@@ -114,6 +114,8 @@
 
 instance Hashable SetIdentityNotificationTopic
 
+instance NFData SetIdentityNotificationTopic
+
 instance ToHeaders SetIdentityNotificationTopic where
         toHeaders = const mempty
 
@@ -151,3 +153,5 @@
 -- | The response status code.
 sintrsResponseStatus :: Lens' SetIdentityNotificationTopicResponse Int
 sintrsResponseStatus = lens _sintrsResponseStatus (\ s a -> s{_sintrsResponseStatus = a});
+
+instance NFData SetIdentityNotificationTopicResponse
diff --git a/gen/Network/AWS/SES/SetReceiptRulePosition.hs b/gen/Network/AWS/SES/SetReceiptRulePosition.hs
--- a/gen/Network/AWS/SES/SetReceiptRulePosition.hs
+++ b/gen/Network/AWS/SES/SetReceiptRulePosition.hs
@@ -101,6 +101,8 @@
 
 instance Hashable SetReceiptRulePosition
 
+instance NFData SetReceiptRulePosition
+
 instance ToHeaders SetReceiptRulePosition where
         toHeaders = const mempty
 
@@ -138,3 +140,5 @@
 -- | The response status code.
 srrprsResponseStatus :: Lens' SetReceiptRulePositionResponse Int
 srrprsResponseStatus = lens _srrprsResponseStatus (\ s a -> s{_srrprsResponseStatus = a});
+
+instance NFData SetReceiptRulePositionResponse
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
@@ -284,6 +284,8 @@
       | has (hasCode "ThrottlingException" . hasStatus 400) e =
           Just "throttling_exception"
       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"
+      | has (hasStatus 504) e = Just "gateway_timeout"
+      | has (hasStatus 502) e = Just "bad_gateway"
       | has (hasStatus 503) e = Just "service_unavailable"
       | has (hasStatus 500) e = Just "general_server_error"
       | has (hasStatus 509) e = Just "limit_exceeded"
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
@@ -68,6 +68,8 @@
 
 instance Hashable AddHeaderAction
 
+instance NFData AddHeaderAction
+
 instance ToQuery AddHeaderAction where
         toQuery AddHeaderAction'{..}
           = mconcat
@@ -113,6 +115,8 @@
 
 instance Hashable Body
 
+instance NFData Body
+
 instance ToQuery Body where
         toQuery Body'{..}
           = mconcat ["Text" =: _bText, "Html" =: _bHTML]
@@ -198,6 +202,8 @@
 
 instance Hashable BounceAction
 
+instance NFData BounceAction
+
 instance ToQuery BounceAction where
         toQuery BounceAction'{..}
           = mconcat
@@ -268,6 +274,8 @@
 
 instance Hashable BouncedRecipientInfo
 
+instance NFData BouncedRecipientInfo
+
 instance ToQuery BouncedRecipientInfo where
         toQuery BouncedRecipientInfo'{..}
           = mconcat
@@ -315,6 +323,8 @@
 
 instance Hashable Content
 
+instance NFData Content
+
 instance ToQuery Content where
         toQuery Content'{..}
           = mconcat ["Charset" =: _cCharset, "Data" =: _cData]
@@ -367,6 +377,8 @@
 
 instance Hashable Destination
 
+instance NFData Destination
+
 instance ToQuery Destination where
         toQuery Destination'{..}
           = mconcat
@@ -419,6 +431,8 @@
 
 instance Hashable ExtensionField
 
+instance NFData ExtensionField
+
 instance ToQuery ExtensionField where
         toQuery ExtensionField'{..}
           = mconcat ["Name" =: _efName, "Value" =: _efValue]
@@ -487,6 +501,8 @@
 
 instance Hashable IdentityDkimAttributes
 
+instance NFData IdentityDkimAttributes
+
 -- | Represents the custom MAIL FROM domain attributes of a verified identity
 -- (email address or domain).
 --
@@ -553,6 +569,8 @@
 
 instance Hashable IdentityMailFromDomainAttributes
 
+instance NFData IdentityMailFromDomainAttributes
+
 -- | Represents the notification attributes of an identity, including whether
 -- an identity has Amazon Simple Notification Service (Amazon SNS) topics
 -- set for bounce, complaint, and\/or delivery notifications, and whether
@@ -623,6 +641,8 @@
 
 instance Hashable IdentityNotificationAttributes
 
+instance NFData IdentityNotificationAttributes
+
 -- | Represents the verification attributes of a single identity.
 --
 -- /See:/ 'identityVerificationAttributes' smart constructor.
@@ -665,6 +685,8 @@
 
 instance Hashable IdentityVerificationAttributes
 
+instance NFData IdentityVerificationAttributes
+
 -- | When included in a receipt rule, this action calls an AWS Lambda
 -- function and, optionally, publishes a notification to Amazon Simple
 -- Notification Service (Amazon SNS).
@@ -742,6 +764,8 @@
 
 instance Hashable LambdaAction
 
+instance NFData LambdaAction
+
 instance ToQuery LambdaAction where
         toQuery LambdaAction'{..}
           = mconcat
@@ -785,6 +809,8 @@
 
 instance Hashable Message
 
+instance NFData Message
+
 instance ToQuery Message where
         toQuery Message'{..}
           = mconcat ["Subject" =: _mSubject, "Body" =: _mBody]
@@ -841,6 +867,8 @@
 
 instance Hashable MessageDsn
 
+instance NFData MessageDsn
+
 instance ToQuery MessageDsn where
         toQuery MessageDsn'{..}
           = mconcat
@@ -898,6 +926,8 @@
 
 instance Hashable RawMessage
 
+instance NFData RawMessage
+
 instance ToQuery RawMessage where
         toQuery RawMessage'{..} = mconcat ["Data" =: _rmData]
 
@@ -995,6 +1025,8 @@
 
 instance Hashable ReceiptAction
 
+instance NFData ReceiptAction
+
 instance ToQuery ReceiptAction where
         toQuery ReceiptAction'{..}
           = mconcat
@@ -1056,6 +1088,8 @@
 
 instance Hashable ReceiptFilter
 
+instance NFData ReceiptFilter
+
 instance ToQuery ReceiptFilter where
         toQuery ReceiptFilter'{..}
           = mconcat
@@ -1110,6 +1144,8 @@
 
 instance Hashable ReceiptIPFilter
 
+instance NFData ReceiptIPFilter
+
 instance ToQuery ReceiptIPFilter where
         toQuery ReceiptIPFilter'{..}
           = mconcat
@@ -1216,6 +1252,8 @@
 
 instance Hashable ReceiptRule
 
+instance NFData ReceiptRule
+
 instance ToQuery ReceiptRule where
         toQuery ReceiptRule'{..}
           = mconcat
@@ -1277,6 +1315,8 @@
 
 instance Hashable ReceiptRuleSetMetadata
 
+instance NFData ReceiptRuleSetMetadata
+
 -- | Recipient-related information to include in the Delivery Status
 -- Notification (DSN) when an email that Amazon SES receives on your behalf
 -- bounces.
@@ -1374,6 +1414,8 @@
 
 instance Hashable RecipientDsnFields
 
+instance NFData RecipientDsnFields
+
 instance ToQuery RecipientDsnFields where
         toQuery RecipientDsnFields'{..}
           = mconcat
@@ -1499,6 +1541,8 @@
 
 instance Hashable S3Action
 
+instance NFData S3Action
+
 instance ToQuery S3Action where
         toQuery S3Action'{..}
           = mconcat
@@ -1573,6 +1617,8 @@
 
 instance Hashable SNSAction
 
+instance NFData SNSAction
+
 instance ToQuery SNSAction where
         toQuery SNSAction'{..}
           = mconcat
@@ -1645,6 +1691,8 @@
 
 instance Hashable SendDataPoint
 
+instance NFData SendDataPoint
+
 -- | When included in a receipt rule, this action terminates the evaluation
 -- of the receipt rule set and, optionally, publishes a notification to
 -- Amazon Simple Notification Service (Amazon SNS).
@@ -1694,6 +1742,8 @@
 
 instance Hashable StopAction
 
+instance NFData StopAction
+
 instance ToQuery StopAction where
         toQuery StopAction'{..}
           = mconcat
@@ -1752,6 +1802,8 @@
               (x .@? "TopicArn") <*> (x .@ "OrganizationArn")
 
 instance Hashable WorkmailAction
+
+instance NFData WorkmailAction
 
 instance ToQuery WorkmailAction where
         toQuery WorkmailAction'{..}
diff --git a/gen/Network/AWS/SES/Types/Sum.hs b/gen/Network/AWS/SES/Types/Sum.hs
--- a/gen/Network/AWS/SES/Types/Sum.hs
+++ b/gen/Network/AWS/SES/Types/Sum.hs
@@ -37,6 +37,7 @@
         UseDefaultValue -> "UseDefaultValue"
 
 instance Hashable     BehaviorOnMXFailure
+instance NFData       BehaviorOnMXFailure
 instance ToByteString BehaviorOnMXFailure
 instance ToQuery      BehaviorOnMXFailure
 instance ToHeader     BehaviorOnMXFailure
@@ -74,6 +75,7 @@
         BTUndefined -> "Undefined"
 
 instance Hashable     BounceType
+instance NFData       BounceType
 instance ToByteString BounceType
 instance ToQuery      BounceType
 instance ToHeader     BounceType
@@ -102,6 +104,7 @@
         CMFSTemporaryFailure -> "TemporaryFailure"
 
 instance Hashable     CustomMailFromStatus
+instance NFData       CustomMailFromStatus
 instance ToByteString CustomMailFromStatus
 instance ToQuery      CustomMailFromStatus
 instance ToHeader     CustomMailFromStatus
@@ -136,6 +139,7 @@
         DARelayed -> "relayed"
 
 instance Hashable     DsnAction
+instance NFData       DsnAction
 instance ToByteString DsnAction
 instance ToQuery      DsnAction
 instance ToHeader     DsnAction
@@ -158,6 +162,7 @@
         EmailAddress -> "EmailAddress"
 
 instance Hashable     IdentityType
+instance NFData       IdentityType
 instance ToByteString IdentityType
 instance ToQuery      IdentityType
 instance ToHeader     IdentityType
@@ -180,6 +185,7 @@
         RequestResponse -> "RequestResponse"
 
 instance Hashable     InvocationType
+instance NFData       InvocationType
 instance ToByteString InvocationType
 instance ToQuery      InvocationType
 instance ToHeader     InvocationType
@@ -208,6 +214,7 @@
         Delivery -> "Delivery"
 
 instance Hashable     NotificationType
+instance NFData       NotificationType
 instance ToByteString NotificationType
 instance ToQuery      NotificationType
 instance ToHeader     NotificationType
@@ -230,6 +237,7 @@
         Block -> "Block"
 
 instance Hashable     ReceiptFilterPolicy
+instance NFData       ReceiptFilterPolicy
 instance ToByteString ReceiptFilterPolicy
 instance ToQuery      ReceiptFilterPolicy
 instance ToHeader     ReceiptFilterPolicy
@@ -255,6 +263,7 @@
         Utf8 -> "UTF-8"
 
 instance Hashable     SNSActionEncoding
+instance NFData       SNSActionEncoding
 instance ToByteString SNSActionEncoding
 instance ToQuery      SNSActionEncoding
 instance ToHeader     SNSActionEncoding
@@ -277,6 +286,7 @@
         RuleSet -> "RuleSet"
 
 instance Hashable     StopScope
+instance NFData       StopScope
 instance ToByteString StopScope
 instance ToQuery      StopScope
 instance ToHeader     StopScope
@@ -302,6 +312,7 @@
         Require -> "Require"
 
 instance Hashable     TLSPolicy
+instance NFData       TLSPolicy
 instance ToByteString TLSPolicy
 instance ToQuery      TLSPolicy
 instance ToHeader     TLSPolicy
@@ -336,6 +347,7 @@
         TemporaryFailure -> "TemporaryFailure"
 
 instance Hashable     VerificationStatus
+instance NFData       VerificationStatus
 instance ToByteString VerificationStatus
 instance ToQuery      VerificationStatus
 instance ToHeader     VerificationStatus
diff --git a/gen/Network/AWS/SES/UpdateReceiptRule.hs b/gen/Network/AWS/SES/UpdateReceiptRule.hs
--- a/gen/Network/AWS/SES/UpdateReceiptRule.hs
+++ b/gen/Network/AWS/SES/UpdateReceiptRule.hs
@@ -88,6 +88,8 @@
 
 instance Hashable UpdateReceiptRule
 
+instance NFData UpdateReceiptRule
+
 instance ToHeaders UpdateReceiptRule where
         toHeaders = const mempty
 
@@ -122,3 +124,5 @@
 -- | The response status code.
 urrrsResponseStatus :: Lens' UpdateReceiptRuleResponse Int
 urrrsResponseStatus = lens _urrrsResponseStatus (\ s a -> s{_urrrsResponseStatus = a});
+
+instance NFData UpdateReceiptRuleResponse
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
@@ -92,6 +92,8 @@
 
 instance Hashable VerifyDomainDkim
 
+instance NFData VerifyDomainDkim
+
 instance ToHeaders VerifyDomainDkim where
         toHeaders = const mempty
 
@@ -146,3 +148,5 @@
 -- <http://docs.aws.amazon.com/ses/latest/DeveloperGuide/easy-dkim-dns-records.html Amazon SES Developer Guide>.
 vddrsDkimTokens :: Lens' VerifyDomainDkimResponse [Text]
 vddrsDkimTokens = lens _vddrsDkimTokens (\ s a -> s{_vddrsDkimTokens = a}) . _Coerce;
+
+instance NFData VerifyDomainDkimResponse
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
@@ -78,6 +78,8 @@
 
 instance Hashable VerifyDomainIdentity
 
+instance NFData VerifyDomainIdentity
+
 instance ToHeaders VerifyDomainIdentity where
         toHeaders = const mempty
 
@@ -122,3 +124,5 @@
 -- order to complete domain verification.
 vdirsVerificationToken :: Lens' VerifyDomainIdentityResponse Text
 vdirsVerificationToken = lens _vdirsVerificationToken (\ s a -> s{_vdirsVerificationToken = a});
+
+instance NFData VerifyDomainIdentityResponse
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
@@ -76,6 +76,8 @@
 
 instance Hashable VerifyEmailAddress
 
+instance NFData VerifyEmailAddress
+
 instance ToHeaders VerifyEmailAddress where
         toHeaders = const mempty
 
@@ -99,3 +101,5 @@
 verifyEmailAddressResponse
     :: VerifyEmailAddressResponse
 verifyEmailAddressResponse = VerifyEmailAddressResponse'
+
+instance NFData VerifyEmailAddressResponse
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
@@ -77,6 +77,8 @@
 
 instance Hashable VerifyEmailIdentity
 
+instance NFData VerifyEmailIdentity
+
 instance ToHeaders VerifyEmailIdentity where
         toHeaders = const mempty
 
@@ -111,3 +113,5 @@
 -- | The response status code.
 veirsResponseStatus :: Lens' VerifyEmailIdentityResponse Int
 veirsResponseStatus = lens _veirsResponseStatus (\ s a -> s{_veirsResponseStatus = a});
+
+instance NFData VerifyEmailIdentityResponse