amazonka-opsworks-cm 1.6.1 → 2.0

raw patch · 72 files changed

+8443/−4354 lines, 72 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 +4/−5
• Setup.hs +0/−2
• amazonka-opsworks-cm.cabal +102/−89
• fixture/ExportServerEngineAttribute.yaml +10/−0
• fixture/ExportServerEngineAttributeResponse.proto +0/−0
• fixture/ListTagsForResource.yaml +10/−0
• fixture/ListTagsForResourceResponse.proto +0/−0
• fixture/TagResource.yaml +10/−0
• fixture/TagResourceResponse.proto +0/−0
• fixture/UntagResource.yaml +10/−0
• fixture/UntagResourceResponse.proto +0/−0
• gen/Amazonka/OpsWorksCM.hs +324/−0
• gen/Amazonka/OpsWorksCM/AssociateNode.hs +270/−0
• gen/Amazonka/OpsWorksCM/CreateBackup.hs +262/−0
• gen/Amazonka/OpsWorksCM/CreateServer.hs +916/−0
• gen/Amazonka/OpsWorksCM/DeleteBackup.hs +163/−0
• gen/Amazonka/OpsWorksCM/DeleteServer.hs +162/−0
• gen/Amazonka/OpsWorksCM/DescribeAccountAttributes.hs +154/−0
• gen/Amazonka/OpsWorksCM/DescribeBackups.hs +253/−0
• gen/Amazonka/OpsWorksCM/DescribeEvents.hs +296/−0
• gen/Amazonka/OpsWorksCM/DescribeNodeAssociationStatus.hs +265/−0
• gen/Amazonka/OpsWorksCM/DescribeServers.hs +301/−0
• gen/Amazonka/OpsWorksCM/DisassociateNode.hs +240/−0
• gen/Amazonka/OpsWorksCM/ExportServerEngineAttribute.hs +293/−0
• gen/Amazonka/OpsWorksCM/Lens.hs +262/−0
• gen/Amazonka/OpsWorksCM/ListTagsForResource.hs +282/−0
• gen/Amazonka/OpsWorksCM/RestoreServer.hs +245/−0
• gen/Amazonka/OpsWorksCM/StartMaintenance.hs +223/−0
• gen/Amazonka/OpsWorksCM/TagResource.hs +226/−0
• gen/Amazonka/OpsWorksCM/Types.hs +255/−0
• gen/Amazonka/OpsWorksCM/Types/AccountAttribute.hs +120/−0
• gen/Amazonka/OpsWorksCM/Types/Backup.hs +405/−0
• gen/Amazonka/OpsWorksCM/Types/BackupStatus.hs +81/−0
• gen/Amazonka/OpsWorksCM/Types/BackupType.hs +71/−0
• gen/Amazonka/OpsWorksCM/Types/EngineAttribute.hs +92/−0
• gen/Amazonka/OpsWorksCM/Types/MaintenanceStatus.hs +71/−0
• gen/Amazonka/OpsWorksCM/Types/NodeAssociationStatus.hs +86/−0
• gen/Amazonka/OpsWorksCM/Types/Server.hs +493/−0
• gen/Amazonka/OpsWorksCM/Types/ServerEvent.hs +109/−0
• gen/Amazonka/OpsWorksCM/Types/ServerStatus.hs +126/−0
• gen/Amazonka/OpsWorksCM/Types/Tag.hs +115/−0
• gen/Amazonka/OpsWorksCM/UntagResource.hs +177/−0
• gen/Amazonka/OpsWorksCM/UpdateServer.hs +230/−0
• gen/Amazonka/OpsWorksCM/UpdateServerEngineAttributes.hs +224/−0
• gen/Amazonka/OpsWorksCM/Waiters.hs +48/−0
• gen/Network/AWS/OpsWorksCM.hs +0/−268
• gen/Network/AWS/OpsWorksCM/AssociateNode.hs +0/−170
• gen/Network/AWS/OpsWorksCM/CreateBackup.hs +0/−149
• gen/Network/AWS/OpsWorksCM/CreateServer.hs +0/−316
• gen/Network/AWS/OpsWorksCM/DeleteBackup.hs +0/−124
• gen/Network/AWS/OpsWorksCM/DeleteServer.hs +0/−128
• gen/Network/AWS/OpsWorksCM/DescribeAccountAttributes.hs +0/−125
• gen/Network/AWS/OpsWorksCM/DescribeBackups.hs +0/−181
• gen/Network/AWS/OpsWorksCM/DescribeEvents.hs +0/−173
• gen/Network/AWS/OpsWorksCM/DescribeNodeAssociationStatus.hs +0/−169
• gen/Network/AWS/OpsWorksCM/DescribeServers.hs +0/−171
• gen/Network/AWS/OpsWorksCM/DisassociateNode.hs +0/−162
• gen/Network/AWS/OpsWorksCM/RestoreServer.hs +0/−161
• gen/Network/AWS/OpsWorksCM/StartMaintenance.hs +0/−146
• gen/Network/AWS/OpsWorksCM/Types.hs +0/−206
• gen/Network/AWS/OpsWorksCM/Types/Product.hs +0/−664
• gen/Network/AWS/OpsWorksCM/Types/Sum.hs +0/−210
• gen/Network/AWS/OpsWorksCM/UpdateServer.hs +0/−182
• gen/Network/AWS/OpsWorksCM/UpdateServerEngineAttributes.hs +0/−164
• gen/Network/AWS/OpsWorksCM/Waiters.hs +0/−42
• test/Main.hs +11/−9
• test/Test/AWS/Gen/OpsWorksCM.hs +0/−309
• test/Test/AWS/OpsWorksCM.hs +0/−20
• test/Test/AWS/OpsWorksCM/Internal.hs +0/−9
• test/Test/Amazonka/Gen/OpsWorksCM.hs +418/−0
• test/Test/Amazonka/OpsWorksCM.hs +20/−0
• test/Test/Amazonka/OpsWorksCM/Internal.hs +8/−0

@@ -1,4 +1,4 @@-# Amazon OpsWorks for Chef Automate SDK+# Amazon OpsWorks CM SDK  * [Version](#version) * [Description](#description)@@ -7,9 +7,8 @@   ## Version--`1.6.1`-+ +`2.0` - Derived from API version @2016-11-01@ 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.OpsWorksCM](http://hackage.haskell.org/package/amazonka-opsworks-cm/docs/Network-AWS-OpsWorksCM.html)+See [Amazonka.OpsWorksCM](http://hackage.haskell.org/package/amazonka-opsworks-cm/docs/Amazonka-OpsWorksCM.html) or [the AWS documentation](https://aws.amazon.com/documentation/) to get started.  

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

@@ -1,100 +1,113 @@-name:                  amazonka-opsworks-cm-version:               1.6.1-synopsis:              Amazon OpsWorks for Chef Automate 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-opsworks-cm+version:            2.0+synopsis:           Amazon OpsWorks CM 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.OpsWorksCM" or <https://aws.amazon.com/documentation/ the AWS documentation>-    to get started.+  Derived from API version @2016-11-01@ 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.OpsWorksCM.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.OpsWorksCM" 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-opsworks-cm+  type:     git+  location: git://github.com/brendanhay/amazonka.git+  subdir:   amazonka-opsworks-cm  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.OpsWorksCM-        , Network.AWS.OpsWorksCM.AssociateNode-        , Network.AWS.OpsWorksCM.CreateBackup-        , Network.AWS.OpsWorksCM.CreateServer-        , Network.AWS.OpsWorksCM.DeleteBackup-        , Network.AWS.OpsWorksCM.DeleteServer-        , Network.AWS.OpsWorksCM.DescribeAccountAttributes-        , Network.AWS.OpsWorksCM.DescribeBackups-        , Network.AWS.OpsWorksCM.DescribeEvents-        , Network.AWS.OpsWorksCM.DescribeNodeAssociationStatus-        , Network.AWS.OpsWorksCM.DescribeServers-        , Network.AWS.OpsWorksCM.DisassociateNode-        , Network.AWS.OpsWorksCM.RestoreServer-        , Network.AWS.OpsWorksCM.StartMaintenance-        , Network.AWS.OpsWorksCM.Types-        , Network.AWS.OpsWorksCM.UpdateServer-        , Network.AWS.OpsWorksCM.UpdateServerEngineAttributes-        , Network.AWS.OpsWorksCM.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.OpsWorksCM.Types.Product-        , Network.AWS.OpsWorksCM.Types.Sum+  exposed-modules:+    Amazonka.OpsWorksCM+    Amazonka.OpsWorksCM.AssociateNode+    Amazonka.OpsWorksCM.CreateBackup+    Amazonka.OpsWorksCM.CreateServer+    Amazonka.OpsWorksCM.DeleteBackup+    Amazonka.OpsWorksCM.DeleteServer+    Amazonka.OpsWorksCM.DescribeAccountAttributes+    Amazonka.OpsWorksCM.DescribeBackups+    Amazonka.OpsWorksCM.DescribeEvents+    Amazonka.OpsWorksCM.DescribeNodeAssociationStatus+    Amazonka.OpsWorksCM.DescribeServers+    Amazonka.OpsWorksCM.DisassociateNode+    Amazonka.OpsWorksCM.ExportServerEngineAttribute+    Amazonka.OpsWorksCM.Lens+    Amazonka.OpsWorksCM.ListTagsForResource+    Amazonka.OpsWorksCM.RestoreServer+    Amazonka.OpsWorksCM.StartMaintenance+    Amazonka.OpsWorksCM.TagResource+    Amazonka.OpsWorksCM.Types+    Amazonka.OpsWorksCM.Types.AccountAttribute+    Amazonka.OpsWorksCM.Types.Backup+    Amazonka.OpsWorksCM.Types.BackupStatus+    Amazonka.OpsWorksCM.Types.BackupType+    Amazonka.OpsWorksCM.Types.EngineAttribute+    Amazonka.OpsWorksCM.Types.MaintenanceStatus+    Amazonka.OpsWorksCM.Types.NodeAssociationStatus+    Amazonka.OpsWorksCM.Types.Server+    Amazonka.OpsWorksCM.Types.ServerEvent+    Amazonka.OpsWorksCM.Types.ServerStatus+    Amazonka.OpsWorksCM.Types.Tag+    Amazonka.OpsWorksCM.UntagResource+    Amazonka.OpsWorksCM.UpdateServer+    Amazonka.OpsWorksCM.UpdateServerEngineAttributes+    Amazonka.OpsWorksCM.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-opsworks-cm-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.OpsWorksCM-        , Test.AWS.Gen.OpsWorksCM-        , Test.AWS.OpsWorksCM.Internal+  -- This section is encoded by the template and any modules added by+  -- hand outside these namespaces will not correctly be added to the+  -- distribution package.+  other-modules:+    Test.Amazonka.Gen.OpsWorksCM+    Test.Amazonka.OpsWorksCM+    Test.Amazonka.OpsWorksCM.Internal -    build-depends:-          amazonka-core == 1.6.1.*-        , amazonka-test == 1.6.1.*-        , amazonka-opsworks-cm-        , base-        , bytestring-        , tasty-        , tasty-hunit-        , text-        , time-        , unordered-containers+  build-depends:+    , amazonka-core         >=2.0 && <2.1+    , amazonka-opsworks-cm+    , amazonka-test         >=2.0 && <2.1+    , base+    , bytestring+    , case-insensitive+    , tasty+    , tasty-hunit+    , text+    , time+    , unordered-containers

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

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

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

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

@@ -0,0 +1,324 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.OpsWorksCM+-- 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 @2016-11-01@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- AWS OpsWorks CM+--+-- AWS OpsWorks for configuration management (CM) is a service that runs+-- and manages configuration management servers. You can use AWS OpsWorks+-- CM to create and manage AWS OpsWorks for Chef Automate and AWS OpsWorks+-- for Puppet Enterprise servers, and add or remove nodes for the servers+-- to manage.+--+-- __Glossary of terms__+--+-- -   __Server__: A configuration management server that can be+--     highly-available. The configuration management server runs on an+--     Amazon Elastic Compute Cloud (EC2) instance, and may use various+--     other AWS services, such as Amazon Relational Database Service (RDS)+--     and Elastic Load Balancing. A server is a generic abstraction over+--     the configuration manager that you want to use, much like Amazon+--     RDS. In AWS OpsWorks CM, you do not start or stop servers. After you+--     create servers, they continue to run until they are deleted.+--+-- -   __Engine__: The engine is the specific configuration manager that+--     you want to use. Valid values in this release include @ChefAutomate@+--     and @Puppet@.+--+-- -   __Backup__: This is an application-level backup of the data that the+--     configuration manager stores. AWS OpsWorks CM creates an S3 bucket+--     for backups when you launch the first server. A backup maintains a+--     snapshot of a server\'s configuration-related attributes at the time+--     the backup starts.+--+-- -   __Events__: Events are always related to a server. Events are+--     written during server creation, when health checks run, when backups+--     are created, when system maintenance is performed, etc. When you+--     delete a server, the server\'s events are also deleted.+--+-- -   __Account attributes__: Every account has attributes that are+--     assigned in the AWS OpsWorks CM database. These attributes store+--     information about configuration limits (servers, backups, etc.) and+--     your customer account.+--+-- __Endpoints__+--+-- AWS OpsWorks CM supports the following endpoints, all HTTPS. You must+-- connect to one of the following endpoints. Your servers can only be+-- accessed or managed within the endpoint in which they are created.+--+-- -   opsworks-cm.us-east-1.amazonaws.com+--+-- -   opsworks-cm.us-east-2.amazonaws.com+--+-- -   opsworks-cm.us-west-1.amazonaws.com+--+-- -   opsworks-cm.us-west-2.amazonaws.com+--+-- -   opsworks-cm.ap-northeast-1.amazonaws.com+--+-- -   opsworks-cm.ap-southeast-1.amazonaws.com+--+-- -   opsworks-cm.ap-southeast-2.amazonaws.com+--+-- -   opsworks-cm.eu-central-1.amazonaws.com+--+-- -   opsworks-cm.eu-west-1.amazonaws.com+--+-- For more information, see+-- <https://docs.aws.amazon.com/general/latest/gr/opsworks-service.html AWS OpsWorks endpoints and quotas>+-- in the AWS General Reference.+--+-- __Throttling limits__+--+-- All API operations allow for five requests per second with a burst of 10+-- requests per second.+module Amazonka.OpsWorksCM+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** InvalidNextTokenException+    _InvalidNextTokenException,++    -- ** InvalidStateException+    _InvalidStateException,++    -- ** LimitExceededException+    _LimitExceededException,++    -- ** ResourceAlreadyExistsException+    _ResourceAlreadyExistsException,++    -- ** ResourceNotFoundException+    _ResourceNotFoundException,++    -- ** ValidationException+    _ValidationException,++    -- * Waiters+    -- $waiters++    -- ** NodeAssociated+    newNodeAssociated,++    -- * Operations+    -- $operations++    -- ** AssociateNode+    AssociateNode (AssociateNode'),+    newAssociateNode,+    AssociateNodeResponse (AssociateNodeResponse'),+    newAssociateNodeResponse,++    -- ** CreateBackup+    CreateBackup (CreateBackup'),+    newCreateBackup,+    CreateBackupResponse (CreateBackupResponse'),+    newCreateBackupResponse,++    -- ** CreateServer+    CreateServer (CreateServer'),+    newCreateServer,+    CreateServerResponse (CreateServerResponse'),+    newCreateServerResponse,++    -- ** DeleteBackup+    DeleteBackup (DeleteBackup'),+    newDeleteBackup,+    DeleteBackupResponse (DeleteBackupResponse'),+    newDeleteBackupResponse,++    -- ** DeleteServer+    DeleteServer (DeleteServer'),+    newDeleteServer,+    DeleteServerResponse (DeleteServerResponse'),+    newDeleteServerResponse,++    -- ** DescribeAccountAttributes+    DescribeAccountAttributes (DescribeAccountAttributes'),+    newDescribeAccountAttributes,+    DescribeAccountAttributesResponse (DescribeAccountAttributesResponse'),+    newDescribeAccountAttributesResponse,++    -- ** DescribeBackups (Paginated)+    DescribeBackups (DescribeBackups'),+    newDescribeBackups,+    DescribeBackupsResponse (DescribeBackupsResponse'),+    newDescribeBackupsResponse,++    -- ** DescribeEvents (Paginated)+    DescribeEvents (DescribeEvents'),+    newDescribeEvents,+    DescribeEventsResponse (DescribeEventsResponse'),+    newDescribeEventsResponse,++    -- ** DescribeNodeAssociationStatus+    DescribeNodeAssociationStatus (DescribeNodeAssociationStatus'),+    newDescribeNodeAssociationStatus,+    DescribeNodeAssociationStatusResponse (DescribeNodeAssociationStatusResponse'),+    newDescribeNodeAssociationStatusResponse,++    -- ** DescribeServers (Paginated)+    DescribeServers (DescribeServers'),+    newDescribeServers,+    DescribeServersResponse (DescribeServersResponse'),+    newDescribeServersResponse,++    -- ** DisassociateNode+    DisassociateNode (DisassociateNode'),+    newDisassociateNode,+    DisassociateNodeResponse (DisassociateNodeResponse'),+    newDisassociateNodeResponse,++    -- ** ExportServerEngineAttribute+    ExportServerEngineAttribute (ExportServerEngineAttribute'),+    newExportServerEngineAttribute,+    ExportServerEngineAttributeResponse (ExportServerEngineAttributeResponse'),+    newExportServerEngineAttributeResponse,++    -- ** ListTagsForResource (Paginated)+    ListTagsForResource (ListTagsForResource'),+    newListTagsForResource,+    ListTagsForResourceResponse (ListTagsForResourceResponse'),+    newListTagsForResourceResponse,++    -- ** RestoreServer+    RestoreServer (RestoreServer'),+    newRestoreServer,+    RestoreServerResponse (RestoreServerResponse'),+    newRestoreServerResponse,++    -- ** StartMaintenance+    StartMaintenance (StartMaintenance'),+    newStartMaintenance,+    StartMaintenanceResponse (StartMaintenanceResponse'),+    newStartMaintenanceResponse,++    -- ** TagResource+    TagResource (TagResource'),+    newTagResource,+    TagResourceResponse (TagResourceResponse'),+    newTagResourceResponse,++    -- ** UntagResource+    UntagResource (UntagResource'),+    newUntagResource,+    UntagResourceResponse (UntagResourceResponse'),+    newUntagResourceResponse,++    -- ** UpdateServer+    UpdateServer (UpdateServer'),+    newUpdateServer,+    UpdateServerResponse (UpdateServerResponse'),+    newUpdateServerResponse,++    -- ** UpdateServerEngineAttributes+    UpdateServerEngineAttributes (UpdateServerEngineAttributes'),+    newUpdateServerEngineAttributes,+    UpdateServerEngineAttributesResponse (UpdateServerEngineAttributesResponse'),+    newUpdateServerEngineAttributesResponse,++    -- * Types++    -- ** BackupStatus+    BackupStatus (..),++    -- ** BackupType+    BackupType (..),++    -- ** MaintenanceStatus+    MaintenanceStatus (..),++    -- ** NodeAssociationStatus+    NodeAssociationStatus (..),++    -- ** ServerStatus+    ServerStatus (..),++    -- ** AccountAttribute+    AccountAttribute (AccountAttribute'),+    newAccountAttribute,++    -- ** Backup+    Backup (Backup'),+    newBackup,++    -- ** EngineAttribute+    EngineAttribute (EngineAttribute'),+    newEngineAttribute,++    -- ** Server+    Server (Server'),+    newServer,++    -- ** ServerEvent+    ServerEvent (ServerEvent'),+    newServerEvent,++    -- ** Tag+    Tag (Tag'),+    newTag,+  )+where++import Amazonka.OpsWorksCM.AssociateNode+import Amazonka.OpsWorksCM.CreateBackup+import Amazonka.OpsWorksCM.CreateServer+import Amazonka.OpsWorksCM.DeleteBackup+import Amazonka.OpsWorksCM.DeleteServer+import Amazonka.OpsWorksCM.DescribeAccountAttributes+import Amazonka.OpsWorksCM.DescribeBackups+import Amazonka.OpsWorksCM.DescribeEvents+import Amazonka.OpsWorksCM.DescribeNodeAssociationStatus+import Amazonka.OpsWorksCM.DescribeServers+import Amazonka.OpsWorksCM.DisassociateNode+import Amazonka.OpsWorksCM.ExportServerEngineAttribute+import Amazonka.OpsWorksCM.Lens+import Amazonka.OpsWorksCM.ListTagsForResource+import Amazonka.OpsWorksCM.RestoreServer+import Amazonka.OpsWorksCM.StartMaintenance+import Amazonka.OpsWorksCM.TagResource+import Amazonka.OpsWorksCM.Types+import Amazonka.OpsWorksCM.UntagResource+import Amazonka.OpsWorksCM.UpdateServer+import Amazonka.OpsWorksCM.UpdateServerEngineAttributes+import Amazonka.OpsWorksCM.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 'OpsWorksCM'.++-- $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,270 @@+{-# 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.OpsWorksCM.AssociateNode+-- 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 new node with the server. For more information about how to+-- disassociate a node, see DisassociateNode.+--+-- On a Chef server: This command is an alternative to @knife bootstrap@.+--+-- Example (Chef):+-- @aws opsworks-cm associate-node --server-name @/@MyServer@/@ --node-name @/@MyManagedNode@/@ --engine-attributes \"Name=@/@CHEF_ORGANIZATION@/@,Value=default\" \"Name=@/@CHEF_NODE_PUBLIC_KEY@/@,Value=@/@public-key-pem@/@\"@+--+-- On a Puppet server, this command is an alternative to the+-- @puppet cert sign@ command that signs a Puppet node CSR.+--+-- Example (Puppet):+-- @aws opsworks-cm associate-node --server-name @/@MyServer@/@ --node-name @/@MyManagedNode@/@ --engine-attributes \"Name=@/@PUPPET_NODE_CSR@/@,Value=@/@csr-pem@/@\"@+--+-- A node can can only be associated with servers that are in a @HEALTHY@+-- state. Otherwise, an @InvalidStateException@ is thrown. A+-- @ResourceNotFoundException@ is thrown when the server does not exist. A+-- @ValidationException@ is raised when parameters of the request are not+-- valid. The AssociateNode API call can be integrated into Auto Scaling+-- configurations, AWS Cloudformation templates, or the user data of a+-- server\'s instance.+module Amazonka.OpsWorksCM.AssociateNode+  ( -- * Creating a Request+    AssociateNode (..),+    newAssociateNode,++    -- * Request Lenses+    associateNode_serverName,+    associateNode_nodeName,+    associateNode_engineAttributes,++    -- * Destructuring the Response+    AssociateNodeResponse (..),+    newAssociateNodeResponse,++    -- * Response Lenses+    associateNodeResponse_nodeAssociationStatusToken,+    associateNodeResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.OpsWorksCM.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newAssociateNode' smart constructor.+data AssociateNode = AssociateNode'+  { -- | The name of the server with which to associate the node.+    serverName :: Prelude.Text,+    -- | The name of the node.+    nodeName :: Prelude.Text,+    -- | Engine attributes used for associating the node.+    --+    -- __Attributes accepted in a AssociateNode request for Chef__+    --+    -- -   @CHEF_ORGANIZATION@: The Chef organization with which the node is+    --     associated. By default only one organization named @default@ can+    --     exist.+    --+    -- -   @CHEF_NODE_PUBLIC_KEY@: A PEM-formatted public key. This key is+    --     required for the @chef-client@ agent to access the Chef API.+    --+    -- __Attributes accepted in a AssociateNode request for Puppet__+    --+    -- -   @PUPPET_NODE_CSR@: A PEM-formatted certificate-signing request (CSR)+    --     that is created by the node.+    engineAttributes :: [EngineAttribute]+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AssociateNode' 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:+--+-- 'serverName', 'associateNode_serverName' - The name of the server with which to associate the node.+--+-- 'nodeName', 'associateNode_nodeName' - The name of the node.+--+-- 'engineAttributes', 'associateNode_engineAttributes' - Engine attributes used for associating the node.+--+-- __Attributes accepted in a AssociateNode request for Chef__+--+-- -   @CHEF_ORGANIZATION@: The Chef organization with which the node is+--     associated. By default only one organization named @default@ can+--     exist.+--+-- -   @CHEF_NODE_PUBLIC_KEY@: A PEM-formatted public key. This key is+--     required for the @chef-client@ agent to access the Chef API.+--+-- __Attributes accepted in a AssociateNode request for Puppet__+--+-- -   @PUPPET_NODE_CSR@: A PEM-formatted certificate-signing request (CSR)+--     that is created by the node.+newAssociateNode ::+  -- | 'serverName'+  Prelude.Text ->+  -- | 'nodeName'+  Prelude.Text ->+  AssociateNode+newAssociateNode pServerName_ pNodeName_ =+  AssociateNode'+    { serverName = pServerName_,+      nodeName = pNodeName_,+      engineAttributes = Prelude.mempty+    }++-- | The name of the server with which to associate the node.+associateNode_serverName :: Lens.Lens' AssociateNode Prelude.Text+associateNode_serverName = Lens.lens (\AssociateNode' {serverName} -> serverName) (\s@AssociateNode' {} a -> s {serverName = a} :: AssociateNode)++-- | The name of the node.+associateNode_nodeName :: Lens.Lens' AssociateNode Prelude.Text+associateNode_nodeName = Lens.lens (\AssociateNode' {nodeName} -> nodeName) (\s@AssociateNode' {} a -> s {nodeName = a} :: AssociateNode)++-- | Engine attributes used for associating the node.+--+-- __Attributes accepted in a AssociateNode request for Chef__+--+-- -   @CHEF_ORGANIZATION@: The Chef organization with which the node is+--     associated. By default only one organization named @default@ can+--     exist.+--+-- -   @CHEF_NODE_PUBLIC_KEY@: A PEM-formatted public key. This key is+--     required for the @chef-client@ agent to access the Chef API.+--+-- __Attributes accepted in a AssociateNode request for Puppet__+--+-- -   @PUPPET_NODE_CSR@: A PEM-formatted certificate-signing request (CSR)+--     that is created by the node.+associateNode_engineAttributes :: Lens.Lens' AssociateNode [EngineAttribute]+associateNode_engineAttributes = Lens.lens (\AssociateNode' {engineAttributes} -> engineAttributes) (\s@AssociateNode' {} a -> s {engineAttributes = a} :: AssociateNode) Prelude.. Lens.coerced++instance Core.AWSRequest AssociateNode where+  type+    AWSResponse AssociateNode =+      AssociateNodeResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          AssociateNodeResponse'+            Prelude.<$> (x Data..?> "NodeAssociationStatusToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable AssociateNode where+  hashWithSalt _salt AssociateNode' {..} =+    _salt+      `Prelude.hashWithSalt` serverName+      `Prelude.hashWithSalt` nodeName+      `Prelude.hashWithSalt` engineAttributes++instance Prelude.NFData AssociateNode where+  rnf AssociateNode' {..} =+    Prelude.rnf serverName+      `Prelude.seq` Prelude.rnf nodeName+      `Prelude.seq` Prelude.rnf engineAttributes++instance Data.ToHeaders AssociateNode where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "OpsWorksCM_V2016_11_01.AssociateNode" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON AssociateNode where+  toJSON AssociateNode' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("ServerName" Data..= serverName),+            Prelude.Just ("NodeName" Data..= nodeName),+            Prelude.Just+              ("EngineAttributes" Data..= engineAttributes)+          ]+      )++instance Data.ToPath AssociateNode where+  toPath = Prelude.const "/"++instance Data.ToQuery AssociateNode where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newAssociateNodeResponse' smart constructor.+data AssociateNodeResponse = AssociateNodeResponse'+  { -- | Contains a token which can be passed to the+    -- @DescribeNodeAssociationStatus@ API call to get the status of the+    -- association request.+    nodeAssociationStatusToken :: 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 'AssociateNodeResponse' 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:+--+-- 'nodeAssociationStatusToken', 'associateNodeResponse_nodeAssociationStatusToken' - Contains a token which can be passed to the+-- @DescribeNodeAssociationStatus@ API call to get the status of the+-- association request.+--+-- 'httpStatus', 'associateNodeResponse_httpStatus' - The response's http status code.+newAssociateNodeResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  AssociateNodeResponse+newAssociateNodeResponse pHttpStatus_ =+  AssociateNodeResponse'+    { nodeAssociationStatusToken =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Contains a token which can be passed to the+-- @DescribeNodeAssociationStatus@ API call to get the status of the+-- association request.+associateNodeResponse_nodeAssociationStatusToken :: Lens.Lens' AssociateNodeResponse (Prelude.Maybe Prelude.Text)+associateNodeResponse_nodeAssociationStatusToken = Lens.lens (\AssociateNodeResponse' {nodeAssociationStatusToken} -> nodeAssociationStatusToken) (\s@AssociateNodeResponse' {} a -> s {nodeAssociationStatusToken = a} :: AssociateNodeResponse)++-- | The response's http status code.+associateNodeResponse_httpStatus :: Lens.Lens' AssociateNodeResponse Prelude.Int+associateNodeResponse_httpStatus = Lens.lens (\AssociateNodeResponse' {httpStatus} -> httpStatus) (\s@AssociateNodeResponse' {} a -> s {httpStatus = a} :: AssociateNodeResponse)++instance Prelude.NFData AssociateNodeResponse where+  rnf AssociateNodeResponse' {..} =+    Prelude.rnf nodeAssociationStatusToken+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,262 @@+{-# 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.OpsWorksCM.CreateBackup+-- 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 an application-level backup of a server. While the server is in+-- the @BACKING_UP@ state, the server cannot be changed, and no additional+-- backup can be created.+--+-- Backups can be created for servers in @RUNNING@, @HEALTHY@, and+-- @UNHEALTHY@ states. By default, you can create a maximum of 50 manual+-- backups.+--+-- This operation is asynchronous.+--+-- A @LimitExceededException@ is thrown when the maximum number of manual+-- backups is reached. An @InvalidStateException@ is thrown when the server+-- is not in any of the following states: RUNNING, HEALTHY, or UNHEALTHY. A+-- @ResourceNotFoundException@ is thrown when the server is not found. A+-- @ValidationException@ is thrown when parameters of the request are not+-- valid.+module Amazonka.OpsWorksCM.CreateBackup+  ( -- * Creating a Request+    CreateBackup (..),+    newCreateBackup,++    -- * Request Lenses+    createBackup_description,+    createBackup_tags,+    createBackup_serverName,++    -- * Destructuring the Response+    CreateBackupResponse (..),+    newCreateBackupResponse,++    -- * Response Lenses+    createBackupResponse_backup,+    createBackupResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.OpsWorksCM.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateBackup' smart constructor.+data CreateBackup = CreateBackup'+  { -- | A user-defined description of the backup.+    description :: Prelude.Maybe Prelude.Text,+    -- | A map that contains tag keys and tag values to attach to an AWS+    -- OpsWorks-CM server backup.+    --+    -- -   The key cannot be empty.+    --+    -- -   The key can be a maximum of 127 characters, and can contain only+    --     Unicode letters, numbers, or separators, or the following special+    --     characters: @+ - = . _ : \/@+    --+    -- -   The value can be a maximum 255 characters, and contain only Unicode+    --     letters, numbers, or separators, or the following special+    --     characters: @+ - = . _ : \/@+    --+    -- -   Leading and trailing white spaces are trimmed from both the key and+    --     value.+    --+    -- -   A maximum of 50 user-applied tags is allowed for tag-supported AWS+    --     OpsWorks-CM resources.+    tags :: Prelude.Maybe [Tag],+    -- | The name of the server that you want to back up.+    serverName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateBackup' 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', 'createBackup_description' - A user-defined description of the backup.+--+-- 'tags', 'createBackup_tags' - A map that contains tag keys and tag values to attach to an AWS+-- OpsWorks-CM server backup.+--+-- -   The key cannot be empty.+--+-- -   The key can be a maximum of 127 characters, and can contain only+--     Unicode letters, numbers, or separators, or the following special+--     characters: @+ - = . _ : \/@+--+-- -   The value can be a maximum 255 characters, and contain only Unicode+--     letters, numbers, or separators, or the following special+--     characters: @+ - = . _ : \/@+--+-- -   Leading and trailing white spaces are trimmed from both the key and+--     value.+--+-- -   A maximum of 50 user-applied tags is allowed for tag-supported AWS+--     OpsWorks-CM resources.+--+-- 'serverName', 'createBackup_serverName' - The name of the server that you want to back up.+newCreateBackup ::+  -- | 'serverName'+  Prelude.Text ->+  CreateBackup+newCreateBackup pServerName_ =+  CreateBackup'+    { description = Prelude.Nothing,+      tags = Prelude.Nothing,+      serverName = pServerName_+    }++-- | A user-defined description of the backup.+createBackup_description :: Lens.Lens' CreateBackup (Prelude.Maybe Prelude.Text)+createBackup_description = Lens.lens (\CreateBackup' {description} -> description) (\s@CreateBackup' {} a -> s {description = a} :: CreateBackup)++-- | A map that contains tag keys and tag values to attach to an AWS+-- OpsWorks-CM server backup.+--+-- -   The key cannot be empty.+--+-- -   The key can be a maximum of 127 characters, and can contain only+--     Unicode letters, numbers, or separators, or the following special+--     characters: @+ - = . _ : \/@+--+-- -   The value can be a maximum 255 characters, and contain only Unicode+--     letters, numbers, or separators, or the following special+--     characters: @+ - = . _ : \/@+--+-- -   Leading and trailing white spaces are trimmed from both the key and+--     value.+--+-- -   A maximum of 50 user-applied tags is allowed for tag-supported AWS+--     OpsWorks-CM resources.+createBackup_tags :: Lens.Lens' CreateBackup (Prelude.Maybe [Tag])+createBackup_tags = Lens.lens (\CreateBackup' {tags} -> tags) (\s@CreateBackup' {} a -> s {tags = a} :: CreateBackup) Prelude.. Lens.mapping Lens.coerced++-- | The name of the server that you want to back up.+createBackup_serverName :: Lens.Lens' CreateBackup Prelude.Text+createBackup_serverName = Lens.lens (\CreateBackup' {serverName} -> serverName) (\s@CreateBackup' {} a -> s {serverName = a} :: CreateBackup)++instance Core.AWSRequest CreateBackup where+  type AWSResponse CreateBackup = CreateBackupResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateBackupResponse'+            Prelude.<$> (x Data..?> "Backup")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateBackup where+  hashWithSalt _salt CreateBackup' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` serverName++instance Prelude.NFData CreateBackup where+  rnf CreateBackup' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf serverName++instance Data.ToHeaders CreateBackup where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "OpsWorksCM_V2016_11_01.CreateBackup" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateBackup where+  toJSON CreateBackup' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Description" Data..=) Prelude.<$> description,+            ("Tags" Data..=) Prelude.<$> tags,+            Prelude.Just ("ServerName" Data..= serverName)+          ]+      )++instance Data.ToPath CreateBackup where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateBackup where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateBackupResponse' smart constructor.+data CreateBackupResponse = CreateBackupResponse'+  { -- | Backup created by request.+    backup :: Prelude.Maybe Backup,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateBackupResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'backup', 'createBackupResponse_backup' - Backup created by request.+--+-- 'httpStatus', 'createBackupResponse_httpStatus' - The response's http status code.+newCreateBackupResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateBackupResponse+newCreateBackupResponse pHttpStatus_ =+  CreateBackupResponse'+    { backup = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Backup created by request.+createBackupResponse_backup :: Lens.Lens' CreateBackupResponse (Prelude.Maybe Backup)+createBackupResponse_backup = Lens.lens (\CreateBackupResponse' {backup} -> backup) (\s@CreateBackupResponse' {} a -> s {backup = a} :: CreateBackupResponse)++-- | The response's http status code.+createBackupResponse_httpStatus :: Lens.Lens' CreateBackupResponse Prelude.Int+createBackupResponse_httpStatus = Lens.lens (\CreateBackupResponse' {httpStatus} -> httpStatus) (\s@CreateBackupResponse' {} a -> s {httpStatus = a} :: CreateBackupResponse)++instance Prelude.NFData CreateBackupResponse where+  rnf CreateBackupResponse' {..} =+    Prelude.rnf backup+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,916 @@+{-# 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.OpsWorksCM.CreateServer+-- 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 and immedately starts a new server. The server is ready to use+-- when it is in the @HEALTHY@ state. By default, you can create a maximum+-- of 10 servers.+--+-- This operation is asynchronous.+--+-- A @LimitExceededException@ is thrown when you have created the maximum+-- number of servers (10). A @ResourceAlreadyExistsException@ is thrown+-- when a server with the same name already exists in the account. A+-- @ResourceNotFoundException@ is thrown when you specify a backup ID that+-- is not valid or is for a backup that does not exist. A+-- @ValidationException@ is thrown when parameters of the request are not+-- valid.+--+-- If you do not specify a security group by adding the @SecurityGroupIds@+-- parameter, AWS OpsWorks creates a new security group.+--+-- /Chef Automate:/ The default security group opens the Chef server to the+-- world on TCP port 443. If a KeyName is present, AWS OpsWorks enables SSH+-- access. SSH is also open to the world on TCP port 22.+--+-- /Puppet Enterprise:/ The default security group opens TCP ports 22, 443,+-- 4433, 8140, 8142, 8143, and 8170. If a KeyName is present, AWS OpsWorks+-- enables SSH access. SSH is also open to the world on TCP port 22.+--+-- By default, your server is accessible from any IP address. We recommend+-- that you update your security group rules to allow access from known IP+-- addresses and address ranges only. To edit security group rules, open+-- Security Groups in the navigation pane of the EC2 management console.+--+-- To specify your own domain for a server, and provide your own+-- self-signed or CA-signed certificate and private key, specify values for+-- @CustomDomain@, @CustomCertificate@, and @CustomPrivateKey@.+module Amazonka.OpsWorksCM.CreateServer+  ( -- * Creating a Request+    CreateServer (..),+    newCreateServer,++    -- * Request Lenses+    createServer_associatePublicIpAddress,+    createServer_backupId,+    createServer_backupRetentionCount,+    createServer_customCertificate,+    createServer_customDomain,+    createServer_customPrivateKey,+    createServer_disableAutomatedBackup,+    createServer_engineAttributes,+    createServer_engineModel,+    createServer_engineVersion,+    createServer_keyPair,+    createServer_preferredBackupWindow,+    createServer_preferredMaintenanceWindow,+    createServer_securityGroupIds,+    createServer_subnetIds,+    createServer_tags,+    createServer_engine,+    createServer_serverName,+    createServer_instanceProfileArn,+    createServer_instanceType,+    createServer_serviceRoleArn,++    -- * Destructuring the Response+    CreateServerResponse (..),+    newCreateServerResponse,++    -- * Response Lenses+    createServerResponse_server,+    createServerResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.OpsWorksCM.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateServer' smart constructor.+data CreateServer = CreateServer'+  { -- | Associate a public IP address with a server that you are launching.+    -- Valid values are @true@ or @false@. The default value is @true@.+    associatePublicIpAddress :: Prelude.Maybe Prelude.Bool,+    -- | If you specify this field, AWS OpsWorks CM creates the server by using+    -- the backup represented by BackupId.+    backupId :: Prelude.Maybe Prelude.Text,+    -- | The number of automated backups that you want to keep. Whenever a new+    -- backup is created, AWS OpsWorks CM deletes the oldest backups if this+    -- number is exceeded. The default value is @1@.+    backupRetentionCount :: Prelude.Maybe Prelude.Natural,+    -- | A PEM-formatted HTTPS certificate. The value can be be a single,+    -- self-signed certificate, or a certificate chain. If you specify a custom+    -- certificate, you must also specify values for @CustomDomain@ and+    -- @CustomPrivateKey@. The following are requirements for the+    -- @CustomCertificate@ value:+    --+    -- -   You can provide either a self-signed, custom certificate, or the+    --     full certificate chain.+    --+    -- -   The certificate must be a valid X509 certificate, or a certificate+    --     chain in PEM format.+    --+    -- -   The certificate must be valid at the time of upload. A certificate+    --     can\'t be used before its validity period begins (the certificate\'s+    --     @NotBefore@ date), or after it expires (the certificate\'s+    --     @NotAfter@ date).+    --+    -- -   The certificate’s common name or subject alternative names (SANs),+    --     if present, must match the value of @CustomDomain@.+    --+    -- -   The certificate must match the value of @CustomPrivateKey@.+    customCertificate :: Prelude.Maybe Prelude.Text,+    -- | An optional public endpoint of a server, such as+    -- @https:\/\/aws.my-company.com@. To access the server, create a CNAME DNS+    -- record in your preferred DNS service that points the custom domain to+    -- the endpoint that is generated when the server is created (the value of+    -- the CreateServer Endpoint attribute). You cannot access the server by+    -- using the generated @Endpoint@ value if the server is using a custom+    -- domain. If you specify a custom domain, you must also specify values for+    -- @CustomCertificate@ and @CustomPrivateKey@.+    customDomain :: Prelude.Maybe Prelude.Text,+    -- | A private key in PEM format for connecting to the server by using HTTPS.+    -- The private key must not be encrypted; it cannot be protected by a+    -- password or passphrase. If you specify a custom private key, you must+    -- also specify values for @CustomDomain@ and @CustomCertificate@.+    customPrivateKey :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | Enable or disable scheduled backups. Valid values are @true@ or @false@.+    -- The default value is @true@.+    disableAutomatedBackup :: Prelude.Maybe Prelude.Bool,+    -- | Optional engine attributes on a specified server.+    --+    -- __Attributes accepted in a Chef createServer request:__+    --+    -- -   @CHEF_AUTOMATE_PIVOTAL_KEY@: A base64-encoded RSA public key. The+    --     corresponding private key is required to access the Chef API. When+    --     no CHEF_AUTOMATE_PIVOTAL_KEY is set, a private key is generated and+    --     returned in the response.+    --+    -- -   @CHEF_AUTOMATE_ADMIN_PASSWORD@: The password for the administrative+    --     user in the Chef Automate web-based dashboard. The password length+    --     is a minimum of eight characters, and a maximum of 32. The password+    --     can contain letters, numbers, and special characters+    --     (!\/\@#$%^&+=_). The password must contain at least one lower case+    --     letter, one upper case letter, one number, and one special+    --     character. When no CHEF_AUTOMATE_ADMIN_PASSWORD is set, one is+    --     generated and returned in the response.+    --+    -- __Attributes accepted in a Puppet createServer request:__+    --+    -- -   @PUPPET_ADMIN_PASSWORD@: To work with the Puppet Enterprise console,+    --     a password must use ASCII characters.+    --+    -- -   @PUPPET_R10K_REMOTE@: The r10k remote is the URL of your control+    --     repository (for example,+    --     ssh:\/\/git\@your.git-repo.com:user\/control-repo.git). Specifying+    --     an r10k remote opens TCP port 8170.+    --+    -- -   @PUPPET_R10K_PRIVATE_KEY@: If you are using a private Git+    --     repository, add PUPPET_R10K_PRIVATE_KEY to specify a PEM-encoded+    --     private SSH key.+    engineAttributes :: Prelude.Maybe [EngineAttribute],+    -- | The engine model of the server. Valid values in this release include+    -- @Monolithic@ for Puppet and @Single@ for Chef.+    engineModel :: Prelude.Maybe Prelude.Text,+    -- | The major release version of the engine that you want to use. For a Chef+    -- server, the valid value for EngineVersion is currently @2@. For a Puppet+    -- server, valid values are @2019@ or @2017@.+    engineVersion :: Prelude.Maybe Prelude.Text,+    -- | The Amazon EC2 key pair to set for the instance. This parameter is+    -- optional; if desired, you may specify this parameter to connect to your+    -- instances by using SSH.+    keyPair :: Prelude.Maybe Prelude.Text,+    -- | The start time for a one-hour period during which AWS OpsWorks CM backs+    -- up application-level data on your server if automated backups are+    -- enabled. Valid values must be specified in one of the following formats:+    --+    -- -   @HH:MM@ for daily backups+    --+    -- -   @DDD:HH:MM@ for weekly backups+    --+    -- @MM@ must be specified as @00@. The specified time is in coordinated+    -- universal time (UTC). The default value is a random, daily start time.+    --+    -- __Example:__ @08:00@, which represents a daily start time of 08:00 UTC.+    --+    -- __Example:__ @Mon:08:00@, which represents a start time of every Monday+    -- at 08:00 UTC. (8:00 a.m.)+    preferredBackupWindow :: Prelude.Maybe Prelude.Text,+    -- | The start time for a one-hour period each week during which AWS OpsWorks+    -- CM performs maintenance on the instance. Valid values must be specified+    -- in the following format: @DDD:HH:MM@. @MM@ must be specified as @00@.+    -- The specified time is in coordinated universal time (UTC). The default+    -- value is a random one-hour period on Tuesday, Wednesday, or Friday. See+    -- @TimeWindowDefinition@ for more information.+    --+    -- __Example:__ @Mon:08:00@, which represents a start time of every Monday+    -- at 08:00 UTC. (8:00 a.m.)+    preferredMaintenanceWindow :: Prelude.Maybe Prelude.Text,+    -- | A list of security group IDs to attach to the Amazon EC2 instance. If+    -- you add this parameter, the specified security groups must be within the+    -- VPC that is specified by @SubnetIds@.+    --+    -- If you do not specify this parameter, AWS OpsWorks CM creates one new+    -- security group that uses TCP ports 22 and 443, open to 0.0.0.0\/0+    -- (everyone).+    securityGroupIds :: Prelude.Maybe [Prelude.Text],+    -- | The IDs of subnets in which to launch the server EC2 instance.+    --+    -- Amazon EC2-Classic customers: This field is required. All servers must+    -- run within a VPC. The VPC must have \"Auto Assign Public IP\" enabled.+    --+    -- EC2-VPC customers: This field is optional. If you do not specify subnet+    -- IDs, your EC2 instances are created in a default subnet that is selected+    -- by Amazon EC2. If you specify subnet IDs, the VPC must have \"Auto+    -- Assign Public IP\" enabled.+    --+    -- For more information about supported Amazon EC2 platforms, see+    -- <https://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ec2-supported-platforms.html Supported Platforms>.+    subnetIds :: Prelude.Maybe [Prelude.Text],+    -- | A map that contains tag keys and tag values to attach to an AWS OpsWorks+    -- for Chef Automate or AWS OpsWorks for Puppet Enterprise server.+    --+    -- -   The key cannot be empty.+    --+    -- -   The key can be a maximum of 127 characters, and can contain only+    --     Unicode letters, numbers, or separators, or the following special+    --     characters: @+ - = . _ : \/ \@@+    --+    -- -   The value can be a maximum 255 characters, and contain only Unicode+    --     letters, numbers, or separators, or the following special+    --     characters: @+ - = . _ : \/ \@@+    --+    -- -   Leading and trailing white spaces are trimmed from both the key and+    --     value.+    --+    -- -   A maximum of 50 user-applied tags is allowed for any AWS OpsWorks-CM+    --     server.+    tags :: Prelude.Maybe [Tag],+    -- | The configuration management engine to use. Valid values include+    -- @ChefAutomate@ and @Puppet@.+    engine :: Prelude.Text,+    -- | The name of the server. The server name must be unique within your AWS+    -- account, within each region. Server names must start with a letter; then+    -- letters, numbers, or hyphens (-) are allowed, up to a maximum of 40+    -- characters.+    serverName :: Prelude.Text,+    -- | The ARN of the instance profile that your Amazon EC2 instances use.+    -- Although the AWS OpsWorks console typically creates the instance profile+    -- for you, if you are using API commands instead, run the+    -- service-role-creation.yaml AWS CloudFormation template, located at+    -- https:\/\/s3.amazonaws.com\/opsworks-cm-us-east-1-prod-default-assets\/misc\/opsworks-cm-roles.yaml.+    -- This template creates a CloudFormation stack that includes the instance+    -- profile you need.+    instanceProfileArn :: Prelude.Text,+    -- | The Amazon EC2 instance type to use. For example, @m5.large@.+    instanceType :: Prelude.Text,+    -- | The service role that the AWS OpsWorks CM service backend uses to work+    -- with your account. Although the AWS OpsWorks management console+    -- typically creates the service role for you, if you are using the AWS CLI+    -- or API commands, run the service-role-creation.yaml AWS CloudFormation+    -- template, located at+    -- https:\/\/s3.amazonaws.com\/opsworks-cm-us-east-1-prod-default-assets\/misc\/opsworks-cm-roles.yaml.+    -- This template creates a CloudFormation stack that includes the service+    -- role and instance profile that you need.+    serviceRoleArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateServer' 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:+--+-- 'associatePublicIpAddress', 'createServer_associatePublicIpAddress' - Associate a public IP address with a server that you are launching.+-- Valid values are @true@ or @false@. The default value is @true@.+--+-- 'backupId', 'createServer_backupId' - If you specify this field, AWS OpsWorks CM creates the server by using+-- the backup represented by BackupId.+--+-- 'backupRetentionCount', 'createServer_backupRetentionCount' - The number of automated backups that you want to keep. Whenever a new+-- backup is created, AWS OpsWorks CM deletes the oldest backups if this+-- number is exceeded. The default value is @1@.+--+-- 'customCertificate', 'createServer_customCertificate' - A PEM-formatted HTTPS certificate. The value can be be a single,+-- self-signed certificate, or a certificate chain. If you specify a custom+-- certificate, you must also specify values for @CustomDomain@ and+-- @CustomPrivateKey@. The following are requirements for the+-- @CustomCertificate@ value:+--+-- -   You can provide either a self-signed, custom certificate, or the+--     full certificate chain.+--+-- -   The certificate must be a valid X509 certificate, or a certificate+--     chain in PEM format.+--+-- -   The certificate must be valid at the time of upload. A certificate+--     can\'t be used before its validity period begins (the certificate\'s+--     @NotBefore@ date), or after it expires (the certificate\'s+--     @NotAfter@ date).+--+-- -   The certificate’s common name or subject alternative names (SANs),+--     if present, must match the value of @CustomDomain@.+--+-- -   The certificate must match the value of @CustomPrivateKey@.+--+-- 'customDomain', 'createServer_customDomain' - An optional public endpoint of a server, such as+-- @https:\/\/aws.my-company.com@. To access the server, create a CNAME DNS+-- record in your preferred DNS service that points the custom domain to+-- the endpoint that is generated when the server is created (the value of+-- the CreateServer Endpoint attribute). You cannot access the server by+-- using the generated @Endpoint@ value if the server is using a custom+-- domain. If you specify a custom domain, you must also specify values for+-- @CustomCertificate@ and @CustomPrivateKey@.+--+-- 'customPrivateKey', 'createServer_customPrivateKey' - A private key in PEM format for connecting to the server by using HTTPS.+-- The private key must not be encrypted; it cannot be protected by a+-- password or passphrase. If you specify a custom private key, you must+-- also specify values for @CustomDomain@ and @CustomCertificate@.+--+-- 'disableAutomatedBackup', 'createServer_disableAutomatedBackup' - Enable or disable scheduled backups. Valid values are @true@ or @false@.+-- The default value is @true@.+--+-- 'engineAttributes', 'createServer_engineAttributes' - Optional engine attributes on a specified server.+--+-- __Attributes accepted in a Chef createServer request:__+--+-- -   @CHEF_AUTOMATE_PIVOTAL_KEY@: A base64-encoded RSA public key. The+--     corresponding private key is required to access the Chef API. When+--     no CHEF_AUTOMATE_PIVOTAL_KEY is set, a private key is generated and+--     returned in the response.+--+-- -   @CHEF_AUTOMATE_ADMIN_PASSWORD@: The password for the administrative+--     user in the Chef Automate web-based dashboard. The password length+--     is a minimum of eight characters, and a maximum of 32. The password+--     can contain letters, numbers, and special characters+--     (!\/\@#$%^&+=_). The password must contain at least one lower case+--     letter, one upper case letter, one number, and one special+--     character. When no CHEF_AUTOMATE_ADMIN_PASSWORD is set, one is+--     generated and returned in the response.+--+-- __Attributes accepted in a Puppet createServer request:__+--+-- -   @PUPPET_ADMIN_PASSWORD@: To work with the Puppet Enterprise console,+--     a password must use ASCII characters.+--+-- -   @PUPPET_R10K_REMOTE@: The r10k remote is the URL of your control+--     repository (for example,+--     ssh:\/\/git\@your.git-repo.com:user\/control-repo.git). Specifying+--     an r10k remote opens TCP port 8170.+--+-- -   @PUPPET_R10K_PRIVATE_KEY@: If you are using a private Git+--     repository, add PUPPET_R10K_PRIVATE_KEY to specify a PEM-encoded+--     private SSH key.+--+-- 'engineModel', 'createServer_engineModel' - The engine model of the server. Valid values in this release include+-- @Monolithic@ for Puppet and @Single@ for Chef.+--+-- 'engineVersion', 'createServer_engineVersion' - The major release version of the engine that you want to use. For a Chef+-- server, the valid value for EngineVersion is currently @2@. For a Puppet+-- server, valid values are @2019@ or @2017@.+--+-- 'keyPair', 'createServer_keyPair' - The Amazon EC2 key pair to set for the instance. This parameter is+-- optional; if desired, you may specify this parameter to connect to your+-- instances by using SSH.+--+-- 'preferredBackupWindow', 'createServer_preferredBackupWindow' - The start time for a one-hour period during which AWS OpsWorks CM backs+-- up application-level data on your server if automated backups are+-- enabled. Valid values must be specified in one of the following formats:+--+-- -   @HH:MM@ for daily backups+--+-- -   @DDD:HH:MM@ for weekly backups+--+-- @MM@ must be specified as @00@. The specified time is in coordinated+-- universal time (UTC). The default value is a random, daily start time.+--+-- __Example:__ @08:00@, which represents a daily start time of 08:00 UTC.+--+-- __Example:__ @Mon:08:00@, which represents a start time of every Monday+-- at 08:00 UTC. (8:00 a.m.)+--+-- 'preferredMaintenanceWindow', 'createServer_preferredMaintenanceWindow' - The start time for a one-hour period each week during which AWS OpsWorks+-- CM performs maintenance on the instance. Valid values must be specified+-- in the following format: @DDD:HH:MM@. @MM@ must be specified as @00@.+-- The specified time is in coordinated universal time (UTC). The default+-- value is a random one-hour period on Tuesday, Wednesday, or Friday. See+-- @TimeWindowDefinition@ for more information.+--+-- __Example:__ @Mon:08:00@, which represents a start time of every Monday+-- at 08:00 UTC. (8:00 a.m.)+--+-- 'securityGroupIds', 'createServer_securityGroupIds' - A list of security group IDs to attach to the Amazon EC2 instance. If+-- you add this parameter, the specified security groups must be within the+-- VPC that is specified by @SubnetIds@.+--+-- If you do not specify this parameter, AWS OpsWorks CM creates one new+-- security group that uses TCP ports 22 and 443, open to 0.0.0.0\/0+-- (everyone).+--+-- 'subnetIds', 'createServer_subnetIds' - The IDs of subnets in which to launch the server EC2 instance.+--+-- Amazon EC2-Classic customers: This field is required. All servers must+-- run within a VPC. The VPC must have \"Auto Assign Public IP\" enabled.+--+-- EC2-VPC customers: This field is optional. If you do not specify subnet+-- IDs, your EC2 instances are created in a default subnet that is selected+-- by Amazon EC2. If you specify subnet IDs, the VPC must have \"Auto+-- Assign Public IP\" enabled.+--+-- For more information about supported Amazon EC2 platforms, see+-- <https://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ec2-supported-platforms.html Supported Platforms>.+--+-- 'tags', 'createServer_tags' - A map that contains tag keys and tag values to attach to an AWS OpsWorks+-- for Chef Automate or AWS OpsWorks for Puppet Enterprise server.+--+-- -   The key cannot be empty.+--+-- -   The key can be a maximum of 127 characters, and can contain only+--     Unicode letters, numbers, or separators, or the following special+--     characters: @+ - = . _ : \/ \@@+--+-- -   The value can be a maximum 255 characters, and contain only Unicode+--     letters, numbers, or separators, or the following special+--     characters: @+ - = . _ : \/ \@@+--+-- -   Leading and trailing white spaces are trimmed from both the key and+--     value.+--+-- -   A maximum of 50 user-applied tags is allowed for any AWS OpsWorks-CM+--     server.+--+-- 'engine', 'createServer_engine' - The configuration management engine to use. Valid values include+-- @ChefAutomate@ and @Puppet@.+--+-- 'serverName', 'createServer_serverName' - The name of the server. The server name must be unique within your AWS+-- account, within each region. Server names must start with a letter; then+-- letters, numbers, or hyphens (-) are allowed, up to a maximum of 40+-- characters.+--+-- 'instanceProfileArn', 'createServer_instanceProfileArn' - The ARN of the instance profile that your Amazon EC2 instances use.+-- Although the AWS OpsWorks console typically creates the instance profile+-- for you, if you are using API commands instead, run the+-- service-role-creation.yaml AWS CloudFormation template, located at+-- https:\/\/s3.amazonaws.com\/opsworks-cm-us-east-1-prod-default-assets\/misc\/opsworks-cm-roles.yaml.+-- This template creates a CloudFormation stack that includes the instance+-- profile you need.+--+-- 'instanceType', 'createServer_instanceType' - The Amazon EC2 instance type to use. For example, @m5.large@.+--+-- 'serviceRoleArn', 'createServer_serviceRoleArn' - The service role that the AWS OpsWorks CM service backend uses to work+-- with your account. Although the AWS OpsWorks management console+-- typically creates the service role for you, if you are using the AWS CLI+-- or API commands, run the service-role-creation.yaml AWS CloudFormation+-- template, located at+-- https:\/\/s3.amazonaws.com\/opsworks-cm-us-east-1-prod-default-assets\/misc\/opsworks-cm-roles.yaml.+-- This template creates a CloudFormation stack that includes the service+-- role and instance profile that you need.+newCreateServer ::+  -- | 'engine'+  Prelude.Text ->+  -- | 'serverName'+  Prelude.Text ->+  -- | 'instanceProfileArn'+  Prelude.Text ->+  -- | 'instanceType'+  Prelude.Text ->+  -- | 'serviceRoleArn'+  Prelude.Text ->+  CreateServer+newCreateServer+  pEngine_+  pServerName_+  pInstanceProfileArn_+  pInstanceType_+  pServiceRoleArn_ =+    CreateServer'+      { associatePublicIpAddress =+          Prelude.Nothing,+        backupId = Prelude.Nothing,+        backupRetentionCount = Prelude.Nothing,+        customCertificate = Prelude.Nothing,+        customDomain = Prelude.Nothing,+        customPrivateKey = Prelude.Nothing,+        disableAutomatedBackup = Prelude.Nothing,+        engineAttributes = Prelude.Nothing,+        engineModel = Prelude.Nothing,+        engineVersion = Prelude.Nothing,+        keyPair = Prelude.Nothing,+        preferredBackupWindow = Prelude.Nothing,+        preferredMaintenanceWindow = Prelude.Nothing,+        securityGroupIds = Prelude.Nothing,+        subnetIds = Prelude.Nothing,+        tags = Prelude.Nothing,+        engine = pEngine_,+        serverName = pServerName_,+        instanceProfileArn = pInstanceProfileArn_,+        instanceType = pInstanceType_,+        serviceRoleArn = pServiceRoleArn_+      }++-- | Associate a public IP address with a server that you are launching.+-- Valid values are @true@ or @false@. The default value is @true@.+createServer_associatePublicIpAddress :: Lens.Lens' CreateServer (Prelude.Maybe Prelude.Bool)+createServer_associatePublicIpAddress = Lens.lens (\CreateServer' {associatePublicIpAddress} -> associatePublicIpAddress) (\s@CreateServer' {} a -> s {associatePublicIpAddress = a} :: CreateServer)++-- | If you specify this field, AWS OpsWorks CM creates the server by using+-- the backup represented by BackupId.+createServer_backupId :: Lens.Lens' CreateServer (Prelude.Maybe Prelude.Text)+createServer_backupId = Lens.lens (\CreateServer' {backupId} -> backupId) (\s@CreateServer' {} a -> s {backupId = a} :: CreateServer)++-- | The number of automated backups that you want to keep. Whenever a new+-- backup is created, AWS OpsWorks CM deletes the oldest backups if this+-- number is exceeded. The default value is @1@.+createServer_backupRetentionCount :: Lens.Lens' CreateServer (Prelude.Maybe Prelude.Natural)+createServer_backupRetentionCount = Lens.lens (\CreateServer' {backupRetentionCount} -> backupRetentionCount) (\s@CreateServer' {} a -> s {backupRetentionCount = a} :: CreateServer)++-- | A PEM-formatted HTTPS certificate. The value can be be a single,+-- self-signed certificate, or a certificate chain. If you specify a custom+-- certificate, you must also specify values for @CustomDomain@ and+-- @CustomPrivateKey@. The following are requirements for the+-- @CustomCertificate@ value:+--+-- -   You can provide either a self-signed, custom certificate, or the+--     full certificate chain.+--+-- -   The certificate must be a valid X509 certificate, or a certificate+--     chain in PEM format.+--+-- -   The certificate must be valid at the time of upload. A certificate+--     can\'t be used before its validity period begins (the certificate\'s+--     @NotBefore@ date), or after it expires (the certificate\'s+--     @NotAfter@ date).+--+-- -   The certificate’s common name or subject alternative names (SANs),+--     if present, must match the value of @CustomDomain@.+--+-- -   The certificate must match the value of @CustomPrivateKey@.+createServer_customCertificate :: Lens.Lens' CreateServer (Prelude.Maybe Prelude.Text)+createServer_customCertificate = Lens.lens (\CreateServer' {customCertificate} -> customCertificate) (\s@CreateServer' {} a -> s {customCertificate = a} :: CreateServer)++-- | An optional public endpoint of a server, such as+-- @https:\/\/aws.my-company.com@. To access the server, create a CNAME DNS+-- record in your preferred DNS service that points the custom domain to+-- the endpoint that is generated when the server is created (the value of+-- the CreateServer Endpoint attribute). You cannot access the server by+-- using the generated @Endpoint@ value if the server is using a custom+-- domain. If you specify a custom domain, you must also specify values for+-- @CustomCertificate@ and @CustomPrivateKey@.+createServer_customDomain :: Lens.Lens' CreateServer (Prelude.Maybe Prelude.Text)+createServer_customDomain = Lens.lens (\CreateServer' {customDomain} -> customDomain) (\s@CreateServer' {} a -> s {customDomain = a} :: CreateServer)++-- | A private key in PEM format for connecting to the server by using HTTPS.+-- The private key must not be encrypted; it cannot be protected by a+-- password or passphrase. If you specify a custom private key, you must+-- also specify values for @CustomDomain@ and @CustomCertificate@.+createServer_customPrivateKey :: Lens.Lens' CreateServer (Prelude.Maybe Prelude.Text)+createServer_customPrivateKey = Lens.lens (\CreateServer' {customPrivateKey} -> customPrivateKey) (\s@CreateServer' {} a -> s {customPrivateKey = a} :: CreateServer) Prelude.. Lens.mapping Data._Sensitive++-- | Enable or disable scheduled backups. Valid values are @true@ or @false@.+-- The default value is @true@.+createServer_disableAutomatedBackup :: Lens.Lens' CreateServer (Prelude.Maybe Prelude.Bool)+createServer_disableAutomatedBackup = Lens.lens (\CreateServer' {disableAutomatedBackup} -> disableAutomatedBackup) (\s@CreateServer' {} a -> s {disableAutomatedBackup = a} :: CreateServer)++-- | Optional engine attributes on a specified server.+--+-- __Attributes accepted in a Chef createServer request:__+--+-- -   @CHEF_AUTOMATE_PIVOTAL_KEY@: A base64-encoded RSA public key. The+--     corresponding private key is required to access the Chef API. When+--     no CHEF_AUTOMATE_PIVOTAL_KEY is set, a private key is generated and+--     returned in the response.+--+-- -   @CHEF_AUTOMATE_ADMIN_PASSWORD@: The password for the administrative+--     user in the Chef Automate web-based dashboard. The password length+--     is a minimum of eight characters, and a maximum of 32. The password+--     can contain letters, numbers, and special characters+--     (!\/\@#$%^&+=_). The password must contain at least one lower case+--     letter, one upper case letter, one number, and one special+--     character. When no CHEF_AUTOMATE_ADMIN_PASSWORD is set, one is+--     generated and returned in the response.+--+-- __Attributes accepted in a Puppet createServer request:__+--+-- -   @PUPPET_ADMIN_PASSWORD@: To work with the Puppet Enterprise console,+--     a password must use ASCII characters.+--+-- -   @PUPPET_R10K_REMOTE@: The r10k remote is the URL of your control+--     repository (for example,+--     ssh:\/\/git\@your.git-repo.com:user\/control-repo.git). Specifying+--     an r10k remote opens TCP port 8170.+--+-- -   @PUPPET_R10K_PRIVATE_KEY@: If you are using a private Git+--     repository, add PUPPET_R10K_PRIVATE_KEY to specify a PEM-encoded+--     private SSH key.+createServer_engineAttributes :: Lens.Lens' CreateServer (Prelude.Maybe [EngineAttribute])+createServer_engineAttributes = Lens.lens (\CreateServer' {engineAttributes} -> engineAttributes) (\s@CreateServer' {} a -> s {engineAttributes = a} :: CreateServer) Prelude.. Lens.mapping Lens.coerced++-- | The engine model of the server. Valid values in this release include+-- @Monolithic@ for Puppet and @Single@ for Chef.+createServer_engineModel :: Lens.Lens' CreateServer (Prelude.Maybe Prelude.Text)+createServer_engineModel = Lens.lens (\CreateServer' {engineModel} -> engineModel) (\s@CreateServer' {} a -> s {engineModel = a} :: CreateServer)++-- | The major release version of the engine that you want to use. For a Chef+-- server, the valid value for EngineVersion is currently @2@. For a Puppet+-- server, valid values are @2019@ or @2017@.+createServer_engineVersion :: Lens.Lens' CreateServer (Prelude.Maybe Prelude.Text)+createServer_engineVersion = Lens.lens (\CreateServer' {engineVersion} -> engineVersion) (\s@CreateServer' {} a -> s {engineVersion = a} :: CreateServer)++-- | The Amazon EC2 key pair to set for the instance. This parameter is+-- optional; if desired, you may specify this parameter to connect to your+-- instances by using SSH.+createServer_keyPair :: Lens.Lens' CreateServer (Prelude.Maybe Prelude.Text)+createServer_keyPair = Lens.lens (\CreateServer' {keyPair} -> keyPair) (\s@CreateServer' {} a -> s {keyPair = a} :: CreateServer)++-- | The start time for a one-hour period during which AWS OpsWorks CM backs+-- up application-level data on your server if automated backups are+-- enabled. Valid values must be specified in one of the following formats:+--+-- -   @HH:MM@ for daily backups+--+-- -   @DDD:HH:MM@ for weekly backups+--+-- @MM@ must be specified as @00@. The specified time is in coordinated+-- universal time (UTC). The default value is a random, daily start time.+--+-- __Example:__ @08:00@, which represents a daily start time of 08:00 UTC.+--+-- __Example:__ @Mon:08:00@, which represents a start time of every Monday+-- at 08:00 UTC. (8:00 a.m.)+createServer_preferredBackupWindow :: Lens.Lens' CreateServer (Prelude.Maybe Prelude.Text)+createServer_preferredBackupWindow = Lens.lens (\CreateServer' {preferredBackupWindow} -> preferredBackupWindow) (\s@CreateServer' {} a -> s {preferredBackupWindow = a} :: CreateServer)++-- | The start time for a one-hour period each week during which AWS OpsWorks+-- CM performs maintenance on the instance. Valid values must be specified+-- in the following format: @DDD:HH:MM@. @MM@ must be specified as @00@.+-- The specified time is in coordinated universal time (UTC). The default+-- value is a random one-hour period on Tuesday, Wednesday, or Friday. See+-- @TimeWindowDefinition@ for more information.+--+-- __Example:__ @Mon:08:00@, which represents a start time of every Monday+-- at 08:00 UTC. (8:00 a.m.)+createServer_preferredMaintenanceWindow :: Lens.Lens' CreateServer (Prelude.Maybe Prelude.Text)+createServer_preferredMaintenanceWindow = Lens.lens (\CreateServer' {preferredMaintenanceWindow} -> preferredMaintenanceWindow) (\s@CreateServer' {} a -> s {preferredMaintenanceWindow = a} :: CreateServer)++-- | A list of security group IDs to attach to the Amazon EC2 instance. If+-- you add this parameter, the specified security groups must be within the+-- VPC that is specified by @SubnetIds@.+--+-- If you do not specify this parameter, AWS OpsWorks CM creates one new+-- security group that uses TCP ports 22 and 443, open to 0.0.0.0\/0+-- (everyone).+createServer_securityGroupIds :: Lens.Lens' CreateServer (Prelude.Maybe [Prelude.Text])+createServer_securityGroupIds = Lens.lens (\CreateServer' {securityGroupIds} -> securityGroupIds) (\s@CreateServer' {} a -> s {securityGroupIds = a} :: CreateServer) Prelude.. Lens.mapping Lens.coerced++-- | The IDs of subnets in which to launch the server EC2 instance.+--+-- Amazon EC2-Classic customers: This field is required. All servers must+-- run within a VPC. The VPC must have \"Auto Assign Public IP\" enabled.+--+-- EC2-VPC customers: This field is optional. If you do not specify subnet+-- IDs, your EC2 instances are created in a default subnet that is selected+-- by Amazon EC2. If you specify subnet IDs, the VPC must have \"Auto+-- Assign Public IP\" enabled.+--+-- For more information about supported Amazon EC2 platforms, see+-- <https://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ec2-supported-platforms.html Supported Platforms>.+createServer_subnetIds :: Lens.Lens' CreateServer (Prelude.Maybe [Prelude.Text])+createServer_subnetIds = Lens.lens (\CreateServer' {subnetIds} -> subnetIds) (\s@CreateServer' {} a -> s {subnetIds = a} :: CreateServer) Prelude.. Lens.mapping Lens.coerced++-- | A map that contains tag keys and tag values to attach to an AWS OpsWorks+-- for Chef Automate or AWS OpsWorks for Puppet Enterprise server.+--+-- -   The key cannot be empty.+--+-- -   The key can be a maximum of 127 characters, and can contain only+--     Unicode letters, numbers, or separators, or the following special+--     characters: @+ - = . _ : \/ \@@+--+-- -   The value can be a maximum 255 characters, and contain only Unicode+--     letters, numbers, or separators, or the following special+--     characters: @+ - = . _ : \/ \@@+--+-- -   Leading and trailing white spaces are trimmed from both the key and+--     value.+--+-- -   A maximum of 50 user-applied tags is allowed for any AWS OpsWorks-CM+--     server.+createServer_tags :: Lens.Lens' CreateServer (Prelude.Maybe [Tag])+createServer_tags = Lens.lens (\CreateServer' {tags} -> tags) (\s@CreateServer' {} a -> s {tags = a} :: CreateServer) Prelude.. Lens.mapping Lens.coerced++-- | The configuration management engine to use. Valid values include+-- @ChefAutomate@ and @Puppet@.+createServer_engine :: Lens.Lens' CreateServer Prelude.Text+createServer_engine = Lens.lens (\CreateServer' {engine} -> engine) (\s@CreateServer' {} a -> s {engine = a} :: CreateServer)++-- | The name of the server. The server name must be unique within your AWS+-- account, within each region. Server names must start with a letter; then+-- letters, numbers, or hyphens (-) are allowed, up to a maximum of 40+-- characters.+createServer_serverName :: Lens.Lens' CreateServer Prelude.Text+createServer_serverName = Lens.lens (\CreateServer' {serverName} -> serverName) (\s@CreateServer' {} a -> s {serverName = a} :: CreateServer)++-- | The ARN of the instance profile that your Amazon EC2 instances use.+-- Although the AWS OpsWorks console typically creates the instance profile+-- for you, if you are using API commands instead, run the+-- service-role-creation.yaml AWS CloudFormation template, located at+-- https:\/\/s3.amazonaws.com\/opsworks-cm-us-east-1-prod-default-assets\/misc\/opsworks-cm-roles.yaml.+-- This template creates a CloudFormation stack that includes the instance+-- profile you need.+createServer_instanceProfileArn :: Lens.Lens' CreateServer Prelude.Text+createServer_instanceProfileArn = Lens.lens (\CreateServer' {instanceProfileArn} -> instanceProfileArn) (\s@CreateServer' {} a -> s {instanceProfileArn = a} :: CreateServer)++-- | The Amazon EC2 instance type to use. For example, @m5.large@.+createServer_instanceType :: Lens.Lens' CreateServer Prelude.Text+createServer_instanceType = Lens.lens (\CreateServer' {instanceType} -> instanceType) (\s@CreateServer' {} a -> s {instanceType = a} :: CreateServer)++-- | The service role that the AWS OpsWorks CM service backend uses to work+-- with your account. Although the AWS OpsWorks management console+-- typically creates the service role for you, if you are using the AWS CLI+-- or API commands, run the service-role-creation.yaml AWS CloudFormation+-- template, located at+-- https:\/\/s3.amazonaws.com\/opsworks-cm-us-east-1-prod-default-assets\/misc\/opsworks-cm-roles.yaml.+-- This template creates a CloudFormation stack that includes the service+-- role and instance profile that you need.+createServer_serviceRoleArn :: Lens.Lens' CreateServer Prelude.Text+createServer_serviceRoleArn = Lens.lens (\CreateServer' {serviceRoleArn} -> serviceRoleArn) (\s@CreateServer' {} a -> s {serviceRoleArn = a} :: CreateServer)++instance Core.AWSRequest CreateServer where+  type AWSResponse CreateServer = CreateServerResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateServerResponse'+            Prelude.<$> (x Data..?> "Server")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateServer where+  hashWithSalt _salt CreateServer' {..} =+    _salt+      `Prelude.hashWithSalt` associatePublicIpAddress+      `Prelude.hashWithSalt` backupId+      `Prelude.hashWithSalt` backupRetentionCount+      `Prelude.hashWithSalt` customCertificate+      `Prelude.hashWithSalt` customDomain+      `Prelude.hashWithSalt` customPrivateKey+      `Prelude.hashWithSalt` disableAutomatedBackup+      `Prelude.hashWithSalt` engineAttributes+      `Prelude.hashWithSalt` engineModel+      `Prelude.hashWithSalt` engineVersion+      `Prelude.hashWithSalt` keyPair+      `Prelude.hashWithSalt` preferredBackupWindow+      `Prelude.hashWithSalt` preferredMaintenanceWindow+      `Prelude.hashWithSalt` securityGroupIds+      `Prelude.hashWithSalt` subnetIds+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` engine+      `Prelude.hashWithSalt` serverName+      `Prelude.hashWithSalt` instanceProfileArn+      `Prelude.hashWithSalt` instanceType+      `Prelude.hashWithSalt` serviceRoleArn++instance Prelude.NFData CreateServer where+  rnf CreateServer' {..} =+    Prelude.rnf associatePublicIpAddress+      `Prelude.seq` Prelude.rnf backupId+      `Prelude.seq` Prelude.rnf backupRetentionCount+      `Prelude.seq` Prelude.rnf customCertificate+      `Prelude.seq` Prelude.rnf customDomain+      `Prelude.seq` Prelude.rnf customPrivateKey+      `Prelude.seq` Prelude.rnf disableAutomatedBackup+      `Prelude.seq` Prelude.rnf engineAttributes+      `Prelude.seq` Prelude.rnf engineModel+      `Prelude.seq` Prelude.rnf engineVersion+      `Prelude.seq` Prelude.rnf keyPair+      `Prelude.seq` Prelude.rnf preferredBackupWindow+      `Prelude.seq` Prelude.rnf preferredMaintenanceWindow+      `Prelude.seq` Prelude.rnf securityGroupIds+      `Prelude.seq` Prelude.rnf subnetIds+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf engine+      `Prelude.seq` Prelude.rnf serverName+      `Prelude.seq` Prelude.rnf instanceProfileArn+      `Prelude.seq` Prelude.rnf instanceType+      `Prelude.seq` Prelude.rnf serviceRoleArn++instance Data.ToHeaders CreateServer where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "OpsWorksCM_V2016_11_01.CreateServer" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateServer where+  toJSON CreateServer' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("AssociatePublicIpAddress" Data..=)+              Prelude.<$> associatePublicIpAddress,+            ("BackupId" Data..=) Prelude.<$> backupId,+            ("BackupRetentionCount" Data..=)+              Prelude.<$> backupRetentionCount,+            ("CustomCertificate" Data..=)+              Prelude.<$> customCertificate,+            ("CustomDomain" Data..=) Prelude.<$> customDomain,+            ("CustomPrivateKey" Data..=)+              Prelude.<$> customPrivateKey,+            ("DisableAutomatedBackup" Data..=)+              Prelude.<$> disableAutomatedBackup,+            ("EngineAttributes" Data..=)+              Prelude.<$> engineAttributes,+            ("EngineModel" Data..=) Prelude.<$> engineModel,+            ("EngineVersion" Data..=) Prelude.<$> engineVersion,+            ("KeyPair" Data..=) Prelude.<$> keyPair,+            ("PreferredBackupWindow" Data..=)+              Prelude.<$> preferredBackupWindow,+            ("PreferredMaintenanceWindow" Data..=)+              Prelude.<$> preferredMaintenanceWindow,+            ("SecurityGroupIds" Data..=)+              Prelude.<$> securityGroupIds,+            ("SubnetIds" Data..=) Prelude.<$> subnetIds,+            ("Tags" Data..=) Prelude.<$> tags,+            Prelude.Just ("Engine" Data..= engine),+            Prelude.Just ("ServerName" Data..= serverName),+            Prelude.Just+              ("InstanceProfileArn" Data..= instanceProfileArn),+            Prelude.Just ("InstanceType" Data..= instanceType),+            Prelude.Just+              ("ServiceRoleArn" Data..= serviceRoleArn)+          ]+      )++instance Data.ToPath CreateServer where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateServer where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateServerResponse' smart constructor.+data CreateServerResponse = CreateServerResponse'+  { -- | The server that is created by the request.+    server :: Prelude.Maybe Server,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateServerResponse' 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:+--+-- 'server', 'createServerResponse_server' - The server that is created by the request.+--+-- 'httpStatus', 'createServerResponse_httpStatus' - The response's http status code.+newCreateServerResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateServerResponse+newCreateServerResponse pHttpStatus_ =+  CreateServerResponse'+    { server = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The server that is created by the request.+createServerResponse_server :: Lens.Lens' CreateServerResponse (Prelude.Maybe Server)+createServerResponse_server = Lens.lens (\CreateServerResponse' {server} -> server) (\s@CreateServerResponse' {} a -> s {server = a} :: CreateServerResponse)++-- | The response's http status code.+createServerResponse_httpStatus :: Lens.Lens' CreateServerResponse Prelude.Int+createServerResponse_httpStatus = Lens.lens (\CreateServerResponse' {httpStatus} -> httpStatus) (\s@CreateServerResponse' {} a -> s {httpStatus = a} :: CreateServerResponse)++instance Prelude.NFData CreateServerResponse where+  rnf CreateServerResponse' {..} =+    Prelude.rnf server+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,163 @@+{-# 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.OpsWorksCM.DeleteBackup+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a backup. You can delete both manual and automated backups. This+-- operation is asynchronous.+--+-- An @InvalidStateException@ is thrown when a backup deletion is already+-- in progress. A @ResourceNotFoundException@ is thrown when the backup+-- does not exist. A @ValidationException@ is thrown when parameters of the+-- request are not valid.+module Amazonka.OpsWorksCM.DeleteBackup+  ( -- * Creating a Request+    DeleteBackup (..),+    newDeleteBackup,++    -- * Request Lenses+    deleteBackup_backupId,++    -- * Destructuring the Response+    DeleteBackupResponse (..),+    newDeleteBackupResponse,++    -- * Response Lenses+    deleteBackupResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.OpsWorksCM.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteBackup' smart constructor.+data DeleteBackup = DeleteBackup'+  { -- | The ID of the backup to delete. Run the DescribeBackups command to get a+    -- list of backup IDs. Backup IDs are in the format+    -- @ServerName-yyyyMMddHHmmssSSS@.+    backupId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteBackup' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'backupId', 'deleteBackup_backupId' - The ID of the backup to delete. Run the DescribeBackups command to get a+-- list of backup IDs. Backup IDs are in the format+-- @ServerName-yyyyMMddHHmmssSSS@.+newDeleteBackup ::+  -- | 'backupId'+  Prelude.Text ->+  DeleteBackup+newDeleteBackup pBackupId_ =+  DeleteBackup' {backupId = pBackupId_}++-- | The ID of the backup to delete. Run the DescribeBackups command to get a+-- list of backup IDs. Backup IDs are in the format+-- @ServerName-yyyyMMddHHmmssSSS@.+deleteBackup_backupId :: Lens.Lens' DeleteBackup Prelude.Text+deleteBackup_backupId = Lens.lens (\DeleteBackup' {backupId} -> backupId) (\s@DeleteBackup' {} a -> s {backupId = a} :: DeleteBackup)++instance Core.AWSRequest DeleteBackup where+  type AWSResponse DeleteBackup = DeleteBackupResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteBackupResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteBackup where+  hashWithSalt _salt DeleteBackup' {..} =+    _salt `Prelude.hashWithSalt` backupId++instance Prelude.NFData DeleteBackup where+  rnf DeleteBackup' {..} = Prelude.rnf backupId++instance Data.ToHeaders DeleteBackup where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "OpsWorksCM_V2016_11_01.DeleteBackup" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteBackup where+  toJSON DeleteBackup' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("BackupId" Data..= backupId)]+      )++instance Data.ToPath DeleteBackup where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteBackup where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteBackupResponse' smart constructor.+data DeleteBackupResponse = DeleteBackupResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteBackupResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'deleteBackupResponse_httpStatus' - The response's http status code.+newDeleteBackupResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteBackupResponse+newDeleteBackupResponse pHttpStatus_ =+  DeleteBackupResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+deleteBackupResponse_httpStatus :: Lens.Lens' DeleteBackupResponse Prelude.Int+deleteBackupResponse_httpStatus = Lens.lens (\DeleteBackupResponse' {httpStatus} -> httpStatus) (\s@DeleteBackupResponse' {} a -> s {httpStatus = a} :: DeleteBackupResponse)++instance Prelude.NFData DeleteBackupResponse where+  rnf DeleteBackupResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,162 @@+{-# 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.OpsWorksCM.DeleteServer+-- 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 server and the underlying AWS CloudFormation stacks+-- (including the server\'s EC2 instance). When you run this command, the+-- server state is updated to @DELETING@. After the server is deleted, it+-- is no longer returned by @DescribeServer@ requests. If the AWS+-- CloudFormation stack cannot be deleted, the server cannot be deleted.+--+-- This operation is asynchronous.+--+-- An @InvalidStateException@ is thrown when a server deletion is already+-- in progress. A @ResourceNotFoundException@ is thrown when the server+-- does not exist. A @ValidationException@ is raised when parameters of the+-- request are not valid.+module Amazonka.OpsWorksCM.DeleteServer+  ( -- * Creating a Request+    DeleteServer (..),+    newDeleteServer,++    -- * Request Lenses+    deleteServer_serverName,++    -- * Destructuring the Response+    DeleteServerResponse (..),+    newDeleteServerResponse,++    -- * Response Lenses+    deleteServerResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.OpsWorksCM.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteServer' smart constructor.+data DeleteServer = DeleteServer'+  { -- | The ID of the server to delete.+    serverName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteServer' 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:+--+-- 'serverName', 'deleteServer_serverName' - The ID of the server to delete.+newDeleteServer ::+  -- | 'serverName'+  Prelude.Text ->+  DeleteServer+newDeleteServer pServerName_ =+  DeleteServer' {serverName = pServerName_}++-- | The ID of the server to delete.+deleteServer_serverName :: Lens.Lens' DeleteServer Prelude.Text+deleteServer_serverName = Lens.lens (\DeleteServer' {serverName} -> serverName) (\s@DeleteServer' {} a -> s {serverName = a} :: DeleteServer)++instance Core.AWSRequest DeleteServer where+  type AWSResponse DeleteServer = DeleteServerResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteServerResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteServer where+  hashWithSalt _salt DeleteServer' {..} =+    _salt `Prelude.hashWithSalt` serverName++instance Prelude.NFData DeleteServer where+  rnf DeleteServer' {..} = Prelude.rnf serverName++instance Data.ToHeaders DeleteServer where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "OpsWorksCM_V2016_11_01.DeleteServer" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteServer where+  toJSON DeleteServer' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("ServerName" Data..= serverName)]+      )++instance Data.ToPath DeleteServer where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteServer where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteServerResponse' smart constructor.+data DeleteServerResponse = DeleteServerResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteServerResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'deleteServerResponse_httpStatus' - The response's http status code.+newDeleteServerResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteServerResponse+newDeleteServerResponse pHttpStatus_ =+  DeleteServerResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+deleteServerResponse_httpStatus :: Lens.Lens' DeleteServerResponse Prelude.Int+deleteServerResponse_httpStatus = Lens.lens (\DeleteServerResponse' {httpStatus} -> httpStatus) (\s@DeleteServerResponse' {} a -> s {httpStatus = a} :: DeleteServerResponse)++instance Prelude.NFData DeleteServerResponse where+  rnf DeleteServerResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,154 @@+{-# 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.OpsWorksCM.DescribeAccountAttributes+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes your OpsWorks-CM account attributes.+--+-- This operation is synchronous.+module Amazonka.OpsWorksCM.DescribeAccountAttributes+  ( -- * Creating a Request+    DescribeAccountAttributes (..),+    newDescribeAccountAttributes,++    -- * Destructuring the Response+    DescribeAccountAttributesResponse (..),+    newDescribeAccountAttributesResponse,++    -- * Response Lenses+    describeAccountAttributesResponse_attributes,+    describeAccountAttributesResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.OpsWorksCM.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeAccountAttributes' smart constructor.+data DescribeAccountAttributes = DescribeAccountAttributes'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeAccountAttributes' 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.+newDescribeAccountAttributes ::+  DescribeAccountAttributes+newDescribeAccountAttributes =+  DescribeAccountAttributes'++instance Core.AWSRequest DescribeAccountAttributes where+  type+    AWSResponse DescribeAccountAttributes =+      DescribeAccountAttributesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeAccountAttributesResponse'+            Prelude.<$> (x Data..?> "Attributes" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeAccountAttributes where+  hashWithSalt _salt _ =+    _salt `Prelude.hashWithSalt` ()++instance Prelude.NFData DescribeAccountAttributes where+  rnf _ = ()++instance Data.ToHeaders DescribeAccountAttributes where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "OpsWorksCM_V2016_11_01.DescribeAccountAttributes" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeAccountAttributes where+  toJSON = Prelude.const (Data.Object Prelude.mempty)++instance Data.ToPath DescribeAccountAttributes where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeAccountAttributes where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeAccountAttributesResponse' smart constructor.+data DescribeAccountAttributesResponse = DescribeAccountAttributesResponse'+  { -- | The attributes that are currently set for the account.+    attributes :: Prelude.Maybe [AccountAttribute],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeAccountAttributesResponse' 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:+--+-- 'attributes', 'describeAccountAttributesResponse_attributes' - The attributes that are currently set for the account.+--+-- 'httpStatus', 'describeAccountAttributesResponse_httpStatus' - The response's http status code.+newDescribeAccountAttributesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeAccountAttributesResponse+newDescribeAccountAttributesResponse pHttpStatus_ =+  DescribeAccountAttributesResponse'+    { attributes =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The attributes that are currently set for the account.+describeAccountAttributesResponse_attributes :: Lens.Lens' DescribeAccountAttributesResponse (Prelude.Maybe [AccountAttribute])+describeAccountAttributesResponse_attributes = Lens.lens (\DescribeAccountAttributesResponse' {attributes} -> attributes) (\s@DescribeAccountAttributesResponse' {} a -> s {attributes = a} :: DescribeAccountAttributesResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeAccountAttributesResponse_httpStatus :: Lens.Lens' DescribeAccountAttributesResponse Prelude.Int+describeAccountAttributesResponse_httpStatus = Lens.lens (\DescribeAccountAttributesResponse' {httpStatus} -> httpStatus) (\s@DescribeAccountAttributesResponse' {} a -> s {httpStatus = a} :: DescribeAccountAttributesResponse)++instance+  Prelude.NFData+    DescribeAccountAttributesResponse+  where+  rnf DescribeAccountAttributesResponse' {..} =+    Prelude.rnf attributes+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,253 @@+{-# 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.OpsWorksCM.DescribeBackups+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes backups. The results are ordered by time, with newest backups+-- first. If you do not specify a BackupId or ServerName, the command+-- returns all backups.+--+-- This operation is synchronous.+--+-- A @ResourceNotFoundException@ is thrown when the backup does not exist.+-- A @ValidationException@ is raised when parameters of the request are not+-- valid.+--+-- This operation returns paginated results.+module Amazonka.OpsWorksCM.DescribeBackups+  ( -- * Creating a Request+    DescribeBackups (..),+    newDescribeBackups,++    -- * Request Lenses+    describeBackups_backupId,+    describeBackups_maxResults,+    describeBackups_nextToken,+    describeBackups_serverName,++    -- * Destructuring the Response+    DescribeBackupsResponse (..),+    newDescribeBackupsResponse,++    -- * Response Lenses+    describeBackupsResponse_backups,+    describeBackupsResponse_nextToken,+    describeBackupsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.OpsWorksCM.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeBackups' smart constructor.+data DescribeBackups = DescribeBackups'+  { -- | Describes a single backup.+    backupId :: Prelude.Maybe Prelude.Text,+    -- | This is not currently implemented for @DescribeBackups@ requests.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | This is not currently implemented for @DescribeBackups@ requests.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Returns backups for the server with the specified ServerName.+    serverName :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeBackups' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'backupId', 'describeBackups_backupId' - Describes a single backup.+--+-- 'maxResults', 'describeBackups_maxResults' - This is not currently implemented for @DescribeBackups@ requests.+--+-- 'nextToken', 'describeBackups_nextToken' - This is not currently implemented for @DescribeBackups@ requests.+--+-- 'serverName', 'describeBackups_serverName' - Returns backups for the server with the specified ServerName.+newDescribeBackups ::+  DescribeBackups+newDescribeBackups =+  DescribeBackups'+    { backupId = Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      serverName = Prelude.Nothing+    }++-- | Describes a single backup.+describeBackups_backupId :: Lens.Lens' DescribeBackups (Prelude.Maybe Prelude.Text)+describeBackups_backupId = Lens.lens (\DescribeBackups' {backupId} -> backupId) (\s@DescribeBackups' {} a -> s {backupId = a} :: DescribeBackups)++-- | This is not currently implemented for @DescribeBackups@ requests.+describeBackups_maxResults :: Lens.Lens' DescribeBackups (Prelude.Maybe Prelude.Natural)+describeBackups_maxResults = Lens.lens (\DescribeBackups' {maxResults} -> maxResults) (\s@DescribeBackups' {} a -> s {maxResults = a} :: DescribeBackups)++-- | This is not currently implemented for @DescribeBackups@ requests.+describeBackups_nextToken :: Lens.Lens' DescribeBackups (Prelude.Maybe Prelude.Text)+describeBackups_nextToken = Lens.lens (\DescribeBackups' {nextToken} -> nextToken) (\s@DescribeBackups' {} a -> s {nextToken = a} :: DescribeBackups)++-- | Returns backups for the server with the specified ServerName.+describeBackups_serverName :: Lens.Lens' DescribeBackups (Prelude.Maybe Prelude.Text)+describeBackups_serverName = Lens.lens (\DescribeBackups' {serverName} -> serverName) (\s@DescribeBackups' {} a -> s {serverName = a} :: DescribeBackups)++instance Core.AWSPager DescribeBackups where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeBackupsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeBackupsResponse_backups+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeBackups_nextToken+          Lens..~ rs+          Lens.^? describeBackupsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest DescribeBackups where+  type+    AWSResponse DescribeBackups =+      DescribeBackupsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeBackupsResponse'+            Prelude.<$> (x Data..?> "Backups" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeBackups where+  hashWithSalt _salt DescribeBackups' {..} =+    _salt+      `Prelude.hashWithSalt` backupId+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` serverName++instance Prelude.NFData DescribeBackups where+  rnf DescribeBackups' {..} =+    Prelude.rnf backupId+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf serverName++instance Data.ToHeaders DescribeBackups where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "OpsWorksCM_V2016_11_01.DescribeBackups" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeBackups where+  toJSON DescribeBackups' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("BackupId" Data..=) Prelude.<$> backupId,+            ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            ("ServerName" Data..=) Prelude.<$> serverName+          ]+      )++instance Data.ToPath DescribeBackups where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeBackups where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeBackupsResponse' smart constructor.+data DescribeBackupsResponse = DescribeBackupsResponse'+  { -- | Contains the response to a @DescribeBackups@ request.+    backups :: Prelude.Maybe [Backup],+    -- | This is not currently implemented for @DescribeBackups@ requests.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeBackupsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'backups', 'describeBackupsResponse_backups' - Contains the response to a @DescribeBackups@ request.+--+-- 'nextToken', 'describeBackupsResponse_nextToken' - This is not currently implemented for @DescribeBackups@ requests.+--+-- 'httpStatus', 'describeBackupsResponse_httpStatus' - The response's http status code.+newDescribeBackupsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeBackupsResponse+newDescribeBackupsResponse pHttpStatus_ =+  DescribeBackupsResponse'+    { backups = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Contains the response to a @DescribeBackups@ request.+describeBackupsResponse_backups :: Lens.Lens' DescribeBackupsResponse (Prelude.Maybe [Backup])+describeBackupsResponse_backups = Lens.lens (\DescribeBackupsResponse' {backups} -> backups) (\s@DescribeBackupsResponse' {} a -> s {backups = a} :: DescribeBackupsResponse) Prelude.. Lens.mapping Lens.coerced++-- | This is not currently implemented for @DescribeBackups@ requests.+describeBackupsResponse_nextToken :: Lens.Lens' DescribeBackupsResponse (Prelude.Maybe Prelude.Text)+describeBackupsResponse_nextToken = Lens.lens (\DescribeBackupsResponse' {nextToken} -> nextToken) (\s@DescribeBackupsResponse' {} a -> s {nextToken = a} :: DescribeBackupsResponse)++-- | The response's http status code.+describeBackupsResponse_httpStatus :: Lens.Lens' DescribeBackupsResponse Prelude.Int+describeBackupsResponse_httpStatus = Lens.lens (\DescribeBackupsResponse' {httpStatus} -> httpStatus) (\s@DescribeBackupsResponse' {} a -> s {httpStatus = a} :: DescribeBackupsResponse)++instance Prelude.NFData DescribeBackupsResponse where+  rnf DescribeBackupsResponse' {..} =+    Prelude.rnf backups+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,296 @@+{-# 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.OpsWorksCM.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)+--+-- Describes events for a specified server. Results are ordered by time,+-- with newest events first.+--+-- This operation is synchronous.+--+-- A @ResourceNotFoundException@ is thrown when the server does not exist.+-- A @ValidationException@ is raised when parameters of the request are not+-- valid.+--+-- This operation returns paginated results.+module Amazonka.OpsWorksCM.DescribeEvents+  ( -- * Creating a Request+    DescribeEvents (..),+    newDescribeEvents,++    -- * Request Lenses+    describeEvents_maxResults,+    describeEvents_nextToken,+    describeEvents_serverName,++    -- * Destructuring the Response+    DescribeEventsResponse (..),+    newDescribeEventsResponse,++    -- * Response Lenses+    describeEventsResponse_nextToken,+    describeEventsResponse_serverEvents,+    describeEventsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.OpsWorksCM.Types+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'+  { -- | To receive a paginated response, use this parameter to specify the+    -- maximum number of results to be returned with a single call. If the+    -- number of available results exceeds this maximum, the response includes+    -- a @NextToken@ value that you can assign to the @NextToken@ request+    -- parameter to get the next set of results.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | NextToken is a string that is returned in some command responses. It+    -- indicates that not all entries have been returned, and that you must run+    -- at least one more request to get remaining items. To get remaining+    -- results, call @DescribeEvents@ again, and assign the token from the+    -- previous results as the value of the @nextToken@ parameter. If there are+    -- no more results, the response object\'s @nextToken@ parameter value is+    -- @null@. Setting a @nextToken@ value that was not returned in your+    -- previous results causes an @InvalidNextTokenException@ to occur.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The name of the server for which you want to view events.+    serverName :: Prelude.Text+  }+  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:+--+-- 'maxResults', 'describeEvents_maxResults' - To receive a paginated response, use this parameter to specify the+-- maximum number of results to be returned with a single call. If the+-- number of available results exceeds this maximum, the response includes+-- a @NextToken@ value that you can assign to the @NextToken@ request+-- parameter to get the next set of results.+--+-- 'nextToken', 'describeEvents_nextToken' - NextToken is a string that is returned in some command responses. It+-- indicates that not all entries have been returned, and that you must run+-- at least one more request to get remaining items. To get remaining+-- results, call @DescribeEvents@ again, and assign the token from the+-- previous results as the value of the @nextToken@ parameter. If there are+-- no more results, the response object\'s @nextToken@ parameter value is+-- @null@. Setting a @nextToken@ value that was not returned in your+-- previous results causes an @InvalidNextTokenException@ to occur.+--+-- 'serverName', 'describeEvents_serverName' - The name of the server for which you want to view events.+newDescribeEvents ::+  -- | 'serverName'+  Prelude.Text ->+  DescribeEvents+newDescribeEvents pServerName_ =+  DescribeEvents'+    { maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      serverName = pServerName_+    }++-- | To receive a paginated response, use this parameter to specify the+-- maximum number of results to be returned with a single call. If the+-- number of available results exceeds this maximum, the response includes+-- a @NextToken@ value that you can assign to the @NextToken@ request+-- parameter to get the next set of results.+describeEvents_maxResults :: Lens.Lens' DescribeEvents (Prelude.Maybe Prelude.Natural)+describeEvents_maxResults = Lens.lens (\DescribeEvents' {maxResults} -> maxResults) (\s@DescribeEvents' {} a -> s {maxResults = a} :: DescribeEvents)++-- | NextToken is a string that is returned in some command responses. It+-- indicates that not all entries have been returned, and that you must run+-- at least one more request to get remaining items. To get remaining+-- results, call @DescribeEvents@ again, and assign the token from the+-- previous results as the value of the @nextToken@ parameter. If there are+-- no more results, the response object\'s @nextToken@ parameter value is+-- @null@. Setting a @nextToken@ value that was not returned in your+-- previous results causes an @InvalidNextTokenException@ to occur.+describeEvents_nextToken :: Lens.Lens' DescribeEvents (Prelude.Maybe Prelude.Text)+describeEvents_nextToken = Lens.lens (\DescribeEvents' {nextToken} -> nextToken) (\s@DescribeEvents' {} a -> s {nextToken = a} :: DescribeEvents)++-- | The name of the server for which you want to view events.+describeEvents_serverName :: Lens.Lens' DescribeEvents Prelude.Text+describeEvents_serverName = Lens.lens (\DescribeEvents' {serverName} -> serverName) (\s@DescribeEvents' {} a -> s {serverName = a} :: DescribeEvents)++instance Core.AWSPager DescribeEvents where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeEventsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeEventsResponse_serverEvents+            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..?> "NextToken")+            Prelude.<*> (x Data..?> "ServerEvents" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeEvents where+  hashWithSalt _salt DescribeEvents' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` serverName++instance Prelude.NFData DescribeEvents where+  rnf DescribeEvents' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf serverName++instance Data.ToHeaders DescribeEvents where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "OpsWorksCM_V2016_11_01.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+          [ ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("ServerName" Data..= serverName)+          ]+      )++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'+  { -- | NextToken is a string that is returned in some command responses. It+    -- indicates that not all entries have been returned, and that you must run+    -- at least one more request to get remaining items. To get remaining+    -- results, call @DescribeEvents@ again, and assign the token from the+    -- previous results as the value of the @nextToken@ parameter. If there are+    -- no more results, the response object\'s @nextToken@ parameter value is+    -- @null@. Setting a @nextToken@ value that was not returned in your+    -- previous results causes an @InvalidNextTokenException@ to occur.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Contains the response to a @DescribeEvents@ request.+    serverEvents :: Prelude.Maybe [ServerEvent],+    -- | 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:+--+-- 'nextToken', 'describeEventsResponse_nextToken' - NextToken is a string that is returned in some command responses. It+-- indicates that not all entries have been returned, and that you must run+-- at least one more request to get remaining items. To get remaining+-- results, call @DescribeEvents@ again, and assign the token from the+-- previous results as the value of the @nextToken@ parameter. If there are+-- no more results, the response object\'s @nextToken@ parameter value is+-- @null@. Setting a @nextToken@ value that was not returned in your+-- previous results causes an @InvalidNextTokenException@ to occur.+--+-- 'serverEvents', 'describeEventsResponse_serverEvents' - Contains the response to a @DescribeEvents@ request.+--+-- 'httpStatus', 'describeEventsResponse_httpStatus' - The response's http status code.+newDescribeEventsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeEventsResponse+newDescribeEventsResponse pHttpStatus_ =+  DescribeEventsResponse'+    { nextToken =+        Prelude.Nothing,+      serverEvents = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | NextToken is a string that is returned in some command responses. It+-- indicates that not all entries have been returned, and that you must run+-- at least one more request to get remaining items. To get remaining+-- results, call @DescribeEvents@ again, and assign the token from the+-- previous results as the value of the @nextToken@ parameter. If there are+-- no more results, the response object\'s @nextToken@ parameter value is+-- @null@. Setting a @nextToken@ value that was not returned in your+-- previous results causes an @InvalidNextTokenException@ to occur.+describeEventsResponse_nextToken :: Lens.Lens' DescribeEventsResponse (Prelude.Maybe Prelude.Text)+describeEventsResponse_nextToken = Lens.lens (\DescribeEventsResponse' {nextToken} -> nextToken) (\s@DescribeEventsResponse' {} a -> s {nextToken = a} :: DescribeEventsResponse)++-- | Contains the response to a @DescribeEvents@ request.+describeEventsResponse_serverEvents :: Lens.Lens' DescribeEventsResponse (Prelude.Maybe [ServerEvent])+describeEventsResponse_serverEvents = Lens.lens (\DescribeEventsResponse' {serverEvents} -> serverEvents) (\s@DescribeEventsResponse' {} a -> s {serverEvents = a} :: DescribeEventsResponse) Prelude.. Lens.mapping Lens.coerced++-- | 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 nextToken+      `Prelude.seq` Prelude.rnf serverEvents+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,265 @@+{-# 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.OpsWorksCM.DescribeNodeAssociationStatus+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the current status of an existing association or disassociation+-- request.+--+-- A @ResourceNotFoundException@ is thrown when no recent association or+-- disassociation request with the specified token is found, or when the+-- server does not exist. A @ValidationException@ is raised when parameters+-- of the request are not valid.+module Amazonka.OpsWorksCM.DescribeNodeAssociationStatus+  ( -- * Creating a Request+    DescribeNodeAssociationStatus (..),+    newDescribeNodeAssociationStatus,++    -- * Request Lenses+    describeNodeAssociationStatus_nodeAssociationStatusToken,+    describeNodeAssociationStatus_serverName,++    -- * Destructuring the Response+    DescribeNodeAssociationStatusResponse (..),+    newDescribeNodeAssociationStatusResponse,++    -- * Response Lenses+    describeNodeAssociationStatusResponse_engineAttributes,+    describeNodeAssociationStatusResponse_httpStatus,+    describeNodeAssociationStatusResponse_nodeAssociationStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.OpsWorksCM.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeNodeAssociationStatus' smart constructor.+data DescribeNodeAssociationStatus = DescribeNodeAssociationStatus'+  { -- | The token returned in either the AssociateNodeResponse or the+    -- DisassociateNodeResponse.+    nodeAssociationStatusToken :: Prelude.Text,+    -- | The name of the server from which to disassociate the node.+    serverName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeNodeAssociationStatus' 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:+--+-- 'nodeAssociationStatusToken', 'describeNodeAssociationStatus_nodeAssociationStatusToken' - The token returned in either the AssociateNodeResponse or the+-- DisassociateNodeResponse.+--+-- 'serverName', 'describeNodeAssociationStatus_serverName' - The name of the server from which to disassociate the node.+newDescribeNodeAssociationStatus ::+  -- | 'nodeAssociationStatusToken'+  Prelude.Text ->+  -- | 'serverName'+  Prelude.Text ->+  DescribeNodeAssociationStatus+newDescribeNodeAssociationStatus+  pNodeAssociationStatusToken_+  pServerName_ =+    DescribeNodeAssociationStatus'+      { nodeAssociationStatusToken =+          pNodeAssociationStatusToken_,+        serverName = pServerName_+      }++-- | The token returned in either the AssociateNodeResponse or the+-- DisassociateNodeResponse.+describeNodeAssociationStatus_nodeAssociationStatusToken :: Lens.Lens' DescribeNodeAssociationStatus Prelude.Text+describeNodeAssociationStatus_nodeAssociationStatusToken = Lens.lens (\DescribeNodeAssociationStatus' {nodeAssociationStatusToken} -> nodeAssociationStatusToken) (\s@DescribeNodeAssociationStatus' {} a -> s {nodeAssociationStatusToken = a} :: DescribeNodeAssociationStatus)++-- | The name of the server from which to disassociate the node.+describeNodeAssociationStatus_serverName :: Lens.Lens' DescribeNodeAssociationStatus Prelude.Text+describeNodeAssociationStatus_serverName = Lens.lens (\DescribeNodeAssociationStatus' {serverName} -> serverName) (\s@DescribeNodeAssociationStatus' {} a -> s {serverName = a} :: DescribeNodeAssociationStatus)++instance+  Core.AWSRequest+    DescribeNodeAssociationStatus+  where+  type+    AWSResponse DescribeNodeAssociationStatus =+      DescribeNodeAssociationStatusResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeNodeAssociationStatusResponse'+            Prelude.<$> ( x+                            Data..?> "EngineAttributes"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "NodeAssociationStatus")+      )++instance+  Prelude.Hashable+    DescribeNodeAssociationStatus+  where+  hashWithSalt _salt DescribeNodeAssociationStatus' {..} =+    _salt+      `Prelude.hashWithSalt` nodeAssociationStatusToken+      `Prelude.hashWithSalt` serverName++instance Prelude.NFData DescribeNodeAssociationStatus where+  rnf DescribeNodeAssociationStatus' {..} =+    Prelude.rnf nodeAssociationStatusToken+      `Prelude.seq` Prelude.rnf serverName++instance Data.ToHeaders DescribeNodeAssociationStatus where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "OpsWorksCM_V2016_11_01.DescribeNodeAssociationStatus" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeNodeAssociationStatus where+  toJSON DescribeNodeAssociationStatus' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ( "NodeAssociationStatusToken"+                  Data..= nodeAssociationStatusToken+              ),+            Prelude.Just ("ServerName" Data..= serverName)+          ]+      )++instance Data.ToPath DescribeNodeAssociationStatus where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeNodeAssociationStatus where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeNodeAssociationStatusResponse' smart constructor.+data DescribeNodeAssociationStatusResponse = DescribeNodeAssociationStatusResponse'+  { -- | Attributes specific to the node association. In Puppet, the attibute+    -- PUPPET_NODE_CERT contains the signed certificate (the result of the+    -- CSR).+    engineAttributes :: Prelude.Maybe [EngineAttribute],+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The status of the association or disassociation request.+    --+    -- __Possible values:__+    --+    -- -   @SUCCESS@: The association or disassociation succeeded.+    --+    -- -   @FAILED@: The association or disassociation failed.+    --+    -- -   @IN_PROGRESS@: The association or disassociation is still in+    --     progress.+    nodeAssociationStatus :: NodeAssociationStatus+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeNodeAssociationStatusResponse' 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:+--+-- 'engineAttributes', 'describeNodeAssociationStatusResponse_engineAttributes' - Attributes specific to the node association. In Puppet, the attibute+-- PUPPET_NODE_CERT contains the signed certificate (the result of the+-- CSR).+--+-- 'httpStatus', 'describeNodeAssociationStatusResponse_httpStatus' - The response's http status code.+--+-- 'nodeAssociationStatus', 'describeNodeAssociationStatusResponse_nodeAssociationStatus' - The status of the association or disassociation request.+--+-- __Possible values:__+--+-- -   @SUCCESS@: The association or disassociation succeeded.+--+-- -   @FAILED@: The association or disassociation failed.+--+-- -   @IN_PROGRESS@: The association or disassociation is still in+--     progress.+newDescribeNodeAssociationStatusResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'nodeAssociationStatus'+  NodeAssociationStatus ->+  DescribeNodeAssociationStatusResponse+newDescribeNodeAssociationStatusResponse+  pHttpStatus_+  pNodeAssociationStatus_ =+    DescribeNodeAssociationStatusResponse'+      { engineAttributes =+          Prelude.Nothing,+        httpStatus = pHttpStatus_,+        nodeAssociationStatus =+          pNodeAssociationStatus_+      }++-- | Attributes specific to the node association. In Puppet, the attibute+-- PUPPET_NODE_CERT contains the signed certificate (the result of the+-- CSR).+describeNodeAssociationStatusResponse_engineAttributes :: Lens.Lens' DescribeNodeAssociationStatusResponse (Prelude.Maybe [EngineAttribute])+describeNodeAssociationStatusResponse_engineAttributes = Lens.lens (\DescribeNodeAssociationStatusResponse' {engineAttributes} -> engineAttributes) (\s@DescribeNodeAssociationStatusResponse' {} a -> s {engineAttributes = a} :: DescribeNodeAssociationStatusResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeNodeAssociationStatusResponse_httpStatus :: Lens.Lens' DescribeNodeAssociationStatusResponse Prelude.Int+describeNodeAssociationStatusResponse_httpStatus = Lens.lens (\DescribeNodeAssociationStatusResponse' {httpStatus} -> httpStatus) (\s@DescribeNodeAssociationStatusResponse' {} a -> s {httpStatus = a} :: DescribeNodeAssociationStatusResponse)++-- | The status of the association or disassociation request.+--+-- __Possible values:__+--+-- -   @SUCCESS@: The association or disassociation succeeded.+--+-- -   @FAILED@: The association or disassociation failed.+--+-- -   @IN_PROGRESS@: The association or disassociation is still in+--     progress.+describeNodeAssociationStatusResponse_nodeAssociationStatus :: Lens.Lens' DescribeNodeAssociationStatusResponse NodeAssociationStatus+describeNodeAssociationStatusResponse_nodeAssociationStatus = Lens.lens (\DescribeNodeAssociationStatusResponse' {nodeAssociationStatus} -> nodeAssociationStatus) (\s@DescribeNodeAssociationStatusResponse' {} a -> s {nodeAssociationStatus = a} :: DescribeNodeAssociationStatusResponse)++instance+  Prelude.NFData+    DescribeNodeAssociationStatusResponse+  where+  rnf DescribeNodeAssociationStatusResponse' {..} =+    Prelude.rnf engineAttributes+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf nodeAssociationStatus

@@ -0,0 +1,301 @@+{-# 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.OpsWorksCM.DescribeServers+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists all configuration management servers that are identified with your+-- account. Only the stored results from Amazon DynamoDB are returned. AWS+-- OpsWorks CM does not query other services.+--+-- This operation is synchronous.+--+-- A @ResourceNotFoundException@ is thrown when the server does not exist.+-- A @ValidationException@ is raised when parameters of the request are not+-- valid.+--+-- This operation returns paginated results.+module Amazonka.OpsWorksCM.DescribeServers+  ( -- * Creating a Request+    DescribeServers (..),+    newDescribeServers,++    -- * Request Lenses+    describeServers_maxResults,+    describeServers_nextToken,+    describeServers_serverName,++    -- * Destructuring the Response+    DescribeServersResponse (..),+    newDescribeServersResponse,++    -- * Response Lenses+    describeServersResponse_nextToken,+    describeServersResponse_servers,+    describeServersResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.OpsWorksCM.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeServers' smart constructor.+data DescribeServers = DescribeServers'+  { -- | This is not currently implemented for @DescribeServers@ requests.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | This is not currently implemented for @DescribeServers@ requests.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Describes the server with the specified ServerName.+    serverName :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeServers' 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', 'describeServers_maxResults' - This is not currently implemented for @DescribeServers@ requests.+--+-- 'nextToken', 'describeServers_nextToken' - This is not currently implemented for @DescribeServers@ requests.+--+-- 'serverName', 'describeServers_serverName' - Describes the server with the specified ServerName.+newDescribeServers ::+  DescribeServers+newDescribeServers =+  DescribeServers'+    { maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      serverName = Prelude.Nothing+    }++-- | This is not currently implemented for @DescribeServers@ requests.+describeServers_maxResults :: Lens.Lens' DescribeServers (Prelude.Maybe Prelude.Natural)+describeServers_maxResults = Lens.lens (\DescribeServers' {maxResults} -> maxResults) (\s@DescribeServers' {} a -> s {maxResults = a} :: DescribeServers)++-- | This is not currently implemented for @DescribeServers@ requests.+describeServers_nextToken :: Lens.Lens' DescribeServers (Prelude.Maybe Prelude.Text)+describeServers_nextToken = Lens.lens (\DescribeServers' {nextToken} -> nextToken) (\s@DescribeServers' {} a -> s {nextToken = a} :: DescribeServers)++-- | Describes the server with the specified ServerName.+describeServers_serverName :: Lens.Lens' DescribeServers (Prelude.Maybe Prelude.Text)+describeServers_serverName = Lens.lens (\DescribeServers' {serverName} -> serverName) (\s@DescribeServers' {} a -> s {serverName = a} :: DescribeServers)++instance Core.AWSPager DescribeServers where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeServersResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeServersResponse_servers+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeServers_nextToken+          Lens..~ rs+          Lens.^? describeServersResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest DescribeServers where+  type+    AWSResponse DescribeServers =+      DescribeServersResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeServersResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> (x Data..?> "Servers" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeServers where+  hashWithSalt _salt DescribeServers' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` serverName++instance Prelude.NFData DescribeServers where+  rnf DescribeServers' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf serverName++instance Data.ToHeaders DescribeServers where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "OpsWorksCM_V2016_11_01.DescribeServers" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeServers where+  toJSON DescribeServers' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            ("ServerName" Data..=) Prelude.<$> serverName+          ]+      )++instance Data.ToPath DescribeServers where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeServers where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeServersResponse' smart constructor.+data DescribeServersResponse = DescribeServersResponse'+  { -- | This is not currently implemented for @DescribeServers@ requests.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Contains the response to a @DescribeServers@ request.+    --+    -- /For Chef Automate servers:/ If+    -- @DescribeServersResponse$Servers$EngineAttributes@ includes+    -- CHEF_MAJOR_UPGRADE_AVAILABLE, you can upgrade the Chef Automate server+    -- to Chef Automate 2. To be eligible for upgrade, a server running Chef+    -- Automate 1 must have had at least one successful maintenance run after+    -- November 1, 2019.+    --+    -- /For Puppet servers:/ @DescribeServersResponse$Servers$EngineAttributes@+    -- contains the following two responses:+    --+    -- -   @PUPPET_API_CA_CERT@, the PEM-encoded CA certificate that is used by+    --     the Puppet API over TCP port number 8140. The CA certificate is also+    --     used to sign node certificates.+    --+    -- -   @PUPPET_API_CRL@, a certificate revocation list. The certificate+    --     revocation list is for internal maintenance purposes only. For more+    --     information about the Puppet certificate revocation list, see+    --     <https://puppet.com/docs/puppet/5.5/man/certificate_revocation_list.html Man Page: puppet certificate_revocation_list>+    --     in the Puppet documentation.+    servers :: Prelude.Maybe [Server],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeServersResponse' 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', 'describeServersResponse_nextToken' - This is not currently implemented for @DescribeServers@ requests.+--+-- 'servers', 'describeServersResponse_servers' - Contains the response to a @DescribeServers@ request.+--+-- /For Chef Automate servers:/ If+-- @DescribeServersResponse$Servers$EngineAttributes@ includes+-- CHEF_MAJOR_UPGRADE_AVAILABLE, you can upgrade the Chef Automate server+-- to Chef Automate 2. To be eligible for upgrade, a server running Chef+-- Automate 1 must have had at least one successful maintenance run after+-- November 1, 2019.+--+-- /For Puppet servers:/ @DescribeServersResponse$Servers$EngineAttributes@+-- contains the following two responses:+--+-- -   @PUPPET_API_CA_CERT@, the PEM-encoded CA certificate that is used by+--     the Puppet API over TCP port number 8140. The CA certificate is also+--     used to sign node certificates.+--+-- -   @PUPPET_API_CRL@, a certificate revocation list. The certificate+--     revocation list is for internal maintenance purposes only. For more+--     information about the Puppet certificate revocation list, see+--     <https://puppet.com/docs/puppet/5.5/man/certificate_revocation_list.html Man Page: puppet certificate_revocation_list>+--     in the Puppet documentation.+--+-- 'httpStatus', 'describeServersResponse_httpStatus' - The response's http status code.+newDescribeServersResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeServersResponse+newDescribeServersResponse pHttpStatus_ =+  DescribeServersResponse'+    { nextToken =+        Prelude.Nothing,+      servers = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | This is not currently implemented for @DescribeServers@ requests.+describeServersResponse_nextToken :: Lens.Lens' DescribeServersResponse (Prelude.Maybe Prelude.Text)+describeServersResponse_nextToken = Lens.lens (\DescribeServersResponse' {nextToken} -> nextToken) (\s@DescribeServersResponse' {} a -> s {nextToken = a} :: DescribeServersResponse)++-- | Contains the response to a @DescribeServers@ request.+--+-- /For Chef Automate servers:/ If+-- @DescribeServersResponse$Servers$EngineAttributes@ includes+-- CHEF_MAJOR_UPGRADE_AVAILABLE, you can upgrade the Chef Automate server+-- to Chef Automate 2. To be eligible for upgrade, a server running Chef+-- Automate 1 must have had at least one successful maintenance run after+-- November 1, 2019.+--+-- /For Puppet servers:/ @DescribeServersResponse$Servers$EngineAttributes@+-- contains the following two responses:+--+-- -   @PUPPET_API_CA_CERT@, the PEM-encoded CA certificate that is used by+--     the Puppet API over TCP port number 8140. The CA certificate is also+--     used to sign node certificates.+--+-- -   @PUPPET_API_CRL@, a certificate revocation list. The certificate+--     revocation list is for internal maintenance purposes only. For more+--     information about the Puppet certificate revocation list, see+--     <https://puppet.com/docs/puppet/5.5/man/certificate_revocation_list.html Man Page: puppet certificate_revocation_list>+--     in the Puppet documentation.+describeServersResponse_servers :: Lens.Lens' DescribeServersResponse (Prelude.Maybe [Server])+describeServersResponse_servers = Lens.lens (\DescribeServersResponse' {servers} -> servers) (\s@DescribeServersResponse' {} a -> s {servers = a} :: DescribeServersResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeServersResponse_httpStatus :: Lens.Lens' DescribeServersResponse Prelude.Int+describeServersResponse_httpStatus = Lens.lens (\DescribeServersResponse' {httpStatus} -> httpStatus) (\s@DescribeServersResponse' {} a -> s {httpStatus = a} :: DescribeServersResponse)++instance Prelude.NFData DescribeServersResponse where+  rnf DescribeServersResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf servers+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,240 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.OpsWorksCM.DisassociateNode+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Disassociates a node from an AWS OpsWorks CM server, and removes the+-- node from the server\'s managed nodes. After a node is disassociated,+-- the node key pair is no longer valid for accessing the configuration+-- manager\'s API. For more information about how to associate a node, see+-- AssociateNode.+--+-- A node can can only be disassociated from a server that is in a+-- @HEALTHY@ state. Otherwise, an @InvalidStateException@ is thrown. A+-- @ResourceNotFoundException@ is thrown when the server does not exist. A+-- @ValidationException@ is raised when parameters of the request are not+-- valid.+module Amazonka.OpsWorksCM.DisassociateNode+  ( -- * Creating a Request+    DisassociateNode (..),+    newDisassociateNode,++    -- * Request Lenses+    disassociateNode_engineAttributes,+    disassociateNode_serverName,+    disassociateNode_nodeName,++    -- * Destructuring the Response+    DisassociateNodeResponse (..),+    newDisassociateNodeResponse,++    -- * Response Lenses+    disassociateNodeResponse_nodeAssociationStatusToken,+    disassociateNodeResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.OpsWorksCM.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDisassociateNode' smart constructor.+data DisassociateNode = DisassociateNode'+  { -- | Engine attributes that are used for disassociating the node. No+    -- attributes are required for Puppet.+    --+    -- __Attributes required in a DisassociateNode request for Chef__+    --+    -- -   @CHEF_ORGANIZATION@: The Chef organization with which the node was+    --     associated. By default only one organization named @default@ can+    --     exist.+    engineAttributes :: Prelude.Maybe [EngineAttribute],+    -- | The name of the server from which to disassociate the node.+    serverName :: Prelude.Text,+    -- | The name of the client node.+    nodeName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DisassociateNode' 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:+--+-- 'engineAttributes', 'disassociateNode_engineAttributes' - Engine attributes that are used for disassociating the node. No+-- attributes are required for Puppet.+--+-- __Attributes required in a DisassociateNode request for Chef__+--+-- -   @CHEF_ORGANIZATION@: The Chef organization with which the node was+--     associated. By default only one organization named @default@ can+--     exist.+--+-- 'serverName', 'disassociateNode_serverName' - The name of the server from which to disassociate the node.+--+-- 'nodeName', 'disassociateNode_nodeName' - The name of the client node.+newDisassociateNode ::+  -- | 'serverName'+  Prelude.Text ->+  -- | 'nodeName'+  Prelude.Text ->+  DisassociateNode+newDisassociateNode pServerName_ pNodeName_ =+  DisassociateNode'+    { engineAttributes =+        Prelude.Nothing,+      serverName = pServerName_,+      nodeName = pNodeName_+    }++-- | Engine attributes that are used for disassociating the node. No+-- attributes are required for Puppet.+--+-- __Attributes required in a DisassociateNode request for Chef__+--+-- -   @CHEF_ORGANIZATION@: The Chef organization with which the node was+--     associated. By default only one organization named @default@ can+--     exist.+disassociateNode_engineAttributes :: Lens.Lens' DisassociateNode (Prelude.Maybe [EngineAttribute])+disassociateNode_engineAttributes = Lens.lens (\DisassociateNode' {engineAttributes} -> engineAttributes) (\s@DisassociateNode' {} a -> s {engineAttributes = a} :: DisassociateNode) Prelude.. Lens.mapping Lens.coerced++-- | The name of the server from which to disassociate the node.+disassociateNode_serverName :: Lens.Lens' DisassociateNode Prelude.Text+disassociateNode_serverName = Lens.lens (\DisassociateNode' {serverName} -> serverName) (\s@DisassociateNode' {} a -> s {serverName = a} :: DisassociateNode)++-- | The name of the client node.+disassociateNode_nodeName :: Lens.Lens' DisassociateNode Prelude.Text+disassociateNode_nodeName = Lens.lens (\DisassociateNode' {nodeName} -> nodeName) (\s@DisassociateNode' {} a -> s {nodeName = a} :: DisassociateNode)++instance Core.AWSRequest DisassociateNode where+  type+    AWSResponse DisassociateNode =+      DisassociateNodeResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DisassociateNodeResponse'+            Prelude.<$> (x Data..?> "NodeAssociationStatusToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DisassociateNode where+  hashWithSalt _salt DisassociateNode' {..} =+    _salt+      `Prelude.hashWithSalt` engineAttributes+      `Prelude.hashWithSalt` serverName+      `Prelude.hashWithSalt` nodeName++instance Prelude.NFData DisassociateNode where+  rnf DisassociateNode' {..} =+    Prelude.rnf engineAttributes+      `Prelude.seq` Prelude.rnf serverName+      `Prelude.seq` Prelude.rnf nodeName++instance Data.ToHeaders DisassociateNode where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "OpsWorksCM_V2016_11_01.DisassociateNode" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DisassociateNode where+  toJSON DisassociateNode' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("EngineAttributes" Data..=)+              Prelude.<$> engineAttributes,+            Prelude.Just ("ServerName" Data..= serverName),+            Prelude.Just ("NodeName" Data..= nodeName)+          ]+      )++instance Data.ToPath DisassociateNode where+  toPath = Prelude.const "/"++instance Data.ToQuery DisassociateNode where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDisassociateNodeResponse' smart constructor.+data DisassociateNodeResponse = DisassociateNodeResponse'+  { -- | Contains a token which can be passed to the+    -- @DescribeNodeAssociationStatus@ API call to get the status of the+    -- disassociation request.+    nodeAssociationStatusToken :: 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 'DisassociateNodeResponse' 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:+--+-- 'nodeAssociationStatusToken', 'disassociateNodeResponse_nodeAssociationStatusToken' - Contains a token which can be passed to the+-- @DescribeNodeAssociationStatus@ API call to get the status of the+-- disassociation request.+--+-- 'httpStatus', 'disassociateNodeResponse_httpStatus' - The response's http status code.+newDisassociateNodeResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DisassociateNodeResponse+newDisassociateNodeResponse pHttpStatus_ =+  DisassociateNodeResponse'+    { nodeAssociationStatusToken =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Contains a token which can be passed to the+-- @DescribeNodeAssociationStatus@ API call to get the status of the+-- disassociation request.+disassociateNodeResponse_nodeAssociationStatusToken :: Lens.Lens' DisassociateNodeResponse (Prelude.Maybe Prelude.Text)+disassociateNodeResponse_nodeAssociationStatusToken = Lens.lens (\DisassociateNodeResponse' {nodeAssociationStatusToken} -> nodeAssociationStatusToken) (\s@DisassociateNodeResponse' {} a -> s {nodeAssociationStatusToken = a} :: DisassociateNodeResponse)++-- | The response's http status code.+disassociateNodeResponse_httpStatus :: Lens.Lens' DisassociateNodeResponse Prelude.Int+disassociateNodeResponse_httpStatus = Lens.lens (\DisassociateNodeResponse' {httpStatus} -> httpStatus) (\s@DisassociateNodeResponse' {} a -> s {httpStatus = a} :: DisassociateNodeResponse)++instance Prelude.NFData DisassociateNodeResponse where+  rnf DisassociateNodeResponse' {..} =+    Prelude.rnf nodeAssociationStatusToken+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,293 @@+{-# 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.OpsWorksCM.ExportServerEngineAttribute+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Exports a specified server engine attribute as a base64-encoded string.+-- For example, you can export user data that you can use in EC2 to+-- associate nodes with a server.+--+-- This operation is synchronous.+--+-- A @ValidationException@ is raised when parameters of the request are not+-- valid. A @ResourceNotFoundException@ is thrown when the server does not+-- exist. An @InvalidStateException@ is thrown when the server is in any of+-- the following states: CREATING, TERMINATED, FAILED or DELETING.+module Amazonka.OpsWorksCM.ExportServerEngineAttribute+  ( -- * Creating a Request+    ExportServerEngineAttribute (..),+    newExportServerEngineAttribute,++    -- * Request Lenses+    exportServerEngineAttribute_inputAttributes,+    exportServerEngineAttribute_exportAttributeName,+    exportServerEngineAttribute_serverName,++    -- * Destructuring the Response+    ExportServerEngineAttributeResponse (..),+    newExportServerEngineAttributeResponse,++    -- * Response Lenses+    exportServerEngineAttributeResponse_engineAttribute,+    exportServerEngineAttributeResponse_serverName,+    exportServerEngineAttributeResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.OpsWorksCM.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newExportServerEngineAttribute' smart constructor.+data ExportServerEngineAttribute = ExportServerEngineAttribute'+  { -- | The list of engine attributes. The list type is @EngineAttribute@. An+    -- @EngineAttribute@ list item is a pair that includes an attribute name+    -- and its value. For the @Userdata@ ExportAttributeName, the following are+    -- supported engine attribute names.+    --+    -- -   __RunList__ In Chef, a list of roles or recipes that are run in the+    --     specified order. In Puppet, this parameter is ignored.+    --+    -- -   __OrganizationName__ In Chef, an organization name. AWS OpsWorks for+    --     Chef Automate always creates the organization @default@. In Puppet,+    --     this parameter is ignored.+    --+    -- -   __NodeEnvironment__ In Chef, a node environment (for example,+    --     development, staging, or one-box). In Puppet, this parameter is+    --     ignored.+    --+    -- -   __NodeClientVersion__ In Chef, the version of the Chef engine (three+    --     numbers separated by dots, such as 13.8.5). If this attribute is+    --     empty, OpsWorks for Chef Automate uses the most current version. In+    --     Puppet, this parameter is ignored.+    inputAttributes :: Prelude.Maybe [EngineAttribute],+    -- | The name of the export attribute. Currently, the supported export+    -- attribute is @Userdata@. This exports a user data script that includes+    -- parameters and values provided in the @InputAttributes@ list.+    exportAttributeName :: Prelude.Text,+    -- | The name of the server from which you are exporting the attribute.+    serverName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ExportServerEngineAttribute' 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:+--+-- 'inputAttributes', 'exportServerEngineAttribute_inputAttributes' - The list of engine attributes. The list type is @EngineAttribute@. An+-- @EngineAttribute@ list item is a pair that includes an attribute name+-- and its value. For the @Userdata@ ExportAttributeName, the following are+-- supported engine attribute names.+--+-- -   __RunList__ In Chef, a list of roles or recipes that are run in the+--     specified order. In Puppet, this parameter is ignored.+--+-- -   __OrganizationName__ In Chef, an organization name. AWS OpsWorks for+--     Chef Automate always creates the organization @default@. In Puppet,+--     this parameter is ignored.+--+-- -   __NodeEnvironment__ In Chef, a node environment (for example,+--     development, staging, or one-box). In Puppet, this parameter is+--     ignored.+--+-- -   __NodeClientVersion__ In Chef, the version of the Chef engine (three+--     numbers separated by dots, such as 13.8.5). If this attribute is+--     empty, OpsWorks for Chef Automate uses the most current version. In+--     Puppet, this parameter is ignored.+--+-- 'exportAttributeName', 'exportServerEngineAttribute_exportAttributeName' - The name of the export attribute. Currently, the supported export+-- attribute is @Userdata@. This exports a user data script that includes+-- parameters and values provided in the @InputAttributes@ list.+--+-- 'serverName', 'exportServerEngineAttribute_serverName' - The name of the server from which you are exporting the attribute.+newExportServerEngineAttribute ::+  -- | 'exportAttributeName'+  Prelude.Text ->+  -- | 'serverName'+  Prelude.Text ->+  ExportServerEngineAttribute+newExportServerEngineAttribute+  pExportAttributeName_+  pServerName_ =+    ExportServerEngineAttribute'+      { inputAttributes =+          Prelude.Nothing,+        exportAttributeName = pExportAttributeName_,+        serverName = pServerName_+      }++-- | The list of engine attributes. The list type is @EngineAttribute@. An+-- @EngineAttribute@ list item is a pair that includes an attribute name+-- and its value. For the @Userdata@ ExportAttributeName, the following are+-- supported engine attribute names.+--+-- -   __RunList__ In Chef, a list of roles or recipes that are run in the+--     specified order. In Puppet, this parameter is ignored.+--+-- -   __OrganizationName__ In Chef, an organization name. AWS OpsWorks for+--     Chef Automate always creates the organization @default@. In Puppet,+--     this parameter is ignored.+--+-- -   __NodeEnvironment__ In Chef, a node environment (for example,+--     development, staging, or one-box). In Puppet, this parameter is+--     ignored.+--+-- -   __NodeClientVersion__ In Chef, the version of the Chef engine (three+--     numbers separated by dots, such as 13.8.5). If this attribute is+--     empty, OpsWorks for Chef Automate uses the most current version. In+--     Puppet, this parameter is ignored.+exportServerEngineAttribute_inputAttributes :: Lens.Lens' ExportServerEngineAttribute (Prelude.Maybe [EngineAttribute])+exportServerEngineAttribute_inputAttributes = Lens.lens (\ExportServerEngineAttribute' {inputAttributes} -> inputAttributes) (\s@ExportServerEngineAttribute' {} a -> s {inputAttributes = a} :: ExportServerEngineAttribute) Prelude.. Lens.mapping Lens.coerced++-- | The name of the export attribute. Currently, the supported export+-- attribute is @Userdata@. This exports a user data script that includes+-- parameters and values provided in the @InputAttributes@ list.+exportServerEngineAttribute_exportAttributeName :: Lens.Lens' ExportServerEngineAttribute Prelude.Text+exportServerEngineAttribute_exportAttributeName = Lens.lens (\ExportServerEngineAttribute' {exportAttributeName} -> exportAttributeName) (\s@ExportServerEngineAttribute' {} a -> s {exportAttributeName = a} :: ExportServerEngineAttribute)++-- | The name of the server from which you are exporting the attribute.+exportServerEngineAttribute_serverName :: Lens.Lens' ExportServerEngineAttribute Prelude.Text+exportServerEngineAttribute_serverName = Lens.lens (\ExportServerEngineAttribute' {serverName} -> serverName) (\s@ExportServerEngineAttribute' {} a -> s {serverName = a} :: ExportServerEngineAttribute)++instance Core.AWSRequest ExportServerEngineAttribute where+  type+    AWSResponse ExportServerEngineAttribute =+      ExportServerEngineAttributeResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ExportServerEngineAttributeResponse'+            Prelude.<$> (x Data..?> "EngineAttribute")+            Prelude.<*> (x Data..?> "ServerName")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ExportServerEngineAttribute where+  hashWithSalt _salt ExportServerEngineAttribute' {..} =+    _salt+      `Prelude.hashWithSalt` inputAttributes+      `Prelude.hashWithSalt` exportAttributeName+      `Prelude.hashWithSalt` serverName++instance Prelude.NFData ExportServerEngineAttribute where+  rnf ExportServerEngineAttribute' {..} =+    Prelude.rnf inputAttributes+      `Prelude.seq` Prelude.rnf exportAttributeName+      `Prelude.seq` Prelude.rnf serverName++instance Data.ToHeaders ExportServerEngineAttribute where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "OpsWorksCM_V2016_11_01.ExportServerEngineAttribute" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ExportServerEngineAttribute where+  toJSON ExportServerEngineAttribute' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("InputAttributes" Data..=)+              Prelude.<$> inputAttributes,+            Prelude.Just+              ("ExportAttributeName" Data..= exportAttributeName),+            Prelude.Just ("ServerName" Data..= serverName)+          ]+      )++instance Data.ToPath ExportServerEngineAttribute where+  toPath = Prelude.const "/"++instance Data.ToQuery ExportServerEngineAttribute where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newExportServerEngineAttributeResponse' smart constructor.+data ExportServerEngineAttributeResponse = ExportServerEngineAttributeResponse'+  { -- | The requested engine attribute pair with attribute name and value.+    engineAttribute :: Prelude.Maybe EngineAttribute,+    -- | The server name used in the request.+    serverName :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ExportServerEngineAttributeResponse' 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:+--+-- 'engineAttribute', 'exportServerEngineAttributeResponse_engineAttribute' - The requested engine attribute pair with attribute name and value.+--+-- 'serverName', 'exportServerEngineAttributeResponse_serverName' - The server name used in the request.+--+-- 'httpStatus', 'exportServerEngineAttributeResponse_httpStatus' - The response's http status code.+newExportServerEngineAttributeResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ExportServerEngineAttributeResponse+newExportServerEngineAttributeResponse pHttpStatus_ =+  ExportServerEngineAttributeResponse'+    { engineAttribute =+        Prelude.Nothing,+      serverName = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The requested engine attribute pair with attribute name and value.+exportServerEngineAttributeResponse_engineAttribute :: Lens.Lens' ExportServerEngineAttributeResponse (Prelude.Maybe EngineAttribute)+exportServerEngineAttributeResponse_engineAttribute = Lens.lens (\ExportServerEngineAttributeResponse' {engineAttribute} -> engineAttribute) (\s@ExportServerEngineAttributeResponse' {} a -> s {engineAttribute = a} :: ExportServerEngineAttributeResponse)++-- | The server name used in the request.+exportServerEngineAttributeResponse_serverName :: Lens.Lens' ExportServerEngineAttributeResponse (Prelude.Maybe Prelude.Text)+exportServerEngineAttributeResponse_serverName = Lens.lens (\ExportServerEngineAttributeResponse' {serverName} -> serverName) (\s@ExportServerEngineAttributeResponse' {} a -> s {serverName = a} :: ExportServerEngineAttributeResponse)++-- | The response's http status code.+exportServerEngineAttributeResponse_httpStatus :: Lens.Lens' ExportServerEngineAttributeResponse Prelude.Int+exportServerEngineAttributeResponse_httpStatus = Lens.lens (\ExportServerEngineAttributeResponse' {httpStatus} -> httpStatus) (\s@ExportServerEngineAttributeResponse' {} a -> s {httpStatus = a} :: ExportServerEngineAttributeResponse)++instance+  Prelude.NFData+    ExportServerEngineAttributeResponse+  where+  rnf ExportServerEngineAttributeResponse' {..} =+    Prelude.rnf engineAttribute+      `Prelude.seq` Prelude.rnf serverName+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,262 @@+{-# 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.OpsWorksCM.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.OpsWorksCM.Lens+  ( -- * Operations++    -- ** AssociateNode+    associateNode_serverName,+    associateNode_nodeName,+    associateNode_engineAttributes,+    associateNodeResponse_nodeAssociationStatusToken,+    associateNodeResponse_httpStatus,++    -- ** CreateBackup+    createBackup_description,+    createBackup_tags,+    createBackup_serverName,+    createBackupResponse_backup,+    createBackupResponse_httpStatus,++    -- ** CreateServer+    createServer_associatePublicIpAddress,+    createServer_backupId,+    createServer_backupRetentionCount,+    createServer_customCertificate,+    createServer_customDomain,+    createServer_customPrivateKey,+    createServer_disableAutomatedBackup,+    createServer_engineAttributes,+    createServer_engineModel,+    createServer_engineVersion,+    createServer_keyPair,+    createServer_preferredBackupWindow,+    createServer_preferredMaintenanceWindow,+    createServer_securityGroupIds,+    createServer_subnetIds,+    createServer_tags,+    createServer_engine,+    createServer_serverName,+    createServer_instanceProfileArn,+    createServer_instanceType,+    createServer_serviceRoleArn,+    createServerResponse_server,+    createServerResponse_httpStatus,++    -- ** DeleteBackup+    deleteBackup_backupId,+    deleteBackupResponse_httpStatus,++    -- ** DeleteServer+    deleteServer_serverName,+    deleteServerResponse_httpStatus,++    -- ** DescribeAccountAttributes+    describeAccountAttributesResponse_attributes,+    describeAccountAttributesResponse_httpStatus,++    -- ** DescribeBackups+    describeBackups_backupId,+    describeBackups_maxResults,+    describeBackups_nextToken,+    describeBackups_serverName,+    describeBackupsResponse_backups,+    describeBackupsResponse_nextToken,+    describeBackupsResponse_httpStatus,++    -- ** DescribeEvents+    describeEvents_maxResults,+    describeEvents_nextToken,+    describeEvents_serverName,+    describeEventsResponse_nextToken,+    describeEventsResponse_serverEvents,+    describeEventsResponse_httpStatus,++    -- ** DescribeNodeAssociationStatus+    describeNodeAssociationStatus_nodeAssociationStatusToken,+    describeNodeAssociationStatus_serverName,+    describeNodeAssociationStatusResponse_engineAttributes,+    describeNodeAssociationStatusResponse_httpStatus,+    describeNodeAssociationStatusResponse_nodeAssociationStatus,++    -- ** DescribeServers+    describeServers_maxResults,+    describeServers_nextToken,+    describeServers_serverName,+    describeServersResponse_nextToken,+    describeServersResponse_servers,+    describeServersResponse_httpStatus,++    -- ** DisassociateNode+    disassociateNode_engineAttributes,+    disassociateNode_serverName,+    disassociateNode_nodeName,+    disassociateNodeResponse_nodeAssociationStatusToken,+    disassociateNodeResponse_httpStatus,++    -- ** ExportServerEngineAttribute+    exportServerEngineAttribute_inputAttributes,+    exportServerEngineAttribute_exportAttributeName,+    exportServerEngineAttribute_serverName,+    exportServerEngineAttributeResponse_engineAttribute,+    exportServerEngineAttributeResponse_serverName,+    exportServerEngineAttributeResponse_httpStatus,++    -- ** ListTagsForResource+    listTagsForResource_maxResults,+    listTagsForResource_nextToken,+    listTagsForResource_resourceArn,+    listTagsForResourceResponse_nextToken,+    listTagsForResourceResponse_tags,+    listTagsForResourceResponse_httpStatus,++    -- ** RestoreServer+    restoreServer_instanceType,+    restoreServer_keyPair,+    restoreServer_backupId,+    restoreServer_serverName,+    restoreServerResponse_server,+    restoreServerResponse_httpStatus,++    -- ** StartMaintenance+    startMaintenance_engineAttributes,+    startMaintenance_serverName,+    startMaintenanceResponse_server,+    startMaintenanceResponse_httpStatus,++    -- ** TagResource+    tagResource_resourceArn,+    tagResource_tags,+    tagResourceResponse_httpStatus,++    -- ** UntagResource+    untagResource_resourceArn,+    untagResource_tagKeys,+    untagResourceResponse_httpStatus,++    -- ** UpdateServer+    updateServer_backupRetentionCount,+    updateServer_disableAutomatedBackup,+    updateServer_preferredBackupWindow,+    updateServer_preferredMaintenanceWindow,+    updateServer_serverName,+    updateServerResponse_server,+    updateServerResponse_httpStatus,++    -- ** UpdateServerEngineAttributes+    updateServerEngineAttributes_attributeValue,+    updateServerEngineAttributes_serverName,+    updateServerEngineAttributes_attributeName,+    updateServerEngineAttributesResponse_server,+    updateServerEngineAttributesResponse_httpStatus,++    -- * Types++    -- ** AccountAttribute+    accountAttribute_maximum,+    accountAttribute_name,+    accountAttribute_used,++    -- ** Backup+    backup_backupArn,+    backup_backupId,+    backup_backupType,+    backup_createdAt,+    backup_description,+    backup_engine,+    backup_engineModel,+    backup_engineVersion,+    backup_instanceProfileArn,+    backup_instanceType,+    backup_keyPair,+    backup_preferredBackupWindow,+    backup_preferredMaintenanceWindow,+    backup_s3DataSize,+    backup_s3DataUrl,+    backup_s3LogUrl,+    backup_securityGroupIds,+    backup_serverName,+    backup_serviceRoleArn,+    backup_status,+    backup_statusDescription,+    backup_subnetIds,+    backup_toolsVersion,+    backup_userArn,++    -- ** EngineAttribute+    engineAttribute_name,+    engineAttribute_value,++    -- ** Server+    server_associatePublicIpAddress,+    server_backupRetentionCount,+    server_cloudFormationStackArn,+    server_createdAt,+    server_customDomain,+    server_disableAutomatedBackup,+    server_endpoint,+    server_engine,+    server_engineAttributes,+    server_engineModel,+    server_engineVersion,+    server_instanceProfileArn,+    server_instanceType,+    server_keyPair,+    server_maintenanceStatus,+    server_preferredBackupWindow,+    server_preferredMaintenanceWindow,+    server_securityGroupIds,+    server_serverArn,+    server_serverName,+    server_serviceRoleArn,+    server_status,+    server_statusReason,+    server_subnetIds,++    -- ** ServerEvent+    serverEvent_createdAt,+    serverEvent_logUrl,+    serverEvent_message,+    serverEvent_serverName,++    -- ** Tag+    tag_key,+    tag_value,+  )+where++import Amazonka.OpsWorksCM.AssociateNode+import Amazonka.OpsWorksCM.CreateBackup+import Amazonka.OpsWorksCM.CreateServer+import Amazonka.OpsWorksCM.DeleteBackup+import Amazonka.OpsWorksCM.DeleteServer+import Amazonka.OpsWorksCM.DescribeAccountAttributes+import Amazonka.OpsWorksCM.DescribeBackups+import Amazonka.OpsWorksCM.DescribeEvents+import Amazonka.OpsWorksCM.DescribeNodeAssociationStatus+import Amazonka.OpsWorksCM.DescribeServers+import Amazonka.OpsWorksCM.DisassociateNode+import Amazonka.OpsWorksCM.ExportServerEngineAttribute+import Amazonka.OpsWorksCM.ListTagsForResource+import Amazonka.OpsWorksCM.RestoreServer+import Amazonka.OpsWorksCM.StartMaintenance+import Amazonka.OpsWorksCM.TagResource+import Amazonka.OpsWorksCM.Types.AccountAttribute+import Amazonka.OpsWorksCM.Types.Backup+import Amazonka.OpsWorksCM.Types.EngineAttribute+import Amazonka.OpsWorksCM.Types.Server+import Amazonka.OpsWorksCM.Types.ServerEvent+import Amazonka.OpsWorksCM.Types.Tag+import Amazonka.OpsWorksCM.UntagResource+import Amazonka.OpsWorksCM.UpdateServer+import Amazonka.OpsWorksCM.UpdateServerEngineAttributes

@@ -0,0 +1,282 @@+{-# 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.OpsWorksCM.ListTagsForResource+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of tags that are applied to the specified AWS OpsWorks+-- for Chef Automate or AWS OpsWorks for Puppet Enterprise servers or+-- backups.+--+-- This operation returns paginated results.+module Amazonka.OpsWorksCM.ListTagsForResource+  ( -- * Creating a Request+    ListTagsForResource (..),+    newListTagsForResource,++    -- * Request Lenses+    listTagsForResource_maxResults,+    listTagsForResource_nextToken,+    listTagsForResource_resourceArn,++    -- * Destructuring the Response+    ListTagsForResourceResponse (..),+    newListTagsForResourceResponse,++    -- * Response Lenses+    listTagsForResourceResponse_nextToken,+    listTagsForResourceResponse_tags,+    listTagsForResourceResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.OpsWorksCM.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListTagsForResource' smart constructor.+data ListTagsForResource = ListTagsForResource'+  { -- | To receive a paginated response, use this parameter to specify the+    -- maximum number of results to be returned with a single call. If the+    -- number of available results exceeds this maximum, the response includes+    -- a @NextToken@ value that you can assign to the @NextToken@ request+    -- parameter to get the next set of results.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | NextToken is a string that is returned in some command responses. It+    -- indicates that not all entries have been returned, and that you must run+    -- at least one more request to get remaining items. To get remaining+    -- results, call @ListTagsForResource@ again, and assign the token from the+    -- previous results as the value of the @nextToken@ parameter. If there are+    -- no more results, the response object\'s @nextToken@ parameter value is+    -- @null@. Setting a @nextToken@ value that was not returned in your+    -- previous results causes an @InvalidNextTokenException@ to occur.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Number (ARN) of an AWS OpsWorks for Chef Automate or+    -- AWS OpsWorks for Puppet Enterprise server for which you want to show+    -- applied tags. For example,+    -- @arn:aws:opsworks-cm:us-west-2:123456789012:server\/test-owcm-server\/EXAMPLE-66b0-4196-8274-d1a2bEXAMPLE@.+    resourceArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListTagsForResource' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'maxResults', 'listTagsForResource_maxResults' - To receive a paginated response, use this parameter to specify the+-- maximum number of results to be returned with a single call. If the+-- number of available results exceeds this maximum, the response includes+-- a @NextToken@ value that you can assign to the @NextToken@ request+-- parameter to get the next set of results.+--+-- 'nextToken', 'listTagsForResource_nextToken' - NextToken is a string that is returned in some command responses. It+-- indicates that not all entries have been returned, and that you must run+-- at least one more request to get remaining items. To get remaining+-- results, call @ListTagsForResource@ again, and assign the token from the+-- previous results as the value of the @nextToken@ parameter. If there are+-- no more results, the response object\'s @nextToken@ parameter value is+-- @null@. Setting a @nextToken@ value that was not returned in your+-- previous results causes an @InvalidNextTokenException@ to occur.+--+-- 'resourceArn', 'listTagsForResource_resourceArn' - The Amazon Resource Number (ARN) of an AWS OpsWorks for Chef Automate or+-- AWS OpsWorks for Puppet Enterprise server for which you want to show+-- applied tags. For example,+-- @arn:aws:opsworks-cm:us-west-2:123456789012:server\/test-owcm-server\/EXAMPLE-66b0-4196-8274-d1a2bEXAMPLE@.+newListTagsForResource ::+  -- | 'resourceArn'+  Prelude.Text ->+  ListTagsForResource+newListTagsForResource pResourceArn_ =+  ListTagsForResource'+    { maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      resourceArn = pResourceArn_+    }++-- | To receive a paginated response, use this parameter to specify the+-- maximum number of results to be returned with a single call. If the+-- number of available results exceeds this maximum, the response includes+-- a @NextToken@ value that you can assign to the @NextToken@ request+-- parameter to get the next set of results.+listTagsForResource_maxResults :: Lens.Lens' ListTagsForResource (Prelude.Maybe Prelude.Natural)+listTagsForResource_maxResults = Lens.lens (\ListTagsForResource' {maxResults} -> maxResults) (\s@ListTagsForResource' {} a -> s {maxResults = a} :: ListTagsForResource)++-- | NextToken is a string that is returned in some command responses. It+-- indicates that not all entries have been returned, and that you must run+-- at least one more request to get remaining items. To get remaining+-- results, call @ListTagsForResource@ again, and assign the token from the+-- previous results as the value of the @nextToken@ parameter. If there are+-- no more results, the response object\'s @nextToken@ parameter value is+-- @null@. Setting a @nextToken@ value that was not returned in your+-- previous results causes an @InvalidNextTokenException@ to occur.+listTagsForResource_nextToken :: Lens.Lens' ListTagsForResource (Prelude.Maybe Prelude.Text)+listTagsForResource_nextToken = Lens.lens (\ListTagsForResource' {nextToken} -> nextToken) (\s@ListTagsForResource' {} a -> s {nextToken = a} :: ListTagsForResource)++-- | The Amazon Resource Number (ARN) of an AWS OpsWorks for Chef Automate or+-- AWS OpsWorks for Puppet Enterprise server for which you want to show+-- applied tags. For example,+-- @arn:aws:opsworks-cm:us-west-2:123456789012:server\/test-owcm-server\/EXAMPLE-66b0-4196-8274-d1a2bEXAMPLE@.+listTagsForResource_resourceArn :: Lens.Lens' ListTagsForResource Prelude.Text+listTagsForResource_resourceArn = Lens.lens (\ListTagsForResource' {resourceArn} -> resourceArn) (\s@ListTagsForResource' {} a -> s {resourceArn = a} :: ListTagsForResource)++instance Core.AWSPager ListTagsForResource where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listTagsForResourceResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listTagsForResourceResponse_tags+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listTagsForResource_nextToken+          Lens..~ rs+          Lens.^? listTagsForResourceResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListTagsForResource where+  type+    AWSResponse ListTagsForResource =+      ListTagsForResourceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListTagsForResourceResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> (x Data..?> "Tags" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListTagsForResource where+  hashWithSalt _salt ListTagsForResource' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` resourceArn++instance Prelude.NFData ListTagsForResource where+  rnf ListTagsForResource' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf resourceArn++instance Data.ToHeaders ListTagsForResource where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "OpsWorksCM_V2016_11_01.ListTagsForResource" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListTagsForResource where+  toJSON ListTagsForResource' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("ResourceArn" Data..= resourceArn)+          ]+      )++instance Data.ToPath ListTagsForResource where+  toPath = Prelude.const "/"++instance Data.ToQuery ListTagsForResource where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListTagsForResourceResponse' smart constructor.+data ListTagsForResourceResponse = ListTagsForResourceResponse'+  { -- | A token that you can use as the value of @NextToken@ in subsequent calls+    -- to the API to show more results.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Tags that have been applied to the 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 'ListTagsForResourceResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listTagsForResourceResponse_nextToken' - A token that you can use as the value of @NextToken@ in subsequent calls+-- to the API to show more results.+--+-- 'tags', 'listTagsForResourceResponse_tags' - Tags that have been applied to the resource.+--+-- 'httpStatus', 'listTagsForResourceResponse_httpStatus' - The response's http status code.+newListTagsForResourceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListTagsForResourceResponse+newListTagsForResourceResponse pHttpStatus_ =+  ListTagsForResourceResponse'+    { nextToken =+        Prelude.Nothing,+      tags = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A token that you can use as the value of @NextToken@ in subsequent calls+-- to the API to show more results.+listTagsForResourceResponse_nextToken :: Lens.Lens' ListTagsForResourceResponse (Prelude.Maybe Prelude.Text)+listTagsForResourceResponse_nextToken = Lens.lens (\ListTagsForResourceResponse' {nextToken} -> nextToken) (\s@ListTagsForResourceResponse' {} a -> s {nextToken = a} :: ListTagsForResourceResponse)++-- | Tags that have been applied to the resource.+listTagsForResourceResponse_tags :: Lens.Lens' ListTagsForResourceResponse (Prelude.Maybe [Tag])+listTagsForResourceResponse_tags = Lens.lens (\ListTagsForResourceResponse' {tags} -> tags) (\s@ListTagsForResourceResponse' {} a -> s {tags = a} :: ListTagsForResourceResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listTagsForResourceResponse_httpStatus :: Lens.Lens' ListTagsForResourceResponse Prelude.Int+listTagsForResourceResponse_httpStatus = Lens.lens (\ListTagsForResourceResponse' {httpStatus} -> httpStatus) (\s@ListTagsForResourceResponse' {} a -> s {httpStatus = a} :: ListTagsForResourceResponse)++instance Prelude.NFData ListTagsForResourceResponse where+  rnf ListTagsForResourceResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,245 @@+{-# 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.OpsWorksCM.RestoreServer+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Restores a backup to a server that is in a @CONNECTION_LOST@, @HEALTHY@,+-- @RUNNING@, @UNHEALTHY@, or @TERMINATED@ state. When you run+-- RestoreServer, the server\'s EC2 instance is deleted, and a new EC2+-- instance is configured. RestoreServer maintains the existing server+-- endpoint, so configuration management of the server\'s client devices+-- (nodes) should continue to work.+--+-- Restoring from a backup is performed by creating a new EC2 instance. If+-- restoration is successful, and the server is in a @HEALTHY@ state, AWS+-- OpsWorks CM switches traffic over to the new instance. After restoration+-- is finished, the old EC2 instance is maintained in a @Running@ or+-- @Stopped@ state, but is eventually terminated.+--+-- This operation is asynchronous.+--+-- An @InvalidStateException@ is thrown when the server is not in a valid+-- state. A @ResourceNotFoundException@ is thrown when the server does not+-- exist. A @ValidationException@ is raised when parameters of the request+-- are not valid.+module Amazonka.OpsWorksCM.RestoreServer+  ( -- * Creating a Request+    RestoreServer (..),+    newRestoreServer,++    -- * Request Lenses+    restoreServer_instanceType,+    restoreServer_keyPair,+    restoreServer_backupId,+    restoreServer_serverName,++    -- * Destructuring the Response+    RestoreServerResponse (..),+    newRestoreServerResponse,++    -- * Response Lenses+    restoreServerResponse_server,+    restoreServerResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.OpsWorksCM.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newRestoreServer' smart constructor.+data RestoreServer = RestoreServer'+  { -- | The type of instance to restore. Valid values must be specified in the+    -- following format: @^([cm][34]|t2).*@ For example, @m5.large@. Valid+    -- values are @m5.large@, @r5.xlarge@, and @r5.2xlarge@. If you do not+    -- specify this parameter, RestoreServer uses the instance type from the+    -- specified backup.+    instanceType :: Prelude.Maybe Prelude.Text,+    -- | The name of the key pair to set on the new EC2 instance. This can be+    -- helpful if the administrator no longer has the SSH key.+    keyPair :: Prelude.Maybe Prelude.Text,+    -- | The ID of the backup that you want to use to restore a server.+    backupId :: Prelude.Text,+    -- | The name of the server that you want to restore.+    serverName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RestoreServer' 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:+--+-- 'instanceType', 'restoreServer_instanceType' - The type of instance to restore. Valid values must be specified in the+-- following format: @^([cm][34]|t2).*@ For example, @m5.large@. Valid+-- values are @m5.large@, @r5.xlarge@, and @r5.2xlarge@. If you do not+-- specify this parameter, RestoreServer uses the instance type from the+-- specified backup.+--+-- 'keyPair', 'restoreServer_keyPair' - The name of the key pair to set on the new EC2 instance. This can be+-- helpful if the administrator no longer has the SSH key.+--+-- 'backupId', 'restoreServer_backupId' - The ID of the backup that you want to use to restore a server.+--+-- 'serverName', 'restoreServer_serverName' - The name of the server that you want to restore.+newRestoreServer ::+  -- | 'backupId'+  Prelude.Text ->+  -- | 'serverName'+  Prelude.Text ->+  RestoreServer+newRestoreServer pBackupId_ pServerName_ =+  RestoreServer'+    { instanceType = Prelude.Nothing,+      keyPair = Prelude.Nothing,+      backupId = pBackupId_,+      serverName = pServerName_+    }++-- | The type of instance to restore. Valid values must be specified in the+-- following format: @^([cm][34]|t2).*@ For example, @m5.large@. Valid+-- values are @m5.large@, @r5.xlarge@, and @r5.2xlarge@. If you do not+-- specify this parameter, RestoreServer uses the instance type from the+-- specified backup.+restoreServer_instanceType :: Lens.Lens' RestoreServer (Prelude.Maybe Prelude.Text)+restoreServer_instanceType = Lens.lens (\RestoreServer' {instanceType} -> instanceType) (\s@RestoreServer' {} a -> s {instanceType = a} :: RestoreServer)++-- | The name of the key pair to set on the new EC2 instance. This can be+-- helpful if the administrator no longer has the SSH key.+restoreServer_keyPair :: Lens.Lens' RestoreServer (Prelude.Maybe Prelude.Text)+restoreServer_keyPair = Lens.lens (\RestoreServer' {keyPair} -> keyPair) (\s@RestoreServer' {} a -> s {keyPair = a} :: RestoreServer)++-- | The ID of the backup that you want to use to restore a server.+restoreServer_backupId :: Lens.Lens' RestoreServer Prelude.Text+restoreServer_backupId = Lens.lens (\RestoreServer' {backupId} -> backupId) (\s@RestoreServer' {} a -> s {backupId = a} :: RestoreServer)++-- | The name of the server that you want to restore.+restoreServer_serverName :: Lens.Lens' RestoreServer Prelude.Text+restoreServer_serverName = Lens.lens (\RestoreServer' {serverName} -> serverName) (\s@RestoreServer' {} a -> s {serverName = a} :: RestoreServer)++instance Core.AWSRequest RestoreServer where+  type+    AWSResponse RestoreServer =+      RestoreServerResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          RestoreServerResponse'+            Prelude.<$> (x Data..?> "Server")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable RestoreServer where+  hashWithSalt _salt RestoreServer' {..} =+    _salt+      `Prelude.hashWithSalt` instanceType+      `Prelude.hashWithSalt` keyPair+      `Prelude.hashWithSalt` backupId+      `Prelude.hashWithSalt` serverName++instance Prelude.NFData RestoreServer where+  rnf RestoreServer' {..} =+    Prelude.rnf instanceType+      `Prelude.seq` Prelude.rnf keyPair+      `Prelude.seq` Prelude.rnf backupId+      `Prelude.seq` Prelude.rnf serverName++instance Data.ToHeaders RestoreServer where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "OpsWorksCM_V2016_11_01.RestoreServer" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON RestoreServer where+  toJSON RestoreServer' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("InstanceType" Data..=) Prelude.<$> instanceType,+            ("KeyPair" Data..=) Prelude.<$> keyPair,+            Prelude.Just ("BackupId" Data..= backupId),+            Prelude.Just ("ServerName" Data..= serverName)+          ]+      )++instance Data.ToPath RestoreServer where+  toPath = Prelude.const "/"++instance Data.ToQuery RestoreServer where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newRestoreServerResponse' smart constructor.+data RestoreServerResponse = RestoreServerResponse'+  { server :: Prelude.Maybe Server,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RestoreServerResponse' 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:+--+-- 'server', 'restoreServerResponse_server' - Undocumented member.+--+-- 'httpStatus', 'restoreServerResponse_httpStatus' - The response's http status code.+newRestoreServerResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  RestoreServerResponse+newRestoreServerResponse pHttpStatus_ =+  RestoreServerResponse'+    { server = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Undocumented member.+restoreServerResponse_server :: Lens.Lens' RestoreServerResponse (Prelude.Maybe Server)+restoreServerResponse_server = Lens.lens (\RestoreServerResponse' {server} -> server) (\s@RestoreServerResponse' {} a -> s {server = a} :: RestoreServerResponse)++-- | The response's http status code.+restoreServerResponse_httpStatus :: Lens.Lens' RestoreServerResponse Prelude.Int+restoreServerResponse_httpStatus = Lens.lens (\RestoreServerResponse' {httpStatus} -> httpStatus) (\s@RestoreServerResponse' {} a -> s {httpStatus = a} :: RestoreServerResponse)++instance Prelude.NFData RestoreServerResponse where+  rnf RestoreServerResponse' {..} =+    Prelude.rnf server+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,223 @@+{-# 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.OpsWorksCM.StartMaintenance+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Manually starts server maintenance. This command can be useful if an+-- earlier maintenance attempt failed, and the underlying cause of+-- maintenance failure has been resolved. The server is in an+-- @UNDER_MAINTENANCE@ state while maintenance is in progress.+--+-- Maintenance can only be started on servers in @HEALTHY@ and @UNHEALTHY@+-- states. Otherwise, an @InvalidStateException@ is thrown. A+-- @ResourceNotFoundException@ is thrown when the server does not exist. A+-- @ValidationException@ is raised when parameters of the request are not+-- valid.+module Amazonka.OpsWorksCM.StartMaintenance+  ( -- * Creating a Request+    StartMaintenance (..),+    newStartMaintenance,++    -- * Request Lenses+    startMaintenance_engineAttributes,+    startMaintenance_serverName,++    -- * Destructuring the Response+    StartMaintenanceResponse (..),+    newStartMaintenanceResponse,++    -- * Response Lenses+    startMaintenanceResponse_server,+    startMaintenanceResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.OpsWorksCM.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newStartMaintenance' smart constructor.+data StartMaintenance = StartMaintenance'+  { -- | Engine attributes that are specific to the server on which you want to+    -- run maintenance.+    --+    -- __Attributes accepted in a StartMaintenance request for Chef__+    --+    -- -   @CHEF_MAJOR_UPGRADE@: If a Chef Automate server is eligible for+    --     upgrade to Chef Automate 2, add this engine attribute to a+    --     @StartMaintenance@ request and set the value to @true@ to upgrade+    --     the server to Chef Automate 2. For more information, see+    --     <https://docs.aws.amazon.com/opsworks/latest/userguide/opscm-a2upgrade.html Upgrade an AWS OpsWorks for Chef Automate Server to Chef Automate 2>.+    engineAttributes :: Prelude.Maybe [EngineAttribute],+    -- | The name of the server on which to run maintenance.+    serverName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StartMaintenance' 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:+--+-- 'engineAttributes', 'startMaintenance_engineAttributes' - Engine attributes that are specific to the server on which you want to+-- run maintenance.+--+-- __Attributes accepted in a StartMaintenance request for Chef__+--+-- -   @CHEF_MAJOR_UPGRADE@: If a Chef Automate server is eligible for+--     upgrade to Chef Automate 2, add this engine attribute to a+--     @StartMaintenance@ request and set the value to @true@ to upgrade+--     the server to Chef Automate 2. For more information, see+--     <https://docs.aws.amazon.com/opsworks/latest/userguide/opscm-a2upgrade.html Upgrade an AWS OpsWorks for Chef Automate Server to Chef Automate 2>.+--+-- 'serverName', 'startMaintenance_serverName' - The name of the server on which to run maintenance.+newStartMaintenance ::+  -- | 'serverName'+  Prelude.Text ->+  StartMaintenance+newStartMaintenance pServerName_ =+  StartMaintenance'+    { engineAttributes =+        Prelude.Nothing,+      serverName = pServerName_+    }++-- | Engine attributes that are specific to the server on which you want to+-- run maintenance.+--+-- __Attributes accepted in a StartMaintenance request for Chef__+--+-- -   @CHEF_MAJOR_UPGRADE@: If a Chef Automate server is eligible for+--     upgrade to Chef Automate 2, add this engine attribute to a+--     @StartMaintenance@ request and set the value to @true@ to upgrade+--     the server to Chef Automate 2. For more information, see+--     <https://docs.aws.amazon.com/opsworks/latest/userguide/opscm-a2upgrade.html Upgrade an AWS OpsWorks for Chef Automate Server to Chef Automate 2>.+startMaintenance_engineAttributes :: Lens.Lens' StartMaintenance (Prelude.Maybe [EngineAttribute])+startMaintenance_engineAttributes = Lens.lens (\StartMaintenance' {engineAttributes} -> engineAttributes) (\s@StartMaintenance' {} a -> s {engineAttributes = a} :: StartMaintenance) Prelude.. Lens.mapping Lens.coerced++-- | The name of the server on which to run maintenance.+startMaintenance_serverName :: Lens.Lens' StartMaintenance Prelude.Text+startMaintenance_serverName = Lens.lens (\StartMaintenance' {serverName} -> serverName) (\s@StartMaintenance' {} a -> s {serverName = a} :: StartMaintenance)++instance Core.AWSRequest StartMaintenance where+  type+    AWSResponse StartMaintenance =+      StartMaintenanceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          StartMaintenanceResponse'+            Prelude.<$> (x Data..?> "Server")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable StartMaintenance where+  hashWithSalt _salt StartMaintenance' {..} =+    _salt+      `Prelude.hashWithSalt` engineAttributes+      `Prelude.hashWithSalt` serverName++instance Prelude.NFData StartMaintenance where+  rnf StartMaintenance' {..} =+    Prelude.rnf engineAttributes+      `Prelude.seq` Prelude.rnf serverName++instance Data.ToHeaders StartMaintenance where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "OpsWorksCM_V2016_11_01.StartMaintenance" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON StartMaintenance where+  toJSON StartMaintenance' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("EngineAttributes" Data..=)+              Prelude.<$> engineAttributes,+            Prelude.Just ("ServerName" Data..= serverName)+          ]+      )++instance Data.ToPath StartMaintenance where+  toPath = Prelude.const "/"++instance Data.ToQuery StartMaintenance where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newStartMaintenanceResponse' smart constructor.+data StartMaintenanceResponse = StartMaintenanceResponse'+  { -- | Contains the response to a @StartMaintenance@ request.+    server :: Prelude.Maybe Server,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StartMaintenanceResponse' 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:+--+-- 'server', 'startMaintenanceResponse_server' - Contains the response to a @StartMaintenance@ request.+--+-- 'httpStatus', 'startMaintenanceResponse_httpStatus' - The response's http status code.+newStartMaintenanceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  StartMaintenanceResponse+newStartMaintenanceResponse pHttpStatus_ =+  StartMaintenanceResponse'+    { server = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Contains the response to a @StartMaintenance@ request.+startMaintenanceResponse_server :: Lens.Lens' StartMaintenanceResponse (Prelude.Maybe Server)+startMaintenanceResponse_server = Lens.lens (\StartMaintenanceResponse' {server} -> server) (\s@StartMaintenanceResponse' {} a -> s {server = a} :: StartMaintenanceResponse)++-- | The response's http status code.+startMaintenanceResponse_httpStatus :: Lens.Lens' StartMaintenanceResponse Prelude.Int+startMaintenanceResponse_httpStatus = Lens.lens (\StartMaintenanceResponse' {httpStatus} -> httpStatus) (\s@StartMaintenanceResponse' {} a -> s {httpStatus = a} :: StartMaintenanceResponse)++instance Prelude.NFData StartMaintenanceResponse where+  rnf StartMaintenanceResponse' {..} =+    Prelude.rnf server+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,226 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.OpsWorksCM.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)+--+-- Applies tags to an AWS OpsWorks for Chef Automate or AWS OpsWorks for+-- Puppet Enterprise server, or to server backups.+module Amazonka.OpsWorksCM.TagResource+  ( -- * Creating a Request+    TagResource (..),+    newTagResource,++    -- * Request Lenses+    tagResource_resourceArn,+    tagResource_tags,++    -- * Destructuring the Response+    TagResourceResponse (..),+    newTagResourceResponse,++    -- * Response Lenses+    tagResourceResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.OpsWorksCM.Types+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 Amazon Resource Number (ARN) of a resource to which you want to+    -- apply tags. For example,+    -- @arn:aws:opsworks-cm:us-west-2:123456789012:server\/test-owcm-server\/EXAMPLE-66b0-4196-8274-d1a2bEXAMPLE@.+    resourceArn :: Prelude.Text,+    -- | A map that contains tag keys and tag values to attach to AWS OpsWorks-CM+    -- servers or backups.+    --+    -- -   The key cannot be empty.+    --+    -- -   The key can be a maximum of 127 characters, and can contain only+    --     Unicode letters, numbers, or separators, or the following special+    --     characters: @+ - = . _ : \/@+    --+    -- -   The value can be a maximum 255 characters, and contain only Unicode+    --     letters, numbers, or separators, or the following special+    --     characters: @+ - = . _ : \/@+    --+    -- -   Leading and trailing white spaces are trimmed from both the key and+    --     value.+    --+    -- -   A maximum of 50 user-applied tags is allowed for any AWS OpsWorks-CM+    --     server or backup.+    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:+--+-- 'resourceArn', 'tagResource_resourceArn' - The Amazon Resource Number (ARN) of a resource to which you want to+-- apply tags. For example,+-- @arn:aws:opsworks-cm:us-west-2:123456789012:server\/test-owcm-server\/EXAMPLE-66b0-4196-8274-d1a2bEXAMPLE@.+--+-- 'tags', 'tagResource_tags' - A map that contains tag keys and tag values to attach to AWS OpsWorks-CM+-- servers or backups.+--+-- -   The key cannot be empty.+--+-- -   The key can be a maximum of 127 characters, and can contain only+--     Unicode letters, numbers, or separators, or the following special+--     characters: @+ - = . _ : \/@+--+-- -   The value can be a maximum 255 characters, and contain only Unicode+--     letters, numbers, or separators, or the following special+--     characters: @+ - = . _ : \/@+--+-- -   Leading and trailing white spaces are trimmed from both the key and+--     value.+--+-- -   A maximum of 50 user-applied tags is allowed for any AWS OpsWorks-CM+--     server or backup.+newTagResource ::+  -- | 'resourceArn'+  Prelude.Text ->+  TagResource+newTagResource pResourceArn_ =+  TagResource'+    { resourceArn = pResourceArn_,+      tags = Prelude.mempty+    }++-- | The Amazon Resource Number (ARN) of a resource to which you want to+-- apply tags. For example,+-- @arn:aws:opsworks-cm:us-west-2:123456789012:server\/test-owcm-server\/EXAMPLE-66b0-4196-8274-d1a2bEXAMPLE@.+tagResource_resourceArn :: Lens.Lens' TagResource Prelude.Text+tagResource_resourceArn = Lens.lens (\TagResource' {resourceArn} -> resourceArn) (\s@TagResource' {} a -> s {resourceArn = a} :: TagResource)++-- | A map that contains tag keys and tag values to attach to AWS OpsWorks-CM+-- servers or backups.+--+-- -   The key cannot be empty.+--+-- -   The key can be a maximum of 127 characters, and can contain only+--     Unicode letters, numbers, or separators, or the following special+--     characters: @+ - = . _ : \/@+--+-- -   The value can be a maximum 255 characters, and contain only Unicode+--     letters, numbers, or separators, or the following special+--     characters: @+ - = . _ : \/@+--+-- -   Leading and trailing white spaces are trimmed from both the key and+--     value.+--+-- -   A maximum of 50 user-applied tags is allowed for any AWS OpsWorks-CM+--     server or backup.+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.receiveEmpty+      ( \s h x ->+          TagResourceResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable TagResource where+  hashWithSalt _salt TagResource' {..} =+    _salt+      `Prelude.hashWithSalt` resourceArn+      `Prelude.hashWithSalt` tags++instance Prelude.NFData TagResource where+  rnf TagResource' {..} =+    Prelude.rnf resourceArn+      `Prelude.seq` Prelude.rnf tags++instance Data.ToHeaders TagResource where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "OpsWorksCM_V2016_11_01.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 ("ResourceArn" Data..= resourceArn),+            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 response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TagResourceResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'tagResourceResponse_httpStatus' - The response's http status code.+newTagResourceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  TagResourceResponse+newTagResourceResponse pHttpStatus_ =+  TagResourceResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+tagResourceResponse_httpStatus :: Lens.Lens' TagResourceResponse Prelude.Int+tagResourceResponse_httpStatus = Lens.lens (\TagResourceResponse' {httpStatus} -> httpStatus) (\s@TagResourceResponse' {} a -> s {httpStatus = a} :: TagResourceResponse)++instance Prelude.NFData TagResourceResponse where+  rnf TagResourceResponse' {..} = Prelude.rnf httpStatus

@@ -0,0 +1,255 @@+{-# LANGUAGE DisambiguateRecordFields #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.OpsWorksCM.Types+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.OpsWorksCM.Types+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    _InvalidNextTokenException,+    _InvalidStateException,+    _LimitExceededException,+    _ResourceAlreadyExistsException,+    _ResourceNotFoundException,+    _ValidationException,++    -- * BackupStatus+    BackupStatus (..),++    -- * BackupType+    BackupType (..),++    -- * MaintenanceStatus+    MaintenanceStatus (..),++    -- * NodeAssociationStatus+    NodeAssociationStatus (..),++    -- * ServerStatus+    ServerStatus (..),++    -- * AccountAttribute+    AccountAttribute (..),+    newAccountAttribute,+    accountAttribute_maximum,+    accountAttribute_name,+    accountAttribute_used,++    -- * Backup+    Backup (..),+    newBackup,+    backup_backupArn,+    backup_backupId,+    backup_backupType,+    backup_createdAt,+    backup_description,+    backup_engine,+    backup_engineModel,+    backup_engineVersion,+    backup_instanceProfileArn,+    backup_instanceType,+    backup_keyPair,+    backup_preferredBackupWindow,+    backup_preferredMaintenanceWindow,+    backup_s3DataSize,+    backup_s3DataUrl,+    backup_s3LogUrl,+    backup_securityGroupIds,+    backup_serverName,+    backup_serviceRoleArn,+    backup_status,+    backup_statusDescription,+    backup_subnetIds,+    backup_toolsVersion,+    backup_userArn,++    -- * EngineAttribute+    EngineAttribute (..),+    newEngineAttribute,+    engineAttribute_name,+    engineAttribute_value,++    -- * Server+    Server (..),+    newServer,+    server_associatePublicIpAddress,+    server_backupRetentionCount,+    server_cloudFormationStackArn,+    server_createdAt,+    server_customDomain,+    server_disableAutomatedBackup,+    server_endpoint,+    server_engine,+    server_engineAttributes,+    server_engineModel,+    server_engineVersion,+    server_instanceProfileArn,+    server_instanceType,+    server_keyPair,+    server_maintenanceStatus,+    server_preferredBackupWindow,+    server_preferredMaintenanceWindow,+    server_securityGroupIds,+    server_serverArn,+    server_serverName,+    server_serviceRoleArn,+    server_status,+    server_statusReason,+    server_subnetIds,++    -- * ServerEvent+    ServerEvent (..),+    newServerEvent,+    serverEvent_createdAt,+    serverEvent_logUrl,+    serverEvent_message,+    serverEvent_serverName,++    -- * Tag+    Tag (..),+    newTag,+    tag_key,+    tag_value,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import Amazonka.OpsWorksCM.Types.AccountAttribute+import Amazonka.OpsWorksCM.Types.Backup+import Amazonka.OpsWorksCM.Types.BackupStatus+import Amazonka.OpsWorksCM.Types.BackupType+import Amazonka.OpsWorksCM.Types.EngineAttribute+import Amazonka.OpsWorksCM.Types.MaintenanceStatus+import Amazonka.OpsWorksCM.Types.NodeAssociationStatus+import Amazonka.OpsWorksCM.Types.Server+import Amazonka.OpsWorksCM.Types.ServerEvent+import Amazonka.OpsWorksCM.Types.ServerStatus+import Amazonka.OpsWorksCM.Types.Tag+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Sign.V4 as Sign++-- | API version @2016-11-01@ of the Amazon OpsWorks CM SDK configuration.+defaultService :: Core.Service+defaultService =+  Core.Service+    { Core.abbrev = "OpsWorksCM",+      Core.signer = Sign.v4,+      Core.endpointPrefix = "opsworks-cm",+      Core.signingName = "opsworks-cm",+      Core.version = "2016-11-01",+      Core.s3AddressingStyle = Core.S3AddressingStyleAuto,+      Core.endpoint = Core.defaultEndpoint defaultService,+      Core.timeout = Prelude.Just 70,+      Core.check = Core.statusSuccess,+      Core.error = Core.parseJSONError "OpsWorksCM",+      Core.retry = retry+    }+  where+    retry =+      Core.Exponential+        { Core.base = 5.0e-2,+          Core.growth = 2,+          Core.attempts = 5,+          Core.check = check+        }+    check e+      | Lens.has (Core.hasStatus 502) e =+          Prelude.Just "bad_gateway"+      | Lens.has (Core.hasStatus 504) e =+          Prelude.Just "gateway_timeout"+      | Lens.has (Core.hasStatus 500) e =+          Prelude.Just "general_server_error"+      | Lens.has (Core.hasStatus 509) e =+          Prelude.Just "limit_exceeded"+      | Lens.has+          ( Core.hasCode "RequestThrottledException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "request_throttled_exception"+      | Lens.has (Core.hasStatus 503) e =+          Prelude.Just "service_unavailable"+      | Lens.has+          ( Core.hasCode "ThrottledException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttled_exception"+      | Lens.has+          ( Core.hasCode "Throttling"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttling"+      | Lens.has+          ( Core.hasCode "ThrottlingException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttling_exception"+      | Lens.has+          ( Core.hasCode+              "ProvisionedThroughputExceededException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throughput_exceeded"+      | Lens.has (Core.hasStatus 429) e =+          Prelude.Just "too_many_requests"+      | Prelude.otherwise = Prelude.Nothing++-- | This occurs when the provided nextToken is not valid.+_InvalidNextTokenException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidNextTokenException =+  Core._MatchServiceError+    defaultService+    "InvalidNextTokenException"++-- | The resource is in a state that does not allow you to perform a+-- specified action.+_InvalidStateException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidStateException =+  Core._MatchServiceError+    defaultService+    "InvalidStateException"++-- | The limit of servers or backups has been reached.+_LimitExceededException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_LimitExceededException =+  Core._MatchServiceError+    defaultService+    "LimitExceededException"++-- | The requested resource cannot be created because it already exists.+_ResourceAlreadyExistsException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ResourceAlreadyExistsException =+  Core._MatchServiceError+    defaultService+    "ResourceAlreadyExistsException"++-- | The requested resource does not exist, or access was denied.+_ResourceNotFoundException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ResourceNotFoundException =+  Core._MatchServiceError+    defaultService+    "ResourceNotFoundException"++-- | One or more of the provided request parameters are not valid.+_ValidationException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ValidationException =+  Core._MatchServiceError+    defaultService+    "ValidationException"