amazonka-cloudhsm 1.6.1 → 2.0

raw patch · 114 files changed

+6428/−4509 lines, 114 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-cloudhsm.cabal +97/−94
• fixture/AddTagsToResource.yaml +10/−0
• fixture/CreateHAPG.yaml +0/−0
• fixture/CreateHAPGResponse.proto +0/−0
• fixture/CreateHSM.yaml +0/−0
• fixture/CreateHSMResponse.proto +0/−0
• fixture/CreateHapg.yaml +10/−0
• fixture/CreateHapgResponse.proto +0/−0
• fixture/CreateHsm.yaml +10/−0
• fixture/CreateHsmResponse.proto +0/−0
• fixture/CreateLunaClient.yaml +10/−0
• fixture/DeleteHAPG.yaml +0/−0
• fixture/DeleteHAPGResponse.proto +0/−0
• fixture/DeleteHSM.yaml +0/−0
• fixture/DeleteHSMResponse.proto +0/−0
• fixture/DeleteHapg.yaml +10/−0
• fixture/DeleteHapgResponse.proto +0/−0
• fixture/DeleteHsm.yaml +10/−0
• fixture/DeleteHsmResponse.proto +0/−0
• fixture/DeleteLunaClient.yaml +10/−0
• fixture/DescribeHAPG.yaml +0/−0
• fixture/DescribeHAPGResponse.proto +0/−0
• fixture/DescribeHSM.yaml +0/−0
• fixture/DescribeHSMResponse.proto +0/−0
• fixture/DescribeHapg.yaml +10/−0
• fixture/DescribeHapgResponse.proto +0/−0
• fixture/DescribeHsm.yaml +10/−0
• fixture/DescribeHsmResponse.proto +0/−0
• fixture/DescribeLunaClient.yaml +10/−0
• fixture/GetConfig.yaml +10/−0
• fixture/ListAvailableZones.yaml +10/−0
• fixture/ListHAPGs.yaml +0/−0
• fixture/ListHAPGsResponse.proto +0/−0
• fixture/ListHSMs.yaml +0/−0
• fixture/ListHSMsResponse.proto +0/−0
• fixture/ListHapgs.yaml +10/−0
• fixture/ListHapgsResponse.proto +0/−0
• fixture/ListHsms.yaml +10/−0
• fixture/ListHsmsResponse.proto +0/−0
• fixture/ListLunaClients.yaml +10/−0
• fixture/ListTagsForResource.yaml +10/−0
• fixture/ModifyHAPG.yaml +0/−0
• fixture/ModifyHAPGResponse.proto +0/−0
• fixture/ModifyHSM.yaml +0/−0
• fixture/ModifyHSMResponse.proto +0/−0
• fixture/ModifyHapg.yaml +10/−0
• fixture/ModifyHapgResponse.proto +0/−0
• fixture/ModifyHsm.yaml +10/−0
• fixture/ModifyHsmResponse.proto +0/−0
• fixture/ModifyLunaClient.yaml +10/−0
• fixture/RemoveTagsFromResource.yaml +10/−0
• gen/Amazonka/CloudHSM.hs +240/−0
• gen/Amazonka/CloudHSM/AddTagsToResource.hs +206/−0
• gen/Amazonka/CloudHSM/CreateHapg.hs +184/−0
• gen/Amazonka/CloudHSM/CreateHsm.hs +318/−0
• gen/Amazonka/CloudHSM/CreateLunaClient.hs +207/−0
• gen/Amazonka/CloudHSM/DeleteHapg.hs +185/−0
• gen/Amazonka/CloudHSM/DeleteHsm.hs +185/−0
• gen/Amazonka/CloudHSM/DeleteLunaClient.hs +184/−0
• gen/Amazonka/CloudHSM/DescribeHapg.hs +291/−0
• gen/Amazonka/CloudHSM/DescribeHsm.hs +450/−0
• gen/Amazonka/CloudHSM/DescribeLunaClient.hs +248/−0
• gen/Amazonka/CloudHSM/GetConfig.hs +240/−0
• gen/Amazonka/CloudHSM/Lens.hs +203/−0
• gen/Amazonka/CloudHSM/ListAvailableZones.hs +167/−0
• gen/Amazonka/CloudHSM/ListHapgs.hs +220/−0
• gen/Amazonka/CloudHSM/ListHsms.hs +226/−0
• gen/Amazonka/CloudHSM/ListLunaClients.hs +224/−0
• gen/Amazonka/CloudHSM/ListTagsForResource.hs +183/−0
• gen/Amazonka/CloudHSM/ModifyHapg.hs +214/−0
• gen/Amazonka/CloudHSM/ModifyHsm.hs +280/−0
• gen/Amazonka/CloudHSM/ModifyLunaClient.hs +205/−0
• gen/Amazonka/CloudHSM/RemoveTagsFromResource.hs +220/−0
• gen/Amazonka/CloudHSM/Types.hs +144/−0
• gen/Amazonka/CloudHSM/Types/ClientVersion.hs +66/−0
• gen/Amazonka/CloudHSM/Types/CloudHsmObjectState.hs +76/−0
• gen/Amazonka/CloudHSM/Types/HsmStatus.hs +96/−0
• gen/Amazonka/CloudHSM/Types/SubscriptionType.hs +71/−0
• gen/Amazonka/CloudHSM/Types/Tag.hs +94/−0
• gen/Amazonka/CloudHSM/Waiters.hs +24/−0
• gen/Network/AWS/CloudHSM.hs +0/−175
• gen/Network/AWS/CloudHSM/AddTagsToResource.hs +0/−150
• gen/Network/AWS/CloudHSM/CreateHAPG.hs +0/−142
• gen/Network/AWS/CloudHSM/CreateHSM.hs +0/−224
• gen/Network/AWS/CloudHSM/CreateLunaClient.hs +0/−155
• gen/Network/AWS/CloudHSM/DeleteHAPG.hs +0/−143
• gen/Network/AWS/CloudHSM/DeleteHSM.hs +0/−143
• gen/Network/AWS/CloudHSM/DeleteLunaClient.hs +0/−137
• gen/Network/AWS/CloudHSM/DescribeHAPG.hs +0/−226
• gen/Network/AWS/CloudHSM/DescribeHSM.hs +0/−356
• gen/Network/AWS/CloudHSM/DescribeLunaClient.hs +0/−192
• gen/Network/AWS/CloudHSM/GetConfig.hs +0/−182
• gen/Network/AWS/CloudHSM/ListAvailableZones.hs +0/−129
• gen/Network/AWS/CloudHSM/ListHAPGs.hs +0/−148
• gen/Network/AWS/CloudHSM/ListHSMs.hs +0/−152
• gen/Network/AWS/CloudHSM/ListLunaClients.hs +0/−149
• gen/Network/AWS/CloudHSM/ListTagsForResource.hs +0/−139
• gen/Network/AWS/CloudHSM/ModifyHAPG.hs +0/−160
• gen/Network/AWS/CloudHSM/ModifyHSM.hs +0/−199
• gen/Network/AWS/CloudHSM/ModifyLunaClient.hs +0/−151
• gen/Network/AWS/CloudHSM/RemoveTagsFromResource.hs +0/−152
• gen/Network/AWS/CloudHSM/Types.hs +0/−108
• gen/Network/AWS/CloudHSM/Types/Product.hs +0/−71
• gen/Network/AWS/CloudHSM/Types/Sum.hs +0/−155
• gen/Network/AWS/CloudHSM/Waiters.hs +0/−21
• test/Main.hs +11/−9
• test/Test/AWS/CloudHSM.hs +0/−26
• test/Test/AWS/CloudHSM/Internal.hs +0/−16
• test/Test/AWS/Gen/CloudHSM.hs +0/−399
• test/Test/Amazonka/CloudHSM.hs +20/−0
• test/Test/Amazonka/CloudHSM/Internal.hs +8/−0
• test/Test/Amazonka/Gen/CloudHSM.hs +438/−0

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

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

@@ -1,105 +1,108 @@-name:                  amazonka-cloudhsm-version:               1.6.1-synopsis:              Amazon CloudHSM 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-cloudhsm+version:            2.0+synopsis:           Amazon CloudHSM 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.CloudHSM" or <https://aws.amazon.com/documentation/ the AWS documentation>-    to get started.+  Derived from API version @2014-05-30@ 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.CloudHSM.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.CloudHSM" 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-cloudhsm+  type:     git+  location: git://github.com/brendanhay/amazonka.git+  subdir:   amazonka-cloudhsm  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.CloudHSM-        , Network.AWS.CloudHSM.AddTagsToResource-        , Network.AWS.CloudHSM.CreateHAPG-        , Network.AWS.CloudHSM.CreateHSM-        , Network.AWS.CloudHSM.CreateLunaClient-        , Network.AWS.CloudHSM.DeleteHAPG-        , Network.AWS.CloudHSM.DeleteHSM-        , Network.AWS.CloudHSM.DeleteLunaClient-        , Network.AWS.CloudHSM.DescribeHAPG-        , Network.AWS.CloudHSM.DescribeHSM-        , Network.AWS.CloudHSM.DescribeLunaClient-        , Network.AWS.CloudHSM.GetConfig-        , Network.AWS.CloudHSM.ListAvailableZones-        , Network.AWS.CloudHSM.ListHAPGs-        , Network.AWS.CloudHSM.ListHSMs-        , Network.AWS.CloudHSM.ListLunaClients-        , Network.AWS.CloudHSM.ListTagsForResource-        , Network.AWS.CloudHSM.ModifyHAPG-        , Network.AWS.CloudHSM.ModifyHSM-        , Network.AWS.CloudHSM.ModifyLunaClient-        , Network.AWS.CloudHSM.RemoveTagsFromResource-        , Network.AWS.CloudHSM.Types-        , Network.AWS.CloudHSM.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.CloudHSM.Types.Product-        , Network.AWS.CloudHSM.Types.Sum+  exposed-modules:+    Amazonka.CloudHSM+    Amazonka.CloudHSM.AddTagsToResource+    Amazonka.CloudHSM.CreateHapg+    Amazonka.CloudHSM.CreateHsm+    Amazonka.CloudHSM.CreateLunaClient+    Amazonka.CloudHSM.DeleteHapg+    Amazonka.CloudHSM.DeleteHsm+    Amazonka.CloudHSM.DeleteLunaClient+    Amazonka.CloudHSM.DescribeHapg+    Amazonka.CloudHSM.DescribeHsm+    Amazonka.CloudHSM.DescribeLunaClient+    Amazonka.CloudHSM.GetConfig+    Amazonka.CloudHSM.Lens+    Amazonka.CloudHSM.ListAvailableZones+    Amazonka.CloudHSM.ListHapgs+    Amazonka.CloudHSM.ListHsms+    Amazonka.CloudHSM.ListLunaClients+    Amazonka.CloudHSM.ListTagsForResource+    Amazonka.CloudHSM.ModifyHapg+    Amazonka.CloudHSM.ModifyHsm+    Amazonka.CloudHSM.ModifyLunaClient+    Amazonka.CloudHSM.RemoveTagsFromResource+    Amazonka.CloudHSM.Types+    Amazonka.CloudHSM.Types.ClientVersion+    Amazonka.CloudHSM.Types.CloudHsmObjectState+    Amazonka.CloudHSM.Types.HsmStatus+    Amazonka.CloudHSM.Types.SubscriptionType+    Amazonka.CloudHSM.Types.Tag+    Amazonka.CloudHSM.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-cloudhsm-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.CloudHSM-        , Test.AWS.Gen.CloudHSM-        , Test.AWS.CloudHSM.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.CloudHSM+    Test.Amazonka.CloudHSM.Internal+    Test.Amazonka.Gen.CloudHSM -    build-depends:-          amazonka-core == 1.6.1.*-        , amazonka-test == 1.6.1.*-        , amazonka-cloudhsm-        , base-        , bytestring-        , tasty-        , tasty-hunit-        , text-        , time-        , unordered-containers+  build-depends:+    , amazonka-cloudhsm+    , 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/cloudhsm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudhsm.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/cloudhsm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudhsm.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/cloudhsm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudhsm.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/cloudhsm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudhsm.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/cloudhsm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudhsm.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/cloudhsm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudhsm.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/cloudhsm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudhsm.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/cloudhsm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudhsm.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/cloudhsm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudhsm.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/cloudhsm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudhsm.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/cloudhsm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudhsm.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/cloudhsm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudhsm.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/cloudhsm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudhsm.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/cloudhsm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudhsm.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/cloudhsm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudhsm.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/cloudhsm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudhsm.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/cloudhsm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudhsm.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/cloudhsm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudhsm.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/cloudhsm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudhsm.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/cloudhsm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudhsm.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,240 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.CloudHSM+-- 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 @2014-05-30@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- AWS CloudHSM Service+--+-- This is documentation for __AWS CloudHSM Classic__. For more+-- information, see+-- <http://aws.amazon.com/cloudhsm/faqs-classic/ AWS CloudHSM Classic FAQs>,+-- the+-- <https://docs.aws.amazon.com/cloudhsm/classic/userguide/ AWS CloudHSM Classic User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/classic/APIReference/ AWS CloudHSM Classic API Reference>.+--+-- __For information about the current version of AWS CloudHSM__, see+-- <http://aws.amazon.com/cloudhsm/ AWS CloudHSM>, the+-- <https://docs.aws.amazon.com/cloudhsm/latest/userguide/ AWS CloudHSM User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/latest/APIReference/ AWS CloudHSM API Reference>.+module Amazonka.CloudHSM+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** CloudHsmInternalException+    _CloudHsmInternalException,++    -- ** CloudHsmServiceException+    _CloudHsmServiceException,++    -- ** InvalidRequestException+    _InvalidRequestException,++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** AddTagsToResource+    AddTagsToResource (AddTagsToResource'),+    newAddTagsToResource,+    AddTagsToResourceResponse (AddTagsToResourceResponse'),+    newAddTagsToResourceResponse,++    -- ** CreateHapg+    CreateHapg (CreateHapg'),+    newCreateHapg,+    CreateHapgResponse (CreateHapgResponse'),+    newCreateHapgResponse,++    -- ** CreateHsm+    CreateHsm (CreateHsm'),+    newCreateHsm,+    CreateHsmResponse (CreateHsmResponse'),+    newCreateHsmResponse,++    -- ** CreateLunaClient+    CreateLunaClient (CreateLunaClient'),+    newCreateLunaClient,+    CreateLunaClientResponse (CreateLunaClientResponse'),+    newCreateLunaClientResponse,++    -- ** DeleteHapg+    DeleteHapg (DeleteHapg'),+    newDeleteHapg,+    DeleteHapgResponse (DeleteHapgResponse'),+    newDeleteHapgResponse,++    -- ** DeleteHsm+    DeleteHsm (DeleteHsm'),+    newDeleteHsm,+    DeleteHsmResponse (DeleteHsmResponse'),+    newDeleteHsmResponse,++    -- ** DeleteLunaClient+    DeleteLunaClient (DeleteLunaClient'),+    newDeleteLunaClient,+    DeleteLunaClientResponse (DeleteLunaClientResponse'),+    newDeleteLunaClientResponse,++    -- ** DescribeHapg+    DescribeHapg (DescribeHapg'),+    newDescribeHapg,+    DescribeHapgResponse (DescribeHapgResponse'),+    newDescribeHapgResponse,++    -- ** DescribeHsm+    DescribeHsm (DescribeHsm'),+    newDescribeHsm,+    DescribeHsmResponse (DescribeHsmResponse'),+    newDescribeHsmResponse,++    -- ** DescribeLunaClient+    DescribeLunaClient (DescribeLunaClient'),+    newDescribeLunaClient,+    DescribeLunaClientResponse (DescribeLunaClientResponse'),+    newDescribeLunaClientResponse,++    -- ** GetConfig+    GetConfig (GetConfig'),+    newGetConfig,+    GetConfigResponse (GetConfigResponse'),+    newGetConfigResponse,++    -- ** ListAvailableZones+    ListAvailableZones (ListAvailableZones'),+    newListAvailableZones,+    ListAvailableZonesResponse (ListAvailableZonesResponse'),+    newListAvailableZonesResponse,++    -- ** ListHapgs (Paginated)+    ListHapgs (ListHapgs'),+    newListHapgs,+    ListHapgsResponse (ListHapgsResponse'),+    newListHapgsResponse,++    -- ** ListHsms (Paginated)+    ListHsms (ListHsms'),+    newListHsms,+    ListHsmsResponse (ListHsmsResponse'),+    newListHsmsResponse,++    -- ** ListLunaClients (Paginated)+    ListLunaClients (ListLunaClients'),+    newListLunaClients,+    ListLunaClientsResponse (ListLunaClientsResponse'),+    newListLunaClientsResponse,++    -- ** ListTagsForResource+    ListTagsForResource (ListTagsForResource'),+    newListTagsForResource,+    ListTagsForResourceResponse (ListTagsForResourceResponse'),+    newListTagsForResourceResponse,++    -- ** ModifyHapg+    ModifyHapg (ModifyHapg'),+    newModifyHapg,+    ModifyHapgResponse (ModifyHapgResponse'),+    newModifyHapgResponse,++    -- ** ModifyHsm+    ModifyHsm (ModifyHsm'),+    newModifyHsm,+    ModifyHsmResponse (ModifyHsmResponse'),+    newModifyHsmResponse,++    -- ** ModifyLunaClient+    ModifyLunaClient (ModifyLunaClient'),+    newModifyLunaClient,+    ModifyLunaClientResponse (ModifyLunaClientResponse'),+    newModifyLunaClientResponse,++    -- ** RemoveTagsFromResource+    RemoveTagsFromResource (RemoveTagsFromResource'),+    newRemoveTagsFromResource,+    RemoveTagsFromResourceResponse (RemoveTagsFromResourceResponse'),+    newRemoveTagsFromResourceResponse,++    -- * Types++    -- ** ClientVersion+    ClientVersion (..),++    -- ** CloudHsmObjectState+    CloudHsmObjectState (..),++    -- ** HsmStatus+    HsmStatus (..),++    -- ** SubscriptionType+    SubscriptionType (..),++    -- ** Tag+    Tag (Tag'),+    newTag,+  )+where++import Amazonka.CloudHSM.AddTagsToResource+import Amazonka.CloudHSM.CreateHapg+import Amazonka.CloudHSM.CreateHsm+import Amazonka.CloudHSM.CreateLunaClient+import Amazonka.CloudHSM.DeleteHapg+import Amazonka.CloudHSM.DeleteHsm+import Amazonka.CloudHSM.DeleteLunaClient+import Amazonka.CloudHSM.DescribeHapg+import Amazonka.CloudHSM.DescribeHsm+import Amazonka.CloudHSM.DescribeLunaClient+import Amazonka.CloudHSM.GetConfig+import Amazonka.CloudHSM.Lens+import Amazonka.CloudHSM.ListAvailableZones+import Amazonka.CloudHSM.ListHapgs+import Amazonka.CloudHSM.ListHsms+import Amazonka.CloudHSM.ListLunaClients+import Amazonka.CloudHSM.ListTagsForResource+import Amazonka.CloudHSM.ModifyHapg+import Amazonka.CloudHSM.ModifyHsm+import Amazonka.CloudHSM.ModifyLunaClient+import Amazonka.CloudHSM.RemoveTagsFromResource+import Amazonka.CloudHSM.Types+import Amazonka.CloudHSM.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 'CloudHSM'.++-- $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,206 @@+{-# 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.CloudHSM.AddTagsToResource+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- This is documentation for __AWS CloudHSM Classic__. For more+-- information, see+-- <http://aws.amazon.com/cloudhsm/faqs-classic/ AWS CloudHSM Classic FAQs>,+-- the+-- <https://docs.aws.amazon.com/cloudhsm/classic/userguide/ AWS CloudHSM Classic User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/classic/APIReference/ AWS CloudHSM Classic API Reference>.+--+-- __For information about the current version of AWS CloudHSM__, see+-- <http://aws.amazon.com/cloudhsm/ AWS CloudHSM>, the+-- <https://docs.aws.amazon.com/cloudhsm/latest/userguide/ AWS CloudHSM User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/latest/APIReference/ AWS CloudHSM API Reference>.+--+-- Adds or overwrites one or more tags for the specified AWS CloudHSM+-- resource.+--+-- Each tag consists of a key and a value. Tag keys must be unique to each+-- resource.+module Amazonka.CloudHSM.AddTagsToResource+  ( -- * Creating a Request+    AddTagsToResource (..),+    newAddTagsToResource,++    -- * Request Lenses+    addTagsToResource_resourceArn,+    addTagsToResource_tagList,++    -- * Destructuring the Response+    AddTagsToResourceResponse (..),+    newAddTagsToResourceResponse,++    -- * Response Lenses+    addTagsToResourceResponse_httpStatus,+    addTagsToResourceResponse_status,+  )+where++import Amazonka.CloudHSM.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:/ 'newAddTagsToResource' smart constructor.+data AddTagsToResource = AddTagsToResource'+  { -- | The Amazon Resource Name (ARN) of the AWS CloudHSM resource to tag.+    resourceArn :: Prelude.Text,+    -- | One or more tags.+    tagList :: [Tag]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AddTagsToResource' 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:+--+-- 'resourceArn', 'addTagsToResource_resourceArn' - The Amazon Resource Name (ARN) of the AWS CloudHSM resource to tag.+--+-- 'tagList', 'addTagsToResource_tagList' - One or more tags.+newAddTagsToResource ::+  -- | 'resourceArn'+  Prelude.Text ->+  AddTagsToResource+newAddTagsToResource pResourceArn_ =+  AddTagsToResource'+    { resourceArn = pResourceArn_,+      tagList = Prelude.mempty+    }++-- | The Amazon Resource Name (ARN) of the AWS CloudHSM resource to tag.+addTagsToResource_resourceArn :: Lens.Lens' AddTagsToResource Prelude.Text+addTagsToResource_resourceArn = Lens.lens (\AddTagsToResource' {resourceArn} -> resourceArn) (\s@AddTagsToResource' {} a -> s {resourceArn = a} :: AddTagsToResource)++-- | One or more tags.+addTagsToResource_tagList :: Lens.Lens' AddTagsToResource [Tag]+addTagsToResource_tagList = Lens.lens (\AddTagsToResource' {tagList} -> tagList) (\s@AddTagsToResource' {} a -> s {tagList = a} :: AddTagsToResource) Prelude.. Lens.coerced++instance Core.AWSRequest AddTagsToResource where+  type+    AWSResponse AddTagsToResource =+      AddTagsToResourceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          AddTagsToResourceResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "Status")+      )++instance Prelude.Hashable AddTagsToResource where+  hashWithSalt _salt AddTagsToResource' {..} =+    _salt+      `Prelude.hashWithSalt` resourceArn+      `Prelude.hashWithSalt` tagList++instance Prelude.NFData AddTagsToResource where+  rnf AddTagsToResource' {..} =+    Prelude.rnf resourceArn+      `Prelude.seq` Prelude.rnf tagList++instance Data.ToHeaders AddTagsToResource where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "CloudHsmFrontendService.AddTagsToResource" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON AddTagsToResource where+  toJSON AddTagsToResource' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("ResourceArn" Data..= resourceArn),+            Prelude.Just ("TagList" Data..= tagList)+          ]+      )++instance Data.ToPath AddTagsToResource where+  toPath = Prelude.const "/"++instance Data.ToQuery AddTagsToResource where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newAddTagsToResourceResponse' smart constructor.+data AddTagsToResourceResponse = AddTagsToResourceResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The status of the operation.+    status :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AddTagsToResourceResponse' 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', 'addTagsToResourceResponse_httpStatus' - The response's http status code.+--+-- 'status', 'addTagsToResourceResponse_status' - The status of the operation.+newAddTagsToResourceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'status'+  Prelude.Text ->+  AddTagsToResourceResponse+newAddTagsToResourceResponse pHttpStatus_ pStatus_ =+  AddTagsToResourceResponse'+    { httpStatus =+        pHttpStatus_,+      status = pStatus_+    }++-- | The response's http status code.+addTagsToResourceResponse_httpStatus :: Lens.Lens' AddTagsToResourceResponse Prelude.Int+addTagsToResourceResponse_httpStatus = Lens.lens (\AddTagsToResourceResponse' {httpStatus} -> httpStatus) (\s@AddTagsToResourceResponse' {} a -> s {httpStatus = a} :: AddTagsToResourceResponse)++-- | The status of the operation.+addTagsToResourceResponse_status :: Lens.Lens' AddTagsToResourceResponse Prelude.Text+addTagsToResourceResponse_status = Lens.lens (\AddTagsToResourceResponse' {status} -> status) (\s@AddTagsToResourceResponse' {} a -> s {status = a} :: AddTagsToResourceResponse)++instance Prelude.NFData AddTagsToResourceResponse where+  rnf AddTagsToResourceResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf status

@@ -0,0 +1,184 @@+{-# 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.CloudHSM.CreateHapg+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- This is documentation for __AWS CloudHSM Classic__. For more+-- information, see+-- <http://aws.amazon.com/cloudhsm/faqs-classic/ AWS CloudHSM Classic FAQs>,+-- the+-- <https://docs.aws.amazon.com/cloudhsm/classic/userguide/ AWS CloudHSM Classic User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/classic/APIReference/ AWS CloudHSM Classic API Reference>.+--+-- __For information about the current version of AWS CloudHSM__, see+-- <http://aws.amazon.com/cloudhsm/ AWS CloudHSM>, the+-- <https://docs.aws.amazon.com/cloudhsm/latest/userguide/ AWS CloudHSM User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/latest/APIReference/ AWS CloudHSM API Reference>.+--+-- Creates a high-availability partition group. A high-availability+-- partition group is a group of partitions that spans multiple physical+-- HSMs.+module Amazonka.CloudHSM.CreateHapg+  ( -- * Creating a Request+    CreateHapg (..),+    newCreateHapg,++    -- * Request Lenses+    createHapg_label,++    -- * Destructuring the Response+    CreateHapgResponse (..),+    newCreateHapgResponse,++    -- * Response Lenses+    createHapgResponse_hapgArn,+    createHapgResponse_httpStatus,+  )+where++import Amazonka.CloudHSM.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++-- | Contains the inputs for the CreateHapgRequest action.+--+-- /See:/ 'newCreateHapg' smart constructor.+data CreateHapg = CreateHapg'+  { -- | The label of the new high-availability partition group.+    label :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateHapg' 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:+--+-- 'label', 'createHapg_label' - The label of the new high-availability partition group.+newCreateHapg ::+  -- | 'label'+  Prelude.Text ->+  CreateHapg+newCreateHapg pLabel_ = CreateHapg' {label = pLabel_}++-- | The label of the new high-availability partition group.+createHapg_label :: Lens.Lens' CreateHapg Prelude.Text+createHapg_label = Lens.lens (\CreateHapg' {label} -> label) (\s@CreateHapg' {} a -> s {label = a} :: CreateHapg)++instance Core.AWSRequest CreateHapg where+  type AWSResponse CreateHapg = CreateHapgResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateHapgResponse'+            Prelude.<$> (x Data..?> "HapgArn")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateHapg where+  hashWithSalt _salt CreateHapg' {..} =+    _salt `Prelude.hashWithSalt` label++instance Prelude.NFData CreateHapg where+  rnf CreateHapg' {..} = Prelude.rnf label++instance Data.ToHeaders CreateHapg where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "CloudHsmFrontendService.CreateHapg" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateHapg where+  toJSON CreateHapg' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("Label" Data..= label)]+      )++instance Data.ToPath CreateHapg where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateHapg where+  toQuery = Prelude.const Prelude.mempty++-- | Contains the output of the CreateHAPartitionGroup action.+--+-- /See:/ 'newCreateHapgResponse' smart constructor.+data CreateHapgResponse = CreateHapgResponse'+  { -- | The ARN of the high-availability partition group.+    hapgArn :: 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 'CreateHapgResponse' 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:+--+-- 'hapgArn', 'createHapgResponse_hapgArn' - The ARN of the high-availability partition group.+--+-- 'httpStatus', 'createHapgResponse_httpStatus' - The response's http status code.+newCreateHapgResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateHapgResponse+newCreateHapgResponse pHttpStatus_ =+  CreateHapgResponse'+    { hapgArn = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The ARN of the high-availability partition group.+createHapgResponse_hapgArn :: Lens.Lens' CreateHapgResponse (Prelude.Maybe Prelude.Text)+createHapgResponse_hapgArn = Lens.lens (\CreateHapgResponse' {hapgArn} -> hapgArn) (\s@CreateHapgResponse' {} a -> s {hapgArn = a} :: CreateHapgResponse)++-- | The response's http status code.+createHapgResponse_httpStatus :: Lens.Lens' CreateHapgResponse Prelude.Int+createHapgResponse_httpStatus = Lens.lens (\CreateHapgResponse' {httpStatus} -> httpStatus) (\s@CreateHapgResponse' {} a -> s {httpStatus = a} :: CreateHapgResponse)++instance Prelude.NFData CreateHapgResponse where+  rnf CreateHapgResponse' {..} =+    Prelude.rnf hapgArn+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,318 @@+{-# 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.CloudHSM.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)+--+-- This is documentation for __AWS CloudHSM Classic__. For more+-- information, see+-- <http://aws.amazon.com/cloudhsm/faqs-classic/ AWS CloudHSM Classic FAQs>,+-- the+-- <https://docs.aws.amazon.com/cloudhsm/classic/userguide/ AWS CloudHSM Classic User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/classic/APIReference/ AWS CloudHSM Classic API Reference>.+--+-- __For information about the current version of AWS CloudHSM__, see+-- <http://aws.amazon.com/cloudhsm/ AWS CloudHSM>, the+-- <https://docs.aws.amazon.com/cloudhsm/latest/userguide/ AWS CloudHSM User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/latest/APIReference/ AWS CloudHSM API Reference>.+--+-- Creates an uninitialized HSM instance.+--+-- There is an upfront fee charged for each HSM instance that you create+-- with the @CreateHsm@ operation. If you accidentally provision an HSM and+-- want to request a refund, delete the instance using the DeleteHsm+-- operation, go to the+-- <https://console.aws.amazon.com/support/home AWS Support Center>, create+-- a new case, and select __Account and Billing Support__.+--+-- It can take up to 20 minutes to create and provision an HSM. You can+-- monitor the status of the HSM with the DescribeHsm operation. The HSM is+-- ready to be initialized when the status changes to @RUNNING@.+module Amazonka.CloudHSM.CreateHsm+  ( -- * Creating a Request+    CreateHsm (..),+    newCreateHsm,++    -- * Request Lenses+    createHsm_clientToken,+    createHsm_eniIp,+    createHsm_externalId,+    createHsm_syslogIp,+    createHsm_subnetId,+    createHsm_sshKey,+    createHsm_iamRoleArn,+    createHsm_subscriptionType,++    -- * Destructuring the Response+    CreateHsmResponse (..),+    newCreateHsmResponse,++    -- * Response Lenses+    createHsmResponse_hsmArn,+    createHsmResponse_httpStatus,+  )+where++import Amazonka.CloudHSM.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++-- | Contains the inputs for the @CreateHsm@ operation.+--+-- /See:/ 'newCreateHsm' smart constructor.+data CreateHsm = CreateHsm'+  { -- | A user-defined token to ensure idempotence. Subsequent calls to this+    -- operation with the same token will be ignored.+    clientToken :: Prelude.Maybe Prelude.Text,+    -- | The IP address to assign to the HSM\'s ENI.+    --+    -- If an IP address is not specified, an IP address will be randomly chosen+    -- from the CIDR range of the subnet.+    eniIp :: Prelude.Maybe Prelude.Text,+    -- | The external ID from @IamRoleArn@, if present.+    externalId :: Prelude.Maybe Prelude.Text,+    -- | The IP address for the syslog monitoring server. The AWS CloudHSM+    -- service only supports one syslog monitoring server.+    syslogIp :: Prelude.Maybe Prelude.Text,+    -- | The identifier of the subnet in your VPC in which to place the HSM.+    subnetId :: Prelude.Text,+    -- | The SSH public key to install on the HSM.+    sshKey :: Prelude.Text,+    -- | The ARN of an IAM role to enable the AWS CloudHSM service to allocate an+    -- ENI on your behalf.+    iamRoleArn :: Prelude.Text,+    subscriptionType :: SubscriptionType+  }+  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:+--+-- 'clientToken', 'createHsm_clientToken' - A user-defined token to ensure idempotence. Subsequent calls to this+-- operation with the same token will be ignored.+--+-- 'eniIp', 'createHsm_eniIp' - The IP address to assign to the HSM\'s ENI.+--+-- If an IP address is not specified, an IP address will be randomly chosen+-- from the CIDR range of the subnet.+--+-- 'externalId', 'createHsm_externalId' - The external ID from @IamRoleArn@, if present.+--+-- 'syslogIp', 'createHsm_syslogIp' - The IP address for the syslog monitoring server. The AWS CloudHSM+-- service only supports one syslog monitoring server.+--+-- 'subnetId', 'createHsm_subnetId' - The identifier of the subnet in your VPC in which to place the HSM.+--+-- 'sshKey', 'createHsm_sshKey' - The SSH public key to install on the HSM.+--+-- 'iamRoleArn', 'createHsm_iamRoleArn' - The ARN of an IAM role to enable the AWS CloudHSM service to allocate an+-- ENI on your behalf.+--+-- 'subscriptionType', 'createHsm_subscriptionType' - Undocumented member.+newCreateHsm ::+  -- | 'subnetId'+  Prelude.Text ->+  -- | 'sshKey'+  Prelude.Text ->+  -- | 'iamRoleArn'+  Prelude.Text ->+  -- | 'subscriptionType'+  SubscriptionType ->+  CreateHsm+newCreateHsm+  pSubnetId_+  pSshKey_+  pIamRoleArn_+  pSubscriptionType_ =+    CreateHsm'+      { clientToken = Prelude.Nothing,+        eniIp = Prelude.Nothing,+        externalId = Prelude.Nothing,+        syslogIp = Prelude.Nothing,+        subnetId = pSubnetId_,+        sshKey = pSshKey_,+        iamRoleArn = pIamRoleArn_,+        subscriptionType = pSubscriptionType_+      }++-- | A user-defined token to ensure idempotence. Subsequent calls to this+-- operation with the same token will be ignored.+createHsm_clientToken :: Lens.Lens' CreateHsm (Prelude.Maybe Prelude.Text)+createHsm_clientToken = Lens.lens (\CreateHsm' {clientToken} -> clientToken) (\s@CreateHsm' {} a -> s {clientToken = a} :: CreateHsm)++-- | The IP address to assign to the HSM\'s ENI.+--+-- If an IP address is not specified, an IP address will be randomly chosen+-- from the CIDR range of the subnet.+createHsm_eniIp :: Lens.Lens' CreateHsm (Prelude.Maybe Prelude.Text)+createHsm_eniIp = Lens.lens (\CreateHsm' {eniIp} -> eniIp) (\s@CreateHsm' {} a -> s {eniIp = a} :: CreateHsm)++-- | The external ID from @IamRoleArn@, if present.+createHsm_externalId :: Lens.Lens' CreateHsm (Prelude.Maybe Prelude.Text)+createHsm_externalId = Lens.lens (\CreateHsm' {externalId} -> externalId) (\s@CreateHsm' {} a -> s {externalId = a} :: CreateHsm)++-- | The IP address for the syslog monitoring server. The AWS CloudHSM+-- service only supports one syslog monitoring server.+createHsm_syslogIp :: Lens.Lens' CreateHsm (Prelude.Maybe Prelude.Text)+createHsm_syslogIp = Lens.lens (\CreateHsm' {syslogIp} -> syslogIp) (\s@CreateHsm' {} a -> s {syslogIp = a} :: CreateHsm)++-- | The identifier of the subnet in your VPC in which to place the HSM.+createHsm_subnetId :: Lens.Lens' CreateHsm Prelude.Text+createHsm_subnetId = Lens.lens (\CreateHsm' {subnetId} -> subnetId) (\s@CreateHsm' {} a -> s {subnetId = a} :: CreateHsm)++-- | The SSH public key to install on the HSM.+createHsm_sshKey :: Lens.Lens' CreateHsm Prelude.Text+createHsm_sshKey = Lens.lens (\CreateHsm' {sshKey} -> sshKey) (\s@CreateHsm' {} a -> s {sshKey = a} :: CreateHsm)++-- | The ARN of an IAM role to enable the AWS CloudHSM service to allocate an+-- ENI on your behalf.+createHsm_iamRoleArn :: Lens.Lens' CreateHsm Prelude.Text+createHsm_iamRoleArn = Lens.lens (\CreateHsm' {iamRoleArn} -> iamRoleArn) (\s@CreateHsm' {} a -> s {iamRoleArn = a} :: CreateHsm)++-- | Undocumented member.+createHsm_subscriptionType :: Lens.Lens' CreateHsm SubscriptionType+createHsm_subscriptionType = Lens.lens (\CreateHsm' {subscriptionType} -> subscriptionType) (\s@CreateHsm' {} a -> s {subscriptionType = 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..?> "HsmArn")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateHsm where+  hashWithSalt _salt CreateHsm' {..} =+    _salt+      `Prelude.hashWithSalt` clientToken+      `Prelude.hashWithSalt` eniIp+      `Prelude.hashWithSalt` externalId+      `Prelude.hashWithSalt` syslogIp+      `Prelude.hashWithSalt` subnetId+      `Prelude.hashWithSalt` sshKey+      `Prelude.hashWithSalt` iamRoleArn+      `Prelude.hashWithSalt` subscriptionType++instance Prelude.NFData CreateHsm where+  rnf CreateHsm' {..} =+    Prelude.rnf clientToken+      `Prelude.seq` Prelude.rnf eniIp+      `Prelude.seq` Prelude.rnf externalId+      `Prelude.seq` Prelude.rnf syslogIp+      `Prelude.seq` Prelude.rnf subnetId+      `Prelude.seq` Prelude.rnf sshKey+      `Prelude.seq` Prelude.rnf iamRoleArn+      `Prelude.seq` Prelude.rnf subscriptionType++instance Data.ToHeaders CreateHsm where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "CloudHsmFrontendService.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+          [ ("ClientToken" Data..=) Prelude.<$> clientToken,+            ("EniIp" Data..=) Prelude.<$> eniIp,+            ("ExternalId" Data..=) Prelude.<$> externalId,+            ("SyslogIp" Data..=) Prelude.<$> syslogIp,+            Prelude.Just ("SubnetId" Data..= subnetId),+            Prelude.Just ("SshKey" Data..= sshKey),+            Prelude.Just ("IamRoleArn" Data..= iamRoleArn),+            Prelude.Just+              ("SubscriptionType" Data..= subscriptionType)+          ]+      )++instance Data.ToPath CreateHsm where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateHsm where+  toQuery = Prelude.const Prelude.mempty++-- | Contains the output of the @CreateHsm@ operation.+--+-- /See:/ 'newCreateHsmResponse' smart constructor.+data CreateHsmResponse = CreateHsmResponse'+  { -- | The ARN of the HSM.+    hsmArn :: 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 '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:+--+-- 'hsmArn', 'createHsmResponse_hsmArn' - The ARN of the HSM.+--+-- 'httpStatus', 'createHsmResponse_httpStatus' - The response's http status code.+newCreateHsmResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateHsmResponse+newCreateHsmResponse pHttpStatus_ =+  CreateHsmResponse'+    { hsmArn = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The ARN of the HSM.+createHsmResponse_hsmArn :: Lens.Lens' CreateHsmResponse (Prelude.Maybe Prelude.Text)+createHsmResponse_hsmArn = Lens.lens (\CreateHsmResponse' {hsmArn} -> hsmArn) (\s@CreateHsmResponse' {} a -> s {hsmArn = 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 hsmArn+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,207 @@+{-# 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.CloudHSM.CreateLunaClient+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- This is documentation for __AWS CloudHSM Classic__. For more+-- information, see+-- <http://aws.amazon.com/cloudhsm/faqs-classic/ AWS CloudHSM Classic FAQs>,+-- the+-- <https://docs.aws.amazon.com/cloudhsm/classic/userguide/ AWS CloudHSM Classic User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/classic/APIReference/ AWS CloudHSM Classic API Reference>.+--+-- __For information about the current version of AWS CloudHSM__, see+-- <http://aws.amazon.com/cloudhsm/ AWS CloudHSM>, the+-- <https://docs.aws.amazon.com/cloudhsm/latest/userguide/ AWS CloudHSM User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/latest/APIReference/ AWS CloudHSM API Reference>.+--+-- Creates an HSM client.+module Amazonka.CloudHSM.CreateLunaClient+  ( -- * Creating a Request+    CreateLunaClient (..),+    newCreateLunaClient,++    -- * Request Lenses+    createLunaClient_label,+    createLunaClient_certificate,++    -- * Destructuring the Response+    CreateLunaClientResponse (..),+    newCreateLunaClientResponse,++    -- * Response Lenses+    createLunaClientResponse_clientArn,+    createLunaClientResponse_httpStatus,+  )+where++import Amazonka.CloudHSM.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++-- | Contains the inputs for the CreateLunaClient action.+--+-- /See:/ 'newCreateLunaClient' smart constructor.+data CreateLunaClient = CreateLunaClient'+  { -- | The label for the client.+    label :: Prelude.Maybe Prelude.Text,+    -- | The contents of a Base64-Encoded X.509 v3 certificate to be installed on+    -- the HSMs used by this client.+    certificate :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateLunaClient' 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:+--+-- 'label', 'createLunaClient_label' - The label for the client.+--+-- 'certificate', 'createLunaClient_certificate' - The contents of a Base64-Encoded X.509 v3 certificate to be installed on+-- the HSMs used by this client.+newCreateLunaClient ::+  -- | 'certificate'+  Prelude.Text ->+  CreateLunaClient+newCreateLunaClient pCertificate_ =+  CreateLunaClient'+    { label = Prelude.Nothing,+      certificate = pCertificate_+    }++-- | The label for the client.+createLunaClient_label :: Lens.Lens' CreateLunaClient (Prelude.Maybe Prelude.Text)+createLunaClient_label = Lens.lens (\CreateLunaClient' {label} -> label) (\s@CreateLunaClient' {} a -> s {label = a} :: CreateLunaClient)++-- | The contents of a Base64-Encoded X.509 v3 certificate to be installed on+-- the HSMs used by this client.+createLunaClient_certificate :: Lens.Lens' CreateLunaClient Prelude.Text+createLunaClient_certificate = Lens.lens (\CreateLunaClient' {certificate} -> certificate) (\s@CreateLunaClient' {} a -> s {certificate = a} :: CreateLunaClient)++instance Core.AWSRequest CreateLunaClient where+  type+    AWSResponse CreateLunaClient =+      CreateLunaClientResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateLunaClientResponse'+            Prelude.<$> (x Data..?> "ClientArn")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateLunaClient where+  hashWithSalt _salt CreateLunaClient' {..} =+    _salt+      `Prelude.hashWithSalt` label+      `Prelude.hashWithSalt` certificate++instance Prelude.NFData CreateLunaClient where+  rnf CreateLunaClient' {..} =+    Prelude.rnf label+      `Prelude.seq` Prelude.rnf certificate++instance Data.ToHeaders CreateLunaClient where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "CloudHsmFrontendService.CreateLunaClient" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateLunaClient where+  toJSON CreateLunaClient' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Label" Data..=) Prelude.<$> label,+            Prelude.Just ("Certificate" Data..= certificate)+          ]+      )++instance Data.ToPath CreateLunaClient where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateLunaClient where+  toQuery = Prelude.const Prelude.mempty++-- | Contains the output of the CreateLunaClient action.+--+-- /See:/ 'newCreateLunaClientResponse' smart constructor.+data CreateLunaClientResponse = CreateLunaClientResponse'+  { -- | The ARN of the client.+    clientArn :: 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 'CreateLunaClientResponse' 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:+--+-- 'clientArn', 'createLunaClientResponse_clientArn' - The ARN of the client.+--+-- 'httpStatus', 'createLunaClientResponse_httpStatus' - The response's http status code.+newCreateLunaClientResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateLunaClientResponse+newCreateLunaClientResponse pHttpStatus_ =+  CreateLunaClientResponse'+    { clientArn =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The ARN of the client.+createLunaClientResponse_clientArn :: Lens.Lens' CreateLunaClientResponse (Prelude.Maybe Prelude.Text)+createLunaClientResponse_clientArn = Lens.lens (\CreateLunaClientResponse' {clientArn} -> clientArn) (\s@CreateLunaClientResponse' {} a -> s {clientArn = a} :: CreateLunaClientResponse)++-- | The response's http status code.+createLunaClientResponse_httpStatus :: Lens.Lens' CreateLunaClientResponse Prelude.Int+createLunaClientResponse_httpStatus = Lens.lens (\CreateLunaClientResponse' {httpStatus} -> httpStatus) (\s@CreateLunaClientResponse' {} a -> s {httpStatus = a} :: CreateLunaClientResponse)++instance Prelude.NFData CreateLunaClientResponse where+  rnf CreateLunaClientResponse' {..} =+    Prelude.rnf clientArn+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,185 @@+{-# 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.CloudHSM.DeleteHapg+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- This is documentation for __AWS CloudHSM Classic__. For more+-- information, see+-- <http://aws.amazon.com/cloudhsm/faqs-classic/ AWS CloudHSM Classic FAQs>,+-- the+-- <https://docs.aws.amazon.com/cloudhsm/classic/userguide/ AWS CloudHSM Classic User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/classic/APIReference/ AWS CloudHSM Classic API Reference>.+--+-- __For information about the current version of AWS CloudHSM__, see+-- <http://aws.amazon.com/cloudhsm/ AWS CloudHSM>, the+-- <https://docs.aws.amazon.com/cloudhsm/latest/userguide/ AWS CloudHSM User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/latest/APIReference/ AWS CloudHSM API Reference>.+--+-- Deletes a high-availability partition group.+module Amazonka.CloudHSM.DeleteHapg+  ( -- * Creating a Request+    DeleteHapg (..),+    newDeleteHapg,++    -- * Request Lenses+    deleteHapg_hapgArn,++    -- * Destructuring the Response+    DeleteHapgResponse (..),+    newDeleteHapgResponse,++    -- * Response Lenses+    deleteHapgResponse_httpStatus,+    deleteHapgResponse_status,+  )+where++import Amazonka.CloudHSM.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++-- | Contains the inputs for the DeleteHapg action.+--+-- /See:/ 'newDeleteHapg' smart constructor.+data DeleteHapg = DeleteHapg'+  { -- | The ARN of the high-availability partition group to delete.+    hapgArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteHapg' 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:+--+-- 'hapgArn', 'deleteHapg_hapgArn' - The ARN of the high-availability partition group to delete.+newDeleteHapg ::+  -- | 'hapgArn'+  Prelude.Text ->+  DeleteHapg+newDeleteHapg pHapgArn_ =+  DeleteHapg' {hapgArn = pHapgArn_}++-- | The ARN of the high-availability partition group to delete.+deleteHapg_hapgArn :: Lens.Lens' DeleteHapg Prelude.Text+deleteHapg_hapgArn = Lens.lens (\DeleteHapg' {hapgArn} -> hapgArn) (\s@DeleteHapg' {} a -> s {hapgArn = a} :: DeleteHapg)++instance Core.AWSRequest DeleteHapg where+  type AWSResponse DeleteHapg = DeleteHapgResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DeleteHapgResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "Status")+      )++instance Prelude.Hashable DeleteHapg where+  hashWithSalt _salt DeleteHapg' {..} =+    _salt `Prelude.hashWithSalt` hapgArn++instance Prelude.NFData DeleteHapg where+  rnf DeleteHapg' {..} = Prelude.rnf hapgArn++instance Data.ToHeaders DeleteHapg where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "CloudHsmFrontendService.DeleteHapg" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteHapg where+  toJSON DeleteHapg' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("HapgArn" Data..= hapgArn)]+      )++instance Data.ToPath DeleteHapg where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteHapg where+  toQuery = Prelude.const Prelude.mempty++-- | Contains the output of the DeleteHapg action.+--+-- /See:/ 'newDeleteHapgResponse' smart constructor.+data DeleteHapgResponse = DeleteHapgResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The status of the action.+    status :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteHapgResponse' 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', 'deleteHapgResponse_httpStatus' - The response's http status code.+--+-- 'status', 'deleteHapgResponse_status' - The status of the action.+newDeleteHapgResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'status'+  Prelude.Text ->+  DeleteHapgResponse+newDeleteHapgResponse pHttpStatus_ pStatus_ =+  DeleteHapgResponse'+    { httpStatus = pHttpStatus_,+      status = pStatus_+    }++-- | The response's http status code.+deleteHapgResponse_httpStatus :: Lens.Lens' DeleteHapgResponse Prelude.Int+deleteHapgResponse_httpStatus = Lens.lens (\DeleteHapgResponse' {httpStatus} -> httpStatus) (\s@DeleteHapgResponse' {} a -> s {httpStatus = a} :: DeleteHapgResponse)++-- | The status of the action.+deleteHapgResponse_status :: Lens.Lens' DeleteHapgResponse Prelude.Text+deleteHapgResponse_status = Lens.lens (\DeleteHapgResponse' {status} -> status) (\s@DeleteHapgResponse' {} a -> s {status = a} :: DeleteHapgResponse)++instance Prelude.NFData DeleteHapgResponse where+  rnf DeleteHapgResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf status

@@ -0,0 +1,185 @@+{-# 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.CloudHSM.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)+--+-- This is documentation for __AWS CloudHSM Classic__. For more+-- information, see+-- <http://aws.amazon.com/cloudhsm/faqs-classic/ AWS CloudHSM Classic FAQs>,+-- the+-- <https://docs.aws.amazon.com/cloudhsm/classic/userguide/ AWS CloudHSM Classic User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/classic/APIReference/ AWS CloudHSM Classic API Reference>.+--+-- __For information about the current version of AWS CloudHSM__, see+-- <http://aws.amazon.com/cloudhsm/ AWS CloudHSM>, the+-- <https://docs.aws.amazon.com/cloudhsm/latest/userguide/ AWS CloudHSM User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/latest/APIReference/ AWS CloudHSM API Reference>.+--+-- Deletes an HSM. After completion, this operation cannot be undone and+-- your key material cannot be recovered.+module Amazonka.CloudHSM.DeleteHsm+  ( -- * Creating a Request+    DeleteHsm (..),+    newDeleteHsm,++    -- * Request Lenses+    deleteHsm_hsmArn,++    -- * Destructuring the Response+    DeleteHsmResponse (..),+    newDeleteHsmResponse,++    -- * Response Lenses+    deleteHsmResponse_httpStatus,+    deleteHsmResponse_status,+  )+where++import Amazonka.CloudHSM.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++-- | Contains the inputs for the DeleteHsm operation.+--+-- /See:/ 'newDeleteHsm' smart constructor.+data DeleteHsm = DeleteHsm'+  { -- | The ARN of the HSM to delete.+    hsmArn :: 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:+--+-- 'hsmArn', 'deleteHsm_hsmArn' - The ARN of the HSM to delete.+newDeleteHsm ::+  -- | 'hsmArn'+  Prelude.Text ->+  DeleteHsm+newDeleteHsm pHsmArn_ = DeleteHsm' {hsmArn = pHsmArn_}++-- | The ARN of the HSM to delete.+deleteHsm_hsmArn :: Lens.Lens' DeleteHsm Prelude.Text+deleteHsm_hsmArn = Lens.lens (\DeleteHsm' {hsmArn} -> hsmArn) (\s@DeleteHsm' {} a -> s {hsmArn = 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.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "Status")+      )++instance Prelude.Hashable DeleteHsm where+  hashWithSalt _salt DeleteHsm' {..} =+    _salt `Prelude.hashWithSalt` hsmArn++instance Prelude.NFData DeleteHsm where+  rnf DeleteHsm' {..} = Prelude.rnf hsmArn++instance Data.ToHeaders DeleteHsm where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "CloudHsmFrontendService.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+          [Prelude.Just ("HsmArn" Data..= hsmArn)]+      )++instance Data.ToPath DeleteHsm where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteHsm where+  toQuery = Prelude.const Prelude.mempty++-- | Contains the output of the DeleteHsm operation.+--+-- /See:/ 'newDeleteHsmResponse' smart constructor.+data DeleteHsmResponse = DeleteHsmResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The status of the operation.+    status :: Prelude.Text+  }+  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:+--+-- 'httpStatus', 'deleteHsmResponse_httpStatus' - The response's http status code.+--+-- 'status', 'deleteHsmResponse_status' - The status of the operation.+newDeleteHsmResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'status'+  Prelude.Text ->+  DeleteHsmResponse+newDeleteHsmResponse pHttpStatus_ pStatus_ =+  DeleteHsmResponse'+    { httpStatus = pHttpStatus_,+      status = pStatus_+    }++-- | 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)++-- | The status of the operation.+deleteHsmResponse_status :: Lens.Lens' DeleteHsmResponse Prelude.Text+deleteHsmResponse_status = Lens.lens (\DeleteHsmResponse' {status} -> status) (\s@DeleteHsmResponse' {} a -> s {status = a} :: DeleteHsmResponse)++instance Prelude.NFData DeleteHsmResponse where+  rnf DeleteHsmResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf status

@@ -0,0 +1,184 @@+{-# 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.CloudHSM.DeleteLunaClient+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- This is documentation for __AWS CloudHSM Classic__. For more+-- information, see+-- <http://aws.amazon.com/cloudhsm/faqs-classic/ AWS CloudHSM Classic FAQs>,+-- the+-- <https://docs.aws.amazon.com/cloudhsm/classic/userguide/ AWS CloudHSM Classic User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/classic/APIReference/ AWS CloudHSM Classic API Reference>.+--+-- __For information about the current version of AWS CloudHSM__, see+-- <http://aws.amazon.com/cloudhsm/ AWS CloudHSM>, the+-- <https://docs.aws.amazon.com/cloudhsm/latest/userguide/ AWS CloudHSM User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/latest/APIReference/ AWS CloudHSM API Reference>.+--+-- Deletes a client.+module Amazonka.CloudHSM.DeleteLunaClient+  ( -- * Creating a Request+    DeleteLunaClient (..),+    newDeleteLunaClient,++    -- * Request Lenses+    deleteLunaClient_clientArn,++    -- * Destructuring the Response+    DeleteLunaClientResponse (..),+    newDeleteLunaClientResponse,++    -- * Response Lenses+    deleteLunaClientResponse_httpStatus,+    deleteLunaClientResponse_status,+  )+where++import Amazonka.CloudHSM.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:/ 'newDeleteLunaClient' smart constructor.+data DeleteLunaClient = DeleteLunaClient'+  { -- | The ARN of the client to delete.+    clientArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteLunaClient' 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:+--+-- 'clientArn', 'deleteLunaClient_clientArn' - The ARN of the client to delete.+newDeleteLunaClient ::+  -- | 'clientArn'+  Prelude.Text ->+  DeleteLunaClient+newDeleteLunaClient pClientArn_ =+  DeleteLunaClient' {clientArn = pClientArn_}++-- | The ARN of the client to delete.+deleteLunaClient_clientArn :: Lens.Lens' DeleteLunaClient Prelude.Text+deleteLunaClient_clientArn = Lens.lens (\DeleteLunaClient' {clientArn} -> clientArn) (\s@DeleteLunaClient' {} a -> s {clientArn = a} :: DeleteLunaClient)++instance Core.AWSRequest DeleteLunaClient where+  type+    AWSResponse DeleteLunaClient =+      DeleteLunaClientResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DeleteLunaClientResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "Status")+      )++instance Prelude.Hashable DeleteLunaClient where+  hashWithSalt _salt DeleteLunaClient' {..} =+    _salt `Prelude.hashWithSalt` clientArn++instance Prelude.NFData DeleteLunaClient where+  rnf DeleteLunaClient' {..} = Prelude.rnf clientArn++instance Data.ToHeaders DeleteLunaClient where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "CloudHsmFrontendService.DeleteLunaClient" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteLunaClient where+  toJSON DeleteLunaClient' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("ClientArn" Data..= clientArn)]+      )++instance Data.ToPath DeleteLunaClient where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteLunaClient where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteLunaClientResponse' smart constructor.+data DeleteLunaClientResponse = DeleteLunaClientResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The status of the action.+    status :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteLunaClientResponse' 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', 'deleteLunaClientResponse_httpStatus' - The response's http status code.+--+-- 'status', 'deleteLunaClientResponse_status' - The status of the action.+newDeleteLunaClientResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'status'+  Prelude.Text ->+  DeleteLunaClientResponse+newDeleteLunaClientResponse pHttpStatus_ pStatus_ =+  DeleteLunaClientResponse'+    { httpStatus =+        pHttpStatus_,+      status = pStatus_+    }++-- | The response's http status code.+deleteLunaClientResponse_httpStatus :: Lens.Lens' DeleteLunaClientResponse Prelude.Int+deleteLunaClientResponse_httpStatus = Lens.lens (\DeleteLunaClientResponse' {httpStatus} -> httpStatus) (\s@DeleteLunaClientResponse' {} a -> s {httpStatus = a} :: DeleteLunaClientResponse)++-- | The status of the action.+deleteLunaClientResponse_status :: Lens.Lens' DeleteLunaClientResponse Prelude.Text+deleteLunaClientResponse_status = Lens.lens (\DeleteLunaClientResponse' {status} -> status) (\s@DeleteLunaClientResponse' {} a -> s {status = a} :: DeleteLunaClientResponse)++instance Prelude.NFData DeleteLunaClientResponse where+  rnf DeleteLunaClientResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf status

@@ -0,0 +1,291 @@+{-# 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.CloudHSM.DescribeHapg+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- This is documentation for __AWS CloudHSM Classic__. For more+-- information, see+-- <http://aws.amazon.com/cloudhsm/faqs-classic/ AWS CloudHSM Classic FAQs>,+-- the+-- <https://docs.aws.amazon.com/cloudhsm/classic/userguide/ AWS CloudHSM Classic User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/classic/APIReference/ AWS CloudHSM Classic API Reference>.+--+-- __For information about the current version of AWS CloudHSM__, see+-- <http://aws.amazon.com/cloudhsm/ AWS CloudHSM>, the+-- <https://docs.aws.amazon.com/cloudhsm/latest/userguide/ AWS CloudHSM User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/latest/APIReference/ AWS CloudHSM API Reference>.+--+-- Retrieves information about a high-availability partition group.+module Amazonka.CloudHSM.DescribeHapg+  ( -- * Creating a Request+    DescribeHapg (..),+    newDescribeHapg,++    -- * Request Lenses+    describeHapg_hapgArn,++    -- * Destructuring the Response+    DescribeHapgResponse (..),+    newDescribeHapgResponse,++    -- * Response Lenses+    describeHapgResponse_hapgArn,+    describeHapgResponse_hapgSerial,+    describeHapgResponse_hsmsLastActionFailed,+    describeHapgResponse_hsmsPendingDeletion,+    describeHapgResponse_hsmsPendingRegistration,+    describeHapgResponse_label,+    describeHapgResponse_lastModifiedTimestamp,+    describeHapgResponse_partitionSerialList,+    describeHapgResponse_state,+    describeHapgResponse_httpStatus,+  )+where++import Amazonka.CloudHSM.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++-- | Contains the inputs for the DescribeHapg action.+--+-- /See:/ 'newDescribeHapg' smart constructor.+data DescribeHapg = DescribeHapg'+  { -- | The ARN of the high-availability partition group to describe.+    hapgArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeHapg' 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:+--+-- 'hapgArn', 'describeHapg_hapgArn' - The ARN of the high-availability partition group to describe.+newDescribeHapg ::+  -- | 'hapgArn'+  Prelude.Text ->+  DescribeHapg+newDescribeHapg pHapgArn_ =+  DescribeHapg' {hapgArn = pHapgArn_}++-- | The ARN of the high-availability partition group to describe.+describeHapg_hapgArn :: Lens.Lens' DescribeHapg Prelude.Text+describeHapg_hapgArn = Lens.lens (\DescribeHapg' {hapgArn} -> hapgArn) (\s@DescribeHapg' {} a -> s {hapgArn = a} :: DescribeHapg)++instance Core.AWSRequest DescribeHapg where+  type AWSResponse DescribeHapg = DescribeHapgResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeHapgResponse'+            Prelude.<$> (x Data..?> "HapgArn")+            Prelude.<*> (x Data..?> "HapgSerial")+            Prelude.<*> ( x+                            Data..?> "HsmsLastActionFailed"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> ( x+                            Data..?> "HsmsPendingDeletion"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> ( x+                            Data..?> "HsmsPendingRegistration"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (x Data..?> "Label")+            Prelude.<*> (x Data..?> "LastModifiedTimestamp")+            Prelude.<*> ( x+                            Data..?> "PartitionSerialList"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (x Data..?> "State")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeHapg where+  hashWithSalt _salt DescribeHapg' {..} =+    _salt `Prelude.hashWithSalt` hapgArn++instance Prelude.NFData DescribeHapg where+  rnf DescribeHapg' {..} = Prelude.rnf hapgArn++instance Data.ToHeaders DescribeHapg where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "CloudHsmFrontendService.DescribeHapg" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeHapg where+  toJSON DescribeHapg' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("HapgArn" Data..= hapgArn)]+      )++instance Data.ToPath DescribeHapg where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeHapg where+  toQuery = Prelude.const Prelude.mempty++-- | Contains the output of the DescribeHapg action.+--+-- /See:/ 'newDescribeHapgResponse' smart constructor.+data DescribeHapgResponse = DescribeHapgResponse'+  { -- | The ARN of the high-availability partition group.+    hapgArn :: Prelude.Maybe Prelude.Text,+    -- | The serial number of the high-availability partition group.+    hapgSerial :: Prelude.Maybe Prelude.Text,+    hsmsLastActionFailed :: Prelude.Maybe [Prelude.Text],+    hsmsPendingDeletion :: Prelude.Maybe [Prelude.Text],+    hsmsPendingRegistration :: Prelude.Maybe [Prelude.Text],+    -- | The label for the high-availability partition group.+    label :: Prelude.Maybe Prelude.Text,+    -- | The date and time the high-availability partition group was last+    -- modified.+    lastModifiedTimestamp :: Prelude.Maybe Prelude.Text,+    -- | The list of partition serial numbers that belong to the+    -- high-availability partition group.+    partitionSerialList :: Prelude.Maybe [Prelude.Text],+    -- | The state of the high-availability partition group.+    state :: Prelude.Maybe CloudHsmObjectState,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeHapgResponse' 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:+--+-- 'hapgArn', 'describeHapgResponse_hapgArn' - The ARN of the high-availability partition group.+--+-- 'hapgSerial', 'describeHapgResponse_hapgSerial' - The serial number of the high-availability partition group.+--+-- 'hsmsLastActionFailed', 'describeHapgResponse_hsmsLastActionFailed' -+--+-- 'hsmsPendingDeletion', 'describeHapgResponse_hsmsPendingDeletion' -+--+-- 'hsmsPendingRegistration', 'describeHapgResponse_hsmsPendingRegistration' -+--+-- 'label', 'describeHapgResponse_label' - The label for the high-availability partition group.+--+-- 'lastModifiedTimestamp', 'describeHapgResponse_lastModifiedTimestamp' - The date and time the high-availability partition group was last+-- modified.+--+-- 'partitionSerialList', 'describeHapgResponse_partitionSerialList' - The list of partition serial numbers that belong to the+-- high-availability partition group.+--+-- 'state', 'describeHapgResponse_state' - The state of the high-availability partition group.+--+-- 'httpStatus', 'describeHapgResponse_httpStatus' - The response's http status code.+newDescribeHapgResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeHapgResponse+newDescribeHapgResponse pHttpStatus_ =+  DescribeHapgResponse'+    { hapgArn = Prelude.Nothing,+      hapgSerial = Prelude.Nothing,+      hsmsLastActionFailed = Prelude.Nothing,+      hsmsPendingDeletion = Prelude.Nothing,+      hsmsPendingRegistration = Prelude.Nothing,+      label = Prelude.Nothing,+      lastModifiedTimestamp = Prelude.Nothing,+      partitionSerialList = Prelude.Nothing,+      state = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The ARN of the high-availability partition group.+describeHapgResponse_hapgArn :: Lens.Lens' DescribeHapgResponse (Prelude.Maybe Prelude.Text)+describeHapgResponse_hapgArn = Lens.lens (\DescribeHapgResponse' {hapgArn} -> hapgArn) (\s@DescribeHapgResponse' {} a -> s {hapgArn = a} :: DescribeHapgResponse)++-- | The serial number of the high-availability partition group.+describeHapgResponse_hapgSerial :: Lens.Lens' DescribeHapgResponse (Prelude.Maybe Prelude.Text)+describeHapgResponse_hapgSerial = Lens.lens (\DescribeHapgResponse' {hapgSerial} -> hapgSerial) (\s@DescribeHapgResponse' {} a -> s {hapgSerial = a} :: DescribeHapgResponse)++describeHapgResponse_hsmsLastActionFailed :: Lens.Lens' DescribeHapgResponse (Prelude.Maybe [Prelude.Text])+describeHapgResponse_hsmsLastActionFailed = Lens.lens (\DescribeHapgResponse' {hsmsLastActionFailed} -> hsmsLastActionFailed) (\s@DescribeHapgResponse' {} a -> s {hsmsLastActionFailed = a} :: DescribeHapgResponse) Prelude.. Lens.mapping Lens.coerced++describeHapgResponse_hsmsPendingDeletion :: Lens.Lens' DescribeHapgResponse (Prelude.Maybe [Prelude.Text])+describeHapgResponse_hsmsPendingDeletion = Lens.lens (\DescribeHapgResponse' {hsmsPendingDeletion} -> hsmsPendingDeletion) (\s@DescribeHapgResponse' {} a -> s {hsmsPendingDeletion = a} :: DescribeHapgResponse) Prelude.. Lens.mapping Lens.coerced++describeHapgResponse_hsmsPendingRegistration :: Lens.Lens' DescribeHapgResponse (Prelude.Maybe [Prelude.Text])+describeHapgResponse_hsmsPendingRegistration = Lens.lens (\DescribeHapgResponse' {hsmsPendingRegistration} -> hsmsPendingRegistration) (\s@DescribeHapgResponse' {} a -> s {hsmsPendingRegistration = a} :: DescribeHapgResponse) Prelude.. Lens.mapping Lens.coerced++-- | The label for the high-availability partition group.+describeHapgResponse_label :: Lens.Lens' DescribeHapgResponse (Prelude.Maybe Prelude.Text)+describeHapgResponse_label = Lens.lens (\DescribeHapgResponse' {label} -> label) (\s@DescribeHapgResponse' {} a -> s {label = a} :: DescribeHapgResponse)++-- | The date and time the high-availability partition group was last+-- modified.+describeHapgResponse_lastModifiedTimestamp :: Lens.Lens' DescribeHapgResponse (Prelude.Maybe Prelude.Text)+describeHapgResponse_lastModifiedTimestamp = Lens.lens (\DescribeHapgResponse' {lastModifiedTimestamp} -> lastModifiedTimestamp) (\s@DescribeHapgResponse' {} a -> s {lastModifiedTimestamp = a} :: DescribeHapgResponse)++-- | The list of partition serial numbers that belong to the+-- high-availability partition group.+describeHapgResponse_partitionSerialList :: Lens.Lens' DescribeHapgResponse (Prelude.Maybe [Prelude.Text])+describeHapgResponse_partitionSerialList = Lens.lens (\DescribeHapgResponse' {partitionSerialList} -> partitionSerialList) (\s@DescribeHapgResponse' {} a -> s {partitionSerialList = a} :: DescribeHapgResponse) Prelude.. Lens.mapping Lens.coerced++-- | The state of the high-availability partition group.+describeHapgResponse_state :: Lens.Lens' DescribeHapgResponse (Prelude.Maybe CloudHsmObjectState)+describeHapgResponse_state = Lens.lens (\DescribeHapgResponse' {state} -> state) (\s@DescribeHapgResponse' {} a -> s {state = a} :: DescribeHapgResponse)++-- | The response's http status code.+describeHapgResponse_httpStatus :: Lens.Lens' DescribeHapgResponse Prelude.Int+describeHapgResponse_httpStatus = Lens.lens (\DescribeHapgResponse' {httpStatus} -> httpStatus) (\s@DescribeHapgResponse' {} a -> s {httpStatus = a} :: DescribeHapgResponse)++instance Prelude.NFData DescribeHapgResponse where+  rnf DescribeHapgResponse' {..} =+    Prelude.rnf hapgArn+      `Prelude.seq` Prelude.rnf hapgSerial+      `Prelude.seq` Prelude.rnf hsmsLastActionFailed+      `Prelude.seq` Prelude.rnf hsmsPendingDeletion+      `Prelude.seq` Prelude.rnf hsmsPendingRegistration+      `Prelude.seq` Prelude.rnf label+      `Prelude.seq` Prelude.rnf lastModifiedTimestamp+      `Prelude.seq` Prelude.rnf partitionSerialList+      `Prelude.seq` Prelude.rnf state+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,450 @@+{-# 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.CloudHSM.DescribeHsm+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- This is documentation for __AWS CloudHSM Classic__. For more+-- information, see+-- <http://aws.amazon.com/cloudhsm/faqs-classic/ AWS CloudHSM Classic FAQs>,+-- the+-- <https://docs.aws.amazon.com/cloudhsm/classic/userguide/ AWS CloudHSM Classic User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/classic/APIReference/ AWS CloudHSM Classic API Reference>.+--+-- __For information about the current version of AWS CloudHSM__, see+-- <http://aws.amazon.com/cloudhsm/ AWS CloudHSM>, the+-- <https://docs.aws.amazon.com/cloudhsm/latest/userguide/ AWS CloudHSM User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/latest/APIReference/ AWS CloudHSM API Reference>.+--+-- Retrieves information about an HSM. You can identify the HSM by its ARN+-- or its serial number.+module Amazonka.CloudHSM.DescribeHsm+  ( -- * Creating a Request+    DescribeHsm (..),+    newDescribeHsm,++    -- * Request Lenses+    describeHsm_hsmArn,+    describeHsm_hsmSerialNumber,++    -- * Destructuring the Response+    DescribeHsmResponse (..),+    newDescribeHsmResponse,++    -- * Response Lenses+    describeHsmResponse_availabilityZone,+    describeHsmResponse_eniId,+    describeHsmResponse_eniIp,+    describeHsmResponse_hsmArn,+    describeHsmResponse_hsmType,+    describeHsmResponse_iamRoleArn,+    describeHsmResponse_partitions,+    describeHsmResponse_serialNumber,+    describeHsmResponse_serverCertLastUpdated,+    describeHsmResponse_serverCertUri,+    describeHsmResponse_softwareVersion,+    describeHsmResponse_sshKeyLastUpdated,+    describeHsmResponse_sshPublicKey,+    describeHsmResponse_status,+    describeHsmResponse_statusDetails,+    describeHsmResponse_subnetId,+    describeHsmResponse_subscriptionEndDate,+    describeHsmResponse_subscriptionStartDate,+    describeHsmResponse_subscriptionType,+    describeHsmResponse_vendorName,+    describeHsmResponse_vpcId,+    describeHsmResponse_httpStatus,+  )+where++import Amazonka.CloudHSM.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++-- | Contains the inputs for the DescribeHsm operation.+--+-- /See:/ 'newDescribeHsm' smart constructor.+data DescribeHsm = DescribeHsm'+  { -- | The ARN of the HSM. Either the @HsmArn@ or the @SerialNumber@ parameter+    -- must be specified.+    hsmArn :: Prelude.Maybe Prelude.Text,+    -- | The serial number of the HSM. Either the @HsmArn@ or the+    -- @HsmSerialNumber@ parameter must be specified.+    hsmSerialNumber :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeHsm' 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:+--+-- 'hsmArn', 'describeHsm_hsmArn' - The ARN of the HSM. Either the @HsmArn@ or the @SerialNumber@ parameter+-- must be specified.+--+-- 'hsmSerialNumber', 'describeHsm_hsmSerialNumber' - The serial number of the HSM. Either the @HsmArn@ or the+-- @HsmSerialNumber@ parameter must be specified.+newDescribeHsm ::+  DescribeHsm+newDescribeHsm =+  DescribeHsm'+    { hsmArn = Prelude.Nothing,+      hsmSerialNumber = Prelude.Nothing+    }++-- | The ARN of the HSM. Either the @HsmArn@ or the @SerialNumber@ parameter+-- must be specified.+describeHsm_hsmArn :: Lens.Lens' DescribeHsm (Prelude.Maybe Prelude.Text)+describeHsm_hsmArn = Lens.lens (\DescribeHsm' {hsmArn} -> hsmArn) (\s@DescribeHsm' {} a -> s {hsmArn = a} :: DescribeHsm)++-- | The serial number of the HSM. Either the @HsmArn@ or the+-- @HsmSerialNumber@ parameter must be specified.+describeHsm_hsmSerialNumber :: Lens.Lens' DescribeHsm (Prelude.Maybe Prelude.Text)+describeHsm_hsmSerialNumber = Lens.lens (\DescribeHsm' {hsmSerialNumber} -> hsmSerialNumber) (\s@DescribeHsm' {} a -> s {hsmSerialNumber = a} :: DescribeHsm)++instance Core.AWSRequest DescribeHsm where+  type AWSResponse DescribeHsm = DescribeHsmResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeHsmResponse'+            Prelude.<$> (x Data..?> "AvailabilityZone")+            Prelude.<*> (x Data..?> "EniId")+            Prelude.<*> (x Data..?> "EniIp")+            Prelude.<*> (x Data..?> "HsmArn")+            Prelude.<*> (x Data..?> "HsmType")+            Prelude.<*> (x Data..?> "IamRoleArn")+            Prelude.<*> (x Data..?> "Partitions" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "SerialNumber")+            Prelude.<*> (x Data..?> "ServerCertLastUpdated")+            Prelude.<*> (x Data..?> "ServerCertUri")+            Prelude.<*> (x Data..?> "SoftwareVersion")+            Prelude.<*> (x Data..?> "SshKeyLastUpdated")+            Prelude.<*> (x Data..?> "SshPublicKey")+            Prelude.<*> (x Data..?> "Status")+            Prelude.<*> (x Data..?> "StatusDetails")+            Prelude.<*> (x Data..?> "SubnetId")+            Prelude.<*> (x Data..?> "SubscriptionEndDate")+            Prelude.<*> (x Data..?> "SubscriptionStartDate")+            Prelude.<*> (x Data..?> "SubscriptionType")+            Prelude.<*> (x Data..?> "VendorName")+            Prelude.<*> (x Data..?> "VpcId")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeHsm where+  hashWithSalt _salt DescribeHsm' {..} =+    _salt+      `Prelude.hashWithSalt` hsmArn+      `Prelude.hashWithSalt` hsmSerialNumber++instance Prelude.NFData DescribeHsm where+  rnf DescribeHsm' {..} =+    Prelude.rnf hsmArn+      `Prelude.seq` Prelude.rnf hsmSerialNumber++instance Data.ToHeaders DescribeHsm where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "CloudHsmFrontendService.DescribeHsm" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeHsm where+  toJSON DescribeHsm' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("HsmArn" Data..=) Prelude.<$> hsmArn,+            ("HsmSerialNumber" Data..=)+              Prelude.<$> hsmSerialNumber+          ]+      )++instance Data.ToPath DescribeHsm where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeHsm where+  toQuery = Prelude.const Prelude.mempty++-- | Contains the output of the DescribeHsm operation.+--+-- /See:/ 'newDescribeHsmResponse' smart constructor.+data DescribeHsmResponse = DescribeHsmResponse'+  { -- | The Availability Zone that the HSM is in.+    availabilityZone :: Prelude.Maybe Prelude.Text,+    -- | The identifier of the elastic network interface (ENI) attached to the+    -- HSM.+    eniId :: Prelude.Maybe Prelude.Text,+    -- | The IP address assigned to the HSM\'s ENI.+    eniIp :: Prelude.Maybe Prelude.Text,+    -- | The ARN of the HSM.+    hsmArn :: Prelude.Maybe Prelude.Text,+    -- | The HSM model type.+    hsmType :: Prelude.Maybe Prelude.Text,+    -- | The ARN of the IAM role assigned to the HSM.+    iamRoleArn :: Prelude.Maybe Prelude.Text,+    -- | The list of partitions on the HSM.+    partitions :: Prelude.Maybe [Prelude.Text],+    -- | The serial number of the HSM.+    serialNumber :: Prelude.Maybe Prelude.Text,+    -- | The date and time that the server certificate was last updated.+    serverCertLastUpdated :: Prelude.Maybe Prelude.Text,+    -- | The URI of the certificate server.+    serverCertUri :: Prelude.Maybe Prelude.Text,+    -- | The HSM software version.+    softwareVersion :: Prelude.Maybe Prelude.Text,+    -- | The date and time that the SSH key was last updated.+    sshKeyLastUpdated :: Prelude.Maybe Prelude.Text,+    -- | The public SSH key.+    sshPublicKey :: Prelude.Maybe Prelude.Text,+    -- | The status of the HSM.+    status :: Prelude.Maybe HsmStatus,+    -- | Contains additional information about the status of the HSM.+    statusDetails :: Prelude.Maybe Prelude.Text,+    -- | The identifier of the subnet that the HSM is in.+    subnetId :: Prelude.Maybe Prelude.Text,+    -- | The subscription end date.+    subscriptionEndDate :: Prelude.Maybe Prelude.Text,+    -- | The subscription start date.+    subscriptionStartDate :: Prelude.Maybe Prelude.Text,+    subscriptionType :: Prelude.Maybe SubscriptionType,+    -- | The name of the HSM vendor.+    vendorName :: Prelude.Maybe Prelude.Text,+    -- | The identifier of the VPC that the HSM is in.+    vpcId :: 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 'DescribeHsmResponse' 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', 'describeHsmResponse_availabilityZone' - The Availability Zone that the HSM is in.+--+-- 'eniId', 'describeHsmResponse_eniId' - The identifier of the elastic network interface (ENI) attached to the+-- HSM.+--+-- 'eniIp', 'describeHsmResponse_eniIp' - The IP address assigned to the HSM\'s ENI.+--+-- 'hsmArn', 'describeHsmResponse_hsmArn' - The ARN of the HSM.+--+-- 'hsmType', 'describeHsmResponse_hsmType' - The HSM model type.+--+-- 'iamRoleArn', 'describeHsmResponse_iamRoleArn' - The ARN of the IAM role assigned to the HSM.+--+-- 'partitions', 'describeHsmResponse_partitions' - The list of partitions on the HSM.+--+-- 'serialNumber', 'describeHsmResponse_serialNumber' - The serial number of the HSM.+--+-- 'serverCertLastUpdated', 'describeHsmResponse_serverCertLastUpdated' - The date and time that the server certificate was last updated.+--+-- 'serverCertUri', 'describeHsmResponse_serverCertUri' - The URI of the certificate server.+--+-- 'softwareVersion', 'describeHsmResponse_softwareVersion' - The HSM software version.+--+-- 'sshKeyLastUpdated', 'describeHsmResponse_sshKeyLastUpdated' - The date and time that the SSH key was last updated.+--+-- 'sshPublicKey', 'describeHsmResponse_sshPublicKey' - The public SSH key.+--+-- 'status', 'describeHsmResponse_status' - The status of the HSM.+--+-- 'statusDetails', 'describeHsmResponse_statusDetails' - Contains additional information about the status of the HSM.+--+-- 'subnetId', 'describeHsmResponse_subnetId' - The identifier of the subnet that the HSM is in.+--+-- 'subscriptionEndDate', 'describeHsmResponse_subscriptionEndDate' - The subscription end date.+--+-- 'subscriptionStartDate', 'describeHsmResponse_subscriptionStartDate' - The subscription start date.+--+-- 'subscriptionType', 'describeHsmResponse_subscriptionType' - Undocumented member.+--+-- 'vendorName', 'describeHsmResponse_vendorName' - The name of the HSM vendor.+--+-- 'vpcId', 'describeHsmResponse_vpcId' - The identifier of the VPC that the HSM is in.+--+-- 'httpStatus', 'describeHsmResponse_httpStatus' - The response's http status code.+newDescribeHsmResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeHsmResponse+newDescribeHsmResponse pHttpStatus_ =+  DescribeHsmResponse'+    { availabilityZone =+        Prelude.Nothing,+      eniId = Prelude.Nothing,+      eniIp = Prelude.Nothing,+      hsmArn = Prelude.Nothing,+      hsmType = Prelude.Nothing,+      iamRoleArn = Prelude.Nothing,+      partitions = Prelude.Nothing,+      serialNumber = Prelude.Nothing,+      serverCertLastUpdated = Prelude.Nothing,+      serverCertUri = Prelude.Nothing,+      softwareVersion = Prelude.Nothing,+      sshKeyLastUpdated = Prelude.Nothing,+      sshPublicKey = Prelude.Nothing,+      status = Prelude.Nothing,+      statusDetails = Prelude.Nothing,+      subnetId = Prelude.Nothing,+      subscriptionEndDate = Prelude.Nothing,+      subscriptionStartDate = Prelude.Nothing,+      subscriptionType = Prelude.Nothing,+      vendorName = Prelude.Nothing,+      vpcId = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The Availability Zone that the HSM is in.+describeHsmResponse_availabilityZone :: Lens.Lens' DescribeHsmResponse (Prelude.Maybe Prelude.Text)+describeHsmResponse_availabilityZone = Lens.lens (\DescribeHsmResponse' {availabilityZone} -> availabilityZone) (\s@DescribeHsmResponse' {} a -> s {availabilityZone = a} :: DescribeHsmResponse)++-- | The identifier of the elastic network interface (ENI) attached to the+-- HSM.+describeHsmResponse_eniId :: Lens.Lens' DescribeHsmResponse (Prelude.Maybe Prelude.Text)+describeHsmResponse_eniId = Lens.lens (\DescribeHsmResponse' {eniId} -> eniId) (\s@DescribeHsmResponse' {} a -> s {eniId = a} :: DescribeHsmResponse)++-- | The IP address assigned to the HSM\'s ENI.+describeHsmResponse_eniIp :: Lens.Lens' DescribeHsmResponse (Prelude.Maybe Prelude.Text)+describeHsmResponse_eniIp = Lens.lens (\DescribeHsmResponse' {eniIp} -> eniIp) (\s@DescribeHsmResponse' {} a -> s {eniIp = a} :: DescribeHsmResponse)++-- | The ARN of the HSM.+describeHsmResponse_hsmArn :: Lens.Lens' DescribeHsmResponse (Prelude.Maybe Prelude.Text)+describeHsmResponse_hsmArn = Lens.lens (\DescribeHsmResponse' {hsmArn} -> hsmArn) (\s@DescribeHsmResponse' {} a -> s {hsmArn = a} :: DescribeHsmResponse)++-- | The HSM model type.+describeHsmResponse_hsmType :: Lens.Lens' DescribeHsmResponse (Prelude.Maybe Prelude.Text)+describeHsmResponse_hsmType = Lens.lens (\DescribeHsmResponse' {hsmType} -> hsmType) (\s@DescribeHsmResponse' {} a -> s {hsmType = a} :: DescribeHsmResponse)++-- | The ARN of the IAM role assigned to the HSM.+describeHsmResponse_iamRoleArn :: Lens.Lens' DescribeHsmResponse (Prelude.Maybe Prelude.Text)+describeHsmResponse_iamRoleArn = Lens.lens (\DescribeHsmResponse' {iamRoleArn} -> iamRoleArn) (\s@DescribeHsmResponse' {} a -> s {iamRoleArn = a} :: DescribeHsmResponse)++-- | The list of partitions on the HSM.+describeHsmResponse_partitions :: Lens.Lens' DescribeHsmResponse (Prelude.Maybe [Prelude.Text])+describeHsmResponse_partitions = Lens.lens (\DescribeHsmResponse' {partitions} -> partitions) (\s@DescribeHsmResponse' {} a -> s {partitions = a} :: DescribeHsmResponse) Prelude.. Lens.mapping Lens.coerced++-- | The serial number of the HSM.+describeHsmResponse_serialNumber :: Lens.Lens' DescribeHsmResponse (Prelude.Maybe Prelude.Text)+describeHsmResponse_serialNumber = Lens.lens (\DescribeHsmResponse' {serialNumber} -> serialNumber) (\s@DescribeHsmResponse' {} a -> s {serialNumber = a} :: DescribeHsmResponse)++-- | The date and time that the server certificate was last updated.+describeHsmResponse_serverCertLastUpdated :: Lens.Lens' DescribeHsmResponse (Prelude.Maybe Prelude.Text)+describeHsmResponse_serverCertLastUpdated = Lens.lens (\DescribeHsmResponse' {serverCertLastUpdated} -> serverCertLastUpdated) (\s@DescribeHsmResponse' {} a -> s {serverCertLastUpdated = a} :: DescribeHsmResponse)++-- | The URI of the certificate server.+describeHsmResponse_serverCertUri :: Lens.Lens' DescribeHsmResponse (Prelude.Maybe Prelude.Text)+describeHsmResponse_serverCertUri = Lens.lens (\DescribeHsmResponse' {serverCertUri} -> serverCertUri) (\s@DescribeHsmResponse' {} a -> s {serverCertUri = a} :: DescribeHsmResponse)++-- | The HSM software version.+describeHsmResponse_softwareVersion :: Lens.Lens' DescribeHsmResponse (Prelude.Maybe Prelude.Text)+describeHsmResponse_softwareVersion = Lens.lens (\DescribeHsmResponse' {softwareVersion} -> softwareVersion) (\s@DescribeHsmResponse' {} a -> s {softwareVersion = a} :: DescribeHsmResponse)++-- | The date and time that the SSH key was last updated.+describeHsmResponse_sshKeyLastUpdated :: Lens.Lens' DescribeHsmResponse (Prelude.Maybe Prelude.Text)+describeHsmResponse_sshKeyLastUpdated = Lens.lens (\DescribeHsmResponse' {sshKeyLastUpdated} -> sshKeyLastUpdated) (\s@DescribeHsmResponse' {} a -> s {sshKeyLastUpdated = a} :: DescribeHsmResponse)++-- | The public SSH key.+describeHsmResponse_sshPublicKey :: Lens.Lens' DescribeHsmResponse (Prelude.Maybe Prelude.Text)+describeHsmResponse_sshPublicKey = Lens.lens (\DescribeHsmResponse' {sshPublicKey} -> sshPublicKey) (\s@DescribeHsmResponse' {} a -> s {sshPublicKey = a} :: DescribeHsmResponse)++-- | The status of the HSM.+describeHsmResponse_status :: Lens.Lens' DescribeHsmResponse (Prelude.Maybe HsmStatus)+describeHsmResponse_status = Lens.lens (\DescribeHsmResponse' {status} -> status) (\s@DescribeHsmResponse' {} a -> s {status = a} :: DescribeHsmResponse)++-- | Contains additional information about the status of the HSM.+describeHsmResponse_statusDetails :: Lens.Lens' DescribeHsmResponse (Prelude.Maybe Prelude.Text)+describeHsmResponse_statusDetails = Lens.lens (\DescribeHsmResponse' {statusDetails} -> statusDetails) (\s@DescribeHsmResponse' {} a -> s {statusDetails = a} :: DescribeHsmResponse)++-- | The identifier of the subnet that the HSM is in.+describeHsmResponse_subnetId :: Lens.Lens' DescribeHsmResponse (Prelude.Maybe Prelude.Text)+describeHsmResponse_subnetId = Lens.lens (\DescribeHsmResponse' {subnetId} -> subnetId) (\s@DescribeHsmResponse' {} a -> s {subnetId = a} :: DescribeHsmResponse)++-- | The subscription end date.+describeHsmResponse_subscriptionEndDate :: Lens.Lens' DescribeHsmResponse (Prelude.Maybe Prelude.Text)+describeHsmResponse_subscriptionEndDate = Lens.lens (\DescribeHsmResponse' {subscriptionEndDate} -> subscriptionEndDate) (\s@DescribeHsmResponse' {} a -> s {subscriptionEndDate = a} :: DescribeHsmResponse)++-- | The subscription start date.+describeHsmResponse_subscriptionStartDate :: Lens.Lens' DescribeHsmResponse (Prelude.Maybe Prelude.Text)+describeHsmResponse_subscriptionStartDate = Lens.lens (\DescribeHsmResponse' {subscriptionStartDate} -> subscriptionStartDate) (\s@DescribeHsmResponse' {} a -> s {subscriptionStartDate = a} :: DescribeHsmResponse)++-- | Undocumented member.+describeHsmResponse_subscriptionType :: Lens.Lens' DescribeHsmResponse (Prelude.Maybe SubscriptionType)+describeHsmResponse_subscriptionType = Lens.lens (\DescribeHsmResponse' {subscriptionType} -> subscriptionType) (\s@DescribeHsmResponse' {} a -> s {subscriptionType = a} :: DescribeHsmResponse)++-- | The name of the HSM vendor.+describeHsmResponse_vendorName :: Lens.Lens' DescribeHsmResponse (Prelude.Maybe Prelude.Text)+describeHsmResponse_vendorName = Lens.lens (\DescribeHsmResponse' {vendorName} -> vendorName) (\s@DescribeHsmResponse' {} a -> s {vendorName = a} :: DescribeHsmResponse)++-- | The identifier of the VPC that the HSM is in.+describeHsmResponse_vpcId :: Lens.Lens' DescribeHsmResponse (Prelude.Maybe Prelude.Text)+describeHsmResponse_vpcId = Lens.lens (\DescribeHsmResponse' {vpcId} -> vpcId) (\s@DescribeHsmResponse' {} a -> s {vpcId = a} :: DescribeHsmResponse)++-- | The response's http status code.+describeHsmResponse_httpStatus :: Lens.Lens' DescribeHsmResponse Prelude.Int+describeHsmResponse_httpStatus = Lens.lens (\DescribeHsmResponse' {httpStatus} -> httpStatus) (\s@DescribeHsmResponse' {} a -> s {httpStatus = a} :: DescribeHsmResponse)++instance Prelude.NFData DescribeHsmResponse where+  rnf DescribeHsmResponse' {..} =+    Prelude.rnf availabilityZone+      `Prelude.seq` Prelude.rnf eniId+      `Prelude.seq` Prelude.rnf eniIp+      `Prelude.seq` Prelude.rnf hsmArn+      `Prelude.seq` Prelude.rnf hsmType+      `Prelude.seq` Prelude.rnf iamRoleArn+      `Prelude.seq` Prelude.rnf partitions+      `Prelude.seq` Prelude.rnf serialNumber+      `Prelude.seq` Prelude.rnf serverCertLastUpdated+      `Prelude.seq` Prelude.rnf serverCertUri+      `Prelude.seq` Prelude.rnf softwareVersion+      `Prelude.seq` Prelude.rnf sshKeyLastUpdated+      `Prelude.seq` Prelude.rnf sshPublicKey+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf statusDetails+      `Prelude.seq` Prelude.rnf subnetId+      `Prelude.seq` Prelude.rnf subscriptionEndDate+      `Prelude.seq` Prelude.rnf subscriptionStartDate+      `Prelude.seq` Prelude.rnf subscriptionType+      `Prelude.seq` Prelude.rnf vendorName+      `Prelude.seq` Prelude.rnf vpcId+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,248 @@+{-# 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.CloudHSM.DescribeLunaClient+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- This is documentation for __AWS CloudHSM Classic__. For more+-- information, see+-- <http://aws.amazon.com/cloudhsm/faqs-classic/ AWS CloudHSM Classic FAQs>,+-- the+-- <https://docs.aws.amazon.com/cloudhsm/classic/userguide/ AWS CloudHSM Classic User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/classic/APIReference/ AWS CloudHSM Classic API Reference>.+--+-- __For information about the current version of AWS CloudHSM__, see+-- <http://aws.amazon.com/cloudhsm/ AWS CloudHSM>, the+-- <https://docs.aws.amazon.com/cloudhsm/latest/userguide/ AWS CloudHSM User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/latest/APIReference/ AWS CloudHSM API Reference>.+--+-- Retrieves information about an HSM client.+module Amazonka.CloudHSM.DescribeLunaClient+  ( -- * Creating a Request+    DescribeLunaClient (..),+    newDescribeLunaClient,++    -- * Request Lenses+    describeLunaClient_certificateFingerprint,+    describeLunaClient_clientArn,++    -- * Destructuring the Response+    DescribeLunaClientResponse (..),+    newDescribeLunaClientResponse,++    -- * Response Lenses+    describeLunaClientResponse_certificate,+    describeLunaClientResponse_certificateFingerprint,+    describeLunaClientResponse_clientArn,+    describeLunaClientResponse_label,+    describeLunaClientResponse_lastModifiedTimestamp,+    describeLunaClientResponse_httpStatus,+  )+where++import Amazonka.CloudHSM.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:/ 'newDescribeLunaClient' smart constructor.+data DescribeLunaClient = DescribeLunaClient'+  { -- | The certificate fingerprint.+    certificateFingerprint :: Prelude.Maybe Prelude.Text,+    -- | The ARN of the client.+    clientArn :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeLunaClient' 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:+--+-- 'certificateFingerprint', 'describeLunaClient_certificateFingerprint' - The certificate fingerprint.+--+-- 'clientArn', 'describeLunaClient_clientArn' - The ARN of the client.+newDescribeLunaClient ::+  DescribeLunaClient+newDescribeLunaClient =+  DescribeLunaClient'+    { certificateFingerprint =+        Prelude.Nothing,+      clientArn = Prelude.Nothing+    }++-- | The certificate fingerprint.+describeLunaClient_certificateFingerprint :: Lens.Lens' DescribeLunaClient (Prelude.Maybe Prelude.Text)+describeLunaClient_certificateFingerprint = Lens.lens (\DescribeLunaClient' {certificateFingerprint} -> certificateFingerprint) (\s@DescribeLunaClient' {} a -> s {certificateFingerprint = a} :: DescribeLunaClient)++-- | The ARN of the client.+describeLunaClient_clientArn :: Lens.Lens' DescribeLunaClient (Prelude.Maybe Prelude.Text)+describeLunaClient_clientArn = Lens.lens (\DescribeLunaClient' {clientArn} -> clientArn) (\s@DescribeLunaClient' {} a -> s {clientArn = a} :: DescribeLunaClient)++instance Core.AWSRequest DescribeLunaClient where+  type+    AWSResponse DescribeLunaClient =+      DescribeLunaClientResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeLunaClientResponse'+            Prelude.<$> (x Data..?> "Certificate")+            Prelude.<*> (x Data..?> "CertificateFingerprint")+            Prelude.<*> (x Data..?> "ClientArn")+            Prelude.<*> (x Data..?> "Label")+            Prelude.<*> (x Data..?> "LastModifiedTimestamp")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeLunaClient where+  hashWithSalt _salt DescribeLunaClient' {..} =+    _salt+      `Prelude.hashWithSalt` certificateFingerprint+      `Prelude.hashWithSalt` clientArn++instance Prelude.NFData DescribeLunaClient where+  rnf DescribeLunaClient' {..} =+    Prelude.rnf certificateFingerprint+      `Prelude.seq` Prelude.rnf clientArn++instance Data.ToHeaders DescribeLunaClient where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "CloudHsmFrontendService.DescribeLunaClient" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeLunaClient where+  toJSON DescribeLunaClient' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("CertificateFingerprint" Data..=)+              Prelude.<$> certificateFingerprint,+            ("ClientArn" Data..=) Prelude.<$> clientArn+          ]+      )++instance Data.ToPath DescribeLunaClient where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeLunaClient where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeLunaClientResponse' smart constructor.+data DescribeLunaClientResponse = DescribeLunaClientResponse'+  { -- | The certificate installed on the HSMs used by this client.+    certificate :: Prelude.Maybe Prelude.Text,+    -- | The certificate fingerprint.+    certificateFingerprint :: Prelude.Maybe Prelude.Text,+    -- | The ARN of the client.+    clientArn :: Prelude.Maybe Prelude.Text,+    -- | The label of the client.+    label :: Prelude.Maybe Prelude.Text,+    -- | The date and time the client was last modified.+    lastModifiedTimestamp :: 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 'DescribeLunaClientResponse' 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:+--+-- 'certificate', 'describeLunaClientResponse_certificate' - The certificate installed on the HSMs used by this client.+--+-- 'certificateFingerprint', 'describeLunaClientResponse_certificateFingerprint' - The certificate fingerprint.+--+-- 'clientArn', 'describeLunaClientResponse_clientArn' - The ARN of the client.+--+-- 'label', 'describeLunaClientResponse_label' - The label of the client.+--+-- 'lastModifiedTimestamp', 'describeLunaClientResponse_lastModifiedTimestamp' - The date and time the client was last modified.+--+-- 'httpStatus', 'describeLunaClientResponse_httpStatus' - The response's http status code.+newDescribeLunaClientResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeLunaClientResponse+newDescribeLunaClientResponse pHttpStatus_ =+  DescribeLunaClientResponse'+    { certificate =+        Prelude.Nothing,+      certificateFingerprint = Prelude.Nothing,+      clientArn = Prelude.Nothing,+      label = Prelude.Nothing,+      lastModifiedTimestamp = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The certificate installed on the HSMs used by this client.+describeLunaClientResponse_certificate :: Lens.Lens' DescribeLunaClientResponse (Prelude.Maybe Prelude.Text)+describeLunaClientResponse_certificate = Lens.lens (\DescribeLunaClientResponse' {certificate} -> certificate) (\s@DescribeLunaClientResponse' {} a -> s {certificate = a} :: DescribeLunaClientResponse)++-- | The certificate fingerprint.+describeLunaClientResponse_certificateFingerprint :: Lens.Lens' DescribeLunaClientResponse (Prelude.Maybe Prelude.Text)+describeLunaClientResponse_certificateFingerprint = Lens.lens (\DescribeLunaClientResponse' {certificateFingerprint} -> certificateFingerprint) (\s@DescribeLunaClientResponse' {} a -> s {certificateFingerprint = a} :: DescribeLunaClientResponse)++-- | The ARN of the client.+describeLunaClientResponse_clientArn :: Lens.Lens' DescribeLunaClientResponse (Prelude.Maybe Prelude.Text)+describeLunaClientResponse_clientArn = Lens.lens (\DescribeLunaClientResponse' {clientArn} -> clientArn) (\s@DescribeLunaClientResponse' {} a -> s {clientArn = a} :: DescribeLunaClientResponse)++-- | The label of the client.+describeLunaClientResponse_label :: Lens.Lens' DescribeLunaClientResponse (Prelude.Maybe Prelude.Text)+describeLunaClientResponse_label = Lens.lens (\DescribeLunaClientResponse' {label} -> label) (\s@DescribeLunaClientResponse' {} a -> s {label = a} :: DescribeLunaClientResponse)++-- | The date and time the client was last modified.+describeLunaClientResponse_lastModifiedTimestamp :: Lens.Lens' DescribeLunaClientResponse (Prelude.Maybe Prelude.Text)+describeLunaClientResponse_lastModifiedTimestamp = Lens.lens (\DescribeLunaClientResponse' {lastModifiedTimestamp} -> lastModifiedTimestamp) (\s@DescribeLunaClientResponse' {} a -> s {lastModifiedTimestamp = a} :: DescribeLunaClientResponse)++-- | The response's http status code.+describeLunaClientResponse_httpStatus :: Lens.Lens' DescribeLunaClientResponse Prelude.Int+describeLunaClientResponse_httpStatus = Lens.lens (\DescribeLunaClientResponse' {httpStatus} -> httpStatus) (\s@DescribeLunaClientResponse' {} a -> s {httpStatus = a} :: DescribeLunaClientResponse)++instance Prelude.NFData DescribeLunaClientResponse where+  rnf DescribeLunaClientResponse' {..} =+    Prelude.rnf certificate+      `Prelude.seq` Prelude.rnf certificateFingerprint+      `Prelude.seq` Prelude.rnf clientArn+      `Prelude.seq` Prelude.rnf label+      `Prelude.seq` Prelude.rnf lastModifiedTimestamp+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,240 @@+{-# 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.CloudHSM.GetConfig+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- This is documentation for __AWS CloudHSM Classic__. For more+-- information, see+-- <http://aws.amazon.com/cloudhsm/faqs-classic/ AWS CloudHSM Classic FAQs>,+-- the+-- <https://docs.aws.amazon.com/cloudhsm/classic/userguide/ AWS CloudHSM Classic User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/classic/APIReference/ AWS CloudHSM Classic API Reference>.+--+-- __For information about the current version of AWS CloudHSM__, see+-- <http://aws.amazon.com/cloudhsm/ AWS CloudHSM>, the+-- <https://docs.aws.amazon.com/cloudhsm/latest/userguide/ AWS CloudHSM User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/latest/APIReference/ AWS CloudHSM API Reference>.+--+-- Gets the configuration files necessary to connect to all high+-- availability partition groups the client is associated with.+module Amazonka.CloudHSM.GetConfig+  ( -- * Creating a Request+    GetConfig (..),+    newGetConfig,++    -- * Request Lenses+    getConfig_clientArn,+    getConfig_clientVersion,+    getConfig_hapgList,++    -- * Destructuring the Response+    GetConfigResponse (..),+    newGetConfigResponse,++    -- * Response Lenses+    getConfigResponse_configCred,+    getConfigResponse_configFile,+    getConfigResponse_configType,+    getConfigResponse_httpStatus,+  )+where++import Amazonka.CloudHSM.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:/ 'newGetConfig' smart constructor.+data GetConfig = GetConfig'+  { -- | The ARN of the client.+    clientArn :: Prelude.Text,+    -- | The client version.+    clientVersion :: ClientVersion,+    -- | A list of ARNs that identify the high-availability partition groups that+    -- are associated with the client.+    hapgList :: [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetConfig' 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:+--+-- 'clientArn', 'getConfig_clientArn' - The ARN of the client.+--+-- 'clientVersion', 'getConfig_clientVersion' - The client version.+--+-- 'hapgList', 'getConfig_hapgList' - A list of ARNs that identify the high-availability partition groups that+-- are associated with the client.+newGetConfig ::+  -- | 'clientArn'+  Prelude.Text ->+  -- | 'clientVersion'+  ClientVersion ->+  GetConfig+newGetConfig pClientArn_ pClientVersion_ =+  GetConfig'+    { clientArn = pClientArn_,+      clientVersion = pClientVersion_,+      hapgList = Prelude.mempty+    }++-- | The ARN of the client.+getConfig_clientArn :: Lens.Lens' GetConfig Prelude.Text+getConfig_clientArn = Lens.lens (\GetConfig' {clientArn} -> clientArn) (\s@GetConfig' {} a -> s {clientArn = a} :: GetConfig)++-- | The client version.+getConfig_clientVersion :: Lens.Lens' GetConfig ClientVersion+getConfig_clientVersion = Lens.lens (\GetConfig' {clientVersion} -> clientVersion) (\s@GetConfig' {} a -> s {clientVersion = a} :: GetConfig)++-- | A list of ARNs that identify the high-availability partition groups that+-- are associated with the client.+getConfig_hapgList :: Lens.Lens' GetConfig [Prelude.Text]+getConfig_hapgList = Lens.lens (\GetConfig' {hapgList} -> hapgList) (\s@GetConfig' {} a -> s {hapgList = a} :: GetConfig) Prelude.. Lens.coerced++instance Core.AWSRequest GetConfig where+  type AWSResponse GetConfig = GetConfigResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetConfigResponse'+            Prelude.<$> (x Data..?> "ConfigCred")+            Prelude.<*> (x Data..?> "ConfigFile")+            Prelude.<*> (x Data..?> "ConfigType")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetConfig where+  hashWithSalt _salt GetConfig' {..} =+    _salt+      `Prelude.hashWithSalt` clientArn+      `Prelude.hashWithSalt` clientVersion+      `Prelude.hashWithSalt` hapgList++instance Prelude.NFData GetConfig where+  rnf GetConfig' {..} =+    Prelude.rnf clientArn+      `Prelude.seq` Prelude.rnf clientVersion+      `Prelude.seq` Prelude.rnf hapgList++instance Data.ToHeaders GetConfig where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "CloudHsmFrontendService.GetConfig" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetConfig where+  toJSON GetConfig' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("ClientArn" Data..= clientArn),+            Prelude.Just ("ClientVersion" Data..= clientVersion),+            Prelude.Just ("HapgList" Data..= hapgList)+          ]+      )++instance Data.ToPath GetConfig where+  toPath = Prelude.const "/"++instance Data.ToQuery GetConfig where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetConfigResponse' smart constructor.+data GetConfigResponse = GetConfigResponse'+  { -- | The certificate file containing the server.pem files of the HSMs.+    configCred :: Prelude.Maybe Prelude.Text,+    -- | The chrystoki.conf configuration file.+    configFile :: Prelude.Maybe Prelude.Text,+    -- | The type of credentials.+    configType :: 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 'GetConfigResponse' 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:+--+-- 'configCred', 'getConfigResponse_configCred' - The certificate file containing the server.pem files of the HSMs.+--+-- 'configFile', 'getConfigResponse_configFile' - The chrystoki.conf configuration file.+--+-- 'configType', 'getConfigResponse_configType' - The type of credentials.+--+-- 'httpStatus', 'getConfigResponse_httpStatus' - The response's http status code.+newGetConfigResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetConfigResponse+newGetConfigResponse pHttpStatus_ =+  GetConfigResponse'+    { configCred = Prelude.Nothing,+      configFile = Prelude.Nothing,+      configType = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The certificate file containing the server.pem files of the HSMs.+getConfigResponse_configCred :: Lens.Lens' GetConfigResponse (Prelude.Maybe Prelude.Text)+getConfigResponse_configCred = Lens.lens (\GetConfigResponse' {configCred} -> configCred) (\s@GetConfigResponse' {} a -> s {configCred = a} :: GetConfigResponse)++-- | The chrystoki.conf configuration file.+getConfigResponse_configFile :: Lens.Lens' GetConfigResponse (Prelude.Maybe Prelude.Text)+getConfigResponse_configFile = Lens.lens (\GetConfigResponse' {configFile} -> configFile) (\s@GetConfigResponse' {} a -> s {configFile = a} :: GetConfigResponse)++-- | The type of credentials.+getConfigResponse_configType :: Lens.Lens' GetConfigResponse (Prelude.Maybe Prelude.Text)+getConfigResponse_configType = Lens.lens (\GetConfigResponse' {configType} -> configType) (\s@GetConfigResponse' {} a -> s {configType = a} :: GetConfigResponse)++-- | The response's http status code.+getConfigResponse_httpStatus :: Lens.Lens' GetConfigResponse Prelude.Int+getConfigResponse_httpStatus = Lens.lens (\GetConfigResponse' {httpStatus} -> httpStatus) (\s@GetConfigResponse' {} a -> s {httpStatus = a} :: GetConfigResponse)++instance Prelude.NFData GetConfigResponse where+  rnf GetConfigResponse' {..} =+    Prelude.rnf configCred+      `Prelude.seq` Prelude.rnf configFile+      `Prelude.seq` Prelude.rnf configType+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,203 @@+{-# 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.CloudHSM.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.CloudHSM.Lens+  ( -- * Operations++    -- ** AddTagsToResource+    addTagsToResource_resourceArn,+    addTagsToResource_tagList,+    addTagsToResourceResponse_httpStatus,+    addTagsToResourceResponse_status,++    -- ** CreateHapg+    createHapg_label,+    createHapgResponse_hapgArn,+    createHapgResponse_httpStatus,++    -- ** CreateHsm+    createHsm_clientToken,+    createHsm_eniIp,+    createHsm_externalId,+    createHsm_syslogIp,+    createHsm_subnetId,+    createHsm_sshKey,+    createHsm_iamRoleArn,+    createHsm_subscriptionType,+    createHsmResponse_hsmArn,+    createHsmResponse_httpStatus,++    -- ** CreateLunaClient+    createLunaClient_label,+    createLunaClient_certificate,+    createLunaClientResponse_clientArn,+    createLunaClientResponse_httpStatus,++    -- ** DeleteHapg+    deleteHapg_hapgArn,+    deleteHapgResponse_httpStatus,+    deleteHapgResponse_status,++    -- ** DeleteHsm+    deleteHsm_hsmArn,+    deleteHsmResponse_httpStatus,+    deleteHsmResponse_status,++    -- ** DeleteLunaClient+    deleteLunaClient_clientArn,+    deleteLunaClientResponse_httpStatus,+    deleteLunaClientResponse_status,++    -- ** DescribeHapg+    describeHapg_hapgArn,+    describeHapgResponse_hapgArn,+    describeHapgResponse_hapgSerial,+    describeHapgResponse_hsmsLastActionFailed,+    describeHapgResponse_hsmsPendingDeletion,+    describeHapgResponse_hsmsPendingRegistration,+    describeHapgResponse_label,+    describeHapgResponse_lastModifiedTimestamp,+    describeHapgResponse_partitionSerialList,+    describeHapgResponse_state,+    describeHapgResponse_httpStatus,++    -- ** DescribeHsm+    describeHsm_hsmArn,+    describeHsm_hsmSerialNumber,+    describeHsmResponse_availabilityZone,+    describeHsmResponse_eniId,+    describeHsmResponse_eniIp,+    describeHsmResponse_hsmArn,+    describeHsmResponse_hsmType,+    describeHsmResponse_iamRoleArn,+    describeHsmResponse_partitions,+    describeHsmResponse_serialNumber,+    describeHsmResponse_serverCertLastUpdated,+    describeHsmResponse_serverCertUri,+    describeHsmResponse_softwareVersion,+    describeHsmResponse_sshKeyLastUpdated,+    describeHsmResponse_sshPublicKey,+    describeHsmResponse_status,+    describeHsmResponse_statusDetails,+    describeHsmResponse_subnetId,+    describeHsmResponse_subscriptionEndDate,+    describeHsmResponse_subscriptionStartDate,+    describeHsmResponse_subscriptionType,+    describeHsmResponse_vendorName,+    describeHsmResponse_vpcId,+    describeHsmResponse_httpStatus,++    -- ** DescribeLunaClient+    describeLunaClient_certificateFingerprint,+    describeLunaClient_clientArn,+    describeLunaClientResponse_certificate,+    describeLunaClientResponse_certificateFingerprint,+    describeLunaClientResponse_clientArn,+    describeLunaClientResponse_label,+    describeLunaClientResponse_lastModifiedTimestamp,+    describeLunaClientResponse_httpStatus,++    -- ** GetConfig+    getConfig_clientArn,+    getConfig_clientVersion,+    getConfig_hapgList,+    getConfigResponse_configCred,+    getConfigResponse_configFile,+    getConfigResponse_configType,+    getConfigResponse_httpStatus,++    -- ** ListAvailableZones+    listAvailableZonesResponse_aZList,+    listAvailableZonesResponse_httpStatus,++    -- ** ListHapgs+    listHapgs_nextToken,+    listHapgsResponse_nextToken,+    listHapgsResponse_httpStatus,+    listHapgsResponse_hapgList,++    -- ** ListHsms+    listHsms_nextToken,+    listHsmsResponse_hsmList,+    listHsmsResponse_nextToken,+    listHsmsResponse_httpStatus,++    -- ** ListLunaClients+    listLunaClients_nextToken,+    listLunaClientsResponse_nextToken,+    listLunaClientsResponse_httpStatus,+    listLunaClientsResponse_clientList,++    -- ** ListTagsForResource+    listTagsForResource_resourceArn,+    listTagsForResourceResponse_httpStatus,+    listTagsForResourceResponse_tagList,++    -- ** ModifyHapg+    modifyHapg_label,+    modifyHapg_partitionSerialList,+    modifyHapg_hapgArn,+    modifyHapgResponse_hapgArn,+    modifyHapgResponse_httpStatus,++    -- ** ModifyHsm+    modifyHsm_eniIp,+    modifyHsm_externalId,+    modifyHsm_iamRoleArn,+    modifyHsm_subnetId,+    modifyHsm_syslogIp,+    modifyHsm_hsmArn,+    modifyHsmResponse_hsmArn,+    modifyHsmResponse_httpStatus,++    -- ** ModifyLunaClient+    modifyLunaClient_clientArn,+    modifyLunaClient_certificate,+    modifyLunaClientResponse_clientArn,+    modifyLunaClientResponse_httpStatus,++    -- ** RemoveTagsFromResource+    removeTagsFromResource_resourceArn,+    removeTagsFromResource_tagKeyList,+    removeTagsFromResourceResponse_httpStatus,+    removeTagsFromResourceResponse_status,++    -- * Types++    -- ** Tag+    tag_key,+    tag_value,+  )+where++import Amazonka.CloudHSM.AddTagsToResource+import Amazonka.CloudHSM.CreateHapg+import Amazonka.CloudHSM.CreateHsm+import Amazonka.CloudHSM.CreateLunaClient+import Amazonka.CloudHSM.DeleteHapg+import Amazonka.CloudHSM.DeleteHsm+import Amazonka.CloudHSM.DeleteLunaClient+import Amazonka.CloudHSM.DescribeHapg+import Amazonka.CloudHSM.DescribeHsm+import Amazonka.CloudHSM.DescribeLunaClient+import Amazonka.CloudHSM.GetConfig+import Amazonka.CloudHSM.ListAvailableZones+import Amazonka.CloudHSM.ListHapgs+import Amazonka.CloudHSM.ListHsms+import Amazonka.CloudHSM.ListLunaClients+import Amazonka.CloudHSM.ListTagsForResource+import Amazonka.CloudHSM.ModifyHapg+import Amazonka.CloudHSM.ModifyHsm+import Amazonka.CloudHSM.ModifyLunaClient+import Amazonka.CloudHSM.RemoveTagsFromResource+import Amazonka.CloudHSM.Types.Tag

@@ -0,0 +1,167 @@+{-# 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.CloudHSM.ListAvailableZones+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- This is documentation for __AWS CloudHSM Classic__. For more+-- information, see+-- <http://aws.amazon.com/cloudhsm/faqs-classic/ AWS CloudHSM Classic FAQs>,+-- the+-- <https://docs.aws.amazon.com/cloudhsm/classic/userguide/ AWS CloudHSM Classic User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/classic/APIReference/ AWS CloudHSM Classic API Reference>.+--+-- __For information about the current version of AWS CloudHSM__, see+-- <http://aws.amazon.com/cloudhsm/ AWS CloudHSM>, the+-- <https://docs.aws.amazon.com/cloudhsm/latest/userguide/ AWS CloudHSM User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/latest/APIReference/ AWS CloudHSM API Reference>.+--+-- Lists the Availability Zones that have available AWS CloudHSM capacity.+module Amazonka.CloudHSM.ListAvailableZones+  ( -- * Creating a Request+    ListAvailableZones (..),+    newListAvailableZones,++    -- * Destructuring the Response+    ListAvailableZonesResponse (..),+    newListAvailableZonesResponse,++    -- * Response Lenses+    listAvailableZonesResponse_aZList,+    listAvailableZonesResponse_httpStatus,+  )+where++import Amazonka.CloudHSM.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++-- | Contains the inputs for the ListAvailableZones action.+--+-- /See:/ 'newListAvailableZones' smart constructor.+data ListAvailableZones = ListAvailableZones'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListAvailableZones' 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.+newListAvailableZones ::+  ListAvailableZones+newListAvailableZones = ListAvailableZones'++instance Core.AWSRequest ListAvailableZones where+  type+    AWSResponse ListAvailableZones =+      ListAvailableZonesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListAvailableZonesResponse'+            Prelude.<$> (x Data..?> "AZList" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListAvailableZones where+  hashWithSalt _salt _ =+    _salt `Prelude.hashWithSalt` ()++instance Prelude.NFData ListAvailableZones where+  rnf _ = ()++instance Data.ToHeaders ListAvailableZones where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "CloudHsmFrontendService.ListAvailableZones" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListAvailableZones where+  toJSON = Prelude.const (Data.Object Prelude.mempty)++instance Data.ToPath ListAvailableZones where+  toPath = Prelude.const "/"++instance Data.ToQuery ListAvailableZones where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListAvailableZonesResponse' smart constructor.+data ListAvailableZonesResponse = ListAvailableZonesResponse'+  { -- | The list of Availability Zones that have available AWS CloudHSM+    -- capacity.+    aZList :: 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 'ListAvailableZonesResponse' 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:+--+-- 'aZList', 'listAvailableZonesResponse_aZList' - The list of Availability Zones that have available AWS CloudHSM+-- capacity.+--+-- 'httpStatus', 'listAvailableZonesResponse_httpStatus' - The response's http status code.+newListAvailableZonesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListAvailableZonesResponse+newListAvailableZonesResponse pHttpStatus_ =+  ListAvailableZonesResponse'+    { aZList =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The list of Availability Zones that have available AWS CloudHSM+-- capacity.+listAvailableZonesResponse_aZList :: Lens.Lens' ListAvailableZonesResponse (Prelude.Maybe [Prelude.Text])+listAvailableZonesResponse_aZList = Lens.lens (\ListAvailableZonesResponse' {aZList} -> aZList) (\s@ListAvailableZonesResponse' {} a -> s {aZList = a} :: ListAvailableZonesResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listAvailableZonesResponse_httpStatus :: Lens.Lens' ListAvailableZonesResponse Prelude.Int+listAvailableZonesResponse_httpStatus = Lens.lens (\ListAvailableZonesResponse' {httpStatus} -> httpStatus) (\s@ListAvailableZonesResponse' {} a -> s {httpStatus = a} :: ListAvailableZonesResponse)++instance Prelude.NFData ListAvailableZonesResponse where+  rnf ListAvailableZonesResponse' {..} =+    Prelude.rnf aZList+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,220 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.CloudHSM.ListHapgs+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- This is documentation for __AWS CloudHSM Classic__. For more+-- information, see+-- <http://aws.amazon.com/cloudhsm/faqs-classic/ AWS CloudHSM Classic FAQs>,+-- the+-- <https://docs.aws.amazon.com/cloudhsm/classic/userguide/ AWS CloudHSM Classic User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/classic/APIReference/ AWS CloudHSM Classic API Reference>.+--+-- __For information about the current version of AWS CloudHSM__, see+-- <http://aws.amazon.com/cloudhsm/ AWS CloudHSM>, the+-- <https://docs.aws.amazon.com/cloudhsm/latest/userguide/ AWS CloudHSM User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/latest/APIReference/ AWS CloudHSM API Reference>.+--+-- Lists the high-availability partition groups for the account.+--+-- This operation supports pagination with the use of the @NextToken@+-- member. If more results are available, the @NextToken@ member of the+-- response contains a token that you pass in the next call to @ListHapgs@+-- to retrieve the next set of items.+--+-- This operation returns paginated results.+module Amazonka.CloudHSM.ListHapgs+  ( -- * Creating a Request+    ListHapgs (..),+    newListHapgs,++    -- * Request Lenses+    listHapgs_nextToken,++    -- * Destructuring the Response+    ListHapgsResponse (..),+    newListHapgsResponse,++    -- * Response Lenses+    listHapgsResponse_nextToken,+    listHapgsResponse_httpStatus,+    listHapgsResponse_hapgList,+  )+where++import Amazonka.CloudHSM.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:/ 'newListHapgs' smart constructor.+data ListHapgs = ListHapgs'+  { -- | The @NextToken@ value from a previous call to @ListHapgs@. Pass null if+    -- this is the first call.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListHapgs' 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', 'listHapgs_nextToken' - The @NextToken@ value from a previous call to @ListHapgs@. Pass null if+-- this is the first call.+newListHapgs ::+  ListHapgs+newListHapgs =+  ListHapgs' {nextToken = Prelude.Nothing}++-- | The @NextToken@ value from a previous call to @ListHapgs@. Pass null if+-- this is the first call.+listHapgs_nextToken :: Lens.Lens' ListHapgs (Prelude.Maybe Prelude.Text)+listHapgs_nextToken = Lens.lens (\ListHapgs' {nextToken} -> nextToken) (\s@ListHapgs' {} a -> s {nextToken = a} :: ListHapgs)++instance Core.AWSPager ListHapgs where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listHapgsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop (rs Lens.^. listHapgsResponse_hapgList) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listHapgs_nextToken+          Lens..~ rs+          Lens.^? listHapgsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListHapgs where+  type AWSResponse ListHapgs = ListHapgsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListHapgsResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..?> "HapgList" Core..!@ Prelude.mempty)+      )++instance Prelude.Hashable ListHapgs where+  hashWithSalt _salt ListHapgs' {..} =+    _salt `Prelude.hashWithSalt` nextToken++instance Prelude.NFData ListHapgs where+  rnf ListHapgs' {..} = Prelude.rnf nextToken++instance Data.ToHeaders ListHapgs where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "CloudHsmFrontendService.ListHapgs" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListHapgs where+  toJSON ListHapgs' {..} =+    Data.object+      ( Prelude.catMaybes+          [("NextToken" Data..=) Prelude.<$> nextToken]+      )++instance Data.ToPath ListHapgs where+  toPath = Prelude.const "/"++instance Data.ToQuery ListHapgs where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListHapgsResponse' smart constructor.+data ListHapgsResponse = ListHapgsResponse'+  { -- | If not null, more results are available. Pass this value to @ListHapgs@+    -- to retrieve the next set of items.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The list of high-availability partition groups.+    hapgList :: [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListHapgsResponse' 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', 'listHapgsResponse_nextToken' - If not null, more results are available. Pass this value to @ListHapgs@+-- to retrieve the next set of items.+--+-- 'httpStatus', 'listHapgsResponse_httpStatus' - The response's http status code.+--+-- 'hapgList', 'listHapgsResponse_hapgList' - The list of high-availability partition groups.+newListHapgsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListHapgsResponse+newListHapgsResponse pHttpStatus_ =+  ListHapgsResponse'+    { nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_,+      hapgList = Prelude.mempty+    }++-- | If not null, more results are available. Pass this value to @ListHapgs@+-- to retrieve the next set of items.+listHapgsResponse_nextToken :: Lens.Lens' ListHapgsResponse (Prelude.Maybe Prelude.Text)+listHapgsResponse_nextToken = Lens.lens (\ListHapgsResponse' {nextToken} -> nextToken) (\s@ListHapgsResponse' {} a -> s {nextToken = a} :: ListHapgsResponse)++-- | The response's http status code.+listHapgsResponse_httpStatus :: Lens.Lens' ListHapgsResponse Prelude.Int+listHapgsResponse_httpStatus = Lens.lens (\ListHapgsResponse' {httpStatus} -> httpStatus) (\s@ListHapgsResponse' {} a -> s {httpStatus = a} :: ListHapgsResponse)++-- | The list of high-availability partition groups.+listHapgsResponse_hapgList :: Lens.Lens' ListHapgsResponse [Prelude.Text]+listHapgsResponse_hapgList = Lens.lens (\ListHapgsResponse' {hapgList} -> hapgList) (\s@ListHapgsResponse' {} a -> s {hapgList = a} :: ListHapgsResponse) Prelude.. Lens.coerced++instance Prelude.NFData ListHapgsResponse where+  rnf ListHapgsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf hapgList

@@ -0,0 +1,226 @@+{-# 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.CloudHSM.ListHsms+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- This is documentation for __AWS CloudHSM Classic__. For more+-- information, see+-- <http://aws.amazon.com/cloudhsm/faqs-classic/ AWS CloudHSM Classic FAQs>,+-- the+-- <https://docs.aws.amazon.com/cloudhsm/classic/userguide/ AWS CloudHSM Classic User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/classic/APIReference/ AWS CloudHSM Classic API Reference>.+--+-- __For information about the current version of AWS CloudHSM__, see+-- <http://aws.amazon.com/cloudhsm/ AWS CloudHSM>, the+-- <https://docs.aws.amazon.com/cloudhsm/latest/userguide/ AWS CloudHSM User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/latest/APIReference/ AWS CloudHSM API Reference>.+--+-- Retrieves the identifiers of all of the HSMs provisioned for the current+-- customer.+--+-- This operation supports pagination with the use of the @NextToken@+-- member. If more results are available, the @NextToken@ member of the+-- response contains a token that you pass in the next call to @ListHsms@+-- to retrieve the next set of items.+--+-- This operation returns paginated results.+module Amazonka.CloudHSM.ListHsms+  ( -- * Creating a Request+    ListHsms (..),+    newListHsms,++    -- * Request Lenses+    listHsms_nextToken,++    -- * Destructuring the Response+    ListHsmsResponse (..),+    newListHsmsResponse,++    -- * Response Lenses+    listHsmsResponse_hsmList,+    listHsmsResponse_nextToken,+    listHsmsResponse_httpStatus,+  )+where++import Amazonka.CloudHSM.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:/ 'newListHsms' smart constructor.+data ListHsms = ListHsms'+  { -- | The @NextToken@ value from a previous call to @ListHsms@. Pass null if+    -- this is the first call.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListHsms' 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', 'listHsms_nextToken' - The @NextToken@ value from a previous call to @ListHsms@. Pass null if+-- this is the first call.+newListHsms ::+  ListHsms+newListHsms = ListHsms' {nextToken = Prelude.Nothing}++-- | The @NextToken@ value from a previous call to @ListHsms@. Pass null if+-- this is the first call.+listHsms_nextToken :: Lens.Lens' ListHsms (Prelude.Maybe Prelude.Text)+listHsms_nextToken = Lens.lens (\ListHsms' {nextToken} -> nextToken) (\s@ListHsms' {} a -> s {nextToken = a} :: ListHsms)++instance Core.AWSPager ListHsms where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listHsmsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listHsmsResponse_hsmList+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listHsms_nextToken+          Lens..~ rs+          Lens.^? listHsmsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListHsms where+  type AWSResponse ListHsms = ListHsmsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListHsmsResponse'+            Prelude.<$> (x Data..?> "HsmList" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListHsms where+  hashWithSalt _salt ListHsms' {..} =+    _salt `Prelude.hashWithSalt` nextToken++instance Prelude.NFData ListHsms where+  rnf ListHsms' {..} = Prelude.rnf nextToken++instance Data.ToHeaders ListHsms where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "CloudHsmFrontendService.ListHsms" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListHsms where+  toJSON ListHsms' {..} =+    Data.object+      ( Prelude.catMaybes+          [("NextToken" Data..=) Prelude.<$> nextToken]+      )++instance Data.ToPath ListHsms where+  toPath = Prelude.const "/"++instance Data.ToQuery ListHsms where+  toQuery = Prelude.const Prelude.mempty++-- | Contains the output of the @ListHsms@ operation.+--+-- /See:/ 'newListHsmsResponse' smart constructor.+data ListHsmsResponse = ListHsmsResponse'+  { -- | The list of ARNs that identify the HSMs.+    hsmList :: Prelude.Maybe [Prelude.Text],+    -- | If not null, more results are available. Pass this value to @ListHsms@+    -- to retrieve the next set of items.+    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 'ListHsmsResponse' 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:+--+-- 'hsmList', 'listHsmsResponse_hsmList' - The list of ARNs that identify the HSMs.+--+-- 'nextToken', 'listHsmsResponse_nextToken' - If not null, more results are available. Pass this value to @ListHsms@+-- to retrieve the next set of items.+--+-- 'httpStatus', 'listHsmsResponse_httpStatus' - The response's http status code.+newListHsmsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListHsmsResponse+newListHsmsResponse pHttpStatus_ =+  ListHsmsResponse'+    { hsmList = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The list of ARNs that identify the HSMs.+listHsmsResponse_hsmList :: Lens.Lens' ListHsmsResponse (Prelude.Maybe [Prelude.Text])+listHsmsResponse_hsmList = Lens.lens (\ListHsmsResponse' {hsmList} -> hsmList) (\s@ListHsmsResponse' {} a -> s {hsmList = a} :: ListHsmsResponse) Prelude.. Lens.mapping Lens.coerced++-- | If not null, more results are available. Pass this value to @ListHsms@+-- to retrieve the next set of items.+listHsmsResponse_nextToken :: Lens.Lens' ListHsmsResponse (Prelude.Maybe Prelude.Text)+listHsmsResponse_nextToken = Lens.lens (\ListHsmsResponse' {nextToken} -> nextToken) (\s@ListHsmsResponse' {} a -> s {nextToken = a} :: ListHsmsResponse)++-- | The response's http status code.+listHsmsResponse_httpStatus :: Lens.Lens' ListHsmsResponse Prelude.Int+listHsmsResponse_httpStatus = Lens.lens (\ListHsmsResponse' {httpStatus} -> httpStatus) (\s@ListHsmsResponse' {} a -> s {httpStatus = a} :: ListHsmsResponse)++instance Prelude.NFData ListHsmsResponse where+  rnf ListHsmsResponse' {..} =+    Prelude.rnf hsmList+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,224 @@+{-# 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.CloudHSM.ListLunaClients+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- This is documentation for __AWS CloudHSM Classic__. For more+-- information, see+-- <http://aws.amazon.com/cloudhsm/faqs-classic/ AWS CloudHSM Classic FAQs>,+-- the+-- <https://docs.aws.amazon.com/cloudhsm/classic/userguide/ AWS CloudHSM Classic User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/classic/APIReference/ AWS CloudHSM Classic API Reference>.+--+-- __For information about the current version of AWS CloudHSM__, see+-- <http://aws.amazon.com/cloudhsm/ AWS CloudHSM>, the+-- <https://docs.aws.amazon.com/cloudhsm/latest/userguide/ AWS CloudHSM User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/latest/APIReference/ AWS CloudHSM API Reference>.+--+-- Lists all of the clients.+--+-- This operation supports pagination with the use of the @NextToken@+-- member. If more results are available, the @NextToken@ member of the+-- response contains a token that you pass in the next call to+-- @ListLunaClients@ to retrieve the next set of items.+--+-- This operation returns paginated results.+module Amazonka.CloudHSM.ListLunaClients+  ( -- * Creating a Request+    ListLunaClients (..),+    newListLunaClients,++    -- * Request Lenses+    listLunaClients_nextToken,++    -- * Destructuring the Response+    ListLunaClientsResponse (..),+    newListLunaClientsResponse,++    -- * Response Lenses+    listLunaClientsResponse_nextToken,+    listLunaClientsResponse_httpStatus,+    listLunaClientsResponse_clientList,+  )+where++import Amazonka.CloudHSM.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:/ 'newListLunaClients' smart constructor.+data ListLunaClients = ListLunaClients'+  { -- | The @NextToken@ value from a previous call to @ListLunaClients@. Pass+    -- null if this is the first call.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListLunaClients' 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', 'listLunaClients_nextToken' - The @NextToken@ value from a previous call to @ListLunaClients@. Pass+-- null if this is the first call.+newListLunaClients ::+  ListLunaClients+newListLunaClients =+  ListLunaClients' {nextToken = Prelude.Nothing}++-- | The @NextToken@ value from a previous call to @ListLunaClients@. Pass+-- null if this is the first call.+listLunaClients_nextToken :: Lens.Lens' ListLunaClients (Prelude.Maybe Prelude.Text)+listLunaClients_nextToken = Lens.lens (\ListLunaClients' {nextToken} -> nextToken) (\s@ListLunaClients' {} a -> s {nextToken = a} :: ListLunaClients)++instance Core.AWSPager ListLunaClients where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listLunaClientsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        (rs Lens.^. listLunaClientsResponse_clientList) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listLunaClients_nextToken+          Lens..~ rs+          Lens.^? listLunaClientsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListLunaClients where+  type+    AWSResponse ListLunaClients =+      ListLunaClientsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListLunaClientsResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..?> "ClientList" Core..!@ Prelude.mempty)+      )++instance Prelude.Hashable ListLunaClients where+  hashWithSalt _salt ListLunaClients' {..} =+    _salt `Prelude.hashWithSalt` nextToken++instance Prelude.NFData ListLunaClients where+  rnf ListLunaClients' {..} = Prelude.rnf nextToken++instance Data.ToHeaders ListLunaClients where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "CloudHsmFrontendService.ListLunaClients" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListLunaClients where+  toJSON ListLunaClients' {..} =+    Data.object+      ( Prelude.catMaybes+          [("NextToken" Data..=) Prelude.<$> nextToken]+      )++instance Data.ToPath ListLunaClients where+  toPath = Prelude.const "/"++instance Data.ToQuery ListLunaClients where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListLunaClientsResponse' smart constructor.+data ListLunaClientsResponse = ListLunaClientsResponse'+  { -- | If not null, more results are available. Pass this to @ListLunaClients@+    -- to retrieve the next set of items.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The list of clients.+    clientList :: [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListLunaClientsResponse' 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', 'listLunaClientsResponse_nextToken' - If not null, more results are available. Pass this to @ListLunaClients@+-- to retrieve the next set of items.+--+-- 'httpStatus', 'listLunaClientsResponse_httpStatus' - The response's http status code.+--+-- 'clientList', 'listLunaClientsResponse_clientList' - The list of clients.+newListLunaClientsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListLunaClientsResponse+newListLunaClientsResponse pHttpStatus_ =+  ListLunaClientsResponse'+    { nextToken =+        Prelude.Nothing,+      httpStatus = pHttpStatus_,+      clientList = Prelude.mempty+    }++-- | If not null, more results are available. Pass this to @ListLunaClients@+-- to retrieve the next set of items.+listLunaClientsResponse_nextToken :: Lens.Lens' ListLunaClientsResponse (Prelude.Maybe Prelude.Text)+listLunaClientsResponse_nextToken = Lens.lens (\ListLunaClientsResponse' {nextToken} -> nextToken) (\s@ListLunaClientsResponse' {} a -> s {nextToken = a} :: ListLunaClientsResponse)++-- | The response's http status code.+listLunaClientsResponse_httpStatus :: Lens.Lens' ListLunaClientsResponse Prelude.Int+listLunaClientsResponse_httpStatus = Lens.lens (\ListLunaClientsResponse' {httpStatus} -> httpStatus) (\s@ListLunaClientsResponse' {} a -> s {httpStatus = a} :: ListLunaClientsResponse)++-- | The list of clients.+listLunaClientsResponse_clientList :: Lens.Lens' ListLunaClientsResponse [Prelude.Text]+listLunaClientsResponse_clientList = Lens.lens (\ListLunaClientsResponse' {clientList} -> clientList) (\s@ListLunaClientsResponse' {} a -> s {clientList = a} :: ListLunaClientsResponse) Prelude.. Lens.coerced++instance Prelude.NFData ListLunaClientsResponse where+  rnf ListLunaClientsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf clientList

@@ -0,0 +1,183 @@+{-# 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.CloudHSM.ListTagsForResource+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- This is documentation for __AWS CloudHSM Classic__. For more+-- information, see+-- <http://aws.amazon.com/cloudhsm/faqs-classic/ AWS CloudHSM Classic FAQs>,+-- the+-- <https://docs.aws.amazon.com/cloudhsm/classic/userguide/ AWS CloudHSM Classic User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/classic/APIReference/ AWS CloudHSM Classic API Reference>.+--+-- __For information about the current version of AWS CloudHSM__, see+-- <http://aws.amazon.com/cloudhsm/ AWS CloudHSM>, the+-- <https://docs.aws.amazon.com/cloudhsm/latest/userguide/ AWS CloudHSM User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/latest/APIReference/ AWS CloudHSM API Reference>.+--+-- Returns a list of all tags for the specified AWS CloudHSM resource.+module Amazonka.CloudHSM.ListTagsForResource+  ( -- * Creating a Request+    ListTagsForResource (..),+    newListTagsForResource,++    -- * Request Lenses+    listTagsForResource_resourceArn,++    -- * Destructuring the Response+    ListTagsForResourceResponse (..),+    newListTagsForResourceResponse,++    -- * Response Lenses+    listTagsForResourceResponse_httpStatus,+    listTagsForResourceResponse_tagList,+  )+where++import Amazonka.CloudHSM.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:/ 'newListTagsForResource' smart constructor.+data ListTagsForResource = ListTagsForResource'+  { -- | The Amazon Resource Name (ARN) of the AWS CloudHSM resource.+    resourceArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListTagsForResource' 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:+--+-- 'resourceArn', 'listTagsForResource_resourceArn' - The Amazon Resource Name (ARN) of the AWS CloudHSM resource.+newListTagsForResource ::+  -- | 'resourceArn'+  Prelude.Text ->+  ListTagsForResource+newListTagsForResource pResourceArn_ =+  ListTagsForResource' {resourceArn = pResourceArn_}++-- | The Amazon Resource Name (ARN) of the AWS CloudHSM resource.+listTagsForResource_resourceArn :: Lens.Lens' ListTagsForResource Prelude.Text+listTagsForResource_resourceArn = Lens.lens (\ListTagsForResource' {resourceArn} -> resourceArn) (\s@ListTagsForResource' {} a -> s {resourceArn = a} :: ListTagsForResource)++instance Core.AWSRequest ListTagsForResource where+  type+    AWSResponse ListTagsForResource =+      ListTagsForResourceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListTagsForResourceResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..?> "TagList" Core..!@ Prelude.mempty)+      )++instance Prelude.Hashable ListTagsForResource where+  hashWithSalt _salt ListTagsForResource' {..} =+    _salt `Prelude.hashWithSalt` resourceArn++instance Prelude.NFData ListTagsForResource where+  rnf ListTagsForResource' {..} =+    Prelude.rnf resourceArn++instance Data.ToHeaders ListTagsForResource where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "CloudHsmFrontendService.ListTagsForResource" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListTagsForResource where+  toJSON ListTagsForResource' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("ResourceArn" Data..= resourceArn)]+      )++instance Data.ToPath ListTagsForResource where+  toPath = Prelude.const "/"++instance Data.ToQuery ListTagsForResource where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListTagsForResourceResponse' smart constructor.+data ListTagsForResourceResponse = ListTagsForResourceResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | One or more tags.+    tagList :: [Tag]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListTagsForResourceResponse' 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', 'listTagsForResourceResponse_httpStatus' - The response's http status code.+--+-- 'tagList', 'listTagsForResourceResponse_tagList' - One or more tags.+newListTagsForResourceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListTagsForResourceResponse+newListTagsForResourceResponse pHttpStatus_ =+  ListTagsForResourceResponse'+    { httpStatus =+        pHttpStatus_,+      tagList = Prelude.mempty+    }++-- | The response's http status code.+listTagsForResourceResponse_httpStatus :: Lens.Lens' ListTagsForResourceResponse Prelude.Int+listTagsForResourceResponse_httpStatus = Lens.lens (\ListTagsForResourceResponse' {httpStatus} -> httpStatus) (\s@ListTagsForResourceResponse' {} a -> s {httpStatus = a} :: ListTagsForResourceResponse)++-- | One or more tags.+listTagsForResourceResponse_tagList :: Lens.Lens' ListTagsForResourceResponse [Tag]+listTagsForResourceResponse_tagList = Lens.lens (\ListTagsForResourceResponse' {tagList} -> tagList) (\s@ListTagsForResourceResponse' {} a -> s {tagList = a} :: ListTagsForResourceResponse) Prelude.. Lens.coerced++instance Prelude.NFData ListTagsForResourceResponse where+  rnf ListTagsForResourceResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf tagList

@@ -0,0 +1,214 @@+{-# 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.CloudHSM.ModifyHapg+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- This is documentation for __AWS CloudHSM Classic__. For more+-- information, see+-- <http://aws.amazon.com/cloudhsm/faqs-classic/ AWS CloudHSM Classic FAQs>,+-- the+-- <https://docs.aws.amazon.com/cloudhsm/classic/userguide/ AWS CloudHSM Classic User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/classic/APIReference/ AWS CloudHSM Classic API Reference>.+--+-- __For information about the current version of AWS CloudHSM__, see+-- <http://aws.amazon.com/cloudhsm/ AWS CloudHSM>, the+-- <https://docs.aws.amazon.com/cloudhsm/latest/userguide/ AWS CloudHSM User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/latest/APIReference/ AWS CloudHSM API Reference>.+--+-- Modifies an existing high-availability partition group.+module Amazonka.CloudHSM.ModifyHapg+  ( -- * Creating a Request+    ModifyHapg (..),+    newModifyHapg,++    -- * Request Lenses+    modifyHapg_label,+    modifyHapg_partitionSerialList,+    modifyHapg_hapgArn,++    -- * Destructuring the Response+    ModifyHapgResponse (..),+    newModifyHapgResponse,++    -- * Response Lenses+    modifyHapgResponse_hapgArn,+    modifyHapgResponse_httpStatus,+  )+where++import Amazonka.CloudHSM.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:/ 'newModifyHapg' smart constructor.+data ModifyHapg = ModifyHapg'+  { -- | The new label for the high-availability partition group.+    label :: Prelude.Maybe Prelude.Text,+    -- | The list of partition serial numbers to make members of the+    -- high-availability partition group.+    partitionSerialList :: Prelude.Maybe [Prelude.Text],+    -- | The ARN of the high-availability partition group to modify.+    hapgArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ModifyHapg' 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:+--+-- 'label', 'modifyHapg_label' - The new label for the high-availability partition group.+--+-- 'partitionSerialList', 'modifyHapg_partitionSerialList' - The list of partition serial numbers to make members of the+-- high-availability partition group.+--+-- 'hapgArn', 'modifyHapg_hapgArn' - The ARN of the high-availability partition group to modify.+newModifyHapg ::+  -- | 'hapgArn'+  Prelude.Text ->+  ModifyHapg+newModifyHapg pHapgArn_ =+  ModifyHapg'+    { label = Prelude.Nothing,+      partitionSerialList = Prelude.Nothing,+      hapgArn = pHapgArn_+    }++-- | The new label for the high-availability partition group.+modifyHapg_label :: Lens.Lens' ModifyHapg (Prelude.Maybe Prelude.Text)+modifyHapg_label = Lens.lens (\ModifyHapg' {label} -> label) (\s@ModifyHapg' {} a -> s {label = a} :: ModifyHapg)++-- | The list of partition serial numbers to make members of the+-- high-availability partition group.+modifyHapg_partitionSerialList :: Lens.Lens' ModifyHapg (Prelude.Maybe [Prelude.Text])+modifyHapg_partitionSerialList = Lens.lens (\ModifyHapg' {partitionSerialList} -> partitionSerialList) (\s@ModifyHapg' {} a -> s {partitionSerialList = a} :: ModifyHapg) Prelude.. Lens.mapping Lens.coerced++-- | The ARN of the high-availability partition group to modify.+modifyHapg_hapgArn :: Lens.Lens' ModifyHapg Prelude.Text+modifyHapg_hapgArn = Lens.lens (\ModifyHapg' {hapgArn} -> hapgArn) (\s@ModifyHapg' {} a -> s {hapgArn = a} :: ModifyHapg)++instance Core.AWSRequest ModifyHapg where+  type AWSResponse ModifyHapg = ModifyHapgResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ModifyHapgResponse'+            Prelude.<$> (x Data..?> "HapgArn")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ModifyHapg where+  hashWithSalt _salt ModifyHapg' {..} =+    _salt+      `Prelude.hashWithSalt` label+      `Prelude.hashWithSalt` partitionSerialList+      `Prelude.hashWithSalt` hapgArn++instance Prelude.NFData ModifyHapg where+  rnf ModifyHapg' {..} =+    Prelude.rnf label+      `Prelude.seq` Prelude.rnf partitionSerialList+      `Prelude.seq` Prelude.rnf hapgArn++instance Data.ToHeaders ModifyHapg where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "CloudHsmFrontendService.ModifyHapg" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ModifyHapg where+  toJSON ModifyHapg' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Label" Data..=) Prelude.<$> label,+            ("PartitionSerialList" Data..=)+              Prelude.<$> partitionSerialList,+            Prelude.Just ("HapgArn" Data..= hapgArn)+          ]+      )++instance Data.ToPath ModifyHapg where+  toPath = Prelude.const "/"++instance Data.ToQuery ModifyHapg where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newModifyHapgResponse' smart constructor.+data ModifyHapgResponse = ModifyHapgResponse'+  { -- | The ARN of the high-availability partition group.+    hapgArn :: 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 'ModifyHapgResponse' 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:+--+-- 'hapgArn', 'modifyHapgResponse_hapgArn' - The ARN of the high-availability partition group.+--+-- 'httpStatus', 'modifyHapgResponse_httpStatus' - The response's http status code.+newModifyHapgResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ModifyHapgResponse+newModifyHapgResponse pHttpStatus_ =+  ModifyHapgResponse'+    { hapgArn = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The ARN of the high-availability partition group.+modifyHapgResponse_hapgArn :: Lens.Lens' ModifyHapgResponse (Prelude.Maybe Prelude.Text)+modifyHapgResponse_hapgArn = Lens.lens (\ModifyHapgResponse' {hapgArn} -> hapgArn) (\s@ModifyHapgResponse' {} a -> s {hapgArn = a} :: ModifyHapgResponse)++-- | The response's http status code.+modifyHapgResponse_httpStatus :: Lens.Lens' ModifyHapgResponse Prelude.Int+modifyHapgResponse_httpStatus = Lens.lens (\ModifyHapgResponse' {httpStatus} -> httpStatus) (\s@ModifyHapgResponse' {} a -> s {httpStatus = a} :: ModifyHapgResponse)++instance Prelude.NFData ModifyHapgResponse where+  rnf ModifyHapgResponse' {..} =+    Prelude.rnf hapgArn+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,280 @@+{-# 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.CloudHSM.ModifyHsm+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- This is documentation for __AWS CloudHSM Classic__. For more+-- information, see+-- <http://aws.amazon.com/cloudhsm/faqs-classic/ AWS CloudHSM Classic FAQs>,+-- the+-- <https://docs.aws.amazon.com/cloudhsm/classic/userguide/ AWS CloudHSM Classic User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/classic/APIReference/ AWS CloudHSM Classic API Reference>.+--+-- __For information about the current version of AWS CloudHSM__, see+-- <http://aws.amazon.com/cloudhsm/ AWS CloudHSM>, the+-- <https://docs.aws.amazon.com/cloudhsm/latest/userguide/ AWS CloudHSM User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/latest/APIReference/ AWS CloudHSM API Reference>.+--+-- Modifies an HSM.+--+-- This operation can result in the HSM being offline for up to 15 minutes+-- while the AWS CloudHSM service is reconfigured. If you are modifying a+-- production HSM, you should ensure that your AWS CloudHSM service is+-- configured for high availability, and consider executing this operation+-- during a maintenance window.+module Amazonka.CloudHSM.ModifyHsm+  ( -- * Creating a Request+    ModifyHsm (..),+    newModifyHsm,++    -- * Request Lenses+    modifyHsm_eniIp,+    modifyHsm_externalId,+    modifyHsm_iamRoleArn,+    modifyHsm_subnetId,+    modifyHsm_syslogIp,+    modifyHsm_hsmArn,++    -- * Destructuring the Response+    ModifyHsmResponse (..),+    newModifyHsmResponse,++    -- * Response Lenses+    modifyHsmResponse_hsmArn,+    modifyHsmResponse_httpStatus,+  )+where++import Amazonka.CloudHSM.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++-- | Contains the inputs for the ModifyHsm operation.+--+-- /See:/ 'newModifyHsm' smart constructor.+data ModifyHsm = ModifyHsm'+  { -- | The new IP address for the elastic network interface (ENI) attached to+    -- the HSM.+    --+    -- If the HSM is moved to a different subnet, and an IP address is not+    -- specified, an IP address will be randomly chosen from the CIDR range of+    -- the new subnet.+    eniIp :: Prelude.Maybe Prelude.Text,+    -- | The new external ID.+    externalId :: Prelude.Maybe Prelude.Text,+    -- | The new IAM role ARN.+    iamRoleArn :: Prelude.Maybe Prelude.Text,+    -- | The new identifier of the subnet that the HSM is in. The new subnet must+    -- be in the same Availability Zone as the current subnet.+    subnetId :: Prelude.Maybe Prelude.Text,+    -- | The new IP address for the syslog monitoring server. The AWS CloudHSM+    -- service only supports one syslog monitoring server.+    syslogIp :: Prelude.Maybe Prelude.Text,+    -- | The ARN of the HSM to modify.+    hsmArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ModifyHsm' 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:+--+-- 'eniIp', 'modifyHsm_eniIp' - The new IP address for the elastic network interface (ENI) attached to+-- the HSM.+--+-- If the HSM is moved to a different subnet, and an IP address is not+-- specified, an IP address will be randomly chosen from the CIDR range of+-- the new subnet.+--+-- 'externalId', 'modifyHsm_externalId' - The new external ID.+--+-- 'iamRoleArn', 'modifyHsm_iamRoleArn' - The new IAM role ARN.+--+-- 'subnetId', 'modifyHsm_subnetId' - The new identifier of the subnet that the HSM is in. The new subnet must+-- be in the same Availability Zone as the current subnet.+--+-- 'syslogIp', 'modifyHsm_syslogIp' - The new IP address for the syslog monitoring server. The AWS CloudHSM+-- service only supports one syslog monitoring server.+--+-- 'hsmArn', 'modifyHsm_hsmArn' - The ARN of the HSM to modify.+newModifyHsm ::+  -- | 'hsmArn'+  Prelude.Text ->+  ModifyHsm+newModifyHsm pHsmArn_ =+  ModifyHsm'+    { eniIp = Prelude.Nothing,+      externalId = Prelude.Nothing,+      iamRoleArn = Prelude.Nothing,+      subnetId = Prelude.Nothing,+      syslogIp = Prelude.Nothing,+      hsmArn = pHsmArn_+    }++-- | The new IP address for the elastic network interface (ENI) attached to+-- the HSM.+--+-- If the HSM is moved to a different subnet, and an IP address is not+-- specified, an IP address will be randomly chosen from the CIDR range of+-- the new subnet.+modifyHsm_eniIp :: Lens.Lens' ModifyHsm (Prelude.Maybe Prelude.Text)+modifyHsm_eniIp = Lens.lens (\ModifyHsm' {eniIp} -> eniIp) (\s@ModifyHsm' {} a -> s {eniIp = a} :: ModifyHsm)++-- | The new external ID.+modifyHsm_externalId :: Lens.Lens' ModifyHsm (Prelude.Maybe Prelude.Text)+modifyHsm_externalId = Lens.lens (\ModifyHsm' {externalId} -> externalId) (\s@ModifyHsm' {} a -> s {externalId = a} :: ModifyHsm)++-- | The new IAM role ARN.+modifyHsm_iamRoleArn :: Lens.Lens' ModifyHsm (Prelude.Maybe Prelude.Text)+modifyHsm_iamRoleArn = Lens.lens (\ModifyHsm' {iamRoleArn} -> iamRoleArn) (\s@ModifyHsm' {} a -> s {iamRoleArn = a} :: ModifyHsm)++-- | The new identifier of the subnet that the HSM is in. The new subnet must+-- be in the same Availability Zone as the current subnet.+modifyHsm_subnetId :: Lens.Lens' ModifyHsm (Prelude.Maybe Prelude.Text)+modifyHsm_subnetId = Lens.lens (\ModifyHsm' {subnetId} -> subnetId) (\s@ModifyHsm' {} a -> s {subnetId = a} :: ModifyHsm)++-- | The new IP address for the syslog monitoring server. The AWS CloudHSM+-- service only supports one syslog monitoring server.+modifyHsm_syslogIp :: Lens.Lens' ModifyHsm (Prelude.Maybe Prelude.Text)+modifyHsm_syslogIp = Lens.lens (\ModifyHsm' {syslogIp} -> syslogIp) (\s@ModifyHsm' {} a -> s {syslogIp = a} :: ModifyHsm)++-- | The ARN of the HSM to modify.+modifyHsm_hsmArn :: Lens.Lens' ModifyHsm Prelude.Text+modifyHsm_hsmArn = Lens.lens (\ModifyHsm' {hsmArn} -> hsmArn) (\s@ModifyHsm' {} a -> s {hsmArn = a} :: ModifyHsm)++instance Core.AWSRequest ModifyHsm where+  type AWSResponse ModifyHsm = ModifyHsmResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ModifyHsmResponse'+            Prelude.<$> (x Data..?> "HsmArn")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ModifyHsm where+  hashWithSalt _salt ModifyHsm' {..} =+    _salt+      `Prelude.hashWithSalt` eniIp+      `Prelude.hashWithSalt` externalId+      `Prelude.hashWithSalt` iamRoleArn+      `Prelude.hashWithSalt` subnetId+      `Prelude.hashWithSalt` syslogIp+      `Prelude.hashWithSalt` hsmArn++instance Prelude.NFData ModifyHsm where+  rnf ModifyHsm' {..} =+    Prelude.rnf eniIp+      `Prelude.seq` Prelude.rnf externalId+      `Prelude.seq` Prelude.rnf iamRoleArn+      `Prelude.seq` Prelude.rnf subnetId+      `Prelude.seq` Prelude.rnf syslogIp+      `Prelude.seq` Prelude.rnf hsmArn++instance Data.ToHeaders ModifyHsm where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "CloudHsmFrontendService.ModifyHsm" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ModifyHsm where+  toJSON ModifyHsm' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("EniIp" Data..=) Prelude.<$> eniIp,+            ("ExternalId" Data..=) Prelude.<$> externalId,+            ("IamRoleArn" Data..=) Prelude.<$> iamRoleArn,+            ("SubnetId" Data..=) Prelude.<$> subnetId,+            ("SyslogIp" Data..=) Prelude.<$> syslogIp,+            Prelude.Just ("HsmArn" Data..= hsmArn)+          ]+      )++instance Data.ToPath ModifyHsm where+  toPath = Prelude.const "/"++instance Data.ToQuery ModifyHsm where+  toQuery = Prelude.const Prelude.mempty++-- | Contains the output of the ModifyHsm operation.+--+-- /See:/ 'newModifyHsmResponse' smart constructor.+data ModifyHsmResponse = ModifyHsmResponse'+  { -- | The ARN of the HSM.+    hsmArn :: 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 'ModifyHsmResponse' 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:+--+-- 'hsmArn', 'modifyHsmResponse_hsmArn' - The ARN of the HSM.+--+-- 'httpStatus', 'modifyHsmResponse_httpStatus' - The response's http status code.+newModifyHsmResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ModifyHsmResponse+newModifyHsmResponse pHttpStatus_ =+  ModifyHsmResponse'+    { hsmArn = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The ARN of the HSM.+modifyHsmResponse_hsmArn :: Lens.Lens' ModifyHsmResponse (Prelude.Maybe Prelude.Text)+modifyHsmResponse_hsmArn = Lens.lens (\ModifyHsmResponse' {hsmArn} -> hsmArn) (\s@ModifyHsmResponse' {} a -> s {hsmArn = a} :: ModifyHsmResponse)++-- | The response's http status code.+modifyHsmResponse_httpStatus :: Lens.Lens' ModifyHsmResponse Prelude.Int+modifyHsmResponse_httpStatus = Lens.lens (\ModifyHsmResponse' {httpStatus} -> httpStatus) (\s@ModifyHsmResponse' {} a -> s {httpStatus = a} :: ModifyHsmResponse)++instance Prelude.NFData ModifyHsmResponse where+  rnf ModifyHsmResponse' {..} =+    Prelude.rnf hsmArn+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,205 @@+{-# 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.CloudHSM.ModifyLunaClient+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- This is documentation for __AWS CloudHSM Classic__. For more+-- information, see+-- <http://aws.amazon.com/cloudhsm/faqs-classic/ AWS CloudHSM Classic FAQs>,+-- the+-- <https://docs.aws.amazon.com/cloudhsm/classic/userguide/ AWS CloudHSM Classic User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/classic/APIReference/ AWS CloudHSM Classic API Reference>.+--+-- __For information about the current version of AWS CloudHSM__, see+-- <http://aws.amazon.com/cloudhsm/ AWS CloudHSM>, the+-- <https://docs.aws.amazon.com/cloudhsm/latest/userguide/ AWS CloudHSM User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/latest/APIReference/ AWS CloudHSM API Reference>.+--+-- Modifies the certificate used by the client.+--+-- This action can potentially start a workflow to install the new+-- certificate on the client\'s HSMs.+module Amazonka.CloudHSM.ModifyLunaClient+  ( -- * Creating a Request+    ModifyLunaClient (..),+    newModifyLunaClient,++    -- * Request Lenses+    modifyLunaClient_clientArn,+    modifyLunaClient_certificate,++    -- * Destructuring the Response+    ModifyLunaClientResponse (..),+    newModifyLunaClientResponse,++    -- * Response Lenses+    modifyLunaClientResponse_clientArn,+    modifyLunaClientResponse_httpStatus,+  )+where++import Amazonka.CloudHSM.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:/ 'newModifyLunaClient' smart constructor.+data ModifyLunaClient = ModifyLunaClient'+  { -- | The ARN of the client.+    clientArn :: Prelude.Text,+    -- | The new certificate for the client.+    certificate :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ModifyLunaClient' 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:+--+-- 'clientArn', 'modifyLunaClient_clientArn' - The ARN of the client.+--+-- 'certificate', 'modifyLunaClient_certificate' - The new certificate for the client.+newModifyLunaClient ::+  -- | 'clientArn'+  Prelude.Text ->+  -- | 'certificate'+  Prelude.Text ->+  ModifyLunaClient+newModifyLunaClient pClientArn_ pCertificate_ =+  ModifyLunaClient'+    { clientArn = pClientArn_,+      certificate = pCertificate_+    }++-- | The ARN of the client.+modifyLunaClient_clientArn :: Lens.Lens' ModifyLunaClient Prelude.Text+modifyLunaClient_clientArn = Lens.lens (\ModifyLunaClient' {clientArn} -> clientArn) (\s@ModifyLunaClient' {} a -> s {clientArn = a} :: ModifyLunaClient)++-- | The new certificate for the client.+modifyLunaClient_certificate :: Lens.Lens' ModifyLunaClient Prelude.Text+modifyLunaClient_certificate = Lens.lens (\ModifyLunaClient' {certificate} -> certificate) (\s@ModifyLunaClient' {} a -> s {certificate = a} :: ModifyLunaClient)++instance Core.AWSRequest ModifyLunaClient where+  type+    AWSResponse ModifyLunaClient =+      ModifyLunaClientResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ModifyLunaClientResponse'+            Prelude.<$> (x Data..?> "ClientArn")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ModifyLunaClient where+  hashWithSalt _salt ModifyLunaClient' {..} =+    _salt+      `Prelude.hashWithSalt` clientArn+      `Prelude.hashWithSalt` certificate++instance Prelude.NFData ModifyLunaClient where+  rnf ModifyLunaClient' {..} =+    Prelude.rnf clientArn+      `Prelude.seq` Prelude.rnf certificate++instance Data.ToHeaders ModifyLunaClient where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "CloudHsmFrontendService.ModifyLunaClient" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ModifyLunaClient where+  toJSON ModifyLunaClient' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("ClientArn" Data..= clientArn),+            Prelude.Just ("Certificate" Data..= certificate)+          ]+      )++instance Data.ToPath ModifyLunaClient where+  toPath = Prelude.const "/"++instance Data.ToQuery ModifyLunaClient where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newModifyLunaClientResponse' smart constructor.+data ModifyLunaClientResponse = ModifyLunaClientResponse'+  { -- | The ARN of the client.+    clientArn :: 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 'ModifyLunaClientResponse' 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:+--+-- 'clientArn', 'modifyLunaClientResponse_clientArn' - The ARN of the client.+--+-- 'httpStatus', 'modifyLunaClientResponse_httpStatus' - The response's http status code.+newModifyLunaClientResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ModifyLunaClientResponse+newModifyLunaClientResponse pHttpStatus_ =+  ModifyLunaClientResponse'+    { clientArn =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The ARN of the client.+modifyLunaClientResponse_clientArn :: Lens.Lens' ModifyLunaClientResponse (Prelude.Maybe Prelude.Text)+modifyLunaClientResponse_clientArn = Lens.lens (\ModifyLunaClientResponse' {clientArn} -> clientArn) (\s@ModifyLunaClientResponse' {} a -> s {clientArn = a} :: ModifyLunaClientResponse)++-- | The response's http status code.+modifyLunaClientResponse_httpStatus :: Lens.Lens' ModifyLunaClientResponse Prelude.Int+modifyLunaClientResponse_httpStatus = Lens.lens (\ModifyLunaClientResponse' {httpStatus} -> httpStatus) (\s@ModifyLunaClientResponse' {} a -> s {httpStatus = a} :: ModifyLunaClientResponse)++instance Prelude.NFData ModifyLunaClientResponse where+  rnf ModifyLunaClientResponse' {..} =+    Prelude.rnf clientArn+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,220 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.CloudHSM.RemoveTagsFromResource+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- This is documentation for __AWS CloudHSM Classic__. For more+-- information, see+-- <http://aws.amazon.com/cloudhsm/faqs-classic/ AWS CloudHSM Classic FAQs>,+-- the+-- <https://docs.aws.amazon.com/cloudhsm/classic/userguide/ AWS CloudHSM Classic User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/classic/APIReference/ AWS CloudHSM Classic API Reference>.+--+-- __For information about the current version of AWS CloudHSM__, see+-- <http://aws.amazon.com/cloudhsm/ AWS CloudHSM>, the+-- <https://docs.aws.amazon.com/cloudhsm/latest/userguide/ AWS CloudHSM User Guide>,+-- and the+-- <https://docs.aws.amazon.com/cloudhsm/latest/APIReference/ AWS CloudHSM API Reference>.+--+-- Removes one or more tags from the specified AWS CloudHSM resource.+--+-- To remove a tag, specify only the tag key to remove (not the value). To+-- overwrite the value for an existing tag, use AddTagsToResource.+module Amazonka.CloudHSM.RemoveTagsFromResource+  ( -- * Creating a Request+    RemoveTagsFromResource (..),+    newRemoveTagsFromResource,++    -- * Request Lenses+    removeTagsFromResource_resourceArn,+    removeTagsFromResource_tagKeyList,++    -- * Destructuring the Response+    RemoveTagsFromResourceResponse (..),+    newRemoveTagsFromResourceResponse,++    -- * Response Lenses+    removeTagsFromResourceResponse_httpStatus,+    removeTagsFromResourceResponse_status,+  )+where++import Amazonka.CloudHSM.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:/ 'newRemoveTagsFromResource' smart constructor.+data RemoveTagsFromResource = RemoveTagsFromResource'+  { -- | The Amazon Resource Name (ARN) of the AWS CloudHSM resource.+    resourceArn :: Prelude.Text,+    -- | The tag key or keys to remove.+    --+    -- Specify only the tag key to remove (not the value). To overwrite the+    -- value for an existing tag, use AddTagsToResource.+    tagKeyList :: [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RemoveTagsFromResource' 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:+--+-- 'resourceArn', 'removeTagsFromResource_resourceArn' - The Amazon Resource Name (ARN) of the AWS CloudHSM resource.+--+-- 'tagKeyList', 'removeTagsFromResource_tagKeyList' - The tag key or keys to remove.+--+-- Specify only the tag key to remove (not the value). To overwrite the+-- value for an existing tag, use AddTagsToResource.+newRemoveTagsFromResource ::+  -- | 'resourceArn'+  Prelude.Text ->+  RemoveTagsFromResource+newRemoveTagsFromResource pResourceArn_ =+  RemoveTagsFromResource'+    { resourceArn =+        pResourceArn_,+      tagKeyList = Prelude.mempty+    }++-- | The Amazon Resource Name (ARN) of the AWS CloudHSM resource.+removeTagsFromResource_resourceArn :: Lens.Lens' RemoveTagsFromResource Prelude.Text+removeTagsFromResource_resourceArn = Lens.lens (\RemoveTagsFromResource' {resourceArn} -> resourceArn) (\s@RemoveTagsFromResource' {} a -> s {resourceArn = a} :: RemoveTagsFromResource)++-- | The tag key or keys to remove.+--+-- Specify only the tag key to remove (not the value). To overwrite the+-- value for an existing tag, use AddTagsToResource.+removeTagsFromResource_tagKeyList :: Lens.Lens' RemoveTagsFromResource [Prelude.Text]+removeTagsFromResource_tagKeyList = Lens.lens (\RemoveTagsFromResource' {tagKeyList} -> tagKeyList) (\s@RemoveTagsFromResource' {} a -> s {tagKeyList = a} :: RemoveTagsFromResource) Prelude.. Lens.coerced++instance Core.AWSRequest RemoveTagsFromResource where+  type+    AWSResponse RemoveTagsFromResource =+      RemoveTagsFromResourceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          RemoveTagsFromResourceResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "Status")+      )++instance Prelude.Hashable RemoveTagsFromResource where+  hashWithSalt _salt RemoveTagsFromResource' {..} =+    _salt+      `Prelude.hashWithSalt` resourceArn+      `Prelude.hashWithSalt` tagKeyList++instance Prelude.NFData RemoveTagsFromResource where+  rnf RemoveTagsFromResource' {..} =+    Prelude.rnf resourceArn+      `Prelude.seq` Prelude.rnf tagKeyList++instance Data.ToHeaders RemoveTagsFromResource where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "CloudHsmFrontendService.RemoveTagsFromResource" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON RemoveTagsFromResource where+  toJSON RemoveTagsFromResource' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("ResourceArn" Data..= resourceArn),+            Prelude.Just ("TagKeyList" Data..= tagKeyList)+          ]+      )++instance Data.ToPath RemoveTagsFromResource where+  toPath = Prelude.const "/"++instance Data.ToQuery RemoveTagsFromResource where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newRemoveTagsFromResourceResponse' smart constructor.+data RemoveTagsFromResourceResponse = RemoveTagsFromResourceResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The status of the operation.+    status :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RemoveTagsFromResourceResponse' 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', 'removeTagsFromResourceResponse_httpStatus' - The response's http status code.+--+-- 'status', 'removeTagsFromResourceResponse_status' - The status of the operation.+newRemoveTagsFromResourceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'status'+  Prelude.Text ->+  RemoveTagsFromResourceResponse+newRemoveTagsFromResourceResponse+  pHttpStatus_+  pStatus_ =+    RemoveTagsFromResourceResponse'+      { httpStatus =+          pHttpStatus_,+        status = pStatus_+      }++-- | The response's http status code.+removeTagsFromResourceResponse_httpStatus :: Lens.Lens' RemoveTagsFromResourceResponse Prelude.Int+removeTagsFromResourceResponse_httpStatus = Lens.lens (\RemoveTagsFromResourceResponse' {httpStatus} -> httpStatus) (\s@RemoveTagsFromResourceResponse' {} a -> s {httpStatus = a} :: RemoveTagsFromResourceResponse)++-- | The status of the operation.+removeTagsFromResourceResponse_status :: Lens.Lens' RemoveTagsFromResourceResponse Prelude.Text+removeTagsFromResourceResponse_status = Lens.lens (\RemoveTagsFromResourceResponse' {status} -> status) (\s@RemoveTagsFromResourceResponse' {} a -> s {status = a} :: RemoveTagsFromResourceResponse)++instance+  Prelude.NFData+    RemoveTagsFromResourceResponse+  where+  rnf RemoveTagsFromResourceResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf status

@@ -0,0 +1,144 @@+{-# 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.CloudHSM.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.CloudHSM.Types+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    _CloudHsmInternalException,+    _CloudHsmServiceException,+    _InvalidRequestException,++    -- * ClientVersion+    ClientVersion (..),++    -- * CloudHsmObjectState+    CloudHsmObjectState (..),++    -- * HsmStatus+    HsmStatus (..),++    -- * SubscriptionType+    SubscriptionType (..),++    -- * Tag+    Tag (..),+    newTag,+    tag_key,+    tag_value,+  )+where++import Amazonka.CloudHSM.Types.ClientVersion+import Amazonka.CloudHSM.Types.CloudHsmObjectState+import Amazonka.CloudHSM.Types.HsmStatus+import Amazonka.CloudHSM.Types.SubscriptionType+import Amazonka.CloudHSM.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 @2014-05-30@ of the Amazon CloudHSM SDK configuration.+defaultService :: Core.Service+defaultService =+  Core.Service+    { Core.abbrev = "CloudHSM",+      Core.signer = Sign.v4,+      Core.endpointPrefix = "cloudhsm",+      Core.signingName = "cloudhsm",+      Core.version = "2014-05-30",+      Core.s3AddressingStyle = Core.S3AddressingStyleAuto,+      Core.endpoint = Core.defaultEndpoint defaultService,+      Core.timeout = Prelude.Just 70,+      Core.check = Core.statusSuccess,+      Core.error = Core.parseJSONError "CloudHSM",+      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++-- | Indicates that an internal error occurred.+_CloudHsmInternalException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_CloudHsmInternalException =+  Core._MatchServiceError+    defaultService+    "CloudHsmInternalException"++-- | Indicates that an exception occurred in the AWS CloudHSM service.+_CloudHsmServiceException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_CloudHsmServiceException =+  Core._MatchServiceError+    defaultService+    "CloudHsmServiceException"++-- | Indicates that one or more of the request parameters are not valid.+_InvalidRequestException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidRequestException =+  Core._MatchServiceError+    defaultService+    "InvalidRequestException"

@@ -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.CloudHSM.Types.ClientVersion+-- 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.CloudHSM.Types.ClientVersion+  ( ClientVersion+      ( ..,+        ClientVersion_+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ClientVersion = ClientVersion'+  { fromClientVersion ::+      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 ClientVersion_ :: ClientVersion+pattern ClientVersion_ = ClientVersion' "5.1"++{-# COMPLETE+  ClientVersion_,+  ClientVersion'+  #-}