amazonka-dynamodb-dax 1.6.1 → 2.0

raw patch · 83 files changed

+9196/−5826 lines, 83 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-dynamodb-dax.cabal +115/−95
• gen/Amazonka/DAX.hs +377/−0
• gen/Amazonka/DAX/CreateCluster.hs +542/−0
• gen/Amazonka/DAX/CreateParameterGroup.hs +192/−0
• gen/Amazonka/DAX/CreateSubnetGroup.hs +200/−0
• gen/Amazonka/DAX/DecreaseReplicationFactor.hs +231/−0
• gen/Amazonka/DAX/DeleteCluster.hs +168/−0
• gen/Amazonka/DAX/DeleteParameterGroup.hs +178/−0
• gen/Amazonka/DAX/DeleteSubnetGroup.hs +180/−0
• gen/Amazonka/DAX/DescribeClusters.hs +273/−0
• gen/Amazonka/DAX/DescribeDefaultParameters.hs +246/−0
• gen/Amazonka/DAX/DescribeEvents.hs +321/−0
• gen/Amazonka/DAX/DescribeParameterGroups.hs +267/−0
• gen/Amazonka/DAX/DescribeParameters.hs +276/−0
• gen/Amazonka/DAX/DescribeSubnetGroups.hs +259/−0
• gen/Amazonka/DAX/IncreaseReplicationFactor.hs +220/−0
• gen/Amazonka/DAX/Lens.hs +315/−0
• gen/Amazonka/DAX/ListTags.hs +230/−0
• gen/Amazonka/DAX/RebootNode.hs +188/−0
• gen/Amazonka/DAX/TagResource.hs +182/−0
• gen/Amazonka/DAX/Types.hs +490/−0
• gen/Amazonka/DAX/Types/ChangeType.hs +71/−0
• gen/Amazonka/DAX/Types/Cluster.hs +337/−0
• gen/Amazonka/DAX/Types/ClusterEndpointEncryptionType.hs +71/−0
• gen/Amazonka/DAX/Types/Endpoint.hs +103/−0
• gen/Amazonka/DAX/Types/Event.hs +117/−0
• gen/Amazonka/DAX/Types/IsModifiable.hs +76/−0
• gen/Amazonka/DAX/Types/Node.hs +145/−0
• gen/Amazonka/DAX/Types/NodeTypeSpecificValue.hs +85/−0
• gen/Amazonka/DAX/Types/NotificationConfiguration.hs +93/−0
• gen/Amazonka/DAX/Types/Parameter.hs +200/−0
• gen/Amazonka/DAX/Types/ParameterGroup.hs +85/−0
• gen/Amazonka/DAX/Types/ParameterGroupStatus.hs +100/−0
• gen/Amazonka/DAX/Types/ParameterNameValue.hs +85/−0
• gen/Amazonka/DAX/Types/ParameterType.hs +71/−0
• gen/Amazonka/DAX/Types/SSEDescription.hs +93/−0
• gen/Amazonka/DAX/Types/SSESpecification.hs +71/−0
• gen/Amazonka/DAX/Types/SSEStatus.hs +81/−0
• gen/Amazonka/DAX/Types/SecurityGroupMembership.hs +85/−0
• gen/Amazonka/DAX/Types/SourceType.hs +76/−0
• gen/Amazonka/DAX/Types/Subnet.hs +86/−0
• gen/Amazonka/DAX/Types/SubnetGroup.hs +116/−0
• gen/Amazonka/DAX/Types/Tag.hs +106/−0
• gen/Amazonka/DAX/UntagResource.hs +187/−0
• gen/Amazonka/DAX/UpdateCluster.hs +276/−0
• gen/Amazonka/DAX/UpdateParameterGroup.hs +206/−0
• gen/Amazonka/DAX/UpdateSubnetGroup.hs +200/−0
• gen/Amazonka/DAX/Waiters.hs +24/−0
• gen/Network/AWS/DAX.hs +0/−351
• gen/Network/AWS/DAX/CreateCluster.hs +0/−250
• gen/Network/AWS/DAX/CreateParameterGroup.hs +0/−145
• gen/Network/AWS/DAX/CreateSubnetGroup.hs +0/−155
• gen/Network/AWS/DAX/DecreaseReplicationFactor.hs +0/−171
• gen/Network/AWS/DAX/DeleteCluster.hs +0/−131
• gen/Network/AWS/DAX/DeleteParameterGroup.hs +0/−135
• gen/Network/AWS/DAX/DeleteSubnetGroup.hs +0/−133
• gen/Network/AWS/DAX/DescribeClusters.hs +0/−171
• gen/Network/AWS/DAX/DescribeDefaultParameters.hs +0/−157
• gen/Network/AWS/DAX/DescribeEvents.hs +0/−208
• gen/Network/AWS/DAX/DescribeParameterGroups.hs +0/−170
• gen/Network/AWS/DAX/DescribeParameters.hs +0/−180
• gen/Network/AWS/DAX/DescribeSubnetGroups.hs +0/−168
• gen/Network/AWS/DAX/IncreaseReplicationFactor.hs +0/−161
• gen/Network/AWS/DAX/ListTags.hs +0/−154
• gen/Network/AWS/DAX/RebootNode.hs +0/−143
• gen/Network/AWS/DAX/TagResource.hs +0/−142
• gen/Network/AWS/DAX/Types.hs +0/−405
• gen/Network/AWS/DAX/Types/Product.hs +0/−939
• gen/Network/AWS/DAX/Types/Sum.hs +0/−137
• gen/Network/AWS/DAX/UntagResource.hs +0/−142
• gen/Network/AWS/DAX/UpdateCluster.hs +0/−198
• gen/Network/AWS/DAX/UpdateParameterGroup.hs +0/−148
• gen/Network/AWS/DAX/UpdateSubnetGroup.hs +0/−155
• gen/Network/AWS/DAX/Waiters.hs +0/−21
• test/Main.hs +11/−9
• test/Test/AWS/DAX.hs +0/−20
• test/Test/AWS/DAX/Internal.hs +0/−9
• test/Test/AWS/Gen/DAX.hs +0/−417
• test/Test/Amazonka/DAX.hs +20/−0
• test/Test/Amazonka/DAX/Internal.hs +8/−0
• test/Test/Amazonka/Gen/DAX.hs +458/−0

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

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

@@ -1,106 +1,126 @@-name:                  amazonka-dynamodb-dax-version:               1.6.1-synopsis:              Amazon DynamoDB Accelerator (DAX) 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-dynamodb-dax+version:            2.0+synopsis:           Amazon DynamoDB Accelerator (DAX) 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.DAX" or <https://aws.amazon.com/documentation/ the AWS documentation>-    to get started.+  Derived from API version @2017-04-19@ 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.DAX.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.DAX" 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-dynamodb-dax+  type:     git+  location: git://github.com/brendanhay/amazonka.git+  subdir:   amazonka-dynamodb-dax  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.DAX-        , Network.AWS.DAX.CreateCluster-        , Network.AWS.DAX.CreateParameterGroup-        , Network.AWS.DAX.CreateSubnetGroup-        , Network.AWS.DAX.DecreaseReplicationFactor-        , Network.AWS.DAX.DeleteCluster-        , Network.AWS.DAX.DeleteParameterGroup-        , Network.AWS.DAX.DeleteSubnetGroup-        , Network.AWS.DAX.DescribeClusters-        , Network.AWS.DAX.DescribeDefaultParameters-        , Network.AWS.DAX.DescribeEvents-        , Network.AWS.DAX.DescribeParameterGroups-        , Network.AWS.DAX.DescribeParameters-        , Network.AWS.DAX.DescribeSubnetGroups-        , Network.AWS.DAX.IncreaseReplicationFactor-        , Network.AWS.DAX.ListTags-        , Network.AWS.DAX.RebootNode-        , Network.AWS.DAX.TagResource-        , Network.AWS.DAX.Types-        , Network.AWS.DAX.UntagResource-        , Network.AWS.DAX.UpdateCluster-        , Network.AWS.DAX.UpdateParameterGroup-        , Network.AWS.DAX.UpdateSubnetGroup-        , Network.AWS.DAX.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.DAX.Types.Product-        , Network.AWS.DAX.Types.Sum+  exposed-modules:+    Amazonka.DAX+    Amazonka.DAX.CreateCluster+    Amazonka.DAX.CreateParameterGroup+    Amazonka.DAX.CreateSubnetGroup+    Amazonka.DAX.DecreaseReplicationFactor+    Amazonka.DAX.DeleteCluster+    Amazonka.DAX.DeleteParameterGroup+    Amazonka.DAX.DeleteSubnetGroup+    Amazonka.DAX.DescribeClusters+    Amazonka.DAX.DescribeDefaultParameters+    Amazonka.DAX.DescribeEvents+    Amazonka.DAX.DescribeParameterGroups+    Amazonka.DAX.DescribeParameters+    Amazonka.DAX.DescribeSubnetGroups+    Amazonka.DAX.IncreaseReplicationFactor+    Amazonka.DAX.Lens+    Amazonka.DAX.ListTags+    Amazonka.DAX.RebootNode+    Amazonka.DAX.TagResource+    Amazonka.DAX.Types+    Amazonka.DAX.Types.ChangeType+    Amazonka.DAX.Types.Cluster+    Amazonka.DAX.Types.ClusterEndpointEncryptionType+    Amazonka.DAX.Types.Endpoint+    Amazonka.DAX.Types.Event+    Amazonka.DAX.Types.IsModifiable+    Amazonka.DAX.Types.Node+    Amazonka.DAX.Types.NodeTypeSpecificValue+    Amazonka.DAX.Types.NotificationConfiguration+    Amazonka.DAX.Types.Parameter+    Amazonka.DAX.Types.ParameterGroup+    Amazonka.DAX.Types.ParameterGroupStatus+    Amazonka.DAX.Types.ParameterNameValue+    Amazonka.DAX.Types.ParameterType+    Amazonka.DAX.Types.SecurityGroupMembership+    Amazonka.DAX.Types.SourceType+    Amazonka.DAX.Types.SSEDescription+    Amazonka.DAX.Types.SSESpecification+    Amazonka.DAX.Types.SSEStatus+    Amazonka.DAX.Types.Subnet+    Amazonka.DAX.Types.SubnetGroup+    Amazonka.DAX.Types.Tag+    Amazonka.DAX.UntagResource+    Amazonka.DAX.UpdateCluster+    Amazonka.DAX.UpdateParameterGroup+    Amazonka.DAX.UpdateSubnetGroup+    Amazonka.DAX.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-dynamodb-dax-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.DAX-        , Test.AWS.Gen.DAX-        , Test.AWS.DAX.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.DAX+    Test.Amazonka.DAX.Internal+    Test.Amazonka.Gen.DAX -    build-depends:-          amazonka-core == 1.6.1.*-        , amazonka-test == 1.6.1.*-        , amazonka-dynamodb-dax-        , base-        , bytestring-        , tasty-        , tasty-hunit-        , text-        , time-        , unordered-containers+  build-depends:+    , amazonka-core          >=2.0 && <2.1+    , amazonka-dynamodb-dax+    , amazonka-test          >=2.0 && <2.1+    , base+    , bytestring+    , case-insensitive+    , tasty+    , tasty-hunit+    , text+    , time+    , unordered-containers

@@ -0,0 +1,377 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.DAX+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Derived from API version @2017-04-19@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- DAX is a managed caching service engineered for Amazon DynamoDB. DAX+-- dramatically speeds up database reads by caching frequently-accessed+-- data from DynamoDB, so applications can access that data with+-- sub-millisecond latency. You can create a DAX cluster easily, using the+-- AWS Management Console. With a few simple modifications to your code,+-- your application can begin taking advantage of the DAX cluster and+-- realize significant improvements in read performance.+module Amazonka.DAX+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** ClusterAlreadyExistsFault+    _ClusterAlreadyExistsFault,++    -- ** ClusterNotFoundFault+    _ClusterNotFoundFault,++    -- ** ClusterQuotaForCustomerExceededFault+    _ClusterQuotaForCustomerExceededFault,++    -- ** InsufficientClusterCapacityFault+    _InsufficientClusterCapacityFault,++    -- ** InvalidARNFault+    _InvalidARNFault,++    -- ** InvalidClusterStateFault+    _InvalidClusterStateFault,++    -- ** InvalidParameterCombinationException+    _InvalidParameterCombinationException,++    -- ** InvalidParameterGroupStateFault+    _InvalidParameterGroupStateFault,++    -- ** InvalidParameterValueException+    _InvalidParameterValueException,++    -- ** InvalidSubnet+    _InvalidSubnet,++    -- ** InvalidVPCNetworkStateFault+    _InvalidVPCNetworkStateFault,++    -- ** NodeNotFoundFault+    _NodeNotFoundFault,++    -- ** NodeQuotaForClusterExceededFault+    _NodeQuotaForClusterExceededFault,++    -- ** NodeQuotaForCustomerExceededFault+    _NodeQuotaForCustomerExceededFault,++    -- ** ParameterGroupAlreadyExistsFault+    _ParameterGroupAlreadyExistsFault,++    -- ** ParameterGroupNotFoundFault+    _ParameterGroupNotFoundFault,++    -- ** ParameterGroupQuotaExceededFault+    _ParameterGroupQuotaExceededFault,++    -- ** ServiceLinkedRoleNotFoundFault+    _ServiceLinkedRoleNotFoundFault,++    -- ** ServiceQuotaExceededException+    _ServiceQuotaExceededException,++    -- ** SubnetGroupAlreadyExistsFault+    _SubnetGroupAlreadyExistsFault,++    -- ** SubnetGroupInUseFault+    _SubnetGroupInUseFault,++    -- ** SubnetGroupNotFoundFault+    _SubnetGroupNotFoundFault,++    -- ** SubnetGroupQuotaExceededFault+    _SubnetGroupQuotaExceededFault,++    -- ** SubnetInUse+    _SubnetInUse,++    -- ** SubnetQuotaExceededFault+    _SubnetQuotaExceededFault,++    -- ** TagNotFoundFault+    _TagNotFoundFault,++    -- ** TagQuotaPerResourceExceeded+    _TagQuotaPerResourceExceeded,++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** CreateCluster+    CreateCluster (CreateCluster'),+    newCreateCluster,+    CreateClusterResponse (CreateClusterResponse'),+    newCreateClusterResponse,++    -- ** CreateParameterGroup+    CreateParameterGroup (CreateParameterGroup'),+    newCreateParameterGroup,+    CreateParameterGroupResponse (CreateParameterGroupResponse'),+    newCreateParameterGroupResponse,++    -- ** CreateSubnetGroup+    CreateSubnetGroup (CreateSubnetGroup'),+    newCreateSubnetGroup,+    CreateSubnetGroupResponse (CreateSubnetGroupResponse'),+    newCreateSubnetGroupResponse,++    -- ** DecreaseReplicationFactor+    DecreaseReplicationFactor (DecreaseReplicationFactor'),+    newDecreaseReplicationFactor,+    DecreaseReplicationFactorResponse (DecreaseReplicationFactorResponse'),+    newDecreaseReplicationFactorResponse,++    -- ** DeleteCluster+    DeleteCluster (DeleteCluster'),+    newDeleteCluster,+    DeleteClusterResponse (DeleteClusterResponse'),+    newDeleteClusterResponse,++    -- ** DeleteParameterGroup+    DeleteParameterGroup (DeleteParameterGroup'),+    newDeleteParameterGroup,+    DeleteParameterGroupResponse (DeleteParameterGroupResponse'),+    newDeleteParameterGroupResponse,++    -- ** DeleteSubnetGroup+    DeleteSubnetGroup (DeleteSubnetGroup'),+    newDeleteSubnetGroup,+    DeleteSubnetGroupResponse (DeleteSubnetGroupResponse'),+    newDeleteSubnetGroupResponse,++    -- ** DescribeClusters (Paginated)+    DescribeClusters (DescribeClusters'),+    newDescribeClusters,+    DescribeClustersResponse (DescribeClustersResponse'),+    newDescribeClustersResponse,++    -- ** DescribeDefaultParameters (Paginated)+    DescribeDefaultParameters (DescribeDefaultParameters'),+    newDescribeDefaultParameters,+    DescribeDefaultParametersResponse (DescribeDefaultParametersResponse'),+    newDescribeDefaultParametersResponse,++    -- ** DescribeEvents (Paginated)+    DescribeEvents (DescribeEvents'),+    newDescribeEvents,+    DescribeEventsResponse (DescribeEventsResponse'),+    newDescribeEventsResponse,++    -- ** DescribeParameterGroups (Paginated)+    DescribeParameterGroups (DescribeParameterGroups'),+    newDescribeParameterGroups,+    DescribeParameterGroupsResponse (DescribeParameterGroupsResponse'),+    newDescribeParameterGroupsResponse,++    -- ** DescribeParameters (Paginated)+    DescribeParameters (DescribeParameters'),+    newDescribeParameters,+    DescribeParametersResponse (DescribeParametersResponse'),+    newDescribeParametersResponse,++    -- ** DescribeSubnetGroups (Paginated)+    DescribeSubnetGroups (DescribeSubnetGroups'),+    newDescribeSubnetGroups,+    DescribeSubnetGroupsResponse (DescribeSubnetGroupsResponse'),+    newDescribeSubnetGroupsResponse,++    -- ** IncreaseReplicationFactor+    IncreaseReplicationFactor (IncreaseReplicationFactor'),+    newIncreaseReplicationFactor,+    IncreaseReplicationFactorResponse (IncreaseReplicationFactorResponse'),+    newIncreaseReplicationFactorResponse,++    -- ** ListTags (Paginated)+    ListTags (ListTags'),+    newListTags,+    ListTagsResponse (ListTagsResponse'),+    newListTagsResponse,++    -- ** RebootNode+    RebootNode (RebootNode'),+    newRebootNode,+    RebootNodeResponse (RebootNodeResponse'),+    newRebootNodeResponse,++    -- ** TagResource+    TagResource (TagResource'),+    newTagResource,+    TagResourceResponse (TagResourceResponse'),+    newTagResourceResponse,++    -- ** UntagResource+    UntagResource (UntagResource'),+    newUntagResource,+    UntagResourceResponse (UntagResourceResponse'),+    newUntagResourceResponse,++    -- ** UpdateCluster+    UpdateCluster (UpdateCluster'),+    newUpdateCluster,+    UpdateClusterResponse (UpdateClusterResponse'),+    newUpdateClusterResponse,++    -- ** UpdateParameterGroup+    UpdateParameterGroup (UpdateParameterGroup'),+    newUpdateParameterGroup,+    UpdateParameterGroupResponse (UpdateParameterGroupResponse'),+    newUpdateParameterGroupResponse,++    -- ** UpdateSubnetGroup+    UpdateSubnetGroup (UpdateSubnetGroup'),+    newUpdateSubnetGroup,+    UpdateSubnetGroupResponse (UpdateSubnetGroupResponse'),+    newUpdateSubnetGroupResponse,++    -- * Types++    -- ** ChangeType+    ChangeType (..),++    -- ** ClusterEndpointEncryptionType+    ClusterEndpointEncryptionType (..),++    -- ** IsModifiable+    IsModifiable (..),++    -- ** ParameterType+    ParameterType (..),++    -- ** SSEStatus+    SSEStatus (..),++    -- ** SourceType+    SourceType (..),++    -- ** Cluster+    Cluster (Cluster'),+    newCluster,++    -- ** Endpoint+    Endpoint (Endpoint'),+    newEndpoint,++    -- ** Event+    Event (Event'),+    newEvent,++    -- ** Node+    Node (Node'),+    newNode,++    -- ** NodeTypeSpecificValue+    NodeTypeSpecificValue (NodeTypeSpecificValue'),+    newNodeTypeSpecificValue,++    -- ** NotificationConfiguration+    NotificationConfiguration (NotificationConfiguration'),+    newNotificationConfiguration,++    -- ** Parameter+    Parameter (Parameter'),+    newParameter,++    -- ** ParameterGroup+    ParameterGroup (ParameterGroup'),+    newParameterGroup,++    -- ** ParameterGroupStatus+    ParameterGroupStatus (ParameterGroupStatus'),+    newParameterGroupStatus,++    -- ** ParameterNameValue+    ParameterNameValue (ParameterNameValue'),+    newParameterNameValue,++    -- ** SSEDescription+    SSEDescription (SSEDescription'),+    newSSEDescription,++    -- ** SSESpecification+    SSESpecification (SSESpecification'),+    newSSESpecification,++    -- ** SecurityGroupMembership+    SecurityGroupMembership (SecurityGroupMembership'),+    newSecurityGroupMembership,++    -- ** Subnet+    Subnet (Subnet'),+    newSubnet,++    -- ** SubnetGroup+    SubnetGroup (SubnetGroup'),+    newSubnetGroup,++    -- ** Tag+    Tag (Tag'),+    newTag,+  )+where++import Amazonka.DAX.CreateCluster+import Amazonka.DAX.CreateParameterGroup+import Amazonka.DAX.CreateSubnetGroup+import Amazonka.DAX.DecreaseReplicationFactor+import Amazonka.DAX.DeleteCluster+import Amazonka.DAX.DeleteParameterGroup+import Amazonka.DAX.DeleteSubnetGroup+import Amazonka.DAX.DescribeClusters+import Amazonka.DAX.DescribeDefaultParameters+import Amazonka.DAX.DescribeEvents+import Amazonka.DAX.DescribeParameterGroups+import Amazonka.DAX.DescribeParameters+import Amazonka.DAX.DescribeSubnetGroups+import Amazonka.DAX.IncreaseReplicationFactor+import Amazonka.DAX.Lens+import Amazonka.DAX.ListTags+import Amazonka.DAX.RebootNode+import Amazonka.DAX.TagResource+import Amazonka.DAX.Types+import Amazonka.DAX.UntagResource+import Amazonka.DAX.UpdateCluster+import Amazonka.DAX.UpdateParameterGroup+import Amazonka.DAX.UpdateSubnetGroup+import Amazonka.DAX.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 'DAX'.++-- $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,542 @@+{-# 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.DAX.CreateCluster+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a DAX cluster. All nodes in the cluster run the same DAX caching+-- software.+module Amazonka.DAX.CreateCluster+  ( -- * Creating a Request+    CreateCluster (..),+    newCreateCluster,++    -- * Request Lenses+    createCluster_availabilityZones,+    createCluster_clusterEndpointEncryptionType,+    createCluster_description,+    createCluster_notificationTopicArn,+    createCluster_parameterGroupName,+    createCluster_preferredMaintenanceWindow,+    createCluster_sSESpecification,+    createCluster_securityGroupIds,+    createCluster_subnetGroupName,+    createCluster_tags,+    createCluster_clusterName,+    createCluster_nodeType,+    createCluster_replicationFactor,+    createCluster_iamRoleArn,++    -- * Destructuring the Response+    CreateClusterResponse (..),+    newCreateClusterResponse,++    -- * Response Lenses+    createClusterResponse_cluster,+    createClusterResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import Amazonka.DAX.Types+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateCluster' smart constructor.+data CreateCluster = CreateCluster'+  { -- | The Availability Zones (AZs) in which the cluster nodes will reside+    -- after the cluster has been created or updated. If provided, the length+    -- of this list must equal the @ReplicationFactor@ parameter. If you omit+    -- this parameter, DAX will spread the nodes across Availability Zones for+    -- the highest availability.+    availabilityZones :: Prelude.Maybe [Prelude.Text],+    -- | The type of encryption the cluster\'s endpoint should support. Values+    -- are:+    --+    -- -   @NONE@ for no encryption+    --+    -- -   @TLS@ for Transport Layer Security+    clusterEndpointEncryptionType :: Prelude.Maybe ClusterEndpointEncryptionType,+    -- | A description of the cluster.+    description :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the Amazon SNS topic to which+    -- notifications will be sent.+    --+    -- The Amazon SNS topic owner must be same as the DAX cluster owner.+    notificationTopicArn :: Prelude.Maybe Prelude.Text,+    -- | The parameter group to be associated with the DAX cluster.+    parameterGroupName :: Prelude.Maybe Prelude.Text,+    -- | Specifies the weekly time range during which maintenance on the DAX+    -- cluster is performed. It is specified as a range in the format+    -- ddd:hh24:mi-ddd:hh24:mi (24H Clock UTC). The minimum maintenance window+    -- is a 60 minute period. Valid values for @ddd@ are:+    --+    -- -   @sun@+    --+    -- -   @mon@+    --+    -- -   @tue@+    --+    -- -   @wed@+    --+    -- -   @thu@+    --+    -- -   @fri@+    --+    -- -   @sat@+    --+    -- Example: @sun:05:00-sun:09:00@+    --+    -- If you don\'t specify a preferred maintenance window when you create or+    -- modify a cache cluster, DAX assigns a 60-minute maintenance window on a+    -- randomly selected day of the week.+    preferredMaintenanceWindow :: Prelude.Maybe Prelude.Text,+    -- | Represents the settings used to enable server-side encryption on the+    -- cluster.+    sSESpecification :: Prelude.Maybe SSESpecification,+    -- | A list of security group IDs to be assigned to each node in the DAX+    -- cluster. (Each of the security group ID is system-generated.)+    --+    -- If this parameter is not specified, DAX assigns the default VPC security+    -- group to each node.+    securityGroupIds :: Prelude.Maybe [Prelude.Text],+    -- | The name of the subnet group to be used for the replication group.+    --+    -- DAX clusters can only run in an Amazon VPC environment. All of the+    -- subnets that you specify in a subnet group must exist in the same VPC.+    subnetGroupName :: Prelude.Maybe Prelude.Text,+    -- | A set of tags to associate with the DAX cluster.+    tags :: Prelude.Maybe [Tag],+    -- | The cluster identifier. This parameter is stored as a lowercase string.+    --+    -- __Constraints:__+    --+    -- -   A name must contain from 1 to 20 alphanumeric characters or hyphens.+    --+    -- -   The first character must be a letter.+    --+    -- -   A name cannot end with a hyphen or contain two consecutive hyphens.+    clusterName :: Prelude.Text,+    -- | The compute and memory capacity of the nodes in the cluster.+    nodeType :: Prelude.Text,+    -- | The number of nodes in the DAX cluster. A replication factor of 1 will+    -- create a single-node cluster, without any read replicas. For additional+    -- fault tolerance, you can create a multiple node cluster with one or more+    -- read replicas. To do this, set @ReplicationFactor@ to a number between 3+    -- (one primary and two read replicas) and 10 (one primary and nine read+    -- replicas). @If the AvailabilityZones@ parameter is provided, its length+    -- must equal the @ReplicationFactor@.+    --+    -- AWS recommends that you have at least two read replicas per cluster.+    replicationFactor :: Prelude.Int,+    -- | A valid Amazon Resource Name (ARN) that identifies an IAM role. At+    -- runtime, DAX will assume this role and use the role\'s permissions to+    -- access DynamoDB on your behalf.+    iamRoleArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateCluster' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'availabilityZones', 'createCluster_availabilityZones' - The Availability Zones (AZs) in which the cluster nodes will reside+-- after the cluster has been created or updated. If provided, the length+-- of this list must equal the @ReplicationFactor@ parameter. If you omit+-- this parameter, DAX will spread the nodes across Availability Zones for+-- the highest availability.+--+-- 'clusterEndpointEncryptionType', 'createCluster_clusterEndpointEncryptionType' - The type of encryption the cluster\'s endpoint should support. Values+-- are:+--+-- -   @NONE@ for no encryption+--+-- -   @TLS@ for Transport Layer Security+--+-- 'description', 'createCluster_description' - A description of the cluster.+--+-- 'notificationTopicArn', 'createCluster_notificationTopicArn' - The Amazon Resource Name (ARN) of the Amazon SNS topic to which+-- notifications will be sent.+--+-- The Amazon SNS topic owner must be same as the DAX cluster owner.+--+-- 'parameterGroupName', 'createCluster_parameterGroupName' - The parameter group to be associated with the DAX cluster.+--+-- 'preferredMaintenanceWindow', 'createCluster_preferredMaintenanceWindow' - Specifies the weekly time range during which maintenance on the DAX+-- cluster is performed. It is specified as a range in the format+-- ddd:hh24:mi-ddd:hh24:mi (24H Clock UTC). The minimum maintenance window+-- is a 60 minute period. Valid values for @ddd@ are:+--+-- -   @sun@+--+-- -   @mon@+--+-- -   @tue@+--+-- -   @wed@+--+-- -   @thu@+--+-- -   @fri@+--+-- -   @sat@+--+-- Example: @sun:05:00-sun:09:00@+--+-- If you don\'t specify a preferred maintenance window when you create or+-- modify a cache cluster, DAX assigns a 60-minute maintenance window on a+-- randomly selected day of the week.+--+-- 'sSESpecification', 'createCluster_sSESpecification' - Represents the settings used to enable server-side encryption on the+-- cluster.+--+-- 'securityGroupIds', 'createCluster_securityGroupIds' - A list of security group IDs to be assigned to each node in the DAX+-- cluster. (Each of the security group ID is system-generated.)+--+-- If this parameter is not specified, DAX assigns the default VPC security+-- group to each node.+--+-- 'subnetGroupName', 'createCluster_subnetGroupName' - The name of the subnet group to be used for the replication group.+--+-- DAX clusters can only run in an Amazon VPC environment. All of the+-- subnets that you specify in a subnet group must exist in the same VPC.+--+-- 'tags', 'createCluster_tags' - A set of tags to associate with the DAX cluster.+--+-- 'clusterName', 'createCluster_clusterName' - The cluster identifier. This parameter is stored as a lowercase string.+--+-- __Constraints:__+--+-- -   A name must contain from 1 to 20 alphanumeric characters or hyphens.+--+-- -   The first character must be a letter.+--+-- -   A name cannot end with a hyphen or contain two consecutive hyphens.+--+-- 'nodeType', 'createCluster_nodeType' - The compute and memory capacity of the nodes in the cluster.+--+-- 'replicationFactor', 'createCluster_replicationFactor' - The number of nodes in the DAX cluster. A replication factor of 1 will+-- create a single-node cluster, without any read replicas. For additional+-- fault tolerance, you can create a multiple node cluster with one or more+-- read replicas. To do this, set @ReplicationFactor@ to a number between 3+-- (one primary and two read replicas) and 10 (one primary and nine read+-- replicas). @If the AvailabilityZones@ parameter is provided, its length+-- must equal the @ReplicationFactor@.+--+-- AWS recommends that you have at least two read replicas per cluster.+--+-- 'iamRoleArn', 'createCluster_iamRoleArn' - A valid Amazon Resource Name (ARN) that identifies an IAM role. At+-- runtime, DAX will assume this role and use the role\'s permissions to+-- access DynamoDB on your behalf.+newCreateCluster ::+  -- | 'clusterName'+  Prelude.Text ->+  -- | 'nodeType'+  Prelude.Text ->+  -- | 'replicationFactor'+  Prelude.Int ->+  -- | 'iamRoleArn'+  Prelude.Text ->+  CreateCluster+newCreateCluster+  pClusterName_+  pNodeType_+  pReplicationFactor_+  pIamRoleArn_ =+    CreateCluster'+      { availabilityZones = Prelude.Nothing,+        clusterEndpointEncryptionType = Prelude.Nothing,+        description = Prelude.Nothing,+        notificationTopicArn = Prelude.Nothing,+        parameterGroupName = Prelude.Nothing,+        preferredMaintenanceWindow = Prelude.Nothing,+        sSESpecification = Prelude.Nothing,+        securityGroupIds = Prelude.Nothing,+        subnetGroupName = Prelude.Nothing,+        tags = Prelude.Nothing,+        clusterName = pClusterName_,+        nodeType = pNodeType_,+        replicationFactor = pReplicationFactor_,+        iamRoleArn = pIamRoleArn_+      }++-- | The Availability Zones (AZs) in which the cluster nodes will reside+-- after the cluster has been created or updated. If provided, the length+-- of this list must equal the @ReplicationFactor@ parameter. If you omit+-- this parameter, DAX will spread the nodes across Availability Zones for+-- the highest availability.+createCluster_availabilityZones :: Lens.Lens' CreateCluster (Prelude.Maybe [Prelude.Text])+createCluster_availabilityZones = Lens.lens (\CreateCluster' {availabilityZones} -> availabilityZones) (\s@CreateCluster' {} a -> s {availabilityZones = a} :: CreateCluster) Prelude.. Lens.mapping Lens.coerced++-- | The type of encryption the cluster\'s endpoint should support. Values+-- are:+--+-- -   @NONE@ for no encryption+--+-- -   @TLS@ for Transport Layer Security+createCluster_clusterEndpointEncryptionType :: Lens.Lens' CreateCluster (Prelude.Maybe ClusterEndpointEncryptionType)+createCluster_clusterEndpointEncryptionType = Lens.lens (\CreateCluster' {clusterEndpointEncryptionType} -> clusterEndpointEncryptionType) (\s@CreateCluster' {} a -> s {clusterEndpointEncryptionType = a} :: CreateCluster)++-- | A description of the cluster.+createCluster_description :: Lens.Lens' CreateCluster (Prelude.Maybe Prelude.Text)+createCluster_description = Lens.lens (\CreateCluster' {description} -> description) (\s@CreateCluster' {} a -> s {description = a} :: CreateCluster)++-- | The Amazon Resource Name (ARN) of the Amazon SNS topic to which+-- notifications will be sent.+--+-- The Amazon SNS topic owner must be same as the DAX cluster owner.+createCluster_notificationTopicArn :: Lens.Lens' CreateCluster (Prelude.Maybe Prelude.Text)+createCluster_notificationTopicArn = Lens.lens (\CreateCluster' {notificationTopicArn} -> notificationTopicArn) (\s@CreateCluster' {} a -> s {notificationTopicArn = a} :: CreateCluster)++-- | The parameter group to be associated with the DAX cluster.+createCluster_parameterGroupName :: Lens.Lens' CreateCluster (Prelude.Maybe Prelude.Text)+createCluster_parameterGroupName = Lens.lens (\CreateCluster' {parameterGroupName} -> parameterGroupName) (\s@CreateCluster' {} a -> s {parameterGroupName = a} :: CreateCluster)++-- | Specifies the weekly time range during which maintenance on the DAX+-- cluster is performed. It is specified as a range in the format+-- ddd:hh24:mi-ddd:hh24:mi (24H Clock UTC). The minimum maintenance window+-- is a 60 minute period. Valid values for @ddd@ are:+--+-- -   @sun@+--+-- -   @mon@+--+-- -   @tue@+--+-- -   @wed@+--+-- -   @thu@+--+-- -   @fri@+--+-- -   @sat@+--+-- Example: @sun:05:00-sun:09:00@+--+-- If you don\'t specify a preferred maintenance window when you create or+-- modify a cache cluster, DAX assigns a 60-minute maintenance window on a+-- randomly selected day of the week.+createCluster_preferredMaintenanceWindow :: Lens.Lens' CreateCluster (Prelude.Maybe Prelude.Text)+createCluster_preferredMaintenanceWindow = Lens.lens (\CreateCluster' {preferredMaintenanceWindow} -> preferredMaintenanceWindow) (\s@CreateCluster' {} a -> s {preferredMaintenanceWindow = a} :: CreateCluster)++-- | Represents the settings used to enable server-side encryption on the+-- cluster.+createCluster_sSESpecification :: Lens.Lens' CreateCluster (Prelude.Maybe SSESpecification)+createCluster_sSESpecification = Lens.lens (\CreateCluster' {sSESpecification} -> sSESpecification) (\s@CreateCluster' {} a -> s {sSESpecification = a} :: CreateCluster)++-- | A list of security group IDs to be assigned to each node in the DAX+-- cluster. (Each of the security group ID is system-generated.)+--+-- If this parameter is not specified, DAX assigns the default VPC security+-- group to each node.+createCluster_securityGroupIds :: Lens.Lens' CreateCluster (Prelude.Maybe [Prelude.Text])+createCluster_securityGroupIds = Lens.lens (\CreateCluster' {securityGroupIds} -> securityGroupIds) (\s@CreateCluster' {} a -> s {securityGroupIds = a} :: CreateCluster) Prelude.. Lens.mapping Lens.coerced++-- | The name of the subnet group to be used for the replication group.+--+-- DAX clusters can only run in an Amazon VPC environment. All of the+-- subnets that you specify in a subnet group must exist in the same VPC.+createCluster_subnetGroupName :: Lens.Lens' CreateCluster (Prelude.Maybe Prelude.Text)+createCluster_subnetGroupName = Lens.lens (\CreateCluster' {subnetGroupName} -> subnetGroupName) (\s@CreateCluster' {} a -> s {subnetGroupName = a} :: CreateCluster)++-- | A set of tags to associate with the DAX cluster.+createCluster_tags :: Lens.Lens' CreateCluster (Prelude.Maybe [Tag])+createCluster_tags = Lens.lens (\CreateCluster' {tags} -> tags) (\s@CreateCluster' {} a -> s {tags = a} :: CreateCluster) Prelude.. Lens.mapping Lens.coerced++-- | The cluster identifier. This parameter is stored as a lowercase string.+--+-- __Constraints:__+--+-- -   A name must contain from 1 to 20 alphanumeric characters or hyphens.+--+-- -   The first character must be a letter.+--+-- -   A name cannot end with a hyphen or contain two consecutive hyphens.+createCluster_clusterName :: Lens.Lens' CreateCluster Prelude.Text+createCluster_clusterName = Lens.lens (\CreateCluster' {clusterName} -> clusterName) (\s@CreateCluster' {} a -> s {clusterName = a} :: CreateCluster)++-- | The compute and memory capacity of the nodes in the cluster.+createCluster_nodeType :: Lens.Lens' CreateCluster Prelude.Text+createCluster_nodeType = Lens.lens (\CreateCluster' {nodeType} -> nodeType) (\s@CreateCluster' {} a -> s {nodeType = a} :: CreateCluster)++-- | The number of nodes in the DAX cluster. A replication factor of 1 will+-- create a single-node cluster, without any read replicas. For additional+-- fault tolerance, you can create a multiple node cluster with one or more+-- read replicas. To do this, set @ReplicationFactor@ to a number between 3+-- (one primary and two read replicas) and 10 (one primary and nine read+-- replicas). @If the AvailabilityZones@ parameter is provided, its length+-- must equal the @ReplicationFactor@.+--+-- AWS recommends that you have at least two read replicas per cluster.+createCluster_replicationFactor :: Lens.Lens' CreateCluster Prelude.Int+createCluster_replicationFactor = Lens.lens (\CreateCluster' {replicationFactor} -> replicationFactor) (\s@CreateCluster' {} a -> s {replicationFactor = a} :: CreateCluster)++-- | A valid Amazon Resource Name (ARN) that identifies an IAM role. At+-- runtime, DAX will assume this role and use the role\'s permissions to+-- access DynamoDB on your behalf.+createCluster_iamRoleArn :: Lens.Lens' CreateCluster Prelude.Text+createCluster_iamRoleArn = Lens.lens (\CreateCluster' {iamRoleArn} -> iamRoleArn) (\s@CreateCluster' {} a -> s {iamRoleArn = a} :: CreateCluster)++instance Core.AWSRequest CreateCluster where+  type+    AWSResponse CreateCluster =+      CreateClusterResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateClusterResponse'+            Prelude.<$> (x Data..?> "Cluster")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateCluster where+  hashWithSalt _salt CreateCluster' {..} =+    _salt+      `Prelude.hashWithSalt` availabilityZones+      `Prelude.hashWithSalt` clusterEndpointEncryptionType+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` notificationTopicArn+      `Prelude.hashWithSalt` parameterGroupName+      `Prelude.hashWithSalt` preferredMaintenanceWindow+      `Prelude.hashWithSalt` sSESpecification+      `Prelude.hashWithSalt` securityGroupIds+      `Prelude.hashWithSalt` subnetGroupName+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` clusterName+      `Prelude.hashWithSalt` nodeType+      `Prelude.hashWithSalt` replicationFactor+      `Prelude.hashWithSalt` iamRoleArn++instance Prelude.NFData CreateCluster where+  rnf CreateCluster' {..} =+    Prelude.rnf availabilityZones+      `Prelude.seq` Prelude.rnf clusterEndpointEncryptionType+      `Prelude.seq` Prelude.rnf description+      `Prelude.seq` Prelude.rnf notificationTopicArn+      `Prelude.seq` Prelude.rnf parameterGroupName+      `Prelude.seq` Prelude.rnf preferredMaintenanceWindow+      `Prelude.seq` Prelude.rnf sSESpecification+      `Prelude.seq` Prelude.rnf securityGroupIds+      `Prelude.seq` Prelude.rnf subnetGroupName+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf clusterName+      `Prelude.seq` Prelude.rnf nodeType+      `Prelude.seq` Prelude.rnf replicationFactor+      `Prelude.seq` Prelude.rnf iamRoleArn++instance Data.ToHeaders CreateCluster where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ("AmazonDAXV3.CreateCluster" :: Prelude.ByteString),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateCluster where+  toJSON CreateCluster' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("AvailabilityZones" Data..=)+              Prelude.<$> availabilityZones,+            ("ClusterEndpointEncryptionType" Data..=)+              Prelude.<$> clusterEndpointEncryptionType,+            ("Description" Data..=) Prelude.<$> description,+            ("NotificationTopicArn" Data..=)+              Prelude.<$> notificationTopicArn,+            ("ParameterGroupName" Data..=)+              Prelude.<$> parameterGroupName,+            ("PreferredMaintenanceWindow" Data..=)+              Prelude.<$> preferredMaintenanceWindow,+            ("SSESpecification" Data..=)+              Prelude.<$> sSESpecification,+            ("SecurityGroupIds" Data..=)+              Prelude.<$> securityGroupIds,+            ("SubnetGroupName" Data..=)+              Prelude.<$> subnetGroupName,+            ("Tags" Data..=) Prelude.<$> tags,+            Prelude.Just ("ClusterName" Data..= clusterName),+            Prelude.Just ("NodeType" Data..= nodeType),+            Prelude.Just+              ("ReplicationFactor" Data..= replicationFactor),+            Prelude.Just ("IamRoleArn" Data..= iamRoleArn)+          ]+      )++instance Data.ToPath CreateCluster where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateCluster where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateClusterResponse' smart constructor.+data CreateClusterResponse = CreateClusterResponse'+  { -- | A description of the DAX cluster that you have created.+    cluster :: Prelude.Maybe Cluster,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateClusterResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'cluster', 'createClusterResponse_cluster' - A description of the DAX cluster that you have created.+--+-- 'httpStatus', 'createClusterResponse_httpStatus' - The response's http status code.+newCreateClusterResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateClusterResponse+newCreateClusterResponse pHttpStatus_ =+  CreateClusterResponse'+    { cluster = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A description of the DAX cluster that you have created.+createClusterResponse_cluster :: Lens.Lens' CreateClusterResponse (Prelude.Maybe Cluster)+createClusterResponse_cluster = Lens.lens (\CreateClusterResponse' {cluster} -> cluster) (\s@CreateClusterResponse' {} a -> s {cluster = a} :: CreateClusterResponse)++-- | The response's http status code.+createClusterResponse_httpStatus :: Lens.Lens' CreateClusterResponse Prelude.Int+createClusterResponse_httpStatus = Lens.lens (\CreateClusterResponse' {httpStatus} -> httpStatus) (\s@CreateClusterResponse' {} a -> s {httpStatus = a} :: CreateClusterResponse)++instance Prelude.NFData CreateClusterResponse where+  rnf CreateClusterResponse' {..} =+    Prelude.rnf cluster+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,192 @@+{-# 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.DAX.CreateParameterGroup+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a new parameter group. A parameter group is a collection of+-- parameters that you apply to all of the nodes in a DAX cluster.+module Amazonka.DAX.CreateParameterGroup+  ( -- * Creating a Request+    CreateParameterGroup (..),+    newCreateParameterGroup,++    -- * Request Lenses+    createParameterGroup_description,+    createParameterGroup_parameterGroupName,++    -- * Destructuring the Response+    CreateParameterGroupResponse (..),+    newCreateParameterGroupResponse,++    -- * Response Lenses+    createParameterGroupResponse_parameterGroup,+    createParameterGroupResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import Amazonka.DAX.Types+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:/ 'newCreateParameterGroup' smart constructor.+data CreateParameterGroup = CreateParameterGroup'+  { -- | A description of the parameter group.+    description :: Prelude.Maybe Prelude.Text,+    -- | The name of the parameter group to apply to all of the clusters in this+    -- replication group.+    parameterGroupName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateParameterGroup' 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:+--+-- 'description', 'createParameterGroup_description' - A description of the parameter group.+--+-- 'parameterGroupName', 'createParameterGroup_parameterGroupName' - The name of the parameter group to apply to all of the clusters in this+-- replication group.+newCreateParameterGroup ::+  -- | 'parameterGroupName'+  Prelude.Text ->+  CreateParameterGroup+newCreateParameterGroup pParameterGroupName_ =+  CreateParameterGroup'+    { description =+        Prelude.Nothing,+      parameterGroupName = pParameterGroupName_+    }++-- | A description of the parameter group.+createParameterGroup_description :: Lens.Lens' CreateParameterGroup (Prelude.Maybe Prelude.Text)+createParameterGroup_description = Lens.lens (\CreateParameterGroup' {description} -> description) (\s@CreateParameterGroup' {} a -> s {description = a} :: CreateParameterGroup)++-- | The name of the parameter group to apply to all of the clusters in this+-- replication group.+createParameterGroup_parameterGroupName :: Lens.Lens' CreateParameterGroup Prelude.Text+createParameterGroup_parameterGroupName = Lens.lens (\CreateParameterGroup' {parameterGroupName} -> parameterGroupName) (\s@CreateParameterGroup' {} a -> s {parameterGroupName = a} :: CreateParameterGroup)++instance Core.AWSRequest CreateParameterGroup where+  type+    AWSResponse CreateParameterGroup =+      CreateParameterGroupResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateParameterGroupResponse'+            Prelude.<$> (x Data..?> "ParameterGroup")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateParameterGroup where+  hashWithSalt _salt CreateParameterGroup' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` parameterGroupName++instance Prelude.NFData CreateParameterGroup where+  rnf CreateParameterGroup' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf parameterGroupName++instance Data.ToHeaders CreateParameterGroup where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AmazonDAXV3.CreateParameterGroup" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateParameterGroup where+  toJSON CreateParameterGroup' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Description" Data..=) Prelude.<$> description,+            Prelude.Just+              ("ParameterGroupName" Data..= parameterGroupName)+          ]+      )++instance Data.ToPath CreateParameterGroup where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateParameterGroup where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateParameterGroupResponse' smart constructor.+data CreateParameterGroupResponse = CreateParameterGroupResponse'+  { -- | Represents the output of a /CreateParameterGroup/ action.+    parameterGroup :: Prelude.Maybe ParameterGroup,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateParameterGroupResponse' 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:+--+-- 'parameterGroup', 'createParameterGroupResponse_parameterGroup' - Represents the output of a /CreateParameterGroup/ action.+--+-- 'httpStatus', 'createParameterGroupResponse_httpStatus' - The response's http status code.+newCreateParameterGroupResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateParameterGroupResponse+newCreateParameterGroupResponse pHttpStatus_ =+  CreateParameterGroupResponse'+    { parameterGroup =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Represents the output of a /CreateParameterGroup/ action.+createParameterGroupResponse_parameterGroup :: Lens.Lens' CreateParameterGroupResponse (Prelude.Maybe ParameterGroup)+createParameterGroupResponse_parameterGroup = Lens.lens (\CreateParameterGroupResponse' {parameterGroup} -> parameterGroup) (\s@CreateParameterGroupResponse' {} a -> s {parameterGroup = a} :: CreateParameterGroupResponse)++-- | The response's http status code.+createParameterGroupResponse_httpStatus :: Lens.Lens' CreateParameterGroupResponse Prelude.Int+createParameterGroupResponse_httpStatus = Lens.lens (\CreateParameterGroupResponse' {httpStatus} -> httpStatus) (\s@CreateParameterGroupResponse' {} a -> s {httpStatus = a} :: CreateParameterGroupResponse)++instance Prelude.NFData CreateParameterGroupResponse where+  rnf CreateParameterGroupResponse' {..} =+    Prelude.rnf parameterGroup+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,200 @@+{-# 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.DAX.CreateSubnetGroup+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a new subnet group.+module Amazonka.DAX.CreateSubnetGroup+  ( -- * Creating a Request+    CreateSubnetGroup (..),+    newCreateSubnetGroup,++    -- * Request Lenses+    createSubnetGroup_description,+    createSubnetGroup_subnetGroupName,+    createSubnetGroup_subnetIds,++    -- * Destructuring the Response+    CreateSubnetGroupResponse (..),+    newCreateSubnetGroupResponse,++    -- * Response Lenses+    createSubnetGroupResponse_subnetGroup,+    createSubnetGroupResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import Amazonka.DAX.Types+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:/ 'newCreateSubnetGroup' smart constructor.+data CreateSubnetGroup = CreateSubnetGroup'+  { -- | A description for the subnet group+    description :: Prelude.Maybe Prelude.Text,+    -- | A name for the subnet group. This value is stored as a lowercase string.+    subnetGroupName :: Prelude.Text,+    -- | A list of VPC subnet IDs for the subnet group.+    subnetIds :: [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateSubnetGroup' 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:+--+-- 'description', 'createSubnetGroup_description' - A description for the subnet group+--+-- 'subnetGroupName', 'createSubnetGroup_subnetGroupName' - A name for the subnet group. This value is stored as a lowercase string.+--+-- 'subnetIds', 'createSubnetGroup_subnetIds' - A list of VPC subnet IDs for the subnet group.+newCreateSubnetGroup ::+  -- | 'subnetGroupName'+  Prelude.Text ->+  CreateSubnetGroup+newCreateSubnetGroup pSubnetGroupName_ =+  CreateSubnetGroup'+    { description = Prelude.Nothing,+      subnetGroupName = pSubnetGroupName_,+      subnetIds = Prelude.mempty+    }++-- | A description for the subnet group+createSubnetGroup_description :: Lens.Lens' CreateSubnetGroup (Prelude.Maybe Prelude.Text)+createSubnetGroup_description = Lens.lens (\CreateSubnetGroup' {description} -> description) (\s@CreateSubnetGroup' {} a -> s {description = a} :: CreateSubnetGroup)++-- | A name for the subnet group. This value is stored as a lowercase string.+createSubnetGroup_subnetGroupName :: Lens.Lens' CreateSubnetGroup Prelude.Text+createSubnetGroup_subnetGroupName = Lens.lens (\CreateSubnetGroup' {subnetGroupName} -> subnetGroupName) (\s@CreateSubnetGroup' {} a -> s {subnetGroupName = a} :: CreateSubnetGroup)++-- | A list of VPC subnet IDs for the subnet group.+createSubnetGroup_subnetIds :: Lens.Lens' CreateSubnetGroup [Prelude.Text]+createSubnetGroup_subnetIds = Lens.lens (\CreateSubnetGroup' {subnetIds} -> subnetIds) (\s@CreateSubnetGroup' {} a -> s {subnetIds = a} :: CreateSubnetGroup) Prelude.. Lens.coerced++instance Core.AWSRequest CreateSubnetGroup where+  type+    AWSResponse CreateSubnetGroup =+      CreateSubnetGroupResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateSubnetGroupResponse'+            Prelude.<$> (x Data..?> "SubnetGroup")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateSubnetGroup where+  hashWithSalt _salt CreateSubnetGroup' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` subnetGroupName+      `Prelude.hashWithSalt` subnetIds++instance Prelude.NFData CreateSubnetGroup where+  rnf CreateSubnetGroup' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf subnetGroupName+      `Prelude.seq` Prelude.rnf subnetIds++instance Data.ToHeaders CreateSubnetGroup where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AmazonDAXV3.CreateSubnetGroup" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateSubnetGroup where+  toJSON CreateSubnetGroup' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Description" Data..=) Prelude.<$> description,+            Prelude.Just+              ("SubnetGroupName" Data..= subnetGroupName),+            Prelude.Just ("SubnetIds" Data..= subnetIds)+          ]+      )++instance Data.ToPath CreateSubnetGroup where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateSubnetGroup where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateSubnetGroupResponse' smart constructor.+data CreateSubnetGroupResponse = CreateSubnetGroupResponse'+  { -- | Represents the output of a /CreateSubnetGroup/ operation.+    subnetGroup :: Prelude.Maybe SubnetGroup,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateSubnetGroupResponse' 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:+--+-- 'subnetGroup', 'createSubnetGroupResponse_subnetGroup' - Represents the output of a /CreateSubnetGroup/ operation.+--+-- 'httpStatus', 'createSubnetGroupResponse_httpStatus' - The response's http status code.+newCreateSubnetGroupResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateSubnetGroupResponse+newCreateSubnetGroupResponse pHttpStatus_ =+  CreateSubnetGroupResponse'+    { subnetGroup =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Represents the output of a /CreateSubnetGroup/ operation.+createSubnetGroupResponse_subnetGroup :: Lens.Lens' CreateSubnetGroupResponse (Prelude.Maybe SubnetGroup)+createSubnetGroupResponse_subnetGroup = Lens.lens (\CreateSubnetGroupResponse' {subnetGroup} -> subnetGroup) (\s@CreateSubnetGroupResponse' {} a -> s {subnetGroup = a} :: CreateSubnetGroupResponse)++-- | The response's http status code.+createSubnetGroupResponse_httpStatus :: Lens.Lens' CreateSubnetGroupResponse Prelude.Int+createSubnetGroupResponse_httpStatus = Lens.lens (\CreateSubnetGroupResponse' {httpStatus} -> httpStatus) (\s@CreateSubnetGroupResponse' {} a -> s {httpStatus = a} :: CreateSubnetGroupResponse)++instance Prelude.NFData CreateSubnetGroupResponse where+  rnf CreateSubnetGroupResponse' {..} =+    Prelude.rnf subnetGroup+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,231 @@+{-# 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.DAX.DecreaseReplicationFactor+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Removes one or more nodes from a DAX cluster.+--+-- You cannot use @DecreaseReplicationFactor@ to remove the last node in a+-- DAX cluster. If you need to do this, use @DeleteCluster@ instead.+module Amazonka.DAX.DecreaseReplicationFactor+  ( -- * Creating a Request+    DecreaseReplicationFactor (..),+    newDecreaseReplicationFactor,++    -- * Request Lenses+    decreaseReplicationFactor_availabilityZones,+    decreaseReplicationFactor_nodeIdsToRemove,+    decreaseReplicationFactor_clusterName,+    decreaseReplicationFactor_newReplicationFactor,++    -- * Destructuring the Response+    DecreaseReplicationFactorResponse (..),+    newDecreaseReplicationFactorResponse,++    -- * Response Lenses+    decreaseReplicationFactorResponse_cluster,+    decreaseReplicationFactorResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import Amazonka.DAX.Types+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:/ 'newDecreaseReplicationFactor' smart constructor.+data DecreaseReplicationFactor = DecreaseReplicationFactor'+  { -- | The Availability Zone(s) from which to remove nodes.+    availabilityZones :: Prelude.Maybe [Prelude.Text],+    -- | The unique identifiers of the nodes to be removed from the cluster.+    nodeIdsToRemove :: Prelude.Maybe [Prelude.Text],+    -- | The name of the DAX cluster from which you want to remove nodes.+    clusterName :: Prelude.Text,+    -- | The new number of nodes for the DAX cluster.+    newReplicationFactor' :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DecreaseReplicationFactor' 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:+--+-- 'availabilityZones', 'decreaseReplicationFactor_availabilityZones' - The Availability Zone(s) from which to remove nodes.+--+-- 'nodeIdsToRemove', 'decreaseReplicationFactor_nodeIdsToRemove' - The unique identifiers of the nodes to be removed from the cluster.+--+-- 'clusterName', 'decreaseReplicationFactor_clusterName' - The name of the DAX cluster from which you want to remove nodes.+--+-- 'newReplicationFactor'', 'decreaseReplicationFactor_newReplicationFactor' - The new number of nodes for the DAX cluster.+newDecreaseReplicationFactor ::+  -- | 'clusterName'+  Prelude.Text ->+  -- | 'newReplicationFactor''+  Prelude.Int ->+  DecreaseReplicationFactor+newDecreaseReplicationFactor+  pClusterName_+  pNewReplicationFactor_ =+    DecreaseReplicationFactor'+      { availabilityZones =+          Prelude.Nothing,+        nodeIdsToRemove = Prelude.Nothing,+        clusterName = pClusterName_,+        newReplicationFactor' = pNewReplicationFactor_+      }++-- | The Availability Zone(s) from which to remove nodes.+decreaseReplicationFactor_availabilityZones :: Lens.Lens' DecreaseReplicationFactor (Prelude.Maybe [Prelude.Text])+decreaseReplicationFactor_availabilityZones = Lens.lens (\DecreaseReplicationFactor' {availabilityZones} -> availabilityZones) (\s@DecreaseReplicationFactor' {} a -> s {availabilityZones = a} :: DecreaseReplicationFactor) Prelude.. Lens.mapping Lens.coerced++-- | The unique identifiers of the nodes to be removed from the cluster.+decreaseReplicationFactor_nodeIdsToRemove :: Lens.Lens' DecreaseReplicationFactor (Prelude.Maybe [Prelude.Text])+decreaseReplicationFactor_nodeIdsToRemove = Lens.lens (\DecreaseReplicationFactor' {nodeIdsToRemove} -> nodeIdsToRemove) (\s@DecreaseReplicationFactor' {} a -> s {nodeIdsToRemove = a} :: DecreaseReplicationFactor) Prelude.. Lens.mapping Lens.coerced++-- | The name of the DAX cluster from which you want to remove nodes.+decreaseReplicationFactor_clusterName :: Lens.Lens' DecreaseReplicationFactor Prelude.Text+decreaseReplicationFactor_clusterName = Lens.lens (\DecreaseReplicationFactor' {clusterName} -> clusterName) (\s@DecreaseReplicationFactor' {} a -> s {clusterName = a} :: DecreaseReplicationFactor)++-- | The new number of nodes for the DAX cluster.+decreaseReplicationFactor_newReplicationFactor :: Lens.Lens' DecreaseReplicationFactor Prelude.Int+decreaseReplicationFactor_newReplicationFactor = Lens.lens (\DecreaseReplicationFactor' {newReplicationFactor'} -> newReplicationFactor') (\s@DecreaseReplicationFactor' {} a -> s {newReplicationFactor' = a} :: DecreaseReplicationFactor)++instance Core.AWSRequest DecreaseReplicationFactor where+  type+    AWSResponse DecreaseReplicationFactor =+      DecreaseReplicationFactorResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DecreaseReplicationFactorResponse'+            Prelude.<$> (x Data..?> "Cluster")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DecreaseReplicationFactor where+  hashWithSalt _salt DecreaseReplicationFactor' {..} =+    _salt+      `Prelude.hashWithSalt` availabilityZones+      `Prelude.hashWithSalt` nodeIdsToRemove+      `Prelude.hashWithSalt` clusterName+      `Prelude.hashWithSalt` newReplicationFactor'++instance Prelude.NFData DecreaseReplicationFactor where+  rnf DecreaseReplicationFactor' {..} =+    Prelude.rnf availabilityZones+      `Prelude.seq` Prelude.rnf nodeIdsToRemove+      `Prelude.seq` Prelude.rnf clusterName+      `Prelude.seq` Prelude.rnf newReplicationFactor'++instance Data.ToHeaders DecreaseReplicationFactor where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AmazonDAXV3.DecreaseReplicationFactor" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DecreaseReplicationFactor where+  toJSON DecreaseReplicationFactor' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("AvailabilityZones" Data..=)+              Prelude.<$> availabilityZones,+            ("NodeIdsToRemove" Data..=)+              Prelude.<$> nodeIdsToRemove,+            Prelude.Just ("ClusterName" Data..= clusterName),+            Prelude.Just+              ( "NewReplicationFactor"+                  Data..= newReplicationFactor'+              )+          ]+      )++instance Data.ToPath DecreaseReplicationFactor where+  toPath = Prelude.const "/"++instance Data.ToQuery DecreaseReplicationFactor where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDecreaseReplicationFactorResponse' smart constructor.+data DecreaseReplicationFactorResponse = DecreaseReplicationFactorResponse'+  { -- | A description of the DAX cluster, after you have decreased its+    -- replication factor.+    cluster :: Prelude.Maybe Cluster,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DecreaseReplicationFactorResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'cluster', 'decreaseReplicationFactorResponse_cluster' - A description of the DAX cluster, after you have decreased its+-- replication factor.+--+-- 'httpStatus', 'decreaseReplicationFactorResponse_httpStatus' - The response's http status code.+newDecreaseReplicationFactorResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DecreaseReplicationFactorResponse+newDecreaseReplicationFactorResponse pHttpStatus_ =+  DecreaseReplicationFactorResponse'+    { cluster =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A description of the DAX cluster, after you have decreased its+-- replication factor.+decreaseReplicationFactorResponse_cluster :: Lens.Lens' DecreaseReplicationFactorResponse (Prelude.Maybe Cluster)+decreaseReplicationFactorResponse_cluster = Lens.lens (\DecreaseReplicationFactorResponse' {cluster} -> cluster) (\s@DecreaseReplicationFactorResponse' {} a -> s {cluster = a} :: DecreaseReplicationFactorResponse)++-- | The response's http status code.+decreaseReplicationFactorResponse_httpStatus :: Lens.Lens' DecreaseReplicationFactorResponse Prelude.Int+decreaseReplicationFactorResponse_httpStatus = Lens.lens (\DecreaseReplicationFactorResponse' {httpStatus} -> httpStatus) (\s@DecreaseReplicationFactorResponse' {} a -> s {httpStatus = a} :: DecreaseReplicationFactorResponse)++instance+  Prelude.NFData+    DecreaseReplicationFactorResponse+  where+  rnf DecreaseReplicationFactorResponse' {..} =+    Prelude.rnf cluster+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,168 @@+{-# 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.DAX.DeleteCluster+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a previously provisioned DAX cluster. /DeleteCluster/ deletes+-- all associated nodes, node endpoints and the DAX cluster itself. When+-- you receive a successful response from this action, DAX immediately+-- begins deleting the cluster; you cannot cancel or revert this action.+module Amazonka.DAX.DeleteCluster+  ( -- * Creating a Request+    DeleteCluster (..),+    newDeleteCluster,++    -- * Request Lenses+    deleteCluster_clusterName,++    -- * Destructuring the Response+    DeleteClusterResponse (..),+    newDeleteClusterResponse,++    -- * Response Lenses+    deleteClusterResponse_cluster,+    deleteClusterResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import Amazonka.DAX.Types+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteCluster' smart constructor.+data DeleteCluster = DeleteCluster'+  { -- | The name of the cluster to be deleted.+    clusterName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteCluster' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterName', 'deleteCluster_clusterName' - The name of the cluster to be deleted.+newDeleteCluster ::+  -- | 'clusterName'+  Prelude.Text ->+  DeleteCluster+newDeleteCluster pClusterName_ =+  DeleteCluster' {clusterName = pClusterName_}++-- | The name of the cluster to be deleted.+deleteCluster_clusterName :: Lens.Lens' DeleteCluster Prelude.Text+deleteCluster_clusterName = Lens.lens (\DeleteCluster' {clusterName} -> clusterName) (\s@DeleteCluster' {} a -> s {clusterName = a} :: DeleteCluster)++instance Core.AWSRequest DeleteCluster where+  type+    AWSResponse DeleteCluster =+      DeleteClusterResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DeleteClusterResponse'+            Prelude.<$> (x Data..?> "Cluster")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteCluster where+  hashWithSalt _salt DeleteCluster' {..} =+    _salt `Prelude.hashWithSalt` clusterName++instance Prelude.NFData DeleteCluster where+  rnf DeleteCluster' {..} = Prelude.rnf clusterName++instance Data.ToHeaders DeleteCluster where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ("AmazonDAXV3.DeleteCluster" :: Prelude.ByteString),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteCluster where+  toJSON DeleteCluster' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("ClusterName" Data..= clusterName)]+      )++instance Data.ToPath DeleteCluster where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteCluster where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteClusterResponse' smart constructor.+data DeleteClusterResponse = DeleteClusterResponse'+  { -- | A description of the DAX cluster that is being deleted.+    cluster :: Prelude.Maybe Cluster,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteClusterResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'cluster', 'deleteClusterResponse_cluster' - A description of the DAX cluster that is being deleted.+--+-- 'httpStatus', 'deleteClusterResponse_httpStatus' - The response's http status code.+newDeleteClusterResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteClusterResponse+newDeleteClusterResponse pHttpStatus_ =+  DeleteClusterResponse'+    { cluster = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A description of the DAX cluster that is being deleted.+deleteClusterResponse_cluster :: Lens.Lens' DeleteClusterResponse (Prelude.Maybe Cluster)+deleteClusterResponse_cluster = Lens.lens (\DeleteClusterResponse' {cluster} -> cluster) (\s@DeleteClusterResponse' {} a -> s {cluster = a} :: DeleteClusterResponse)++-- | The response's http status code.+deleteClusterResponse_httpStatus :: Lens.Lens' DeleteClusterResponse Prelude.Int+deleteClusterResponse_httpStatus = Lens.lens (\DeleteClusterResponse' {httpStatus} -> httpStatus) (\s@DeleteClusterResponse' {} a -> s {httpStatus = a} :: DeleteClusterResponse)++instance Prelude.NFData DeleteClusterResponse where+  rnf DeleteClusterResponse' {..} =+    Prelude.rnf cluster+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,178 @@+{-# 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.DAX.DeleteParameterGroup+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the specified parameter group. You cannot delete a parameter+-- group if it is associated with any DAX clusters.+module Amazonka.DAX.DeleteParameterGroup+  ( -- * Creating a Request+    DeleteParameterGroup (..),+    newDeleteParameterGroup,++    -- * Request Lenses+    deleteParameterGroup_parameterGroupName,++    -- * Destructuring the Response+    DeleteParameterGroupResponse (..),+    newDeleteParameterGroupResponse,++    -- * Response Lenses+    deleteParameterGroupResponse_deletionMessage,+    deleteParameterGroupResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import Amazonka.DAX.Types+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:/ 'newDeleteParameterGroup' smart constructor.+data DeleteParameterGroup = DeleteParameterGroup'+  { -- | The name of the parameter group to delete.+    parameterGroupName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteParameterGroup' 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:+--+-- 'parameterGroupName', 'deleteParameterGroup_parameterGroupName' - The name of the parameter group to delete.+newDeleteParameterGroup ::+  -- | 'parameterGroupName'+  Prelude.Text ->+  DeleteParameterGroup+newDeleteParameterGroup pParameterGroupName_ =+  DeleteParameterGroup'+    { parameterGroupName =+        pParameterGroupName_+    }++-- | The name of the parameter group to delete.+deleteParameterGroup_parameterGroupName :: Lens.Lens' DeleteParameterGroup Prelude.Text+deleteParameterGroup_parameterGroupName = Lens.lens (\DeleteParameterGroup' {parameterGroupName} -> parameterGroupName) (\s@DeleteParameterGroup' {} a -> s {parameterGroupName = a} :: DeleteParameterGroup)++instance Core.AWSRequest DeleteParameterGroup where+  type+    AWSResponse DeleteParameterGroup =+      DeleteParameterGroupResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DeleteParameterGroupResponse'+            Prelude.<$> (x Data..?> "DeletionMessage")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteParameterGroup where+  hashWithSalt _salt DeleteParameterGroup' {..} =+    _salt `Prelude.hashWithSalt` parameterGroupName++instance Prelude.NFData DeleteParameterGroup where+  rnf DeleteParameterGroup' {..} =+    Prelude.rnf parameterGroupName++instance Data.ToHeaders DeleteParameterGroup where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AmazonDAXV3.DeleteParameterGroup" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteParameterGroup where+  toJSON DeleteParameterGroup' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("ParameterGroupName" Data..= parameterGroupName)+          ]+      )++instance Data.ToPath DeleteParameterGroup where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteParameterGroup where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteParameterGroupResponse' smart constructor.+data DeleteParameterGroupResponse = DeleteParameterGroupResponse'+  { -- | A user-specified message for this action (i.e., a reason for deleting+    -- the parameter group).+    deletionMessage :: 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 'DeleteParameterGroupResponse' 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:+--+-- 'deletionMessage', 'deleteParameterGroupResponse_deletionMessage' - A user-specified message for this action (i.e., a reason for deleting+-- the parameter group).+--+-- 'httpStatus', 'deleteParameterGroupResponse_httpStatus' - The response's http status code.+newDeleteParameterGroupResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteParameterGroupResponse+newDeleteParameterGroupResponse pHttpStatus_ =+  DeleteParameterGroupResponse'+    { deletionMessage =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A user-specified message for this action (i.e., a reason for deleting+-- the parameter group).+deleteParameterGroupResponse_deletionMessage :: Lens.Lens' DeleteParameterGroupResponse (Prelude.Maybe Prelude.Text)+deleteParameterGroupResponse_deletionMessage = Lens.lens (\DeleteParameterGroupResponse' {deletionMessage} -> deletionMessage) (\s@DeleteParameterGroupResponse' {} a -> s {deletionMessage = a} :: DeleteParameterGroupResponse)++-- | The response's http status code.+deleteParameterGroupResponse_httpStatus :: Lens.Lens' DeleteParameterGroupResponse Prelude.Int+deleteParameterGroupResponse_httpStatus = Lens.lens (\DeleteParameterGroupResponse' {httpStatus} -> httpStatus) (\s@DeleteParameterGroupResponse' {} a -> s {httpStatus = a} :: DeleteParameterGroupResponse)++instance Prelude.NFData DeleteParameterGroupResponse where+  rnf DeleteParameterGroupResponse' {..} =+    Prelude.rnf deletionMessage+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,180 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DAX.DeleteSubnetGroup+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a subnet group.+--+-- You cannot delete a subnet group if it is associated with any DAX+-- clusters.+module Amazonka.DAX.DeleteSubnetGroup+  ( -- * Creating a Request+    DeleteSubnetGroup (..),+    newDeleteSubnetGroup,++    -- * Request Lenses+    deleteSubnetGroup_subnetGroupName,++    -- * Destructuring the Response+    DeleteSubnetGroupResponse (..),+    newDeleteSubnetGroupResponse,++    -- * Response Lenses+    deleteSubnetGroupResponse_deletionMessage,+    deleteSubnetGroupResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import Amazonka.DAX.Types+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:/ 'newDeleteSubnetGroup' smart constructor.+data DeleteSubnetGroup = DeleteSubnetGroup'+  { -- | The name of the subnet group to delete.+    subnetGroupName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteSubnetGroup' 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:+--+-- 'subnetGroupName', 'deleteSubnetGroup_subnetGroupName' - The name of the subnet group to delete.+newDeleteSubnetGroup ::+  -- | 'subnetGroupName'+  Prelude.Text ->+  DeleteSubnetGroup+newDeleteSubnetGroup pSubnetGroupName_ =+  DeleteSubnetGroup'+    { subnetGroupName =+        pSubnetGroupName_+    }++-- | The name of the subnet group to delete.+deleteSubnetGroup_subnetGroupName :: Lens.Lens' DeleteSubnetGroup Prelude.Text+deleteSubnetGroup_subnetGroupName = Lens.lens (\DeleteSubnetGroup' {subnetGroupName} -> subnetGroupName) (\s@DeleteSubnetGroup' {} a -> s {subnetGroupName = a} :: DeleteSubnetGroup)++instance Core.AWSRequest DeleteSubnetGroup where+  type+    AWSResponse DeleteSubnetGroup =+      DeleteSubnetGroupResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DeleteSubnetGroupResponse'+            Prelude.<$> (x Data..?> "DeletionMessage")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteSubnetGroup where+  hashWithSalt _salt DeleteSubnetGroup' {..} =+    _salt `Prelude.hashWithSalt` subnetGroupName++instance Prelude.NFData DeleteSubnetGroup where+  rnf DeleteSubnetGroup' {..} =+    Prelude.rnf subnetGroupName++instance Data.ToHeaders DeleteSubnetGroup where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AmazonDAXV3.DeleteSubnetGroup" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteSubnetGroup where+  toJSON DeleteSubnetGroup' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("SubnetGroupName" Data..= subnetGroupName)+          ]+      )++instance Data.ToPath DeleteSubnetGroup where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteSubnetGroup where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteSubnetGroupResponse' smart constructor.+data DeleteSubnetGroupResponse = DeleteSubnetGroupResponse'+  { -- | A user-specified message for this action (i.e., a reason for deleting+    -- the subnet group).+    deletionMessage :: 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 'DeleteSubnetGroupResponse' 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:+--+-- 'deletionMessage', 'deleteSubnetGroupResponse_deletionMessage' - A user-specified message for this action (i.e., a reason for deleting+-- the subnet group).+--+-- 'httpStatus', 'deleteSubnetGroupResponse_httpStatus' - The response's http status code.+newDeleteSubnetGroupResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteSubnetGroupResponse+newDeleteSubnetGroupResponse pHttpStatus_ =+  DeleteSubnetGroupResponse'+    { deletionMessage =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A user-specified message for this action (i.e., a reason for deleting+-- the subnet group).+deleteSubnetGroupResponse_deletionMessage :: Lens.Lens' DeleteSubnetGroupResponse (Prelude.Maybe Prelude.Text)+deleteSubnetGroupResponse_deletionMessage = Lens.lens (\DeleteSubnetGroupResponse' {deletionMessage} -> deletionMessage) (\s@DeleteSubnetGroupResponse' {} a -> s {deletionMessage = a} :: DeleteSubnetGroupResponse)++-- | The response's http status code.+deleteSubnetGroupResponse_httpStatus :: Lens.Lens' DeleteSubnetGroupResponse Prelude.Int+deleteSubnetGroupResponse_httpStatus = Lens.lens (\DeleteSubnetGroupResponse' {httpStatus} -> httpStatus) (\s@DeleteSubnetGroupResponse' {} a -> s {httpStatus = a} :: DeleteSubnetGroupResponse)++instance Prelude.NFData DeleteSubnetGroupResponse where+  rnf DeleteSubnetGroupResponse' {..} =+    Prelude.rnf deletionMessage+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,273 @@+{-# 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.DAX.DescribeClusters+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about all provisioned DAX clusters if no cluster+-- identifier is specified, or about a specific DAX cluster if a cluster+-- identifier is supplied.+--+-- If the cluster is in the CREATING state, only cluster level information+-- will be displayed until all of the nodes are successfully provisioned.+--+-- If the cluster is in the DELETING state, only cluster level information+-- will be displayed.+--+-- If nodes are currently being added to the DAX cluster, node endpoint+-- information and creation time for the additional nodes will not be+-- displayed until they are completely provisioned. When the DAX cluster+-- state is /available/, the cluster is ready for use.+--+-- If nodes are currently being removed from the DAX cluster, no endpoint+-- information for the removed nodes is displayed.+--+-- This operation returns paginated results.+module Amazonka.DAX.DescribeClusters+  ( -- * Creating a Request+    DescribeClusters (..),+    newDescribeClusters,++    -- * Request Lenses+    describeClusters_clusterNames,+    describeClusters_maxResults,+    describeClusters_nextToken,++    -- * Destructuring the Response+    DescribeClustersResponse (..),+    newDescribeClustersResponse,++    -- * Response Lenses+    describeClustersResponse_clusters,+    describeClustersResponse_nextToken,+    describeClustersResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import Amazonka.DAX.Types+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeClusters' smart constructor.+data DescribeClusters = DescribeClusters'+  { -- | The names of the DAX clusters being described.+    clusterNames :: Prelude.Maybe [Prelude.Text],+    -- | The maximum number of results to include in the response. If more+    -- results exist than the specified @MaxResults@ value, a token is included+    -- in the response so that the remaining results can be retrieved.+    --+    -- The value for @MaxResults@ must be between 20 and 100.+    maxResults :: Prelude.Maybe Prelude.Int,+    -- | An optional token returned from a prior request. Use this token for+    -- pagination of results from this action. If this parameter is specified,+    -- the response includes only results beyond the token, up to the value+    -- specified by @MaxResults@.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeClusters' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterNames', 'describeClusters_clusterNames' - The names of the DAX clusters being described.+--+-- 'maxResults', 'describeClusters_maxResults' - The maximum number of results to include in the response. If more+-- results exist than the specified @MaxResults@ value, a token is included+-- in the response so that the remaining results can be retrieved.+--+-- The value for @MaxResults@ must be between 20 and 100.+--+-- 'nextToken', 'describeClusters_nextToken' - An optional token returned from a prior request. Use this token for+-- pagination of results from this action. If this parameter is specified,+-- the response includes only results beyond the token, up to the value+-- specified by @MaxResults@.+newDescribeClusters ::+  DescribeClusters+newDescribeClusters =+  DescribeClusters'+    { clusterNames = Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing+    }++-- | The names of the DAX clusters being described.+describeClusters_clusterNames :: Lens.Lens' DescribeClusters (Prelude.Maybe [Prelude.Text])+describeClusters_clusterNames = Lens.lens (\DescribeClusters' {clusterNames} -> clusterNames) (\s@DescribeClusters' {} a -> s {clusterNames = a} :: DescribeClusters) Prelude.. Lens.mapping Lens.coerced++-- | The maximum number of results to include in the response. If more+-- results exist than the specified @MaxResults@ value, a token is included+-- in the response so that the remaining results can be retrieved.+--+-- The value for @MaxResults@ must be between 20 and 100.+describeClusters_maxResults :: Lens.Lens' DescribeClusters (Prelude.Maybe Prelude.Int)+describeClusters_maxResults = Lens.lens (\DescribeClusters' {maxResults} -> maxResults) (\s@DescribeClusters' {} a -> s {maxResults = a} :: DescribeClusters)++-- | An optional token returned from a prior request. Use this token for+-- pagination of results from this action. If this parameter is specified,+-- the response includes only results beyond the token, up to the value+-- specified by @MaxResults@.+describeClusters_nextToken :: Lens.Lens' DescribeClusters (Prelude.Maybe Prelude.Text)+describeClusters_nextToken = Lens.lens (\DescribeClusters' {nextToken} -> nextToken) (\s@DescribeClusters' {} a -> s {nextToken = a} :: DescribeClusters)++instance Core.AWSPager DescribeClusters where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeClustersResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeClustersResponse_clusters+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeClusters_nextToken+          Lens..~ rs+          Lens.^? describeClustersResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest DescribeClusters where+  type+    AWSResponse DescribeClusters =+      DescribeClustersResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeClustersResponse'+            Prelude.<$> (x Data..?> "Clusters" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeClusters where+  hashWithSalt _salt DescribeClusters' {..} =+    _salt+      `Prelude.hashWithSalt` clusterNames+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData DescribeClusters where+  rnf DescribeClusters' {..} =+    Prelude.rnf clusterNames+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken++instance Data.ToHeaders DescribeClusters where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AmazonDAXV3.DescribeClusters" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeClusters where+  toJSON DescribeClusters' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("ClusterNames" Data..=) Prelude.<$> clusterNames,+            ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken+          ]+      )++instance Data.ToPath DescribeClusters where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeClusters where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeClustersResponse' smart constructor.+data DescribeClustersResponse = DescribeClustersResponse'+  { -- | The descriptions of your DAX clusters, in response to a+    -- /DescribeClusters/ request.+    clusters :: Prelude.Maybe [Cluster],+    -- | Provides an identifier to allow retrieval of paginated results.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeClustersResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusters', 'describeClustersResponse_clusters' - The descriptions of your DAX clusters, in response to a+-- /DescribeClusters/ request.+--+-- 'nextToken', 'describeClustersResponse_nextToken' - Provides an identifier to allow retrieval of paginated results.+--+-- 'httpStatus', 'describeClustersResponse_httpStatus' - The response's http status code.+newDescribeClustersResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeClustersResponse+newDescribeClustersResponse pHttpStatus_ =+  DescribeClustersResponse'+    { clusters =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The descriptions of your DAX clusters, in response to a+-- /DescribeClusters/ request.+describeClustersResponse_clusters :: Lens.Lens' DescribeClustersResponse (Prelude.Maybe [Cluster])+describeClustersResponse_clusters = Lens.lens (\DescribeClustersResponse' {clusters} -> clusters) (\s@DescribeClustersResponse' {} a -> s {clusters = a} :: DescribeClustersResponse) Prelude.. Lens.mapping Lens.coerced++-- | Provides an identifier to allow retrieval of paginated results.+describeClustersResponse_nextToken :: Lens.Lens' DescribeClustersResponse (Prelude.Maybe Prelude.Text)+describeClustersResponse_nextToken = Lens.lens (\DescribeClustersResponse' {nextToken} -> nextToken) (\s@DescribeClustersResponse' {} a -> s {nextToken = a} :: DescribeClustersResponse)++-- | The response's http status code.+describeClustersResponse_httpStatus :: Lens.Lens' DescribeClustersResponse Prelude.Int+describeClustersResponse_httpStatus = Lens.lens (\DescribeClustersResponse' {httpStatus} -> httpStatus) (\s@DescribeClustersResponse' {} a -> s {httpStatus = a} :: DescribeClustersResponse)++instance Prelude.NFData DescribeClustersResponse where+  rnf DescribeClustersResponse' {..} =+    Prelude.rnf clusters+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,246 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DAX.DescribeDefaultParameters+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the default system parameter information for the DAX caching+-- software.+--+-- This operation returns paginated results.+module Amazonka.DAX.DescribeDefaultParameters+  ( -- * Creating a Request+    DescribeDefaultParameters (..),+    newDescribeDefaultParameters,++    -- * Request Lenses+    describeDefaultParameters_maxResults,+    describeDefaultParameters_nextToken,++    -- * Destructuring the Response+    DescribeDefaultParametersResponse (..),+    newDescribeDefaultParametersResponse,++    -- * Response Lenses+    describeDefaultParametersResponse_nextToken,+    describeDefaultParametersResponse_parameters,+    describeDefaultParametersResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import Amazonka.DAX.Types+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:/ 'newDescribeDefaultParameters' smart constructor.+data DescribeDefaultParameters = DescribeDefaultParameters'+  { -- | The maximum number of results to include in the response. If more+    -- results exist than the specified @MaxResults@ value, a token is included+    -- in the response so that the remaining results can be retrieved.+    --+    -- The value for @MaxResults@ must be between 20 and 100.+    maxResults :: Prelude.Maybe Prelude.Int,+    -- | An optional token returned from a prior request. Use this token for+    -- pagination of results from this action. If this parameter is specified,+    -- the response includes only results beyond the token, up to the value+    -- specified by @MaxResults@.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeDefaultParameters' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'maxResults', 'describeDefaultParameters_maxResults' - The maximum number of results to include in the response. If more+-- results exist than the specified @MaxResults@ value, a token is included+-- in the response so that the remaining results can be retrieved.+--+-- The value for @MaxResults@ must be between 20 and 100.+--+-- 'nextToken', 'describeDefaultParameters_nextToken' - An optional token returned from a prior request. Use this token for+-- pagination of results from this action. If this parameter is specified,+-- the response includes only results beyond the token, up to the value+-- specified by @MaxResults@.+newDescribeDefaultParameters ::+  DescribeDefaultParameters+newDescribeDefaultParameters =+  DescribeDefaultParameters'+    { maxResults =+        Prelude.Nothing,+      nextToken = Prelude.Nothing+    }++-- | The maximum number of results to include in the response. If more+-- results exist than the specified @MaxResults@ value, a token is included+-- in the response so that the remaining results can be retrieved.+--+-- The value for @MaxResults@ must be between 20 and 100.+describeDefaultParameters_maxResults :: Lens.Lens' DescribeDefaultParameters (Prelude.Maybe Prelude.Int)+describeDefaultParameters_maxResults = Lens.lens (\DescribeDefaultParameters' {maxResults} -> maxResults) (\s@DescribeDefaultParameters' {} a -> s {maxResults = a} :: DescribeDefaultParameters)++-- | An optional token returned from a prior request. Use this token for+-- pagination of results from this action. If this parameter is specified,+-- the response includes only results beyond the token, up to the value+-- specified by @MaxResults@.+describeDefaultParameters_nextToken :: Lens.Lens' DescribeDefaultParameters (Prelude.Maybe Prelude.Text)+describeDefaultParameters_nextToken = Lens.lens (\DescribeDefaultParameters' {nextToken} -> nextToken) (\s@DescribeDefaultParameters' {} a -> s {nextToken = a} :: DescribeDefaultParameters)++instance Core.AWSPager DescribeDefaultParameters where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeDefaultParametersResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeDefaultParametersResponse_parameters+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeDefaultParameters_nextToken+          Lens..~ rs+          Lens.^? describeDefaultParametersResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest DescribeDefaultParameters where+  type+    AWSResponse DescribeDefaultParameters =+      DescribeDefaultParametersResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeDefaultParametersResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> (x Data..?> "Parameters" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeDefaultParameters where+  hashWithSalt _salt DescribeDefaultParameters' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData DescribeDefaultParameters where+  rnf DescribeDefaultParameters' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken++instance Data.ToHeaders DescribeDefaultParameters where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AmazonDAXV3.DescribeDefaultParameters" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeDefaultParameters where+  toJSON DescribeDefaultParameters' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken+          ]+      )++instance Data.ToPath DescribeDefaultParameters where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeDefaultParameters where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeDefaultParametersResponse' smart constructor.+data DescribeDefaultParametersResponse = DescribeDefaultParametersResponse'+  { -- | Provides an identifier to allow retrieval of paginated results.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | A list of parameters. Each element in the list represents one parameter.+    parameters :: Prelude.Maybe [Parameter],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeDefaultParametersResponse' 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', 'describeDefaultParametersResponse_nextToken' - Provides an identifier to allow retrieval of paginated results.+--+-- 'parameters', 'describeDefaultParametersResponse_parameters' - A list of parameters. Each element in the list represents one parameter.+--+-- 'httpStatus', 'describeDefaultParametersResponse_httpStatus' - The response's http status code.+newDescribeDefaultParametersResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeDefaultParametersResponse+newDescribeDefaultParametersResponse pHttpStatus_ =+  DescribeDefaultParametersResponse'+    { nextToken =+        Prelude.Nothing,+      parameters = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Provides an identifier to allow retrieval of paginated results.+describeDefaultParametersResponse_nextToken :: Lens.Lens' DescribeDefaultParametersResponse (Prelude.Maybe Prelude.Text)+describeDefaultParametersResponse_nextToken = Lens.lens (\DescribeDefaultParametersResponse' {nextToken} -> nextToken) (\s@DescribeDefaultParametersResponse' {} a -> s {nextToken = a} :: DescribeDefaultParametersResponse)++-- | A list of parameters. Each element in the list represents one parameter.+describeDefaultParametersResponse_parameters :: Lens.Lens' DescribeDefaultParametersResponse (Prelude.Maybe [Parameter])+describeDefaultParametersResponse_parameters = Lens.lens (\DescribeDefaultParametersResponse' {parameters} -> parameters) (\s@DescribeDefaultParametersResponse' {} a -> s {parameters = a} :: DescribeDefaultParametersResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeDefaultParametersResponse_httpStatus :: Lens.Lens' DescribeDefaultParametersResponse Prelude.Int+describeDefaultParametersResponse_httpStatus = Lens.lens (\DescribeDefaultParametersResponse' {httpStatus} -> httpStatus) (\s@DescribeDefaultParametersResponse' {} a -> s {httpStatus = a} :: DescribeDefaultParametersResponse)++instance+  Prelude.NFData+    DescribeDefaultParametersResponse+  where+  rnf DescribeDefaultParametersResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf parameters+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,321 @@+{-# 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.DAX.DescribeEvents+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns events related to DAX clusters and parameter groups. You can+-- obtain events specific to a particular DAX cluster or parameter group by+-- providing the name as a parameter.+--+-- By default, only the events occurring within the last 24 hours are+-- returned; however, you can retrieve up to 14 days\' worth of events if+-- necessary.+--+-- This operation returns paginated results.+module Amazonka.DAX.DescribeEvents+  ( -- * Creating a Request+    DescribeEvents (..),+    newDescribeEvents,++    -- * Request Lenses+    describeEvents_duration,+    describeEvents_endTime,+    describeEvents_maxResults,+    describeEvents_nextToken,+    describeEvents_sourceName,+    describeEvents_sourceType,+    describeEvents_startTime,++    -- * Destructuring the Response+    DescribeEventsResponse (..),+    newDescribeEventsResponse,++    -- * Response Lenses+    describeEventsResponse_events,+    describeEventsResponse_nextToken,+    describeEventsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import Amazonka.DAX.Types+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:/ 'newDescribeEvents' smart constructor.+data DescribeEvents = DescribeEvents'+  { -- | The number of minutes\' worth of events to retrieve.+    duration :: Prelude.Maybe Prelude.Int,+    -- | The end of the time interval for which to retrieve events, specified in+    -- ISO 8601 format.+    endTime :: Prelude.Maybe Data.POSIX,+    -- | The maximum number of results to include in the response. If more+    -- results exist than the specified @MaxResults@ value, a token is included+    -- in the response so that the remaining results can be retrieved.+    --+    -- The value for @MaxResults@ must be between 20 and 100.+    maxResults :: Prelude.Maybe Prelude.Int,+    -- | An optional token returned from a prior request. Use this token for+    -- pagination of results from this action. If this parameter is specified,+    -- the response includes only results beyond the token, up to the value+    -- specified by @MaxResults@.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The identifier of the event source for which events will be returned. If+    -- not specified, then all sources are included in the response.+    sourceName :: Prelude.Maybe Prelude.Text,+    -- | The event source to retrieve events for. If no value is specified, all+    -- events are returned.+    sourceType :: Prelude.Maybe SourceType,+    -- | The beginning of the time interval to retrieve events for, specified in+    -- ISO 8601 format.+    startTime :: Prelude.Maybe Data.POSIX+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeEvents' 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:+--+-- 'duration', 'describeEvents_duration' - The number of minutes\' worth of events to retrieve.+--+-- 'endTime', 'describeEvents_endTime' - The end of the time interval for which to retrieve events, specified in+-- ISO 8601 format.+--+-- 'maxResults', 'describeEvents_maxResults' - The maximum number of results to include in the response. If more+-- results exist than the specified @MaxResults@ value, a token is included+-- in the response so that the remaining results can be retrieved.+--+-- The value for @MaxResults@ must be between 20 and 100.+--+-- 'nextToken', 'describeEvents_nextToken' - An optional token returned from a prior request. Use this token for+-- pagination of results from this action. If this parameter is specified,+-- the response includes only results beyond the token, up to the value+-- specified by @MaxResults@.+--+-- 'sourceName', 'describeEvents_sourceName' - The identifier of the event source for which events will be returned. If+-- not specified, then all sources are included in the response.+--+-- 'sourceType', 'describeEvents_sourceType' - The event source to retrieve events for. If no value is specified, all+-- events are returned.+--+-- 'startTime', 'describeEvents_startTime' - The beginning of the time interval to retrieve events for, specified in+-- ISO 8601 format.+newDescribeEvents ::+  DescribeEvents+newDescribeEvents =+  DescribeEvents'+    { duration = Prelude.Nothing,+      endTime = Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      sourceName = Prelude.Nothing,+      sourceType = Prelude.Nothing,+      startTime = Prelude.Nothing+    }++-- | The number of minutes\' worth of events to retrieve.+describeEvents_duration :: Lens.Lens' DescribeEvents (Prelude.Maybe Prelude.Int)+describeEvents_duration = Lens.lens (\DescribeEvents' {duration} -> duration) (\s@DescribeEvents' {} a -> s {duration = a} :: DescribeEvents)++-- | The end of the time interval for which to retrieve events, specified in+-- ISO 8601 format.+describeEvents_endTime :: Lens.Lens' DescribeEvents (Prelude.Maybe Prelude.UTCTime)+describeEvents_endTime = Lens.lens (\DescribeEvents' {endTime} -> endTime) (\s@DescribeEvents' {} a -> s {endTime = a} :: DescribeEvents) Prelude.. Lens.mapping Data._Time++-- | The maximum number of results to include in the response. If more+-- results exist than the specified @MaxResults@ value, a token is included+-- in the response so that the remaining results can be retrieved.+--+-- The value for @MaxResults@ must be between 20 and 100.+describeEvents_maxResults :: Lens.Lens' DescribeEvents (Prelude.Maybe Prelude.Int)+describeEvents_maxResults = Lens.lens (\DescribeEvents' {maxResults} -> maxResults) (\s@DescribeEvents' {} a -> s {maxResults = a} :: DescribeEvents)++-- | An optional token returned from a prior request. Use this token for+-- pagination of results from this action. If this parameter is specified,+-- the response includes only results beyond the token, up to the value+-- specified by @MaxResults@.+describeEvents_nextToken :: Lens.Lens' DescribeEvents (Prelude.Maybe Prelude.Text)+describeEvents_nextToken = Lens.lens (\DescribeEvents' {nextToken} -> nextToken) (\s@DescribeEvents' {} a -> s {nextToken = a} :: DescribeEvents)++-- | The identifier of the event source for which events will be returned. If+-- not specified, then all sources are included in the response.+describeEvents_sourceName :: Lens.Lens' DescribeEvents (Prelude.Maybe Prelude.Text)+describeEvents_sourceName = Lens.lens (\DescribeEvents' {sourceName} -> sourceName) (\s@DescribeEvents' {} a -> s {sourceName = a} :: DescribeEvents)++-- | The event source to retrieve events for. If no value is specified, all+-- events are returned.+describeEvents_sourceType :: Lens.Lens' DescribeEvents (Prelude.Maybe SourceType)+describeEvents_sourceType = Lens.lens (\DescribeEvents' {sourceType} -> sourceType) (\s@DescribeEvents' {} a -> s {sourceType = a} :: DescribeEvents)++-- | The beginning of the time interval to retrieve events for, specified in+-- ISO 8601 format.+describeEvents_startTime :: Lens.Lens' DescribeEvents (Prelude.Maybe Prelude.UTCTime)+describeEvents_startTime = Lens.lens (\DescribeEvents' {startTime} -> startTime) (\s@DescribeEvents' {} a -> s {startTime = a} :: DescribeEvents) Prelude.. Lens.mapping Data._Time++instance Core.AWSPager DescribeEvents where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeEventsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeEventsResponse_events+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeEvents_nextToken+          Lens..~ rs+          Lens.^? describeEventsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest DescribeEvents where+  type+    AWSResponse DescribeEvents =+      DescribeEventsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeEventsResponse'+            Prelude.<$> (x Data..?> "Events" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeEvents where+  hashWithSalt _salt DescribeEvents' {..} =+    _salt+      `Prelude.hashWithSalt` duration+      `Prelude.hashWithSalt` endTime+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` sourceName+      `Prelude.hashWithSalt` sourceType+      `Prelude.hashWithSalt` startTime++instance Prelude.NFData DescribeEvents where+  rnf DescribeEvents' {..} =+    Prelude.rnf duration+      `Prelude.seq` Prelude.rnf endTime+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf sourceName+      `Prelude.seq` Prelude.rnf sourceType+      `Prelude.seq` Prelude.rnf startTime++instance Data.ToHeaders DescribeEvents where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ("AmazonDAXV3.DescribeEvents" :: Prelude.ByteString),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeEvents where+  toJSON DescribeEvents' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Duration" Data..=) Prelude.<$> duration,+            ("EndTime" Data..=) Prelude.<$> endTime,+            ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            ("SourceName" Data..=) Prelude.<$> sourceName,+            ("SourceType" Data..=) Prelude.<$> sourceType,+            ("StartTime" Data..=) Prelude.<$> startTime+          ]+      )++instance Data.ToPath DescribeEvents where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeEvents where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeEventsResponse' smart constructor.+data DescribeEventsResponse = DescribeEventsResponse'+  { -- | An array of events. Each element in the array represents one event.+    events :: Prelude.Maybe [Event],+    -- | Provides an identifier to allow retrieval of paginated results.+    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 'DescribeEventsResponse' 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:+--+-- 'events', 'describeEventsResponse_events' - An array of events. Each element in the array represents one event.+--+-- 'nextToken', 'describeEventsResponse_nextToken' - Provides an identifier to allow retrieval of paginated results.+--+-- 'httpStatus', 'describeEventsResponse_httpStatus' - The response's http status code.+newDescribeEventsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeEventsResponse+newDescribeEventsResponse pHttpStatus_ =+  DescribeEventsResponse'+    { events = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | An array of events. Each element in the array represents one event.+describeEventsResponse_events :: Lens.Lens' DescribeEventsResponse (Prelude.Maybe [Event])+describeEventsResponse_events = Lens.lens (\DescribeEventsResponse' {events} -> events) (\s@DescribeEventsResponse' {} a -> s {events = a} :: DescribeEventsResponse) Prelude.. Lens.mapping Lens.coerced++-- | Provides an identifier to allow retrieval of paginated results.+describeEventsResponse_nextToken :: Lens.Lens' DescribeEventsResponse (Prelude.Maybe Prelude.Text)+describeEventsResponse_nextToken = Lens.lens (\DescribeEventsResponse' {nextToken} -> nextToken) (\s@DescribeEventsResponse' {} a -> s {nextToken = a} :: DescribeEventsResponse)++-- | The response's http status code.+describeEventsResponse_httpStatus :: Lens.Lens' DescribeEventsResponse Prelude.Int+describeEventsResponse_httpStatus = Lens.lens (\DescribeEventsResponse' {httpStatus} -> httpStatus) (\s@DescribeEventsResponse' {} a -> s {httpStatus = a} :: DescribeEventsResponse)++instance Prelude.NFData DescribeEventsResponse where+  rnf DescribeEventsResponse' {..} =+    Prelude.rnf events+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,267 @@+{-# 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.DAX.DescribeParameterGroups+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of parameter group descriptions. If a parameter group+-- name is specified, the list will contain only the descriptions for that+-- group.+--+-- This operation returns paginated results.+module Amazonka.DAX.DescribeParameterGroups+  ( -- * Creating a Request+    DescribeParameterGroups (..),+    newDescribeParameterGroups,++    -- * Request Lenses+    describeParameterGroups_maxResults,+    describeParameterGroups_nextToken,+    describeParameterGroups_parameterGroupNames,++    -- * Destructuring the Response+    DescribeParameterGroupsResponse (..),+    newDescribeParameterGroupsResponse,++    -- * Response Lenses+    describeParameterGroupsResponse_nextToken,+    describeParameterGroupsResponse_parameterGroups,+    describeParameterGroupsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import Amazonka.DAX.Types+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:/ 'newDescribeParameterGroups' smart constructor.+data DescribeParameterGroups = DescribeParameterGroups'+  { -- | The maximum number of results to include in the response. If more+    -- results exist than the specified @MaxResults@ value, a token is included+    -- in the response so that the remaining results can be retrieved.+    --+    -- The value for @MaxResults@ must be between 20 and 100.+    maxResults :: Prelude.Maybe Prelude.Int,+    -- | An optional token returned from a prior request. Use this token for+    -- pagination of results from this action. If this parameter is specified,+    -- the response includes only results beyond the token, up to the value+    -- specified by @MaxResults@.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The names of the parameter groups.+    parameterGroupNames :: Prelude.Maybe [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeParameterGroups' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'maxResults', 'describeParameterGroups_maxResults' - The maximum number of results to include in the response. If more+-- results exist than the specified @MaxResults@ value, a token is included+-- in the response so that the remaining results can be retrieved.+--+-- The value for @MaxResults@ must be between 20 and 100.+--+-- 'nextToken', 'describeParameterGroups_nextToken' - An optional token returned from a prior request. Use this token for+-- pagination of results from this action. If this parameter is specified,+-- the response includes only results beyond the token, up to the value+-- specified by @MaxResults@.+--+-- 'parameterGroupNames', 'describeParameterGroups_parameterGroupNames' - The names of the parameter groups.+newDescribeParameterGroups ::+  DescribeParameterGroups+newDescribeParameterGroups =+  DescribeParameterGroups'+    { maxResults =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      parameterGroupNames = Prelude.Nothing+    }++-- | The maximum number of results to include in the response. If more+-- results exist than the specified @MaxResults@ value, a token is included+-- in the response so that the remaining results can be retrieved.+--+-- The value for @MaxResults@ must be between 20 and 100.+describeParameterGroups_maxResults :: Lens.Lens' DescribeParameterGroups (Prelude.Maybe Prelude.Int)+describeParameterGroups_maxResults = Lens.lens (\DescribeParameterGroups' {maxResults} -> maxResults) (\s@DescribeParameterGroups' {} a -> s {maxResults = a} :: DescribeParameterGroups)++-- | An optional token returned from a prior request. Use this token for+-- pagination of results from this action. If this parameter is specified,+-- the response includes only results beyond the token, up to the value+-- specified by @MaxResults@.+describeParameterGroups_nextToken :: Lens.Lens' DescribeParameterGroups (Prelude.Maybe Prelude.Text)+describeParameterGroups_nextToken = Lens.lens (\DescribeParameterGroups' {nextToken} -> nextToken) (\s@DescribeParameterGroups' {} a -> s {nextToken = a} :: DescribeParameterGroups)++-- | The names of the parameter groups.+describeParameterGroups_parameterGroupNames :: Lens.Lens' DescribeParameterGroups (Prelude.Maybe [Prelude.Text])+describeParameterGroups_parameterGroupNames = Lens.lens (\DescribeParameterGroups' {parameterGroupNames} -> parameterGroupNames) (\s@DescribeParameterGroups' {} a -> s {parameterGroupNames = a} :: DescribeParameterGroups) Prelude.. Lens.mapping Lens.coerced++instance Core.AWSPager DescribeParameterGroups where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeParameterGroupsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeParameterGroupsResponse_parameterGroups+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeParameterGroups_nextToken+          Lens..~ rs+          Lens.^? describeParameterGroupsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest DescribeParameterGroups where+  type+    AWSResponse DescribeParameterGroups =+      DescribeParameterGroupsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeParameterGroupsResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> ( x+                            Data..?> "ParameterGroups"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeParameterGroups where+  hashWithSalt _salt DescribeParameterGroups' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` parameterGroupNames++instance Prelude.NFData DescribeParameterGroups where+  rnf DescribeParameterGroups' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf parameterGroupNames++instance Data.ToHeaders DescribeParameterGroups where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AmazonDAXV3.DescribeParameterGroups" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeParameterGroups where+  toJSON DescribeParameterGroups' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            ("ParameterGroupNames" Data..=)+              Prelude.<$> parameterGroupNames+          ]+      )++instance Data.ToPath DescribeParameterGroups where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeParameterGroups where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeParameterGroupsResponse' smart constructor.+data DescribeParameterGroupsResponse = DescribeParameterGroupsResponse'+  { -- | Provides an identifier to allow retrieval of paginated results.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | An array of parameter groups. Each element in the array represents one+    -- parameter group.+    parameterGroups :: Prelude.Maybe [ParameterGroup],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeParameterGroupsResponse' 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', 'describeParameterGroupsResponse_nextToken' - Provides an identifier to allow retrieval of paginated results.+--+-- 'parameterGroups', 'describeParameterGroupsResponse_parameterGroups' - An array of parameter groups. Each element in the array represents one+-- parameter group.+--+-- 'httpStatus', 'describeParameterGroupsResponse_httpStatus' - The response's http status code.+newDescribeParameterGroupsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeParameterGroupsResponse+newDescribeParameterGroupsResponse pHttpStatus_ =+  DescribeParameterGroupsResponse'+    { nextToken =+        Prelude.Nothing,+      parameterGroups = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Provides an identifier to allow retrieval of paginated results.+describeParameterGroupsResponse_nextToken :: Lens.Lens' DescribeParameterGroupsResponse (Prelude.Maybe Prelude.Text)+describeParameterGroupsResponse_nextToken = Lens.lens (\DescribeParameterGroupsResponse' {nextToken} -> nextToken) (\s@DescribeParameterGroupsResponse' {} a -> s {nextToken = a} :: DescribeParameterGroupsResponse)++-- | An array of parameter groups. Each element in the array represents one+-- parameter group.+describeParameterGroupsResponse_parameterGroups :: Lens.Lens' DescribeParameterGroupsResponse (Prelude.Maybe [ParameterGroup])+describeParameterGroupsResponse_parameterGroups = Lens.lens (\DescribeParameterGroupsResponse' {parameterGroups} -> parameterGroups) (\s@DescribeParameterGroupsResponse' {} a -> s {parameterGroups = a} :: DescribeParameterGroupsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeParameterGroupsResponse_httpStatus :: Lens.Lens' DescribeParameterGroupsResponse Prelude.Int+describeParameterGroupsResponse_httpStatus = Lens.lens (\DescribeParameterGroupsResponse' {httpStatus} -> httpStatus) (\s@DescribeParameterGroupsResponse' {} a -> s {httpStatus = a} :: DescribeParameterGroupsResponse)++instance+  Prelude.NFData+    DescribeParameterGroupsResponse+  where+  rnf DescribeParameterGroupsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf parameterGroups+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,276 @@+{-# 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.DAX.DescribeParameters+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the detailed parameter list for a particular parameter group.+--+-- This operation returns paginated results.+module Amazonka.DAX.DescribeParameters+  ( -- * Creating a Request+    DescribeParameters (..),+    newDescribeParameters,++    -- * Request Lenses+    describeParameters_maxResults,+    describeParameters_nextToken,+    describeParameters_source,+    describeParameters_parameterGroupName,++    -- * Destructuring the Response+    DescribeParametersResponse (..),+    newDescribeParametersResponse,++    -- * Response Lenses+    describeParametersResponse_nextToken,+    describeParametersResponse_parameters,+    describeParametersResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import Amazonka.DAX.Types+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:/ 'newDescribeParameters' smart constructor.+data DescribeParameters = DescribeParameters'+  { -- | The maximum number of results to include in the response. If more+    -- results exist than the specified @MaxResults@ value, a token is included+    -- in the response so that the remaining results can be retrieved.+    --+    -- The value for @MaxResults@ must be between 20 and 100.+    maxResults :: Prelude.Maybe Prelude.Int,+    -- | An optional token returned from a prior request. Use this token for+    -- pagination of results from this action. If this parameter is specified,+    -- the response includes only results beyond the token, up to the value+    -- specified by @MaxResults@.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | How the parameter is defined. For example, @system@ denotes a+    -- system-defined parameter.+    source :: Prelude.Maybe Prelude.Text,+    -- | The name of the parameter group.+    parameterGroupName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeParameters' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'maxResults', 'describeParameters_maxResults' - The maximum number of results to include in the response. If more+-- results exist than the specified @MaxResults@ value, a token is included+-- in the response so that the remaining results can be retrieved.+--+-- The value for @MaxResults@ must be between 20 and 100.+--+-- 'nextToken', 'describeParameters_nextToken' - An optional token returned from a prior request. Use this token for+-- pagination of results from this action. If this parameter is specified,+-- the response includes only results beyond the token, up to the value+-- specified by @MaxResults@.+--+-- 'source', 'describeParameters_source' - How the parameter is defined. For example, @system@ denotes a+-- system-defined parameter.+--+-- 'parameterGroupName', 'describeParameters_parameterGroupName' - The name of the parameter group.+newDescribeParameters ::+  -- | 'parameterGroupName'+  Prelude.Text ->+  DescribeParameters+newDescribeParameters pParameterGroupName_ =+  DescribeParameters'+    { maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      source = Prelude.Nothing,+      parameterGroupName = pParameterGroupName_+    }++-- | The maximum number of results to include in the response. If more+-- results exist than the specified @MaxResults@ value, a token is included+-- in the response so that the remaining results can be retrieved.+--+-- The value for @MaxResults@ must be between 20 and 100.+describeParameters_maxResults :: Lens.Lens' DescribeParameters (Prelude.Maybe Prelude.Int)+describeParameters_maxResults = Lens.lens (\DescribeParameters' {maxResults} -> maxResults) (\s@DescribeParameters' {} a -> s {maxResults = a} :: DescribeParameters)++-- | An optional token returned from a prior request. Use this token for+-- pagination of results from this action. If this parameter is specified,+-- the response includes only results beyond the token, up to the value+-- specified by @MaxResults@.+describeParameters_nextToken :: Lens.Lens' DescribeParameters (Prelude.Maybe Prelude.Text)+describeParameters_nextToken = Lens.lens (\DescribeParameters' {nextToken} -> nextToken) (\s@DescribeParameters' {} a -> s {nextToken = a} :: DescribeParameters)++-- | How the parameter is defined. For example, @system@ denotes a+-- system-defined parameter.+describeParameters_source :: Lens.Lens' DescribeParameters (Prelude.Maybe Prelude.Text)+describeParameters_source = Lens.lens (\DescribeParameters' {source} -> source) (\s@DescribeParameters' {} a -> s {source = a} :: DescribeParameters)++-- | The name of the parameter group.+describeParameters_parameterGroupName :: Lens.Lens' DescribeParameters Prelude.Text+describeParameters_parameterGroupName = Lens.lens (\DescribeParameters' {parameterGroupName} -> parameterGroupName) (\s@DescribeParameters' {} a -> s {parameterGroupName = a} :: DescribeParameters)++instance Core.AWSPager DescribeParameters where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeParametersResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeParametersResponse_parameters+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeParameters_nextToken+          Lens..~ rs+          Lens.^? describeParametersResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest DescribeParameters where+  type+    AWSResponse DescribeParameters =+      DescribeParametersResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeParametersResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> (x Data..?> "Parameters" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeParameters where+  hashWithSalt _salt DescribeParameters' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` source+      `Prelude.hashWithSalt` parameterGroupName++instance Prelude.NFData DescribeParameters where+  rnf DescribeParameters' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf source+      `Prelude.seq` Prelude.rnf parameterGroupName++instance Data.ToHeaders DescribeParameters where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AmazonDAXV3.DescribeParameters" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeParameters where+  toJSON DescribeParameters' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            ("Source" Data..=) Prelude.<$> source,+            Prelude.Just+              ("ParameterGroupName" Data..= parameterGroupName)+          ]+      )++instance Data.ToPath DescribeParameters where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeParameters where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeParametersResponse' smart constructor.+data DescribeParametersResponse = DescribeParametersResponse'+  { -- | Provides an identifier to allow retrieval of paginated results.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | A list of parameters within a parameter group. Each element in the list+    -- represents one parameter.+    parameters :: Prelude.Maybe [Parameter],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeParametersResponse' 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', 'describeParametersResponse_nextToken' - Provides an identifier to allow retrieval of paginated results.+--+-- 'parameters', 'describeParametersResponse_parameters' - A list of parameters within a parameter group. Each element in the list+-- represents one parameter.+--+-- 'httpStatus', 'describeParametersResponse_httpStatus' - The response's http status code.+newDescribeParametersResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeParametersResponse+newDescribeParametersResponse pHttpStatus_ =+  DescribeParametersResponse'+    { nextToken =+        Prelude.Nothing,+      parameters = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Provides an identifier to allow retrieval of paginated results.+describeParametersResponse_nextToken :: Lens.Lens' DescribeParametersResponse (Prelude.Maybe Prelude.Text)+describeParametersResponse_nextToken = Lens.lens (\DescribeParametersResponse' {nextToken} -> nextToken) (\s@DescribeParametersResponse' {} a -> s {nextToken = a} :: DescribeParametersResponse)++-- | A list of parameters within a parameter group. Each element in the list+-- represents one parameter.+describeParametersResponse_parameters :: Lens.Lens' DescribeParametersResponse (Prelude.Maybe [Parameter])+describeParametersResponse_parameters = Lens.lens (\DescribeParametersResponse' {parameters} -> parameters) (\s@DescribeParametersResponse' {} a -> s {parameters = a} :: DescribeParametersResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeParametersResponse_httpStatus :: Lens.Lens' DescribeParametersResponse Prelude.Int+describeParametersResponse_httpStatus = Lens.lens (\DescribeParametersResponse' {httpStatus} -> httpStatus) (\s@DescribeParametersResponse' {} a -> s {httpStatus = a} :: DescribeParametersResponse)++instance Prelude.NFData DescribeParametersResponse where+  rnf DescribeParametersResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf parameters+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,259 @@+{-# 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.DAX.DescribeSubnetGroups+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of subnet group descriptions. If a subnet group name is+-- specified, the list will contain only the description of that group.+--+-- This operation returns paginated results.+module Amazonka.DAX.DescribeSubnetGroups+  ( -- * Creating a Request+    DescribeSubnetGroups (..),+    newDescribeSubnetGroups,++    -- * Request Lenses+    describeSubnetGroups_maxResults,+    describeSubnetGroups_nextToken,+    describeSubnetGroups_subnetGroupNames,++    -- * Destructuring the Response+    DescribeSubnetGroupsResponse (..),+    newDescribeSubnetGroupsResponse,++    -- * Response Lenses+    describeSubnetGroupsResponse_nextToken,+    describeSubnetGroupsResponse_subnetGroups,+    describeSubnetGroupsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import Amazonka.DAX.Types+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:/ 'newDescribeSubnetGroups' smart constructor.+data DescribeSubnetGroups = DescribeSubnetGroups'+  { -- | The maximum number of results to include in the response. If more+    -- results exist than the specified @MaxResults@ value, a token is included+    -- in the response so that the remaining results can be retrieved.+    --+    -- The value for @MaxResults@ must be between 20 and 100.+    maxResults :: Prelude.Maybe Prelude.Int,+    -- | An optional token returned from a prior request. Use this token for+    -- pagination of results from this action. If this parameter is specified,+    -- the response includes only results beyond the token, up to the value+    -- specified by @MaxResults@.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The name of the subnet group.+    subnetGroupNames :: Prelude.Maybe [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeSubnetGroups' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'maxResults', 'describeSubnetGroups_maxResults' - The maximum number of results to include in the response. If more+-- results exist than the specified @MaxResults@ value, a token is included+-- in the response so that the remaining results can be retrieved.+--+-- The value for @MaxResults@ must be between 20 and 100.+--+-- 'nextToken', 'describeSubnetGroups_nextToken' - An optional token returned from a prior request. Use this token for+-- pagination of results from this action. If this parameter is specified,+-- the response includes only results beyond the token, up to the value+-- specified by @MaxResults@.+--+-- 'subnetGroupNames', 'describeSubnetGroups_subnetGroupNames' - The name of the subnet group.+newDescribeSubnetGroups ::+  DescribeSubnetGroups+newDescribeSubnetGroups =+  DescribeSubnetGroups'+    { maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      subnetGroupNames = Prelude.Nothing+    }++-- | The maximum number of results to include in the response. If more+-- results exist than the specified @MaxResults@ value, a token is included+-- in the response so that the remaining results can be retrieved.+--+-- The value for @MaxResults@ must be between 20 and 100.+describeSubnetGroups_maxResults :: Lens.Lens' DescribeSubnetGroups (Prelude.Maybe Prelude.Int)+describeSubnetGroups_maxResults = Lens.lens (\DescribeSubnetGroups' {maxResults} -> maxResults) (\s@DescribeSubnetGroups' {} a -> s {maxResults = a} :: DescribeSubnetGroups)++-- | An optional token returned from a prior request. Use this token for+-- pagination of results from this action. If this parameter is specified,+-- the response includes only results beyond the token, up to the value+-- specified by @MaxResults@.+describeSubnetGroups_nextToken :: Lens.Lens' DescribeSubnetGroups (Prelude.Maybe Prelude.Text)+describeSubnetGroups_nextToken = Lens.lens (\DescribeSubnetGroups' {nextToken} -> nextToken) (\s@DescribeSubnetGroups' {} a -> s {nextToken = a} :: DescribeSubnetGroups)++-- | The name of the subnet group.+describeSubnetGroups_subnetGroupNames :: Lens.Lens' DescribeSubnetGroups (Prelude.Maybe [Prelude.Text])+describeSubnetGroups_subnetGroupNames = Lens.lens (\DescribeSubnetGroups' {subnetGroupNames} -> subnetGroupNames) (\s@DescribeSubnetGroups' {} a -> s {subnetGroupNames = a} :: DescribeSubnetGroups) Prelude.. Lens.mapping Lens.coerced++instance Core.AWSPager DescribeSubnetGroups where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeSubnetGroupsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeSubnetGroupsResponse_subnetGroups+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeSubnetGroups_nextToken+          Lens..~ rs+          Lens.^? describeSubnetGroupsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest DescribeSubnetGroups where+  type+    AWSResponse DescribeSubnetGroups =+      DescribeSubnetGroupsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeSubnetGroupsResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> (x Data..?> "SubnetGroups" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeSubnetGroups where+  hashWithSalt _salt DescribeSubnetGroups' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` subnetGroupNames++instance Prelude.NFData DescribeSubnetGroups where+  rnf DescribeSubnetGroups' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf subnetGroupNames++instance Data.ToHeaders DescribeSubnetGroups where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AmazonDAXV3.DescribeSubnetGroups" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeSubnetGroups where+  toJSON DescribeSubnetGroups' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            ("SubnetGroupNames" Data..=)+              Prelude.<$> subnetGroupNames+          ]+      )++instance Data.ToPath DescribeSubnetGroups where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeSubnetGroups where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeSubnetGroupsResponse' smart constructor.+data DescribeSubnetGroupsResponse = DescribeSubnetGroupsResponse'+  { -- | Provides an identifier to allow retrieval of paginated results.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | An array of subnet groups. Each element in the array represents a single+    -- subnet group.+    subnetGroups :: Prelude.Maybe [SubnetGroup],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeSubnetGroupsResponse' 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', 'describeSubnetGroupsResponse_nextToken' - Provides an identifier to allow retrieval of paginated results.+--+-- 'subnetGroups', 'describeSubnetGroupsResponse_subnetGroups' - An array of subnet groups. Each element in the array represents a single+-- subnet group.+--+-- 'httpStatus', 'describeSubnetGroupsResponse_httpStatus' - The response's http status code.+newDescribeSubnetGroupsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeSubnetGroupsResponse+newDescribeSubnetGroupsResponse pHttpStatus_ =+  DescribeSubnetGroupsResponse'+    { nextToken =+        Prelude.Nothing,+      subnetGroups = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Provides an identifier to allow retrieval of paginated results.+describeSubnetGroupsResponse_nextToken :: Lens.Lens' DescribeSubnetGroupsResponse (Prelude.Maybe Prelude.Text)+describeSubnetGroupsResponse_nextToken = Lens.lens (\DescribeSubnetGroupsResponse' {nextToken} -> nextToken) (\s@DescribeSubnetGroupsResponse' {} a -> s {nextToken = a} :: DescribeSubnetGroupsResponse)++-- | An array of subnet groups. Each element in the array represents a single+-- subnet group.+describeSubnetGroupsResponse_subnetGroups :: Lens.Lens' DescribeSubnetGroupsResponse (Prelude.Maybe [SubnetGroup])+describeSubnetGroupsResponse_subnetGroups = Lens.lens (\DescribeSubnetGroupsResponse' {subnetGroups} -> subnetGroups) (\s@DescribeSubnetGroupsResponse' {} a -> s {subnetGroups = a} :: DescribeSubnetGroupsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeSubnetGroupsResponse_httpStatus :: Lens.Lens' DescribeSubnetGroupsResponse Prelude.Int+describeSubnetGroupsResponse_httpStatus = Lens.lens (\DescribeSubnetGroupsResponse' {httpStatus} -> httpStatus) (\s@DescribeSubnetGroupsResponse' {} a -> s {httpStatus = a} :: DescribeSubnetGroupsResponse)++instance Prelude.NFData DescribeSubnetGroupsResponse where+  rnf DescribeSubnetGroupsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf subnetGroups+      `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.DAX.IncreaseReplicationFactor+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Adds one or more nodes to a DAX cluster.+module Amazonka.DAX.IncreaseReplicationFactor+  ( -- * Creating a Request+    IncreaseReplicationFactor (..),+    newIncreaseReplicationFactor,++    -- * Request Lenses+    increaseReplicationFactor_availabilityZones,+    increaseReplicationFactor_clusterName,+    increaseReplicationFactor_newReplicationFactor,++    -- * Destructuring the Response+    IncreaseReplicationFactorResponse (..),+    newIncreaseReplicationFactorResponse,++    -- * Response Lenses+    increaseReplicationFactorResponse_cluster,+    increaseReplicationFactorResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import Amazonka.DAX.Types+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:/ 'newIncreaseReplicationFactor' smart constructor.+data IncreaseReplicationFactor = IncreaseReplicationFactor'+  { -- | The Availability Zones (AZs) in which the cluster nodes will be created.+    -- All nodes belonging to the cluster are placed in these Availability+    -- Zones. Use this parameter if you want to distribute the nodes across+    -- multiple AZs.+    availabilityZones :: Prelude.Maybe [Prelude.Text],+    -- | The name of the DAX cluster that will receive additional nodes.+    clusterName :: Prelude.Text,+    -- | The new number of nodes for the DAX cluster.+    newReplicationFactor' :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'IncreaseReplicationFactor' 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:+--+-- 'availabilityZones', 'increaseReplicationFactor_availabilityZones' - The Availability Zones (AZs) in which the cluster nodes will be created.+-- All nodes belonging to the cluster are placed in these Availability+-- Zones. Use this parameter if you want to distribute the nodes across+-- multiple AZs.+--+-- 'clusterName', 'increaseReplicationFactor_clusterName' - The name of the DAX cluster that will receive additional nodes.+--+-- 'newReplicationFactor'', 'increaseReplicationFactor_newReplicationFactor' - The new number of nodes for the DAX cluster.+newIncreaseReplicationFactor ::+  -- | 'clusterName'+  Prelude.Text ->+  -- | 'newReplicationFactor''+  Prelude.Int ->+  IncreaseReplicationFactor+newIncreaseReplicationFactor+  pClusterName_+  pNewReplicationFactor_ =+    IncreaseReplicationFactor'+      { availabilityZones =+          Prelude.Nothing,+        clusterName = pClusterName_,+        newReplicationFactor' = pNewReplicationFactor_+      }++-- | The Availability Zones (AZs) in which the cluster nodes will be created.+-- All nodes belonging to the cluster are placed in these Availability+-- Zones. Use this parameter if you want to distribute the nodes across+-- multiple AZs.+increaseReplicationFactor_availabilityZones :: Lens.Lens' IncreaseReplicationFactor (Prelude.Maybe [Prelude.Text])+increaseReplicationFactor_availabilityZones = Lens.lens (\IncreaseReplicationFactor' {availabilityZones} -> availabilityZones) (\s@IncreaseReplicationFactor' {} a -> s {availabilityZones = a} :: IncreaseReplicationFactor) Prelude.. Lens.mapping Lens.coerced++-- | The name of the DAX cluster that will receive additional nodes.+increaseReplicationFactor_clusterName :: Lens.Lens' IncreaseReplicationFactor Prelude.Text+increaseReplicationFactor_clusterName = Lens.lens (\IncreaseReplicationFactor' {clusterName} -> clusterName) (\s@IncreaseReplicationFactor' {} a -> s {clusterName = a} :: IncreaseReplicationFactor)++-- | The new number of nodes for the DAX cluster.+increaseReplicationFactor_newReplicationFactor :: Lens.Lens' IncreaseReplicationFactor Prelude.Int+increaseReplicationFactor_newReplicationFactor = Lens.lens (\IncreaseReplicationFactor' {newReplicationFactor'} -> newReplicationFactor') (\s@IncreaseReplicationFactor' {} a -> s {newReplicationFactor' = a} :: IncreaseReplicationFactor)++instance Core.AWSRequest IncreaseReplicationFactor where+  type+    AWSResponse IncreaseReplicationFactor =+      IncreaseReplicationFactorResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          IncreaseReplicationFactorResponse'+            Prelude.<$> (x Data..?> "Cluster")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable IncreaseReplicationFactor where+  hashWithSalt _salt IncreaseReplicationFactor' {..} =+    _salt+      `Prelude.hashWithSalt` availabilityZones+      `Prelude.hashWithSalt` clusterName+      `Prelude.hashWithSalt` newReplicationFactor'++instance Prelude.NFData IncreaseReplicationFactor where+  rnf IncreaseReplicationFactor' {..} =+    Prelude.rnf availabilityZones+      `Prelude.seq` Prelude.rnf clusterName+      `Prelude.seq` Prelude.rnf newReplicationFactor'++instance Data.ToHeaders IncreaseReplicationFactor where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AmazonDAXV3.IncreaseReplicationFactor" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON IncreaseReplicationFactor where+  toJSON IncreaseReplicationFactor' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("AvailabilityZones" Data..=)+              Prelude.<$> availabilityZones,+            Prelude.Just ("ClusterName" Data..= clusterName),+            Prelude.Just+              ( "NewReplicationFactor"+                  Data..= newReplicationFactor'+              )+          ]+      )++instance Data.ToPath IncreaseReplicationFactor where+  toPath = Prelude.const "/"++instance Data.ToQuery IncreaseReplicationFactor where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newIncreaseReplicationFactorResponse' smart constructor.+data IncreaseReplicationFactorResponse = IncreaseReplicationFactorResponse'+  { -- | A description of the DAX cluster. with its new replication factor.+    cluster :: Prelude.Maybe Cluster,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'IncreaseReplicationFactorResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'cluster', 'increaseReplicationFactorResponse_cluster' - A description of the DAX cluster. with its new replication factor.+--+-- 'httpStatus', 'increaseReplicationFactorResponse_httpStatus' - The response's http status code.+newIncreaseReplicationFactorResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  IncreaseReplicationFactorResponse+newIncreaseReplicationFactorResponse pHttpStatus_ =+  IncreaseReplicationFactorResponse'+    { cluster =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A description of the DAX cluster. with its new replication factor.+increaseReplicationFactorResponse_cluster :: Lens.Lens' IncreaseReplicationFactorResponse (Prelude.Maybe Cluster)+increaseReplicationFactorResponse_cluster = Lens.lens (\IncreaseReplicationFactorResponse' {cluster} -> cluster) (\s@IncreaseReplicationFactorResponse' {} a -> s {cluster = a} :: IncreaseReplicationFactorResponse)++-- | The response's http status code.+increaseReplicationFactorResponse_httpStatus :: Lens.Lens' IncreaseReplicationFactorResponse Prelude.Int+increaseReplicationFactorResponse_httpStatus = Lens.lens (\IncreaseReplicationFactorResponse' {httpStatus} -> httpStatus) (\s@IncreaseReplicationFactorResponse' {} a -> s {httpStatus = a} :: IncreaseReplicationFactorResponse)++instance+  Prelude.NFData+    IncreaseReplicationFactorResponse+  where+  rnf IncreaseReplicationFactorResponse' {..} =+    Prelude.rnf cluster+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,315 @@+{-# 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.DAX.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.DAX.Lens+  ( -- * Operations++    -- ** CreateCluster+    createCluster_availabilityZones,+    createCluster_clusterEndpointEncryptionType,+    createCluster_description,+    createCluster_notificationTopicArn,+    createCluster_parameterGroupName,+    createCluster_preferredMaintenanceWindow,+    createCluster_sSESpecification,+    createCluster_securityGroupIds,+    createCluster_subnetGroupName,+    createCluster_tags,+    createCluster_clusterName,+    createCluster_nodeType,+    createCluster_replicationFactor,+    createCluster_iamRoleArn,+    createClusterResponse_cluster,+    createClusterResponse_httpStatus,++    -- ** CreateParameterGroup+    createParameterGroup_description,+    createParameterGroup_parameterGroupName,+    createParameterGroupResponse_parameterGroup,+    createParameterGroupResponse_httpStatus,++    -- ** CreateSubnetGroup+    createSubnetGroup_description,+    createSubnetGroup_subnetGroupName,+    createSubnetGroup_subnetIds,+    createSubnetGroupResponse_subnetGroup,+    createSubnetGroupResponse_httpStatus,++    -- ** DecreaseReplicationFactor+    decreaseReplicationFactor_availabilityZones,+    decreaseReplicationFactor_nodeIdsToRemove,+    decreaseReplicationFactor_clusterName,+    decreaseReplicationFactor_newReplicationFactor,+    decreaseReplicationFactorResponse_cluster,+    decreaseReplicationFactorResponse_httpStatus,++    -- ** DeleteCluster+    deleteCluster_clusterName,+    deleteClusterResponse_cluster,+    deleteClusterResponse_httpStatus,++    -- ** DeleteParameterGroup+    deleteParameterGroup_parameterGroupName,+    deleteParameterGroupResponse_deletionMessage,+    deleteParameterGroupResponse_httpStatus,++    -- ** DeleteSubnetGroup+    deleteSubnetGroup_subnetGroupName,+    deleteSubnetGroupResponse_deletionMessage,+    deleteSubnetGroupResponse_httpStatus,++    -- ** DescribeClusters+    describeClusters_clusterNames,+    describeClusters_maxResults,+    describeClusters_nextToken,+    describeClustersResponse_clusters,+    describeClustersResponse_nextToken,+    describeClustersResponse_httpStatus,++    -- ** DescribeDefaultParameters+    describeDefaultParameters_maxResults,+    describeDefaultParameters_nextToken,+    describeDefaultParametersResponse_nextToken,+    describeDefaultParametersResponse_parameters,+    describeDefaultParametersResponse_httpStatus,++    -- ** DescribeEvents+    describeEvents_duration,+    describeEvents_endTime,+    describeEvents_maxResults,+    describeEvents_nextToken,+    describeEvents_sourceName,+    describeEvents_sourceType,+    describeEvents_startTime,+    describeEventsResponse_events,+    describeEventsResponse_nextToken,+    describeEventsResponse_httpStatus,++    -- ** DescribeParameterGroups+    describeParameterGroups_maxResults,+    describeParameterGroups_nextToken,+    describeParameterGroups_parameterGroupNames,+    describeParameterGroupsResponse_nextToken,+    describeParameterGroupsResponse_parameterGroups,+    describeParameterGroupsResponse_httpStatus,++    -- ** DescribeParameters+    describeParameters_maxResults,+    describeParameters_nextToken,+    describeParameters_source,+    describeParameters_parameterGroupName,+    describeParametersResponse_nextToken,+    describeParametersResponse_parameters,+    describeParametersResponse_httpStatus,++    -- ** DescribeSubnetGroups+    describeSubnetGroups_maxResults,+    describeSubnetGroups_nextToken,+    describeSubnetGroups_subnetGroupNames,+    describeSubnetGroupsResponse_nextToken,+    describeSubnetGroupsResponse_subnetGroups,+    describeSubnetGroupsResponse_httpStatus,++    -- ** IncreaseReplicationFactor+    increaseReplicationFactor_availabilityZones,+    increaseReplicationFactor_clusterName,+    increaseReplicationFactor_newReplicationFactor,+    increaseReplicationFactorResponse_cluster,+    increaseReplicationFactorResponse_httpStatus,++    -- ** ListTags+    listTags_nextToken,+    listTags_resourceName,+    listTagsResponse_nextToken,+    listTagsResponse_tags,+    listTagsResponse_httpStatus,++    -- ** RebootNode+    rebootNode_clusterName,+    rebootNode_nodeId,+    rebootNodeResponse_cluster,+    rebootNodeResponse_httpStatus,++    -- ** TagResource+    tagResource_resourceName,+    tagResource_tags,+    tagResourceResponse_tags,+    tagResourceResponse_httpStatus,++    -- ** UntagResource+    untagResource_resourceName,+    untagResource_tagKeys,+    untagResourceResponse_tags,+    untagResourceResponse_httpStatus,++    -- ** UpdateCluster+    updateCluster_description,+    updateCluster_notificationTopicArn,+    updateCluster_notificationTopicStatus,+    updateCluster_parameterGroupName,+    updateCluster_preferredMaintenanceWindow,+    updateCluster_securityGroupIds,+    updateCluster_clusterName,+    updateClusterResponse_cluster,+    updateClusterResponse_httpStatus,++    -- ** UpdateParameterGroup+    updateParameterGroup_parameterGroupName,+    updateParameterGroup_parameterNameValues,+    updateParameterGroupResponse_parameterGroup,+    updateParameterGroupResponse_httpStatus,++    -- ** UpdateSubnetGroup+    updateSubnetGroup_description,+    updateSubnetGroup_subnetIds,+    updateSubnetGroup_subnetGroupName,+    updateSubnetGroupResponse_subnetGroup,+    updateSubnetGroupResponse_httpStatus,++    -- * Types++    -- ** Cluster+    cluster_activeNodes,+    cluster_clusterArn,+    cluster_clusterDiscoveryEndpoint,+    cluster_clusterEndpointEncryptionType,+    cluster_clusterName,+    cluster_description,+    cluster_iamRoleArn,+    cluster_nodeIdsToRemove,+    cluster_nodeType,+    cluster_nodes,+    cluster_notificationConfiguration,+    cluster_parameterGroup,+    cluster_preferredMaintenanceWindow,+    cluster_sSEDescription,+    cluster_securityGroups,+    cluster_status,+    cluster_subnetGroup,+    cluster_totalNodes,++    -- ** Endpoint+    endpoint_address,+    endpoint_port,+    endpoint_url,++    -- ** Event+    event_date,+    event_message,+    event_sourceName,+    event_sourceType,++    -- ** Node+    node_availabilityZone,+    node_endpoint,+    node_nodeCreateTime,+    node_nodeId,+    node_nodeStatus,+    node_parameterGroupStatus,++    -- ** NodeTypeSpecificValue+    nodeTypeSpecificValue_nodeType,+    nodeTypeSpecificValue_value,++    -- ** NotificationConfiguration+    notificationConfiguration_topicArn,+    notificationConfiguration_topicStatus,++    -- ** Parameter+    parameter_allowedValues,+    parameter_changeType,+    parameter_dataType,+    parameter_description,+    parameter_isModifiable,+    parameter_nodeTypeSpecificValues,+    parameter_parameterName,+    parameter_parameterType,+    parameter_parameterValue,+    parameter_source,++    -- ** ParameterGroup+    parameterGroup_description,+    parameterGroup_parameterGroupName,++    -- ** ParameterGroupStatus+    parameterGroupStatus_nodeIdsToReboot,+    parameterGroupStatus_parameterApplyStatus,+    parameterGroupStatus_parameterGroupName,++    -- ** ParameterNameValue+    parameterNameValue_parameterName,+    parameterNameValue_parameterValue,++    -- ** SSEDescription+    sSEDescription_status,++    -- ** SSESpecification+    sSESpecification_enabled,++    -- ** SecurityGroupMembership+    securityGroupMembership_securityGroupIdentifier,+    securityGroupMembership_status,++    -- ** Subnet+    subnet_subnetAvailabilityZone,+    subnet_subnetIdentifier,++    -- ** SubnetGroup+    subnetGroup_description,+    subnetGroup_subnetGroupName,+    subnetGroup_subnets,+    subnetGroup_vpcId,++    -- ** Tag+    tag_key,+    tag_value,+  )+where++import Amazonka.DAX.CreateCluster+import Amazonka.DAX.CreateParameterGroup+import Amazonka.DAX.CreateSubnetGroup+import Amazonka.DAX.DecreaseReplicationFactor+import Amazonka.DAX.DeleteCluster+import Amazonka.DAX.DeleteParameterGroup+import Amazonka.DAX.DeleteSubnetGroup+import Amazonka.DAX.DescribeClusters+import Amazonka.DAX.DescribeDefaultParameters+import Amazonka.DAX.DescribeEvents+import Amazonka.DAX.DescribeParameterGroups+import Amazonka.DAX.DescribeParameters+import Amazonka.DAX.DescribeSubnetGroups+import Amazonka.DAX.IncreaseReplicationFactor+import Amazonka.DAX.ListTags+import Amazonka.DAX.RebootNode+import Amazonka.DAX.TagResource+import Amazonka.DAX.Types.Cluster+import Amazonka.DAX.Types.Endpoint+import Amazonka.DAX.Types.Event+import Amazonka.DAX.Types.Node+import Amazonka.DAX.Types.NodeTypeSpecificValue+import Amazonka.DAX.Types.NotificationConfiguration+import Amazonka.DAX.Types.Parameter+import Amazonka.DAX.Types.ParameterGroup+import Amazonka.DAX.Types.ParameterGroupStatus+import Amazonka.DAX.Types.ParameterNameValue+import Amazonka.DAX.Types.SSEDescription+import Amazonka.DAX.Types.SSESpecification+import Amazonka.DAX.Types.SecurityGroupMembership+import Amazonka.DAX.Types.Subnet+import Amazonka.DAX.Types.SubnetGroup+import Amazonka.DAX.Types.Tag+import Amazonka.DAX.UntagResource+import Amazonka.DAX.UpdateCluster+import Amazonka.DAX.UpdateParameterGroup+import Amazonka.DAX.UpdateSubnetGroup

@@ -0,0 +1,230 @@+{-# 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.DAX.ListTags+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- List all of the tags for a DAX cluster. You can call @ListTags@ up to 10+-- times per second, per account.+--+-- This operation returns paginated results.+module Amazonka.DAX.ListTags+  ( -- * Creating a Request+    ListTags (..),+    newListTags,++    -- * Request Lenses+    listTags_nextToken,+    listTags_resourceName,++    -- * Destructuring the Response+    ListTagsResponse (..),+    newListTagsResponse,++    -- * Response Lenses+    listTagsResponse_nextToken,+    listTagsResponse_tags,+    listTagsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import Amazonka.DAX.Types+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListTags' smart constructor.+data ListTags = ListTags'+  { -- | An optional token returned from a prior request. Use this token for+    -- pagination of results from this action. If this parameter is specified,+    -- the response includes only results beyond the token.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The name of the DAX resource to which the tags belong.+    resourceName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListTags' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listTags_nextToken' - An optional token returned from a prior request. Use this token for+-- pagination of results from this action. If this parameter is specified,+-- the response includes only results beyond the token.+--+-- 'resourceName', 'listTags_resourceName' - The name of the DAX resource to which the tags belong.+newListTags ::+  -- | 'resourceName'+  Prelude.Text ->+  ListTags+newListTags pResourceName_ =+  ListTags'+    { nextToken = Prelude.Nothing,+      resourceName = pResourceName_+    }++-- | An optional token returned from a prior request. Use this token for+-- pagination of results from this action. If this parameter is specified,+-- the response includes only results beyond the token.+listTags_nextToken :: Lens.Lens' ListTags (Prelude.Maybe Prelude.Text)+listTags_nextToken = Lens.lens (\ListTags' {nextToken} -> nextToken) (\s@ListTags' {} a -> s {nextToken = a} :: ListTags)++-- | The name of the DAX resource to which the tags belong.+listTags_resourceName :: Lens.Lens' ListTags Prelude.Text+listTags_resourceName = Lens.lens (\ListTags' {resourceName} -> resourceName) (\s@ListTags' {} a -> s {resourceName = a} :: ListTags)++instance Core.AWSPager ListTags where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listTagsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listTagsResponse_tags+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listTags_nextToken+          Lens..~ rs+          Lens.^? listTagsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListTags where+  type AWSResponse ListTags = ListTagsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListTagsResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> (x Data..?> "Tags" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListTags where+  hashWithSalt _salt ListTags' {..} =+    _salt+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` resourceName++instance Prelude.NFData ListTags where+  rnf ListTags' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf resourceName++instance Data.ToHeaders ListTags where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ("AmazonDAXV3.ListTags" :: Prelude.ByteString),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListTags where+  toJSON ListTags' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("NextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("ResourceName" Data..= resourceName)+          ]+      )++instance Data.ToPath ListTags where+  toPath = Prelude.const "/"++instance Data.ToQuery ListTags where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListTagsResponse' smart constructor.+data ListTagsResponse = ListTagsResponse'+  { -- | If this value is present, there are additional results to be displayed.+    -- To retrieve them, call @ListTags@ again, with @NextToken@ set to this+    -- value.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | A list of tags currently associated with the DAX cluster.+    tags :: Prelude.Maybe [Tag],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListTagsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listTagsResponse_nextToken' - If this value is present, there are additional results to be displayed.+-- To retrieve them, call @ListTags@ again, with @NextToken@ set to this+-- value.+--+-- 'tags', 'listTagsResponse_tags' - A list of tags currently associated with the DAX cluster.+--+-- 'httpStatus', 'listTagsResponse_httpStatus' - The response's http status code.+newListTagsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListTagsResponse+newListTagsResponse pHttpStatus_ =+  ListTagsResponse'+    { nextToken = Prelude.Nothing,+      tags = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | If this value is present, there are additional results to be displayed.+-- To retrieve them, call @ListTags@ again, with @NextToken@ set to this+-- value.+listTagsResponse_nextToken :: Lens.Lens' ListTagsResponse (Prelude.Maybe Prelude.Text)+listTagsResponse_nextToken = Lens.lens (\ListTagsResponse' {nextToken} -> nextToken) (\s@ListTagsResponse' {} a -> s {nextToken = a} :: ListTagsResponse)++-- | A list of tags currently associated with the DAX cluster.+listTagsResponse_tags :: Lens.Lens' ListTagsResponse (Prelude.Maybe [Tag])+listTagsResponse_tags = Lens.lens (\ListTagsResponse' {tags} -> tags) (\s@ListTagsResponse' {} a -> s {tags = a} :: ListTagsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listTagsResponse_httpStatus :: Lens.Lens' ListTagsResponse Prelude.Int+listTagsResponse_httpStatus = Lens.lens (\ListTagsResponse' {httpStatus} -> httpStatus) (\s@ListTagsResponse' {} a -> s {httpStatus = a} :: ListTagsResponse)++instance Prelude.NFData ListTagsResponse where+  rnf ListTagsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,188 @@+{-# 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.DAX.RebootNode+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Reboots a single node of a DAX cluster. The reboot action takes place as+-- soon as possible. During the reboot, the node status is set to+-- REBOOTING.+--+-- @RebootNode@ restarts the DAX engine process and does not remove the+-- contents of the cache.+module Amazonka.DAX.RebootNode+  ( -- * Creating a Request+    RebootNode (..),+    newRebootNode,++    -- * Request Lenses+    rebootNode_clusterName,+    rebootNode_nodeId,++    -- * Destructuring the Response+    RebootNodeResponse (..),+    newRebootNodeResponse,++    -- * Response Lenses+    rebootNodeResponse_cluster,+    rebootNodeResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import Amazonka.DAX.Types+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:/ 'newRebootNode' smart constructor.+data RebootNode = RebootNode'+  { -- | The name of the DAX cluster containing the node to be rebooted.+    clusterName :: Prelude.Text,+    -- | The system-assigned ID of the node to be rebooted.+    nodeId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RebootNode' 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:+--+-- 'clusterName', 'rebootNode_clusterName' - The name of the DAX cluster containing the node to be rebooted.+--+-- 'nodeId', 'rebootNode_nodeId' - The system-assigned ID of the node to be rebooted.+newRebootNode ::+  -- | 'clusterName'+  Prelude.Text ->+  -- | 'nodeId'+  Prelude.Text ->+  RebootNode+newRebootNode pClusterName_ pNodeId_ =+  RebootNode'+    { clusterName = pClusterName_,+      nodeId = pNodeId_+    }++-- | The name of the DAX cluster containing the node to be rebooted.+rebootNode_clusterName :: Lens.Lens' RebootNode Prelude.Text+rebootNode_clusterName = Lens.lens (\RebootNode' {clusterName} -> clusterName) (\s@RebootNode' {} a -> s {clusterName = a} :: RebootNode)++-- | The system-assigned ID of the node to be rebooted.+rebootNode_nodeId :: Lens.Lens' RebootNode Prelude.Text+rebootNode_nodeId = Lens.lens (\RebootNode' {nodeId} -> nodeId) (\s@RebootNode' {} a -> s {nodeId = a} :: RebootNode)++instance Core.AWSRequest RebootNode where+  type AWSResponse RebootNode = RebootNodeResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          RebootNodeResponse'+            Prelude.<$> (x Data..?> "Cluster")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable RebootNode where+  hashWithSalt _salt RebootNode' {..} =+    _salt+      `Prelude.hashWithSalt` clusterName+      `Prelude.hashWithSalt` nodeId++instance Prelude.NFData RebootNode where+  rnf RebootNode' {..} =+    Prelude.rnf clusterName+      `Prelude.seq` Prelude.rnf nodeId++instance Data.ToHeaders RebootNode where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ("AmazonDAXV3.RebootNode" :: Prelude.ByteString),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON RebootNode where+  toJSON RebootNode' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("ClusterName" Data..= clusterName),+            Prelude.Just ("NodeId" Data..= nodeId)+          ]+      )++instance Data.ToPath RebootNode where+  toPath = Prelude.const "/"++instance Data.ToQuery RebootNode where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newRebootNodeResponse' smart constructor.+data RebootNodeResponse = RebootNodeResponse'+  { -- | A description of the DAX cluster after a node has been rebooted.+    cluster :: Prelude.Maybe Cluster,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RebootNodeResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'cluster', 'rebootNodeResponse_cluster' - A description of the DAX cluster after a node has been rebooted.+--+-- 'httpStatus', 'rebootNodeResponse_httpStatus' - The response's http status code.+newRebootNodeResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  RebootNodeResponse+newRebootNodeResponse pHttpStatus_ =+  RebootNodeResponse'+    { cluster = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A description of the DAX cluster after a node has been rebooted.+rebootNodeResponse_cluster :: Lens.Lens' RebootNodeResponse (Prelude.Maybe Cluster)+rebootNodeResponse_cluster = Lens.lens (\RebootNodeResponse' {cluster} -> cluster) (\s@RebootNodeResponse' {} a -> s {cluster = a} :: RebootNodeResponse)++-- | The response's http status code.+rebootNodeResponse_httpStatus :: Lens.Lens' RebootNodeResponse Prelude.Int+rebootNodeResponse_httpStatus = Lens.lens (\RebootNodeResponse' {httpStatus} -> httpStatus) (\s@RebootNodeResponse' {} a -> s {httpStatus = a} :: RebootNodeResponse)++instance Prelude.NFData RebootNodeResponse where+  rnf RebootNodeResponse' {..} =+    Prelude.rnf cluster+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,182 @@+{-# 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.DAX.TagResource+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Associates a set of tags with a DAX resource. You can call @TagResource@+-- up to 5 times per second, per account.+module Amazonka.DAX.TagResource+  ( -- * Creating a Request+    TagResource (..),+    newTagResource,++    -- * Request Lenses+    tagResource_resourceName,+    tagResource_tags,++    -- * Destructuring the Response+    TagResourceResponse (..),+    newTagResourceResponse,++    -- * Response Lenses+    tagResourceResponse_tags,+    tagResourceResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import Amazonka.DAX.Types+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newTagResource' smart constructor.+data TagResource = TagResource'+  { -- | The name of the DAX resource to which tags should be added.+    resourceName :: Prelude.Text,+    -- | The tags to be assigned to the DAX resource.+    tags :: [Tag]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TagResource' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'resourceName', 'tagResource_resourceName' - The name of the DAX resource to which tags should be added.+--+-- 'tags', 'tagResource_tags' - The tags to be assigned to the DAX resource.+newTagResource ::+  -- | 'resourceName'+  Prelude.Text ->+  TagResource+newTagResource pResourceName_ =+  TagResource'+    { resourceName = pResourceName_,+      tags = Prelude.mempty+    }++-- | The name of the DAX resource to which tags should be added.+tagResource_resourceName :: Lens.Lens' TagResource Prelude.Text+tagResource_resourceName = Lens.lens (\TagResource' {resourceName} -> resourceName) (\s@TagResource' {} a -> s {resourceName = a} :: TagResource)++-- | The tags to be assigned to the DAX resource.+tagResource_tags :: Lens.Lens' TagResource [Tag]+tagResource_tags = Lens.lens (\TagResource' {tags} -> tags) (\s@TagResource' {} a -> s {tags = a} :: TagResource) Prelude.. Lens.coerced++instance Core.AWSRequest TagResource where+  type AWSResponse TagResource = TagResourceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          TagResourceResponse'+            Prelude.<$> (x Data..?> "Tags" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable TagResource where+  hashWithSalt _salt TagResource' {..} =+    _salt+      `Prelude.hashWithSalt` resourceName+      `Prelude.hashWithSalt` tags++instance Prelude.NFData TagResource where+  rnf TagResource' {..} =+    Prelude.rnf resourceName+      `Prelude.seq` Prelude.rnf tags++instance Data.ToHeaders TagResource where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ("AmazonDAXV3.TagResource" :: Prelude.ByteString),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON TagResource where+  toJSON TagResource' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("ResourceName" Data..= resourceName),+            Prelude.Just ("Tags" Data..= tags)+          ]+      )++instance Data.ToPath TagResource where+  toPath = Prelude.const "/"++instance Data.ToQuery TagResource where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newTagResourceResponse' smart constructor.+data TagResourceResponse = TagResourceResponse'+  { -- | The list of tags that are associated with the DAX resource.+    tags :: Prelude.Maybe [Tag],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TagResourceResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'tags', 'tagResourceResponse_tags' - The list of tags that are associated with the DAX resource.+--+-- 'httpStatus', 'tagResourceResponse_httpStatus' - The response's http status code.+newTagResourceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  TagResourceResponse+newTagResourceResponse pHttpStatus_ =+  TagResourceResponse'+    { tags = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The list of tags that are associated with the DAX resource.+tagResourceResponse_tags :: Lens.Lens' TagResourceResponse (Prelude.Maybe [Tag])+tagResourceResponse_tags = Lens.lens (\TagResourceResponse' {tags} -> tags) (\s@TagResourceResponse' {} a -> s {tags = a} :: TagResourceResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+tagResourceResponse_httpStatus :: Lens.Lens' TagResourceResponse Prelude.Int+tagResourceResponse_httpStatus = Lens.lens (\TagResourceResponse' {httpStatus} -> httpStatus) (\s@TagResourceResponse' {} a -> s {httpStatus = a} :: TagResourceResponse)++instance Prelude.NFData TagResourceResponse where+  rnf TagResourceResponse' {..} =+    Prelude.rnf tags+      `Prelude.seq` Prelude.rnf httpStatus