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: 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 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 @@ -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 web form. +-- This operation implements a subset of the features of the AWS Support Center. -- -- module Network.AWS.Support.AddCommunicationToCase 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 @@ -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 page. Its parameters +-- the behavior of the AWS Support Center 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 page. CommunicationBody. The Description --- field on the AWS Support Center 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 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 . 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 page. CommunicationBody. The Description field on +-- the AWS Support Center 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 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 . 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. +-- -- 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 }) 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 @@ -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. 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 @@ -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 page. The values in those fields, however, do not +-- Center 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. 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 @@ -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", 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 @@ -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