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.cabal b/amazonka-cloudwatch.cabal
--- a/amazonka-cloudwatch.cabal
+++ b/amazonka-cloudwatch.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-cloudwatch
-version:               1.4.0
+version:               1.4.1
 synopsis:              Amazon CloudWatch SDK.
 homepage:              https://github.com/brendanhay/amazonka
 bug-reports:           https://github.com/brendanhay/amazonka/issues
@@ -76,7 +76,7 @@
         , Network.AWS.CloudWatch.Types.Sum
 
     build-depends:
-          amazonka-core == 1.4.0.*
+          amazonka-core == 1.4.1.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-cloudwatch-test
@@ -96,9 +96,9 @@
         , Test.AWS.CloudWatch.Internal
 
     build-depends:
-          amazonka-core == 1.4.0.*
-        , amazonka-test == 1.4.0.*
-        , amazonka-cloudwatch == 1.4.0.*
+          amazonka-core == 1.4.1.*
+        , amazonka-test == 1.4.1.*
+        , amazonka-cloudwatch == 1.4.1.*
         , base
         , bytestring
         , tasty
diff --git a/gen/Network/AWS/CloudWatch/DeleteAlarms.hs b/gen/Network/AWS/CloudWatch/DeleteAlarms.hs
--- a/gen/Network/AWS/CloudWatch/DeleteAlarms.hs
+++ b/gen/Network/AWS/CloudWatch/DeleteAlarms.hs
@@ -68,6 +68,8 @@
 
 instance Hashable DeleteAlarms
 
+instance NFData DeleteAlarms
+
 instance ToHeaders DeleteAlarms where
         toHeaders = const mempty
 
@@ -91,3 +93,5 @@
 deleteAlarmsResponse
     :: DeleteAlarmsResponse
 deleteAlarmsResponse = DeleteAlarmsResponse'
+
+instance NFData DeleteAlarmsResponse
diff --git a/gen/Network/AWS/CloudWatch/DescribeAlarmHistory.hs b/gen/Network/AWS/CloudWatch/DescribeAlarmHistory.hs
--- a/gen/Network/AWS/CloudWatch/DescribeAlarmHistory.hs
+++ b/gen/Network/AWS/CloudWatch/DescribeAlarmHistory.hs
@@ -140,6 +140,8 @@
 
 instance Hashable DescribeAlarmHistory
 
+instance NFData DescribeAlarmHistory
+
 instance ToHeaders DescribeAlarmHistory where
         toHeaders = const mempty
 
@@ -197,3 +199,5 @@
 -- | The response status code.
 dahrsResponseStatus :: Lens' DescribeAlarmHistoryResponse Int
 dahrsResponseStatus = lens _dahrsResponseStatus (\ s a -> s{_dahrsResponseStatus = a});
+
+instance NFData DescribeAlarmHistoryResponse
diff --git a/gen/Network/AWS/CloudWatch/DescribeAlarms.hs b/gen/Network/AWS/CloudWatch/DescribeAlarms.hs
--- a/gen/Network/AWS/CloudWatch/DescribeAlarms.hs
+++ b/gen/Network/AWS/CloudWatch/DescribeAlarms.hs
@@ -138,6 +138,8 @@
 
 instance Hashable DescribeAlarms
 
+instance NFData DescribeAlarms
+
 instance ToHeaders DescribeAlarms where
         toHeaders = const mempty
 
@@ -196,3 +198,5 @@
 -- | The response status code.
 darsResponseStatus :: Lens' DescribeAlarmsResponse Int
 darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a});
+
+instance NFData DescribeAlarmsResponse
diff --git a/gen/Network/AWS/CloudWatch/DescribeAlarmsForMetric.hs b/gen/Network/AWS/CloudWatch/DescribeAlarmsForMetric.hs
--- a/gen/Network/AWS/CloudWatch/DescribeAlarmsForMetric.hs
+++ b/gen/Network/AWS/CloudWatch/DescribeAlarmsForMetric.hs
@@ -127,6 +127,8 @@
 
 instance Hashable DescribeAlarmsForMetric
 
+instance NFData DescribeAlarmsForMetric
+
 instance ToHeaders DescribeAlarmsForMetric where
         toHeaders = const mempty
 
@@ -177,3 +179,5 @@
 -- | The response status code.
 dafmrsResponseStatus :: Lens' DescribeAlarmsForMetricResponse Int
 dafmrsResponseStatus = lens _dafmrsResponseStatus (\ s a -> s{_dafmrsResponseStatus = a});
+
+instance NFData DescribeAlarmsForMetricResponse
diff --git a/gen/Network/AWS/CloudWatch/DisableAlarmActions.hs b/gen/Network/AWS/CloudWatch/DisableAlarmActions.hs
--- a/gen/Network/AWS/CloudWatch/DisableAlarmActions.hs
+++ b/gen/Network/AWS/CloudWatch/DisableAlarmActions.hs
@@ -72,6 +72,8 @@
 
 instance Hashable DisableAlarmActions
 
+instance NFData DisableAlarmActions
+
 instance ToHeaders DisableAlarmActions where
         toHeaders = const mempty
 
@@ -95,3 +97,5 @@
 disableAlarmActionsResponse
     :: DisableAlarmActionsResponse
 disableAlarmActionsResponse = DisableAlarmActionsResponse'
+
+instance NFData DisableAlarmActionsResponse
diff --git a/gen/Network/AWS/CloudWatch/EnableAlarmActions.hs b/gen/Network/AWS/CloudWatch/EnableAlarmActions.hs
--- a/gen/Network/AWS/CloudWatch/EnableAlarmActions.hs
+++ b/gen/Network/AWS/CloudWatch/EnableAlarmActions.hs
@@ -68,6 +68,8 @@
 
 instance Hashable EnableAlarmActions
 
+instance NFData EnableAlarmActions
+
 instance ToHeaders EnableAlarmActions where
         toHeaders = const mempty
 
@@ -91,3 +93,5 @@
 enableAlarmActionsResponse
     :: EnableAlarmActionsResponse
 enableAlarmActionsResponse = EnableAlarmActionsResponse'
+
+instance NFData EnableAlarmActionsResponse
diff --git a/gen/Network/AWS/CloudWatch/GetMetricStatistics.hs b/gen/Network/AWS/CloudWatch/GetMetricStatistics.hs
--- a/gen/Network/AWS/CloudWatch/GetMetricStatistics.hs
+++ b/gen/Network/AWS/CloudWatch/GetMetricStatistics.hs
@@ -197,6 +197,8 @@
 
 instance Hashable GetMetricStatistics
 
+instance NFData GetMetricStatistics
+
 instance ToHeaders GetMetricStatistics where
         toHeaders = const mempty
 
@@ -255,3 +257,5 @@
 -- | The response status code.
 gmsrsResponseStatus :: Lens' GetMetricStatisticsResponse Int
 gmsrsResponseStatus = lens _gmsrsResponseStatus (\ s a -> s{_gmsrsResponseStatus = a});
+
+instance NFData GetMetricStatisticsResponse
diff --git a/gen/Network/AWS/CloudWatch/ListMetrics.hs b/gen/Network/AWS/CloudWatch/ListMetrics.hs
--- a/gen/Network/AWS/CloudWatch/ListMetrics.hs
+++ b/gen/Network/AWS/CloudWatch/ListMetrics.hs
@@ -127,6 +127,8 @@
 
 instance Hashable ListMetrics
 
+instance NFData ListMetrics
+
 instance ToHeaders ListMetrics where
         toHeaders = const mempty
 
@@ -183,3 +185,5 @@
 -- | The response status code.
 lmrsResponseStatus :: Lens' ListMetricsResponse Int
 lmrsResponseStatus = lens _lmrsResponseStatus (\ s a -> s{_lmrsResponseStatus = a});
+
+instance NFData ListMetricsResponse
diff --git a/gen/Network/AWS/CloudWatch/PutMetricAlarm.hs b/gen/Network/AWS/CloudWatch/PutMetricAlarm.hs
--- a/gen/Network/AWS/CloudWatch/PutMetricAlarm.hs
+++ b/gen/Network/AWS/CloudWatch/PutMetricAlarm.hs
@@ -307,6 +307,8 @@
 
 instance Hashable PutMetricAlarm
 
+instance NFData PutMetricAlarm
+
 instance ToHeaders PutMetricAlarm where
         toHeaders = const mempty
 
@@ -348,3 +350,5 @@
 putMetricAlarmResponse
     :: PutMetricAlarmResponse
 putMetricAlarmResponse = PutMetricAlarmResponse'
+
+instance NFData PutMetricAlarmResponse
diff --git a/gen/Network/AWS/CloudWatch/PutMetricData.hs b/gen/Network/AWS/CloudWatch/PutMetricData.hs
--- a/gen/Network/AWS/CloudWatch/PutMetricData.hs
+++ b/gen/Network/AWS/CloudWatch/PutMetricData.hs
@@ -98,6 +98,8 @@
 
 instance Hashable PutMetricData
 
+instance NFData PutMetricData
+
 instance ToHeaders PutMetricData where
         toHeaders = const mempty
 
@@ -122,3 +124,5 @@
 putMetricDataResponse
     :: PutMetricDataResponse
 putMetricDataResponse = PutMetricDataResponse'
+
+instance NFData PutMetricDataResponse
diff --git a/gen/Network/AWS/CloudWatch/SetAlarmState.hs b/gen/Network/AWS/CloudWatch/SetAlarmState.hs
--- a/gen/Network/AWS/CloudWatch/SetAlarmState.hs
+++ b/gen/Network/AWS/CloudWatch/SetAlarmState.hs
@@ -109,6 +109,8 @@
 
 instance Hashable SetAlarmState
 
+instance NFData SetAlarmState
+
 instance ToHeaders SetAlarmState where
         toHeaders = const mempty
 
@@ -135,3 +137,5 @@
 setAlarmStateResponse
     :: SetAlarmStateResponse
 setAlarmStateResponse = SetAlarmStateResponse'
+
+instance NFData SetAlarmStateResponse
diff --git a/gen/Network/AWS/CloudWatch/Types.hs b/gen/Network/AWS/CloudWatch/Types.hs
--- a/gen/Network/AWS/CloudWatch/Types.hs
+++ b/gen/Network/AWS/CloudWatch/Types.hs
@@ -156,6 +156,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/CloudWatch/Types/Product.hs b/gen/Network/AWS/CloudWatch/Types/Product.hs
--- a/gen/Network/AWS/CloudWatch/Types/Product.hs
+++ b/gen/Network/AWS/CloudWatch/Types/Product.hs
@@ -89,6 +89,8 @@
 
 instance Hashable AlarmHistoryItem
 
+instance NFData AlarmHistoryItem
+
 -- | The 'Datapoint' data type encapsulates the statistical data that Amazon
 -- CloudWatch computes from metric data.
 --
@@ -174,6 +176,8 @@
 
 instance Hashable Datapoint
 
+instance NFData Datapoint
+
 -- | The 'Dimension' data type further expands on the identity of a metric
 -- using a Name, Value pair.
 --
@@ -216,6 +220,8 @@
 
 instance Hashable Dimension
 
+instance NFData Dimension
+
 instance ToQuery Dimension where
         toQuery Dimension'{..}
           = mconcat ["Name" =: _dName, "Value" =: _dValue]
@@ -258,6 +264,8 @@
 
 instance Hashable DimensionFilter
 
+instance NFData DimensionFilter
+
 instance ToQuery DimensionFilter where
         toQuery DimensionFilter'{..}
           = mconcat ["Value" =: _dfValue, "Name" =: _dfName]
@@ -316,6 +324,8 @@
 
 instance Hashable Metric
 
+instance NFData Metric
+
 -- | The < MetricAlarm> data type represents an alarm. You can use
 -- < PutMetricAlarm> to create or update an alarm.
 --
@@ -547,6 +557,8 @@
 
 instance Hashable MetricAlarm
 
+instance NFData MetricAlarm
+
 -- | The 'MetricDatum' data type encapsulates the information sent with
 -- < PutMetricData> to either create a new metric or add new values to be
 -- aggregated into an existing metric.
@@ -625,6 +637,8 @@
 
 instance Hashable MetricDatum
 
+instance NFData MetricDatum
+
 instance ToQuery MetricDatum where
         toQuery MetricDatum'{..}
           = mconcat
@@ -689,6 +703,8 @@
 ssMaximum = lens _ssMaximum (\ s a -> s{_ssMaximum = a});
 
 instance Hashable StatisticSet
+
+instance NFData StatisticSet
 
 instance ToQuery StatisticSet where
         toQuery StatisticSet'{..}
diff --git a/gen/Network/AWS/CloudWatch/Types/Sum.hs b/gen/Network/AWS/CloudWatch/Types/Sum.hs
--- a/gen/Network/AWS/CloudWatch/Types/Sum.hs
+++ b/gen/Network/AWS/CloudWatch/Types/Sum.hs
@@ -43,6 +43,7 @@
         LessThanThreshold -> "LessThanThreshold"
 
 instance Hashable     ComparisonOperator
+instance NFData       ComparisonOperator
 instance ToByteString ComparisonOperator
 instance ToQuery      ComparisonOperator
 instance ToHeader     ComparisonOperator
@@ -71,6 +72,7 @@
         StateUpdate -> "StateUpdate"
 
 instance Hashable     HistoryItemType
+instance NFData       HistoryItemType
 instance ToByteString HistoryItemType
 instance ToQuery      HistoryItemType
 instance ToHeader     HistoryItemType
@@ -171,6 +173,7 @@
         TerabytesSecond -> "Terabytes/Second"
 
 instance Hashable     StandardUnit
+instance NFData       StandardUnit
 instance ToByteString StandardUnit
 instance ToQuery      StandardUnit
 instance ToHeader     StandardUnit
@@ -199,6 +202,7 @@
         OK -> "OK"
 
 instance Hashable     StateValue
+instance NFData       StateValue
 instance ToByteString StateValue
 instance ToQuery      StateValue
 instance ToHeader     StateValue
@@ -233,6 +237,7 @@
         Sum -> "Sum"
 
 instance Hashable     Statistic
+instance NFData       Statistic
 instance ToByteString Statistic
 instance ToQuery      Statistic
 instance ToHeader     Statistic