amazonka-support 0.0.7 → 0.0.8

raw patch · 7 files changed

+60/−29 lines, 7 filesdep ~amazonka-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core

API changes (from Hackage documentation)

Files

• amazonka-support.cabal +2/−2
• gen/Network/AWS/Support/AddCommunicationToCase.hs +1/−1
• gen/Network/AWS/Support/CreateCase.hs +20/−13
• gen/Network/AWS/Support/DescribeCases.hs +2/−1
• gen/Network/AWS/Support/DescribeServices.hs +1/−1
• gen/Network/AWS/Support/RefreshTrustedAdvisorCheck.hs +1/−1
• gen/Network/AWS/Support/Types.hs +33/−10

@@ -1,5 +1,5 @@ name:                  amazonka-support-version:               0.0.7+version:               0.0.8 synopsis:              Amazon Support SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense@@ -60,5 +60,5 @@     other-modules:      build-depends:-          amazonka-core == 0.0.7.*+          amazonka-core == 0.0.8.*         , base          >= 4.7     && < 5

@@ -28,7 +28,7 @@ -- -- The response indicates the success or failure of the request. ----- This operation implements a subset of the behavior on the AWS Support <https://aws.amazon.com/support YourSupport Cases> web form.+-- This operation implements a subset of the features of the AWS Support Center. -- -- <http://docs.aws.amazon.com/awssupport/latest/APIReference/API_AddCommunicationToCase.html> module Network.AWS.Support.AddCommunicationToCase

@@ -23,7 +23,7 @@ -- Derived from AWS service descriptions, licensed under Apache 2.0.  -- | Creates a new case in the AWS Support Center. This operation is modeled on--- the behavior of the AWS Support Center <https://aws.amazon.com/support/createCase Open a new case> page. Its parameters+-- the behavior of the AWS Support Center <https://console.aws.amazon.com/support/home#/case/create Create Case> page. Its parameters -- require you to specify the following information: -- -- IssueType. The type of issue for the case. You can specify either@@ -36,19 +36,21 @@ -- the urgency of the case, which in turn determines the response time according -- to your service level agreement with AWS Support. You obtain the SeverityCode -- by calling 'DescribeSeverityLevels'.  Subject. The Subject field on the AWS--- Support Center <https://aws.amazon.com/support/createCase Open a new case> page.  CommunicationBody. The Description--- field on the AWS Support Center <https://aws.amazon.com/support/createCase Open a new case> page.  AttachmentSetId. The--- ID of a set of attachments that has been created by using 'AddAttachmentsToSet'.--- Language. The human language in which AWS Support handles the case. English--- and Japanese are currently supported.  CcEmailAddresses. The AWS Support--- Center CC field on the <https://aws.amazon.com/support/createCase Open a new case> page. You can list email addresses to--- be copied on any correspondence about the case. The account that opens the--- case is already identified by passing the AWS Credentials in the HTTP POST--- method or in a method or function call from one of the programming languages--- supported by an <http://aws.amazon.com/tools/ AWS SDK>.   A successful 'CreateCase' request returns an AWS--- Support case number. Case numbers are used by the 'DescribeCases' operation to--- retrieve existing AWS Support cases.+-- Support Center <https://console.aws.amazon.com/support/home#/case/create Create Case> page.  CommunicationBody. The Description field on+-- the AWS Support Center <https://console.aws.amazon.com/support/home#/case/create Create Case> page.  AttachmentSetId. The ID of a set of+-- attachments that has been created by using 'AddAttachmentsToSet'.  Language.+-- The human language in which AWS Support handles the case. English and+-- Japanese are currently supported.  CcEmailAddresses. The AWS Support Center CC+-- field on the <https://console.aws.amazon.com/support/home#/case/create Create Case> page. You can list email addresses to be copied on+-- any correspondence about the case. The account that opens the case is already+-- identified by passing the AWS Credentials in the HTTP POST method or in a+-- method or function call from one of the programming languages supported by an <http://aws.amazon.com/tools/ AWS SDK>.   To add additional communication or attachments to an existing+-- case, use 'AddCommunicationToCase'. --+-- A successful 'CreateCase' request returns an AWS Support case number. Case+-- numbers are used by the 'DescribeCases' operation to retrieve existing AWS+-- Support cases.+-- -- <http://docs.aws.amazon.com/awssupport/latest/APIReference/API_CreateCase.html> module Network.AWS.Support.CreateCase     (@@ -167,6 +169,11 @@  -- | The code for the severity level returned by the call to 'DescribeSeverityLevels' -- .+--+-- The availability of severity levels depends on each customer's support+-- subscription. In other words, your subscription may not necessarily require+-- the urgent level of response time.+-- ccSeverityCode :: Lens' CreateCase (Maybe Text) ccSeverityCode = lens _ccSeverityCode (\s a -> s { _ccSeverityCode = a }) 

@@ -24,7 +24,8 @@  -- | Returns a list of cases that you specify by passing one or more case IDs. In -- addition, you can filter the cases by date by setting values for the 'AfterTime'--- and 'BeforeTime' request parameters.+-- and 'BeforeTime' request parameters. You can set values for the 'IncludeResolvedCases' and 'IncludeCommunications' request parameters to control how much information+-- is returned. -- -- Case data is available for 12 months after creation. If a case was created -- more than 12 months ago, a request for data might cause an error.

@@ -27,7 +27,7 @@ -- -- The service codes and category codes correspond to the values that are -- displayed in the Service and Category drop-down lists on the AWS Support--- Center <https://aws.amazon.com/support/createCase Open a new case> page. The values in those fields, however, do not+-- Center <https://console.aws.amazon.com/support/home#/case/create Create Case> page. The values in those fields, however, do not -- necessarily match the service codes and categories returned by the 'DescribeServices' request. Always use the service codes and categories obtained -- programmatically. This practice ensures that you always have the most recent -- set of service and category codes.

@@ -25,7 +25,7 @@ -- | Requests a refresh of the Trusted Advisor check that has the specified check -- ID. Check IDs can be obtained by calling 'DescribeTrustedAdvisorChecks'. ----- The response contains a 'RefreshTrustedAdvisorCheckResult' object, which+-- The response contains a 'TrustedAdvisorCheckRefreshStatus' object, which -- contains these fields: -- -- Status. The refresh status of the check: "none", "enqueued", "processing",

@@ -7,6 +7,7 @@ {-# LANGUAGE OverloadedStrings           #-} {-# LANGUAGE RecordWildCards             #-} {-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE ViewPatterns                #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-} @@ -156,8 +157,6 @@     , tacrsStatus     ) where -import Data.Char (isUpper)-import Network.AWS.Error import Network.AWS.Prelude import Network.AWS.Signing import qualified GHC.Exts@@ -169,15 +168,39 @@     type Sg Support = V4     type Er Support = JSONError -    service = Service-        { _svcAbbrev       = "Support"-        , _svcPrefix       = "support"-        , _svcVersion      = "2013-04-15"-        , _svcTargetPrefix = Just "AWSSupport_20130415"-        , _svcJSONVersion  = Just "1.1"-        }+    service = service'+      where+        service' :: Service Support+        service' = Service+            { _svcAbbrev       = "Support"+            , _svcPrefix       = "support"+            , _svcVersion      = "2013-04-15"+            , _svcTargetPrefix = Just "AWSSupport_20130415"+            , _svcJSONVersion  = Just "1.1"+            , _svcHandle       = handle+            , _svcRetry        = retry+            } -    handle = jsonError statusSuccess+        handle :: Status+               -> Maybe (LazyByteString -> ServiceError JSONError)+        handle = jsonError statusSuccess service'++        retry :: Retry Support+        retry = Exponential+            { _retryBase     = 0.05+            , _retryGrowth   = 2+            , _retryAttempts = 5+            , _retryCheck    = check+            }++        check :: Status+              -> JSONError+              -> Bool+        check (statusCode -> s) (awsErrorCode -> e)+            | s == 500  = True -- General Server Error+            | s == 509  = True -- Limit Exceeded+            | s == 503  = True -- Service Unavailable+            | otherwise = False  data TrustedAdvisorResourcesSummary = TrustedAdvisorResourcesSummary     { _tarsResourcesFlagged    :: Integer