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-cloudwatch-events.cabal b/amazonka-cloudwatch-events.cabal
--- a/amazonka-cloudwatch-events.cabal
+++ b/amazonka-cloudwatch-events.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-cloudwatch-events
-version:               1.4.0
+version:               1.4.1
 synopsis:              Amazon CloudWatch Events SDK.
 homepage:              https://github.com/brendanhay/amazonka
 bug-reports:           https://github.com/brendanhay/amazonka/issues
@@ -78,7 +78,7 @@
         , Network.AWS.CloudWatchEvents.Types.Sum
 
     build-depends:
-          amazonka-core == 1.4.0.*
+          amazonka-core == 1.4.1.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-cloudwatch-events-test
@@ -98,9 +98,9 @@
         , Test.AWS.CloudWatchEvents.Internal
 
     build-depends:
-          amazonka-core == 1.4.0.*
-        , amazonka-test == 1.4.0.*
-        , amazonka-cloudwatch-events == 1.4.0.*
+          amazonka-core == 1.4.1.*
+        , amazonka-test == 1.4.1.*
+        , amazonka-cloudwatch-events == 1.4.1.*
         , base
         , bytestring
         , tasty
diff --git a/gen/Network/AWS/CloudWatchEvents/DeleteRule.hs b/gen/Network/AWS/CloudWatchEvents/DeleteRule.hs
--- a/gen/Network/AWS/CloudWatchEvents/DeleteRule.hs
+++ b/gen/Network/AWS/CloudWatchEvents/DeleteRule.hs
@@ -75,6 +75,8 @@
 
 instance Hashable DeleteRule
 
+instance NFData DeleteRule
+
 instance ToHeaders DeleteRule where
         toHeaders
           = const
@@ -104,3 +106,5 @@
 deleteRuleResponse
     :: DeleteRuleResponse
 deleteRuleResponse = DeleteRuleResponse'
+
+instance NFData DeleteRuleResponse
diff --git a/gen/Network/AWS/CloudWatchEvents/DescribeRule.hs b/gen/Network/AWS/CloudWatchEvents/DescribeRule.hs
--- a/gen/Network/AWS/CloudWatchEvents/DescribeRule.hs
+++ b/gen/Network/AWS/CloudWatchEvents/DescribeRule.hs
@@ -89,6 +89,8 @@
 
 instance Hashable DescribeRule
 
+instance NFData DescribeRule
+
 instance ToHeaders DescribeRule where
         toHeaders
           = const
@@ -188,3 +190,5 @@
 -- | The response status code.
 drrsResponseStatus :: Lens' DescribeRuleResponse Int
 drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a});
+
+instance NFData DescribeRuleResponse
diff --git a/gen/Network/AWS/CloudWatchEvents/DisableRule.hs b/gen/Network/AWS/CloudWatchEvents/DisableRule.hs
--- a/gen/Network/AWS/CloudWatchEvents/DisableRule.hs
+++ b/gen/Network/AWS/CloudWatchEvents/DisableRule.hs
@@ -75,6 +75,8 @@
 
 instance Hashable DisableRule
 
+instance NFData DisableRule
+
 instance ToHeaders DisableRule where
         toHeaders
           = const
@@ -104,3 +106,5 @@
 disableRuleResponse
     :: DisableRuleResponse
 disableRuleResponse = DisableRuleResponse'
+
+instance NFData DisableRuleResponse
diff --git a/gen/Network/AWS/CloudWatchEvents/EnableRule.hs b/gen/Network/AWS/CloudWatchEvents/EnableRule.hs
--- a/gen/Network/AWS/CloudWatchEvents/EnableRule.hs
+++ b/gen/Network/AWS/CloudWatchEvents/EnableRule.hs
@@ -74,6 +74,8 @@
 
 instance Hashable EnableRule
 
+instance NFData EnableRule
+
 instance ToHeaders EnableRule where
         toHeaders
           = const
@@ -103,3 +105,5 @@
 enableRuleResponse
     :: EnableRuleResponse
 enableRuleResponse = EnableRuleResponse'
+
+instance NFData EnableRuleResponse
diff --git a/gen/Network/AWS/CloudWatchEvents/ListRuleNamesByTarget.hs b/gen/Network/AWS/CloudWatchEvents/ListRuleNamesByTarget.hs
--- a/gen/Network/AWS/CloudWatchEvents/ListRuleNamesByTarget.hs
+++ b/gen/Network/AWS/CloudWatchEvents/ListRuleNamesByTarget.hs
@@ -106,6 +106,8 @@
 
 instance Hashable ListRuleNamesByTarget
 
+instance NFData ListRuleNamesByTarget
+
 instance ToHeaders ListRuleNamesByTarget where
         toHeaders
           = const
@@ -168,3 +170,5 @@
 -- | The response status code.
 lrnbtrsResponseStatus :: Lens' ListRuleNamesByTargetResponse Int
 lrnbtrsResponseStatus = lens _lrnbtrsResponseStatus (\ s a -> s{_lrnbtrsResponseStatus = a});
+
+instance NFData ListRuleNamesByTargetResponse
diff --git a/gen/Network/AWS/CloudWatchEvents/ListRules.hs b/gen/Network/AWS/CloudWatchEvents/ListRules.hs
--- a/gen/Network/AWS/CloudWatchEvents/ListRules.hs
+++ b/gen/Network/AWS/CloudWatchEvents/ListRules.hs
@@ -102,6 +102,8 @@
 
 instance Hashable ListRules
 
+instance NFData ListRules
+
 instance ToHeaders ListRules where
         toHeaders
           = const
@@ -164,3 +166,5 @@
 -- | The response status code.
 lrrsResponseStatus :: Lens' ListRulesResponse Int
 lrrsResponseStatus = lens _lrrsResponseStatus (\ s a -> s{_lrrsResponseStatus = a});
+
+instance NFData ListRulesResponse
diff --git a/gen/Network/AWS/CloudWatchEvents/ListTargetsByRule.hs b/gen/Network/AWS/CloudWatchEvents/ListTargetsByRule.hs
--- a/gen/Network/AWS/CloudWatchEvents/ListTargetsByRule.hs
+++ b/gen/Network/AWS/CloudWatchEvents/ListTargetsByRule.hs
@@ -98,6 +98,8 @@
 
 instance Hashable ListTargetsByRule
 
+instance NFData ListTargetsByRule
+
 instance ToHeaders ListTargetsByRule where
         toHeaders
           = const
@@ -160,3 +162,5 @@
 -- | The response status code.
 ltbrrsResponseStatus :: Lens' ListTargetsByRuleResponse Int
 ltbrrsResponseStatus = lens _ltbrrsResponseStatus (\ s a -> s{_ltbrrsResponseStatus = a});
+
+instance NFData ListTargetsByRuleResponse
diff --git a/gen/Network/AWS/CloudWatchEvents/PutEvents.hs b/gen/Network/AWS/CloudWatchEvents/PutEvents.hs
--- a/gen/Network/AWS/CloudWatchEvents/PutEvents.hs
+++ b/gen/Network/AWS/CloudWatchEvents/PutEvents.hs
@@ -83,6 +83,8 @@
 
 instance Hashable PutEvents
 
+instance NFData PutEvents
+
 instance ToHeaders PutEvents where
         toHeaders
           = const
@@ -144,3 +146,5 @@
 -- | The response status code.
 persResponseStatus :: Lens' PutEventsResponse Int
 persResponseStatus = lens _persResponseStatus (\ s a -> s{_persResponseStatus = a});
+
+instance NFData PutEventsResponse
diff --git a/gen/Network/AWS/CloudWatchEvents/PutRule.hs b/gen/Network/AWS/CloudWatchEvents/PutRule.hs
--- a/gen/Network/AWS/CloudWatchEvents/PutRule.hs
+++ b/gen/Network/AWS/CloudWatchEvents/PutRule.hs
@@ -142,6 +142,8 @@
 
 instance Hashable PutRule
 
+instance NFData PutRule
+
 instance ToHeaders PutRule where
         toHeaders
           = const
@@ -199,3 +201,5 @@
 -- | The response status code.
 prrsResponseStatus :: Lens' PutRuleResponse Int
 prrsResponseStatus = lens _prrsResponseStatus (\ s a -> s{_prrsResponseStatus = a});
+
+instance NFData PutRuleResponse
diff --git a/gen/Network/AWS/CloudWatchEvents/PutTargets.hs b/gen/Network/AWS/CloudWatchEvents/PutTargets.hs
--- a/gen/Network/AWS/CloudWatchEvents/PutTargets.hs
+++ b/gen/Network/AWS/CloudWatchEvents/PutTargets.hs
@@ -119,6 +119,8 @@
 
 instance Hashable PutTargets
 
+instance NFData PutTargets
+
 instance ToHeaders PutTargets where
         toHeaders
           = const
@@ -180,3 +182,5 @@
 -- | The response status code.
 ptrsResponseStatus :: Lens' PutTargetsResponse Int
 ptrsResponseStatus = lens _ptrsResponseStatus (\ s a -> s{_ptrsResponseStatus = a});
+
+instance NFData PutTargetsResponse
diff --git a/gen/Network/AWS/CloudWatchEvents/RemoveTargets.hs b/gen/Network/AWS/CloudWatchEvents/RemoveTargets.hs
--- a/gen/Network/AWS/CloudWatchEvents/RemoveTargets.hs
+++ b/gen/Network/AWS/CloudWatchEvents/RemoveTargets.hs
@@ -95,6 +95,8 @@
 
 instance Hashable RemoveTargets
 
+instance NFData RemoveTargets
+
 instance ToHeaders RemoveTargets where
         toHeaders
           = const
@@ -155,3 +157,5 @@
 -- | The response status code.
 rtrsResponseStatus :: Lens' RemoveTargetsResponse Int
 rtrsResponseStatus = lens _rtrsResponseStatus (\ s a -> s{_rtrsResponseStatus = a});
+
+instance NFData RemoveTargetsResponse
diff --git a/gen/Network/AWS/CloudWatchEvents/TestEventPattern.hs b/gen/Network/AWS/CloudWatchEvents/TestEventPattern.hs
--- a/gen/Network/AWS/CloudWatchEvents/TestEventPattern.hs
+++ b/gen/Network/AWS/CloudWatchEvents/TestEventPattern.hs
@@ -93,6 +93,8 @@
 
 instance Hashable TestEventPattern
 
+instance NFData TestEventPattern
+
 instance ToHeaders TestEventPattern where
         toHeaders
           = const
@@ -146,3 +148,5 @@
 -- | The response status code.
 teprsResponseStatus :: Lens' TestEventPatternResponse Int
 teprsResponseStatus = lens _teprsResponseStatus (\ s a -> s{_teprsResponseStatus = a});
+
+instance NFData TestEventPatternResponse
diff --git a/gen/Network/AWS/CloudWatchEvents/Types.hs b/gen/Network/AWS/CloudWatchEvents/Types.hs
--- a/gen/Network/AWS/CloudWatchEvents/Types.hs
+++ b/gen/Network/AWS/CloudWatchEvents/Types.hs
@@ -108,6 +108,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/CloudWatchEvents/Types/Product.hs b/gen/Network/AWS/CloudWatchEvents/Types/Product.hs
--- a/gen/Network/AWS/CloudWatchEvents/Types/Product.hs
+++ b/gen/Network/AWS/CloudWatchEvents/Types/Product.hs
@@ -83,6 +83,8 @@
 
 instance Hashable PutEventsRequestEntry
 
+instance NFData PutEventsRequestEntry
+
 instance ToJSON PutEventsRequestEntry where
         toJSON PutEventsRequestEntry'{..}
           = object
@@ -144,6 +146,8 @@
 
 instance Hashable PutEventsResultEntry
 
+instance NFData PutEventsResultEntry
+
 -- | A PutTargetsResult contains a list of PutTargetsResultEntry.
 --
 -- /See:/ 'putTargetsResultEntry' smart constructor.
@@ -195,6 +199,8 @@
 
 instance Hashable PutTargetsResultEntry
 
+instance NFData PutTargetsResultEntry
+
 -- | The ID of the target requested to be removed from the rule by Amazon
 -- CloudWatch Events.
 --
@@ -247,6 +253,8 @@
 
 instance Hashable RemoveTargetsResultEntry
 
+instance NFData RemoveTargetsResultEntry
+
 -- | Contains information about a rule in Amazon CloudWatch Events. A
 -- ListRulesResult contains a list of Rules.
 --
@@ -335,6 +343,8 @@
 
 instance Hashable Rule
 
+instance NFData Rule
+
 -- | Targets are the resources that can be invoked when a rule is triggered.
 -- For example, AWS Lambda functions, Amazon Kinesis streams, and built-in
 -- targets.
@@ -413,6 +423,8 @@
                      <*> (x .: "Arn"))
 
 instance Hashable Target
+
+instance NFData Target
 
 instance ToJSON Target where
         toJSON Target'{..}
diff --git a/gen/Network/AWS/CloudWatchEvents/Types/Sum.hs b/gen/Network/AWS/CloudWatchEvents/Types/Sum.hs
--- a/gen/Network/AWS/CloudWatchEvents/Types/Sum.hs
+++ b/gen/Network/AWS/CloudWatchEvents/Types/Sum.hs
@@ -37,6 +37,7 @@
         Enabled -> "ENABLED"
 
 instance Hashable     RuleState
+instance NFData       RuleState
 instance ToByteString RuleState
 instance ToQuery      RuleState
 instance ToHeader     RuleState