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-glacier.cabal b/amazonka-glacier.cabal
--- a/amazonka-glacier.cabal
+++ b/amazonka-glacier.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-glacier
-version:               1.4.0
+version:               1.4.1
 synopsis:              Amazon Glacier SDK.
 homepage:              https://github.com/brendanhay/amazonka
 bug-reports:           https://github.com/brendanhay/amazonka/issues
@@ -113,7 +113,7 @@
         , Network.AWS.Glacier.Types.Sum
 
     build-depends:
-          amazonka-core == 1.4.0.*
+          amazonka-core == 1.4.1.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-glacier-test
@@ -133,9 +133,9 @@
         , Test.AWS.Glacier.Internal
 
     build-depends:
-          amazonka-core == 1.4.0.*
-        , amazonka-test == 1.4.0.*
-        , amazonka-glacier == 1.4.0.*
+          amazonka-core == 1.4.1.*
+        , amazonka-test == 1.4.1.*
+        , amazonka-glacier == 1.4.1.*
         , base
         , bytestring
         , tasty
diff --git a/gen/Network/AWS/Glacier/AbortMultipartUpload.hs b/gen/Network/AWS/Glacier/AbortMultipartUpload.hs
--- a/gen/Network/AWS/Glacier/AbortMultipartUpload.hs
+++ b/gen/Network/AWS/Glacier/AbortMultipartUpload.hs
@@ -122,6 +122,8 @@
 
 instance Hashable AbortMultipartUpload
 
+instance NFData AbortMultipartUpload
+
 instance ToHeaders AbortMultipartUpload where
         toHeaders = const mempty
 
@@ -145,3 +147,5 @@
 abortMultipartUploadResponse
     :: AbortMultipartUploadResponse
 abortMultipartUploadResponse = AbortMultipartUploadResponse'
+
+instance NFData AbortMultipartUploadResponse
diff --git a/gen/Network/AWS/Glacier/AbortVaultLock.hs b/gen/Network/AWS/Glacier/AbortVaultLock.hs
--- a/gen/Network/AWS/Glacier/AbortVaultLock.hs
+++ b/gen/Network/AWS/Glacier/AbortVaultLock.hs
@@ -103,6 +103,8 @@
 
 instance Hashable AbortVaultLock
 
+instance NFData AbortVaultLock
+
 instance ToHeaders AbortVaultLock where
         toHeaders = const mempty
 
@@ -125,3 +127,5 @@
 abortVaultLockResponse
     :: AbortVaultLockResponse
 abortVaultLockResponse = AbortVaultLockResponse'
+
+instance NFData AbortVaultLockResponse
diff --git a/gen/Network/AWS/Glacier/AddTagsToVault.hs b/gen/Network/AWS/Glacier/AddTagsToVault.hs
--- a/gen/Network/AWS/Glacier/AddTagsToVault.hs
+++ b/gen/Network/AWS/Glacier/AddTagsToVault.hs
@@ -100,6 +100,8 @@
 
 instance Hashable AddTagsToVault
 
+instance NFData AddTagsToVault
+
 instance ToHeaders AddTagsToVault where
         toHeaders = const mempty
 
@@ -126,3 +128,5 @@
 addTagsToVaultResponse
     :: AddTagsToVaultResponse
 addTagsToVaultResponse = AddTagsToVaultResponse'
+
+instance NFData AddTagsToVaultResponse
diff --git a/gen/Network/AWS/Glacier/CompleteMultipartUpload.hs b/gen/Network/AWS/Glacier/CompleteMultipartUpload.hs
--- a/gen/Network/AWS/Glacier/CompleteMultipartUpload.hs
+++ b/gen/Network/AWS/Glacier/CompleteMultipartUpload.hs
@@ -178,6 +178,8 @@
 
 instance Hashable CompleteMultipartUpload
 
+instance NFData CompleteMultipartUpload
+
 instance ToHeaders CompleteMultipartUpload where
         toHeaders CompleteMultipartUpload'{..}
           = mconcat
diff --git a/gen/Network/AWS/Glacier/CompleteVaultLock.hs b/gen/Network/AWS/Glacier/CompleteVaultLock.hs
--- a/gen/Network/AWS/Glacier/CompleteVaultLock.hs
+++ b/gen/Network/AWS/Glacier/CompleteVaultLock.hs
@@ -113,6 +113,8 @@
 
 instance Hashable CompleteVaultLock
 
+instance NFData CompleteVaultLock
+
 instance ToHeaders CompleteVaultLock where
         toHeaders = const mempty
 
@@ -138,3 +140,5 @@
 completeVaultLockResponse
     :: CompleteVaultLockResponse
 completeVaultLockResponse = CompleteVaultLockResponse'
+
+instance NFData CompleteVaultLockResponse
diff --git a/gen/Network/AWS/Glacier/CreateVault.hs b/gen/Network/AWS/Glacier/CreateVault.hs
--- a/gen/Network/AWS/Glacier/CreateVault.hs
+++ b/gen/Network/AWS/Glacier/CreateVault.hs
@@ -117,6 +117,8 @@
 
 instance Hashable CreateVault
 
+instance NFData CreateVault
+
 instance ToHeaders CreateVault where
         toHeaders = const mempty
 
@@ -163,3 +165,5 @@
 -- | The response status code.
 cvrsResponseStatus :: Lens' CreateVaultResponse Int
 cvrsResponseStatus = lens _cvrsResponseStatus (\ s a -> s{_cvrsResponseStatus = a});
+
+instance NFData CreateVaultResponse
diff --git a/gen/Network/AWS/Glacier/DeleteArchive.hs b/gen/Network/AWS/Glacier/DeleteArchive.hs
--- a/gen/Network/AWS/Glacier/DeleteArchive.hs
+++ b/gen/Network/AWS/Glacier/DeleteArchive.hs
@@ -119,6 +119,8 @@
 
 instance Hashable DeleteArchive
 
+instance NFData DeleteArchive
+
 instance ToHeaders DeleteArchive where
         toHeaders = const mempty
 
@@ -141,3 +143,5 @@
 deleteArchiveResponse
     :: DeleteArchiveResponse
 deleteArchiveResponse = DeleteArchiveResponse'
+
+instance NFData DeleteArchiveResponse
diff --git a/gen/Network/AWS/Glacier/DeleteVault.hs b/gen/Network/AWS/Glacier/DeleteVault.hs
--- a/gen/Network/AWS/Glacier/DeleteVault.hs
+++ b/gen/Network/AWS/Glacier/DeleteVault.hs
@@ -108,6 +108,8 @@
 
 instance Hashable DeleteVault
 
+instance NFData DeleteVault
+
 instance ToHeaders DeleteVault where
         toHeaders = const mempty
 
@@ -129,3 +131,5 @@
 deleteVaultResponse
     :: DeleteVaultResponse
 deleteVaultResponse = DeleteVaultResponse'
+
+instance NFData DeleteVaultResponse
diff --git a/gen/Network/AWS/Glacier/DeleteVaultAccessPolicy.hs b/gen/Network/AWS/Glacier/DeleteVaultAccessPolicy.hs
--- a/gen/Network/AWS/Glacier/DeleteVaultAccessPolicy.hs
+++ b/gen/Network/AWS/Glacier/DeleteVaultAccessPolicy.hs
@@ -95,6 +95,8 @@
 
 instance Hashable DeleteVaultAccessPolicy
 
+instance NFData DeleteVaultAccessPolicy
+
 instance ToHeaders DeleteVaultAccessPolicy where
         toHeaders = const mempty
 
@@ -117,3 +119,5 @@
 deleteVaultAccessPolicyResponse
     :: DeleteVaultAccessPolicyResponse
 deleteVaultAccessPolicyResponse = DeleteVaultAccessPolicyResponse'
+
+instance NFData DeleteVaultAccessPolicyResponse
diff --git a/gen/Network/AWS/Glacier/DeleteVaultNotifications.hs b/gen/Network/AWS/Glacier/DeleteVaultNotifications.hs
--- a/gen/Network/AWS/Glacier/DeleteVaultNotifications.hs
+++ b/gen/Network/AWS/Glacier/DeleteVaultNotifications.hs
@@ -103,6 +103,8 @@
 
 instance Hashable DeleteVaultNotifications
 
+instance NFData DeleteVaultNotifications
+
 instance ToHeaders DeleteVaultNotifications where
         toHeaders = const mempty
 
@@ -125,3 +127,5 @@
 deleteVaultNotificationsResponse
     :: DeleteVaultNotificationsResponse
 deleteVaultNotificationsResponse = DeleteVaultNotificationsResponse'
+
+instance NFData DeleteVaultNotificationsResponse
diff --git a/gen/Network/AWS/Glacier/DescribeJob.hs b/gen/Network/AWS/Glacier/DescribeJob.hs
--- a/gen/Network/AWS/Glacier/DescribeJob.hs
+++ b/gen/Network/AWS/Glacier/DescribeJob.hs
@@ -134,6 +134,8 @@
 
 instance Hashable DescribeJob
 
+instance NFData DescribeJob
+
 instance ToHeaders DescribeJob where
         toHeaders = const mempty
 
diff --git a/gen/Network/AWS/Glacier/DescribeVault.hs b/gen/Network/AWS/Glacier/DescribeVault.hs
--- a/gen/Network/AWS/Glacier/DescribeVault.hs
+++ b/gen/Network/AWS/Glacier/DescribeVault.hs
@@ -114,6 +114,8 @@
 
 instance Hashable DescribeVault
 
+instance NFData DescribeVault
+
 instance ToHeaders DescribeVault where
         toHeaders = const mempty
 
diff --git a/gen/Network/AWS/Glacier/GetDataRetrievalPolicy.hs b/gen/Network/AWS/Glacier/GetDataRetrievalPolicy.hs
--- a/gen/Network/AWS/Glacier/GetDataRetrievalPolicy.hs
+++ b/gen/Network/AWS/Glacier/GetDataRetrievalPolicy.hs
@@ -87,6 +87,8 @@
 
 instance Hashable GetDataRetrievalPolicy
 
+instance NFData GetDataRetrievalPolicy
+
 instance ToHeaders GetDataRetrievalPolicy where
         toHeaders = const mempty
 
@@ -131,3 +133,5 @@
 -- | The response status code.
 gdrprsResponseStatus :: Lens' GetDataRetrievalPolicyResponse Int
 gdrprsResponseStatus = lens _gdrprsResponseStatus (\ s a -> s{_gdrprsResponseStatus = a});
+
+instance NFData GetDataRetrievalPolicyResponse
diff --git a/gen/Network/AWS/Glacier/GetJobOutput.hs b/gen/Network/AWS/Glacier/GetJobOutput.hs
--- a/gen/Network/AWS/Glacier/GetJobOutput.hs
+++ b/gen/Network/AWS/Glacier/GetJobOutput.hs
@@ -170,6 +170,8 @@
 
 instance Hashable GetJobOutput
 
+instance NFData GetJobOutput
+
 instance ToHeaders GetJobOutput where
         toHeaders GetJobOutput'{..}
           = mconcat ["Range" =# _gjoRange]
diff --git a/gen/Network/AWS/Glacier/GetVaultAccessPolicy.hs b/gen/Network/AWS/Glacier/GetVaultAccessPolicy.hs
--- a/gen/Network/AWS/Glacier/GetVaultAccessPolicy.hs
+++ b/gen/Network/AWS/Glacier/GetVaultAccessPolicy.hs
@@ -98,6 +98,8 @@
 
 instance Hashable GetVaultAccessPolicy
 
+instance NFData GetVaultAccessPolicy
+
 instance ToHeaders GetVaultAccessPolicy where
         toHeaders = const mempty
 
@@ -141,3 +143,5 @@
 -- | The response status code.
 gvaprsResponseStatus :: Lens' GetVaultAccessPolicyResponse Int
 gvaprsResponseStatus = lens _gvaprsResponseStatus (\ s a -> s{_gvaprsResponseStatus = a});
+
+instance NFData GetVaultAccessPolicyResponse
diff --git a/gen/Network/AWS/Glacier/GetVaultLock.hs b/gen/Network/AWS/Glacier/GetVaultLock.hs
--- a/gen/Network/AWS/Glacier/GetVaultLock.hs
+++ b/gen/Network/AWS/Glacier/GetVaultLock.hs
@@ -120,6 +120,8 @@
 
 instance Hashable GetVaultLock
 
+instance NFData GetVaultLock
+
 instance ToHeaders GetVaultLock where
         toHeaders = const mempty
 
@@ -190,3 +192,5 @@
 -- | The response status code.
 gvlrsResponseStatus :: Lens' GetVaultLockResponse Int
 gvlrsResponseStatus = lens _gvlrsResponseStatus (\ s a -> s{_gvlrsResponseStatus = a});
+
+instance NFData GetVaultLockResponse
diff --git a/gen/Network/AWS/Glacier/GetVaultNotifications.hs b/gen/Network/AWS/Glacier/GetVaultNotifications.hs
--- a/gen/Network/AWS/Glacier/GetVaultNotifications.hs
+++ b/gen/Network/AWS/Glacier/GetVaultNotifications.hs
@@ -112,6 +112,8 @@
 
 instance Hashable GetVaultNotifications
 
+instance NFData GetVaultNotifications
+
 instance ToHeaders GetVaultNotifications where
         toHeaders = const mempty
 
@@ -155,3 +157,5 @@
 -- | The response status code.
 gvnrsResponseStatus :: Lens' GetVaultNotificationsResponse Int
 gvnrsResponseStatus = lens _gvnrsResponseStatus (\ s a -> s{_gvnrsResponseStatus = a});
+
+instance NFData GetVaultNotificationsResponse
diff --git a/gen/Network/AWS/Glacier/InitiateJob.hs b/gen/Network/AWS/Glacier/InitiateJob.hs
--- a/gen/Network/AWS/Glacier/InitiateJob.hs
+++ b/gen/Network/AWS/Glacier/InitiateJob.hs
@@ -229,6 +229,8 @@
 
 instance Hashable InitiateJob
 
+instance NFData InitiateJob
+
 instance ToHeaders InitiateJob where
         toHeaders = const mempty
 
@@ -286,3 +288,5 @@
 -- | The response status code.
 ijrsResponseStatus :: Lens' InitiateJobResponse Int
 ijrsResponseStatus = lens _ijrsResponseStatus (\ s a -> s{_ijrsResponseStatus = a});
+
+instance NFData InitiateJobResponse
diff --git a/gen/Network/AWS/Glacier/InitiateMultipartUpload.hs b/gen/Network/AWS/Glacier/InitiateMultipartUpload.hs
--- a/gen/Network/AWS/Glacier/InitiateMultipartUpload.hs
+++ b/gen/Network/AWS/Glacier/InitiateMultipartUpload.hs
@@ -156,6 +156,8 @@
 
 instance Hashable InitiateMultipartUpload
 
+instance NFData InitiateMultipartUpload
+
 instance ToHeaders InitiateMultipartUpload where
         toHeaders InitiateMultipartUpload'{..}
           = mconcat
@@ -215,3 +217,5 @@
 -- | The response status code.
 imursResponseStatus :: Lens' InitiateMultipartUploadResponse Int
 imursResponseStatus = lens _imursResponseStatus (\ s a -> s{_imursResponseStatus = a});
+
+instance NFData InitiateMultipartUploadResponse
diff --git a/gen/Network/AWS/Glacier/InitiateVaultLock.hs b/gen/Network/AWS/Glacier/InitiateVaultLock.hs
--- a/gen/Network/AWS/Glacier/InitiateVaultLock.hs
+++ b/gen/Network/AWS/Glacier/InitiateVaultLock.hs
@@ -135,6 +135,8 @@
 
 instance Hashable InitiateVaultLock
 
+instance NFData InitiateVaultLock
+
 instance ToHeaders InitiateVaultLock where
         toHeaders = const mempty
 
@@ -182,3 +184,5 @@
 -- | The response status code.
 ivlrsResponseStatus :: Lens' InitiateVaultLockResponse Int
 ivlrsResponseStatus = lens _ivlrsResponseStatus (\ s a -> s{_ivlrsResponseStatus = a});
+
+instance NFData InitiateVaultLockResponse
diff --git a/gen/Network/AWS/Glacier/ListJobs.hs b/gen/Network/AWS/Glacier/ListJobs.hs
--- a/gen/Network/AWS/Glacier/ListJobs.hs
+++ b/gen/Network/AWS/Glacier/ListJobs.hs
@@ -190,6 +190,8 @@
 
 instance Hashable ListJobs
 
+instance NFData ListJobs
+
 instance ToHeaders ListJobs where
         toHeaders = const mempty
 
@@ -247,3 +249,5 @@
 -- | The response status code.
 ljrsResponseStatus :: Lens' ListJobsResponse Int
 ljrsResponseStatus = lens _ljrsResponseStatus (\ s a -> s{_ljrsResponseStatus = a});
+
+instance NFData ListJobsResponse
diff --git a/gen/Network/AWS/Glacier/ListMultipartUploads.hs b/gen/Network/AWS/Glacier/ListMultipartUploads.hs
--- a/gen/Network/AWS/Glacier/ListMultipartUploads.hs
+++ b/gen/Network/AWS/Glacier/ListMultipartUploads.hs
@@ -161,6 +161,8 @@
 
 instance Hashable ListMultipartUploads
 
+instance NFData ListMultipartUploads
+
 instance ToHeaders ListMultipartUploads where
         toHeaders = const mempty
 
@@ -217,3 +219,5 @@
 -- | The response status code.
 lmursResponseStatus :: Lens' ListMultipartUploadsResponse Int
 lmursResponseStatus = lens _lmursResponseStatus (\ s a -> s{_lmursResponseStatus = a});
+
+instance NFData ListMultipartUploadsResponse
diff --git a/gen/Network/AWS/Glacier/ListParts.hs b/gen/Network/AWS/Glacier/ListParts.hs
--- a/gen/Network/AWS/Glacier/ListParts.hs
+++ b/gen/Network/AWS/Glacier/ListParts.hs
@@ -175,6 +175,8 @@
 
 instance Hashable ListParts
 
+instance NFData ListParts
+
 instance ToHeaders ListParts where
         toHeaders = const mempty
 
@@ -273,3 +275,5 @@
 -- | The response status code.
 lprsResponseStatus :: Lens' ListPartsResponse Int
 lprsResponseStatus = lens _lprsResponseStatus (\ s a -> s{_lprsResponseStatus = a});
+
+instance NFData ListPartsResponse
diff --git a/gen/Network/AWS/Glacier/ListTagsForVault.hs b/gen/Network/AWS/Glacier/ListTagsForVault.hs
--- a/gen/Network/AWS/Glacier/ListTagsForVault.hs
+++ b/gen/Network/AWS/Glacier/ListTagsForVault.hs
@@ -94,6 +94,8 @@
 
 instance Hashable ListTagsForVault
 
+instance NFData ListTagsForVault
+
 instance ToHeaders ListTagsForVault where
         toHeaders = const mempty
 
@@ -138,3 +140,5 @@
 -- | The response status code.
 ltfvrsResponseStatus :: Lens' ListTagsForVaultResponse Int
 ltfvrsResponseStatus = lens _ltfvrsResponseStatus (\ s a -> s{_ltfvrsResponseStatus = a});
+
+instance NFData ListTagsForVaultResponse
diff --git a/gen/Network/AWS/Glacier/ListVaults.hs b/gen/Network/AWS/Glacier/ListVaults.hs
--- a/gen/Network/AWS/Glacier/ListVaults.hs
+++ b/gen/Network/AWS/Glacier/ListVaults.hs
@@ -138,6 +138,8 @@
 
 instance Hashable ListVaults
 
+instance NFData ListVaults
+
 instance ToHeaders ListVaults where
         toHeaders = const mempty
 
@@ -191,3 +193,5 @@
 -- | The response status code.
 lvrsResponseStatus :: Lens' ListVaultsResponse Int
 lvrsResponseStatus = lens _lvrsResponseStatus (\ s a -> s{_lvrsResponseStatus = a});
+
+instance NFData ListVaultsResponse
diff --git a/gen/Network/AWS/Glacier/RemoveTagsFromVault.hs b/gen/Network/AWS/Glacier/RemoveTagsFromVault.hs
--- a/gen/Network/AWS/Glacier/RemoveTagsFromVault.hs
+++ b/gen/Network/AWS/Glacier/RemoveTagsFromVault.hs
@@ -98,6 +98,8 @@
 
 instance Hashable RemoveTagsFromVault
 
+instance NFData RemoveTagsFromVault
+
 instance ToHeaders RemoveTagsFromVault where
         toHeaders = const mempty
 
@@ -125,3 +127,5 @@
 removeTagsFromVaultResponse
     :: RemoveTagsFromVaultResponse
 removeTagsFromVaultResponse = RemoveTagsFromVaultResponse'
+
+instance NFData RemoveTagsFromVaultResponse
diff --git a/gen/Network/AWS/Glacier/SetDataRetrievalPolicy.hs b/gen/Network/AWS/Glacier/SetDataRetrievalPolicy.hs
--- a/gen/Network/AWS/Glacier/SetDataRetrievalPolicy.hs
+++ b/gen/Network/AWS/Glacier/SetDataRetrievalPolicy.hs
@@ -95,6 +95,8 @@
 
 instance Hashable SetDataRetrievalPolicy
 
+instance NFData SetDataRetrievalPolicy
+
 instance ToHeaders SetDataRetrievalPolicy where
         toHeaders = const mempty
 
@@ -121,3 +123,5 @@
 setDataRetrievalPolicyResponse
     :: SetDataRetrievalPolicyResponse
 setDataRetrievalPolicyResponse = SetDataRetrievalPolicyResponse'
+
+instance NFData SetDataRetrievalPolicyResponse
diff --git a/gen/Network/AWS/Glacier/SetVaultAccessPolicy.hs b/gen/Network/AWS/Glacier/SetVaultAccessPolicy.hs
--- a/gen/Network/AWS/Glacier/SetVaultAccessPolicy.hs
+++ b/gen/Network/AWS/Glacier/SetVaultAccessPolicy.hs
@@ -100,6 +100,8 @@
 
 instance Hashable SetVaultAccessPolicy
 
+instance NFData SetVaultAccessPolicy
+
 instance ToHeaders SetVaultAccessPolicy where
         toHeaders = const mempty
 
@@ -126,3 +128,5 @@
 setVaultAccessPolicyResponse
     :: SetVaultAccessPolicyResponse
 setVaultAccessPolicyResponse = SetVaultAccessPolicyResponse'
+
+instance NFData SetVaultAccessPolicyResponse
diff --git a/gen/Network/AWS/Glacier/SetVaultNotifications.hs b/gen/Network/AWS/Glacier/SetVaultNotifications.hs
--- a/gen/Network/AWS/Glacier/SetVaultNotifications.hs
+++ b/gen/Network/AWS/Glacier/SetVaultNotifications.hs
@@ -129,6 +129,8 @@
 
 instance Hashable SetVaultNotifications
 
+instance NFData SetVaultNotifications
+
 instance ToHeaders SetVaultNotifications where
         toHeaders = const mempty
 
@@ -158,3 +160,5 @@
 setVaultNotificationsResponse
     :: SetVaultNotificationsResponse
 setVaultNotificationsResponse = SetVaultNotificationsResponse'
+
+instance NFData SetVaultNotificationsResponse
diff --git a/gen/Network/AWS/Glacier/Types.hs b/gen/Network/AWS/Glacier/Types.hs
--- a/gen/Network/AWS/Glacier/Types.hs
+++ b/gen/Network/AWS/Glacier/Types.hs
@@ -172,6 +172,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/Glacier/Types/Product.hs b/gen/Network/AWS/Glacier/Types/Product.hs
--- a/gen/Network/AWS/Glacier/Types/Product.hs
+++ b/gen/Network/AWS/Glacier/Types/Product.hs
@@ -77,6 +77,8 @@
 
 instance Hashable ArchiveCreationOutput
 
+instance NFData ArchiveCreationOutput
+
 -- | Data retrieval policy.
 --
 -- /See:/ 'dataRetrievalPolicy' smart constructor.
@@ -110,6 +112,8 @@
 
 instance Hashable DataRetrievalPolicy
 
+instance NFData DataRetrievalPolicy
+
 instance ToJSON DataRetrievalPolicy where
         toJSON DataRetrievalPolicy'{..}
           = object (catMaybes [("Rules" .=) <$> _drpRules])
@@ -160,6 +164,8 @@
 
 instance Hashable DataRetrievalRule
 
+instance NFData DataRetrievalRule
+
 instance ToJSON DataRetrievalRule where
         toJSON DataRetrievalRule'{..}
           = object
@@ -250,6 +256,8 @@
 
 instance Hashable DescribeVaultOutput
 
+instance NFData DescribeVaultOutput
+
 -- | Describes an Amazon Glacier job.
 --
 -- /See:/ 'glacierJobDescription' smart constructor.
@@ -459,6 +467,8 @@
 
 instance Hashable GlacierJobDescription
 
+instance NFData GlacierJobDescription
+
 -- | Describes the options for a range inventory retrieval job.
 --
 -- /See:/ 'inventoryRetrievalJobDescription' smart constructor.
@@ -540,6 +550,8 @@
 
 instance Hashable InventoryRetrievalJobDescription
 
+instance NFData InventoryRetrievalJobDescription
+
 -- | Provides options for specifying a range inventory retrieval job.
 --
 -- /See:/ 'inventoryRetrievalJobInput' smart constructor.
@@ -598,6 +610,8 @@
 
 instance Hashable InventoryRetrievalJobInput
 
+instance NFData InventoryRetrievalJobInput
+
 instance ToJSON InventoryRetrievalJobInput where
         toJSON InventoryRetrievalJobInput'{..}
           = object
@@ -703,6 +717,8 @@
 
 instance Hashable JobParameters
 
+instance NFData JobParameters
+
 instance ToJSON JobParameters where
         toJSON JobParameters'{..}
           = object
@@ -757,6 +773,8 @@
 
 instance Hashable PartListElement
 
+instance NFData PartListElement
+
 -- | A list of in-progress multipart uploads for a vault.
 --
 -- /See:/ 'uploadListElement' smart constructor.
@@ -828,6 +846,8 @@
 
 instance Hashable UploadListElement
 
+instance NFData UploadListElement
+
 -- | Contains the vault access policy.
 --
 -- /See:/ 'vaultAccessPolicy' smart constructor.
@@ -858,6 +878,8 @@
 
 instance Hashable VaultAccessPolicy
 
+instance NFData VaultAccessPolicy
+
 instance ToJSON VaultAccessPolicy where
         toJSON VaultAccessPolicy'{..}
           = object (catMaybes [("Policy" .=) <$> _vapPolicy])
@@ -887,6 +909,8 @@
 
 instance Hashable VaultLockPolicy
 
+instance NFData VaultLockPolicy
+
 instance ToJSON VaultLockPolicy where
         toJSON VaultLockPolicy'{..}
           = object (catMaybes [("Policy" .=) <$> _vlpPolicy])
@@ -932,6 +956,8 @@
                    (x .:? "SNSTopic") <*> (x .:? "Events" .!= mempty))
 
 instance Hashable VaultNotificationConfig
+
+instance NFData VaultNotificationConfig
 
 instance ToJSON VaultNotificationConfig where
         toJSON VaultNotificationConfig'{..}
diff --git a/gen/Network/AWS/Glacier/Types/Sum.hs b/gen/Network/AWS/Glacier/Types/Sum.hs
--- a/gen/Network/AWS/Glacier/Types/Sum.hs
+++ b/gen/Network/AWS/Glacier/Types/Sum.hs
@@ -37,6 +37,7 @@
         InventoryRetrieval -> "InventoryRetrieval"
 
 instance Hashable     ActionCode
+instance NFData       ActionCode
 instance ToByteString ActionCode
 instance ToQuery      ActionCode
 instance ToHeader     ActionCode
@@ -65,6 +66,7 @@
         Succeeded -> "Succeeded"
 
 instance Hashable     StatusCode
+instance NFData       StatusCode
 instance ToByteString StatusCode
 instance ToQuery      StatusCode
 instance ToHeader     StatusCode
diff --git a/gen/Network/AWS/Glacier/UploadMultipartPart.hs b/gen/Network/AWS/Glacier/UploadMultipartPart.hs
--- a/gen/Network/AWS/Glacier/UploadMultipartPart.hs
+++ b/gen/Network/AWS/Glacier/UploadMultipartPart.hs
@@ -230,3 +230,5 @@
 -- | The response status code.
 umprsResponseStatus :: Lens' UploadMultipartPartResponse Int
 umprsResponseStatus = lens _umprsResponseStatus (\ s a -> s{_umprsResponseStatus = a});
+
+instance NFData UploadMultipartPartResponse