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-support.cabal b/amazonka-support.cabal --- a/amazonka-support.cabal +++ b/amazonka-support.cabal @@ -1,5 +1,5 @@ name: amazonka-support -version: 1.4.0 +version: 1.4.1 synopsis: Amazon Support SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues @@ -116,7 +116,7 @@ , Network.AWS.Support.Types.Sum build-depends: - amazonka-core == 1.4.0.* + amazonka-core == 1.4.1.* , base >= 4.7 && < 5 test-suite amazonka-support-test @@ -136,9 +136,9 @@ , Test.AWS.Support.Internal build-depends: - amazonka-core == 1.4.0.* - , amazonka-test == 1.4.0.* - , amazonka-support == 1.4.0.* + amazonka-core == 1.4.1.* + , amazonka-test == 1.4.1.* + , amazonka-support == 1.4.1.* , base , bytestring , tasty diff --git a/gen/Network/AWS/Support/AddAttachmentsToSet.hs b/gen/Network/AWS/Support/AddAttachmentsToSet.hs --- a/gen/Network/AWS/Support/AddAttachmentsToSet.hs +++ b/gen/Network/AWS/Support/AddAttachmentsToSet.hs @@ -100,6 +100,8 @@ instance Hashable AddAttachmentsToSet +instance NFData AddAttachmentsToSet + instance ToHeaders AddAttachmentsToSet where toHeaders = const @@ -166,3 +168,5 @@ -- | The response status code. aatsrsResponseStatus :: Lens' AddAttachmentsToSetResponse Int aatsrsResponseStatus = lens _aatsrsResponseStatus (\ s a -> s{_aatsrsResponseStatus = a}); + +instance NFData AddAttachmentsToSetResponse diff --git a/gen/Network/AWS/Support/AddCommunicationToCase.hs b/gen/Network/AWS/Support/AddCommunicationToCase.hs --- a/gen/Network/AWS/Support/AddCommunicationToCase.hs +++ b/gen/Network/AWS/Support/AddCommunicationToCase.hs @@ -118,6 +118,8 @@ instance Hashable AddCommunicationToCase +instance NFData AddCommunicationToCase + instance ToHeaders AddCommunicationToCase where toHeaders = const @@ -175,3 +177,5 @@ -- | The response status code. actcrsResponseStatus :: Lens' AddCommunicationToCaseResponse Int actcrsResponseStatus = lens _actcrsResponseStatus (\ s a -> s{_actcrsResponseStatus = a}); + +instance NFData AddCommunicationToCaseResponse diff --git a/gen/Network/AWS/Support/CreateCase.hs b/gen/Network/AWS/Support/CreateCase.hs --- a/gen/Network/AWS/Support/CreateCase.hs +++ b/gen/Network/AWS/Support/CreateCase.hs @@ -204,6 +204,8 @@ instance Hashable CreateCase +instance NFData CreateCase + instance ToHeaders CreateCase where toHeaders = const @@ -267,3 +269,5 @@ -- | The response status code. ccrsResponseStatus :: Lens' CreateCaseResponse Int ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a}); + +instance NFData CreateCaseResponse diff --git a/gen/Network/AWS/Support/DescribeAttachment.hs b/gen/Network/AWS/Support/DescribeAttachment.hs --- a/gen/Network/AWS/Support/DescribeAttachment.hs +++ b/gen/Network/AWS/Support/DescribeAttachment.hs @@ -81,6 +81,8 @@ instance Hashable DescribeAttachment +instance NFData DescribeAttachment + instance ToHeaders DescribeAttachment where toHeaders = const @@ -135,3 +137,5 @@ -- | The response status code. darsResponseStatus :: Lens' DescribeAttachmentResponse Int darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a}); + +instance NFData DescribeAttachmentResponse diff --git a/gen/Network/AWS/Support/DescribeCases.hs b/gen/Network/AWS/Support/DescribeCases.hs --- a/gen/Network/AWS/Support/DescribeCases.hs +++ b/gen/Network/AWS/Support/DescribeCases.hs @@ -181,6 +181,8 @@ instance Hashable DescribeCases +instance NFData DescribeCases + instance ToHeaders DescribeCases where toHeaders = const @@ -252,3 +254,5 @@ -- | The response status code. drsResponseStatus :: Lens' DescribeCasesResponse Int drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}); + +instance NFData DescribeCasesResponse diff --git a/gen/Network/AWS/Support/DescribeCommunications.hs b/gen/Network/AWS/Support/DescribeCommunications.hs --- a/gen/Network/AWS/Support/DescribeCommunications.hs +++ b/gen/Network/AWS/Support/DescribeCommunications.hs @@ -142,6 +142,8 @@ instance Hashable DescribeCommunications +instance NFData DescribeCommunications + instance ToHeaders DescribeCommunications where toHeaders = const @@ -207,3 +209,5 @@ -- | The response status code. dcrsResponseStatus :: Lens' DescribeCommunicationsResponse Int dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a}); + +instance NFData DescribeCommunicationsResponse diff --git a/gen/Network/AWS/Support/DescribeServices.hs b/gen/Network/AWS/Support/DescribeServices.hs --- a/gen/Network/AWS/Support/DescribeServices.hs +++ b/gen/Network/AWS/Support/DescribeServices.hs @@ -100,6 +100,8 @@ instance Hashable DescribeServices +instance NFData DescribeServices + instance ToHeaders DescribeServices where toHeaders = const @@ -154,3 +156,5 @@ -- | The response status code. dsrsResponseStatus :: Lens' DescribeServicesResponse Int dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a}); + +instance NFData DescribeServicesResponse diff --git a/gen/Network/AWS/Support/DescribeSeverityLevels.hs b/gen/Network/AWS/Support/DescribeSeverityLevels.hs --- a/gen/Network/AWS/Support/DescribeSeverityLevels.hs +++ b/gen/Network/AWS/Support/DescribeSeverityLevels.hs @@ -81,6 +81,8 @@ instance Hashable DescribeSeverityLevels +instance NFData DescribeSeverityLevels + instance ToHeaders DescribeSeverityLevels where toHeaders = const @@ -135,3 +137,5 @@ -- | The response status code. dslrsResponseStatus :: Lens' DescribeSeverityLevelsResponse Int dslrsResponseStatus = lens _dslrsResponseStatus (\ s a -> s{_dslrsResponseStatus = a}); + +instance NFData DescribeSeverityLevelsResponse diff --git a/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckRefreshStatuses.hs b/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckRefreshStatuses.hs --- a/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckRefreshStatuses.hs +++ b/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckRefreshStatuses.hs @@ -81,6 +81,9 @@ instance Hashable DescribeTrustedAdvisorCheckRefreshStatuses +instance NFData + DescribeTrustedAdvisorCheckRefreshStatuses + instance ToHeaders DescribeTrustedAdvisorCheckRefreshStatuses where toHeaders @@ -139,3 +142,6 @@ -- | The refresh status of the specified Trusted Advisor checks. dtacrsrsStatuses :: Lens' DescribeTrustedAdvisorCheckRefreshStatusesResponse [TrustedAdvisorCheckRefreshStatus] dtacrsrsStatuses = lens _dtacrsrsStatuses (\ s a -> s{_dtacrsrsStatuses = a}) . _Coerce; + +instance NFData + DescribeTrustedAdvisorCheckRefreshStatusesResponse diff --git a/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckResult.hs b/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckResult.hs --- a/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckResult.hs +++ b/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckResult.hs @@ -105,6 +105,8 @@ instance Hashable DescribeTrustedAdvisorCheckResult +instance NFData DescribeTrustedAdvisorCheckResult + instance ToHeaders DescribeTrustedAdvisorCheckResult where toHeaders @@ -164,3 +166,6 @@ -- | The response status code. dtacrrsResponseStatus :: Lens' DescribeTrustedAdvisorCheckResultResponse Int dtacrrsResponseStatus = lens _dtacrrsResponseStatus (\ s a -> s{_dtacrrsResponseStatus = a}); + +instance NFData + DescribeTrustedAdvisorCheckResultResponse diff --git a/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckSummaries.hs b/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckSummaries.hs --- a/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckSummaries.hs +++ b/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckSummaries.hs @@ -82,6 +82,8 @@ instance Hashable DescribeTrustedAdvisorCheckSummaries +instance NFData DescribeTrustedAdvisorCheckSummaries + instance ToHeaders DescribeTrustedAdvisorCheckSummaries where toHeaders @@ -139,3 +141,6 @@ -- | The summary information for the requested Trusted Advisor checks. dtacsrsSummaries :: Lens' DescribeTrustedAdvisorCheckSummariesResponse [TrustedAdvisorCheckSummary] dtacsrsSummaries = lens _dtacsrsSummaries (\ s a -> s{_dtacsrsSummaries = a}) . _Coerce; + +instance NFData + DescribeTrustedAdvisorCheckSummariesResponse diff --git a/gen/Network/AWS/Support/DescribeTrustedAdvisorChecks.hs b/gen/Network/AWS/Support/DescribeTrustedAdvisorChecks.hs --- a/gen/Network/AWS/Support/DescribeTrustedAdvisorChecks.hs +++ b/gen/Network/AWS/Support/DescribeTrustedAdvisorChecks.hs @@ -84,6 +84,8 @@ instance Hashable DescribeTrustedAdvisorChecks +instance NFData DescribeTrustedAdvisorChecks + instance ToHeaders DescribeTrustedAdvisorChecks where toHeaders = const @@ -137,3 +139,5 @@ -- | Information about all available Trusted Advisor checks. dtacrsChecks :: Lens' DescribeTrustedAdvisorChecksResponse [TrustedAdvisorCheckDescription] dtacrsChecks = lens _dtacrsChecks (\ s a -> s{_dtacrsChecks = a}) . _Coerce; + +instance NFData DescribeTrustedAdvisorChecksResponse diff --git a/gen/Network/AWS/Support/RefreshTrustedAdvisorCheck.hs b/gen/Network/AWS/Support/RefreshTrustedAdvisorCheck.hs --- a/gen/Network/AWS/Support/RefreshTrustedAdvisorCheck.hs +++ b/gen/Network/AWS/Support/RefreshTrustedAdvisorCheck.hs @@ -87,6 +87,8 @@ instance Hashable RefreshTrustedAdvisorCheck +instance NFData RefreshTrustedAdvisorCheck + instance ToHeaders RefreshTrustedAdvisorCheck where toHeaders = const @@ -141,3 +143,5 @@ -- until the check is eligible for refresh. rtacrsStatus :: Lens' RefreshTrustedAdvisorCheckResponse TrustedAdvisorCheckRefreshStatus rtacrsStatus = lens _rtacrsStatus (\ s a -> s{_rtacrsStatus = a}); + +instance NFData RefreshTrustedAdvisorCheckResponse diff --git a/gen/Network/AWS/Support/ResolveCase.hs b/gen/Network/AWS/Support/ResolveCase.hs --- a/gen/Network/AWS/Support/ResolveCase.hs +++ b/gen/Network/AWS/Support/ResolveCase.hs @@ -80,6 +80,8 @@ instance Hashable ResolveCase +instance NFData ResolveCase + instance ToHeaders ResolveCase where toHeaders = const @@ -138,3 +140,5 @@ -- | The response status code. rcrsResponseStatus :: Lens' ResolveCaseResponse Int rcrsResponseStatus = lens _rcrsResponseStatus (\ s a -> s{_rcrsResponseStatus = a}); + +instance NFData ResolveCaseResponse diff --git a/gen/Network/AWS/Support/Types.hs b/gen/Network/AWS/Support/Types.hs --- a/gen/Network/AWS/Support/Types.hs +++ b/gen/Network/AWS/Support/Types.hs @@ -186,6 +186,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/Support/Types/Product.hs b/gen/Network/AWS/Support/Types/Product.hs --- a/gen/Network/AWS/Support/Types/Product.hs +++ b/gen/Network/AWS/Support/Types/Product.hs @@ -68,6 +68,8 @@ instance Hashable Attachment +instance NFData Attachment + instance ToJSON Attachment where toJSON Attachment'{..} = object @@ -117,6 +119,8 @@ instance Hashable AttachmentDetails +instance NFData AttachmentDetails + -- | A JSON-formatted object that contains the metadata for a support case. -- It is contained the response from a < DescribeCases> request. -- __CaseDetails__ contains the following fields: @@ -286,6 +290,8 @@ instance Hashable CaseDetails +instance NFData CaseDetails + -- | A JSON-formatted name\/value pair that represents the category name and -- category code of the problem, selected from the < DescribeServices> -- response for each AWS service. @@ -327,6 +333,8 @@ instance Hashable Category +instance NFData Category + -- | A communication associated with an AWS Support case. The communication -- consists of the case ID, the message body, attachment information, the -- account email address, and the date and time of the communication. @@ -398,6 +406,8 @@ instance Hashable Communication +instance NFData Communication + -- | The five most recent communications associated with the case. -- -- /See:/ 'recentCaseCommunications' smart constructor. @@ -439,6 +449,8 @@ instance Hashable RecentCaseCommunications +instance NFData RecentCaseCommunications + -- | A code and name pair that represent a severity level that can be applied -- to a support case. -- @@ -482,6 +494,8 @@ instance Hashable SeverityLevel +instance NFData SeverityLevel + -- | Information about an AWS service returned by the < DescribeServices> -- operation. -- @@ -537,6 +551,8 @@ instance Hashable SupportService +instance NFData SupportService + -- | The container for summary information that relates to the category of -- the Trusted Advisor check. -- @@ -573,6 +589,8 @@ instance Hashable TrustedAdvisorCategorySpecificSummary +instance NFData TrustedAdvisorCategorySpecificSummary + -- | The description and metadata for a Trusted Advisor check. -- -- /See:/ 'trustedAdvisorCheckDescription' smart constructor. @@ -650,6 +668,8 @@ instance Hashable TrustedAdvisorCheckDescription +instance NFData TrustedAdvisorCheckDescription + -- | The refresh status of a Trusted Advisor check. -- -- /See:/ 'trustedAdvisorCheckRefreshStatus' smart constructor. @@ -706,6 +726,8 @@ instance Hashable TrustedAdvisorCheckRefreshStatus +instance NFData TrustedAdvisorCheckRefreshStatus + -- | The results of a Trusted Advisor check returned by -- < DescribeTrustedAdvisorCheckResult>. -- @@ -790,6 +812,8 @@ instance Hashable TrustedAdvisorCheckResult +instance NFData TrustedAdvisorCheckResult + -- | A summary of a Trusted Advisor check result, including the alert status, -- last refresh, and number of resources examined. -- @@ -874,6 +898,8 @@ instance Hashable TrustedAdvisorCheckSummary +instance NFData TrustedAdvisorCheckSummary + -- | The estimated cost savings that might be realized if the recommended -- actions are taken. -- @@ -921,6 +947,8 @@ instance Hashable TrustedAdvisorCostOptimizingSummary +instance NFData TrustedAdvisorCostOptimizingSummary + -- | Contains information about a resource identified by a Trusted Advisor -- check. -- @@ -999,6 +1027,8 @@ instance Hashable TrustedAdvisorResourceDetail +instance NFData TrustedAdvisorResourceDetail + -- | Details about AWS resources that were analyzed in a call to Trusted -- Advisor < DescribeTrustedAdvisorCheckSummaries>. -- @@ -1067,3 +1097,5 @@ <*> (x .: "resourcesSuppressed")) instance Hashable TrustedAdvisorResourcesSummary + +instance NFData TrustedAdvisorResourcesSummary