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-ssm.cabal b/amazonka-ssm.cabal
--- a/amazonka-ssm.cabal
+++ b/amazonka-ssm.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-ssm
-version:               1.4.0
+version:               1.4.1
 synopsis:              Amazon Simple Systems Management Service SDK.
 homepage:              https://github.com/brendanhay/amazonka
 bug-reports:           https://github.com/brendanhay/amazonka/issues
@@ -187,7 +187,7 @@
         , Network.AWS.SSM.Types.Sum
 
     build-depends:
-          amazonka-core == 1.4.0.*
+          amazonka-core == 1.4.1.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-ssm-test
@@ -207,9 +207,9 @@
         , Test.AWS.SSM.Internal
 
     build-depends:
-          amazonka-core == 1.4.0.*
-        , amazonka-test == 1.4.0.*
-        , amazonka-ssm == 1.4.0.*
+          amazonka-core == 1.4.1.*
+        , amazonka-test == 1.4.1.*
+        , amazonka-ssm == 1.4.1.*
         , base
         , bytestring
         , tasty
diff --git a/gen/Network/AWS/SSM/CancelCommand.hs b/gen/Network/AWS/SSM/CancelCommand.hs
--- a/gen/Network/AWS/SSM/CancelCommand.hs
+++ b/gen/Network/AWS/SSM/CancelCommand.hs
@@ -86,6 +86,8 @@
 
 instance Hashable CancelCommand
 
+instance NFData CancelCommand
+
 instance ToHeaders CancelCommand where
         toHeaders
           = const
@@ -132,3 +134,5 @@
 -- | The response status code.
 ccrsResponseStatus :: Lens' CancelCommandResponse Int
 ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a});
+
+instance NFData CancelCommandResponse
diff --git a/gen/Network/AWS/SSM/CreateAssociation.hs b/gen/Network/AWS/SSM/CreateAssociation.hs
--- a/gen/Network/AWS/SSM/CreateAssociation.hs
+++ b/gen/Network/AWS/SSM/CreateAssociation.hs
@@ -103,6 +103,8 @@
 
 instance Hashable CreateAssociation
 
+instance NFData CreateAssociation
+
 instance ToHeaders CreateAssociation where
         toHeaders
           = const
@@ -155,3 +157,5 @@
 -- | The response status code.
 carsResponseStatus :: Lens' CreateAssociationResponse Int
 carsResponseStatus = lens _carsResponseStatus (\ s a -> s{_carsResponseStatus = a});
+
+instance NFData CreateAssociationResponse
diff --git a/gen/Network/AWS/SSM/CreateAssociationBatch.hs b/gen/Network/AWS/SSM/CreateAssociationBatch.hs
--- a/gen/Network/AWS/SSM/CreateAssociationBatch.hs
+++ b/gen/Network/AWS/SSM/CreateAssociationBatch.hs
@@ -86,6 +86,8 @@
 
 instance Hashable CreateAssociationBatch
 
+instance NFData CreateAssociationBatch
+
 instance ToHeaders CreateAssociationBatch where
         toHeaders
           = const
@@ -143,3 +145,5 @@
 -- | The response status code.
 cabrsResponseStatus :: Lens' CreateAssociationBatchResponse Int
 cabrsResponseStatus = lens _cabrsResponseStatus (\ s a -> s{_cabrsResponseStatus = a});
+
+instance NFData CreateAssociationBatchResponse
diff --git a/gen/Network/AWS/SSM/CreateDocument.hs b/gen/Network/AWS/SSM/CreateDocument.hs
--- a/gen/Network/AWS/SSM/CreateDocument.hs
+++ b/gen/Network/AWS/SSM/CreateDocument.hs
@@ -91,6 +91,8 @@
 
 instance Hashable CreateDocument
 
+instance NFData CreateDocument
+
 instance ToHeaders CreateDocument where
         toHeaders
           = const
@@ -142,3 +144,5 @@
 -- | The response status code.
 cdrsResponseStatus :: Lens' CreateDocumentResponse Int
 cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a});
+
+instance NFData CreateDocumentResponse
diff --git a/gen/Network/AWS/SSM/DeleteAssociation.hs b/gen/Network/AWS/SSM/DeleteAssociation.hs
--- a/gen/Network/AWS/SSM/DeleteAssociation.hs
+++ b/gen/Network/AWS/SSM/DeleteAssociation.hs
@@ -89,6 +89,8 @@
 
 instance Hashable DeleteAssociation
 
+instance NFData DeleteAssociation
+
 instance ToHeaders DeleteAssociation where
         toHeaders
           = const
@@ -132,3 +134,5 @@
 -- | The response status code.
 delrsResponseStatus :: Lens' DeleteAssociationResponse Int
 delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a});
+
+instance NFData DeleteAssociationResponse
diff --git a/gen/Network/AWS/SSM/DeleteDocument.hs b/gen/Network/AWS/SSM/DeleteDocument.hs
--- a/gen/Network/AWS/SSM/DeleteDocument.hs
+++ b/gen/Network/AWS/SSM/DeleteDocument.hs
@@ -77,6 +77,8 @@
 
 instance Hashable DeleteDocument
 
+instance NFData DeleteDocument
+
 instance ToHeaders DeleteDocument where
         toHeaders
           = const
@@ -117,3 +119,5 @@
 -- | The response status code.
 ddrsResponseStatus :: Lens' DeleteDocumentResponse Int
 ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a});
+
+instance NFData DeleteDocumentResponse
diff --git a/gen/Network/AWS/SSM/DescribeAssociation.hs b/gen/Network/AWS/SSM/DescribeAssociation.hs
--- a/gen/Network/AWS/SSM/DescribeAssociation.hs
+++ b/gen/Network/AWS/SSM/DescribeAssociation.hs
@@ -87,6 +87,8 @@
 
 instance Hashable DescribeAssociation
 
+instance NFData DescribeAssociation
+
 instance ToHeaders DescribeAssociation where
         toHeaders
           = const
@@ -138,3 +140,5 @@
 -- | The response status code.
 darsResponseStatus :: Lens' DescribeAssociationResponse Int
 darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a});
+
+instance NFData DescribeAssociationResponse
diff --git a/gen/Network/AWS/SSM/DescribeDocument.hs b/gen/Network/AWS/SSM/DescribeDocument.hs
--- a/gen/Network/AWS/SSM/DescribeDocument.hs
+++ b/gen/Network/AWS/SSM/DescribeDocument.hs
@@ -75,6 +75,8 @@
 
 instance Hashable DescribeDocument
 
+instance NFData DescribeDocument
+
 instance ToHeaders DescribeDocument where
         toHeaders
           = const
@@ -123,3 +125,5 @@
 -- | The response status code.
 drsResponseStatus :: Lens' DescribeDocumentResponse Int
 drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});
+
+instance NFData DescribeDocumentResponse
diff --git a/gen/Network/AWS/SSM/DescribeInstanceInformation.hs b/gen/Network/AWS/SSM/DescribeInstanceInformation.hs
--- a/gen/Network/AWS/SSM/DescribeInstanceInformation.hs
+++ b/gen/Network/AWS/SSM/DescribeInstanceInformation.hs
@@ -106,6 +106,8 @@
 
 instance Hashable DescribeInstanceInformation
 
+instance NFData DescribeInstanceInformation
+
 instance ToHeaders DescribeInstanceInformation where
         toHeaders
           = const
@@ -169,3 +171,5 @@
 -- | The response status code.
 diirsResponseStatus :: Lens' DescribeInstanceInformationResponse Int
 diirsResponseStatus = lens _diirsResponseStatus (\ s a -> s{_diirsResponseStatus = a});
+
+instance NFData DescribeInstanceInformationResponse
diff --git a/gen/Network/AWS/SSM/GetDocument.hs b/gen/Network/AWS/SSM/GetDocument.hs
--- a/gen/Network/AWS/SSM/GetDocument.hs
+++ b/gen/Network/AWS/SSM/GetDocument.hs
@@ -77,6 +77,8 @@
 
 instance Hashable GetDocument
 
+instance NFData GetDocument
+
 instance ToHeaders GetDocument where
         toHeaders
           = const
@@ -133,3 +135,5 @@
 -- | The response status code.
 gdrsResponseStatus :: Lens' GetDocumentResponse Int
 gdrsResponseStatus = lens _gdrsResponseStatus (\ s a -> s{_gdrsResponseStatus = a});
+
+instance NFData GetDocumentResponse
diff --git a/gen/Network/AWS/SSM/ListAssociations.hs b/gen/Network/AWS/SSM/ListAssociations.hs
--- a/gen/Network/AWS/SSM/ListAssociations.hs
+++ b/gen/Network/AWS/SSM/ListAssociations.hs
@@ -110,6 +110,8 @@
 
 instance Hashable ListAssociations
 
+instance NFData ListAssociations
+
 instance ToHeaders ListAssociations where
         toHeaders
           = const
@@ -173,3 +175,5 @@
 -- | The response status code.
 larsResponseStatus :: Lens' ListAssociationsResponse Int
 larsResponseStatus = lens _larsResponseStatus (\ s a -> s{_larsResponseStatus = a});
+
+instance NFData ListAssociationsResponse
diff --git a/gen/Network/AWS/SSM/ListCommandInvocations.hs b/gen/Network/AWS/SSM/ListCommandInvocations.hs
--- a/gen/Network/AWS/SSM/ListCommandInvocations.hs
+++ b/gen/Network/AWS/SSM/ListCommandInvocations.hs
@@ -143,6 +143,8 @@
 
 instance Hashable ListCommandInvocations
 
+instance NFData ListCommandInvocations
+
 instance ToHeaders ListCommandInvocations where
         toHeaders
           = const
@@ -207,3 +209,5 @@
 -- | The response status code.
 lcirsResponseStatus :: Lens' ListCommandInvocationsResponse Int
 lcirsResponseStatus = lens _lcirsResponseStatus (\ s a -> s{_lcirsResponseStatus = a});
+
+instance NFData ListCommandInvocationsResponse
diff --git a/gen/Network/AWS/SSM/ListCommands.hs b/gen/Network/AWS/SSM/ListCommands.hs
--- a/gen/Network/AWS/SSM/ListCommands.hs
+++ b/gen/Network/AWS/SSM/ListCommands.hs
@@ -126,6 +126,8 @@
 
 instance Hashable ListCommands
 
+instance NFData ListCommands
+
 instance ToHeaders ListCommands where
         toHeaders
           = const
@@ -189,3 +191,5 @@
 -- | The response status code.
 lcrsResponseStatus :: Lens' ListCommandsResponse Int
 lcrsResponseStatus = lens _lcrsResponseStatus (\ s a -> s{_lcrsResponseStatus = a});
+
+instance NFData ListCommandsResponse
diff --git a/gen/Network/AWS/SSM/ListDocuments.hs b/gen/Network/AWS/SSM/ListDocuments.hs
--- a/gen/Network/AWS/SSM/ListDocuments.hs
+++ b/gen/Network/AWS/SSM/ListDocuments.hs
@@ -109,6 +109,8 @@
 
 instance Hashable ListDocuments
 
+instance NFData ListDocuments
+
 instance ToHeaders ListDocuments where
         toHeaders
           = const
@@ -170,3 +172,5 @@
 -- | The response status code.
 ldrsResponseStatus :: Lens' ListDocumentsResponse Int
 ldrsResponseStatus = lens _ldrsResponseStatus (\ s a -> s{_ldrsResponseStatus = a});
+
+instance NFData ListDocumentsResponse
diff --git a/gen/Network/AWS/SSM/SendCommand.hs b/gen/Network/AWS/SSM/SendCommand.hs
--- a/gen/Network/AWS/SSM/SendCommand.hs
+++ b/gen/Network/AWS/SSM/SendCommand.hs
@@ -136,6 +136,8 @@
 
 instance Hashable SendCommand
 
+instance NFData SendCommand
+
 instance ToHeaders SendCommand where
         toHeaders
           = const
@@ -193,3 +195,5 @@
 -- | The response status code.
 scrsResponseStatus :: Lens' SendCommandResponse Int
 scrsResponseStatus = lens _scrsResponseStatus (\ s a -> s{_scrsResponseStatus = a});
+
+instance NFData SendCommandResponse
diff --git a/gen/Network/AWS/SSM/Types.hs b/gen/Network/AWS/SSM/Types.hs
--- a/gen/Network/AWS/SSM/Types.hs
+++ b/gen/Network/AWS/SSM/Types.hs
@@ -247,6 +247,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/SSM/Types/Product.hs b/gen/Network/AWS/SSM/Types/Product.hs
--- a/gen/Network/AWS/SSM/Types/Product.hs
+++ b/gen/Network/AWS/SSM/Types/Product.hs
@@ -61,6 +61,8 @@
 
 instance Hashable Association
 
+instance NFData Association
+
 -- | Describes the parameters for a document.
 --
 -- /See:/ 'associationDescription' smart constructor.
@@ -128,6 +130,8 @@
 
 instance Hashable AssociationDescription
 
+instance NFData AssociationDescription
+
 -- | Describes a filter.
 --
 -- /See:/ 'associationFilter' smart constructor.
@@ -163,6 +167,8 @@
 
 instance Hashable AssociationFilter
 
+instance NFData AssociationFilter
+
 instance ToJSON AssociationFilter where
         toJSON AssociationFilter'{..}
           = object
@@ -230,6 +236,8 @@
 
 instance Hashable AssociationStatus
 
+instance NFData AssociationStatus
+
 instance ToJSON AssociationStatus where
         toJSON AssociationStatus'{..}
           = object
@@ -357,6 +365,8 @@
 
 instance Hashable Command
 
+instance NFData Command
+
 -- | Describes a command filter.
 --
 -- /See:/ 'commandFilter' smart constructor.
@@ -392,6 +402,8 @@
 
 instance Hashable CommandFilter
 
+instance NFData CommandFilter
+
 instance ToJSON CommandFilter where
         toJSON CommandFilter'{..}
           = object
@@ -498,6 +510,8 @@
 
 instance Hashable CommandInvocation
 
+instance NFData CommandInvocation
+
 -- | Describes plugin details.
 --
 -- /See:/ 'commandPlugin' smart constructor.
@@ -599,6 +613,8 @@
 
 instance Hashable CommandPlugin
 
+instance NFData CommandPlugin
+
 -- | Describes the association of an SSM document and an instance.
 --
 -- /See:/ 'createAssociationBatchRequestEntry' smart constructor.
@@ -649,6 +665,8 @@
 
 instance Hashable CreateAssociationBatchRequestEntry
 
+instance NFData CreateAssociationBatchRequestEntry
+
 instance ToJSON CreateAssociationBatchRequestEntry
          where
         toJSON CreateAssociationBatchRequestEntry'{..}
@@ -744,6 +762,8 @@
 
 instance Hashable DocumentDescription
 
+instance NFData DocumentDescription
+
 -- | Describes a filter.
 --
 -- /See:/ 'documentFilter' smart constructor.
@@ -779,6 +799,8 @@
 
 instance Hashable DocumentFilter
 
+instance NFData DocumentFilter
+
 instance ToJSON DocumentFilter where
         toJSON DocumentFilter'{..}
           = object
@@ -826,6 +848,8 @@
 
 instance Hashable DocumentIdentifier
 
+instance NFData DocumentIdentifier
+
 -- | /See:/ 'documentParameter' smart constructor.
 data DocumentParameter = DocumentParameter'
     { _dpName         :: !(Maybe Text)
@@ -885,6 +909,8 @@
 
 instance Hashable DocumentParameter
 
+instance NFData DocumentParameter
+
 -- | Describes a failed association.
 --
 -- /See:/ 'failedCreateAssociation' smart constructor.
@@ -934,6 +960,8 @@
 
 instance Hashable FailedCreateAssociation
 
+instance NFData FailedCreateAssociation
+
 -- | Describes a filter for a specific list of instances.
 --
 -- /See:/ 'instanceInformation' smart constructor.
@@ -1029,6 +1057,8 @@
 
 instance Hashable InstanceInformation
 
+instance NFData InstanceInformation
+
 -- | Describes a filter for a specific list of instances.
 --
 -- /See:/ 'instanceInformationFilter' smart constructor.
@@ -1063,6 +1093,8 @@
 iifValueSet = lens _iifValueSet (\ s a -> s{_iifValueSet = a}) . _List1;
 
 instance Hashable InstanceInformationFilter
+
+instance NFData InstanceInformationFilter
 
 instance ToJSON InstanceInformationFilter where
         toJSON InstanceInformationFilter'{..}
diff --git a/gen/Network/AWS/SSM/Types/Sum.hs b/gen/Network/AWS/SSM/Types/Sum.hs
--- a/gen/Network/AWS/SSM/Types/Sum.hs
+++ b/gen/Network/AWS/SSM/Types/Sum.hs
@@ -37,6 +37,7 @@
         AFKName -> "Name"
 
 instance Hashable     AssociationFilterKey
+instance NFData       AssociationFilterKey
 instance ToByteString AssociationFilterKey
 instance ToQuery      AssociationFilterKey
 instance ToHeader     AssociationFilterKey
@@ -65,6 +66,7 @@
         ASNSuccess -> "Success"
 
 instance Hashable     AssociationStatusName
+instance NFData       AssociationStatusName
 instance ToByteString AssociationStatusName
 instance ToQuery      AssociationStatusName
 instance ToHeader     AssociationStatusName
@@ -96,6 +98,7 @@
         CommandStatus -> "Status"
 
 instance Hashable     CommandFilterKey
+instance NFData       CommandFilterKey
 instance ToByteString CommandFilterKey
 instance ToQuery      CommandFilterKey
 instance ToHeader     CommandFilterKey
@@ -136,6 +139,7 @@
         CISTimedOut -> "TimedOut"
 
 instance Hashable     CommandInvocationStatus
+instance NFData       CommandInvocationStatus
 instance ToByteString CommandInvocationStatus
 instance ToQuery      CommandInvocationStatus
 instance ToHeader     CommandInvocationStatus
@@ -173,6 +177,7 @@
         CPSTimedOut -> "TimedOut"
 
 instance Hashable     CommandPluginStatus
+instance NFData       CommandPluginStatus
 instance ToByteString CommandPluginStatus
 instance ToQuery      CommandPluginStatus
 instance ToHeader     CommandPluginStatus
@@ -213,6 +218,7 @@
         TimedOut -> "TimedOut"
 
 instance Hashable     CommandStatus
+instance NFData       CommandStatus
 instance ToByteString CommandStatus
 instance ToQuery      CommandStatus
 instance ToHeader     CommandStatus
@@ -241,6 +247,7 @@
         PlatformTypes -> "PlatformTypes"
 
 instance Hashable     DocumentFilterKey
+instance NFData       DocumentFilterKey
 instance ToByteString DocumentFilterKey
 instance ToQuery      DocumentFilterKey
 instance ToHeader     DocumentFilterKey
@@ -266,6 +273,7 @@
         StringList -> "StringList"
 
 instance Hashable     DocumentParameterType
+instance NFData       DocumentParameterType
 instance ToByteString DocumentParameterType
 instance ToQuery      DocumentParameterType
 instance ToHeader     DocumentParameterType
@@ -294,6 +302,7 @@
         Deleting -> "Deleting"
 
 instance Hashable     DocumentStatus
+instance NFData       DocumentStatus
 instance ToByteString DocumentStatus
 instance ToQuery      DocumentStatus
 instance ToHeader     DocumentStatus
@@ -322,6 +331,7 @@
         Unknown -> "Unknown"
 
 instance Hashable     Fault
+instance NFData       Fault
 instance ToByteString Fault
 instance ToQuery      Fault
 instance ToHeader     Fault
@@ -353,6 +363,7 @@
         IIFKPlatformTypes -> "PlatformTypes"
 
 instance Hashable     InstanceInformationFilterKey
+instance NFData       InstanceInformationFilterKey
 instance ToByteString InstanceInformationFilterKey
 instance ToQuery      InstanceInformationFilterKey
 instance ToHeader     InstanceInformationFilterKey
@@ -381,6 +392,7 @@
         Online -> "Online"
 
 instance Hashable     PingStatus
+instance NFData       PingStatus
 instance ToByteString PingStatus
 instance ToQuery      PingStatus
 instance ToHeader     PingStatus
@@ -406,6 +418,7 @@
         Windows -> "Windows"
 
 instance Hashable     PlatformType
+instance NFData       PlatformType
 instance ToByteString PlatformType
 instance ToQuery      PlatformType
 instance ToHeader     PlatformType
diff --git a/gen/Network/AWS/SSM/UpdateAssociationStatus.hs b/gen/Network/AWS/SSM/UpdateAssociationStatus.hs
--- a/gen/Network/AWS/SSM/UpdateAssociationStatus.hs
+++ b/gen/Network/AWS/SSM/UpdateAssociationStatus.hs
@@ -98,6 +98,8 @@
 
 instance Hashable UpdateAssociationStatus
 
+instance NFData UpdateAssociationStatus
+
 instance ToHeaders UpdateAssociationStatus where
         toHeaders
           = const
@@ -150,3 +152,5 @@
 -- | The response status code.
 uasrsResponseStatus :: Lens' UpdateAssociationStatusResponse Int
 uasrsResponseStatus = lens _uasrsResponseStatus (\ s a -> s{_uasrsResponseStatus = a});
+
+instance NFData UpdateAssociationStatusResponse