diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.1.0` +`1.2.0` ## 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.1.0 +version: 1.2.0 synopsis: Amazon Support SDK. homepage: https://github.com/brendanhay/amazonka license: OtherLicense @@ -115,7 +115,7 @@ , Network.AWS.Support.Types.Sum build-depends: - amazonka-core == 1.1.0.* + amazonka-core == 1.2.0.* , base >= 4.7 && < 5 test-suite amazonka-support-test @@ -134,9 +134,9 @@ , Test.AWS.Support.Internal build-depends: - amazonka-core == 1.1.0 - , amazonka-test == 1.1.0 - , amazonka-support == 1.1.0 + amazonka-core == 1.2.0 + , amazonka-test == 1.2.0 + , amazonka-support == 1.2.0 , base , bytestring , lens diff --git a/gen/Network/AWS/Support.hs b/gen/Network/AWS/Support.hs --- a/gen/Network/AWS/Support.hs +++ b/gen/Network/AWS/Support.hs @@ -68,8 +68,8 @@ -- /See:/ module Network.AWS.Support ( - -- * Service - Support + -- * Service Configuration + support -- * Errors -- $errors 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 @@ -89,10 +89,9 @@ aatsAttachments = lens _aatsAttachments (\ s a -> s{_aatsAttachments = a}) . _Coerce; instance AWSRequest AddAttachmentsToSet where - type Sv AddAttachmentsToSet = Support type Rs AddAttachmentsToSet = AddAttachmentsToSetResponse - request = postJSON + request = postJSON support response = receiveJSON (\ s h x -> @@ -113,8 +112,9 @@ instance ToJSON AddAttachmentsToSet where toJSON AddAttachmentsToSet'{..} = object - ["attachmentSetId" .= _aatsAttachmentSetId, - "attachments" .= _aatsAttachments] + (catMaybes + [("attachmentSetId" .=) <$> _aatsAttachmentSetId, + Just ("attachments" .= _aatsAttachments)]) instance ToPath AddAttachmentsToSet where toPath = const "/" 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 @@ -108,10 +108,9 @@ actcCommunicationBody = lens _actcCommunicationBody (\ s a -> s{_actcCommunicationBody = a}); instance AWSRequest AddCommunicationToCase where - type Sv AddCommunicationToCase = Support type Rs AddCommunicationToCase = AddCommunicationToCaseResponse - request = postJSON + request = postJSON support response = receiveJSON (\ s h x -> @@ -131,10 +130,12 @@ instance ToJSON AddCommunicationToCase where toJSON AddCommunicationToCase'{..} = object - ["caseId" .= _actcCaseId, - "ccEmailAddresses" .= _actcCcEmailAddresses, - "attachmentSetId" .= _actcAttachmentSetId, - "communicationBody" .= _actcCommunicationBody] + (catMaybes + [("caseId" .=) <$> _actcCaseId, + ("ccEmailAddresses" .=) <$> _actcCcEmailAddresses, + ("attachmentSetId" .=) <$> _actcAttachmentSetId, + Just + ("communicationBody" .= _actcCommunicationBody)]) instance ToPath AddCommunicationToCase where toPath = const "/" 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 @@ -194,9 +194,8 @@ ccCommunicationBody = lens _ccCommunicationBody (\ s a -> s{_ccCommunicationBody = a}); instance AWSRequest CreateCase where - type Sv CreateCase = Support type Rs CreateCase = CreateCaseResponse - request = postJSON + request = postJSON support response = receiveJSON (\ s h x -> @@ -215,15 +214,16 @@ instance ToJSON CreateCase where toJSON CreateCase'{..} = object - ["severityCode" .= _ccSeverityCode, - "issueType" .= _ccIssueType, - "ccEmailAddresses" .= _ccCcEmailAddresses, - "language" .= _ccLanguage, - "categoryCode" .= _ccCategoryCode, - "serviceCode" .= _ccServiceCode, - "attachmentSetId" .= _ccAttachmentSetId, - "subject" .= _ccSubject, - "communicationBody" .= _ccCommunicationBody] + (catMaybes + [("severityCode" .=) <$> _ccSeverityCode, + ("issueType" .=) <$> _ccIssueType, + ("ccEmailAddresses" .=) <$> _ccCcEmailAddresses, + ("language" .=) <$> _ccLanguage, + ("categoryCode" .=) <$> _ccCategoryCode, + ("serviceCode" .=) <$> _ccServiceCode, + ("attachmentSetId" .=) <$> _ccAttachmentSetId, + Just ("subject" .= _ccSubject), + Just ("communicationBody" .= _ccCommunicationBody)]) instance ToPath CreateCase where toPath = const "/" 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 @@ -71,10 +71,9 @@ daAttachmentId = lens _daAttachmentId (\ s a -> s{_daAttachmentId = a}); instance AWSRequest DescribeAttachment where - type Sv DescribeAttachment = Support type Rs DescribeAttachment = DescribeAttachmentResponse - request = postJSON + request = postJSON support response = receiveJSON (\ s h x -> @@ -93,7 +92,9 @@ instance ToJSON DescribeAttachment where toJSON DescribeAttachment'{..} - = object ["attachmentId" .= _daAttachmentId] + = object + (catMaybes + [Just ("attachmentId" .= _daAttachmentId)]) instance ToPath DescribeAttachment where toPath = const "/" 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 @@ -171,9 +171,8 @@ Just $ rq & dcNextToken .~ rs ^. drsNextToken instance AWSRequest DescribeCases where - type Sv DescribeCases = Support type Rs DescribeCases = DescribeCasesResponse - request = postJSON + request = postJSON support response = receiveJSON (\ s h x -> @@ -193,15 +192,18 @@ instance ToJSON DescribeCases where toJSON DescribeCases'{..} = object - ["includeResolvedCases" .= _dcIncludeResolvedCases, - "caseIdList" .= _dcCaseIdList, - "afterTime" .= _dcAfterTime, - "nextToken" .= _dcNextToken, - "beforeTime" .= _dcBeforeTime, - "includeCommunications" .= _dcIncludeCommunications, - "displayId" .= _dcDisplayId, - "language" .= _dcLanguage, - "maxResults" .= _dcMaxResults] + (catMaybes + [("includeResolvedCases" .=) <$> + _dcIncludeResolvedCases, + ("caseIdList" .=) <$> _dcCaseIdList, + ("afterTime" .=) <$> _dcAfterTime, + ("nextToken" .=) <$> _dcNextToken, + ("beforeTime" .=) <$> _dcBeforeTime, + ("includeCommunications" .=) <$> + _dcIncludeCommunications, + ("displayId" .=) <$> _dcDisplayId, + ("language" .=) <$> _dcLanguage, + ("maxResults" .=) <$> _dcMaxResults]) instance ToPath DescribeCases where toPath = const "/" 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 @@ -130,10 +130,9 @@ Just $ rq & dNextToken .~ rs ^. dcrsNextToken instance AWSRequest DescribeCommunications where - type Sv DescribeCommunications = Support type Rs DescribeCommunications = DescribeCommunicationsResponse - request = postJSON + request = postJSON support response = receiveJSON (\ s h x -> @@ -155,10 +154,12 @@ instance ToJSON DescribeCommunications where toJSON DescribeCommunications'{..} = object - ["afterTime" .= _dAfterTime, - "nextToken" .= _dNextToken, - "beforeTime" .= _dBeforeTime, - "maxResults" .= _dMaxResults, "caseId" .= _dCaseId] + (catMaybes + [("afterTime" .=) <$> _dAfterTime, + ("nextToken" .=) <$> _dNextToken, + ("beforeTime" .=) <$> _dBeforeTime, + ("maxResults" .=) <$> _dMaxResults, + Just ("caseId" .= _dCaseId)]) instance ToPath DescribeCommunications where toPath = const "/" 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 @@ -90,9 +90,8 @@ dsLanguage = lens _dsLanguage (\ s a -> s{_dsLanguage = a}); instance AWSRequest DescribeServices where - type Sv DescribeServices = Support type Rs DescribeServices = DescribeServicesResponse - request = postJSON + request = postJSON support response = receiveJSON (\ s h x -> @@ -113,8 +112,9 @@ instance ToJSON DescribeServices where toJSON DescribeServices'{..} = object - ["serviceCodeList" .= _dsServiceCodeList, - "language" .= _dsLanguage] + (catMaybes + [("serviceCodeList" .=) <$> _dsServiceCodeList, + ("language" .=) <$> _dsLanguage]) instance ToPath DescribeServices where toPath = const "/" 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 @@ -70,10 +70,9 @@ dslLanguage = lens _dslLanguage (\ s a -> s{_dslLanguage = a}); instance AWSRequest DescribeSeverityLevels where - type Sv DescribeSeverityLevels = Support type Rs DescribeSeverityLevels = DescribeSeverityLevelsResponse - request = postJSON + request = postJSON support response = receiveJSON (\ s h x -> @@ -93,7 +92,8 @@ instance ToJSON DescribeSeverityLevels where toJSON DescribeSeverityLevels'{..} - = object ["language" .= _dslLanguage] + = object + (catMaybes [("language" .=) <$> _dslLanguage]) instance ToPath DescribeSeverityLevels where toPath = const "/" 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 @@ -68,11 +68,9 @@ instance AWSRequest DescribeTrustedAdvisorCheckRefreshStatuses where - type Sv DescribeTrustedAdvisorCheckRefreshStatuses = - Support type Rs DescribeTrustedAdvisorCheckRefreshStatuses = DescribeTrustedAdvisorCheckRefreshStatusesResponse - request = postJSON + request = postJSON support response = receiveJSON (\ s h x -> @@ -96,7 +94,8 @@ DescribeTrustedAdvisorCheckRefreshStatuses where toJSON DescribeTrustedAdvisorCheckRefreshStatuses'{..} - = object ["checkIds" .= _dtacrsCheckIds] + = object + (catMaybes [Just ("checkIds" .= _dtacrsCheckIds)]) instance ToPath DescribeTrustedAdvisorCheckRefreshStatuses where 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 @@ -95,10 +95,9 @@ instance AWSRequest DescribeTrustedAdvisorCheckResult where - type Sv DescribeTrustedAdvisorCheckResult = Support type Rs DescribeTrustedAdvisorCheckResult = DescribeTrustedAdvisorCheckResultResponse - request = postJSON + request = postJSON support response = receiveJSON (\ s h x -> @@ -120,8 +119,9 @@ where toJSON DescribeTrustedAdvisorCheckResult'{..} = object - ["language" .= _dtacrLanguage, - "checkId" .= _dtacrCheckId] + (catMaybes + [("language" .=) <$> _dtacrLanguage, + Just ("checkId" .= _dtacrCheckId)]) instance ToPath DescribeTrustedAdvisorCheckResult where 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 @@ -70,11 +70,9 @@ instance AWSRequest DescribeTrustedAdvisorCheckSummaries where - type Sv DescribeTrustedAdvisorCheckSummaries = - Support type Rs DescribeTrustedAdvisorCheckSummaries = DescribeTrustedAdvisorCheckSummariesResponse - request = postJSON + request = postJSON support response = receiveJSON (\ s h x -> @@ -96,7 +94,8 @@ instance ToJSON DescribeTrustedAdvisorCheckSummaries where toJSON DescribeTrustedAdvisorCheckSummaries'{..} - = object ["checkIds" .= _dtacsCheckIds] + = object + (catMaybes [Just ("checkIds" .= _dtacsCheckIds)]) instance ToPath DescribeTrustedAdvisorCheckSummaries where 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 @@ -74,10 +74,9 @@ instance AWSRequest DescribeTrustedAdvisorChecks where - type Sv DescribeTrustedAdvisorChecks = Support type Rs DescribeTrustedAdvisorChecks = DescribeTrustedAdvisorChecksResponse - request = postJSON + request = postJSON support response = receiveJSON (\ s h x -> @@ -96,7 +95,8 @@ instance ToJSON DescribeTrustedAdvisorChecks where toJSON DescribeTrustedAdvisorChecks'{..} - = object ["language" .= _dtacLanguage] + = object + (catMaybes [Just ("language" .= _dtacLanguage)]) instance ToPath DescribeTrustedAdvisorChecks where toPath = const "/" 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 @@ -76,10 +76,9 @@ rtacCheckId = lens _rtacCheckId (\ s a -> s{_rtacCheckId = a}); instance AWSRequest RefreshTrustedAdvisorCheck where - type Sv RefreshTrustedAdvisorCheck = Support type Rs RefreshTrustedAdvisorCheck = RefreshTrustedAdvisorCheckResponse - request = postJSON + request = postJSON support response = receiveEmpty (\ s h x -> @@ -98,7 +97,8 @@ instance ToJSON RefreshTrustedAdvisorCheck where toJSON RefreshTrustedAdvisorCheck'{..} - = object ["checkId" .= _rtacCheckId] + = object + (catMaybes [Just ("checkId" .= _rtacCheckId)]) instance ToPath RefreshTrustedAdvisorCheck where toPath = const "/" 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 @@ -69,9 +69,8 @@ rcCaseId = lens _rcCaseId (\ s a -> s{_rcCaseId = a}); instance AWSRequest ResolveCase where - type Sv ResolveCase = Support type Rs ResolveCase = ResolveCaseResponse - request = postJSON + request = postJSON support response = receiveJSON (\ s h x -> @@ -91,7 +90,7 @@ instance ToJSON ResolveCase where toJSON ResolveCase'{..} - = object ["caseId" .= _rcCaseId] + = object (catMaybes [("caseId" .=) <$> _rcCaseId]) instance ToPath ResolveCase where toPath = const "/" 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 @@ -1,5 +1,4 @@ {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE TypeFamilies #-} -- Derived from AWS service descriptions, licensed under Apache 2.0. @@ -13,8 +12,8 @@ -- module Network.AWS.Support.Types ( - -- * Service - Support + -- * Service Configuration + support -- * Errors , _AttachmentSetExpired @@ -159,39 +158,36 @@ import Network.AWS.Support.Types.Product import Network.AWS.Support.Types.Sum --- | Version @2013-04-15@ of the Amazon Support SDK. -data Support - -instance AWSService Support where - type Sg Support = V4 - service = const svc - where - svc = - Service - { _svcAbbrev = "Support" - , _svcPrefix = "support" - , _svcVersion = "2013-04-15" - , _svcEndpoint = defaultEndpoint svc - , _svcTimeout = Just 70 - , _svcStatus = statusSuccess - , _svcError = parseJSONError - , _svcRetry = retry - } - retry = - Exponential - { _retryBase = 5.0e-2 - , _retryGrowth = 2 - , _retryAttempts = 5 - , _retryCheck = check - } - check e - | has (hasCode "ThrottlingException" . hasStatus 400) e = - Just "throttling_exception" - | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling" - | has (hasStatus 503) e = Just "service_unavailable" - | has (hasStatus 500) e = Just "general_server_error" - | has (hasStatus 509) e = Just "limit_exceeded" - | otherwise = Nothing +-- | API version '2013-04-15' of the Amazon Support SDK configuration. +support :: Service +support = + Service + { _svcAbbrev = "Support" + , _svcSigner = v4 + , _svcPrefix = "support" + , _svcVersion = "2013-04-15" + , _svcEndpoint = defaultEndpoint support + , _svcTimeout = Just 70 + , _svcCheck = statusSuccess + , _svcError = parseJSONError + , _svcRetry = retry + } + where + retry = + Exponential + { _retryBase = 5.0e-2 + , _retryGrowth = 2 + , _retryAttempts = 5 + , _retryCheck = check + } + check e + | has (hasCode "ThrottlingException" . hasStatus 400) e = + Just "throttling_exception" + | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling" + | has (hasStatus 503) e = Just "service_unavailable" + | has (hasStatus 500) e = Just "general_server_error" + | has (hasStatus 509) e = Just "limit_exceeded" + | otherwise = Nothing -- | The expiration time of the attachment set has passed. The set expires 1 -- hour after it is created. 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 @@ -2,7 +2,6 @@ {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} @@ -68,7 +67,10 @@ instance ToJSON Attachment where toJSON Attachment'{..} - = object ["data" .= _aData, "fileName" .= _aFileName] + = object + (catMaybes + [("data" .=) <$> _aData, + ("fileName" .=) <$> _aFileName]) -- | The file name and ID of an attachment to a case communication. You can -- use the ID to retrieve the attachment with the DescribeAttachment diff --git a/test/Test/AWS/Gen/Support.hs b/test/Test/AWS/Gen/Support.hs --- a/test/Test/AWS/Gen/Support.hs +++ b/test/Test/AWS/Gen/Support.hs @@ -196,82 +196,96 @@ testRefreshTrustedAdvisorCheckResponse = res "RefreshTrustedAdvisorCheckResponse" "fixture/RefreshTrustedAdvisorCheckResponse" + support (Proxy :: Proxy RefreshTrustedAdvisorCheck) testDescribeCasesResponse :: DescribeCasesResponse -> TestTree testDescribeCasesResponse = res "DescribeCasesResponse" "fixture/DescribeCasesResponse" + support (Proxy :: Proxy DescribeCases) testDescribeTrustedAdvisorCheckRefreshStatusesResponse :: DescribeTrustedAdvisorCheckRefreshStatusesResponse -> TestTree testDescribeTrustedAdvisorCheckRefreshStatusesResponse = res "DescribeTrustedAdvisorCheckRefreshStatusesResponse" "fixture/DescribeTrustedAdvisorCheckRefreshStatusesResponse" + support (Proxy :: Proxy DescribeTrustedAdvisorCheckRefreshStatuses) testCreateCaseResponse :: CreateCaseResponse -> TestTree testCreateCaseResponse = res "CreateCaseResponse" "fixture/CreateCaseResponse" + support (Proxy :: Proxy CreateCase) testDescribeTrustedAdvisorCheckSummariesResponse :: DescribeTrustedAdvisorCheckSummariesResponse -> TestTree testDescribeTrustedAdvisorCheckSummariesResponse = res "DescribeTrustedAdvisorCheckSummariesResponse" "fixture/DescribeTrustedAdvisorCheckSummariesResponse" + support (Proxy :: Proxy DescribeTrustedAdvisorCheckSummaries) testResolveCaseResponse :: ResolveCaseResponse -> TestTree testResolveCaseResponse = res "ResolveCaseResponse" "fixture/ResolveCaseResponse" + support (Proxy :: Proxy ResolveCase) testDescribeSeverityLevelsResponse :: DescribeSeverityLevelsResponse -> TestTree testDescribeSeverityLevelsResponse = res "DescribeSeverityLevelsResponse" "fixture/DescribeSeverityLevelsResponse" + support (Proxy :: Proxy DescribeSeverityLevels) testDescribeTrustedAdvisorChecksResponse :: DescribeTrustedAdvisorChecksResponse -> TestTree testDescribeTrustedAdvisorChecksResponse = res "DescribeTrustedAdvisorChecksResponse" "fixture/DescribeTrustedAdvisorChecksResponse" + support (Proxy :: Proxy DescribeTrustedAdvisorChecks) testDescribeAttachmentResponse :: DescribeAttachmentResponse -> TestTree testDescribeAttachmentResponse = res "DescribeAttachmentResponse" "fixture/DescribeAttachmentResponse" + support (Proxy :: Proxy DescribeAttachment) testAddAttachmentsToSetResponse :: AddAttachmentsToSetResponse -> TestTree testAddAttachmentsToSetResponse = res "AddAttachmentsToSetResponse" "fixture/AddAttachmentsToSetResponse" + support (Proxy :: Proxy AddAttachmentsToSet) testDescribeTrustedAdvisorCheckResultResponse :: DescribeTrustedAdvisorCheckResultResponse -> TestTree testDescribeTrustedAdvisorCheckResultResponse = res "DescribeTrustedAdvisorCheckResultResponse" "fixture/DescribeTrustedAdvisorCheckResultResponse" + support (Proxy :: Proxy DescribeTrustedAdvisorCheckResult) testDescribeServicesResponse :: DescribeServicesResponse -> TestTree testDescribeServicesResponse = res "DescribeServicesResponse" "fixture/DescribeServicesResponse" + support (Proxy :: Proxy DescribeServices) testDescribeCommunicationsResponse :: DescribeCommunicationsResponse -> TestTree testDescribeCommunicationsResponse = res "DescribeCommunicationsResponse" "fixture/DescribeCommunicationsResponse" + support (Proxy :: Proxy DescribeCommunications) testAddCommunicationToCaseResponse :: AddCommunicationToCaseResponse -> TestTree testAddCommunicationToCaseResponse = res "AddCommunicationToCaseResponse" "fixture/AddCommunicationToCaseResponse" + support (Proxy :: Proxy AddCommunicationToCase)