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-cloudsearch.cabal b/amazonka-cloudsearch.cabal
--- a/amazonka-cloudsearch.cabal
+++ b/amazonka-cloudsearch.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-cloudsearch
-version:               1.4.0
+version:               1.4.1
 synopsis:              Amazon CloudSearch SDK.
 homepage:              https://github.com/brendanhay/amazonka
 bug-reports:           https://github.com/brendanhay/amazonka/issues
@@ -85,7 +85,7 @@
         , Network.AWS.CloudSearch.Types.Sum
 
     build-depends:
-          amazonka-core == 1.4.0.*
+          amazonka-core == 1.4.1.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-cloudsearch-test
@@ -105,9 +105,9 @@
         , Test.AWS.CloudSearch.Internal
 
     build-depends:
-          amazonka-core == 1.4.0.*
-        , amazonka-test == 1.4.0.*
-        , amazonka-cloudsearch == 1.4.0.*
+          amazonka-core == 1.4.1.*
+        , amazonka-test == 1.4.1.*
+        , amazonka-cloudsearch == 1.4.1.*
         , base
         , bytestring
         , tasty
diff --git a/gen/Network/AWS/CloudSearch/BuildSuggesters.hs b/gen/Network/AWS/CloudSearch/BuildSuggesters.hs
--- a/gen/Network/AWS/CloudSearch/BuildSuggesters.hs
+++ b/gen/Network/AWS/CloudSearch/BuildSuggesters.hs
@@ -82,6 +82,8 @@
 
 instance Hashable BuildSuggesters
 
+instance NFData BuildSuggesters
+
 instance ToHeaders BuildSuggesters where
         toHeaders = const mempty
 
@@ -127,3 +129,5 @@
 -- | The response status code.
 bsrsResponseStatus :: Lens' BuildSuggestersResponse Int
 bsrsResponseStatus = lens _bsrsResponseStatus (\ s a -> s{_bsrsResponseStatus = a});
+
+instance NFData BuildSuggestersResponse
diff --git a/gen/Network/AWS/CloudSearch/CreateDomain.hs b/gen/Network/AWS/CloudSearch/CreateDomain.hs
--- a/gen/Network/AWS/CloudSearch/CreateDomain.hs
+++ b/gen/Network/AWS/CloudSearch/CreateDomain.hs
@@ -83,6 +83,8 @@
 
 instance Hashable CreateDomain
 
+instance NFData CreateDomain
+
 instance ToHeaders CreateDomain where
         toHeaders = const mempty
 
@@ -128,3 +130,5 @@
 -- | The response status code.
 cdrsResponseStatus :: Lens' CreateDomainResponse Int
 cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a});
+
+instance NFData CreateDomainResponse
diff --git a/gen/Network/AWS/CloudSearch/DefineAnalysisScheme.hs b/gen/Network/AWS/CloudSearch/DefineAnalysisScheme.hs
--- a/gen/Network/AWS/CloudSearch/DefineAnalysisScheme.hs
+++ b/gen/Network/AWS/CloudSearch/DefineAnalysisScheme.hs
@@ -94,6 +94,8 @@
 
 instance Hashable DefineAnalysisScheme
 
+instance NFData DefineAnalysisScheme
+
 instance ToHeaders DefineAnalysisScheme where
         toHeaders = const mempty
 
@@ -141,3 +143,5 @@
 -- | Undocumented member.
 defersAnalysisScheme :: Lens' DefineAnalysisSchemeResponse AnalysisSchemeStatus
 defersAnalysisScheme = lens _defersAnalysisScheme (\ s a -> s{_defersAnalysisScheme = a});
+
+instance NFData DefineAnalysisSchemeResponse
diff --git a/gen/Network/AWS/CloudSearch/DefineExpression.hs b/gen/Network/AWS/CloudSearch/DefineExpression.hs
--- a/gen/Network/AWS/CloudSearch/DefineExpression.hs
+++ b/gen/Network/AWS/CloudSearch/DefineExpression.hs
@@ -93,6 +93,8 @@
 
 instance Hashable DefineExpression
 
+instance NFData DefineExpression
+
 instance ToHeaders DefineExpression where
         toHeaders = const mempty
 
@@ -140,3 +142,5 @@
 -- | Undocumented member.
 dersExpression :: Lens' DefineExpressionResponse ExpressionStatus
 dersExpression = lens _dersExpression (\ s a -> s{_dersExpression = a});
+
+instance NFData DefineExpressionResponse
diff --git a/gen/Network/AWS/CloudSearch/DefineIndexField.hs b/gen/Network/AWS/CloudSearch/DefineIndexField.hs
--- a/gen/Network/AWS/CloudSearch/DefineIndexField.hs
+++ b/gen/Network/AWS/CloudSearch/DefineIndexField.hs
@@ -97,6 +97,8 @@
 
 instance Hashable DefineIndexField
 
+instance NFData DefineIndexField
+
 instance ToHeaders DefineIndexField where
         toHeaders = const mempty
 
@@ -144,3 +146,5 @@
 -- | Undocumented member.
 defrsIndexField :: Lens' DefineIndexFieldResponse IndexFieldStatus
 defrsIndexField = lens _defrsIndexField (\ s a -> s{_defrsIndexField = a});
+
+instance NFData DefineIndexFieldResponse
diff --git a/gen/Network/AWS/CloudSearch/DefineSuggester.hs b/gen/Network/AWS/CloudSearch/DefineSuggester.hs
--- a/gen/Network/AWS/CloudSearch/DefineSuggester.hs
+++ b/gen/Network/AWS/CloudSearch/DefineSuggester.hs
@@ -95,6 +95,8 @@
 
 instance Hashable DefineSuggester
 
+instance NFData DefineSuggester
+
 instance ToHeaders DefineSuggester where
         toHeaders = const mempty
 
@@ -142,3 +144,5 @@
 -- | Undocumented member.
 dsrsSuggester :: Lens' DefineSuggesterResponse SuggesterStatus
 dsrsSuggester = lens _dsrsSuggester (\ s a -> s{_dsrsSuggester = a});
+
+instance NFData DefineSuggesterResponse
diff --git a/gen/Network/AWS/CloudSearch/DeleteAnalysisScheme.hs b/gen/Network/AWS/CloudSearch/DeleteAnalysisScheme.hs
--- a/gen/Network/AWS/CloudSearch/DeleteAnalysisScheme.hs
+++ b/gen/Network/AWS/CloudSearch/DeleteAnalysisScheme.hs
@@ -92,6 +92,8 @@
 
 instance Hashable DeleteAnalysisScheme
 
+instance NFData DeleteAnalysisScheme
+
 instance ToHeaders DeleteAnalysisScheme where
         toHeaders = const mempty
 
@@ -139,3 +141,5 @@
 -- | The status of the analysis scheme being deleted.
 dasarsAnalysisScheme :: Lens' DeleteAnalysisSchemeResponse AnalysisSchemeStatus
 dasarsAnalysisScheme = lens _dasarsAnalysisScheme (\ s a -> s{_dasarsAnalysisScheme = a});
+
+instance NFData DeleteAnalysisSchemeResponse
diff --git a/gen/Network/AWS/CloudSearch/DeleteDomain.hs b/gen/Network/AWS/CloudSearch/DeleteDomain.hs
--- a/gen/Network/AWS/CloudSearch/DeleteDomain.hs
+++ b/gen/Network/AWS/CloudSearch/DeleteDomain.hs
@@ -81,6 +81,8 @@
 
 instance Hashable DeleteDomain
 
+instance NFData DeleteDomain
+
 instance ToHeaders DeleteDomain where
         toHeaders = const mempty
 
@@ -127,3 +129,5 @@
 -- | The response status code.
 ddrsResponseStatus :: Lens' DeleteDomainResponse Int
 ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a});
+
+instance NFData DeleteDomainResponse
diff --git a/gen/Network/AWS/CloudSearch/DeleteExpression.hs b/gen/Network/AWS/CloudSearch/DeleteExpression.hs
--- a/gen/Network/AWS/CloudSearch/DeleteExpression.hs
+++ b/gen/Network/AWS/CloudSearch/DeleteExpression.hs
@@ -92,6 +92,8 @@
 
 instance Hashable DeleteExpression
 
+instance NFData DeleteExpression
+
 instance ToHeaders DeleteExpression where
         toHeaders = const mempty
 
@@ -139,3 +141,5 @@
 -- | The status of the expression being deleted.
 delrsExpression :: Lens' DeleteExpressionResponse ExpressionStatus
 delrsExpression = lens _delrsExpression (\ s a -> s{_delrsExpression = a});
+
+instance NFData DeleteExpressionResponse
diff --git a/gen/Network/AWS/CloudSearch/DeleteIndexField.hs b/gen/Network/AWS/CloudSearch/DeleteIndexField.hs
--- a/gen/Network/AWS/CloudSearch/DeleteIndexField.hs
+++ b/gen/Network/AWS/CloudSearch/DeleteIndexField.hs
@@ -93,6 +93,8 @@
 
 instance Hashable DeleteIndexField
 
+instance NFData DeleteIndexField
+
 instance ToHeaders DeleteIndexField where
         toHeaders = const mempty
 
@@ -139,3 +141,5 @@
 -- | The status of the index field being deleted.
 difrsIndexField :: Lens' DeleteIndexFieldResponse IndexFieldStatus
 difrsIndexField = lens _difrsIndexField (\ s a -> s{_difrsIndexField = a});
+
+instance NFData DeleteIndexFieldResponse
diff --git a/gen/Network/AWS/CloudSearch/DeleteSuggester.hs b/gen/Network/AWS/CloudSearch/DeleteSuggester.hs
--- a/gen/Network/AWS/CloudSearch/DeleteSuggester.hs
+++ b/gen/Network/AWS/CloudSearch/DeleteSuggester.hs
@@ -91,6 +91,8 @@
 
 instance Hashable DeleteSuggester
 
+instance NFData DeleteSuggester
+
 instance ToHeaders DeleteSuggester where
         toHeaders = const mempty
 
@@ -138,3 +140,5 @@
 -- | The status of the suggester being deleted.
 delersSuggester :: Lens' DeleteSuggesterResponse SuggesterStatus
 delersSuggester = lens _delersSuggester (\ s a -> s{_delersSuggester = a});
+
+instance NFData DeleteSuggesterResponse
diff --git a/gen/Network/AWS/CloudSearch/DescribeAnalysisSchemes.hs b/gen/Network/AWS/CloudSearch/DescribeAnalysisSchemes.hs
--- a/gen/Network/AWS/CloudSearch/DescribeAnalysisSchemes.hs
+++ b/gen/Network/AWS/CloudSearch/DescribeAnalysisSchemes.hs
@@ -110,6 +110,8 @@
 
 instance Hashable DescribeAnalysisSchemes
 
+instance NFData DescribeAnalysisSchemes
+
 instance ToHeaders DescribeAnalysisSchemes where
         toHeaders = const mempty
 
@@ -160,3 +162,5 @@
 -- | The analysis scheme descriptions.
 dasrsAnalysisSchemes :: Lens' DescribeAnalysisSchemesResponse [AnalysisSchemeStatus]
 dasrsAnalysisSchemes = lens _dasrsAnalysisSchemes (\ s a -> s{_dasrsAnalysisSchemes = a}) . _Coerce;
+
+instance NFData DescribeAnalysisSchemesResponse
diff --git a/gen/Network/AWS/CloudSearch/DescribeAvailabilityOptions.hs b/gen/Network/AWS/CloudSearch/DescribeAvailabilityOptions.hs
--- a/gen/Network/AWS/CloudSearch/DescribeAvailabilityOptions.hs
+++ b/gen/Network/AWS/CloudSearch/DescribeAvailabilityOptions.hs
@@ -98,6 +98,8 @@
 
 instance Hashable DescribeAvailabilityOptions
 
+instance NFData DescribeAvailabilityOptions
+
 instance ToHeaders DescribeAvailabilityOptions where
         toHeaders = const mempty
 
@@ -147,3 +149,5 @@
 -- | The response status code.
 daorsResponseStatus :: Lens' DescribeAvailabilityOptionsResponse Int
 daorsResponseStatus = lens _daorsResponseStatus (\ s a -> s{_daorsResponseStatus = a});
+
+instance NFData DescribeAvailabilityOptionsResponse
diff --git a/gen/Network/AWS/CloudSearch/DescribeDomains.hs b/gen/Network/AWS/CloudSearch/DescribeDomains.hs
--- a/gen/Network/AWS/CloudSearch/DescribeDomains.hs
+++ b/gen/Network/AWS/CloudSearch/DescribeDomains.hs
@@ -88,6 +88,8 @@
 
 instance Hashable DescribeDomains
 
+instance NFData DescribeDomains
+
 instance ToHeaders DescribeDomains where
         toHeaders = const mempty
 
@@ -134,3 +136,5 @@
 -- | Undocumented member.
 ddsrsDomainStatusList :: Lens' DescribeDomainsResponse [DomainStatus]
 ddsrsDomainStatusList = lens _ddsrsDomainStatusList (\ s a -> s{_ddsrsDomainStatusList = a}) . _Coerce;
+
+instance NFData DescribeDomainsResponse
diff --git a/gen/Network/AWS/CloudSearch/DescribeExpressions.hs b/gen/Network/AWS/CloudSearch/DescribeExpressions.hs
--- a/gen/Network/AWS/CloudSearch/DescribeExpressions.hs
+++ b/gen/Network/AWS/CloudSearch/DescribeExpressions.hs
@@ -110,6 +110,8 @@
 
 instance Hashable DescribeExpressions
 
+instance NFData DescribeExpressions
+
 instance ToHeaders DescribeExpressions where
         toHeaders = const mempty
 
@@ -159,3 +161,5 @@
 -- | The expressions configured for the domain.
 drsExpressions :: Lens' DescribeExpressionsResponse [ExpressionStatus]
 drsExpressions = lens _drsExpressions (\ s a -> s{_drsExpressions = a}) . _Coerce;
+
+instance NFData DescribeExpressionsResponse
diff --git a/gen/Network/AWS/CloudSearch/DescribeIndexFields.hs b/gen/Network/AWS/CloudSearch/DescribeIndexFields.hs
--- a/gen/Network/AWS/CloudSearch/DescribeIndexFields.hs
+++ b/gen/Network/AWS/CloudSearch/DescribeIndexFields.hs
@@ -110,6 +110,8 @@
 
 instance Hashable DescribeIndexFields
 
+instance NFData DescribeIndexFields
+
 instance ToHeaders DescribeIndexFields where
         toHeaders = const mempty
 
@@ -158,3 +160,5 @@
 -- | The index fields configured for the domain.
 difsrsIndexFields :: Lens' DescribeIndexFieldsResponse [IndexFieldStatus]
 difsrsIndexFields = lens _difsrsIndexFields (\ s a -> s{_difsrsIndexFields = a}) . _Coerce;
+
+instance NFData DescribeIndexFieldsResponse
diff --git a/gen/Network/AWS/CloudSearch/DescribeScalingParameters.hs b/gen/Network/AWS/CloudSearch/DescribeScalingParameters.hs
--- a/gen/Network/AWS/CloudSearch/DescribeScalingParameters.hs
+++ b/gen/Network/AWS/CloudSearch/DescribeScalingParameters.hs
@@ -83,6 +83,8 @@
 
 instance Hashable DescribeScalingParameters
 
+instance NFData DescribeScalingParameters
+
 instance ToHeaders DescribeScalingParameters where
         toHeaders = const mempty
 
@@ -130,3 +132,5 @@
 -- | Undocumented member.
 dsprsScalingParameters :: Lens' DescribeScalingParametersResponse ScalingParametersStatus
 dsprsScalingParameters = lens _dsprsScalingParameters (\ s a -> s{_dsprsScalingParameters = a});
+
+instance NFData DescribeScalingParametersResponse
diff --git a/gen/Network/AWS/CloudSearch/DescribeServiceAccessPolicies.hs b/gen/Network/AWS/CloudSearch/DescribeServiceAccessPolicies.hs
--- a/gen/Network/AWS/CloudSearch/DescribeServiceAccessPolicies.hs
+++ b/gen/Network/AWS/CloudSearch/DescribeServiceAccessPolicies.hs
@@ -99,6 +99,8 @@
 
 instance Hashable DescribeServiceAccessPolicies
 
+instance NFData DescribeServiceAccessPolicies
+
 instance ToHeaders DescribeServiceAccessPolicies
          where
         toHeaders = const mempty
@@ -147,3 +149,5 @@
 -- | The access rules configured for the domain specified in the request.
 dsaprsAccessPolicies :: Lens' DescribeServiceAccessPoliciesResponse AccessPoliciesStatus
 dsaprsAccessPolicies = lens _dsaprsAccessPolicies (\ s a -> s{_dsaprsAccessPolicies = a});
+
+instance NFData DescribeServiceAccessPoliciesResponse
diff --git a/gen/Network/AWS/CloudSearch/DescribeSuggesters.hs b/gen/Network/AWS/CloudSearch/DescribeSuggesters.hs
--- a/gen/Network/AWS/CloudSearch/DescribeSuggesters.hs
+++ b/gen/Network/AWS/CloudSearch/DescribeSuggesters.hs
@@ -110,6 +110,8 @@
 
 instance Hashable DescribeSuggesters
 
+instance NFData DescribeSuggesters
+
 instance ToHeaders DescribeSuggesters where
         toHeaders = const mempty
 
@@ -158,3 +160,5 @@
 -- | The suggesters configured for the domain specified in the request.
 dssrsSuggesters :: Lens' DescribeSuggestersResponse [SuggesterStatus]
 dssrsSuggesters = lens _dssrsSuggesters (\ s a -> s{_dssrsSuggesters = a}) . _Coerce;
+
+instance NFData DescribeSuggestersResponse
diff --git a/gen/Network/AWS/CloudSearch/IndexDocuments.hs b/gen/Network/AWS/CloudSearch/IndexDocuments.hs
--- a/gen/Network/AWS/CloudSearch/IndexDocuments.hs
+++ b/gen/Network/AWS/CloudSearch/IndexDocuments.hs
@@ -82,6 +82,8 @@
 
 instance Hashable IndexDocuments
 
+instance NFData IndexDocuments
+
 instance ToHeaders IndexDocuments where
         toHeaders = const mempty
 
@@ -127,3 +129,5 @@
 -- | The response status code.
 idrsResponseStatus :: Lens' IndexDocumentsResponse Int
 idrsResponseStatus = lens _idrsResponseStatus (\ s a -> s{_idrsResponseStatus = a});
+
+instance NFData IndexDocumentsResponse
diff --git a/gen/Network/AWS/CloudSearch/ListDomainNames.hs b/gen/Network/AWS/CloudSearch/ListDomainNames.hs
--- a/gen/Network/AWS/CloudSearch/ListDomainNames.hs
+++ b/gen/Network/AWS/CloudSearch/ListDomainNames.hs
@@ -64,6 +64,8 @@
 
 instance Hashable ListDomainNames
 
+instance NFData ListDomainNames
+
 instance ToHeaders ListDomainNames where
         toHeaders = const mempty
 
@@ -109,3 +111,5 @@
 -- | The response status code.
 ldnrsResponseStatus :: Lens' ListDomainNamesResponse Int
 ldnrsResponseStatus = lens _ldnrsResponseStatus (\ s a -> s{_ldnrsResponseStatus = a});
+
+instance NFData ListDomainNamesResponse
diff --git a/gen/Network/AWS/CloudSearch/Types.hs b/gen/Network/AWS/CloudSearch/Types.hs
--- a/gen/Network/AWS/CloudSearch/Types.hs
+++ b/gen/Network/AWS/CloudSearch/Types.hs
@@ -320,6 +320,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/CloudSearch/Types/Product.hs b/gen/Network/AWS/CloudSearch/Types/Product.hs
--- a/gen/Network/AWS/CloudSearch/Types/Product.hs
+++ b/gen/Network/AWS/CloudSearch/Types/Product.hs
@@ -62,6 +62,8 @@
 
 instance Hashable AccessPoliciesStatus
 
+instance NFData AccessPoliciesStatus
+
 -- | Synonyms, stopwords, and stemming options for an analysis scheme.
 -- Includes tokenization dictionary for Japanese.
 --
@@ -154,6 +156,8 @@
 
 instance Hashable AnalysisOptions
 
+instance NFData AnalysisOptions
+
 instance ToQuery AnalysisOptions where
         toQuery AnalysisOptions'{..}
           = mconcat
@@ -218,6 +222,8 @@
 
 instance Hashable AnalysisScheme
 
+instance NFData AnalysisScheme
+
 instance ToQuery AnalysisScheme where
         toQuery AnalysisScheme'{..}
           = mconcat
@@ -266,6 +272,8 @@
 
 instance Hashable AnalysisSchemeStatus
 
+instance NFData AnalysisSchemeStatus
+
 -- | The status and configuration of the domain\'s availability options.
 --
 -- /See:/ 'availabilityOptionsStatus' smart constructor.
@@ -306,6 +314,8 @@
 
 instance Hashable AvailabilityOptionsStatus
 
+instance NFData AvailabilityOptionsStatus
+
 -- | Options for a field that contains an array of dates. Present if
 -- 'IndexFieldType' specifies the field is of type 'date-array'. All
 -- options are enabled by default.
@@ -374,6 +384,8 @@
 
 instance Hashable DateArrayOptions
 
+instance NFData DateArrayOptions
+
 instance ToQuery DateArrayOptions where
         toQuery DateArrayOptions'{..}
           = mconcat
@@ -461,6 +473,8 @@
 
 instance Hashable DateOptions
 
+instance NFData DateOptions
+
 instance ToQuery DateOptions where
         toQuery DateOptions'{..}
           = mconcat
@@ -530,6 +544,8 @@
 
 instance Hashable DocumentSuggesterOptions
 
+instance NFData DocumentSuggesterOptions
+
 instance ToQuery DocumentSuggesterOptions where
         toQuery DocumentSuggesterOptions'{..}
           = mconcat
@@ -688,6 +704,8 @@
 
 instance Hashable DomainStatus
 
+instance NFData DomainStatus
+
 -- | Options for a field that contains an array of double-precision 64-bit
 -- floating point values. Present if 'IndexFieldType' specifies the field
 -- is of type 'double-array'. All options are enabled by default.
@@ -756,6 +774,8 @@
 
 instance Hashable DoubleArrayOptions
 
+instance NFData DoubleArrayOptions
+
 instance ToQuery DoubleArrayOptions where
         toQuery DoubleArrayOptions'{..}
           = mconcat
@@ -843,6 +863,8 @@
 
 instance Hashable DoubleOptions
 
+instance NFData DoubleOptions
+
 instance ToQuery DoubleOptions where
         toQuery DoubleOptions'{..}
           = mconcat
@@ -895,6 +917,8 @@
 
 instance Hashable Expression
 
+instance NFData Expression
+
 instance ToQuery Expression where
         toQuery Expression'{..}
           = mconcat
@@ -942,6 +966,8 @@
 
 instance Hashable ExpressionStatus
 
+instance NFData ExpressionStatus
+
 -- | Configuration information for a field in the index, including its name,
 -- type, and options. The supported options depend on the 'IndexFieldType'.
 --
@@ -1097,6 +1123,8 @@
 
 instance Hashable IndexField
 
+instance NFData IndexField
+
 instance ToQuery IndexField where
         toQuery IndexField'{..}
           = mconcat
@@ -1154,6 +1182,8 @@
 
 instance Hashable IndexFieldStatus
 
+instance NFData IndexFieldStatus
+
 -- | Options for a field that contains an array of 64-bit signed integers.
 -- Present if 'IndexFieldType' specifies the field is of type 'int-array'.
 -- All options are enabled by default.
@@ -1222,6 +1252,8 @@
 
 instance Hashable IntArrayOptions
 
+instance NFData IntArrayOptions
+
 instance ToQuery IntArrayOptions where
         toQuery IntArrayOptions'{..}
           = mconcat
@@ -1309,6 +1341,8 @@
 
 instance Hashable IntOptions
 
+instance NFData IntOptions
+
 instance ToQuery IntOptions where
         toQuery IntOptions'{..}
           = mconcat
@@ -1397,6 +1431,8 @@
 
 instance Hashable LatLonOptions
 
+instance NFData LatLonOptions
+
 instance ToQuery LatLonOptions where
         toQuery LatLonOptions'{..}
           = mconcat
@@ -1446,6 +1482,8 @@
 
 instance Hashable Limits
 
+instance NFData Limits
+
 -- | Options for a field that contains an array of literal strings. Present
 -- if 'IndexFieldType' specifies the field is of type 'literal-array'. All
 -- options are enabled by default.
@@ -1514,6 +1552,8 @@
 
 instance Hashable LiteralArrayOptions
 
+instance NFData LiteralArrayOptions
+
 instance ToQuery LiteralArrayOptions where
         toQuery LiteralArrayOptions'{..}
           = mconcat
@@ -1599,6 +1639,8 @@
 
 instance Hashable LiteralOptions
 
+instance NFData LiteralOptions
+
 instance ToQuery LiteralOptions where
         toQuery LiteralOptions'{..}
           = mconcat
@@ -1688,6 +1730,8 @@
 
 instance Hashable OptionStatus
 
+instance NFData OptionStatus
+
 -- | The desired instance type and desired number of replicas of each index
 -- partition.
 --
@@ -1740,6 +1784,8 @@
 
 instance Hashable ScalingParameters
 
+instance NFData ScalingParameters
+
 instance ToQuery ScalingParameters where
         toQuery ScalingParameters'{..}
           = mconcat
@@ -1788,6 +1834,8 @@
 
 instance Hashable ScalingParametersStatus
 
+instance NFData ScalingParametersStatus
+
 -- | The endpoint to which service requests can be submitted.
 --
 -- /See:/ 'serviceEndpoint' smart constructor.
@@ -1816,6 +1864,8 @@
 
 instance Hashable ServiceEndpoint
 
+instance NFData ServiceEndpoint
+
 -- | Configuration information for a search suggester. Each suggester has a
 -- unique name and specifies the text field you want to use for
 -- suggestions. The following options can be configured for a suggester:
@@ -1860,6 +1910,8 @@
 
 instance Hashable Suggester
 
+instance NFData Suggester
+
 instance ToQuery Suggester where
         toQuery Suggester'{..}
           = mconcat
@@ -1907,6 +1959,8 @@
 
 instance Hashable SuggesterStatus
 
+instance NFData SuggesterStatus
+
 -- | Options for a field that contains an array of text strings. Present if
 -- 'IndexFieldType' specifies the field is of type 'text-array'. A
 -- 'text-array' field is always searchable. All options are enabled by
@@ -1976,6 +2030,8 @@
 
 instance Hashable TextArrayOptions
 
+instance NFData TextArrayOptions
+
 instance ToQuery TextArrayOptions where
         toQuery TextArrayOptions'{..}
           = mconcat
@@ -2061,6 +2117,8 @@
                 <*> (x .@? "DefaultValue")
 
 instance Hashable TextOptions
+
+instance NFData TextOptions
 
 instance ToQuery TextOptions where
         toQuery TextOptions'{..}
diff --git a/gen/Network/AWS/CloudSearch/Types/Sum.hs b/gen/Network/AWS/CloudSearch/Types/Sum.hs
--- a/gen/Network/AWS/CloudSearch/Types/Sum.hs
+++ b/gen/Network/AWS/CloudSearch/Types/Sum.hs
@@ -43,6 +43,7 @@
         ASNone -> "none"
 
 instance Hashable     AlgorithmicStemming
+instance NFData       AlgorithmicStemming
 instance ToByteString AlgorithmicStemming
 instance ToQuery      AlgorithmicStemming
 instance ToHeader     AlgorithmicStemming
@@ -169,6 +170,7 @@
         ZhHant -> "zh-Hant"
 
 instance Hashable     AnalysisSchemeLanguage
+instance NFData       AnalysisSchemeLanguage
 instance ToByteString AnalysisSchemeLanguage
 instance ToQuery      AnalysisSchemeLanguage
 instance ToHeader     AnalysisSchemeLanguage
@@ -225,6 +227,7 @@
         TextArray -> "text-array"
 
 instance Hashable     IndexFieldType
+instance NFData       IndexFieldType
 instance ToByteString IndexFieldType
 instance ToQuery      IndexFieldType
 instance ToHeader     IndexFieldType
@@ -268,6 +271,7 @@
         RequiresIndexDocuments -> "RequiresIndexDocuments"
 
 instance Hashable     OptionState
+instance NFData       OptionState
 instance ToByteString OptionState
 instance ToQuery      OptionState
 instance ToHeader     OptionState
@@ -313,6 +317,7 @@
         Search_M3_XLarge -> "search.m3.xlarge"
 
 instance Hashable     PartitionInstanceType
+instance NFData       PartitionInstanceType
 instance ToByteString PartitionInstanceType
 instance ToQuery      PartitionInstanceType
 instance ToHeader     PartitionInstanceType
@@ -341,6 +346,7 @@
         None -> "none"
 
 instance Hashable     SuggesterFuzzyMatching
+instance NFData       SuggesterFuzzyMatching
 instance ToByteString SuggesterFuzzyMatching
 instance ToQuery      SuggesterFuzzyMatching
 instance ToHeader     SuggesterFuzzyMatching
diff --git a/gen/Network/AWS/CloudSearch/UpdateAvailabilityOptions.hs b/gen/Network/AWS/CloudSearch/UpdateAvailabilityOptions.hs
--- a/gen/Network/AWS/CloudSearch/UpdateAvailabilityOptions.hs
+++ b/gen/Network/AWS/CloudSearch/UpdateAvailabilityOptions.hs
@@ -100,6 +100,8 @@
 
 instance Hashable UpdateAvailabilityOptions
 
+instance NFData UpdateAvailabilityOptions
+
 instance ToHeaders UpdateAvailabilityOptions where
         toHeaders = const mempty
 
@@ -148,3 +150,5 @@
 -- | The response status code.
 uaorsResponseStatus :: Lens' UpdateAvailabilityOptionsResponse Int
 uaorsResponseStatus = lens _uaorsResponseStatus (\ s a -> s{_uaorsResponseStatus = a});
+
+instance NFData UpdateAvailabilityOptionsResponse
diff --git a/gen/Network/AWS/CloudSearch/UpdateScalingParameters.hs b/gen/Network/AWS/CloudSearch/UpdateScalingParameters.hs
--- a/gen/Network/AWS/CloudSearch/UpdateScalingParameters.hs
+++ b/gen/Network/AWS/CloudSearch/UpdateScalingParameters.hs
@@ -98,6 +98,8 @@
 
 instance Hashable UpdateScalingParameters
 
+instance NFData UpdateScalingParameters
+
 instance ToHeaders UpdateScalingParameters where
         toHeaders = const mempty
 
@@ -146,3 +148,5 @@
 -- | Undocumented member.
 usprsScalingParameters :: Lens' UpdateScalingParametersResponse ScalingParametersStatus
 usprsScalingParameters = lens _usprsScalingParameters (\ s a -> s{_usprsScalingParameters = a});
+
+instance NFData UpdateScalingParametersResponse
diff --git a/gen/Network/AWS/CloudSearch/UpdateServiceAccessPolicies.hs b/gen/Network/AWS/CloudSearch/UpdateServiceAccessPolicies.hs
--- a/gen/Network/AWS/CloudSearch/UpdateServiceAccessPolicies.hs
+++ b/gen/Network/AWS/CloudSearch/UpdateServiceAccessPolicies.hs
@@ -94,6 +94,8 @@
 
 instance Hashable UpdateServiceAccessPolicies
 
+instance NFData UpdateServiceAccessPolicies
+
 instance ToHeaders UpdateServiceAccessPolicies where
         toHeaders = const mempty
 
@@ -142,3 +144,5 @@
 -- | The access rules configured for the domain.
 usaprsAccessPolicies :: Lens' UpdateServiceAccessPoliciesResponse AccessPoliciesStatus
 usaprsAccessPolicies = lens _usaprsAccessPolicies (\ s a -> s{_usaprsAccessPolicies = a});
+
+instance NFData UpdateServiceAccessPoliciesResponse