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-domains.cabal b/amazonka-cloudsearch-domains.cabal
--- a/amazonka-cloudsearch-domains.cabal
+++ b/amazonka-cloudsearch-domains.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-cloudsearch-domains
-version:               1.4.0
+version:               1.4.1
 synopsis:              Amazon CloudSearch Domain SDK.
 homepage:              https://github.com/brendanhay/amazonka
 bug-reports:           https://github.com/brendanhay/amazonka/issues
@@ -63,7 +63,7 @@
         , Network.AWS.CloudSearchDomains.Types.Sum
 
     build-depends:
-          amazonka-core == 1.4.0.*
+          amazonka-core == 1.4.1.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-cloudsearch-domains-test
@@ -83,9 +83,9 @@
         , Test.AWS.CloudSearchDomains.Internal
 
     build-depends:
-          amazonka-core == 1.4.0.*
-        , amazonka-test == 1.4.0.*
-        , amazonka-cloudsearch-domains == 1.4.0.*
+          amazonka-core == 1.4.1.*
+        , amazonka-test == 1.4.1.*
+        , amazonka-cloudsearch-domains == 1.4.1.*
         , base
         , bytestring
         , tasty
diff --git a/gen/Network/AWS/CloudSearchDomains/Search.hs b/gen/Network/AWS/CloudSearchDomains/Search.hs
--- a/gen/Network/AWS/CloudSearchDomains/Search.hs
+++ b/gen/Network/AWS/CloudSearchDomains/Search.hs
@@ -514,6 +514,8 @@
 
 instance Hashable Search
 
+instance NFData Search
+
 instance ToHeaders Search where
         toHeaders
           = const
@@ -594,3 +596,5 @@
 -- | The response status code.
 searsResponseStatus :: Lens' SearchResponse Int
 searsResponseStatus = lens _searsResponseStatus (\ s a -> s{_searsResponseStatus = a});
+
+instance NFData SearchResponse
diff --git a/gen/Network/AWS/CloudSearchDomains/Suggest.hs b/gen/Network/AWS/CloudSearchDomains/Suggest.hs
--- a/gen/Network/AWS/CloudSearchDomains/Suggest.hs
+++ b/gen/Network/AWS/CloudSearchDomains/Suggest.hs
@@ -116,6 +116,8 @@
 
 instance Hashable Suggest
 
+instance NFData Suggest
+
 instance ToHeaders Suggest where
         toHeaders
           = const
@@ -172,3 +174,5 @@
 -- | The response status code.
 srsResponseStatus :: Lens' SuggestResponse Int
 srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a});
+
+instance NFData SuggestResponse
diff --git a/gen/Network/AWS/CloudSearchDomains/Types.hs b/gen/Network/AWS/CloudSearchDomains/Types.hs
--- a/gen/Network/AWS/CloudSearchDomains/Types.hs
+++ b/gen/Network/AWS/CloudSearchDomains/Types.hs
@@ -129,6 +129,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/CloudSearchDomains/Types/Product.hs b/gen/Network/AWS/CloudSearchDomains/Types/Product.hs
--- a/gen/Network/AWS/CloudSearchDomains/Types/Product.hs
+++ b/gen/Network/AWS/CloudSearchDomains/Types/Product.hs
@@ -61,6 +61,8 @@
 
 instance Hashable Bucket
 
+instance NFData Bucket
+
 -- | A container for the calculated facet values and counts.
 --
 -- /See:/ 'bucketInfo' smart constructor.
@@ -91,6 +93,8 @@
 
 instance Hashable BucketInfo
 
+instance NFData BucketInfo
+
 -- | A warning returned by the document service when an issue is discovered
 -- while processing an upload request.
 --
@@ -123,6 +127,8 @@
 
 instance Hashable DocumentServiceWarning
 
+instance NFData DocumentServiceWarning
+
 -- | The statistics for a field calculated in the request.
 --
 -- /See:/ 'fieldStats' smart constructor.
@@ -242,6 +248,8 @@
 
 instance Hashable FieldStats
 
+instance NFData FieldStats
+
 -- | Information about a document that matches the search request.
 --
 -- /See:/ 'hit' smart constructor.
@@ -301,6 +309,8 @@
 
 instance Hashable Hit
 
+instance NFData Hit
+
 -- | The collection of documents that match the search request.
 --
 -- /See:/ 'hits' smart constructor.
@@ -360,6 +370,8 @@
 
 instance Hashable Hits
 
+instance NFData Hits
+
 -- | Contains the resource id ('rid') and the time it took to process the
 -- request ('timems').
 --
@@ -400,6 +412,8 @@
 
 instance Hashable SearchStatus
 
+instance NFData SearchStatus
+
 -- | Container for the suggestion information returned in a
 -- 'SuggestResponse'.
 --
@@ -450,6 +464,8 @@
 
 instance Hashable SuggestModel
 
+instance NFData SuggestModel
+
 -- | Contains the resource id ('rid') and the time it took to process the
 -- request ('timems').
 --
@@ -491,6 +507,8 @@
 
 instance Hashable SuggestStatus
 
+instance NFData SuggestStatus
+
 -- | An autocomplete suggestion that matches the query string specified in a
 -- 'SuggestRequest'.
 --
@@ -541,3 +559,5 @@
                      (x .:? "id"))
 
 instance Hashable SuggestionMatch
+
+instance NFData SuggestionMatch
diff --git a/gen/Network/AWS/CloudSearchDomains/Types/Sum.hs b/gen/Network/AWS/CloudSearchDomains/Types/Sum.hs
--- a/gen/Network/AWS/CloudSearchDomains/Types/Sum.hs
+++ b/gen/Network/AWS/CloudSearchDomains/Types/Sum.hs
@@ -37,6 +37,7 @@
         ApplicationXML -> "application/xml"
 
 instance Hashable     ContentType
+instance NFData       ContentType
 instance ToByteString ContentType
 instance ToQuery      ContentType
 instance ToHeader     ContentType
@@ -68,6 +69,7 @@
         Structured -> "structured"
 
 instance Hashable     QueryParser
+instance NFData       QueryParser
 instance ToByteString QueryParser
 instance ToQuery      QueryParser
 instance ToHeader     QueryParser
diff --git a/gen/Network/AWS/CloudSearchDomains/UploadDocuments.hs b/gen/Network/AWS/CloudSearchDomains/UploadDocuments.hs
--- a/gen/Network/AWS/CloudSearchDomains/UploadDocuments.hs
+++ b/gen/Network/AWS/CloudSearchDomains/UploadDocuments.hs
@@ -192,3 +192,5 @@
 -- | The response status code.
 udrsResponseStatus :: Lens' UploadDocumentsResponse Int
 udrsResponseStatus = lens _udrsResponseStatus (\ s a -> s{_udrsResponseStatus = a});
+
+instance NFData UploadDocumentsResponse