amazonka-support 1.6.1 → 2.0

raw patch · 77 files changed

+7422/−4567 lines, 77 filesdep +case-insensitivedep ~amazonka-coredep ~amazonka-testdep ~basesetup-changedPVP ok

version bump matches the API change (PVP)

Dependencies added: case-insensitive

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

API changes (from Hackage documentation)

Files

• README.md +3/−4
• Setup.hs +0/−2
• amazonka-support.cabal +102/−88
• fixture/AddAttachmentsToSet.yaml +10/−0
• fixture/AddCommunicationToCase.yaml +10/−0
• fixture/CreateCase.yaml +10/−0
• fixture/DescribeAttachment.yaml +10/−0
• fixture/DescribeCases.yaml +10/−0
• fixture/DescribeCommunications.yaml +10/−0
• fixture/DescribeServices.yaml +10/−0
• fixture/DescribeSeverityLevels.yaml +10/−0
• fixture/DescribeTrustedAdvisorCheckRefreshStatuses.yaml +10/−0
• fixture/DescribeTrustedAdvisorCheckResult.yaml +10/−0
• fixture/DescribeTrustedAdvisorCheckSummaries.yaml +10/−0
• fixture/DescribeTrustedAdvisorChecks.yaml +10/−0
• fixture/RefreshTrustedAdvisorCheck.yaml +10/−0
• fixture/ResolveCase.yaml +10/−0
• gen/Amazonka/Support.hs +300/−0
• gen/Amazonka/Support/AddAttachmentsToSet.hs +254/−0
• gen/Amazonka/Support/AddCommunicationToCase.hs +246/−0
• gen/Amazonka/Support/CreateCase.hs +407/−0
• gen/Amazonka/Support/DescribeAttachment.hs +204/−0
• gen/Amazonka/Support/DescribeCases.hs +372/−0
• gen/Amazonka/Support/DescribeCommunications.hs +303/−0
• gen/Amazonka/Support/DescribeServices.hs +222/−0
• gen/Amazonka/Support/DescribeSeverityLevels.hs +199/−0
• gen/Amazonka/Support/DescribeTrustedAdvisorCheckRefreshStatuses.hs +237/−0
• gen/Amazonka/Support/DescribeTrustedAdvisorCheckResult.hs +333/−0
• gen/Amazonka/Support/DescribeTrustedAdvisorCheckSummaries.hs +220/−0
• gen/Amazonka/Support/DescribeTrustedAdvisorChecks.hs +284/−0
• gen/Amazonka/Support/Lens.hs +244/−0
• gen/Amazonka/Support/RefreshTrustedAdvisorCheck.hs +216/−0
• gen/Amazonka/Support/ResolveCase.hs +194/−0
• gen/Amazonka/Support/Types.hs +315/−0
• gen/Amazonka/Support/Types/Attachment.hs +102/−0
• gen/Amazonka/Support/Types/AttachmentDetails.hs +86/−0
• gen/Amazonka/Support/Types/CaseDetails.hs +342/−0
• gen/Amazonka/Support/Types/Category.hs +85/−0
• gen/Amazonka/Support/Types/Communication.hs +145/−0
• gen/Amazonka/Support/Types/RecentCaseCommunications.hs +86/−0
• gen/Amazonka/Support/Types/SeverityLevel.hs +156/−0
• gen/Amazonka/Support/Types/SupportService.hs +116/−0
• gen/Amazonka/Support/Types/TrustedAdvisorCategorySpecificSummary.hs +88/−0
• gen/Amazonka/Support/Types/TrustedAdvisorCheckDescription.hs +155/−0
• gen/Amazonka/Support/Types/TrustedAdvisorCheckRefreshStatus.hs +163/−0
• gen/Amazonka/Support/Types/TrustedAdvisorCheckResult.hs +160/−0
• gen/Amazonka/Support/Types/TrustedAdvisorCheckSummary.hs +157/−0
• gen/Amazonka/Support/Types/TrustedAdvisorCostOptimizingSummary.hs +110/−0
• gen/Amazonka/Support/Types/TrustedAdvisorResourceDetail.hs +153/−0
• gen/Amazonka/Support/Types/TrustedAdvisorResourcesSummary.hs +142/−0
• gen/Amazonka/Support/Waiters.hs +24/−0
• gen/Network/AWS/Support.hs +0/−305
• gen/Network/AWS/Support/AddAttachmentsToSet.hs +0/−166
• gen/Network/AWS/Support/AddCommunicationToCase.hs +0/−180
• gen/Network/AWS/Support/CreateCase.hs +0/−246
• gen/Network/AWS/Support/DescribeAttachment.hs +0/−139
• gen/Network/AWS/Support/DescribeCases.hs +0/−256
• gen/Network/AWS/Support/DescribeCommunications.hs +0/−212
• gen/Network/AWS/Support/DescribeServices.hs +0/−153
• gen/Network/AWS/Support/DescribeSeverityLevels.hs +0/−141
• gen/Network/AWS/Support/DescribeTrustedAdvisorCheckRefreshStatuses.hs +0/−160
• gen/Network/AWS/Support/DescribeTrustedAdvisorCheckResult.hs +0/−182
• gen/Network/AWS/Support/DescribeTrustedAdvisorCheckSummaries.hs +0/−156
• gen/Network/AWS/Support/DescribeTrustedAdvisorChecks.hs +0/−144
• gen/Network/AWS/Support/RefreshTrustedAdvisorCheck.hs +0/−154
• gen/Network/AWS/Support/ResolveCase.hs +0/−150
• gen/Network/AWS/Support/Types.hs +0/−265
• gen/Network/AWS/Support/Types/Product.hs +0/−1081
• gen/Network/AWS/Support/Types/Sum.hs +0/−20
• gen/Network/AWS/Support/Waiters.hs +0/−21
• test/Main.hs +11/−9
• test/Test/AWS/Gen/Support.hs +0/−291
• test/Test/AWS/Support.hs +0/−26
• test/Test/AWS/Support/Internal.hs +0/−16
• test/Test/Amazonka/Gen/Support.hs +318/−0
• test/Test/Amazonka/Support.hs +20/−0
• test/Test/Amazonka/Support/Internal.hs +8/−0

@@ -7,9 +7,8 @@   ## Version--`1.6.1`-+ +`2.0` - Derived from API version @2013-04-15@ of the AWS service descriptions, licensed under Apache 2.0.  ## Description @@ -26,7 +25,7 @@ The provided lenses should be compatible with any of the major lens libraries [lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core). -See [Network.AWS.Support](http://hackage.haskell.org/package/amazonka-support/docs/Network-AWS-Support.html)+See [Amazonka.Support](http://hackage.haskell.org/package/amazonka-support/docs/Amazonka-Support.html) or [the AWS documentation](https://aws.amazon.com/documentation/) to get started.  

@@ -1,2 +0,0 @@-import           Distribution.Simple-main = defaultMain

@@ -1,99 +1,113 @@-name:                  amazonka-support-version:               1.6.1-synopsis:              Amazon Support SDK.-homepage:              https://github.com/brendanhay/amazonka-bug-reports:           https://github.com/brendanhay/amazonka/issues-license:               MPL-2.0-license-file:          LICENSE-author:                Brendan Hay-maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2018 Brendan Hay-category:              Network, AWS, Cloud, Distributed Computing-build-type:            Simple-cabal-version:         >= 1.10-extra-source-files:    README.md fixture/*.yaml fixture/*.proto src/.gitkeep+cabal-version:      2.2+name:               amazonka-support+version:            2.0+synopsis:           Amazon Support SDK.+homepage:           https://github.com/brendanhay/amazonka+bug-reports:        https://github.com/brendanhay/amazonka/issues+license:            MPL-2.0+license-file:       LICENSE+author:             Brendan Hay+maintainer:+  Brendan Hay <brendan.g.hay+amazonka@gmail.com>, Jack Kelly <jack@jackkelly.name>++copyright:          Copyright (c) 2013-2023 Brendan Hay+category:           AWS+build-type:         Simple+extra-source-files:+  fixture/*.proto+  fixture/*.yaml+  README.md+  src/.gitkeep+ description:-    The types from this library are intended to be used with-    <http://hackage.haskell.org/package/amazonka amazonka>, which provides-    mechanisms for specifying AuthN/AuthZ information, sending requests,-    and receiving responses.-    .-    Lenses are used for constructing and manipulating types,-    due to the depth of nesting of AWS types and transparency regarding-    de/serialisation into more palatable Haskell values.-    The provided lenses should be compatible with any of the major lens libraries-    such as <http://hackage.haskell.org/package/lens lens> or-    <http://hackage.haskell.org/package/lens-family-core lens-family-core>.-    .-    See "Network.AWS.Support" or <https://aws.amazon.com/documentation/ the AWS documentation>-    to get started.+  Derived from API version @2013-04-15@ of the AWS service descriptions, licensed under Apache 2.0.+  .+  The types from this library are intended to be used with <http://hackage.haskell.org/package/amazonka amazonka>,+  which provides mechanisms for specifying AuthN/AuthZ information, sending requests, and receiving responses.+  .+  It is recommended to use generic lenses or optics from packages such as <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify optional fields and deconstruct responses.+  .+  Generated lenses can be found in "Amazonka.Support.Lens" and are+  suitable for use with a lens package such as <http://hackage.haskell.org/package/lens lens> or <http://hackage.haskell.org/package/lens-family-core lens-family-core>.+  .+  See "Amazonka.Support" and the <https://aws.amazon.com/documentation/ AWS documentation> to get started.  source-repository head-    type:              git-    location:          git://github.com/brendanhay/amazonka.git-    subdir:            amazonka-support+  type:     git+  location: git://github.com/brendanhay/amazonka.git+  subdir:   amazonka-support  library-    default-language:  Haskell2010-    hs-source-dirs:    src gen--    ghc-options:-        -Wall-        -fwarn-incomplete-uni-patterns-        -fwarn-incomplete-record-updates-        -funbox-strict-fields--    exposed-modules:-          Network.AWS.Support-        , Network.AWS.Support.AddAttachmentsToSet-        , Network.AWS.Support.AddCommunicationToCase-        , Network.AWS.Support.CreateCase-        , Network.AWS.Support.DescribeAttachment-        , Network.AWS.Support.DescribeCases-        , Network.AWS.Support.DescribeCommunications-        , Network.AWS.Support.DescribeServices-        , Network.AWS.Support.DescribeSeverityLevels-        , Network.AWS.Support.DescribeTrustedAdvisorCheckRefreshStatuses-        , Network.AWS.Support.DescribeTrustedAdvisorCheckResult-        , Network.AWS.Support.DescribeTrustedAdvisorCheckSummaries-        , Network.AWS.Support.DescribeTrustedAdvisorChecks-        , Network.AWS.Support.RefreshTrustedAdvisorCheck-        , Network.AWS.Support.ResolveCase-        , Network.AWS.Support.Types-        , Network.AWS.Support.Waiters+  default-language: Haskell2010+  hs-source-dirs:   src gen+  ghc-options:+    -Wall -fwarn-incomplete-uni-patterns+    -fwarn-incomplete-record-updates -funbox-strict-fields -    other-modules:-          Network.AWS.Support.Types.Product-        , Network.AWS.Support.Types.Sum+  exposed-modules:+    Amazonka.Support+    Amazonka.Support.AddAttachmentsToSet+    Amazonka.Support.AddCommunicationToCase+    Amazonka.Support.CreateCase+    Amazonka.Support.DescribeAttachment+    Amazonka.Support.DescribeCases+    Amazonka.Support.DescribeCommunications+    Amazonka.Support.DescribeServices+    Amazonka.Support.DescribeSeverityLevels+    Amazonka.Support.DescribeTrustedAdvisorCheckRefreshStatuses+    Amazonka.Support.DescribeTrustedAdvisorCheckResult+    Amazonka.Support.DescribeTrustedAdvisorChecks+    Amazonka.Support.DescribeTrustedAdvisorCheckSummaries+    Amazonka.Support.Lens+    Amazonka.Support.RefreshTrustedAdvisorCheck+    Amazonka.Support.ResolveCase+    Amazonka.Support.Types+    Amazonka.Support.Types.Attachment+    Amazonka.Support.Types.AttachmentDetails+    Amazonka.Support.Types.CaseDetails+    Amazonka.Support.Types.Category+    Amazonka.Support.Types.Communication+    Amazonka.Support.Types.RecentCaseCommunications+    Amazonka.Support.Types.SeverityLevel+    Amazonka.Support.Types.SupportService+    Amazonka.Support.Types.TrustedAdvisorCategorySpecificSummary+    Amazonka.Support.Types.TrustedAdvisorCheckDescription+    Amazonka.Support.Types.TrustedAdvisorCheckRefreshStatus+    Amazonka.Support.Types.TrustedAdvisorCheckResult+    Amazonka.Support.Types.TrustedAdvisorCheckSummary+    Amazonka.Support.Types.TrustedAdvisorCostOptimizingSummary+    Amazonka.Support.Types.TrustedAdvisorResourceDetail+    Amazonka.Support.Types.TrustedAdvisorResourcesSummary+    Amazonka.Support.Waiters -    build-depends:-          amazonka-core == 1.6.1.*-        , base          >= 4.7     && < 5+  build-depends:+    , amazonka-core  >=2.0  && <2.1+    , base           >=4.12 && <5  test-suite amazonka-support-test-    type:              exitcode-stdio-1.0-    default-language:  Haskell2010-    hs-source-dirs:    test-    main-is:           Main.hs--    ghc-options:       -Wall -threaded+  type:             exitcode-stdio-1.0+  default-language: Haskell2010+  hs-source-dirs:   test+  main-is:          Main.hs+  ghc-options:      -Wall -threaded -    -- This section is encoded by the template and any modules added by-    -- hand outside these namespaces will not correctly be added to the-    -- distribution package.-    other-modules:-          Test.AWS.Support-        , Test.AWS.Gen.Support-        , Test.AWS.Support.Internal+  -- This section is encoded by the template and any modules added by+  -- hand outside these namespaces will not correctly be added to the+  -- distribution package.+  other-modules:+    Test.Amazonka.Gen.Support+    Test.Amazonka.Support+    Test.Amazonka.Support.Internal -    build-depends:-          amazonka-core == 1.6.1.*-        , amazonka-test == 1.6.1.*-        , amazonka-support-        , base-        , bytestring-        , tasty-        , tasty-hunit-        , text-        , time-        , unordered-containers+  build-depends:+    , amazonka-core         >=2.0 && <2.1+    , amazonka-support+    , amazonka-test         >=2.0 && <2.1+    , base+    , bytestring+    , case-insensitive+    , tasty+    , tasty-hunit+    , text+    , time+    , unordered-containers

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/support/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  support.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/support/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  support.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/support/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  support.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/support/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  support.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/support/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  support.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/support/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  support.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/support/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  support.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/support/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  support.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/support/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  support.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/support/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  support.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/support/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  support.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/support/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  support.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/support/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  support.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/support/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  support.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,300 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.Support+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Derived from API version @2013-04-15@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- Amazon Web Services Support+--+-- The /Amazon Web Services Support API Reference/ is intended for+-- programmers who need detailed information about the Amazon Web Services+-- Support operations and data types. You can use the API to manage your+-- support cases programmatically. The Amazon Web Services Support API uses+-- HTTP methods that return results in JSON format.+--+-- -   You must have a Business, Enterprise On-Ramp, or Enterprise Support+--     plan to use the Amazon Web Services Support API.+--+-- -   If you call the Amazon Web Services Support API from an account that+--     doesn\'t have a Business, Enterprise On-Ramp, or Enterprise Support+--     plan, the @SubscriptionRequiredException@ error message appears. For+--     information about changing your support plan, see+--     <http://aws.amazon.com/premiumsupport/ Amazon Web Services Support>.+--+-- You can also use the Amazon Web Services Support API to access features+-- for+-- <http://aws.amazon.com/premiumsupport/trustedadvisor/ Trusted Advisor>.+-- You can return a list of checks and their descriptions, get check+-- results, specify checks to refresh, and get the refresh status of+-- checks.+--+-- You can manage your support cases with the following Amazon Web Services+-- Support API operations:+--+-- -   The CreateCase, DescribeCases, DescribeAttachment, and ResolveCase+--     operations create Amazon Web Services Support cases, retrieve+--     information about cases, and resolve cases.+--+-- -   The DescribeCommunications, AddCommunicationToCase, and+--     AddAttachmentsToSet operations retrieve and add communications and+--     attachments to Amazon Web Services Support cases.+--+-- -   The DescribeServices and DescribeSeverityLevels operations return+--     Amazon Web Service names, service codes, service categories, and+--     problem severity levels. You use these values when you call the+--     CreateCase operation.+--+-- You can also use the Amazon Web Services Support API to call the Trusted+-- Advisor operations. For more information, see+-- <https://docs.aws.amazon.com/ Trusted Advisor> in the /Amazon Web+-- Services Support User Guide/.+--+-- For authentication of requests, Amazon Web Services Support uses+-- <https://docs.aws.amazon.com/general/latest/gr/signature-version-4.html Signature Version 4 Signing Process>.+--+-- For more information about this service and the endpoints to use, see+-- <https://docs.aws.amazon.com/awssupport/latest/user/about-support-api.html About the Amazon Web Services Support API>+-- in the /Amazon Web Services Support User Guide/.+module Amazonka.Support+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** AttachmentIdNotFound+    _AttachmentIdNotFound,++    -- ** AttachmentLimitExceeded+    _AttachmentLimitExceeded,++    -- ** AttachmentSetExpired+    _AttachmentSetExpired,++    -- ** AttachmentSetIdNotFound+    _AttachmentSetIdNotFound,++    -- ** AttachmentSetSizeLimitExceeded+    _AttachmentSetSizeLimitExceeded,++    -- ** CaseCreationLimitExceeded+    _CaseCreationLimitExceeded,++    -- ** CaseIdNotFound+    _CaseIdNotFound,++    -- ** DescribeAttachmentLimitExceeded+    _DescribeAttachmentLimitExceeded,++    -- ** InternalServerError+    _InternalServerError,++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** AddAttachmentsToSet+    AddAttachmentsToSet (AddAttachmentsToSet'),+    newAddAttachmentsToSet,+    AddAttachmentsToSetResponse (AddAttachmentsToSetResponse'),+    newAddAttachmentsToSetResponse,++    -- ** AddCommunicationToCase+    AddCommunicationToCase (AddCommunicationToCase'),+    newAddCommunicationToCase,+    AddCommunicationToCaseResponse (AddCommunicationToCaseResponse'),+    newAddCommunicationToCaseResponse,++    -- ** CreateCase+    CreateCase (CreateCase'),+    newCreateCase,+    CreateCaseResponse (CreateCaseResponse'),+    newCreateCaseResponse,++    -- ** DescribeAttachment+    DescribeAttachment (DescribeAttachment'),+    newDescribeAttachment,+    DescribeAttachmentResponse (DescribeAttachmentResponse'),+    newDescribeAttachmentResponse,++    -- ** DescribeCases (Paginated)+    DescribeCases (DescribeCases'),+    newDescribeCases,+    DescribeCasesResponse (DescribeCasesResponse'),+    newDescribeCasesResponse,++    -- ** DescribeCommunications (Paginated)+    DescribeCommunications (DescribeCommunications'),+    newDescribeCommunications,+    DescribeCommunicationsResponse (DescribeCommunicationsResponse'),+    newDescribeCommunicationsResponse,++    -- ** DescribeServices+    DescribeServices (DescribeServices'),+    newDescribeServices,+    DescribeServicesResponse (DescribeServicesResponse'),+    newDescribeServicesResponse,++    -- ** DescribeSeverityLevels+    DescribeSeverityLevels (DescribeSeverityLevels'),+    newDescribeSeverityLevels,+    DescribeSeverityLevelsResponse (DescribeSeverityLevelsResponse'),+    newDescribeSeverityLevelsResponse,++    -- ** DescribeTrustedAdvisorCheckRefreshStatuses+    DescribeTrustedAdvisorCheckRefreshStatuses (DescribeTrustedAdvisorCheckRefreshStatuses'),+    newDescribeTrustedAdvisorCheckRefreshStatuses,+    DescribeTrustedAdvisorCheckRefreshStatusesResponse (DescribeTrustedAdvisorCheckRefreshStatusesResponse'),+    newDescribeTrustedAdvisorCheckRefreshStatusesResponse,++    -- ** DescribeTrustedAdvisorCheckResult+    DescribeTrustedAdvisorCheckResult (DescribeTrustedAdvisorCheckResult'),+    newDescribeTrustedAdvisorCheckResult,+    DescribeTrustedAdvisorCheckResultResponse (DescribeTrustedAdvisorCheckResultResponse'),+    newDescribeTrustedAdvisorCheckResultResponse,++    -- ** DescribeTrustedAdvisorCheckSummaries+    DescribeTrustedAdvisorCheckSummaries (DescribeTrustedAdvisorCheckSummaries'),+    newDescribeTrustedAdvisorCheckSummaries,+    DescribeTrustedAdvisorCheckSummariesResponse (DescribeTrustedAdvisorCheckSummariesResponse'),+    newDescribeTrustedAdvisorCheckSummariesResponse,++    -- ** DescribeTrustedAdvisorChecks+    DescribeTrustedAdvisorChecks (DescribeTrustedAdvisorChecks'),+    newDescribeTrustedAdvisorChecks,+    DescribeTrustedAdvisorChecksResponse (DescribeTrustedAdvisorChecksResponse'),+    newDescribeTrustedAdvisorChecksResponse,++    -- ** RefreshTrustedAdvisorCheck+    RefreshTrustedAdvisorCheck (RefreshTrustedAdvisorCheck'),+    newRefreshTrustedAdvisorCheck,+    RefreshTrustedAdvisorCheckResponse (RefreshTrustedAdvisorCheckResponse'),+    newRefreshTrustedAdvisorCheckResponse,++    -- ** ResolveCase+    ResolveCase (ResolveCase'),+    newResolveCase,+    ResolveCaseResponse (ResolveCaseResponse'),+    newResolveCaseResponse,++    -- * Types++    -- ** Attachment+    Attachment (Attachment'),+    newAttachment,++    -- ** AttachmentDetails+    AttachmentDetails (AttachmentDetails'),+    newAttachmentDetails,++    -- ** CaseDetails+    CaseDetails (CaseDetails'),+    newCaseDetails,++    -- ** Category+    Category (Category'),+    newCategory,++    -- ** Communication+    Communication (Communication'),+    newCommunication,++    -- ** RecentCaseCommunications+    RecentCaseCommunications (RecentCaseCommunications'),+    newRecentCaseCommunications,++    -- ** SeverityLevel+    SeverityLevel (SeverityLevel'),+    newSeverityLevel,++    -- ** SupportService+    SupportService (SupportService'),+    newSupportService,++    -- ** TrustedAdvisorCategorySpecificSummary+    TrustedAdvisorCategorySpecificSummary (TrustedAdvisorCategorySpecificSummary'),+    newTrustedAdvisorCategorySpecificSummary,++    -- ** TrustedAdvisorCheckDescription+    TrustedAdvisorCheckDescription (TrustedAdvisorCheckDescription'),+    newTrustedAdvisorCheckDescription,++    -- ** TrustedAdvisorCheckRefreshStatus+    TrustedAdvisorCheckRefreshStatus (TrustedAdvisorCheckRefreshStatus'),+    newTrustedAdvisorCheckRefreshStatus,++    -- ** TrustedAdvisorCheckResult+    TrustedAdvisorCheckResult (TrustedAdvisorCheckResult'),+    newTrustedAdvisorCheckResult,++    -- ** TrustedAdvisorCheckSummary+    TrustedAdvisorCheckSummary (TrustedAdvisorCheckSummary'),+    newTrustedAdvisorCheckSummary,++    -- ** TrustedAdvisorCostOptimizingSummary+    TrustedAdvisorCostOptimizingSummary (TrustedAdvisorCostOptimizingSummary'),+    newTrustedAdvisorCostOptimizingSummary,++    -- ** TrustedAdvisorResourceDetail+    TrustedAdvisorResourceDetail (TrustedAdvisorResourceDetail'),+    newTrustedAdvisorResourceDetail,++    -- ** TrustedAdvisorResourcesSummary+    TrustedAdvisorResourcesSummary (TrustedAdvisorResourcesSummary'),+    newTrustedAdvisorResourcesSummary,+  )+where++import Amazonka.Support.AddAttachmentsToSet+import Amazonka.Support.AddCommunicationToCase+import Amazonka.Support.CreateCase+import Amazonka.Support.DescribeAttachment+import Amazonka.Support.DescribeCases+import Amazonka.Support.DescribeCommunications+import Amazonka.Support.DescribeServices+import Amazonka.Support.DescribeSeverityLevels+import Amazonka.Support.DescribeTrustedAdvisorCheckRefreshStatuses+import Amazonka.Support.DescribeTrustedAdvisorCheckResult+import Amazonka.Support.DescribeTrustedAdvisorCheckSummaries+import Amazonka.Support.DescribeTrustedAdvisorChecks+import Amazonka.Support.Lens+import Amazonka.Support.RefreshTrustedAdvisorCheck+import Amazonka.Support.ResolveCase+import Amazonka.Support.Types+import Amazonka.Support.Waiters++-- $errors+-- Error matchers are designed for use with the functions provided by+-- <http://hackage.haskell.org/package/lens/docs/Control-Exception-Lens.html Control.Exception.Lens>.+-- This allows catching (and rethrowing) service specific errors returned+-- by 'Support'.++-- $operations+-- Some AWS operations return results that are incomplete and require subsequent+-- requests in order to obtain the entire result set. The process of sending+-- subsequent requests to continue where a previous request left off is called+-- pagination. For example, the 'ListObjects' operation of Amazon S3 returns up to+-- 1000 objects at a time, and you must send subsequent requests with the+-- appropriate Marker in order to retrieve the next page of results.+--+-- Operations that have an 'AWSPager' instance can transparently perform subsequent+-- requests, correctly setting Markers and other request facets to iterate through+-- the entire result set of a truncated API operation. Operations which support+-- this have an additional note in the documentation.+--+-- Many operations have the ability to filter results on the server side. See the+-- individual operation parameters for details.++-- $waiters+-- Waiters poll by repeatedly sending a request until some remote success condition+-- configured by the 'Wait' specification is fulfilled. The 'Wait' specification+-- determines how many attempts should be made, in addition to delay and retry strategies.

@@ -0,0 +1,254 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Support.AddAttachmentsToSet+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Adds one or more attachments to an attachment set.+--+-- An attachment set is a temporary container for attachments that you add+-- to a case or case communication. The set is available for 1 hour after+-- it\'s created. The @expiryTime@ returned in the response is when the set+-- expires.+--+-- -   You must have a Business, Enterprise On-Ramp, or Enterprise Support+--     plan to use the Amazon Web Services Support API.+--+-- -   If you call the Amazon Web Services Support API from an account that+--     doesn\'t have a Business, Enterprise On-Ramp, or Enterprise Support+--     plan, the @SubscriptionRequiredException@ error message appears. For+--     information about changing your support plan, see+--     <http://aws.amazon.com/premiumsupport/ Amazon Web Services Support>.+module Amazonka.Support.AddAttachmentsToSet+  ( -- * Creating a Request+    AddAttachmentsToSet (..),+    newAddAttachmentsToSet,++    -- * Request Lenses+    addAttachmentsToSet_attachmentSetId,+    addAttachmentsToSet_attachments,++    -- * Destructuring the Response+    AddAttachmentsToSetResponse (..),+    newAddAttachmentsToSetResponse,++    -- * Response Lenses+    addAttachmentsToSetResponse_attachmentSetId,+    addAttachmentsToSetResponse_expiryTime,+    addAttachmentsToSetResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Support.Types++-- | /See:/ 'newAddAttachmentsToSet' smart constructor.+data AddAttachmentsToSet = AddAttachmentsToSet'+  { -- | The ID of the attachment set. If an @attachmentSetId@ is not specified,+    -- a new attachment set is created, and the ID of the set is returned in+    -- the response. If an @attachmentSetId@ is specified, the attachments are+    -- added to the specified set, if it exists.+    attachmentSetId :: Prelude.Maybe Prelude.Text,+    -- | One or more attachments to add to the set. You can add up to three+    -- attachments per set. The size limit is 5 MB per attachment.+    --+    -- In the @Attachment@ object, use the @data@ parameter to specify the+    -- contents of the attachment file. In the previous request syntax, the+    -- value for @data@ appear as @blob@, which is represented as a+    -- base64-encoded string. The value for @fileName@ is the name of the+    -- attachment, such as @troubleshoot-screenshot.png@.+    attachments :: [Attachment]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AddAttachmentsToSet' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'attachmentSetId', 'addAttachmentsToSet_attachmentSetId' - The ID of the attachment set. If an @attachmentSetId@ is not specified,+-- a new attachment set is created, and the ID of the set is returned in+-- the response. If an @attachmentSetId@ is specified, the attachments are+-- added to the specified set, if it exists.+--+-- 'attachments', 'addAttachmentsToSet_attachments' - One or more attachments to add to the set. You can add up to three+-- attachments per set. The size limit is 5 MB per attachment.+--+-- In the @Attachment@ object, use the @data@ parameter to specify the+-- contents of the attachment file. In the previous request syntax, the+-- value for @data@ appear as @blob@, which is represented as a+-- base64-encoded string. The value for @fileName@ is the name of the+-- attachment, such as @troubleshoot-screenshot.png@.+newAddAttachmentsToSet ::+  AddAttachmentsToSet+newAddAttachmentsToSet =+  AddAttachmentsToSet'+    { attachmentSetId =+        Prelude.Nothing,+      attachments = Prelude.mempty+    }++-- | The ID of the attachment set. If an @attachmentSetId@ is not specified,+-- a new attachment set is created, and the ID of the set is returned in+-- the response. If an @attachmentSetId@ is specified, the attachments are+-- added to the specified set, if it exists.+addAttachmentsToSet_attachmentSetId :: Lens.Lens' AddAttachmentsToSet (Prelude.Maybe Prelude.Text)+addAttachmentsToSet_attachmentSetId = Lens.lens (\AddAttachmentsToSet' {attachmentSetId} -> attachmentSetId) (\s@AddAttachmentsToSet' {} a -> s {attachmentSetId = a} :: AddAttachmentsToSet)++-- | One or more attachments to add to the set. You can add up to three+-- attachments per set. The size limit is 5 MB per attachment.+--+-- In the @Attachment@ object, use the @data@ parameter to specify the+-- contents of the attachment file. In the previous request syntax, the+-- value for @data@ appear as @blob@, which is represented as a+-- base64-encoded string. The value for @fileName@ is the name of the+-- attachment, such as @troubleshoot-screenshot.png@.+addAttachmentsToSet_attachments :: Lens.Lens' AddAttachmentsToSet [Attachment]+addAttachmentsToSet_attachments = Lens.lens (\AddAttachmentsToSet' {attachments} -> attachments) (\s@AddAttachmentsToSet' {} a -> s {attachments = a} :: AddAttachmentsToSet) Prelude.. Lens.coerced++instance Core.AWSRequest AddAttachmentsToSet where+  type+    AWSResponse AddAttachmentsToSet =+      AddAttachmentsToSetResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          AddAttachmentsToSetResponse'+            Prelude.<$> (x Data..?> "attachmentSetId")+            Prelude.<*> (x Data..?> "expiryTime")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable AddAttachmentsToSet where+  hashWithSalt _salt AddAttachmentsToSet' {..} =+    _salt+      `Prelude.hashWithSalt` attachmentSetId+      `Prelude.hashWithSalt` attachments++instance Prelude.NFData AddAttachmentsToSet where+  rnf AddAttachmentsToSet' {..} =+    Prelude.rnf attachmentSetId+      `Prelude.seq` Prelude.rnf attachments++instance Data.ToHeaders AddAttachmentsToSet where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSSupport_20130415.AddAttachmentsToSet" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON AddAttachmentsToSet where+  toJSON AddAttachmentsToSet' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("attachmentSetId" Data..=)+              Prelude.<$> attachmentSetId,+            Prelude.Just ("attachments" Data..= attachments)+          ]+      )++instance Data.ToPath AddAttachmentsToSet where+  toPath = Prelude.const "/"++instance Data.ToQuery AddAttachmentsToSet where+  toQuery = Prelude.const Prelude.mempty++-- | The ID and expiry time of the attachment set returned by the+-- AddAttachmentsToSet operation.+--+-- /See:/ 'newAddAttachmentsToSetResponse' smart constructor.+data AddAttachmentsToSetResponse = AddAttachmentsToSetResponse'+  { -- | The ID of the attachment set. If an @attachmentSetId@ was not specified,+    -- a new attachment set is created, and the ID of the set is returned in+    -- the response. If an @attachmentSetId@ was specified, the attachments are+    -- added to the specified set, if it exists.+    attachmentSetId :: Prelude.Maybe Prelude.Text,+    -- | The time and date when the attachment set expires.+    expiryTime :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AddAttachmentsToSetResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'attachmentSetId', 'addAttachmentsToSetResponse_attachmentSetId' - The ID of the attachment set. If an @attachmentSetId@ was not specified,+-- a new attachment set is created, and the ID of the set is returned in+-- the response. If an @attachmentSetId@ was specified, the attachments are+-- added to the specified set, if it exists.+--+-- 'expiryTime', 'addAttachmentsToSetResponse_expiryTime' - The time and date when the attachment set expires.+--+-- 'httpStatus', 'addAttachmentsToSetResponse_httpStatus' - The response's http status code.+newAddAttachmentsToSetResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  AddAttachmentsToSetResponse+newAddAttachmentsToSetResponse pHttpStatus_ =+  AddAttachmentsToSetResponse'+    { attachmentSetId =+        Prelude.Nothing,+      expiryTime = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The ID of the attachment set. If an @attachmentSetId@ was not specified,+-- a new attachment set is created, and the ID of the set is returned in+-- the response. If an @attachmentSetId@ was specified, the attachments are+-- added to the specified set, if it exists.+addAttachmentsToSetResponse_attachmentSetId :: Lens.Lens' AddAttachmentsToSetResponse (Prelude.Maybe Prelude.Text)+addAttachmentsToSetResponse_attachmentSetId = Lens.lens (\AddAttachmentsToSetResponse' {attachmentSetId} -> attachmentSetId) (\s@AddAttachmentsToSetResponse' {} a -> s {attachmentSetId = a} :: AddAttachmentsToSetResponse)++-- | The time and date when the attachment set expires.+addAttachmentsToSetResponse_expiryTime :: Lens.Lens' AddAttachmentsToSetResponse (Prelude.Maybe Prelude.Text)+addAttachmentsToSetResponse_expiryTime = Lens.lens (\AddAttachmentsToSetResponse' {expiryTime} -> expiryTime) (\s@AddAttachmentsToSetResponse' {} a -> s {expiryTime = a} :: AddAttachmentsToSetResponse)++-- | The response's http status code.+addAttachmentsToSetResponse_httpStatus :: Lens.Lens' AddAttachmentsToSetResponse Prelude.Int+addAttachmentsToSetResponse_httpStatus = Lens.lens (\AddAttachmentsToSetResponse' {httpStatus} -> httpStatus) (\s@AddAttachmentsToSetResponse' {} a -> s {httpStatus = a} :: AddAttachmentsToSetResponse)++instance Prelude.NFData AddAttachmentsToSetResponse where+  rnf AddAttachmentsToSetResponse' {..} =+    Prelude.rnf attachmentSetId+      `Prelude.seq` Prelude.rnf expiryTime+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,246 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Support.AddCommunicationToCase+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Adds additional customer communication to an Amazon Web Services Support+-- case. Use the @caseId@ parameter to identify the case to which to add+-- communication. You can list a set of email addresses to copy on the+-- communication by using the @ccEmailAddresses@ parameter. The+-- @communicationBody@ value contains the text of the communication.+--+-- -   You must have a Business, Enterprise On-Ramp, or Enterprise Support+--     plan to use the Amazon Web Services Support API.+--+-- -   If you call the Amazon Web Services Support API from an account that+--     doesn\'t have a Business, Enterprise On-Ramp, or Enterprise Support+--     plan, the @SubscriptionRequiredException@ error message appears. For+--     information about changing your support plan, see+--     <http://aws.amazon.com/premiumsupport/ Amazon Web Services Support>.+module Amazonka.Support.AddCommunicationToCase+  ( -- * Creating a Request+    AddCommunicationToCase (..),+    newAddCommunicationToCase,++    -- * Request Lenses+    addCommunicationToCase_attachmentSetId,+    addCommunicationToCase_caseId,+    addCommunicationToCase_ccEmailAddresses,+    addCommunicationToCase_communicationBody,++    -- * Destructuring the Response+    AddCommunicationToCaseResponse (..),+    newAddCommunicationToCaseResponse,++    -- * Response Lenses+    addCommunicationToCaseResponse_result,+    addCommunicationToCaseResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Support.Types++-- | /See:/ 'newAddCommunicationToCase' smart constructor.+data AddCommunicationToCase = AddCommunicationToCase'+  { -- | The ID of a set of one or more attachments for the communication to add+    -- to the case. Create the set by calling AddAttachmentsToSet+    attachmentSetId :: Prelude.Maybe Prelude.Text,+    -- | The support case ID requested or returned in the call. The case ID is an+    -- alphanumeric string formatted as shown in this example:+    -- case-/12345678910-2013-c4c1d2bf33c5cf47/+    caseId :: Prelude.Maybe Prelude.Text,+    -- | The email addresses in the CC line of an email to be added to the+    -- support case.+    ccEmailAddresses :: Prelude.Maybe [Prelude.Text],+    -- | The body of an email communication to add to the support case.+    communicationBody :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AddCommunicationToCase' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'attachmentSetId', 'addCommunicationToCase_attachmentSetId' - The ID of a set of one or more attachments for the communication to add+-- to the case. Create the set by calling AddAttachmentsToSet+--+-- 'caseId', 'addCommunicationToCase_caseId' - The support case ID requested or returned in the call. The case ID is an+-- alphanumeric string formatted as shown in this example:+-- case-/12345678910-2013-c4c1d2bf33c5cf47/+--+-- 'ccEmailAddresses', 'addCommunicationToCase_ccEmailAddresses' - The email addresses in the CC line of an email to be added to the+-- support case.+--+-- 'communicationBody', 'addCommunicationToCase_communicationBody' - The body of an email communication to add to the support case.+newAddCommunicationToCase ::+  -- | 'communicationBody'+  Prelude.Text ->+  AddCommunicationToCase+newAddCommunicationToCase pCommunicationBody_ =+  AddCommunicationToCase'+    { attachmentSetId =+        Prelude.Nothing,+      caseId = Prelude.Nothing,+      ccEmailAddresses = Prelude.Nothing,+      communicationBody = pCommunicationBody_+    }++-- | The ID of a set of one or more attachments for the communication to add+-- to the case. Create the set by calling AddAttachmentsToSet+addCommunicationToCase_attachmentSetId :: Lens.Lens' AddCommunicationToCase (Prelude.Maybe Prelude.Text)+addCommunicationToCase_attachmentSetId = Lens.lens (\AddCommunicationToCase' {attachmentSetId} -> attachmentSetId) (\s@AddCommunicationToCase' {} a -> s {attachmentSetId = a} :: AddCommunicationToCase)++-- | The support case ID requested or returned in the call. The case ID is an+-- alphanumeric string formatted as shown in this example:+-- case-/12345678910-2013-c4c1d2bf33c5cf47/+addCommunicationToCase_caseId :: Lens.Lens' AddCommunicationToCase (Prelude.Maybe Prelude.Text)+addCommunicationToCase_caseId = Lens.lens (\AddCommunicationToCase' {caseId} -> caseId) (\s@AddCommunicationToCase' {} a -> s {caseId = a} :: AddCommunicationToCase)++-- | The email addresses in the CC line of an email to be added to the+-- support case.+addCommunicationToCase_ccEmailAddresses :: Lens.Lens' AddCommunicationToCase (Prelude.Maybe [Prelude.Text])+addCommunicationToCase_ccEmailAddresses = Lens.lens (\AddCommunicationToCase' {ccEmailAddresses} -> ccEmailAddresses) (\s@AddCommunicationToCase' {} a -> s {ccEmailAddresses = a} :: AddCommunicationToCase) Prelude.. Lens.mapping Lens.coerced++-- | The body of an email communication to add to the support case.+addCommunicationToCase_communicationBody :: Lens.Lens' AddCommunicationToCase Prelude.Text+addCommunicationToCase_communicationBody = Lens.lens (\AddCommunicationToCase' {communicationBody} -> communicationBody) (\s@AddCommunicationToCase' {} a -> s {communicationBody = a} :: AddCommunicationToCase)++instance Core.AWSRequest AddCommunicationToCase where+  type+    AWSResponse AddCommunicationToCase =+      AddCommunicationToCaseResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          AddCommunicationToCaseResponse'+            Prelude.<$> (x Data..?> "result")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable AddCommunicationToCase where+  hashWithSalt _salt AddCommunicationToCase' {..} =+    _salt+      `Prelude.hashWithSalt` attachmentSetId+      `Prelude.hashWithSalt` caseId+      `Prelude.hashWithSalt` ccEmailAddresses+      `Prelude.hashWithSalt` communicationBody++instance Prelude.NFData AddCommunicationToCase where+  rnf AddCommunicationToCase' {..} =+    Prelude.rnf attachmentSetId+      `Prelude.seq` Prelude.rnf caseId+      `Prelude.seq` Prelude.rnf ccEmailAddresses+      `Prelude.seq` Prelude.rnf communicationBody++instance Data.ToHeaders AddCommunicationToCase where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSSupport_20130415.AddCommunicationToCase" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON AddCommunicationToCase where+  toJSON AddCommunicationToCase' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("attachmentSetId" Data..=)+              Prelude.<$> attachmentSetId,+            ("caseId" Data..=) Prelude.<$> caseId,+            ("ccEmailAddresses" Data..=)+              Prelude.<$> ccEmailAddresses,+            Prelude.Just+              ("communicationBody" Data..= communicationBody)+          ]+      )++instance Data.ToPath AddCommunicationToCase where+  toPath = Prelude.const "/"++instance Data.ToQuery AddCommunicationToCase where+  toQuery = Prelude.const Prelude.mempty++-- | The result of the AddCommunicationToCase operation.+--+-- /See:/ 'newAddCommunicationToCaseResponse' smart constructor.+data AddCommunicationToCaseResponse = AddCommunicationToCaseResponse'+  { -- | True if AddCommunicationToCase succeeds. Otherwise, returns an error.+    result :: Prelude.Maybe Prelude.Bool,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AddCommunicationToCaseResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'result', 'addCommunicationToCaseResponse_result' - True if AddCommunicationToCase succeeds. Otherwise, returns an error.+--+-- 'httpStatus', 'addCommunicationToCaseResponse_httpStatus' - The response's http status code.+newAddCommunicationToCaseResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  AddCommunicationToCaseResponse+newAddCommunicationToCaseResponse pHttpStatus_ =+  AddCommunicationToCaseResponse'+    { result =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | True if AddCommunicationToCase succeeds. Otherwise, returns an error.+addCommunicationToCaseResponse_result :: Lens.Lens' AddCommunicationToCaseResponse (Prelude.Maybe Prelude.Bool)+addCommunicationToCaseResponse_result = Lens.lens (\AddCommunicationToCaseResponse' {result} -> result) (\s@AddCommunicationToCaseResponse' {} a -> s {result = a} :: AddCommunicationToCaseResponse)++-- | The response's http status code.+addCommunicationToCaseResponse_httpStatus :: Lens.Lens' AddCommunicationToCaseResponse Prelude.Int+addCommunicationToCaseResponse_httpStatus = Lens.lens (\AddCommunicationToCaseResponse' {httpStatus} -> httpStatus) (\s@AddCommunicationToCaseResponse' {} a -> s {httpStatus = a} :: AddCommunicationToCaseResponse)++instance+  Prelude.NFData+    AddCommunicationToCaseResponse+  where+  rnf AddCommunicationToCaseResponse' {..} =+    Prelude.rnf result+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,407 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Support.CreateCase+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a case in the Amazon Web Services Support Center. This operation+-- is similar to how you create a case in the Amazon Web Services Support+-- Center+-- <https://console.aws.amazon.com/support/home#/case/create Create Case>+-- page.+--+-- The Amazon Web Services Support API doesn\'t support requesting service+-- limit increases. You can submit a service limit increase in the+-- following ways:+--+-- -   Submit a request from the Amazon Web Services Support Center+--     <https://console.aws.amazon.com/support/home#/case/create Create Case>+--     page.+--+-- -   Use the Service Quotas+--     <https://docs.aws.amazon.com/servicequotas/2019-06-24/apireference/API_RequestServiceQuotaIncrease.html RequestServiceQuotaIncrease>+--     operation.+--+-- A successful @CreateCase@ request returns an Amazon Web Services Support+-- case number. You can use the DescribeCases operation and specify the+-- case number to get existing Amazon Web Services Support cases. After you+-- create a case, use the AddCommunicationToCase operation to add+-- additional communication or attachments to an existing case.+--+-- The @caseId@ is separate from the @displayId@ that appears in the+-- <https://console.aws.amazon.com/support Amazon Web Services Support Center>.+-- Use the DescribeCases operation to get the @displayId@.+--+-- -   You must have a Business, Enterprise On-Ramp, or Enterprise Support+--     plan to use the Amazon Web Services Support API.+--+-- -   If you call the Amazon Web Services Support API from an account that+--     doesn\'t have a Business, Enterprise On-Ramp, or Enterprise Support+--     plan, the @SubscriptionRequiredException@ error message appears. For+--     information about changing your support plan, see+--     <http://aws.amazon.com/premiumsupport/ Amazon Web Services Support>.+module Amazonka.Support.CreateCase+  ( -- * Creating a Request+    CreateCase (..),+    newCreateCase,++    -- * Request Lenses+    createCase_attachmentSetId,+    createCase_categoryCode,+    createCase_ccEmailAddresses,+    createCase_issueType,+    createCase_language,+    createCase_serviceCode,+    createCase_severityCode,+    createCase_subject,+    createCase_communicationBody,++    -- * Destructuring the Response+    CreateCaseResponse (..),+    newCreateCaseResponse,++    -- * Response Lenses+    createCaseResponse_caseId,+    createCaseResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Support.Types++-- | /See:/ 'newCreateCase' smart constructor.+data CreateCase = CreateCase'+  { -- | The ID of a set of one or more attachments for the case. Create the set+    -- by using the AddAttachmentsToSet operation.+    attachmentSetId :: Prelude.Maybe Prelude.Text,+    -- | The category of problem for the support case. You also use the+    -- DescribeServices operation to get the category code for a service. Each+    -- Amazon Web Services service defines its own set of category codes.+    categoryCode :: Prelude.Maybe Prelude.Text,+    -- | A list of email addresses that Amazon Web Services Support copies on+    -- case correspondence. Amazon Web Services Support identifies the account+    -- that creates the case when you specify your Amazon Web Services+    -- credentials in an HTTP POST method or use the+    -- <http://aws.amazon.com/tools/ Amazon Web Services SDKs>.+    ccEmailAddresses :: Prelude.Maybe [Prelude.Text],+    -- | The type of issue for the case. You can specify @customer-service@ or+    -- @technical@. If you don\'t specify a value, the default is @technical@.+    issueType :: Prelude.Maybe Prelude.Text,+    -- | The language in which Amazon Web Services Support handles the case.+    -- Amazon Web Services Support currently supports English (\"en\") and+    -- Japanese (\"ja\"). You must specify the ISO 639-1 code for the+    -- @language@ parameter if you want support in that language.+    language :: Prelude.Maybe Prelude.Text,+    -- | The code for the Amazon Web Services service. You can use the+    -- DescribeServices operation to get the possible @serviceCode@ values.+    serviceCode :: Prelude.Maybe Prelude.Text,+    -- | A value that indicates the urgency of the case. This value determines+    -- the response time according to your service level agreement with Amazon+    -- Web Services Support. You can use the DescribeSeverityLevels operation+    -- to get the possible values for @severityCode@.+    --+    -- For more information, see SeverityLevel and+    -- <https://docs.aws.amazon.com/awssupport/latest/user/getting-started.html#choosing-severity Choosing a Severity>+    -- in the /Amazon Web Services Support User Guide/.+    --+    -- The availability of severity levels depends on the support plan for the+    -- Amazon Web Services account.+    severityCode :: Prelude.Maybe Prelude.Text,+    -- | The title of the support case. The title appears in the __Subject__+    -- field on the Amazon Web Services Support Center+    -- <https://console.aws.amazon.com/support/home#/case/create Create Case>+    -- page.+    subject :: Prelude.Text,+    -- | The communication body text that describes the issue. This text appears+    -- in the __Description__ field on the Amazon Web Services Support Center+    -- <https://console.aws.amazon.com/support/home#/case/create Create Case>+    -- page.+    communicationBody :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateCase' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'attachmentSetId', 'createCase_attachmentSetId' - The ID of a set of one or more attachments for the case. Create the set+-- by using the AddAttachmentsToSet operation.+--+-- 'categoryCode', 'createCase_categoryCode' - The category of problem for the support case. You also use the+-- DescribeServices operation to get the category code for a service. Each+-- Amazon Web Services service defines its own set of category codes.+--+-- 'ccEmailAddresses', 'createCase_ccEmailAddresses' - A list of email addresses that Amazon Web Services Support copies on+-- case correspondence. Amazon Web Services Support identifies the account+-- that creates the case when you specify your Amazon Web Services+-- credentials in an HTTP POST method or use the+-- <http://aws.amazon.com/tools/ Amazon Web Services SDKs>.+--+-- 'issueType', 'createCase_issueType' - The type of issue for the case. You can specify @customer-service@ or+-- @technical@. If you don\'t specify a value, the default is @technical@.+--+-- 'language', 'createCase_language' - The language in which Amazon Web Services Support handles the case.+-- Amazon Web Services Support currently supports English (\"en\") and+-- Japanese (\"ja\"). You must specify the ISO 639-1 code for the+-- @language@ parameter if you want support in that language.+--+-- 'serviceCode', 'createCase_serviceCode' - The code for the Amazon Web Services service. You can use the+-- DescribeServices operation to get the possible @serviceCode@ values.+--+-- 'severityCode', 'createCase_severityCode' - A value that indicates the urgency of the case. This value determines+-- the response time according to your service level agreement with Amazon+-- Web Services Support. You can use the DescribeSeverityLevels operation+-- to get the possible values for @severityCode@.+--+-- For more information, see SeverityLevel and+-- <https://docs.aws.amazon.com/awssupport/latest/user/getting-started.html#choosing-severity Choosing a Severity>+-- in the /Amazon Web Services Support User Guide/.+--+-- The availability of severity levels depends on the support plan for the+-- Amazon Web Services account.+--+-- 'subject', 'createCase_subject' - The title of the support case. The title appears in the __Subject__+-- field on the Amazon Web Services Support Center+-- <https://console.aws.amazon.com/support/home#/case/create Create Case>+-- page.+--+-- 'communicationBody', 'createCase_communicationBody' - The communication body text that describes the issue. This text appears+-- in the __Description__ field on the Amazon Web Services Support Center+-- <https://console.aws.amazon.com/support/home#/case/create Create Case>+-- page.+newCreateCase ::+  -- | 'subject'+  Prelude.Text ->+  -- | 'communicationBody'+  Prelude.Text ->+  CreateCase+newCreateCase pSubject_ pCommunicationBody_ =+  CreateCase'+    { attachmentSetId = Prelude.Nothing,+      categoryCode = Prelude.Nothing,+      ccEmailAddresses = Prelude.Nothing,+      issueType = Prelude.Nothing,+      language = Prelude.Nothing,+      serviceCode = Prelude.Nothing,+      severityCode = Prelude.Nothing,+      subject = pSubject_,+      communicationBody = pCommunicationBody_+    }++-- | The ID of a set of one or more attachments for the case. Create the set+-- by using the AddAttachmentsToSet operation.+createCase_attachmentSetId :: Lens.Lens' CreateCase (Prelude.Maybe Prelude.Text)+createCase_attachmentSetId = Lens.lens (\CreateCase' {attachmentSetId} -> attachmentSetId) (\s@CreateCase' {} a -> s {attachmentSetId = a} :: CreateCase)++-- | The category of problem for the support case. You also use the+-- DescribeServices operation to get the category code for a service. Each+-- Amazon Web Services service defines its own set of category codes.+createCase_categoryCode :: Lens.Lens' CreateCase (Prelude.Maybe Prelude.Text)+createCase_categoryCode = Lens.lens (\CreateCase' {categoryCode} -> categoryCode) (\s@CreateCase' {} a -> s {categoryCode = a} :: CreateCase)++-- | A list of email addresses that Amazon Web Services Support copies on+-- case correspondence. Amazon Web Services Support identifies the account+-- that creates the case when you specify your Amazon Web Services+-- credentials in an HTTP POST method or use the+-- <http://aws.amazon.com/tools/ Amazon Web Services SDKs>.+createCase_ccEmailAddresses :: Lens.Lens' CreateCase (Prelude.Maybe [Prelude.Text])+createCase_ccEmailAddresses = Lens.lens (\CreateCase' {ccEmailAddresses} -> ccEmailAddresses) (\s@CreateCase' {} a -> s {ccEmailAddresses = a} :: CreateCase) Prelude.. Lens.mapping Lens.coerced++-- | The type of issue for the case. You can specify @customer-service@ or+-- @technical@. If you don\'t specify a value, the default is @technical@.+createCase_issueType :: Lens.Lens' CreateCase (Prelude.Maybe Prelude.Text)+createCase_issueType = Lens.lens (\CreateCase' {issueType} -> issueType) (\s@CreateCase' {} a -> s {issueType = a} :: CreateCase)++-- | The language in which Amazon Web Services Support handles the case.+-- Amazon Web Services Support currently supports English (\"en\") and+-- Japanese (\"ja\"). You must specify the ISO 639-1 code for the+-- @language@ parameter if you want support in that language.+createCase_language :: Lens.Lens' CreateCase (Prelude.Maybe Prelude.Text)+createCase_language = Lens.lens (\CreateCase' {language} -> language) (\s@CreateCase' {} a -> s {language = a} :: CreateCase)++-- | The code for the Amazon Web Services service. You can use the+-- DescribeServices operation to get the possible @serviceCode@ values.+createCase_serviceCode :: Lens.Lens' CreateCase (Prelude.Maybe Prelude.Text)+createCase_serviceCode = Lens.lens (\CreateCase' {serviceCode} -> serviceCode) (\s@CreateCase' {} a -> s {serviceCode = a} :: CreateCase)++-- | A value that indicates the urgency of the case. This value determines+-- the response time according to your service level agreement with Amazon+-- Web Services Support. You can use the DescribeSeverityLevels operation+-- to get the possible values for @severityCode@.+--+-- For more information, see SeverityLevel and+-- <https://docs.aws.amazon.com/awssupport/latest/user/getting-started.html#choosing-severity Choosing a Severity>+-- in the /Amazon Web Services Support User Guide/.+--+-- The availability of severity levels depends on the support plan for the+-- Amazon Web Services account.+createCase_severityCode :: Lens.Lens' CreateCase (Prelude.Maybe Prelude.Text)+createCase_severityCode = Lens.lens (\CreateCase' {severityCode} -> severityCode) (\s@CreateCase' {} a -> s {severityCode = a} :: CreateCase)++-- | The title of the support case. The title appears in the __Subject__+-- field on the Amazon Web Services Support Center+-- <https://console.aws.amazon.com/support/home#/case/create Create Case>+-- page.+createCase_subject :: Lens.Lens' CreateCase Prelude.Text+createCase_subject = Lens.lens (\CreateCase' {subject} -> subject) (\s@CreateCase' {} a -> s {subject = a} :: CreateCase)++-- | The communication body text that describes the issue. This text appears+-- in the __Description__ field on the Amazon Web Services Support Center+-- <https://console.aws.amazon.com/support/home#/case/create Create Case>+-- page.+createCase_communicationBody :: Lens.Lens' CreateCase Prelude.Text+createCase_communicationBody = Lens.lens (\CreateCase' {communicationBody} -> communicationBody) (\s@CreateCase' {} a -> s {communicationBody = a} :: CreateCase)++instance Core.AWSRequest CreateCase where+  type AWSResponse CreateCase = CreateCaseResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateCaseResponse'+            Prelude.<$> (x Data..?> "caseId")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateCase where+  hashWithSalt _salt CreateCase' {..} =+    _salt+      `Prelude.hashWithSalt` attachmentSetId+      `Prelude.hashWithSalt` categoryCode+      `Prelude.hashWithSalt` ccEmailAddresses+      `Prelude.hashWithSalt` issueType+      `Prelude.hashWithSalt` language+      `Prelude.hashWithSalt` serviceCode+      `Prelude.hashWithSalt` severityCode+      `Prelude.hashWithSalt` subject+      `Prelude.hashWithSalt` communicationBody++instance Prelude.NFData CreateCase where+  rnf CreateCase' {..} =+    Prelude.rnf attachmentSetId+      `Prelude.seq` Prelude.rnf categoryCode+      `Prelude.seq` Prelude.rnf ccEmailAddresses+      `Prelude.seq` Prelude.rnf issueType+      `Prelude.seq` Prelude.rnf language+      `Prelude.seq` Prelude.rnf serviceCode+      `Prelude.seq` Prelude.rnf severityCode+      `Prelude.seq` Prelude.rnf subject+      `Prelude.seq` Prelude.rnf communicationBody++instance Data.ToHeaders CreateCase where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSSupport_20130415.CreateCase" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateCase where+  toJSON CreateCase' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("attachmentSetId" Data..=)+              Prelude.<$> attachmentSetId,+            ("categoryCode" Data..=) Prelude.<$> categoryCode,+            ("ccEmailAddresses" Data..=)+              Prelude.<$> ccEmailAddresses,+            ("issueType" Data..=) Prelude.<$> issueType,+            ("language" Data..=) Prelude.<$> language,+            ("serviceCode" Data..=) Prelude.<$> serviceCode,+            ("severityCode" Data..=) Prelude.<$> severityCode,+            Prelude.Just ("subject" Data..= subject),+            Prelude.Just+              ("communicationBody" Data..= communicationBody)+          ]+      )++instance Data.ToPath CreateCase where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateCase where+  toQuery = Prelude.const Prelude.mempty++-- | The support case ID returned by a successful completion of the+-- CreateCase operation.+--+-- /See:/ 'newCreateCaseResponse' smart constructor.+data CreateCaseResponse = CreateCaseResponse'+  { -- | The support case ID requested or returned in the call. The case ID is an+    -- alphanumeric string in the following format:+    -- case-/12345678910-2013-c4c1d2bf33c5cf47/+    caseId :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateCaseResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'caseId', 'createCaseResponse_caseId' - The support case ID requested or returned in the call. The case ID is an+-- alphanumeric string in the following format:+-- case-/12345678910-2013-c4c1d2bf33c5cf47/+--+-- 'httpStatus', 'createCaseResponse_httpStatus' - The response's http status code.+newCreateCaseResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateCaseResponse+newCreateCaseResponse pHttpStatus_ =+  CreateCaseResponse'+    { caseId = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The support case ID requested or returned in the call. The case ID is an+-- alphanumeric string in the following format:+-- case-/12345678910-2013-c4c1d2bf33c5cf47/+createCaseResponse_caseId :: Lens.Lens' CreateCaseResponse (Prelude.Maybe Prelude.Text)+createCaseResponse_caseId = Lens.lens (\CreateCaseResponse' {caseId} -> caseId) (\s@CreateCaseResponse' {} a -> s {caseId = a} :: CreateCaseResponse)++-- | The response's http status code.+createCaseResponse_httpStatus :: Lens.Lens' CreateCaseResponse Prelude.Int+createCaseResponse_httpStatus = Lens.lens (\CreateCaseResponse' {httpStatus} -> httpStatus) (\s@CreateCaseResponse' {} a -> s {httpStatus = a} :: CreateCaseResponse)++instance Prelude.NFData CreateCaseResponse where+  rnf CreateCaseResponse' {..} =+    Prelude.rnf caseId+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,204 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Support.DescribeAttachment+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the attachment that has the specified ID. Attachments can+-- include screenshots, error logs, or other files that describe your+-- issue. Attachment IDs are generated by the case management system when+-- you add an attachment to a case or case communication. Attachment IDs+-- are returned in the AttachmentDetails objects that are returned by the+-- DescribeCommunications operation.+--+-- -   You must have a Business, Enterprise On-Ramp, or Enterprise Support+--     plan to use the Amazon Web Services Support API.+--+-- -   If you call the Amazon Web Services Support API from an account that+--     doesn\'t have a Business, Enterprise On-Ramp, or Enterprise Support+--     plan, the @SubscriptionRequiredException@ error message appears. For+--     information about changing your support plan, see+--     <http://aws.amazon.com/premiumsupport/ Amazon Web Services Support>.+module Amazonka.Support.DescribeAttachment+  ( -- * Creating a Request+    DescribeAttachment (..),+    newDescribeAttachment,++    -- * Request Lenses+    describeAttachment_attachmentId,++    -- * Destructuring the Response+    DescribeAttachmentResponse (..),+    newDescribeAttachmentResponse,++    -- * Response Lenses+    describeAttachmentResponse_attachment,+    describeAttachmentResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Support.Types++-- | /See:/ 'newDescribeAttachment' smart constructor.+data DescribeAttachment = DescribeAttachment'+  { -- | The ID of the attachment to return. Attachment IDs are returned by the+    -- DescribeCommunications operation.+    attachmentId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeAttachment' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'attachmentId', 'describeAttachment_attachmentId' - The ID of the attachment to return. Attachment IDs are returned by the+-- DescribeCommunications operation.+newDescribeAttachment ::+  -- | 'attachmentId'+  Prelude.Text ->+  DescribeAttachment+newDescribeAttachment pAttachmentId_ =+  DescribeAttachment' {attachmentId = pAttachmentId_}++-- | The ID of the attachment to return. Attachment IDs are returned by the+-- DescribeCommunications operation.+describeAttachment_attachmentId :: Lens.Lens' DescribeAttachment Prelude.Text+describeAttachment_attachmentId = Lens.lens (\DescribeAttachment' {attachmentId} -> attachmentId) (\s@DescribeAttachment' {} a -> s {attachmentId = a} :: DescribeAttachment)++instance Core.AWSRequest DescribeAttachment where+  type+    AWSResponse DescribeAttachment =+      DescribeAttachmentResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeAttachmentResponse'+            Prelude.<$> (x Data..?> "attachment")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeAttachment where+  hashWithSalt _salt DescribeAttachment' {..} =+    _salt `Prelude.hashWithSalt` attachmentId++instance Prelude.NFData DescribeAttachment where+  rnf DescribeAttachment' {..} =+    Prelude.rnf attachmentId++instance Data.ToHeaders DescribeAttachment where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSSupport_20130415.DescribeAttachment" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeAttachment where+  toJSON DescribeAttachment' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("attachmentId" Data..= attachmentId)]+      )++instance Data.ToPath DescribeAttachment where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeAttachment where+  toQuery = Prelude.const Prelude.mempty++-- | The content and file name of the attachment returned by the+-- DescribeAttachment operation.+--+-- /See:/ 'newDescribeAttachmentResponse' smart constructor.+data DescribeAttachmentResponse = DescribeAttachmentResponse'+  { -- | This object includes the attachment content and file name.+    --+    -- In the previous response syntax, the value for the @data@ parameter+    -- appears as @blob@, which is represented as a base64-encoded string. The+    -- value for @fileName@ is the name of the attachment, such as+    -- @troubleshoot-screenshot.png@.+    attachment :: Prelude.Maybe Attachment,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeAttachmentResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'attachment', 'describeAttachmentResponse_attachment' - This object includes the attachment content and file name.+--+-- In the previous response syntax, the value for the @data@ parameter+-- appears as @blob@, which is represented as a base64-encoded string. The+-- value for @fileName@ is the name of the attachment, such as+-- @troubleshoot-screenshot.png@.+--+-- 'httpStatus', 'describeAttachmentResponse_httpStatus' - The response's http status code.+newDescribeAttachmentResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeAttachmentResponse+newDescribeAttachmentResponse pHttpStatus_ =+  DescribeAttachmentResponse'+    { attachment =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | This object includes the attachment content and file name.+--+-- In the previous response syntax, the value for the @data@ parameter+-- appears as @blob@, which is represented as a base64-encoded string. The+-- value for @fileName@ is the name of the attachment, such as+-- @troubleshoot-screenshot.png@.+describeAttachmentResponse_attachment :: Lens.Lens' DescribeAttachmentResponse (Prelude.Maybe Attachment)+describeAttachmentResponse_attachment = Lens.lens (\DescribeAttachmentResponse' {attachment} -> attachment) (\s@DescribeAttachmentResponse' {} a -> s {attachment = a} :: DescribeAttachmentResponse)++-- | The response's http status code.+describeAttachmentResponse_httpStatus :: Lens.Lens' DescribeAttachmentResponse Prelude.Int+describeAttachmentResponse_httpStatus = Lens.lens (\DescribeAttachmentResponse' {httpStatus} -> httpStatus) (\s@DescribeAttachmentResponse' {} a -> s {httpStatus = a} :: DescribeAttachmentResponse)++instance Prelude.NFData DescribeAttachmentResponse where+  rnf DescribeAttachmentResponse' {..} =+    Prelude.rnf attachment+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,372 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Support.DescribeCases+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of cases that you specify by passing one or more case+-- IDs. You can use the @afterTime@ and @beforeTime@ parameters to filter+-- the cases by date. You can set values for the @includeResolvedCases@ and+-- @includeCommunications@ parameters to specify how much information to+-- return.+--+-- The response returns the following in JSON format:+--+-- -   One or more+--     <https://docs.aws.amazon.com/awssupport/latest/APIReference/API_CaseDetails.html CaseDetails>+--     data types.+--+-- -   One or more @nextToken@ values, which specify where to paginate the+--     returned records represented by the @CaseDetails@ objects.+--+-- Case data is available for 12 months after creation. If a case was+-- created more than 12 months ago, a request might return an error.+--+-- -   You must have a Business, Enterprise On-Ramp, or Enterprise Support+--     plan to use the Amazon Web Services Support API.+--+-- -   If you call the Amazon Web Services Support API from an account that+--     doesn\'t have a Business, Enterprise On-Ramp, or Enterprise Support+--     plan, the @SubscriptionRequiredException@ error message appears. For+--     information about changing your support plan, see+--     <http://aws.amazon.com/premiumsupport/ Amazon Web Services Support>.+--+-- This operation returns paginated results.+module Amazonka.Support.DescribeCases+  ( -- * Creating a Request+    DescribeCases (..),+    newDescribeCases,++    -- * Request Lenses+    describeCases_afterTime,+    describeCases_beforeTime,+    describeCases_caseIdList,+    describeCases_displayId,+    describeCases_includeCommunications,+    describeCases_includeResolvedCases,+    describeCases_language,+    describeCases_maxResults,+    describeCases_nextToken,++    -- * Destructuring the Response+    DescribeCasesResponse (..),+    newDescribeCasesResponse,++    -- * Response Lenses+    describeCasesResponse_cases,+    describeCasesResponse_nextToken,+    describeCasesResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Support.Types++-- | /See:/ 'newDescribeCases' smart constructor.+data DescribeCases = DescribeCases'+  { -- | The start date for a filtered date search on support case+    -- communications. Case communications are available for 12 months after+    -- creation.+    afterTime :: Prelude.Maybe Prelude.Text,+    -- | The end date for a filtered date search on support case communications.+    -- Case communications are available for 12 months after creation.+    beforeTime :: Prelude.Maybe Prelude.Text,+    -- | A list of ID numbers of the support cases you want returned. The maximum+    -- number of cases is 100.+    caseIdList :: Prelude.Maybe [Prelude.Text],+    -- | The ID displayed for a case in the Amazon Web Services Support Center+    -- user interface.+    displayId :: Prelude.Maybe Prelude.Text,+    -- | Specifies whether to include communications in the @DescribeCases@+    -- response. By default, communications are included.+    includeCommunications :: Prelude.Maybe Prelude.Bool,+    -- | Specifies whether to include resolved support cases in the+    -- @DescribeCases@ response. By default, resolved cases aren\'t included.+    includeResolvedCases :: Prelude.Maybe Prelude.Bool,+    -- | The language in which Amazon Web Services Support handles the case.+    -- Amazon Web Services Support currently supports English (\"en\") and+    -- Japanese (\"ja\"). You must specify the ISO 639-1 code for the+    -- @language@ parameter if you want support in that language.+    language :: Prelude.Maybe Prelude.Text,+    -- | The maximum number of results to return before paginating.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | A resumption point for pagination.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeCases' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'afterTime', 'describeCases_afterTime' - The start date for a filtered date search on support case+-- communications. Case communications are available for 12 months after+-- creation.+--+-- 'beforeTime', 'describeCases_beforeTime' - The end date for a filtered date search on support case communications.+-- Case communications are available for 12 months after creation.+--+-- 'caseIdList', 'describeCases_caseIdList' - A list of ID numbers of the support cases you want returned. The maximum+-- number of cases is 100.+--+-- 'displayId', 'describeCases_displayId' - The ID displayed for a case in the Amazon Web Services Support Center+-- user interface.+--+-- 'includeCommunications', 'describeCases_includeCommunications' - Specifies whether to include communications in the @DescribeCases@+-- response. By default, communications are included.+--+-- 'includeResolvedCases', 'describeCases_includeResolvedCases' - Specifies whether to include resolved support cases in the+-- @DescribeCases@ response. By default, resolved cases aren\'t included.+--+-- 'language', 'describeCases_language' - The language in which Amazon Web Services Support handles the case.+-- Amazon Web Services Support currently supports English (\"en\") and+-- Japanese (\"ja\"). You must specify the ISO 639-1 code for the+-- @language@ parameter if you want support in that language.+--+-- 'maxResults', 'describeCases_maxResults' - The maximum number of results to return before paginating.+--+-- 'nextToken', 'describeCases_nextToken' - A resumption point for pagination.+newDescribeCases ::+  DescribeCases+newDescribeCases =+  DescribeCases'+    { afterTime = Prelude.Nothing,+      beforeTime = Prelude.Nothing,+      caseIdList = Prelude.Nothing,+      displayId = Prelude.Nothing,+      includeCommunications = Prelude.Nothing,+      includeResolvedCases = Prelude.Nothing,+      language = Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing+    }++-- | The start date for a filtered date search on support case+-- communications. Case communications are available for 12 months after+-- creation.+describeCases_afterTime :: Lens.Lens' DescribeCases (Prelude.Maybe Prelude.Text)+describeCases_afterTime = Lens.lens (\DescribeCases' {afterTime} -> afterTime) (\s@DescribeCases' {} a -> s {afterTime = a} :: DescribeCases)++-- | The end date for a filtered date search on support case communications.+-- Case communications are available for 12 months after creation.+describeCases_beforeTime :: Lens.Lens' DescribeCases (Prelude.Maybe Prelude.Text)+describeCases_beforeTime = Lens.lens (\DescribeCases' {beforeTime} -> beforeTime) (\s@DescribeCases' {} a -> s {beforeTime = a} :: DescribeCases)++-- | A list of ID numbers of the support cases you want returned. The maximum+-- number of cases is 100.+describeCases_caseIdList :: Lens.Lens' DescribeCases (Prelude.Maybe [Prelude.Text])+describeCases_caseIdList = Lens.lens (\DescribeCases' {caseIdList} -> caseIdList) (\s@DescribeCases' {} a -> s {caseIdList = a} :: DescribeCases) Prelude.. Lens.mapping Lens.coerced++-- | The ID displayed for a case in the Amazon Web Services Support Center+-- user interface.+describeCases_displayId :: Lens.Lens' DescribeCases (Prelude.Maybe Prelude.Text)+describeCases_displayId = Lens.lens (\DescribeCases' {displayId} -> displayId) (\s@DescribeCases' {} a -> s {displayId = a} :: DescribeCases)++-- | Specifies whether to include communications in the @DescribeCases@+-- response. By default, communications are included.+describeCases_includeCommunications :: Lens.Lens' DescribeCases (Prelude.Maybe Prelude.Bool)+describeCases_includeCommunications = Lens.lens (\DescribeCases' {includeCommunications} -> includeCommunications) (\s@DescribeCases' {} a -> s {includeCommunications = a} :: DescribeCases)++-- | Specifies whether to include resolved support cases in the+-- @DescribeCases@ response. By default, resolved cases aren\'t included.+describeCases_includeResolvedCases :: Lens.Lens' DescribeCases (Prelude.Maybe Prelude.Bool)+describeCases_includeResolvedCases = Lens.lens (\DescribeCases' {includeResolvedCases} -> includeResolvedCases) (\s@DescribeCases' {} a -> s {includeResolvedCases = a} :: DescribeCases)++-- | The language in which Amazon Web Services Support handles the case.+-- Amazon Web Services Support currently supports English (\"en\") and+-- Japanese (\"ja\"). You must specify the ISO 639-1 code for the+-- @language@ parameter if you want support in that language.+describeCases_language :: Lens.Lens' DescribeCases (Prelude.Maybe Prelude.Text)+describeCases_language = Lens.lens (\DescribeCases' {language} -> language) (\s@DescribeCases' {} a -> s {language = a} :: DescribeCases)++-- | The maximum number of results to return before paginating.+describeCases_maxResults :: Lens.Lens' DescribeCases (Prelude.Maybe Prelude.Natural)+describeCases_maxResults = Lens.lens (\DescribeCases' {maxResults} -> maxResults) (\s@DescribeCases' {} a -> s {maxResults = a} :: DescribeCases)++-- | A resumption point for pagination.+describeCases_nextToken :: Lens.Lens' DescribeCases (Prelude.Maybe Prelude.Text)+describeCases_nextToken = Lens.lens (\DescribeCases' {nextToken} -> nextToken) (\s@DescribeCases' {} a -> s {nextToken = a} :: DescribeCases)++instance Core.AWSPager DescribeCases where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeCasesResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeCasesResponse_cases+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeCases_nextToken+          Lens..~ rs+          Lens.^? describeCasesResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest DescribeCases where+  type+    AWSResponse DescribeCases =+      DescribeCasesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeCasesResponse'+            Prelude.<$> (x Data..?> "cases" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeCases where+  hashWithSalt _salt DescribeCases' {..} =+    _salt+      `Prelude.hashWithSalt` afterTime+      `Prelude.hashWithSalt` beforeTime+      `Prelude.hashWithSalt` caseIdList+      `Prelude.hashWithSalt` displayId+      `Prelude.hashWithSalt` includeCommunications+      `Prelude.hashWithSalt` includeResolvedCases+      `Prelude.hashWithSalt` language+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData DescribeCases where+  rnf DescribeCases' {..} =+    Prelude.rnf afterTime+      `Prelude.seq` Prelude.rnf beforeTime+      `Prelude.seq` Prelude.rnf caseIdList+      `Prelude.seq` Prelude.rnf displayId+      `Prelude.seq` Prelude.rnf includeCommunications+      `Prelude.seq` Prelude.rnf includeResolvedCases+      `Prelude.seq` Prelude.rnf language+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken++instance Data.ToHeaders DescribeCases where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSSupport_20130415.DescribeCases" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeCases where+  toJSON DescribeCases' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("afterTime" Data..=) Prelude.<$> afterTime,+            ("beforeTime" Data..=) Prelude.<$> beforeTime,+            ("caseIdList" Data..=) Prelude.<$> caseIdList,+            ("displayId" Data..=) Prelude.<$> displayId,+            ("includeCommunications" Data..=)+              Prelude.<$> includeCommunications,+            ("includeResolvedCases" Data..=)+              Prelude.<$> includeResolvedCases,+            ("language" Data..=) Prelude.<$> language,+            ("maxResults" Data..=) Prelude.<$> maxResults,+            ("nextToken" Data..=) Prelude.<$> nextToken+          ]+      )++instance Data.ToPath DescribeCases where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeCases where+  toQuery = Prelude.const Prelude.mempty++-- | Returns an array of+-- <https://docs.aws.amazon.com/awssupport/latest/APIReference/API_CaseDetails.html CaseDetails>+-- objects and a @nextToken@ that defines a point for pagination in the+-- result set.+--+-- /See:/ 'newDescribeCasesResponse' smart constructor.+data DescribeCasesResponse = DescribeCasesResponse'+  { -- | The details for the cases that match the request.+    cases :: Prelude.Maybe [CaseDetails],+    -- | A resumption point for pagination.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeCasesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'cases', 'describeCasesResponse_cases' - The details for the cases that match the request.+--+-- 'nextToken', 'describeCasesResponse_nextToken' - A resumption point for pagination.+--+-- 'httpStatus', 'describeCasesResponse_httpStatus' - The response's http status code.+newDescribeCasesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeCasesResponse+newDescribeCasesResponse pHttpStatus_ =+  DescribeCasesResponse'+    { cases = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The details for the cases that match the request.+describeCasesResponse_cases :: Lens.Lens' DescribeCasesResponse (Prelude.Maybe [CaseDetails])+describeCasesResponse_cases = Lens.lens (\DescribeCasesResponse' {cases} -> cases) (\s@DescribeCasesResponse' {} a -> s {cases = a} :: DescribeCasesResponse) Prelude.. Lens.mapping Lens.coerced++-- | A resumption point for pagination.+describeCasesResponse_nextToken :: Lens.Lens' DescribeCasesResponse (Prelude.Maybe Prelude.Text)+describeCasesResponse_nextToken = Lens.lens (\DescribeCasesResponse' {nextToken} -> nextToken) (\s@DescribeCasesResponse' {} a -> s {nextToken = a} :: DescribeCasesResponse)++-- | The response's http status code.+describeCasesResponse_httpStatus :: Lens.Lens' DescribeCasesResponse Prelude.Int+describeCasesResponse_httpStatus = Lens.lens (\DescribeCasesResponse' {httpStatus} -> httpStatus) (\s@DescribeCasesResponse' {} a -> s {httpStatus = a} :: DescribeCasesResponse)++instance Prelude.NFData DescribeCasesResponse where+  rnf DescribeCasesResponse' {..} =+    Prelude.rnf cases+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,303 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Support.DescribeCommunications+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns communications and attachments for one or more support cases.+-- Use the @afterTime@ and @beforeTime@ parameters to filter by date. You+-- can use the @caseId@ parameter to restrict the results to a specific+-- case.+--+-- 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.+--+-- You can use the @maxResults@ and @nextToken@ parameters to control the+-- pagination of the results. Set @maxResults@ to the number of cases that+-- you want to display on each page, and use @nextToken@ to specify the+-- resumption of pagination.+--+-- -   You must have a Business, Enterprise On-Ramp, or Enterprise Support+--     plan to use the Amazon Web Services Support API.+--+-- -   If you call the Amazon Web Services Support API from an account that+--     doesn\'t have a Business, Enterprise On-Ramp, or Enterprise Support+--     plan, the @SubscriptionRequiredException@ error message appears. For+--     information about changing your support plan, see+--     <http://aws.amazon.com/premiumsupport/ Amazon Web Services Support>.+--+-- This operation returns paginated results.+module Amazonka.Support.DescribeCommunications+  ( -- * Creating a Request+    DescribeCommunications (..),+    newDescribeCommunications,++    -- * Request Lenses+    describeCommunications_afterTime,+    describeCommunications_beforeTime,+    describeCommunications_maxResults,+    describeCommunications_nextToken,+    describeCommunications_caseId,++    -- * Destructuring the Response+    DescribeCommunicationsResponse (..),+    newDescribeCommunicationsResponse,++    -- * Response Lenses+    describeCommunicationsResponse_communications,+    describeCommunicationsResponse_nextToken,+    describeCommunicationsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Support.Types++-- | /See:/ 'newDescribeCommunications' smart constructor.+data DescribeCommunications = DescribeCommunications'+  { -- | The start date for a filtered date search on support case+    -- communications. Case communications are available for 12 months after+    -- creation.+    afterTime :: Prelude.Maybe Prelude.Text,+    -- | The end date for a filtered date search on support case communications.+    -- Case communications are available for 12 months after creation.+    beforeTime :: Prelude.Maybe Prelude.Text,+    -- | The maximum number of results to return before paginating.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | A resumption point for pagination.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The support case ID requested or returned in the call. The case ID is an+    -- alphanumeric string formatted as shown in this example:+    -- case-/12345678910-2013-c4c1d2bf33c5cf47/+    caseId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeCommunications' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'afterTime', 'describeCommunications_afterTime' - The start date for a filtered date search on support case+-- communications. Case communications are available for 12 months after+-- creation.+--+-- 'beforeTime', 'describeCommunications_beforeTime' - The end date for a filtered date search on support case communications.+-- Case communications are available for 12 months after creation.+--+-- 'maxResults', 'describeCommunications_maxResults' - The maximum number of results to return before paginating.+--+-- 'nextToken', 'describeCommunications_nextToken' - A resumption point for pagination.+--+-- 'caseId', 'describeCommunications_caseId' - The support case ID requested or returned in the call. The case ID is an+-- alphanumeric string formatted as shown in this example:+-- case-/12345678910-2013-c4c1d2bf33c5cf47/+newDescribeCommunications ::+  -- | 'caseId'+  Prelude.Text ->+  DescribeCommunications+newDescribeCommunications pCaseId_ =+  DescribeCommunications'+    { afterTime =+        Prelude.Nothing,+      beforeTime = Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      caseId = pCaseId_+    }++-- | The start date for a filtered date search on support case+-- communications. Case communications are available for 12 months after+-- creation.+describeCommunications_afterTime :: Lens.Lens' DescribeCommunications (Prelude.Maybe Prelude.Text)+describeCommunications_afterTime = Lens.lens (\DescribeCommunications' {afterTime} -> afterTime) (\s@DescribeCommunications' {} a -> s {afterTime = a} :: DescribeCommunications)++-- | The end date for a filtered date search on support case communications.+-- Case communications are available for 12 months after creation.+describeCommunications_beforeTime :: Lens.Lens' DescribeCommunications (Prelude.Maybe Prelude.Text)+describeCommunications_beforeTime = Lens.lens (\DescribeCommunications' {beforeTime} -> beforeTime) (\s@DescribeCommunications' {} a -> s {beforeTime = a} :: DescribeCommunications)++-- | The maximum number of results to return before paginating.+describeCommunications_maxResults :: Lens.Lens' DescribeCommunications (Prelude.Maybe Prelude.Natural)+describeCommunications_maxResults = Lens.lens (\DescribeCommunications' {maxResults} -> maxResults) (\s@DescribeCommunications' {} a -> s {maxResults = a} :: DescribeCommunications)++-- | A resumption point for pagination.+describeCommunications_nextToken :: Lens.Lens' DescribeCommunications (Prelude.Maybe Prelude.Text)+describeCommunications_nextToken = Lens.lens (\DescribeCommunications' {nextToken} -> nextToken) (\s@DescribeCommunications' {} a -> s {nextToken = a} :: DescribeCommunications)++-- | The support case ID requested or returned in the call. The case ID is an+-- alphanumeric string formatted as shown in this example:+-- case-/12345678910-2013-c4c1d2bf33c5cf47/+describeCommunications_caseId :: Lens.Lens' DescribeCommunications Prelude.Text+describeCommunications_caseId = Lens.lens (\DescribeCommunications' {caseId} -> caseId) (\s@DescribeCommunications' {} a -> s {caseId = a} :: DescribeCommunications)++instance Core.AWSPager DescribeCommunications where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeCommunicationsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeCommunicationsResponse_communications+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeCommunications_nextToken+          Lens..~ rs+          Lens.^? describeCommunicationsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest DescribeCommunications where+  type+    AWSResponse DescribeCommunications =+      DescribeCommunicationsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeCommunicationsResponse'+            Prelude.<$> (x Data..?> "communications" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeCommunications where+  hashWithSalt _salt DescribeCommunications' {..} =+    _salt+      `Prelude.hashWithSalt` afterTime+      `Prelude.hashWithSalt` beforeTime+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` caseId++instance Prelude.NFData DescribeCommunications where+  rnf DescribeCommunications' {..} =+    Prelude.rnf afterTime+      `Prelude.seq` Prelude.rnf beforeTime+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf caseId++instance Data.ToHeaders DescribeCommunications where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSSupport_20130415.DescribeCommunications" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeCommunications where+  toJSON DescribeCommunications' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("afterTime" Data..=) Prelude.<$> afterTime,+            ("beforeTime" Data..=) Prelude.<$> beforeTime,+            ("maxResults" Data..=) Prelude.<$> maxResults,+            ("nextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("caseId" Data..= caseId)+          ]+      )++instance Data.ToPath DescribeCommunications where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeCommunications where+  toQuery = Prelude.const Prelude.mempty++-- | The communications returned by the DescribeCommunications operation.+--+-- /See:/ 'newDescribeCommunicationsResponse' smart constructor.+data DescribeCommunicationsResponse = DescribeCommunicationsResponse'+  { -- | The communications for the case.+    communications :: Prelude.Maybe [Communication],+    -- | A resumption point for pagination.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeCommunicationsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'communications', 'describeCommunicationsResponse_communications' - The communications for the case.+--+-- 'nextToken', 'describeCommunicationsResponse_nextToken' - A resumption point for pagination.+--+-- 'httpStatus', 'describeCommunicationsResponse_httpStatus' - The response's http status code.+newDescribeCommunicationsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeCommunicationsResponse+newDescribeCommunicationsResponse pHttpStatus_ =+  DescribeCommunicationsResponse'+    { communications =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The communications for the case.+describeCommunicationsResponse_communications :: Lens.Lens' DescribeCommunicationsResponse (Prelude.Maybe [Communication])+describeCommunicationsResponse_communications = Lens.lens (\DescribeCommunicationsResponse' {communications} -> communications) (\s@DescribeCommunicationsResponse' {} a -> s {communications = a} :: DescribeCommunicationsResponse) Prelude.. Lens.mapping Lens.coerced++-- | A resumption point for pagination.+describeCommunicationsResponse_nextToken :: Lens.Lens' DescribeCommunicationsResponse (Prelude.Maybe Prelude.Text)+describeCommunicationsResponse_nextToken = Lens.lens (\DescribeCommunicationsResponse' {nextToken} -> nextToken) (\s@DescribeCommunicationsResponse' {} a -> s {nextToken = a} :: DescribeCommunicationsResponse)++-- | The response's http status code.+describeCommunicationsResponse_httpStatus :: Lens.Lens' DescribeCommunicationsResponse Prelude.Int+describeCommunicationsResponse_httpStatus = Lens.lens (\DescribeCommunicationsResponse' {httpStatus} -> httpStatus) (\s@DescribeCommunicationsResponse' {} a -> s {httpStatus = a} :: DescribeCommunicationsResponse)++instance+  Prelude.NFData+    DescribeCommunicationsResponse+  where+  rnf DescribeCommunicationsResponse' {..} =+    Prelude.rnf communications+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,222 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Support.DescribeServices+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the current list of Amazon Web Services services and a list of+-- service categories for each service. You then use service names and+-- categories in your CreateCase requests. Each Amazon Web Services service+-- has its own set of categories.+--+-- The service codes and category codes correspond to the values that+-- appear in the __Service__ and __Category__ lists on the Amazon Web+-- Services Support Center+-- <https://console.aws.amazon.com/support/home#/case/create Create Case>+-- page. The values in those fields don\'t necessarily match the service+-- codes and categories returned by the @DescribeServices@ operation.+-- Always use the service codes and categories that the @DescribeServices@+-- operation returns, so that you have the most recent set of service and+-- category codes.+--+-- -   You must have a Business, Enterprise On-Ramp, or Enterprise Support+--     plan to use the Amazon Web Services Support API.+--+-- -   If you call the Amazon Web Services Support API from an account that+--     doesn\'t have a Business, Enterprise On-Ramp, or Enterprise Support+--     plan, the @SubscriptionRequiredException@ error message appears. For+--     information about changing your support plan, see+--     <http://aws.amazon.com/premiumsupport/ Amazon Web Services Support>.+module Amazonka.Support.DescribeServices+  ( -- * Creating a Request+    DescribeServices (..),+    newDescribeServices,++    -- * Request Lenses+    describeServices_language,+    describeServices_serviceCodeList,++    -- * Destructuring the Response+    DescribeServicesResponse (..),+    newDescribeServicesResponse,++    -- * Response Lenses+    describeServicesResponse_services,+    describeServicesResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Support.Types++-- | /See:/ 'newDescribeServices' smart constructor.+data DescribeServices = DescribeServices'+  { -- | The language in which Amazon Web Services Support handles the case.+    -- Amazon Web Services Support currently supports English (\"en\") and+    -- Japanese (\"ja\"). You must specify the ISO 639-1 code for the+    -- @language@ parameter if you want support in that language.+    language :: Prelude.Maybe Prelude.Text,+    -- | A JSON-formatted list of service codes available for Amazon Web Services+    -- services.+    serviceCodeList :: Prelude.Maybe [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeServices' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'language', 'describeServices_language' - The language in which Amazon Web Services Support handles the case.+-- Amazon Web Services Support currently supports English (\"en\") and+-- Japanese (\"ja\"). You must specify the ISO 639-1 code for the+-- @language@ parameter if you want support in that language.+--+-- 'serviceCodeList', 'describeServices_serviceCodeList' - A JSON-formatted list of service codes available for Amazon Web Services+-- services.+newDescribeServices ::+  DescribeServices+newDescribeServices =+  DescribeServices'+    { language = Prelude.Nothing,+      serviceCodeList = Prelude.Nothing+    }++-- | The language in which Amazon Web Services Support handles the case.+-- Amazon Web Services Support currently supports English (\"en\") and+-- Japanese (\"ja\"). You must specify the ISO 639-1 code for the+-- @language@ parameter if you want support in that language.+describeServices_language :: Lens.Lens' DescribeServices (Prelude.Maybe Prelude.Text)+describeServices_language = Lens.lens (\DescribeServices' {language} -> language) (\s@DescribeServices' {} a -> s {language = a} :: DescribeServices)++-- | A JSON-formatted list of service codes available for Amazon Web Services+-- services.+describeServices_serviceCodeList :: Lens.Lens' DescribeServices (Prelude.Maybe [Prelude.Text])+describeServices_serviceCodeList = Lens.lens (\DescribeServices' {serviceCodeList} -> serviceCodeList) (\s@DescribeServices' {} a -> s {serviceCodeList = a} :: DescribeServices) Prelude.. Lens.mapping Lens.coerced++instance Core.AWSRequest DescribeServices where+  type+    AWSResponse DescribeServices =+      DescribeServicesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeServicesResponse'+            Prelude.<$> (x Data..?> "services" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeServices where+  hashWithSalt _salt DescribeServices' {..} =+    _salt+      `Prelude.hashWithSalt` language+      `Prelude.hashWithSalt` serviceCodeList++instance Prelude.NFData DescribeServices where+  rnf DescribeServices' {..} =+    Prelude.rnf language+      `Prelude.seq` Prelude.rnf serviceCodeList++instance Data.ToHeaders DescribeServices where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSSupport_20130415.DescribeServices" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeServices where+  toJSON DescribeServices' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("language" Data..=) Prelude.<$> language,+            ("serviceCodeList" Data..=)+              Prelude.<$> serviceCodeList+          ]+      )++instance Data.ToPath DescribeServices where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeServices where+  toQuery = Prelude.const Prelude.mempty++-- | The list of Amazon Web Services services returned by the+-- DescribeServices operation.+--+-- /See:/ 'newDescribeServicesResponse' smart constructor.+data DescribeServicesResponse = DescribeServicesResponse'+  { -- | A JSON-formatted list of Amazon Web Services services.+    services :: Prelude.Maybe [SupportService],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeServicesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'services', 'describeServicesResponse_services' - A JSON-formatted list of Amazon Web Services services.+--+-- 'httpStatus', 'describeServicesResponse_httpStatus' - The response's http status code.+newDescribeServicesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeServicesResponse+newDescribeServicesResponse pHttpStatus_ =+  DescribeServicesResponse'+    { services =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A JSON-formatted list of Amazon Web Services services.+describeServicesResponse_services :: Lens.Lens' DescribeServicesResponse (Prelude.Maybe [SupportService])+describeServicesResponse_services = Lens.lens (\DescribeServicesResponse' {services} -> services) (\s@DescribeServicesResponse' {} a -> s {services = a} :: DescribeServicesResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeServicesResponse_httpStatus :: Lens.Lens' DescribeServicesResponse Prelude.Int+describeServicesResponse_httpStatus = Lens.lens (\DescribeServicesResponse' {httpStatus} -> httpStatus) (\s@DescribeServicesResponse' {} a -> s {httpStatus = a} :: DescribeServicesResponse)++instance Prelude.NFData DescribeServicesResponse where+  rnf DescribeServicesResponse' {..} =+    Prelude.rnf services+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,199 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Support.DescribeSeverityLevels+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the list of severity levels that you can assign to a support+-- case. The severity level for a case is also a field in the CaseDetails+-- data type that you include for a CreateCase request.+--+-- -   You must have a Business, Enterprise On-Ramp, or Enterprise Support+--     plan to use the Amazon Web Services Support API.+--+-- -   If you call the Amazon Web Services Support API from an account that+--     doesn\'t have a Business, Enterprise On-Ramp, or Enterprise Support+--     plan, the @SubscriptionRequiredException@ error message appears. For+--     information about changing your support plan, see+--     <http://aws.amazon.com/premiumsupport/ Amazon Web Services Support>.+module Amazonka.Support.DescribeSeverityLevels+  ( -- * Creating a Request+    DescribeSeverityLevels (..),+    newDescribeSeverityLevels,++    -- * Request Lenses+    describeSeverityLevels_language,++    -- * Destructuring the Response+    DescribeSeverityLevelsResponse (..),+    newDescribeSeverityLevelsResponse,++    -- * Response Lenses+    describeSeverityLevelsResponse_severityLevels,+    describeSeverityLevelsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Support.Types++-- | /See:/ 'newDescribeSeverityLevels' smart constructor.+data DescribeSeverityLevels = DescribeSeverityLevels'+  { -- | The language in which Amazon Web Services Support handles the case.+    -- Amazon Web Services Support currently supports English (\"en\") and+    -- Japanese (\"ja\"). You must specify the ISO 639-1 code for the+    -- @language@ parameter if you want support in that language.+    language :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeSeverityLevels' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'language', 'describeSeverityLevels_language' - The language in which Amazon Web Services Support handles the case.+-- Amazon Web Services Support currently supports English (\"en\") and+-- Japanese (\"ja\"). You must specify the ISO 639-1 code for the+-- @language@ parameter if you want support in that language.+newDescribeSeverityLevels ::+  DescribeSeverityLevels+newDescribeSeverityLevels =+  DescribeSeverityLevels' {language = Prelude.Nothing}++-- | The language in which Amazon Web Services Support handles the case.+-- Amazon Web Services Support currently supports English (\"en\") and+-- Japanese (\"ja\"). You must specify the ISO 639-1 code for the+-- @language@ parameter if you want support in that language.+describeSeverityLevels_language :: Lens.Lens' DescribeSeverityLevels (Prelude.Maybe Prelude.Text)+describeSeverityLevels_language = Lens.lens (\DescribeSeverityLevels' {language} -> language) (\s@DescribeSeverityLevels' {} a -> s {language = a} :: DescribeSeverityLevels)++instance Core.AWSRequest DescribeSeverityLevels where+  type+    AWSResponse DescribeSeverityLevels =+      DescribeSeverityLevelsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeSeverityLevelsResponse'+            Prelude.<$> (x Data..?> "severityLevels" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeSeverityLevels where+  hashWithSalt _salt DescribeSeverityLevels' {..} =+    _salt `Prelude.hashWithSalt` language++instance Prelude.NFData DescribeSeverityLevels where+  rnf DescribeSeverityLevels' {..} =+    Prelude.rnf language++instance Data.ToHeaders DescribeSeverityLevels where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSSupport_20130415.DescribeSeverityLevels" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeSeverityLevels where+  toJSON DescribeSeverityLevels' {..} =+    Data.object+      ( Prelude.catMaybes+          [("language" Data..=) Prelude.<$> language]+      )++instance Data.ToPath DescribeSeverityLevels where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeSeverityLevels where+  toQuery = Prelude.const Prelude.mempty++-- | The list of severity levels returned by the DescribeSeverityLevels+-- operation.+--+-- /See:/ 'newDescribeSeverityLevelsResponse' smart constructor.+data DescribeSeverityLevelsResponse = DescribeSeverityLevelsResponse'+  { -- | The available severity levels for the support case. Available severity+    -- levels are defined by your service level agreement with Amazon Web+    -- Services.+    severityLevels :: Prelude.Maybe [SeverityLevel],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeSeverityLevelsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'severityLevels', 'describeSeverityLevelsResponse_severityLevels' - The available severity levels for the support case. Available severity+-- levels are defined by your service level agreement with Amazon Web+-- Services.+--+-- 'httpStatus', 'describeSeverityLevelsResponse_httpStatus' - The response's http status code.+newDescribeSeverityLevelsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeSeverityLevelsResponse+newDescribeSeverityLevelsResponse pHttpStatus_ =+  DescribeSeverityLevelsResponse'+    { severityLevels =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The available severity levels for the support case. Available severity+-- levels are defined by your service level agreement with Amazon Web+-- Services.+describeSeverityLevelsResponse_severityLevels :: Lens.Lens' DescribeSeverityLevelsResponse (Prelude.Maybe [SeverityLevel])+describeSeverityLevelsResponse_severityLevels = Lens.lens (\DescribeSeverityLevelsResponse' {severityLevels} -> severityLevels) (\s@DescribeSeverityLevelsResponse' {} a -> s {severityLevels = a} :: DescribeSeverityLevelsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeSeverityLevelsResponse_httpStatus :: Lens.Lens' DescribeSeverityLevelsResponse Prelude.Int+describeSeverityLevelsResponse_httpStatus = Lens.lens (\DescribeSeverityLevelsResponse' {httpStatus} -> httpStatus) (\s@DescribeSeverityLevelsResponse' {} a -> s {httpStatus = a} :: DescribeSeverityLevelsResponse)++instance+  Prelude.NFData+    DescribeSeverityLevelsResponse+  where+  rnf DescribeSeverityLevelsResponse' {..} =+    Prelude.rnf severityLevels+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,237 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Support.DescribeTrustedAdvisorCheckRefreshStatuses+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the refresh status of the Trusted Advisor checks that have the+-- specified check IDs. You can get the check IDs by calling the+-- DescribeTrustedAdvisorChecks operation.+--+-- Some checks are refreshed automatically, and you can\'t return their+-- refresh statuses by using the+-- @DescribeTrustedAdvisorCheckRefreshStatuses@ operation. If you call this+-- operation for these checks, you might see an @InvalidParameterValue@+-- error.+--+-- -   You must have a Business, Enterprise On-Ramp, or Enterprise Support+--     plan to use the Amazon Web Services Support API.+--+-- -   If you call the Amazon Web Services Support API from an account that+--     doesn\'t have a Business, Enterprise On-Ramp, or Enterprise Support+--     plan, the @SubscriptionRequiredException@ error message appears. For+--     information about changing your support plan, see+--     <http://aws.amazon.com/premiumsupport/ Amazon Web Services Support>.+--+-- To call the Trusted Advisor operations in the Amazon Web Services+-- Support API, you must use the US East (N. Virginia) endpoint. Currently,+-- the US West (Oregon) and Europe (Ireland) endpoints don\'t support the+-- Trusted Advisor operations. For more information, see+-- <https://docs.aws.amazon.com/awssupport/latest/user/about-support-api.html#endpoint About the Amazon Web Services Support API>+-- in the /Amazon Web Services Support User Guide/.+module Amazonka.Support.DescribeTrustedAdvisorCheckRefreshStatuses+  ( -- * Creating a Request+    DescribeTrustedAdvisorCheckRefreshStatuses (..),+    newDescribeTrustedAdvisorCheckRefreshStatuses,++    -- * Request Lenses+    describeTrustedAdvisorCheckRefreshStatuses_checkIds,++    -- * Destructuring the Response+    DescribeTrustedAdvisorCheckRefreshStatusesResponse (..),+    newDescribeTrustedAdvisorCheckRefreshStatusesResponse,++    -- * Response Lenses+    describeTrustedAdvisorCheckRefreshStatusesResponse_httpStatus,+    describeTrustedAdvisorCheckRefreshStatusesResponse_statuses,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Support.Types++-- | /See:/ 'newDescribeTrustedAdvisorCheckRefreshStatuses' smart constructor.+data DescribeTrustedAdvisorCheckRefreshStatuses = DescribeTrustedAdvisorCheckRefreshStatuses'+  { -- | The IDs of the Trusted Advisor checks to get the status.+    --+    -- If you specify the check ID of a check that is automatically refreshed,+    -- you might see an @InvalidParameterValue@ error.+    checkIds :: [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeTrustedAdvisorCheckRefreshStatuses' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'checkIds', 'describeTrustedAdvisorCheckRefreshStatuses_checkIds' - The IDs of the Trusted Advisor checks to get the status.+--+-- If you specify the check ID of a check that is automatically refreshed,+-- you might see an @InvalidParameterValue@ error.+newDescribeTrustedAdvisorCheckRefreshStatuses ::+  DescribeTrustedAdvisorCheckRefreshStatuses+newDescribeTrustedAdvisorCheckRefreshStatuses =+  DescribeTrustedAdvisorCheckRefreshStatuses'+    { checkIds =+        Prelude.mempty+    }++-- | The IDs of the Trusted Advisor checks to get the status.+--+-- If you specify the check ID of a check that is automatically refreshed,+-- you might see an @InvalidParameterValue@ error.+describeTrustedAdvisorCheckRefreshStatuses_checkIds :: Lens.Lens' DescribeTrustedAdvisorCheckRefreshStatuses [Prelude.Text]+describeTrustedAdvisorCheckRefreshStatuses_checkIds = Lens.lens (\DescribeTrustedAdvisorCheckRefreshStatuses' {checkIds} -> checkIds) (\s@DescribeTrustedAdvisorCheckRefreshStatuses' {} a -> s {checkIds = a} :: DescribeTrustedAdvisorCheckRefreshStatuses) Prelude.. Lens.coerced++instance+  Core.AWSRequest+    DescribeTrustedAdvisorCheckRefreshStatuses+  where+  type+    AWSResponse+      DescribeTrustedAdvisorCheckRefreshStatuses =+      DescribeTrustedAdvisorCheckRefreshStatusesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeTrustedAdvisorCheckRefreshStatusesResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..?> "statuses" Core..!@ Prelude.mempty)+      )++instance+  Prelude.Hashable+    DescribeTrustedAdvisorCheckRefreshStatuses+  where+  hashWithSalt+    _salt+    DescribeTrustedAdvisorCheckRefreshStatuses' {..} =+      _salt `Prelude.hashWithSalt` checkIds++instance+  Prelude.NFData+    DescribeTrustedAdvisorCheckRefreshStatuses+  where+  rnf DescribeTrustedAdvisorCheckRefreshStatuses' {..} =+    Prelude.rnf checkIds++instance+  Data.ToHeaders+    DescribeTrustedAdvisorCheckRefreshStatuses+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSSupport_20130415.DescribeTrustedAdvisorCheckRefreshStatuses" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance+  Data.ToJSON+    DescribeTrustedAdvisorCheckRefreshStatuses+  where+  toJSON+    DescribeTrustedAdvisorCheckRefreshStatuses' {..} =+      Data.object+        ( Prelude.catMaybes+            [Prelude.Just ("checkIds" Data..= checkIds)]+        )++instance+  Data.ToPath+    DescribeTrustedAdvisorCheckRefreshStatuses+  where+  toPath = Prelude.const "/"++instance+  Data.ToQuery+    DescribeTrustedAdvisorCheckRefreshStatuses+  where+  toQuery = Prelude.const Prelude.mempty++-- | The statuses of the Trusted Advisor checks returned by the+-- DescribeTrustedAdvisorCheckRefreshStatuses operation.+--+-- /See:/ 'newDescribeTrustedAdvisorCheckRefreshStatusesResponse' smart constructor.+data DescribeTrustedAdvisorCheckRefreshStatusesResponse = DescribeTrustedAdvisorCheckRefreshStatusesResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The refresh status of the specified Trusted Advisor checks.+    statuses :: [TrustedAdvisorCheckRefreshStatus]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeTrustedAdvisorCheckRefreshStatusesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'describeTrustedAdvisorCheckRefreshStatusesResponse_httpStatus' - The response's http status code.+--+-- 'statuses', 'describeTrustedAdvisorCheckRefreshStatusesResponse_statuses' - The refresh status of the specified Trusted Advisor checks.+newDescribeTrustedAdvisorCheckRefreshStatusesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeTrustedAdvisorCheckRefreshStatusesResponse+newDescribeTrustedAdvisorCheckRefreshStatusesResponse+  pHttpStatus_ =+    DescribeTrustedAdvisorCheckRefreshStatusesResponse'+      { httpStatus =+          pHttpStatus_,+        statuses =+          Prelude.mempty+      }++-- | The response's http status code.+describeTrustedAdvisorCheckRefreshStatusesResponse_httpStatus :: Lens.Lens' DescribeTrustedAdvisorCheckRefreshStatusesResponse Prelude.Int+describeTrustedAdvisorCheckRefreshStatusesResponse_httpStatus = Lens.lens (\DescribeTrustedAdvisorCheckRefreshStatusesResponse' {httpStatus} -> httpStatus) (\s@DescribeTrustedAdvisorCheckRefreshStatusesResponse' {} a -> s {httpStatus = a} :: DescribeTrustedAdvisorCheckRefreshStatusesResponse)++-- | The refresh status of the specified Trusted Advisor checks.+describeTrustedAdvisorCheckRefreshStatusesResponse_statuses :: Lens.Lens' DescribeTrustedAdvisorCheckRefreshStatusesResponse [TrustedAdvisorCheckRefreshStatus]+describeTrustedAdvisorCheckRefreshStatusesResponse_statuses = Lens.lens (\DescribeTrustedAdvisorCheckRefreshStatusesResponse' {statuses} -> statuses) (\s@DescribeTrustedAdvisorCheckRefreshStatusesResponse' {} a -> s {statuses = a} :: DescribeTrustedAdvisorCheckRefreshStatusesResponse) Prelude.. Lens.coerced++instance+  Prelude.NFData+    DescribeTrustedAdvisorCheckRefreshStatusesResponse+  where+  rnf+    DescribeTrustedAdvisorCheckRefreshStatusesResponse' {..} =+      Prelude.rnf httpStatus+        `Prelude.seq` Prelude.rnf statuses

@@ -0,0 +1,333 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Support.DescribeTrustedAdvisorCheckResult+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the results of the Trusted Advisor check that has the specified+-- check ID. You can get the check IDs by calling the+-- DescribeTrustedAdvisorChecks operation.+--+-- The response contains a TrustedAdvisorCheckResult object, which contains+-- these three objects:+--+-- -   TrustedAdvisorCategorySpecificSummary+--+-- -   TrustedAdvisorResourceDetail+--+-- -   TrustedAdvisorResourcesSummary+--+-- In addition, the response contains these fields:+--+-- -   __status__ - The alert status of the check can be @ok@ (green),+--     @warning@ (yellow), @error@ (red), or @not_available@.+--+-- -   __timestamp__ - The time of the last refresh of the check.+--+-- -   __checkId__ - The unique identifier for the check.+--+-- -   You must have a Business, Enterprise On-Ramp, or Enterprise Support+--     plan to use the Amazon Web Services Support API.+--+-- -   If you call the Amazon Web Services Support API from an account that+--     doesn\'t have a Business, Enterprise On-Ramp, or Enterprise Support+--     plan, the @SubscriptionRequiredException@ error message appears. For+--     information about changing your support plan, see+--     <http://aws.amazon.com/premiumsupport/ Amazon Web Services Support>.+--+-- To call the Trusted Advisor operations in the Amazon Web Services+-- Support API, you must use the US East (N. Virginia) endpoint. Currently,+-- the US West (Oregon) and Europe (Ireland) endpoints don\'t support the+-- Trusted Advisor operations. For more information, see+-- <https://docs.aws.amazon.com/awssupport/latest/user/about-support-api.html#endpoint About the Amazon Web Services Support API>+-- in the /Amazon Web Services Support User Guide/.+module Amazonka.Support.DescribeTrustedAdvisorCheckResult+  ( -- * Creating a Request+    DescribeTrustedAdvisorCheckResult (..),+    newDescribeTrustedAdvisorCheckResult,++    -- * Request Lenses+    describeTrustedAdvisorCheckResult_language,+    describeTrustedAdvisorCheckResult_checkId,++    -- * Destructuring the Response+    DescribeTrustedAdvisorCheckResultResponse (..),+    newDescribeTrustedAdvisorCheckResultResponse,++    -- * Response Lenses+    describeTrustedAdvisorCheckResultResponse_result,+    describeTrustedAdvisorCheckResultResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Support.Types++-- |+--+-- /See:/ 'newDescribeTrustedAdvisorCheckResult' smart constructor.+data DescribeTrustedAdvisorCheckResult = DescribeTrustedAdvisorCheckResult'+  { -- | The ISO 639-1 code for the language that you want your check results to+    -- appear in.+    --+    -- The Amazon Web Services Support API currently supports the following+    -- languages for Trusted Advisor:+    --+    -- -   Chinese, Simplified - @zh@+    --+    -- -   Chinese, Traditional - @zh_TW@+    --+    -- -   English - @en@+    --+    -- -   French - @fr@+    --+    -- -   German - @de@+    --+    -- -   Indonesian - @id@+    --+    -- -   Italian - @it@+    --+    -- -   Japanese - @ja@+    --+    -- -   Korean - @ko@+    --+    -- -   Portuguese, Brazilian - @pt_BR@+    --+    -- -   Spanish - @es@+    language :: Prelude.Maybe Prelude.Text,+    -- | The unique identifier for the Trusted Advisor check.+    checkId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeTrustedAdvisorCheckResult' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'language', 'describeTrustedAdvisorCheckResult_language' - The ISO 639-1 code for the language that you want your check results to+-- appear in.+--+-- The Amazon Web Services Support API currently supports the following+-- languages for Trusted Advisor:+--+-- -   Chinese, Simplified - @zh@+--+-- -   Chinese, Traditional - @zh_TW@+--+-- -   English - @en@+--+-- -   French - @fr@+--+-- -   German - @de@+--+-- -   Indonesian - @id@+--+-- -   Italian - @it@+--+-- -   Japanese - @ja@+--+-- -   Korean - @ko@+--+-- -   Portuguese, Brazilian - @pt_BR@+--+-- -   Spanish - @es@+--+-- 'checkId', 'describeTrustedAdvisorCheckResult_checkId' - The unique identifier for the Trusted Advisor check.+newDescribeTrustedAdvisorCheckResult ::+  -- | 'checkId'+  Prelude.Text ->+  DescribeTrustedAdvisorCheckResult+newDescribeTrustedAdvisorCheckResult pCheckId_ =+  DescribeTrustedAdvisorCheckResult'+    { language =+        Prelude.Nothing,+      checkId = pCheckId_+    }++-- | The ISO 639-1 code for the language that you want your check results to+-- appear in.+--+-- The Amazon Web Services Support API currently supports the following+-- languages for Trusted Advisor:+--+-- -   Chinese, Simplified - @zh@+--+-- -   Chinese, Traditional - @zh_TW@+--+-- -   English - @en@+--+-- -   French - @fr@+--+-- -   German - @de@+--+-- -   Indonesian - @id@+--+-- -   Italian - @it@+--+-- -   Japanese - @ja@+--+-- -   Korean - @ko@+--+-- -   Portuguese, Brazilian - @pt_BR@+--+-- -   Spanish - @es@+describeTrustedAdvisorCheckResult_language :: Lens.Lens' DescribeTrustedAdvisorCheckResult (Prelude.Maybe Prelude.Text)+describeTrustedAdvisorCheckResult_language = Lens.lens (\DescribeTrustedAdvisorCheckResult' {language} -> language) (\s@DescribeTrustedAdvisorCheckResult' {} a -> s {language = a} :: DescribeTrustedAdvisorCheckResult)++-- | The unique identifier for the Trusted Advisor check.+describeTrustedAdvisorCheckResult_checkId :: Lens.Lens' DescribeTrustedAdvisorCheckResult Prelude.Text+describeTrustedAdvisorCheckResult_checkId = Lens.lens (\DescribeTrustedAdvisorCheckResult' {checkId} -> checkId) (\s@DescribeTrustedAdvisorCheckResult' {} a -> s {checkId = a} :: DescribeTrustedAdvisorCheckResult)++instance+  Core.AWSRequest+    DescribeTrustedAdvisorCheckResult+  where+  type+    AWSResponse DescribeTrustedAdvisorCheckResult =+      DescribeTrustedAdvisorCheckResultResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeTrustedAdvisorCheckResultResponse'+            Prelude.<$> (x Data..?> "result")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    DescribeTrustedAdvisorCheckResult+  where+  hashWithSalt+    _salt+    DescribeTrustedAdvisorCheckResult' {..} =+      _salt+        `Prelude.hashWithSalt` language+        `Prelude.hashWithSalt` checkId++instance+  Prelude.NFData+    DescribeTrustedAdvisorCheckResult+  where+  rnf DescribeTrustedAdvisorCheckResult' {..} =+    Prelude.rnf language+      `Prelude.seq` Prelude.rnf checkId++instance+  Data.ToHeaders+    DescribeTrustedAdvisorCheckResult+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSSupport_20130415.DescribeTrustedAdvisorCheckResult" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance+  Data.ToJSON+    DescribeTrustedAdvisorCheckResult+  where+  toJSON DescribeTrustedAdvisorCheckResult' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("language" Data..=) Prelude.<$> language,+            Prelude.Just ("checkId" Data..= checkId)+          ]+      )++instance+  Data.ToPath+    DescribeTrustedAdvisorCheckResult+  where+  toPath = Prelude.const "/"++instance+  Data.ToQuery+    DescribeTrustedAdvisorCheckResult+  where+  toQuery = Prelude.const Prelude.mempty++-- | The result of the Trusted Advisor check returned by the+-- DescribeTrustedAdvisorCheckResult operation.+--+-- /See:/ 'newDescribeTrustedAdvisorCheckResultResponse' smart constructor.+data DescribeTrustedAdvisorCheckResultResponse = DescribeTrustedAdvisorCheckResultResponse'+  { -- | The detailed results of the Trusted Advisor check.+    result :: Prelude.Maybe TrustedAdvisorCheckResult,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeTrustedAdvisorCheckResultResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'result', 'describeTrustedAdvisorCheckResultResponse_result' - The detailed results of the Trusted Advisor check.+--+-- 'httpStatus', 'describeTrustedAdvisorCheckResultResponse_httpStatus' - The response's http status code.+newDescribeTrustedAdvisorCheckResultResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeTrustedAdvisorCheckResultResponse+newDescribeTrustedAdvisorCheckResultResponse+  pHttpStatus_ =+    DescribeTrustedAdvisorCheckResultResponse'+      { result =+          Prelude.Nothing,+        httpStatus = pHttpStatus_+      }++-- | The detailed results of the Trusted Advisor check.+describeTrustedAdvisorCheckResultResponse_result :: Lens.Lens' DescribeTrustedAdvisorCheckResultResponse (Prelude.Maybe TrustedAdvisorCheckResult)+describeTrustedAdvisorCheckResultResponse_result = Lens.lens (\DescribeTrustedAdvisorCheckResultResponse' {result} -> result) (\s@DescribeTrustedAdvisorCheckResultResponse' {} a -> s {result = a} :: DescribeTrustedAdvisorCheckResultResponse)++-- | The response's http status code.+describeTrustedAdvisorCheckResultResponse_httpStatus :: Lens.Lens' DescribeTrustedAdvisorCheckResultResponse Prelude.Int+describeTrustedAdvisorCheckResultResponse_httpStatus = Lens.lens (\DescribeTrustedAdvisorCheckResultResponse' {httpStatus} -> httpStatus) (\s@DescribeTrustedAdvisorCheckResultResponse' {} a -> s {httpStatus = a} :: DescribeTrustedAdvisorCheckResultResponse)++instance+  Prelude.NFData+    DescribeTrustedAdvisorCheckResultResponse+  where+  rnf DescribeTrustedAdvisorCheckResultResponse' {..} =+    Prelude.rnf result+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,220 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Support.DescribeTrustedAdvisorCheckSummaries+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the results for the Trusted Advisor check summaries for the+-- check IDs that you specified. You can get the check IDs by calling the+-- DescribeTrustedAdvisorChecks operation.+--+-- The response contains an array of TrustedAdvisorCheckSummary objects.+--+-- -   You must have a Business, Enterprise On-Ramp, or Enterprise Support+--     plan to use the Amazon Web Services Support API.+--+-- -   If you call the Amazon Web Services Support API from an account that+--     doesn\'t have a Business, Enterprise On-Ramp, or Enterprise Support+--     plan, the @SubscriptionRequiredException@ error message appears. For+--     information about changing your support plan, see+--     <http://aws.amazon.com/premiumsupport/ Amazon Web Services Support>.+--+-- To call the Trusted Advisor operations in the Amazon Web Services+-- Support API, you must use the US East (N. Virginia) endpoint. Currently,+-- the US West (Oregon) and Europe (Ireland) endpoints don\'t support the+-- Trusted Advisor operations. For more information, see+-- <https://docs.aws.amazon.com/awssupport/latest/user/about-support-api.html#endpoint About the Amazon Web Services Support API>+-- in the /Amazon Web Services Support User Guide/.+module Amazonka.Support.DescribeTrustedAdvisorCheckSummaries+  ( -- * Creating a Request+    DescribeTrustedAdvisorCheckSummaries (..),+    newDescribeTrustedAdvisorCheckSummaries,++    -- * Request Lenses+    describeTrustedAdvisorCheckSummaries_checkIds,++    -- * Destructuring the Response+    DescribeTrustedAdvisorCheckSummariesResponse (..),+    newDescribeTrustedAdvisorCheckSummariesResponse,++    -- * Response Lenses+    describeTrustedAdvisorCheckSummariesResponse_httpStatus,+    describeTrustedAdvisorCheckSummariesResponse_summaries,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Support.Types++-- | /See:/ 'newDescribeTrustedAdvisorCheckSummaries' smart constructor.+data DescribeTrustedAdvisorCheckSummaries = DescribeTrustedAdvisorCheckSummaries'+  { -- | The IDs of the Trusted Advisor checks.+    checkIds :: [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeTrustedAdvisorCheckSummaries' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'checkIds', 'describeTrustedAdvisorCheckSummaries_checkIds' - The IDs of the Trusted Advisor checks.+newDescribeTrustedAdvisorCheckSummaries ::+  DescribeTrustedAdvisorCheckSummaries+newDescribeTrustedAdvisorCheckSummaries =+  DescribeTrustedAdvisorCheckSummaries'+    { checkIds =+        Prelude.mempty+    }++-- | The IDs of the Trusted Advisor checks.+describeTrustedAdvisorCheckSummaries_checkIds :: Lens.Lens' DescribeTrustedAdvisorCheckSummaries [Prelude.Text]+describeTrustedAdvisorCheckSummaries_checkIds = Lens.lens (\DescribeTrustedAdvisorCheckSummaries' {checkIds} -> checkIds) (\s@DescribeTrustedAdvisorCheckSummaries' {} a -> s {checkIds = a} :: DescribeTrustedAdvisorCheckSummaries) Prelude.. Lens.coerced++instance+  Core.AWSRequest+    DescribeTrustedAdvisorCheckSummaries+  where+  type+    AWSResponse DescribeTrustedAdvisorCheckSummaries =+      DescribeTrustedAdvisorCheckSummariesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeTrustedAdvisorCheckSummariesResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..?> "summaries" Core..!@ Prelude.mempty)+      )++instance+  Prelude.Hashable+    DescribeTrustedAdvisorCheckSummaries+  where+  hashWithSalt+    _salt+    DescribeTrustedAdvisorCheckSummaries' {..} =+      _salt `Prelude.hashWithSalt` checkIds++instance+  Prelude.NFData+    DescribeTrustedAdvisorCheckSummaries+  where+  rnf DescribeTrustedAdvisorCheckSummaries' {..} =+    Prelude.rnf checkIds++instance+  Data.ToHeaders+    DescribeTrustedAdvisorCheckSummaries+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSSupport_20130415.DescribeTrustedAdvisorCheckSummaries" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance+  Data.ToJSON+    DescribeTrustedAdvisorCheckSummaries+  where+  toJSON DescribeTrustedAdvisorCheckSummaries' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("checkIds" Data..= checkIds)]+      )++instance+  Data.ToPath+    DescribeTrustedAdvisorCheckSummaries+  where+  toPath = Prelude.const "/"++instance+  Data.ToQuery+    DescribeTrustedAdvisorCheckSummaries+  where+  toQuery = Prelude.const Prelude.mempty++-- | The summaries of the Trusted Advisor checks returned by the+-- DescribeTrustedAdvisorCheckSummaries operation.+--+-- /See:/ 'newDescribeTrustedAdvisorCheckSummariesResponse' smart constructor.+data DescribeTrustedAdvisorCheckSummariesResponse = DescribeTrustedAdvisorCheckSummariesResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The summary information for the requested Trusted Advisor checks.+    summaries :: [TrustedAdvisorCheckSummary]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeTrustedAdvisorCheckSummariesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'describeTrustedAdvisorCheckSummariesResponse_httpStatus' - The response's http status code.+--+-- 'summaries', 'describeTrustedAdvisorCheckSummariesResponse_summaries' - The summary information for the requested Trusted Advisor checks.+newDescribeTrustedAdvisorCheckSummariesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeTrustedAdvisorCheckSummariesResponse+newDescribeTrustedAdvisorCheckSummariesResponse+  pHttpStatus_ =+    DescribeTrustedAdvisorCheckSummariesResponse'+      { httpStatus =+          pHttpStatus_,+        summaries = Prelude.mempty+      }++-- | The response's http status code.+describeTrustedAdvisorCheckSummariesResponse_httpStatus :: Lens.Lens' DescribeTrustedAdvisorCheckSummariesResponse Prelude.Int+describeTrustedAdvisorCheckSummariesResponse_httpStatus = Lens.lens (\DescribeTrustedAdvisorCheckSummariesResponse' {httpStatus} -> httpStatus) (\s@DescribeTrustedAdvisorCheckSummariesResponse' {} a -> s {httpStatus = a} :: DescribeTrustedAdvisorCheckSummariesResponse)++-- | The summary information for the requested Trusted Advisor checks.+describeTrustedAdvisorCheckSummariesResponse_summaries :: Lens.Lens' DescribeTrustedAdvisorCheckSummariesResponse [TrustedAdvisorCheckSummary]+describeTrustedAdvisorCheckSummariesResponse_summaries = Lens.lens (\DescribeTrustedAdvisorCheckSummariesResponse' {summaries} -> summaries) (\s@DescribeTrustedAdvisorCheckSummariesResponse' {} a -> s {summaries = a} :: DescribeTrustedAdvisorCheckSummariesResponse) Prelude.. Lens.coerced++instance+  Prelude.NFData+    DescribeTrustedAdvisorCheckSummariesResponse+  where+  rnf DescribeTrustedAdvisorCheckSummariesResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf summaries

@@ -0,0 +1,284 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Support.DescribeTrustedAdvisorChecks+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about all available Trusted Advisor checks,+-- including the name, ID, category, description, and metadata. You must+-- specify a language code.+--+-- The response contains a TrustedAdvisorCheckDescription object for each+-- check. You must set the Amazon Web Services Region to us-east-1.+--+-- -   You must have a Business, Enterprise On-Ramp, or Enterprise Support+--     plan to use the Amazon Web Services Support API.+--+-- -   If you call the Amazon Web Services Support API from an account that+--     doesn\'t have a Business, Enterprise On-Ramp, or Enterprise Support+--     plan, the @SubscriptionRequiredException@ error message appears. For+--     information about changing your support plan, see+--     <http://aws.amazon.com/premiumsupport/ Amazon Web Services Support>.+--+-- -   The names and descriptions for Trusted Advisor checks are subject to+--     change. We recommend that you specify the check ID in your code to+--     uniquely identify a check.+--+-- To call the Trusted Advisor operations in the Amazon Web Services+-- Support API, you must use the US East (N. Virginia) endpoint. Currently,+-- the US West (Oregon) and Europe (Ireland) endpoints don\'t support the+-- Trusted Advisor operations. For more information, see+-- <https://docs.aws.amazon.com/awssupport/latest/user/about-support-api.html#endpoint About the Amazon Web Services Support API>+-- in the /Amazon Web Services Support User Guide/.+module Amazonka.Support.DescribeTrustedAdvisorChecks+  ( -- * Creating a Request+    DescribeTrustedAdvisorChecks (..),+    newDescribeTrustedAdvisorChecks,++    -- * Request Lenses+    describeTrustedAdvisorChecks_language,++    -- * Destructuring the Response+    DescribeTrustedAdvisorChecksResponse (..),+    newDescribeTrustedAdvisorChecksResponse,++    -- * Response Lenses+    describeTrustedAdvisorChecksResponse_httpStatus,+    describeTrustedAdvisorChecksResponse_checks,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Support.Types++-- | /See:/ 'newDescribeTrustedAdvisorChecks' smart constructor.+data DescribeTrustedAdvisorChecks = DescribeTrustedAdvisorChecks'+  { -- | The ISO 639-1 code for the language that you want your checks to appear+    -- in.+    --+    -- The Amazon Web Services Support API currently supports the following+    -- languages for Trusted Advisor:+    --+    -- -   Chinese, Simplified - @zh@+    --+    -- -   Chinese, Traditional - @zh_TW@+    --+    -- -   English - @en@+    --+    -- -   French - @fr@+    --+    -- -   German - @de@+    --+    -- -   Indonesian - @id@+    --+    -- -   Italian - @it@+    --+    -- -   Japanese - @ja@+    --+    -- -   Korean - @ko@+    --+    -- -   Portuguese, Brazilian - @pt_BR@+    --+    -- -   Spanish - @es@+    language :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeTrustedAdvisorChecks' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'language', 'describeTrustedAdvisorChecks_language' - The ISO 639-1 code for the language that you want your checks to appear+-- in.+--+-- The Amazon Web Services Support API currently supports the following+-- languages for Trusted Advisor:+--+-- -   Chinese, Simplified - @zh@+--+-- -   Chinese, Traditional - @zh_TW@+--+-- -   English - @en@+--+-- -   French - @fr@+--+-- -   German - @de@+--+-- -   Indonesian - @id@+--+-- -   Italian - @it@+--+-- -   Japanese - @ja@+--+-- -   Korean - @ko@+--+-- -   Portuguese, Brazilian - @pt_BR@+--+-- -   Spanish - @es@+newDescribeTrustedAdvisorChecks ::+  -- | 'language'+  Prelude.Text ->+  DescribeTrustedAdvisorChecks+newDescribeTrustedAdvisorChecks pLanguage_ =+  DescribeTrustedAdvisorChecks'+    { language =+        pLanguage_+    }++-- | The ISO 639-1 code for the language that you want your checks to appear+-- in.+--+-- The Amazon Web Services Support API currently supports the following+-- languages for Trusted Advisor:+--+-- -   Chinese, Simplified - @zh@+--+-- -   Chinese, Traditional - @zh_TW@+--+-- -   English - @en@+--+-- -   French - @fr@+--+-- -   German - @de@+--+-- -   Indonesian - @id@+--+-- -   Italian - @it@+--+-- -   Japanese - @ja@+--+-- -   Korean - @ko@+--+-- -   Portuguese, Brazilian - @pt_BR@+--+-- -   Spanish - @es@+describeTrustedAdvisorChecks_language :: Lens.Lens' DescribeTrustedAdvisorChecks Prelude.Text+describeTrustedAdvisorChecks_language = Lens.lens (\DescribeTrustedAdvisorChecks' {language} -> language) (\s@DescribeTrustedAdvisorChecks' {} a -> s {language = a} :: DescribeTrustedAdvisorChecks)++instance Core.AWSRequest DescribeTrustedAdvisorChecks where+  type+    AWSResponse DescribeTrustedAdvisorChecks =+      DescribeTrustedAdvisorChecksResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeTrustedAdvisorChecksResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..?> "checks" Core..!@ Prelude.mempty)+      )++instance+  Prelude.Hashable+    DescribeTrustedAdvisorChecks+  where+  hashWithSalt _salt DescribeTrustedAdvisorChecks' {..} =+    _salt `Prelude.hashWithSalt` language++instance Prelude.NFData DescribeTrustedAdvisorChecks where+  rnf DescribeTrustedAdvisorChecks' {..} =+    Prelude.rnf language++instance Data.ToHeaders DescribeTrustedAdvisorChecks where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSSupport_20130415.DescribeTrustedAdvisorChecks" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeTrustedAdvisorChecks where+  toJSON DescribeTrustedAdvisorChecks' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("language" Data..= language)]+      )++instance Data.ToPath DescribeTrustedAdvisorChecks where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeTrustedAdvisorChecks where+  toQuery = Prelude.const Prelude.mempty++-- | Information about the Trusted Advisor checks returned by the+-- DescribeTrustedAdvisorChecks operation.+--+-- /See:/ 'newDescribeTrustedAdvisorChecksResponse' smart constructor.+data DescribeTrustedAdvisorChecksResponse = DescribeTrustedAdvisorChecksResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | Information about all available Trusted Advisor checks.+    checks :: [TrustedAdvisorCheckDescription]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeTrustedAdvisorChecksResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'describeTrustedAdvisorChecksResponse_httpStatus' - The response's http status code.+--+-- 'checks', 'describeTrustedAdvisorChecksResponse_checks' - Information about all available Trusted Advisor checks.+newDescribeTrustedAdvisorChecksResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeTrustedAdvisorChecksResponse+newDescribeTrustedAdvisorChecksResponse pHttpStatus_ =+  DescribeTrustedAdvisorChecksResponse'+    { httpStatus =+        pHttpStatus_,+      checks = Prelude.mempty+    }++-- | The response's http status code.+describeTrustedAdvisorChecksResponse_httpStatus :: Lens.Lens' DescribeTrustedAdvisorChecksResponse Prelude.Int+describeTrustedAdvisorChecksResponse_httpStatus = Lens.lens (\DescribeTrustedAdvisorChecksResponse' {httpStatus} -> httpStatus) (\s@DescribeTrustedAdvisorChecksResponse' {} a -> s {httpStatus = a} :: DescribeTrustedAdvisorChecksResponse)++-- | Information about all available Trusted Advisor checks.+describeTrustedAdvisorChecksResponse_checks :: Lens.Lens' DescribeTrustedAdvisorChecksResponse [TrustedAdvisorCheckDescription]+describeTrustedAdvisorChecksResponse_checks = Lens.lens (\DescribeTrustedAdvisorChecksResponse' {checks} -> checks) (\s@DescribeTrustedAdvisorChecksResponse' {} a -> s {checks = a} :: DescribeTrustedAdvisorChecksResponse) Prelude.. Lens.coerced++instance+  Prelude.NFData+    DescribeTrustedAdvisorChecksResponse+  where+  rnf DescribeTrustedAdvisorChecksResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf checks

@@ -0,0 +1,244 @@+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Support.Lens+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Support.Lens+  ( -- * Operations++    -- ** AddAttachmentsToSet+    addAttachmentsToSet_attachmentSetId,+    addAttachmentsToSet_attachments,+    addAttachmentsToSetResponse_attachmentSetId,+    addAttachmentsToSetResponse_expiryTime,+    addAttachmentsToSetResponse_httpStatus,++    -- ** AddCommunicationToCase+    addCommunicationToCase_attachmentSetId,+    addCommunicationToCase_caseId,+    addCommunicationToCase_ccEmailAddresses,+    addCommunicationToCase_communicationBody,+    addCommunicationToCaseResponse_result,+    addCommunicationToCaseResponse_httpStatus,++    -- ** CreateCase+    createCase_attachmentSetId,+    createCase_categoryCode,+    createCase_ccEmailAddresses,+    createCase_issueType,+    createCase_language,+    createCase_serviceCode,+    createCase_severityCode,+    createCase_subject,+    createCase_communicationBody,+    createCaseResponse_caseId,+    createCaseResponse_httpStatus,++    -- ** DescribeAttachment+    describeAttachment_attachmentId,+    describeAttachmentResponse_attachment,+    describeAttachmentResponse_httpStatus,++    -- ** DescribeCases+    describeCases_afterTime,+    describeCases_beforeTime,+    describeCases_caseIdList,+    describeCases_displayId,+    describeCases_includeCommunications,+    describeCases_includeResolvedCases,+    describeCases_language,+    describeCases_maxResults,+    describeCases_nextToken,+    describeCasesResponse_cases,+    describeCasesResponse_nextToken,+    describeCasesResponse_httpStatus,++    -- ** DescribeCommunications+    describeCommunications_afterTime,+    describeCommunications_beforeTime,+    describeCommunications_maxResults,+    describeCommunications_nextToken,+    describeCommunications_caseId,+    describeCommunicationsResponse_communications,+    describeCommunicationsResponse_nextToken,+    describeCommunicationsResponse_httpStatus,++    -- ** DescribeServices+    describeServices_language,+    describeServices_serviceCodeList,+    describeServicesResponse_services,+    describeServicesResponse_httpStatus,++    -- ** DescribeSeverityLevels+    describeSeverityLevels_language,+    describeSeverityLevelsResponse_severityLevels,+    describeSeverityLevelsResponse_httpStatus,++    -- ** DescribeTrustedAdvisorCheckRefreshStatuses+    describeTrustedAdvisorCheckRefreshStatuses_checkIds,+    describeTrustedAdvisorCheckRefreshStatusesResponse_httpStatus,+    describeTrustedAdvisorCheckRefreshStatusesResponse_statuses,++    -- ** DescribeTrustedAdvisorCheckResult+    describeTrustedAdvisorCheckResult_language,+    describeTrustedAdvisorCheckResult_checkId,+    describeTrustedAdvisorCheckResultResponse_result,+    describeTrustedAdvisorCheckResultResponse_httpStatus,++    -- ** DescribeTrustedAdvisorCheckSummaries+    describeTrustedAdvisorCheckSummaries_checkIds,+    describeTrustedAdvisorCheckSummariesResponse_httpStatus,+    describeTrustedAdvisorCheckSummariesResponse_summaries,++    -- ** DescribeTrustedAdvisorChecks+    describeTrustedAdvisorChecks_language,+    describeTrustedAdvisorChecksResponse_httpStatus,+    describeTrustedAdvisorChecksResponse_checks,++    -- ** RefreshTrustedAdvisorCheck+    refreshTrustedAdvisorCheck_checkId,+    refreshTrustedAdvisorCheckResponse_httpStatus,+    refreshTrustedAdvisorCheckResponse_status,++    -- ** ResolveCase+    resolveCase_caseId,+    resolveCaseResponse_finalCaseStatus,+    resolveCaseResponse_initialCaseStatus,+    resolveCaseResponse_httpStatus,++    -- * Types++    -- ** Attachment+    attachment_data,+    attachment_fileName,++    -- ** AttachmentDetails+    attachmentDetails_attachmentId,+    attachmentDetails_fileName,++    -- ** CaseDetails+    caseDetails_caseId,+    caseDetails_categoryCode,+    caseDetails_ccEmailAddresses,+    caseDetails_displayId,+    caseDetails_language,+    caseDetails_recentCommunications,+    caseDetails_serviceCode,+    caseDetails_severityCode,+    caseDetails_status,+    caseDetails_subject,+    caseDetails_submittedBy,+    caseDetails_timeCreated,++    -- ** Category+    category_code,+    category_name,++    -- ** Communication+    communication_attachmentSet,+    communication_body,+    communication_caseId,+    communication_submittedBy,+    communication_timeCreated,++    -- ** RecentCaseCommunications+    recentCaseCommunications_communications,+    recentCaseCommunications_nextToken,++    -- ** SeverityLevel+    severityLevel_code,+    severityLevel_name,++    -- ** SupportService+    supportService_categories,+    supportService_code,+    supportService_name,++    -- ** TrustedAdvisorCategorySpecificSummary+    trustedAdvisorCategorySpecificSummary_costOptimizing,++    -- ** TrustedAdvisorCheckDescription+    trustedAdvisorCheckDescription_id,+    trustedAdvisorCheckDescription_name,+    trustedAdvisorCheckDescription_description,+    trustedAdvisorCheckDescription_category,+    trustedAdvisorCheckDescription_metadata,++    -- ** TrustedAdvisorCheckRefreshStatus+    trustedAdvisorCheckRefreshStatus_checkId,+    trustedAdvisorCheckRefreshStatus_status,+    trustedAdvisorCheckRefreshStatus_millisUntilNextRefreshable,++    -- ** TrustedAdvisorCheckResult+    trustedAdvisorCheckResult_checkId,+    trustedAdvisorCheckResult_timestamp,+    trustedAdvisorCheckResult_status,+    trustedAdvisorCheckResult_resourcesSummary,+    trustedAdvisorCheckResult_categorySpecificSummary,+    trustedAdvisorCheckResult_flaggedResources,++    -- ** TrustedAdvisorCheckSummary+    trustedAdvisorCheckSummary_hasFlaggedResources,+    trustedAdvisorCheckSummary_checkId,+    trustedAdvisorCheckSummary_timestamp,+    trustedAdvisorCheckSummary_status,+    trustedAdvisorCheckSummary_resourcesSummary,+    trustedAdvisorCheckSummary_categorySpecificSummary,++    -- ** TrustedAdvisorCostOptimizingSummary+    trustedAdvisorCostOptimizingSummary_estimatedMonthlySavings,+    trustedAdvisorCostOptimizingSummary_estimatedPercentMonthlySavings,++    -- ** TrustedAdvisorResourceDetail+    trustedAdvisorResourceDetail_isSuppressed,+    trustedAdvisorResourceDetail_region,+    trustedAdvisorResourceDetail_status,+    trustedAdvisorResourceDetail_resourceId,+    trustedAdvisorResourceDetail_metadata,++    -- ** TrustedAdvisorResourcesSummary+    trustedAdvisorResourcesSummary_resourcesProcessed,+    trustedAdvisorResourcesSummary_resourcesFlagged,+    trustedAdvisorResourcesSummary_resourcesIgnored,+    trustedAdvisorResourcesSummary_resourcesSuppressed,+  )+where++import Amazonka.Support.AddAttachmentsToSet+import Amazonka.Support.AddCommunicationToCase+import Amazonka.Support.CreateCase+import Amazonka.Support.DescribeAttachment+import Amazonka.Support.DescribeCases+import Amazonka.Support.DescribeCommunications+import Amazonka.Support.DescribeServices+import Amazonka.Support.DescribeSeverityLevels+import Amazonka.Support.DescribeTrustedAdvisorCheckRefreshStatuses+import Amazonka.Support.DescribeTrustedAdvisorCheckResult+import Amazonka.Support.DescribeTrustedAdvisorCheckSummaries+import Amazonka.Support.DescribeTrustedAdvisorChecks+import Amazonka.Support.RefreshTrustedAdvisorCheck+import Amazonka.Support.ResolveCase+import Amazonka.Support.Types.Attachment+import Amazonka.Support.Types.AttachmentDetails+import Amazonka.Support.Types.CaseDetails+import Amazonka.Support.Types.Category+import Amazonka.Support.Types.Communication+import Amazonka.Support.Types.RecentCaseCommunications+import Amazonka.Support.Types.SeverityLevel+import Amazonka.Support.Types.SupportService+import Amazonka.Support.Types.TrustedAdvisorCategorySpecificSummary+import Amazonka.Support.Types.TrustedAdvisorCheckDescription+import Amazonka.Support.Types.TrustedAdvisorCheckRefreshStatus+import Amazonka.Support.Types.TrustedAdvisorCheckResult+import Amazonka.Support.Types.TrustedAdvisorCheckSummary+import Amazonka.Support.Types.TrustedAdvisorCostOptimizingSummary+import Amazonka.Support.Types.TrustedAdvisorResourceDetail+import Amazonka.Support.Types.TrustedAdvisorResourcesSummary

@@ -0,0 +1,216 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Support.RefreshTrustedAdvisorCheck+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Refreshes the Trusted Advisor check that you specify using the check ID.+-- You can get the check IDs by calling the DescribeTrustedAdvisorChecks+-- operation.+--+-- Some checks are refreshed automatically. If you call the+-- @RefreshTrustedAdvisorCheck@ operation to refresh them, you might see+-- the @InvalidParameterValue@ error.+--+-- The response contains a TrustedAdvisorCheckRefreshStatus object.+--+-- -   You must have a Business, Enterprise On-Ramp, or Enterprise Support+--     plan to use the Amazon Web Services Support API.+--+-- -   If you call the Amazon Web Services Support API from an account that+--     doesn\'t have a Business, Enterprise On-Ramp, or Enterprise Support+--     plan, the @SubscriptionRequiredException@ error message appears. For+--     information about changing your support plan, see+--     <http://aws.amazon.com/premiumsupport/ Amazon Web Services Support>.+--+-- To call the Trusted Advisor operations in the Amazon Web Services+-- Support API, you must use the US East (N. Virginia) endpoint. Currently,+-- the US West (Oregon) and Europe (Ireland) endpoints don\'t support the+-- Trusted Advisor operations. For more information, see+-- <https://docs.aws.amazon.com/awssupport/latest/user/about-support-api.html#endpoint About the Amazon Web Services Support API>+-- in the /Amazon Web Services Support User Guide/.+module Amazonka.Support.RefreshTrustedAdvisorCheck+  ( -- * Creating a Request+    RefreshTrustedAdvisorCheck (..),+    newRefreshTrustedAdvisorCheck,++    -- * Request Lenses+    refreshTrustedAdvisorCheck_checkId,++    -- * Destructuring the Response+    RefreshTrustedAdvisorCheckResponse (..),+    newRefreshTrustedAdvisorCheckResponse,++    -- * Response Lenses+    refreshTrustedAdvisorCheckResponse_httpStatus,+    refreshTrustedAdvisorCheckResponse_status,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Support.Types++-- |+--+-- /See:/ 'newRefreshTrustedAdvisorCheck' smart constructor.+data RefreshTrustedAdvisorCheck = RefreshTrustedAdvisorCheck'+  { -- | The unique identifier for the Trusted Advisor check to refresh.+    --+    -- Specifying the check ID of a check that is automatically refreshed+    -- causes an @InvalidParameterValue@ error.+    checkId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RefreshTrustedAdvisorCheck' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'checkId', 'refreshTrustedAdvisorCheck_checkId' - The unique identifier for the Trusted Advisor check to refresh.+--+-- Specifying the check ID of a check that is automatically refreshed+-- causes an @InvalidParameterValue@ error.+newRefreshTrustedAdvisorCheck ::+  -- | 'checkId'+  Prelude.Text ->+  RefreshTrustedAdvisorCheck+newRefreshTrustedAdvisorCheck pCheckId_ =+  RefreshTrustedAdvisorCheck' {checkId = pCheckId_}++-- | The unique identifier for the Trusted Advisor check to refresh.+--+-- Specifying the check ID of a check that is automatically refreshed+-- causes an @InvalidParameterValue@ error.+refreshTrustedAdvisorCheck_checkId :: Lens.Lens' RefreshTrustedAdvisorCheck Prelude.Text+refreshTrustedAdvisorCheck_checkId = Lens.lens (\RefreshTrustedAdvisorCheck' {checkId} -> checkId) (\s@RefreshTrustedAdvisorCheck' {} a -> s {checkId = a} :: RefreshTrustedAdvisorCheck)++instance Core.AWSRequest RefreshTrustedAdvisorCheck where+  type+    AWSResponse RefreshTrustedAdvisorCheck =+      RefreshTrustedAdvisorCheckResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          RefreshTrustedAdvisorCheckResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "status")+      )++instance Prelude.Hashable RefreshTrustedAdvisorCheck where+  hashWithSalt _salt RefreshTrustedAdvisorCheck' {..} =+    _salt `Prelude.hashWithSalt` checkId++instance Prelude.NFData RefreshTrustedAdvisorCheck where+  rnf RefreshTrustedAdvisorCheck' {..} =+    Prelude.rnf checkId++instance Data.ToHeaders RefreshTrustedAdvisorCheck where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSSupport_20130415.RefreshTrustedAdvisorCheck" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON RefreshTrustedAdvisorCheck where+  toJSON RefreshTrustedAdvisorCheck' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("checkId" Data..= checkId)]+      )++instance Data.ToPath RefreshTrustedAdvisorCheck where+  toPath = Prelude.const "/"++instance Data.ToQuery RefreshTrustedAdvisorCheck where+  toQuery = Prelude.const Prelude.mempty++-- | The current refresh status of a Trusted Advisor check.+--+-- /See:/ 'newRefreshTrustedAdvisorCheckResponse' smart constructor.+data RefreshTrustedAdvisorCheckResponse = RefreshTrustedAdvisorCheckResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The current refresh status for a check, including the amount of time+    -- until the check is eligible for refresh.+    status :: TrustedAdvisorCheckRefreshStatus+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RefreshTrustedAdvisorCheckResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'refreshTrustedAdvisorCheckResponse_httpStatus' - The response's http status code.+--+-- 'status', 'refreshTrustedAdvisorCheckResponse_status' - The current refresh status for a check, including the amount of time+-- until the check is eligible for refresh.+newRefreshTrustedAdvisorCheckResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'status'+  TrustedAdvisorCheckRefreshStatus ->+  RefreshTrustedAdvisorCheckResponse+newRefreshTrustedAdvisorCheckResponse+  pHttpStatus_+  pStatus_ =+    RefreshTrustedAdvisorCheckResponse'+      { httpStatus =+          pHttpStatus_,+        status = pStatus_+      }++-- | The response's http status code.+refreshTrustedAdvisorCheckResponse_httpStatus :: Lens.Lens' RefreshTrustedAdvisorCheckResponse Prelude.Int+refreshTrustedAdvisorCheckResponse_httpStatus = Lens.lens (\RefreshTrustedAdvisorCheckResponse' {httpStatus} -> httpStatus) (\s@RefreshTrustedAdvisorCheckResponse' {} a -> s {httpStatus = a} :: RefreshTrustedAdvisorCheckResponse)++-- | The current refresh status for a check, including the amount of time+-- until the check is eligible for refresh.+refreshTrustedAdvisorCheckResponse_status :: Lens.Lens' RefreshTrustedAdvisorCheckResponse TrustedAdvisorCheckRefreshStatus+refreshTrustedAdvisorCheckResponse_status = Lens.lens (\RefreshTrustedAdvisorCheckResponse' {status} -> status) (\s@RefreshTrustedAdvisorCheckResponse' {} a -> s {status = a} :: RefreshTrustedAdvisorCheckResponse)++instance+  Prelude.NFData+    RefreshTrustedAdvisorCheckResponse+  where+  rnf RefreshTrustedAdvisorCheckResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf status

@@ -0,0 +1,194 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Support.ResolveCase+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Resolves a support case. This operation takes a @caseId@ and returns the+-- initial and final state of the case.+--+-- -   You must have a Business, Enterprise On-Ramp, or Enterprise Support+--     plan to use the Amazon Web Services Support API.+--+-- -   If you call the Amazon Web Services Support API from an account that+--     doesn\'t have a Business, Enterprise On-Ramp, or Enterprise Support+--     plan, the @SubscriptionRequiredException@ error message appears. For+--     information about changing your support plan, see+--     <http://aws.amazon.com/premiumsupport/ Amazon Web Services Support>.+module Amazonka.Support.ResolveCase+  ( -- * Creating a Request+    ResolveCase (..),+    newResolveCase,++    -- * Request Lenses+    resolveCase_caseId,++    -- * Destructuring the Response+    ResolveCaseResponse (..),+    newResolveCaseResponse,++    -- * Response Lenses+    resolveCaseResponse_finalCaseStatus,+    resolveCaseResponse_initialCaseStatus,+    resolveCaseResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Support.Types++-- | /See:/ 'newResolveCase' smart constructor.+data ResolveCase = ResolveCase'+  { -- | The support case ID requested or returned in the call. The case ID is an+    -- alphanumeric string formatted as shown in this example:+    -- case-/12345678910-2013-c4c1d2bf33c5cf47/+    caseId :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ResolveCase' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'caseId', 'resolveCase_caseId' - The support case ID requested or returned in the call. The case ID is an+-- alphanumeric string formatted as shown in this example:+-- case-/12345678910-2013-c4c1d2bf33c5cf47/+newResolveCase ::+  ResolveCase+newResolveCase =+  ResolveCase' {caseId = Prelude.Nothing}++-- | The support case ID requested or returned in the call. The case ID is an+-- alphanumeric string formatted as shown in this example:+-- case-/12345678910-2013-c4c1d2bf33c5cf47/+resolveCase_caseId :: Lens.Lens' ResolveCase (Prelude.Maybe Prelude.Text)+resolveCase_caseId = Lens.lens (\ResolveCase' {caseId} -> caseId) (\s@ResolveCase' {} a -> s {caseId = a} :: ResolveCase)++instance Core.AWSRequest ResolveCase where+  type AWSResponse ResolveCase = ResolveCaseResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ResolveCaseResponse'+            Prelude.<$> (x Data..?> "finalCaseStatus")+            Prelude.<*> (x Data..?> "initialCaseStatus")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ResolveCase where+  hashWithSalt _salt ResolveCase' {..} =+    _salt `Prelude.hashWithSalt` caseId++instance Prelude.NFData ResolveCase where+  rnf ResolveCase' {..} = Prelude.rnf caseId++instance Data.ToHeaders ResolveCase where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSSupport_20130415.ResolveCase" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ResolveCase where+  toJSON ResolveCase' {..} =+    Data.object+      ( Prelude.catMaybes+          [("caseId" Data..=) Prelude.<$> caseId]+      )++instance Data.ToPath ResolveCase where+  toPath = Prelude.const "/"++instance Data.ToQuery ResolveCase where+  toQuery = Prelude.const Prelude.mempty++-- | The status of the case returned by the ResolveCase operation.+--+-- /See:/ 'newResolveCaseResponse' smart constructor.+data ResolveCaseResponse = ResolveCaseResponse'+  { -- | The status of the case after the ResolveCase request was processed.+    finalCaseStatus :: Prelude.Maybe Prelude.Text,+    -- | The status of the case when the ResolveCase request was sent.+    initialCaseStatus :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ResolveCaseResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'finalCaseStatus', 'resolveCaseResponse_finalCaseStatus' - The status of the case after the ResolveCase request was processed.+--+-- 'initialCaseStatus', 'resolveCaseResponse_initialCaseStatus' - The status of the case when the ResolveCase request was sent.+--+-- 'httpStatus', 'resolveCaseResponse_httpStatus' - The response's http status code.+newResolveCaseResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ResolveCaseResponse+newResolveCaseResponse pHttpStatus_ =+  ResolveCaseResponse'+    { finalCaseStatus =+        Prelude.Nothing,+      initialCaseStatus = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The status of the case after the ResolveCase request was processed.+resolveCaseResponse_finalCaseStatus :: Lens.Lens' ResolveCaseResponse (Prelude.Maybe Prelude.Text)+resolveCaseResponse_finalCaseStatus = Lens.lens (\ResolveCaseResponse' {finalCaseStatus} -> finalCaseStatus) (\s@ResolveCaseResponse' {} a -> s {finalCaseStatus = a} :: ResolveCaseResponse)++-- | The status of the case when the ResolveCase request was sent.+resolveCaseResponse_initialCaseStatus :: Lens.Lens' ResolveCaseResponse (Prelude.Maybe Prelude.Text)+resolveCaseResponse_initialCaseStatus = Lens.lens (\ResolveCaseResponse' {initialCaseStatus} -> initialCaseStatus) (\s@ResolveCaseResponse' {} a -> s {initialCaseStatus = a} :: ResolveCaseResponse)++-- | The response's http status code.+resolveCaseResponse_httpStatus :: Lens.Lens' ResolveCaseResponse Prelude.Int+resolveCaseResponse_httpStatus = Lens.lens (\ResolveCaseResponse' {httpStatus} -> httpStatus) (\s@ResolveCaseResponse' {} a -> s {httpStatus = a} :: ResolveCaseResponse)++instance Prelude.NFData ResolveCaseResponse where+  rnf ResolveCaseResponse' {..} =+    Prelude.rnf finalCaseStatus+      `Prelude.seq` Prelude.rnf initialCaseStatus+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,315 @@+{-# LANGUAGE DisambiguateRecordFields #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Support.Types+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Support.Types+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    _AttachmentIdNotFound,+    _AttachmentLimitExceeded,+    _AttachmentSetExpired,+    _AttachmentSetIdNotFound,+    _AttachmentSetSizeLimitExceeded,+    _CaseCreationLimitExceeded,+    _CaseIdNotFound,+    _DescribeAttachmentLimitExceeded,+    _InternalServerError,++    -- * Attachment+    Attachment (..),+    newAttachment,+    attachment_data,+    attachment_fileName,++    -- * AttachmentDetails+    AttachmentDetails (..),+    newAttachmentDetails,+    attachmentDetails_attachmentId,+    attachmentDetails_fileName,++    -- * CaseDetails+    CaseDetails (..),+    newCaseDetails,+    caseDetails_caseId,+    caseDetails_categoryCode,+    caseDetails_ccEmailAddresses,+    caseDetails_displayId,+    caseDetails_language,+    caseDetails_recentCommunications,+    caseDetails_serviceCode,+    caseDetails_severityCode,+    caseDetails_status,+    caseDetails_subject,+    caseDetails_submittedBy,+    caseDetails_timeCreated,++    -- * Category+    Category (..),+    newCategory,+    category_code,+    category_name,++    -- * Communication+    Communication (..),+    newCommunication,+    communication_attachmentSet,+    communication_body,+    communication_caseId,+    communication_submittedBy,+    communication_timeCreated,++    -- * RecentCaseCommunications+    RecentCaseCommunications (..),+    newRecentCaseCommunications,+    recentCaseCommunications_communications,+    recentCaseCommunications_nextToken,++    -- * SeverityLevel+    SeverityLevel (..),+    newSeverityLevel,+    severityLevel_code,+    severityLevel_name,++    -- * SupportService+    SupportService (..),+    newSupportService,+    supportService_categories,+    supportService_code,+    supportService_name,++    -- * TrustedAdvisorCategorySpecificSummary+    TrustedAdvisorCategorySpecificSummary (..),+    newTrustedAdvisorCategorySpecificSummary,+    trustedAdvisorCategorySpecificSummary_costOptimizing,++    -- * TrustedAdvisorCheckDescription+    TrustedAdvisorCheckDescription (..),+    newTrustedAdvisorCheckDescription,+    trustedAdvisorCheckDescription_id,+    trustedAdvisorCheckDescription_name,+    trustedAdvisorCheckDescription_description,+    trustedAdvisorCheckDescription_category,+    trustedAdvisorCheckDescription_metadata,++    -- * TrustedAdvisorCheckRefreshStatus+    TrustedAdvisorCheckRefreshStatus (..),+    newTrustedAdvisorCheckRefreshStatus,+    trustedAdvisorCheckRefreshStatus_checkId,+    trustedAdvisorCheckRefreshStatus_status,+    trustedAdvisorCheckRefreshStatus_millisUntilNextRefreshable,++    -- * TrustedAdvisorCheckResult+    TrustedAdvisorCheckResult (..),+    newTrustedAdvisorCheckResult,+    trustedAdvisorCheckResult_checkId,+    trustedAdvisorCheckResult_timestamp,+    trustedAdvisorCheckResult_status,+    trustedAdvisorCheckResult_resourcesSummary,+    trustedAdvisorCheckResult_categorySpecificSummary,+    trustedAdvisorCheckResult_flaggedResources,++    -- * TrustedAdvisorCheckSummary+    TrustedAdvisorCheckSummary (..),+    newTrustedAdvisorCheckSummary,+    trustedAdvisorCheckSummary_hasFlaggedResources,+    trustedAdvisorCheckSummary_checkId,+    trustedAdvisorCheckSummary_timestamp,+    trustedAdvisorCheckSummary_status,+    trustedAdvisorCheckSummary_resourcesSummary,+    trustedAdvisorCheckSummary_categorySpecificSummary,++    -- * TrustedAdvisorCostOptimizingSummary+    TrustedAdvisorCostOptimizingSummary (..),+    newTrustedAdvisorCostOptimizingSummary,+    trustedAdvisorCostOptimizingSummary_estimatedMonthlySavings,+    trustedAdvisorCostOptimizingSummary_estimatedPercentMonthlySavings,++    -- * TrustedAdvisorResourceDetail+    TrustedAdvisorResourceDetail (..),+    newTrustedAdvisorResourceDetail,+    trustedAdvisorResourceDetail_isSuppressed,+    trustedAdvisorResourceDetail_region,+    trustedAdvisorResourceDetail_status,+    trustedAdvisorResourceDetail_resourceId,+    trustedAdvisorResourceDetail_metadata,++    -- * TrustedAdvisorResourcesSummary+    TrustedAdvisorResourcesSummary (..),+    newTrustedAdvisorResourcesSummary,+    trustedAdvisorResourcesSummary_resourcesProcessed,+    trustedAdvisorResourcesSummary_resourcesFlagged,+    trustedAdvisorResourcesSummary_resourcesIgnored,+    trustedAdvisorResourcesSummary_resourcesSuppressed,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Sign.V4 as Sign+import Amazonka.Support.Types.Attachment+import Amazonka.Support.Types.AttachmentDetails+import Amazonka.Support.Types.CaseDetails+import Amazonka.Support.Types.Category+import Amazonka.Support.Types.Communication+import Amazonka.Support.Types.RecentCaseCommunications+import Amazonka.Support.Types.SeverityLevel+import Amazonka.Support.Types.SupportService+import Amazonka.Support.Types.TrustedAdvisorCategorySpecificSummary+import Amazonka.Support.Types.TrustedAdvisorCheckDescription+import Amazonka.Support.Types.TrustedAdvisorCheckRefreshStatus+import Amazonka.Support.Types.TrustedAdvisorCheckResult+import Amazonka.Support.Types.TrustedAdvisorCheckSummary+import Amazonka.Support.Types.TrustedAdvisorCostOptimizingSummary+import Amazonka.Support.Types.TrustedAdvisorResourceDetail+import Amazonka.Support.Types.TrustedAdvisorResourcesSummary++-- | API version @2013-04-15@ of the Amazon Support SDK configuration.+defaultService :: Core.Service+defaultService =+  Core.Service+    { Core.abbrev = "Support",+      Core.signer = Sign.v4,+      Core.endpointPrefix = "support",+      Core.signingName = "support",+      Core.version = "2013-04-15",+      Core.s3AddressingStyle = Core.S3AddressingStyleAuto,+      Core.endpoint = Core.defaultEndpoint defaultService,+      Core.timeout = Prelude.Just 70,+      Core.check = Core.statusSuccess,+      Core.error = Core.parseJSONError "Support",+      Core.retry = retry+    }+  where+    retry =+      Core.Exponential+        { Core.base = 5.0e-2,+          Core.growth = 2,+          Core.attempts = 5,+          Core.check = check+        }+    check e+      | Lens.has (Core.hasStatus 502) e =+          Prelude.Just "bad_gateway"+      | Lens.has (Core.hasStatus 504) e =+          Prelude.Just "gateway_timeout"+      | Lens.has (Core.hasStatus 500) e =+          Prelude.Just "general_server_error"+      | Lens.has (Core.hasStatus 509) e =+          Prelude.Just "limit_exceeded"+      | Lens.has+          ( Core.hasCode "RequestThrottledException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "request_throttled_exception"+      | Lens.has (Core.hasStatus 503) e =+          Prelude.Just "service_unavailable"+      | Lens.has+          ( Core.hasCode "ThrottledException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttled_exception"+      | Lens.has+          ( Core.hasCode "Throttling"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttling"+      | Lens.has+          ( Core.hasCode "ThrottlingException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttling_exception"+      | Lens.has+          ( Core.hasCode+              "ProvisionedThroughputExceededException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throughput_exceeded"+      | Lens.has (Core.hasStatus 429) e =+          Prelude.Just "too_many_requests"+      | Prelude.otherwise = Prelude.Nothing++-- | An attachment with the specified ID could not be found.+_AttachmentIdNotFound :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_AttachmentIdNotFound =+  Core._MatchServiceError+    defaultService+    "AttachmentIdNotFound"++-- | The limit for the number of attachment sets created in a short period of+-- time has been exceeded.+_AttachmentLimitExceeded :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_AttachmentLimitExceeded =+  Core._MatchServiceError+    defaultService+    "AttachmentLimitExceeded"++-- | The expiration time of the attachment set has passed. The set expires 1+-- hour after it is created.+_AttachmentSetExpired :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_AttachmentSetExpired =+  Core._MatchServiceError+    defaultService+    "AttachmentSetExpired"++-- | An attachment set with the specified ID could not be found.+_AttachmentSetIdNotFound :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_AttachmentSetIdNotFound =+  Core._MatchServiceError+    defaultService+    "AttachmentSetIdNotFound"++-- | A limit for the size of an attachment set has been exceeded. The limits+-- are three attachments and 5 MB per attachment.+_AttachmentSetSizeLimitExceeded :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_AttachmentSetSizeLimitExceeded =+  Core._MatchServiceError+    defaultService+    "AttachmentSetSizeLimitExceeded"++-- | The case creation limit for the account has been exceeded.+_CaseCreationLimitExceeded :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_CaseCreationLimitExceeded =+  Core._MatchServiceError+    defaultService+    "CaseCreationLimitExceeded"++-- | The requested @caseId@ couldn\'t be located.+_CaseIdNotFound :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_CaseIdNotFound =+  Core._MatchServiceError+    defaultService+    "CaseIdNotFound"++-- | The limit for the number of DescribeAttachment requests in a short+-- period of time has been exceeded.+_DescribeAttachmentLimitExceeded :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_DescribeAttachmentLimitExceeded =+  Core._MatchServiceError+    defaultService+    "DescribeAttachmentLimitExceeded"++-- | An internal server error occurred.+_InternalServerError :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InternalServerError =+  Core._MatchServiceError+    defaultService+    "InternalServerError"

@@ -0,0 +1,102 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Support.Types.Attachment+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Support.Types.Attachment where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | An attachment to a case communication. The attachment consists of the+-- file name and the content of the file.+--+-- /See:/ 'newAttachment' smart constructor.+data Attachment = Attachment'+  { -- | The content of the attachment file.+    data' :: Prelude.Maybe Data.Base64,+    -- | The name of the attachment file.+    fileName :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Attachment' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'data'', 'attachment_data' - The content of the attachment file.--+-- -- /Note:/ This 'Lens' automatically encodes and decodes Base64 data.+-- -- The underlying isomorphism will encode to Base64 representation during+-- -- serialisation, and decode from Base64 representation during deserialisation.+-- -- This 'Lens' accepts and returns only raw unencoded data.+--+-- 'fileName', 'attachment_fileName' - The name of the attachment file.+newAttachment ::+  Attachment+newAttachment =+  Attachment'+    { data' = Prelude.Nothing,+      fileName = Prelude.Nothing+    }++-- | The content of the attachment file.--+-- -- /Note:/ This 'Lens' automatically encodes and decodes Base64 data.+-- -- The underlying isomorphism will encode to Base64 representation during+-- -- serialisation, and decode from Base64 representation during deserialisation.+-- -- This 'Lens' accepts and returns only raw unencoded data.+attachment_data :: Lens.Lens' Attachment (Prelude.Maybe Prelude.ByteString)+attachment_data = Lens.lens (\Attachment' {data'} -> data') (\s@Attachment' {} a -> s {data' = a} :: Attachment) Prelude.. Lens.mapping Data._Base64++-- | The name of the attachment file.+attachment_fileName :: Lens.Lens' Attachment (Prelude.Maybe Prelude.Text)+attachment_fileName = Lens.lens (\Attachment' {fileName} -> fileName) (\s@Attachment' {} a -> s {fileName = a} :: Attachment)++instance Data.FromJSON Attachment where+  parseJSON =+    Data.withObject+      "Attachment"+      ( \x ->+          Attachment'+            Prelude.<$> (x Data..:? "data")+            Prelude.<*> (x Data..:? "fileName")+      )++instance Prelude.Hashable Attachment where+  hashWithSalt _salt Attachment' {..} =+    _salt+      `Prelude.hashWithSalt` data'+      `Prelude.hashWithSalt` fileName++instance Prelude.NFData Attachment where+  rnf Attachment' {..} =+    Prelude.rnf data'+      `Prelude.seq` Prelude.rnf fileName++instance Data.ToJSON Attachment where+  toJSON Attachment' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("data" Data..=) Prelude.<$> data',+            ("fileName" Data..=) Prelude.<$> fileName+          ]+      )

@@ -0,0 +1,86 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Support.Types.AttachmentDetails+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Support.Types.AttachmentDetails where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | The file name and ID of an attachment to a case communication. You can+-- use the ID to retrieve the attachment with the DescribeAttachment+-- operation.+--+-- /See:/ 'newAttachmentDetails' smart constructor.+data AttachmentDetails = AttachmentDetails'+  { -- | The ID of the attachment.+    attachmentId :: Prelude.Maybe Prelude.Text,+    -- | The file name of the attachment.+    fileName :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AttachmentDetails' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'attachmentId', 'attachmentDetails_attachmentId' - The ID of the attachment.+--+-- 'fileName', 'attachmentDetails_fileName' - The file name of the attachment.+newAttachmentDetails ::+  AttachmentDetails+newAttachmentDetails =+  AttachmentDetails'+    { attachmentId = Prelude.Nothing,+      fileName = Prelude.Nothing+    }++-- | The ID of the attachment.+attachmentDetails_attachmentId :: Lens.Lens' AttachmentDetails (Prelude.Maybe Prelude.Text)+attachmentDetails_attachmentId = Lens.lens (\AttachmentDetails' {attachmentId} -> attachmentId) (\s@AttachmentDetails' {} a -> s {attachmentId = a} :: AttachmentDetails)++-- | The file name of the attachment.+attachmentDetails_fileName :: Lens.Lens' AttachmentDetails (Prelude.Maybe Prelude.Text)+attachmentDetails_fileName = Lens.lens (\AttachmentDetails' {fileName} -> fileName) (\s@AttachmentDetails' {} a -> s {fileName = a} :: AttachmentDetails)++instance Data.FromJSON AttachmentDetails where+  parseJSON =+    Data.withObject+      "AttachmentDetails"+      ( \x ->+          AttachmentDetails'+            Prelude.<$> (x Data..:? "attachmentId")+            Prelude.<*> (x Data..:? "fileName")+      )++instance Prelude.Hashable AttachmentDetails where+  hashWithSalt _salt AttachmentDetails' {..} =+    _salt+      `Prelude.hashWithSalt` attachmentId+      `Prelude.hashWithSalt` fileName++instance Prelude.NFData AttachmentDetails where+  rnf AttachmentDetails' {..} =+    Prelude.rnf attachmentId+      `Prelude.seq` Prelude.rnf fileName

@@ -0,0 +1,342 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Support.Types.CaseDetails+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Support.Types.CaseDetails where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Support.Types.RecentCaseCommunications++-- | A JSON-formatted object that contains the metadata for a support case.+-- It is contained in the response from a DescribeCases request.+-- __CaseDetails__ contains the following fields:+--+-- -   __caseId__ - The support case ID requested or returned in the call.+--     The case ID is an alphanumeric string formatted as shown in this+--     example: case-/12345678910-2013-c4c1d2bf33c5cf47/.+--+-- -   __categoryCode__ - The category of problem for the support case.+--     Corresponds to the @CategoryCode@ values returned by a call to+--     DescribeServices.+--+-- -   __displayId__ - The identifier for the case on pages in the Amazon+--     Web Services Support Center.+--+-- -   __language__ - The language in which Amazon Web Services Support+--     handles the case. Amazon Web Services Support currently supports+--     English (\"en\") and Japanese (\"ja\"). You must specify the ISO+--     639-1 code for the @language@ parameter if you want support in that+--     language.+--+-- -   __nextToken__ - A resumption point for pagination.+--+-- -   __recentCommunications__ - One or more Communication objects. Fields+--     of these objects are @attachments@, @body@, @caseId@, @submittedBy@,+--     and @timeCreated@.+--+-- -   __serviceCode__ - The identifier for the Amazon Web Services service+--     that corresponds to the service code defined in the call to+--     DescribeServices.+--+-- -   __severityCode__ - The severity code assigned to the case. Contains+--     one of the values returned by the call to DescribeSeverityLevels.+--     The possible values are: @low@, @normal@, @high@, @urgent@, and+--     @critical@.+--+-- -   __status__ - The status of the case in the Amazon Web Services+--     Support Center. Valid values:+--+--     -   @opened@+--+--     -   @pending-customer-action@+--+--     -   @reopened@+--+--     -   @resolved@+--+--     -   @unassigned@+--+--     -   @work-in-progress@+--+-- -   __subject__ - The subject line of the case.+--+-- -   __submittedBy__ - The email address of the account that submitted+--     the case.+--+-- -   __timeCreated__ - The time the case was created, in ISO-8601 format.+--+-- /See:/ 'newCaseDetails' smart constructor.+data CaseDetails = CaseDetails'+  { -- | The support case ID requested or returned in the call. The case ID is an+    -- alphanumeric string formatted as shown in this example:+    -- case-/12345678910-2013-c4c1d2bf33c5cf47/+    caseId :: Prelude.Maybe Prelude.Text,+    -- | The category of problem for the support case.+    categoryCode :: Prelude.Maybe Prelude.Text,+    -- | The email addresses that receive copies of communication about the case.+    ccEmailAddresses :: Prelude.Maybe [Prelude.Text],+    -- | The ID displayed for the case in the Amazon Web Services Support Center.+    -- This is a numeric string.+    displayId :: Prelude.Maybe Prelude.Text,+    -- | The language in which Amazon Web Services Support handles the case.+    -- Amazon Web Services Support currently supports English (\"en\") and+    -- Japanese (\"ja\"). You must specify the ISO 639-1 code for the+    -- @language@ parameter if you want support in that language.+    language :: Prelude.Maybe Prelude.Text,+    -- | The five most recent communications between you and Amazon Web Services+    -- Support Center, including the IDs of any attachments to the+    -- communications. Also includes a @nextToken@ that you can use to retrieve+    -- earlier communications.+    recentCommunications :: Prelude.Maybe RecentCaseCommunications,+    -- | The code for the Amazon Web Services service. You can get a list of+    -- codes and the corresponding service names by calling DescribeServices.+    serviceCode :: Prelude.Maybe Prelude.Text,+    -- | The code for the severity level returned by the call to+    -- DescribeSeverityLevels.+    severityCode :: Prelude.Maybe Prelude.Text,+    -- | The status of the case.+    --+    -- Valid values:+    --+    -- -   @opened@+    --+    -- -   @pending-customer-action@+    --+    -- -   @reopened@+    --+    -- -   @resolved@+    --+    -- -   @unassigned@+    --+    -- -   @work-in-progress@+    status :: Prelude.Maybe Prelude.Text,+    -- | The subject line for the case in the Amazon Web Services Support Center.+    subject :: Prelude.Maybe Prelude.Text,+    -- | The email address of the account that submitted the case.+    submittedBy :: Prelude.Maybe Prelude.Text,+    -- | The time that the case was created in the Amazon Web Services Support+    -- Center.+    timeCreated :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CaseDetails' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'caseId', 'caseDetails_caseId' - The support case ID requested or returned in the call. The case ID is an+-- alphanumeric string formatted as shown in this example:+-- case-/12345678910-2013-c4c1d2bf33c5cf47/+--+-- 'categoryCode', 'caseDetails_categoryCode' - The category of problem for the support case.+--+-- 'ccEmailAddresses', 'caseDetails_ccEmailAddresses' - The email addresses that receive copies of communication about the case.+--+-- 'displayId', 'caseDetails_displayId' - The ID displayed for the case in the Amazon Web Services Support Center.+-- This is a numeric string.+--+-- 'language', 'caseDetails_language' - The language in which Amazon Web Services Support handles the case.+-- Amazon Web Services Support currently supports English (\"en\") and+-- Japanese (\"ja\"). You must specify the ISO 639-1 code for the+-- @language@ parameter if you want support in that language.+--+-- 'recentCommunications', 'caseDetails_recentCommunications' - The five most recent communications between you and Amazon Web Services+-- Support Center, including the IDs of any attachments to the+-- communications. Also includes a @nextToken@ that you can use to retrieve+-- earlier communications.+--+-- 'serviceCode', 'caseDetails_serviceCode' - The code for the Amazon Web Services service. You can get a list of+-- codes and the corresponding service names by calling DescribeServices.+--+-- 'severityCode', 'caseDetails_severityCode' - The code for the severity level returned by the call to+-- DescribeSeverityLevels.+--+-- 'status', 'caseDetails_status' - The status of the case.+--+-- Valid values:+--+-- -   @opened@+--+-- -   @pending-customer-action@+--+-- -   @reopened@+--+-- -   @resolved@+--+-- -   @unassigned@+--+-- -   @work-in-progress@+--+-- 'subject', 'caseDetails_subject' - The subject line for the case in the Amazon Web Services Support Center.+--+-- 'submittedBy', 'caseDetails_submittedBy' - The email address of the account that submitted the case.+--+-- 'timeCreated', 'caseDetails_timeCreated' - The time that the case was created in the Amazon Web Services Support+-- Center.+newCaseDetails ::+  CaseDetails+newCaseDetails =+  CaseDetails'+    { caseId = Prelude.Nothing,+      categoryCode = Prelude.Nothing,+      ccEmailAddresses = Prelude.Nothing,+      displayId = Prelude.Nothing,+      language = Prelude.Nothing,+      recentCommunications = Prelude.Nothing,+      serviceCode = Prelude.Nothing,+      severityCode = Prelude.Nothing,+      status = Prelude.Nothing,+      subject = Prelude.Nothing,+      submittedBy = Prelude.Nothing,+      timeCreated = Prelude.Nothing+    }++-- | The support case ID requested or returned in the call. The case ID is an+-- alphanumeric string formatted as shown in this example:+-- case-/12345678910-2013-c4c1d2bf33c5cf47/+caseDetails_caseId :: Lens.Lens' CaseDetails (Prelude.Maybe Prelude.Text)+caseDetails_caseId = Lens.lens (\CaseDetails' {caseId} -> caseId) (\s@CaseDetails' {} a -> s {caseId = a} :: CaseDetails)++-- | The category of problem for the support case.+caseDetails_categoryCode :: Lens.Lens' CaseDetails (Prelude.Maybe Prelude.Text)+caseDetails_categoryCode = Lens.lens (\CaseDetails' {categoryCode} -> categoryCode) (\s@CaseDetails' {} a -> s {categoryCode = a} :: CaseDetails)++-- | The email addresses that receive copies of communication about the case.+caseDetails_ccEmailAddresses :: Lens.Lens' CaseDetails (Prelude.Maybe [Prelude.Text])+caseDetails_ccEmailAddresses = Lens.lens (\CaseDetails' {ccEmailAddresses} -> ccEmailAddresses) (\s@CaseDetails' {} a -> s {ccEmailAddresses = a} :: CaseDetails) Prelude.. Lens.mapping Lens.coerced++-- | The ID displayed for the case in the Amazon Web Services Support Center.+-- This is a numeric string.+caseDetails_displayId :: Lens.Lens' CaseDetails (Prelude.Maybe Prelude.Text)+caseDetails_displayId = Lens.lens (\CaseDetails' {displayId} -> displayId) (\s@CaseDetails' {} a -> s {displayId = a} :: CaseDetails)++-- | The language in which Amazon Web Services Support handles the case.+-- Amazon Web Services Support currently supports English (\"en\") and+-- Japanese (\"ja\"). You must specify the ISO 639-1 code for the+-- @language@ parameter if you want support in that language.+caseDetails_language :: Lens.Lens' CaseDetails (Prelude.Maybe Prelude.Text)+caseDetails_language = Lens.lens (\CaseDetails' {language} -> language) (\s@CaseDetails' {} a -> s {language = a} :: CaseDetails)++-- | The five most recent communications between you and Amazon Web Services+-- Support Center, including the IDs of any attachments to the+-- communications. Also includes a @nextToken@ that you can use to retrieve+-- earlier communications.+caseDetails_recentCommunications :: Lens.Lens' CaseDetails (Prelude.Maybe RecentCaseCommunications)+caseDetails_recentCommunications = Lens.lens (\CaseDetails' {recentCommunications} -> recentCommunications) (\s@CaseDetails' {} a -> s {recentCommunications = a} :: CaseDetails)++-- | The code for the Amazon Web Services service. You can get a list of+-- codes and the corresponding service names by calling DescribeServices.+caseDetails_serviceCode :: Lens.Lens' CaseDetails (Prelude.Maybe Prelude.Text)+caseDetails_serviceCode = Lens.lens (\CaseDetails' {serviceCode} -> serviceCode) (\s@CaseDetails' {} a -> s {serviceCode = a} :: CaseDetails)++-- | The code for the severity level returned by the call to+-- DescribeSeverityLevels.+caseDetails_severityCode :: Lens.Lens' CaseDetails (Prelude.Maybe Prelude.Text)+caseDetails_severityCode = Lens.lens (\CaseDetails' {severityCode} -> severityCode) (\s@CaseDetails' {} a -> s {severityCode = a} :: CaseDetails)++-- | The status of the case.+--+-- Valid values:+--+-- -   @opened@+--+-- -   @pending-customer-action@+--+-- -   @reopened@+--+-- -   @resolved@+--+-- -   @unassigned@+--+-- -   @work-in-progress@+caseDetails_status :: Lens.Lens' CaseDetails (Prelude.Maybe Prelude.Text)+caseDetails_status = Lens.lens (\CaseDetails' {status} -> status) (\s@CaseDetails' {} a -> s {status = a} :: CaseDetails)++-- | The subject line for the case in the Amazon Web Services Support Center.+caseDetails_subject :: Lens.Lens' CaseDetails (Prelude.Maybe Prelude.Text)+caseDetails_subject = Lens.lens (\CaseDetails' {subject} -> subject) (\s@CaseDetails' {} a -> s {subject = a} :: CaseDetails)++-- | The email address of the account that submitted the case.+caseDetails_submittedBy :: Lens.Lens' CaseDetails (Prelude.Maybe Prelude.Text)+caseDetails_submittedBy = Lens.lens (\CaseDetails' {submittedBy} -> submittedBy) (\s@CaseDetails' {} a -> s {submittedBy = a} :: CaseDetails)++-- | The time that the case was created in the Amazon Web Services Support+-- Center.+caseDetails_timeCreated :: Lens.Lens' CaseDetails (Prelude.Maybe Prelude.Text)+caseDetails_timeCreated = Lens.lens (\CaseDetails' {timeCreated} -> timeCreated) (\s@CaseDetails' {} a -> s {timeCreated = a} :: CaseDetails)++instance Data.FromJSON CaseDetails where+  parseJSON =+    Data.withObject+      "CaseDetails"+      ( \x ->+          CaseDetails'+            Prelude.<$> (x Data..:? "caseId")+            Prelude.<*> (x Data..:? "categoryCode")+            Prelude.<*> ( x+                            Data..:? "ccEmailAddresses"+                            Data..!= Prelude.mempty+                        )+            Prelude.<*> (x Data..:? "displayId")+            Prelude.<*> (x Data..:? "language")+            Prelude.<*> (x Data..:? "recentCommunications")+            Prelude.<*> (x Data..:? "serviceCode")+            Prelude.<*> (x Data..:? "severityCode")+            Prelude.<*> (x Data..:? "status")+            Prelude.<*> (x Data..:? "subject")+            Prelude.<*> (x Data..:? "submittedBy")+            Prelude.<*> (x Data..:? "timeCreated")+      )++instance Prelude.Hashable CaseDetails where+  hashWithSalt _salt CaseDetails' {..} =+    _salt+      `Prelude.hashWithSalt` caseId+      `Prelude.hashWithSalt` categoryCode+      `Prelude.hashWithSalt` ccEmailAddresses+      `Prelude.hashWithSalt` displayId+      `Prelude.hashWithSalt` language+      `Prelude.hashWithSalt` recentCommunications+      `Prelude.hashWithSalt` serviceCode+      `Prelude.hashWithSalt` severityCode+      `Prelude.hashWithSalt` status+      `Prelude.hashWithSalt` subject+      `Prelude.hashWithSalt` submittedBy+      `Prelude.hashWithSalt` timeCreated++instance Prelude.NFData CaseDetails where+  rnf CaseDetails' {..} =+    Prelude.rnf caseId+      `Prelude.seq` Prelude.rnf categoryCode+      `Prelude.seq` Prelude.rnf ccEmailAddresses+      `Prelude.seq` Prelude.rnf displayId+      `Prelude.seq` Prelude.rnf language+      `Prelude.seq` Prelude.rnf recentCommunications+      `Prelude.seq` Prelude.rnf serviceCode+      `Prelude.seq` Prelude.rnf severityCode+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf subject+      `Prelude.seq` Prelude.rnf submittedBy+      `Prelude.seq` Prelude.rnf timeCreated

@@ -0,0 +1,85 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Support.Types.Category+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Support.Types.Category where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | A JSON-formatted name\/value pair that represents the category name and+-- category code of the problem, selected from the DescribeServices+-- response for each Amazon Web Services service.+--+-- /See:/ 'newCategory' smart constructor.+data Category = Category'+  { -- | The category code for the support case.+    code :: Prelude.Maybe Prelude.Text,+    -- | The category name for the support case.+    name :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Category' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'code', 'category_code' - The category code for the support case.+--+-- 'name', 'category_name' - The category name for the support case.+newCategory ::+  Category+newCategory =+  Category'+    { code = Prelude.Nothing,+      name = Prelude.Nothing+    }++-- | The category code for the support case.+category_code :: Lens.Lens' Category (Prelude.Maybe Prelude.Text)+category_code = Lens.lens (\Category' {code} -> code) (\s@Category' {} a -> s {code = a} :: Category)++-- | The category name for the support case.+category_name :: Lens.Lens' Category (Prelude.Maybe Prelude.Text)+category_name = Lens.lens (\Category' {name} -> name) (\s@Category' {} a -> s {name = a} :: Category)++instance Data.FromJSON Category where+  parseJSON =+    Data.withObject+      "Category"+      ( \x ->+          Category'+            Prelude.<$> (x Data..:? "code")+            Prelude.<*> (x Data..:? "name")+      )++instance Prelude.Hashable Category where+  hashWithSalt _salt Category' {..} =+    _salt+      `Prelude.hashWithSalt` code+      `Prelude.hashWithSalt` name++instance Prelude.NFData Category where+  rnf Category' {..} =+    Prelude.rnf code `Prelude.seq` Prelude.rnf name

@@ -0,0 +1,145 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Support.Types.Communication+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Support.Types.Communication where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Support.Types.AttachmentDetails++-- | A communication associated with a support case. The communication+-- consists of the case ID, the message body, attachment information, the+-- submitter of the communication, and the date and time of the+-- communication.+--+-- /See:/ 'newCommunication' smart constructor.+data Communication = Communication'+  { -- | Information about the attachments to the case communication.+    attachmentSet :: Prelude.Maybe [AttachmentDetails],+    -- | The text of the communication between the customer and Amazon Web+    -- Services Support.+    body :: Prelude.Maybe Prelude.Text,+    -- | The support case ID requested or returned in the call. The case ID is an+    -- alphanumeric string formatted as shown in this example:+    -- case-/12345678910-2013-c4c1d2bf33c5cf47/+    caseId :: Prelude.Maybe Prelude.Text,+    -- | The identity of the account that submitted, or responded to, the support+    -- case. Customer entries include the role or IAM user as well as the email+    -- address. For example, \"AdminRole (Role) \<janedoe\@example.com>.+    -- Entries from the Amazon Web Services Support team display \"Amazon Web+    -- Services,\" and don\'t show an email address.+    submittedBy :: Prelude.Maybe Prelude.Text,+    -- | The time the communication was created.+    timeCreated :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Communication' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'attachmentSet', 'communication_attachmentSet' - Information about the attachments to the case communication.+--+-- 'body', 'communication_body' - The text of the communication between the customer and Amazon Web+-- Services Support.+--+-- 'caseId', 'communication_caseId' - The support case ID requested or returned in the call. The case ID is an+-- alphanumeric string formatted as shown in this example:+-- case-/12345678910-2013-c4c1d2bf33c5cf47/+--+-- 'submittedBy', 'communication_submittedBy' - The identity of the account that submitted, or responded to, the support+-- case. Customer entries include the role or IAM user as well as the email+-- address. For example, \"AdminRole (Role) \<janedoe\@example.com>.+-- Entries from the Amazon Web Services Support team display \"Amazon Web+-- Services,\" and don\'t show an email address.+--+-- 'timeCreated', 'communication_timeCreated' - The time the communication was created.+newCommunication ::+  Communication+newCommunication =+  Communication'+    { attachmentSet = Prelude.Nothing,+      body = Prelude.Nothing,+      caseId = Prelude.Nothing,+      submittedBy = Prelude.Nothing,+      timeCreated = Prelude.Nothing+    }++-- | Information about the attachments to the case communication.+communication_attachmentSet :: Lens.Lens' Communication (Prelude.Maybe [AttachmentDetails])+communication_attachmentSet = Lens.lens (\Communication' {attachmentSet} -> attachmentSet) (\s@Communication' {} a -> s {attachmentSet = a} :: Communication) Prelude.. Lens.mapping Lens.coerced++-- | The text of the communication between the customer and Amazon Web+-- Services Support.+communication_body :: Lens.Lens' Communication (Prelude.Maybe Prelude.Text)+communication_body = Lens.lens (\Communication' {body} -> body) (\s@Communication' {} a -> s {body = a} :: Communication)++-- | The support case ID requested or returned in the call. The case ID is an+-- alphanumeric string formatted as shown in this example:+-- case-/12345678910-2013-c4c1d2bf33c5cf47/+communication_caseId :: Lens.Lens' Communication (Prelude.Maybe Prelude.Text)+communication_caseId = Lens.lens (\Communication' {caseId} -> caseId) (\s@Communication' {} a -> s {caseId = a} :: Communication)++-- | The identity of the account that submitted, or responded to, the support+-- case. Customer entries include the role or IAM user as well as the email+-- address. For example, \"AdminRole (Role) \<janedoe\@example.com>.+-- Entries from the Amazon Web Services Support team display \"Amazon Web+-- Services,\" and don\'t show an email address.+communication_submittedBy :: Lens.Lens' Communication (Prelude.Maybe Prelude.Text)+communication_submittedBy = Lens.lens (\Communication' {submittedBy} -> submittedBy) (\s@Communication' {} a -> s {submittedBy = a} :: Communication)++-- | The time the communication was created.+communication_timeCreated :: Lens.Lens' Communication (Prelude.Maybe Prelude.Text)+communication_timeCreated = Lens.lens (\Communication' {timeCreated} -> timeCreated) (\s@Communication' {} a -> s {timeCreated = a} :: Communication)++instance Data.FromJSON Communication where+  parseJSON =+    Data.withObject+      "Communication"+      ( \x ->+          Communication'+            Prelude.<$> (x Data..:? "attachmentSet" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..:? "body")+            Prelude.<*> (x Data..:? "caseId")+            Prelude.<*> (x Data..:? "submittedBy")+            Prelude.<*> (x Data..:? "timeCreated")+      )++instance Prelude.Hashable Communication where+  hashWithSalt _salt Communication' {..} =+    _salt+      `Prelude.hashWithSalt` attachmentSet+      `Prelude.hashWithSalt` body+      `Prelude.hashWithSalt` caseId+      `Prelude.hashWithSalt` submittedBy+      `Prelude.hashWithSalt` timeCreated++instance Prelude.NFData Communication where+  rnf Communication' {..} =+    Prelude.rnf attachmentSet+      `Prelude.seq` Prelude.rnf body+      `Prelude.seq` Prelude.rnf caseId+      `Prelude.seq` Prelude.rnf submittedBy+      `Prelude.seq` Prelude.rnf timeCreated

@@ -0,0 +1,86 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Support.Types.RecentCaseCommunications+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Support.Types.RecentCaseCommunications where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Support.Types.Communication++-- | The five most recent communications associated with the case.+--+-- /See:/ 'newRecentCaseCommunications' smart constructor.+data RecentCaseCommunications = RecentCaseCommunications'+  { -- | The five most recent communications associated with the case.+    communications :: Prelude.Maybe [Communication],+    -- | A resumption point for pagination.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RecentCaseCommunications' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'communications', 'recentCaseCommunications_communications' - The five most recent communications associated with the case.+--+-- 'nextToken', 'recentCaseCommunications_nextToken' - A resumption point for pagination.+newRecentCaseCommunications ::+  RecentCaseCommunications+newRecentCaseCommunications =+  RecentCaseCommunications'+    { communications =+        Prelude.Nothing,+      nextToken = Prelude.Nothing+    }++-- | The five most recent communications associated with the case.+recentCaseCommunications_communications :: Lens.Lens' RecentCaseCommunications (Prelude.Maybe [Communication])+recentCaseCommunications_communications = Lens.lens (\RecentCaseCommunications' {communications} -> communications) (\s@RecentCaseCommunications' {} a -> s {communications = a} :: RecentCaseCommunications) Prelude.. Lens.mapping Lens.coerced++-- | A resumption point for pagination.+recentCaseCommunications_nextToken :: Lens.Lens' RecentCaseCommunications (Prelude.Maybe Prelude.Text)+recentCaseCommunications_nextToken = Lens.lens (\RecentCaseCommunications' {nextToken} -> nextToken) (\s@RecentCaseCommunications' {} a -> s {nextToken = a} :: RecentCaseCommunications)++instance Data.FromJSON RecentCaseCommunications where+  parseJSON =+    Data.withObject+      "RecentCaseCommunications"+      ( \x ->+          RecentCaseCommunications'+            Prelude.<$> (x Data..:? "communications" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..:? "nextToken")+      )++instance Prelude.Hashable RecentCaseCommunications where+  hashWithSalt _salt RecentCaseCommunications' {..} =+    _salt+      `Prelude.hashWithSalt` communications+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData RecentCaseCommunications where+  rnf RecentCaseCommunications' {..} =+    Prelude.rnf communications+      `Prelude.seq` Prelude.rnf nextToken

@@ -0,0 +1,156 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Support.Types.SeverityLevel+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Support.Types.SeverityLevel where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | A code and name pair that represents the severity level of a support+-- case. The available values depend on the support plan for the account.+-- For more information, see+-- <https://docs.aws.amazon.com/awssupport/latest/user/case-management.html#choosing-severity Choosing a severity>+-- in the /Amazon Web Services Support User Guide/.+--+-- /See:/ 'newSeverityLevel' smart constructor.+data SeverityLevel = SeverityLevel'+  { -- | The code for case severity level.+    --+    -- Valid values: @low@ | @normal@ | @high@ | @urgent@ | @critical@+    code :: Prelude.Maybe Prelude.Text,+    -- | The name of the severity level that corresponds to the severity level+    -- code.+    --+    -- The values returned by the API are different from the values that appear+    -- in the Amazon Web Services Support Center. For example, the API uses the+    -- code @low@, but the name appears as General guidance in Support Center.+    --+    -- The following are the API code names and how they appear in the console:+    --+    -- -   @low@ - General guidance+    --+    -- -   @normal@ - System impaired+    --+    -- -   @high@ - Production system impaired+    --+    -- -   @urgent@ - Production system down+    --+    -- -   @critical@ - Business-critical system down+    --+    -- For more information, see+    -- <https://docs.aws.amazon.com/awssupport/latest/user/case-management.html#choosing-severity Choosing a severity>+    -- in the /Amazon Web Services Support User Guide/.+    name :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SeverityLevel' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'code', 'severityLevel_code' - The code for case severity level.+--+-- Valid values: @low@ | @normal@ | @high@ | @urgent@ | @critical@+--+-- 'name', 'severityLevel_name' - The name of the severity level that corresponds to the severity level+-- code.+--+-- The values returned by the API are different from the values that appear+-- in the Amazon Web Services Support Center. For example, the API uses the+-- code @low@, but the name appears as General guidance in Support Center.+--+-- The following are the API code names and how they appear in the console:+--+-- -   @low@ - General guidance+--+-- -   @normal@ - System impaired+--+-- -   @high@ - Production system impaired+--+-- -   @urgent@ - Production system down+--+-- -   @critical@ - Business-critical system down+--+-- For more information, see+-- <https://docs.aws.amazon.com/awssupport/latest/user/case-management.html#choosing-severity Choosing a severity>+-- in the /Amazon Web Services Support User Guide/.+newSeverityLevel ::+  SeverityLevel+newSeverityLevel =+  SeverityLevel'+    { code = Prelude.Nothing,+      name = Prelude.Nothing+    }++-- | The code for case severity level.+--+-- Valid values: @low@ | @normal@ | @high@ | @urgent@ | @critical@+severityLevel_code :: Lens.Lens' SeverityLevel (Prelude.Maybe Prelude.Text)+severityLevel_code = Lens.lens (\SeverityLevel' {code} -> code) (\s@SeverityLevel' {} a -> s {code = a} :: SeverityLevel)++-- | The name of the severity level that corresponds to the severity level+-- code.+--+-- The values returned by the API are different from the values that appear+-- in the Amazon Web Services Support Center. For example, the API uses the+-- code @low@, but the name appears as General guidance in Support Center.+--+-- The following are the API code names and how they appear in the console:+--+-- -   @low@ - General guidance+--+-- -   @normal@ - System impaired+--+-- -   @high@ - Production system impaired+--+-- -   @urgent@ - Production system down+--+-- -   @critical@ - Business-critical system down+--+-- For more information, see+-- <https://docs.aws.amazon.com/awssupport/latest/user/case-management.html#choosing-severity Choosing a severity>+-- in the /Amazon Web Services Support User Guide/.+severityLevel_name :: Lens.Lens' SeverityLevel (Prelude.Maybe Prelude.Text)+severityLevel_name = Lens.lens (\SeverityLevel' {name} -> name) (\s@SeverityLevel' {} a -> s {name = a} :: SeverityLevel)++instance Data.FromJSON SeverityLevel where+  parseJSON =+    Data.withObject+      "SeverityLevel"+      ( \x ->+          SeverityLevel'+            Prelude.<$> (x Data..:? "code")+            Prelude.<*> (x Data..:? "name")+      )++instance Prelude.Hashable SeverityLevel where+  hashWithSalt _salt SeverityLevel' {..} =+    _salt+      `Prelude.hashWithSalt` code+      `Prelude.hashWithSalt` name++instance Prelude.NFData SeverityLevel where+  rnf SeverityLevel' {..} =+    Prelude.rnf code `Prelude.seq` Prelude.rnf name