amazonka-support 1.1.0 → 1.2.0

raw patch · 20 files changed

+129/−115 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 +2/−2
• gen/Network/AWS/Support/AddAttachmentsToSet.hs +4/−4
• gen/Network/AWS/Support/AddCommunicationToCase.hs +7/−6
• gen/Network/AWS/Support/CreateCase.hs +11/−11
• gen/Network/AWS/Support/DescribeAttachment.hs +4/−3
• gen/Network/AWS/Support/DescribeCases.hs +13/−11
• gen/Network/AWS/Support/DescribeCommunications.hs +7/−6
• gen/Network/AWS/Support/DescribeServices.hs +4/−4
• gen/Network/AWS/Support/DescribeSeverityLevels.hs +3/−3
• gen/Network/AWS/Support/DescribeTrustedAdvisorCheckRefreshStatuses.hs +3/−4
• gen/Network/AWS/Support/DescribeTrustedAdvisorCheckResult.hs +4/−4
• gen/Network/AWS/Support/DescribeTrustedAdvisorCheckSummaries.hs +3/−4
• gen/Network/AWS/Support/DescribeTrustedAdvisorChecks.hs +3/−3
• gen/Network/AWS/Support/RefreshTrustedAdvisorCheck.hs +3/−3
• gen/Network/AWS/Support/ResolveCase.hs +2/−3
• gen/Network/AWS/Support/Types.hs +32/−36
• gen/Network/AWS/Support/Types/Product.hs +4/−2
• test/Test/AWS/Gen/Support.hs +14/−0

@@ -8,7 +8,7 @@  ## Version -`1.1.0`+`1.2.0`   ## Description

@@ -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

@@ -68,8 +68,8 @@ -- /See:/ <http://docs.aws.amazon.com/awssupport/latest/APIReference/Welcome.html AWS API Reference> module Network.AWS.Support     (-    -- * Service-      Support+    -- * Service Configuration+      support      -- * Errors     -- $errors

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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

@@ -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

@@ -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

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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.

@@ -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

@@ -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)