amazonka-support 1.2.0.2 → 1.3.0

raw patch · 20 files changed

+191/−180 lines, 20 filesdep ~amazonka-coredep ~amazonka-supportdep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-support, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-support.cabal +5/−5
• gen/Network/AWS/Support.hs +4/−4
• gen/Network/AWS/Support/AddAttachmentsToSet.hs +8/−8
• gen/Network/AWS/Support/AddCommunicationToCase.hs +9/−9
• gen/Network/AWS/Support/CreateCase.hs +9/−9
• gen/Network/AWS/Support/DescribeAttachment.hs +9/−9
• gen/Network/AWS/Support/DescribeCases.hs +20/−20
• gen/Network/AWS/Support/DescribeCommunications.hs +18/−18
• gen/Network/AWS/Support/DescribeServices.hs +9/−9
• gen/Network/AWS/Support/DescribeSeverityLevels.hs +8/−8
• gen/Network/AWS/Support/DescribeTrustedAdvisorCheckRefreshStatuses.hs +9/−9
• gen/Network/AWS/Support/DescribeTrustedAdvisorCheckResult.hs +9/−9
• gen/Network/AWS/Support/DescribeTrustedAdvisorCheckSummaries.hs +9/−9
• gen/Network/AWS/Support/DescribeTrustedAdvisorChecks.hs +9/−9
• gen/Network/AWS/Support/RefreshTrustedAdvisorCheck.hs +19/−8
• gen/Network/AWS/Support/ResolveCase.hs +8/−8
• gen/Network/AWS/Support/Types.hs +1/−1
• gen/Network/AWS/Support/Types/Product.hs +9/−9
• test/Test/AWS/Gen/Support.hs +18/−18

@@ -8,7 +8,7 @@  ## Version -`1.2.0.2`+`1.3.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-support-version:               1.2.0.2+version:               1.3.0 synopsis:              Amazon Support SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -115,7 +115,7 @@         , Network.AWS.Support.Types.Sum      build-depends:-          amazonka-core == 1.2.0.*+          amazonka-core == 1.3.0.*         , base          >= 4.7     && < 5  test-suite amazonka-support-test@@ -135,9 +135,9 @@         , Test.AWS.Support.Internal      build-depends:-          amazonka-core == 1.2.0.*-        , amazonka-test == 1.2.0.*-        , amazonka-support == 1.2.0.*+          amazonka-core == 1.3.0.*+        , amazonka-test == 1.3.0.*+        , amazonka-support == 1.3.0.*         , base         , bytestring         , lens

@@ -116,12 +116,12 @@     -- ** DescribeTrustedAdvisorCheckRefreshStatuses     , module Network.AWS.Support.DescribeTrustedAdvisorCheckRefreshStatuses -    -- ** CreateCase-    , module Network.AWS.Support.CreateCase-     -- ** DescribeTrustedAdvisorCheckSummaries     , module Network.AWS.Support.DescribeTrustedAdvisorCheckSummaries +    -- ** CreateCase+    , module Network.AWS.Support.CreateCase+     -- ** ResolveCase     , module Network.AWS.Support.ResolveCase @@ -175,8 +175,8 @@     , cdDisplayId     , cdSubmittedBy     , cdLanguage-    , cdCategoryCode     , cdTimeCreated+    , cdCategoryCode     , cdServiceCode      -- ** Category

@@ -46,7 +46,7 @@     -- * Response Lenses     , aatsrsExpiryTime     , aatsrsAttachmentSetId-    , aatsrsStatus+    , aatsrsResponseStatus     ) where  import           Network.AWS.Prelude@@ -129,7 +129,7 @@ data AddAttachmentsToSetResponse = AddAttachmentsToSetResponse'     { _aatsrsExpiryTime      :: !(Maybe Text)     , _aatsrsAttachmentSetId :: !(Maybe Text)-    , _aatsrsStatus          :: !Int+    , _aatsrsResponseStatus  :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'AddAttachmentsToSetResponse' with the minimum fields required to make a request.@@ -140,15 +140,15 @@ -- -- * 'aatsrsAttachmentSetId' ----- * 'aatsrsStatus'+-- * 'aatsrsResponseStatus' addAttachmentsToSetResponse-    :: Int -- ^ 'aatsrsStatus'+    :: Int -- ^ 'aatsrsResponseStatus'     -> AddAttachmentsToSetResponse-addAttachmentsToSetResponse pStatus_ =+addAttachmentsToSetResponse pResponseStatus_ =     AddAttachmentsToSetResponse'     { _aatsrsExpiryTime = Nothing     , _aatsrsAttachmentSetId = Nothing-    , _aatsrsStatus = pStatus_+    , _aatsrsResponseStatus = pResponseStatus_     }  -- | The time and date when the attachment set expires.@@ -163,5 +163,5 @@ aatsrsAttachmentSetId = lens _aatsrsAttachmentSetId (\ s a -> s{_aatsrsAttachmentSetId = a});  -- | The response status code.-aatsrsStatus :: Lens' AddAttachmentsToSetResponse Int-aatsrsStatus = lens _aatsrsStatus (\ s a -> s{_aatsrsStatus = a});+aatsrsResponseStatus :: Lens' AddAttachmentsToSetResponse Int+aatsrsResponseStatus = lens _aatsrsResponseStatus (\ s a -> s{_aatsrsResponseStatus = a});

@@ -46,7 +46,7 @@     , AddCommunicationToCaseResponse     -- * Response Lenses     , actcrsResult-    , actcrsStatus+    , actcrsResponseStatus     ) where  import           Network.AWS.Prelude@@ -147,8 +147,8 @@ -- -- /See:/ 'addCommunicationToCaseResponse' smart constructor. data AddCommunicationToCaseResponse = AddCommunicationToCaseResponse'-    { _actcrsResult :: !(Maybe Bool)-    , _actcrsStatus :: !Int+    { _actcrsResult         :: !(Maybe Bool)+    , _actcrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'AddCommunicationToCaseResponse' with the minimum fields required to make a request.@@ -157,14 +157,14 @@ -- -- * 'actcrsResult' ----- * 'actcrsStatus'+-- * 'actcrsResponseStatus' addCommunicationToCaseResponse-    :: Int -- ^ 'actcrsStatus'+    :: Int -- ^ 'actcrsResponseStatus'     -> AddCommunicationToCaseResponse-addCommunicationToCaseResponse pStatus_ =+addCommunicationToCaseResponse pResponseStatus_ =     AddCommunicationToCaseResponse'     { _actcrsResult = Nothing-    , _actcrsStatus = pStatus_+    , _actcrsResponseStatus = pResponseStatus_     }  -- | True if AddCommunicationToCase succeeds. Otherwise, returns an error.@@ -172,5 +172,5 @@ actcrsResult = lens _actcrsResult (\ s a -> s{_actcrsResult = a});  -- | The response status code.-actcrsStatus :: Lens' AddCommunicationToCaseResponse Int-actcrsStatus = lens _actcrsStatus (\ s a -> s{_actcrsStatus = a});+actcrsResponseStatus :: Lens' AddCommunicationToCaseResponse Int+actcrsResponseStatus = lens _actcrsResponseStatus (\ s a -> s{_actcrsResponseStatus = a});

@@ -84,7 +84,7 @@     , CreateCaseResponse     -- * Response Lenses     , ccrsCaseId-    , ccrsStatus+    , ccrsResponseStatus     ) where  import           Network.AWS.Prelude@@ -236,8 +236,8 @@ -- -- /See:/ 'createCaseResponse' smart constructor. data CreateCaseResponse = CreateCaseResponse'-    { _ccrsCaseId :: !(Maybe Text)-    , _ccrsStatus :: !Int+    { _ccrsCaseId         :: !(Maybe Text)+    , _ccrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateCaseResponse' with the minimum fields required to make a request.@@ -246,14 +246,14 @@ -- -- * 'ccrsCaseId' ----- * 'ccrsStatus'+-- * 'ccrsResponseStatus' createCaseResponse-    :: Int -- ^ 'ccrsStatus'+    :: Int -- ^ 'ccrsResponseStatus'     -> CreateCaseResponse-createCaseResponse pStatus_ =+createCaseResponse pResponseStatus_ =     CreateCaseResponse'     { _ccrsCaseId = Nothing-    , _ccrsStatus = pStatus_+    , _ccrsResponseStatus = pResponseStatus_     }  -- | The AWS Support case ID requested or returned in the call. The case ID@@ -263,5 +263,5 @@ ccrsCaseId = lens _ccrsCaseId (\ s a -> s{_ccrsCaseId = a});  -- | The response status code.-ccrsStatus :: Lens' CreateCaseResponse Int-ccrsStatus = lens _ccrsStatus (\ s a -> s{_ccrsStatus = a});+ccrsResponseStatus :: Lens' CreateCaseResponse Int+ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a});

@@ -38,7 +38,7 @@     , DescribeAttachmentResponse     -- * Response Lenses     , darsAttachment-    , darsStatus+    , darsResponseStatus     ) where  import           Network.AWS.Prelude@@ -107,8 +107,8 @@ -- -- /See:/ 'describeAttachmentResponse' smart constructor. data DescribeAttachmentResponse = DescribeAttachmentResponse'-    { _darsAttachment :: !(Maybe Attachment)-    , _darsStatus     :: !Int+    { _darsAttachment     :: !(Maybe Attachment)+    , _darsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeAttachmentResponse' with the minimum fields required to make a request.@@ -117,14 +117,14 @@ -- -- * 'darsAttachment' ----- * 'darsStatus'+-- * 'darsResponseStatus' describeAttachmentResponse-    :: Int -- ^ 'darsStatus'+    :: Int -- ^ 'darsResponseStatus'     -> DescribeAttachmentResponse-describeAttachmentResponse pStatus_ =+describeAttachmentResponse pResponseStatus_ =     DescribeAttachmentResponse'     { _darsAttachment = Nothing-    , _darsStatus = pStatus_+    , _darsResponseStatus = pResponseStatus_     }  -- | The attachment content and file name.@@ -132,5 +132,5 @@ darsAttachment = lens _darsAttachment (\ s a -> s{_darsAttachment = a});  -- | The response status code.-darsStatus :: Lens' DescribeAttachmentResponse Int-darsStatus = lens _darsStatus (\ s a -> s{_darsStatus = a});+darsResponseStatus :: Lens' DescribeAttachmentResponse Int+darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a});

@@ -46,8 +46,8 @@     , dcIncludeResolvedCases     , dcCaseIdList     , dcAfterTime-    , dcNextToken     , dcBeforeTime+    , dcNextToken     , dcIncludeCommunications     , dcDisplayId     , dcLanguage@@ -59,7 +59,7 @@     -- * Response Lenses     , drsCases     , drsNextToken-    , drsStatus+    , drsResponseStatus     ) where  import           Network.AWS.Pager@@ -74,8 +74,8 @@     { _dcIncludeResolvedCases  :: !(Maybe Bool)     , _dcCaseIdList            :: !(Maybe [Text])     , _dcAfterTime             :: !(Maybe Text)-    , _dcNextToken             :: !(Maybe Text)     , _dcBeforeTime            :: !(Maybe Text)+    , _dcNextToken             :: !(Maybe Text)     , _dcIncludeCommunications :: !(Maybe Bool)     , _dcDisplayId             :: !(Maybe Text)     , _dcLanguage              :: !(Maybe Text)@@ -92,10 +92,10 @@ -- -- * 'dcAfterTime' ----- * 'dcNextToken'--- -- * 'dcBeforeTime' --+-- * 'dcNextToken'+-- -- * 'dcIncludeCommunications' -- -- * 'dcDisplayId'@@ -110,8 +110,8 @@     { _dcIncludeResolvedCases = Nothing     , _dcCaseIdList = Nothing     , _dcAfterTime = Nothing-    , _dcNextToken = Nothing     , _dcBeforeTime = Nothing+    , _dcNextToken = Nothing     , _dcIncludeCommunications = Nothing     , _dcDisplayId = Nothing     , _dcLanguage = Nothing@@ -134,15 +134,15 @@ dcAfterTime :: Lens' DescribeCases (Maybe Text) dcAfterTime = lens _dcAfterTime (\ s a -> s{_dcAfterTime = a}); --- | A resumption point for pagination.-dcNextToken :: Lens' DescribeCases (Maybe Text)-dcNextToken = lens _dcNextToken (\ s a -> s{_dcNextToken = a});- -- | The end date for a filtered date search on support case communications. -- Case communications are available for 12 months after creation. dcBeforeTime :: Lens' DescribeCases (Maybe Text) dcBeforeTime = lens _dcBeforeTime (\ s a -> s{_dcBeforeTime = a}); +-- | A resumption point for pagination.+dcNextToken :: Lens' DescribeCases (Maybe Text)+dcNextToken = lens _dcNextToken (\ s a -> s{_dcNextToken = a});+ -- | Specifies whether communications should be included in the DescribeCases -- results. The default is /true/. dcIncludeCommunications :: Lens' DescribeCases (Maybe Bool)@@ -197,8 +197,8 @@                     _dcIncludeResolvedCases,                   ("caseIdList" .=) <$> _dcCaseIdList,                   ("afterTime" .=) <$> _dcAfterTime,-                  ("nextToken" .=) <$> _dcNextToken,                   ("beforeTime" .=) <$> _dcBeforeTime,+                  ("nextToken" .=) <$> _dcNextToken,                   ("includeCommunications" .=) <$>                     _dcIncludeCommunications,                   ("displayId" .=) <$> _dcDisplayId,@@ -216,9 +216,9 @@ -- -- /See:/ 'describeCasesResponse' smart constructor. data DescribeCasesResponse = DescribeCasesResponse'-    { _drsCases     :: !(Maybe [CaseDetails])-    , _drsNextToken :: !(Maybe Text)-    , _drsStatus    :: !Int+    { _drsCases          :: !(Maybe [CaseDetails])+    , _drsNextToken      :: !(Maybe Text)+    , _drsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeCasesResponse' with the minimum fields required to make a request.@@ -229,15 +229,15 @@ -- -- * 'drsNextToken' ----- * 'drsStatus'+-- * 'drsResponseStatus' describeCasesResponse-    :: Int -- ^ 'drsStatus'+    :: Int -- ^ 'drsResponseStatus'     -> DescribeCasesResponse-describeCasesResponse pStatus_ =+describeCasesResponse pResponseStatus_ =     DescribeCasesResponse'     { _drsCases = Nothing     , _drsNextToken = Nothing-    , _drsStatus = pStatus_+    , _drsResponseStatus = pResponseStatus_     }  -- | The details for the cases that match the request.@@ -249,5 +249,5 @@ drsNextToken = lens _drsNextToken (\ s a -> s{_drsNextToken = a});  -- | The response status code.-drsStatus :: Lens' DescribeCasesResponse Int-drsStatus = lens _drsStatus (\ s a -> s{_drsStatus = a});+drsResponseStatus :: Lens' DescribeCasesResponse Int+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});

@@ -42,8 +42,8 @@     , DescribeCommunications     -- * Request Lenses     , dAfterTime-    , dNextToken     , dBeforeTime+    , dNextToken     , dMaxResults     , dCaseId @@ -53,7 +53,7 @@     -- * Response Lenses     , dcrsNextToken     , dcrsCommunications-    , dcrsStatus+    , dcrsResponseStatus     ) where  import           Network.AWS.Pager@@ -66,8 +66,8 @@ -- | /See:/ 'describeCommunications' smart constructor. data DescribeCommunications = DescribeCommunications'     { _dAfterTime  :: !(Maybe Text)-    , _dNextToken  :: !(Maybe Text)     , _dBeforeTime :: !(Maybe Text)+    , _dNextToken  :: !(Maybe Text)     , _dMaxResults :: !(Maybe Nat)     , _dCaseId     :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -78,10 +78,10 @@ -- -- * 'dAfterTime' ----- * 'dNextToken'--- -- * 'dBeforeTime' --+-- * 'dNextToken'+-- -- * 'dMaxResults' -- -- * 'dCaseId'@@ -91,8 +91,8 @@ describeCommunications pCaseId_ =     DescribeCommunications'     { _dAfterTime = Nothing-    , _dNextToken = Nothing     , _dBeforeTime = Nothing+    , _dNextToken = Nothing     , _dMaxResults = Nothing     , _dCaseId = pCaseId_     }@@ -103,15 +103,15 @@ dAfterTime :: Lens' DescribeCommunications (Maybe Text) dAfterTime = lens _dAfterTime (\ s a -> s{_dAfterTime = a}); --- | A resumption point for pagination.-dNextToken :: Lens' DescribeCommunications (Maybe Text)-dNextToken = lens _dNextToken (\ s a -> s{_dNextToken = a});- -- | The end date for a filtered date search on support case communications. -- Case communications are available for 12 months after creation. dBeforeTime :: Lens' DescribeCommunications (Maybe Text) dBeforeTime = lens _dBeforeTime (\ s a -> s{_dBeforeTime = a}); +-- | A resumption point for pagination.+dNextToken :: Lens' DescribeCommunications (Maybe Text)+dNextToken = lens _dNextToken (\ s a -> s{_dNextToken = a});+ -- | The maximum number of results to return before paginating. dMaxResults :: Lens' DescribeCommunications (Maybe Natural) dMaxResults = lens _dMaxResults (\ s a -> s{_dMaxResults = a}) . mapping _Nat;@@ -156,8 +156,8 @@           = object               (catMaybes                  [("afterTime" .=) <$> _dAfterTime,-                  ("nextToken" .=) <$> _dNextToken,                   ("beforeTime" .=) <$> _dBeforeTime,+                  ("nextToken" .=) <$> _dNextToken,                   ("maxResults" .=) <$> _dMaxResults,                   Just ("caseId" .= _dCaseId)]) @@ -173,7 +173,7 @@ data DescribeCommunicationsResponse = DescribeCommunicationsResponse'     { _dcrsNextToken      :: !(Maybe Text)     , _dcrsCommunications :: !(Maybe [Communication])-    , _dcrsStatus         :: !Int+    , _dcrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeCommunicationsResponse' with the minimum fields required to make a request.@@ -184,15 +184,15 @@ -- -- * 'dcrsCommunications' ----- * 'dcrsStatus'+-- * 'dcrsResponseStatus' describeCommunicationsResponse-    :: Int -- ^ 'dcrsStatus'+    :: Int -- ^ 'dcrsResponseStatus'     -> DescribeCommunicationsResponse-describeCommunicationsResponse pStatus_ =+describeCommunicationsResponse pResponseStatus_ =     DescribeCommunicationsResponse'     { _dcrsNextToken = Nothing     , _dcrsCommunications = Nothing-    , _dcrsStatus = pStatus_+    , _dcrsResponseStatus = pResponseStatus_     }  -- | A resumption point for pagination.@@ -204,5 +204,5 @@ dcrsCommunications = lens _dcrsCommunications (\ s a -> s{_dcrsCommunications = a}) . _Default . _Coerce;  -- | The response status code.-dcrsStatus :: Lens' DescribeCommunicationsResponse Int-dcrsStatus = lens _dcrsStatus (\ s a -> s{_dcrsStatus = a});+dcrsResponseStatus :: Lens' DescribeCommunicationsResponse Int+dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a});

@@ -48,7 +48,7 @@     , DescribeServicesResponse     -- * Response Lenses     , dsrsServices-    , dsrsStatus+    , dsrsResponseStatus     ) where  import           Network.AWS.Prelude@@ -126,8 +126,8 @@ -- -- /See:/ 'describeServicesResponse' smart constructor. data DescribeServicesResponse = DescribeServicesResponse'-    { _dsrsServices :: !(Maybe [SupportService])-    , _dsrsStatus   :: !Int+    { _dsrsServices       :: !(Maybe [SupportService])+    , _dsrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeServicesResponse' with the minimum fields required to make a request.@@ -136,14 +136,14 @@ -- -- * 'dsrsServices' ----- * 'dsrsStatus'+-- * 'dsrsResponseStatus' describeServicesResponse-    :: Int -- ^ 'dsrsStatus'+    :: Int -- ^ 'dsrsResponseStatus'     -> DescribeServicesResponse-describeServicesResponse pStatus_ =+describeServicesResponse pResponseStatus_ =     DescribeServicesResponse'     { _dsrsServices = Nothing-    , _dsrsStatus = pStatus_+    , _dsrsResponseStatus = pResponseStatus_     }  -- | A JSON-formatted list of AWS services.@@ -151,5 +151,5 @@ dsrsServices = lens _dsrsServices (\ s a -> s{_dsrsServices = a}) . _Default . _Coerce;  -- | The response status code.-dsrsStatus :: Lens' DescribeServicesResponse Int-dsrsStatus = lens _dsrsStatus (\ s a -> s{_dsrsStatus = a});+dsrsResponseStatus :: Lens' DescribeServicesResponse Int+dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a});

@@ -36,7 +36,7 @@     , DescribeSeverityLevelsResponse     -- * Response Lenses     , dslrsSeverityLevels-    , dslrsStatus+    , dslrsResponseStatus     ) where  import           Network.AWS.Prelude@@ -107,7 +107,7 @@ -- /See:/ 'describeSeverityLevelsResponse' smart constructor. data DescribeSeverityLevelsResponse = DescribeSeverityLevelsResponse'     { _dslrsSeverityLevels :: !(Maybe [SeverityLevel])-    , _dslrsStatus         :: !Int+    , _dslrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeSeverityLevelsResponse' with the minimum fields required to make a request.@@ -116,14 +116,14 @@ -- -- * 'dslrsSeverityLevels' ----- * 'dslrsStatus'+-- * 'dslrsResponseStatus' describeSeverityLevelsResponse-    :: Int -- ^ 'dslrsStatus'+    :: Int -- ^ 'dslrsResponseStatus'     -> DescribeSeverityLevelsResponse-describeSeverityLevelsResponse pStatus_ =+describeSeverityLevelsResponse pResponseStatus_ =     DescribeSeverityLevelsResponse'     { _dslrsSeverityLevels = Nothing-    , _dslrsStatus = pStatus_+    , _dslrsResponseStatus = pResponseStatus_     }  -- | The available severity levels for the support case. Available severity@@ -132,5 +132,5 @@ dslrsSeverityLevels = lens _dslrsSeverityLevels (\ s a -> s{_dslrsSeverityLevels = a}) . _Default . _Coerce;  -- | The response status code.-dslrsStatus :: Lens' DescribeSeverityLevelsResponse Int-dslrsStatus = lens _dslrsStatus (\ s a -> s{_dslrsStatus = a});+dslrsResponseStatus :: Lens' DescribeSeverityLevelsResponse Int+dslrsResponseStatus = lens _dslrsResponseStatus (\ s a -> s{_dslrsResponseStatus = a});

@@ -35,7 +35,7 @@     , describeTrustedAdvisorCheckRefreshStatusesResponse     , DescribeTrustedAdvisorCheckRefreshStatusesResponse     -- * Response Lenses-    , dtacrsrsStatus+    , dtacrsrsResponseStatus     , dtacrsrsStatuses     ) where @@ -110,29 +110,29 @@ -- -- /See:/ 'describeTrustedAdvisorCheckRefreshStatusesResponse' smart constructor. data DescribeTrustedAdvisorCheckRefreshStatusesResponse = DescribeTrustedAdvisorCheckRefreshStatusesResponse'-    { _dtacrsrsStatus   :: !Int-    , _dtacrsrsStatuses :: ![TrustedAdvisorCheckRefreshStatus]+    { _dtacrsrsResponseStatus :: !Int+    , _dtacrsrsStatuses       :: ![TrustedAdvisorCheckRefreshStatus]     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeTrustedAdvisorCheckRefreshStatusesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dtacrsrsStatus'+-- * 'dtacrsrsResponseStatus' -- -- * 'dtacrsrsStatuses' describeTrustedAdvisorCheckRefreshStatusesResponse-    :: Int -- ^ 'dtacrsrsStatus'+    :: Int -- ^ 'dtacrsrsResponseStatus'     -> DescribeTrustedAdvisorCheckRefreshStatusesResponse-describeTrustedAdvisorCheckRefreshStatusesResponse pStatus_ =+describeTrustedAdvisorCheckRefreshStatusesResponse pResponseStatus_ =     DescribeTrustedAdvisorCheckRefreshStatusesResponse'-    { _dtacrsrsStatus = pStatus_+    { _dtacrsrsResponseStatus = pResponseStatus_     , _dtacrsrsStatuses = mempty     }  -- | The response status code.-dtacrsrsStatus :: Lens' DescribeTrustedAdvisorCheckRefreshStatusesResponse Int-dtacrsrsStatus = lens _dtacrsrsStatus (\ s a -> s{_dtacrsrsStatus = a});+dtacrsrsResponseStatus :: Lens' DescribeTrustedAdvisorCheckRefreshStatusesResponse Int+dtacrsrsResponseStatus = lens _dtacrsrsResponseStatus (\ s a -> s{_dtacrsrsResponseStatus = a});  -- | The refresh status of the specified Trusted Advisor checks. dtacrsrsStatuses :: Lens' DescribeTrustedAdvisorCheckRefreshStatusesResponse [TrustedAdvisorCheckRefreshStatus]

@@ -51,7 +51,7 @@     , DescribeTrustedAdvisorCheckResultResponse     -- * Response Lenses     , dtacrrsResult-    , dtacrrsStatus+    , dtacrrsResponseStatus     ) where  import           Network.AWS.Prelude@@ -136,8 +136,8 @@ -- -- /See:/ 'describeTrustedAdvisorCheckResultResponse' smart constructor. data DescribeTrustedAdvisorCheckResultResponse = DescribeTrustedAdvisorCheckResultResponse'-    { _dtacrrsResult :: !(Maybe TrustedAdvisorCheckResult)-    , _dtacrrsStatus :: !Int+    { _dtacrrsResult         :: !(Maybe TrustedAdvisorCheckResult)+    , _dtacrrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeTrustedAdvisorCheckResultResponse' with the minimum fields required to make a request.@@ -146,14 +146,14 @@ -- -- * 'dtacrrsResult' ----- * 'dtacrrsStatus'+-- * 'dtacrrsResponseStatus' describeTrustedAdvisorCheckResultResponse-    :: Int -- ^ 'dtacrrsStatus'+    :: Int -- ^ 'dtacrrsResponseStatus'     -> DescribeTrustedAdvisorCheckResultResponse-describeTrustedAdvisorCheckResultResponse pStatus_ =+describeTrustedAdvisorCheckResultResponse pResponseStatus_ =     DescribeTrustedAdvisorCheckResultResponse'     { _dtacrrsResult = Nothing-    , _dtacrrsStatus = pStatus_+    , _dtacrrsResponseStatus = pResponseStatus_     }  -- | The detailed results of the Trusted Advisor check.@@ -161,5 +161,5 @@ dtacrrsResult = lens _dtacrrsResult (\ s a -> s{_dtacrrsResult = a});  -- | The response status code.-dtacrrsStatus :: Lens' DescribeTrustedAdvisorCheckResultResponse Int-dtacrrsStatus = lens _dtacrrsStatus (\ s a -> s{_dtacrrsStatus = a});+dtacrrsResponseStatus :: Lens' DescribeTrustedAdvisorCheckResultResponse Int+dtacrrsResponseStatus = lens _dtacrrsResponseStatus (\ s a -> s{_dtacrrsResponseStatus = a});

@@ -37,7 +37,7 @@     , describeTrustedAdvisorCheckSummariesResponse     , DescribeTrustedAdvisorCheckSummariesResponse     -- * Response Lenses-    , dtacsrsStatus+    , dtacsrsResponseStatus     , dtacsrsSummaries     ) where @@ -110,29 +110,29 @@ -- -- /See:/ 'describeTrustedAdvisorCheckSummariesResponse' smart constructor. data DescribeTrustedAdvisorCheckSummariesResponse = DescribeTrustedAdvisorCheckSummariesResponse'-    { _dtacsrsStatus    :: !Int-    , _dtacsrsSummaries :: ![TrustedAdvisorCheckSummary]+    { _dtacsrsResponseStatus :: !Int+    , _dtacsrsSummaries      :: ![TrustedAdvisorCheckSummary]     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeTrustedAdvisorCheckSummariesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dtacsrsStatus'+-- * 'dtacsrsResponseStatus' -- -- * 'dtacsrsSummaries' describeTrustedAdvisorCheckSummariesResponse-    :: Int -- ^ 'dtacsrsStatus'+    :: Int -- ^ 'dtacsrsResponseStatus'     -> DescribeTrustedAdvisorCheckSummariesResponse-describeTrustedAdvisorCheckSummariesResponse pStatus_ =+describeTrustedAdvisorCheckSummariesResponse pResponseStatus_ =     DescribeTrustedAdvisorCheckSummariesResponse'-    { _dtacsrsStatus = pStatus_+    { _dtacsrsResponseStatus = pResponseStatus_     , _dtacsrsSummaries = mempty     }  -- | The response status code.-dtacsrsStatus :: Lens' DescribeTrustedAdvisorCheckSummariesResponse Int-dtacsrsStatus = lens _dtacsrsStatus (\ s a -> s{_dtacsrsStatus = a});+dtacsrsResponseStatus :: Lens' DescribeTrustedAdvisorCheckSummariesResponse Int+dtacsrsResponseStatus = lens _dtacsrsResponseStatus (\ s a -> s{_dtacsrsResponseStatus = a});  -- | The summary information for the requested Trusted Advisor checks. dtacsrsSummaries :: Lens' DescribeTrustedAdvisorCheckSummariesResponse [TrustedAdvisorCheckSummary]

@@ -37,7 +37,7 @@     , describeTrustedAdvisorChecksResponse     , DescribeTrustedAdvisorChecksResponse     -- * Response Lenses-    , dtacrsStatus+    , dtacrsResponseStatus     , dtacrsChecks     ) where @@ -109,29 +109,29 @@ -- -- /See:/ 'describeTrustedAdvisorChecksResponse' smart constructor. data DescribeTrustedAdvisorChecksResponse = DescribeTrustedAdvisorChecksResponse'-    { _dtacrsStatus :: !Int-    , _dtacrsChecks :: ![TrustedAdvisorCheckDescription]+    { _dtacrsResponseStatus :: !Int+    , _dtacrsChecks         :: ![TrustedAdvisorCheckDescription]     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeTrustedAdvisorChecksResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dtacrsStatus'+-- * 'dtacrsResponseStatus' -- -- * 'dtacrsChecks' describeTrustedAdvisorChecksResponse-    :: Int -- ^ 'dtacrsStatus'+    :: Int -- ^ 'dtacrsResponseStatus'     -> DescribeTrustedAdvisorChecksResponse-describeTrustedAdvisorChecksResponse pStatus_ =+describeTrustedAdvisorChecksResponse pResponseStatus_ =     DescribeTrustedAdvisorChecksResponse'-    { _dtacrsStatus = pStatus_+    { _dtacrsResponseStatus = pResponseStatus_     , _dtacrsChecks = mempty     }  -- | The response status code.-dtacrsStatus :: Lens' DescribeTrustedAdvisorChecksResponse Int-dtacrsStatus = lens _dtacrsStatus (\ s a -> s{_dtacrsStatus = a});+dtacrsResponseStatus :: Lens' DescribeTrustedAdvisorChecksResponse Int+dtacrsResponseStatus = lens _dtacrsResponseStatus (\ s a -> s{_dtacrsResponseStatus = a});  -- | Information about all available Trusted Advisor checks. dtacrsChecks :: Lens' DescribeTrustedAdvisorChecksResponse [TrustedAdvisorCheckDescription]

@@ -44,6 +44,7 @@     , refreshTrustedAdvisorCheckResponse     , RefreshTrustedAdvisorCheckResponse     -- * Response Lenses+    , rtacrsResponseStatus     , rtacrsStatus     ) where @@ -80,10 +81,10 @@              RefreshTrustedAdvisorCheckResponse         request = postJSON support         response-          = receiveEmpty+          = receiveJSON               (\ s h x ->                  RefreshTrustedAdvisorCheckResponse' <$>-                   (pure (fromEnum s)))+                   (pure (fromEnum s)) <*> (x .:> "status"))  instance ToHeaders RefreshTrustedAdvisorCheck where         toHeaders@@ -109,23 +110,33 @@ -- | The current refresh status of a Trusted Advisor check. -- -- /See:/ 'refreshTrustedAdvisorCheckResponse' smart constructor.-newtype RefreshTrustedAdvisorCheckResponse = RefreshTrustedAdvisorCheckResponse'-    { _rtacrsStatus :: Int+data RefreshTrustedAdvisorCheckResponse = RefreshTrustedAdvisorCheckResponse'+    { _rtacrsResponseStatus :: !Int+    , _rtacrsStatus         :: !TrustedAdvisorCheckRefreshStatus     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'RefreshTrustedAdvisorCheckResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'rtacrsResponseStatus'+-- -- * 'rtacrsStatus' refreshTrustedAdvisorCheckResponse-    :: Int -- ^ 'rtacrsStatus'+    :: Int -- ^ 'rtacrsResponseStatus'+    -> TrustedAdvisorCheckRefreshStatus -- ^ 'rtacrsStatus'     -> RefreshTrustedAdvisorCheckResponse-refreshTrustedAdvisorCheckResponse pStatus_ =+refreshTrustedAdvisorCheckResponse pResponseStatus_ pStatus_ =     RefreshTrustedAdvisorCheckResponse'-    { _rtacrsStatus = pStatus_+    { _rtacrsResponseStatus = pResponseStatus_+    , _rtacrsStatus = pStatus_     }  -- | The response status code.-rtacrsStatus :: Lens' RefreshTrustedAdvisorCheckResponse Int+rtacrsResponseStatus :: Lens' RefreshTrustedAdvisorCheckResponse Int+rtacrsResponseStatus = lens _rtacrsResponseStatus (\ s a -> s{_rtacrsResponseStatus = a});++-- | The current refresh status for a check, including the amount of time+-- until the check is eligible for refresh.+rtacrsStatus :: Lens' RefreshTrustedAdvisorCheckResponse TrustedAdvisorCheckRefreshStatus rtacrsStatus = lens _rtacrsStatus (\ s a -> s{_rtacrsStatus = a});

@@ -36,7 +36,7 @@     -- * Response Lenses     , rcrsInitialCaseStatus     , rcrsFinalCaseStatus-    , rcrsStatus+    , rcrsResponseStatus     ) where  import           Network.AWS.Prelude@@ -104,7 +104,7 @@ data ResolveCaseResponse = ResolveCaseResponse'     { _rcrsInitialCaseStatus :: !(Maybe Text)     , _rcrsFinalCaseStatus   :: !(Maybe Text)-    , _rcrsStatus            :: !Int+    , _rcrsResponseStatus    :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ResolveCaseResponse' with the minimum fields required to make a request.@@ -115,15 +115,15 @@ -- -- * 'rcrsFinalCaseStatus' ----- * 'rcrsStatus'+-- * 'rcrsResponseStatus' resolveCaseResponse-    :: Int -- ^ 'rcrsStatus'+    :: Int -- ^ 'rcrsResponseStatus'     -> ResolveCaseResponse-resolveCaseResponse pStatus_ =+resolveCaseResponse pResponseStatus_ =     ResolveCaseResponse'     { _rcrsInitialCaseStatus = Nothing     , _rcrsFinalCaseStatus = Nothing-    , _rcrsStatus = pStatus_+    , _rcrsResponseStatus = pResponseStatus_     }  -- | The status of the case when the ResolveCase request was sent.@@ -135,5 +135,5 @@ rcrsFinalCaseStatus = lens _rcrsFinalCaseStatus (\ s a -> s{_rcrsFinalCaseStatus = a});  -- | The response status code.-rcrsStatus :: Lens' ResolveCaseResponse Int-rcrsStatus = lens _rcrsStatus (\ s a -> s{_rcrsStatus = a});+rcrsResponseStatus :: Lens' ResolveCaseResponse Int+rcrsResponseStatus = lens _rcrsResponseStatus (\ s a -> s{_rcrsResponseStatus = a});

@@ -50,8 +50,8 @@     , cdDisplayId     , cdSubmittedBy     , cdLanguage-    , cdCategoryCode     , cdTimeCreated+    , cdCategoryCode     , cdServiceCode      -- * Category

@@ -153,8 +153,8 @@     , _cdDisplayId            :: !(Maybe Text)     , _cdSubmittedBy          :: !(Maybe Text)     , _cdLanguage             :: !(Maybe Text)-    , _cdCategoryCode         :: !(Maybe Text)     , _cdTimeCreated          :: !(Maybe Text)+    , _cdCategoryCode         :: !(Maybe Text)     , _cdServiceCode          :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -180,10 +180,10 @@ -- -- * 'cdLanguage' ----- * 'cdCategoryCode'--- -- * 'cdTimeCreated' --+-- * 'cdCategoryCode'+-- -- * 'cdServiceCode' caseDetails     :: CaseDetails@@ -198,8 +198,8 @@     , _cdDisplayId = Nothing     , _cdSubmittedBy = Nothing     , _cdLanguage = Nothing-    , _cdCategoryCode = Nothing     , _cdTimeCreated = Nothing+    , _cdCategoryCode = Nothing     , _cdServiceCode = Nothing     } @@ -249,14 +249,14 @@ cdLanguage :: Lens' CaseDetails (Maybe Text) cdLanguage = lens _cdLanguage (\ s a -> s{_cdLanguage = a}); --- | The category of problem for the AWS Support case.-cdCategoryCode :: Lens' CaseDetails (Maybe Text)-cdCategoryCode = lens _cdCategoryCode (\ s a -> s{_cdCategoryCode = a});- -- | The time that the case was case created in the AWS Support Center. cdTimeCreated :: Lens' CaseDetails (Maybe Text) cdTimeCreated = lens _cdTimeCreated (\ s a -> s{_cdTimeCreated = a}); +-- | The category of problem for the AWS Support case.+cdCategoryCode :: Lens' CaseDetails (Maybe Text)+cdCategoryCode = lens _cdCategoryCode (\ s a -> s{_cdCategoryCode = a});+ -- | The code for the AWS service returned by the call to DescribeServices. cdServiceCode :: Lens' CaseDetails (Maybe Text) cdServiceCode = lens _cdServiceCode (\ s a -> s{_cdServiceCode = a});@@ -274,8 +274,8 @@                      <*> (x .:? "displayId")                      <*> (x .:? "submittedBy")                      <*> (x .:? "language")-                     <*> (x .:? "categoryCode")                      <*> (x .:? "timeCreated")+                     <*> (x .:? "categoryCode")                      <*> (x .:? "serviceCode"))  -- | A JSON-formatted name\/value pair that represents the category name and

@@ -37,12 +37,12 @@ --         , testDescribeTrustedAdvisorCheckRefreshStatuses $ --             describeTrustedAdvisorCheckRefreshStatuses -----         , testCreateCase $---             createCase--- --         , testDescribeTrustedAdvisorCheckSummaries $ --             describeTrustedAdvisorCheckSummaries --+--         , testCreateCase $+--             createCase+-- --         , testResolveCase $ --             resolveCase --@@ -82,12 +82,12 @@ --         , testDescribeTrustedAdvisorCheckRefreshStatusesResponse $ --             describeTrustedAdvisorCheckRefreshStatusesResponse -----         , testCreateCaseResponse $---             createCaseResponse--- --         , testDescribeTrustedAdvisorCheckSummariesResponse $ --             describeTrustedAdvisorCheckSummariesResponse --+--         , testCreateCaseResponse $+--             createCaseResponse+-- --         , testResolveCaseResponse $ --             resolveCaseResponse --@@ -135,16 +135,16 @@     "DescribeTrustedAdvisorCheckRefreshStatuses"     "fixture/DescribeTrustedAdvisorCheckRefreshStatuses.yaml" -testCreateCase :: CreateCase -> TestTree-testCreateCase = req-    "CreateCase"-    "fixture/CreateCase.yaml"- testDescribeTrustedAdvisorCheckSummaries :: DescribeTrustedAdvisorCheckSummaries -> TestTree testDescribeTrustedAdvisorCheckSummaries = req     "DescribeTrustedAdvisorCheckSummaries"     "fixture/DescribeTrustedAdvisorCheckSummaries.yaml" +testCreateCase :: CreateCase -> TestTree+testCreateCase = req+    "CreateCase"+    "fixture/CreateCase.yaml"+ testResolveCase :: ResolveCase -> TestTree testResolveCase = req     "ResolveCase"@@ -213,19 +213,19 @@     support     (Proxy :: Proxy DescribeTrustedAdvisorCheckRefreshStatuses) -testCreateCaseResponse :: CreateCaseResponse -> TestTree-testCreateCaseResponse = res-    "CreateCaseResponse"-    "fixture/CreateCaseResponse.proto"-    support-    (Proxy :: Proxy CreateCase)- testDescribeTrustedAdvisorCheckSummariesResponse :: DescribeTrustedAdvisorCheckSummariesResponse -> TestTree testDescribeTrustedAdvisorCheckSummariesResponse = res     "DescribeTrustedAdvisorCheckSummariesResponse"     "fixture/DescribeTrustedAdvisorCheckSummariesResponse.proto"     support     (Proxy :: Proxy DescribeTrustedAdvisorCheckSummaries)++testCreateCaseResponse :: CreateCaseResponse -> TestTree+testCreateCaseResponse = res+    "CreateCaseResponse"+    "fixture/CreateCaseResponse.proto"+    support+    (Proxy :: Proxy CreateCase)  testResolveCaseResponse :: ResolveCaseResponse -> TestTree testResolveCaseResponse = res