amazonka-cloudhsmv2 1.6.1 → 2.0

raw patch · 74 files changed

+6022/−2930 lines, 74 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-cloudhsmv2.cabal +99/−84
• fixture/CopyBackupToRegion.yaml +10/−0
• fixture/CopyBackupToRegionResponse.proto +0/−0
• fixture/CreateHSM.yaml +0/−10
• fixture/CreateHSMResponse.proto +0/−0
• fixture/CreateHsm.yaml +10/−0
• fixture/CreateHsmResponse.proto +0/−0
• fixture/DeleteBackup.yaml +10/−0
• fixture/DeleteBackupResponse.proto +0/−0
• fixture/DeleteHSM.yaml +0/−10
• fixture/DeleteHSMResponse.proto +0/−0
• fixture/DeleteHsm.yaml +10/−0
• fixture/DeleteHsmResponse.proto +0/−0
• fixture/ModifyBackupAttributes.yaml +10/−0
• fixture/ModifyBackupAttributesResponse.proto +0/−0
• fixture/ModifyCluster.yaml +10/−0
• fixture/ModifyClusterResponse.proto +0/−0
• fixture/RestoreBackup.yaml +10/−0
• fixture/RestoreBackupResponse.proto +0/−0
• gen/Amazonka/CloudHSMV2.hs +229/−0
• gen/Amazonka/CloudHSMV2/CopyBackupToRegion.hs +232/−0
• gen/Amazonka/CloudHSMV2/CreateCluster.hs +256/−0
• gen/Amazonka/CloudHSMV2/CreateHsm.hs +213/−0
• gen/Amazonka/CloudHSMV2/DeleteBackup.hs +170/−0
• gen/Amazonka/CloudHSMV2/DeleteCluster.hs +173/−0
• gen/Amazonka/CloudHSMV2/DeleteHsm.hs +219/−0
• gen/Amazonka/CloudHSMV2/DescribeBackups.hs +324/−0
• gen/Amazonka/CloudHSMV2/DescribeClusters.hs +285/−0
• gen/Amazonka/CloudHSMV2/InitializeCluster.hs +242/−0
• gen/Amazonka/CloudHSMV2/Lens.hs +204/−0
• gen/Amazonka/CloudHSMV2/ListTags.hs +251/−0
• gen/Amazonka/CloudHSMV2/ModifyBackupAttributes.hs +202/−0
• gen/Amazonka/CloudHSMV2/ModifyCluster.hs +193/−0
• gen/Amazonka/CloudHSMV2/RestoreBackup.hs +172/−0
• gen/Amazonka/CloudHSMV2/TagResource.hs +172/−0
• gen/Amazonka/CloudHSMV2/Types.hs +251/−0
• gen/Amazonka/CloudHSMV2/Types/Backup.hs +219/−0
• gen/Amazonka/CloudHSMV2/Types/BackupPolicy.hs +66/−0
• gen/Amazonka/CloudHSMV2/Types/BackupRetentionPolicy.hs +96/−0
• gen/Amazonka/CloudHSMV2/Types/BackupRetentionType.hs +66/−0
• gen/Amazonka/CloudHSMV2/Types/BackupState.hs +81/−0
• gen/Amazonka/CloudHSMV2/Types/Certificates.hs +131/−0
• gen/Amazonka/CloudHSMV2/Types/Cluster.hs +258/−0
• gen/Amazonka/CloudHSMV2/Types/ClusterState.hs +106/−0
• gen/Amazonka/CloudHSMV2/Types/DestinationBackup.hs +119/−0
• gen/Amazonka/CloudHSMV2/Types/Hsm.hs +160/−0
• gen/Amazonka/CloudHSMV2/Types/HsmState.hs +86/−0
• gen/Amazonka/CloudHSMV2/Types/Tag.hs +93/−0
• gen/Amazonka/CloudHSMV2/UntagResource.hs +180/−0
• gen/Amazonka/CloudHSMV2/Waiters.hs +24/−0
• gen/Network/AWS/CloudHSMv2.hs +0/−184
• gen/Network/AWS/CloudHSMv2/CreateCluster.hs +0/−156
• gen/Network/AWS/CloudHSMv2/CreateHSM.hs +0/−156
• gen/Network/AWS/CloudHSMv2/DeleteCluster.hs +0/−131
• gen/Network/AWS/CloudHSMv2/DeleteHSM.hs +0/−164
• gen/Network/AWS/CloudHSMv2/DescribeBackups.hs +0/−175
• gen/Network/AWS/CloudHSMv2/DescribeClusters.hs +0/−175
• gen/Network/AWS/CloudHSMv2/InitializeCluster.hs +0/−169
• gen/Network/AWS/CloudHSMv2/ListTags.hs +0/−179
• gen/Network/AWS/CloudHSMv2/TagResource.hs +0/−132
• gen/Network/AWS/CloudHSMv2/Types.hs +0/−173
• gen/Network/AWS/CloudHSMv2/Types/Product.hs +0/−456
• gen/Network/AWS/CloudHSMv2/Types/Sum.hs +0/−158
• gen/Network/AWS/CloudHSMv2/UntagResource.hs +0/−134
• gen/Network/AWS/CloudHSMv2/Waiters.hs +0/−21
• test/Main.hs +11/−9
• test/Test/AWS/CloudHSMv2.hs +0/−20
• test/Test/AWS/CloudHSMv2/Internal.hs +0/−9
• test/Test/AWS/Gen/CloudHSMv2.hs +0/−219
• test/Test/Amazonka/CloudHSMV2.hs +20/−0
• test/Test/Amazonka/CloudHSMV2/Internal.hs +8/−0
• test/Test/Amazonka/Gen/CloudHSMV2.hs +338/−0

@@ -7,9 +7,8 @@   ## Version--`1.6.1`-+ +`2.0` - Derived from API version @2017-04-28@ 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.CloudHSMv2](http://hackage.haskell.org/package/amazonka-cloudhsmv2/docs/Network-AWS-CloudHSMv2.html)+See [Amazonka.CloudHSMV2](http://hackage.haskell.org/package/amazonka-cloudhsmv2/docs/Amazonka-CloudHSMV2.html) or [the AWS documentation](https://aws.amazon.com/documentation/) to get started.  

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

@@ -1,95 +1,110 @@-name:                  amazonka-cloudhsmv2-version:               1.6.1-synopsis:              Amazon CloudHSM V2 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-cloudhsmv2+version:            2.0+synopsis:           Amazon CloudHSM V2 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.CloudHSMv2" or <https://aws.amazon.com/documentation/ the AWS documentation>-    to get started.+  Derived from API version @2017-04-28@ 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.CloudHSMV2.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.CloudHSMV2" 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-cloudhsmv2+  type:     git+  location: git://github.com/brendanhay/amazonka.git+  subdir:   amazonka-cloudhsmv2  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.CloudHSMv2-        , Network.AWS.CloudHSMv2.CreateCluster-        , Network.AWS.CloudHSMv2.CreateHSM-        , Network.AWS.CloudHSMv2.DeleteCluster-        , Network.AWS.CloudHSMv2.DeleteHSM-        , Network.AWS.CloudHSMv2.DescribeBackups-        , Network.AWS.CloudHSMv2.DescribeClusters-        , Network.AWS.CloudHSMv2.InitializeCluster-        , Network.AWS.CloudHSMv2.ListTags-        , Network.AWS.CloudHSMv2.TagResource-        , Network.AWS.CloudHSMv2.Types-        , Network.AWS.CloudHSMv2.UntagResource-        , Network.AWS.CloudHSMv2.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.CloudHSMv2.Types.Product-        , Network.AWS.CloudHSMv2.Types.Sum+  exposed-modules:+    Amazonka.CloudHSMV2+    Amazonka.CloudHSMV2.CopyBackupToRegion+    Amazonka.CloudHSMV2.CreateCluster+    Amazonka.CloudHSMV2.CreateHsm+    Amazonka.CloudHSMV2.DeleteBackup+    Amazonka.CloudHSMV2.DeleteCluster+    Amazonka.CloudHSMV2.DeleteHsm+    Amazonka.CloudHSMV2.DescribeBackups+    Amazonka.CloudHSMV2.DescribeClusters+    Amazonka.CloudHSMV2.InitializeCluster+    Amazonka.CloudHSMV2.Lens+    Amazonka.CloudHSMV2.ListTags+    Amazonka.CloudHSMV2.ModifyBackupAttributes+    Amazonka.CloudHSMV2.ModifyCluster+    Amazonka.CloudHSMV2.RestoreBackup+    Amazonka.CloudHSMV2.TagResource+    Amazonka.CloudHSMV2.Types+    Amazonka.CloudHSMV2.Types.Backup+    Amazonka.CloudHSMV2.Types.BackupPolicy+    Amazonka.CloudHSMV2.Types.BackupRetentionPolicy+    Amazonka.CloudHSMV2.Types.BackupRetentionType+    Amazonka.CloudHSMV2.Types.BackupState+    Amazonka.CloudHSMV2.Types.Certificates+    Amazonka.CloudHSMV2.Types.Cluster+    Amazonka.CloudHSMV2.Types.ClusterState+    Amazonka.CloudHSMV2.Types.DestinationBackup+    Amazonka.CloudHSMV2.Types.Hsm+    Amazonka.CloudHSMV2.Types.HsmState+    Amazonka.CloudHSMV2.Types.Tag+    Amazonka.CloudHSMV2.UntagResource+    Amazonka.CloudHSMV2.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-cloudhsmv2-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.CloudHSMv2-        , Test.AWS.Gen.CloudHSMv2-        , Test.AWS.CloudHSMv2.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.CloudHSMV2+    Test.Amazonka.CloudHSMV2.Internal+    Test.Amazonka.Gen.CloudHSMV2 -    build-depends:-          amazonka-core == 1.6.1.*-        , amazonka-test == 1.6.1.*-        , amazonka-cloudhsmv2-        , base-        , bytestring-        , tasty-        , tasty-hunit-        , text-        , time-        , unordered-containers+  build-depends:+    , amazonka-cloudhsmv2+    , amazonka-core         >=2.0 && <2.1+    , 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/cloudhsmv2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudhsmv2.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:+  ''

@@ -1,10 +0,0 @@-----method: POST-headers:-  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudhsmv2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?-  Host:                  cloudhsmv2.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/cloudhsmv2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudhsmv2.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/cloudhsmv2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudhsmv2.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:+  ''

@@ -1,10 +0,0 @@-----method: POST-headers:-  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudhsmv2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?-  Host:                  cloudhsmv2.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/cloudhsmv2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudhsmv2.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/cloudhsmv2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudhsmv2.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/cloudhsmv2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudhsmv2.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/cloudhsmv2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudhsmv2.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,229 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.CloudHSMV2+-- 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 @2017-04-28@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- For more information about AWS CloudHSM, see+-- <http://aws.amazon.com/cloudhsm/ AWS CloudHSM> and the+-- <https://docs.aws.amazon.com/cloudhsm/latest/userguide/ AWS CloudHSM User Guide>.+module Amazonka.CloudHSMV2+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** CloudHsmAccessDeniedException+    _CloudHsmAccessDeniedException,++    -- ** CloudHsmInternalFailureException+    _CloudHsmInternalFailureException,++    -- ** CloudHsmInvalidRequestException+    _CloudHsmInvalidRequestException,++    -- ** CloudHsmResourceNotFoundException+    _CloudHsmResourceNotFoundException,++    -- ** CloudHsmServiceException+    _CloudHsmServiceException,++    -- ** CloudHsmTagException+    _CloudHsmTagException,++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** CopyBackupToRegion+    CopyBackupToRegion (CopyBackupToRegion'),+    newCopyBackupToRegion,+    CopyBackupToRegionResponse (CopyBackupToRegionResponse'),+    newCopyBackupToRegionResponse,++    -- ** CreateCluster+    CreateCluster (CreateCluster'),+    newCreateCluster,+    CreateClusterResponse (CreateClusterResponse'),+    newCreateClusterResponse,++    -- ** CreateHsm+    CreateHsm (CreateHsm'),+    newCreateHsm,+    CreateHsmResponse (CreateHsmResponse'),+    newCreateHsmResponse,++    -- ** DeleteBackup+    DeleteBackup (DeleteBackup'),+    newDeleteBackup,+    DeleteBackupResponse (DeleteBackupResponse'),+    newDeleteBackupResponse,++    -- ** DeleteCluster+    DeleteCluster (DeleteCluster'),+    newDeleteCluster,+    DeleteClusterResponse (DeleteClusterResponse'),+    newDeleteClusterResponse,++    -- ** DeleteHsm+    DeleteHsm (DeleteHsm'),+    newDeleteHsm,+    DeleteHsmResponse (DeleteHsmResponse'),+    newDeleteHsmResponse,++    -- ** DescribeBackups (Paginated)+    DescribeBackups (DescribeBackups'),+    newDescribeBackups,+    DescribeBackupsResponse (DescribeBackupsResponse'),+    newDescribeBackupsResponse,++    -- ** DescribeClusters (Paginated)+    DescribeClusters (DescribeClusters'),+    newDescribeClusters,+    DescribeClustersResponse (DescribeClustersResponse'),+    newDescribeClustersResponse,++    -- ** InitializeCluster+    InitializeCluster (InitializeCluster'),+    newInitializeCluster,+    InitializeClusterResponse (InitializeClusterResponse'),+    newInitializeClusterResponse,++    -- ** ListTags (Paginated)+    ListTags (ListTags'),+    newListTags,+    ListTagsResponse (ListTagsResponse'),+    newListTagsResponse,++    -- ** ModifyBackupAttributes+    ModifyBackupAttributes (ModifyBackupAttributes'),+    newModifyBackupAttributes,+    ModifyBackupAttributesResponse (ModifyBackupAttributesResponse'),+    newModifyBackupAttributesResponse,++    -- ** ModifyCluster+    ModifyCluster (ModifyCluster'),+    newModifyCluster,+    ModifyClusterResponse (ModifyClusterResponse'),+    newModifyClusterResponse,++    -- ** RestoreBackup+    RestoreBackup (RestoreBackup'),+    newRestoreBackup,+    RestoreBackupResponse (RestoreBackupResponse'),+    newRestoreBackupResponse,++    -- ** TagResource+    TagResource (TagResource'),+    newTagResource,+    TagResourceResponse (TagResourceResponse'),+    newTagResourceResponse,++    -- ** UntagResource+    UntagResource (UntagResource'),+    newUntagResource,+    UntagResourceResponse (UntagResourceResponse'),+    newUntagResourceResponse,++    -- * Types++    -- ** BackupPolicy+    BackupPolicy (..),++    -- ** BackupRetentionType+    BackupRetentionType (..),++    -- ** BackupState+    BackupState (..),++    -- ** ClusterState+    ClusterState (..),++    -- ** HsmState+    HsmState (..),++    -- ** Backup+    Backup (Backup'),+    newBackup,++    -- ** BackupRetentionPolicy+    BackupRetentionPolicy (BackupRetentionPolicy'),+    newBackupRetentionPolicy,++    -- ** Certificates+    Certificates (Certificates'),+    newCertificates,++    -- ** Cluster+    Cluster (Cluster'),+    newCluster,++    -- ** DestinationBackup+    DestinationBackup (DestinationBackup'),+    newDestinationBackup,++    -- ** Hsm+    Hsm (Hsm'),+    newHsm,++    -- ** Tag+    Tag (Tag'),+    newTag,+  )+where++import Amazonka.CloudHSMV2.CopyBackupToRegion+import Amazonka.CloudHSMV2.CreateCluster+import Amazonka.CloudHSMV2.CreateHsm+import Amazonka.CloudHSMV2.DeleteBackup+import Amazonka.CloudHSMV2.DeleteCluster+import Amazonka.CloudHSMV2.DeleteHsm+import Amazonka.CloudHSMV2.DescribeBackups+import Amazonka.CloudHSMV2.DescribeClusters+import Amazonka.CloudHSMV2.InitializeCluster+import Amazonka.CloudHSMV2.Lens+import Amazonka.CloudHSMV2.ListTags+import Amazonka.CloudHSMV2.ModifyBackupAttributes+import Amazonka.CloudHSMV2.ModifyCluster+import Amazonka.CloudHSMV2.RestoreBackup+import Amazonka.CloudHSMV2.TagResource+import Amazonka.CloudHSMV2.Types+import Amazonka.CloudHSMV2.UntagResource+import Amazonka.CloudHSMV2.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 'CloudHSMV2'.++-- $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,232 @@+{-# 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.CloudHSMV2.CopyBackupToRegion+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Copy an AWS CloudHSM cluster backup to a different region.+module Amazonka.CloudHSMV2.CopyBackupToRegion+  ( -- * Creating a Request+    CopyBackupToRegion (..),+    newCopyBackupToRegion,++    -- * Request Lenses+    copyBackupToRegion_tagList,+    copyBackupToRegion_destinationRegion,+    copyBackupToRegion_backupId,++    -- * Destructuring the Response+    CopyBackupToRegionResponse (..),+    newCopyBackupToRegionResponse,++    -- * Response Lenses+    copyBackupToRegionResponse_destinationBackup,+    copyBackupToRegionResponse_httpStatus,+  )+where++import Amazonka.CloudHSMV2.Types+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++-- | /See:/ 'newCopyBackupToRegion' smart constructor.+data CopyBackupToRegion = CopyBackupToRegion'+  { -- | Tags to apply to the destination backup during creation. If you specify+    -- tags, only these tags will be applied to the destination backup. If you+    -- do not specify tags, the service copies tags from the source backup to+    -- the destination backup.+    tagList :: Prelude.Maybe [Tag],+    -- | The AWS region that will contain your copied CloudHSM cluster backup.+    destinationRegion :: Prelude.Text,+    -- | The ID of the backup that will be copied to the destination region.+    backupId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CopyBackupToRegion' 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:+--+-- 'tagList', 'copyBackupToRegion_tagList' - Tags to apply to the destination backup during creation. If you specify+-- tags, only these tags will be applied to the destination backup. If you+-- do not specify tags, the service copies tags from the source backup to+-- the destination backup.+--+-- 'destinationRegion', 'copyBackupToRegion_destinationRegion' - The AWS region that will contain your copied CloudHSM cluster backup.+--+-- 'backupId', 'copyBackupToRegion_backupId' - The ID of the backup that will be copied to the destination region.+newCopyBackupToRegion ::+  -- | 'destinationRegion'+  Prelude.Text ->+  -- | 'backupId'+  Prelude.Text ->+  CopyBackupToRegion+newCopyBackupToRegion pDestinationRegion_ pBackupId_ =+  CopyBackupToRegion'+    { tagList = Prelude.Nothing,+      destinationRegion = pDestinationRegion_,+      backupId = pBackupId_+    }++-- | Tags to apply to the destination backup during creation. If you specify+-- tags, only these tags will be applied to the destination backup. If you+-- do not specify tags, the service copies tags from the source backup to+-- the destination backup.+copyBackupToRegion_tagList :: Lens.Lens' CopyBackupToRegion (Prelude.Maybe [Tag])+copyBackupToRegion_tagList = Lens.lens (\CopyBackupToRegion' {tagList} -> tagList) (\s@CopyBackupToRegion' {} a -> s {tagList = a} :: CopyBackupToRegion) Prelude.. Lens.mapping Lens.coerced++-- | The AWS region that will contain your copied CloudHSM cluster backup.+copyBackupToRegion_destinationRegion :: Lens.Lens' CopyBackupToRegion Prelude.Text+copyBackupToRegion_destinationRegion = Lens.lens (\CopyBackupToRegion' {destinationRegion} -> destinationRegion) (\s@CopyBackupToRegion' {} a -> s {destinationRegion = a} :: CopyBackupToRegion)++-- | The ID of the backup that will be copied to the destination region.+copyBackupToRegion_backupId :: Lens.Lens' CopyBackupToRegion Prelude.Text+copyBackupToRegion_backupId = Lens.lens (\CopyBackupToRegion' {backupId} -> backupId) (\s@CopyBackupToRegion' {} a -> s {backupId = a} :: CopyBackupToRegion)++instance Core.AWSRequest CopyBackupToRegion where+  type+    AWSResponse CopyBackupToRegion =+      CopyBackupToRegionResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CopyBackupToRegionResponse'+            Prelude.<$> (x Data..?> "DestinationBackup")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CopyBackupToRegion where+  hashWithSalt _salt CopyBackupToRegion' {..} =+    _salt+      `Prelude.hashWithSalt` tagList+      `Prelude.hashWithSalt` destinationRegion+      `Prelude.hashWithSalt` backupId++instance Prelude.NFData CopyBackupToRegion where+  rnf CopyBackupToRegion' {..} =+    Prelude.rnf tagList+      `Prelude.seq` Prelude.rnf destinationRegion+      `Prelude.seq` Prelude.rnf backupId++instance Data.ToHeaders CopyBackupToRegion where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "BaldrApiService.CopyBackupToRegion" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CopyBackupToRegion where+  toJSON CopyBackupToRegion' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("TagList" Data..=) Prelude.<$> tagList,+            Prelude.Just+              ("DestinationRegion" Data..= destinationRegion),+            Prelude.Just ("BackupId" Data..= backupId)+          ]+      )++instance Data.ToPath CopyBackupToRegion where+  toPath = Prelude.const "/"++instance Data.ToQuery CopyBackupToRegion where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCopyBackupToRegionResponse' smart constructor.+data CopyBackupToRegionResponse = CopyBackupToRegionResponse'+  { -- | Information on the backup that will be copied to the destination region,+    -- including CreateTimestamp, SourceBackup, SourceCluster, and Source+    -- Region. CreateTimestamp of the destination backup will be the same as+    -- that of the source backup.+    --+    -- You will need to use the @sourceBackupID@ returned in this operation to+    -- use the DescribeBackups operation on the backup that will be copied to+    -- the destination region.+    destinationBackup :: Prelude.Maybe DestinationBackup,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CopyBackupToRegionResponse' 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:+--+-- 'destinationBackup', 'copyBackupToRegionResponse_destinationBackup' - Information on the backup that will be copied to the destination region,+-- including CreateTimestamp, SourceBackup, SourceCluster, and Source+-- Region. CreateTimestamp of the destination backup will be the same as+-- that of the source backup.+--+-- You will need to use the @sourceBackupID@ returned in this operation to+-- use the DescribeBackups operation on the backup that will be copied to+-- the destination region.+--+-- 'httpStatus', 'copyBackupToRegionResponse_httpStatus' - The response's http status code.+newCopyBackupToRegionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CopyBackupToRegionResponse+newCopyBackupToRegionResponse pHttpStatus_ =+  CopyBackupToRegionResponse'+    { destinationBackup =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Information on the backup that will be copied to the destination region,+-- including CreateTimestamp, SourceBackup, SourceCluster, and Source+-- Region. CreateTimestamp of the destination backup will be the same as+-- that of the source backup.+--+-- You will need to use the @sourceBackupID@ returned in this operation to+-- use the DescribeBackups operation on the backup that will be copied to+-- the destination region.+copyBackupToRegionResponse_destinationBackup :: Lens.Lens' CopyBackupToRegionResponse (Prelude.Maybe DestinationBackup)+copyBackupToRegionResponse_destinationBackup = Lens.lens (\CopyBackupToRegionResponse' {destinationBackup} -> destinationBackup) (\s@CopyBackupToRegionResponse' {} a -> s {destinationBackup = a} :: CopyBackupToRegionResponse)++-- | The response's http status code.+copyBackupToRegionResponse_httpStatus :: Lens.Lens' CopyBackupToRegionResponse Prelude.Int+copyBackupToRegionResponse_httpStatus = Lens.lens (\CopyBackupToRegionResponse' {httpStatus} -> httpStatus) (\s@CopyBackupToRegionResponse' {} a -> s {httpStatus = a} :: CopyBackupToRegionResponse)++instance Prelude.NFData CopyBackupToRegionResponse where+  rnf CopyBackupToRegionResponse' {..} =+    Prelude.rnf destinationBackup+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,256 @@+{-# 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.CloudHSMV2.CreateCluster+-- 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 new AWS CloudHSM cluster.+module Amazonka.CloudHSMV2.CreateCluster+  ( -- * Creating a Request+    CreateCluster (..),+    newCreateCluster,++    -- * Request Lenses+    createCluster_backupRetentionPolicy,+    createCluster_sourceBackupId,+    createCluster_tagList,+    createCluster_hsmType,+    createCluster_subnetIds,++    -- * Destructuring the Response+    CreateClusterResponse (..),+    newCreateClusterResponse,++    -- * Response Lenses+    createClusterResponse_cluster,+    createClusterResponse_httpStatus,+  )+where++import Amazonka.CloudHSMV2.Types+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++-- | /See:/ 'newCreateCluster' smart constructor.+data CreateCluster = CreateCluster'+  { -- | A policy that defines how the service retains backups.+    backupRetentionPolicy :: Prelude.Maybe BackupRetentionPolicy,+    -- | The identifier (ID) of the cluster backup to restore. Use this value to+    -- restore the cluster from a backup instead of creating a new cluster. To+    -- find the backup ID, use DescribeBackups.+    sourceBackupId :: Prelude.Maybe Prelude.Text,+    -- | Tags to apply to the CloudHSM cluster during creation.+    tagList :: Prelude.Maybe [Tag],+    -- | The type of HSM to use in the cluster. Currently the only allowed value+    -- is @hsm1.medium@.+    hsmType :: Prelude.Text,+    -- | The identifiers (IDs) of the subnets where you are creating the cluster.+    -- You must specify at least one subnet. If you specify multiple subnets,+    -- they must meet the following criteria:+    --+    -- -   All subnets must be in the same virtual private cloud (VPC).+    --+    -- -   You can specify only one subnet per Availability Zone.+    subnetIds :: Prelude.NonEmpty Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateCluster' 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:+--+-- 'backupRetentionPolicy', 'createCluster_backupRetentionPolicy' - A policy that defines how the service retains backups.+--+-- 'sourceBackupId', 'createCluster_sourceBackupId' - The identifier (ID) of the cluster backup to restore. Use this value to+-- restore the cluster from a backup instead of creating a new cluster. To+-- find the backup ID, use DescribeBackups.+--+-- 'tagList', 'createCluster_tagList' - Tags to apply to the CloudHSM cluster during creation.+--+-- 'hsmType', 'createCluster_hsmType' - The type of HSM to use in the cluster. Currently the only allowed value+-- is @hsm1.medium@.+--+-- 'subnetIds', 'createCluster_subnetIds' - The identifiers (IDs) of the subnets where you are creating the cluster.+-- You must specify at least one subnet. If you specify multiple subnets,+-- they must meet the following criteria:+--+-- -   All subnets must be in the same virtual private cloud (VPC).+--+-- -   You can specify only one subnet per Availability Zone.+newCreateCluster ::+  -- | 'hsmType'+  Prelude.Text ->+  -- | 'subnetIds'+  Prelude.NonEmpty Prelude.Text ->+  CreateCluster+newCreateCluster pHsmType_ pSubnetIds_ =+  CreateCluster'+    { backupRetentionPolicy =+        Prelude.Nothing,+      sourceBackupId = Prelude.Nothing,+      tagList = Prelude.Nothing,+      hsmType = pHsmType_,+      subnetIds = Lens.coerced Lens.# pSubnetIds_+    }++-- | A policy that defines how the service retains backups.+createCluster_backupRetentionPolicy :: Lens.Lens' CreateCluster (Prelude.Maybe BackupRetentionPolicy)+createCluster_backupRetentionPolicy = Lens.lens (\CreateCluster' {backupRetentionPolicy} -> backupRetentionPolicy) (\s@CreateCluster' {} a -> s {backupRetentionPolicy = a} :: CreateCluster)++-- | The identifier (ID) of the cluster backup to restore. Use this value to+-- restore the cluster from a backup instead of creating a new cluster. To+-- find the backup ID, use DescribeBackups.+createCluster_sourceBackupId :: Lens.Lens' CreateCluster (Prelude.Maybe Prelude.Text)+createCluster_sourceBackupId = Lens.lens (\CreateCluster' {sourceBackupId} -> sourceBackupId) (\s@CreateCluster' {} a -> s {sourceBackupId = a} :: CreateCluster)++-- | Tags to apply to the CloudHSM cluster during creation.+createCluster_tagList :: Lens.Lens' CreateCluster (Prelude.Maybe [Tag])+createCluster_tagList = Lens.lens (\CreateCluster' {tagList} -> tagList) (\s@CreateCluster' {} a -> s {tagList = a} :: CreateCluster) Prelude.. Lens.mapping Lens.coerced++-- | The type of HSM to use in the cluster. Currently the only allowed value+-- is @hsm1.medium@.+createCluster_hsmType :: Lens.Lens' CreateCluster Prelude.Text+createCluster_hsmType = Lens.lens (\CreateCluster' {hsmType} -> hsmType) (\s@CreateCluster' {} a -> s {hsmType = a} :: CreateCluster)++-- | The identifiers (IDs) of the subnets where you are creating the cluster.+-- You must specify at least one subnet. If you specify multiple subnets,+-- they must meet the following criteria:+--+-- -   All subnets must be in the same virtual private cloud (VPC).+--+-- -   You can specify only one subnet per Availability Zone.+createCluster_subnetIds :: Lens.Lens' CreateCluster (Prelude.NonEmpty Prelude.Text)+createCluster_subnetIds = Lens.lens (\CreateCluster' {subnetIds} -> subnetIds) (\s@CreateCluster' {} a -> s {subnetIds = a} :: CreateCluster) Prelude.. Lens.coerced++instance Core.AWSRequest CreateCluster where+  type+    AWSResponse CreateCluster =+      CreateClusterResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateClusterResponse'+            Prelude.<$> (x Data..?> "Cluster")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateCluster where+  hashWithSalt _salt CreateCluster' {..} =+    _salt+      `Prelude.hashWithSalt` backupRetentionPolicy+      `Prelude.hashWithSalt` sourceBackupId+      `Prelude.hashWithSalt` tagList+      `Prelude.hashWithSalt` hsmType+      `Prelude.hashWithSalt` subnetIds++instance Prelude.NFData CreateCluster where+  rnf CreateCluster' {..} =+    Prelude.rnf backupRetentionPolicy+      `Prelude.seq` Prelude.rnf sourceBackupId+      `Prelude.seq` Prelude.rnf tagList+      `Prelude.seq` Prelude.rnf hsmType+      `Prelude.seq` Prelude.rnf subnetIds++instance Data.ToHeaders CreateCluster where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "BaldrApiService.CreateCluster" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateCluster where+  toJSON CreateCluster' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("BackupRetentionPolicy" Data..=)+              Prelude.<$> backupRetentionPolicy,+            ("SourceBackupId" Data..=)+              Prelude.<$> sourceBackupId,+            ("TagList" Data..=) Prelude.<$> tagList,+            Prelude.Just ("HsmType" Data..= hsmType),+            Prelude.Just ("SubnetIds" Data..= subnetIds)+          ]+      )++instance Data.ToPath CreateCluster where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateCluster where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateClusterResponse' smart constructor.+data CreateClusterResponse = CreateClusterResponse'+  { -- | Information about the cluster that was created.+    cluster :: Prelude.Maybe Cluster,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateClusterResponse' 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:+--+-- 'cluster', 'createClusterResponse_cluster' - Information about the cluster that was created.+--+-- 'httpStatus', 'createClusterResponse_httpStatus' - The response's http status code.+newCreateClusterResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateClusterResponse+newCreateClusterResponse pHttpStatus_ =+  CreateClusterResponse'+    { cluster = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Information about the cluster that was created.+createClusterResponse_cluster :: Lens.Lens' CreateClusterResponse (Prelude.Maybe Cluster)+createClusterResponse_cluster = Lens.lens (\CreateClusterResponse' {cluster} -> cluster) (\s@CreateClusterResponse' {} a -> s {cluster = a} :: CreateClusterResponse)++-- | The response's http status code.+createClusterResponse_httpStatus :: Lens.Lens' CreateClusterResponse Prelude.Int+createClusterResponse_httpStatus = Lens.lens (\CreateClusterResponse' {httpStatus} -> httpStatus) (\s@CreateClusterResponse' {} a -> s {httpStatus = a} :: CreateClusterResponse)++instance Prelude.NFData CreateClusterResponse where+  rnf CreateClusterResponse' {..} =+    Prelude.rnf cluster+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,213 @@+{-# 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.CloudHSMV2.CreateHsm+-- 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 new hardware security module (HSM) in the specified AWS+-- CloudHSM cluster.+module Amazonka.CloudHSMV2.CreateHsm+  ( -- * Creating a Request+    CreateHsm (..),+    newCreateHsm,++    -- * Request Lenses+    createHsm_ipAddress,+    createHsm_clusterId,+    createHsm_availabilityZone,++    -- * Destructuring the Response+    CreateHsmResponse (..),+    newCreateHsmResponse,++    -- * Response Lenses+    createHsmResponse_hsm,+    createHsmResponse_httpStatus,+  )+where++import Amazonka.CloudHSMV2.Types+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++-- | /See:/ 'newCreateHsm' smart constructor.+data CreateHsm = CreateHsm'+  { -- | The HSM\'s IP address. If you specify an IP address, use an available+    -- address from the subnet that maps to the Availability Zone where you are+    -- creating the HSM. If you don\'t specify an IP address, one is chosen for+    -- you from that subnet.+    ipAddress :: Prelude.Maybe Prelude.Text,+    -- | The identifier (ID) of the HSM\'s cluster. To find the cluster ID, use+    -- DescribeClusters.+    clusterId :: Prelude.Text,+    -- | The Availability Zone where you are creating the HSM. To find the+    -- cluster\'s Availability Zones, use DescribeClusters.+    availabilityZone :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateHsm' 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:+--+-- 'ipAddress', 'createHsm_ipAddress' - The HSM\'s IP address. If you specify an IP address, use an available+-- address from the subnet that maps to the Availability Zone where you are+-- creating the HSM. If you don\'t specify an IP address, one is chosen for+-- you from that subnet.+--+-- 'clusterId', 'createHsm_clusterId' - The identifier (ID) of the HSM\'s cluster. To find the cluster ID, use+-- DescribeClusters.+--+-- 'availabilityZone', 'createHsm_availabilityZone' - The Availability Zone where you are creating the HSM. To find the+-- cluster\'s Availability Zones, use DescribeClusters.+newCreateHsm ::+  -- | 'clusterId'+  Prelude.Text ->+  -- | 'availabilityZone'+  Prelude.Text ->+  CreateHsm+newCreateHsm pClusterId_ pAvailabilityZone_ =+  CreateHsm'+    { ipAddress = Prelude.Nothing,+      clusterId = pClusterId_,+      availabilityZone = pAvailabilityZone_+    }++-- | The HSM\'s IP address. If you specify an IP address, use an available+-- address from the subnet that maps to the Availability Zone where you are+-- creating the HSM. If you don\'t specify an IP address, one is chosen for+-- you from that subnet.+createHsm_ipAddress :: Lens.Lens' CreateHsm (Prelude.Maybe Prelude.Text)+createHsm_ipAddress = Lens.lens (\CreateHsm' {ipAddress} -> ipAddress) (\s@CreateHsm' {} a -> s {ipAddress = a} :: CreateHsm)++-- | The identifier (ID) of the HSM\'s cluster. To find the cluster ID, use+-- DescribeClusters.+createHsm_clusterId :: Lens.Lens' CreateHsm Prelude.Text+createHsm_clusterId = Lens.lens (\CreateHsm' {clusterId} -> clusterId) (\s@CreateHsm' {} a -> s {clusterId = a} :: CreateHsm)++-- | The Availability Zone where you are creating the HSM. To find the+-- cluster\'s Availability Zones, use DescribeClusters.+createHsm_availabilityZone :: Lens.Lens' CreateHsm Prelude.Text+createHsm_availabilityZone = Lens.lens (\CreateHsm' {availabilityZone} -> availabilityZone) (\s@CreateHsm' {} a -> s {availabilityZone = a} :: CreateHsm)++instance Core.AWSRequest CreateHsm where+  type AWSResponse CreateHsm = CreateHsmResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateHsmResponse'+            Prelude.<$> (x Data..?> "Hsm")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateHsm where+  hashWithSalt _salt CreateHsm' {..} =+    _salt+      `Prelude.hashWithSalt` ipAddress+      `Prelude.hashWithSalt` clusterId+      `Prelude.hashWithSalt` availabilityZone++instance Prelude.NFData CreateHsm where+  rnf CreateHsm' {..} =+    Prelude.rnf ipAddress+      `Prelude.seq` Prelude.rnf clusterId+      `Prelude.seq` Prelude.rnf availabilityZone++instance Data.ToHeaders CreateHsm where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ("BaldrApiService.CreateHsm" :: Prelude.ByteString),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateHsm where+  toJSON CreateHsm' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("IpAddress" Data..=) Prelude.<$> ipAddress,+            Prelude.Just ("ClusterId" Data..= clusterId),+            Prelude.Just+              ("AvailabilityZone" Data..= availabilityZone)+          ]+      )++instance Data.ToPath CreateHsm where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateHsm where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateHsmResponse' smart constructor.+data CreateHsmResponse = CreateHsmResponse'+  { -- | Information about the HSM that was created.+    hsm :: Prelude.Maybe Hsm,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateHsmResponse' 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:+--+-- 'hsm', 'createHsmResponse_hsm' - Information about the HSM that was created.+--+-- 'httpStatus', 'createHsmResponse_httpStatus' - The response's http status code.+newCreateHsmResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateHsmResponse+newCreateHsmResponse pHttpStatus_ =+  CreateHsmResponse'+    { hsm = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Information about the HSM that was created.+createHsmResponse_hsm :: Lens.Lens' CreateHsmResponse (Prelude.Maybe Hsm)+createHsmResponse_hsm = Lens.lens (\CreateHsmResponse' {hsm} -> hsm) (\s@CreateHsmResponse' {} a -> s {hsm = a} :: CreateHsmResponse)++-- | The response's http status code.+createHsmResponse_httpStatus :: Lens.Lens' CreateHsmResponse Prelude.Int+createHsmResponse_httpStatus = Lens.lens (\CreateHsmResponse' {httpStatus} -> httpStatus) (\s@CreateHsmResponse' {} a -> s {httpStatus = a} :: CreateHsmResponse)++instance Prelude.NFData CreateHsmResponse where+  rnf CreateHsmResponse' {..} =+    Prelude.rnf hsm+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,170 @@+{-# 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.CloudHSMV2.DeleteBackup+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a specified AWS CloudHSM backup. A backup can be restored up to+-- 7 days after the DeleteBackup request is made. For more information on+-- restoring a backup, see RestoreBackup.+module Amazonka.CloudHSMV2.DeleteBackup+  ( -- * Creating a Request+    DeleteBackup (..),+    newDeleteBackup,++    -- * Request Lenses+    deleteBackup_backupId,++    -- * Destructuring the Response+    DeleteBackupResponse (..),+    newDeleteBackupResponse,++    -- * Response Lenses+    deleteBackupResponse_backup,+    deleteBackupResponse_httpStatus,+  )+where++import Amazonka.CloudHSMV2.Types+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++-- | /See:/ 'newDeleteBackup' smart constructor.+data DeleteBackup = DeleteBackup'+  { -- | The ID of the backup to be deleted. To find the ID of a backup, use the+    -- DescribeBackups operation.+    backupId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteBackup' 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:+--+-- 'backupId', 'deleteBackup_backupId' - The ID of the backup to be deleted. To find the ID of a backup, use the+-- DescribeBackups operation.+newDeleteBackup ::+  -- | 'backupId'+  Prelude.Text ->+  DeleteBackup+newDeleteBackup pBackupId_ =+  DeleteBackup' {backupId = pBackupId_}++-- | The ID of the backup to be deleted. To find the ID of a backup, use the+-- DescribeBackups operation.+deleteBackup_backupId :: Lens.Lens' DeleteBackup Prelude.Text+deleteBackup_backupId = Lens.lens (\DeleteBackup' {backupId} -> backupId) (\s@DeleteBackup' {} a -> s {backupId = a} :: DeleteBackup)++instance Core.AWSRequest DeleteBackup where+  type AWSResponse DeleteBackup = DeleteBackupResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DeleteBackupResponse'+            Prelude.<$> (x Data..?> "Backup")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteBackup where+  hashWithSalt _salt DeleteBackup' {..} =+    _salt `Prelude.hashWithSalt` backupId++instance Prelude.NFData DeleteBackup where+  rnf DeleteBackup' {..} = Prelude.rnf backupId++instance Data.ToHeaders DeleteBackup where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "BaldrApiService.DeleteBackup" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteBackup where+  toJSON DeleteBackup' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("BackupId" Data..= backupId)]+      )++instance Data.ToPath DeleteBackup where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteBackup where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteBackupResponse' smart constructor.+data DeleteBackupResponse = DeleteBackupResponse'+  { -- | Information on the @Backup@ object deleted.+    backup :: Prelude.Maybe Backup,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteBackupResponse' 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:+--+-- 'backup', 'deleteBackupResponse_backup' - Information on the @Backup@ object deleted.+--+-- 'httpStatus', 'deleteBackupResponse_httpStatus' - The response's http status code.+newDeleteBackupResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteBackupResponse+newDeleteBackupResponse pHttpStatus_ =+  DeleteBackupResponse'+    { backup = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Information on the @Backup@ object deleted.+deleteBackupResponse_backup :: Lens.Lens' DeleteBackupResponse (Prelude.Maybe Backup)+deleteBackupResponse_backup = Lens.lens (\DeleteBackupResponse' {backup} -> backup) (\s@DeleteBackupResponse' {} a -> s {backup = a} :: DeleteBackupResponse)++-- | The response's http status code.+deleteBackupResponse_httpStatus :: Lens.Lens' DeleteBackupResponse Prelude.Int+deleteBackupResponse_httpStatus = Lens.lens (\DeleteBackupResponse' {httpStatus} -> httpStatus) (\s@DeleteBackupResponse' {} a -> s {httpStatus = a} :: DeleteBackupResponse)++instance Prelude.NFData DeleteBackupResponse where+  rnf DeleteBackupResponse' {..} =+    Prelude.rnf backup+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,173 @@+{-# 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.CloudHSMV2.DeleteCluster+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the specified AWS CloudHSM cluster. Before you can delete a+-- cluster, you must delete all HSMs in the cluster. To see if the cluster+-- contains any HSMs, use DescribeClusters. To delete an HSM, use+-- DeleteHsm.+module Amazonka.CloudHSMV2.DeleteCluster+  ( -- * Creating a Request+    DeleteCluster (..),+    newDeleteCluster,++    -- * Request Lenses+    deleteCluster_clusterId,++    -- * Destructuring the Response+    DeleteClusterResponse (..),+    newDeleteClusterResponse,++    -- * Response Lenses+    deleteClusterResponse_cluster,+    deleteClusterResponse_httpStatus,+  )+where++import Amazonka.CloudHSMV2.Types+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++-- | /See:/ 'newDeleteCluster' smart constructor.+data DeleteCluster = DeleteCluster'+  { -- | The identifier (ID) of the cluster that you are deleting. To find the+    -- cluster ID, use DescribeClusters.+    clusterId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteCluster' 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:+--+-- 'clusterId', 'deleteCluster_clusterId' - The identifier (ID) of the cluster that you are deleting. To find the+-- cluster ID, use DescribeClusters.+newDeleteCluster ::+  -- | 'clusterId'+  Prelude.Text ->+  DeleteCluster+newDeleteCluster pClusterId_ =+  DeleteCluster' {clusterId = pClusterId_}++-- | The identifier (ID) of the cluster that you are deleting. To find the+-- cluster ID, use DescribeClusters.+deleteCluster_clusterId :: Lens.Lens' DeleteCluster Prelude.Text+deleteCluster_clusterId = Lens.lens (\DeleteCluster' {clusterId} -> clusterId) (\s@DeleteCluster' {} a -> s {clusterId = a} :: DeleteCluster)++instance Core.AWSRequest DeleteCluster where+  type+    AWSResponse DeleteCluster =+      DeleteClusterResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DeleteClusterResponse'+            Prelude.<$> (x Data..?> "Cluster")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteCluster where+  hashWithSalt _salt DeleteCluster' {..} =+    _salt `Prelude.hashWithSalt` clusterId++instance Prelude.NFData DeleteCluster where+  rnf DeleteCluster' {..} = Prelude.rnf clusterId++instance Data.ToHeaders DeleteCluster where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "BaldrApiService.DeleteCluster" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteCluster where+  toJSON DeleteCluster' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("ClusterId" Data..= clusterId)]+      )++instance Data.ToPath DeleteCluster where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteCluster where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteClusterResponse' smart constructor.+data DeleteClusterResponse = DeleteClusterResponse'+  { -- | Information about the cluster that was deleted.+    cluster :: Prelude.Maybe Cluster,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteClusterResponse' 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:+--+-- 'cluster', 'deleteClusterResponse_cluster' - Information about the cluster that was deleted.+--+-- 'httpStatus', 'deleteClusterResponse_httpStatus' - The response's http status code.+newDeleteClusterResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteClusterResponse+newDeleteClusterResponse pHttpStatus_ =+  DeleteClusterResponse'+    { cluster = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Information about the cluster that was deleted.+deleteClusterResponse_cluster :: Lens.Lens' DeleteClusterResponse (Prelude.Maybe Cluster)+deleteClusterResponse_cluster = Lens.lens (\DeleteClusterResponse' {cluster} -> cluster) (\s@DeleteClusterResponse' {} a -> s {cluster = a} :: DeleteClusterResponse)++-- | The response's http status code.+deleteClusterResponse_httpStatus :: Lens.Lens' DeleteClusterResponse Prelude.Int+deleteClusterResponse_httpStatus = Lens.lens (\DeleteClusterResponse' {httpStatus} -> httpStatus) (\s@DeleteClusterResponse' {} a -> s {httpStatus = a} :: DeleteClusterResponse)++instance Prelude.NFData DeleteClusterResponse where+  rnf DeleteClusterResponse' {..} =+    Prelude.rnf cluster+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,219 @@+{-# 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.CloudHSMV2.DeleteHsm+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the specified HSM. To specify an HSM, you can use its identifier+-- (ID), the IP address of the HSM\'s elastic network interface (ENI), or+-- the ID of the HSM\'s ENI. You need to specify only one of these values.+-- To find these values, use DescribeClusters.+module Amazonka.CloudHSMV2.DeleteHsm+  ( -- * Creating a Request+    DeleteHsm (..),+    newDeleteHsm,++    -- * Request Lenses+    deleteHsm_eniId,+    deleteHsm_eniIp,+    deleteHsm_hsmId,+    deleteHsm_clusterId,++    -- * Destructuring the Response+    DeleteHsmResponse (..),+    newDeleteHsmResponse,++    -- * Response Lenses+    deleteHsmResponse_hsmId,+    deleteHsmResponse_httpStatus,+  )+where++import Amazonka.CloudHSMV2.Types+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++-- | /See:/ 'newDeleteHsm' smart constructor.+data DeleteHsm = DeleteHsm'+  { -- | The identifier (ID) of the elastic network interface (ENI) of the HSM+    -- that you are deleting.+    eniId :: Prelude.Maybe Prelude.Text,+    -- | The IP address of the elastic network interface (ENI) of the HSM that+    -- you are deleting.+    eniIp :: Prelude.Maybe Prelude.Text,+    -- | The identifier (ID) of the HSM that you are deleting.+    hsmId :: Prelude.Maybe Prelude.Text,+    -- | The identifier (ID) of the cluster that contains the HSM that you are+    -- deleting.+    clusterId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteHsm' 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:+--+-- 'eniId', 'deleteHsm_eniId' - The identifier (ID) of the elastic network interface (ENI) of the HSM+-- that you are deleting.+--+-- 'eniIp', 'deleteHsm_eniIp' - The IP address of the elastic network interface (ENI) of the HSM that+-- you are deleting.+--+-- 'hsmId', 'deleteHsm_hsmId' - The identifier (ID) of the HSM that you are deleting.+--+-- 'clusterId', 'deleteHsm_clusterId' - The identifier (ID) of the cluster that contains the HSM that you are+-- deleting.+newDeleteHsm ::+  -- | 'clusterId'+  Prelude.Text ->+  DeleteHsm+newDeleteHsm pClusterId_ =+  DeleteHsm'+    { eniId = Prelude.Nothing,+      eniIp = Prelude.Nothing,+      hsmId = Prelude.Nothing,+      clusterId = pClusterId_+    }++-- | The identifier (ID) of the elastic network interface (ENI) of the HSM+-- that you are deleting.+deleteHsm_eniId :: Lens.Lens' DeleteHsm (Prelude.Maybe Prelude.Text)+deleteHsm_eniId = Lens.lens (\DeleteHsm' {eniId} -> eniId) (\s@DeleteHsm' {} a -> s {eniId = a} :: DeleteHsm)++-- | The IP address of the elastic network interface (ENI) of the HSM that+-- you are deleting.+deleteHsm_eniIp :: Lens.Lens' DeleteHsm (Prelude.Maybe Prelude.Text)+deleteHsm_eniIp = Lens.lens (\DeleteHsm' {eniIp} -> eniIp) (\s@DeleteHsm' {} a -> s {eniIp = a} :: DeleteHsm)++-- | The identifier (ID) of the HSM that you are deleting.+deleteHsm_hsmId :: Lens.Lens' DeleteHsm (Prelude.Maybe Prelude.Text)+deleteHsm_hsmId = Lens.lens (\DeleteHsm' {hsmId} -> hsmId) (\s@DeleteHsm' {} a -> s {hsmId = a} :: DeleteHsm)++-- | The identifier (ID) of the cluster that contains the HSM that you are+-- deleting.+deleteHsm_clusterId :: Lens.Lens' DeleteHsm Prelude.Text+deleteHsm_clusterId = Lens.lens (\DeleteHsm' {clusterId} -> clusterId) (\s@DeleteHsm' {} a -> s {clusterId = a} :: DeleteHsm)++instance Core.AWSRequest DeleteHsm where+  type AWSResponse DeleteHsm = DeleteHsmResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DeleteHsmResponse'+            Prelude.<$> (x Data..?> "HsmId")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteHsm where+  hashWithSalt _salt DeleteHsm' {..} =+    _salt+      `Prelude.hashWithSalt` eniId+      `Prelude.hashWithSalt` eniIp+      `Prelude.hashWithSalt` hsmId+      `Prelude.hashWithSalt` clusterId++instance Prelude.NFData DeleteHsm where+  rnf DeleteHsm' {..} =+    Prelude.rnf eniId+      `Prelude.seq` Prelude.rnf eniIp+      `Prelude.seq` Prelude.rnf hsmId+      `Prelude.seq` Prelude.rnf clusterId++instance Data.ToHeaders DeleteHsm where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ("BaldrApiService.DeleteHsm" :: Prelude.ByteString),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteHsm where+  toJSON DeleteHsm' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("EniId" Data..=) Prelude.<$> eniId,+            ("EniIp" Data..=) Prelude.<$> eniIp,+            ("HsmId" Data..=) Prelude.<$> hsmId,+            Prelude.Just ("ClusterId" Data..= clusterId)+          ]+      )++instance Data.ToPath DeleteHsm where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteHsm where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteHsmResponse' smart constructor.+data DeleteHsmResponse = DeleteHsmResponse'+  { -- | The identifier (ID) of the HSM that was deleted.+    hsmId :: 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 'DeleteHsmResponse' 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:+--+-- 'hsmId', 'deleteHsmResponse_hsmId' - The identifier (ID) of the HSM that was deleted.+--+-- 'httpStatus', 'deleteHsmResponse_httpStatus' - The response's http status code.+newDeleteHsmResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteHsmResponse+newDeleteHsmResponse pHttpStatus_ =+  DeleteHsmResponse'+    { hsmId = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The identifier (ID) of the HSM that was deleted.+deleteHsmResponse_hsmId :: Lens.Lens' DeleteHsmResponse (Prelude.Maybe Prelude.Text)+deleteHsmResponse_hsmId = Lens.lens (\DeleteHsmResponse' {hsmId} -> hsmId) (\s@DeleteHsmResponse' {} a -> s {hsmId = a} :: DeleteHsmResponse)++-- | The response's http status code.+deleteHsmResponse_httpStatus :: Lens.Lens' DeleteHsmResponse Prelude.Int+deleteHsmResponse_httpStatus = Lens.lens (\DeleteHsmResponse' {httpStatus} -> httpStatus) (\s@DeleteHsmResponse' {} a -> s {httpStatus = a} :: DeleteHsmResponse)++instance Prelude.NFData DeleteHsmResponse where+  rnf DeleteHsmResponse' {..} =+    Prelude.rnf hsmId+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,324 @@+{-# 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.CloudHSMV2.DescribeBackups+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets information about backups of AWS CloudHSM clusters.+--+-- This is a paginated operation, which means that each response might+-- contain only a subset of all the backups. When the response contains+-- only a subset of backups, it includes a @NextToken@ value. Use this+-- value in a subsequent @DescribeBackups@ request to get more backups.+-- When you receive a response with no @NextToken@ (or an empty or null+-- value), that means there are no more backups to get.+--+-- This operation returns paginated results.+module Amazonka.CloudHSMV2.DescribeBackups+  ( -- * Creating a Request+    DescribeBackups (..),+    newDescribeBackups,++    -- * Request Lenses+    describeBackups_filters,+    describeBackups_maxResults,+    describeBackups_nextToken,+    describeBackups_sortAscending,++    -- * Destructuring the Response+    DescribeBackupsResponse (..),+    newDescribeBackupsResponse,++    -- * Response Lenses+    describeBackupsResponse_backups,+    describeBackupsResponse_nextToken,+    describeBackupsResponse_httpStatus,+  )+where++import Amazonka.CloudHSMV2.Types+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++-- | /See:/ 'newDescribeBackups' smart constructor.+data DescribeBackups = DescribeBackups'+  { -- | One or more filters to limit the items returned in the response.+    --+    -- Use the @backupIds@ filter to return only the specified backups. Specify+    -- backups by their backup identifier (ID).+    --+    -- Use the @sourceBackupIds@ filter to return only the backups created from+    -- a source backup. The @sourceBackupID@ of a source backup is returned by+    -- the CopyBackupToRegion operation.+    --+    -- Use the @clusterIds@ filter to return only the backups for the specified+    -- clusters. Specify clusters by their cluster identifier (ID).+    --+    -- Use the @states@ filter to return only backups that match the specified+    -- state.+    --+    -- Use the @neverExpires@ filter to return backups filtered by the value in+    -- the @neverExpires@ parameter. @True@ returns all backups exempt from the+    -- backup retention policy. @False@ returns all backups with a backup+    -- retention policy defined at the cluster.+    filters :: Prelude.Maybe (Prelude.HashMap Prelude.Text [Prelude.Text]),+    -- | The maximum number of backups to return in the response. When there are+    -- more backups than the number you specify, the response contains a+    -- @NextToken@ value.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | The @NextToken@ value that you received in the previous response. Use+    -- this value to get more backups.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Designates whether or not to sort the return backups by ascending+    -- chronological order of generation.+    sortAscending :: Prelude.Maybe Prelude.Bool+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeBackups' 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:+--+-- 'filters', 'describeBackups_filters' - One or more filters to limit the items returned in the response.+--+-- Use the @backupIds@ filter to return only the specified backups. Specify+-- backups by their backup identifier (ID).+--+-- Use the @sourceBackupIds@ filter to return only the backups created from+-- a source backup. The @sourceBackupID@ of a source backup is returned by+-- the CopyBackupToRegion operation.+--+-- Use the @clusterIds@ filter to return only the backups for the specified+-- clusters. Specify clusters by their cluster identifier (ID).+--+-- Use the @states@ filter to return only backups that match the specified+-- state.+--+-- Use the @neverExpires@ filter to return backups filtered by the value in+-- the @neverExpires@ parameter. @True@ returns all backups exempt from the+-- backup retention policy. @False@ returns all backups with a backup+-- retention policy defined at the cluster.+--+-- 'maxResults', 'describeBackups_maxResults' - The maximum number of backups to return in the response. When there are+-- more backups than the number you specify, the response contains a+-- @NextToken@ value.+--+-- 'nextToken', 'describeBackups_nextToken' - The @NextToken@ value that you received in the previous response. Use+-- this value to get more backups.+--+-- 'sortAscending', 'describeBackups_sortAscending' - Designates whether or not to sort the return backups by ascending+-- chronological order of generation.+newDescribeBackups ::+  DescribeBackups+newDescribeBackups =+  DescribeBackups'+    { filters = Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      sortAscending = Prelude.Nothing+    }++-- | One or more filters to limit the items returned in the response.+--+-- Use the @backupIds@ filter to return only the specified backups. Specify+-- backups by their backup identifier (ID).+--+-- Use the @sourceBackupIds@ filter to return only the backups created from+-- a source backup. The @sourceBackupID@ of a source backup is returned by+-- the CopyBackupToRegion operation.+--+-- Use the @clusterIds@ filter to return only the backups for the specified+-- clusters. Specify clusters by their cluster identifier (ID).+--+-- Use the @states@ filter to return only backups that match the specified+-- state.+--+-- Use the @neverExpires@ filter to return backups filtered by the value in+-- the @neverExpires@ parameter. @True@ returns all backups exempt from the+-- backup retention policy. @False@ returns all backups with a backup+-- retention policy defined at the cluster.+describeBackups_filters :: Lens.Lens' DescribeBackups (Prelude.Maybe (Prelude.HashMap Prelude.Text [Prelude.Text]))+describeBackups_filters = Lens.lens (\DescribeBackups' {filters} -> filters) (\s@DescribeBackups' {} a -> s {filters = a} :: DescribeBackups) Prelude.. Lens.mapping Lens.coerced++-- | The maximum number of backups to return in the response. When there are+-- more backups than the number you specify, the response contains a+-- @NextToken@ value.+describeBackups_maxResults :: Lens.Lens' DescribeBackups (Prelude.Maybe Prelude.Natural)+describeBackups_maxResults = Lens.lens (\DescribeBackups' {maxResults} -> maxResults) (\s@DescribeBackups' {} a -> s {maxResults = a} :: DescribeBackups)++-- | The @NextToken@ value that you received in the previous response. Use+-- this value to get more backups.+describeBackups_nextToken :: Lens.Lens' DescribeBackups (Prelude.Maybe Prelude.Text)+describeBackups_nextToken = Lens.lens (\DescribeBackups' {nextToken} -> nextToken) (\s@DescribeBackups' {} a -> s {nextToken = a} :: DescribeBackups)++-- | Designates whether or not to sort the return backups by ascending+-- chronological order of generation.+describeBackups_sortAscending :: Lens.Lens' DescribeBackups (Prelude.Maybe Prelude.Bool)+describeBackups_sortAscending = Lens.lens (\DescribeBackups' {sortAscending} -> sortAscending) (\s@DescribeBackups' {} a -> s {sortAscending = a} :: DescribeBackups)++instance Core.AWSPager DescribeBackups where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeBackupsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeBackupsResponse_backups+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeBackups_nextToken+          Lens..~ rs+          Lens.^? describeBackupsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest DescribeBackups where+  type+    AWSResponse DescribeBackups =+      DescribeBackupsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeBackupsResponse'+            Prelude.<$> (x Data..?> "Backups" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeBackups where+  hashWithSalt _salt DescribeBackups' {..} =+    _salt+      `Prelude.hashWithSalt` filters+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` sortAscending++instance Prelude.NFData DescribeBackups where+  rnf DescribeBackups' {..} =+    Prelude.rnf filters+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf sortAscending++instance Data.ToHeaders DescribeBackups where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "BaldrApiService.DescribeBackups" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeBackups where+  toJSON DescribeBackups' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Filters" Data..=) Prelude.<$> filters,+            ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            ("SortAscending" Data..=) Prelude.<$> sortAscending+          ]+      )++instance Data.ToPath DescribeBackups where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeBackups where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeBackupsResponse' smart constructor.+data DescribeBackupsResponse = DescribeBackupsResponse'+  { -- | A list of backups.+    backups :: Prelude.Maybe [Backup],+    -- | An opaque string that indicates that the response contains only a subset+    -- of backups. Use this value in a subsequent @DescribeBackups@ request to+    -- get more backups.+    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 'DescribeBackupsResponse' 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:+--+-- 'backups', 'describeBackupsResponse_backups' - A list of backups.+--+-- 'nextToken', 'describeBackupsResponse_nextToken' - An opaque string that indicates that the response contains only a subset+-- of backups. Use this value in a subsequent @DescribeBackups@ request to+-- get more backups.+--+-- 'httpStatus', 'describeBackupsResponse_httpStatus' - The response's http status code.+newDescribeBackupsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeBackupsResponse+newDescribeBackupsResponse pHttpStatus_ =+  DescribeBackupsResponse'+    { backups = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A list of backups.+describeBackupsResponse_backups :: Lens.Lens' DescribeBackupsResponse (Prelude.Maybe [Backup])+describeBackupsResponse_backups = Lens.lens (\DescribeBackupsResponse' {backups} -> backups) (\s@DescribeBackupsResponse' {} a -> s {backups = a} :: DescribeBackupsResponse) Prelude.. Lens.mapping Lens.coerced++-- | An opaque string that indicates that the response contains only a subset+-- of backups. Use this value in a subsequent @DescribeBackups@ request to+-- get more backups.+describeBackupsResponse_nextToken :: Lens.Lens' DescribeBackupsResponse (Prelude.Maybe Prelude.Text)+describeBackupsResponse_nextToken = Lens.lens (\DescribeBackupsResponse' {nextToken} -> nextToken) (\s@DescribeBackupsResponse' {} a -> s {nextToken = a} :: DescribeBackupsResponse)++-- | The response's http status code.+describeBackupsResponse_httpStatus :: Lens.Lens' DescribeBackupsResponse Prelude.Int+describeBackupsResponse_httpStatus = Lens.lens (\DescribeBackupsResponse' {httpStatus} -> httpStatus) (\s@DescribeBackupsResponse' {} a -> s {httpStatus = a} :: DescribeBackupsResponse)++instance Prelude.NFData DescribeBackupsResponse where+  rnf DescribeBackupsResponse' {..} =+    Prelude.rnf backups+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,285 @@+{-# 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.CloudHSMV2.DescribeClusters+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets information about AWS CloudHSM clusters.+--+-- This is a paginated operation, which means that each response might+-- contain only a subset of all the clusters. When the response contains+-- only a subset of clusters, it includes a @NextToken@ value. Use this+-- value in a subsequent @DescribeClusters@ request to get more clusters.+-- When you receive a response with no @NextToken@ (or an empty or null+-- value), that means there are no more clusters to get.+--+-- This operation returns paginated results.+module Amazonka.CloudHSMV2.DescribeClusters+  ( -- * Creating a Request+    DescribeClusters (..),+    newDescribeClusters,++    -- * Request Lenses+    describeClusters_filters,+    describeClusters_maxResults,+    describeClusters_nextToken,++    -- * Destructuring the Response+    DescribeClustersResponse (..),+    newDescribeClustersResponse,++    -- * Response Lenses+    describeClustersResponse_clusters,+    describeClustersResponse_nextToken,+    describeClustersResponse_httpStatus,+  )+where++import Amazonka.CloudHSMV2.Types+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++-- | /See:/ 'newDescribeClusters' smart constructor.+data DescribeClusters = DescribeClusters'+  { -- | One or more filters to limit the items returned in the response.+    --+    -- Use the @clusterIds@ filter to return only the specified clusters.+    -- Specify clusters by their cluster identifier (ID).+    --+    -- Use the @vpcIds@ filter to return only the clusters in the specified+    -- virtual private clouds (VPCs). Specify VPCs by their VPC identifier+    -- (ID).+    --+    -- Use the @states@ filter to return only clusters that match the specified+    -- state.+    filters :: Prelude.Maybe (Prelude.HashMap Prelude.Text [Prelude.Text]),+    -- | The maximum number of clusters to return in the response. When there are+    -- more clusters than the number you specify, the response contains a+    -- @NextToken@ value.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | The @NextToken@ value that you received in the previous response. Use+    -- this value to get more clusters.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeClusters' 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:+--+-- 'filters', 'describeClusters_filters' - One or more filters to limit the items returned in the response.+--+-- Use the @clusterIds@ filter to return only the specified clusters.+-- Specify clusters by their cluster identifier (ID).+--+-- Use the @vpcIds@ filter to return only the clusters in the specified+-- virtual private clouds (VPCs). Specify VPCs by their VPC identifier+-- (ID).+--+-- Use the @states@ filter to return only clusters that match the specified+-- state.+--+-- 'maxResults', 'describeClusters_maxResults' - The maximum number of clusters to return in the response. When there are+-- more clusters than the number you specify, the response contains a+-- @NextToken@ value.+--+-- 'nextToken', 'describeClusters_nextToken' - The @NextToken@ value that you received in the previous response. Use+-- this value to get more clusters.+newDescribeClusters ::+  DescribeClusters+newDescribeClusters =+  DescribeClusters'+    { filters = Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing+    }++-- | One or more filters to limit the items returned in the response.+--+-- Use the @clusterIds@ filter to return only the specified clusters.+-- Specify clusters by their cluster identifier (ID).+--+-- Use the @vpcIds@ filter to return only the clusters in the specified+-- virtual private clouds (VPCs). Specify VPCs by their VPC identifier+-- (ID).+--+-- Use the @states@ filter to return only clusters that match the specified+-- state.+describeClusters_filters :: Lens.Lens' DescribeClusters (Prelude.Maybe (Prelude.HashMap Prelude.Text [Prelude.Text]))+describeClusters_filters = Lens.lens (\DescribeClusters' {filters} -> filters) (\s@DescribeClusters' {} a -> s {filters = a} :: DescribeClusters) Prelude.. Lens.mapping Lens.coerced++-- | The maximum number of clusters to return in the response. When there are+-- more clusters than the number you specify, the response contains a+-- @NextToken@ value.+describeClusters_maxResults :: Lens.Lens' DescribeClusters (Prelude.Maybe Prelude.Natural)+describeClusters_maxResults = Lens.lens (\DescribeClusters' {maxResults} -> maxResults) (\s@DescribeClusters' {} a -> s {maxResults = a} :: DescribeClusters)++-- | The @NextToken@ value that you received in the previous response. Use+-- this value to get more clusters.+describeClusters_nextToken :: Lens.Lens' DescribeClusters (Prelude.Maybe Prelude.Text)+describeClusters_nextToken = Lens.lens (\DescribeClusters' {nextToken} -> nextToken) (\s@DescribeClusters' {} a -> s {nextToken = a} :: DescribeClusters)++instance Core.AWSPager DescribeClusters where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeClustersResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeClustersResponse_clusters+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeClusters_nextToken+          Lens..~ rs+          Lens.^? describeClustersResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest DescribeClusters where+  type+    AWSResponse DescribeClusters =+      DescribeClustersResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeClustersResponse'+            Prelude.<$> (x Data..?> "Clusters" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeClusters where+  hashWithSalt _salt DescribeClusters' {..} =+    _salt+      `Prelude.hashWithSalt` filters+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData DescribeClusters where+  rnf DescribeClusters' {..} =+    Prelude.rnf filters+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken++instance Data.ToHeaders DescribeClusters where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "BaldrApiService.DescribeClusters" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeClusters where+  toJSON DescribeClusters' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Filters" Data..=) Prelude.<$> filters,+            ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken+          ]+      )++instance Data.ToPath DescribeClusters where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeClusters where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeClustersResponse' smart constructor.+data DescribeClustersResponse = DescribeClustersResponse'+  { -- | A list of clusters.+    clusters :: Prelude.Maybe [Cluster],+    -- | An opaque string that indicates that the response contains only a subset+    -- of clusters. Use this value in a subsequent @DescribeClusters@ request+    -- to get more clusters.+    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 'DescribeClustersResponse' 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:+--+-- 'clusters', 'describeClustersResponse_clusters' - A list of clusters.+--+-- 'nextToken', 'describeClustersResponse_nextToken' - An opaque string that indicates that the response contains only a subset+-- of clusters. Use this value in a subsequent @DescribeClusters@ request+-- to get more clusters.+--+-- 'httpStatus', 'describeClustersResponse_httpStatus' - The response's http status code.+newDescribeClustersResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeClustersResponse+newDescribeClustersResponse pHttpStatus_ =+  DescribeClustersResponse'+    { clusters =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A list of clusters.+describeClustersResponse_clusters :: Lens.Lens' DescribeClustersResponse (Prelude.Maybe [Cluster])+describeClustersResponse_clusters = Lens.lens (\DescribeClustersResponse' {clusters} -> clusters) (\s@DescribeClustersResponse' {} a -> s {clusters = a} :: DescribeClustersResponse) Prelude.. Lens.mapping Lens.coerced++-- | An opaque string that indicates that the response contains only a subset+-- of clusters. Use this value in a subsequent @DescribeClusters@ request+-- to get more clusters.+describeClustersResponse_nextToken :: Lens.Lens' DescribeClustersResponse (Prelude.Maybe Prelude.Text)+describeClustersResponse_nextToken = Lens.lens (\DescribeClustersResponse' {nextToken} -> nextToken) (\s@DescribeClustersResponse' {} a -> s {nextToken = a} :: DescribeClustersResponse)++-- | The response's http status code.+describeClustersResponse_httpStatus :: Lens.Lens' DescribeClustersResponse Prelude.Int+describeClustersResponse_httpStatus = Lens.lens (\DescribeClustersResponse' {httpStatus} -> httpStatus) (\s@DescribeClustersResponse' {} a -> s {httpStatus = a} :: DescribeClustersResponse)++instance Prelude.NFData DescribeClustersResponse where+  rnf DescribeClustersResponse' {..} =+    Prelude.rnf clusters+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,242 @@+{-# 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.CloudHSMV2.InitializeCluster+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Claims an AWS CloudHSM cluster by submitting the cluster certificate+-- issued by your issuing certificate authority (CA) and the CA\'s root+-- certificate. Before you can claim a cluster, you must sign the+-- cluster\'s certificate signing request (CSR) with your issuing CA. To+-- get the cluster\'s CSR, use DescribeClusters.+module Amazonka.CloudHSMV2.InitializeCluster+  ( -- * Creating a Request+    InitializeCluster (..),+    newInitializeCluster,++    -- * Request Lenses+    initializeCluster_clusterId,+    initializeCluster_signedCert,+    initializeCluster_trustAnchor,++    -- * Destructuring the Response+    InitializeClusterResponse (..),+    newInitializeClusterResponse,++    -- * Response Lenses+    initializeClusterResponse_state,+    initializeClusterResponse_stateMessage,+    initializeClusterResponse_httpStatus,+  )+where++import Amazonka.CloudHSMV2.Types+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++-- | /See:/ 'newInitializeCluster' smart constructor.+data InitializeCluster = InitializeCluster'+  { -- | The identifier (ID) of the cluster that you are claiming. To find the+    -- cluster ID, use DescribeClusters.+    clusterId :: Prelude.Text,+    -- | The cluster certificate issued (signed) by your issuing certificate+    -- authority (CA). The certificate must be in PEM format and can contain a+    -- maximum of 5000 characters.+    signedCert :: Prelude.Text,+    -- | The issuing certificate of the issuing certificate authority (CA) that+    -- issued (signed) the cluster certificate. You must use a self-signed+    -- certificate. The certificate used to sign the HSM CSR must be directly+    -- available, and thus must be the root certificate. The certificate must+    -- be in PEM format and can contain a maximum of 5000 characters.+    trustAnchor :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'InitializeCluster' 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:+--+-- 'clusterId', 'initializeCluster_clusterId' - The identifier (ID) of the cluster that you are claiming. To find the+-- cluster ID, use DescribeClusters.+--+-- 'signedCert', 'initializeCluster_signedCert' - The cluster certificate issued (signed) by your issuing certificate+-- authority (CA). The certificate must be in PEM format and can contain a+-- maximum of 5000 characters.+--+-- 'trustAnchor', 'initializeCluster_trustAnchor' - The issuing certificate of the issuing certificate authority (CA) that+-- issued (signed) the cluster certificate. You must use a self-signed+-- certificate. The certificate used to sign the HSM CSR must be directly+-- available, and thus must be the root certificate. The certificate must+-- be in PEM format and can contain a maximum of 5000 characters.+newInitializeCluster ::+  -- | 'clusterId'+  Prelude.Text ->+  -- | 'signedCert'+  Prelude.Text ->+  -- | 'trustAnchor'+  Prelude.Text ->+  InitializeCluster+newInitializeCluster+  pClusterId_+  pSignedCert_+  pTrustAnchor_ =+    InitializeCluster'+      { clusterId = pClusterId_,+        signedCert = pSignedCert_,+        trustAnchor = pTrustAnchor_+      }++-- | The identifier (ID) of the cluster that you are claiming. To find the+-- cluster ID, use DescribeClusters.+initializeCluster_clusterId :: Lens.Lens' InitializeCluster Prelude.Text+initializeCluster_clusterId = Lens.lens (\InitializeCluster' {clusterId} -> clusterId) (\s@InitializeCluster' {} a -> s {clusterId = a} :: InitializeCluster)++-- | The cluster certificate issued (signed) by your issuing certificate+-- authority (CA). The certificate must be in PEM format and can contain a+-- maximum of 5000 characters.+initializeCluster_signedCert :: Lens.Lens' InitializeCluster Prelude.Text+initializeCluster_signedCert = Lens.lens (\InitializeCluster' {signedCert} -> signedCert) (\s@InitializeCluster' {} a -> s {signedCert = a} :: InitializeCluster)++-- | The issuing certificate of the issuing certificate authority (CA) that+-- issued (signed) the cluster certificate. You must use a self-signed+-- certificate. The certificate used to sign the HSM CSR must be directly+-- available, and thus must be the root certificate. The certificate must+-- be in PEM format and can contain a maximum of 5000 characters.+initializeCluster_trustAnchor :: Lens.Lens' InitializeCluster Prelude.Text+initializeCluster_trustAnchor = Lens.lens (\InitializeCluster' {trustAnchor} -> trustAnchor) (\s@InitializeCluster' {} a -> s {trustAnchor = a} :: InitializeCluster)++instance Core.AWSRequest InitializeCluster where+  type+    AWSResponse InitializeCluster =+      InitializeClusterResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          InitializeClusterResponse'+            Prelude.<$> (x Data..?> "State")+            Prelude.<*> (x Data..?> "StateMessage")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable InitializeCluster where+  hashWithSalt _salt InitializeCluster' {..} =+    _salt+      `Prelude.hashWithSalt` clusterId+      `Prelude.hashWithSalt` signedCert+      `Prelude.hashWithSalt` trustAnchor++instance Prelude.NFData InitializeCluster where+  rnf InitializeCluster' {..} =+    Prelude.rnf clusterId+      `Prelude.seq` Prelude.rnf signedCert+      `Prelude.seq` Prelude.rnf trustAnchor++instance Data.ToHeaders InitializeCluster where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "BaldrApiService.InitializeCluster" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON InitializeCluster where+  toJSON InitializeCluster' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("ClusterId" Data..= clusterId),+            Prelude.Just ("SignedCert" Data..= signedCert),+            Prelude.Just ("TrustAnchor" Data..= trustAnchor)+          ]+      )++instance Data.ToPath InitializeCluster where+  toPath = Prelude.const "/"++instance Data.ToQuery InitializeCluster where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newInitializeClusterResponse' smart constructor.+data InitializeClusterResponse = InitializeClusterResponse'+  { -- | The cluster\'s state.+    state :: Prelude.Maybe ClusterState,+    -- | A description of the cluster\'s state.+    stateMessage :: 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 'InitializeClusterResponse' 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:+--+-- 'state', 'initializeClusterResponse_state' - The cluster\'s state.+--+-- 'stateMessage', 'initializeClusterResponse_stateMessage' - A description of the cluster\'s state.+--+-- 'httpStatus', 'initializeClusterResponse_httpStatus' - The response's http status code.+newInitializeClusterResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  InitializeClusterResponse+newInitializeClusterResponse pHttpStatus_ =+  InitializeClusterResponse'+    { state = Prelude.Nothing,+      stateMessage = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The cluster\'s state.+initializeClusterResponse_state :: Lens.Lens' InitializeClusterResponse (Prelude.Maybe ClusterState)+initializeClusterResponse_state = Lens.lens (\InitializeClusterResponse' {state} -> state) (\s@InitializeClusterResponse' {} a -> s {state = a} :: InitializeClusterResponse)++-- | A description of the cluster\'s state.+initializeClusterResponse_stateMessage :: Lens.Lens' InitializeClusterResponse (Prelude.Maybe Prelude.Text)+initializeClusterResponse_stateMessage = Lens.lens (\InitializeClusterResponse' {stateMessage} -> stateMessage) (\s@InitializeClusterResponse' {} a -> s {stateMessage = a} :: InitializeClusterResponse)++-- | The response's http status code.+initializeClusterResponse_httpStatus :: Lens.Lens' InitializeClusterResponse Prelude.Int+initializeClusterResponse_httpStatus = Lens.lens (\InitializeClusterResponse' {httpStatus} -> httpStatus) (\s@InitializeClusterResponse' {} a -> s {httpStatus = a} :: InitializeClusterResponse)++instance Prelude.NFData InitializeClusterResponse where+  rnf InitializeClusterResponse' {..} =+    Prelude.rnf state+      `Prelude.seq` Prelude.rnf stateMessage+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,204 @@+{-# 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.CloudHSMV2.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.CloudHSMV2.Lens+  ( -- * Operations++    -- ** CopyBackupToRegion+    copyBackupToRegion_tagList,+    copyBackupToRegion_destinationRegion,+    copyBackupToRegion_backupId,+    copyBackupToRegionResponse_destinationBackup,+    copyBackupToRegionResponse_httpStatus,++    -- ** CreateCluster+    createCluster_backupRetentionPolicy,+    createCluster_sourceBackupId,+    createCluster_tagList,+    createCluster_hsmType,+    createCluster_subnetIds,+    createClusterResponse_cluster,+    createClusterResponse_httpStatus,++    -- ** CreateHsm+    createHsm_ipAddress,+    createHsm_clusterId,+    createHsm_availabilityZone,+    createHsmResponse_hsm,+    createHsmResponse_httpStatus,++    -- ** DeleteBackup+    deleteBackup_backupId,+    deleteBackupResponse_backup,+    deleteBackupResponse_httpStatus,++    -- ** DeleteCluster+    deleteCluster_clusterId,+    deleteClusterResponse_cluster,+    deleteClusterResponse_httpStatus,++    -- ** DeleteHsm+    deleteHsm_eniId,+    deleteHsm_eniIp,+    deleteHsm_hsmId,+    deleteHsm_clusterId,+    deleteHsmResponse_hsmId,+    deleteHsmResponse_httpStatus,++    -- ** DescribeBackups+    describeBackups_filters,+    describeBackups_maxResults,+    describeBackups_nextToken,+    describeBackups_sortAscending,+    describeBackupsResponse_backups,+    describeBackupsResponse_nextToken,+    describeBackupsResponse_httpStatus,++    -- ** DescribeClusters+    describeClusters_filters,+    describeClusters_maxResults,+    describeClusters_nextToken,+    describeClustersResponse_clusters,+    describeClustersResponse_nextToken,+    describeClustersResponse_httpStatus,++    -- ** InitializeCluster+    initializeCluster_clusterId,+    initializeCluster_signedCert,+    initializeCluster_trustAnchor,+    initializeClusterResponse_state,+    initializeClusterResponse_stateMessage,+    initializeClusterResponse_httpStatus,++    -- ** ListTags+    listTags_maxResults,+    listTags_nextToken,+    listTags_resourceId,+    listTagsResponse_nextToken,+    listTagsResponse_httpStatus,+    listTagsResponse_tagList,++    -- ** ModifyBackupAttributes+    modifyBackupAttributes_backupId,+    modifyBackupAttributes_neverExpires,+    modifyBackupAttributesResponse_backup,+    modifyBackupAttributesResponse_httpStatus,++    -- ** ModifyCluster+    modifyCluster_backupRetentionPolicy,+    modifyCluster_clusterId,+    modifyClusterResponse_cluster,+    modifyClusterResponse_httpStatus,++    -- ** RestoreBackup+    restoreBackup_backupId,+    restoreBackupResponse_backup,+    restoreBackupResponse_httpStatus,++    -- ** TagResource+    tagResource_resourceId,+    tagResource_tagList,+    tagResourceResponse_httpStatus,++    -- ** UntagResource+    untagResource_resourceId,+    untagResource_tagKeyList,+    untagResourceResponse_httpStatus,++    -- * Types++    -- ** Backup+    backup_backupState,+    backup_clusterId,+    backup_copyTimestamp,+    backup_createTimestamp,+    backup_deleteTimestamp,+    backup_neverExpires,+    backup_sourceBackup,+    backup_sourceCluster,+    backup_sourceRegion,+    backup_tagList,+    backup_backupId,++    -- ** BackupRetentionPolicy+    backupRetentionPolicy_type,+    backupRetentionPolicy_value,++    -- ** Certificates+    certificates_awsHardwareCertificate,+    certificates_clusterCertificate,+    certificates_clusterCsr,+    certificates_hsmCertificate,+    certificates_manufacturerHardwareCertificate,++    -- ** Cluster+    cluster_backupPolicy,+    cluster_backupRetentionPolicy,+    cluster_certificates,+    cluster_clusterId,+    cluster_createTimestamp,+    cluster_hsmType,+    cluster_hsms,+    cluster_preCoPassword,+    cluster_securityGroup,+    cluster_sourceBackupId,+    cluster_state,+    cluster_stateMessage,+    cluster_subnetMapping,+    cluster_tagList,+    cluster_vpcId,++    -- ** DestinationBackup+    destinationBackup_createTimestamp,+    destinationBackup_sourceBackup,+    destinationBackup_sourceCluster,+    destinationBackup_sourceRegion,++    -- ** Hsm+    hsm_availabilityZone,+    hsm_clusterId,+    hsm_eniId,+    hsm_eniIp,+    hsm_state,+    hsm_stateMessage,+    hsm_subnetId,+    hsm_hsmId,++    -- ** Tag+    tag_key,+    tag_value,+  )+where++import Amazonka.CloudHSMV2.CopyBackupToRegion+import Amazonka.CloudHSMV2.CreateCluster+import Amazonka.CloudHSMV2.CreateHsm+import Amazonka.CloudHSMV2.DeleteBackup+import Amazonka.CloudHSMV2.DeleteCluster+import Amazonka.CloudHSMV2.DeleteHsm+import Amazonka.CloudHSMV2.DescribeBackups+import Amazonka.CloudHSMV2.DescribeClusters+import Amazonka.CloudHSMV2.InitializeCluster+import Amazonka.CloudHSMV2.ListTags+import Amazonka.CloudHSMV2.ModifyBackupAttributes+import Amazonka.CloudHSMV2.ModifyCluster+import Amazonka.CloudHSMV2.RestoreBackup+import Amazonka.CloudHSMV2.TagResource+import Amazonka.CloudHSMV2.Types.Backup+import Amazonka.CloudHSMV2.Types.BackupRetentionPolicy+import Amazonka.CloudHSMV2.Types.Certificates+import Amazonka.CloudHSMV2.Types.Cluster+import Amazonka.CloudHSMV2.Types.DestinationBackup+import Amazonka.CloudHSMV2.Types.Hsm+import Amazonka.CloudHSMV2.Types.Tag+import Amazonka.CloudHSMV2.UntagResource

@@ -0,0 +1,251 @@+{-# 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.CloudHSMV2.ListTags+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets a list of tags for the specified AWS CloudHSM cluster.+--+-- This is a paginated operation, which means that each response might+-- contain only a subset of all the tags. When the response contains only a+-- subset of tags, it includes a @NextToken@ value. Use this value in a+-- subsequent @ListTags@ request to get more tags. When you receive a+-- response with no @NextToken@ (or an empty or null value), that means+-- there are no more tags to get.+--+-- This operation returns paginated results.+module Amazonka.CloudHSMV2.ListTags+  ( -- * Creating a Request+    ListTags (..),+    newListTags,++    -- * Request Lenses+    listTags_maxResults,+    listTags_nextToken,+    listTags_resourceId,++    -- * Destructuring the Response+    ListTagsResponse (..),+    newListTagsResponse,++    -- * Response Lenses+    listTagsResponse_nextToken,+    listTagsResponse_httpStatus,+    listTagsResponse_tagList,+  )+where++import Amazonka.CloudHSMV2.Types+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++-- | /See:/ 'newListTags' smart constructor.+data ListTags = ListTags'+  { -- | The maximum number of tags to return in the response. When there are+    -- more tags than the number you specify, the response contains a+    -- @NextToken@ value.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | The @NextToken@ value that you received in the previous response. Use+    -- this value to get more tags.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The cluster identifier (ID) for the cluster whose tags you are getting.+    -- To find the cluster ID, use DescribeClusters.+    resourceId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListTags' 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:+--+-- 'maxResults', 'listTags_maxResults' - The maximum number of tags to return in the response. When there are+-- more tags than the number you specify, the response contains a+-- @NextToken@ value.+--+-- 'nextToken', 'listTags_nextToken' - The @NextToken@ value that you received in the previous response. Use+-- this value to get more tags.+--+-- 'resourceId', 'listTags_resourceId' - The cluster identifier (ID) for the cluster whose tags you are getting.+-- To find the cluster ID, use DescribeClusters.+newListTags ::+  -- | 'resourceId'+  Prelude.Text ->+  ListTags+newListTags pResourceId_ =+  ListTags'+    { maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      resourceId = pResourceId_+    }++-- | The maximum number of tags to return in the response. When there are+-- more tags than the number you specify, the response contains a+-- @NextToken@ value.+listTags_maxResults :: Lens.Lens' ListTags (Prelude.Maybe Prelude.Natural)+listTags_maxResults = Lens.lens (\ListTags' {maxResults} -> maxResults) (\s@ListTags' {} a -> s {maxResults = a} :: ListTags)++-- | The @NextToken@ value that you received in the previous response. Use+-- this value to get more tags.+listTags_nextToken :: Lens.Lens' ListTags (Prelude.Maybe Prelude.Text)+listTags_nextToken = Lens.lens (\ListTags' {nextToken} -> nextToken) (\s@ListTags' {} a -> s {nextToken = a} :: ListTags)++-- | The cluster identifier (ID) for the cluster whose tags you are getting.+-- To find the cluster ID, use DescribeClusters.+listTags_resourceId :: Lens.Lens' ListTags Prelude.Text+listTags_resourceId = Lens.lens (\ListTags' {resourceId} -> resourceId) (\s@ListTags' {} a -> s {resourceId = a} :: ListTags)++instance Core.AWSPager ListTags where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listTagsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop (rs Lens.^. listTagsResponse_tagList) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listTags_nextToken+          Lens..~ rs+          Lens.^? listTagsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListTags where+  type AWSResponse ListTags = ListTagsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListTagsResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..?> "TagList" Core..!@ Prelude.mempty)+      )++instance Prelude.Hashable ListTags where+  hashWithSalt _salt ListTags' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` resourceId++instance Prelude.NFData ListTags where+  rnf ListTags' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf resourceId++instance Data.ToHeaders ListTags where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ("BaldrApiService.ListTags" :: Prelude.ByteString),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListTags where+  toJSON ListTags' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("ResourceId" Data..= resourceId)+          ]+      )++instance Data.ToPath ListTags where+  toPath = Prelude.const "/"++instance Data.ToQuery ListTags where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListTagsResponse' smart constructor.+data ListTagsResponse = ListTagsResponse'+  { -- | An opaque string that indicates that the response contains only a subset+    -- of tags. Use this value in a subsequent @ListTags@ request to get more+    -- tags.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | A list of tags.+    tagList :: [Tag]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListTagsResponse' 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:+--+-- 'nextToken', 'listTagsResponse_nextToken' - An opaque string that indicates that the response contains only a subset+-- of tags. Use this value in a subsequent @ListTags@ request to get more+-- tags.+--+-- 'httpStatus', 'listTagsResponse_httpStatus' - The response's http status code.+--+-- 'tagList', 'listTagsResponse_tagList' - A list of tags.+newListTagsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListTagsResponse+newListTagsResponse pHttpStatus_ =+  ListTagsResponse'+    { nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_,+      tagList = Prelude.mempty+    }++-- | An opaque string that indicates that the response contains only a subset+-- of tags. Use this value in a subsequent @ListTags@ request to get more+-- tags.+listTagsResponse_nextToken :: Lens.Lens' ListTagsResponse (Prelude.Maybe Prelude.Text)+listTagsResponse_nextToken = Lens.lens (\ListTagsResponse' {nextToken} -> nextToken) (\s@ListTagsResponse' {} a -> s {nextToken = a} :: ListTagsResponse)++-- | The response's http status code.+listTagsResponse_httpStatus :: Lens.Lens' ListTagsResponse Prelude.Int+listTagsResponse_httpStatus = Lens.lens (\ListTagsResponse' {httpStatus} -> httpStatus) (\s@ListTagsResponse' {} a -> s {httpStatus = a} :: ListTagsResponse)++-- | A list of tags.+listTagsResponse_tagList :: Lens.Lens' ListTagsResponse [Tag]+listTagsResponse_tagList = Lens.lens (\ListTagsResponse' {tagList} -> tagList) (\s@ListTagsResponse' {} a -> s {tagList = a} :: ListTagsResponse) Prelude.. Lens.coerced++instance Prelude.NFData ListTagsResponse where+  rnf ListTagsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf tagList

@@ -0,0 +1,202 @@+{-# 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.CloudHSMV2.ModifyBackupAttributes+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Modifies attributes for AWS CloudHSM backup.+module Amazonka.CloudHSMV2.ModifyBackupAttributes+  ( -- * Creating a Request+    ModifyBackupAttributes (..),+    newModifyBackupAttributes,++    -- * Request Lenses+    modifyBackupAttributes_backupId,+    modifyBackupAttributes_neverExpires,++    -- * Destructuring the Response+    ModifyBackupAttributesResponse (..),+    newModifyBackupAttributesResponse,++    -- * Response Lenses+    modifyBackupAttributesResponse_backup,+    modifyBackupAttributesResponse_httpStatus,+  )+where++import Amazonka.CloudHSMV2.Types+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++-- | /See:/ 'newModifyBackupAttributes' smart constructor.+data ModifyBackupAttributes = ModifyBackupAttributes'+  { -- | The identifier (ID) of the backup to modify. To find the ID of a backup,+    -- use the DescribeBackups operation.+    backupId :: Prelude.Text,+    -- | Specifies whether the service should exempt a backup from the retention+    -- policy for the cluster. @True@ exempts a backup from the retention+    -- policy. @False@ means the service applies the backup retention policy+    -- defined at the cluster.+    neverExpires :: Prelude.Bool+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ModifyBackupAttributes' 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:+--+-- 'backupId', 'modifyBackupAttributes_backupId' - The identifier (ID) of the backup to modify. To find the ID of a backup,+-- use the DescribeBackups operation.+--+-- 'neverExpires', 'modifyBackupAttributes_neverExpires' - Specifies whether the service should exempt a backup from the retention+-- policy for the cluster. @True@ exempts a backup from the retention+-- policy. @False@ means the service applies the backup retention policy+-- defined at the cluster.+newModifyBackupAttributes ::+  -- | 'backupId'+  Prelude.Text ->+  -- | 'neverExpires'+  Prelude.Bool ->+  ModifyBackupAttributes+newModifyBackupAttributes pBackupId_ pNeverExpires_ =+  ModifyBackupAttributes'+    { backupId = pBackupId_,+      neverExpires = pNeverExpires_+    }++-- | The identifier (ID) of the backup to modify. To find the ID of a backup,+-- use the DescribeBackups operation.+modifyBackupAttributes_backupId :: Lens.Lens' ModifyBackupAttributes Prelude.Text+modifyBackupAttributes_backupId = Lens.lens (\ModifyBackupAttributes' {backupId} -> backupId) (\s@ModifyBackupAttributes' {} a -> s {backupId = a} :: ModifyBackupAttributes)++-- | Specifies whether the service should exempt a backup from the retention+-- policy for the cluster. @True@ exempts a backup from the retention+-- policy. @False@ means the service applies the backup retention policy+-- defined at the cluster.+modifyBackupAttributes_neverExpires :: Lens.Lens' ModifyBackupAttributes Prelude.Bool+modifyBackupAttributes_neverExpires = Lens.lens (\ModifyBackupAttributes' {neverExpires} -> neverExpires) (\s@ModifyBackupAttributes' {} a -> s {neverExpires = a} :: ModifyBackupAttributes)++instance Core.AWSRequest ModifyBackupAttributes where+  type+    AWSResponse ModifyBackupAttributes =+      ModifyBackupAttributesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ModifyBackupAttributesResponse'+            Prelude.<$> (x Data..?> "Backup")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ModifyBackupAttributes where+  hashWithSalt _salt ModifyBackupAttributes' {..} =+    _salt+      `Prelude.hashWithSalt` backupId+      `Prelude.hashWithSalt` neverExpires++instance Prelude.NFData ModifyBackupAttributes where+  rnf ModifyBackupAttributes' {..} =+    Prelude.rnf backupId+      `Prelude.seq` Prelude.rnf neverExpires++instance Data.ToHeaders ModifyBackupAttributes where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "BaldrApiService.ModifyBackupAttributes" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ModifyBackupAttributes where+  toJSON ModifyBackupAttributes' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("BackupId" Data..= backupId),+            Prelude.Just ("NeverExpires" Data..= neverExpires)+          ]+      )++instance Data.ToPath ModifyBackupAttributes where+  toPath = Prelude.const "/"++instance Data.ToQuery ModifyBackupAttributes where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newModifyBackupAttributesResponse' smart constructor.+data ModifyBackupAttributesResponse = ModifyBackupAttributesResponse'+  { backup :: Prelude.Maybe Backup,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ModifyBackupAttributesResponse' 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:+--+-- 'backup', 'modifyBackupAttributesResponse_backup' - Undocumented member.+--+-- 'httpStatus', 'modifyBackupAttributesResponse_httpStatus' - The response's http status code.+newModifyBackupAttributesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ModifyBackupAttributesResponse+newModifyBackupAttributesResponse pHttpStatus_ =+  ModifyBackupAttributesResponse'+    { backup =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Undocumented member.+modifyBackupAttributesResponse_backup :: Lens.Lens' ModifyBackupAttributesResponse (Prelude.Maybe Backup)+modifyBackupAttributesResponse_backup = Lens.lens (\ModifyBackupAttributesResponse' {backup} -> backup) (\s@ModifyBackupAttributesResponse' {} a -> s {backup = a} :: ModifyBackupAttributesResponse)++-- | The response's http status code.+modifyBackupAttributesResponse_httpStatus :: Lens.Lens' ModifyBackupAttributesResponse Prelude.Int+modifyBackupAttributesResponse_httpStatus = Lens.lens (\ModifyBackupAttributesResponse' {httpStatus} -> httpStatus) (\s@ModifyBackupAttributesResponse' {} a -> s {httpStatus = a} :: ModifyBackupAttributesResponse)++instance+  Prelude.NFData+    ModifyBackupAttributesResponse+  where+  rnf ModifyBackupAttributesResponse' {..} =+    Prelude.rnf backup+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,193 @@+{-# 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.CloudHSMV2.ModifyCluster+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Modifies AWS CloudHSM cluster.+module Amazonka.CloudHSMV2.ModifyCluster+  ( -- * Creating a Request+    ModifyCluster (..),+    newModifyCluster,++    -- * Request Lenses+    modifyCluster_backupRetentionPolicy,+    modifyCluster_clusterId,++    -- * Destructuring the Response+    ModifyClusterResponse (..),+    newModifyClusterResponse,++    -- * Response Lenses+    modifyClusterResponse_cluster,+    modifyClusterResponse_httpStatus,+  )+where++import Amazonka.CloudHSMV2.Types+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++-- | /See:/ 'newModifyCluster' smart constructor.+data ModifyCluster = ModifyCluster'+  { -- | A policy that defines how the service retains backups.+    backupRetentionPolicy :: BackupRetentionPolicy,+    -- | The identifier (ID) of the cluster that you want to modify. To find the+    -- cluster ID, use DescribeClusters.+    clusterId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ModifyCluster' 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:+--+-- 'backupRetentionPolicy', 'modifyCluster_backupRetentionPolicy' - A policy that defines how the service retains backups.+--+-- 'clusterId', 'modifyCluster_clusterId' - The identifier (ID) of the cluster that you want to modify. To find the+-- cluster ID, use DescribeClusters.+newModifyCluster ::+  -- | 'backupRetentionPolicy'+  BackupRetentionPolicy ->+  -- | 'clusterId'+  Prelude.Text ->+  ModifyCluster+newModifyCluster pBackupRetentionPolicy_ pClusterId_ =+  ModifyCluster'+    { backupRetentionPolicy =+        pBackupRetentionPolicy_,+      clusterId = pClusterId_+    }++-- | A policy that defines how the service retains backups.+modifyCluster_backupRetentionPolicy :: Lens.Lens' ModifyCluster BackupRetentionPolicy+modifyCluster_backupRetentionPolicy = Lens.lens (\ModifyCluster' {backupRetentionPolicy} -> backupRetentionPolicy) (\s@ModifyCluster' {} a -> s {backupRetentionPolicy = a} :: ModifyCluster)++-- | The identifier (ID) of the cluster that you want to modify. To find the+-- cluster ID, use DescribeClusters.+modifyCluster_clusterId :: Lens.Lens' ModifyCluster Prelude.Text+modifyCluster_clusterId = Lens.lens (\ModifyCluster' {clusterId} -> clusterId) (\s@ModifyCluster' {} a -> s {clusterId = a} :: ModifyCluster)++instance Core.AWSRequest ModifyCluster where+  type+    AWSResponse ModifyCluster =+      ModifyClusterResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ModifyClusterResponse'+            Prelude.<$> (x Data..?> "Cluster")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ModifyCluster where+  hashWithSalt _salt ModifyCluster' {..} =+    _salt+      `Prelude.hashWithSalt` backupRetentionPolicy+      `Prelude.hashWithSalt` clusterId++instance Prelude.NFData ModifyCluster where+  rnf ModifyCluster' {..} =+    Prelude.rnf backupRetentionPolicy+      `Prelude.seq` Prelude.rnf clusterId++instance Data.ToHeaders ModifyCluster where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "BaldrApiService.ModifyCluster" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ModifyCluster where+  toJSON ModifyCluster' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ( "BackupRetentionPolicy"+                  Data..= backupRetentionPolicy+              ),+            Prelude.Just ("ClusterId" Data..= clusterId)+          ]+      )++instance Data.ToPath ModifyCluster where+  toPath = Prelude.const "/"++instance Data.ToQuery ModifyCluster where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newModifyClusterResponse' smart constructor.+data ModifyClusterResponse = ModifyClusterResponse'+  { cluster :: Prelude.Maybe Cluster,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ModifyClusterResponse' 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:+--+-- 'cluster', 'modifyClusterResponse_cluster' - Undocumented member.+--+-- 'httpStatus', 'modifyClusterResponse_httpStatus' - The response's http status code.+newModifyClusterResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ModifyClusterResponse+newModifyClusterResponse pHttpStatus_ =+  ModifyClusterResponse'+    { cluster = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Undocumented member.+modifyClusterResponse_cluster :: Lens.Lens' ModifyClusterResponse (Prelude.Maybe Cluster)+modifyClusterResponse_cluster = Lens.lens (\ModifyClusterResponse' {cluster} -> cluster) (\s@ModifyClusterResponse' {} a -> s {cluster = a} :: ModifyClusterResponse)++-- | The response's http status code.+modifyClusterResponse_httpStatus :: Lens.Lens' ModifyClusterResponse Prelude.Int+modifyClusterResponse_httpStatus = Lens.lens (\ModifyClusterResponse' {httpStatus} -> httpStatus) (\s@ModifyClusterResponse' {} a -> s {httpStatus = a} :: ModifyClusterResponse)++instance Prelude.NFData ModifyClusterResponse where+  rnf ModifyClusterResponse' {..} =+    Prelude.rnf cluster+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,172 @@+{-# 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.CloudHSMV2.RestoreBackup+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Restores a specified AWS CloudHSM backup that is in the+-- @PENDING_DELETION@ state. For mor information on deleting a backup, see+-- DeleteBackup.+module Amazonka.CloudHSMV2.RestoreBackup+  ( -- * Creating a Request+    RestoreBackup (..),+    newRestoreBackup,++    -- * Request Lenses+    restoreBackup_backupId,++    -- * Destructuring the Response+    RestoreBackupResponse (..),+    newRestoreBackupResponse,++    -- * Response Lenses+    restoreBackupResponse_backup,+    restoreBackupResponse_httpStatus,+  )+where++import Amazonka.CloudHSMV2.Types+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++-- | /See:/ 'newRestoreBackup' smart constructor.+data RestoreBackup = RestoreBackup'+  { -- | The ID of the backup to be restored. To find the ID of a backup, use the+    -- DescribeBackups operation.+    backupId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RestoreBackup' 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:+--+-- 'backupId', 'restoreBackup_backupId' - The ID of the backup to be restored. To find the ID of a backup, use the+-- DescribeBackups operation.+newRestoreBackup ::+  -- | 'backupId'+  Prelude.Text ->+  RestoreBackup+newRestoreBackup pBackupId_ =+  RestoreBackup' {backupId = pBackupId_}++-- | The ID of the backup to be restored. To find the ID of a backup, use the+-- DescribeBackups operation.+restoreBackup_backupId :: Lens.Lens' RestoreBackup Prelude.Text+restoreBackup_backupId = Lens.lens (\RestoreBackup' {backupId} -> backupId) (\s@RestoreBackup' {} a -> s {backupId = a} :: RestoreBackup)++instance Core.AWSRequest RestoreBackup where+  type+    AWSResponse RestoreBackup =+      RestoreBackupResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          RestoreBackupResponse'+            Prelude.<$> (x Data..?> "Backup")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable RestoreBackup where+  hashWithSalt _salt RestoreBackup' {..} =+    _salt `Prelude.hashWithSalt` backupId++instance Prelude.NFData RestoreBackup where+  rnf RestoreBackup' {..} = Prelude.rnf backupId++instance Data.ToHeaders RestoreBackup where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "BaldrApiService.RestoreBackup" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON RestoreBackup where+  toJSON RestoreBackup' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("BackupId" Data..= backupId)]+      )++instance Data.ToPath RestoreBackup where+  toPath = Prelude.const "/"++instance Data.ToQuery RestoreBackup where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newRestoreBackupResponse' smart constructor.+data RestoreBackupResponse = RestoreBackupResponse'+  { -- | Information on the @Backup@ object created.+    backup :: Prelude.Maybe Backup,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RestoreBackupResponse' 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:+--+-- 'backup', 'restoreBackupResponse_backup' - Information on the @Backup@ object created.+--+-- 'httpStatus', 'restoreBackupResponse_httpStatus' - The response's http status code.+newRestoreBackupResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  RestoreBackupResponse+newRestoreBackupResponse pHttpStatus_ =+  RestoreBackupResponse'+    { backup = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Information on the @Backup@ object created.+restoreBackupResponse_backup :: Lens.Lens' RestoreBackupResponse (Prelude.Maybe Backup)+restoreBackupResponse_backup = Lens.lens (\RestoreBackupResponse' {backup} -> backup) (\s@RestoreBackupResponse' {} a -> s {backup = a} :: RestoreBackupResponse)++-- | The response's http status code.+restoreBackupResponse_httpStatus :: Lens.Lens' RestoreBackupResponse Prelude.Int+restoreBackupResponse_httpStatus = Lens.lens (\RestoreBackupResponse' {httpStatus} -> httpStatus) (\s@RestoreBackupResponse' {} a -> s {httpStatus = a} :: RestoreBackupResponse)++instance Prelude.NFData RestoreBackupResponse where+  rnf RestoreBackupResponse' {..} =+    Prelude.rnf backup+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,172 @@+{-# 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.CloudHSMV2.TagResource+-- 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 or overwrites one or more tags for the specified AWS CloudHSM+-- cluster.+module Amazonka.CloudHSMV2.TagResource+  ( -- * Creating a Request+    TagResource (..),+    newTagResource,++    -- * Request Lenses+    tagResource_resourceId,+    tagResource_tagList,++    -- * Destructuring the Response+    TagResourceResponse (..),+    newTagResourceResponse,++    -- * Response Lenses+    tagResourceResponse_httpStatus,+  )+where++import Amazonka.CloudHSMV2.Types+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++-- | /See:/ 'newTagResource' smart constructor.+data TagResource = TagResource'+  { -- | The cluster identifier (ID) for the cluster that you are tagging. To+    -- find the cluster ID, use DescribeClusters.+    resourceId :: Prelude.Text,+    -- | A list of one or more tags.+    tagList :: [Tag]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TagResource' 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:+--+-- 'resourceId', 'tagResource_resourceId' - The cluster identifier (ID) for the cluster that you are tagging. To+-- find the cluster ID, use DescribeClusters.+--+-- 'tagList', 'tagResource_tagList' - A list of one or more tags.+newTagResource ::+  -- | 'resourceId'+  Prelude.Text ->+  TagResource+newTagResource pResourceId_ =+  TagResource'+    { resourceId = pResourceId_,+      tagList = Prelude.mempty+    }++-- | The cluster identifier (ID) for the cluster that you are tagging. To+-- find the cluster ID, use DescribeClusters.+tagResource_resourceId :: Lens.Lens' TagResource Prelude.Text+tagResource_resourceId = Lens.lens (\TagResource' {resourceId} -> resourceId) (\s@TagResource' {} a -> s {resourceId = a} :: TagResource)++-- | A list of one or more tags.+tagResource_tagList :: Lens.Lens' TagResource [Tag]+tagResource_tagList = Lens.lens (\TagResource' {tagList} -> tagList) (\s@TagResource' {} a -> s {tagList = a} :: TagResource) Prelude.. Lens.coerced++instance Core.AWSRequest TagResource where+  type AWSResponse TagResource = TagResourceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          TagResourceResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable TagResource where+  hashWithSalt _salt TagResource' {..} =+    _salt+      `Prelude.hashWithSalt` resourceId+      `Prelude.hashWithSalt` tagList++instance Prelude.NFData TagResource where+  rnf TagResource' {..} =+    Prelude.rnf resourceId+      `Prelude.seq` Prelude.rnf tagList++instance Data.ToHeaders TagResource where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "BaldrApiService.TagResource" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON TagResource where+  toJSON TagResource' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("ResourceId" Data..= resourceId),+            Prelude.Just ("TagList" Data..= tagList)+          ]+      )++instance Data.ToPath TagResource where+  toPath = Prelude.const "/"++instance Data.ToQuery TagResource where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newTagResourceResponse' smart constructor.+data TagResourceResponse = TagResourceResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TagResourceResponse' 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', 'tagResourceResponse_httpStatus' - The response's http status code.+newTagResourceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  TagResourceResponse+newTagResourceResponse pHttpStatus_ =+  TagResourceResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+tagResourceResponse_httpStatus :: Lens.Lens' TagResourceResponse Prelude.Int+tagResourceResponse_httpStatus = Lens.lens (\TagResourceResponse' {httpStatus} -> httpStatus) (\s@TagResourceResponse' {} a -> s {httpStatus = a} :: TagResourceResponse)++instance Prelude.NFData TagResourceResponse where+  rnf TagResourceResponse' {..} = Prelude.rnf httpStatus

@@ -0,0 +1,251 @@+{-# 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.CloudHSMV2.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.CloudHSMV2.Types+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    _CloudHsmAccessDeniedException,+    _CloudHsmInternalFailureException,+    _CloudHsmInvalidRequestException,+    _CloudHsmResourceNotFoundException,+    _CloudHsmServiceException,+    _CloudHsmTagException,++    -- * BackupPolicy+    BackupPolicy (..),++    -- * BackupRetentionType+    BackupRetentionType (..),++    -- * BackupState+    BackupState (..),++    -- * ClusterState+    ClusterState (..),++    -- * HsmState+    HsmState (..),++    -- * Backup+    Backup (..),+    newBackup,+    backup_backupState,+    backup_clusterId,+    backup_copyTimestamp,+    backup_createTimestamp,+    backup_deleteTimestamp,+    backup_neverExpires,+    backup_sourceBackup,+    backup_sourceCluster,+    backup_sourceRegion,+    backup_tagList,+    backup_backupId,++    -- * BackupRetentionPolicy+    BackupRetentionPolicy (..),+    newBackupRetentionPolicy,+    backupRetentionPolicy_type,+    backupRetentionPolicy_value,++    -- * Certificates+    Certificates (..),+    newCertificates,+    certificates_awsHardwareCertificate,+    certificates_clusterCertificate,+    certificates_clusterCsr,+    certificates_hsmCertificate,+    certificates_manufacturerHardwareCertificate,++    -- * Cluster+    Cluster (..),+    newCluster,+    cluster_backupPolicy,+    cluster_backupRetentionPolicy,+    cluster_certificates,+    cluster_clusterId,+    cluster_createTimestamp,+    cluster_hsmType,+    cluster_hsms,+    cluster_preCoPassword,+    cluster_securityGroup,+    cluster_sourceBackupId,+    cluster_state,+    cluster_stateMessage,+    cluster_subnetMapping,+    cluster_tagList,+    cluster_vpcId,++    -- * DestinationBackup+    DestinationBackup (..),+    newDestinationBackup,+    destinationBackup_createTimestamp,+    destinationBackup_sourceBackup,+    destinationBackup_sourceCluster,+    destinationBackup_sourceRegion,++    -- * Hsm+    Hsm (..),+    newHsm,+    hsm_availabilityZone,+    hsm_clusterId,+    hsm_eniId,+    hsm_eniIp,+    hsm_state,+    hsm_stateMessage,+    hsm_subnetId,+    hsm_hsmId,++    -- * Tag+    Tag (..),+    newTag,+    tag_key,+    tag_value,+  )+where++import Amazonka.CloudHSMV2.Types.Backup+import Amazonka.CloudHSMV2.Types.BackupPolicy+import Amazonka.CloudHSMV2.Types.BackupRetentionPolicy+import Amazonka.CloudHSMV2.Types.BackupRetentionType+import Amazonka.CloudHSMV2.Types.BackupState+import Amazonka.CloudHSMV2.Types.Certificates+import Amazonka.CloudHSMV2.Types.Cluster+import Amazonka.CloudHSMV2.Types.ClusterState+import Amazonka.CloudHSMV2.Types.DestinationBackup+import Amazonka.CloudHSMV2.Types.Hsm+import Amazonka.CloudHSMV2.Types.HsmState+import Amazonka.CloudHSMV2.Types.Tag+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++-- | API version @2017-04-28@ of the Amazon CloudHSM V2 SDK configuration.+defaultService :: Core.Service+defaultService =+  Core.Service+    { Core.abbrev = "CloudHSMV2",+      Core.signer = Sign.v4,+      Core.endpointPrefix = "cloudhsmv2",+      Core.signingName = "cloudhsm",+      Core.version = "2017-04-28",+      Core.s3AddressingStyle = Core.S3AddressingStyleAuto,+      Core.endpoint = Core.defaultEndpoint defaultService,+      Core.timeout = Prelude.Just 70,+      Core.check = Core.statusSuccess,+      Core.error = Core.parseJSONError "CloudHSMV2",+      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++-- | The request was rejected because the requester does not have permission+-- to perform the requested operation.+_CloudHsmAccessDeniedException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_CloudHsmAccessDeniedException =+  Core._MatchServiceError+    defaultService+    "CloudHsmAccessDeniedException"++-- | The request was rejected because of an AWS CloudHSM internal failure.+-- The request can be retried.+_CloudHsmInternalFailureException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_CloudHsmInternalFailureException =+  Core._MatchServiceError+    defaultService+    "CloudHsmInternalFailureException"++-- | The request was rejected because it is not a valid request.+_CloudHsmInvalidRequestException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_CloudHsmInvalidRequestException =+  Core._MatchServiceError+    defaultService+    "CloudHsmInvalidRequestException"++-- | The request was rejected because it refers to a resource that cannot be+-- found.+_CloudHsmResourceNotFoundException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_CloudHsmResourceNotFoundException =+  Core._MatchServiceError+    defaultService+    "CloudHsmResourceNotFoundException"++-- | The request was rejected because an error occurred.+_CloudHsmServiceException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_CloudHsmServiceException =+  Core._MatchServiceError+    defaultService+    "CloudHsmServiceException"++-- | The request was rejected because of a tagging failure. Verify the tag+-- conditions in all applicable policies, and then retry the request.+_CloudHsmTagException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_CloudHsmTagException =+  Core._MatchServiceError+    defaultService+    "CloudHsmTagException"

@@ -0,0 +1,219 @@+{-# 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.CloudHSMV2.Types.Backup+-- 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.CloudHSMV2.Types.Backup where++import Amazonka.CloudHSMV2.Types.BackupState+import Amazonka.CloudHSMV2.Types.Tag+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++-- | Contains information about a backup of an AWS CloudHSM cluster. All+-- backup objects contain the @BackupId@, @BackupState@, @ClusterId@, and+-- @CreateTimestamp@ parameters. Backups that were copied into a+-- destination region additionally contain the @CopyTimestamp@,+-- @SourceBackup@, @SourceCluster@, and @SourceRegion@ parameters. A backup+-- that is pending deletion will include the @DeleteTimestamp@ parameter.+--+-- /See:/ 'newBackup' smart constructor.+data Backup = Backup'+  { -- | The state of the backup.+    backupState :: Prelude.Maybe BackupState,+    -- | The identifier (ID) of the cluster that was backed up.+    clusterId :: Prelude.Maybe Prelude.Text,+    -- | The date and time when the backup was copied from a source backup.+    copyTimestamp :: Prelude.Maybe Data.POSIX,+    -- | The date and time when the backup was created.+    createTimestamp :: Prelude.Maybe Data.POSIX,+    -- | The date and time when the backup will be permanently deleted.+    deleteTimestamp :: Prelude.Maybe Data.POSIX,+    -- | Specifies whether the service should exempt a backup from the retention+    -- policy for the cluster. @True@ exempts a backup from the retention+    -- policy. @False@ means the service applies the backup retention policy+    -- defined at the cluster.+    neverExpires :: Prelude.Maybe Prelude.Bool,+    -- | The identifier (ID) of the source backup from which the new backup was+    -- copied.+    sourceBackup :: Prelude.Maybe Prelude.Text,+    -- | The identifier (ID) of the cluster containing the source backup from+    -- which the new backup was copied.+    sourceCluster :: Prelude.Maybe Prelude.Text,+    -- | The AWS Region that contains the source backup from which the new backup+    -- was copied.+    sourceRegion :: Prelude.Maybe Prelude.Text,+    -- | The list of tags for the backup.+    tagList :: Prelude.Maybe [Tag],+    -- | The identifier (ID) of the backup.+    backupId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Backup' 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:+--+-- 'backupState', 'backup_backupState' - The state of the backup.+--+-- 'clusterId', 'backup_clusterId' - The identifier (ID) of the cluster that was backed up.+--+-- 'copyTimestamp', 'backup_copyTimestamp' - The date and time when the backup was copied from a source backup.+--+-- 'createTimestamp', 'backup_createTimestamp' - The date and time when the backup was created.+--+-- 'deleteTimestamp', 'backup_deleteTimestamp' - The date and time when the backup will be permanently deleted.+--+-- 'neverExpires', 'backup_neverExpires' - Specifies whether the service should exempt a backup from the retention+-- policy for the cluster. @True@ exempts a backup from the retention+-- policy. @False@ means the service applies the backup retention policy+-- defined at the cluster.+--+-- 'sourceBackup', 'backup_sourceBackup' - The identifier (ID) of the source backup from which the new backup was+-- copied.+--+-- 'sourceCluster', 'backup_sourceCluster' - The identifier (ID) of the cluster containing the source backup from+-- which the new backup was copied.+--+-- 'sourceRegion', 'backup_sourceRegion' - The AWS Region that contains the source backup from which the new backup+-- was copied.+--+-- 'tagList', 'backup_tagList' - The list of tags for the backup.+--+-- 'backupId', 'backup_backupId' - The identifier (ID) of the backup.+newBackup ::+  -- | 'backupId'+  Prelude.Text ->+  Backup+newBackup pBackupId_ =+  Backup'+    { backupState = Prelude.Nothing,+      clusterId = Prelude.Nothing,+      copyTimestamp = Prelude.Nothing,+      createTimestamp = Prelude.Nothing,+      deleteTimestamp = Prelude.Nothing,+      neverExpires = Prelude.Nothing,+      sourceBackup = Prelude.Nothing,+      sourceCluster = Prelude.Nothing,+      sourceRegion = Prelude.Nothing,+      tagList = Prelude.Nothing,+      backupId = pBackupId_+    }++-- | The state of the backup.+backup_backupState :: Lens.Lens' Backup (Prelude.Maybe BackupState)+backup_backupState = Lens.lens (\Backup' {backupState} -> backupState) (\s@Backup' {} a -> s {backupState = a} :: Backup)++-- | The identifier (ID) of the cluster that was backed up.+backup_clusterId :: Lens.Lens' Backup (Prelude.Maybe Prelude.Text)+backup_clusterId = Lens.lens (\Backup' {clusterId} -> clusterId) (\s@Backup' {} a -> s {clusterId = a} :: Backup)++-- | The date and time when the backup was copied from a source backup.+backup_copyTimestamp :: Lens.Lens' Backup (Prelude.Maybe Prelude.UTCTime)+backup_copyTimestamp = Lens.lens (\Backup' {copyTimestamp} -> copyTimestamp) (\s@Backup' {} a -> s {copyTimestamp = a} :: Backup) Prelude.. Lens.mapping Data._Time++-- | The date and time when the backup was created.+backup_createTimestamp :: Lens.Lens' Backup (Prelude.Maybe Prelude.UTCTime)+backup_createTimestamp = Lens.lens (\Backup' {createTimestamp} -> createTimestamp) (\s@Backup' {} a -> s {createTimestamp = a} :: Backup) Prelude.. Lens.mapping Data._Time++-- | The date and time when the backup will be permanently deleted.+backup_deleteTimestamp :: Lens.Lens' Backup (Prelude.Maybe Prelude.UTCTime)+backup_deleteTimestamp = Lens.lens (\Backup' {deleteTimestamp} -> deleteTimestamp) (\s@Backup' {} a -> s {deleteTimestamp = a} :: Backup) Prelude.. Lens.mapping Data._Time++-- | Specifies whether the service should exempt a backup from the retention+-- policy for the cluster. @True@ exempts a backup from the retention+-- policy. @False@ means the service applies the backup retention policy+-- defined at the cluster.+backup_neverExpires :: Lens.Lens' Backup (Prelude.Maybe Prelude.Bool)+backup_neverExpires = Lens.lens (\Backup' {neverExpires} -> neverExpires) (\s@Backup' {} a -> s {neverExpires = a} :: Backup)++-- | The identifier (ID) of the source backup from which the new backup was+-- copied.+backup_sourceBackup :: Lens.Lens' Backup (Prelude.Maybe Prelude.Text)+backup_sourceBackup = Lens.lens (\Backup' {sourceBackup} -> sourceBackup) (\s@Backup' {} a -> s {sourceBackup = a} :: Backup)++-- | The identifier (ID) of the cluster containing the source backup from+-- which the new backup was copied.+backup_sourceCluster :: Lens.Lens' Backup (Prelude.Maybe Prelude.Text)+backup_sourceCluster = Lens.lens (\Backup' {sourceCluster} -> sourceCluster) (\s@Backup' {} a -> s {sourceCluster = a} :: Backup)++-- | The AWS Region that contains the source backup from which the new backup+-- was copied.+backup_sourceRegion :: Lens.Lens' Backup (Prelude.Maybe Prelude.Text)+backup_sourceRegion = Lens.lens (\Backup' {sourceRegion} -> sourceRegion) (\s@Backup' {} a -> s {sourceRegion = a} :: Backup)++-- | The list of tags for the backup.+backup_tagList :: Lens.Lens' Backup (Prelude.Maybe [Tag])+backup_tagList = Lens.lens (\Backup' {tagList} -> tagList) (\s@Backup' {} a -> s {tagList = a} :: Backup) Prelude.. Lens.mapping Lens.coerced++-- | The identifier (ID) of the backup.+backup_backupId :: Lens.Lens' Backup Prelude.Text+backup_backupId = Lens.lens (\Backup' {backupId} -> backupId) (\s@Backup' {} a -> s {backupId = a} :: Backup)++instance Data.FromJSON Backup where+  parseJSON =+    Data.withObject+      "Backup"+      ( \x ->+          Backup'+            Prelude.<$> (x Data..:? "BackupState")+            Prelude.<*> (x Data..:? "ClusterId")+            Prelude.<*> (x Data..:? "CopyTimestamp")+            Prelude.<*> (x Data..:? "CreateTimestamp")+            Prelude.<*> (x Data..:? "DeleteTimestamp")+            Prelude.<*> (x Data..:? "NeverExpires")+            Prelude.<*> (x Data..:? "SourceBackup")+            Prelude.<*> (x Data..:? "SourceCluster")+            Prelude.<*> (x Data..:? "SourceRegion")+            Prelude.<*> (x Data..:? "TagList" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..: "BackupId")+      )++instance Prelude.Hashable Backup where+  hashWithSalt _salt Backup' {..} =+    _salt+      `Prelude.hashWithSalt` backupState+      `Prelude.hashWithSalt` clusterId+      `Prelude.hashWithSalt` copyTimestamp+      `Prelude.hashWithSalt` createTimestamp+      `Prelude.hashWithSalt` deleteTimestamp+      `Prelude.hashWithSalt` neverExpires+      `Prelude.hashWithSalt` sourceBackup+      `Prelude.hashWithSalt` sourceCluster+      `Prelude.hashWithSalt` sourceRegion+      `Prelude.hashWithSalt` tagList+      `Prelude.hashWithSalt` backupId++instance Prelude.NFData Backup where+  rnf Backup' {..} =+    Prelude.rnf backupState+      `Prelude.seq` Prelude.rnf clusterId+      `Prelude.seq` Prelude.rnf copyTimestamp+      `Prelude.seq` Prelude.rnf createTimestamp+      `Prelude.seq` Prelude.rnf deleteTimestamp+      `Prelude.seq` Prelude.rnf neverExpires+      `Prelude.seq` Prelude.rnf sourceBackup+      `Prelude.seq` Prelude.rnf sourceCluster+      `Prelude.seq` Prelude.rnf sourceRegion+      `Prelude.seq` Prelude.rnf tagList+      `Prelude.seq` Prelude.rnf backupId

@@ -0,0 +1,66 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.CloudHSMV2.Types.BackupPolicy+-- 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.CloudHSMV2.Types.BackupPolicy+  ( BackupPolicy+      ( ..,+        BackupPolicy_DEFAULT+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype BackupPolicy = BackupPolicy'+  { fromBackupPolicy ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern BackupPolicy_DEFAULT :: BackupPolicy+pattern BackupPolicy_DEFAULT = BackupPolicy' "DEFAULT"++{-# COMPLETE+  BackupPolicy_DEFAULT,+  BackupPolicy'+  #-}

@@ -0,0 +1,96 @@+{-# 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.CloudHSMV2.Types.BackupRetentionPolicy+-- 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.CloudHSMV2.Types.BackupRetentionPolicy where++import Amazonka.CloudHSMV2.Types.BackupRetentionType+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 policy that defines the number of days to retain backups.+--+-- /See:/ 'newBackupRetentionPolicy' smart constructor.+data BackupRetentionPolicy = BackupRetentionPolicy'+  { -- | The type of backup retention policy. For the @DAYS@ type, the value is+    -- the number of days to retain backups.+    type' :: Prelude.Maybe BackupRetentionType,+    -- | Use a value between 7 - 379.+    value :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'BackupRetentionPolicy' 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:+--+-- 'type'', 'backupRetentionPolicy_type' - The type of backup retention policy. For the @DAYS@ type, the value is+-- the number of days to retain backups.+--+-- 'value', 'backupRetentionPolicy_value' - Use a value between 7 - 379.+newBackupRetentionPolicy ::+  BackupRetentionPolicy+newBackupRetentionPolicy =+  BackupRetentionPolicy'+    { type' = Prelude.Nothing,+      value = Prelude.Nothing+    }++-- | The type of backup retention policy. For the @DAYS@ type, the value is+-- the number of days to retain backups.+backupRetentionPolicy_type :: Lens.Lens' BackupRetentionPolicy (Prelude.Maybe BackupRetentionType)+backupRetentionPolicy_type = Lens.lens (\BackupRetentionPolicy' {type'} -> type') (\s@BackupRetentionPolicy' {} a -> s {type' = a} :: BackupRetentionPolicy)++-- | Use a value between 7 - 379.+backupRetentionPolicy_value :: Lens.Lens' BackupRetentionPolicy (Prelude.Maybe Prelude.Text)+backupRetentionPolicy_value = Lens.lens (\BackupRetentionPolicy' {value} -> value) (\s@BackupRetentionPolicy' {} a -> s {value = a} :: BackupRetentionPolicy)++instance Data.FromJSON BackupRetentionPolicy where+  parseJSON =+    Data.withObject+      "BackupRetentionPolicy"+      ( \x ->+          BackupRetentionPolicy'+            Prelude.<$> (x Data..:? "Type")+            Prelude.<*> (x Data..:? "Value")+      )++instance Prelude.Hashable BackupRetentionPolicy where+  hashWithSalt _salt BackupRetentionPolicy' {..} =+    _salt+      `Prelude.hashWithSalt` type'+      `Prelude.hashWithSalt` value++instance Prelude.NFData BackupRetentionPolicy where+  rnf BackupRetentionPolicy' {..} =+    Prelude.rnf type' `Prelude.seq` Prelude.rnf value++instance Data.ToJSON BackupRetentionPolicy where+  toJSON BackupRetentionPolicy' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Type" Data..=) Prelude.<$> type',+            ("Value" Data..=) Prelude.<$> value+          ]+      )

@@ -0,0 +1,66 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.CloudHSMV2.Types.BackupRetentionType+-- 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.CloudHSMV2.Types.BackupRetentionType+  ( BackupRetentionType+      ( ..,+        BackupRetentionType_DAYS+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype BackupRetentionType = BackupRetentionType'+  { fromBackupRetentionType ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern BackupRetentionType_DAYS :: BackupRetentionType+pattern BackupRetentionType_DAYS = BackupRetentionType' "DAYS"++{-# COMPLETE+  BackupRetentionType_DAYS,+  BackupRetentionType'+  #-}

@@ -0,0 +1,81 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.CloudHSMV2.Types.BackupState+-- 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.CloudHSMV2.Types.BackupState+  ( BackupState+      ( ..,+        BackupState_CREATE_IN_PROGRESS,+        BackupState_DELETED,+        BackupState_PENDING_DELETION,+        BackupState_READY+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype BackupState = BackupState'+  { fromBackupState ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern BackupState_CREATE_IN_PROGRESS :: BackupState+pattern BackupState_CREATE_IN_PROGRESS = BackupState' "CREATE_IN_PROGRESS"++pattern BackupState_DELETED :: BackupState+pattern BackupState_DELETED = BackupState' "DELETED"++pattern BackupState_PENDING_DELETION :: BackupState+pattern BackupState_PENDING_DELETION = BackupState' "PENDING_DELETION"++pattern BackupState_READY :: BackupState+pattern BackupState_READY = BackupState' "READY"++{-# COMPLETE+  BackupState_CREATE_IN_PROGRESS,+  BackupState_DELETED,+  BackupState_PENDING_DELETION,+  BackupState_READY,+  BackupState'+  #-}

@@ -0,0 +1,131 @@+{-# 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.CloudHSMV2.Types.Certificates+-- 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.CloudHSMV2.Types.Certificates 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++-- | Contains one or more certificates or a certificate signing request+-- (CSR).+--+-- /See:/ 'newCertificates' smart constructor.+data Certificates = Certificates'+  { -- | The HSM hardware certificate issued (signed) by AWS CloudHSM.+    awsHardwareCertificate :: Prelude.Maybe Prelude.Text,+    -- | The cluster certificate issued (signed) by the issuing certificate+    -- authority (CA) of the cluster\'s owner.+    clusterCertificate :: Prelude.Maybe Prelude.Text,+    -- | The cluster\'s certificate signing request (CSR). The CSR exists only+    -- when the cluster\'s state is @UNINITIALIZED@.+    clusterCsr :: Prelude.Maybe Prelude.Text,+    -- | The HSM certificate issued (signed) by the HSM hardware.+    hsmCertificate :: Prelude.Maybe Prelude.Text,+    -- | The HSM hardware certificate issued (signed) by the hardware+    -- manufacturer.+    manufacturerHardwareCertificate :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Certificates' 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:+--+-- 'awsHardwareCertificate', 'certificates_awsHardwareCertificate' - The HSM hardware certificate issued (signed) by AWS CloudHSM.+--+-- 'clusterCertificate', 'certificates_clusterCertificate' - The cluster certificate issued (signed) by the issuing certificate+-- authority (CA) of the cluster\'s owner.+--+-- 'clusterCsr', 'certificates_clusterCsr' - The cluster\'s certificate signing request (CSR). The CSR exists only+-- when the cluster\'s state is @UNINITIALIZED@.+--+-- 'hsmCertificate', 'certificates_hsmCertificate' - The HSM certificate issued (signed) by the HSM hardware.+--+-- 'manufacturerHardwareCertificate', 'certificates_manufacturerHardwareCertificate' - The HSM hardware certificate issued (signed) by the hardware+-- manufacturer.+newCertificates ::+  Certificates+newCertificates =+  Certificates'+    { awsHardwareCertificate =+        Prelude.Nothing,+      clusterCertificate = Prelude.Nothing,+      clusterCsr = Prelude.Nothing,+      hsmCertificate = Prelude.Nothing,+      manufacturerHardwareCertificate = Prelude.Nothing+    }++-- | The HSM hardware certificate issued (signed) by AWS CloudHSM.+certificates_awsHardwareCertificate :: Lens.Lens' Certificates (Prelude.Maybe Prelude.Text)+certificates_awsHardwareCertificate = Lens.lens (\Certificates' {awsHardwareCertificate} -> awsHardwareCertificate) (\s@Certificates' {} a -> s {awsHardwareCertificate = a} :: Certificates)++-- | The cluster certificate issued (signed) by the issuing certificate+-- authority (CA) of the cluster\'s owner.+certificates_clusterCertificate :: Lens.Lens' Certificates (Prelude.Maybe Prelude.Text)+certificates_clusterCertificate = Lens.lens (\Certificates' {clusterCertificate} -> clusterCertificate) (\s@Certificates' {} a -> s {clusterCertificate = a} :: Certificates)++-- | The cluster\'s certificate signing request (CSR). The CSR exists only+-- when the cluster\'s state is @UNINITIALIZED@.+certificates_clusterCsr :: Lens.Lens' Certificates (Prelude.Maybe Prelude.Text)+certificates_clusterCsr = Lens.lens (\Certificates' {clusterCsr} -> clusterCsr) (\s@Certificates' {} a -> s {clusterCsr = a} :: Certificates)++-- | The HSM certificate issued (signed) by the HSM hardware.+certificates_hsmCertificate :: Lens.Lens' Certificates (Prelude.Maybe Prelude.Text)+certificates_hsmCertificate = Lens.lens (\Certificates' {hsmCertificate} -> hsmCertificate) (\s@Certificates' {} a -> s {hsmCertificate = a} :: Certificates)++-- | The HSM hardware certificate issued (signed) by the hardware+-- manufacturer.+certificates_manufacturerHardwareCertificate :: Lens.Lens' Certificates (Prelude.Maybe Prelude.Text)+certificates_manufacturerHardwareCertificate = Lens.lens (\Certificates' {manufacturerHardwareCertificate} -> manufacturerHardwareCertificate) (\s@Certificates' {} a -> s {manufacturerHardwareCertificate = a} :: Certificates)++instance Data.FromJSON Certificates where+  parseJSON =+    Data.withObject+      "Certificates"+      ( \x ->+          Certificates'+            Prelude.<$> (x Data..:? "AwsHardwareCertificate")+            Prelude.<*> (x Data..:? "ClusterCertificate")+            Prelude.<*> (x Data..:? "ClusterCsr")+            Prelude.<*> (x Data..:? "HsmCertificate")+            Prelude.<*> (x Data..:? "ManufacturerHardwareCertificate")+      )++instance Prelude.Hashable Certificates where+  hashWithSalt _salt Certificates' {..} =+    _salt+      `Prelude.hashWithSalt` awsHardwareCertificate+      `Prelude.hashWithSalt` clusterCertificate+      `Prelude.hashWithSalt` clusterCsr+      `Prelude.hashWithSalt` hsmCertificate+      `Prelude.hashWithSalt` manufacturerHardwareCertificate++instance Prelude.NFData Certificates where+  rnf Certificates' {..} =+    Prelude.rnf awsHardwareCertificate+      `Prelude.seq` Prelude.rnf clusterCertificate+      `Prelude.seq` Prelude.rnf clusterCsr+      `Prelude.seq` Prelude.rnf hsmCertificate+      `Prelude.seq` Prelude.rnf manufacturerHardwareCertificate

@@ -0,0 +1,258 @@+{-# 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.CloudHSMV2.Types.Cluster+-- 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.CloudHSMV2.Types.Cluster where++import Amazonka.CloudHSMV2.Types.BackupPolicy+import Amazonka.CloudHSMV2.Types.BackupRetentionPolicy+import Amazonka.CloudHSMV2.Types.Certificates+import Amazonka.CloudHSMV2.Types.ClusterState+import Amazonka.CloudHSMV2.Types.Hsm+import Amazonka.CloudHSMV2.Types.Tag+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++-- | Contains information about an AWS CloudHSM cluster.+--+-- /See:/ 'newCluster' smart constructor.+data Cluster = Cluster'+  { -- | The cluster\'s backup policy.+    backupPolicy :: Prelude.Maybe BackupPolicy,+    -- | A policy that defines how the service retains backups.+    backupRetentionPolicy :: Prelude.Maybe BackupRetentionPolicy,+    -- | Contains one or more certificates or a certificate signing request+    -- (CSR).+    certificates :: Prelude.Maybe Certificates,+    -- | The cluster\'s identifier (ID).+    clusterId :: Prelude.Maybe Prelude.Text,+    -- | The date and time when the cluster was created.+    createTimestamp :: Prelude.Maybe Data.POSIX,+    -- | The type of HSM that the cluster contains.+    hsmType :: Prelude.Maybe Prelude.Text,+    -- | Contains information about the HSMs in the cluster.+    hsms :: Prelude.Maybe [Hsm],+    -- | The default password for the cluster\'s Pre-Crypto Officer (PRECO) user.+    preCoPassword :: Prelude.Maybe Prelude.Text,+    -- | The identifier (ID) of the cluster\'s security group.+    securityGroup :: Prelude.Maybe Prelude.Text,+    -- | The identifier (ID) of the backup used to create the cluster. This value+    -- exists only when the cluster was created from a backup.+    sourceBackupId :: Prelude.Maybe Prelude.Text,+    -- | The cluster\'s state.+    state :: Prelude.Maybe ClusterState,+    -- | A description of the cluster\'s state.+    stateMessage :: Prelude.Maybe Prelude.Text,+    -- | A map from availability zone to the cluster’s subnet in that+    -- availability zone.+    subnetMapping :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | The list of tags for the cluster.+    tagList :: Prelude.Maybe [Tag],+    -- | The identifier (ID) of the virtual private cloud (VPC) that contains the+    -- cluster.+    vpcId :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Cluster' 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:+--+-- 'backupPolicy', 'cluster_backupPolicy' - The cluster\'s backup policy.+--+-- 'backupRetentionPolicy', 'cluster_backupRetentionPolicy' - A policy that defines how the service retains backups.+--+-- 'certificates', 'cluster_certificates' - Contains one or more certificates or a certificate signing request+-- (CSR).+--+-- 'clusterId', 'cluster_clusterId' - The cluster\'s identifier (ID).+--+-- 'createTimestamp', 'cluster_createTimestamp' - The date and time when the cluster was created.+--+-- 'hsmType', 'cluster_hsmType' - The type of HSM that the cluster contains.+--+-- 'hsms', 'cluster_hsms' - Contains information about the HSMs in the cluster.+--+-- 'preCoPassword', 'cluster_preCoPassword' - The default password for the cluster\'s Pre-Crypto Officer (PRECO) user.+--+-- 'securityGroup', 'cluster_securityGroup' - The identifier (ID) of the cluster\'s security group.+--+-- 'sourceBackupId', 'cluster_sourceBackupId' - The identifier (ID) of the backup used to create the cluster. This value+-- exists only when the cluster was created from a backup.+--+-- 'state', 'cluster_state' - The cluster\'s state.+--+-- 'stateMessage', 'cluster_stateMessage' - A description of the cluster\'s state.+--+-- 'subnetMapping', 'cluster_subnetMapping' - A map from availability zone to the cluster’s subnet in that+-- availability zone.+--+-- 'tagList', 'cluster_tagList' - The list of tags for the cluster.+--+-- 'vpcId', 'cluster_vpcId' - The identifier (ID) of the virtual private cloud (VPC) that contains the+-- cluster.+newCluster ::+  Cluster+newCluster =+  Cluster'+    { backupPolicy = Prelude.Nothing,+      backupRetentionPolicy = Prelude.Nothing,+      certificates = Prelude.Nothing,+      clusterId = Prelude.Nothing,+      createTimestamp = Prelude.Nothing,+      hsmType = Prelude.Nothing,+      hsms = Prelude.Nothing,+      preCoPassword = Prelude.Nothing,+      securityGroup = Prelude.Nothing,+      sourceBackupId = Prelude.Nothing,+      state = Prelude.Nothing,+      stateMessage = Prelude.Nothing,+      subnetMapping = Prelude.Nothing,+      tagList = Prelude.Nothing,+      vpcId = Prelude.Nothing+    }++-- | The cluster\'s backup policy.+cluster_backupPolicy :: Lens.Lens' Cluster (Prelude.Maybe BackupPolicy)+cluster_backupPolicy = Lens.lens (\Cluster' {backupPolicy} -> backupPolicy) (\s@Cluster' {} a -> s {backupPolicy = a} :: Cluster)++-- | A policy that defines how the service retains backups.+cluster_backupRetentionPolicy :: Lens.Lens' Cluster (Prelude.Maybe BackupRetentionPolicy)+cluster_backupRetentionPolicy = Lens.lens (\Cluster' {backupRetentionPolicy} -> backupRetentionPolicy) (\s@Cluster' {} a -> s {backupRetentionPolicy = a} :: Cluster)++-- | Contains one or more certificates or a certificate signing request+-- (CSR).+cluster_certificates :: Lens.Lens' Cluster (Prelude.Maybe Certificates)+cluster_certificates = Lens.lens (\Cluster' {certificates} -> certificates) (\s@Cluster' {} a -> s {certificates = a} :: Cluster)++-- | The cluster\'s identifier (ID).+cluster_clusterId :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Text)+cluster_clusterId = Lens.lens (\Cluster' {clusterId} -> clusterId) (\s@Cluster' {} a -> s {clusterId = a} :: Cluster)++-- | The date and time when the cluster was created.+cluster_createTimestamp :: Lens.Lens' Cluster (Prelude.Maybe Prelude.UTCTime)+cluster_createTimestamp = Lens.lens (\Cluster' {createTimestamp} -> createTimestamp) (\s@Cluster' {} a -> s {createTimestamp = a} :: Cluster) Prelude.. Lens.mapping Data._Time++-- | The type of HSM that the cluster contains.+cluster_hsmType :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Text)+cluster_hsmType = Lens.lens (\Cluster' {hsmType} -> hsmType) (\s@Cluster' {} a -> s {hsmType = a} :: Cluster)++-- | Contains information about the HSMs in the cluster.+cluster_hsms :: Lens.Lens' Cluster (Prelude.Maybe [Hsm])+cluster_hsms = Lens.lens (\Cluster' {hsms} -> hsms) (\s@Cluster' {} a -> s {hsms = a} :: Cluster) Prelude.. Lens.mapping Lens.coerced++-- | The default password for the cluster\'s Pre-Crypto Officer (PRECO) user.+cluster_preCoPassword :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Text)+cluster_preCoPassword = Lens.lens (\Cluster' {preCoPassword} -> preCoPassword) (\s@Cluster' {} a -> s {preCoPassword = a} :: Cluster)++-- | The identifier (ID) of the cluster\'s security group.+cluster_securityGroup :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Text)+cluster_securityGroup = Lens.lens (\Cluster' {securityGroup} -> securityGroup) (\s@Cluster' {} a -> s {securityGroup = a} :: Cluster)++-- | The identifier (ID) of the backup used to create the cluster. This value+-- exists only when the cluster was created from a backup.+cluster_sourceBackupId :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Text)+cluster_sourceBackupId = Lens.lens (\Cluster' {sourceBackupId} -> sourceBackupId) (\s@Cluster' {} a -> s {sourceBackupId = a} :: Cluster)++-- | The cluster\'s state.+cluster_state :: Lens.Lens' Cluster (Prelude.Maybe ClusterState)+cluster_state = Lens.lens (\Cluster' {state} -> state) (\s@Cluster' {} a -> s {state = a} :: Cluster)++-- | A description of the cluster\'s state.+cluster_stateMessage :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Text)+cluster_stateMessage = Lens.lens (\Cluster' {stateMessage} -> stateMessage) (\s@Cluster' {} a -> s {stateMessage = a} :: Cluster)++-- | A map from availability zone to the cluster’s subnet in that+-- availability zone.+cluster_subnetMapping :: Lens.Lens' Cluster (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+cluster_subnetMapping = Lens.lens (\Cluster' {subnetMapping} -> subnetMapping) (\s@Cluster' {} a -> s {subnetMapping = a} :: Cluster) Prelude.. Lens.mapping Lens.coerced++-- | The list of tags for the cluster.+cluster_tagList :: Lens.Lens' Cluster (Prelude.Maybe [Tag])+cluster_tagList = Lens.lens (\Cluster' {tagList} -> tagList) (\s@Cluster' {} a -> s {tagList = a} :: Cluster) Prelude.. Lens.mapping Lens.coerced++-- | The identifier (ID) of the virtual private cloud (VPC) that contains the+-- cluster.+cluster_vpcId :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Text)+cluster_vpcId = Lens.lens (\Cluster' {vpcId} -> vpcId) (\s@Cluster' {} a -> s {vpcId = a} :: Cluster)++instance Data.FromJSON Cluster where+  parseJSON =+    Data.withObject+      "Cluster"+      ( \x ->+          Cluster'+            Prelude.<$> (x Data..:? "BackupPolicy")+            Prelude.<*> (x Data..:? "BackupRetentionPolicy")+            Prelude.<*> (x Data..:? "Certificates")+            Prelude.<*> (x Data..:? "ClusterId")+            Prelude.<*> (x Data..:? "CreateTimestamp")+            Prelude.<*> (x Data..:? "HsmType")+            Prelude.<*> (x Data..:? "Hsms" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..:? "PreCoPassword")+            Prelude.<*> (x Data..:? "SecurityGroup")+            Prelude.<*> (x Data..:? "SourceBackupId")+            Prelude.<*> (x Data..:? "State")+            Prelude.<*> (x Data..:? "StateMessage")+            Prelude.<*> (x Data..:? "SubnetMapping" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..:? "TagList" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..:? "VpcId")+      )++instance Prelude.Hashable Cluster where+  hashWithSalt _salt Cluster' {..} =+    _salt+      `Prelude.hashWithSalt` backupPolicy+      `Prelude.hashWithSalt` backupRetentionPolicy+      `Prelude.hashWithSalt` certificates+      `Prelude.hashWithSalt` clusterId+      `Prelude.hashWithSalt` createTimestamp+      `Prelude.hashWithSalt` hsmType+      `Prelude.hashWithSalt` hsms+      `Prelude.hashWithSalt` preCoPassword+      `Prelude.hashWithSalt` securityGroup+      `Prelude.hashWithSalt` sourceBackupId+      `Prelude.hashWithSalt` state+      `Prelude.hashWithSalt` stateMessage+      `Prelude.hashWithSalt` subnetMapping+      `Prelude.hashWithSalt` tagList+      `Prelude.hashWithSalt` vpcId++instance Prelude.NFData Cluster where+  rnf Cluster' {..} =+    Prelude.rnf backupPolicy+      `Prelude.seq` Prelude.rnf backupRetentionPolicy+      `Prelude.seq` Prelude.rnf certificates+      `Prelude.seq` Prelude.rnf clusterId+      `Prelude.seq` Prelude.rnf createTimestamp+      `Prelude.seq` Prelude.rnf hsmType+      `Prelude.seq` Prelude.rnf hsms+      `Prelude.seq` Prelude.rnf preCoPassword+      `Prelude.seq` Prelude.rnf securityGroup+      `Prelude.seq` Prelude.rnf sourceBackupId+      `Prelude.seq` Prelude.rnf state+      `Prelude.seq` Prelude.rnf stateMessage+      `Prelude.seq` Prelude.rnf subnetMapping+      `Prelude.seq` Prelude.rnf tagList+      `Prelude.seq` Prelude.rnf vpcId

@@ -0,0 +1,106 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.CloudHSMV2.Types.ClusterState+-- 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.CloudHSMV2.Types.ClusterState+  ( ClusterState+      ( ..,+        ClusterState_ACTIVE,+        ClusterState_CREATE_IN_PROGRESS,+        ClusterState_DEGRADED,+        ClusterState_DELETED,+        ClusterState_DELETE_IN_PROGRESS,+        ClusterState_INITIALIZED,+        ClusterState_INITIALIZE_IN_PROGRESS,+        ClusterState_UNINITIALIZED,+        ClusterState_UPDATE_IN_PROGRESS+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ClusterState = ClusterState'+  { fromClusterState ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern ClusterState_ACTIVE :: ClusterState+pattern ClusterState_ACTIVE = ClusterState' "ACTIVE"++pattern ClusterState_CREATE_IN_PROGRESS :: ClusterState+pattern ClusterState_CREATE_IN_PROGRESS = ClusterState' "CREATE_IN_PROGRESS"++pattern ClusterState_DEGRADED :: ClusterState+pattern ClusterState_DEGRADED = ClusterState' "DEGRADED"++pattern ClusterState_DELETED :: ClusterState+pattern ClusterState_DELETED = ClusterState' "DELETED"++pattern ClusterState_DELETE_IN_PROGRESS :: ClusterState+pattern ClusterState_DELETE_IN_PROGRESS = ClusterState' "DELETE_IN_PROGRESS"++pattern ClusterState_INITIALIZED :: ClusterState+pattern ClusterState_INITIALIZED = ClusterState' "INITIALIZED"++pattern ClusterState_INITIALIZE_IN_PROGRESS :: ClusterState+pattern ClusterState_INITIALIZE_IN_PROGRESS = ClusterState' "INITIALIZE_IN_PROGRESS"++pattern ClusterState_UNINITIALIZED :: ClusterState+pattern ClusterState_UNINITIALIZED = ClusterState' "UNINITIALIZED"++pattern ClusterState_UPDATE_IN_PROGRESS :: ClusterState+pattern ClusterState_UPDATE_IN_PROGRESS = ClusterState' "UPDATE_IN_PROGRESS"++{-# COMPLETE+  ClusterState_ACTIVE,+  ClusterState_CREATE_IN_PROGRESS,+  ClusterState_DEGRADED,+  ClusterState_DELETED,+  ClusterState_DELETE_IN_PROGRESS,+  ClusterState_INITIALIZED,+  ClusterState_INITIALIZE_IN_PROGRESS,+  ClusterState_UNINITIALIZED,+  ClusterState_UPDATE_IN_PROGRESS,+  ClusterState'+  #-}

@@ -0,0 +1,119 @@+{-# 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.CloudHSMV2.Types.DestinationBackup+-- 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.CloudHSMV2.Types.DestinationBackup 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++-- | Contains information about the backup that will be copied and created by+-- the CopyBackupToRegion operation.+--+-- /See:/ 'newDestinationBackup' smart constructor.+data DestinationBackup = DestinationBackup'+  { -- | The date and time when both the source backup was created.+    createTimestamp :: Prelude.Maybe Data.POSIX,+    -- | The identifier (ID) of the source backup from which the new backup was+    -- copied.+    sourceBackup :: Prelude.Maybe Prelude.Text,+    -- | The identifier (ID) of the cluster containing the source backup from+    -- which the new backup was copied.+    sourceCluster :: Prelude.Maybe Prelude.Text,+    -- | The AWS region that contains the source backup from which the new backup+    -- was copied.+    sourceRegion :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DestinationBackup' 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:+--+-- 'createTimestamp', 'destinationBackup_createTimestamp' - The date and time when both the source backup was created.+--+-- 'sourceBackup', 'destinationBackup_sourceBackup' - The identifier (ID) of the source backup from which the new backup was+-- copied.+--+-- 'sourceCluster', 'destinationBackup_sourceCluster' - The identifier (ID) of the cluster containing the source backup from+-- which the new backup was copied.+--+-- 'sourceRegion', 'destinationBackup_sourceRegion' - The AWS region that contains the source backup from which the new backup+-- was copied.+newDestinationBackup ::+  DestinationBackup+newDestinationBackup =+  DestinationBackup'+    { createTimestamp =+        Prelude.Nothing,+      sourceBackup = Prelude.Nothing,+      sourceCluster = Prelude.Nothing,+      sourceRegion = Prelude.Nothing+    }++-- | The date and time when both the source backup was created.+destinationBackup_createTimestamp :: Lens.Lens' DestinationBackup (Prelude.Maybe Prelude.UTCTime)+destinationBackup_createTimestamp = Lens.lens (\DestinationBackup' {createTimestamp} -> createTimestamp) (\s@DestinationBackup' {} a -> s {createTimestamp = a} :: DestinationBackup) Prelude.. Lens.mapping Data._Time++-- | The identifier (ID) of the source backup from which the new backup was+-- copied.+destinationBackup_sourceBackup :: Lens.Lens' DestinationBackup (Prelude.Maybe Prelude.Text)+destinationBackup_sourceBackup = Lens.lens (\DestinationBackup' {sourceBackup} -> sourceBackup) (\s@DestinationBackup' {} a -> s {sourceBackup = a} :: DestinationBackup)++-- | The identifier (ID) of the cluster containing the source backup from+-- which the new backup was copied.+destinationBackup_sourceCluster :: Lens.Lens' DestinationBackup (Prelude.Maybe Prelude.Text)+destinationBackup_sourceCluster = Lens.lens (\DestinationBackup' {sourceCluster} -> sourceCluster) (\s@DestinationBackup' {} a -> s {sourceCluster = a} :: DestinationBackup)++-- | The AWS region that contains the source backup from which the new backup+-- was copied.+destinationBackup_sourceRegion :: Lens.Lens' DestinationBackup (Prelude.Maybe Prelude.Text)+destinationBackup_sourceRegion = Lens.lens (\DestinationBackup' {sourceRegion} -> sourceRegion) (\s@DestinationBackup' {} a -> s {sourceRegion = a} :: DestinationBackup)++instance Data.FromJSON DestinationBackup where+  parseJSON =+    Data.withObject+      "DestinationBackup"+      ( \x ->+          DestinationBackup'+            Prelude.<$> (x Data..:? "CreateTimestamp")+            Prelude.<*> (x Data..:? "SourceBackup")+            Prelude.<*> (x Data..:? "SourceCluster")+            Prelude.<*> (x Data..:? "SourceRegion")+      )++instance Prelude.Hashable DestinationBackup where+  hashWithSalt _salt DestinationBackup' {..} =+    _salt+      `Prelude.hashWithSalt` createTimestamp+      `Prelude.hashWithSalt` sourceBackup+      `Prelude.hashWithSalt` sourceCluster+      `Prelude.hashWithSalt` sourceRegion++instance Prelude.NFData DestinationBackup where+  rnf DestinationBackup' {..} =+    Prelude.rnf createTimestamp+      `Prelude.seq` Prelude.rnf sourceBackup+      `Prelude.seq` Prelude.rnf sourceCluster+      `Prelude.seq` Prelude.rnf sourceRegion

@@ -0,0 +1,160 @@+{-# 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.CloudHSMV2.Types.Hsm+-- 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.CloudHSMV2.Types.Hsm where++import Amazonka.CloudHSMV2.Types.HsmState+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++-- | Contains information about a hardware security module (HSM) in an AWS+-- CloudHSM cluster.+--+-- /See:/ 'newHsm' smart constructor.+data Hsm = Hsm'+  { -- | The Availability Zone that contains the HSM.+    availabilityZone :: Prelude.Maybe Prelude.Text,+    -- | The identifier (ID) of the cluster that contains the HSM.+    clusterId :: Prelude.Maybe Prelude.Text,+    -- | The identifier (ID) of the HSM\'s elastic network interface (ENI).+    eniId :: Prelude.Maybe Prelude.Text,+    -- | The IP address of the HSM\'s elastic network interface (ENI).+    eniIp :: Prelude.Maybe Prelude.Text,+    -- | The HSM\'s state.+    state :: Prelude.Maybe HsmState,+    -- | A description of the HSM\'s state.+    stateMessage :: Prelude.Maybe Prelude.Text,+    -- | The subnet that contains the HSM\'s elastic network interface (ENI).+    subnetId :: Prelude.Maybe Prelude.Text,+    -- | The HSM\'s identifier (ID).+    hsmId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Hsm' 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:+--+-- 'availabilityZone', 'hsm_availabilityZone' - The Availability Zone that contains the HSM.+--+-- 'clusterId', 'hsm_clusterId' - The identifier (ID) of the cluster that contains the HSM.+--+-- 'eniId', 'hsm_eniId' - The identifier (ID) of the HSM\'s elastic network interface (ENI).+--+-- 'eniIp', 'hsm_eniIp' - The IP address of the HSM\'s elastic network interface (ENI).+--+-- 'state', 'hsm_state' - The HSM\'s state.+--+-- 'stateMessage', 'hsm_stateMessage' - A description of the HSM\'s state.+--+-- 'subnetId', 'hsm_subnetId' - The subnet that contains the HSM\'s elastic network interface (ENI).+--+-- 'hsmId', 'hsm_hsmId' - The HSM\'s identifier (ID).+newHsm ::+  -- | 'hsmId'+  Prelude.Text ->+  Hsm+newHsm pHsmId_ =+  Hsm'+    { availabilityZone = Prelude.Nothing,+      clusterId = Prelude.Nothing,+      eniId = Prelude.Nothing,+      eniIp = Prelude.Nothing,+      state = Prelude.Nothing,+      stateMessage = Prelude.Nothing,+      subnetId = Prelude.Nothing,+      hsmId = pHsmId_+    }++-- | The Availability Zone that contains the HSM.+hsm_availabilityZone :: Lens.Lens' Hsm (Prelude.Maybe Prelude.Text)+hsm_availabilityZone = Lens.lens (\Hsm' {availabilityZone} -> availabilityZone) (\s@Hsm' {} a -> s {availabilityZone = a} :: Hsm)++-- | The identifier (ID) of the cluster that contains the HSM.+hsm_clusterId :: Lens.Lens' Hsm (Prelude.Maybe Prelude.Text)+hsm_clusterId = Lens.lens (\Hsm' {clusterId} -> clusterId) (\s@Hsm' {} a -> s {clusterId = a} :: Hsm)++-- | The identifier (ID) of the HSM\'s elastic network interface (ENI).+hsm_eniId :: Lens.Lens' Hsm (Prelude.Maybe Prelude.Text)+hsm_eniId = Lens.lens (\Hsm' {eniId} -> eniId) (\s@Hsm' {} a -> s {eniId = a} :: Hsm)++-- | The IP address of the HSM\'s elastic network interface (ENI).+hsm_eniIp :: Lens.Lens' Hsm (Prelude.Maybe Prelude.Text)+hsm_eniIp = Lens.lens (\Hsm' {eniIp} -> eniIp) (\s@Hsm' {} a -> s {eniIp = a} :: Hsm)++-- | The HSM\'s state.+hsm_state :: Lens.Lens' Hsm (Prelude.Maybe HsmState)+hsm_state = Lens.lens (\Hsm' {state} -> state) (\s@Hsm' {} a -> s {state = a} :: Hsm)++-- | A description of the HSM\'s state.+hsm_stateMessage :: Lens.Lens' Hsm (Prelude.Maybe Prelude.Text)+hsm_stateMessage = Lens.lens (\Hsm' {stateMessage} -> stateMessage) (\s@Hsm' {} a -> s {stateMessage = a} :: Hsm)++-- | The subnet that contains the HSM\'s elastic network interface (ENI).+hsm_subnetId :: Lens.Lens' Hsm (Prelude.Maybe Prelude.Text)+hsm_subnetId = Lens.lens (\Hsm' {subnetId} -> subnetId) (\s@Hsm' {} a -> s {subnetId = a} :: Hsm)++-- | The HSM\'s identifier (ID).+hsm_hsmId :: Lens.Lens' Hsm Prelude.Text+hsm_hsmId = Lens.lens (\Hsm' {hsmId} -> hsmId) (\s@Hsm' {} a -> s {hsmId = a} :: Hsm)++instance Data.FromJSON Hsm where+  parseJSON =+    Data.withObject+      "Hsm"+      ( \x ->+          Hsm'+            Prelude.<$> (x Data..:? "AvailabilityZone")+            Prelude.<*> (x Data..:? "ClusterId")+            Prelude.<*> (x Data..:? "EniId")+            Prelude.<*> (x Data..:? "EniIp")+            Prelude.<*> (x Data..:? "State")+            Prelude.<*> (x Data..:? "StateMessage")+            Prelude.<*> (x Data..:? "SubnetId")+            Prelude.<*> (x Data..: "HsmId")+      )++instance Prelude.Hashable Hsm where+  hashWithSalt _salt Hsm' {..} =+    _salt+      `Prelude.hashWithSalt` availabilityZone+      `Prelude.hashWithSalt` clusterId+      `Prelude.hashWithSalt` eniId+      `Prelude.hashWithSalt` eniIp+      `Prelude.hashWithSalt` state+      `Prelude.hashWithSalt` stateMessage+      `Prelude.hashWithSalt` subnetId+      `Prelude.hashWithSalt` hsmId++instance Prelude.NFData Hsm where+  rnf Hsm' {..} =+    Prelude.rnf availabilityZone+      `Prelude.seq` Prelude.rnf clusterId+      `Prelude.seq` Prelude.rnf eniId+      `Prelude.seq` Prelude.rnf eniIp+      `Prelude.seq` Prelude.rnf state+      `Prelude.seq` Prelude.rnf stateMessage+      `Prelude.seq` Prelude.rnf subnetId+      `Prelude.seq` Prelude.rnf hsmId

@@ -0,0 +1,86 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.CloudHSMV2.Types.HsmState+-- 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.CloudHSMV2.Types.HsmState+  ( HsmState+      ( ..,+        HsmState_ACTIVE,+        HsmState_CREATE_IN_PROGRESS,+        HsmState_DEGRADED,+        HsmState_DELETED,+        HsmState_DELETE_IN_PROGRESS+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype HsmState = HsmState'+  { fromHsmState ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern HsmState_ACTIVE :: HsmState+pattern HsmState_ACTIVE = HsmState' "ACTIVE"++pattern HsmState_CREATE_IN_PROGRESS :: HsmState+pattern HsmState_CREATE_IN_PROGRESS = HsmState' "CREATE_IN_PROGRESS"++pattern HsmState_DEGRADED :: HsmState+pattern HsmState_DEGRADED = HsmState' "DEGRADED"++pattern HsmState_DELETED :: HsmState+pattern HsmState_DELETED = HsmState' "DELETED"++pattern HsmState_DELETE_IN_PROGRESS :: HsmState+pattern HsmState_DELETE_IN_PROGRESS = HsmState' "DELETE_IN_PROGRESS"++{-# COMPLETE+  HsmState_ACTIVE,+  HsmState_CREATE_IN_PROGRESS,+  HsmState_DEGRADED,+  HsmState_DELETED,+  HsmState_DELETE_IN_PROGRESS,+  HsmState'+  #-}

@@ -0,0 +1,93 @@+{-# 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.CloudHSMV2.Types.Tag+-- 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.CloudHSMV2.Types.Tag 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++-- | Contains a tag. A tag is a key-value pair.+--+-- /See:/ 'newTag' smart constructor.+data Tag = Tag'+  { -- | The key of the tag.+    key :: Prelude.Text,+    -- | The value of the tag.+    value :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Tag' 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:+--+-- 'key', 'tag_key' - The key of the tag.+--+-- 'value', 'tag_value' - The value of the tag.+newTag ::+  -- | 'key'+  Prelude.Text ->+  -- | 'value'+  Prelude.Text ->+  Tag+newTag pKey_ pValue_ =+  Tag' {key = pKey_, value = pValue_}++-- | The key of the tag.+tag_key :: Lens.Lens' Tag Prelude.Text+tag_key = Lens.lens (\Tag' {key} -> key) (\s@Tag' {} a -> s {key = a} :: Tag)++-- | The value of the tag.+tag_value :: Lens.Lens' Tag Prelude.Text+tag_value = Lens.lens (\Tag' {value} -> value) (\s@Tag' {} a -> s {value = a} :: Tag)++instance Data.FromJSON Tag where+  parseJSON =+    Data.withObject+      "Tag"+      ( \x ->+          Tag'+            Prelude.<$> (x Data..: "Key")+            Prelude.<*> (x Data..: "Value")+      )++instance Prelude.Hashable Tag where+  hashWithSalt _salt Tag' {..} =+    _salt+      `Prelude.hashWithSalt` key+      `Prelude.hashWithSalt` value++instance Prelude.NFData Tag where+  rnf Tag' {..} =+    Prelude.rnf key `Prelude.seq` Prelude.rnf value++instance Data.ToJSON Tag where+  toJSON Tag' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("Key" Data..= key),+            Prelude.Just ("Value" Data..= value)+          ]+      )

@@ -0,0 +1,180 @@+{-# 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.CloudHSMV2.UntagResource+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Removes the specified tag or tags from the specified AWS CloudHSM+-- cluster.+module Amazonka.CloudHSMV2.UntagResource+  ( -- * Creating a Request+    UntagResource (..),+    newUntagResource,++    -- * Request Lenses+    untagResource_resourceId,+    untagResource_tagKeyList,++    -- * Destructuring the Response+    UntagResourceResponse (..),+    newUntagResourceResponse,++    -- * Response Lenses+    untagResourceResponse_httpStatus,+  )+where++import Amazonka.CloudHSMV2.Types+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++-- | /See:/ 'newUntagResource' smart constructor.+data UntagResource = UntagResource'+  { -- | The cluster identifier (ID) for the cluster whose tags you are removing.+    -- To find the cluster ID, use DescribeClusters.+    resourceId :: Prelude.Text,+    -- | A list of one or more tag keys for the tags that you are removing.+    -- Specify only the tag keys, not the tag values.+    tagKeyList :: Prelude.NonEmpty Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UntagResource' 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:+--+-- 'resourceId', 'untagResource_resourceId' - The cluster identifier (ID) for the cluster whose tags you are removing.+-- To find the cluster ID, use DescribeClusters.+--+-- 'tagKeyList', 'untagResource_tagKeyList' - A list of one or more tag keys for the tags that you are removing.+-- Specify only the tag keys, not the tag values.+newUntagResource ::+  -- | 'resourceId'+  Prelude.Text ->+  -- | 'tagKeyList'+  Prelude.NonEmpty Prelude.Text ->+  UntagResource+newUntagResource pResourceId_ pTagKeyList_ =+  UntagResource'+    { resourceId = pResourceId_,+      tagKeyList = Lens.coerced Lens.# pTagKeyList_+    }++-- | The cluster identifier (ID) for the cluster whose tags you are removing.+-- To find the cluster ID, use DescribeClusters.+untagResource_resourceId :: Lens.Lens' UntagResource Prelude.Text+untagResource_resourceId = Lens.lens (\UntagResource' {resourceId} -> resourceId) (\s@UntagResource' {} a -> s {resourceId = a} :: UntagResource)++-- | A list of one or more tag keys for the tags that you are removing.+-- Specify only the tag keys, not the tag values.+untagResource_tagKeyList :: Lens.Lens' UntagResource (Prelude.NonEmpty Prelude.Text)+untagResource_tagKeyList = Lens.lens (\UntagResource' {tagKeyList} -> tagKeyList) (\s@UntagResource' {} a -> s {tagKeyList = a} :: UntagResource) Prelude.. Lens.coerced++instance Core.AWSRequest UntagResource where+  type+    AWSResponse UntagResource =+      UntagResourceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          UntagResourceResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable UntagResource where+  hashWithSalt _salt UntagResource' {..} =+    _salt+      `Prelude.hashWithSalt` resourceId+      `Prelude.hashWithSalt` tagKeyList++instance Prelude.NFData UntagResource where+  rnf UntagResource' {..} =+    Prelude.rnf resourceId+      `Prelude.seq` Prelude.rnf tagKeyList++instance Data.ToHeaders UntagResource where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "BaldrApiService.UntagResource" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UntagResource where+  toJSON UntagResource' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("ResourceId" Data..= resourceId),+            Prelude.Just ("TagKeyList" Data..= tagKeyList)+          ]+      )++instance Data.ToPath UntagResource where+  toPath = Prelude.const "/"++instance Data.ToQuery UntagResource where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUntagResourceResponse' smart constructor.+data UntagResourceResponse = UntagResourceResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UntagResourceResponse' 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', 'untagResourceResponse_httpStatus' - The response's http status code.+newUntagResourceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  UntagResourceResponse+newUntagResourceResponse pHttpStatus_ =+  UntagResourceResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+untagResourceResponse_httpStatus :: Lens.Lens' UntagResourceResponse Prelude.Int+untagResourceResponse_httpStatus = Lens.lens (\UntagResourceResponse' {httpStatus} -> httpStatus) (\s@UntagResourceResponse' {} a -> s {httpStatus = a} :: UntagResourceResponse)++instance Prelude.NFData UntagResourceResponse where+  rnf UntagResourceResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,24 @@+{-# LANGUAGE DisambiguateRecordFields #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.CloudHSMV2.Waiters+-- 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.CloudHSMV2.Waiters where++import Amazonka.CloudHSMV2.Lens+import Amazonka.CloudHSMV2.Types+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

@@ -1,184 +0,0 @@-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}-{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.CloudHSMv2--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ For more information about AWS CloudHSM, see <http://aws.amazon.com/cloudhsm/ AWS CloudHSM> and the <http://docs.aws.amazon.com/cloudhsm/latest/userguide/ AWS CloudHSM User Guide> .-------module Network.AWS.CloudHSMv2-    (-    -- * Service Configuration-      cloudHSMv2--    -- * Errors-    -- $errors--    -- ** CloudHSMInternalFailureException-    , _CloudHSMInternalFailureException--    -- ** CloudHSMServiceException-    , _CloudHSMServiceException--    -- ** CloudHSMInvalidRequestException-    , _CloudHSMInvalidRequestException--    -- ** CloudHSMAccessDeniedException-    , _CloudHSMAccessDeniedException--    -- ** CloudHSMResourceNotFoundException-    , _CloudHSMResourceNotFoundException--    -- * Waiters-    -- $waiters--    -- * Operations-    -- $operations--    -- ** DescribeClusters (Paginated)-    , module Network.AWS.CloudHSMv2.DescribeClusters--    -- ** InitializeCluster-    , module Network.AWS.CloudHSMv2.InitializeCluster--    -- ** CreateHSM-    , module Network.AWS.CloudHSMv2.CreateHSM--    -- ** DescribeBackups (Paginated)-    , module Network.AWS.CloudHSMv2.DescribeBackups--    -- ** DeleteCluster-    , module Network.AWS.CloudHSMv2.DeleteCluster--    -- ** CreateCluster-    , module Network.AWS.CloudHSMv2.CreateCluster--    -- ** DeleteHSM-    , module Network.AWS.CloudHSMv2.DeleteHSM--    -- ** TagResource-    , module Network.AWS.CloudHSMv2.TagResource--    -- ** ListTags (Paginated)-    , module Network.AWS.CloudHSMv2.ListTags--    -- ** UntagResource-    , module Network.AWS.CloudHSMv2.UntagResource--    -- * Types--    -- ** BackupPolicy-    , BackupPolicy (..)--    -- ** BackupState-    , BackupState (..)--    -- ** ClusterState-    , ClusterState (..)--    -- ** HSMState-    , HSMState (..)--    -- ** Backup-    , Backup-    , backup-    , bClusterId-    , bCreateTimestamp-    , bBackupState-    , bBackupId--    -- ** Certificates-    , Certificates-    , certificates-    , cManufacturerHardwareCertificate-    , cClusterCSR-    , cHSMCertificate-    , cClusterCertificate-    , cAWSHardwareCertificate--    -- ** Cluster-    , Cluster-    , cluster-    , cPreCoPassword-    , cStateMessage-    , cState-    , cSubnetMapping-    , cHSMs-    , cVPCId-    , cSourceBackupId-    , cCertificates-    , cSecurityGroup-    , cClusterId-    , cCreateTimestamp-    , cBackupPolicy-    , cHSMType--    -- ** HSM-    , HSM-    , hsm-    , hsmStateMessage-    , hsmState-    , hsmEniId-    , hsmSubnetId-    , hsmAvailabilityZone-    , hsmClusterId-    , hsmEniIP-    , hsmHSMId--    -- ** Tag-    , Tag-    , tag-    , tagKey-    , tagValue-    ) where--import Network.AWS.CloudHSMv2.CreateCluster-import Network.AWS.CloudHSMv2.CreateHSM-import Network.AWS.CloudHSMv2.DeleteCluster-import Network.AWS.CloudHSMv2.DeleteHSM-import Network.AWS.CloudHSMv2.DescribeBackups-import Network.AWS.CloudHSMv2.DescribeClusters-import Network.AWS.CloudHSMv2.InitializeCluster-import Network.AWS.CloudHSMv2.ListTags-import Network.AWS.CloudHSMv2.TagResource-import Network.AWS.CloudHSMv2.Types-import Network.AWS.CloudHSMv2.UntagResource-import Network.AWS.CloudHSMv2.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 'CloudHSMv2'.--}--{- $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.--}