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-elasticsearch.cabal b/amazonka-elasticsearch.cabal
--- a/amazonka-elasticsearch.cabal
+++ b/amazonka-elasticsearch.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-elasticsearch
-version:               1.4.0
+version:               1.4.1
 synopsis:              Amazon Elasticsearch Service SDK.
 homepage:              https://github.com/brendanhay/amazonka
 bug-reports:           https://github.com/brendanhay/amazonka/issues
@@ -67,7 +67,7 @@
         , Network.AWS.ElasticSearch.Types.Sum
 
     build-depends:
-          amazonka-core == 1.4.0.*
+          amazonka-core == 1.4.1.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-elasticsearch-test
@@ -87,9 +87,9 @@
         , Test.AWS.ElasticSearch.Internal
 
     build-depends:
-          amazonka-core == 1.4.0.*
-        , amazonka-test == 1.4.0.*
-        , amazonka-elasticsearch == 1.4.0.*
+          amazonka-core == 1.4.1.*
+        , amazonka-test == 1.4.1.*
+        , amazonka-elasticsearch == 1.4.1.*
         , base
         , bytestring
         , tasty
diff --git a/gen/Network/AWS/ElasticSearch/AddTags.hs b/gen/Network/AWS/ElasticSearch/AddTags.hs
--- a/gen/Network/AWS/ElasticSearch/AddTags.hs
+++ b/gen/Network/AWS/ElasticSearch/AddTags.hs
@@ -83,6 +83,8 @@
 
 instance Hashable AddTags
 
+instance NFData AddTags
+
 instance ToHeaders AddTags where
         toHeaders = const mempty
 
@@ -109,3 +111,5 @@
 addTagsResponse
     :: AddTagsResponse
 addTagsResponse = AddTagsResponse'
+
+instance NFData AddTagsResponse
diff --git a/gen/Network/AWS/ElasticSearch/CreateElasticsearchDomain.hs b/gen/Network/AWS/ElasticSearch/CreateElasticsearchDomain.hs
--- a/gen/Network/AWS/ElasticSearch/CreateElasticsearchDomain.hs
+++ b/gen/Network/AWS/ElasticSearch/CreateElasticsearchDomain.hs
@@ -133,6 +133,8 @@
 
 instance Hashable CreateElasticsearchDomain
 
+instance NFData CreateElasticsearchDomain
+
 instance ToHeaders CreateElasticsearchDomain where
         toHeaders = const mempty
 
@@ -186,3 +188,5 @@
 -- | The response status code.
 cedrsResponseStatus :: Lens' CreateElasticsearchDomainResponse Int
 cedrsResponseStatus = lens _cedrsResponseStatus (\ s a -> s{_cedrsResponseStatus = a});
+
+instance NFData CreateElasticsearchDomainResponse
diff --git a/gen/Network/AWS/ElasticSearch/DeleteElasticsearchDomain.hs b/gen/Network/AWS/ElasticSearch/DeleteElasticsearchDomain.hs
--- a/gen/Network/AWS/ElasticSearch/DeleteElasticsearchDomain.hs
+++ b/gen/Network/AWS/ElasticSearch/DeleteElasticsearchDomain.hs
@@ -82,6 +82,8 @@
 
 instance Hashable DeleteElasticsearchDomain
 
+instance NFData DeleteElasticsearchDomain
+
 instance ToHeaders DeleteElasticsearchDomain where
         toHeaders = const mempty
 
@@ -126,3 +128,5 @@
 -- | The response status code.
 delrsResponseStatus :: Lens' DeleteElasticsearchDomainResponse Int
 delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a});
+
+instance NFData DeleteElasticsearchDomainResponse
diff --git a/gen/Network/AWS/ElasticSearch/DescribeElasticsearchDomain.hs b/gen/Network/AWS/ElasticSearch/DescribeElasticsearchDomain.hs
--- a/gen/Network/AWS/ElasticSearch/DescribeElasticsearchDomain.hs
+++ b/gen/Network/AWS/ElasticSearch/DescribeElasticsearchDomain.hs
@@ -81,6 +81,8 @@
 
 instance Hashable DescribeElasticsearchDomain
 
+instance NFData DescribeElasticsearchDomain
+
 instance ToHeaders DescribeElasticsearchDomain where
         toHeaders = const mempty
 
@@ -125,3 +127,5 @@
 -- | The current status of the Elasticsearch domain.
 dedrsDomainStatus :: Lens' DescribeElasticsearchDomainResponse ElasticsearchDomainStatus
 dedrsDomainStatus = lens _dedrsDomainStatus (\ s a -> s{_dedrsDomainStatus = a});
+
+instance NFData DescribeElasticsearchDomainResponse
diff --git a/gen/Network/AWS/ElasticSearch/DescribeElasticsearchDomainConfig.hs b/gen/Network/AWS/ElasticSearch/DescribeElasticsearchDomainConfig.hs
--- a/gen/Network/AWS/ElasticSearch/DescribeElasticsearchDomainConfig.hs
+++ b/gen/Network/AWS/ElasticSearch/DescribeElasticsearchDomainConfig.hs
@@ -83,6 +83,8 @@
 
 instance Hashable DescribeElasticsearchDomainConfig
 
+instance NFData DescribeElasticsearchDomainConfig
+
 instance ToHeaders DescribeElasticsearchDomainConfig
          where
         toHeaders = const mempty
@@ -132,3 +134,6 @@
 -- 'DescribeElasticsearchDomainConfig' request.
 dedcrsDomainConfig :: Lens' DescribeElasticsearchDomainConfigResponse ElasticsearchDomainConfig
 dedcrsDomainConfig = lens _dedcrsDomainConfig (\ s a -> s{_dedcrsDomainConfig = a});
+
+instance NFData
+         DescribeElasticsearchDomainConfigResponse
diff --git a/gen/Network/AWS/ElasticSearch/DescribeElasticsearchDomains.hs b/gen/Network/AWS/ElasticSearch/DescribeElasticsearchDomains.hs
--- a/gen/Network/AWS/ElasticSearch/DescribeElasticsearchDomains.hs
+++ b/gen/Network/AWS/ElasticSearch/DescribeElasticsearchDomains.hs
@@ -83,6 +83,8 @@
 
 instance Hashable DescribeElasticsearchDomains
 
+instance NFData DescribeElasticsearchDomains
+
 instance ToHeaders DescribeElasticsearchDomains where
         toHeaders = const mempty
 
@@ -130,3 +132,5 @@
 -- 'DescribeElasticsearchDomains' request.
 drsDomainStatusList :: Lens' DescribeElasticsearchDomainsResponse [ElasticsearchDomainStatus]
 drsDomainStatusList = lens _drsDomainStatusList (\ s a -> s{_drsDomainStatusList = a}) . _Coerce;
+
+instance NFData DescribeElasticsearchDomainsResponse
diff --git a/gen/Network/AWS/ElasticSearch/ListDomainNames.hs b/gen/Network/AWS/ElasticSearch/ListDomainNames.hs
--- a/gen/Network/AWS/ElasticSearch/ListDomainNames.hs
+++ b/gen/Network/AWS/ElasticSearch/ListDomainNames.hs
@@ -64,6 +64,8 @@
 
 instance Hashable ListDomainNames
 
+instance NFData ListDomainNames
+
 instance ToHeaders ListDomainNames where
         toHeaders = const mempty
 
@@ -105,3 +107,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/ElasticSearch/ListTags.hs b/gen/Network/AWS/ElasticSearch/ListTags.hs
--- a/gen/Network/AWS/ElasticSearch/ListTags.hs
+++ b/gen/Network/AWS/ElasticSearch/ListTags.hs
@@ -80,6 +80,8 @@
 
 instance Hashable ListTags
 
+instance NFData ListTags
+
 instance ToHeaders ListTags where
         toHeaders = const mempty
 
@@ -121,3 +123,5 @@
 -- | The response status code.
 ltrsResponseStatus :: Lens' ListTagsResponse Int
 ltrsResponseStatus = lens _ltrsResponseStatus (\ s a -> s{_ltrsResponseStatus = a});
+
+instance NFData ListTagsResponse
diff --git a/gen/Network/AWS/ElasticSearch/RemoveTags.hs b/gen/Network/AWS/ElasticSearch/RemoveTags.hs
--- a/gen/Network/AWS/ElasticSearch/RemoveTags.hs
+++ b/gen/Network/AWS/ElasticSearch/RemoveTags.hs
@@ -84,6 +84,8 @@
 
 instance Hashable RemoveTags
 
+instance NFData RemoveTags
+
 instance ToHeaders RemoveTags where
         toHeaders = const mempty
 
@@ -110,3 +112,5 @@
 removeTagsResponse
     :: RemoveTagsResponse
 removeTagsResponse = RemoveTagsResponse'
+
+instance NFData RemoveTagsResponse
diff --git a/gen/Network/AWS/ElasticSearch/Types.hs b/gen/Network/AWS/ElasticSearch/Types.hs
--- a/gen/Network/AWS/ElasticSearch/Types.hs
+++ b/gen/Network/AWS/ElasticSearch/Types.hs
@@ -166,6 +166,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/ElasticSearch/Types/Product.hs b/gen/Network/AWS/ElasticSearch/Types/Product.hs
--- a/gen/Network/AWS/ElasticSearch/Types/Product.hs
+++ b/gen/Network/AWS/ElasticSearch/Types/Product.hs
@@ -68,6 +68,8 @@
 
 instance Hashable AccessPoliciesStatus
 
+instance NFData AccessPoliciesStatus
+
 -- | Status of the advanced options for the specified Elasticsearch domain.
 -- Currently, the following advanced options are available:
 --
@@ -123,6 +125,8 @@
 
 instance Hashable AdvancedOptionsStatus
 
+instance NFData AdvancedOptionsStatus
+
 -- | /See:/ 'domainInfo' smart constructor.
 newtype DomainInfo = DomainInfo'
     { _diDomainName :: Maybe Text
@@ -151,6 +155,8 @@
 
 instance Hashable DomainInfo
 
+instance NFData DomainInfo
+
 -- | Options to enable, disable, and specify the properties of EBS storage
 -- volumes. For more information, see
 -- <http://docs.aws.amazon.com/elasticsearch-service/latest/developerguide/es-createupdatedomains.html#es-createdomain-configure-ebs Configuring EBS-based Storage>.
@@ -211,6 +217,8 @@
 
 instance Hashable EBSOptions
 
+instance NFData EBSOptions
+
 instance ToJSON EBSOptions where
         toJSON EBSOptions'{..}
           = object
@@ -263,6 +271,8 @@
 
 instance Hashable EBSOptionsStatus
 
+instance NFData EBSOptionsStatus
+
 -- | Specifies the configuration for the domain cluster, such as the type and
 -- number of instances.
 --
@@ -347,6 +357,8 @@
 
 instance Hashable ElasticsearchClusterConfig
 
+instance NFData ElasticsearchClusterConfig
+
 instance ToJSON ElasticsearchClusterConfig where
         toJSON ElasticsearchClusterConfig'{..}
           = object
@@ -408,6 +420,8 @@
 
 instance Hashable ElasticsearchClusterConfigStatus
 
+instance NFData ElasticsearchClusterConfigStatus
+
 -- | The configuration of an Elasticsearch domain.
 --
 -- /See:/ 'elasticsearchDomainConfig' smart constructor.
@@ -477,6 +491,8 @@
 
 instance Hashable ElasticsearchDomainConfig
 
+instance NFData ElasticsearchDomainConfig
+
 -- | The current status of an Elasticsearch domain.
 --
 -- /See:/ 'elasticsearchDomainStatus' smart constructor.
@@ -625,6 +641,8 @@
 
 instance Hashable ElasticsearchDomainStatus
 
+instance NFData ElasticsearchDomainStatus
+
 -- | Provides the current status of the entity.
 --
 -- /See:/ 'optionStatus' smart constructor.
@@ -695,6 +713,8 @@
 
 instance Hashable OptionStatus
 
+instance NFData OptionStatus
+
 -- | Specifies the time, in UTC format, when the service takes a daily
 -- automated snapshot of the specified Elasticsearch domain. Default value
 -- is '0' hours.
@@ -731,6 +751,8 @@
 
 instance Hashable SnapshotOptions
 
+instance NFData SnapshotOptions
+
 instance ToJSON SnapshotOptions where
         toJSON SnapshotOptions'{..}
           = object
@@ -781,6 +803,8 @@
 
 instance Hashable SnapshotOptionsStatus
 
+instance NFData SnapshotOptionsStatus
+
 -- | Specifies a key value pair for a resource tag.
 --
 -- /See:/ 'tag' smart constructor.
@@ -824,6 +848,8 @@
               (\ x -> Tag' <$> (x .: "Key") <*> (x .: "Value"))
 
 instance Hashable Tag
+
+instance NFData Tag
 
 instance ToJSON Tag where
         toJSON Tag'{..}
diff --git a/gen/Network/AWS/ElasticSearch/Types/Sum.hs b/gen/Network/AWS/ElasticSearch/Types/Sum.hs
--- a/gen/Network/AWS/ElasticSearch/Types/Sum.hs
+++ b/gen/Network/AWS/ElasticSearch/Types/Sum.hs
@@ -73,6 +73,7 @@
         T2_Small_Elasticsearch -> "t2.small.elasticsearch"
 
 instance Hashable     ESPartitionInstanceType
+instance NFData       ESPartitionInstanceType
 instance ToByteString ESPartitionInstanceType
 instance ToQuery      ESPartitionInstanceType
 instance ToHeader     ESPartitionInstanceType
@@ -109,6 +110,7 @@
         RequiresIndexDocuments -> "RequiresIndexDocuments"
 
 instance Hashable     OptionState
+instance NFData       OptionState
 instance ToByteString OptionState
 instance ToQuery      OptionState
 instance ToHeader     OptionState
@@ -140,6 +142,7 @@
         Standard -> "standard"
 
 instance Hashable     VolumeType
+instance NFData       VolumeType
 instance ToByteString VolumeType
 instance ToQuery      VolumeType
 instance ToHeader     VolumeType
diff --git a/gen/Network/AWS/ElasticSearch/UpdateElasticsearchDomainConfig.hs b/gen/Network/AWS/ElasticSearch/UpdateElasticsearchDomainConfig.hs
--- a/gen/Network/AWS/ElasticSearch/UpdateElasticsearchDomainConfig.hs
+++ b/gen/Network/AWS/ElasticSearch/UpdateElasticsearchDomainConfig.hs
@@ -133,6 +133,8 @@
 
 instance Hashable UpdateElasticsearchDomainConfig
 
+instance NFData UpdateElasticsearchDomainConfig
+
 instance ToHeaders UpdateElasticsearchDomainConfig
          where
         toHeaders = const mempty
@@ -191,3 +193,6 @@
 -- | The status of the updated Elasticsearch domain.
 uedcrsDomainConfig :: Lens' UpdateElasticsearchDomainConfigResponse ElasticsearchDomainConfig
 uedcrsDomainConfig = lens _uedcrsDomainConfig (\ s a -> s{_uedcrsDomainConfig = a});
+
+instance NFData
+         UpdateElasticsearchDomainConfigResponse