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-iot-dataplane.cabal b/amazonka-iot-dataplane.cabal
--- a/amazonka-iot-dataplane.cabal
+++ b/amazonka-iot-dataplane.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-iot-dataplane
-version:               1.4.0
+version:               1.4.1
 synopsis:              Amazon IoT Data Plane SDK.
 homepage:              https://github.com/brendanhay/amazonka
 bug-reports:           https://github.com/brendanhay/amazonka/issues
@@ -61,7 +61,7 @@
         , Network.AWS.IoTDataPlane.Types.Sum
 
     build-depends:
-          amazonka-core == 1.4.0.*
+          amazonka-core == 1.4.1.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-iot-dataplane-test
@@ -81,9 +81,9 @@
         , Test.AWS.IoTDataPlane.Internal
 
     build-depends:
-          amazonka-core == 1.4.0.*
-        , amazonka-test == 1.4.0.*
-        , amazonka-iot-dataplane == 1.4.0.*
+          amazonka-core == 1.4.1.*
+        , amazonka-test == 1.4.1.*
+        , amazonka-iot-dataplane == 1.4.1.*
         , base
         , bytestring
         , tasty
diff --git a/gen/Network/AWS/IoTDataPlane/DeleteThingShadow.hs b/gen/Network/AWS/IoTDataPlane/DeleteThingShadow.hs
--- a/gen/Network/AWS/IoTDataPlane/DeleteThingShadow.hs
+++ b/gen/Network/AWS/IoTDataPlane/DeleteThingShadow.hs
@@ -81,6 +81,8 @@
 
 instance Hashable DeleteThingShadow
 
+instance NFData DeleteThingShadow
+
 instance ToHeaders DeleteThingShadow where
         toHeaders = const mempty
 
@@ -123,3 +125,5 @@
 -- | The state information, in JSON format.
 dtsrsPayload :: Lens' DeleteThingShadowResponse (HashMap Text Value)
 dtsrsPayload = lens _dtsrsPayload (\ s a -> s{_dtsrsPayload = a});
+
+instance NFData DeleteThingShadowResponse
diff --git a/gen/Network/AWS/IoTDataPlane/GetThingShadow.hs b/gen/Network/AWS/IoTDataPlane/GetThingShadow.hs
--- a/gen/Network/AWS/IoTDataPlane/GetThingShadow.hs
+++ b/gen/Network/AWS/IoTDataPlane/GetThingShadow.hs
@@ -81,6 +81,8 @@
 
 instance Hashable GetThingShadow
 
+instance NFData GetThingShadow
+
 instance ToHeaders GetThingShadow where
         toHeaders = const mempty
 
@@ -122,3 +124,5 @@
 -- | The response status code.
 gtsrsResponseStatus :: Lens' GetThingShadowResponse Int
 gtsrsResponseStatus = lens _gtsrsResponseStatus (\ s a -> s{_gtsrsResponseStatus = a});
+
+instance NFData GetThingShadowResponse
diff --git a/gen/Network/AWS/IoTDataPlane/Publish.hs b/gen/Network/AWS/IoTDataPlane/Publish.hs
--- a/gen/Network/AWS/IoTDataPlane/Publish.hs
+++ b/gen/Network/AWS/IoTDataPlane/Publish.hs
@@ -92,6 +92,8 @@
 
 instance Hashable Publish
 
+instance NFData Publish
+
 instance ToBody Publish where
         toBody = toBody . _pPayload
 
@@ -115,3 +117,5 @@
 publishResponse
     :: PublishResponse
 publishResponse = PublishResponse'
+
+instance NFData PublishResponse
diff --git a/gen/Network/AWS/IoTDataPlane/Types.hs b/gen/Network/AWS/IoTDataPlane/Types.hs
--- a/gen/Network/AWS/IoTDataPlane/Types.hs
+++ b/gen/Network/AWS/IoTDataPlane/Types.hs
@@ -61,6 +61,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/IoTDataPlane/UpdateThingShadow.hs b/gen/Network/AWS/IoTDataPlane/UpdateThingShadow.hs
--- a/gen/Network/AWS/IoTDataPlane/UpdateThingShadow.hs
+++ b/gen/Network/AWS/IoTDataPlane/UpdateThingShadow.hs
@@ -91,6 +91,8 @@
 
 instance Hashable UpdateThingShadow
 
+instance NFData UpdateThingShadow
+
 instance ToBody UpdateThingShadow where
         toBody = toBody . _utsPayload
 
@@ -135,3 +137,5 @@
 -- | The response status code.
 utsrsResponseStatus :: Lens' UpdateThingShadowResponse Int
 utsrsResponseStatus = lens _utsrsResponseStatus (\ s a -> s{_utsrsResponseStatus = a});
+
+instance NFData UpdateThingShadowResponse