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-cloudtrail.cabal b/amazonka-cloudtrail.cabal
--- a/amazonka-cloudtrail.cabal
+++ b/amazonka-cloudtrail.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-cloudtrail
-version:               1.4.0
+version:               1.4.1
 synopsis:              Amazon CloudTrail SDK.
 homepage:              https://github.com/brendanhay/amazonka
 bug-reports:           https://github.com/brendanhay/amazonka/issues
@@ -83,7 +83,7 @@
         , Network.AWS.CloudTrail.Types.Sum
 
     build-depends:
-          amazonka-core == 1.4.0.*
+          amazonka-core == 1.4.1.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-cloudtrail-test
@@ -103,9 +103,9 @@
         , Test.AWS.CloudTrail.Internal
 
     build-depends:
-          amazonka-core == 1.4.0.*
-        , amazonka-test == 1.4.0.*
-        , amazonka-cloudtrail == 1.4.0.*
+          amazonka-core == 1.4.1.*
+        , amazonka-test == 1.4.1.*
+        , amazonka-cloudtrail == 1.4.1.*
         , base
         , bytestring
         , tasty
diff --git a/gen/Network/AWS/CloudTrail/AddTags.hs b/gen/Network/AWS/CloudTrail/AddTags.hs
--- a/gen/Network/AWS/CloudTrail/AddTags.hs
+++ b/gen/Network/AWS/CloudTrail/AddTags.hs
@@ -90,6 +90,8 @@
 
 instance Hashable AddTags
 
+instance NFData AddTags
+
 instance ToHeaders AddTags where
         toHeaders
           = const
@@ -137,3 +139,5 @@
 -- | The response status code.
 atrsResponseStatus :: Lens' AddTagsResponse Int
 atrsResponseStatus = lens _atrsResponseStatus (\ s a -> s{_atrsResponseStatus = a});
+
+instance NFData AddTagsResponse
diff --git a/gen/Network/AWS/CloudTrail/CreateTrail.hs b/gen/Network/AWS/CloudTrail/CreateTrail.hs
--- a/gen/Network/AWS/CloudTrail/CreateTrail.hs
+++ b/gen/Network/AWS/CloudTrail/CreateTrail.hs
@@ -224,6 +224,8 @@
 
 instance Hashable CreateTrail
 
+instance NFData CreateTrail
+
 instance ToHeaders CreateTrail where
         toHeaders
           = const
@@ -382,3 +384,5 @@
 -- | The response status code.
 ctrsResponseStatus :: Lens' CreateTrailResponse Int
 ctrsResponseStatus = lens _ctrsResponseStatus (\ s a -> s{_ctrsResponseStatus = a});
+
+instance NFData CreateTrailResponse
diff --git a/gen/Network/AWS/CloudTrail/DeleteTrail.hs b/gen/Network/AWS/CloudTrail/DeleteTrail.hs
--- a/gen/Network/AWS/CloudTrail/DeleteTrail.hs
+++ b/gen/Network/AWS/CloudTrail/DeleteTrail.hs
@@ -80,6 +80,8 @@
 
 instance Hashable DeleteTrail
 
+instance NFData DeleteTrail
+
 instance ToHeaders DeleteTrail where
         toHeaders
           = const
@@ -124,3 +126,5 @@
 -- | The response status code.
 drsResponseStatus :: Lens' DeleteTrailResponse Int
 drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});
+
+instance NFData DeleteTrailResponse
diff --git a/gen/Network/AWS/CloudTrail/DescribeTrails.hs b/gen/Network/AWS/CloudTrail/DescribeTrails.hs
--- a/gen/Network/AWS/CloudTrail/DescribeTrails.hs
+++ b/gen/Network/AWS/CloudTrail/DescribeTrails.hs
@@ -104,6 +104,8 @@
 
 instance Hashable DescribeTrails
 
+instance NFData DescribeTrails
+
 instance ToHeaders DescribeTrails where
         toHeaders
           = const
@@ -160,3 +162,5 @@
 -- | The response status code.
 dtrsResponseStatus :: Lens' DescribeTrailsResponse Int
 dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a});
+
+instance NFData DescribeTrailsResponse
diff --git a/gen/Network/AWS/CloudTrail/GetTrailStatus.hs b/gen/Network/AWS/CloudTrail/GetTrailStatus.hs
--- a/gen/Network/AWS/CloudTrail/GetTrailStatus.hs
+++ b/gen/Network/AWS/CloudTrail/GetTrailStatus.hs
@@ -117,6 +117,8 @@
 
 instance Hashable GetTrailStatus
 
+instance NFData GetTrailStatus
+
 instance ToHeaders GetTrailStatus where
         toHeaders
           = const
@@ -326,3 +328,5 @@
 -- | The response status code.
 gtsrsResponseStatus :: Lens' GetTrailStatusResponse Int
 gtsrsResponseStatus = lens _gtsrsResponseStatus (\ s a -> s{_gtsrsResponseStatus = a});
+
+instance NFData GetTrailStatusResponse
diff --git a/gen/Network/AWS/CloudTrail/ListPublicKeys.hs b/gen/Network/AWS/CloudTrail/ListPublicKeys.hs
--- a/gen/Network/AWS/CloudTrail/ListPublicKeys.hs
+++ b/gen/Network/AWS/CloudTrail/ListPublicKeys.hs
@@ -109,6 +109,8 @@
 
 instance Hashable ListPublicKeys
 
+instance NFData ListPublicKeys
+
 instance ToHeaders ListPublicKeys where
         toHeaders
           = const
@@ -175,3 +177,5 @@
 -- | The response status code.
 lpkrsResponseStatus :: Lens' ListPublicKeysResponse Int
 lpkrsResponseStatus = lens _lpkrsResponseStatus (\ s a -> s{_lpkrsResponseStatus = a});
+
+instance NFData ListPublicKeysResponse
diff --git a/gen/Network/AWS/CloudTrail/ListTags.hs b/gen/Network/AWS/CloudTrail/ListTags.hs
--- a/gen/Network/AWS/CloudTrail/ListTags.hs
+++ b/gen/Network/AWS/CloudTrail/ListTags.hs
@@ -92,6 +92,8 @@
 
 instance Hashable ListTags
 
+instance NFData ListTags
+
 instance ToHeaders ListTags where
         toHeaders
           = const
@@ -155,3 +157,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/CloudTrail/LookupEvents.hs b/gen/Network/AWS/CloudTrail/LookupEvents.hs
--- a/gen/Network/AWS/CloudTrail/LookupEvents.hs
+++ b/gen/Network/AWS/CloudTrail/LookupEvents.hs
@@ -140,6 +140,8 @@
 
 instance Hashable LookupEvents
 
+instance NFData LookupEvents
+
 instance ToHeaders LookupEvents where
         toHeaders
           = const
@@ -212,3 +214,5 @@
 -- | The response status code.
 lersResponseStatus :: Lens' LookupEventsResponse Int
 lersResponseStatus = lens _lersResponseStatus (\ s a -> s{_lersResponseStatus = a});
+
+instance NFData LookupEventsResponse
diff --git a/gen/Network/AWS/CloudTrail/RemoveTags.hs b/gen/Network/AWS/CloudTrail/RemoveTags.hs
--- a/gen/Network/AWS/CloudTrail/RemoveTags.hs
+++ b/gen/Network/AWS/CloudTrail/RemoveTags.hs
@@ -86,6 +86,8 @@
 
 instance Hashable RemoveTags
 
+instance NFData RemoveTags
+
 instance ToHeaders RemoveTags where
         toHeaders
           = const
@@ -133,3 +135,5 @@
 -- | The response status code.
 rtrsResponseStatus :: Lens' RemoveTagsResponse Int
 rtrsResponseStatus = lens _rtrsResponseStatus (\ s a -> s{_rtrsResponseStatus = a});
+
+instance NFData RemoveTagsResponse
diff --git a/gen/Network/AWS/CloudTrail/StartLogging.hs b/gen/Network/AWS/CloudTrail/StartLogging.hs
--- a/gen/Network/AWS/CloudTrail/StartLogging.hs
+++ b/gen/Network/AWS/CloudTrail/StartLogging.hs
@@ -81,6 +81,8 @@
 
 instance Hashable StartLogging
 
+instance NFData StartLogging
+
 instance ToHeaders StartLogging where
         toHeaders
           = const
@@ -125,3 +127,5 @@
 -- | The response status code.
 srsResponseStatus :: Lens' StartLoggingResponse Int
 srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a});
+
+instance NFData StartLoggingResponse
diff --git a/gen/Network/AWS/CloudTrail/StopLogging.hs b/gen/Network/AWS/CloudTrail/StopLogging.hs
--- a/gen/Network/AWS/CloudTrail/StopLogging.hs
+++ b/gen/Network/AWS/CloudTrail/StopLogging.hs
@@ -85,6 +85,8 @@
 
 instance Hashable StopLogging
 
+instance NFData StopLogging
+
 instance ToHeaders StopLogging where
         toHeaders
           = const
@@ -129,3 +131,5 @@
 -- | The response status code.
 slrsResponseStatus :: Lens' StopLoggingResponse Int
 slrsResponseStatus = lens _slrsResponseStatus (\ s a -> s{_slrsResponseStatus = a});
+
+instance NFData StopLoggingResponse
diff --git a/gen/Network/AWS/CloudTrail/Types.hs b/gen/Network/AWS/CloudTrail/Types.hs
--- a/gen/Network/AWS/CloudTrail/Types.hs
+++ b/gen/Network/AWS/CloudTrail/Types.hs
@@ -144,6 +144,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/CloudTrail/Types/Product.hs b/gen/Network/AWS/CloudTrail/Types/Product.hs
--- a/gen/Network/AWS/CloudTrail/Types/Product.hs
+++ b/gen/Network/AWS/CloudTrail/Types/Product.hs
@@ -99,6 +99,8 @@
 
 instance Hashable Event
 
+instance NFData Event
+
 -- | Specifies an attribute and value that filter the events returned.
 --
 -- /See:/ 'lookupAttribute' smart constructor.
@@ -134,6 +136,8 @@
 
 instance Hashable LookupAttribute
 
+instance NFData LookupAttribute
+
 instance ToJSON LookupAttribute where
         toJSON LookupAttribute'{..}
           = object
@@ -205,6 +209,8 @@
 
 instance Hashable PublicKey
 
+instance NFData PublicKey
+
 -- | Specifies the type and name of a resource referenced by an event.
 --
 -- /See:/ 'resource' smart constructor.
@@ -253,6 +259,8 @@
 
 instance Hashable Resource
 
+instance NFData Resource
+
 -- | A resource tag.
 --
 -- /See:/ 'resourceTag' smart constructor.
@@ -294,6 +302,8 @@
 
 instance Hashable ResourceTag
 
+instance NFData ResourceTag
+
 -- | A custom key-value pair associated with a resource such as a CloudTrail
 -- trail.
 --
@@ -337,6 +347,8 @@
 
 instance Hashable Tag
 
+instance NFData Tag
+
 instance ToJSON Tag where
         toJSON Tag'{..}
           = object
@@ -491,3 +503,5 @@
                      <*> (x .:? "IsMultiRegionTrail"))
 
 instance Hashable Trail
+
+instance NFData Trail
diff --git a/gen/Network/AWS/CloudTrail/Types/Sum.hs b/gen/Network/AWS/CloudTrail/Types/Sum.hs
--- a/gen/Network/AWS/CloudTrail/Types/Sum.hs
+++ b/gen/Network/AWS/CloudTrail/Types/Sum.hs
@@ -46,6 +46,7 @@
         Username -> "Username"
 
 instance Hashable     LookupAttributeKey
+instance NFData       LookupAttributeKey
 instance ToByteString LookupAttributeKey
 instance ToQuery      LookupAttributeKey
 instance ToHeader     LookupAttributeKey
diff --git a/gen/Network/AWS/CloudTrail/UpdateTrail.hs b/gen/Network/AWS/CloudTrail/UpdateTrail.hs
--- a/gen/Network/AWS/CloudTrail/UpdateTrail.hs
+++ b/gen/Network/AWS/CloudTrail/UpdateTrail.hs
@@ -234,6 +234,8 @@
 
 instance Hashable UpdateTrail
 
+instance NFData UpdateTrail
+
 instance ToHeaders UpdateTrail where
         toHeaders
           = const
@@ -392,3 +394,5 @@
 -- | The response status code.
 utrsResponseStatus :: Lens' UpdateTrailResponse Int
 utrsResponseStatus = lens _utrsResponseStatus (\ s a -> s{_utrsResponseStatus = a});
+
+instance NFData UpdateTrailResponse