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-cognito-sync.cabal b/amazonka-cognito-sync.cabal
--- a/amazonka-cognito-sync.cabal
+++ b/amazonka-cognito-sync.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-cognito-sync
-version:               1.4.0
+version:               1.4.1
 synopsis:              Amazon Cognito Sync SDK.
 homepage:              https://github.com/brendanhay/amazonka
 bug-reports:           https://github.com/brendanhay/amazonka/issues
@@ -89,7 +89,7 @@
         , Network.AWS.CognitoSync.Types.Sum
 
     build-depends:
-          amazonka-core == 1.4.0.*
+          amazonka-core == 1.4.1.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-cognito-sync-test
@@ -109,9 +109,9 @@
         , Test.AWS.CognitoSync.Internal
 
     build-depends:
-          amazonka-core == 1.4.0.*
-        , amazonka-test == 1.4.0.*
-        , amazonka-cognito-sync == 1.4.0.*
+          amazonka-core == 1.4.1.*
+        , amazonka-test == 1.4.1.*
+        , amazonka-cognito-sync == 1.4.1.*
         , base
         , bytestring
         , tasty
diff --git a/gen/Network/AWS/CognitoSync/BulkPublish.hs b/gen/Network/AWS/CognitoSync/BulkPublish.hs
--- a/gen/Network/AWS/CognitoSync/BulkPublish.hs
+++ b/gen/Network/AWS/CognitoSync/BulkPublish.hs
@@ -87,6 +87,8 @@
 
 instance Hashable BulkPublish
 
+instance NFData BulkPublish
+
 instance ToHeaders BulkPublish where
         toHeaders
           = const
@@ -139,3 +141,5 @@
 -- | The response status code.
 bprsResponseStatus :: Lens' BulkPublishResponse Int
 bprsResponseStatus = lens _bprsResponseStatus (\ s a -> s{_bprsResponseStatus = a});
+
+instance NFData BulkPublishResponse
diff --git a/gen/Network/AWS/CognitoSync/DeleteDataset.hs b/gen/Network/AWS/CognitoSync/DeleteDataset.hs
--- a/gen/Network/AWS/CognitoSync/DeleteDataset.hs
+++ b/gen/Network/AWS/CognitoSync/DeleteDataset.hs
@@ -108,6 +108,8 @@
 
 instance Hashable DeleteDataset
 
+instance NFData DeleteDataset
+
 instance ToHeaders DeleteDataset where
         toHeaders
           = const
@@ -160,3 +162,5 @@
 -- | The response status code.
 drsResponseStatus :: Lens' DeleteDatasetResponse Int
 drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});
+
+instance NFData DeleteDatasetResponse
diff --git a/gen/Network/AWS/CognitoSync/DescribeDataset.hs b/gen/Network/AWS/CognitoSync/DescribeDataset.hs
--- a/gen/Network/AWS/CognitoSync/DescribeDataset.hs
+++ b/gen/Network/AWS/CognitoSync/DescribeDataset.hs
@@ -110,6 +110,8 @@
 
 instance Hashable DescribeDataset
 
+instance NFData DescribeDataset
+
 instance ToHeaders DescribeDataset where
         toHeaders
           = const
@@ -162,3 +164,5 @@
 -- | The response status code.
 ddrsResponseStatus :: Lens' DescribeDatasetResponse Int
 ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a});
+
+instance NFData DescribeDatasetResponse
diff --git a/gen/Network/AWS/CognitoSync/DescribeIdentityPoolUsage.hs b/gen/Network/AWS/CognitoSync/DescribeIdentityPoolUsage.hs
--- a/gen/Network/AWS/CognitoSync/DescribeIdentityPoolUsage.hs
+++ b/gen/Network/AWS/CognitoSync/DescribeIdentityPoolUsage.hs
@@ -85,6 +85,8 @@
 
 instance Hashable DescribeIdentityPoolUsage
 
+instance NFData DescribeIdentityPoolUsage
+
 instance ToHeaders DescribeIdentityPoolUsage where
         toHeaders
           = const
@@ -131,3 +133,5 @@
 -- | The response status code.
 dipursResponseStatus :: Lens' DescribeIdentityPoolUsageResponse Int
 dipursResponseStatus = lens _dipursResponseStatus (\ s a -> s{_dipursResponseStatus = a});
+
+instance NFData DescribeIdentityPoolUsageResponse
diff --git a/gen/Network/AWS/CognitoSync/DescribeIdentityUsage.hs b/gen/Network/AWS/CognitoSync/DescribeIdentityUsage.hs
--- a/gen/Network/AWS/CognitoSync/DescribeIdentityUsage.hs
+++ b/gen/Network/AWS/CognitoSync/DescribeIdentityUsage.hs
@@ -96,6 +96,8 @@
 
 instance Hashable DescribeIdentityUsage
 
+instance NFData DescribeIdentityUsage
+
 instance ToHeaders DescribeIdentityUsage where
         toHeaders
           = const
@@ -143,3 +145,5 @@
 -- | The response status code.
 diursResponseStatus :: Lens' DescribeIdentityUsageResponse Int
 diursResponseStatus = lens _diursResponseStatus (\ s a -> s{_diursResponseStatus = a});
+
+instance NFData DescribeIdentityUsageResponse
diff --git a/gen/Network/AWS/CognitoSync/GetBulkPublishDetails.hs b/gen/Network/AWS/CognitoSync/GetBulkPublishDetails.hs
--- a/gen/Network/AWS/CognitoSync/GetBulkPublishDetails.hs
+++ b/gen/Network/AWS/CognitoSync/GetBulkPublishDetails.hs
@@ -93,6 +93,8 @@
 
 instance Hashable GetBulkPublishDetails
 
+instance NFData GetBulkPublishDetails
+
 instance ToHeaders GetBulkPublishDetails where
         toHeaders
           = const
@@ -189,3 +191,5 @@
 -- | The response status code.
 gbpdrsResponseStatus :: Lens' GetBulkPublishDetailsResponse Int
 gbpdrsResponseStatus = lens _gbpdrsResponseStatus (\ s a -> s{_gbpdrsResponseStatus = a});
+
+instance NFData GetBulkPublishDetailsResponse
diff --git a/gen/Network/AWS/CognitoSync/GetCognitoEvents.hs b/gen/Network/AWS/CognitoSync/GetCognitoEvents.hs
--- a/gen/Network/AWS/CognitoSync/GetCognitoEvents.hs
+++ b/gen/Network/AWS/CognitoSync/GetCognitoEvents.hs
@@ -82,6 +82,8 @@
 
 instance Hashable GetCognitoEvents
 
+instance NFData GetCognitoEvents
+
 instance ToHeaders GetCognitoEvents where
         toHeaders
           = const
@@ -129,3 +131,5 @@
 -- | The response status code.
 gcersResponseStatus :: Lens' GetCognitoEventsResponse Int
 gcersResponseStatus = lens _gcersResponseStatus (\ s a -> s{_gcersResponseStatus = a});
+
+instance NFData GetCognitoEventsResponse
diff --git a/gen/Network/AWS/CognitoSync/GetIdentityPoolConfiguration.hs b/gen/Network/AWS/CognitoSync/GetIdentityPoolConfiguration.hs
--- a/gen/Network/AWS/CognitoSync/GetIdentityPoolConfiguration.hs
+++ b/gen/Network/AWS/CognitoSync/GetIdentityPoolConfiguration.hs
@@ -89,6 +89,8 @@
 
 instance Hashable GetIdentityPoolConfiguration
 
+instance NFData GetIdentityPoolConfiguration
+
 instance ToHeaders GetIdentityPoolConfiguration where
         toHeaders
           = const
@@ -154,3 +156,5 @@
 -- | The response status code.
 gipcrsResponseStatus :: Lens' GetIdentityPoolConfigurationResponse Int
 gipcrsResponseStatus = lens _gipcrsResponseStatus (\ s a -> s{_gipcrsResponseStatus = a});
+
+instance NFData GetIdentityPoolConfigurationResponse
diff --git a/gen/Network/AWS/CognitoSync/ListDatasets.hs b/gen/Network/AWS/CognitoSync/ListDatasets.hs
--- a/gen/Network/AWS/CognitoSync/ListDatasets.hs
+++ b/gen/Network/AWS/CognitoSync/ListDatasets.hs
@@ -119,6 +119,8 @@
 
 instance Hashable ListDatasets
 
+instance NFData ListDatasets
+
 instance ToHeaders ListDatasets where
         toHeaders
           = const
@@ -185,3 +187,5 @@
 -- | The response status code.
 ldrsResponseStatus :: Lens' ListDatasetsResponse Int
 ldrsResponseStatus = lens _ldrsResponseStatus (\ s a -> s{_ldrsResponseStatus = a});
+
+instance NFData ListDatasetsResponse
diff --git a/gen/Network/AWS/CognitoSync/ListIdentityPoolUsage.hs b/gen/Network/AWS/CognitoSync/ListIdentityPoolUsage.hs
--- a/gen/Network/AWS/CognitoSync/ListIdentityPoolUsage.hs
+++ b/gen/Network/AWS/CognitoSync/ListIdentityPoolUsage.hs
@@ -97,6 +97,8 @@
 
 instance Hashable ListIdentityPoolUsage
 
+instance NFData ListIdentityPoolUsage
+
 instance ToHeaders ListIdentityPoolUsage where
         toHeaders
           = const
@@ -168,3 +170,5 @@
 -- | The response status code.
 lipursResponseStatus :: Lens' ListIdentityPoolUsageResponse Int
 lipursResponseStatus = lens _lipursResponseStatus (\ s a -> s{_lipursResponseStatus = a});
+
+instance NFData ListIdentityPoolUsageResponse
diff --git a/gen/Network/AWS/CognitoSync/ListRecords.hs b/gen/Network/AWS/CognitoSync/ListRecords.hs
--- a/gen/Network/AWS/CognitoSync/ListRecords.hs
+++ b/gen/Network/AWS/CognitoSync/ListRecords.hs
@@ -162,6 +162,8 @@
 
 instance Hashable ListRecords
 
+instance NFData ListRecords
+
 instance ToHeaders ListRecords where
         toHeaders
           = const
@@ -279,3 +281,5 @@
 -- | The response status code.
 lrrsResponseStatus :: Lens' ListRecordsResponse Int
 lrrsResponseStatus = lens _lrrsResponseStatus (\ s a -> s{_lrrsResponseStatus = a});
+
+instance NFData ListRecordsResponse
diff --git a/gen/Network/AWS/CognitoSync/RegisterDevice.hs b/gen/Network/AWS/CognitoSync/RegisterDevice.hs
--- a/gen/Network/AWS/CognitoSync/RegisterDevice.hs
+++ b/gen/Network/AWS/CognitoSync/RegisterDevice.hs
@@ -112,6 +112,8 @@
 
 instance Hashable RegisterDevice
 
+instance NFData RegisterDevice
+
 instance ToHeaders RegisterDevice where
         toHeaders
           = const
@@ -166,3 +168,5 @@
 -- | The response status code.
 rdrsResponseStatus :: Lens' RegisterDeviceResponse Int
 rdrsResponseStatus = lens _rdrsResponseStatus (\ s a -> s{_rdrsResponseStatus = a});
+
+instance NFData RegisterDeviceResponse
diff --git a/gen/Network/AWS/CognitoSync/SetCognitoEvents.hs b/gen/Network/AWS/CognitoSync/SetCognitoEvents.hs
--- a/gen/Network/AWS/CognitoSync/SetCognitoEvents.hs
+++ b/gen/Network/AWS/CognitoSync/SetCognitoEvents.hs
@@ -88,6 +88,8 @@
 
 instance Hashable SetCognitoEvents
 
+instance NFData SetCognitoEvents
+
 instance ToHeaders SetCognitoEvents where
         toHeaders
           = const
@@ -118,3 +120,5 @@
 setCognitoEventsResponse
     :: SetCognitoEventsResponse
 setCognitoEventsResponse = SetCognitoEventsResponse'
+
+instance NFData SetCognitoEventsResponse
diff --git a/gen/Network/AWS/CognitoSync/SetIdentityPoolConfiguration.hs b/gen/Network/AWS/CognitoSync/SetIdentityPoolConfiguration.hs
--- a/gen/Network/AWS/CognitoSync/SetIdentityPoolConfiguration.hs
+++ b/gen/Network/AWS/CognitoSync/SetIdentityPoolConfiguration.hs
@@ -107,6 +107,8 @@
 
 instance Hashable SetIdentityPoolConfiguration
 
+instance NFData SetIdentityPoolConfiguration
+
 instance ToHeaders SetIdentityPoolConfiguration where
         toHeaders
           = const
@@ -179,3 +181,5 @@
 -- | The response status code.
 sipcrsResponseStatus :: Lens' SetIdentityPoolConfigurationResponse Int
 sipcrsResponseStatus = lens _sipcrsResponseStatus (\ s a -> s{_sipcrsResponseStatus = a});
+
+instance NFData SetIdentityPoolConfigurationResponse
diff --git a/gen/Network/AWS/CognitoSync/SubscribeToDataset.hs b/gen/Network/AWS/CognitoSync/SubscribeToDataset.hs
--- a/gen/Network/AWS/CognitoSync/SubscribeToDataset.hs
+++ b/gen/Network/AWS/CognitoSync/SubscribeToDataset.hs
@@ -112,6 +112,8 @@
 
 instance Hashable SubscribeToDataset
 
+instance NFData SubscribeToDataset
+
 instance ToHeaders SubscribeToDataset where
         toHeaders
           = const
@@ -156,3 +158,5 @@
 -- | The response status code.
 stdrsResponseStatus :: Lens' SubscribeToDatasetResponse Int
 stdrsResponseStatus = lens _stdrsResponseStatus (\ s a -> s{_stdrsResponseStatus = a});
+
+instance NFData SubscribeToDatasetResponse
diff --git a/gen/Network/AWS/CognitoSync/Types.hs b/gen/Network/AWS/CognitoSync/Types.hs
--- a/gen/Network/AWS/CognitoSync/Types.hs
+++ b/gen/Network/AWS/CognitoSync/Types.hs
@@ -136,6 +136,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/CognitoSync/Types/Product.hs b/gen/Network/AWS/CognitoSync/Types/Product.hs
--- a/gen/Network/AWS/CognitoSync/Types/Product.hs
+++ b/gen/Network/AWS/CognitoSync/Types/Product.hs
@@ -78,6 +78,8 @@
 
 instance Hashable CognitoStreams
 
+instance NFData CognitoStreams
+
 instance ToJSON CognitoStreams where
         toJSON CognitoStreams'{..}
           = object
@@ -178,6 +180,8 @@
 
 instance Hashable Dataset
 
+instance NFData Dataset
+
 -- | Usage information for the identity pool.
 --
 -- /See:/ 'identityPoolUsage' smart constructor.
@@ -239,6 +243,8 @@
 
 instance Hashable IdentityPoolUsage
 
+instance NFData IdentityPoolUsage
+
 -- | Usage information for the identity.
 --
 -- /See:/ 'identityUsage' smart constructor.
@@ -311,6 +317,8 @@
 
 instance Hashable IdentityUsage
 
+instance NFData IdentityUsage
+
 -- | Configuration options to be applied to the identity pool.
 --
 -- /See:/ 'pushSync' smart constructor.
@@ -353,6 +361,8 @@
 
 instance Hashable PushSync
 
+instance NFData PushSync
+
 instance ToJSON PushSync where
         toJSON PushSync'{..}
           = object
@@ -437,6 +447,8 @@
 
 instance Hashable Record
 
+instance NFData Record
+
 -- | An update operation for a record.
 --
 -- /See:/ 'recordPatch' smart constructor.
@@ -496,6 +508,8 @@
 rpSyncCount = lens _rpSyncCount (\ s a -> s{_rpSyncCount = a});
 
 instance Hashable RecordPatch
+
+instance NFData RecordPatch
 
 instance ToJSON RecordPatch where
         toJSON RecordPatch'{..}
diff --git a/gen/Network/AWS/CognitoSync/Types/Sum.hs b/gen/Network/AWS/CognitoSync/Types/Sum.hs
--- a/gen/Network/AWS/CognitoSync/Types/Sum.hs
+++ b/gen/Network/AWS/CognitoSync/Types/Sum.hs
@@ -43,6 +43,7 @@
         Succeeded -> "SUCCEEDED"
 
 instance Hashable     BulkPublishStatus
+instance NFData       BulkPublishStatus
 instance ToByteString BulkPublishStatus
 instance ToQuery      BulkPublishStatus
 instance ToHeader     BulkPublishStatus
@@ -68,6 +69,7 @@
         Replace -> "replace"
 
 instance Hashable     Operation
+instance NFData       Operation
 instance ToByteString Operation
 instance ToQuery      Operation
 instance ToHeader     Operation
@@ -99,6 +101,7 @@
         GCM -> "GCM"
 
 instance Hashable     Platform
+instance NFData       Platform
 instance ToByteString Platform
 instance ToQuery      Platform
 instance ToHeader     Platform
@@ -124,6 +127,7 @@
         Enabled -> "ENABLED"
 
 instance Hashable     StreamingStatus
+instance NFData       StreamingStatus
 instance ToByteString StreamingStatus
 instance ToQuery      StreamingStatus
 instance ToHeader     StreamingStatus
diff --git a/gen/Network/AWS/CognitoSync/UnsubscribeFromDataset.hs b/gen/Network/AWS/CognitoSync/UnsubscribeFromDataset.hs
--- a/gen/Network/AWS/CognitoSync/UnsubscribeFromDataset.hs
+++ b/gen/Network/AWS/CognitoSync/UnsubscribeFromDataset.hs
@@ -113,6 +113,8 @@
 
 instance Hashable UnsubscribeFromDataset
 
+instance NFData UnsubscribeFromDataset
+
 instance ToHeaders UnsubscribeFromDataset where
         toHeaders
           = const
@@ -154,3 +156,5 @@
 -- | The response status code.
 ufdrsResponseStatus :: Lens' UnsubscribeFromDatasetResponse Int
 ufdrsResponseStatus = lens _ufdrsResponseStatus (\ s a -> s{_ufdrsResponseStatus = a});
+
+instance NFData UnsubscribeFromDatasetResponse
diff --git a/gen/Network/AWS/CognitoSync/UpdateRecords.hs b/gen/Network/AWS/CognitoSync/UpdateRecords.hs
--- a/gen/Network/AWS/CognitoSync/UpdateRecords.hs
+++ b/gen/Network/AWS/CognitoSync/UpdateRecords.hs
@@ -160,6 +160,8 @@
 
 instance Hashable UpdateRecords
 
+instance NFData UpdateRecords
+
 instance ToHeaders UpdateRecords where
         toHeaders UpdateRecords'{..}
           = mconcat
@@ -216,3 +218,5 @@
 -- | The response status code.
 urrsResponseStatus :: Lens' UpdateRecordsResponse Int
 urrsResponseStatus = lens _urrsResponseStatus (\ s a -> s{_urrsResponseStatus = a});
+
+instance NFData UpdateRecordsResponse