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-sqs.cabal b/amazonka-sqs.cabal
--- a/amazonka-sqs.cabal
+++ b/amazonka-sqs.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-sqs
-version:               1.4.0
+version:               1.4.1
 synopsis:              Amazon Simple Queue Service SDK.
 homepage:              https://github.com/brendanhay/amazonka
 bug-reports:           https://github.com/brendanhay/amazonka/issues
@@ -94,7 +94,7 @@
         , Network.AWS.SQS.Types.Sum
 
     build-depends:
-          amazonka-core == 1.4.0.*
+          amazonka-core == 1.4.1.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-sqs-test
@@ -114,9 +114,9 @@
         , Test.AWS.SQS.Internal
 
     build-depends:
-          amazonka-core == 1.4.0.*
-        , amazonka-test == 1.4.0.*
-        , amazonka-sqs == 1.4.0.*
+          amazonka-core == 1.4.1.*
+        , amazonka-test == 1.4.1.*
+        , amazonka-sqs == 1.4.1.*
         , base
         , bytestring
         , tasty
diff --git a/gen/Network/AWS/SQS/AddPermission.hs b/gen/Network/AWS/SQS/AddPermission.hs
--- a/gen/Network/AWS/SQS/AddPermission.hs
+++ b/gen/Network/AWS/SQS/AddPermission.hs
@@ -136,6 +136,8 @@
 
 instance Hashable AddPermission
 
+instance NFData AddPermission
+
 instance ToHeaders AddPermission where
         toHeaders = const mempty
 
@@ -161,3 +163,5 @@
 addPermissionResponse
     :: AddPermissionResponse
 addPermissionResponse = AddPermissionResponse'
+
+instance NFData AddPermissionResponse
diff --git a/gen/Network/AWS/SQS/ChangeMessageVisibility.hs b/gen/Network/AWS/SQS/ChangeMessageVisibility.hs
--- a/gen/Network/AWS/SQS/ChangeMessageVisibility.hs
+++ b/gen/Network/AWS/SQS/ChangeMessageVisibility.hs
@@ -128,6 +128,8 @@
 
 instance Hashable ChangeMessageVisibility
 
+instance NFData ChangeMessageVisibility
+
 instance ToHeaders ChangeMessageVisibility where
         toHeaders = const mempty
 
@@ -154,3 +156,5 @@
 changeMessageVisibilityResponse
     :: ChangeMessageVisibilityResponse
 changeMessageVisibilityResponse = ChangeMessageVisibilityResponse'
+
+instance NFData ChangeMessageVisibilityResponse
diff --git a/gen/Network/AWS/SQS/ChangeMessageVisibilityBatch.hs b/gen/Network/AWS/SQS/ChangeMessageVisibilityBatch.hs
--- a/gen/Network/AWS/SQS/ChangeMessageVisibilityBatch.hs
+++ b/gen/Network/AWS/SQS/ChangeMessageVisibilityBatch.hs
@@ -109,6 +109,8 @@
 
 instance Hashable ChangeMessageVisibilityBatch
 
+instance NFData ChangeMessageVisibilityBatch
+
 instance ToHeaders ChangeMessageVisibilityBatch where
         toHeaders = const mempty
 
@@ -167,3 +169,5 @@
 -- | A list of < BatchResultErrorEntry> items.
 cmvbrsFailed :: Lens' ChangeMessageVisibilityBatchResponse [BatchResultErrorEntry]
 cmvbrsFailed = lens _cmvbrsFailed (\ s a -> s{_cmvbrsFailed = a}) . _Coerce;
+
+instance NFData ChangeMessageVisibilityBatchResponse
diff --git a/gen/Network/AWS/SQS/CreateQueue.hs b/gen/Network/AWS/SQS/CreateQueue.hs
--- a/gen/Network/AWS/SQS/CreateQueue.hs
+++ b/gen/Network/AWS/SQS/CreateQueue.hs
@@ -139,6 +139,8 @@
 
 instance Hashable CreateQueue
 
+instance NFData CreateQueue
+
 instance ToHeaders CreateQueue where
         toHeaders = const mempty
 
@@ -186,3 +188,5 @@
 -- | The response status code.
 cqrsResponseStatus :: Lens' CreateQueueResponse Int
 cqrsResponseStatus = lens _cqrsResponseStatus (\ s a -> s{_cqrsResponseStatus = a});
+
+instance NFData CreateQueueResponse
diff --git a/gen/Network/AWS/SQS/DeleteMessage.hs b/gen/Network/AWS/SQS/DeleteMessage.hs
--- a/gen/Network/AWS/SQS/DeleteMessage.hs
+++ b/gen/Network/AWS/SQS/DeleteMessage.hs
@@ -99,6 +99,8 @@
 
 instance Hashable DeleteMessage
 
+instance NFData DeleteMessage
+
 instance ToHeaders DeleteMessage where
         toHeaders = const mempty
 
@@ -123,3 +125,5 @@
 deleteMessageResponse
     :: DeleteMessageResponse
 deleteMessageResponse = DeleteMessageResponse'
+
+instance NFData DeleteMessageResponse
diff --git a/gen/Network/AWS/SQS/DeleteMessageBatch.hs b/gen/Network/AWS/SQS/DeleteMessageBatch.hs
--- a/gen/Network/AWS/SQS/DeleteMessageBatch.hs
+++ b/gen/Network/AWS/SQS/DeleteMessageBatch.hs
@@ -102,6 +102,8 @@
 
 instance Hashable DeleteMessageBatch
 
+instance NFData DeleteMessageBatch
+
 instance ToHeaders DeleteMessageBatch where
         toHeaders = const mempty
 
@@ -158,3 +160,5 @@
 -- | A list of < BatchResultErrorEntry> items.
 dmbrsFailed :: Lens' DeleteMessageBatchResponse [BatchResultErrorEntry]
 dmbrsFailed = lens _dmbrsFailed (\ s a -> s{_dmbrsFailed = a}) . _Coerce;
+
+instance NFData DeleteMessageBatchResponse
diff --git a/gen/Network/AWS/SQS/DeleteQueue.hs b/gen/Network/AWS/SQS/DeleteQueue.hs
--- a/gen/Network/AWS/SQS/DeleteQueue.hs
+++ b/gen/Network/AWS/SQS/DeleteQueue.hs
@@ -85,6 +85,8 @@
 
 instance Hashable DeleteQueue
 
+instance NFData DeleteQueue
+
 instance ToHeaders DeleteQueue where
         toHeaders = const mempty
 
@@ -108,3 +110,5 @@
 deleteQueueResponse
     :: DeleteQueueResponse
 deleteQueueResponse = DeleteQueueResponse'
+
+instance NFData DeleteQueueResponse
diff --git a/gen/Network/AWS/SQS/GetQueueAttributes.hs b/gen/Network/AWS/SQS/GetQueueAttributes.hs
--- a/gen/Network/AWS/SQS/GetQueueAttributes.hs
+++ b/gen/Network/AWS/SQS/GetQueueAttributes.hs
@@ -134,6 +134,8 @@
 
 instance Hashable GetQueueAttributes
 
+instance NFData GetQueueAttributes
+
 instance ToHeaders GetQueueAttributes where
         toHeaders = const mempty
 
@@ -180,3 +182,5 @@
 -- | The response status code.
 gqarsResponseStatus :: Lens' GetQueueAttributesResponse Int
 gqarsResponseStatus = lens _gqarsResponseStatus (\ s a -> s{_gqarsResponseStatus = a});
+
+instance NFData GetQueueAttributesResponse
diff --git a/gen/Network/AWS/SQS/GetQueueURL.hs b/gen/Network/AWS/SQS/GetQueueURL.hs
--- a/gen/Network/AWS/SQS/GetQueueURL.hs
+++ b/gen/Network/AWS/SQS/GetQueueURL.hs
@@ -94,6 +94,8 @@
 
 instance Hashable GetQueueURL
 
+instance NFData GetQueueURL
+
 instance ToHeaders GetQueueURL where
         toHeaders = const mempty
 
@@ -143,3 +145,5 @@
 -- | The URL for the queue.
 gqursQueueURL :: Lens' GetQueueURLResponse Text
 gqursQueueURL = lens _gqursQueueURL (\ s a -> s{_gqursQueueURL = a});
+
+instance NFData GetQueueURLResponse
diff --git a/gen/Network/AWS/SQS/ListDeadLetterSourceQueues.hs b/gen/Network/AWS/SQS/ListDeadLetterSourceQueues.hs
--- a/gen/Network/AWS/SQS/ListDeadLetterSourceQueues.hs
+++ b/gen/Network/AWS/SQS/ListDeadLetterSourceQueues.hs
@@ -81,6 +81,8 @@
 
 instance Hashable ListDeadLetterSourceQueues
 
+instance NFData ListDeadLetterSourceQueues
+
 instance ToHeaders ListDeadLetterSourceQueues where
         toHeaders = const mempty
 
@@ -127,3 +129,5 @@
 -- configured with a dead letter queue.
 ldlsqrsQueueURLs :: Lens' ListDeadLetterSourceQueuesResponse [Text]
 ldlsqrsQueueURLs = lens _ldlsqrsQueueURLs (\ s a -> s{_ldlsqrsQueueURLs = a}) . _Coerce;
+
+instance NFData ListDeadLetterSourceQueuesResponse
diff --git a/gen/Network/AWS/SQS/ListQueues.hs b/gen/Network/AWS/SQS/ListQueues.hs
--- a/gen/Network/AWS/SQS/ListQueues.hs
+++ b/gen/Network/AWS/SQS/ListQueues.hs
@@ -79,6 +79,8 @@
 
 instance Hashable ListQueues
 
+instance NFData ListQueues
+
 instance ToHeaders ListQueues where
         toHeaders = const mempty
 
@@ -123,3 +125,5 @@
 -- | The response status code.
 lqrsResponseStatus :: Lens' ListQueuesResponse Int
 lqrsResponseStatus = lens _lqrsResponseStatus (\ s a -> s{_lqrsResponseStatus = a});
+
+instance NFData ListQueuesResponse
diff --git a/gen/Network/AWS/SQS/PurgeQueue.hs b/gen/Network/AWS/SQS/PurgeQueue.hs
--- a/gen/Network/AWS/SQS/PurgeQueue.hs
+++ b/gen/Network/AWS/SQS/PurgeQueue.hs
@@ -79,6 +79,8 @@
 
 instance Hashable PurgeQueue
 
+instance NFData PurgeQueue
+
 instance ToHeaders PurgeQueue where
         toHeaders = const mempty
 
@@ -102,3 +104,5 @@
 purgeQueueResponse
     :: PurgeQueueResponse
 purgeQueueResponse = PurgeQueueResponse'
+
+instance NFData PurgeQueueResponse
diff --git a/gen/Network/AWS/SQS/ReceiveMessage.hs b/gen/Network/AWS/SQS/ReceiveMessage.hs
--- a/gen/Network/AWS/SQS/ReceiveMessage.hs
+++ b/gen/Network/AWS/SQS/ReceiveMessage.hs
@@ -199,6 +199,8 @@
 
 instance Hashable ReceiveMessage
 
+instance NFData ReceiveMessage
+
 instance ToHeaders ReceiveMessage where
         toHeaders = const mempty
 
@@ -251,3 +253,5 @@
 -- | The response status code.
 rmrsResponseStatus :: Lens' ReceiveMessageResponse Int
 rmrsResponseStatus = lens _rmrsResponseStatus (\ s a -> s{_rmrsResponseStatus = a});
+
+instance NFData ReceiveMessageResponse
diff --git a/gen/Network/AWS/SQS/RemovePermission.hs b/gen/Network/AWS/SQS/RemovePermission.hs
--- a/gen/Network/AWS/SQS/RemovePermission.hs
+++ b/gen/Network/AWS/SQS/RemovePermission.hs
@@ -80,6 +80,8 @@
 
 instance Hashable RemovePermission
 
+instance NFData RemovePermission
+
 instance ToHeaders RemovePermission where
         toHeaders = const mempty
 
@@ -103,3 +105,5 @@
 removePermissionResponse
     :: RemovePermissionResponse
 removePermissionResponse = RemovePermissionResponse'
+
+instance NFData RemovePermissionResponse
diff --git a/gen/Network/AWS/SQS/SendMessage.hs b/gen/Network/AWS/SQS/SendMessage.hs
--- a/gen/Network/AWS/SQS/SendMessage.hs
+++ b/gen/Network/AWS/SQS/SendMessage.hs
@@ -125,6 +125,8 @@
 
 instance Hashable SendMessage
 
+instance NFData SendMessage
+
 instance ToHeaders SendMessage where
         toHeaders = const mempty
 
@@ -199,3 +201,5 @@
 -- | The response status code.
 smrsResponseStatus :: Lens' SendMessageResponse Int
 smrsResponseStatus = lens _smrsResponseStatus (\ s a -> s{_smrsResponseStatus = a});
+
+instance NFData SendMessageResponse
diff --git a/gen/Network/AWS/SQS/SendMessageBatch.hs b/gen/Network/AWS/SQS/SendMessageBatch.hs
--- a/gen/Network/AWS/SQS/SendMessageBatch.hs
+++ b/gen/Network/AWS/SQS/SendMessageBatch.hs
@@ -117,6 +117,8 @@
 
 instance Hashable SendMessageBatch
 
+instance NFData SendMessageBatch
+
 instance ToHeaders SendMessageBatch where
         toHeaders = const mempty
 
@@ -174,3 +176,5 @@
 -- each message that could not be enqueued.
 smbrsFailed :: Lens' SendMessageBatchResponse [BatchResultErrorEntry]
 smbrsFailed = lens _smbrsFailed (\ s a -> s{_smbrsFailed = a}) . _Coerce;
+
+instance NFData SendMessageBatchResponse
diff --git a/gen/Network/AWS/SQS/SetQueueAttributes.hs b/gen/Network/AWS/SQS/SetQueueAttributes.hs
--- a/gen/Network/AWS/SQS/SetQueueAttributes.hs
+++ b/gen/Network/AWS/SQS/SetQueueAttributes.hs
@@ -115,6 +115,8 @@
 
 instance Hashable SetQueueAttributes
 
+instance NFData SetQueueAttributes
+
 instance ToHeaders SetQueueAttributes where
         toHeaders = const mempty
 
@@ -139,3 +141,5 @@
 setQueueAttributesResponse
     :: SetQueueAttributesResponse
 setQueueAttributesResponse = SetQueueAttributesResponse'
+
+instance NFData SetQueueAttributesResponse
diff --git a/gen/Network/AWS/SQS/Types.hs b/gen/Network/AWS/SQS/Types.hs
--- a/gen/Network/AWS/SQS/Types.hs
+++ b/gen/Network/AWS/SQS/Types.hs
@@ -142,6 +142,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/SQS/Types/Product.hs b/gen/Network/AWS/SQS/Types/Product.hs
--- a/gen/Network/AWS/SQS/Types/Product.hs
+++ b/gen/Network/AWS/SQS/Types/Product.hs
@@ -81,6 +81,8 @@
 
 instance Hashable BatchResultErrorEntry
 
+instance NFData BatchResultErrorEntry
+
 -- | Encloses a receipt handle and an entry id for each message in
 -- < ChangeMessageVisibilityBatch>.
 --
@@ -139,6 +141,9 @@
 instance Hashable
          ChangeMessageVisibilityBatchRequestEntry
 
+instance NFData
+         ChangeMessageVisibilityBatchRequestEntry
+
 instance ToQuery
          ChangeMessageVisibilityBatchRequestEntry where
         toQuery ChangeMessageVisibilityBatchRequestEntry'{..}
@@ -180,6 +185,9 @@
 instance Hashable
          ChangeMessageVisibilityBatchResultEntry
 
+instance NFData
+         ChangeMessageVisibilityBatchResultEntry
+
 -- | Encloses a receipt handle and an identifier for it.
 --
 -- /See:/ 'deleteMessageBatchRequestEntry' smart constructor.
@@ -217,6 +225,8 @@
 
 instance Hashable DeleteMessageBatchRequestEntry
 
+instance NFData DeleteMessageBatchRequestEntry
+
 instance ToQuery DeleteMessageBatchRequestEntry where
         toQuery DeleteMessageBatchRequestEntry'{..}
           = mconcat
@@ -253,6 +263,8 @@
 
 instance Hashable DeleteMessageBatchResultEntry
 
+instance NFData DeleteMessageBatchResultEntry
+
 -- | An Amazon SQS message.
 --
 -- /See:/ 'message' smart constructor.
@@ -351,6 +363,8 @@
 
 instance Hashable Message
 
+instance NFData Message
+
 -- | The user-specified message attribute value. For string data types, the
 -- value attribute has the same restrictions on the content as the message
 -- body. For more information, see
@@ -441,6 +455,8 @@
 
 instance Hashable MessageAttributeValue
 
+instance NFData MessageAttributeValue
+
 instance ToQuery MessageAttributeValue where
         toQuery MessageAttributeValue'{..}
           = mconcat
@@ -511,6 +527,8 @@
 
 instance Hashable SendMessageBatchRequestEntry
 
+instance NFData SendMessageBatchRequestEntry
+
 instance ToQuery SendMessageBatchRequestEntry where
         toQuery SendMessageBatchRequestEntry'{..}
           = mconcat
@@ -586,3 +604,5 @@
                 <*> (x .@ "MD5OfMessageBody")
 
 instance Hashable SendMessageBatchResultEntry
+
+instance NFData SendMessageBatchResultEntry
diff --git a/gen/Network/AWS/SQS/Types/Sum.hs b/gen/Network/AWS/SQS/Types/Sum.hs
--- a/gen/Network/AWS/SQS/Types/Sum.hs
+++ b/gen/Network/AWS/SQS/Types/Sum.hs
@@ -46,6 +46,7 @@
         SentTimestamp -> "SentTimestamp"
 
 instance Hashable     MessageAttribute
+instance NFData       MessageAttribute
 instance ToByteString MessageAttribute
 instance ToQuery      MessageAttribute
 instance ToHeader     MessageAttribute
@@ -104,6 +105,7 @@
         VisibilityTimeout -> "VisibilityTimeout"
 
 instance Hashable     QueueAttributeName
+instance NFData       QueueAttributeName
 instance ToByteString QueueAttributeName
 instance ToQuery      QueueAttributeName
 instance ToHeader     QueueAttributeName