amazonka-opsworks 0.3.6 → 1.0.0

raw patch · 92 files changed

+16262/−12207 lines, 92 filesdep +amazonka-opsworksdep +amazonka-testdep +bytestringdep ~amazonka-coredep ~basePVP ok

version bump matches the API change (PVP)

Dependencies added: amazonka-opsworks, amazonka-test, bytestring, lens, tasty, tasty-hunit, text, time, unordered-containers

Dependency ranges changed: amazonka-core, base

API changes (from Hackage documentation)

Files

• README.md +61/−6
• amazonka-opsworks.cabal +106/−21
• gen/Network/AWS/OpsWorks.hs +861/−135
• gen/Network/AWS/OpsWorks/AssignInstance.hs +87/−76
• gen/Network/AWS/OpsWorks/AssignVolume.hs +84/−73
• gen/Network/AWS/OpsWorks/AssociateElasticIP.hs +121/−0
• gen/Network/AWS/OpsWorks/AssociateElasticIp.hs +0/−110
• gen/Network/AWS/OpsWorks/AttachElasticLoadBalancer.hs +90/−77
• gen/Network/AWS/OpsWorks/CloneStack.hs +416/−327
• gen/Network/AWS/OpsWorks/CreateApp.hs +204/−183
• gen/Network/AWS/OpsWorks/CreateDeployment.hs +149/−129
• gen/Network/AWS/OpsWorks/CreateInstance.hs +278/−230
• gen/Network/AWS/OpsWorks/CreateLayer.hs +264/−235
• gen/Network/AWS/OpsWorks/CreateStack.hs +375/−287
• gen/Network/AWS/OpsWorks/CreateUserProfile.hs +130/−112
• gen/Network/AWS/OpsWorks/DeleteApp.hs +71/−65
• gen/Network/AWS/OpsWorks/DeleteInstance.hs +91/−83
• gen/Network/AWS/OpsWorks/DeleteLayer.hs +75/−66
• gen/Network/AWS/OpsWorks/DeleteStack.hs +74/−66
• gen/Network/AWS/OpsWorks/DeleteUserProfile.hs +76/−69
• gen/Network/AWS/OpsWorks/DeregisterEcsCluster.hs +109/−0
• gen/Network/AWS/OpsWorks/DeregisterElasticIP.hs +109/−0
• gen/Network/AWS/OpsWorks/DeregisterElasticIp.hs +0/−99
• gen/Network/AWS/OpsWorks/DeregisterInstance.hs +79/−69
• gen/Network/AWS/OpsWorks/DeregisterRDSDBInstance.hs +109/−0
• gen/Network/AWS/OpsWorks/DeregisterRdsDbInstance.hs +0/−99
• gen/Network/AWS/OpsWorks/DeregisterVolume.hs +77/−69
• gen/Network/AWS/OpsWorks/DescribeAgentVersions.hs +145/−0
• gen/Network/AWS/OpsWorks/DescribeApps.hs +105/−93
• gen/Network/AWS/OpsWorks/DescribeCommands.hs +123/−107
• gen/Network/AWS/OpsWorks/DescribeDeployments.hs +119/−102
• gen/Network/AWS/OpsWorks/DescribeEcsClusters.hs +194/−0
• gen/Network/AWS/OpsWorks/DescribeElasticIPs.hs +166/−0
• gen/Network/AWS/OpsWorks/DescribeElasticIps.hs +0/−149
• gen/Network/AWS/OpsWorks/DescribeElasticLoadBalancers.hs +110/−96
• gen/Network/AWS/OpsWorks/DescribeInstances.hs +118/−104
• gen/Network/AWS/OpsWorks/DescribeLayers.hs +105/−94
• gen/Network/AWS/OpsWorks/DescribeLoadBasedAutoScaling.hs +102/−95
• gen/Network/AWS/OpsWorks/DescribeMyUserProfile.hs +91/−70
• gen/Network/AWS/OpsWorks/DescribePermissions.hs +118/−100
• gen/Network/AWS/OpsWorks/DescribeRAIdArrays.hs +161/−0
• gen/Network/AWS/OpsWorks/DescribeRDSDBInstances.hs +148/−0
• gen/Network/AWS/OpsWorks/DescribeRaidArrays.hs +0/−146
• gen/Network/AWS/OpsWorks/DescribeRdsDbInstances.hs +0/−137
• gen/Network/AWS/OpsWorks/DescribeServiceErrors.hs +118/−104
• gen/Network/AWS/OpsWorks/DescribeStackProvisioningParameters.hs +117/−91
• gen/Network/AWS/OpsWorks/DescribeStackSummary.hs +100/−81
• gen/Network/AWS/OpsWorks/DescribeStacks.hs +100/−94
• gen/Network/AWS/OpsWorks/DescribeTimeBasedAutoScaling.hs +103/−95
• gen/Network/AWS/OpsWorks/DescribeUserProfiles.hs +101/−94
• gen/Network/AWS/OpsWorks/DescribeVolumes.hs +122/−109
• gen/Network/AWS/OpsWorks/DetachElasticLoadBalancer.hs +87/−76
• gen/Network/AWS/OpsWorks/DisassociateElasticIP.hs +109/−0
• gen/Network/AWS/OpsWorks/DisassociateElasticIp.hs +0/−99
• gen/Network/AWS/OpsWorks/GetHostnameSuggestion.hs +109/−90
• gen/Network/AWS/OpsWorks/GrantAccess.hs +111/−95
• gen/Network/AWS/OpsWorks/RebootInstance.hs +73/−65
• gen/Network/AWS/OpsWorks/RegisterEcsCluster.hs +150/−0
• gen/Network/AWS/OpsWorks/RegisterElasticIP.hs +150/−0
• gen/Network/AWS/OpsWorks/RegisterElasticIp.hs +0/−130
• gen/Network/AWS/OpsWorks/RegisterInstance.hs +150/−130
• gen/Network/AWS/OpsWorks/RegisterRDSDBInstance.hs +141/−0
• gen/Network/AWS/OpsWorks/RegisterRdsDbInstance.hs +0/−132
• gen/Network/AWS/OpsWorks/RegisterVolume.hs +109/−90
• gen/Network/AWS/OpsWorks/SetLoadBasedAutoScaling.hs +106/−94
• gen/Network/AWS/OpsWorks/SetPermission.hs +113/−99
• gen/Network/AWS/OpsWorks/SetTimeBasedAutoScaling.hs +84/−74
• gen/Network/AWS/OpsWorks/StartInstance.hs +76/−68
• gen/Network/AWS/OpsWorks/StartStack.hs +75/−68
• gen/Network/AWS/OpsWorks/StopInstance.hs +76/−68
• gen/Network/AWS/OpsWorks/StopStack.hs +75/−68
• gen/Network/AWS/OpsWorks/Types.hs +553/−4724
• gen/Network/AWS/OpsWorks/Types/Product.hs +3859/−0
• gen/Network/AWS/OpsWorks/Types/Sum.hs +509/−0
• gen/Network/AWS/OpsWorks/UnassignInstance.hs +78/−71
• gen/Network/AWS/OpsWorks/UnassignVolume.hs +74/−66
• gen/Network/AWS/OpsWorks/UpdateApp.hs +164/−157
• gen/Network/AWS/OpsWorks/UpdateElasticIP.hs +117/−0
• gen/Network/AWS/OpsWorks/UpdateElasticIp.hs +0/−108
• gen/Network/AWS/OpsWorks/UpdateInstance.hs +210/−169
• gen/Network/AWS/OpsWorks/UpdateLayer.hs +221/−204
• gen/Network/AWS/OpsWorks/UpdateMyUserProfile.hs +75/−67
• gen/Network/AWS/OpsWorks/UpdateRDSDBInstance.hs +128/−0
• gen/Network/AWS/OpsWorks/UpdateRdsDbInstance.hs +0/−119
• gen/Network/AWS/OpsWorks/UpdateStack.hs +309/−249
• gen/Network/AWS/OpsWorks/UpdateUserProfile.hs +104/−96
• gen/Network/AWS/OpsWorks/UpdateVolume.hs +93/−84
• gen/Network/AWS/OpsWorks/Waiters.hs +20/−0
• test/Main.hs +21/−0
• test/Test/AWS/Gen/OpsWorks.hs +1229/−0
• test/Test/AWS/OpsWorks.hs +26/−0
• test/Test/AWS/OpsWorks/Internal.hs +16/−0

@@ -1,21 +1,76 @@ # Amazon OpsWorks SDK -> _Warning:_ This is an experimental preview release which is still under heavy development and not intended for public consumption, _caveat emptor_!-+* [Version](#version) * [Description](#description) * [Contribute](#contribute) * [Licence](#licence) ++## Version++`1.0.0`++ ## Description -AWS OpsWorks provides a simple and flexible way to create and manage stacks-and applications. With AWS OpsWorks, you can provision AWS resources, manage-their configuration, deploy applications to those resources, and monitor-their health.+AWS OpsWorks +Welcome to the /AWS OpsWorks API Reference/. This guide provides+descriptions, syntax, and usage examples about AWS OpsWorks actions and+data types, including common parameters and error codes.++AWS OpsWorks is an application management service that provides an+integrated experience for overseeing the complete application lifecycle.+For information about this product, go to the+<http://aws.amazon.com/opsworks/ AWS OpsWorks> details page.++__SDKs and CLI__++The most common way to use the AWS OpsWorks API is by using the AWS+Command Line Interface (CLI) or by using one of the AWS SDKs to+implement applications in your preferred language. For more information,+see:++-   <http://docs.aws.amazon.com/cli/latest/userguide/cli-chap-welcome.html AWS CLI>+-   <http://docs.aws.amazon.com/AWSJavaSDK/latest/javadoc/com/amazonaws/services/opsworks/AWSOpsWorksClient.html AWS SDK for Java>+-   <http://docs.aws.amazon.com/sdkfornet/latest/apidocs/html/N_Amazon_OpsWorks.htm AWS SDK for .NET>+-   <http://docs.aws.amazon.com/aws-sdk-php-2/latest/class-Aws.OpsWorks.OpsWorksClient.html AWS SDK for PHP 2>+-   <http://docs.aws.amazon.com/AWSRubySDK/latest/AWS/OpsWorks/Client.html AWS SDK for Ruby>+-   <http://aws.amazon.com/documentation/sdkforjavascript/ AWS SDK for Node.js>+-   <http://docs.pythonboto.org/en/latest/ref/opsworks.html AWS SDK for Python(Boto)>++__Endpoints__++AWS OpsWorks supports only one endpoint,+opsworks.us-east-1.amazonaws.com (HTTPS), so you must connect to that+endpoint. You can then use the API to direct AWS OpsWorks to create+stacks in any AWS Region.++__Chef Versions__++When you call CreateStack, CloneStack, or UpdateStack we recommend you+use the @ConfigurationManager@ parameter to specify the Chef version.+The recommended value for Linux stacks, which is also the default value,+is currently 11.10. Windows stacks use Chef 12.2. For more information,+see+<http://docs.aws.amazon.com/opsworks/latest/userguide/workingcookbook-chef11.html Chef Versions>.++You can also specify Chef 11.4 or Chef 0.9 for your Linux stack.+However, Chef 0.9 has been deprecated. We do not recommend using Chef+0.9 for new stacks, and we recommend migrating your existing Chef 0.9+stacks to Chef 11.10 as soon as possible.+ Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-opsworks) and the [AWS API Reference](http://docs.aws.amazon.com/opsworks/latest/APIReference/Welcome.html). +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 and sending requests.++Use of lenses is required for constructing and manipulating types.+This is due to the amount 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).  ## Contribute 

@@ -1,28 +1,78 @@ name:                  amazonka-opsworks-version:               0.3.6+version:               1.0.0 synopsis:              Amazon OpsWorks SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2013-2014 Brendan Hay+copyright:             Copyright (c) 2013-2015 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple extra-source-files:    README.md cabal-version:         >= 1.10  description:-    AWS OpsWorks provides a simple and flexible way to create and manage stacks-    and applications. With AWS OpsWorks, you can provision AWS resources, manage-    their configuration, deploy applications to those resources, and monitor-    their health.+    AWS OpsWorks +    Welcome to the /AWS OpsWorks API Reference/. This guide provides+    descriptions, syntax, and usage examples about AWS OpsWorks actions and+    data types, including common parameters and error codes.++    AWS OpsWorks is an application management service that provides an+    integrated experience for overseeing the complete application lifecycle.+    For information about this product, go to the+    <http://aws.amazon.com/opsworks/ AWS OpsWorks> details page.++    __SDKs and CLI__++    The most common way to use the AWS OpsWorks API is by using the AWS+    Command Line Interface (CLI) or by using one of the AWS SDKs to+    implement applications in your preferred language. For more information,+    see:++    -   <http://docs.aws.amazon.com/cli/latest/userguide/cli-chap-welcome.html AWS CLI>+    -   <http://docs.aws.amazon.com/AWSJavaSDK/latest/javadoc/com/amazonaws/services/opsworks/AWSOpsWorksClient.html AWS SDK for Java>+    -   <http://docs.aws.amazon.com/sdkfornet/latest/apidocs/html/N_Amazon_OpsWorks.htm AWS SDK for .NET>+    -   <http://docs.aws.amazon.com/aws-sdk-php-2/latest/class-Aws.OpsWorks.OpsWorksClient.html AWS SDK for PHP 2>+    -   <http://docs.aws.amazon.com/AWSRubySDK/latest/AWS/OpsWorks/Client.html AWS SDK for Ruby>+    -   <http://aws.amazon.com/documentation/sdkforjavascript/ AWS SDK for Node.js>+    -   <http://docs.pythonboto.org/en/latest/ref/opsworks.html AWS SDK for Python(Boto)>++    __Endpoints__++    AWS OpsWorks supports only one endpoint,+    opsworks.us-east-1.amazonaws.com (HTTPS), so you must connect to that+    endpoint. You can then use the API to direct AWS OpsWorks to create+    stacks in any AWS Region.++    __Chef Versions__++    When you call CreateStack, CloneStack, or UpdateStack we recommend you+    use the @ConfigurationManager@ parameter to specify the Chef version.+    The recommended value for Linux stacks, which is also the default value,+    is currently 11.10. Windows stacks use Chef 12.2. For more information,+    see+    <http://docs.aws.amazon.com/opsworks/latest/userguide/workingcookbook-chef11.html Chef Versions>.++    You can also specify Chef 11.4 or Chef 0.9 for your Linux stack.+    However, Chef 0.9 has been deprecated. We do not recommend using Chef+    0.9 for new stacks, and we recommend migrating your existing Chef 0.9+    stacks to Chef 11.10 as soon as possible.     .-    /See:/ <http://docs.aws.amazon.com/opsworks/latest/APIReference/Welcome.html AWS API Reference>+    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 and sending requests.     .-    /Warning:/ This is an experimental preview release which is still under-    heavy development and not intended for public consumption, caveat emptor!+    Use of lenses is required for constructing and manipulating types.+    This is due to the amount 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.OpsWorks" and the <http://docs.aws.amazon.com/opsworks/latest/APIReference/Welcome.html AWS API Reference>+    to get started.  source-repository head     type:     git@@ -38,7 +88,7 @@           Network.AWS.OpsWorks         , Network.AWS.OpsWorks.AssignInstance         , Network.AWS.OpsWorks.AssignVolume-        , Network.AWS.OpsWorks.AssociateElasticIp+        , Network.AWS.OpsWorks.AssociateElasticIP         , Network.AWS.OpsWorks.AttachElasticLoadBalancer         , Network.AWS.OpsWorks.CloneStack         , Network.AWS.OpsWorks.CreateApp@@ -52,22 +102,25 @@         , Network.AWS.OpsWorks.DeleteLayer         , Network.AWS.OpsWorks.DeleteStack         , Network.AWS.OpsWorks.DeleteUserProfile-        , Network.AWS.OpsWorks.DeregisterElasticIp+        , Network.AWS.OpsWorks.DeregisterEcsCluster+        , Network.AWS.OpsWorks.DeregisterElasticIP         , Network.AWS.OpsWorks.DeregisterInstance-        , Network.AWS.OpsWorks.DeregisterRdsDbInstance+        , Network.AWS.OpsWorks.DeregisterRDSDBInstance         , Network.AWS.OpsWorks.DeregisterVolume+        , Network.AWS.OpsWorks.DescribeAgentVersions         , Network.AWS.OpsWorks.DescribeApps         , Network.AWS.OpsWorks.DescribeCommands         , Network.AWS.OpsWorks.DescribeDeployments-        , Network.AWS.OpsWorks.DescribeElasticIps+        , Network.AWS.OpsWorks.DescribeEcsClusters+        , Network.AWS.OpsWorks.DescribeElasticIPs         , Network.AWS.OpsWorks.DescribeElasticLoadBalancers         , Network.AWS.OpsWorks.DescribeInstances         , Network.AWS.OpsWorks.DescribeLayers         , Network.AWS.OpsWorks.DescribeLoadBasedAutoScaling         , Network.AWS.OpsWorks.DescribeMyUserProfile         , Network.AWS.OpsWorks.DescribePermissions-        , Network.AWS.OpsWorks.DescribeRaidArrays-        , Network.AWS.OpsWorks.DescribeRdsDbInstances+        , Network.AWS.OpsWorks.DescribeRAIdArrays+        , Network.AWS.OpsWorks.DescribeRDSDBInstances         , Network.AWS.OpsWorks.DescribeServiceErrors         , Network.AWS.OpsWorks.DescribeStackProvisioningParameters         , Network.AWS.OpsWorks.DescribeStackSummary@@ -76,13 +129,14 @@         , Network.AWS.OpsWorks.DescribeUserProfiles         , Network.AWS.OpsWorks.DescribeVolumes         , Network.AWS.OpsWorks.DetachElasticLoadBalancer-        , Network.AWS.OpsWorks.DisassociateElasticIp+        , Network.AWS.OpsWorks.DisassociateElasticIP         , Network.AWS.OpsWorks.GetHostnameSuggestion         , Network.AWS.OpsWorks.GrantAccess         , Network.AWS.OpsWorks.RebootInstance-        , Network.AWS.OpsWorks.RegisterElasticIp+        , Network.AWS.OpsWorks.RegisterEcsCluster+        , Network.AWS.OpsWorks.RegisterElasticIP         , Network.AWS.OpsWorks.RegisterInstance-        , Network.AWS.OpsWorks.RegisterRdsDbInstance+        , Network.AWS.OpsWorks.RegisterRDSDBInstance         , Network.AWS.OpsWorks.RegisterVolume         , Network.AWS.OpsWorks.SetLoadBasedAutoScaling         , Network.AWS.OpsWorks.SetPermission@@ -95,17 +149,48 @@         , Network.AWS.OpsWorks.UnassignInstance         , Network.AWS.OpsWorks.UnassignVolume         , Network.AWS.OpsWorks.UpdateApp-        , Network.AWS.OpsWorks.UpdateElasticIp+        , Network.AWS.OpsWorks.UpdateElasticIP         , Network.AWS.OpsWorks.UpdateInstance         , Network.AWS.OpsWorks.UpdateLayer         , Network.AWS.OpsWorks.UpdateMyUserProfile-        , Network.AWS.OpsWorks.UpdateRdsDbInstance+        , Network.AWS.OpsWorks.UpdateRDSDBInstance         , Network.AWS.OpsWorks.UpdateStack         , Network.AWS.OpsWorks.UpdateUserProfile         , Network.AWS.OpsWorks.UpdateVolume+        , Network.AWS.OpsWorks.Waiters      other-modules:+          Network.AWS.OpsWorks.Types.Product+        , Network.AWS.OpsWorks.Types.Sum      build-depends:-          amazonka-core == 0.3.6.*+          amazonka-core == 1.0.0.*         , base          >= 4.7     && < 5++test-suite amazonka-opsworks-test+    type:              exitcode-stdio-1.0+    default-language:  Haskell2010+    hs-source-dirs:    test+    main-is:           Main.hs++    ghc-options:       -Wall -threaded++    -- This is not comprehensive if modules have manually been added.+    -- It exists to ensure cabal 'somewhat' detects test module changes.+    other-modules:+          Test.AWS.OpsWorks+        , Test.AWS.Gen.OpsWorks+        , Test.AWS.OpsWorks.Internal++    build-depends:+          amazonka-core == 1.0.0+        , amazonka-test == 1.0.0+        , amazonka-opsworks == 1.0.0+        , base+        , bytestring+        , lens+        , tasty+        , tasty-hunit+        , text+        , time+        , unordered-containers

@@ -1,153 +1,879 @@+{-# 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.OpsWorks--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | AWS OpsWorks provides a simple and flexible way to create and manage stacks--- and applications. With AWS OpsWorks, you can provision AWS resources, manage--- their configuration, deploy applications to those resources, and monitor--- their health.+-- AWS OpsWorks+--+-- Welcome to the /AWS OpsWorks API Reference/. This guide provides+-- descriptions, syntax, and usage examples about AWS OpsWorks actions and+-- data types, including common parameters and error codes.+--+-- AWS OpsWorks is an application management service that provides an+-- integrated experience for overseeing the complete application lifecycle.+-- For information about this product, go to the+-- <http://aws.amazon.com/opsworks/ AWS OpsWorks> details page.+--+-- __SDKs and CLI__+--+-- The most common way to use the AWS OpsWorks API is by using the AWS+-- Command Line Interface (CLI) or by using one of the AWS SDKs to+-- implement applications in your preferred language. For more information,+-- see:+--+-- -   <http://docs.aws.amazon.com/cli/latest/userguide/cli-chap-welcome.html AWS CLI>+-- -   <http://docs.aws.amazon.com/AWSJavaSDK/latest/javadoc/com/amazonaws/services/opsworks/AWSOpsWorksClient.html AWS SDK for Java>+-- -   <http://docs.aws.amazon.com/sdkfornet/latest/apidocs/html/N_Amazon_OpsWorks.htm AWS SDK for .NET>+-- -   <http://docs.aws.amazon.com/aws-sdk-php-2/latest/class-Aws.OpsWorks.OpsWorksClient.html AWS SDK for PHP 2>+-- -   <http://docs.aws.amazon.com/AWSRubySDK/latest/AWS/OpsWorks/Client.html AWS SDK for Ruby>+-- -   <http://aws.amazon.com/documentation/sdkforjavascript/ AWS SDK for Node.js>+-- -   <http://docs.pythonboto.org/en/latest/ref/opsworks.html AWS SDK for Python(Boto)>+--+-- __Endpoints__+--+-- AWS OpsWorks supports only one endpoint,+-- opsworks.us-east-1.amazonaws.com (HTTPS), so you must connect to that+-- endpoint. You can then use the API to direct AWS OpsWorks to create+-- stacks in any AWS Region.+--+-- __Chef Versions__+--+-- When you call CreateStack, CloneStack, or UpdateStack we recommend you+-- use the 'ConfigurationManager' parameter to specify the Chef version.+-- The recommended value for Linux stacks, which is also the default value,+-- is currently 11.10. Windows stacks use Chef 12.2. For more information,+-- see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/workingcookbook-chef11.html Chef Versions>.+--+-- You can also specify Chef 11.4 or Chef 0.9 for your Linux stack.+-- However, Chef 0.9 has been deprecated. We do not recommend using Chef+-- 0.9 for new stacks, and we recommend migrating your existing Chef 0.9+-- stacks to Chef 11.10 as soon as possible.+--+-- /See:/ <http://docs.aws.amazon.com/opsworks/latest/APIReference/Welcome.html AWS API Reference> module Network.AWS.OpsWorks-    ( module Network.AWS.OpsWorks.AssignInstance-    , module Network.AWS.OpsWorks.AssignVolume-    , module Network.AWS.OpsWorks.AssociateElasticIp-    , module Network.AWS.OpsWorks.AttachElasticLoadBalancer-    , module Network.AWS.OpsWorks.CloneStack-    , module Network.AWS.OpsWorks.CreateApp-    , module Network.AWS.OpsWorks.CreateDeployment-    , module Network.AWS.OpsWorks.CreateInstance+    (+    -- * Service+      OpsWorks++    -- * Errors+    -- $errors++    -- ** ValidationException+    , _ValidationException++    -- ** ResourceNotFoundException+    , _ResourceNotFoundException++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** DescribeRDSDBInstances+    , module Network.AWS.OpsWorks.DescribeRDSDBInstances++    -- ** DeleteStack+    , module Network.AWS.OpsWorks.DeleteStack++    -- ** UpdateStack+    , module Network.AWS.OpsWorks.UpdateStack++    -- ** CreateLayer     , module Network.AWS.OpsWorks.CreateLayer-    , module Network.AWS.OpsWorks.CreateStack-    , module Network.AWS.OpsWorks.CreateUserProfile++    -- ** SetLoadBasedAutoScaling+    , module Network.AWS.OpsWorks.SetLoadBasedAutoScaling++    -- ** UnassignVolume+    , module Network.AWS.OpsWorks.UnassignVolume++    -- ** DeregisterRDSDBInstance+    , module Network.AWS.OpsWorks.DeregisterRDSDBInstance++    -- ** CreateInstance+    , module Network.AWS.OpsWorks.CreateInstance++    -- ** RegisterElasticIP+    , module Network.AWS.OpsWorks.RegisterElasticIP++    -- ** DescribeAgentVersions+    , module Network.AWS.OpsWorks.DescribeAgentVersions++    -- ** DescribeLayers+    , module Network.AWS.OpsWorks.DescribeLayers++    -- ** CreateDeployment+    , module Network.AWS.OpsWorks.CreateDeployment++    -- ** DeleteApp     , module Network.AWS.OpsWorks.DeleteApp++    -- ** UpdateApp+    , module Network.AWS.OpsWorks.UpdateApp++    -- ** DeleteInstance     , module Network.AWS.OpsWorks.DeleteInstance-    , module Network.AWS.OpsWorks.DeleteLayer-    , module Network.AWS.OpsWorks.DeleteStack-    , module Network.AWS.OpsWorks.DeleteUserProfile-    , module Network.AWS.OpsWorks.DeregisterElasticIp-    , module Network.AWS.OpsWorks.DeregisterInstance-    , module Network.AWS.OpsWorks.DeregisterRdsDbInstance-    , module Network.AWS.OpsWorks.DeregisterVolume-    , module Network.AWS.OpsWorks.DescribeApps-    , module Network.AWS.OpsWorks.DescribeCommands-    , module Network.AWS.OpsWorks.DescribeDeployments-    , module Network.AWS.OpsWorks.DescribeElasticIps-    , module Network.AWS.OpsWorks.DescribeElasticLoadBalancers-    , module Network.AWS.OpsWorks.DescribeInstances-    , module Network.AWS.OpsWorks.DescribeLayers-    , module Network.AWS.OpsWorks.DescribeLoadBasedAutoScaling-    , module Network.AWS.OpsWorks.DescribeMyUserProfile-    , module Network.AWS.OpsWorks.DescribePermissions-    , module Network.AWS.OpsWorks.DescribeRaidArrays-    , module Network.AWS.OpsWorks.DescribeRdsDbInstances-    , module Network.AWS.OpsWorks.DescribeServiceErrors-    , module Network.AWS.OpsWorks.DescribeStackProvisioningParameters-    , module Network.AWS.OpsWorks.DescribeStackSummary++    -- ** UpdateInstance+    , module Network.AWS.OpsWorks.UpdateInstance++    -- ** DescribeStacks     , module Network.AWS.OpsWorks.DescribeStacks++    -- ** DeregisterVolume+    , module Network.AWS.OpsWorks.DeregisterVolume++    -- ** AssignInstance+    , module Network.AWS.OpsWorks.AssignInstance++    -- ** RebootInstance+    , module Network.AWS.OpsWorks.RebootInstance++    -- ** DescribeTimeBasedAutoScaling     , module Network.AWS.OpsWorks.DescribeTimeBasedAutoScaling-    , module Network.AWS.OpsWorks.DescribeUserProfiles++    -- ** UpdateRDSDBInstance+    , module Network.AWS.OpsWorks.UpdateRDSDBInstance++    -- ** StopStack+    , module Network.AWS.OpsWorks.StopStack++    -- ** DescribeVolumes     , module Network.AWS.OpsWorks.DescribeVolumes-    , module Network.AWS.OpsWorks.DetachElasticLoadBalancer-    , module Network.AWS.OpsWorks.DisassociateElasticIp-    , module Network.AWS.OpsWorks.GetHostnameSuggestion-    , module Network.AWS.OpsWorks.GrantAccess-    , module Network.AWS.OpsWorks.RebootInstance-    , module Network.AWS.OpsWorks.RegisterElasticIp-    , module Network.AWS.OpsWorks.RegisterInstance-    , module Network.AWS.OpsWorks.RegisterRdsDbInstance++    -- ** DisassociateElasticIP+    , module Network.AWS.OpsWorks.DisassociateElasticIP++    -- ** RegisterEcsCluster+    , module Network.AWS.OpsWorks.RegisterEcsCluster++    -- ** StopInstance+    , module Network.AWS.OpsWorks.StopInstance++    -- ** RegisterVolume     , module Network.AWS.OpsWorks.RegisterVolume-    , module Network.AWS.OpsWorks.SetLoadBasedAutoScaling-    , module Network.AWS.OpsWorks.SetPermission++    -- ** SetTimeBasedAutoScaling     , module Network.AWS.OpsWorks.SetTimeBasedAutoScaling-    , module Network.AWS.OpsWorks.StartInstance-    , module Network.AWS.OpsWorks.StartStack-    , module Network.AWS.OpsWorks.StopInstance-    , module Network.AWS.OpsWorks.StopStack-    , module Network.AWS.OpsWorks.Types-    , module Network.AWS.OpsWorks.UnassignInstance-    , module Network.AWS.OpsWorks.UnassignVolume-    , module Network.AWS.OpsWorks.UpdateApp-    , module Network.AWS.OpsWorks.UpdateElasticIp-    , module Network.AWS.OpsWorks.UpdateInstance-    , module Network.AWS.OpsWorks.UpdateLayer++    -- ** DeregisterElasticIP+    , module Network.AWS.OpsWorks.DeregisterElasticIP++    -- ** AttachElasticLoadBalancer+    , module Network.AWS.OpsWorks.AttachElasticLoadBalancer++    -- ** DescribeUserProfiles+    , module Network.AWS.OpsWorks.DescribeUserProfiles++    -- ** DescribeStackSummary+    , module Network.AWS.OpsWorks.DescribeStackSummary++    -- ** DeregisterEcsCluster+    , module Network.AWS.OpsWorks.DeregisterEcsCluster++    -- ** DescribeApps+    , module Network.AWS.OpsWorks.DescribeApps++    -- ** UpdateMyUserProfile     , module Network.AWS.OpsWorks.UpdateMyUserProfile-    , module Network.AWS.OpsWorks.UpdateRdsDbInstance-    , module Network.AWS.OpsWorks.UpdateStack++    -- ** DescribeInstances+    , module Network.AWS.OpsWorks.DescribeInstances++    -- ** DescribeDeployments+    , module Network.AWS.OpsWorks.DescribeDeployments++    -- ** CreateStack+    , module Network.AWS.OpsWorks.CreateStack++    -- ** GrantAccess+    , module Network.AWS.OpsWorks.GrantAccess++    -- ** DescribeElasticIPs+    , module Network.AWS.OpsWorks.DescribeElasticIPs++    -- ** DeleteLayer+    , module Network.AWS.OpsWorks.DeleteLayer++    -- ** UpdateLayer+    , module Network.AWS.OpsWorks.UpdateLayer++    -- ** CloneStack+    , module Network.AWS.OpsWorks.CloneStack++    -- ** GetHostnameSuggestion+    , module Network.AWS.OpsWorks.GetHostnameSuggestion++    -- ** CreateApp+    , module Network.AWS.OpsWorks.CreateApp++    -- ** DescribePermissions+    , module Network.AWS.OpsWorks.DescribePermissions++    -- ** UpdateElasticIP+    , module Network.AWS.OpsWorks.UpdateElasticIP++    -- ** DescribeLoadBasedAutoScaling+    , module Network.AWS.OpsWorks.DescribeLoadBasedAutoScaling++    -- ** RegisterInstance+    , module Network.AWS.OpsWorks.RegisterInstance++    -- ** AssociateElasticIP+    , module Network.AWS.OpsWorks.AssociateElasticIP++    -- ** DetachElasticLoadBalancer+    , module Network.AWS.OpsWorks.DetachElasticLoadBalancer++    -- ** DescribeStackProvisioningParameters+    , module Network.AWS.OpsWorks.DescribeStackProvisioningParameters++    -- ** DescribeMyUserProfile+    , module Network.AWS.OpsWorks.DescribeMyUserProfile++    -- ** UnassignInstance+    , module Network.AWS.OpsWorks.UnassignInstance++    -- ** RegisterRDSDBInstance+    , module Network.AWS.OpsWorks.RegisterRDSDBInstance++    -- ** DeleteUserProfile+    , module Network.AWS.OpsWorks.DeleteUserProfile++    -- ** UpdateUserProfile     , module Network.AWS.OpsWorks.UpdateUserProfile++    -- ** DescribeServiceErrors+    , module Network.AWS.OpsWorks.DescribeServiceErrors++    -- ** StartStack+    , module Network.AWS.OpsWorks.StartStack++    -- ** CreateUserProfile+    , module Network.AWS.OpsWorks.CreateUserProfile++    -- ** DescribeCommands+    , module Network.AWS.OpsWorks.DescribeCommands++    -- ** DescribeEcsClusters+    , module Network.AWS.OpsWorks.DescribeEcsClusters++    -- ** DescribeElasticLoadBalancers+    , module Network.AWS.OpsWorks.DescribeElasticLoadBalancers++    -- ** DeregisterInstance+    , module Network.AWS.OpsWorks.DeregisterInstance++    -- ** DescribeRAIdArrays+    , module Network.AWS.OpsWorks.DescribeRAIdArrays++    -- ** SetPermission+    , module Network.AWS.OpsWorks.SetPermission++    -- ** UpdateVolume     , module Network.AWS.OpsWorks.UpdateVolume++    -- ** AssignVolume+    , module Network.AWS.OpsWorks.AssignVolume++    -- ** StartInstance+    , module Network.AWS.OpsWorks.StartInstance++    -- * Types++    -- ** AppAttributesKeys+    , AppAttributesKeys (..)++    -- ** AppType+    , AppType (..)++    -- ** Architecture+    , Architecture (..)++    -- ** AutoScalingType+    , AutoScalingType (..)++    -- ** DeploymentCommandName+    , DeploymentCommandName (..)++    -- ** LayerAttributesKeys+    , LayerAttributesKeys (..)++    -- ** LayerType+    , LayerType (..)++    -- ** RootDeviceType+    , RootDeviceType (..)++    -- ** SourceType+    , SourceType (..)++    -- ** StackAttributesKeys+    , StackAttributesKeys (..)++    -- ** VirtualizationType+    , VirtualizationType (..)++    -- ** VolumeType+    , VolumeType (..)++    -- ** AgentVersion+    , AgentVersion+    , agentVersion+    , avVersion+    , avConfigurationManager++    -- ** App+    , App+    , app+    , appSSLConfiguration+    , appShortname+    , appEnableSSL+    , appCreatedAt+    , appEnvironment+    , appDataSources+    , appAppId+    , appAppSource+    , appName+    , appAttributes+    , appType+    , appDomains+    , appStackId+    , appDescription++    -- ** AutoScalingThresholds+    , AutoScalingThresholds+    , autoScalingThresholds+    , astInstanceCount+    , astIgnoreMetricsTime+    , astLoadThreshold+    , astThresholdsWaitTime+    , astAlarms+    , astMemoryThreshold+    , astCPUThreshold++    -- ** BlockDeviceMapping+    , BlockDeviceMapping+    , blockDeviceMapping+    , bdmVirtualName+    , bdmNoDevice+    , bdmEBS+    , bdmDeviceName++    -- ** ChefConfiguration+    , ChefConfiguration+    , chefConfiguration+    , ccBerkshelfVersion+    , ccManageBerkshelf++    -- ** Command+    , Command+    , command+    , cInstanceId+    , cDeploymentId+    , cStatus+    , cLogURL+    , cCreatedAt+    , cCommandId+    , cExitCode+    , cType+    , cCompletedAt+    , cAcknowledgedAt++    -- ** DataSource+    , DataSource+    , dataSource+    , dsARN+    , dsDatabaseName+    , dsType++    -- ** Deployment+    , Deployment+    , deployment+    , dDeploymentId+    , dStatus+    , dCommand+    , dCreatedAt+    , dCustomJSON+    , dIAMUserARN+    , dAppId+    , dInstanceIds+    , dCompletedAt+    , dStackId+    , dComment+    , dDuration++    -- ** DeploymentCommand+    , DeploymentCommand+    , deploymentCommand+    , dcArgs+    , dcName++    -- ** EBSBlockDevice+    , EBSBlockDevice+    , ebsBlockDevice+    , ebdDeleteOnTermination+    , ebdVolumeSize+    , ebdIOPS+    , ebdVolumeType+    , ebdSnapshotId++    -- ** EcsCluster+    , EcsCluster+    , ecsCluster+    , ecEcsClusterARN+    , ecEcsClusterName+    , ecRegisteredAt+    , ecStackId++    -- ** ElasticIP+    , ElasticIP+    , elasticIP+    , eiInstanceId+    , eiDomain+    , eiIP+    , eiName+    , eiRegion++    -- ** ElasticLoadBalancer+    , ElasticLoadBalancer+    , elasticLoadBalancer+    , elbSubnetIds+    , elbVPCId+    , elbAvailabilityZones+    , elbRegion+    , elbElasticLoadBalancerName+    , elbEC2InstanceIds+    , elbStackId+    , elbLayerId+    , elbDNSName++    -- ** EnvironmentVariable+    , EnvironmentVariable+    , environmentVariable+    , evSecure+    , evKey+    , evValue++    -- ** Instance+    , Instance+    , instance'+    , iInstanceId+    , iPrivateIP+    , iInstallUpdatesOnBoot+    , iReportedAgentVersion+    , iStatus+    , iPrivateDNS+    , iVirtualizationType+    , iSecurityGroupIds+    , iSSHHostRsaKeyFingerprint+    , iInstanceProfileARN+    , iPlatform+    , iHostname+    , iEcsClusterARN+    , iCreatedAt+    , iSSHKeyName+    , iEC2InstanceId+    , iAgentVersion+    , iRootDeviceVolumeId+    , iSubnetId+    , iInstanceType+    , iInfrastructureClass+    , iEBSOptimized+    , iSSHHostDsaKeyFingerprint+    , iElasticIP+    , iOS+    , iAvailabilityZone+    , iLastServiceErrorId+    , iAutoScalingType+    , iLayerIds+    , iArchitecture+    , iPublicDNS+    , iPublicIP+    , iAMIId+    , iReportedOS+    , iStackId+    , iRegisteredBy+    , iBlockDeviceMappings+    , iEcsContainerInstanceARN+    , iRootDeviceType++    -- ** InstanceIdentity+    , InstanceIdentity+    , instanceIdentity+    , iiSignature+    , iiDocument++    -- ** InstancesCount+    , InstancesCount+    , instancesCount+    , icTerminating+    , icPending+    , icOnline+    , icUnassigning+    , icRequested+    , icRunningSetup+    , icDeregistering+    , icBooting+    , icStopped+    , icRebooting+    , icAssigning+    , icShuttingDown+    , icSetupFailed+    , icConnectionLost+    , icTerminated+    , icStopping+    , icRegistered+    , icStartFailed+    , icRegistering++    -- ** Layer+    , Layer+    , layer+    , lCustomInstanceProfileARN+    , lInstallUpdatesOnBoot+    , lCustomSecurityGroupIds+    , lLifecycleEventConfiguration+    , lShortname+    , lCreatedAt+    , lDefaultRecipes+    , lCustomRecipes+    , lVolumeConfigurations+    , lCustomJSON+    , lEnableAutoHealing+    , lPackages+    , lName+    , lAttributes+    , lAutoAssignPublicIPs+    , lUseEBSOptimizedInstances+    , lType+    , lStackId+    , lLayerId+    , lDefaultSecurityGroupNames+    , lAutoAssignElasticIPs++    -- ** LifecycleEventConfiguration+    , LifecycleEventConfiguration+    , lifecycleEventConfiguration+    , lecShutdown++    -- ** LoadBasedAutoScalingConfiguration+    , LoadBasedAutoScalingConfiguration+    , loadBasedAutoScalingConfiguration+    , lbascUpScaling+    , lbascEnable+    , lbascDownScaling+    , lbascLayerId++    -- ** Permission+    , Permission+    , permission+    , pIAMUserARN+    , pAllowSudo+    , pStackId+    , pLevel+    , pAllowSSH++    -- ** RAIdArray+    , RAIdArray+    , rAIdArray+    , raiaInstanceId+    , raiaSize+    , raiaCreatedAt+    , raiaIOPS+    , raiaRAIdLevel+    , raiaDevice+    , raiaNumberOfDisks+    , raiaName+    , raiaAvailabilityZone+    , raiaRAIdArrayId+    , raiaVolumeType+    , raiaStackId+    , raiaMountPoint++    -- ** RDSDBInstance+    , RDSDBInstance+    , rdsDBInstance+    , rdiDBUser+    , rdiRDSDBInstanceARN+    , rdiMissingOnRDS+    , rdiEngine+    , rdiAddress+    , rdiDBInstanceIdentifier+    , rdiRegion+    , rdiStackId+    , rdiDBPassword++    -- ** Recipes+    , Recipes+    , recipes+    , rSetup+    , rUndeploy+    , rShutdown+    , rConfigure+    , rDeploy++    -- ** ReportedOS+    , ReportedOS+    , reportedOS+    , roFamily+    , roName+    , roVersion++    -- ** SSLConfiguration+    , SSLConfiguration+    , sslConfiguration+    , scChain+    , scCertificate+    , scPrivateKey++    -- ** SelfUserProfile+    , SelfUserProfile+    , selfUserProfile+    , supSSHUsername+    , supSSHPublicKey+    , supIAMUserARN+    , supName++    -- ** ServiceError'+    , ServiceError'+    , serviceError'+    , seInstanceId+    , seCreatedAt+    , seServiceErrorId+    , seType+    , seMessage+    , seStackId++    -- ** ShutdownEventConfiguration+    , ShutdownEventConfiguration+    , shutdownEventConfiguration+    , secExecutionTimeout+    , secDelayUntilElbConnectionsDrained++    -- ** Source+    , Source+    , source+    , sURL+    , sUsername+    , sSSHKey+    , sPassword+    , sType+    , sRevision++    -- ** Stack+    , Stack+    , stack+    , sDefaultInstanceProfileARN+    , sServiceRoleARN+    , sARN+    , sDefaultRootDeviceType+    , sCreatedAt+    , sChefConfiguration+    , sVPCId+    , sAgentVersion+    , sDefaultSSHKeyName+    , sCustomJSON+    , sCustomCookbooksSource+    , sDefaultAvailabilityZone+    , sName+    , sUseOpsworksSecurityGroups+    , sDefaultOS+    , sAttributes+    , sUseCustomCookbooks+    , sDefaultSubnetId+    , sRegion+    , sConfigurationManager+    , sStackId+    , sHostnameTheme++    -- ** StackConfigurationManager+    , StackConfigurationManager+    , stackConfigurationManager+    , scmName+    , scmVersion++    -- ** StackSummary+    , StackSummary+    , stackSummary+    , ssARN+    , ssAppsCount+    , ssName+    , ssStackId+    , ssLayersCount+    , ssInstancesCount++    -- ** TemporaryCredential+    , TemporaryCredential+    , temporaryCredential+    , tcInstanceId+    , tcUsername+    , tcPassword+    , tcValidForInMinutes++    -- ** TimeBasedAutoScalingConfiguration+    , TimeBasedAutoScalingConfiguration+    , timeBasedAutoScalingConfiguration+    , tbascInstanceId+    , tbascAutoScalingSchedule++    -- ** UserProfile+    , UserProfile+    , userProfile+    , upSSHUsername+    , upSSHPublicKey+    , upAllowSelfManagement+    , upIAMUserARN+    , upName++    -- ** Volume+    , Volume+    , volume+    , vInstanceId+    , vStatus+    , vSize+    , vIOPS+    , vDevice+    , vName+    , vAvailabilityZone+    , vRAIdArrayId+    , vVolumeId+    , vRegion+    , vVolumeType+    , vEC2VolumeId+    , vMountPoint++    -- ** VolumeConfiguration+    , VolumeConfiguration+    , volumeConfiguration+    , vcIOPS+    , vcRAIdLevel+    , vcVolumeType+    , vcMountPoint+    , vcNumberOfDisks+    , vcSize++    -- ** WeeklyAutoScalingSchedule+    , WeeklyAutoScalingSchedule+    , weeklyAutoScalingSchedule+    , wassThursday+    , wassWednesday+    , wassSaturday+    , wassMonday+    , wassFriday+    , wassSunday+    , wassTuesday     ) where -import Network.AWS.OpsWorks.AssignInstance-import Network.AWS.OpsWorks.AssignVolume-import Network.AWS.OpsWorks.AssociateElasticIp-import Network.AWS.OpsWorks.AttachElasticLoadBalancer-import Network.AWS.OpsWorks.CloneStack-import Network.AWS.OpsWorks.CreateApp-import Network.AWS.OpsWorks.CreateDeployment-import Network.AWS.OpsWorks.CreateInstance-import Network.AWS.OpsWorks.CreateLayer-import Network.AWS.OpsWorks.CreateStack-import Network.AWS.OpsWorks.CreateUserProfile-import Network.AWS.OpsWorks.DeleteApp-import Network.AWS.OpsWorks.DeleteInstance-import Network.AWS.OpsWorks.DeleteLayer-import Network.AWS.OpsWorks.DeleteStack-import Network.AWS.OpsWorks.DeleteUserProfile-import Network.AWS.OpsWorks.DeregisterElasticIp-import Network.AWS.OpsWorks.DeregisterInstance-import Network.AWS.OpsWorks.DeregisterRdsDbInstance-import Network.AWS.OpsWorks.DeregisterVolume-import Network.AWS.OpsWorks.DescribeApps-import Network.AWS.OpsWorks.DescribeCommands-import Network.AWS.OpsWorks.DescribeDeployments-import Network.AWS.OpsWorks.DescribeElasticIps-import Network.AWS.OpsWorks.DescribeElasticLoadBalancers-import Network.AWS.OpsWorks.DescribeInstances-import Network.AWS.OpsWorks.DescribeLayers-import Network.AWS.OpsWorks.DescribeLoadBasedAutoScaling-import Network.AWS.OpsWorks.DescribeMyUserProfile-import Network.AWS.OpsWorks.DescribePermissions-import Network.AWS.OpsWorks.DescribeRaidArrays-import Network.AWS.OpsWorks.DescribeRdsDbInstances-import Network.AWS.OpsWorks.DescribeServiceErrors-import Network.AWS.OpsWorks.DescribeStackProvisioningParameters-import Network.AWS.OpsWorks.DescribeStackSummary-import Network.AWS.OpsWorks.DescribeStacks-import Network.AWS.OpsWorks.DescribeTimeBasedAutoScaling-import Network.AWS.OpsWorks.DescribeUserProfiles-import Network.AWS.OpsWorks.DescribeVolumes-import Network.AWS.OpsWorks.DetachElasticLoadBalancer-import Network.AWS.OpsWorks.DisassociateElasticIp-import Network.AWS.OpsWorks.GetHostnameSuggestion-import Network.AWS.OpsWorks.GrantAccess-import Network.AWS.OpsWorks.RebootInstance-import Network.AWS.OpsWorks.RegisterElasticIp-import Network.AWS.OpsWorks.RegisterInstance-import Network.AWS.OpsWorks.RegisterRdsDbInstance-import Network.AWS.OpsWorks.RegisterVolume-import Network.AWS.OpsWorks.SetLoadBasedAutoScaling-import Network.AWS.OpsWorks.SetPermission-import Network.AWS.OpsWorks.SetTimeBasedAutoScaling-import Network.AWS.OpsWorks.StartInstance-import Network.AWS.OpsWorks.StartStack-import Network.AWS.OpsWorks.StopInstance-import Network.AWS.OpsWorks.StopStack-import Network.AWS.OpsWorks.Types-import Network.AWS.OpsWorks.UnassignInstance-import Network.AWS.OpsWorks.UnassignVolume-import Network.AWS.OpsWorks.UpdateApp-import Network.AWS.OpsWorks.UpdateElasticIp-import Network.AWS.OpsWorks.UpdateInstance-import Network.AWS.OpsWorks.UpdateLayer-import Network.AWS.OpsWorks.UpdateMyUserProfile-import Network.AWS.OpsWorks.UpdateRdsDbInstance-import Network.AWS.OpsWorks.UpdateStack-import Network.AWS.OpsWorks.UpdateUserProfile-import Network.AWS.OpsWorks.UpdateVolume+import           Network.AWS.OpsWorks.AssignInstance+import           Network.AWS.OpsWorks.AssignVolume+import           Network.AWS.OpsWorks.AssociateElasticIP+import           Network.AWS.OpsWorks.AttachElasticLoadBalancer+import           Network.AWS.OpsWorks.CloneStack+import           Network.AWS.OpsWorks.CreateApp+import           Network.AWS.OpsWorks.CreateDeployment+import           Network.AWS.OpsWorks.CreateInstance+import           Network.AWS.OpsWorks.CreateLayer+import           Network.AWS.OpsWorks.CreateStack+import           Network.AWS.OpsWorks.CreateUserProfile+import           Network.AWS.OpsWorks.DeleteApp+import           Network.AWS.OpsWorks.DeleteInstance+import           Network.AWS.OpsWorks.DeleteLayer+import           Network.AWS.OpsWorks.DeleteStack+import           Network.AWS.OpsWorks.DeleteUserProfile+import           Network.AWS.OpsWorks.DeregisterEcsCluster+import           Network.AWS.OpsWorks.DeregisterElasticIP+import           Network.AWS.OpsWorks.DeregisterInstance+import           Network.AWS.OpsWorks.DeregisterRDSDBInstance+import           Network.AWS.OpsWorks.DeregisterVolume+import           Network.AWS.OpsWorks.DescribeAgentVersions+import           Network.AWS.OpsWorks.DescribeApps+import           Network.AWS.OpsWorks.DescribeCommands+import           Network.AWS.OpsWorks.DescribeDeployments+import           Network.AWS.OpsWorks.DescribeEcsClusters+import           Network.AWS.OpsWorks.DescribeElasticIPs+import           Network.AWS.OpsWorks.DescribeElasticLoadBalancers+import           Network.AWS.OpsWorks.DescribeInstances+import           Network.AWS.OpsWorks.DescribeLayers+import           Network.AWS.OpsWorks.DescribeLoadBasedAutoScaling+import           Network.AWS.OpsWorks.DescribeMyUserProfile+import           Network.AWS.OpsWorks.DescribePermissions+import           Network.AWS.OpsWorks.DescribeRAIdArrays+import           Network.AWS.OpsWorks.DescribeRDSDBInstances+import           Network.AWS.OpsWorks.DescribeServiceErrors+import           Network.AWS.OpsWorks.DescribeStackProvisioningParameters+import           Network.AWS.OpsWorks.DescribeStacks+import           Network.AWS.OpsWorks.DescribeStackSummary+import           Network.AWS.OpsWorks.DescribeTimeBasedAutoScaling+import           Network.AWS.OpsWorks.DescribeUserProfiles+import           Network.AWS.OpsWorks.DescribeVolumes+import           Network.AWS.OpsWorks.DetachElasticLoadBalancer+import           Network.AWS.OpsWorks.DisassociateElasticIP+import           Network.AWS.OpsWorks.GetHostnameSuggestion+import           Network.AWS.OpsWorks.GrantAccess+import           Network.AWS.OpsWorks.RebootInstance+import           Network.AWS.OpsWorks.RegisterEcsCluster+import           Network.AWS.OpsWorks.RegisterElasticIP+import           Network.AWS.OpsWorks.RegisterInstance+import           Network.AWS.OpsWorks.RegisterRDSDBInstance+import           Network.AWS.OpsWorks.RegisterVolume+import           Network.AWS.OpsWorks.SetLoadBasedAutoScaling+import           Network.AWS.OpsWorks.SetPermission+import           Network.AWS.OpsWorks.SetTimeBasedAutoScaling+import           Network.AWS.OpsWorks.StartInstance+import           Network.AWS.OpsWorks.StartStack+import           Network.AWS.OpsWorks.StopInstance+import           Network.AWS.OpsWorks.StopStack+import           Network.AWS.OpsWorks.Types+import           Network.AWS.OpsWorks.UnassignInstance+import           Network.AWS.OpsWorks.UnassignVolume+import           Network.AWS.OpsWorks.UpdateApp+import           Network.AWS.OpsWorks.UpdateElasticIP+import           Network.AWS.OpsWorks.UpdateInstance+import           Network.AWS.OpsWorks.UpdateLayer+import           Network.AWS.OpsWorks.UpdateMyUserProfile+import           Network.AWS.OpsWorks.UpdateRDSDBInstance+import           Network.AWS.OpsWorks.UpdateStack+import           Network.AWS.OpsWorks.UpdateUserProfile+import           Network.AWS.OpsWorks.UpdateVolume+import           Network.AWS.OpsWorks.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 'OpsWorks'.+-}++{- $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.+-}

@@ -1,112 +1,123 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.OpsWorks.AssignInstance--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Assign a registered instance to a layer.+-- Assign a registered instance to a layer. ----- You can assign registered on-premises instances to any layer type. You can--- assign registered Amazon EC2 instances only to custom layers. You cannot use--- this action with instances that were created with AWS OpsWorks.  Required--- Permissions: To use this action, an IAM user must have a Manage permissions--- level for the stack or an attached policy that explicitly grants permissions.--- For more information on user permissions, see <http://docs.aws.amazon.com/opsworks/latest/userguide/opsworks-security-users.html Managing User Permissions>.+-- -   You can assign registered on-premises instances to any layer type.+-- -   You can assign registered Amazon EC2 instances only to custom+--     layers.+-- -   You cannot use this action with instances that were created with AWS+--     OpsWorks. ----- <http://docs.aws.amazon.com/opsworks/latest/APIReference/API_AssignInstance.html>+-- __Required Permissions__: To use this action, an AWS Identity and Access+-- Management (IAM) user must have a Manage permissions level for the stack+-- or an attached policy that explicitly grants permissions. For more+-- information on user permissions, see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/opsworks-security-users.html Managing User Permissions>.+--+-- /See:/ <http://docs.aws.amazon.com/opsworks/latest/APIReference/API_AssignInstance.html AWS API Reference> for AssignInstance. module Network.AWS.OpsWorks.AssignInstance     (-    -- * Request-      AssignInstance-    -- ** Request constructor-    , assignInstance-    -- ** Request lenses+    -- * Creating a Request+      assignInstance+    , AssignInstance+    -- * Request Lenses     , aiInstanceId     , aiLayerIds -    -- * Response-    , AssignInstanceResponse-    -- ** Response constructor+    -- * Destructuring the Response     , assignInstanceResponse+    , AssignInstanceResponse     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.OpsWorks.Types-import qualified GHC.Exts+import           Network.AWS.OpsWorks.Types+import           Network.AWS.OpsWorks.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data AssignInstance = AssignInstance-    { _aiInstanceId :: Text-    , _aiLayerIds   :: List "LayerIds" Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'assignInstance' smart constructor.+data AssignInstance = AssignInstance'+    { _aiInstanceId :: !Text+    , _aiLayerIds   :: ![Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'AssignInstance' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'AssignInstance' with the minimum fields required to make a request. ----- * 'aiInstanceId' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'aiLayerIds' @::@ ['Text']+-- * 'aiInstanceId' ---assignInstance :: Text -- ^ 'aiInstanceId'-               -> AssignInstance-assignInstance p1 = AssignInstance-    { _aiInstanceId = p1-    , _aiLayerIds   = mempty+-- * 'aiLayerIds'+assignInstance+    :: Text -- ^ 'aiInstanceId'+    -> AssignInstance+assignInstance pInstanceId_ =+    AssignInstance'+    { _aiInstanceId = pInstanceId_+    , _aiLayerIds = mempty     }  -- | The instance ID. aiInstanceId :: Lens' AssignInstance Text-aiInstanceId = lens _aiInstanceId (\s a -> s { _aiInstanceId = a })+aiInstanceId = lens _aiInstanceId (\ s a -> s{_aiInstanceId = a}); --- | The layer ID, which must correspond to a custom layer. You cannot assign a--- registered instance to a built-in layer.+-- | The layer ID, which must correspond to a custom layer. You cannot assign+-- a registered instance to a built-in layer. aiLayerIds :: Lens' AssignInstance [Text]-aiLayerIds = lens _aiLayerIds (\s a -> s { _aiLayerIds = a }) . _List+aiLayerIds = lens _aiLayerIds (\ s a -> s{_aiLayerIds = a}) . _Coerce; -data AssignInstanceResponse = AssignInstanceResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest AssignInstance where+        type Sv AssignInstance = OpsWorks+        type Rs AssignInstance = AssignInstanceResponse+        request = postJSON+        response = receiveNull AssignInstanceResponse' --- | 'AssignInstanceResponse' constructor.-assignInstanceResponse :: AssignInstanceResponse-assignInstanceResponse = AssignInstanceResponse+instance ToHeaders AssignInstance where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OpsWorks_20130218.AssignInstance" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) +instance ToJSON AssignInstance where+        toJSON AssignInstance'{..}+          = object+              ["InstanceId" .= _aiInstanceId,+               "LayerIds" .= _aiLayerIds]+ instance ToPath AssignInstance where-    toPath = const "/"+        toPath = const "/"  instance ToQuery AssignInstance where-    toQuery = const mempty--instance ToHeaders AssignInstance--instance ToJSON AssignInstance where-    toJSON AssignInstance{..} = object-        [ "InstanceId" .= _aiInstanceId-        , "LayerIds"   .= _aiLayerIds-        ]+        toQuery = const mempty -instance AWSRequest AssignInstance where-    type Sv AssignInstance = OpsWorks-    type Rs AssignInstance = AssignInstanceResponse+-- | /See:/ 'assignInstanceResponse' smart constructor.+data AssignInstanceResponse =+    AssignInstanceResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic) -    request  = post "AssignInstance"-    response = nullResponse AssignInstanceResponse+-- | Creates a value of 'AssignInstanceResponse' with the minimum fields required to make a request.+--+assignInstanceResponse+    :: AssignInstanceResponse+assignInstanceResponse = AssignInstanceResponse'

@@ -1,110 +1,121 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.OpsWorks.AssignVolume--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Assigns one of the stack's registered Amazon EBS volumes to a specified--- instance. The volume must first be registered with the stack by calling 'RegisterVolume'. After you register the volume, you must call 'UpdateVolume' to specify a--- mount point before calling 'AssignVolume'. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/resources.html ResourceManagement>.+-- Assigns one of the stack\'s registered Amazon EBS volumes to a specified+-- instance. The volume must first be registered with the stack by calling+-- RegisterVolume. After you register the volume, you must call+-- UpdateVolume to specify a mount point before calling 'AssignVolume'. For+-- more information, see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/resources.html Resource Management>. ----- Required Permissions: To use this action, an IAM user must have a Manage--- permissions level for the stack, or an attached policy that explicitly grants--- permissions. For more information on user permissions, see <http://docs.aws.amazon.com/opsworks/latest/userguide/opsworks-security-users.html Managing UserPermissions>.+-- __Required Permissions__: To use this action, an IAM user must have a+-- Manage permissions level for the stack, or an attached policy that+-- explicitly grants permissions. For more information on user permissions,+-- see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/opsworks-security-users.html Managing User Permissions>. ----- <http://docs.aws.amazon.com/opsworks/latest/APIReference/API_AssignVolume.html>+-- /See:/ <http://docs.aws.amazon.com/opsworks/latest/APIReference/API_AssignVolume.html AWS API Reference> for AssignVolume. module Network.AWS.OpsWorks.AssignVolume     (-    -- * Request-      AssignVolume-    -- ** Request constructor-    , assignVolume-    -- ** Request lenses+    -- * Creating a Request+      assignVolume+    , AssignVolume+    -- * Request Lenses     , avInstanceId     , avVolumeId -    -- * Response-    , AssignVolumeResponse-    -- ** Response constructor+    -- * Destructuring the Response     , assignVolumeResponse+    , AssignVolumeResponse     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.OpsWorks.Types-import qualified GHC.Exts+import           Network.AWS.OpsWorks.Types+import           Network.AWS.OpsWorks.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data AssignVolume = AssignVolume-    { _avInstanceId :: Maybe Text-    , _avVolumeId   :: Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'assignVolume' smart constructor.+data AssignVolume = AssignVolume'+    { _avInstanceId :: !(Maybe Text)+    , _avVolumeId   :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'AssignVolume' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'AssignVolume' with the minimum fields required to make a request. ----- * 'avInstanceId' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'avVolumeId' @::@ 'Text'+-- * 'avInstanceId' ---assignVolume :: Text -- ^ 'avVolumeId'-             -> AssignVolume-assignVolume p1 = AssignVolume-    { _avVolumeId   = p1-    , _avInstanceId = Nothing+-- * 'avVolumeId'+assignVolume+    :: Text -- ^ 'avVolumeId'+    -> AssignVolume+assignVolume pVolumeId_ =+    AssignVolume'+    { _avInstanceId = Nothing+    , _avVolumeId = pVolumeId_     }  -- | The instance ID. avInstanceId :: Lens' AssignVolume (Maybe Text)-avInstanceId = lens _avInstanceId (\s a -> s { _avInstanceId = a })+avInstanceId = lens _avInstanceId (\ s a -> s{_avInstanceId = a});  -- | The volume ID. avVolumeId :: Lens' AssignVolume Text-avVolumeId = lens _avVolumeId (\s a -> s { _avVolumeId = a })+avVolumeId = lens _avVolumeId (\ s a -> s{_avVolumeId = a}); -data AssignVolumeResponse = AssignVolumeResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest AssignVolume where+        type Sv AssignVolume = OpsWorks+        type Rs AssignVolume = AssignVolumeResponse+        request = postJSON+        response = receiveNull AssignVolumeResponse' --- | 'AssignVolumeResponse' constructor.-assignVolumeResponse :: AssignVolumeResponse-assignVolumeResponse = AssignVolumeResponse+instance ToHeaders AssignVolume where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OpsWorks_20130218.AssignVolume" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) +instance ToJSON AssignVolume where+        toJSON AssignVolume'{..}+          = object+              ["InstanceId" .= _avInstanceId,+               "VolumeId" .= _avVolumeId]+ instance ToPath AssignVolume where-    toPath = const "/"+        toPath = const "/"  instance ToQuery AssignVolume where-    toQuery = const mempty--instance ToHeaders AssignVolume--instance ToJSON AssignVolume where-    toJSON AssignVolume{..} = object-        [ "VolumeId"   .= _avVolumeId-        , "InstanceId" .= _avInstanceId-        ]+        toQuery = const mempty -instance AWSRequest AssignVolume where-    type Sv AssignVolume = OpsWorks-    type Rs AssignVolume = AssignVolumeResponse+-- | /See:/ 'assignVolumeResponse' smart constructor.+data AssignVolumeResponse =+    AssignVolumeResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic) -    request  = post "AssignVolume"-    response = nullResponse AssignVolumeResponse+-- | Creates a value of 'AssignVolumeResponse' with the minimum fields required to make a request.+--+assignVolumeResponse+    :: AssignVolumeResponse+assignVolumeResponse = AssignVolumeResponse'

@@ -0,0 +1,121 @@+{-# 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.OpsWorks.AssociateElasticIP+-- Copyright   : (c) 2013-2015 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)+--+-- Associates one of the stack\'s registered Elastic IP addresses with a+-- specified instance. The address must first be registered with the stack+-- by calling RegisterElasticIp. For more information, see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/resources.html Resource Management>.+--+-- __Required Permissions__: To use this action, an IAM user must have a+-- Manage permissions level for the stack, or an attached policy that+-- explicitly grants permissions. For more information on user permissions,+-- see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/opsworks-security-users.html Managing User Permissions>.+--+-- /See:/ <http://docs.aws.amazon.com/opsworks/latest/APIReference/API_AssociateElasticIP.html AWS API Reference> for AssociateElasticIP.+module Network.AWS.OpsWorks.AssociateElasticIP+    (+    -- * Creating a Request+      associateElasticIP+    , AssociateElasticIP+    -- * Request Lenses+    , aeiInstanceId+    , aeiElasticIP++    -- * Destructuring the Response+    , associateElasticIPResponse+    , AssociateElasticIPResponse+    ) where++import           Network.AWS.OpsWorks.Types+import           Network.AWS.OpsWorks.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'associateElasticIP' smart constructor.+data AssociateElasticIP = AssociateElasticIP'+    { _aeiInstanceId :: !(Maybe Text)+    , _aeiElasticIP  :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AssociateElasticIP' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'aeiInstanceId'+--+-- * 'aeiElasticIP'+associateElasticIP+    :: Text -- ^ 'aeiElasticIP'+    -> AssociateElasticIP+associateElasticIP pElasticIP_ =+    AssociateElasticIP'+    { _aeiInstanceId = Nothing+    , _aeiElasticIP = pElasticIP_+    }++-- | The instance ID.+aeiInstanceId :: Lens' AssociateElasticIP (Maybe Text)+aeiInstanceId = lens _aeiInstanceId (\ s a -> s{_aeiInstanceId = a});++-- | The Elastic IP address.+aeiElasticIP :: Lens' AssociateElasticIP Text+aeiElasticIP = lens _aeiElasticIP (\ s a -> s{_aeiElasticIP = a});++instance AWSRequest AssociateElasticIP where+        type Sv AssociateElasticIP = OpsWorks+        type Rs AssociateElasticIP =+             AssociateElasticIPResponse+        request = postJSON+        response = receiveNull AssociateElasticIPResponse'++instance ToHeaders AssociateElasticIP where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OpsWorks_20130218.AssociateElasticIp" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON AssociateElasticIP where+        toJSON AssociateElasticIP'{..}+          = object+              ["InstanceId" .= _aeiInstanceId,+               "ElasticIp" .= _aeiElasticIP]++instance ToPath AssociateElasticIP where+        toPath = const "/"++instance ToQuery AssociateElasticIP where+        toQuery = const mempty++-- | /See:/ 'associateElasticIPResponse' smart constructor.+data AssociateElasticIPResponse =+    AssociateElasticIPResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AssociateElasticIPResponse' with the minimum fields required to make a request.+--+associateElasticIPResponse+    :: AssociateElasticIPResponse+associateElasticIPResponse = AssociateElasticIPResponse'

@@ -1,110 +0,0 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- Module      : Network.AWS.OpsWorks.AssociateElasticIp--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental--- Portability : non-portable (GHC extensions)------ Derived from AWS service descriptions, licensed under Apache 2.0.---- | Associates one of the stack's registered Elastic IP addresses with a--- specified instance. The address must first be registered with the stack by--- calling 'RegisterElasticIp'. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/resources.html Resource Management>.------ Required Permissions: To use this action, an IAM user must have a Manage--- permissions level for the stack, or an attached policy that explicitly grants--- permissions. For more information on user permissions, see <http://docs.aws.amazon.com/opsworks/latest/userguide/opsworks-security-users.html Managing UserPermissions>.------ <http://docs.aws.amazon.com/opsworks/latest/APIReference/API_AssociateElasticIp.html>-module Network.AWS.OpsWorks.AssociateElasticIp-    (-    -- * Request-      AssociateElasticIp-    -- ** Request constructor-    , associateElasticIp-    -- ** Request lenses-    , aeiElasticIp-    , aeiInstanceId--    -- * Response-    , AssociateElasticIpResponse-    -- ** Response constructor-    , associateElasticIpResponse-    ) where--import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.OpsWorks.Types-import qualified GHC.Exts--data AssociateElasticIp = AssociateElasticIp-    { _aeiElasticIp  :: Text-    , _aeiInstanceId :: Maybe Text-    } deriving (Eq, Ord, Read, Show)---- | 'AssociateElasticIp' constructor.------ The fields accessible through corresponding lenses are:------ * 'aeiElasticIp' @::@ 'Text'------ * 'aeiInstanceId' @::@ 'Maybe' 'Text'----associateElasticIp :: Text -- ^ 'aeiElasticIp'-                   -> AssociateElasticIp-associateElasticIp p1 = AssociateElasticIp-    { _aeiElasticIp  = p1-    , _aeiInstanceId = Nothing-    }---- | The Elastic IP address.-aeiElasticIp :: Lens' AssociateElasticIp Text-aeiElasticIp = lens _aeiElasticIp (\s a -> s { _aeiElasticIp = a })---- | The instance ID.-aeiInstanceId :: Lens' AssociateElasticIp (Maybe Text)-aeiInstanceId = lens _aeiInstanceId (\s a -> s { _aeiInstanceId = a })--data AssociateElasticIpResponse = AssociateElasticIpResponse-    deriving (Eq, Ord, Read, Show, Generic)---- | 'AssociateElasticIpResponse' constructor.-associateElasticIpResponse :: AssociateElasticIpResponse-associateElasticIpResponse = AssociateElasticIpResponse--instance ToPath AssociateElasticIp where-    toPath = const "/"--instance ToQuery AssociateElasticIp where-    toQuery = const mempty--instance ToHeaders AssociateElasticIp--instance ToJSON AssociateElasticIp where-    toJSON AssociateElasticIp{..} = object-        [ "ElasticIp"  .= _aeiElasticIp-        , "InstanceId" .= _aeiInstanceId-        ]--instance AWSRequest AssociateElasticIp where-    type Sv AssociateElasticIp = OpsWorks-    type Rs AssociateElasticIp = AssociateElasticIpResponse--    request  = post "AssociateElasticIp"-    response = nullResponse AssociateElasticIpResponse

@@ -1,116 +1,129 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.OpsWorks.AttachElasticLoadBalancer--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Attaches an Elastic Load Balancing load balancer to a specified layer. For--- more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/load-balancer-elb.html Elastic Load Balancing>.+-- Attaches an Elastic Load Balancing load balancer to a specified layer.+-- For more information, see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/load-balancer-elb.html Elastic Load Balancing>. -- -- You must create the Elastic Load Balancing instance separately, by using--- the Elastic Load Balancing console, API, or CLI. For more information, see <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/Welcome.html Elastic Load Balancing Developer Guide>.+-- the Elastic Load Balancing console, API, or CLI. For more information,+-- see+-- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/Welcome.html Elastic Load Balancing Developer Guide>. ----- Required Permissions: To use this action, an IAM user must have a Manage--- permissions level for the stack, or an attached policy that explicitly grants--- permissions. For more information on user permissions, see <http://docs.aws.amazon.com/opsworks/latest/userguide/opsworks-security-users.html Managing UserPermissions>.+-- __Required Permissions__: To use this action, an IAM user must have a+-- Manage permissions level for the stack, or an attached policy that+-- explicitly grants permissions. For more information on user permissions,+-- see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/opsworks-security-users.html Managing User Permissions>. ----- <http://docs.aws.amazon.com/opsworks/latest/APIReference/API_AttachElasticLoadBalancer.html>+-- /See:/ <http://docs.aws.amazon.com/opsworks/latest/APIReference/API_AttachElasticLoadBalancer.html AWS API Reference> for AttachElasticLoadBalancer. module Network.AWS.OpsWorks.AttachElasticLoadBalancer     (-    -- * Request-      AttachElasticLoadBalancer-    -- ** Request constructor-    , attachElasticLoadBalancer-    -- ** Request lenses+    -- * Creating a Request+      attachElasticLoadBalancer+    , AttachElasticLoadBalancer+    -- * Request Lenses     , aelbElasticLoadBalancerName     , aelbLayerId -    -- * Response-    , AttachElasticLoadBalancerResponse-    -- ** Response constructor+    -- * Destructuring the Response     , attachElasticLoadBalancerResponse+    , AttachElasticLoadBalancerResponse     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.OpsWorks.Types-import qualified GHC.Exts+import           Network.AWS.OpsWorks.Types+import           Network.AWS.OpsWorks.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data AttachElasticLoadBalancer = AttachElasticLoadBalancer-    { _aelbElasticLoadBalancerName :: Text-    , _aelbLayerId                 :: Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'attachElasticLoadBalancer' smart constructor.+data AttachElasticLoadBalancer = AttachElasticLoadBalancer'+    { _aelbElasticLoadBalancerName :: !Text+    , _aelbLayerId                 :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'AttachElasticLoadBalancer' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'AttachElasticLoadBalancer' with the minimum fields required to make a request. ----- * 'aelbElasticLoadBalancerName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'aelbLayerId' @::@ 'Text'+-- * 'aelbElasticLoadBalancerName' ---attachElasticLoadBalancer :: Text -- ^ 'aelbElasticLoadBalancerName'-                          -> Text -- ^ 'aelbLayerId'-                          -> AttachElasticLoadBalancer-attachElasticLoadBalancer p1 p2 = AttachElasticLoadBalancer-    { _aelbElasticLoadBalancerName = p1-    , _aelbLayerId                 = p2+-- * 'aelbLayerId'+attachElasticLoadBalancer+    :: Text -- ^ 'aelbElasticLoadBalancerName'+    -> Text -- ^ 'aelbLayerId'+    -> AttachElasticLoadBalancer+attachElasticLoadBalancer pElasticLoadBalancerName_ pLayerId_ =+    AttachElasticLoadBalancer'+    { _aelbElasticLoadBalancerName = pElasticLoadBalancerName_+    , _aelbLayerId = pLayerId_     } --- | The Elastic Load Balancing instance's name.+-- | The Elastic Load Balancing instance\'s name. aelbElasticLoadBalancerName :: Lens' AttachElasticLoadBalancer Text-aelbElasticLoadBalancerName =-    lens _aelbElasticLoadBalancerName-        (\s a -> s { _aelbElasticLoadBalancerName = a })+aelbElasticLoadBalancerName = lens _aelbElasticLoadBalancerName (\ s a -> s{_aelbElasticLoadBalancerName = a});  -- | The ID of the layer that the Elastic Load Balancing instance is to be -- attached to. aelbLayerId :: Lens' AttachElasticLoadBalancer Text-aelbLayerId = lens _aelbLayerId (\s a -> s { _aelbLayerId = a })+aelbLayerId = lens _aelbLayerId (\ s a -> s{_aelbLayerId = a}); -data AttachElasticLoadBalancerResponse = AttachElasticLoadBalancerResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest AttachElasticLoadBalancer where+        type Sv AttachElasticLoadBalancer = OpsWorks+        type Rs AttachElasticLoadBalancer =+             AttachElasticLoadBalancerResponse+        request = postJSON+        response+          = receiveNull AttachElasticLoadBalancerResponse' --- | 'AttachElasticLoadBalancerResponse' constructor.-attachElasticLoadBalancerResponse :: AttachElasticLoadBalancerResponse-attachElasticLoadBalancerResponse = AttachElasticLoadBalancerResponse+instance ToHeaders AttachElasticLoadBalancer where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OpsWorks_20130218.AttachElasticLoadBalancer" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) +instance ToJSON AttachElasticLoadBalancer where+        toJSON AttachElasticLoadBalancer'{..}+          = object+              ["ElasticLoadBalancerName" .=+                 _aelbElasticLoadBalancerName,+               "LayerId" .= _aelbLayerId]+ instance ToPath AttachElasticLoadBalancer where-    toPath = const "/"+        toPath = const "/"  instance ToQuery AttachElasticLoadBalancer where-    toQuery = const mempty--instance ToHeaders AttachElasticLoadBalancer--instance ToJSON AttachElasticLoadBalancer where-    toJSON AttachElasticLoadBalancer{..} = object-        [ "ElasticLoadBalancerName" .= _aelbElasticLoadBalancerName-        , "LayerId"                 .= _aelbLayerId-        ]+        toQuery = const mempty -instance AWSRequest AttachElasticLoadBalancer where-    type Sv AttachElasticLoadBalancer = OpsWorks-    type Rs AttachElasticLoadBalancer = AttachElasticLoadBalancerResponse+-- | /See:/ 'attachElasticLoadBalancerResponse' smart constructor.+data AttachElasticLoadBalancerResponse =+    AttachElasticLoadBalancerResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic) -    request  = post "AttachElasticLoadBalancer"-    response = nullResponse AttachElasticLoadBalancerResponse+-- | Creates a value of 'AttachElasticLoadBalancerResponse' with the minimum fields required to make a request.+--+attachElasticLoadBalancerResponse+    :: AttachElasticLoadBalancerResponse+attachElasticLoadBalancerResponse = AttachElasticLoadBalancerResponse'

@@ -1,409 +1,498 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.OpsWorks.CloneStack--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Creates a clone of a specified stack. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workingstacks-cloning.html Clone a Stack>.+-- Creates a clone of a specified stack. For more information, see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/workingstacks-cloning.html Clone a Stack>.+-- By default, all parameters are set to the values used by the parent+-- stack. ----- Required Permissions: To use this action, an IAM user must have an attached--- policy that explicitly grants permissions. For more information on user--- permissions, see <http://docs.aws.amazon.com/opsworks/latest/userguide/opsworks-security-users.html Managing User Permissions>.+-- __Required Permissions__: To use this action, an IAM user must have an+-- attached policy that explicitly grants permissions. For more information+-- on user permissions, see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/opsworks-security-users.html Managing User Permissions>. ----- <http://docs.aws.amazon.com/opsworks/latest/APIReference/API_CloneStack.html>+-- /See:/ <http://docs.aws.amazon.com/opsworks/latest/APIReference/API_CloneStack.html AWS API Reference> for CloneStack. module Network.AWS.OpsWorks.CloneStack     (-    -- * Request-      CloneStack-    -- ** Request constructor-    , cloneStack-    -- ** Request lenses-    , cs1Attributes-    , cs1ChefConfiguration-    , cs1CloneAppIds-    , cs1ClonePermissions-    , cs1ConfigurationManager-    , cs1CustomCookbooksSource-    , cs1CustomJson-    , cs1DefaultAvailabilityZone-    , cs1DefaultInstanceProfileArn-    , cs1DefaultOs-    , cs1DefaultRootDeviceType-    , cs1DefaultSshKeyName-    , cs1DefaultSubnetId-    , cs1HostnameTheme-    , cs1Name-    , cs1Region-    , cs1ServiceRoleArn-    , cs1SourceStackId-    , cs1UseCustomCookbooks-    , cs1UseOpsworksSecurityGroups-    , cs1VpcId+    -- * Creating a Request+      cloneStack+    , CloneStack+    -- * Request Lenses+    , cCloneAppIds+    , cDefaultInstanceProfileARN+    , cDefaultRootDeviceType+    , cChefConfiguration+    , cVPCId+    , cAgentVersion+    , cDefaultSSHKeyName+    , cCustomJSON+    , cClonePermissions+    , cCustomCookbooksSource+    , cDefaultAvailabilityZone+    , cName+    , cUseOpsworksSecurityGroups+    , cDefaultOS+    , cAttributes+    , cUseCustomCookbooks+    , cDefaultSubnetId+    , cRegion+    , cConfigurationManager+    , cHostnameTheme+    , cSourceStackId+    , cServiceRoleARN -    -- * Response-    , CloneStackResponse-    -- ** Response constructor+    -- * Destructuring the Response     , cloneStackResponse-    -- ** Response lenses-    , csrStackId+    , CloneStackResponse+    -- * Response Lenses+    , csrsStackId+    , csrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.OpsWorks.Types-import qualified GHC.Exts+import           Network.AWS.OpsWorks.Types+import           Network.AWS.OpsWorks.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data CloneStack = CloneStack-    { _cs1Attributes                :: Map StackAttributesKeys Text-    , _cs1ChefConfiguration         :: Maybe ChefConfiguration-    , _cs1CloneAppIds               :: List "CloneAppIds" Text-    , _cs1ClonePermissions          :: Maybe Bool-    , _cs1ConfigurationManager      :: Maybe StackConfigurationManager-    , _cs1CustomCookbooksSource     :: Maybe Source-    , _cs1CustomJson                :: Maybe Text-    , _cs1DefaultAvailabilityZone   :: Maybe Text-    , _cs1DefaultInstanceProfileArn :: Maybe Text-    , _cs1DefaultOs                 :: Maybe Text-    , _cs1DefaultRootDeviceType     :: Maybe RootDeviceType-    , _cs1DefaultSshKeyName         :: Maybe Text-    , _cs1DefaultSubnetId           :: Maybe Text-    , _cs1HostnameTheme             :: Maybe Text-    , _cs1Name                      :: Maybe Text-    , _cs1Region                    :: Maybe Text-    , _cs1ServiceRoleArn            :: Text-    , _cs1SourceStackId             :: Text-    , _cs1UseCustomCookbooks        :: Maybe Bool-    , _cs1UseOpsworksSecurityGroups :: Maybe Bool-    , _cs1VpcId                     :: Maybe Text-    } deriving (Eq, Read, Show)+-- | /See:/ 'cloneStack' smart constructor.+data CloneStack = CloneStack'+    { _cCloneAppIds               :: !(Maybe [Text])+    , _cDefaultInstanceProfileARN :: !(Maybe Text)+    , _cDefaultRootDeviceType     :: !(Maybe RootDeviceType)+    , _cChefConfiguration         :: !(Maybe ChefConfiguration)+    , _cVPCId                     :: !(Maybe Text)+    , _cAgentVersion              :: !(Maybe Text)+    , _cDefaultSSHKeyName         :: !(Maybe Text)+    , _cCustomJSON                :: !(Maybe Text)+    , _cClonePermissions          :: !(Maybe Bool)+    , _cCustomCookbooksSource     :: !(Maybe Source)+    , _cDefaultAvailabilityZone   :: !(Maybe Text)+    , _cName                      :: !(Maybe Text)+    , _cUseOpsworksSecurityGroups :: !(Maybe Bool)+    , _cDefaultOS                 :: !(Maybe Text)+    , _cAttributes                :: !(Maybe (Map StackAttributesKeys Text))+    , _cUseCustomCookbooks        :: !(Maybe Bool)+    , _cDefaultSubnetId           :: !(Maybe Text)+    , _cRegion                    :: !(Maybe Text)+    , _cConfigurationManager      :: !(Maybe StackConfigurationManager)+    , _cHostnameTheme             :: !(Maybe Text)+    , _cSourceStackId             :: !Text+    , _cServiceRoleARN            :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'CloneStack' constructor.+-- | Creates a value of 'CloneStack' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'cs1Attributes' @::@ 'HashMap' 'StackAttributesKeys' 'Text'+-- * 'cCloneAppIds' ----- * 'cs1ChefConfiguration' @::@ 'Maybe' 'ChefConfiguration'+-- * 'cDefaultInstanceProfileARN' ----- * 'cs1CloneAppIds' @::@ ['Text']+-- * 'cDefaultRootDeviceType' ----- * 'cs1ClonePermissions' @::@ 'Maybe' 'Bool'+-- * 'cChefConfiguration' ----- * 'cs1ConfigurationManager' @::@ 'Maybe' 'StackConfigurationManager'+-- * 'cVPCId' ----- * 'cs1CustomCookbooksSource' @::@ 'Maybe' 'Source'+-- * 'cAgentVersion' ----- * 'cs1CustomJson' @::@ 'Maybe' 'Text'+-- * 'cDefaultSSHKeyName' ----- * 'cs1DefaultAvailabilityZone' @::@ 'Maybe' 'Text'+-- * 'cCustomJSON' ----- * 'cs1DefaultInstanceProfileArn' @::@ 'Maybe' 'Text'+-- * 'cClonePermissions' ----- * 'cs1DefaultOs' @::@ 'Maybe' 'Text'+-- * 'cCustomCookbooksSource' ----- * 'cs1DefaultRootDeviceType' @::@ 'Maybe' 'RootDeviceType'+-- * 'cDefaultAvailabilityZone' ----- * 'cs1DefaultSshKeyName' @::@ 'Maybe' 'Text'+-- * 'cName' ----- * 'cs1DefaultSubnetId' @::@ 'Maybe' 'Text'+-- * 'cUseOpsworksSecurityGroups' ----- * 'cs1HostnameTheme' @::@ 'Maybe' 'Text'+-- * 'cDefaultOS' ----- * 'cs1Name' @::@ 'Maybe' 'Text'+-- * 'cAttributes' ----- * 'cs1Region' @::@ 'Maybe' 'Text'+-- * 'cUseCustomCookbooks' ----- * 'cs1ServiceRoleArn' @::@ 'Text'+-- * 'cDefaultSubnetId' ----- * 'cs1SourceStackId' @::@ 'Text'+-- * 'cRegion' ----- * 'cs1UseCustomCookbooks' @::@ 'Maybe' 'Bool'+-- * 'cConfigurationManager' ----- * 'cs1UseOpsworksSecurityGroups' @::@ 'Maybe' 'Bool'+-- * 'cHostnameTheme' ----- * 'cs1VpcId' @::@ 'Maybe' 'Text'+-- * 'cSourceStackId' ---cloneStack :: Text -- ^ 'cs1SourceStackId'-           -> Text -- ^ 'cs1ServiceRoleArn'-           -> CloneStack-cloneStack p1 p2 = CloneStack-    { _cs1SourceStackId             = p1-    , _cs1ServiceRoleArn            = p2-    , _cs1Name                      = Nothing-    , _cs1Region                    = Nothing-    , _cs1VpcId                     = Nothing-    , _cs1Attributes                = mempty-    , _cs1DefaultInstanceProfileArn = Nothing-    , _cs1DefaultOs                 = Nothing-    , _cs1HostnameTheme             = Nothing-    , _cs1DefaultAvailabilityZone   = Nothing-    , _cs1DefaultSubnetId           = Nothing-    , _cs1CustomJson                = Nothing-    , _cs1ConfigurationManager      = Nothing-    , _cs1ChefConfiguration         = Nothing-    , _cs1UseCustomCookbooks        = Nothing-    , _cs1UseOpsworksSecurityGroups = Nothing-    , _cs1CustomCookbooksSource     = Nothing-    , _cs1DefaultSshKeyName         = Nothing-    , _cs1ClonePermissions          = Nothing-    , _cs1CloneAppIds               = mempty-    , _cs1DefaultRootDeviceType     = Nothing+-- * 'cServiceRoleARN'+cloneStack+    :: Text -- ^ 'cSourceStackId'+    -> Text -- ^ 'cServiceRoleARN'+    -> CloneStack+cloneStack pSourceStackId_ pServiceRoleARN_ =+    CloneStack'+    { _cCloneAppIds = Nothing+    , _cDefaultInstanceProfileARN = Nothing+    , _cDefaultRootDeviceType = Nothing+    , _cChefConfiguration = Nothing+    , _cVPCId = Nothing+    , _cAgentVersion = Nothing+    , _cDefaultSSHKeyName = Nothing+    , _cCustomJSON = Nothing+    , _cClonePermissions = Nothing+    , _cCustomCookbooksSource = Nothing+    , _cDefaultAvailabilityZone = Nothing+    , _cName = Nothing+    , _cUseOpsworksSecurityGroups = Nothing+    , _cDefaultOS = Nothing+    , _cAttributes = Nothing+    , _cUseCustomCookbooks = Nothing+    , _cDefaultSubnetId = Nothing+    , _cRegion = Nothing+    , _cConfigurationManager = Nothing+    , _cHostnameTheme = Nothing+    , _cSourceStackId = pSourceStackId_+    , _cServiceRoleARN = pServiceRoleARN_     } --- | A list of stack attributes and values as key/value pairs to be added to the--- cloned stack.-cs1Attributes :: Lens' CloneStack (HashMap StackAttributesKeys Text)-cs1Attributes = lens _cs1Attributes (\s a -> s { _cs1Attributes = a }) . _Map---- | A 'ChefConfiguration' object that specifies whether to enable Berkshelf and the--- Berkshelf version on Chef 11.10 stacks. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workingstacks-creating.html Create aNew Stack>.-cs1ChefConfiguration :: Lens' CloneStack (Maybe ChefConfiguration)-cs1ChefConfiguration =-    lens _cs1ChefConfiguration (\s a -> s { _cs1ChefConfiguration = a })- -- | A list of source stack app IDs to be included in the cloned stack.-cs1CloneAppIds :: Lens' CloneStack [Text]-cs1CloneAppIds = lens _cs1CloneAppIds (\s a -> s { _cs1CloneAppIds = a }) . _List+cCloneAppIds :: Lens' CloneStack [Text]+cCloneAppIds = lens _cCloneAppIds (\ s a -> s{_cCloneAppIds = a}) . _Default . _Coerce; --- | Whether to clone the source stack's permissions.-cs1ClonePermissions :: Lens' CloneStack (Maybe Bool)-cs1ClonePermissions =-    lens _cs1ClonePermissions (\s a -> s { _cs1ClonePermissions = a })+-- | The Amazon Resource Name (ARN) of an IAM profile that is the default+-- profile for all of the stack\'s EC2 instances. For more information+-- about IAM ARNs, see+-- <http://docs.aws.amazon.com/IAM/latest/UserGuide/Using_Identifiers.html Using Identifiers>.+cDefaultInstanceProfileARN :: Lens' CloneStack (Maybe Text)+cDefaultInstanceProfileARN = lens _cDefaultInstanceProfileARN (\ s a -> s{_cDefaultInstanceProfileARN = a}); --- | The configuration manager. When you clone a stack we recommend that you use--- the configuration manager to specify the Chef version, 0.9, 11.4, or 11.10.--- The default value is currently 11.4.-cs1ConfigurationManager :: Lens' CloneStack (Maybe StackConfigurationManager)-cs1ConfigurationManager =-    lens _cs1ConfigurationManager (\s a -> s { _cs1ConfigurationManager = a })+-- | The default root device type. This value is used by default for all+-- instances in the cloned stack, but you can override it when you create+-- an instance. For more information, see+-- <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ComponentsAMIs.html#storage-for-the-root-device Storage for the Root Device>.+cDefaultRootDeviceType :: Lens' CloneStack (Maybe RootDeviceType)+cDefaultRootDeviceType = lens _cDefaultRootDeviceType (\ s a -> s{_cDefaultRootDeviceType = a}); -cs1CustomCookbooksSource :: Lens' CloneStack (Maybe Source)-cs1CustomCookbooksSource =-    lens _cs1CustomCookbooksSource-        (\s a -> s { _cs1CustomCookbooksSource = a })+-- | A 'ChefConfiguration' object that specifies whether to enable Berkshelf+-- and the Berkshelf version on Chef 11.10 stacks. For more information,+-- see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/workingstacks-creating.html Create a New Stack>.+cChefConfiguration :: Lens' CloneStack (Maybe ChefConfiguration)+cChefConfiguration = lens _cChefConfiguration (\ s a -> s{_cChefConfiguration = a}); --- | A string that contains user-defined, custom JSON. It is used to override the--- corresponding default stack configuration JSON values. The string should be--- in the following format and must escape characters such as '"'.:+-- | The ID of the VPC that the cloned stack is to be launched into. It must+-- be in the specified region. All instances are launched into this VPC,+-- and you cannot change the ID later. ----- '"{\"key1\": \"value1\", \"key2\": \"value2\",...}"'+-- -   If your account supports EC2 Classic, the default value is no VPC.+-- -   If your account does not support EC2 Classic, the default value is+--     the default VPC for the specified region. ----- For more information on custom JSON, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workingstacks-json.html Use Custom JSON to Modify the StackConfiguration Attributes>-cs1CustomJson :: Lens' CloneStack (Maybe Text)-cs1CustomJson = lens _cs1CustomJson (\s a -> s { _cs1CustomJson = a })+-- If the VPC ID corresponds to a default VPC and you have specified either+-- the 'DefaultAvailabilityZone' or the 'DefaultSubnetId' parameter only,+-- AWS OpsWorks infers the value of the other parameter. If you specify+-- neither parameter, AWS OpsWorks sets these parameters to the first valid+-- Availability Zone for the specified region and the corresponding default+-- VPC subnet ID, respectively.+--+-- If you specify a nondefault VPC ID, note the following:+--+-- -   It must belong to a VPC in your account that is in the specified+--     region.+-- -   You must specify a value for 'DefaultSubnetId'.+--+-- For more information on how to use AWS OpsWorks with a VPC, see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/workingstacks-vpc.html Running a Stack in a VPC>.+-- For more information on default VPC and EC2 Classic, see+-- <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ec2-supported-platforms.html Supported Platforms>.+cVPCId :: Lens' CloneStack (Maybe Text)+cVPCId = lens _cVPCId (\ s a -> s{_cVPCId = a}); --- | The cloned stack's default Availability Zone, which must be in the specified--- region. For more information, see <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints>. If you also specify--- a value for 'DefaultSubnetId', the subnet must be in the same zone. For more--- information, see the 'VpcId' parameter description.-cs1DefaultAvailabilityZone :: Lens' CloneStack (Maybe Text)-cs1DefaultAvailabilityZone =-    lens _cs1DefaultAvailabilityZone-        (\s a -> s { _cs1DefaultAvailabilityZone = a })+-- | The default AWS OpsWorks agent version. You have the following options:+--+-- -   Auto-update - Set this parameter to 'LATEST'. AWS OpsWorks+--     automatically installs new agent versions on the stack\'s instances+--     as soon as they are available.+-- -   Fixed version - Set this parameter to your preferred agent version.+--     To update the agent version, you must edit the stack configuration+--     and specify a new version. AWS OpsWorks then automatically installs+--     that version on the stack\'s instances.+--+-- The default setting is 'LATEST'. To specify an agent version, you must+-- use the complete version number, not the abbreviated number shown on the+-- console. For a list of available agent version numbers, call+-- DescribeAgentVersions.+--+-- You can also specify an agent version when you create or update an+-- instance, which overrides the stack\'s default setting.+cAgentVersion :: Lens' CloneStack (Maybe Text)+cAgentVersion = lens _cAgentVersion (\ s a -> s{_cAgentVersion = a}); --- | The ARN of an IAM profile that is the default profile for all of the stack's--- EC2 instances. For more information about IAM ARNs, see <http://docs.aws.amazon.com/IAM/latest/UserGuide/Using_Identifiers.html Using Identifiers>.-cs1DefaultInstanceProfileArn :: Lens' CloneStack (Maybe Text)-cs1DefaultInstanceProfileArn =-    lens _cs1DefaultInstanceProfileArn-        (\s a -> s { _cs1DefaultInstanceProfileArn = a })+-- | A default Amazon EC2 key pair name. The default value is none. If you+-- specify a key pair name, AWS OpsWorks installs the public key on the+-- instance and you can use the private key with an SSH client to log in to+-- the instance. For more information, see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-ssh.html Using SSH to Communicate with an Instance>+-- and+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/security-ssh-access.html Managing SSH Access>.+-- You can override this setting by specifying a different key pair, or no+-- key pair, when you+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-add.html create an instance>.+cDefaultSSHKeyName :: Lens' CloneStack (Maybe Text)+cDefaultSSHKeyName = lens _cDefaultSSHKeyName (\ s a -> s{_cDefaultSSHKeyName = a}); --- | The stack's operating system, which must be set to one of the following.+-- | A string that contains user-defined, custom JSON. It is used to override+-- the corresponding default stack configuration JSON values. The string+-- should be in the following format and must escape characters such as+-- \'\"\': ----- Standard Linux operating systems: an Amazon Linux version such as 'AmazonLinux 2014.09', 'Ubuntu 12.04 LTS', or 'Ubuntu 14.04 LTS'. Custom Linux AMIs: 'Custom'. You specify the custom AMI you want to use when you create instances. Microsoft Windows Server 2012 R2.--- The default option is the current Amazon Linux version.-cs1DefaultOs :: Lens' CloneStack (Maybe Text)-cs1DefaultOs = lens _cs1DefaultOs (\s a -> s { _cs1DefaultOs = a })---- | The default root device type. This value is used by default for all instances--- in the cloned stack, but you can override it when you create an instance. For--- more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ComponentsAMIs.html#storage-for-the-root-device Storage for the Root Device>.-cs1DefaultRootDeviceType :: Lens' CloneStack (Maybe RootDeviceType)-cs1DefaultRootDeviceType =-    lens _cs1DefaultRootDeviceType-        (\s a -> s { _cs1DefaultRootDeviceType = a })+-- '\"{\\\"key1\\\": \\\"value1\\\", \\\"key2\\\": \\\"value2\\\",...}\"'+--+-- For more information on custom JSON, see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/workingstacks-json.html Use Custom JSON to Modify the Stack Configuration Attributes>+cCustomJSON :: Lens' CloneStack (Maybe Text)+cCustomJSON = lens _cCustomJSON (\ s a -> s{_cCustomJSON = a}); --- | A default Amazon EC2 key pair name. The default value is none. If you specify--- a key pair name, AWS OpsWorks installs the public key on the instance and you--- can use the private key with an SSH client to log in to the instance. For--- more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-ssh.html  Using SSH to Communicate with an Instance> and <http://docs.aws.amazon.com/opsworks/latest/userguide/security-ssh-access.html Managing SSH Access>. You can override this setting by specifying a different--- key pair, or no key pair, when you <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-add.html  create an instance>.-cs1DefaultSshKeyName :: Lens' CloneStack (Maybe Text)-cs1DefaultSshKeyName =-    lens _cs1DefaultSshKeyName (\s a -> s { _cs1DefaultSshKeyName = a })+-- | Whether to clone the source stack\'s permissions.+cClonePermissions :: Lens' CloneStack (Maybe Bool)+cClonePermissions = lens _cClonePermissions (\ s a -> s{_cClonePermissions = a}); --- | The stack's default VPC subnet ID. This parameter is required if you specify--- a value for the 'VpcId' parameter. All instances are launched into this subnet--- unless you specify otherwise when you create the instance. If you also--- specify a value for 'DefaultAvailabilityZone', the subnet must be in that zone.--- For information on default values and when this parameter is required, see--- the 'VpcId' parameter description.-cs1DefaultSubnetId :: Lens' CloneStack (Maybe Text)-cs1DefaultSubnetId =-    lens _cs1DefaultSubnetId (\s a -> s { _cs1DefaultSubnetId = a })+-- | Undocumented member.+cCustomCookbooksSource :: Lens' CloneStack (Maybe Source)+cCustomCookbooksSource = lens _cCustomCookbooksSource (\ s a -> s{_cCustomCookbooksSource = a}); --- | The stack's host name theme, with spaces are replaced by underscores. The--- theme is used to generate host names for the stack's instances. By default, 'HostnameTheme' is set to 'Layer_Dependent', which creates host names by appending integers to--- the layer's short name. The other themes are:------ 'Baked_Goods'   'Clouds'   'Europe_Cities'   'Fruits'   'Greek_Deities'   'Legendary_creatures_from_Japan'   'Planets_and_Moons'   'Roman_Deities'   'Scottish_Islands'   'US_Cities'   'Wild_Cats'   To obtain a generated host name, call 'GetHostNameSuggestion', which returns--- a host name based on the current theme.-cs1HostnameTheme :: Lens' CloneStack (Maybe Text)-cs1HostnameTheme = lens _cs1HostnameTheme (\s a -> s { _cs1HostnameTheme = a })+-- | The cloned stack\'s default Availability Zone, which must be in the+-- specified region. For more information, see+-- <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints>.+-- If you also specify a value for 'DefaultSubnetId', the subnet must be in+-- the same zone. For more information, see the 'VpcId' parameter+-- description.+cDefaultAvailabilityZone :: Lens' CloneStack (Maybe Text)+cDefaultAvailabilityZone = lens _cDefaultAvailabilityZone (\ s a -> s{_cDefaultAvailabilityZone = a});  -- | The cloned stack name.-cs1Name :: Lens' CloneStack (Maybe Text)-cs1Name = lens _cs1Name (\s a -> s { _cs1Name = a })+cName :: Lens' CloneStack (Maybe Text)+cName = lens _cName (\ s a -> s{_cName = a}); --- | The cloned stack AWS region, such as "us-east-1". For more information about--- AWS regions, see <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints>.-cs1Region :: Lens' CloneStack (Maybe Text)-cs1Region = lens _cs1Region (\s a -> s { _cs1Region = a })+-- | Whether to associate the AWS OpsWorks built-in security groups with the+-- stack\'s layers.+--+-- AWS OpsWorks provides a standard set of built-in security groups, one+-- for each layer, which are associated with layers by default. With+-- 'UseOpsworksSecurityGroups' you can instead provide your own custom+-- security groups. 'UseOpsworksSecurityGroups' has the following settings:+--+-- -   True - AWS OpsWorks automatically associates the appropriate+--     built-in security group with each layer (default setting). You can+--     associate additional security groups with a layer after you create+--     it but you cannot delete the built-in security group.+-- -   False - AWS OpsWorks does not associate built-in security groups+--     with layers. You must create appropriate Amazon Elastic Compute+--     Cloud (Amazon EC2) security groups and associate a security group+--     with each layer that you create. However, you can still manually+--     associate a built-in security group with a layer on creation; custom+--     security groups are required only for those layers that need custom+--     settings.+--+-- For more information, see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/workingstacks-creating.html Create a New Stack>.+cUseOpsworksSecurityGroups :: Lens' CloneStack (Maybe Bool)+cUseOpsworksSecurityGroups = lens _cUseOpsworksSecurityGroups (\ s a -> s{_cUseOpsworksSecurityGroups = a}); --- | The stack AWS Identity and Access Management (IAM) role, which allows AWS--- OpsWorks to work with AWS resources on your behalf. You must set this--- parameter to the Amazon Resource Name (ARN) for an existing IAM role. If you--- create a stack by using the AWS OpsWorks console, it creates the role for--- you. You can obtain an existing stack's IAM ARN programmatically by calling 'DescribePermissions'. For more information about IAM ARNs, see <http://docs.aws.amazon.com/IAM/latest/UserGuide/Using_Identifiers.html Using Identifiers>.+-- | The stack\'s operating system, which must be set to one of the+-- following. ----- You must set this parameter to a valid service role ARN or the action will--- fail; there is no default value. You can specify the source stack's service--- role ARN, if you prefer, but you must do so explicitly.+-- -   A supported Linux operating system: An Amazon Linux version, such as+--     'Amazon Linux 2015.03', 'Red Hat Enterprise Linux 7',+--     'Ubuntu 12.04 LTS', or 'Ubuntu 14.04 LTS'.+-- -   'Microsoft Windows Server 2012 R2 Base'.+-- -   A custom AMI: 'Custom'. You specify the custom AMI you want to use+--     when you create instances. For more information on how to use custom+--     AMIs with OpsWorks, see+--     <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-custom-ami.html Using Custom AMIs>. --+-- The default option is the parent stack\'s operating system. For more+-- information on the supported operating systems, see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-os.html AWS OpsWorks Operating Systems>. ---cs1ServiceRoleArn :: Lens' CloneStack Text-cs1ServiceRoleArn =-    lens _cs1ServiceRoleArn (\s a -> s { _cs1ServiceRoleArn = a })+-- You can specify a different Linux operating system for the cloned stack,+-- but you cannot change from Linux to Windows or Windows to Linux.+cDefaultOS :: Lens' CloneStack (Maybe Text)+cDefaultOS = lens _cDefaultOS (\ s a -> s{_cDefaultOS = a}); --- | The source stack ID.-cs1SourceStackId :: Lens' CloneStack Text-cs1SourceStackId = lens _cs1SourceStackId (\s a -> s { _cs1SourceStackId = a })+-- | A list of stack attributes and values as key\/value pairs to be added to+-- the cloned stack.+cAttributes :: Lens' CloneStack (HashMap StackAttributesKeys Text)+cAttributes = lens _cAttributes (\ s a -> s{_cAttributes = a}) . _Default . _Map;  -- | Whether to use custom cookbooks.-cs1UseCustomCookbooks :: Lens' CloneStack (Maybe Bool)-cs1UseCustomCookbooks =-    lens _cs1UseCustomCookbooks (\s a -> s { _cs1UseCustomCookbooks = a })+cUseCustomCookbooks :: Lens' CloneStack (Maybe Bool)+cUseCustomCookbooks = lens _cUseCustomCookbooks (\ s a -> s{_cUseCustomCookbooks = a}); --- | Whether to associate the AWS OpsWorks built-in security groups with the--- stack's layers.------ AWS OpsWorks provides a standard set of built-in security groups, one for--- each layer, which are associated with layers by default. With 'UseOpsworksSecurityGroups' you can instead provide your own custom security groups. 'UseOpsworksSecurityGroups' has the following settings:------ True - AWS OpsWorks automatically associates the appropriate built-in--- security group with each layer (default setting). You can associate--- additional security groups with a layer after you create it but you cannot--- delete the built-in security group.  False - AWS OpsWorks does not associate--- built-in security groups with layers. You must create appropriate EC2--- security groups and associate a security group with each layer that you--- create. However, you can still manually associate a built-in security group--- with a layer on creation; custom security groups are required only for those--- layers that need custom settings.   For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workingstacks-creating.html Create a NewStack>.-cs1UseOpsworksSecurityGroups :: Lens' CloneStack (Maybe Bool)-cs1UseOpsworksSecurityGroups =-    lens _cs1UseOpsworksSecurityGroups-        (\s a -> s { _cs1UseOpsworksSecurityGroups = a })+-- | The stack\'s default VPC subnet ID. This parameter is required if you+-- specify a value for the 'VpcId' parameter. All instances are launched+-- into this subnet unless you specify otherwise when you create the+-- instance. If you also specify a value for 'DefaultAvailabilityZone', the+-- subnet must be in that zone. For information on default values and when+-- this parameter is required, see the 'VpcId' parameter description.+cDefaultSubnetId :: Lens' CloneStack (Maybe Text)+cDefaultSubnetId = lens _cDefaultSubnetId (\ s a -> s{_cDefaultSubnetId = a}); --- | The ID of the VPC that the cloned stack is to be launched into. It must be in--- the specified region. All instances are launched into this VPC, and you--- cannot change the ID later.------ If your account supports EC2 Classic, the default value is no VPC. If your--- account does not support EC2 Classic, the default value is the default VPC--- for the specified region.  If the VPC ID corresponds to a default VPC and you--- have specified either the 'DefaultAvailabilityZone' or the 'DefaultSubnetId'--- parameter only, AWS OpsWorks infers the value of the other parameter. If you--- specify neither parameter, AWS OpsWorks sets these parameters to the first--- valid Availability Zone for the specified region and the corresponding--- default VPC subnet ID, respectively.------ If you specify a nondefault VPC ID, note the following:------ It must belong to a VPC in your account that is in the specified region. You must specify a value for--- 'DefaultSubnetId'.  For more information on how to use AWS OpsWorks with a VPC,--- see <http://docs.aws.amazon.com/opsworks/latest/userguide/workingstacks-vpc.html Running a Stack in a VPC>. For more information on default VPC and EC2--- Classic, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ec2-supported-platforms.html Supported Platforms>.-cs1VpcId :: Lens' CloneStack (Maybe Text)-cs1VpcId = lens _cs1VpcId (\s a -> s { _cs1VpcId = a })+-- | The cloned stack AWS region, such as \"us-east-1\". For more information+-- about AWS regions, see+-- <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints>.+cRegion :: Lens' CloneStack (Maybe Text)+cRegion = lens _cRegion (\ s a -> s{_cRegion = a}); -newtype CloneStackResponse = CloneStackResponse-    { _csrStackId :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+-- | The configuration manager. When you clone a Linux stack we recommend+-- that you use the configuration manager to specify the Chef version: 0.9,+-- 11.4, or 11.10. The default value is currently 11.10.+cConfigurationManager :: Lens' CloneStack (Maybe StackConfigurationManager)+cConfigurationManager = lens _cConfigurationManager (\ s a -> s{_cConfigurationManager = a}); --- | 'CloneStackResponse' constructor.+-- | The stack\'s host name theme, with spaces are replaced by underscores.+-- The theme is used to generate host names for the stack\'s instances. By+-- default, 'HostnameTheme' is set to 'Layer_Dependent', which creates host+-- names by appending integers to the layer\'s short name. The other themes+-- are: ----- The fields accessible through corresponding lenses are:+-- -   'Baked_Goods'+-- -   'Clouds'+-- -   'Europe_Cities'+-- -   'Fruits'+-- -   'Greek_Deities'+-- -   'Legendary_creatures_from_Japan'+-- -   'Planets_and_Moons'+-- -   'Roman_Deities'+-- -   'Scottish_Islands'+-- -   'US_Cities'+-- -   'Wild_Cats' ----- * 'csrStackId' @::@ 'Maybe' 'Text'+-- To obtain a generated host name, call 'GetHostNameSuggestion', which+-- returns a host name based on the current theme.+cHostnameTheme :: Lens' CloneStack (Maybe Text)+cHostnameTheme = lens _cHostnameTheme (\ s a -> s{_cHostnameTheme = a});++-- | The source stack ID.+cSourceStackId :: Lens' CloneStack Text+cSourceStackId = lens _cSourceStackId (\ s a -> s{_cSourceStackId = a});++-- | The stack AWS Identity and Access Management (IAM) role, which allows+-- AWS OpsWorks to work with AWS resources on your behalf. You must set+-- this parameter to the Amazon Resource Name (ARN) for an existing IAM+-- role. If you create a stack by using the AWS OpsWorks console, it+-- creates the role for you. You can obtain an existing stack\'s IAM ARN+-- programmatically by calling DescribePermissions. For more information+-- about IAM ARNs, see+-- <http://docs.aws.amazon.com/IAM/latest/UserGuide/Using_Identifiers.html Using Identifiers>. ---cloneStackResponse :: CloneStackResponse-cloneStackResponse = CloneStackResponse-    { _csrStackId = Nothing-    }+-- You must set this parameter to a valid service role ARN or the action+-- will fail; there is no default value. You can specify the source+-- stack\'s service role ARN, if you prefer, but you must do so explicitly.+cServiceRoleARN :: Lens' CloneStack Text+cServiceRoleARN = lens _cServiceRoleARN (\ s a -> s{_cServiceRoleARN = a}); --- | The cloned stack ID.-csrStackId :: Lens' CloneStackResponse (Maybe Text)-csrStackId = lens _csrStackId (\s a -> s { _csrStackId = a })+instance AWSRequest CloneStack where+        type Sv CloneStack = OpsWorks+        type Rs CloneStack = CloneStackResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 CloneStackResponse' <$>+                   (x .?> "StackId") <*> (pure (fromEnum s))) +instance ToHeaders CloneStack where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OpsWorks_20130218.CloneStack" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CloneStack where+        toJSON CloneStack'{..}+          = object+              ["CloneAppIds" .= _cCloneAppIds,+               "DefaultInstanceProfileArn" .=+                 _cDefaultInstanceProfileARN,+               "DefaultRootDeviceType" .= _cDefaultRootDeviceType,+               "ChefConfiguration" .= _cChefConfiguration,+               "VpcId" .= _cVPCId, "AgentVersion" .= _cAgentVersion,+               "DefaultSshKeyName" .= _cDefaultSSHKeyName,+               "CustomJson" .= _cCustomJSON,+               "ClonePermissions" .= _cClonePermissions,+               "CustomCookbooksSource" .= _cCustomCookbooksSource,+               "DefaultAvailabilityZone" .=+                 _cDefaultAvailabilityZone,+               "Name" .= _cName,+               "UseOpsworksSecurityGroups" .=+                 _cUseOpsworksSecurityGroups,+               "DefaultOs" .= _cDefaultOS,+               "Attributes" .= _cAttributes,+               "UseCustomCookbooks" .= _cUseCustomCookbooks,+               "DefaultSubnetId" .= _cDefaultSubnetId,+               "Region" .= _cRegion,+               "ConfigurationManager" .= _cConfigurationManager,+               "HostnameTheme" .= _cHostnameTheme,+               "SourceStackId" .= _cSourceStackId,+               "ServiceRoleArn" .= _cServiceRoleARN]+ instance ToPath CloneStack where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CloneStack where-    toQuery = const mempty--instance ToHeaders CloneStack+        toQuery = const mempty -instance ToJSON CloneStack where-    toJSON CloneStack{..} = object-        [ "SourceStackId"             .= _cs1SourceStackId-        , "Name"                      .= _cs1Name-        , "Region"                    .= _cs1Region-        , "VpcId"                     .= _cs1VpcId-        , "Attributes"                .= _cs1Attributes-        , "ServiceRoleArn"            .= _cs1ServiceRoleArn-        , "DefaultInstanceProfileArn" .= _cs1DefaultInstanceProfileArn-        , "DefaultOs"                 .= _cs1DefaultOs-        , "HostnameTheme"             .= _cs1HostnameTheme-        , "DefaultAvailabilityZone"   .= _cs1DefaultAvailabilityZone-        , "DefaultSubnetId"           .= _cs1DefaultSubnetId-        , "CustomJson"                .= _cs1CustomJson-        , "ConfigurationManager"      .= _cs1ConfigurationManager-        , "ChefConfiguration"         .= _cs1ChefConfiguration-        , "UseCustomCookbooks"        .= _cs1UseCustomCookbooks-        , "UseOpsworksSecurityGroups" .= _cs1UseOpsworksSecurityGroups-        , "CustomCookbooksSource"     .= _cs1CustomCookbooksSource-        , "DefaultSshKeyName"         .= _cs1DefaultSshKeyName-        , "ClonePermissions"          .= _cs1ClonePermissions-        , "CloneAppIds"               .= _cs1CloneAppIds-        , "DefaultRootDeviceType"     .= _cs1DefaultRootDeviceType-        ]+-- | Contains the response to a 'CloneStack' request.+--+-- /See:/ 'cloneStackResponse' smart constructor.+data CloneStackResponse = CloneStackResponse'+    { _csrsStackId :: !(Maybe Text)+    , _csrsStatus  :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CloneStack where-    type Sv CloneStack = OpsWorks-    type Rs CloneStack = CloneStackResponse+-- | Creates a value of 'CloneStackResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'csrsStackId'+--+-- * 'csrsStatus'+cloneStackResponse+    :: Int -- ^ 'csrsStatus'+    -> CloneStackResponse+cloneStackResponse pStatus_ =+    CloneStackResponse'+    { _csrsStackId = Nothing+    , _csrsStatus = pStatus_+    } -    request  = post "CloneStack"-    response = jsonResponse+-- | The cloned stack ID.+csrsStackId :: Lens' CloneStackResponse (Maybe Text)+csrsStackId = lens _csrsStackId (\ s a -> s{_csrsStackId = a}); -instance FromJSON CloneStackResponse where-    parseJSON = withObject "CloneStackResponse" $ \o -> CloneStackResponse-        <$> o .:? "StackId"+-- | The response status code.+csrsStatus :: Lens' CloneStackResponse Int+csrsStatus = lens _csrsStatus (\ s a -> s{_csrsStatus = a});

@@ -1,246 +1,267 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.OpsWorks.CreateApp--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Creates an app for a specified stack. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workingapps-creating.html Creating Apps>.+-- Creates an app for a specified stack. For more information, see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/workingapps-creating.html Creating Apps>. ----- Required Permissions: To use this action, an IAM user must have a Manage--- permissions level for the stack, or an attached policy that explicitly grants--- permissions. For more information on user permissions, see <http://docs.aws.amazon.com/opsworks/latest/userguide/opsworks-security-users.html Managing UserPermissions>.+-- __Required Permissions__: To use this action, an IAM user must have a+-- Manage permissions level for the stack, or an attached policy that+-- explicitly grants permissions. For more information on user permissions,+-- see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/opsworks-security-users.html Managing User Permissions>. ----- <http://docs.aws.amazon.com/opsworks/latest/APIReference/API_CreateApp.html>+-- /See:/ <http://docs.aws.amazon.com/opsworks/latest/APIReference/API_CreateApp.html AWS API Reference> for CreateApp. module Network.AWS.OpsWorks.CreateApp     (-    -- * Request-      CreateApp-    -- ** Request constructor-    , createApp-    -- ** Request lenses+    -- * Creating a Request+      createApp+    , CreateApp+    -- * Request Lenses+    , caSSLConfiguration+    , caShortname+    , caEnableSSL+    , caEnvironment+    , caDataSources     , caAppSource     , caAttributes-    , caDataSources-    , caDescription     , caDomains-    , caEnableSsl-    , caEnvironment-    , caName-    , caShortname-    , caSslConfiguration+    , caDescription     , caStackId+    , caName     , caType -    -- * Response-    , CreateAppResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createAppResponse-    -- ** Response lenses-    , carAppId+    , CreateAppResponse+    -- * Response Lenses+    , carsAppId+    , carsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.OpsWorks.Types-import qualified GHC.Exts+import           Network.AWS.OpsWorks.Types+import           Network.AWS.OpsWorks.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data CreateApp = CreateApp-    { _caAppSource        :: Maybe Source-    , _caAttributes       :: Map AppAttributesKeys Text-    , _caDataSources      :: List "DataSources" DataSource-    , _caDescription      :: Maybe Text-    , _caDomains          :: List "Domains" Text-    , _caEnableSsl        :: Maybe Bool-    , _caEnvironment      :: List "Environment" EnvironmentVariable-    , _caName             :: Text-    , _caShortname        :: Maybe Text-    , _caSslConfiguration :: Maybe SslConfiguration-    , _caStackId          :: Text-    , _caType             :: AppType-    } deriving (Eq, Read, Show)+-- | /See:/ 'createApp' smart constructor.+data CreateApp = CreateApp'+    { _caSSLConfiguration :: !(Maybe SSLConfiguration)+    , _caShortname        :: !(Maybe Text)+    , _caEnableSSL        :: !(Maybe Bool)+    , _caEnvironment      :: !(Maybe [EnvironmentVariable])+    , _caDataSources      :: !(Maybe [DataSource])+    , _caAppSource        :: !(Maybe Source)+    , _caAttributes       :: !(Maybe (Map AppAttributesKeys Text))+    , _caDomains          :: !(Maybe [Text])+    , _caDescription      :: !(Maybe Text)+    , _caStackId          :: !Text+    , _caName             :: !Text+    , _caType             :: !AppType+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'CreateApp' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'CreateApp' with the minimum fields required to make a request. ----- * 'caAppSource' @::@ 'Maybe' 'Source'+-- Use one of the following lenses to modify other fields as desired: ----- * 'caAttributes' @::@ 'HashMap' 'AppAttributesKeys' 'Text'+-- * 'caSSLConfiguration' ----- * 'caDataSources' @::@ ['DataSource']+-- * 'caShortname' ----- * 'caDescription' @::@ 'Maybe' 'Text'+-- * 'caEnableSSL' ----- * 'caDomains' @::@ ['Text']+-- * 'caEnvironment' ----- * 'caEnableSsl' @::@ 'Maybe' 'Bool'+-- * 'caDataSources' ----- * 'caEnvironment' @::@ ['EnvironmentVariable']+-- * 'caAppSource' ----- * 'caName' @::@ 'Text'+-- * 'caAttributes' ----- * 'caShortname' @::@ 'Maybe' 'Text'+-- * 'caDomains' ----- * 'caSslConfiguration' @::@ 'Maybe' 'SslConfiguration'+-- * 'caDescription' ----- * 'caStackId' @::@ 'Text'+-- * 'caStackId' ----- * 'caType' @::@ 'AppType'+-- * 'caName' ---createApp :: Text -- ^ 'caStackId'-          -> Text -- ^ 'caName'-          -> AppType -- ^ 'caType'-          -> CreateApp-createApp p1 p2 p3 = CreateApp-    { _caStackId          = p1-    , _caName             = p2-    , _caType             = p3-    , _caShortname        = Nothing-    , _caDescription      = Nothing-    , _caDataSources      = mempty-    , _caAppSource        = Nothing-    , _caDomains          = mempty-    , _caEnableSsl        = Nothing-    , _caSslConfiguration = Nothing-    , _caAttributes       = mempty-    , _caEnvironment      = mempty+-- * 'caType'+createApp+    :: Text -- ^ 'caStackId'+    -> Text -- ^ 'caName'+    -> AppType -- ^ 'caType'+    -> CreateApp+createApp pStackId_ pName_ pType_ =+    CreateApp'+    { _caSSLConfiguration = Nothing+    , _caShortname = Nothing+    , _caEnableSSL = Nothing+    , _caEnvironment = Nothing+    , _caDataSources = Nothing+    , _caAppSource = Nothing+    , _caAttributes = Nothing+    , _caDomains = Nothing+    , _caDescription = Nothing+    , _caStackId = pStackId_+    , _caName = pName_+    , _caType = pType_     } --- | A 'Source' object that specifies the app repository.-caAppSource :: Lens' CreateApp (Maybe Source)-caAppSource = lens _caAppSource (\s a -> s { _caAppSource = a })---- | One or more user-defined key/value pairs to be added to the stack attributes.-caAttributes :: Lens' CreateApp (HashMap AppAttributesKeys Text)-caAttributes = lens _caAttributes (\s a -> s { _caAttributes = a }) . _Map---- | The app's data source.-caDataSources :: Lens' CreateApp [DataSource]-caDataSources = lens _caDataSources (\s a -> s { _caDataSources = a }) . _List---- | A description of the app.-caDescription :: Lens' CreateApp (Maybe Text)-caDescription = lens _caDescription (\s a -> s { _caDescription = a })+-- | An 'SslConfiguration' object with the SSL configuration.+caSSLConfiguration :: Lens' CreateApp (Maybe SSLConfiguration)+caSSLConfiguration = lens _caSSLConfiguration (\ s a -> s{_caSSLConfiguration = a}); --- | The app virtual host settings, with multiple domains separated by commas. For--- example: ''www.example.com, example.com''-caDomains :: Lens' CreateApp [Text]-caDomains = lens _caDomains (\s a -> s { _caDomains = a }) . _List+-- | The app\'s short name.+caShortname :: Lens' CreateApp (Maybe Text)+caShortname = lens _caShortname (\ s a -> s{_caShortname = a});  -- | Whether to enable SSL for the app.-caEnableSsl :: Lens' CreateApp (Maybe Bool)-caEnableSsl = lens _caEnableSsl (\s a -> s { _caEnableSsl = a })+caEnableSSL :: Lens' CreateApp (Maybe Bool)+caEnableSSL = lens _caEnableSSL (\ s a -> s{_caEnableSSL = a}); --- | An array of 'EnvironmentVariable' objects that specify environment variables to--- be associated with the app. After you deploy the app, these variables are--- defined on the associated app server instance. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workingapps-creating.html#workingapps-creating-environment Environment Variables>.+-- | An array of 'EnvironmentVariable' objects that specify environment+-- variables to be associated with the app. After you deploy the app, these+-- variables are defined on the associated app server instance. For more+-- information, see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/workingapps-creating.html#workingapps-creating-environment Environment Variables>. ----- There is no specific limit on the number of environment variables. However,--- the size of the associated data structure - which includes the variables'--- names, values, and protected flag values - cannot exceed 10 KB (10240 Bytes).--- This limit should accommodate most if not all use cases. Exceeding it will--- cause an exception with the message, "Environment: is too large (maximum is--- 10KB)."+-- There is no specific limit on the number of environment variables.+-- However, the size of the associated data structure - which includes the+-- variables\' names, values, and protected flag values - cannot exceed 10+-- KB (10240 Bytes). This limit should accommodate most if not all use+-- cases. Exceeding it will cause an exception with the message,+-- \"Environment: is too large (maximum is 10KB).\" ----- This parameter is supported only by Chef 11.10 stacks. If you have specified--- one or more environment variables, you cannot modify the stack's Chef version.+-- This parameter is supported only by Chef 11.10 stacks. If you have+-- specified one or more environment variables, you cannot modify the+-- stack\'s Chef version. caEnvironment :: Lens' CreateApp [EnvironmentVariable]-caEnvironment = lens _caEnvironment (\s a -> s { _caEnvironment = a }) . _List+caEnvironment = lens _caEnvironment (\ s a -> s{_caEnvironment = a}) . _Default . _Coerce; --- | The app name.-caName :: Lens' CreateApp Text-caName = lens _caName (\s a -> s { _caName = a })+-- | The app\'s data source.+caDataSources :: Lens' CreateApp [DataSource]+caDataSources = lens _caDataSources (\ s a -> s{_caDataSources = a}) . _Default . _Coerce; --- | The app's short name.-caShortname :: Lens' CreateApp (Maybe Text)-caShortname = lens _caShortname (\s a -> s { _caShortname = a })+-- | A 'Source' object that specifies the app repository.+caAppSource :: Lens' CreateApp (Maybe Source)+caAppSource = lens _caAppSource (\ s a -> s{_caAppSource = a}); --- | An 'SslConfiguration' object with the SSL configuration.-caSslConfiguration :: Lens' CreateApp (Maybe SslConfiguration)-caSslConfiguration =-    lens _caSslConfiguration (\s a -> s { _caSslConfiguration = a })+-- | One or more user-defined key\/value pairs to be added to the stack+-- attributes.+caAttributes :: Lens' CreateApp (HashMap AppAttributesKeys Text)+caAttributes = lens _caAttributes (\ s a -> s{_caAttributes = a}) . _Default . _Map; +-- | The app virtual host settings, with multiple domains separated by+-- commas. For example: '\'www.example.com, example.com\''+caDomains :: Lens' CreateApp [Text]+caDomains = lens _caDomains (\ s a -> s{_caDomains = a}) . _Default . _Coerce;++-- | A description of the app.+caDescription :: Lens' CreateApp (Maybe Text)+caDescription = lens _caDescription (\ s a -> s{_caDescription = a});+ -- | The stack ID. caStackId :: Lens' CreateApp Text-caStackId = lens _caStackId (\s a -> s { _caStackId = a })+caStackId = lens _caStackId (\ s a -> s{_caStackId = a}); --- | The app type. Each supported type is associated with a particular layer. For--- example, PHP applications are associated with a PHP layer. AWS OpsWorks--- deploys an application to those instances that are members of the--- corresponding layer. If your app isn't one of the standard types, or you--- prefer to implement your own Deploy recipes, specify 'other'.+-- | The app name.+caName :: Lens' CreateApp Text+caName = lens _caName (\ s a -> s{_caName = a});++-- | The app type. Each supported type is associated with a particular layer.+-- For example, PHP applications are associated with a PHP layer. AWS+-- OpsWorks deploys an application to those instances that are members of+-- the corresponding layer. If your app isn\'t one of the standard types,+-- or you prefer to implement your own Deploy recipes, specify 'other'. caType :: Lens' CreateApp AppType-caType = lens _caType (\s a -> s { _caType = a })+caType = lens _caType (\ s a -> s{_caType = a}); -newtype CreateAppResponse = CreateAppResponse-    { _carAppId :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+instance AWSRequest CreateApp where+        type Sv CreateApp = OpsWorks+        type Rs CreateApp = CreateAppResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 CreateAppResponse' <$>+                   (x .?> "AppId") <*> (pure (fromEnum s))) --- | 'CreateAppResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'carAppId' @::@ 'Maybe' 'Text'----createAppResponse :: CreateAppResponse-createAppResponse = CreateAppResponse-    { _carAppId = Nothing-    }+instance ToHeaders CreateApp where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OpsWorks_20130218.CreateApp" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | The app ID.-carAppId :: Lens' CreateAppResponse (Maybe Text)-carAppId = lens _carAppId (\s a -> s { _carAppId = a })+instance ToJSON CreateApp where+        toJSON CreateApp'{..}+          = object+              ["SslConfiguration" .= _caSSLConfiguration,+               "Shortname" .= _caShortname,+               "EnableSsl" .= _caEnableSSL,+               "Environment" .= _caEnvironment,+               "DataSources" .= _caDataSources,+               "AppSource" .= _caAppSource,+               "Attributes" .= _caAttributes,+               "Domains" .= _caDomains,+               "Description" .= _caDescription,+               "StackId" .= _caStackId, "Name" .= _caName,+               "Type" .= _caType]  instance ToPath CreateApp where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateApp where-    toQuery = const mempty--instance ToHeaders CreateApp+        toQuery = const mempty -instance ToJSON CreateApp where-    toJSON CreateApp{..} = object-        [ "StackId"          .= _caStackId-        , "Shortname"        .= _caShortname-        , "Name"             .= _caName-        , "Description"      .= _caDescription-        , "DataSources"      .= _caDataSources-        , "Type"             .= _caType-        , "AppSource"        .= _caAppSource-        , "Domains"          .= _caDomains-        , "EnableSsl"        .= _caEnableSsl-        , "SslConfiguration" .= _caSslConfiguration-        , "Attributes"       .= _caAttributes-        , "Environment"      .= _caEnvironment-        ]+-- | Contains the response to a 'CreateApp' request.+--+-- /See:/ 'createAppResponse' smart constructor.+data CreateAppResponse = CreateAppResponse'+    { _carsAppId  :: !(Maybe Text)+    , _carsStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CreateApp where-    type Sv CreateApp = OpsWorks-    type Rs CreateApp = CreateAppResponse+-- | Creates a value of 'CreateAppResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'carsAppId'+--+-- * 'carsStatus'+createAppResponse+    :: Int -- ^ 'carsStatus'+    -> CreateAppResponse+createAppResponse pStatus_ =+    CreateAppResponse'+    { _carsAppId = Nothing+    , _carsStatus = pStatus_+    } -    request  = post "CreateApp"-    response = jsonResponse+-- | The app ID.+carsAppId :: Lens' CreateAppResponse (Maybe Text)+carsAppId = lens _carsAppId (\ s a -> s{_carsAppId = a}); -instance FromJSON CreateAppResponse where-    parseJSON = withObject "CreateAppResponse" $ \o -> CreateAppResponse-        <$> o .:? "AppId"+-- | The response status code.+carsStatus :: Lens' CreateAppResponse Int+carsStatus = lens _carsStatus (\ s a -> s{_carsStatus = a});

@@ -1,177 +1,197 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.OpsWorks.CreateDeployment--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Runs deployment or stack commands. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workingapps-deploying.html Deploying Apps>--- and <http://docs.aws.amazon.com/opsworks/latest/userguide/workingstacks-commands.html Run Stack Commands>.+-- Runs deployment or stack commands. For more information, see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/workingapps-deploying.html Deploying Apps>+-- and+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/workingstacks-commands.html Run Stack Commands>. ----- Required Permissions: To use this action, an IAM user must have a Deploy or--- Manage permissions level for the stack, or an attached policy that explicitly--- grants permissions. For more information on user permissions, see <http://docs.aws.amazon.com/opsworks/latest/userguide/opsworks-security-users.html ManagingUser Permissions>.+-- __Required Permissions__: To use this action, an IAM user must have a+-- Deploy or Manage permissions level for the stack, or an attached policy+-- that explicitly grants permissions. For more information on user+-- permissions, see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/opsworks-security-users.html Managing User Permissions>. ----- <http://docs.aws.amazon.com/opsworks/latest/APIReference/API_CreateDeployment.html>+-- /See:/ <http://docs.aws.amazon.com/opsworks/latest/APIReference/API_CreateDeployment.html AWS API Reference> for CreateDeployment. module Network.AWS.OpsWorks.CreateDeployment     (-    -- * Request-      CreateDeployment-    -- ** Request constructor-    , createDeployment-    -- ** Request lenses+    -- * Creating a Request+      createDeployment+    , CreateDeployment+    -- * Request Lenses+    , cdCustomJSON     , cdAppId-    , cdCommand-    , cdComment-    , cdCustomJson     , cdInstanceIds+    , cdComment     , cdStackId+    , cdCommand -    -- * Response-    , CreateDeploymentResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createDeploymentResponse-    -- ** Response lenses-    , cdrDeploymentId+    , CreateDeploymentResponse+    -- * Response Lenses+    , cdrsDeploymentId+    , cdrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.OpsWorks.Types-import qualified GHC.Exts+import           Network.AWS.OpsWorks.Types+import           Network.AWS.OpsWorks.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data CreateDeployment = CreateDeployment-    { _cdAppId       :: Maybe Text-    , _cdCommand     :: DeploymentCommand-    , _cdComment     :: Maybe Text-    , _cdCustomJson  :: Maybe Text-    , _cdInstanceIds :: List "InstanceIds" Text-    , _cdStackId     :: Text-    } deriving (Eq, Read, Show)+-- | /See:/ 'createDeployment' smart constructor.+data CreateDeployment = CreateDeployment'+    { _cdCustomJSON  :: !(Maybe Text)+    , _cdAppId       :: !(Maybe Text)+    , _cdInstanceIds :: !(Maybe [Text])+    , _cdComment     :: !(Maybe Text)+    , _cdStackId     :: !Text+    , _cdCommand     :: !DeploymentCommand+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'CreateDeployment' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'CreateDeployment' with the minimum fields required to make a request. ----- * 'cdAppId' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'cdCommand' @::@ 'DeploymentCommand'+-- * 'cdCustomJSON' ----- * 'cdComment' @::@ 'Maybe' 'Text'+-- * 'cdAppId' ----- * 'cdCustomJson' @::@ 'Maybe' 'Text'+-- * 'cdInstanceIds' ----- * 'cdInstanceIds' @::@ ['Text']+-- * 'cdComment' ----- * 'cdStackId' @::@ 'Text'+-- * 'cdStackId' ---createDeployment :: Text -- ^ 'cdStackId'-                 -> DeploymentCommand -- ^ 'cdCommand'-                 -> CreateDeployment-createDeployment p1 p2 = CreateDeployment-    { _cdStackId     = p1-    , _cdCommand     = p2-    , _cdAppId       = Nothing-    , _cdInstanceIds = mempty-    , _cdComment     = Nothing-    , _cdCustomJson  = Nothing+-- * 'cdCommand'+createDeployment+    :: Text -- ^ 'cdStackId'+    -> DeploymentCommand -- ^ 'cdCommand'+    -> CreateDeployment+createDeployment pStackId_ pCommand_ =+    CreateDeployment'+    { _cdCustomJSON = Nothing+    , _cdAppId = Nothing+    , _cdInstanceIds = Nothing+    , _cdComment = Nothing+    , _cdStackId = pStackId_+    , _cdCommand = pCommand_     } --- | The app ID. This parameter is required for app deployments, but not for other--- deployment commands.-cdAppId :: Lens' CreateDeployment (Maybe Text)-cdAppId = lens _cdAppId (\s a -> s { _cdAppId = a })---- | A 'DeploymentCommand' object that specifies the deployment command and any--- associated arguments.-cdCommand :: Lens' CreateDeployment DeploymentCommand-cdCommand = lens _cdCommand (\s a -> s { _cdCommand = a })---- | A user-defined comment.-cdComment :: Lens' CreateDeployment (Maybe Text)-cdComment = lens _cdComment (\s a -> s { _cdComment = a })---- | A string that contains user-defined, custom JSON. It is used to override the--- corresponding default stack configuration JSON values. The string should be--- in the following format and must escape characters such as '"'.:+-- | A string that contains user-defined, custom JSON. It is used to override+-- the corresponding default stack configuration JSON values. The string+-- should be in the following format and must escape characters such as+-- \'\"\': ----- '"{\"key1\": \"value1\", \"key2\": \"value2\",...}"'+-- '\"{\\\"key1\\\": \\\"value1\\\", \\\"key2\\\": \\\"value2\\\",...}\"' ----- For more information on custom JSON, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workingstacks-json.html Use Custom JSON to Modify the StackConfiguration Attributes>.-cdCustomJson :: Lens' CreateDeployment (Maybe Text)-cdCustomJson = lens _cdCustomJson (\s a -> s { _cdCustomJson = a })+-- For more information on custom JSON, see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/workingstacks-json.html Use Custom JSON to Modify the Stack Configuration Attributes>.+cdCustomJSON :: Lens' CreateDeployment (Maybe Text)+cdCustomJSON = lens _cdCustomJSON (\ s a -> s{_cdCustomJSON = a}); +-- | The app ID. This parameter is required for app deployments, but not for+-- other deployment commands.+cdAppId :: Lens' CreateDeployment (Maybe Text)+cdAppId = lens _cdAppId (\ s a -> s{_cdAppId = a});+ -- | The instance IDs for the deployment targets. cdInstanceIds :: Lens' CreateDeployment [Text]-cdInstanceIds = lens _cdInstanceIds (\s a -> s { _cdInstanceIds = a }) . _List+cdInstanceIds = lens _cdInstanceIds (\ s a -> s{_cdInstanceIds = a}) . _Default . _Coerce; +-- | A user-defined comment.+cdComment :: Lens' CreateDeployment (Maybe Text)+cdComment = lens _cdComment (\ s a -> s{_cdComment = a});+ -- | The stack ID. cdStackId :: Lens' CreateDeployment Text-cdStackId = lens _cdStackId (\s a -> s { _cdStackId = a })+cdStackId = lens _cdStackId (\ s a -> s{_cdStackId = a}); -newtype CreateDeploymentResponse = CreateDeploymentResponse-    { _cdrDeploymentId :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+-- | A 'DeploymentCommand' object that specifies the deployment command and+-- any associated arguments.+cdCommand :: Lens' CreateDeployment DeploymentCommand+cdCommand = lens _cdCommand (\ s a -> s{_cdCommand = a}); --- | 'CreateDeploymentResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'cdrDeploymentId' @::@ 'Maybe' 'Text'----createDeploymentResponse :: CreateDeploymentResponse-createDeploymentResponse = CreateDeploymentResponse-    { _cdrDeploymentId = Nothing-    }+instance AWSRequest CreateDeployment where+        type Sv CreateDeployment = OpsWorks+        type Rs CreateDeployment = CreateDeploymentResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 CreateDeploymentResponse' <$>+                   (x .?> "DeploymentId") <*> (pure (fromEnum s))) --- | The deployment ID, which can be used with other requests to identify the--- deployment.-cdrDeploymentId :: Lens' CreateDeploymentResponse (Maybe Text)-cdrDeploymentId = lens _cdrDeploymentId (\s a -> s { _cdrDeploymentId = a })+instance ToHeaders CreateDeployment where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OpsWorks_20130218.CreateDeployment" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) +instance ToJSON CreateDeployment where+        toJSON CreateDeployment'{..}+          = object+              ["CustomJson" .= _cdCustomJSON, "AppId" .= _cdAppId,+               "InstanceIds" .= _cdInstanceIds,+               "Comment" .= _cdComment, "StackId" .= _cdStackId,+               "Command" .= _cdCommand]+ instance ToPath CreateDeployment where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateDeployment where-    toQuery = const mempty--instance ToHeaders CreateDeployment+        toQuery = const mempty -instance ToJSON CreateDeployment where-    toJSON CreateDeployment{..} = object-        [ "StackId"     .= _cdStackId-        , "AppId"       .= _cdAppId-        , "InstanceIds" .= _cdInstanceIds-        , "Command"     .= _cdCommand-        , "Comment"     .= _cdComment-        , "CustomJson"  .= _cdCustomJson-        ]+-- | Contains the response to a 'CreateDeployment' request.+--+-- /See:/ 'createDeploymentResponse' smart constructor.+data CreateDeploymentResponse = CreateDeploymentResponse'+    { _cdrsDeploymentId :: !(Maybe Text)+    , _cdrsStatus       :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CreateDeployment where-    type Sv CreateDeployment = OpsWorks-    type Rs CreateDeployment = CreateDeploymentResponse+-- | Creates a value of 'CreateDeploymentResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cdrsDeploymentId'+--+-- * 'cdrsStatus'+createDeploymentResponse+    :: Int -- ^ 'cdrsStatus'+    -> CreateDeploymentResponse+createDeploymentResponse pStatus_ =+    CreateDeploymentResponse'+    { _cdrsDeploymentId = Nothing+    , _cdrsStatus = pStatus_+    } -    request  = post "CreateDeployment"-    response = jsonResponse+-- | The deployment ID, which can be used with other requests to identify the+-- deployment.+cdrsDeploymentId :: Lens' CreateDeploymentResponse (Maybe Text)+cdrsDeploymentId = lens _cdrsDeploymentId (\ s a -> s{_cdrsDeploymentId = a}); -instance FromJSON CreateDeploymentResponse where-    parseJSON = withObject "CreateDeploymentResponse" $ \o -> CreateDeploymentResponse-        <$> o .:? "DeploymentId"+-- | The response status code.+cdrsStatus :: Lens' CreateDeploymentResponse Int+cdrsStatus = lens _cdrsStatus (\ s a -> s{_cdrsStatus = a});

@@ -1,304 +1,352 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.OpsWorks.CreateInstance--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Creates an instance in a specified stack. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-add.html Adding anInstance to a Layer>.+-- Creates an instance in a specified stack. For more information, see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-add.html Adding an Instance to a Layer>. ----- Required Permissions: To use this action, an IAM user must have a Manage--- permissions level for the stack, or an attached policy that explicitly grants--- permissions. For more information on user permissions, see <http://docs.aws.amazon.com/opsworks/latest/userguide/opsworks-security-users.html Managing UserPermissions>.+-- __Required Permissions__: To use this action, an IAM user must have a+-- Manage permissions level for the stack, or an attached policy that+-- explicitly grants permissions. For more information on user permissions,+-- see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/opsworks-security-users.html Managing User Permissions>. ----- <http://docs.aws.amazon.com/opsworks/latest/APIReference/API_CreateInstance.html>+-- /See:/ <http://docs.aws.amazon.com/opsworks/latest/APIReference/API_CreateInstance.html AWS API Reference> for CreateInstance. module Network.AWS.OpsWorks.CreateInstance     (-    -- * Request-      CreateInstance-    -- ** Request constructor-    , createInstance-    -- ** Request lenses-    , ciAmiId-    , ciArchitecture-    , ciAutoScalingType+    -- * Creating a Request+      createInstance+    , CreateInstance+    -- * Request Lenses+    , ciInstallUpdatesOnBoot+    , ciVirtualizationType+    , ciHostname+    , ciSSHKeyName+    , ciAgentVersion+    , ciSubnetId+    , ciEBSOptimized+    , ciOS     , ciAvailabilityZone+    , ciAutoScalingType+    , ciArchitecture+    , ciAMIId     , ciBlockDeviceMappings-    , ciEbsOptimized-    , ciHostname-    , ciInstallUpdatesOnBoot-    , ciInstanceType-    , ciLayerIds-    , ciOs     , ciRootDeviceType-    , ciSshKeyName     , ciStackId-    , ciSubnetId-    , ciVirtualizationType+    , ciLayerIds+    , ciInstanceType -    -- * Response-    , CreateInstanceResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createInstanceResponse-    -- ** Response lenses-    , cirInstanceId+    , CreateInstanceResponse+    -- * Response Lenses+    , cirsInstanceId+    , cirsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.OpsWorks.Types-import qualified GHC.Exts+import           Network.AWS.OpsWorks.Types+import           Network.AWS.OpsWorks.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data CreateInstance = CreateInstance-    { _ciAmiId                :: Maybe Text-    , _ciArchitecture         :: Maybe Architecture-    , _ciAutoScalingType      :: Maybe AutoScalingType-    , _ciAvailabilityZone     :: Maybe Text-    , _ciBlockDeviceMappings  :: List "BlockDeviceMappings" BlockDeviceMapping-    , _ciEbsOptimized         :: Maybe Bool-    , _ciHostname             :: Maybe Text-    , _ciInstallUpdatesOnBoot :: Maybe Bool-    , _ciInstanceType         :: Text-    , _ciLayerIds             :: List "LayerIds" Text-    , _ciOs                   :: Maybe Text-    , _ciRootDeviceType       :: Maybe RootDeviceType-    , _ciSshKeyName           :: Maybe Text-    , _ciStackId              :: Text-    , _ciSubnetId             :: Maybe Text-    , _ciVirtualizationType   :: Maybe Text-    } deriving (Eq, Read, Show)+-- | /See:/ 'createInstance' smart constructor.+data CreateInstance = CreateInstance'+    { _ciInstallUpdatesOnBoot :: !(Maybe Bool)+    , _ciVirtualizationType   :: !(Maybe Text)+    , _ciHostname             :: !(Maybe Text)+    , _ciSSHKeyName           :: !(Maybe Text)+    , _ciAgentVersion         :: !(Maybe Text)+    , _ciSubnetId             :: !(Maybe Text)+    , _ciEBSOptimized         :: !(Maybe Bool)+    , _ciOS                   :: !(Maybe Text)+    , _ciAvailabilityZone     :: !(Maybe Text)+    , _ciAutoScalingType      :: !(Maybe AutoScalingType)+    , _ciArchitecture         :: !(Maybe Architecture)+    , _ciAMIId                :: !(Maybe Text)+    , _ciBlockDeviceMappings  :: !(Maybe [BlockDeviceMapping])+    , _ciRootDeviceType       :: !(Maybe RootDeviceType)+    , _ciStackId              :: !Text+    , _ciLayerIds             :: ![Text]+    , _ciInstanceType         :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'CreateInstance' constructor.+-- | Creates a value of 'CreateInstance' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'ciAmiId' @::@ 'Maybe' 'Text'+-- * 'ciInstallUpdatesOnBoot' ----- * 'ciArchitecture' @::@ 'Maybe' 'Architecture'+-- * 'ciVirtualizationType' ----- * 'ciAutoScalingType' @::@ 'Maybe' 'AutoScalingType'+-- * 'ciHostname' ----- * 'ciAvailabilityZone' @::@ 'Maybe' 'Text'+-- * 'ciSSHKeyName' ----- * 'ciBlockDeviceMappings' @::@ ['BlockDeviceMapping']+-- * 'ciAgentVersion' ----- * 'ciEbsOptimized' @::@ 'Maybe' 'Bool'+-- * 'ciSubnetId' ----- * 'ciHostname' @::@ 'Maybe' 'Text'+-- * 'ciEBSOptimized' ----- * 'ciInstallUpdatesOnBoot' @::@ 'Maybe' 'Bool'+-- * 'ciOS' ----- * 'ciInstanceType' @::@ 'Text'+-- * 'ciAvailabilityZone' ----- * 'ciLayerIds' @::@ ['Text']+-- * 'ciAutoScalingType' ----- * 'ciOs' @::@ 'Maybe' 'Text'+-- * 'ciArchitecture' ----- * 'ciRootDeviceType' @::@ 'Maybe' 'RootDeviceType'+-- * 'ciAMIId' ----- * 'ciSshKeyName' @::@ 'Maybe' 'Text'+-- * 'ciBlockDeviceMappings' ----- * 'ciStackId' @::@ 'Text'+-- * 'ciRootDeviceType' ----- * 'ciSubnetId' @::@ 'Maybe' 'Text'+-- * 'ciStackId' ----- * 'ciVirtualizationType' @::@ 'Maybe' 'Text'+-- * 'ciLayerIds' ---createInstance :: Text -- ^ 'ciStackId'-               -> Text -- ^ 'ciInstanceType'-               -> CreateInstance-createInstance p1 p2 = CreateInstance-    { _ciStackId              = p1-    , _ciInstanceType         = p2-    , _ciLayerIds             = mempty-    , _ciAutoScalingType      = Nothing-    , _ciHostname             = Nothing-    , _ciOs                   = Nothing-    , _ciAmiId                = Nothing-    , _ciSshKeyName           = Nothing-    , _ciAvailabilityZone     = Nothing-    , _ciVirtualizationType   = Nothing-    , _ciSubnetId             = Nothing-    , _ciArchitecture         = Nothing-    , _ciRootDeviceType       = Nothing-    , _ciBlockDeviceMappings  = mempty-    , _ciInstallUpdatesOnBoot = Nothing-    , _ciEbsOptimized         = Nothing+-- * 'ciInstanceType'+createInstance+    :: Text -- ^ 'ciStackId'+    -> Text -- ^ 'ciInstanceType'+    -> CreateInstance+createInstance pStackId_ pInstanceType_ =+    CreateInstance'+    { _ciInstallUpdatesOnBoot = Nothing+    , _ciVirtualizationType = Nothing+    , _ciHostname = Nothing+    , _ciSSHKeyName = Nothing+    , _ciAgentVersion = Nothing+    , _ciSubnetId = Nothing+    , _ciEBSOptimized = Nothing+    , _ciOS = Nothing+    , _ciAvailabilityZone = Nothing+    , _ciAutoScalingType = Nothing+    , _ciArchitecture = Nothing+    , _ciAMIId = Nothing+    , _ciBlockDeviceMappings = Nothing+    , _ciRootDeviceType = Nothing+    , _ciStackId = pStackId_+    , _ciLayerIds = mempty+    , _ciInstanceType = pInstanceType_     } --- | A custom AMI ID to be used to create the instance. The AMI should be based on--- one of the standard AWS OpsWorks AMIs: Amazon Linux, Ubuntu 12.04 LTS, or--- Ubuntu 14.04 LTS. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances.html Instances>.+-- | Whether to install operating system and package updates when the+-- instance boots. The default value is 'true'. To control when updates are+-- installed, set this value to 'false'. You must then update your+-- instances manually by using CreateDeployment to run the+-- 'update_dependencies' stack command or by manually running 'yum' (Amazon+-- Linux) or 'apt-get' (Ubuntu) on the instances. ----- If you specify a custom AMI, you must set 'Os' to 'Custom'.-ciAmiId :: Lens' CreateInstance (Maybe Text)-ciAmiId = lens _ciAmiId (\s a -> s { _ciAmiId = a })+-- We strongly recommend using the default value of 'true' to ensure that+-- your instances have the latest security updates.+ciInstallUpdatesOnBoot :: Lens' CreateInstance (Maybe Bool)+ciInstallUpdatesOnBoot = lens _ciInstallUpdatesOnBoot (\ s a -> s{_ciInstallUpdatesOnBoot = a}); --- | The instance architecture. The default option is 'x86_64'. Instance types do--- not necessarily support both architectures. For a list of the architectures--- that are supported by the different instance types, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/instance-types.html Instance Families andTypes>.-ciArchitecture :: Lens' CreateInstance (Maybe Architecture)-ciArchitecture = lens _ciArchitecture (\s a -> s { _ciArchitecture = a })+-- | The instance\'s virtualization type, 'paravirtual' or 'hvm'.+ciVirtualizationType :: Lens' CreateInstance (Maybe Text)+ciVirtualizationType = lens _ciVirtualizationType (\ s a -> s{_ciVirtualizationType = a}); --- | For load-based or time-based instances, the type. Windows stacks can use only--- time-based instances.-ciAutoScalingType :: Lens' CreateInstance (Maybe AutoScalingType)-ciAutoScalingType =-    lens _ciAutoScalingType (\s a -> s { _ciAutoScalingType = a })+-- | The instance host name.+ciHostname :: Lens' CreateInstance (Maybe Text)+ciHostname = lens _ciHostname (\ s a -> s{_ciHostname = a}); --- | The instance Availability Zone. For more information, see <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions andEndpoints>.-ciAvailabilityZone :: Lens' CreateInstance (Maybe Text)-ciAvailabilityZone =-    lens _ciAvailabilityZone (\s a -> s { _ciAvailabilityZone = a })+-- | The instance\'s Amazon EC2 key-pair name.+ciSSHKeyName :: Lens' CreateInstance (Maybe Text)+ciSSHKeyName = lens _ciSSHKeyName (\ s a -> s{_ciSSHKeyName = a}); --- | An array of 'BlockDeviceMapping' objects that specify the instance's block--- devices. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/block-device-mapping-concepts.html Block Device Mapping>.-ciBlockDeviceMappings :: Lens' CreateInstance [BlockDeviceMapping]-ciBlockDeviceMappings =-    lens _ciBlockDeviceMappings (\s a -> s { _ciBlockDeviceMappings = a })-        . _List+-- | The default AWS OpsWorks agent version. You have the following options:+--+-- -   'INHERIT' - Use the stack\'s default agent version setting.+-- -   /version_number/ - Use the specified agent version. This value+--     overrides the stack\'s default setting. To update the agent version,+--     edit the instance configuration and specify a new version. AWS+--     OpsWorks then automatically installs that version on the instance.+--+-- The default setting is 'INHERIT'. To specify an agent version, you must+-- use the complete version number, not the abbreviated number shown on the+-- console. For a list of available agent version numbers, call+-- DescribeAgentVersions.+ciAgentVersion :: Lens' CreateInstance (Maybe Text)+ciAgentVersion = lens _ciAgentVersion (\ s a -> s{_ciAgentVersion = a}); --- | Whether to create an Amazon EBS-optimized instance.-ciEbsOptimized :: Lens' CreateInstance (Maybe Bool)-ciEbsOptimized = lens _ciEbsOptimized (\s a -> s { _ciEbsOptimized = a })+-- | The ID of the instance\'s subnet. If the stack is running in a VPC, you+-- can use this parameter to override the stack\'s default subnet ID value+-- and direct AWS OpsWorks to launch the instance in a different subnet.+ciSubnetId :: Lens' CreateInstance (Maybe Text)+ciSubnetId = lens _ciSubnetId (\ s a -> s{_ciSubnetId = a}); --- | The instance host name.-ciHostname :: Lens' CreateInstance (Maybe Text)-ciHostname = lens _ciHostname (\s a -> s { _ciHostname = a })+-- | Whether to create an Amazon EBS-optimized instance.+ciEBSOptimized :: Lens' CreateInstance (Maybe Bool)+ciEBSOptimized = lens _ciEBSOptimized (\ s a -> s{_ciEBSOptimized = a}); --- | Whether to install operating system and package updates when the instance--- boots. The default value is 'true'. To control when updates are installed, set--- this value to 'false'. You must then update your instances manually by using 'CreateDeployment' to run the 'update_dependencies' stack command or manually running 'yum' (Amazon--- Linux) or 'apt-get' (Ubuntu) on the instances.+-- | The instance\'s operating system, which must be set to one of the+-- following. ----- We strongly recommend using the default value of 'true' to ensure that your--- instances have the latest security updates.+-- -   A supported Linux operating system: An Amazon Linux version, such as+--     'Amazon Linux 2015.03', 'Red Hat Enterprise Linux 7',+--     'Ubuntu 12.04 LTS', or 'Ubuntu 14.04 LTS'.+-- -   'Microsoft Windows Server 2012 R2 Base'.+-- -   A custom AMI: 'Custom'. --+-- For more information on the supported operating systems, see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-os.html AWS OpsWorks Operating Systems>. ---ciInstallUpdatesOnBoot :: Lens' CreateInstance (Maybe Bool)-ciInstallUpdatesOnBoot =-    lens _ciInstallUpdatesOnBoot (\s a -> s { _ciInstallUpdatesOnBoot = a })+-- The default option is the current Amazon Linux version. If you set this+-- parameter to 'Custom', you must use the CreateInstance action\'s AmiId+-- parameter to specify the custom AMI that you want to use. For more+-- information on the supported operating systems, see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-os.html Operating Systems>For+-- more information on how to use custom AMIs with AWS OpsWorks, see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-custom-ami.html Using Custom AMIs>.+ciOS :: Lens' CreateInstance (Maybe Text)+ciOS = lens _ciOS (\ s a -> s{_ciOS = a}); --- | The instance type. AWS OpsWorks supports all instance types except Cluster--- Compute, Cluster GPU, and High Memory Cluster. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/instance-types.html Instance Families and Types>. The parameter values that you use to specify the various types are in the--- API Name column of the Available Instance Types table.-ciInstanceType :: Lens' CreateInstance Text-ciInstanceType = lens _ciInstanceType (\s a -> s { _ciInstanceType = a })+-- | The instance Availability Zone. For more information, see+-- <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints>.+ciAvailabilityZone :: Lens' CreateInstance (Maybe Text)+ciAvailabilityZone = lens _ciAvailabilityZone (\ s a -> s{_ciAvailabilityZone = a}); --- | An array that contains the instance layer IDs.-ciLayerIds :: Lens' CreateInstance [Text]-ciLayerIds = lens _ciLayerIds (\s a -> s { _ciLayerIds = a }) . _List+-- | For load-based or time-based instances, the type. Windows stacks can use+-- only time-based instances.+ciAutoScalingType :: Lens' CreateInstance (Maybe AutoScalingType)+ciAutoScalingType = lens _ciAutoScalingType (\ s a -> s{_ciAutoScalingType = a}); --- | The instance's operating system, which must be set to one of the following.------ For Windows stacks: Microsoft Windows Server 2012 R2.------ For Linux stacks:+-- | The instance architecture. The default option is 'x86_64'. Instance+-- types do not necessarily support both architectures. For a list of the+-- architectures that are supported by the different instance types, see+-- <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/instance-types.html Instance Families and Types>.+ciArchitecture :: Lens' CreateInstance (Maybe Architecture)+ciArchitecture = lens _ciArchitecture (\ s a -> s{_ciArchitecture = a});++-- | A custom AMI ID to be used to create the instance. The AMI should be+-- based on one of the supported operating systems. For more information,+-- see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-custom-ami.html Using Custom AMIs>. ----- Standard operating systems: an Amazon Linux version such as 'Amazon Linux2014.09', 'Ubuntu 12.04 LTS', or 'Ubuntu 14.04 LTS'. Custom AMIs: 'Custom'   The--- default option is the current Amazon Linux version. If you set this parameter--- to 'Custom', you must use the 'CreateInstance' action's AmiId parameter to--- specify the custom AMI that you want to use. For more information on the--- standard operating systems, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-os.html Operating Systems>For more information on how--- to use custom AMIs with OpsWorks, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-custom-ami.html Using Custom AMIs>.-ciOs :: Lens' CreateInstance (Maybe Text)-ciOs = lens _ciOs (\s a -> s { _ciOs = a })+-- If you specify a custom AMI, you must set 'Os' to 'Custom'.+ciAMIId :: Lens' CreateInstance (Maybe Text)+ciAMIId = lens _ciAMIId (\ s a -> s{_ciAMIId = a}); --- | The instance root device type. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ComponentsAMIs.html#storage-for-the-root-device Storage for the RootDevice>.-ciRootDeviceType :: Lens' CreateInstance (Maybe RootDeviceType)-ciRootDeviceType = lens _ciRootDeviceType (\s a -> s { _ciRootDeviceType = a })+-- | An array of 'BlockDeviceMapping' objects that specify the instance\'s+-- block devices. For more information, see+-- <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/block-device-mapping-concepts.html Block Device Mapping>.+ciBlockDeviceMappings :: Lens' CreateInstance [BlockDeviceMapping]+ciBlockDeviceMappings = lens _ciBlockDeviceMappings (\ s a -> s{_ciBlockDeviceMappings = a}) . _Default . _Coerce; --- | The instance's Amazon EC2 key pair name.-ciSshKeyName :: Lens' CreateInstance (Maybe Text)-ciSshKeyName = lens _ciSshKeyName (\s a -> s { _ciSshKeyName = a })+-- | The instance root device type. For more information, see+-- <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ComponentsAMIs.html#storage-for-the-root-device Storage for the Root Device>.+ciRootDeviceType :: Lens' CreateInstance (Maybe RootDeviceType)+ciRootDeviceType = lens _ciRootDeviceType (\ s a -> s{_ciRootDeviceType = a});  -- | The stack ID. ciStackId :: Lens' CreateInstance Text-ciStackId = lens _ciStackId (\s a -> s { _ciStackId = a })+ciStackId = lens _ciStackId (\ s a -> s{_ciStackId = a}); --- | The ID of the instance's subnet. If the stack is running in a VPC, you can--- use this parameter to override the stack's default subnet ID value and direct--- AWS OpsWorks to launch the instance in a different subnet.-ciSubnetId :: Lens' CreateInstance (Maybe Text)-ciSubnetId = lens _ciSubnetId (\s a -> s { _ciSubnetId = a })+-- | An array that contains the instance\'s layer IDs.+ciLayerIds :: Lens' CreateInstance [Text]+ciLayerIds = lens _ciLayerIds (\ s a -> s{_ciLayerIds = a}) . _Coerce; --- | The instance's virtualization type, 'paravirtual' or 'hvm'.-ciVirtualizationType :: Lens' CreateInstance (Maybe Text)-ciVirtualizationType =-    lens _ciVirtualizationType (\s a -> s { _ciVirtualizationType = a })+-- | The instance type, such as 't2.micro'. For a list of supported instance+-- types, open the stack in the console, choose __Instances__, and choose+-- __+ Instance__. The __Size__ list contains the currently supported+-- types. For more information, see+-- <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/instance-types.html Instance Families and Types>.+-- The parameter values that you use to specify the various types are in+-- the __API Name__ column of the __Available Instance Types__ table.+ciInstanceType :: Lens' CreateInstance Text+ciInstanceType = lens _ciInstanceType (\ s a -> s{_ciInstanceType = a}); -newtype CreateInstanceResponse = CreateInstanceResponse-    { _cirInstanceId :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+instance AWSRequest CreateInstance where+        type Sv CreateInstance = OpsWorks+        type Rs CreateInstance = CreateInstanceResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 CreateInstanceResponse' <$>+                   (x .?> "InstanceId") <*> (pure (fromEnum s))) --- | 'CreateInstanceResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'cirInstanceId' @::@ 'Maybe' 'Text'----createInstanceResponse :: CreateInstanceResponse-createInstanceResponse = CreateInstanceResponse-    { _cirInstanceId = Nothing-    }+instance ToHeaders CreateInstance where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OpsWorks_20130218.CreateInstance" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | The instance ID.-cirInstanceId :: Lens' CreateInstanceResponse (Maybe Text)-cirInstanceId = lens _cirInstanceId (\s a -> s { _cirInstanceId = a })+instance ToJSON CreateInstance where+        toJSON CreateInstance'{..}+          = object+              ["InstallUpdatesOnBoot" .= _ciInstallUpdatesOnBoot,+               "VirtualizationType" .= _ciVirtualizationType,+               "Hostname" .= _ciHostname,+               "SshKeyName" .= _ciSSHKeyName,+               "AgentVersion" .= _ciAgentVersion,+               "SubnetId" .= _ciSubnetId,+               "EbsOptimized" .= _ciEBSOptimized, "Os" .= _ciOS,+               "AvailabilityZone" .= _ciAvailabilityZone,+               "AutoScalingType" .= _ciAutoScalingType,+               "Architecture" .= _ciArchitecture,+               "AmiId" .= _ciAMIId,+               "BlockDeviceMappings" .= _ciBlockDeviceMappings,+               "RootDeviceType" .= _ciRootDeviceType,+               "StackId" .= _ciStackId, "LayerIds" .= _ciLayerIds,+               "InstanceType" .= _ciInstanceType]  instance ToPath CreateInstance where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateInstance where-    toQuery = const mempty--instance ToHeaders CreateInstance+        toQuery = const mempty -instance ToJSON CreateInstance where-    toJSON CreateInstance{..} = object-        [ "StackId"              .= _ciStackId-        , "LayerIds"             .= _ciLayerIds-        , "InstanceType"         .= _ciInstanceType-        , "AutoScalingType"      .= _ciAutoScalingType-        , "Hostname"             .= _ciHostname-        , "Os"                   .= _ciOs-        , "AmiId"                .= _ciAmiId-        , "SshKeyName"           .= _ciSshKeyName-        , "AvailabilityZone"     .= _ciAvailabilityZone-        , "VirtualizationType"   .= _ciVirtualizationType-        , "SubnetId"             .= _ciSubnetId-        , "Architecture"         .= _ciArchitecture-        , "RootDeviceType"       .= _ciRootDeviceType-        , "BlockDeviceMappings"  .= _ciBlockDeviceMappings-        , "InstallUpdatesOnBoot" .= _ciInstallUpdatesOnBoot-        , "EbsOptimized"         .= _ciEbsOptimized-        ]+-- | Contains the response to a 'CreateInstance' request.+--+-- /See:/ 'createInstanceResponse' smart constructor.+data CreateInstanceResponse = CreateInstanceResponse'+    { _cirsInstanceId :: !(Maybe Text)+    , _cirsStatus     :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CreateInstance where-    type Sv CreateInstance = OpsWorks-    type Rs CreateInstance = CreateInstanceResponse+-- | Creates a value of 'CreateInstanceResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cirsInstanceId'+--+-- * 'cirsStatus'+createInstanceResponse+    :: Int -- ^ 'cirsStatus'+    -> CreateInstanceResponse+createInstanceResponse pStatus_ =+    CreateInstanceResponse'+    { _cirsInstanceId = Nothing+    , _cirsStatus = pStatus_+    } -    request  = post "CreateInstance"-    response = jsonResponse+-- | The instance ID.+cirsInstanceId :: Lens' CreateInstanceResponse (Maybe Text)+cirsInstanceId = lens _cirsInstanceId (\ s a -> s{_cirsInstanceId = a}); -instance FromJSON CreateInstanceResponse where-    parseJSON = withObject "CreateInstanceResponse" $ \o -> CreateInstanceResponse-        <$> o .:? "InstanceId"+-- | The response status code.+cirsStatus :: Lens' CreateInstanceResponse Int+cirsStatus = lens _cirsStatus (\ s a -> s{_cirsStatus = a});

@@ -1,312 +1,341 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.OpsWorks.CreateLayer--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Creates a layer. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workinglayers-basics-create.html How to Create a Layer>.+-- Creates a layer. For more information, see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/workinglayers-basics-create.html How to Create a Layer>. ----- You should use CreateLayer for noncustom layer types such as PHP App Server--- only if the stack does not have an existing layer of that type. A stack can--- have at most one instance of each noncustom layer; if you attempt to create a--- second instance, CreateLayer fails. A stack can have an arbitrary number of--- custom layers, so you can call CreateLayer as many times as you like for that--- layer type.+-- You should use __CreateLayer__ for noncustom layer types such as PHP App+-- Server only if the stack does not have an existing layer of that type. A+-- stack can have at most one instance of each noncustom layer; if you+-- attempt to create a second instance, __CreateLayer__ fails. A stack can+-- have an arbitrary number of custom layers, so you can call+-- __CreateLayer__ as many times as you like for that layer type. ----- Required Permissions: To use this action, an IAM user must have a Manage--- permissions level for the stack, or an attached policy that explicitly grants--- permissions. For more information on user permissions, see <http://docs.aws.amazon.com/opsworks/latest/userguide/opsworks-security-users.html Managing UserPermissions>.+-- __Required Permissions__: To use this action, an IAM user must have a+-- Manage permissions level for the stack, or an attached policy that+-- explicitly grants permissions. For more information on user permissions,+-- see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/opsworks-security-users.html Managing User Permissions>. ----- <http://docs.aws.amazon.com/opsworks/latest/APIReference/API_CreateLayer.html>+-- /See:/ <http://docs.aws.amazon.com/opsworks/latest/APIReference/API_CreateLayer.html AWS API Reference> for CreateLayer. module Network.AWS.OpsWorks.CreateLayer     (-    -- * Request-      CreateLayer-    -- ** Request constructor-    , createLayer-    -- ** Request lenses-    , clAttributes-    , clAutoAssignElasticIps-    , clAutoAssignPublicIps-    , clCustomInstanceProfileArn-    , clCustomRecipes-    , clCustomSecurityGroupIds-    , clEnableAutoHealing+    -- * Creating a Request+      createLayer+    , CreateLayer+    -- * Request Lenses+    , clCustomInstanceProfileARN     , clInstallUpdatesOnBoot+    , clCustomSecurityGroupIds     , clLifecycleEventConfiguration-    , clName+    , clCustomRecipes+    , clVolumeConfigurations+    , clCustomJSON+    , clEnableAutoHealing     , clPackages-    , clShortname+    , clAttributes+    , clAutoAssignPublicIPs+    , clUseEBSOptimizedInstances+    , clAutoAssignElasticIPs     , clStackId     , clType-    , clUseEbsOptimizedInstances-    , clVolumeConfigurations+    , clName+    , clShortname -    -- * Response-    , CreateLayerResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createLayerResponse-    -- ** Response lenses-    , clrLayerId+    , CreateLayerResponse+    -- * Response Lenses+    , clrsLayerId+    , clrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.OpsWorks.Types-import qualified GHC.Exts+import           Network.AWS.OpsWorks.Types+import           Network.AWS.OpsWorks.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data CreateLayer = CreateLayer-    { _clAttributes                  :: Map LayerAttributesKeys Text-    , _clAutoAssignElasticIps        :: Maybe Bool-    , _clAutoAssignPublicIps         :: Maybe Bool-    , _clCustomInstanceProfileArn    :: Maybe Text-    , _clCustomRecipes               :: Maybe Recipes-    , _clCustomSecurityGroupIds      :: List "CustomSecurityGroupIds" Text-    , _clEnableAutoHealing           :: Maybe Bool-    , _clInstallUpdatesOnBoot        :: Maybe Bool-    , _clLifecycleEventConfiguration :: Maybe LifecycleEventConfiguration-    , _clName                        :: Text-    , _clPackages                    :: List "Packages" Text-    , _clShortname                   :: Text-    , _clStackId                     :: Text-    , _clType                        :: LayerType-    , _clUseEbsOptimizedInstances    :: Maybe Bool-    , _clVolumeConfigurations        :: List "VolumeConfigurations" VolumeConfiguration-    } deriving (Eq, Read, Show)+-- | /See:/ 'createLayer' smart constructor.+data CreateLayer = CreateLayer'+    { _clCustomInstanceProfileARN    :: !(Maybe Text)+    , _clInstallUpdatesOnBoot        :: !(Maybe Bool)+    , _clCustomSecurityGroupIds      :: !(Maybe [Text])+    , _clLifecycleEventConfiguration :: !(Maybe LifecycleEventConfiguration)+    , _clCustomRecipes               :: !(Maybe Recipes)+    , _clVolumeConfigurations        :: !(Maybe [VolumeConfiguration])+    , _clCustomJSON                  :: !(Maybe Text)+    , _clEnableAutoHealing           :: !(Maybe Bool)+    , _clPackages                    :: !(Maybe [Text])+    , _clAttributes                  :: !(Maybe (Map LayerAttributesKeys Text))+    , _clAutoAssignPublicIPs         :: !(Maybe Bool)+    , _clUseEBSOptimizedInstances    :: !(Maybe Bool)+    , _clAutoAssignElasticIPs        :: !(Maybe Bool)+    , _clStackId                     :: !Text+    , _clType                        :: !LayerType+    , _clName                        :: !Text+    , _clShortname                   :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'CreateLayer' constructor.+-- | Creates a value of 'CreateLayer' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'clAttributes' @::@ 'HashMap' 'LayerAttributesKeys' 'Text'+-- * 'clCustomInstanceProfileARN' ----- * 'clAutoAssignElasticIps' @::@ 'Maybe' 'Bool'+-- * 'clInstallUpdatesOnBoot' ----- * 'clAutoAssignPublicIps' @::@ 'Maybe' 'Bool'+-- * 'clCustomSecurityGroupIds' ----- * 'clCustomInstanceProfileArn' @::@ 'Maybe' 'Text'+-- * 'clLifecycleEventConfiguration' ----- * 'clCustomRecipes' @::@ 'Maybe' 'Recipes'+-- * 'clCustomRecipes' ----- * 'clCustomSecurityGroupIds' @::@ ['Text']+-- * 'clVolumeConfigurations' ----- * 'clEnableAutoHealing' @::@ 'Maybe' 'Bool'+-- * 'clCustomJSON' ----- * 'clInstallUpdatesOnBoot' @::@ 'Maybe' 'Bool'+-- * 'clEnableAutoHealing' ----- * 'clLifecycleEventConfiguration' @::@ 'Maybe' 'LifecycleEventConfiguration'+-- * 'clPackages' ----- * 'clName' @::@ 'Text'+-- * 'clAttributes' ----- * 'clPackages' @::@ ['Text']+-- * 'clAutoAssignPublicIPs' ----- * 'clShortname' @::@ 'Text'+-- * 'clUseEBSOptimizedInstances' ----- * 'clStackId' @::@ 'Text'+-- * 'clAutoAssignElasticIPs' ----- * 'clType' @::@ 'LayerType'+-- * 'clStackId' ----- * 'clUseEbsOptimizedInstances' @::@ 'Maybe' 'Bool'+-- * 'clType' ----- * 'clVolumeConfigurations' @::@ ['VolumeConfiguration']+-- * 'clName' ---createLayer :: Text -- ^ 'clStackId'-            -> LayerType -- ^ 'clType'-            -> Text -- ^ 'clName'-            -> Text -- ^ 'clShortname'-            -> CreateLayer-createLayer p1 p2 p3 p4 = CreateLayer-    { _clStackId                     = p1-    , _clType                        = p2-    , _clName                        = p3-    , _clShortname                   = p4-    , _clAttributes                  = mempty-    , _clCustomInstanceProfileArn    = Nothing-    , _clCustomSecurityGroupIds      = mempty-    , _clPackages                    = mempty-    , _clVolumeConfigurations        = mempty-    , _clEnableAutoHealing           = Nothing-    , _clAutoAssignElasticIps        = Nothing-    , _clAutoAssignPublicIps         = Nothing-    , _clCustomRecipes               = Nothing-    , _clInstallUpdatesOnBoot        = Nothing-    , _clUseEbsOptimizedInstances    = Nothing+-- * 'clShortname'+createLayer+    :: Text -- ^ 'clStackId'+    -> LayerType -- ^ 'clType'+    -> Text -- ^ 'clName'+    -> Text -- ^ 'clShortname'+    -> CreateLayer+createLayer pStackId_ pType_ pName_ pShortname_ =+    CreateLayer'+    { _clCustomInstanceProfileARN = Nothing+    , _clInstallUpdatesOnBoot = Nothing+    , _clCustomSecurityGroupIds = Nothing     , _clLifecycleEventConfiguration = Nothing+    , _clCustomRecipes = Nothing+    , _clVolumeConfigurations = Nothing+    , _clCustomJSON = Nothing+    , _clEnableAutoHealing = Nothing+    , _clPackages = Nothing+    , _clAttributes = Nothing+    , _clAutoAssignPublicIPs = Nothing+    , _clUseEBSOptimizedInstances = Nothing+    , _clAutoAssignElasticIPs = Nothing+    , _clStackId = pStackId_+    , _clType = pType_+    , _clName = pName_+    , _clShortname = pShortname_     } --- | One or more user-defined key/value pairs to be added to the stack attributes.-clAttributes :: Lens' CreateLayer (HashMap LayerAttributesKeys Text)-clAttributes = lens _clAttributes (\s a -> s { _clAttributes = a }) . _Map+-- | The ARN of an IAM profile to be used for the layer\'s EC2 instances. For+-- more information about IAM ARNs, see+-- <http://docs.aws.amazon.com/IAM/latest/UserGuide/Using_Identifiers.html Using Identifiers>.+clCustomInstanceProfileARN :: Lens' CreateLayer (Maybe Text)+clCustomInstanceProfileARN = lens _clCustomInstanceProfileARN (\ s a -> s{_clCustomInstanceProfileARN = a}); --- | Whether to automatically assign an <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/elastic-ip-addresses-eip.html Elastic IP address> to the layer's--- instances. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workinglayers-basics-edit.html How to Edit a Layer>.-clAutoAssignElasticIps :: Lens' CreateLayer (Maybe Bool)-clAutoAssignElasticIps =-    lens _clAutoAssignElasticIps (\s a -> s { _clAutoAssignElasticIps = a })+-- | Whether to install operating system and package updates when the+-- instance boots. The default value is 'true'. To control when updates are+-- installed, set this value to 'false'. You must then update your+-- instances manually by using CreateDeployment to run the+-- 'update_dependencies' stack command or by manually running 'yum' (Amazon+-- Linux) or 'apt-get' (Ubuntu) on the instances.+--+-- To ensure that your instances have the latest security updates, we+-- strongly recommend using the default value of 'true'.+clInstallUpdatesOnBoot :: Lens' CreateLayer (Maybe Bool)+clInstallUpdatesOnBoot = lens _clInstallUpdatesOnBoot (\ s a -> s{_clInstallUpdatesOnBoot = a}); --- | For stacks that are running in a VPC, whether to automatically assign a--- public IP address to the layer's instances. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workinglayers-basics-edit.html How toEdit a Layer>.-clAutoAssignPublicIps :: Lens' CreateLayer (Maybe Bool)-clAutoAssignPublicIps =-    lens _clAutoAssignPublicIps (\s a -> s { _clAutoAssignPublicIps = a })+-- | An array containing the layer custom security group IDs.+clCustomSecurityGroupIds :: Lens' CreateLayer [Text]+clCustomSecurityGroupIds = lens _clCustomSecurityGroupIds (\ s a -> s{_clCustomSecurityGroupIds = a}) . _Default . _Coerce; --- | The ARN of an IAM profile that to be used for the layer's EC2 instances. For--- more information about IAM ARNs, see <http://docs.aws.amazon.com/IAM/latest/UserGuide/Using_Identifiers.html Using Identifiers>.-clCustomInstanceProfileArn :: Lens' CreateLayer (Maybe Text)-clCustomInstanceProfileArn =-    lens _clCustomInstanceProfileArn-        (\s a -> s { _clCustomInstanceProfileArn = a })+-- | A 'LifeCycleEventConfiguration' object that you can use to configure the+-- Shutdown event to specify an execution timeout and enable or disable+-- Elastic Load Balancer connection draining.+clLifecycleEventConfiguration :: Lens' CreateLayer (Maybe LifecycleEventConfiguration)+clLifecycleEventConfiguration = lens _clLifecycleEventConfiguration (\ s a -> s{_clLifecycleEventConfiguration = a});  -- | A 'LayerCustomRecipes' object that specifies the layer custom recipes. clCustomRecipes :: Lens' CreateLayer (Maybe Recipes)-clCustomRecipes = lens _clCustomRecipes (\s a -> s { _clCustomRecipes = a })+clCustomRecipes = lens _clCustomRecipes (\ s a -> s{_clCustomRecipes = a}); --- | An array containing the layer custom security group IDs.-clCustomSecurityGroupIds :: Lens' CreateLayer [Text]-clCustomSecurityGroupIds =-    lens _clCustomSecurityGroupIds-        (\s a -> s { _clCustomSecurityGroupIds = a })-            . _List+-- | A 'VolumeConfigurations' object that describes the layer\'s Amazon EBS+-- volumes.+clVolumeConfigurations :: Lens' CreateLayer [VolumeConfiguration]+clVolumeConfigurations = lens _clVolumeConfigurations (\ s a -> s{_clVolumeConfigurations = a}) . _Default . _Coerce; +-- | A JSON-formatted string containing custom stack configuration and+-- deployment attributes to be installed on the layer\'s instances. For+-- more information, see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/workingcookbook-json-override.html Using Custom JSON>.+clCustomJSON :: Lens' CreateLayer (Maybe Text)+clCustomJSON = lens _clCustomJSON (\ s a -> s{_clCustomJSON = a});+ -- | Whether to disable auto healing for the layer. clEnableAutoHealing :: Lens' CreateLayer (Maybe Bool)-clEnableAutoHealing =-    lens _clEnableAutoHealing (\s a -> s { _clEnableAutoHealing = a })+clEnableAutoHealing = lens _clEnableAutoHealing (\ s a -> s{_clEnableAutoHealing = a}); --- | Whether to install operating system and package updates when the instance--- boots. The default value is 'true'. To control when updates are installed, set--- this value to 'false'. You must then update your instances manually by using 'CreateDeployment' to run the 'update_dependencies' stack command or manually running 'yum' (Amazon--- Linux) or 'apt-get' (Ubuntu) on the instances.------ We strongly recommend using the default value of 'true', to ensure that your--- instances have the latest security updates.-------clInstallUpdatesOnBoot :: Lens' CreateLayer (Maybe Bool)-clInstallUpdatesOnBoot =-    lens _clInstallUpdatesOnBoot (\s a -> s { _clInstallUpdatesOnBoot = a })+-- | An array of 'Package' objects that describes the layer packages.+clPackages :: Lens' CreateLayer [Text]+clPackages = lens _clPackages (\ s a -> s{_clPackages = a}) . _Default . _Coerce; --- | A LifeCycleEventConfiguration object that you can use to configure the--- Shutdown event to specify an execution timeout and enable or disable Elastic--- Load Balancer connection draining.-clLifecycleEventConfiguration :: Lens' CreateLayer (Maybe LifecycleEventConfiguration)-clLifecycleEventConfiguration =-    lens _clLifecycleEventConfiguration-        (\s a -> s { _clLifecycleEventConfiguration = a })+-- | One or more user-defined key-value pairs to be added to the stack+-- attributes.+--+-- To create a cluster layer, set the 'EcsClusterArn' attribute to the+-- cluster\'s ARN.+clAttributes :: Lens' CreateLayer (HashMap LayerAttributesKeys Text)+clAttributes = lens _clAttributes (\ s a -> s{_clAttributes = a}) . _Default . _Map; --- | The layer name, which is used by the console.-clName :: Lens' CreateLayer Text-clName = lens _clName (\s a -> s { _clName = a })+-- | For stacks that are running in a VPC, whether to automatically assign a+-- public IP address to the layer\'s instances. For more information, see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/workinglayers-basics-edit.html How to Edit a Layer>.+clAutoAssignPublicIPs :: Lens' CreateLayer (Maybe Bool)+clAutoAssignPublicIPs = lens _clAutoAssignPublicIPs (\ s a -> s{_clAutoAssignPublicIPs = a}); --- | An array of 'Package' objects that describe the layer packages.-clPackages :: Lens' CreateLayer [Text]-clPackages = lens _clPackages (\s a -> s { _clPackages = a }) . _List+-- | Whether to use Amazon EBS-optimized instances.+clUseEBSOptimizedInstances :: Lens' CreateLayer (Maybe Bool)+clUseEBSOptimizedInstances = lens _clUseEBSOptimizedInstances (\ s a -> s{_clUseEBSOptimizedInstances = a}); --- | For custom layers only, use this parameter to specify the layer's short name,--- which is used internally by AWS OpsWorks and by Chef recipes. The short name--- is also used as the name for the directory where your app files are--- installed. It can have a maximum of 200 characters, which are limited to the--- alphanumeric characters, '-', '_', and '.'.------ The built-in layers' short names are defined by AWS OpsWorks. For more--- information, see the <http://docs.aws.amazon.com/opsworks/latest/userguide/layers.html Layer Reference>-clShortname :: Lens' CreateLayer Text-clShortname = lens _clShortname (\s a -> s { _clShortname = a })+-- | Whether to automatically assign an+-- <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/elastic-ip-addresses-eip.html Elastic IP address>+-- to the layer\'s instances. For more information, see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/workinglayers-basics-edit.html How to Edit a Layer>.+clAutoAssignElasticIPs :: Lens' CreateLayer (Maybe Bool)+clAutoAssignElasticIPs = lens _clAutoAssignElasticIPs (\ s a -> s{_clAutoAssignElasticIPs = a});  -- | The layer stack ID. clStackId :: Lens' CreateLayer Text-clStackId = lens _clStackId (\s a -> s { _clStackId = a })+clStackId = lens _clStackId (\ s a -> s{_clStackId = a}); --- | The layer type. A stack cannot have more than one built-in layer of the same--- type. It can have any number of custom layers.+-- | The layer type. A stack cannot have more than one built-in layer of the+-- same type. It can have any number of custom layers. clType :: Lens' CreateLayer LayerType-clType = lens _clType (\s a -> s { _clType = a })+clType = lens _clType (\ s a -> s{_clType = a}); --- | Whether to use Amazon EBS-optimized instances.-clUseEbsOptimizedInstances :: Lens' CreateLayer (Maybe Bool)-clUseEbsOptimizedInstances =-    lens _clUseEbsOptimizedInstances-        (\s a -> s { _clUseEbsOptimizedInstances = a })+-- | The layer name, which is used by the console.+clName :: Lens' CreateLayer Text+clName = lens _clName (\ s a -> s{_clName = a}); --- | A 'VolumeConfigurations' object that describes the layer's Amazon EBS volumes.-clVolumeConfigurations :: Lens' CreateLayer [VolumeConfiguration]-clVolumeConfigurations =-    lens _clVolumeConfigurations (\s a -> s { _clVolumeConfigurations = a })-        . _List+-- | For custom layers only, use this parameter to specify the layer\'s short+-- name, which is used internally by AWS OpsWorks and by Chef recipes. The+-- short name is also used as the name for the directory where your app+-- files are installed. It can have a maximum of 200 characters, which are+-- limited to the alphanumeric characters, \'-\', \'_\', and \'.\'.+--+-- The built-in layers\' short names are defined by AWS OpsWorks. For more+-- information, see the+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/layers.html Layer Reference>.+clShortname :: Lens' CreateLayer Text+clShortname = lens _clShortname (\ s a -> s{_clShortname = a}); -newtype CreateLayerResponse = CreateLayerResponse-    { _clrLayerId :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+instance AWSRequest CreateLayer where+        type Sv CreateLayer = OpsWorks+        type Rs CreateLayer = CreateLayerResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 CreateLayerResponse' <$>+                   (x .?> "LayerId") <*> (pure (fromEnum s))) --- | 'CreateLayerResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'clrLayerId' @::@ 'Maybe' 'Text'----createLayerResponse :: CreateLayerResponse-createLayerResponse = CreateLayerResponse-    { _clrLayerId = Nothing-    }+instance ToHeaders CreateLayer where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OpsWorks_20130218.CreateLayer" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | The layer ID.-clrLayerId :: Lens' CreateLayerResponse (Maybe Text)-clrLayerId = lens _clrLayerId (\s a -> s { _clrLayerId = a })+instance ToJSON CreateLayer where+        toJSON CreateLayer'{..}+          = object+              ["CustomInstanceProfileArn" .=+                 _clCustomInstanceProfileARN,+               "InstallUpdatesOnBoot" .= _clInstallUpdatesOnBoot,+               "CustomSecurityGroupIds" .=+                 _clCustomSecurityGroupIds,+               "LifecycleEventConfiguration" .=+                 _clLifecycleEventConfiguration,+               "CustomRecipes" .= _clCustomRecipes,+               "VolumeConfigurations" .= _clVolumeConfigurations,+               "CustomJson" .= _clCustomJSON,+               "EnableAutoHealing" .= _clEnableAutoHealing,+               "Packages" .= _clPackages,+               "Attributes" .= _clAttributes,+               "AutoAssignPublicIps" .= _clAutoAssignPublicIPs,+               "UseEbsOptimizedInstances" .=+                 _clUseEBSOptimizedInstances,+               "AutoAssignElasticIps" .= _clAutoAssignElasticIPs,+               "StackId" .= _clStackId, "Type" .= _clType,+               "Name" .= _clName, "Shortname" .= _clShortname]  instance ToPath CreateLayer where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateLayer where-    toQuery = const mempty--instance ToHeaders CreateLayer+        toQuery = const mempty -instance ToJSON CreateLayer where-    toJSON CreateLayer{..} = object-        [ "StackId"                     .= _clStackId-        , "Type"                        .= _clType-        , "Name"                        .= _clName-        , "Shortname"                   .= _clShortname-        , "Attributes"                  .= _clAttributes-        , "CustomInstanceProfileArn"    .= _clCustomInstanceProfileArn-        , "CustomSecurityGroupIds"      .= _clCustomSecurityGroupIds-        , "Packages"                    .= _clPackages-        , "VolumeConfigurations"        .= _clVolumeConfigurations-        , "EnableAutoHealing"           .= _clEnableAutoHealing-        , "AutoAssignElasticIps"        .= _clAutoAssignElasticIps-        , "AutoAssignPublicIps"         .= _clAutoAssignPublicIps-        , "CustomRecipes"               .= _clCustomRecipes-        , "InstallUpdatesOnBoot"        .= _clInstallUpdatesOnBoot-        , "UseEbsOptimizedInstances"    .= _clUseEbsOptimizedInstances-        , "LifecycleEventConfiguration" .= _clLifecycleEventConfiguration-        ]+-- | Contains the response to a 'CreateLayer' request.+--+-- /See:/ 'createLayerResponse' smart constructor.+data CreateLayerResponse = CreateLayerResponse'+    { _clrsLayerId :: !(Maybe Text)+    , _clrsStatus  :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CreateLayer where-    type Sv CreateLayer = OpsWorks-    type Rs CreateLayer = CreateLayerResponse+-- | Creates a value of 'CreateLayerResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'clrsLayerId'+--+-- * 'clrsStatus'+createLayerResponse+    :: Int -- ^ 'clrsStatus'+    -> CreateLayerResponse+createLayerResponse pStatus_ =+    CreateLayerResponse'+    { _clrsLayerId = Nothing+    , _clrsStatus = pStatus_+    } -    request  = post "CreateLayer"-    response = jsonResponse+-- | The layer ID.+clrsLayerId :: Lens' CreateLayerResponse (Maybe Text)+clrsLayerId = lens _clrsLayerId (\ s a -> s{_clrsLayerId = a}); -instance FromJSON CreateLayerResponse where-    parseJSON = withObject "CreateLayerResponse" $ \o -> CreateLayerResponse-        <$> o .:? "LayerId"+-- | The response status code.+clrsStatus :: Lens' CreateLayerResponse Int+clrsStatus = lens _clrsStatus (\ s a -> s{_clrsStatus = a});