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-cloudhsm.cabal b/amazonka-cloudhsm.cabal
--- a/amazonka-cloudhsm.cabal
+++ b/amazonka-cloudhsm.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-cloudhsm
-version:               1.4.0
+version:               1.4.1
 synopsis:              Amazon CloudHSM SDK.
 homepage:              https://github.com/brendanhay/amazonka
 bug-reports:           https://github.com/brendanhay/amazonka/issues
@@ -69,7 +69,7 @@
         , Network.AWS.CloudHSM.Types.Sum
 
     build-depends:
-          amazonka-core == 1.4.0.*
+          amazonka-core == 1.4.1.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-cloudhsm-test
@@ -89,9 +89,9 @@
         , Test.AWS.CloudHSM.Internal
 
     build-depends:
-          amazonka-core == 1.4.0.*
-        , amazonka-test == 1.4.0.*
-        , amazonka-cloudhsm == 1.4.0.*
+          amazonka-core == 1.4.1.*
+        , amazonka-test == 1.4.1.*
+        , amazonka-cloudhsm == 1.4.1.*
         , base
         , bytestring
         , tasty
diff --git a/gen/Network/AWS/CloudHSM/AddTagsToResource.hs b/gen/Network/AWS/CloudHSM/AddTagsToResource.hs
--- a/gen/Network/AWS/CloudHSM/AddTagsToResource.hs
+++ b/gen/Network/AWS/CloudHSM/AddTagsToResource.hs
@@ -18,9 +18,10 @@
 -- Stability   : auto-generated
 -- Portability : non-portable (GHC extensions)
 --
--- Adds or overwrites one or more tags for the specified resource.
+-- Adds or overwrites one or more tags for the specified AWS CloudHSM
+-- resource.
 --
--- Each tag consists of a key and a value. Tag keys must be unique per
+-- Each tag consists of a key and a value. Tag keys must be unique to each
 -- resource.
 module Network.AWS.CloudHSM.AddTagsToResource
     (
@@ -68,7 +69,7 @@
     , _attrTagList = mempty
     }
 
--- | The Amazon Resource Name (ARN) of the resource to tag.
+-- | The Amazon Resource Name (ARN) of the AWS CloudHSM resource to tag.
 attrResourceARN :: Lens' AddTagsToResource Text
 attrResourceARN = lens _attrResourceARN (\ s a -> s{_attrResourceARN = a});
 
@@ -87,6 +88,8 @@
 
 instance Hashable AddTagsToResource
 
+instance NFData AddTagsToResource
+
 instance ToHeaders AddTagsToResource where
         toHeaders
           = const
@@ -140,3 +143,5 @@
 -- | The status of the operation.
 attrrsStatus :: Lens' AddTagsToResourceResponse Text
 attrrsStatus = lens _attrrsStatus (\ s a -> s{_attrrsStatus = a});
+
+instance NFData AddTagsToResourceResponse
diff --git a/gen/Network/AWS/CloudHSM/CreateHAPG.hs b/gen/Network/AWS/CloudHSM/CreateHAPG.hs
--- a/gen/Network/AWS/CloudHSM/CreateHAPG.hs
+++ b/gen/Network/AWS/CloudHSM/CreateHAPG.hs
@@ -79,6 +79,8 @@
 
 instance Hashable CreateHAPG
 
+instance NFData CreateHAPG
+
 instance ToHeaders CreateHAPG where
         toHeaders
           = const
@@ -129,3 +131,5 @@
 -- | The response status code.
 chapgrsResponseStatus :: Lens' CreateHAPGResponse Int
 chapgrsResponseStatus = lens _chapgrsResponseStatus (\ s a -> s{_chapgrsResponseStatus = a});
+
+instance NFData CreateHAPGResponse
diff --git a/gen/Network/AWS/CloudHSM/CreateHSM.hs b/gen/Network/AWS/CloudHSM/CreateHSM.hs
--- a/gen/Network/AWS/CloudHSM/CreateHSM.hs
+++ b/gen/Network/AWS/CloudHSM/CreateHSM.hs
@@ -160,6 +160,8 @@
 
 instance Hashable CreateHSM
 
+instance NFData CreateHSM
+
 instance ToHeaders CreateHSM where
         toHeaders
           = const
@@ -219,3 +221,5 @@
 -- | The response status code.
 chrsResponseStatus :: Lens' CreateHSMResponse Int
 chrsResponseStatus = lens _chrsResponseStatus (\ s a -> s{_chrsResponseStatus = a});
+
+instance NFData CreateHSMResponse
diff --git a/gen/Network/AWS/CloudHSM/CreateLunaClient.hs b/gen/Network/AWS/CloudHSM/CreateLunaClient.hs
--- a/gen/Network/AWS/CloudHSM/CreateLunaClient.hs
+++ b/gen/Network/AWS/CloudHSM/CreateLunaClient.hs
@@ -87,6 +87,8 @@
 
 instance Hashable CreateLunaClient
 
+instance NFData CreateLunaClient
+
 instance ToHeaders CreateLunaClient where
         toHeaders
           = const
@@ -141,3 +143,5 @@
 -- | The response status code.
 clcrsResponseStatus :: Lens' CreateLunaClientResponse Int
 clcrsResponseStatus = lens _clcrsResponseStatus (\ s a -> s{_clcrsResponseStatus = a});
+
+instance NFData CreateLunaClientResponse
diff --git a/gen/Network/AWS/CloudHSM/DeleteHAPG.hs b/gen/Network/AWS/CloudHSM/DeleteHAPG.hs
--- a/gen/Network/AWS/CloudHSM/DeleteHAPG.hs
+++ b/gen/Network/AWS/CloudHSM/DeleteHAPG.hs
@@ -77,6 +77,8 @@
 
 instance Hashable DeleteHAPG
 
+instance NFData DeleteHAPG
+
 instance ToHeaders DeleteHAPG where
         toHeaders
           = const
@@ -128,3 +130,5 @@
 -- | The status of the action.
 dhrsStatus :: Lens' DeleteHAPGResponse Text
 dhrsStatus = lens _dhrsStatus (\ s a -> s{_dhrsStatus = a});
+
+instance NFData DeleteHAPGResponse
diff --git a/gen/Network/AWS/CloudHSM/DeleteHSM.hs b/gen/Network/AWS/CloudHSM/DeleteHSM.hs
--- a/gen/Network/AWS/CloudHSM/DeleteHSM.hs
+++ b/gen/Network/AWS/CloudHSM/DeleteHSM.hs
@@ -78,6 +78,8 @@
 
 instance Hashable DeleteHSM
 
+instance NFData DeleteHSM
+
 instance ToHeaders DeleteHSM where
         toHeaders
           = const
@@ -129,3 +131,5 @@
 -- | The status of the operation.
 dhsmrsStatus :: Lens' DeleteHSMResponse Text
 dhsmrsStatus = lens _dhsmrsStatus (\ s a -> s{_dhsmrsStatus = a});
+
+instance NFData DeleteHSMResponse
diff --git a/gen/Network/AWS/CloudHSM/DeleteLunaClient.hs b/gen/Network/AWS/CloudHSM/DeleteLunaClient.hs
--- a/gen/Network/AWS/CloudHSM/DeleteLunaClient.hs
+++ b/gen/Network/AWS/CloudHSM/DeleteLunaClient.hs
@@ -75,6 +75,8 @@
 
 instance Hashable DeleteLunaClient
 
+instance NFData DeleteLunaClient
+
 instance ToHeaders DeleteLunaClient where
         toHeaders
           = const
@@ -126,3 +128,5 @@
 -- | The status of the action.
 dlcrsStatus :: Lens' DeleteLunaClientResponse Text
 dlcrsStatus = lens _dlcrsStatus (\ s a -> s{_dlcrsStatus = a});
+
+instance NFData DeleteLunaClientResponse
diff --git a/gen/Network/AWS/CloudHSM/DescribeHAPG.hs b/gen/Network/AWS/CloudHSM/DescribeHAPG.hs
--- a/gen/Network/AWS/CloudHSM/DescribeHAPG.hs
+++ b/gen/Network/AWS/CloudHSM/DescribeHAPG.hs
@@ -93,6 +93,8 @@
 
 instance Hashable DescribeHAPG
 
+instance NFData DescribeHAPG
+
 instance ToHeaders DescribeHAPG where
         toHeaders
           = const
@@ -211,3 +213,5 @@
 -- | The response status code.
 dhapgrsResponseStatus :: Lens' DescribeHAPGResponse Int
 dhapgrsResponseStatus = lens _dhapgrsResponseStatus (\ s a -> s{_dhapgrsResponseStatus = a});
+
+instance NFData DescribeHAPGResponse
diff --git a/gen/Network/AWS/CloudHSM/DescribeHSM.hs b/gen/Network/AWS/CloudHSM/DescribeHSM.hs
--- a/gen/Network/AWS/CloudHSM/DescribeHSM.hs
+++ b/gen/Network/AWS/CloudHSM/DescribeHSM.hs
@@ -128,6 +128,8 @@
 
 instance Hashable DescribeHSM
 
+instance NFData DescribeHSM
+
 instance ToHeaders DescribeHSM where
         toHeaders
           = const
@@ -343,3 +345,5 @@
 -- | The response status code.
 desrsResponseStatus :: Lens' DescribeHSMResponse Int
 desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a});
+
+instance NFData DescribeHSMResponse
diff --git a/gen/Network/AWS/CloudHSM/DescribeLunaClient.hs b/gen/Network/AWS/CloudHSM/DescribeLunaClient.hs
--- a/gen/Network/AWS/CloudHSM/DescribeLunaClient.hs
+++ b/gen/Network/AWS/CloudHSM/DescribeLunaClient.hs
@@ -93,6 +93,8 @@
 
 instance Hashable DescribeLunaClient
 
+instance NFData DescribeLunaClient
+
 instance ToHeaders DescribeLunaClient where
         toHeaders
           = const
@@ -178,3 +180,5 @@
 -- | The response status code.
 drsResponseStatus :: Lens' DescribeLunaClientResponse Int
 drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});
+
+instance NFData DescribeLunaClientResponse
diff --git a/gen/Network/AWS/CloudHSM/GetConfig.hs b/gen/Network/AWS/CloudHSM/GetConfig.hs
--- a/gen/Network/AWS/CloudHSM/GetConfig.hs
+++ b/gen/Network/AWS/CloudHSM/GetConfig.hs
@@ -100,6 +100,8 @@
 
 instance Hashable GetConfig
 
+instance NFData GetConfig
+
 instance ToHeaders GetConfig where
         toHeaders
           = const
@@ -168,3 +170,5 @@
 -- | The response status code.
 gcrsResponseStatus :: Lens' GetConfigResponse Int
 gcrsResponseStatus = lens _gcrsResponseStatus (\ s a -> s{_gcrsResponseStatus = a});
+
+instance NFData GetConfigResponse
diff --git a/gen/Network/AWS/CloudHSM/ListAvailableZones.hs b/gen/Network/AWS/CloudHSM/ListAvailableZones.hs
--- a/gen/Network/AWS/CloudHSM/ListAvailableZones.hs
+++ b/gen/Network/AWS/CloudHSM/ListAvailableZones.hs
@@ -65,6 +65,8 @@
 
 instance Hashable ListAvailableZones
 
+instance NFData ListAvailableZones
+
 instance ToHeaders ListAvailableZones where
         toHeaders
           = const
@@ -114,3 +116,5 @@
 -- | The response status code.
 lazrsResponseStatus :: Lens' ListAvailableZonesResponse Int
 lazrsResponseStatus = lens _lazrsResponseStatus (\ s a -> s{_lazrsResponseStatus = a});
+
+instance NFData ListAvailableZonesResponse
diff --git a/gen/Network/AWS/CloudHSM/ListHAPGs.hs b/gen/Network/AWS/CloudHSM/ListHAPGs.hs
--- a/gen/Network/AWS/CloudHSM/ListHAPGs.hs
+++ b/gen/Network/AWS/CloudHSM/ListHAPGs.hs
@@ -82,6 +82,8 @@
 
 instance Hashable ListHAPGs
 
+instance NFData ListHAPGs
+
 instance ToHeaders ListHAPGs where
         toHeaders
           = const
@@ -140,3 +142,5 @@
 -- | The list of high-availability partition groups.
 lhrsHAPGList :: Lens' ListHAPGsResponse [Text]
 lhrsHAPGList = lens _lhrsHAPGList (\ s a -> s{_lhrsHAPGList = a}) . _Coerce;
+
+instance NFData ListHAPGsResponse
diff --git a/gen/Network/AWS/CloudHSM/ListHSMs.hs b/gen/Network/AWS/CloudHSM/ListHSMs.hs
--- a/gen/Network/AWS/CloudHSM/ListHSMs.hs
+++ b/gen/Network/AWS/CloudHSM/ListHSMs.hs
@@ -83,6 +83,8 @@
 
 instance Hashable ListHSMs
 
+instance NFData ListHSMs
+
 instance ToHeaders ListHSMs where
         toHeaders
           = const
@@ -143,3 +145,5 @@
 -- | The response status code.
 lhsmrsResponseStatus :: Lens' ListHSMsResponse Int
 lhsmrsResponseStatus = lens _lhsmrsResponseStatus (\ s a -> s{_lhsmrsResponseStatus = a});
+
+instance NFData ListHSMsResponse
diff --git a/gen/Network/AWS/CloudHSM/ListLunaClients.hs b/gen/Network/AWS/CloudHSM/ListLunaClients.hs
--- a/gen/Network/AWS/CloudHSM/ListLunaClients.hs
+++ b/gen/Network/AWS/CloudHSM/ListLunaClients.hs
@@ -82,6 +82,8 @@
 
 instance Hashable ListLunaClients
 
+instance NFData ListLunaClients
+
 instance ToHeaders ListLunaClients where
         toHeaders
           = const
@@ -141,3 +143,5 @@
 -- | The list of clients.
 llcrsClientList :: Lens' ListLunaClientsResponse [Text]
 llcrsClientList = lens _llcrsClientList (\ s a -> s{_llcrsClientList = a}) . _Coerce;
+
+instance NFData ListLunaClientsResponse
diff --git a/gen/Network/AWS/CloudHSM/ListTagsForResource.hs b/gen/Network/AWS/CloudHSM/ListTagsForResource.hs
--- a/gen/Network/AWS/CloudHSM/ListTagsForResource.hs
+++ b/gen/Network/AWS/CloudHSM/ListTagsForResource.hs
@@ -18,7 +18,7 @@
 -- Stability   : auto-generated
 -- Portability : non-portable (GHC extensions)
 --
--- Returns a list of all tags for the specified resource.
+-- Returns a list of all tags for the specified AWS CloudHSM resource.
 module Network.AWS.CloudHSM.ListTagsForResource
     (
     -- * Creating a Request
@@ -60,7 +60,7 @@
     { _ltfrResourceARN = pResourceARN_
     }
 
--- | The Amazon Resource Name (ARN) of the resource.
+-- | The Amazon Resource Name (ARN) of the AWS CloudHSM resource.
 ltfrResourceARN :: Lens' ListTagsForResource Text
 ltfrResourceARN = lens _ltfrResourceARN (\ s a -> s{_ltfrResourceARN = a});
 
@@ -76,6 +76,8 @@
 
 instance Hashable ListTagsForResource
 
+instance NFData ListTagsForResource
+
 instance ToHeaders ListTagsForResource where
         toHeaders
           = const
@@ -127,3 +129,5 @@
 -- | One or more tags.
 ltfrrsTagList :: Lens' ListTagsForResourceResponse [Tag]
 ltfrrsTagList = lens _ltfrrsTagList (\ s a -> s{_ltfrrsTagList = a}) . _Coerce;
+
+instance NFData ListTagsForResourceResponse
diff --git a/gen/Network/AWS/CloudHSM/ModifyHAPG.hs b/gen/Network/AWS/CloudHSM/ModifyHAPG.hs
--- a/gen/Network/AWS/CloudHSM/ModifyHAPG.hs
+++ b/gen/Network/AWS/CloudHSM/ModifyHAPG.hs
@@ -94,6 +94,8 @@
 
 instance Hashable ModifyHAPG
 
+instance NFData ModifyHAPG
+
 instance ToHeaders ModifyHAPG where
         toHeaders
           = const
@@ -147,3 +149,5 @@
 -- | The response status code.
 mhrsResponseStatus :: Lens' ModifyHAPGResponse Int
 mhrsResponseStatus = lens _mhrsResponseStatus (\ s a -> s{_mhrsResponseStatus = a});
+
+instance NFData ModifyHAPGResponse
diff --git a/gen/Network/AWS/CloudHSM/ModifyHSM.hs b/gen/Network/AWS/CloudHSM/ModifyHSM.hs
--- a/gen/Network/AWS/CloudHSM/ModifyHSM.hs
+++ b/gen/Network/AWS/CloudHSM/ModifyHSM.hs
@@ -135,6 +135,8 @@
 
 instance Hashable ModifyHSM
 
+instance NFData ModifyHSM
+
 instance ToHeaders ModifyHSM where
         toHeaders
           = const
@@ -192,3 +194,5 @@
 -- | The response status code.
 mhsmrsResponseStatus :: Lens' ModifyHSMResponse Int
 mhsmrsResponseStatus = lens _mhsmrsResponseStatus (\ s a -> s{_mhsmrsResponseStatus = a});
+
+instance NFData ModifyHSMResponse
diff --git a/gen/Network/AWS/CloudHSM/ModifyLunaClient.hs b/gen/Network/AWS/CloudHSM/ModifyLunaClient.hs
--- a/gen/Network/AWS/CloudHSM/ModifyLunaClient.hs
+++ b/gen/Network/AWS/CloudHSM/ModifyLunaClient.hs
@@ -88,6 +88,8 @@
 
 instance Hashable ModifyLunaClient
 
+instance NFData ModifyLunaClient
+
 instance ToHeaders ModifyLunaClient where
         toHeaders
           = const
@@ -140,3 +142,5 @@
 -- | The response status code.
 mlcrsResponseStatus :: Lens' ModifyLunaClientResponse Int
 mlcrsResponseStatus = lens _mlcrsResponseStatus (\ s a -> s{_mlcrsResponseStatus = a});
+
+instance NFData ModifyLunaClientResponse
diff --git a/gen/Network/AWS/CloudHSM/RemoveTagsFromResource.hs b/gen/Network/AWS/CloudHSM/RemoveTagsFromResource.hs
--- a/gen/Network/AWS/CloudHSM/RemoveTagsFromResource.hs
+++ b/gen/Network/AWS/CloudHSM/RemoveTagsFromResource.hs
@@ -18,7 +18,7 @@
 -- Stability   : auto-generated
 -- Portability : non-portable (GHC extensions)
 --
--- Removes one or more tags from the specified resource.
+-- Removes one or more tags from the specified AWS CloudHSM resource.
 --
 -- To remove a tag, specify only the tag key to remove (not the value). To
 -- overwrite the value for an existing tag, use < AddTagsToResource>.
@@ -68,7 +68,7 @@
     , _rtfrTagKeyList = mempty
     }
 
--- | The Amazon Resource Name (ARN) of the resource.
+-- | The Amazon Resource Name (ARN) of the AWS CloudHSM resource.
 rtfrResourceARN :: Lens' RemoveTagsFromResource Text
 rtfrResourceARN = lens _rtfrResourceARN (\ s a -> s{_rtfrResourceARN = a});
 
@@ -91,6 +91,8 @@
 
 instance Hashable RemoveTagsFromResource
 
+instance NFData RemoveTagsFromResource
+
 instance ToHeaders RemoveTagsFromResource where
         toHeaders
           = const
@@ -144,3 +146,5 @@
 -- | The status of the operation.
 rtfrrsStatus :: Lens' RemoveTagsFromResourceResponse Text
 rtfrrsStatus = lens _rtfrrsStatus (\ s a -> s{_rtfrrsStatus = a});
+
+instance NFData RemoveTagsFromResourceResponse
diff --git a/gen/Network/AWS/CloudHSM/Types.hs b/gen/Network/AWS/CloudHSM/Types.hs
--- a/gen/Network/AWS/CloudHSM/Types.hs
+++ b/gen/Network/AWS/CloudHSM/Types.hs
@@ -72,6 +72,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/CloudHSM/Types/Product.hs b/gen/Network/AWS/CloudHSM/Types/Product.hs
--- a/gen/Network/AWS/CloudHSM/Types/Product.hs
+++ b/gen/Network/AWS/CloudHSM/Types/Product.hs
@@ -21,7 +21,8 @@
 import           Network.AWS.Lens
 import           Network.AWS.Prelude
 
--- | A key-value pair that identifies or specifies metadata about a resource.
+-- | A key-value pair that identifies or specifies metadata about an AWS
+-- CloudHSM resource.
 --
 -- /See:/ 'tag' smart constructor.
 data Tag = Tag'
@@ -60,6 +61,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/CloudHSM/Types/Sum.hs b/gen/Network/AWS/CloudHSM/Types/Sum.hs
--- a/gen/Network/AWS/CloudHSM/Types/Sum.hs
+++ b/gen/Network/AWS/CloudHSM/Types/Sum.hs
@@ -37,6 +37,7 @@
         VD5_3 -> "5.3"
 
 instance Hashable     ClientVersion
+instance NFData       ClientVersion
 instance ToByteString ClientVersion
 instance ToQuery      ClientVersion
 instance ToHeader     ClientVersion
@@ -65,6 +66,7 @@
         Updating -> "UPDATING"
 
 instance Hashable     CloudHSMObjectState
+instance NFData       CloudHSMObjectState
 instance ToByteString CloudHSMObjectState
 instance ToQuery      CloudHSMObjectState
 instance ToHeader     CloudHSMObjectState
@@ -105,6 +107,7 @@
         HSUpdating -> "UPDATING"
 
 instance Hashable     HSMStatus
+instance NFData       HSMStatus
 instance ToByteString HSMStatus
 instance ToQuery      HSMStatus
 instance ToHeader     HSMStatus
@@ -131,6 +134,7 @@
         Production -> "PRODUCTION"
 
 instance Hashable     SubscriptionType
+instance NFData       SubscriptionType
 instance ToByteString SubscriptionType
 instance ToQuery      SubscriptionType
 instance ToHeader     SubscriptionType