packages feed

amazonka-opsworks-cm (empty) → 1.4.5

raw patch · 59 files changed

+4752/−0 lines, 59 filesdep +amazonka-coredep +amazonka-opsworks-cmdep +amazonka-testsetup-changed

Dependencies added: amazonka-core, amazonka-opsworks-cm, amazonka-test, base, bytestring, tasty, tasty-hunit, text, time, unordered-containers

Files

+ LICENSE view
@@ -0,0 +1,367 @@+Mozilla Public License Version 2.0+==================================++1. Definitions+--------------++1.1. "Contributor"+    means each individual or legal entity that creates, contributes to+    the creation of, or owns Covered Software.++1.2. "Contributor Version"+    means the combination of the Contributions of others (if any) used+    by a Contributor and that particular Contributor's Contribution.++1.3. "Contribution"+    means Covered Software of a particular Contributor.++1.4. "Covered Software"+    means Source Code Form to which the initial Contributor has attached+    the notice in Exhibit A, the Executable Form of such Source Code+    Form, and Modifications of such Source Code Form, in each case+    including portions thereof.++1.5. "Incompatible With Secondary Licenses"+    means++    (a) that the initial Contributor has attached the notice described+        in Exhibit B to the Covered Software; or++    (b) that the Covered Software was made available under the terms of+        version 1.1 or earlier of the License, but not also under the+        terms of a Secondary License.++1.6. "Executable Form"+    means any form of the work other than Source Code Form.++1.7. "Larger Work"+    means a work that combines Covered Software with other material, in+    a separate file or files, that is not Covered Software.++1.8. "License"+    means this document.++1.9. "Licensable"+    means having the right to grant, to the maximum extent possible,+    whether at the time of the initial grant or subsequently, any and+    all of the rights conveyed by this License.++1.10. "Modifications"+    means any of the following:++    (a) any file in Source Code Form that results from an addition to,+        deletion from, or modification of the contents of Covered+        Software; or++    (b) any new file in Source Code Form that contains any Covered+        Software.++1.11. "Patent Claims" of a Contributor+    means any patent claim(s), including without limitation, method,+    process, and apparatus claims, in any patent Licensable by such+    Contributor that would be infringed, but for the grant of the+    License, by the making, using, selling, offering for sale, having+    made, import, or transfer of either its Contributions or its+    Contributor Version.++1.12. "Secondary License"+    means either the GNU General Public License, Version 2.0, the GNU+    Lesser General Public License, Version 2.1, the GNU Affero General+    Public License, Version 3.0, or any later versions of those+    licenses.++1.13. "Source Code Form"+    means the form of the work preferred for making modifications.++1.14. "You" (or "Your")+    means an individual or a legal entity exercising rights under this+    License. For legal entities, "You" includes any entity that+    controls, is controlled by, or is under common control with You. For+    purposes of this definition, "control" means (a) the power, direct+    or indirect, to cause the direction or management of such entity,+    whether by contract or otherwise, or (b) ownership of more than+    fifty percent (50%) of the outstanding shares or beneficial+    ownership of such entity.++2. License Grants and Conditions+--------------------------------++2.1. Grants++Each Contributor hereby grants You a world-wide, royalty-free,+non-exclusive license:++(a) under intellectual property rights (other than patent or trademark)+    Licensable by such Contributor to use, reproduce, make available,+    modify, display, perform, distribute, and otherwise exploit its+    Contributions, either on an unmodified basis, with Modifications, or+    as part of a Larger Work; and++(b) under Patent Claims of such Contributor to make, use, sell, offer+    for sale, have made, import, and otherwise transfer either its+    Contributions or its Contributor Version.++2.2. Effective Date++The licenses granted in Section 2.1 with respect to any Contribution+become effective for each Contribution on the date the Contributor first+distributes such Contribution.++2.3. Limitations on Grant Scope++The licenses granted in this Section 2 are the only rights granted under+this License. No additional rights or licenses will be implied from the+distribution or licensing of Covered Software under this License.+Notwithstanding Section 2.1(b) above, no patent license is granted by a+Contributor:++(a) for any code that a Contributor has removed from Covered Software;+    or++(b) for infringements caused by: (i) Your and any other third party's+    modifications of Covered Software, or (ii) the combination of its+    Contributions with other software (except as part of its Contributor+    Version); or++(c) under Patent Claims infringed by Covered Software in the absence of+    its Contributions.++This License does not grant any rights in the trademarks, service marks,+or logos of any Contributor (except as may be necessary to comply with+the notice requirements in Section 3.4).++2.4. Subsequent Licenses++No Contributor makes additional grants as a result of Your choice to+distribute the Covered Software under a subsequent version of this+License (see Section 10.2) or under the terms of a Secondary License (if+permitted under the terms of Section 3.3).++2.5. Representation++Each Contributor represents that the Contributor believes its+Contributions are its original creation(s) or it has sufficient rights+to grant the rights to its Contributions conveyed by this License.++2.6. Fair Use++This License is not intended to limit any rights You have under+applicable copyright doctrines of fair use, fair dealing, or other+equivalents.++2.7. Conditions++Sections 3.1, 3.2, 3.3, and 3.4 are conditions of the licenses granted+in Section 2.1.++3. Responsibilities+-------------------++3.1. Distribution of Source Form++All distribution of Covered Software in Source Code Form, including any+Modifications that You create or to which You contribute, must be under+the terms of this License. You must inform recipients that the Source+Code Form of the Covered Software is governed by the terms of this+License, and how they can obtain a copy of this License. You may not+attempt to alter or restrict the recipients' rights in the Source Code+Form.++3.2. Distribution of Executable Form++If You distribute Covered Software in Executable Form then:++(a) such Covered Software must also be made available in Source Code+    Form, as described in Section 3.1, and You must inform recipients of+    the Executable Form how they can obtain a copy of such Source Code+    Form by reasonable means in a timely manner, at a charge no more+    than the cost of distribution to the recipient; and++(b) You may distribute such Executable Form under the terms of this+    License, or sublicense it under different terms, provided that the+    license for the Executable Form does not attempt to limit or alter+    the recipients' rights in the Source Code Form under this License.++3.3. Distribution of a Larger Work++You may create and distribute a Larger Work under terms of Your choice,+provided that You also comply with the requirements of this License for+the Covered Software. If the Larger Work is a combination of Covered+Software with a work governed by one or more Secondary Licenses, and the+Covered Software is not Incompatible With Secondary Licenses, this+License permits You to additionally distribute such Covered Software+under the terms of such Secondary License(s), so that the recipient of+the Larger Work may, at their option, further distribute the Covered+Software under the terms of either this License or such Secondary+License(s).++3.4. Notices++You may not remove or alter the substance of any license notices+(including copyright notices, patent notices, disclaimers of warranty,+or limitations of liability) contained within the Source Code Form of+the Covered Software, except that You may alter any license notices to+the extent required to remedy known factual inaccuracies.++3.5. Application of Additional Terms++You may choose to offer, and to charge a fee for, warranty, support,+indemnity or liability obligations to one or more recipients of Covered+Software. However, You may do so only on Your own behalf, and not on+behalf of any Contributor. You must make it absolutely clear that any+such warranty, support, indemnity, or liability obligation is offered by+You alone, and You hereby agree to indemnify every Contributor for any+liability incurred by such Contributor as a result of warranty, support,+indemnity or liability terms You offer. You may include additional+disclaimers of warranty and limitations of liability specific to any+jurisdiction.++4. Inability to Comply Due to Statute or Regulation+---------------------------------------------------++If it is impossible for You to comply with any of the terms of this+License with respect to some or all of the Covered Software due to+statute, judicial order, or regulation then You must: (a) comply with+the terms of this License to the maximum extent possible; and (b)+describe the limitations and the code they affect. Such description must+be placed in a text file included with all distributions of the Covered+Software under this License. Except to the extent prohibited by statute+or regulation, such description must be sufficiently detailed for a+recipient of ordinary skill to be able to understand it.++5. Termination+--------------++5.1. The rights granted under this License will terminate automatically+if You fail to comply with any of its terms. However, if You become+compliant, then the rights granted under this License from a particular+Contributor are reinstated (a) provisionally, unless and until such+Contributor explicitly and finally terminates Your grants, and (b) on an+ongoing basis, if such Contributor fails to notify You of the+non-compliance by some reasonable means prior to 60 days after You have+come back into compliance. Moreover, Your grants from a particular+Contributor are reinstated on an ongoing basis if such Contributor+notifies You of the non-compliance by some reasonable means, this is the+first time You have received notice of non-compliance with this License+from such Contributor, and You become compliant prior to 30 days after+Your receipt of the notice.++5.2. If You initiate litigation against any entity by asserting a patent+infringement claim (excluding declaratory judgment actions,+counter-claims, and cross-claims) alleging that a Contributor Version+directly or indirectly infringes any patent, then the rights granted to+You by any and all Contributors for the Covered Software under Section+2.1 of this License shall terminate.++5.3. In the event of termination under Sections 5.1 or 5.2 above, all+end user license agreements (excluding distributors and resellers) which+have been validly granted by You or Your distributors under this License+prior to termination shall survive termination.++************************************************************************+*                                                                      *+*  6. Disclaimer of Warranty                                           *+*  -------------------------                                           *+*                                                                      *+*  Covered Software is provided under this License on an "as is"       *+*  basis, without warranty of any kind, either expressed, implied, or  *+*  statutory, including, without limitation, warranties that the       *+*  Covered Software is free of defects, merchantable, fit for a        *+*  particular purpose or non-infringing. The entire risk as to the     *+*  quality and performance of the Covered Software is with You.        *+*  Should any Covered Software prove defective in any respect, You     *+*  (not any Contributor) assume the cost of any necessary servicing,   *+*  repair, or correction. This disclaimer of warranty constitutes an   *+*  essential part of this License. No use of any Covered Software is   *+*  authorized under this License except under this disclaimer.         *+*                                                                      *+************************************************************************++************************************************************************+*                                                                      *+*  7. Limitation of Liability                                          *+*  --------------------------                                          *+*                                                                      *+*  Under no circumstances and under no legal theory, whether tort      *+*  (including negligence), contract, or otherwise, shall any           *+*  Contributor, or anyone who distributes Covered Software as          *+*  permitted above, be liable to You for any direct, indirect,         *+*  special, incidental, or consequential damages of any character      *+*  including, without limitation, damages for lost profits, loss of    *+*  goodwill, work stoppage, computer failure or malfunction, or any    *+*  and all other commercial damages or losses, even if such party      *+*  shall have been informed of the possibility of such damages. This   *+*  limitation of liability shall not apply to liability for death or   *+*  personal injury resulting from such party's negligence to the       *+*  extent applicable law prohibits such limitation. Some               *+*  jurisdictions do not allow the exclusion or limitation of           *+*  incidental or consequential damages, so this exclusion and          *+*  limitation may not apply to You.                                    *+*                                                                      *+************************************************************************++8. Litigation+-------------++Any litigation relating to this License may be brought only in the+courts of a jurisdiction where the defendant maintains its principal+place of business and such litigation shall be governed by laws of that+jurisdiction, without reference to its conflict-of-law provisions.+Nothing in this Section shall prevent a party's ability to bring+cross-claims or counter-claims.++9. Miscellaneous+----------------++This License represents the complete agreement concerning the subject+matter hereof. If any provision of this License is held to be+unenforceable, such provision shall be reformed only to the extent+necessary to make it enforceable. Any law or regulation which provides+that the language of a contract shall be construed against the drafter+shall not be used to construe this License against a Contributor.++10. Versions of the License+---------------------------++10.1. New Versions++Mozilla Foundation is the license steward. Except as provided in Section+10.3, no one other than the license steward has the right to modify or+publish new versions of this License. Each version will be given a+distinguishing version number.++10.2. Effect of New Versions++You may distribute the Covered Software under the terms of the version+of the License under which You originally received the Covered Software,+or under the terms of any subsequent version published by the license+steward.++10.3. Modified Versions++If you create software not governed by this License, and you want to+create a new license for such software, you may create and use a+modified version of this License if you rename the license and remove+any references to the name of the license steward (except to note that+such modified license differs from this License).++10.4. Distributing Source Code Form that is Incompatible With Secondary+Licenses++If You choose to distribute Source Code Form that is Incompatible With+Secondary Licenses under the terms of this version of the License, the+notice described in Exhibit B of this License must be attached.++Exhibit A - Source Code Form License Notice+-------------------------------------------++  This Source Code Form is subject to the terms of the Mozilla Public+  License, v. 2.0. If a copy of the MPL was not distributed with this+  file, You can obtain one at http://mozilla.org/MPL/2.0/.++If it is not possible or desirable to put the notice in a particular+file, then You may include the notice in a location (such as a LICENSE+file in a relevant directory) where a recipient would be likely to look+for such a notice.++You may add additional accurate notices of copyright ownership.
+ README.md view
@@ -0,0 +1,45 @@+# Amazon OpsWorks for Chef Automate SDK++* [Version](#version)+* [Description](#description)+* [Contribute](#contribute)+* [Licence](#licence)+++## Version++`1.4.5`+++## Description++Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-opsworks-cm)+and the [AWS API Reference](https://aws.amazon.com/documentation/).++The types from this library are intended to be used with [amazonka](http://hackage.haskell.org/package/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+[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)+or [the AWS documentation](https://aws.amazon.com/documentation/) to get started.+++## Contribute++For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/amazonka/issues).++> _Note:_ this library is an auto-generated Haskell package. Please see `amazonka-gen` for more information.+++## Licence++`amazonka-opsworks-cm` is released under the [Mozilla Public License Version 2.0](http://www.mozilla.org/MPL/).++Parts of the code are derived from AWS service descriptions, licensed under Apache 2.0.+Source files subject to this contain an additional licensing clause in their header.
+ Setup.hs view
@@ -0,0 +1,2 @@+import           Distribution.Simple+main = defaultMain
+ amazonka-opsworks-cm.cabal view
@@ -0,0 +1,95 @@+name:                  amazonka-opsworks-cm+version:               1.4.5+synopsis:              Amazon OpsWorks for Chef Automate SDK.+homepage:              https://github.com/brendanhay/amazonka+bug-reports:           https://github.com/brendanhay/amazonka/issues+license:               OtherLicense+license-file:          LICENSE+author:                Brendan Hay+maintainer:            Brendan Hay <brendan.g.hay@gmail.com>+copyright:             Copyright (c) 2013-2016 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+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.++source-repository head+    type:     git+    location: git://github.com/brendanhay/amazonka.git++library+    default-language:  Haskell2010+    hs-source-dirs:    src gen++    ghc-options:       -Wall++    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++    other-modules:+          Network.AWS.OpsWorksCM.Types.Product+        , Network.AWS.OpsWorksCM.Types.Sum++    build-depends:+          amazonka-core == 1.4.5.*+        , base          >= 4.7     && < 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++    -- 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++    build-depends:+          amazonka-core == 1.4.5.*+        , amazonka-test == 1.4.5.*+        , amazonka-opsworks-cm == 1.4.5.*+        , base+        , bytestring+        , tasty+        , tasty-hunit+        , text+        , time+        , unordered-containers
+ fixture/AssociateNode.yaml view
@@ -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:+  ''
+ fixture/AssociateNodeResponse.proto view
+ fixture/CreateBackup.yaml view
@@ -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:+  ''
+ fixture/CreateBackupResponse.proto view
+ fixture/CreateServer.yaml view
@@ -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:+  ''
+ fixture/CreateServerResponse.proto view
+ fixture/DeleteBackup.yaml view
@@ -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:+  ''
+ fixture/DeleteBackupResponse.proto view
+ fixture/DeleteServer.yaml view
@@ -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:+  ''
+ fixture/DeleteServerResponse.proto view
+ fixture/DescribeAccountAttributes.yaml view
@@ -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:+  ''
+ fixture/DescribeAccountAttributesResponse.proto view
+ fixture/DescribeBackups.yaml view
@@ -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:+  ''
+ fixture/DescribeBackupsResponse.proto view
+ fixture/DescribeEvents.yaml view
@@ -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:+  ''
+ fixture/DescribeEventsResponse.proto view
+ fixture/DescribeNodeAssociationStatus.yaml view
@@ -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:+  ''
+ fixture/DescribeNodeAssociationStatusResponse.proto view
+ fixture/DescribeServers.yaml view
@@ -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:+  ''
+ fixture/DescribeServersResponse.proto view
+ fixture/DisassociateNode.yaml view
@@ -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:+  ''
+ fixture/DisassociateNodeResponse.proto view
+ fixture/RestoreServer.yaml view
@@ -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:+  ''
+ fixture/RestoreServerResponse.proto view
+ fixture/StartMaintenance.yaml view
@@ -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:+  ''
+ fixture/StartMaintenanceResponse.proto view
+ fixture/UpdateServer.yaml view
@@ -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:+  ''
+ fixture/UpdateServerEngineAttributes.yaml view
@@ -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:+  ''
+ fixture/UpdateServerEngineAttributesResponse.proto view
+ fixture/UpdateServerResponse.proto view
+ gen/Network/AWS/OpsWorksCM.hs view
@@ -0,0 +1,251 @@+{-# OPTIONS_GHC -fno-warn-unused-imports    #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.OpsWorksCM+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- __AWS OpsWorks for Chef Automate__+--+-- A service that runs and manages configuration management servers.+--+-- Glossary of terms+--+--     * __Server__ : A server is a configuration management server, and can be highly-available. The configuration manager runs on your instances by using various AWS services, such as Amazon Elastic Compute Cloud (EC2), and potentially Amazon Relational Database Service (RDS). A server is a generic abstraction over the configuration manager that you want to use, much like Amazon RDS. In AWS OpsWorks for Chef Automate, you do not start or stop servers. After you create servers, they continue to run until they are deleted.+--+--     * __Engine__ : The specific configuration manager that you want to use (such as @Chef@ ) is the engine.+--+--     * __Backup__ : This is an application-level backup of the data that the configuration manager stores. A backup creates a .tar.gz file that is stored in an Amazon Simple Storage Service (S3) bucket in your account. AWS OpsWorks for Chef Automate creates the S3 bucket when you launch the first instance. A backup maintains a snapshot of all of a server's important attributes at the time of the backup.+--+--     * __Events__ : Events are always related to a server. Events are written during server creation, when health checks run, when backups are created, etc. When you delete a server, the server's events are also deleted.+--+--     * __AccountAttributes__ : Every account has attributes that are assigned in the AWS OpsWorks for Chef Automate database. These attributes store information about configuration limits (servers, backups, etc.) and your customer account.+--+--+--+-- Throttling limits+--+-- All API operations allow for 5 requests per second with a burst of 10 requests per second.+--+module Network.AWS.OpsWorksCM+    (+    -- * Service Configuration+      opsWorksCM++    -- * Errors+    -- $errors++    -- ** ValidationException+    , _ValidationException++    -- ** ResourceAlreadyExistsException+    , _ResourceAlreadyExistsException++    -- ** InvalidNextTokenException+    , _InvalidNextTokenException++    -- ** ResourceNotFoundException+    , _ResourceNotFoundException++    -- ** InvalidStateException+    , _InvalidStateException++    -- ** LimitExceededException+    , _LimitExceededException++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** AssociateNode+    , module Network.AWS.OpsWorksCM.AssociateNode++    -- ** UpdateServer+    , module Network.AWS.OpsWorksCM.UpdateServer++    -- ** DeleteServer+    , module Network.AWS.OpsWorksCM.DeleteServer++    -- ** DeleteBackup+    , module Network.AWS.OpsWorksCM.DeleteBackup++    -- ** DescribeEvents+    , module Network.AWS.OpsWorksCM.DescribeEvents++    -- ** DisassociateNode+    , module Network.AWS.OpsWorksCM.DisassociateNode++    -- ** CreateBackup+    , module Network.AWS.OpsWorksCM.CreateBackup++    -- ** UpdateServerEngineAttributes+    , module Network.AWS.OpsWorksCM.UpdateServerEngineAttributes++    -- ** StartMaintenance+    , module Network.AWS.OpsWorksCM.StartMaintenance++    -- ** DescribeBackups+    , module Network.AWS.OpsWorksCM.DescribeBackups++    -- ** CreateServer+    , module Network.AWS.OpsWorksCM.CreateServer++    -- ** RestoreServer+    , module Network.AWS.OpsWorksCM.RestoreServer++    -- ** DescribeNodeAssociationStatus+    , module Network.AWS.OpsWorksCM.DescribeNodeAssociationStatus++    -- ** DescribeAccountAttributes+    , module Network.AWS.OpsWorksCM.DescribeAccountAttributes++    -- ** DescribeServers+    , module Network.AWS.OpsWorksCM.DescribeServers++    -- * Types++    -- ** BackupStatus+    , BackupStatus (..)++    -- ** BackupType+    , BackupType (..)++    -- ** MaintenanceStatus+    , MaintenanceStatus (..)++    -- ** NodeAssociationStatus+    , NodeAssociationStatus (..)++    -- ** ServerStatus+    , ServerStatus (..)++    -- ** AccountAttribute+    , AccountAttribute+    , accountAttribute+    , aaUsed+    , aaMaximum+    , aaName++    -- ** Backup+    , Backup+    , backup+    , bEngineVersion+    , bServiceRoleARN+    , bStatus+    , bInstanceProfileARN+    , bSecurityGroupIds+    , bStatusDescription+    , bServerName+    , bSubnetIds+    , bKeyPair+    , bCreatedAt+    , bBackupId+    , bEngine+    , bInstanceType+    , bEngineModel+    , bPreferredMaintenanceWindow+    , bUserARN+    , bPreferredBackupWindow+    , bS3LogURL+    , bS3DataSize+    , bBackupARN+    , bS3DataURL+    , bDescription+    , bBackupType+    , bToolsVersion++    -- ** EngineAttribute+    , EngineAttribute+    , engineAttribute+    , eaValue+    , eaName++    -- ** Server+    , Server+    , server+    , sEngineVersion+    , sServiceRoleARN+    , sDisableAutomatedBackup+    , sStatus+    , sInstanceProfileARN+    , sSecurityGroupIds+    , sServerName+    , sSubnetIds+    , sKeyPair+    , sCreatedAt+    , sServerARN+    , sEngine+    , sMaintenanceStatus+    , sInstanceType+    , sEngineModel+    , sEngineAttributes+    , sPreferredMaintenanceWindow+    , sPreferredBackupWindow+    , sStatusReason+    , sEndpoint+    , sBackupRetentionCount++    -- ** ServerEvent+    , ServerEvent+    , serverEvent+    , seLogURL+    , seServerName+    , seCreatedAt+    , seMessage+    ) where++import           Network.AWS.OpsWorksCM.AssociateNode+import           Network.AWS.OpsWorksCM.CreateBackup+import           Network.AWS.OpsWorksCM.CreateServer+import           Network.AWS.OpsWorksCM.DeleteBackup+import           Network.AWS.OpsWorksCM.DeleteServer+import           Network.AWS.OpsWorksCM.DescribeAccountAttributes+import           Network.AWS.OpsWorksCM.DescribeBackups+import           Network.AWS.OpsWorksCM.DescribeEvents+import           Network.AWS.OpsWorksCM.DescribeNodeAssociationStatus+import           Network.AWS.OpsWorksCM.DescribeServers+import           Network.AWS.OpsWorksCM.DisassociateNode+import           Network.AWS.OpsWorksCM.RestoreServer+import           Network.AWS.OpsWorksCM.StartMaintenance+import           Network.AWS.OpsWorksCM.Types+import           Network.AWS.OpsWorksCM.UpdateServer+import           Network.AWS.OpsWorksCM.UpdateServerEngineAttributes+import           Network.AWS.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.+-}
+ gen/Network/AWS/OpsWorksCM/AssociateNode.hs view
@@ -0,0 +1,154 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.OpsWorksCM.AssociateNode+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Undocumented operation.+module Network.AWS.OpsWorksCM.AssociateNode+    (+    -- * Creating a Request+      associateNode+    , AssociateNode+    -- * Request Lenses+    , anEngineAttributes+    , anServerName+    , anNodeName++    -- * Destructuring the Response+    , associateNodeResponse+    , AssociateNodeResponse+    -- * Response Lenses+    , anrsNodeAssociationStatusToken+    , anrsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.OpsWorksCM.Types+import           Network.AWS.OpsWorksCM.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'associateNode' smart constructor.+data AssociateNode = AssociateNode'+    { _anEngineAttributes :: !(Maybe [EngineAttribute])+    , _anServerName       :: !Text+    , _anNodeName         :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AssociateNode' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'anEngineAttributes' - Undocumented member.+--+-- * 'anServerName' - Undocumented member.+--+-- * 'anNodeName' - Undocumented member.+associateNode+    :: Text -- ^ 'anServerName'+    -> Text -- ^ 'anNodeName'+    -> AssociateNode+associateNode pServerName_ pNodeName_ =+    AssociateNode'+    { _anEngineAttributes = Nothing+    , _anServerName = pServerName_+    , _anNodeName = pNodeName_+    }++-- | Undocumented member.+anEngineAttributes :: Lens' AssociateNode [EngineAttribute]+anEngineAttributes = lens _anEngineAttributes (\ s a -> s{_anEngineAttributes = a}) . _Default . _Coerce;++-- | Undocumented member.+anServerName :: Lens' AssociateNode Text+anServerName = lens _anServerName (\ s a -> s{_anServerName = a});++-- | Undocumented member.+anNodeName :: Lens' AssociateNode Text+anNodeName = lens _anNodeName (\ s a -> s{_anNodeName = a});++instance AWSRequest AssociateNode where+        type Rs AssociateNode = AssociateNodeResponse+        request = postJSON opsWorksCM+        response+          = receiveJSON+              (\ s h x ->+                 AssociateNodeResponse' <$>+                   (x .?> "NodeAssociationStatusToken") <*>+                     (pure (fromEnum s)))++instance Hashable AssociateNode++instance NFData AssociateNode++instance ToHeaders AssociateNode where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OpsWorksCM_V2016_11_01.AssociateNode" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON AssociateNode where+        toJSON AssociateNode'{..}+          = object+              (catMaybes+                 [("EngineAttributes" .=) <$> _anEngineAttributes,+                  Just ("ServerName" .= _anServerName),+                  Just ("NodeName" .= _anNodeName)])++instance ToPath AssociateNode where+        toPath = const "/"++instance ToQuery AssociateNode where+        toQuery = const mempty++-- | /See:/ 'associateNodeResponse' smart constructor.+data AssociateNodeResponse = AssociateNodeResponse'+    { _anrsNodeAssociationStatusToken :: !(Maybe Text)+    , _anrsResponseStatus             :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AssociateNodeResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'anrsNodeAssociationStatusToken' - Undocumented member.+--+-- * 'anrsResponseStatus' - -- | The response status code.+associateNodeResponse+    :: Int -- ^ 'anrsResponseStatus'+    -> AssociateNodeResponse+associateNodeResponse pResponseStatus_ =+    AssociateNodeResponse'+    { _anrsNodeAssociationStatusToken = Nothing+    , _anrsResponseStatus = pResponseStatus_+    }++-- | Undocumented member.+anrsNodeAssociationStatusToken :: Lens' AssociateNodeResponse (Maybe Text)+anrsNodeAssociationStatusToken = lens _anrsNodeAssociationStatusToken (\ s a -> s{_anrsNodeAssociationStatusToken = a});++-- | -- | The response status code.+anrsResponseStatus :: Lens' AssociateNodeResponse Int+anrsResponseStatus = lens _anrsResponseStatus (\ s a -> s{_anrsResponseStatus = a});++instance NFData AssociateNodeResponse
+ gen/Network/AWS/OpsWorksCM/CreateBackup.hs view
@@ -0,0 +1,152 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.OpsWorksCM.CreateBackup+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates an application-level backup of a server. While the server is @BACKING_UP@ , the server can not be modified and no additional backup can be created.+--+--+-- Backups can be created for @RUNNING@ , @HEALTHY@ and @UNHEALTHY@ servers.+--+-- This operation is asnychronous.+--+-- By default 50 manual backups can be created.+--+-- A @LimitExceededException@ is thrown then the maximum number of manual backup is reached. A @InvalidStateException@ is thrown when the server is not in any of RUNNING, HEALTHY, UNHEALTHY. A @ResourceNotFoundException@ is thrown when the server is not found. A @ValidationException@ is thrown when parameters of the request are not valid.+--+module Network.AWS.OpsWorksCM.CreateBackup+    (+    -- * Creating a Request+      createBackup+    , CreateBackup+    -- * Request Lenses+    , cbDescription+    , cbServerName++    -- * Destructuring the Response+    , createBackupResponse+    , CreateBackupResponse+    -- * Response Lenses+    , cbrsBackup+    , cbrsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.OpsWorksCM.Types+import           Network.AWS.OpsWorksCM.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'createBackup' smart constructor.+data CreateBackup = CreateBackup'+    { _cbDescription :: !(Maybe Text)+    , _cbServerName  :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateBackup' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cbDescription' - A user-defined description of the backup.+--+-- * 'cbServerName' - The name of the server that you want to back up.+createBackup+    :: Text -- ^ 'cbServerName'+    -> CreateBackup+createBackup pServerName_ =+    CreateBackup'+    { _cbDescription = Nothing+    , _cbServerName = pServerName_+    }++-- | A user-defined description of the backup.+cbDescription :: Lens' CreateBackup (Maybe Text)+cbDescription = lens _cbDescription (\ s a -> s{_cbDescription = a});++-- | The name of the server that you want to back up.+cbServerName :: Lens' CreateBackup Text+cbServerName = lens _cbServerName (\ s a -> s{_cbServerName = a});++instance AWSRequest CreateBackup where+        type Rs CreateBackup = CreateBackupResponse+        request = postJSON opsWorksCM+        response+          = receiveJSON+              (\ s h x ->+                 CreateBackupResponse' <$>+                   (x .?> "Backup") <*> (pure (fromEnum s)))++instance Hashable CreateBackup++instance NFData CreateBackup++instance ToHeaders CreateBackup where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OpsWorksCM_V2016_11_01.CreateBackup" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateBackup where+        toJSON CreateBackup'{..}+          = object+              (catMaybes+                 [("Description" .=) <$> _cbDescription,+                  Just ("ServerName" .= _cbServerName)])++instance ToPath CreateBackup where+        toPath = const "/"++instance ToQuery CreateBackup where+        toQuery = const mempty++-- | /See:/ 'createBackupResponse' smart constructor.+data CreateBackupResponse = CreateBackupResponse'+    { _cbrsBackup         :: !(Maybe Backup)+    , _cbrsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateBackupResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cbrsBackup' - Backup created by request.+--+-- * 'cbrsResponseStatus' - -- | The response status code.+createBackupResponse+    :: Int -- ^ 'cbrsResponseStatus'+    -> CreateBackupResponse+createBackupResponse pResponseStatus_ =+    CreateBackupResponse'+    { _cbrsBackup = Nothing+    , _cbrsResponseStatus = pResponseStatus_+    }++-- | Backup created by request.+cbrsBackup :: Lens' CreateBackupResponse (Maybe Backup)+cbrsBackup = lens _cbrsBackup (\ s a -> s{_cbrsBackup = a});++-- | -- | The response status code.+cbrsResponseStatus :: Lens' CreateBackupResponse Int+cbrsResponseStatus = lens _cbrsResponseStatus (\ s a -> s{_cbrsResponseStatus = a});++instance NFData CreateBackupResponse
+ gen/Network/AWS/OpsWorksCM/CreateServer.hs view
@@ -0,0 +1,300 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.OpsWorksCM.CreateServer+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates and immedately starts a new Server. The server can be used once it has reached the @HEALTHY@ state.+--+--+-- This operation is asnychronous.+--+-- A @LimitExceededException@ is thrown then the maximum number of server backup is reached. A @ResourceAlreadyExistsException@ is raise when a server with the same name already exists in the account. A @ResourceNotFoundException@ is thrown when a backupId is passed, but the backup does not exist. A @ValidationException@ is thrown when parameters of the request are not valid.+--+-- By default 10 servers can be created. A @LimitExceededException@ is raised when the limit is exceeded.+--+-- When no security groups are provided by using @SecurityGroupIds@ , AWS OpsWorks creates a new security group. This security group opens the Chef server to the world on TCP port 443. If a KeyName is present, SSH access is enabled. SSH is also open to the world on TCP port 22.+--+-- By default, the Chef 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.+--+module Network.AWS.OpsWorksCM.CreateServer+    (+    -- * Creating a Request+      createServer+    , CreateServer+    -- * Request Lenses+    , csEngineVersion+    , csDisableAutomatedBackup+    , csSecurityGroupIds+    , csSubnetIds+    , csKeyPair+    , csBackupId+    , csEngine+    , csInstanceType+    , csEngineModel+    , csEngineAttributes+    , csPreferredMaintenanceWindow+    , csPreferredBackupWindow+    , csBackupRetentionCount+    , csServerName+    , csInstanceProfileARN+    , csServiceRoleARN++    -- * Destructuring the Response+    , createServerResponse+    , CreateServerResponse+    -- * Response Lenses+    , csrsServer+    , csrsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.OpsWorksCM.Types+import           Network.AWS.OpsWorksCM.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'createServer' smart constructor.+data CreateServer = CreateServer'+    { _csEngineVersion              :: !(Maybe Text)+    , _csDisableAutomatedBackup     :: !(Maybe Bool)+    , _csSecurityGroupIds           :: !(Maybe [Text])+    , _csSubnetIds                  :: !(Maybe [Text])+    , _csKeyPair                    :: !(Maybe Text)+    , _csBackupId                   :: !(Maybe Text)+    , _csEngine                     :: !(Maybe Text)+    , _csInstanceType               :: !(Maybe Text)+    , _csEngineModel                :: !(Maybe Text)+    , _csEngineAttributes           :: !(Maybe [EngineAttribute])+    , _csPreferredMaintenanceWindow :: !(Maybe Text)+    , _csPreferredBackupWindow      :: !(Maybe Text)+    , _csBackupRetentionCount       :: !(Maybe Nat)+    , _csServerName                 :: !Text+    , _csInstanceProfileARN         :: !Text+    , _csServiceRoleARN             :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateServer' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'csEngineVersion' - The major release version of the engine that you want to use. Values depend on the engine that you choose.+--+-- * 'csDisableAutomatedBackup' - Enable or disable scheduled backups. Valid values are @true@ or @false@ . The default value is @true@ .+--+-- * 'csSecurityGroupIds' - 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 for Chef Automate creates one new security group that uses TCP ports 22 and 443, open to 0.0.0.0/0 (everyone).+--+-- * 'csSubnetIds' - 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 <http://docs.aws.amazon.com/https:/docs.aws.amazon.com/AWSEC2/latest/UserGuide/ec2-supported-platforms.html Supported Platforms> .+--+-- * 'csKeyPair' - The Amazon EC2 key pair to set for the instance. You may specify this parameter to connect to your instances by using SSH.+--+-- * 'csBackupId' - If you specify this field, AWS OpsWorks for Chef Automate creates the server by using the backup represented by BackupId.+--+-- * 'csEngine' - The configuration management engine to use. Valid values include @Chef@ .+--+-- * 'csInstanceType' - The Amazon EC2 instance type to use. Valid values must be specified in the following format: @^([cm][34]|t2).*@ For example, @c3.large@ .+--+-- * 'csEngineModel' - The engine model, or option. Valid values include @Single@ .+--+-- * 'csEngineAttributes' - Engine attributes on a specified server.  __Attributes accepted in a createServer request:__      * @CHEF_PIVOTAL_KEY@ : A base64-encoded RSA private key that is not stored by AWS OpsWorks for Chef Automate. This private key is required to access the Chef API.+--+-- * 'csPreferredMaintenanceWindow' - The start time for a one-hour period each week during which AWS OpsWorks for Chef Automate performs maintenance on the instance. Valid values must be specified in the following format: @DDD:HH:MM@ . 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.)+--+-- * 'csPreferredBackupWindow' - The start time for a one-hour period during which AWS OpsWorks for Chef Automate backs up application-level data on your server if 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 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.)+--+-- * 'csBackupRetentionCount' - The number of automated backups that you want to keep. Whenever a new backup is created, AWS OpsWorks for Chef Automate deletes the oldest backups if this number is exceeded. The default value is @1@ .+--+-- * 'csServerName' - 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 32 characters.+--+-- * 'csInstanceProfileARN' - The ARN of the instance profile that your Amazon EC2 instances use. Although the AWS OpsWorks console typically creates the instance profile for you, in this release of AWS OpsWorks for Chef Automate, run the service-role-creation.yaml AWS CloudFormation template, located at https://s3.amazonaws.com/opsworks-stuff/latest/service-role-creation.yaml. This template creates a stack that includes the instance profile you need.+--+-- * 'csServiceRoleARN' - The service role that the AWS OpsWorks for Chef Automate service backend uses to work with your account. Although the AWS OpsWorks console typically creates the service role for you, in this release of AWS OpsWorks for Chef Automate, run the service-role-creation.yaml AWS CloudFormation template, located at https://s3.amazonaws.com/opsworks-stuff/latest/service-role-creation.yaml. This template creates a stack that includes the service role that you need.+createServer+    :: Text -- ^ 'csServerName'+    -> Text -- ^ 'csInstanceProfileARN'+    -> Text -- ^ 'csServiceRoleARN'+    -> CreateServer+createServer pServerName_ pInstanceProfileARN_ pServiceRoleARN_ =+    CreateServer'+    { _csEngineVersion = Nothing+    , _csDisableAutomatedBackup = Nothing+    , _csSecurityGroupIds = Nothing+    , _csSubnetIds = Nothing+    , _csKeyPair = Nothing+    , _csBackupId = Nothing+    , _csEngine = Nothing+    , _csInstanceType = Nothing+    , _csEngineModel = Nothing+    , _csEngineAttributes = Nothing+    , _csPreferredMaintenanceWindow = Nothing+    , _csPreferredBackupWindow = Nothing+    , _csBackupRetentionCount = Nothing+    , _csServerName = pServerName_+    , _csInstanceProfileARN = pInstanceProfileARN_+    , _csServiceRoleARN = pServiceRoleARN_+    }++-- | The major release version of the engine that you want to use. Values depend on the engine that you choose.+csEngineVersion :: Lens' CreateServer (Maybe Text)+csEngineVersion = lens _csEngineVersion (\ s a -> s{_csEngineVersion = a});++-- | Enable or disable scheduled backups. Valid values are @true@ or @false@ . The default value is @true@ .+csDisableAutomatedBackup :: Lens' CreateServer (Maybe Bool)+csDisableAutomatedBackup = lens _csDisableAutomatedBackup (\ s a -> s{_csDisableAutomatedBackup = a});++-- | 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 for Chef Automate creates one new security group that uses TCP ports 22 and 443, open to 0.0.0.0/0 (everyone).+csSecurityGroupIds :: Lens' CreateServer [Text]+csSecurityGroupIds = lens _csSecurityGroupIds (\ s a -> s{_csSecurityGroupIds = a}) . _Default . _Coerce;++-- | 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 <http://docs.aws.amazon.com/https:/docs.aws.amazon.com/AWSEC2/latest/UserGuide/ec2-supported-platforms.html Supported Platforms> .+csSubnetIds :: Lens' CreateServer [Text]+csSubnetIds = lens _csSubnetIds (\ s a -> s{_csSubnetIds = a}) . _Default . _Coerce;++-- | The Amazon EC2 key pair to set for the instance. You may specify this parameter to connect to your instances by using SSH.+csKeyPair :: Lens' CreateServer (Maybe Text)+csKeyPair = lens _csKeyPair (\ s a -> s{_csKeyPair = a});++-- | If you specify this field, AWS OpsWorks for Chef Automate creates the server by using the backup represented by BackupId.+csBackupId :: Lens' CreateServer (Maybe Text)+csBackupId = lens _csBackupId (\ s a -> s{_csBackupId = a});++-- | The configuration management engine to use. Valid values include @Chef@ .+csEngine :: Lens' CreateServer (Maybe Text)+csEngine = lens _csEngine (\ s a -> s{_csEngine = a});++-- | The Amazon EC2 instance type to use. Valid values must be specified in the following format: @^([cm][34]|t2).*@ For example, @c3.large@ .+csInstanceType :: Lens' CreateServer (Maybe Text)+csInstanceType = lens _csInstanceType (\ s a -> s{_csInstanceType = a});++-- | The engine model, or option. Valid values include @Single@ .+csEngineModel :: Lens' CreateServer (Maybe Text)+csEngineModel = lens _csEngineModel (\ s a -> s{_csEngineModel = a});++-- | Engine attributes on a specified server.  __Attributes accepted in a createServer request:__      * @CHEF_PIVOTAL_KEY@ : A base64-encoded RSA private key that is not stored by AWS OpsWorks for Chef Automate. This private key is required to access the Chef API.+csEngineAttributes :: Lens' CreateServer [EngineAttribute]+csEngineAttributes = lens _csEngineAttributes (\ s a -> s{_csEngineAttributes = a}) . _Default . _Coerce;++-- | The start time for a one-hour period each week during which AWS OpsWorks for Chef Automate performs maintenance on the instance. Valid values must be specified in the following format: @DDD:HH:MM@ . 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.)+csPreferredMaintenanceWindow :: Lens' CreateServer (Maybe Text)+csPreferredMaintenanceWindow = lens _csPreferredMaintenanceWindow (\ s a -> s{_csPreferredMaintenanceWindow = a});++-- | The start time for a one-hour period during which AWS OpsWorks for Chef Automate backs up application-level data on your server if 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 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.)+csPreferredBackupWindow :: Lens' CreateServer (Maybe Text)+csPreferredBackupWindow = lens _csPreferredBackupWindow (\ s a -> s{_csPreferredBackupWindow = a});++-- | The number of automated backups that you want to keep. Whenever a new backup is created, AWS OpsWorks for Chef Automate deletes the oldest backups if this number is exceeded. The default value is @1@ .+csBackupRetentionCount :: Lens' CreateServer (Maybe Natural)+csBackupRetentionCount = lens _csBackupRetentionCount (\ s a -> s{_csBackupRetentionCount = a}) . mapping _Nat;++-- | 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 32 characters.+csServerName :: Lens' CreateServer Text+csServerName = lens _csServerName (\ s a -> s{_csServerName = a});++-- | The ARN of the instance profile that your Amazon EC2 instances use. Although the AWS OpsWorks console typically creates the instance profile for you, in this release of AWS OpsWorks for Chef Automate, run the service-role-creation.yaml AWS CloudFormation template, located at https://s3.amazonaws.com/opsworks-stuff/latest/service-role-creation.yaml. This template creates a stack that includes the instance profile you need.+csInstanceProfileARN :: Lens' CreateServer Text+csInstanceProfileARN = lens _csInstanceProfileARN (\ s a -> s{_csInstanceProfileARN = a});++-- | The service role that the AWS OpsWorks for Chef Automate service backend uses to work with your account. Although the AWS OpsWorks console typically creates the service role for you, in this release of AWS OpsWorks for Chef Automate, run the service-role-creation.yaml AWS CloudFormation template, located at https://s3.amazonaws.com/opsworks-stuff/latest/service-role-creation.yaml. This template creates a stack that includes the service role that you need.+csServiceRoleARN :: Lens' CreateServer Text+csServiceRoleARN = lens _csServiceRoleARN (\ s a -> s{_csServiceRoleARN = a});++instance AWSRequest CreateServer where+        type Rs CreateServer = CreateServerResponse+        request = postJSON opsWorksCM+        response+          = receiveJSON+              (\ s h x ->+                 CreateServerResponse' <$>+                   (x .?> "Server") <*> (pure (fromEnum s)))++instance Hashable CreateServer++instance NFData CreateServer++instance ToHeaders CreateServer where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OpsWorksCM_V2016_11_01.CreateServer" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateServer where+        toJSON CreateServer'{..}+          = object+              (catMaybes+                 [("EngineVersion" .=) <$> _csEngineVersion,+                  ("DisableAutomatedBackup" .=) <$>+                    _csDisableAutomatedBackup,+                  ("SecurityGroupIds" .=) <$> _csSecurityGroupIds,+                  ("SubnetIds" .=) <$> _csSubnetIds,+                  ("KeyPair" .=) <$> _csKeyPair,+                  ("BackupId" .=) <$> _csBackupId,+                  ("Engine" .=) <$> _csEngine,+                  ("InstanceType" .=) <$> _csInstanceType,+                  ("EngineModel" .=) <$> _csEngineModel,+                  ("EngineAttributes" .=) <$> _csEngineAttributes,+                  ("PreferredMaintenanceWindow" .=) <$>+                    _csPreferredMaintenanceWindow,+                  ("PreferredBackupWindow" .=) <$>+                    _csPreferredBackupWindow,+                  ("BackupRetentionCount" .=) <$>+                    _csBackupRetentionCount,+                  Just ("ServerName" .= _csServerName),+                  Just ("InstanceProfileArn" .= _csInstanceProfileARN),+                  Just ("ServiceRoleArn" .= _csServiceRoleARN)])++instance ToPath CreateServer where+        toPath = const "/"++instance ToQuery CreateServer where+        toQuery = const mempty++-- | /See:/ 'createServerResponse' smart constructor.+data CreateServerResponse = CreateServerResponse'+    { _csrsServer         :: !(Maybe Server)+    , _csrsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateServerResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'csrsServer' - The server that is created by the request.+--+-- * 'csrsResponseStatus' - -- | The response status code.+createServerResponse+    :: Int -- ^ 'csrsResponseStatus'+    -> CreateServerResponse+createServerResponse pResponseStatus_ =+    CreateServerResponse'+    { _csrsServer = Nothing+    , _csrsResponseStatus = pResponseStatus_+    }++-- | The server that is created by the request.+csrsServer :: Lens' CreateServerResponse (Maybe Server)+csrsServer = lens _csrsServer (\ s a -> s{_csrsServer = a});++-- | -- | The response status code.+csrsResponseStatus :: Lens' CreateServerResponse Int+csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a});++instance NFData CreateServerResponse
+ gen/Network/AWS/OpsWorksCM/DeleteBackup.hs view
@@ -0,0 +1,127 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.OpsWorksCM.DeleteBackup+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a backup. You can delete both manual and automated backups.+--+--+-- This operation is asynchronous.+--+-- A @InvalidStateException@ is thrown then a backup is already deleting. A @ResourceNotFoundException@ is thrown when the backup does not exist. A @ValidationException@ is thrown when parameters of the request are not valid.+--+module Network.AWS.OpsWorksCM.DeleteBackup+    (+    -- * Creating a Request+      deleteBackup+    , DeleteBackup+    -- * Request Lenses+    , dbBackupId++    -- * Destructuring the Response+    , deleteBackupResponse+    , DeleteBackupResponse+    -- * Response Lenses+    , dbrsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.OpsWorksCM.Types+import           Network.AWS.OpsWorksCM.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'deleteBackup' smart constructor.+newtype DeleteBackup = DeleteBackup'+    { _dbBackupId :: Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteBackup' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dbBackupId' - 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+    :: Text -- ^ 'dbBackupId'+    -> DeleteBackup+deleteBackup pBackupId_ =+    DeleteBackup'+    { _dbBackupId = 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@ .+dbBackupId :: Lens' DeleteBackup Text+dbBackupId = lens _dbBackupId (\ s a -> s{_dbBackupId = a});++instance AWSRequest DeleteBackup where+        type Rs DeleteBackup = DeleteBackupResponse+        request = postJSON opsWorksCM+        response+          = receiveEmpty+              (\ s h x ->+                 DeleteBackupResponse' <$> (pure (fromEnum s)))++instance Hashable DeleteBackup++instance NFData DeleteBackup++instance ToHeaders DeleteBackup where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OpsWorksCM_V2016_11_01.DeleteBackup" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteBackup where+        toJSON DeleteBackup'{..}+          = object+              (catMaybes [Just ("BackupId" .= _dbBackupId)])++instance ToPath DeleteBackup where+        toPath = const "/"++instance ToQuery DeleteBackup where+        toQuery = const mempty++-- | /See:/ 'deleteBackupResponse' smart constructor.+newtype DeleteBackupResponse = DeleteBackupResponse'+    { _dbrsResponseStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteBackupResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dbrsResponseStatus' - -- | The response status code.+deleteBackupResponse+    :: Int -- ^ 'dbrsResponseStatus'+    -> DeleteBackupResponse+deleteBackupResponse pResponseStatus_ =+    DeleteBackupResponse'+    { _dbrsResponseStatus = pResponseStatus_+    }++-- | -- | The response status code.+dbrsResponseStatus :: Lens' DeleteBackupResponse Int+dbrsResponseStatus = lens _dbrsResponseStatus (\ s a -> s{_dbrsResponseStatus = a});++instance NFData DeleteBackupResponse
+ gen/Network/AWS/OpsWorksCM/DeleteServer.hs view
@@ -0,0 +1,129 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.OpsWorksCM.DeleteServer+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the server and the underlying AWS CloudFormation stack (including the server's EC2 instance). The server status updated to @DELETING@ . Once the server is successfully deleted, it will no longer be returned by @DescribeServer@ requests. If the AWS CloudFormation stack cannot be deleted, the server cannot be deleted.+--+--+-- This operation is asynchronous.+--+-- A @InvalidStateException@ is thrown then a server is already deleting. A @ResourceNotFoundException@ is thrown when the server does not exist. A @ValidationException@ is raised when parameters of the request are invalid.+--+--+--+module Network.AWS.OpsWorksCM.DeleteServer+    (+    -- * Creating a Request+      deleteServer+    , DeleteServer+    -- * Request Lenses+    , dsServerName++    -- * Destructuring the Response+    , deleteServerResponse+    , DeleteServerResponse+    -- * Response Lenses+    , dsrsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.OpsWorksCM.Types+import           Network.AWS.OpsWorksCM.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'deleteServer' smart constructor.+newtype DeleteServer = DeleteServer'+    { _dsServerName :: Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteServer' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dsServerName' - The ID of the server to delete.+deleteServer+    :: Text -- ^ 'dsServerName'+    -> DeleteServer+deleteServer pServerName_ =+    DeleteServer'+    { _dsServerName = pServerName_+    }++-- | The ID of the server to delete.+dsServerName :: Lens' DeleteServer Text+dsServerName = lens _dsServerName (\ s a -> s{_dsServerName = a});++instance AWSRequest DeleteServer where+        type Rs DeleteServer = DeleteServerResponse+        request = postJSON opsWorksCM+        response+          = receiveEmpty+              (\ s h x ->+                 DeleteServerResponse' <$> (pure (fromEnum s)))++instance Hashable DeleteServer++instance NFData DeleteServer++instance ToHeaders DeleteServer where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OpsWorksCM_V2016_11_01.DeleteServer" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteServer where+        toJSON DeleteServer'{..}+          = object+              (catMaybes [Just ("ServerName" .= _dsServerName)])++instance ToPath DeleteServer where+        toPath = const "/"++instance ToQuery DeleteServer where+        toQuery = const mempty++-- | /See:/ 'deleteServerResponse' smart constructor.+newtype DeleteServerResponse = DeleteServerResponse'+    { _dsrsResponseStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteServerResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dsrsResponseStatus' - -- | The response status code.+deleteServerResponse+    :: Int -- ^ 'dsrsResponseStatus'+    -> DeleteServerResponse+deleteServerResponse pResponseStatus_ =+    DeleteServerResponse'+    { _dsrsResponseStatus = pResponseStatus_+    }++-- | -- | The response status code.+dsrsResponseStatus :: Lens' DeleteServerResponse Int+dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a});++instance NFData DeleteServerResponse
+ gen/Network/AWS/OpsWorksCM/DescribeAccountAttributes.hs view
@@ -0,0 +1,122 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.OpsWorksCM.DescribeAccountAttributes+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes your account attributes, and creates requests to increase limits before they are reached or exceeded.+--+--+-- This operation is synchronous.+--+module Network.AWS.OpsWorksCM.DescribeAccountAttributes+    (+    -- * Creating a Request+      describeAccountAttributes+    , DescribeAccountAttributes++    -- * Destructuring the Response+    , describeAccountAttributesResponse+    , DescribeAccountAttributesResponse+    -- * Response Lenses+    , daarsAttributes+    , daarsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.OpsWorksCM.Types+import           Network.AWS.OpsWorksCM.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'describeAccountAttributes' smart constructor.+data DescribeAccountAttributes =+    DescribeAccountAttributes'+    deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeAccountAttributes' with the minimum fields required to make a request.+--+describeAccountAttributes+    :: DescribeAccountAttributes+describeAccountAttributes = DescribeAccountAttributes'++instance AWSRequest DescribeAccountAttributes where+        type Rs DescribeAccountAttributes =+             DescribeAccountAttributesResponse+        request = postJSON opsWorksCM+        response+          = receiveJSON+              (\ s h x ->+                 DescribeAccountAttributesResponse' <$>+                   (x .?> "Attributes" .!@ mempty) <*>+                     (pure (fromEnum s)))++instance Hashable DescribeAccountAttributes++instance NFData DescribeAccountAttributes++instance ToHeaders DescribeAccountAttributes where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OpsWorksCM_V2016_11_01.DescribeAccountAttributes"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeAccountAttributes where+        toJSON = const (Object mempty)++instance ToPath DescribeAccountAttributes where+        toPath = const "/"++instance ToQuery DescribeAccountAttributes where+        toQuery = const mempty++-- | /See:/ 'describeAccountAttributesResponse' smart constructor.+data DescribeAccountAttributesResponse = DescribeAccountAttributesResponse'+    { _daarsAttributes     :: !(Maybe [AccountAttribute])+    , _daarsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeAccountAttributesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'daarsAttributes' - The attributes that are currently set for the account.+--+-- * 'daarsResponseStatus' - -- | The response status code.+describeAccountAttributesResponse+    :: Int -- ^ 'daarsResponseStatus'+    -> DescribeAccountAttributesResponse+describeAccountAttributesResponse pResponseStatus_ =+    DescribeAccountAttributesResponse'+    { _daarsAttributes = Nothing+    , _daarsResponseStatus = pResponseStatus_+    }++-- | The attributes that are currently set for the account.+daarsAttributes :: Lens' DescribeAccountAttributesResponse [AccountAttribute]+daarsAttributes = lens _daarsAttributes (\ s a -> s{_daarsAttributes = a}) . _Default . _Coerce;++-- | -- | The response status code.+daarsResponseStatus :: Lens' DescribeAccountAttributesResponse Int+daarsResponseStatus = lens _daarsResponseStatus (\ s a -> s{_daarsResponseStatus = a});++instance NFData DescribeAccountAttributesResponse
+ gen/Network/AWS/OpsWorksCM/DescribeBackups.hs view
@@ -0,0 +1,177 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.OpsWorksCM.DescribeBackups+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- 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 invalid.+--+module Network.AWS.OpsWorksCM.DescribeBackups+    (+    -- * Creating a Request+      describeBackups+    , DescribeBackups+    -- * Request Lenses+    , dServerName+    , dBackupId+    , dNextToken+    , dMaxResults++    -- * Destructuring the Response+    , describeBackupsResponse+    , DescribeBackupsResponse+    -- * Response Lenses+    , drsBackups+    , drsNextToken+    , drsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.OpsWorksCM.Types+import           Network.AWS.OpsWorksCM.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'describeBackups' smart constructor.+data DescribeBackups = DescribeBackups'+    { _dServerName :: !(Maybe Text)+    , _dBackupId   :: !(Maybe Text)+    , _dNextToken  :: !(Maybe Text)+    , _dMaxResults :: !(Maybe Nat)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeBackups' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dServerName' - Returns backups for the server with the specified ServerName.+--+-- * 'dBackupId' - Describes a single backup.+--+-- * 'dNextToken' - 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 @DescribeBackups@ 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.+--+-- * 'dMaxResults' - 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.+describeBackups+    :: DescribeBackups+describeBackups =+    DescribeBackups'+    { _dServerName = Nothing+    , _dBackupId = Nothing+    , _dNextToken = Nothing+    , _dMaxResults = Nothing+    }++-- | Returns backups for the server with the specified ServerName.+dServerName :: Lens' DescribeBackups (Maybe Text)+dServerName = lens _dServerName (\ s a -> s{_dServerName = a});++-- | Describes a single backup.+dBackupId :: Lens' DescribeBackups (Maybe Text)+dBackupId = lens _dBackupId (\ s a -> s{_dBackupId = a});++-- | 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 @DescribeBackups@ 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.+dNextToken :: Lens' DescribeBackups (Maybe Text)+dNextToken = lens _dNextToken (\ s a -> s{_dNextToken = a});++-- | 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.+dMaxResults :: Lens' DescribeBackups (Maybe Natural)+dMaxResults = lens _dMaxResults (\ s a -> s{_dMaxResults = a}) . mapping _Nat;++instance AWSRequest DescribeBackups where+        type Rs DescribeBackups = DescribeBackupsResponse+        request = postJSON opsWorksCM+        response+          = receiveJSON+              (\ s h x ->+                 DescribeBackupsResponse' <$>+                   (x .?> "Backups" .!@ mempty) <*> (x .?> "NextToken")+                     <*> (pure (fromEnum s)))++instance Hashable DescribeBackups++instance NFData DescribeBackups++instance ToHeaders DescribeBackups where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OpsWorksCM_V2016_11_01.DescribeBackups" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeBackups where+        toJSON DescribeBackups'{..}+          = object+              (catMaybes+                 [("ServerName" .=) <$> _dServerName,+                  ("BackupId" .=) <$> _dBackupId,+                  ("NextToken" .=) <$> _dNextToken,+                  ("MaxResults" .=) <$> _dMaxResults])++instance ToPath DescribeBackups where+        toPath = const "/"++instance ToQuery DescribeBackups where+        toQuery = const mempty++-- | /See:/ 'describeBackupsResponse' smart constructor.+data DescribeBackupsResponse = DescribeBackupsResponse'+    { _drsBackups        :: !(Maybe [Backup])+    , _drsNextToken      :: !(Maybe Text)+    , _drsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeBackupsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drsBackups' - Contains the response to a @DescribeBackups@ request.+--+-- * 'drsNextToken' - 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 @DescribeBackups@ 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.+--+-- * 'drsResponseStatus' - -- | The response status code.+describeBackupsResponse+    :: Int -- ^ 'drsResponseStatus'+    -> DescribeBackupsResponse+describeBackupsResponse pResponseStatus_ =+    DescribeBackupsResponse'+    { _drsBackups = Nothing+    , _drsNextToken = Nothing+    , _drsResponseStatus = pResponseStatus_+    }++-- | Contains the response to a @DescribeBackups@ request.+drsBackups :: Lens' DescribeBackupsResponse [Backup]+drsBackups = lens _drsBackups (\ s a -> s{_drsBackups = a}) . _Default . _Coerce;++-- | 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 @DescribeBackups@ 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.+drsNextToken :: Lens' DescribeBackupsResponse (Maybe Text)+drsNextToken = lens _drsNextToken (\ s a -> s{_drsNextToken = a});++-- | -- | The response status code.+drsResponseStatus :: Lens' DescribeBackupsResponse Int+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});++instance NFData DescribeBackupsResponse
+ gen/Network/AWS/OpsWorksCM/DescribeEvents.hs view
@@ -0,0 +1,169 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.OpsWorksCM.DescribeEvents+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- 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 invalid.+--+module Network.AWS.OpsWorksCM.DescribeEvents+    (+    -- * Creating a Request+      describeEvents+    , DescribeEvents+    -- * Request Lenses+    , deNextToken+    , deMaxResults+    , deServerName++    -- * Destructuring the Response+    , describeEventsResponse+    , DescribeEventsResponse+    -- * Response Lenses+    , dersServerEvents+    , dersNextToken+    , dersResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.OpsWorksCM.Types+import           Network.AWS.OpsWorksCM.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'describeEvents' smart constructor.+data DescribeEvents = DescribeEvents'+    { _deNextToken  :: !(Maybe Text)+    , _deMaxResults :: !(Maybe Nat)+    , _deServerName :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeEvents' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'deNextToken' - 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.+--+-- * 'deMaxResults' - 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.+--+-- * 'deServerName' - The name of the server for which you want to view events.+describeEvents+    :: Text -- ^ 'deServerName'+    -> DescribeEvents+describeEvents pServerName_ =+    DescribeEvents'+    { _deNextToken = Nothing+    , _deMaxResults = Nothing+    , _deServerName = pServerName_+    }++-- | 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.+deNextToken :: Lens' DescribeEvents (Maybe Text)+deNextToken = lens _deNextToken (\ s a -> s{_deNextToken = a});++-- | 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.+deMaxResults :: Lens' DescribeEvents (Maybe Natural)+deMaxResults = lens _deMaxResults (\ s a -> s{_deMaxResults = a}) . mapping _Nat;++-- | The name of the server for which you want to view events.+deServerName :: Lens' DescribeEvents Text+deServerName = lens _deServerName (\ s a -> s{_deServerName = a});++instance AWSRequest DescribeEvents where+        type Rs DescribeEvents = DescribeEventsResponse+        request = postJSON opsWorksCM+        response+          = receiveJSON+              (\ s h x ->+                 DescribeEventsResponse' <$>+                   (x .?> "ServerEvents" .!@ mempty) <*>+                     (x .?> "NextToken")+                     <*> (pure (fromEnum s)))++instance Hashable DescribeEvents++instance NFData DescribeEvents++instance ToHeaders DescribeEvents where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OpsWorksCM_V2016_11_01.DescribeEvents" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeEvents where+        toJSON DescribeEvents'{..}+          = object+              (catMaybes+                 [("NextToken" .=) <$> _deNextToken,+                  ("MaxResults" .=) <$> _deMaxResults,+                  Just ("ServerName" .= _deServerName)])++instance ToPath DescribeEvents where+        toPath = const "/"++instance ToQuery DescribeEvents where+        toQuery = const mempty++-- | /See:/ 'describeEventsResponse' smart constructor.+data DescribeEventsResponse = DescribeEventsResponse'+    { _dersServerEvents   :: !(Maybe [ServerEvent])+    , _dersNextToken      :: !(Maybe Text)+    , _dersResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeEventsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dersServerEvents' - Contains the response to a @DescribeEvents@ request.+--+-- * 'dersNextToken' - 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.+--+-- * 'dersResponseStatus' - -- | The response status code.+describeEventsResponse+    :: Int -- ^ 'dersResponseStatus'+    -> DescribeEventsResponse+describeEventsResponse pResponseStatus_ =+    DescribeEventsResponse'+    { _dersServerEvents = Nothing+    , _dersNextToken = Nothing+    , _dersResponseStatus = pResponseStatus_+    }++-- | Contains the response to a @DescribeEvents@ request.+dersServerEvents :: Lens' DescribeEventsResponse [ServerEvent]+dersServerEvents = lens _dersServerEvents (\ s a -> s{_dersServerEvents = a}) . _Default . _Coerce;++-- | 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.+dersNextToken :: Lens' DescribeEventsResponse (Maybe Text)+dersNextToken = lens _dersNextToken (\ s a -> s{_dersNextToken = a});++-- | -- | The response status code.+dersResponseStatus :: Lens' DescribeEventsResponse Int+dersResponseStatus = lens _dersResponseStatus (\ s a -> s{_dersResponseStatus = a});++instance NFData DescribeEventsResponse
+ gen/Network/AWS/OpsWorksCM/DescribeNodeAssociationStatus.hs view
@@ -0,0 +1,149 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.OpsWorksCM.DescribeNodeAssociationStatus+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Undocumented operation.+module Network.AWS.OpsWorksCM.DescribeNodeAssociationStatus+    (+    -- * Creating a Request+      describeNodeAssociationStatus+    , DescribeNodeAssociationStatus+    -- * Request Lenses+    , dnasNodeAssociationStatusToken+    , dnasServerName++    -- * Destructuring the Response+    , describeNodeAssociationStatusResponse+    , DescribeNodeAssociationStatusResponse+    -- * Response Lenses+    , dnasrsNodeAssociationStatus+    , dnasrsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.OpsWorksCM.Types+import           Network.AWS.OpsWorksCM.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'describeNodeAssociationStatus' smart constructor.+data DescribeNodeAssociationStatus = DescribeNodeAssociationStatus'+    { _dnasNodeAssociationStatusToken :: !Text+    , _dnasServerName                 :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeNodeAssociationStatus' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dnasNodeAssociationStatusToken' - Undocumented member.+--+-- * 'dnasServerName' - Undocumented member.+describeNodeAssociationStatus+    :: Text -- ^ 'dnasNodeAssociationStatusToken'+    -> Text -- ^ 'dnasServerName'+    -> DescribeNodeAssociationStatus+describeNodeAssociationStatus pNodeAssociationStatusToken_ pServerName_ =+    DescribeNodeAssociationStatus'+    { _dnasNodeAssociationStatusToken = pNodeAssociationStatusToken_+    , _dnasServerName = pServerName_+    }++-- | Undocumented member.+dnasNodeAssociationStatusToken :: Lens' DescribeNodeAssociationStatus Text+dnasNodeAssociationStatusToken = lens _dnasNodeAssociationStatusToken (\ s a -> s{_dnasNodeAssociationStatusToken = a});++-- | Undocumented member.+dnasServerName :: Lens' DescribeNodeAssociationStatus Text+dnasServerName = lens _dnasServerName (\ s a -> s{_dnasServerName = a});++instance AWSRequest DescribeNodeAssociationStatus+         where+        type Rs DescribeNodeAssociationStatus =+             DescribeNodeAssociationStatusResponse+        request = postJSON opsWorksCM+        response+          = receiveJSON+              (\ s h x ->+                 DescribeNodeAssociationStatusResponse' <$>+                   (x .?> "NodeAssociationStatus") <*>+                     (pure (fromEnum s)))++instance Hashable DescribeNodeAssociationStatus++instance NFData DescribeNodeAssociationStatus++instance ToHeaders DescribeNodeAssociationStatus+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OpsWorksCM_V2016_11_01.DescribeNodeAssociationStatus"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeNodeAssociationStatus where+        toJSON DescribeNodeAssociationStatus'{..}+          = object+              (catMaybes+                 [Just+                    ("NodeAssociationStatusToken" .=+                       _dnasNodeAssociationStatusToken),+                  Just ("ServerName" .= _dnasServerName)])++instance ToPath DescribeNodeAssociationStatus where+        toPath = const "/"++instance ToQuery DescribeNodeAssociationStatus where+        toQuery = const mempty++-- | /See:/ 'describeNodeAssociationStatusResponse' smart constructor.+data DescribeNodeAssociationStatusResponse = DescribeNodeAssociationStatusResponse'+    { _dnasrsNodeAssociationStatus :: !(Maybe NodeAssociationStatus)+    , _dnasrsResponseStatus        :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeNodeAssociationStatusResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dnasrsNodeAssociationStatus' - Undocumented member.+--+-- * 'dnasrsResponseStatus' - -- | The response status code.+describeNodeAssociationStatusResponse+    :: Int -- ^ 'dnasrsResponseStatus'+    -> DescribeNodeAssociationStatusResponse+describeNodeAssociationStatusResponse pResponseStatus_ =+    DescribeNodeAssociationStatusResponse'+    { _dnasrsNodeAssociationStatus = Nothing+    , _dnasrsResponseStatus = pResponseStatus_+    }++-- | Undocumented member.+dnasrsNodeAssociationStatus :: Lens' DescribeNodeAssociationStatusResponse (Maybe NodeAssociationStatus)+dnasrsNodeAssociationStatus = lens _dnasrsNodeAssociationStatus (\ s a -> s{_dnasrsNodeAssociationStatus = a});++-- | -- | The response status code.+dnasrsResponseStatus :: Lens' DescribeNodeAssociationStatusResponse Int+dnasrsResponseStatus = lens _dnasrsResponseStatus (\ s a -> s{_dnasrsResponseStatus = a});++instance NFData DescribeNodeAssociationStatusResponse
+ gen/Network/AWS/OpsWorksCM/DescribeServers.hs view
@@ -0,0 +1,167 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.OpsWorksCM.DescribeServers+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- 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 for Chef Automate 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 invalid.+--+module Network.AWS.OpsWorksCM.DescribeServers+    (+    -- * Creating a Request+      describeServers+    , DescribeServers+    -- * Request Lenses+    , dssServerName+    , dssNextToken+    , dssMaxResults++    -- * Destructuring the Response+    , describeServersResponse+    , DescribeServersResponse+    -- * Response Lenses+    , dssrsServers+    , dssrsNextToken+    , dssrsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.OpsWorksCM.Types+import           Network.AWS.OpsWorksCM.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'describeServers' smart constructor.+data DescribeServers = DescribeServers'+    { _dssServerName :: !(Maybe Text)+    , _dssNextToken  :: !(Maybe Text)+    , _dssMaxResults :: !(Maybe Nat)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeServers' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dssServerName' - Describes the server with the specified ServerName.+--+-- * 'dssNextToken' - 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 @DescribeServers@ 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.+--+-- * 'dssMaxResults' - 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.+describeServers+    :: DescribeServers+describeServers =+    DescribeServers'+    { _dssServerName = Nothing+    , _dssNextToken = Nothing+    , _dssMaxResults = Nothing+    }++-- | Describes the server with the specified ServerName.+dssServerName :: Lens' DescribeServers (Maybe Text)+dssServerName = lens _dssServerName (\ s a -> s{_dssServerName = a});++-- | 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 @DescribeServers@ 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.+dssNextToken :: Lens' DescribeServers (Maybe Text)+dssNextToken = lens _dssNextToken (\ s a -> s{_dssNextToken = a});++-- | 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.+dssMaxResults :: Lens' DescribeServers (Maybe Natural)+dssMaxResults = lens _dssMaxResults (\ s a -> s{_dssMaxResults = a}) . mapping _Nat;++instance AWSRequest DescribeServers where+        type Rs DescribeServers = DescribeServersResponse+        request = postJSON opsWorksCM+        response+          = receiveJSON+              (\ s h x ->+                 DescribeServersResponse' <$>+                   (x .?> "Servers" .!@ mempty) <*> (x .?> "NextToken")+                     <*> (pure (fromEnum s)))++instance Hashable DescribeServers++instance NFData DescribeServers++instance ToHeaders DescribeServers where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OpsWorksCM_V2016_11_01.DescribeServers" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeServers where+        toJSON DescribeServers'{..}+          = object+              (catMaybes+                 [("ServerName" .=) <$> _dssServerName,+                  ("NextToken" .=) <$> _dssNextToken,+                  ("MaxResults" .=) <$> _dssMaxResults])++instance ToPath DescribeServers where+        toPath = const "/"++instance ToQuery DescribeServers where+        toQuery = const mempty++-- | /See:/ 'describeServersResponse' smart constructor.+data DescribeServersResponse = DescribeServersResponse'+    { _dssrsServers        :: !(Maybe [Server])+    , _dssrsNextToken      :: !(Maybe Text)+    , _dssrsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeServersResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dssrsServers' - Contains the response to a @DescribeServers@ request.+--+-- * 'dssrsNextToken' - 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 @DescribeServers@ 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.+--+-- * 'dssrsResponseStatus' - -- | The response status code.+describeServersResponse+    :: Int -- ^ 'dssrsResponseStatus'+    -> DescribeServersResponse+describeServersResponse pResponseStatus_ =+    DescribeServersResponse'+    { _dssrsServers = Nothing+    , _dssrsNextToken = Nothing+    , _dssrsResponseStatus = pResponseStatus_+    }++-- | Contains the response to a @DescribeServers@ request.+dssrsServers :: Lens' DescribeServersResponse [Server]+dssrsServers = lens _dssrsServers (\ s a -> s{_dssrsServers = a}) . _Default . _Coerce;++-- | 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 @DescribeServers@ 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.+dssrsNextToken :: Lens' DescribeServersResponse (Maybe Text)+dssrsNextToken = lens _dssrsNextToken (\ s a -> s{_dssrsNextToken = a});++-- | -- | The response status code.+dssrsResponseStatus :: Lens' DescribeServersResponse Int+dssrsResponseStatus = lens _dssrsResponseStatus (\ s a -> s{_dssrsResponseStatus = a});++instance NFData DescribeServersResponse
+ gen/Network/AWS/OpsWorksCM/DisassociateNode.hs view
@@ -0,0 +1,154 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.OpsWorksCM.DisassociateNode+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Undocumented operation.+module Network.AWS.OpsWorksCM.DisassociateNode+    (+    -- * Creating a Request+      disassociateNode+    , DisassociateNode+    -- * Request Lenses+    , dnEngineAttributes+    , dnServerName+    , dnNodeName++    -- * Destructuring the Response+    , disassociateNodeResponse+    , DisassociateNodeResponse+    -- * Response Lenses+    , dnrsNodeAssociationStatusToken+    , dnrsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.OpsWorksCM.Types+import           Network.AWS.OpsWorksCM.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'disassociateNode' smart constructor.+data DisassociateNode = DisassociateNode'+    { _dnEngineAttributes :: !(Maybe [EngineAttribute])+    , _dnServerName       :: !Text+    , _dnNodeName         :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DisassociateNode' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dnEngineAttributes' - Undocumented member.+--+-- * 'dnServerName' - Undocumented member.+--+-- * 'dnNodeName' - Undocumented member.+disassociateNode+    :: Text -- ^ 'dnServerName'+    -> Text -- ^ 'dnNodeName'+    -> DisassociateNode+disassociateNode pServerName_ pNodeName_ =+    DisassociateNode'+    { _dnEngineAttributes = Nothing+    , _dnServerName = pServerName_+    , _dnNodeName = pNodeName_+    }++-- | Undocumented member.+dnEngineAttributes :: Lens' DisassociateNode [EngineAttribute]+dnEngineAttributes = lens _dnEngineAttributes (\ s a -> s{_dnEngineAttributes = a}) . _Default . _Coerce;++-- | Undocumented member.+dnServerName :: Lens' DisassociateNode Text+dnServerName = lens _dnServerName (\ s a -> s{_dnServerName = a});++-- | Undocumented member.+dnNodeName :: Lens' DisassociateNode Text+dnNodeName = lens _dnNodeName (\ s a -> s{_dnNodeName = a});++instance AWSRequest DisassociateNode where+        type Rs DisassociateNode = DisassociateNodeResponse+        request = postJSON opsWorksCM+        response+          = receiveJSON+              (\ s h x ->+                 DisassociateNodeResponse' <$>+                   (x .?> "NodeAssociationStatusToken") <*>+                     (pure (fromEnum s)))++instance Hashable DisassociateNode++instance NFData DisassociateNode++instance ToHeaders DisassociateNode where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OpsWorksCM_V2016_11_01.DisassociateNode" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DisassociateNode where+        toJSON DisassociateNode'{..}+          = object+              (catMaybes+                 [("EngineAttributes" .=) <$> _dnEngineAttributes,+                  Just ("ServerName" .= _dnServerName),+                  Just ("NodeName" .= _dnNodeName)])++instance ToPath DisassociateNode where+        toPath = const "/"++instance ToQuery DisassociateNode where+        toQuery = const mempty++-- | /See:/ 'disassociateNodeResponse' smart constructor.+data DisassociateNodeResponse = DisassociateNodeResponse'+    { _dnrsNodeAssociationStatusToken :: !(Maybe Text)+    , _dnrsResponseStatus             :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DisassociateNodeResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dnrsNodeAssociationStatusToken' - Undocumented member.+--+-- * 'dnrsResponseStatus' - -- | The response status code.+disassociateNodeResponse+    :: Int -- ^ 'dnrsResponseStatus'+    -> DisassociateNodeResponse+disassociateNodeResponse pResponseStatus_ =+    DisassociateNodeResponse'+    { _dnrsNodeAssociationStatusToken = Nothing+    , _dnrsResponseStatus = pResponseStatus_+    }++-- | Undocumented member.+dnrsNodeAssociationStatusToken :: Lens' DisassociateNodeResponse (Maybe Text)+dnrsNodeAssociationStatusToken = lens _dnrsNodeAssociationStatusToken (\ s a -> s{_dnrsNodeAssociationStatusToken = a});++-- | -- | The response status code.+dnrsResponseStatus :: Lens' DisassociateNodeResponse Int+dnrsResponseStatus = lens _dnrsResponseStatus (\ s a -> s{_dnrsResponseStatus = a});++instance NFData DisassociateNodeResponse
+ gen/Network/AWS/OpsWorksCM/RestoreServer.hs view
@@ -0,0 +1,159 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.OpsWorksCM.RestoreServer+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Restores a backup to a server that is in a @RUNNING@ , @FAILED@ , or @HEALTHY@ 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 all of the server's client devices should continue to work.+--+--+-- This operation is asynchronous.+--+-- A @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 invalid.+--+module Network.AWS.OpsWorksCM.RestoreServer+    (+    -- * Creating a Request+      restoreServer+    , RestoreServer+    -- * Request Lenses+    , rsKeyPair+    , rsInstanceType+    , rsBackupId+    , rsServerName++    -- * Destructuring the Response+    , restoreServerResponse+    , RestoreServerResponse+    -- * Response Lenses+    , rsrsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.OpsWorksCM.Types+import           Network.AWS.OpsWorksCM.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'restoreServer' smart constructor.+data RestoreServer = RestoreServer'+    { _rsKeyPair      :: !(Maybe Text)+    , _rsInstanceType :: !(Maybe Text)+    , _rsBackupId     :: !Text+    , _rsServerName   :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'RestoreServer' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rsKeyPair' - The name of the key pair to set on the new EC2 instance. This can be helpful if any of the administrators who manage the server no longer have the SSH key.+--+-- * 'rsInstanceType' - The type of the instance to create. Valid values must be specified in the following format: @^([cm][34]|t2).*@ For example, @c3.large@ . If you do not specify this parameter, RestoreServer uses the instance type from the specified backup.+--+-- * 'rsBackupId' - The ID of the backup that you want to use to restore a server.+--+-- * 'rsServerName' - The name of the server that you want to restore.+restoreServer+    :: Text -- ^ 'rsBackupId'+    -> Text -- ^ 'rsServerName'+    -> RestoreServer+restoreServer pBackupId_ pServerName_ =+    RestoreServer'+    { _rsKeyPair = Nothing+    , _rsInstanceType = Nothing+    , _rsBackupId = pBackupId_+    , _rsServerName = pServerName_+    }++-- | The name of the key pair to set on the new EC2 instance. This can be helpful if any of the administrators who manage the server no longer have the SSH key.+rsKeyPair :: Lens' RestoreServer (Maybe Text)+rsKeyPair = lens _rsKeyPair (\ s a -> s{_rsKeyPair = a});++-- | The type of the instance to create. Valid values must be specified in the following format: @^([cm][34]|t2).*@ For example, @c3.large@ . If you do not specify this parameter, RestoreServer uses the instance type from the specified backup.+rsInstanceType :: Lens' RestoreServer (Maybe Text)+rsInstanceType = lens _rsInstanceType (\ s a -> s{_rsInstanceType = a});++-- | The ID of the backup that you want to use to restore a server.+rsBackupId :: Lens' RestoreServer Text+rsBackupId = lens _rsBackupId (\ s a -> s{_rsBackupId = a});++-- | The name of the server that you want to restore.+rsServerName :: Lens' RestoreServer Text+rsServerName = lens _rsServerName (\ s a -> s{_rsServerName = a});++instance AWSRequest RestoreServer where+        type Rs RestoreServer = RestoreServerResponse+        request = postJSON opsWorksCM+        response+          = receiveEmpty+              (\ s h x ->+                 RestoreServerResponse' <$> (pure (fromEnum s)))++instance Hashable RestoreServer++instance NFData RestoreServer++instance ToHeaders RestoreServer where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OpsWorksCM_V2016_11_01.RestoreServer" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON RestoreServer where+        toJSON RestoreServer'{..}+          = object+              (catMaybes+                 [("KeyPair" .=) <$> _rsKeyPair,+                  ("InstanceType" .=) <$> _rsInstanceType,+                  Just ("BackupId" .= _rsBackupId),+                  Just ("ServerName" .= _rsServerName)])++instance ToPath RestoreServer where+        toPath = const "/"++instance ToQuery RestoreServer where+        toQuery = const mempty++-- | /See:/ 'restoreServerResponse' smart constructor.+newtype RestoreServerResponse = RestoreServerResponse'+    { _rsrsResponseStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'RestoreServerResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rsrsResponseStatus' - -- | The response status code.+restoreServerResponse+    :: Int -- ^ 'rsrsResponseStatus'+    -> RestoreServerResponse+restoreServerResponse pResponseStatus_ =+    RestoreServerResponse'+    { _rsrsResponseStatus = pResponseStatus_+    }++-- | -- | The response status code.+rsrsResponseStatus :: Lens' RestoreServerResponse Int+rsrsResponseStatus = lens _rsrsResponseStatus (\ s a -> s{_rsrsResponseStatus = a});++instance NFData RestoreServerResponse
+ gen/Network/AWS/OpsWorksCM/StartMaintenance.hs view
@@ -0,0 +1,135 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.OpsWorksCM.StartMaintenance+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- 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 will switch to @UNDER_MAINTENANCE@ state, while maintenace is in progress.+--+--+-- Maintenace can only be started for @HEALTHY@ and @UNHEALTHY@ servers. A @InvalidStateException@ is thrown otherwise. A @ResourceNotFoundException@ is thrown when the server does not exist. A @ValidationException@ is raised when parameters of the request are invalid.+--+module Network.AWS.OpsWorksCM.StartMaintenance+    (+    -- * Creating a Request+      startMaintenance+    , StartMaintenance+    -- * Request Lenses+    , smServerName++    -- * Destructuring the Response+    , startMaintenanceResponse+    , StartMaintenanceResponse+    -- * Response Lenses+    , smrsServer+    , smrsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.OpsWorksCM.Types+import           Network.AWS.OpsWorksCM.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'startMaintenance' smart constructor.+newtype StartMaintenance = StartMaintenance'+    { _smServerName :: Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'StartMaintenance' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'smServerName' - The name of the server on which to run maintenance.+startMaintenance+    :: Text -- ^ 'smServerName'+    -> StartMaintenance+startMaintenance pServerName_ =+    StartMaintenance'+    { _smServerName = pServerName_+    }++-- | The name of the server on which to run maintenance.+smServerName :: Lens' StartMaintenance Text+smServerName = lens _smServerName (\ s a -> s{_smServerName = a});++instance AWSRequest StartMaintenance where+        type Rs StartMaintenance = StartMaintenanceResponse+        request = postJSON opsWorksCM+        response+          = receiveJSON+              (\ s h x ->+                 StartMaintenanceResponse' <$>+                   (x .?> "Server") <*> (pure (fromEnum s)))++instance Hashable StartMaintenance++instance NFData StartMaintenance++instance ToHeaders StartMaintenance where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OpsWorksCM_V2016_11_01.StartMaintenance" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON StartMaintenance where+        toJSON StartMaintenance'{..}+          = object+              (catMaybes [Just ("ServerName" .= _smServerName)])++instance ToPath StartMaintenance where+        toPath = const "/"++instance ToQuery StartMaintenance where+        toQuery = const mempty++-- | /See:/ 'startMaintenanceResponse' smart constructor.+data StartMaintenanceResponse = StartMaintenanceResponse'+    { _smrsServer         :: !(Maybe Server)+    , _smrsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'StartMaintenanceResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'smrsServer' - Contains the response to a @StartMaintenance@ request.+--+-- * 'smrsResponseStatus' - -- | The response status code.+startMaintenanceResponse+    :: Int -- ^ 'smrsResponseStatus'+    -> StartMaintenanceResponse+startMaintenanceResponse pResponseStatus_ =+    StartMaintenanceResponse'+    { _smrsServer = Nothing+    , _smrsResponseStatus = pResponseStatus_+    }++-- | Contains the response to a @StartMaintenance@ request.+smrsServer :: Lens' StartMaintenanceResponse (Maybe Server)+smrsServer = lens _smrsServer (\ s a -> s{_smrsServer = a});++-- | -- | The response status code.+smrsResponseStatus :: Lens' StartMaintenanceResponse Int+smrsResponseStatus = lens _smrsResponseStatus (\ s a -> s{_smrsResponseStatus = a});++instance NFData StartMaintenanceResponse
+ gen/Network/AWS/OpsWorksCM/Types.hs view
@@ -0,0 +1,193 @@+{-# LANGUAGE OverloadedStrings #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.OpsWorksCM.Types+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Network.AWS.OpsWorksCM.Types+    (+    -- * Service Configuration+      opsWorksCM++    -- * Errors+    , _ValidationException+    , _ResourceAlreadyExistsException+    , _InvalidNextTokenException+    , _ResourceNotFoundException+    , _InvalidStateException+    , _LimitExceededException++    -- * BackupStatus+    , BackupStatus (..)++    -- * BackupType+    , BackupType (..)++    -- * MaintenanceStatus+    , MaintenanceStatus (..)++    -- * NodeAssociationStatus+    , NodeAssociationStatus (..)++    -- * ServerStatus+    , ServerStatus (..)++    -- * AccountAttribute+    , AccountAttribute+    , accountAttribute+    , aaUsed+    , aaMaximum+    , aaName++    -- * Backup+    , Backup+    , backup+    , bEngineVersion+    , bServiceRoleARN+    , bStatus+    , bInstanceProfileARN+    , bSecurityGroupIds+    , bStatusDescription+    , bServerName+    , bSubnetIds+    , bKeyPair+    , bCreatedAt+    , bBackupId+    , bEngine+    , bInstanceType+    , bEngineModel+    , bPreferredMaintenanceWindow+    , bUserARN+    , bPreferredBackupWindow+    , bS3LogURL+    , bS3DataSize+    , bBackupARN+    , bS3DataURL+    , bDescription+    , bBackupType+    , bToolsVersion++    -- * EngineAttribute+    , EngineAttribute+    , engineAttribute+    , eaValue+    , eaName++    -- * Server+    , Server+    , server+    , sEngineVersion+    , sServiceRoleARN+    , sDisableAutomatedBackup+    , sStatus+    , sInstanceProfileARN+    , sSecurityGroupIds+    , sServerName+    , sSubnetIds+    , sKeyPair+    , sCreatedAt+    , sServerARN+    , sEngine+    , sMaintenanceStatus+    , sInstanceType+    , sEngineModel+    , sEngineAttributes+    , sPreferredMaintenanceWindow+    , sPreferredBackupWindow+    , sStatusReason+    , sEndpoint+    , sBackupRetentionCount++    -- * ServerEvent+    , ServerEvent+    , serverEvent+    , seLogURL+    , seServerName+    , seCreatedAt+    , seMessage+    ) where++import           Network.AWS.Lens+import           Network.AWS.OpsWorksCM.Types.Product+import           Network.AWS.OpsWorksCM.Types.Sum+import           Network.AWS.Prelude+import           Network.AWS.Sign.V4++-- | API version @2016-11-01@ of the Amazon OpsWorks for Chef Automate SDK configuration.+opsWorksCM :: Service+opsWorksCM =+    Service+    { _svcAbbrev = "OpsWorksCM"+    , _svcSigner = v4+    , _svcPrefix = "opsworks-cm"+    , _svcVersion = "2016-11-01"+    , _svcEndpoint = defaultEndpoint opsWorksCM+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseJSONError "OpsWorksCM"+    , _svcRetry = retry+    }+  where+    retry =+        Exponential+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }+    check e+      | has (hasStatus 429) e = Just "too_many_requests"+      | has (hasCode "ThrottlingException" . hasStatus 400) e =+          Just "throttling_exception"+      | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"+      | has (hasStatus 504) e = Just "gateway_timeout"+      | has (hasStatus 502) e = Just "bad_gateway"+      | has (hasStatus 503) e = Just "service_unavailable"+      | has (hasStatus 500) e = Just "general_server_error"+      | has (hasStatus 509) e = Just "limit_exceeded"+      | otherwise = Nothing++-- | One or more of the provided request parameters are not valid.+--+--+_ValidationException :: AsError a => Getting (First ServiceError) a ServiceError+_ValidationException = _ServiceError . hasCode "ValidationException"++-- | The requested resource cannot be created because it already exists.+--+--+_ResourceAlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError+_ResourceAlreadyExistsException =+    _ServiceError . hasCode "ResourceAlreadyExistsException"++-- | This occurs when the provided nextToken is not valid.+--+--+_InvalidNextTokenException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidNextTokenException =+    _ServiceError . hasCode "InvalidNextTokenException"++-- | The requested resource does not exist, or access was denied.+--+--+_ResourceNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError+_ResourceNotFoundException =+    _ServiceError . hasCode "ResourceNotFoundException"++-- | The resource is in a state that does not allow you to perform a specified action.+--+--+_InvalidStateException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidStateException = _ServiceError . hasCode "InvalidStateException"++-- | The limit of servers or backups has been reached.+--+--+_LimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError+_LimitExceededException = _ServiceError . hasCode "LimitExceededException"
+ gen/Network/AWS/OpsWorksCM/Types/Product.hs view
@@ -0,0 +1,644 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.OpsWorksCM.Types.Product+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Network.AWS.OpsWorksCM.Types.Product where++import           Network.AWS.Lens+import           Network.AWS.OpsWorksCM.Types.Sum+import           Network.AWS.Prelude++-- | Stores account attributes.+--+--+--+-- /See:/ 'accountAttribute' smart constructor.+data AccountAttribute = AccountAttribute'+    { _aaUsed    :: !(Maybe Int)+    , _aaMaximum :: !(Maybe Int)+    , _aaName    :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AccountAttribute' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'aaUsed' - The current usage, such as the current number of servers associated with the account.+--+-- * 'aaMaximum' - The maximum allowed value.+--+-- * 'aaName' - The attribute name. The following are supported attribute names.      * /ServerLimit:/ The number of servers that currently existing / maximal allowed. By default 10 servers can be created.      * /ManualBackupLimit:/ The number of manual backups that currently exist / are maximal allowed. By default 50 manual backups can be created.+accountAttribute+    :: AccountAttribute+accountAttribute =+    AccountAttribute'+    { _aaUsed = Nothing+    , _aaMaximum = Nothing+    , _aaName = Nothing+    }++-- | The current usage, such as the current number of servers associated with the account.+aaUsed :: Lens' AccountAttribute (Maybe Int)+aaUsed = lens _aaUsed (\ s a -> s{_aaUsed = a});++-- | The maximum allowed value.+aaMaximum :: Lens' AccountAttribute (Maybe Int)+aaMaximum = lens _aaMaximum (\ s a -> s{_aaMaximum = a});++-- | The attribute name. The following are supported attribute names.      * /ServerLimit:/ The number of servers that currently existing / maximal allowed. By default 10 servers can be created.      * /ManualBackupLimit:/ The number of manual backups that currently exist / are maximal allowed. By default 50 manual backups can be created.+aaName :: Lens' AccountAttribute (Maybe Text)+aaName = lens _aaName (\ s a -> s{_aaName = a});++instance FromJSON AccountAttribute where+        parseJSON+          = withObject "AccountAttribute"+              (\ x ->+                 AccountAttribute' <$>+                   (x .:? "Used") <*> (x .:? "Maximum") <*>+                     (x .:? "Name"))++instance Hashable AccountAttribute++instance NFData AccountAttribute++-- | Describes a single backup.+--+--+--+-- /See:/ 'backup' smart constructor.+data Backup = Backup'+    { _bEngineVersion              :: !(Maybe Text)+    , _bServiceRoleARN             :: !(Maybe Text)+    , _bStatus                     :: !(Maybe BackupStatus)+    , _bInstanceProfileARN         :: !(Maybe Text)+    , _bSecurityGroupIds           :: !(Maybe [Text])+    , _bStatusDescription          :: !(Maybe Text)+    , _bServerName                 :: !(Maybe Text)+    , _bSubnetIds                  :: !(Maybe [Text])+    , _bKeyPair                    :: !(Maybe Text)+    , _bCreatedAt                  :: !(Maybe POSIX)+    , _bBackupId                   :: !(Maybe Text)+    , _bEngine                     :: !(Maybe Text)+    , _bInstanceType               :: !(Maybe Text)+    , _bEngineModel                :: !(Maybe Text)+    , _bPreferredMaintenanceWindow :: !(Maybe Text)+    , _bUserARN                    :: !(Maybe Text)+    , _bPreferredBackupWindow      :: !(Maybe Text)+    , _bS3LogURL                   :: !(Maybe Text)+    , _bS3DataSize                 :: !(Maybe Int)+    , _bBackupARN                  :: !(Maybe Text)+    , _bS3DataURL                  :: !(Maybe Text)+    , _bDescription                :: !(Maybe Text)+    , _bBackupType                 :: !(Maybe BackupType)+    , _bToolsVersion               :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'Backup' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'bEngineVersion' - The engine version that is obtained from the server when the backup is created.+--+-- * 'bServiceRoleARN' - The service role ARN that is obtained from the server when the backup is created.+--+-- * 'bStatus' - The status of a backup while in progress.+--+-- * 'bInstanceProfileARN' - The EC2 instance profile ARN that is obtained from the server when the backup is created. Because this value is stored, you are not required to provide the InstanceProfileArn again if you restore a backup.+--+-- * 'bSecurityGroupIds' - The security group IDs that are obtained from the server when the backup is created.+--+-- * 'bStatusDescription' - An informational message about backup status.+--+-- * 'bServerName' - The name of the server from which the backup was made.+--+-- * 'bSubnetIds' - The subnet IDs that are obtained from the server when the backup is created.+--+-- * 'bKeyPair' - The key pair that is obtained from the server when the backup is created.+--+-- * 'bCreatedAt' - The time stamp when the backup was created in the database. Example: @2016-07-29T13:38:47.520Z@+--+-- * 'bBackupId' - The generated ID of the backup. Example: @myServerName-yyyyMMddHHmmssSSS@+--+-- * 'bEngine' - The engine type that is obtained from the server when the backup is created.+--+-- * 'bInstanceType' - The instance type that is obtained from the server when the backup is created.+--+-- * 'bEngineModel' - The engine model that is obtained from the server when the backup is created.+--+-- * 'bPreferredMaintenanceWindow' - The preferred maintenance period that is obtained from the server when the backup is created.+--+-- * 'bUserARN' - The IAM user ARN of the requester for manual backups. This field is empty for automated backups.+--+-- * 'bPreferredBackupWindow' - The preferred backup period that is obtained from the server when the backup is created.+--+-- * 'bS3LogURL' - The Amazon S3 URL of the backup's log file.+--+-- * 'bS3DataSize' - The size of the backup, in bytes. The size is returned by the instance in the command results.+--+-- * 'bBackupARN' - The ARN of the backup.+--+-- * 'bS3DataURL' - The Amazon S3 URL of the backup's tar.gz file.+--+-- * 'bDescription' - A user-provided description for a manual backup. This field is empty for automated backups.+--+-- * 'bBackupType' - The backup type. Valid values are @automated@ or @manual@ .+--+-- * 'bToolsVersion' - The version of AWS OpsWorks for Chef Automate-specific tools that is obtained from the server when the backup is created.+backup+    :: Backup+backup =+    Backup'+    { _bEngineVersion = Nothing+    , _bServiceRoleARN = Nothing+    , _bStatus = Nothing+    , _bInstanceProfileARN = Nothing+    , _bSecurityGroupIds = Nothing+    , _bStatusDescription = Nothing+    , _bServerName = Nothing+    , _bSubnetIds = Nothing+    , _bKeyPair = Nothing+    , _bCreatedAt = Nothing+    , _bBackupId = Nothing+    , _bEngine = Nothing+    , _bInstanceType = Nothing+    , _bEngineModel = Nothing+    , _bPreferredMaintenanceWindow = Nothing+    , _bUserARN = Nothing+    , _bPreferredBackupWindow = Nothing+    , _bS3LogURL = Nothing+    , _bS3DataSize = Nothing+    , _bBackupARN = Nothing+    , _bS3DataURL = Nothing+    , _bDescription = Nothing+    , _bBackupType = Nothing+    , _bToolsVersion = Nothing+    }++-- | The engine version that is obtained from the server when the backup is created.+bEngineVersion :: Lens' Backup (Maybe Text)+bEngineVersion = lens _bEngineVersion (\ s a -> s{_bEngineVersion = a});++-- | The service role ARN that is obtained from the server when the backup is created.+bServiceRoleARN :: Lens' Backup (Maybe Text)+bServiceRoleARN = lens _bServiceRoleARN (\ s a -> s{_bServiceRoleARN = a});++-- | The status of a backup while in progress.+bStatus :: Lens' Backup (Maybe BackupStatus)+bStatus = lens _bStatus (\ s a -> s{_bStatus = a});++-- | The EC2 instance profile ARN that is obtained from the server when the backup is created. Because this value is stored, you are not required to provide the InstanceProfileArn again if you restore a backup.+bInstanceProfileARN :: Lens' Backup (Maybe Text)+bInstanceProfileARN = lens _bInstanceProfileARN (\ s a -> s{_bInstanceProfileARN = a});++-- | The security group IDs that are obtained from the server when the backup is created.+bSecurityGroupIds :: Lens' Backup [Text]+bSecurityGroupIds = lens _bSecurityGroupIds (\ s a -> s{_bSecurityGroupIds = a}) . _Default . _Coerce;++-- | An informational message about backup status.+bStatusDescription :: Lens' Backup (Maybe Text)+bStatusDescription = lens _bStatusDescription (\ s a -> s{_bStatusDescription = a});++-- | The name of the server from which the backup was made.+bServerName :: Lens' Backup (Maybe Text)+bServerName = lens _bServerName (\ s a -> s{_bServerName = a});++-- | The subnet IDs that are obtained from the server when the backup is created.+bSubnetIds :: Lens' Backup [Text]+bSubnetIds = lens _bSubnetIds (\ s a -> s{_bSubnetIds = a}) . _Default . _Coerce;++-- | The key pair that is obtained from the server when the backup is created.+bKeyPair :: Lens' Backup (Maybe Text)+bKeyPair = lens _bKeyPair (\ s a -> s{_bKeyPair = a});++-- | The time stamp when the backup was created in the database. Example: @2016-07-29T13:38:47.520Z@+bCreatedAt :: Lens' Backup (Maybe UTCTime)+bCreatedAt = lens _bCreatedAt (\ s a -> s{_bCreatedAt = a}) . mapping _Time;++-- | The generated ID of the backup. Example: @myServerName-yyyyMMddHHmmssSSS@+bBackupId :: Lens' Backup (Maybe Text)+bBackupId = lens _bBackupId (\ s a -> s{_bBackupId = a});++-- | The engine type that is obtained from the server when the backup is created.+bEngine :: Lens' Backup (Maybe Text)+bEngine = lens _bEngine (\ s a -> s{_bEngine = a});++-- | The instance type that is obtained from the server when the backup is created.+bInstanceType :: Lens' Backup (Maybe Text)+bInstanceType = lens _bInstanceType (\ s a -> s{_bInstanceType = a});++-- | The engine model that is obtained from the server when the backup is created.+bEngineModel :: Lens' Backup (Maybe Text)+bEngineModel = lens _bEngineModel (\ s a -> s{_bEngineModel = a});++-- | The preferred maintenance period that is obtained from the server when the backup is created.+bPreferredMaintenanceWindow :: Lens' Backup (Maybe Text)+bPreferredMaintenanceWindow = lens _bPreferredMaintenanceWindow (\ s a -> s{_bPreferredMaintenanceWindow = a});++-- | The IAM user ARN of the requester for manual backups. This field is empty for automated backups.+bUserARN :: Lens' Backup (Maybe Text)+bUserARN = lens _bUserARN (\ s a -> s{_bUserARN = a});++-- | The preferred backup period that is obtained from the server when the backup is created.+bPreferredBackupWindow :: Lens' Backup (Maybe Text)+bPreferredBackupWindow = lens _bPreferredBackupWindow (\ s a -> s{_bPreferredBackupWindow = a});++-- | The Amazon S3 URL of the backup's log file.+bS3LogURL :: Lens' Backup (Maybe Text)+bS3LogURL = lens _bS3LogURL (\ s a -> s{_bS3LogURL = a});++-- | The size of the backup, in bytes. The size is returned by the instance in the command results.+bS3DataSize :: Lens' Backup (Maybe Int)+bS3DataSize = lens _bS3DataSize (\ s a -> s{_bS3DataSize = a});++-- | The ARN of the backup.+bBackupARN :: Lens' Backup (Maybe Text)+bBackupARN = lens _bBackupARN (\ s a -> s{_bBackupARN = a});++-- | The Amazon S3 URL of the backup's tar.gz file.+bS3DataURL :: Lens' Backup (Maybe Text)+bS3DataURL = lens _bS3DataURL (\ s a -> s{_bS3DataURL = a});++-- | A user-provided description for a manual backup. This field is empty for automated backups.+bDescription :: Lens' Backup (Maybe Text)+bDescription = lens _bDescription (\ s a -> s{_bDescription = a});++-- | The backup type. Valid values are @automated@ or @manual@ .+bBackupType :: Lens' Backup (Maybe BackupType)+bBackupType = lens _bBackupType (\ s a -> s{_bBackupType = a});++-- | The version of AWS OpsWorks for Chef Automate-specific tools that is obtained from the server when the backup is created.+bToolsVersion :: Lens' Backup (Maybe Text)+bToolsVersion = lens _bToolsVersion (\ s a -> s{_bToolsVersion = a});++instance FromJSON Backup where+        parseJSON+          = withObject "Backup"+              (\ x ->+                 Backup' <$>+                   (x .:? "EngineVersion") <*> (x .:? "ServiceRoleArn")+                     <*> (x .:? "Status")+                     <*> (x .:? "InstanceProfileArn")+                     <*> (x .:? "SecurityGroupIds" .!= mempty)+                     <*> (x .:? "StatusDescription")+                     <*> (x .:? "ServerName")+                     <*> (x .:? "SubnetIds" .!= mempty)+                     <*> (x .:? "KeyPair")+                     <*> (x .:? "CreatedAt")+                     <*> (x .:? "BackupId")+                     <*> (x .:? "Engine")+                     <*> (x .:? "InstanceType")+                     <*> (x .:? "EngineModel")+                     <*> (x .:? "PreferredMaintenanceWindow")+                     <*> (x .:? "UserArn")+                     <*> (x .:? "PreferredBackupWindow")+                     <*> (x .:? "S3LogUrl")+                     <*> (x .:? "S3DataSize")+                     <*> (x .:? "BackupArn")+                     <*> (x .:? "S3DataUrl")+                     <*> (x .:? "Description")+                     <*> (x .:? "BackupType")+                     <*> (x .:? "ToolsVersion"))++instance Hashable Backup++instance NFData Backup++-- | A name/value pair that is specific to the engine of the server.+--+--+--+-- /See:/ 'engineAttribute' smart constructor.+data EngineAttribute = EngineAttribute'+    { _eaValue :: !(Maybe Text)+    , _eaName  :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'EngineAttribute' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'eaValue' - The value of the engine attribute.+--+-- * 'eaName' - The name of the engine attribute.+engineAttribute+    :: EngineAttribute+engineAttribute =+    EngineAttribute'+    { _eaValue = Nothing+    , _eaName = Nothing+    }++-- | The value of the engine attribute.+eaValue :: Lens' EngineAttribute (Maybe Text)+eaValue = lens _eaValue (\ s a -> s{_eaValue = a});++-- | The name of the engine attribute.+eaName :: Lens' EngineAttribute (Maybe Text)+eaName = lens _eaName (\ s a -> s{_eaName = a});++instance FromJSON EngineAttribute where+        parseJSON+          = withObject "EngineAttribute"+              (\ x ->+                 EngineAttribute' <$>+                   (x .:? "Value") <*> (x .:? "Name"))++instance Hashable EngineAttribute++instance NFData EngineAttribute++instance ToJSON EngineAttribute where+        toJSON EngineAttribute'{..}+          = object+              (catMaybes+                 [("Value" .=) <$> _eaValue, ("Name" .=) <$> _eaName])++-- | Describes a configuration management server.+--+--+--+-- /See:/ 'server' smart constructor.+data Server = Server'+    { _sEngineVersion              :: !(Maybe Text)+    , _sServiceRoleARN             :: !(Maybe Text)+    , _sDisableAutomatedBackup     :: !(Maybe Bool)+    , _sStatus                     :: !(Maybe ServerStatus)+    , _sInstanceProfileARN         :: !(Maybe Text)+    , _sSecurityGroupIds           :: !(Maybe [Text])+    , _sServerName                 :: !(Maybe Text)+    , _sSubnetIds                  :: !(Maybe [Text])+    , _sKeyPair                    :: !(Maybe Text)+    , _sCreatedAt                  :: !(Maybe POSIX)+    , _sServerARN                  :: !(Maybe Text)+    , _sEngine                     :: !(Maybe Text)+    , _sMaintenanceStatus          :: !(Maybe MaintenanceStatus)+    , _sInstanceType               :: !(Maybe Text)+    , _sEngineModel                :: !(Maybe Text)+    , _sEngineAttributes           :: !(Maybe [EngineAttribute])+    , _sPreferredMaintenanceWindow :: !(Maybe Text)+    , _sPreferredBackupWindow      :: !(Maybe Text)+    , _sStatusReason               :: !(Maybe Text)+    , _sEndpoint                   :: !(Maybe Text)+    , _sBackupRetentionCount       :: !(Maybe Int)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'Server' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sEngineVersion' - The engine version of the server. Because Chef is the engine available in this release, the valid value for EngineVersion is @12@ .+--+-- * 'sServiceRoleARN' - The service role ARN used to create the server.+--+-- * 'sDisableAutomatedBackup' - Disables automated backups. The number of stored backups is dependent on the value of PreferredBackupCount.+--+-- * 'sStatus' - The server's status. This field displays the states of actions in progress, such as creating, running, or backing up the server, as well as server health.+--+-- * 'sInstanceProfileARN' - The instance profile ARN of the server.+--+-- * 'sSecurityGroupIds' - The security group IDs for the server, as specified in the CloudFormation stack. These might not be the same security groups that are shown in the EC2 console.+--+-- * 'sServerName' - The name of the server.+--+-- * 'sSubnetIds' - The subnet IDs specified in a CreateServer request.+--+-- * 'sKeyPair' - The key pair associated with the server.+--+-- * 'sCreatedAt' - Time stamp of server creation. Example @2016-07-29T13:38:47.520Z@+--+-- * 'sServerARN' - The ARN of the server.+--+-- * 'sEngine' - The engine type of the server. The valid value in this release is @Chef@ .+--+-- * 'sMaintenanceStatus' - The status of the most recent server maintenance run. Shows @SUCCESS@ or @FAILED@ .+--+-- * 'sInstanceType' - The instance type for the server, as specified in the CloudFormation stack. This might not be the same instance type that is shown in the EC2 console.+--+-- * 'sEngineModel' - The engine model of the server. The valid value in this release is @Single@ .+--+-- * 'sEngineAttributes' - The response of a createServer() request returns the master credential to access the server in EngineAttributes. These credentials are not stored by AWS OpsWorks for Chef Automate; they are returned only as part of the result of createServer().  __Attributes returned in a createServer response:__      * @CHEF_PIVOTAL_KEY@ : A base64-encoded RSA private key that is generated by AWS OpsWorks for Chef Automate. This private key is required to access the Chef API.     * @CHEF_STARTER_KIT@ : A base64-encoded ZIP file. The ZIP file contains a Chef starter kit, which includes a README, a configuration file, and the required RSA private key. Save this file, unzip it, and then change to the directory where you've unzipped the file contents. From this directory, you can run Knife commands.+--+-- * 'sPreferredMaintenanceWindow' - The preferred maintenance period specified for the server.+--+-- * 'sPreferredBackupWindow' - The preferred backup period specified for the server.+--+-- * 'sStatusReason' - Depending on the server status, this field has either a human-readable message (such as a create or backup error), or an escaped block of JSON (used for health check results).+--+-- * 'sEndpoint' - A DNS name that can be used to access the engine. Example: @myserver-asdfghjkl.us-east-1.opsworks.io@+--+-- * 'sBackupRetentionCount' - The number of automated backups to keep.+server+    :: Server+server =+    Server'+    { _sEngineVersion = Nothing+    , _sServiceRoleARN = Nothing+    , _sDisableAutomatedBackup = Nothing+    , _sStatus = Nothing+    , _sInstanceProfileARN = Nothing+    , _sSecurityGroupIds = Nothing+    , _sServerName = Nothing+    , _sSubnetIds = Nothing+    , _sKeyPair = Nothing+    , _sCreatedAt = Nothing+    , _sServerARN = Nothing+    , _sEngine = Nothing+    , _sMaintenanceStatus = Nothing+    , _sInstanceType = Nothing+    , _sEngineModel = Nothing+    , _sEngineAttributes = Nothing+    , _sPreferredMaintenanceWindow = Nothing+    , _sPreferredBackupWindow = Nothing+    , _sStatusReason = Nothing+    , _sEndpoint = Nothing+    , _sBackupRetentionCount = Nothing+    }++-- | The engine version of the server. Because Chef is the engine available in this release, the valid value for EngineVersion is @12@ .+sEngineVersion :: Lens' Server (Maybe Text)+sEngineVersion = lens _sEngineVersion (\ s a -> s{_sEngineVersion = a});++-- | The service role ARN used to create the server.+sServiceRoleARN :: Lens' Server (Maybe Text)+sServiceRoleARN = lens _sServiceRoleARN (\ s a -> s{_sServiceRoleARN = a});++-- | Disables automated backups. The number of stored backups is dependent on the value of PreferredBackupCount.+sDisableAutomatedBackup :: Lens' Server (Maybe Bool)+sDisableAutomatedBackup = lens _sDisableAutomatedBackup (\ s a -> s{_sDisableAutomatedBackup = a});++-- | The server's status. This field displays the states of actions in progress, such as creating, running, or backing up the server, as well as server health.+sStatus :: Lens' Server (Maybe ServerStatus)+sStatus = lens _sStatus (\ s a -> s{_sStatus = a});++-- | The instance profile ARN of the server.+sInstanceProfileARN :: Lens' Server (Maybe Text)+sInstanceProfileARN = lens _sInstanceProfileARN (\ s a -> s{_sInstanceProfileARN = a});++-- | The security group IDs for the server, as specified in the CloudFormation stack. These might not be the same security groups that are shown in the EC2 console.+sSecurityGroupIds :: Lens' Server [Text]+sSecurityGroupIds = lens _sSecurityGroupIds (\ s a -> s{_sSecurityGroupIds = a}) . _Default . _Coerce;++-- | The name of the server.+sServerName :: Lens' Server (Maybe Text)+sServerName = lens _sServerName (\ s a -> s{_sServerName = a});++-- | The subnet IDs specified in a CreateServer request.+sSubnetIds :: Lens' Server [Text]+sSubnetIds = lens _sSubnetIds (\ s a -> s{_sSubnetIds = a}) . _Default . _Coerce;++-- | The key pair associated with the server.+sKeyPair :: Lens' Server (Maybe Text)+sKeyPair = lens _sKeyPair (\ s a -> s{_sKeyPair = a});++-- | Time stamp of server creation. Example @2016-07-29T13:38:47.520Z@+sCreatedAt :: Lens' Server (Maybe UTCTime)+sCreatedAt = lens _sCreatedAt (\ s a -> s{_sCreatedAt = a}) . mapping _Time;++-- | The ARN of the server.+sServerARN :: Lens' Server (Maybe Text)+sServerARN = lens _sServerARN (\ s a -> s{_sServerARN = a});++-- | The engine type of the server. The valid value in this release is @Chef@ .+sEngine :: Lens' Server (Maybe Text)+sEngine = lens _sEngine (\ s a -> s{_sEngine = a});++-- | The status of the most recent server maintenance run. Shows @SUCCESS@ or @FAILED@ .+sMaintenanceStatus :: Lens' Server (Maybe MaintenanceStatus)+sMaintenanceStatus = lens _sMaintenanceStatus (\ s a -> s{_sMaintenanceStatus = a});++-- | The instance type for the server, as specified in the CloudFormation stack. This might not be the same instance type that is shown in the EC2 console.+sInstanceType :: Lens' Server (Maybe Text)+sInstanceType = lens _sInstanceType (\ s a -> s{_sInstanceType = a});++-- | The engine model of the server. The valid value in this release is @Single@ .+sEngineModel :: Lens' Server (Maybe Text)+sEngineModel = lens _sEngineModel (\ s a -> s{_sEngineModel = a});++-- | The response of a createServer() request returns the master credential to access the server in EngineAttributes. These credentials are not stored by AWS OpsWorks for Chef Automate; they are returned only as part of the result of createServer().  __Attributes returned in a createServer response:__      * @CHEF_PIVOTAL_KEY@ : A base64-encoded RSA private key that is generated by AWS OpsWorks for Chef Automate. This private key is required to access the Chef API.     * @CHEF_STARTER_KIT@ : A base64-encoded ZIP file. The ZIP file contains a Chef starter kit, which includes a README, a configuration file, and the required RSA private key. Save this file, unzip it, and then change to the directory where you've unzipped the file contents. From this directory, you can run Knife commands.+sEngineAttributes :: Lens' Server [EngineAttribute]+sEngineAttributes = lens _sEngineAttributes (\ s a -> s{_sEngineAttributes = a}) . _Default . _Coerce;++-- | The preferred maintenance period specified for the server.+sPreferredMaintenanceWindow :: Lens' Server (Maybe Text)+sPreferredMaintenanceWindow = lens _sPreferredMaintenanceWindow (\ s a -> s{_sPreferredMaintenanceWindow = a});++-- | The preferred backup period specified for the server.+sPreferredBackupWindow :: Lens' Server (Maybe Text)+sPreferredBackupWindow = lens _sPreferredBackupWindow (\ s a -> s{_sPreferredBackupWindow = a});++-- | Depending on the server status, this field has either a human-readable message (such as a create or backup error), or an escaped block of JSON (used for health check results).+sStatusReason :: Lens' Server (Maybe Text)+sStatusReason = lens _sStatusReason (\ s a -> s{_sStatusReason = a});++-- | A DNS name that can be used to access the engine. Example: @myserver-asdfghjkl.us-east-1.opsworks.io@+sEndpoint :: Lens' Server (Maybe Text)+sEndpoint = lens _sEndpoint (\ s a -> s{_sEndpoint = a});++-- | The number of automated backups to keep.+sBackupRetentionCount :: Lens' Server (Maybe Int)+sBackupRetentionCount = lens _sBackupRetentionCount (\ s a -> s{_sBackupRetentionCount = a});++instance FromJSON Server where+        parseJSON+          = withObject "Server"+              (\ x ->+                 Server' <$>+                   (x .:? "EngineVersion") <*> (x .:? "ServiceRoleArn")+                     <*> (x .:? "DisableAutomatedBackup")+                     <*> (x .:? "Status")+                     <*> (x .:? "InstanceProfileArn")+                     <*> (x .:? "SecurityGroupIds" .!= mempty)+                     <*> (x .:? "ServerName")+                     <*> (x .:? "SubnetIds" .!= mempty)+                     <*> (x .:? "KeyPair")+                     <*> (x .:? "CreatedAt")+                     <*> (x .:? "ServerArn")+                     <*> (x .:? "Engine")+                     <*> (x .:? "MaintenanceStatus")+                     <*> (x .:? "InstanceType")+                     <*> (x .:? "EngineModel")+                     <*> (x .:? "EngineAttributes" .!= mempty)+                     <*> (x .:? "PreferredMaintenanceWindow")+                     <*> (x .:? "PreferredBackupWindow")+                     <*> (x .:? "StatusReason")+                     <*> (x .:? "Endpoint")+                     <*> (x .:? "BackupRetentionCount"))++instance Hashable Server++instance NFData Server++-- | An event that is related to the server, such as the start of maintenance or backup.+--+--+--+-- /See:/ 'serverEvent' smart constructor.+data ServerEvent = ServerEvent'+    { _seLogURL     :: !(Maybe Text)+    , _seServerName :: !(Maybe Text)+    , _seCreatedAt  :: !(Maybe POSIX)+    , _seMessage    :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ServerEvent' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'seLogURL' - The Amazon S3 URL of the event's log file.+--+-- * 'seServerName' - The name of the server on or for which the event occurred.+--+-- * 'seCreatedAt' - The time when the event occurred.+--+-- * 'seMessage' - A human-readable informational or status message.+serverEvent+    :: ServerEvent+serverEvent =+    ServerEvent'+    { _seLogURL = Nothing+    , _seServerName = Nothing+    , _seCreatedAt = Nothing+    , _seMessage = Nothing+    }++-- | The Amazon S3 URL of the event's log file.+seLogURL :: Lens' ServerEvent (Maybe Text)+seLogURL = lens _seLogURL (\ s a -> s{_seLogURL = a});++-- | The name of the server on or for which the event occurred.+seServerName :: Lens' ServerEvent (Maybe Text)+seServerName = lens _seServerName (\ s a -> s{_seServerName = a});++-- | The time when the event occurred.+seCreatedAt :: Lens' ServerEvent (Maybe UTCTime)+seCreatedAt = lens _seCreatedAt (\ s a -> s{_seCreatedAt = a}) . mapping _Time;++-- | A human-readable informational or status message.+seMessage :: Lens' ServerEvent (Maybe Text)+seMessage = lens _seMessage (\ s a -> s{_seMessage = a});++instance FromJSON ServerEvent where+        parseJSON+          = withObject "ServerEvent"+              (\ x ->+                 ServerEvent' <$>+                   (x .:? "LogUrl") <*> (x .:? "ServerName") <*>+                     (x .:? "CreatedAt")+                     <*> (x .:? "Message"))++instance Hashable ServerEvent++instance NFData ServerEvent
+ gen/Network/AWS/OpsWorksCM/Types/Sum.hs view
@@ -0,0 +1,186 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE LambdaCase         #-}+{-# LANGUAGE OverloadedStrings  #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.OpsWorksCM.Types.Sum+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Network.AWS.OpsWorksCM.Types.Sum where++import           Network.AWS.Prelude++data BackupStatus+    = BSDeleting+    | BSFailed+    | BSInProgress+    | BSOK+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)++instance FromText BackupStatus where+    parser = takeLowerText >>= \case+        "deleting" -> pure BSDeleting+        "failed" -> pure BSFailed+        "in_progress" -> pure BSInProgress+        "ok" -> pure BSOK+        e -> fromTextError $ "Failure parsing BackupStatus from value: '" <> e+           <> "'. Accepted values: deleting, failed, in_progress, ok"++instance ToText BackupStatus where+    toText = \case+        BSDeleting -> "DELETING"+        BSFailed -> "FAILED"+        BSInProgress -> "IN_PROGRESS"+        BSOK -> "OK"++instance Hashable     BackupStatus+instance NFData       BackupStatus+instance ToByteString BackupStatus+instance ToQuery      BackupStatus+instance ToHeader     BackupStatus++instance FromJSON BackupStatus where+    parseJSON = parseJSONText "BackupStatus"++data BackupType+    = Automated+    | Manual+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)++instance FromText BackupType where+    parser = takeLowerText >>= \case+        "automated" -> pure Automated+        "manual" -> pure Manual+        e -> fromTextError $ "Failure parsing BackupType from value: '" <> e+           <> "'. Accepted values: automated, manual"++instance ToText BackupType where+    toText = \case+        Automated -> "AUTOMATED"+        Manual -> "MANUAL"++instance Hashable     BackupType+instance NFData       BackupType+instance ToByteString BackupType+instance ToQuery      BackupType+instance ToHeader     BackupType++instance FromJSON BackupType where+    parseJSON = parseJSONText "BackupType"++data MaintenanceStatus+    = MSFailed+    | MSSuccess+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)++instance FromText MaintenanceStatus where+    parser = takeLowerText >>= \case+        "failed" -> pure MSFailed+        "success" -> pure MSSuccess+        e -> fromTextError $ "Failure parsing MaintenanceStatus from value: '" <> e+           <> "'. Accepted values: failed, success"++instance ToText MaintenanceStatus where+    toText = \case+        MSFailed -> "FAILED"+        MSSuccess -> "SUCCESS"++instance Hashable     MaintenanceStatus+instance NFData       MaintenanceStatus+instance ToByteString MaintenanceStatus+instance ToQuery      MaintenanceStatus+instance ToHeader     MaintenanceStatus++instance FromJSON MaintenanceStatus where+    parseJSON = parseJSONText "MaintenanceStatus"++data NodeAssociationStatus+    = NASFailed+    | NASInProgress+    | NASSuccess+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)++instance FromText NodeAssociationStatus where+    parser = takeLowerText >>= \case+        "failed" -> pure NASFailed+        "in_progress" -> pure NASInProgress+        "success" -> pure NASSuccess+        e -> fromTextError $ "Failure parsing NodeAssociationStatus from value: '" <> e+           <> "'. Accepted values: failed, in_progress, success"++instance ToText NodeAssociationStatus where+    toText = \case+        NASFailed -> "FAILED"+        NASInProgress -> "IN_PROGRESS"+        NASSuccess -> "SUCCESS"++instance Hashable     NodeAssociationStatus+instance NFData       NodeAssociationStatus+instance ToByteString NodeAssociationStatus+instance ToQuery      NodeAssociationStatus+instance ToHeader     NodeAssociationStatus++instance FromJSON NodeAssociationStatus where+    parseJSON = parseJSONText "NodeAssociationStatus"++data ServerStatus+    = BackingUp+    | ConnectionLost+    | Creating+    | Deleting+    | Failed+    | Healthy+    | Modifying+    | Running+    | Setup+    | UnderMaintenance+    | Unhealthy+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)++instance FromText ServerStatus where+    parser = takeLowerText >>= \case+        "backing_up" -> pure BackingUp+        "connection_lost" -> pure ConnectionLost+        "creating" -> pure Creating+        "deleting" -> pure Deleting+        "failed" -> pure Failed+        "healthy" -> pure Healthy+        "modifying" -> pure Modifying+        "running" -> pure Running+        "setup" -> pure Setup+        "under_maintenance" -> pure UnderMaintenance+        "unhealthy" -> pure Unhealthy+        e -> fromTextError $ "Failure parsing ServerStatus from value: '" <> e+           <> "'. Accepted values: backing_up, connection_lost, creating, deleting, failed, healthy, modifying, running, setup, under_maintenance, unhealthy"++instance ToText ServerStatus where+    toText = \case+        BackingUp -> "BACKING_UP"+        ConnectionLost -> "CONNECTION_LOST"+        Creating -> "CREATING"+        Deleting -> "DELETING"+        Failed -> "FAILED"+        Healthy -> "HEALTHY"+        Modifying -> "MODIFYING"+        Running -> "RUNNING"+        Setup -> "SETUP"+        UnderMaintenance -> "UNDER_MAINTENANCE"+        Unhealthy -> "UNHEALTHY"++instance Hashable     ServerStatus+instance NFData       ServerStatus+instance ToByteString ServerStatus+instance ToQuery      ServerStatus+instance ToHeader     ServerStatus++instance FromJSON ServerStatus where+    parseJSON = parseJSONText "ServerStatus"
+ gen/Network/AWS/OpsWorksCM/UpdateServer.hs view
@@ -0,0 +1,180 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.OpsWorksCM.UpdateServer+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates settings for a server.+--+--+-- This operation is synchronous.+--+module Network.AWS.OpsWorksCM.UpdateServer+    (+    -- * Creating a Request+      updateServer+    , UpdateServer+    -- * Request Lenses+    , usDisableAutomatedBackup+    , usPreferredMaintenanceWindow+    , usPreferredBackupWindow+    , usBackupRetentionCount+    , usServerName++    -- * Destructuring the Response+    , updateServerResponse+    , UpdateServerResponse+    -- * Response Lenses+    , usrsServer+    , usrsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.OpsWorksCM.Types+import           Network.AWS.OpsWorksCM.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'updateServer' smart constructor.+data UpdateServer = UpdateServer'+    { _usDisableAutomatedBackup     :: !(Maybe Bool)+    , _usPreferredMaintenanceWindow :: !(Maybe Text)+    , _usPreferredBackupWindow      :: !(Maybe Text)+    , _usBackupRetentionCount       :: !(Maybe Int)+    , _usServerName                 :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'UpdateServer' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'usDisableAutomatedBackup' - Setting DisableAutomatedBackup to @true@ disables automated or scheduled backups. Automated backups are enabled by default.+--+-- * 'usPreferredMaintenanceWindow' - Undocumented member.+--+-- * 'usPreferredBackupWindow' - Undocumented member.+--+-- * 'usBackupRetentionCount' - Sets the number of automated backups that you want to keep.+--+-- * 'usServerName' - The name of the server to update.+updateServer+    :: Text -- ^ 'usServerName'+    -> UpdateServer+updateServer pServerName_ =+    UpdateServer'+    { _usDisableAutomatedBackup = Nothing+    , _usPreferredMaintenanceWindow = Nothing+    , _usPreferredBackupWindow = Nothing+    , _usBackupRetentionCount = Nothing+    , _usServerName = pServerName_+    }++-- | Setting DisableAutomatedBackup to @true@ disables automated or scheduled backups. Automated backups are enabled by default.+usDisableAutomatedBackup :: Lens' UpdateServer (Maybe Bool)+usDisableAutomatedBackup = lens _usDisableAutomatedBackup (\ s a -> s{_usDisableAutomatedBackup = a});++-- | Undocumented member.+usPreferredMaintenanceWindow :: Lens' UpdateServer (Maybe Text)+usPreferredMaintenanceWindow = lens _usPreferredMaintenanceWindow (\ s a -> s{_usPreferredMaintenanceWindow = a});++-- | Undocumented member.+usPreferredBackupWindow :: Lens' UpdateServer (Maybe Text)+usPreferredBackupWindow = lens _usPreferredBackupWindow (\ s a -> s{_usPreferredBackupWindow = a});++-- | Sets the number of automated backups that you want to keep.+usBackupRetentionCount :: Lens' UpdateServer (Maybe Int)+usBackupRetentionCount = lens _usBackupRetentionCount (\ s a -> s{_usBackupRetentionCount = a});++-- | The name of the server to update.+usServerName :: Lens' UpdateServer Text+usServerName = lens _usServerName (\ s a -> s{_usServerName = a});++instance AWSRequest UpdateServer where+        type Rs UpdateServer = UpdateServerResponse+        request = postJSON opsWorksCM+        response+          = receiveJSON+              (\ s h x ->+                 UpdateServerResponse' <$>+                   (x .?> "Server") <*> (pure (fromEnum s)))++instance Hashable UpdateServer++instance NFData UpdateServer++instance ToHeaders UpdateServer where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OpsWorksCM_V2016_11_01.UpdateServer" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON UpdateServer where+        toJSON UpdateServer'{..}+          = object+              (catMaybes+                 [("DisableAutomatedBackup" .=) <$>+                    _usDisableAutomatedBackup,+                  ("PreferredMaintenanceWindow" .=) <$>+                    _usPreferredMaintenanceWindow,+                  ("PreferredBackupWindow" .=) <$>+                    _usPreferredBackupWindow,+                  ("BackupRetentionCount" .=) <$>+                    _usBackupRetentionCount,+                  Just ("ServerName" .= _usServerName)])++instance ToPath UpdateServer where+        toPath = const "/"++instance ToQuery UpdateServer where+        toQuery = const mempty++-- | /See:/ 'updateServerResponse' smart constructor.+data UpdateServerResponse = UpdateServerResponse'+    { _usrsServer         :: !(Maybe Server)+    , _usrsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'UpdateServerResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'usrsServer' - Contains the response to a @UpdateServer@ request.+--+-- * 'usrsResponseStatus' - -- | The response status code.+updateServerResponse+    :: Int -- ^ 'usrsResponseStatus'+    -> UpdateServerResponse+updateServerResponse pResponseStatus_ =+    UpdateServerResponse'+    { _usrsServer = Nothing+    , _usrsResponseStatus = pResponseStatus_+    }++-- | Contains the response to a @UpdateServer@ request.+usrsServer :: Lens' UpdateServerResponse (Maybe Server)+usrsServer = lens _usrsServer (\ s a -> s{_usrsServer = a});++-- | -- | The response status code.+usrsResponseStatus :: Lens' UpdateServerResponse Int+usrsResponseStatus = lens _usrsResponseStatus (\ s a -> s{_usrsResponseStatus = a});++instance NFData UpdateServerResponse
+ gen/Network/AWS/OpsWorksCM/UpdateServerEngineAttributes.hs view
@@ -0,0 +1,165 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.OpsWorksCM.UpdateServerEngineAttributes+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates engine specific attributes on a specified server. Server will enter the @MODIFYING@ state when this operation is in progress. Only one update can take place at a time.+--+--+-- This operation can be use to reset Chef Server main API key (@CHEF_PIVOTAL_KEY@ ).+--+-- This operation is asynchronous.+--+--+--+-- This operation can only be called for @HEALTHY@ and @UNHEALTHY@ servers. Otherwise a @InvalidStateException@ is raised. A @ResourceNotFoundException@ is thrown when the server does not exist. A @ValidationException@ is raised when parameters of the request are invalid.+--+module Network.AWS.OpsWorksCM.UpdateServerEngineAttributes+    (+    -- * Creating a Request+      updateServerEngineAttributes+    , UpdateServerEngineAttributes+    -- * Request Lenses+    , useaAttributeValue+    , useaServerName+    , useaAttributeName++    -- * Destructuring the Response+    , updateServerEngineAttributesResponse+    , UpdateServerEngineAttributesResponse+    -- * Response Lenses+    , usearsServer+    , usearsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.OpsWorksCM.Types+import           Network.AWS.OpsWorksCM.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'updateServerEngineAttributes' smart constructor.+data UpdateServerEngineAttributes = UpdateServerEngineAttributes'+    { _useaAttributeValue :: !(Maybe Text)+    , _useaServerName     :: !Text+    , _useaAttributeName  :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'UpdateServerEngineAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'useaAttributeValue' - The value to set for the attribute.+--+-- * 'useaServerName' - The name of the server to update.+--+-- * 'useaAttributeName' - The name of the engine attribute to update.+updateServerEngineAttributes+    :: Text -- ^ 'useaServerName'+    -> Text -- ^ 'useaAttributeName'+    -> UpdateServerEngineAttributes+updateServerEngineAttributes pServerName_ pAttributeName_ =+    UpdateServerEngineAttributes'+    { _useaAttributeValue = Nothing+    , _useaServerName = pServerName_+    , _useaAttributeName = pAttributeName_+    }++-- | The value to set for the attribute.+useaAttributeValue :: Lens' UpdateServerEngineAttributes (Maybe Text)+useaAttributeValue = lens _useaAttributeValue (\ s a -> s{_useaAttributeValue = a});++-- | The name of the server to update.+useaServerName :: Lens' UpdateServerEngineAttributes Text+useaServerName = lens _useaServerName (\ s a -> s{_useaServerName = a});++-- | The name of the engine attribute to update.+useaAttributeName :: Lens' UpdateServerEngineAttributes Text+useaAttributeName = lens _useaAttributeName (\ s a -> s{_useaAttributeName = a});++instance AWSRequest UpdateServerEngineAttributes+         where+        type Rs UpdateServerEngineAttributes =+             UpdateServerEngineAttributesResponse+        request = postJSON opsWorksCM+        response+          = receiveJSON+              (\ s h x ->+                 UpdateServerEngineAttributesResponse' <$>+                   (x .?> "Server") <*> (pure (fromEnum s)))++instance Hashable UpdateServerEngineAttributes++instance NFData UpdateServerEngineAttributes++instance ToHeaders UpdateServerEngineAttributes where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OpsWorksCM_V2016_11_01.UpdateServerEngineAttributes"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON UpdateServerEngineAttributes where+        toJSON UpdateServerEngineAttributes'{..}+          = object+              (catMaybes+                 [("AttributeValue" .=) <$> _useaAttributeValue,+                  Just ("ServerName" .= _useaServerName),+                  Just ("AttributeName" .= _useaAttributeName)])++instance ToPath UpdateServerEngineAttributes where+        toPath = const "/"++instance ToQuery UpdateServerEngineAttributes where+        toQuery = const mempty++-- | /See:/ 'updateServerEngineAttributesResponse' smart constructor.+data UpdateServerEngineAttributesResponse = UpdateServerEngineAttributesResponse'+    { _usearsServer         :: !(Maybe Server)+    , _usearsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'UpdateServerEngineAttributesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'usearsServer' - Contains the response to an @UpdateServerEngineAttributes@ request.+--+-- * 'usearsResponseStatus' - -- | The response status code.+updateServerEngineAttributesResponse+    :: Int -- ^ 'usearsResponseStatus'+    -> UpdateServerEngineAttributesResponse+updateServerEngineAttributesResponse pResponseStatus_ =+    UpdateServerEngineAttributesResponse'+    { _usearsServer = Nothing+    , _usearsResponseStatus = pResponseStatus_+    }++-- | Contains the response to an @UpdateServerEngineAttributes@ request.+usearsServer :: Lens' UpdateServerEngineAttributesResponse (Maybe Server)+usearsServer = lens _usearsServer (\ s a -> s{_usearsServer = a});++-- | -- | The response status code.+usearsResponseStatus :: Lens' UpdateServerEngineAttributesResponse Int+usearsResponseStatus = lens _usearsResponseStatus (\ s a -> s{_usearsResponseStatus = a});++instance NFData UpdateServerEngineAttributesResponse
+ gen/Network/AWS/OpsWorksCM/Waiters.hs view
@@ -0,0 +1,21 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE TypeFamilies      #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.OpsWorksCM.Waiters+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Network.AWS.OpsWorksCM.Waiters where++import           Network.AWS.Lens+import           Network.AWS.OpsWorksCM.Types+import           Network.AWS.Prelude+import           Network.AWS.Waiter
+ src/.gitkeep view
+ test/Main.hs view
@@ -0,0 +1,21 @@+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Main+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Main (main) where++import Test.Tasty+import Test.AWS.OpsWorksCM+import Test.AWS.OpsWorksCM.Internal++main :: IO ()+main = defaultMain $ testGroup "OpsWorksCM"+    [ testGroup "tests"    tests+    , testGroup "fixtures" fixtures+    ]
+ test/Test/AWS/Gen/OpsWorksCM.hs view
@@ -0,0 +1,309 @@+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-orphans        #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Test.AWS.Gen.OpsWorksCM+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Test.AWS.Gen.OpsWorksCM where++import Data.Proxy+import Test.AWS.Fixture+import Test.AWS.Prelude+import Test.Tasty+import Network.AWS.OpsWorksCM+import Test.AWS.OpsWorksCM.Internal++-- Auto-generated: the actual test selection needs to be manually placed into+-- the top-level so that real test data can be incrementally added.+--+-- This commented snippet is what the entire set should look like:++-- fixtures :: TestTree+-- fixtures =+--     [ testGroup "request"+--         [ requestAssociateNode $+--             associateNode+--+--         , requestUpdateServer $+--             updateServer+--+--         , requestDeleteServer $+--             deleteServer+--+--         , requestDeleteBackup $+--             deleteBackup+--+--         , requestDescribeEvents $+--             describeEvents+--+--         , requestDisassociateNode $+--             disassociateNode+--+--         , requestCreateBackup $+--             createBackup+--+--         , requestUpdateServerEngineAttributes $+--             updateServerEngineAttributes+--+--         , requestStartMaintenance $+--             startMaintenance+--+--         , requestDescribeBackups $+--             describeBackups+--+--         , requestCreateServer $+--             createServer+--+--         , requestRestoreServer $+--             restoreServer+--+--         , requestDescribeNodeAssociationStatus $+--             describeNodeAssociationStatus+--+--         , requestDescribeAccountAttributes $+--             describeAccountAttributes+--+--         , requestDescribeServers $+--             describeServers+--+--           ]++--     , testGroup "response"+--         [ responseAssociateNode $+--             associateNodeResponse+--+--         , responseUpdateServer $+--             updateServerResponse+--+--         , responseDeleteServer $+--             deleteServerResponse+--+--         , responseDeleteBackup $+--             deleteBackupResponse+--+--         , responseDescribeEvents $+--             describeEventsResponse+--+--         , responseDisassociateNode $+--             disassociateNodeResponse+--+--         , responseCreateBackup $+--             createBackupResponse+--+--         , responseUpdateServerEngineAttributes $+--             updateServerEngineAttributesResponse+--+--         , responseStartMaintenance $+--             startMaintenanceResponse+--+--         , responseDescribeBackups $+--             describeBackupsResponse+--+--         , responseCreateServer $+--             createServerResponse+--+--         , responseRestoreServer $+--             restoreServerResponse+--+--         , responseDescribeNodeAssociationStatus $+--             describeNodeAssociationStatusResponse+--+--         , responseDescribeAccountAttributes $+--             describeAccountAttributesResponse+--+--         , responseDescribeServers $+--             describeServersResponse+--+--           ]+--     ]++-- Requests++requestAssociateNode :: AssociateNode -> TestTree+requestAssociateNode = req+    "AssociateNode"+    "fixture/AssociateNode.yaml"++requestUpdateServer :: UpdateServer -> TestTree+requestUpdateServer = req+    "UpdateServer"+    "fixture/UpdateServer.yaml"++requestDeleteServer :: DeleteServer -> TestTree+requestDeleteServer = req+    "DeleteServer"+    "fixture/DeleteServer.yaml"++requestDeleteBackup :: DeleteBackup -> TestTree+requestDeleteBackup = req+    "DeleteBackup"+    "fixture/DeleteBackup.yaml"++requestDescribeEvents :: DescribeEvents -> TestTree+requestDescribeEvents = req+    "DescribeEvents"+    "fixture/DescribeEvents.yaml"++requestDisassociateNode :: DisassociateNode -> TestTree+requestDisassociateNode = req+    "DisassociateNode"+    "fixture/DisassociateNode.yaml"++requestCreateBackup :: CreateBackup -> TestTree+requestCreateBackup = req+    "CreateBackup"+    "fixture/CreateBackup.yaml"++requestUpdateServerEngineAttributes :: UpdateServerEngineAttributes -> TestTree+requestUpdateServerEngineAttributes = req+    "UpdateServerEngineAttributes"+    "fixture/UpdateServerEngineAttributes.yaml"++requestStartMaintenance :: StartMaintenance -> TestTree+requestStartMaintenance = req+    "StartMaintenance"+    "fixture/StartMaintenance.yaml"++requestDescribeBackups :: DescribeBackups -> TestTree+requestDescribeBackups = req+    "DescribeBackups"+    "fixture/DescribeBackups.yaml"++requestCreateServer :: CreateServer -> TestTree+requestCreateServer = req+    "CreateServer"+    "fixture/CreateServer.yaml"++requestRestoreServer :: RestoreServer -> TestTree+requestRestoreServer = req+    "RestoreServer"+    "fixture/RestoreServer.yaml"++requestDescribeNodeAssociationStatus :: DescribeNodeAssociationStatus -> TestTree+requestDescribeNodeAssociationStatus = req+    "DescribeNodeAssociationStatus"+    "fixture/DescribeNodeAssociationStatus.yaml"++requestDescribeAccountAttributes :: DescribeAccountAttributes -> TestTree+requestDescribeAccountAttributes = req+    "DescribeAccountAttributes"+    "fixture/DescribeAccountAttributes.yaml"++requestDescribeServers :: DescribeServers -> TestTree+requestDescribeServers = req+    "DescribeServers"+    "fixture/DescribeServers.yaml"++-- Responses++responseAssociateNode :: AssociateNodeResponse -> TestTree+responseAssociateNode = res+    "AssociateNodeResponse"+    "fixture/AssociateNodeResponse.proto"+    opsWorksCM+    (Proxy :: Proxy AssociateNode)++responseUpdateServer :: UpdateServerResponse -> TestTree+responseUpdateServer = res+    "UpdateServerResponse"+    "fixture/UpdateServerResponse.proto"+    opsWorksCM+    (Proxy :: Proxy UpdateServer)++responseDeleteServer :: DeleteServerResponse -> TestTree+responseDeleteServer = res+    "DeleteServerResponse"+    "fixture/DeleteServerResponse.proto"+    opsWorksCM+    (Proxy :: Proxy DeleteServer)++responseDeleteBackup :: DeleteBackupResponse -> TestTree+responseDeleteBackup = res+    "DeleteBackupResponse"+    "fixture/DeleteBackupResponse.proto"+    opsWorksCM+    (Proxy :: Proxy DeleteBackup)++responseDescribeEvents :: DescribeEventsResponse -> TestTree+responseDescribeEvents = res+    "DescribeEventsResponse"+    "fixture/DescribeEventsResponse.proto"+    opsWorksCM+    (Proxy :: Proxy DescribeEvents)++responseDisassociateNode :: DisassociateNodeResponse -> TestTree+responseDisassociateNode = res+    "DisassociateNodeResponse"+    "fixture/DisassociateNodeResponse.proto"+    opsWorksCM+    (Proxy :: Proxy DisassociateNode)++responseCreateBackup :: CreateBackupResponse -> TestTree+responseCreateBackup = res+    "CreateBackupResponse"+    "fixture/CreateBackupResponse.proto"+    opsWorksCM+    (Proxy :: Proxy CreateBackup)++responseUpdateServerEngineAttributes :: UpdateServerEngineAttributesResponse -> TestTree+responseUpdateServerEngineAttributes = res+    "UpdateServerEngineAttributesResponse"+    "fixture/UpdateServerEngineAttributesResponse.proto"+    opsWorksCM+    (Proxy :: Proxy UpdateServerEngineAttributes)++responseStartMaintenance :: StartMaintenanceResponse -> TestTree+responseStartMaintenance = res+    "StartMaintenanceResponse"+    "fixture/StartMaintenanceResponse.proto"+    opsWorksCM+    (Proxy :: Proxy StartMaintenance)++responseDescribeBackups :: DescribeBackupsResponse -> TestTree+responseDescribeBackups = res+    "DescribeBackupsResponse"+    "fixture/DescribeBackupsResponse.proto"+    opsWorksCM+    (Proxy :: Proxy DescribeBackups)++responseCreateServer :: CreateServerResponse -> TestTree+responseCreateServer = res+    "CreateServerResponse"+    "fixture/CreateServerResponse.proto"+    opsWorksCM+    (Proxy :: Proxy CreateServer)++responseRestoreServer :: RestoreServerResponse -> TestTree+responseRestoreServer = res+    "RestoreServerResponse"+    "fixture/RestoreServerResponse.proto"+    opsWorksCM+    (Proxy :: Proxy RestoreServer)++responseDescribeNodeAssociationStatus :: DescribeNodeAssociationStatusResponse -> TestTree+responseDescribeNodeAssociationStatus = res+    "DescribeNodeAssociationStatusResponse"+    "fixture/DescribeNodeAssociationStatusResponse.proto"+    opsWorksCM+    (Proxy :: Proxy DescribeNodeAssociationStatus)++responseDescribeAccountAttributes :: DescribeAccountAttributesResponse -> TestTree+responseDescribeAccountAttributes = res+    "DescribeAccountAttributesResponse"+    "fixture/DescribeAccountAttributesResponse.proto"+    opsWorksCM+    (Proxy :: Proxy DescribeAccountAttributes)++responseDescribeServers :: DescribeServersResponse -> TestTree+responseDescribeServers = res+    "DescribeServersResponse"+    "fixture/DescribeServersResponse.proto"+    opsWorksCM+    (Proxy :: Proxy DescribeServers)
+ test/Test/AWS/OpsWorksCM.hs view
@@ -0,0 +1,20 @@+-- |+-- Module      : Test.AWS.OpsWorksCM+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Test.AWS.OpsWorksCM+    ( tests+    , fixtures+    ) where++import Test.Tasty (TestTree)++tests :: [TestTree]+tests = []++fixtures :: [TestTree]+fixtures = []
+ test/Test/AWS/OpsWorksCM/Internal.hs view
@@ -0,0 +1,9 @@+-- |+-- Module      : Test.AWS.OpsWorksCM.Internal+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Test.AWS.OpsWorksCM.Internal where