amazonka-opsworks 1.4.4 → 1.4.5

raw patch · 76 files changed

+4699/−5016 lines, 76 filesdep ~amazonka-coredep ~amazonka-opsworksdep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: amazonka-core, amazonka-opsworks, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +9/−64
• amazonka-opsworks.cabal +10/−69
• gen/Network/AWS/OpsWorks.hs +25/−22
• gen/Network/AWS/OpsWorks/AssignInstance.hs +10/−6
• gen/Network/AWS/OpsWorks/AssignVolume.hs +6/−4
• gen/Network/AWS/OpsWorks/AssociateElasticIP.hs +6/−4
• gen/Network/AWS/OpsWorks/AttachElasticLoadBalancer.hs +6/−6
• gen/Network/AWS/OpsWorks/CloneStack.hs +48/−120
• gen/Network/AWS/OpsWorks/CreateApp.hs +30/−30
• gen/Network/AWS/OpsWorks/CreateDeployment.hs +19/−19
• gen/Network/AWS/OpsWorks/CreateInstance.hs +42/−64
• gen/Network/AWS/OpsWorks/CreateLayer.hs +37/−41
• gen/Network/AWS/OpsWorks/CreateStack.hs +44/−112
• gen/Network/AWS/OpsWorks/CreateUserProfile.hs +18/−14
• gen/Network/AWS/OpsWorks/DeleteApp.hs +4/−2
• gen/Network/AWS/OpsWorks/DeleteInstance.hs +8/−6
• gen/Network/AWS/OpsWorks/DeleteLayer.hs +5/−3
• gen/Network/AWS/OpsWorks/DeleteStack.hs +5/−3
• gen/Network/AWS/OpsWorks/DeleteUserProfile.hs +5/−3
• gen/Network/AWS/OpsWorks/DeregisterEcsCluster.hs +6/−4
• gen/Network/AWS/OpsWorks/DeregisterElasticIP.hs +5/−3
• gen/Network/AWS/OpsWorks/DeregisterInstance.hs +4/−2
• gen/Network/AWS/OpsWorks/DeregisterRDSDBInstance.hs +5/−3
• gen/Network/AWS/OpsWorks/DeregisterVolume.hs +5/−3
• gen/Network/AWS/OpsWorks/DescribeAgentVersions.hs +11/−7
• gen/Network/AWS/OpsWorks/DescribeApps.hs +13/−11
• gen/Network/AWS/OpsWorks/DescribeCommands.hs +15/−13
• gen/Network/AWS/OpsWorks/DescribeDeployments.hs +15/−13
• gen/Network/AWS/OpsWorks/DescribeEcsClusters.hs +20/−16
• gen/Network/AWS/OpsWorks/DescribeElasticIPs.hs +16/−14
• gen/Network/AWS/OpsWorks/DescribeElasticLoadBalancers.hs +13/−11
• gen/Network/AWS/OpsWorks/DescribeInstances.hs +15/−13
• gen/Network/AWS/OpsWorks/DescribeLayers.hs +12/−10
• gen/Network/AWS/OpsWorks/DescribeLoadBasedAutoScaling.hs +10/−8
• gen/Network/AWS/OpsWorks/DescribeMyUserProfile.hs +11/−7
• gen/Network/AWS/OpsWorks/DescribePermissions.hs +13/−16
• gen/Network/AWS/OpsWorks/DescribeRAIdArrays.hs +15/−13
• gen/Network/AWS/OpsWorks/DescribeRDSDBInstances.hs +12/−8
• gen/Network/AWS/OpsWorks/DescribeServiceErrors.hs +16/−12
• gen/Network/AWS/OpsWorks/DescribeStackProvisioningParameters.hs +13/−9
• gen/Network/AWS/OpsWorks/DescribeStackSummary.hs +12/−8
• gen/Network/AWS/OpsWorks/DescribeStacks.hs +12/−8
• gen/Network/AWS/OpsWorks/DescribeTimeBasedAutoScaling.hs +10/−8
• gen/Network/AWS/OpsWorks/DescribeUserProfiles.hs +12/−8
• gen/Network/AWS/OpsWorks/DescribeVolumes.hs +17/−15
• gen/Network/AWS/OpsWorks/DetachElasticLoadBalancer.hs +6/−4
• gen/Network/AWS/OpsWorks/DisassociateElasticIP.hs +5/−3
• gen/Network/AWS/OpsWorks/GetHostnameSuggestion.hs +11/−7
• gen/Network/AWS/OpsWorks/GrantAccess.hs +12/−10
• gen/Network/AWS/OpsWorks/RebootInstance.hs +5/−3
• gen/Network/AWS/OpsWorks/RegisterEcsCluster.hs +14/−10
• gen/Network/AWS/OpsWorks/RegisterElasticIP.hs +12/−8
• gen/Network/AWS/OpsWorks/RegisterInstance.hs +20/−18
• gen/Network/AWS/OpsWorks/RegisterRDSDBInstance.hs +9/−7
• gen/Network/AWS/OpsWorks/RegisterVolume.hs +12/−8
• gen/Network/AWS/OpsWorks/SetLoadBasedAutoScaling.hs +9/−9
• gen/Network/AWS/OpsWorks/SetPermission.hs +11/−21
• gen/Network/AWS/OpsWorks/SetTimeBasedAutoScaling.hs +7/−5
• gen/Network/AWS/OpsWorks/StartInstance.hs +5/−3
• gen/Network/AWS/OpsWorks/StartStack.hs +5/−3
• gen/Network/AWS/OpsWorks/StopInstance.hs +5/−3
• gen/Network/AWS/OpsWorks/StopStack.hs +4/−2
• gen/Network/AWS/OpsWorks/Types.hs +5/−1
• gen/Network/AWS/OpsWorks/Types/Product.hs +3737/−3818
• gen/Network/AWS/OpsWorks/UnassignInstance.hs +5/−3
• gen/Network/AWS/OpsWorks/UnassignVolume.hs +5/−3
• gen/Network/AWS/OpsWorks/UpdateApp.hs +20/−22
• gen/Network/AWS/OpsWorks/UpdateElasticIP.hs +6/−4
• gen/Network/AWS/OpsWorks/UpdateInstance.hs +23/−49
• gen/Network/AWS/OpsWorks/UpdateLayer.hs +30/−32
• gen/Network/AWS/OpsWorks/UpdateMyUserProfile.hs +6/−4
• gen/Network/AWS/OpsWorks/UpdateRDSDBInstance.hs +7/−5
• gen/Network/AWS/OpsWorks/UpdateStack.hs +34/−90
• gen/Network/AWS/OpsWorks/UpdateUserProfile.hs +11/−9
• gen/Network/AWS/OpsWorks/UpdateVolume.hs +7/−5
• gen/Network/AWS/OpsWorks/Waiters.hs +6/−12

@@ -8,82 +8,27 @@  ## Version -`1.4.4`+`1.4.5`   ## Description -AWS OpsWorks--Welcome to the /AWS OpsWorks API Reference/. This guide provides descriptions, syntax, and usage examples for 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/sdkforruby/api/ 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 the following endpoints, all HTTPS. You must connect to one of the following endpoints. Stacks can only be accessed or managed within the endpoint in which they are created.---   opsworks.us-east-1.amazonaws.com---   opsworks.us-west-1.amazonaws.com---   opsworks.us-west-2.amazonaws.com---   opsworks.eu-west-1.amazonaws.com---   opsworks.eu-central-1.amazonaws.com---   opsworks.ap-northeast-1.amazonaws.com---   opsworks.ap-northeast-2.amazonaws.com---   opsworks.ap-south-1.amazonaws.com---   opsworks.ap-southeast-1.amazonaws.com---   opsworks.ap-southeast-2.amazonaws.com---   opsworks.sa-east-1.amazonaws.com--__Chef Versions__--When you call < CreateStack>, < CloneStack>, or < UpdateStack> we recommend you use the -    @-    ConfigurationManager-    @-     parameter to specify the Chef version. The recommended and default value for Linux stacks is currently 12. 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 specify Chef 12, 11.10, or 11.4 for your Linux stack. We recommend migrating your existing Linux stacks to Chef 12 as soon as possible.- Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-opsworks) and the [AWS API Reference](https://aws.amazon.com/documentation/).  The types from this library are intended to be used with [amazonka](http://hackage.haskell.org/package/amazonka),-which provides mechanisms for specifying AuthN/AuthZ information and sending requests.+which provides mechanisms for specifying AuthN/AuthZ information, sending requests,+and receiving responses. -Use of lenses is required for constructing and manipulating types.-This is due to the amount of nesting of AWS types and transparency regarding+Lenses are used for constructing and manipulating types,+due to the depth of nesting of AWS types and transparency regarding de/serialisation into more palatable Haskell values. The provided lenses should be compatible with any of the major lens libraries [lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core).++See [Network.AWS.OpsWorks](http://hackage.haskell.org/package/amazonka-opsworks/docs/Network-AWS-OpsWorks.html)+or [the AWS documentation](https://aws.amazon.com/documentation/) to get started.+  ## Contribute 

@@ -1,5 +1,5 @@ name:                  amazonka-opsworks-version:               1.4.4+version:               1.4.5 synopsis:              Amazon OpsWorks SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -13,78 +13,19 @@ cabal-version:         >= 1.10 extra-source-files:    README.md fixture/*.yaml fixture/*.proto src/.gitkeep description:-    AWS OpsWorks--    Welcome to the /AWS OpsWorks API Reference/. This guide provides descriptions, syntax, and usage examples for 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/sdkforruby/api/ 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 the following endpoints, all HTTPS. You must connect to one of the following endpoints. Stacks can only be accessed or managed within the endpoint in which they are created.--    -   opsworks.us-east-1.amazonaws.com--    -   opsworks.us-west-1.amazonaws.com--    -   opsworks.us-west-2.amazonaws.com--    -   opsworks.eu-west-1.amazonaws.com--    -   opsworks.eu-central-1.amazonaws.com--    -   opsworks.ap-northeast-1.amazonaws.com--    -   opsworks.ap-northeast-2.amazonaws.com--    -   opsworks.ap-south-1.amazonaws.com--    -   opsworks.ap-southeast-1.amazonaws.com--    -   opsworks.ap-southeast-2.amazonaws.com--    -   opsworks.sa-east-1.amazonaws.com--    __Chef Versions__--    When you call < CreateStack>, < CloneStack>, or < UpdateStack> we recommend you use the -    @-    ConfigurationManager-    @-     parameter to specify the Chef version. The recommended and default value for Linux stacks is currently 12. 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 specify Chef 12, 11.10, or 11.4 for your Linux stack. We recommend migrating your existing Linux stacks to Chef 12 as soon as possible.-    .     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.+    mechanisms for specifying AuthN/AuthZ information, sending requests,+    and receiving responses.     .-    Use of lenses is required for constructing and manipulating types.-    This is due to the amount of nesting of AWS types and transparency regarding+    Lenses are used for constructing and manipulating types,+    due to the depth of nesting of AWS types and transparency regarding     de/serialisation into more palatable Haskell values.     The provided lenses should be compatible with any of the major lens libraries     such as <http://hackage.haskell.org/package/lens lens> or     <http://hackage.haskell.org/package/lens-family-core lens-family-core>.     .-    See "Network.AWS.OpsWorks" or <https://aws.amazon.com/documentation/ the AWS Documentation>+    See "Network.AWS.OpsWorks" or <https://aws.amazon.com/documentation/ the AWS documentation>     to get started.  source-repository head@@ -177,7 +118,7 @@         , Network.AWS.OpsWorks.Types.Sum      build-depends:-          amazonka-core == 1.4.4.*+          amazonka-core == 1.4.5.*         , base          >= 4.7     && < 5  test-suite amazonka-opsworks-test@@ -197,9 +138,9 @@         , Test.AWS.OpsWorks.Internal      build-depends:-          amazonka-core == 1.4.4.*-        , amazonka-test == 1.4.4.*-        , amazonka-opsworks == 1.4.4.*+          amazonka-core == 1.4.5.*+        , amazonka-test == 1.4.5.*+        , amazonka-opsworks == 1.4.5.*         , base         , bytestring         , tasty

@@ -11,9 +11,9 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- AWS OpsWorks+-- __AWS OpsWorks__ ----- Welcome to the /AWS OpsWorks API Reference/. This guide provides descriptions, syntax, and usage examples for AWS OpsWorks actions and data types, including common parameters and error codes.+-- Welcome to the /AWS OpsWorks API Reference/ . This guide provides descriptions, syntax, and usage examples for 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. --@@ -21,51 +21,54 @@ -- -- 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/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/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/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/aws-sdk-php-2/latest/class-Aws.OpsWorks.OpsWorksClient.html AWS SDK for PHP 2> ----- -   <http://docs.aws.amazon.com/sdkforruby/api/ AWS SDK for Ruby>+--     * <http://docs.aws.amazon.com/sdkforruby/api/ AWS SDK for Ruby> ----- -   <http://aws.amazon.com/documentation/sdkforjavascript/ AWS SDK for Node.js>+--     * <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)>+--     * <http://docs.pythonboto.org/en/latest/ref/opsworks.html AWS SDK for Python(Boto)> --+--+-- -- __Endpoints__ -- -- AWS OpsWorks supports the following endpoints, all HTTPS. You must connect to one of the following endpoints. Stacks can only be accessed or managed within the endpoint in which they are created. ----- -   opsworks.us-east-1.amazonaws.com+--     * opsworks.us-east-1.amazonaws.com ----- -   opsworks.us-west-1.amazonaws.com+--     * opsworks.us-west-1.amazonaws.com ----- -   opsworks.us-west-2.amazonaws.com+--     * opsworks.us-west-2.amazonaws.com ----- -   opsworks.eu-west-1.amazonaws.com+--     * opsworks.eu-west-1.amazonaws.com ----- -   opsworks.eu-central-1.amazonaws.com+--     * opsworks.eu-central-1.amazonaws.com ----- -   opsworks.ap-northeast-1.amazonaws.com+--     * opsworks.ap-northeast-1.amazonaws.com ----- -   opsworks.ap-northeast-2.amazonaws.com+--     * opsworks.ap-northeast-2.amazonaws.com ----- -   opsworks.ap-south-1.amazonaws.com+--     * opsworks.ap-south-1.amazonaws.com ----- -   opsworks.ap-southeast-1.amazonaws.com+--     * opsworks.ap-southeast-1.amazonaws.com ----- -   opsworks.ap-southeast-2.amazonaws.com+--     * opsworks.ap-southeast-2.amazonaws.com ----- -   opsworks.sa-east-1.amazonaws.com+--     * opsworks.sa-east-1.amazonaws.com --+--+-- -- __Chef Versions__ ----- When you call < CreateStack>, < CloneStack>, or < UpdateStack> we recommend you use the 'ConfigurationManager' parameter to specify the Chef version. The recommended and default value for Linux stacks is currently 12. Windows stacks use Chef 12.2. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workingcookbook-chef11.html Chef Versions>.+-- When you call 'CreateStack' , 'CloneStack' , or 'UpdateStack' we recommend you use the @ConfigurationManager@ parameter to specify the Chef version. The recommended and default value for Linux stacks is currently 12. 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 specify Chef 12, 11.10, or 11.4 for your Linux stack. We recommend migrating your existing Linux stacks to Chef 12 as soon as possible. module Network.AWS.OpsWorks     (     -- * Service Configuration

@@ -20,13 +20,17 @@ -- -- 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 can assign registered on-premises instances to any layer type. ----- -   You cannot use this action with instances that were created with AWS OpsWorks.+--     * You can assign registered Amazon EC2 instances only to custom layers. ----- __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>.+--     * You cannot use this action with instances that were created with AWS OpsWorks.+--+--+--+-- __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> .+-- module Network.AWS.OpsWorks.AssignInstance     (     -- * Creating a Request@@ -58,9 +62,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'aiInstanceId'+-- * 'aiInstanceId' - The instance ID. ----- * 'aiLayerIds'+-- * 'aiLayerIds' - The layer ID, which must correspond to a custom layer. You cannot assign a registered instance to a built-in layer. assignInstance     :: Text -- ^ 'aiInstanceId'     -> AssignInstance

@@ -18,9 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- 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>.+-- 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 User Permissions>.+--+-- __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> .+-- module Network.AWS.OpsWorks.AssignVolume     (     -- * Creating a Request@@ -52,9 +54,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'avInstanceId'+-- * 'avInstanceId' - The instance ID. ----- * 'avVolumeId'+-- * 'avVolumeId' - The volume ID. assignVolume     :: Text -- ^ 'avVolumeId'     -> AssignVolume

@@ -18,9 +18,11 @@ -- 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>.+-- 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>.+--+-- __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> .+-- module Network.AWS.OpsWorks.AssociateElasticIP     (     -- * Creating a Request@@ -52,9 +54,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'aeiInstanceId'+-- * 'aeiInstanceId' - The instance ID. ----- * 'aeiElasticIP'+-- * 'aeiElasticIP' - The Elastic IP address. associateElasticIP     :: Text -- ^ 'aeiElasticIP'     -> AssociateElasticIP

@@ -18,11 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- 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>. ----- __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>.+-- __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> .+-- module Network.AWS.OpsWorks.AttachElasticLoadBalancer     (     -- * Creating a Request@@ -54,9 +54,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'aelbElasticLoadBalancerName'+-- * 'aelbElasticLoadBalancerName' - The Elastic Load Balancing instance's name. ----- * 'aelbLayerId'+-- * 'aelbLayerId' - The ID of the layer that the Elastic Load Balancing instance is to be attached to. attachElasticLoadBalancer     :: Text -- ^ 'aelbElasticLoadBalancerName'     -> Text -- ^ 'aelbLayerId'@@ -67,7 +67,7 @@     , _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}); 

@@ -18,9 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- 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.+-- 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> .+-- module Network.AWS.OpsWorks.CloneStack     (     -- * Creating a Request@@ -95,49 +97,49 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cDefaultInstanceProfileARN'+-- * 'cDefaultInstanceProfileARN' - 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> . ----- * 'cCloneAppIds'+-- * 'cCloneAppIds' - A list of source stack app IDs to be included in the cloned stack. ----- * 'cDefaultRootDeviceType'+-- * 'cDefaultRootDeviceType' - 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> . ----- * 'cVPCId'+-- * 'cVPCId' - 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> . ----- * 'cChefConfiguration'+-- * 'cChefConfiguration' - 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> . ----- * 'cAgentVersion'+-- * 'cAgentVersion' - 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' . ----- * 'cDefaultSSHKeyName'+-- * 'cDefaultSSHKeyName' - 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> . ----- * 'cCustomJSON'+-- * 'cCustomJSON' - 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: @"{\"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> ----- * 'cClonePermissions'+-- * 'cClonePermissions' - Whether to clone the source stack's permissions. ----- * 'cCustomCookbooksSource'+-- * 'cCustomCookbooksSource' - Undocumented member. ----- * 'cDefaultAvailabilityZone'+-- * 'cDefaultAvailabilityZone' - 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. ----- * 'cAttributes'+-- * 'cAttributes' - A list of stack attributes and values as key/value pairs to be added to the cloned stack. ----- * 'cName'+-- * 'cName' - The cloned stack name. ----- * 'cDefaultOS'+-- * 'cDefaultOS' - The stack's operating system, which must be set to one of the following.     * A supported Linux operating system: An Amazon Linux version, such as @Amazon Linux 2016.03@ , @Amazon Linux 2015.09@ , or @Amazon Linux 2015.03@ .     * A supported Ubuntu operating system, such as @Ubuntu 16.04 LTS@ , @Ubuntu 14.04 LTS@ , or @Ubuntu 12.04 LTS@ .     * @CentOS 7@      * @Red Hat Enterprise Linux 7@      * @Microsoft Windows Server 2012 R2 Base@ , @Microsoft Windows Server 2012 R2 with SQL Server Express@ , @Microsoft Windows Server 2012 R2 with SQL Server Standard@ , or @Microsoft Windows Server 2012 R2 with SQL Server Web@ .     * 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> . ----- * 'cUseOpsworksSecurityGroups'+-- * 'cUseOpsworksSecurityGroups' - 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> . ----- * 'cUseCustomCookbooks'+-- * 'cUseCustomCookbooks' - Whether to use custom cookbooks. ----- * 'cDefaultSubnetId'+-- * 'cDefaultSubnetId' - 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. ----- * 'cRegion'+-- * 'cRegion' - The cloned stack AWS region, such as "ap-northeast-2". For more information about AWS regions, see <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints> . ----- * 'cConfigurationManager'+-- * 'cConfigurationManager' - The configuration manager. When you clone a stack we recommend that you use the configuration manager to specify the Chef version: 12, 11.10, or 11.4 for Linux stacks, or 12.2 for Windows stacks. The default value for Linux stacks is currently 12. ----- * 'cHostnameTheme'+-- * 'cHostnameTheme' - 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. ----- * 'cSourceStackId'+-- * 'cSourceStackId' - The source stack ID. ----- * 'cServiceRoleARN'+-- * 'cServiceRoleARN' - 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> . cloneStack     :: Text -- ^ 'cSourceStackId'     -> Text -- ^ 'cServiceRoleARN'@@ -168,7 +170,7 @@     , _cServiceRoleARN = pServiceRoleARN_     } --- | 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>.+-- | 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}); @@ -176,57 +178,31 @@ cCloneAppIds :: Lens' CloneStack [Text] cCloneAppIds = lens _cCloneAppIds (\ s a -> s{_cCloneAppIds = a}) . _Default . _Coerce; --- | 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>.+-- | 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}); --- | 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>.+-- | 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> . cVPCId :: Lens' CloneStack (Maybe Text) cVPCId = lens _cVPCId (\ s a -> s{_cVPCId = 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>.+-- | 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}); --- | 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.+-- | 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' . cAgentVersion :: Lens' CloneStack (Maybe Text) cAgentVersion = lens _cAgentVersion (\ s a -> s{_cAgentVersion = 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>.+-- | 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}); --- | 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\\\",...}\"'------ 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>+-- | 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: @"{\"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}); --- | Whether to clone the source stack\'s permissions.+-- | Whether to clone the source stack's permissions. cClonePermissions :: Lens' CloneStack (Maybe Bool) cClonePermissions = lens _cClonePermissions (\ s a -> s{_cClonePermissions = a}); @@ -234,11 +210,11 @@ cCustomCookbooksSource :: Lens' CloneStack (Maybe Source) cCustomCookbooksSource = lens _cCustomCookbooksSource (\ s a -> s{_cCustomCookbooksSource = 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.+-- | 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}); --- | A list of stack attributes and values as key\/value pairs to be added to the cloned stack.+-- | 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; @@ -246,35 +222,11 @@ cName :: Lens' CloneStack (Maybe Text) cName = lens _cName (\ s a -> s{_cName = a}); --- | The stack\'s operating system, which must be set to one of the following.------ -   A supported Linux operating system: An Amazon Linux version, such as 'Amazon Linux 2016.03', 'Amazon Linux 2015.09', or 'Amazon Linux 2015.03'.------ -   A supported Ubuntu operating system, such as 'Ubuntu 16.04 LTS', 'Ubuntu 14.04 LTS', or 'Ubuntu 12.04 LTS'.------ -   'CentOS 7'------ -   'Red Hat Enterprise Linux 7'------ -   'Microsoft Windows Server 2012 R2 Base', 'Microsoft Windows Server 2012 R2 with SQL Server Express', 'Microsoft Windows Server 2012 R2 with SQL Server Standard', or 'Microsoft Windows Server 2012 R2 with SQL Server Web'.------ -   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>.------ You can specify a different Linux operating system for the cloned stack, but you cannot change from Linux to Windows or Windows to Linux.+-- | The stack's operating system, which must be set to one of the following.     * A supported Linux operating system: An Amazon Linux version, such as @Amazon Linux 2016.03@ , @Amazon Linux 2015.09@ , or @Amazon Linux 2015.03@ .     * A supported Ubuntu operating system, such as @Ubuntu 16.04 LTS@ , @Ubuntu 14.04 LTS@ , or @Ubuntu 12.04 LTS@ .     * @CentOS 7@      * @Red Hat Enterprise Linux 7@      * @Microsoft Windows Server 2012 R2 Base@ , @Microsoft Windows Server 2012 R2 with SQL Server Express@ , @Microsoft Windows Server 2012 R2 with SQL Server Standard@ , or @Microsoft Windows Server 2012 R2 with SQL Server Web@ .     * 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> . cDefaultOS :: Lens' CloneStack (Maybe Text) cDefaultOS = lens _cDefaultOS (\ s a -> s{_cDefaultOS = 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>.+-- | 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}); @@ -282,11 +234,11 @@ cUseCustomCookbooks :: Lens' CloneStack (Maybe Bool) cUseCustomCookbooks = lens _cUseCustomCookbooks (\ s a -> s{_cUseCustomCookbooks = 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.+-- | 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 cloned stack AWS region, such as \"ap-northeast-2\". For more information about AWS regions, see <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints>.+-- | The cloned stack AWS region, such as "ap-northeast-2". 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}); @@ -294,31 +246,7 @@ cConfigurationManager :: Lens' CloneStack (Maybe StackConfigurationManager) cConfigurationManager = lens _cConfigurationManager (\ s a -> s{_cConfigurationManager = 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.+-- | 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. cHostnameTheme :: Lens' CloneStack (Maybe Text) cHostnameTheme = lens _cHostnameTheme (\ s a -> s{_cHostnameTheme = a}); @@ -326,9 +254,7 @@ 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>.------ 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.+-- | 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> . cServiceRoleARN :: Lens' CloneStack Text cServiceRoleARN = lens _cServiceRoleARN (\ s a -> s{_cServiceRoleARN = a}); @@ -393,8 +319,10 @@ instance ToQuery CloneStack where         toQuery = const mempty --- | Contains the response to a 'CloneStack' request.+-- | Contains the response to a @CloneStack@ request. --+--+-- -- /See:/ 'cloneStackResponse' smart constructor. data CloneStackResponse = CloneStackResponse'     { _csrsStackId        :: !(Maybe Text)@@ -405,9 +333,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'csrsStackId'+-- * 'csrsStackId' - The cloned stack ID. ----- * 'csrsResponseStatus'+-- * 'csrsResponseStatus' - -- | The response status code. cloneStackResponse     :: Int -- ^ 'csrsResponseStatus'     -> CloneStackResponse@@ -421,7 +349,7 @@ csrsStackId :: Lens' CloneStackResponse (Maybe Text) csrsStackId = lens _csrsStackId (\ s a -> s{_csrsStackId = a}); --- | The response status code.+-- | -- | The response status code. csrsResponseStatus :: Lens' CloneStackResponse Int csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a}); 

@@ -18,9 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- 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 User Permissions>.+--+-- __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> .+-- module Network.AWS.OpsWorks.CreateApp     (     -- * Creating a Request@@ -75,29 +77,29 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'caSSLConfiguration'+-- * 'caSSLConfiguration' - An @SslConfiguration@ object with the SSL configuration. ----- * 'caEnvironment'+-- * 'caEnvironment' - 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)." ----- * 'caEnableSSL'+-- * 'caEnableSSL' - Whether to enable SSL for the app. ----- * 'caShortname'+-- * 'caShortname' - The app's short name. ----- * 'caDataSources'+-- * 'caDataSources' - The app's data source. ----- * 'caAppSource'+-- * 'caAppSource' - A @Source@ object that specifies the app repository. ----- * 'caAttributes'+-- * 'caAttributes' - One or more user-defined key/value pairs to be added to the stack attributes. ----- * 'caDomains'+-- * 'caDomains' - The app virtual host settings, with multiple domains separated by commas. For example: @'www.example.com, example.com'@ ----- * 'caDescription'+-- * 'caDescription' - A description of the app. ----- * 'caStackId'+-- * 'caStackId' - The stack ID. ----- * 'caName'+-- * 'caName' - The app name. ----- * 'caType'+-- * 'caType' - 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@ . createApp     :: Text -- ^ 'caStackId'     -> Text -- ^ 'caName'@@ -119,15 +121,11 @@     , _caType = pType_     } --- | An 'SslConfiguration' object with the SSL configuration.+-- | An @SslConfiguration@ object with the SSL configuration. caSSLConfiguration :: Lens' CreateApp (Maybe SSLConfiguration) caSSLConfiguration = lens _caSSLConfiguration (\ s a -> s{_caSSLConfiguration = 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>.------ 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.+-- | 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)." caEnvironment :: Lens' CreateApp [EnvironmentVariable] caEnvironment = lens _caEnvironment (\ s a -> s{_caEnvironment = a}) . _Default . _Coerce; @@ -135,23 +133,23 @@ caEnableSSL :: Lens' CreateApp (Maybe Bool) caEnableSSL = lens _caEnableSSL (\ s a -> s{_caEnableSSL = a}); --- | The app\'s short name.+-- | The app's short name. caShortname :: Lens' CreateApp (Maybe Text) caShortname = lens _caShortname (\ s a -> s{_caShortname = a}); --- | The app\'s data source.+-- | The app's data source. caDataSources :: Lens' CreateApp [DataSource] caDataSources = lens _caDataSources (\ s a -> s{_caDataSources = a}) . _Default . _Coerce; --- | A 'Source' object that specifies the app repository.+-- | 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.+-- | 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\''+-- | 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; @@ -167,7 +165,7 @@ 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'.+-- | 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}); @@ -215,8 +213,10 @@ instance ToQuery CreateApp where         toQuery = const mempty --- | Contains the response to a 'CreateApp' request.+-- | Contains the response to a @CreateApp@ request. --+--+-- -- /See:/ 'createAppResponse' smart constructor. data CreateAppResponse = CreateAppResponse'     { _carsAppId          :: !(Maybe Text)@@ -227,9 +227,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'carsAppId'+-- * 'carsAppId' - The app ID. ----- * 'carsResponseStatus'+-- * 'carsResponseStatus' - -- | The response status code. createAppResponse     :: Int -- ^ 'carsResponseStatus'     -> CreateAppResponse@@ -243,7 +243,7 @@ carsAppId :: Lens' CreateAppResponse (Maybe Text) carsAppId = lens _carsAppId (\ s a -> s{_carsAppId = a}); --- | The response status code.+-- | -- | The response status code. carsResponseStatus :: Lens' CreateAppResponse Int carsResponseStatus = lens _carsResponseStatus (\ s a -> s{_carsResponseStatus = a}); 

@@ -18,9 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- 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 Managing User 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> .+-- module Network.AWS.OpsWorks.CreateDeployment     (     -- * Creating a Request@@ -65,19 +67,19 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cdCustomJSON'+-- * 'cdCustomJSON' - 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: @"{\"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> . ----- * 'cdAppId'+-- * 'cdAppId' - The app ID. This parameter is required for app deployments, but not for other deployment commands. ----- * 'cdInstanceIds'+-- * 'cdInstanceIds' - The instance IDs for the deployment targets. ----- * 'cdLayerIds'+-- * 'cdLayerIds' - The layer IDs for the deployment targets. ----- * 'cdComment'+-- * 'cdComment' - A user-defined comment. ----- * 'cdStackId'+-- * 'cdStackId' - The stack ID. ----- * 'cdCommand'+-- * 'cdCommand' - A @DeploymentCommand@ object that specifies the deployment command and any associated arguments. createDeployment     :: Text -- ^ 'cdStackId'     -> DeploymentCommand -- ^ 'cdCommand'@@ -93,11 +95,7 @@     , _cdCommand = pCommand_     } --- | 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\\\",...}\"'------ 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>.+-- | 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: @"{\"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> . cdCustomJSON :: Lens' CreateDeployment (Maybe Text) cdCustomJSON = lens _cdCustomJSON (\ s a -> s{_cdCustomJSON = a}); @@ -121,7 +119,7 @@ cdStackId :: Lens' CreateDeployment Text cdStackId = lens _cdStackId (\ s a -> s{_cdStackId = a}); --- | A 'DeploymentCommand' object that specifies the deployment command and any associated arguments.+-- | A @DeploymentCommand@ object that specifies the deployment command and any associated arguments. cdCommand :: Lens' CreateDeployment DeploymentCommand cdCommand = lens _cdCommand (\ s a -> s{_cdCommand = a}); @@ -165,8 +163,10 @@ instance ToQuery CreateDeployment where         toQuery = const mempty --- | Contains the response to a 'CreateDeployment' request.+-- | Contains the response to a @CreateDeployment@ request. --+--+-- -- /See:/ 'createDeploymentResponse' smart constructor. data CreateDeploymentResponse = CreateDeploymentResponse'     { _cdrsDeploymentId   :: !(Maybe Text)@@ -177,9 +177,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cdrsDeploymentId'+-- * 'cdrsDeploymentId' - The deployment ID, which can be used with other requests to identify the deployment. ----- * 'cdrsResponseStatus'+-- * 'cdrsResponseStatus' - -- | The response status code. createDeploymentResponse     :: Int -- ^ 'cdrsResponseStatus'     -> CreateDeploymentResponse@@ -193,7 +193,7 @@ cdrsDeploymentId :: Lens' CreateDeploymentResponse (Maybe Text) cdrsDeploymentId = lens _cdrsDeploymentId (\ s a -> s{_cdrsDeploymentId = a}); --- | The response status code.+-- | -- | The response status code. cdrsResponseStatus :: Lens' CreateDeploymentResponse Int cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a}); 

@@ -18,9 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- 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>.+-- 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 User Permissions>.+--+-- __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> .+-- module Network.AWS.OpsWorks.CreateInstance     (     -- * Creating a Request@@ -87,41 +89,41 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ciInstallUpdatesOnBoot'+-- * 'ciInstallUpdatesOnBoot' - 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. ----- * 'ciVirtualizationType'+-- * 'ciVirtualizationType' - The instance's virtualization type, @paravirtual@ or @hvm@ . ----- * 'ciHostname'+-- * 'ciHostname' - The instance host name. ----- * 'ciSSHKeyName'+-- * 'ciSSHKeyName' - The instance's Amazon EC2 key-pair name. ----- * 'ciAgentVersion'+-- * 'ciAgentVersion' - 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' . ----- * 'ciSubnetId'+-- * 'ciSubnetId' - 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. ----- * 'ciEBSOptimized'+-- * 'ciEBSOptimized' - Whether to create an Amazon EBS-optimized instance. ----- * 'ciOS'+-- * 'ciOS' - The instance's operating system, which must be set to one of the following.     * A supported Linux operating system: An Amazon Linux version, such as @Amazon Linux 2016.03@ , @Amazon Linux 2015.09@ , or @Amazon Linux 2015.03@ .     * A supported Ubuntu operating system, such as @Ubuntu 16.04 LTS@ , @Ubuntu 14.04 LTS@ , or @Ubuntu 12.04 LTS@ .     * @CentOS 7@      * @Red Hat Enterprise Linux 7@      * A supported Windows operating system, such as @Microsoft Windows Server 2012 R2 Base@ , @Microsoft Windows Server 2012 R2 with SQL Server Express@ , @Microsoft Windows Server 2012 R2 with SQL Server Standard@ , or @Microsoft Windows Server 2012 R2 with SQL Server Web@ .     * 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> . 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. Block device mappings are not supported if the value is @Custom@ . 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> . ----- * 'ciAvailabilityZone'+-- * 'ciAvailabilityZone' - The instance Availability Zone. For more information, see <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints> . ----- * 'ciTenancy'+-- * 'ciTenancy' - The instance's tenancy option. The default option is no tenancy, or if the instance is running in a VPC, inherit tenancy settings from the VPC. The following are valid values for this parameter: @dedicated@ , @default@ , or @host@ . Because there are costs associated with changes in tenancy options, we recommend that you research tenancy options before choosing them for your instances. For more information about dedicated hosts, see <http://aws.amazon.com/ec2/dedicated-hosts/ Dedicated Hosts Overview> and <http://aws.amazon.com/ec2/dedicated-hosts/ Amazon EC2 Dedicated Hosts> . For more information about dedicated instances, see <http://docs.aws.amazon.com/AmazonVPC/latest/UserGuide/dedicated-instance.html Dedicated Instances> and <http://aws.amazon.com/ec2/purchasing-options/dedicated-instances/ Amazon EC2 Dedicated Instances> . ----- * 'ciAutoScalingType'+-- * 'ciAutoScalingType' - For load-based or time-based instances, the type. Windows stacks can use only time-based instances. ----- * 'ciArchitecture'+-- * 'ciArchitecture' - 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> . ----- * 'ciAMIId'+-- * 'ciAMIId' - 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> . ----- * 'ciRootDeviceType'+-- * 'ciRootDeviceType' - 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> . ----- * 'ciBlockDeviceMappings'+-- * 'ciBlockDeviceMappings' - 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> . Note that block device mappings are not supported for custom AMIs. ----- * 'ciStackId'+-- * 'ciStackId' - The stack ID. ----- * 'ciLayerIds'+-- * 'ciLayerIds' - An array that contains the instance's layer IDs. ----- * 'ciInstanceType'+-- * 'ciInstanceType' - 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. createInstance     :: Text -- ^ 'ciStackId'     -> Text -- ^ 'ciInstanceType'@@ -148,13 +150,11 @@     , _ciInstanceType = pInstanceType_     } --- | 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.------ We strongly recommend using the default value of 'true' to ensure that your instances have the latest security updates.+-- | 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. ciInstallUpdatesOnBoot :: Lens' CreateInstance (Maybe Bool) ciInstallUpdatesOnBoot = lens _ciInstallUpdatesOnBoot (\ s a -> s{_ciInstallUpdatesOnBoot = a}); --- | The instance\'s virtualization type, 'paravirtual' or 'hvm'.+-- | The instance's virtualization type, @paravirtual@ or @hvm@ . ciVirtualizationType :: Lens' CreateInstance (Maybe Text) ciVirtualizationType = lens _ciVirtualizationType (\ s a -> s{_ciVirtualizationType = a}); @@ -162,21 +162,15 @@ ciHostname :: Lens' CreateInstance (Maybe Text) ciHostname = lens _ciHostname (\ s a -> s{_ciHostname = a}); --- | The instance\'s Amazon EC2 key-pair name.+-- | The instance's Amazon EC2 key-pair name. ciSSHKeyName :: Lens' CreateInstance (Maybe Text) ciSSHKeyName = lens _ciSSHKeyName (\ s a -> s{_ciSSHKeyName = a}); --- | 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>.+-- | 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}); --- | 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.+-- | 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}); @@ -184,31 +178,15 @@ ciEBSOptimized :: Lens' CreateInstance (Maybe Bool) ciEBSOptimized = lens _ciEBSOptimized (\ s a -> s{_ciEBSOptimized = a}); --- | The instance\'s operating system, which must be set to one of the following.------ -   A supported Linux operating system: An Amazon Linux version, such as 'Amazon Linux 2016.03', 'Amazon Linux 2015.09', or 'Amazon Linux 2015.03'.------ -   A supported Ubuntu operating system, such as 'Ubuntu 16.04 LTS', 'Ubuntu 14.04 LTS', or 'Ubuntu 12.04 LTS'.------ -   'CentOS 7'------ -   'Red Hat Enterprise Linux 7'------ -   A supported Windows operating system, such as 'Microsoft Windows Server 2012 R2 Base', 'Microsoft Windows Server 2012 R2 with SQL Server Express', 'Microsoft Windows Server 2012 R2 with SQL Server Standard', or 'Microsoft Windows Server 2012 R2 with SQL Server Web'.------ -   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>.------ 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. Block device mappings are not supported if the value is 'Custom'. 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>.+-- | The instance's operating system, which must be set to one of the following.     * A supported Linux operating system: An Amazon Linux version, such as @Amazon Linux 2016.03@ , @Amazon Linux 2015.09@ , or @Amazon Linux 2015.03@ .     * A supported Ubuntu operating system, such as @Ubuntu 16.04 LTS@ , @Ubuntu 14.04 LTS@ , or @Ubuntu 12.04 LTS@ .     * @CentOS 7@      * @Red Hat Enterprise Linux 7@      * A supported Windows operating system, such as @Microsoft Windows Server 2012 R2 Base@ , @Microsoft Windows Server 2012 R2 with SQL Server Express@ , @Microsoft Windows Server 2012 R2 with SQL Server Standard@ , or @Microsoft Windows Server 2012 R2 with SQL Server Web@ .     * 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> . 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. Block device mappings are not supported if the value is @Custom@ . 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 Availability Zone. For more information, see <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints>.+-- | 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}); --- | The instance\'s tenancy option. The default option is no tenancy, or if the instance is running in a VPC, inherit tenancy settings from the VPC. The following are valid values for this parameter: 'dedicated', 'default', or 'host'. Because there are costs associated with changes in tenancy options, we recommend that you research tenancy options before choosing them for your instances. For more information about dedicated hosts, see <http://aws.amazon.com/ec2/dedicated-hosts/ Dedicated Hosts Overview> and <http://aws.amazon.com/ec2/dedicated-hosts/ Amazon EC2 Dedicated Hosts>. For more information about dedicated instances, see <http://docs.aws.amazon.com/AmazonVPC/latest/UserGuide/dedicated-instance.html Dedicated Instances> and <http://aws.amazon.com/ec2/purchasing-options/dedicated-instances/ Amazon EC2 Dedicated Instances>.+-- | The instance's tenancy option. The default option is no tenancy, or if the instance is running in a VPC, inherit tenancy settings from the VPC. The following are valid values for this parameter: @dedicated@ , @default@ , or @host@ . Because there are costs associated with changes in tenancy options, we recommend that you research tenancy options before choosing them for your instances. For more information about dedicated hosts, see <http://aws.amazon.com/ec2/dedicated-hosts/ Dedicated Hosts Overview> and <http://aws.amazon.com/ec2/dedicated-hosts/ Amazon EC2 Dedicated Hosts> . For more information about dedicated instances, see <http://docs.aws.amazon.com/AmazonVPC/latest/UserGuide/dedicated-instance.html Dedicated Instances> and <http://aws.amazon.com/ec2/purchasing-options/dedicated-instances/ Amazon EC2 Dedicated Instances> . ciTenancy :: Lens' CreateInstance (Maybe Text) ciTenancy = lens _ciTenancy (\ s a -> s{_ciTenancy = a}); @@ -216,21 +194,19 @@ ciAutoScalingType :: Lens' CreateInstance (Maybe AutoScalingType) ciAutoScalingType = lens _ciAutoScalingType (\ s a -> s{_ciAutoScalingType = 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 and Types>.+-- | 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>.------ If you specify a custom AMI, you must set 'Os' to 'Custom'.+-- | 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> . 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 Root Device>.+-- | 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}); --- | 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>. Note that block device mappings are not supported for custom AMIs.+-- | 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> . Note that block device mappings are not supported for custom AMIs. ciBlockDeviceMappings :: Lens' CreateInstance [BlockDeviceMapping] ciBlockDeviceMappings = lens _ciBlockDeviceMappings (\ s a -> s{_ciBlockDeviceMappings = a}) . _Default . _Coerce; @@ -238,11 +214,11 @@ ciStackId :: Lens' CreateInstance Text ciStackId = lens _ciStackId (\ s a -> s{_ciStackId = a}); --- | An array that contains the instance\'s layer IDs.+-- | An array that contains the instance's layer IDs. ciLayerIds :: Lens' CreateInstance [Text] ciLayerIds = lens _ciLayerIds (\ s a -> s{_ciLayerIds = a}) . _Coerce; --- | 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.+-- | 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}); @@ -299,8 +275,10 @@ instance ToQuery CreateInstance where         toQuery = const mempty --- | Contains the response to a 'CreateInstance' request.+-- | Contains the response to a @CreateInstance@ request. --+--+-- -- /See:/ 'createInstanceResponse' smart constructor. data CreateInstanceResponse = CreateInstanceResponse'     { _cirsInstanceId     :: !(Maybe Text)@@ -311,9 +289,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cirsInstanceId'+-- * 'cirsInstanceId' - The instance ID. ----- * 'cirsResponseStatus'+-- * 'cirsResponseStatus' - -- | The response status code. createInstanceResponse     :: Int -- ^ 'cirsResponseStatus'     -> CreateInstanceResponse@@ -327,7 +305,7 @@ cirsInstanceId :: Lens' CreateInstanceResponse (Maybe Text) cirsInstanceId = lens _cirsInstanceId (\ s a -> s{_cirsInstanceId = a}); --- | The response status code.+-- | -- | The response status code. cirsResponseStatus :: Lens' CreateInstanceResponse Int cirsResponseStatus = lens _cirsResponseStatus (\ s a -> s{_cirsResponseStatus = a}); 

@@ -18,11 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- 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. ----- __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>.+-- __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> .+-- module Network.AWS.OpsWorks.CreateLayer     (     -- * Creating a Request@@ -87,39 +87,39 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'clCustomInstanceProfileARN'+-- * 'clCustomInstanceProfileARN' - 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> . ----- * 'clCustomSecurityGroupIds'+-- * 'clCustomSecurityGroupIds' - An array containing the layer custom security group IDs. ----- * 'clInstallUpdatesOnBoot'+-- * 'clInstallUpdatesOnBoot' - 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. ----- * 'clLifecycleEventConfiguration'+-- * 'clLifecycleEventConfiguration' - 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. ----- * 'clCustomRecipes'+-- * 'clCustomRecipes' - A @LayerCustomRecipes@ object that specifies the layer custom recipes. ----- * 'clCustomJSON'+-- * 'clCustomJSON' - 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> . This feature is supported as of version 1.7.42 of the AWS CLI. ----- * 'clVolumeConfigurations'+-- * 'clVolumeConfigurations' - A @VolumeConfigurations@ object that describes the layer's Amazon EBS volumes. ----- * 'clEnableAutoHealing'+-- * 'clEnableAutoHealing' - Whether to disable auto healing for the layer. ----- * 'clPackages'+-- * 'clPackages' - An array of @Package@ objects that describes the layer packages. ----- * 'clAttributes'+-- * 'clAttributes' - 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. ----- * 'clAutoAssignPublicIPs'+-- * 'clAutoAssignPublicIPs' - 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> . ----- * 'clUseEBSOptimizedInstances'+-- * 'clUseEBSOptimizedInstances' - Whether to use Amazon EBS-optimized instances. ----- * 'clAutoAssignElasticIPs'+-- * 'clAutoAssignElasticIPs' - 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> . ----- * 'clStackId'+-- * 'clStackId' - The layer stack ID. ----- * 'clType'+-- * 'clType' - 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. Built-in layers are not available in Chef 12 stacks. ----- * 'clName'+-- * 'clName' - The layer name, which is used by the console. ----- * 'clShortname'+-- * 'clShortname' - 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> . createLayer     :: Text -- ^ 'clStackId'     -> LayerType -- ^ 'clType'@@ -147,7 +147,7 @@     , _clShortname = pShortname_     } --- | 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>.+-- | 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}); @@ -155,25 +155,23 @@ clCustomSecurityGroupIds :: Lens' CreateLayer [Text] clCustomSecurityGroupIds = lens _clCustomSecurityGroupIds (\ s a -> s{_clCustomSecurityGroupIds = a}) . _Default . _Coerce; --- | 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'.+-- | 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. clInstallUpdatesOnBoot :: Lens' CreateLayer (Maybe Bool) clInstallUpdatesOnBoot = lens _clInstallUpdatesOnBoot (\ s a -> s{_clInstallUpdatesOnBoot = 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.+-- | 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.+-- | A @LayerCustomRecipes@ object that specifies the layer custom recipes. clCustomRecipes :: Lens' CreateLayer (Maybe Recipes) clCustomRecipes = lens _clCustomRecipes (\ s a -> s{_clCustomRecipes = a}); --- | 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>. This feature is supported as of version 1.7.42 of the AWS CLI.+-- | 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> . This feature is supported as of version 1.7.42 of the AWS CLI. clCustomJSON :: Lens' CreateLayer (Maybe Text) clCustomJSON = lens _clCustomJSON (\ s a -> s{_clCustomJSON = a}); --- | A 'VolumeConfigurations' object that describes the layer\'s Amazon EBS volumes.+-- | 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; @@ -181,17 +179,15 @@ clEnableAutoHealing :: Lens' CreateLayer (Maybe Bool) clEnableAutoHealing = lens _clEnableAutoHealing (\ s a -> s{_clEnableAutoHealing = a}); --- | An array of 'Package' objects that describes the layer packages.+-- | An array of @Package@ objects that describes the layer packages. clPackages :: Lens' CreateLayer [Text] clPackages = lens _clPackages (\ s a -> s{_clPackages = a}) . _Default . _Coerce; --- | 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.+-- | 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; --- | 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>.+-- | 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}); @@ -199,7 +195,7 @@ clUseEBSOptimizedInstances :: Lens' CreateLayer (Maybe Bool) clUseEBSOptimizedInstances = lens _clUseEBSOptimizedInstances (\ s a -> s{_clUseEBSOptimizedInstances = 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>.+-- | 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}); @@ -215,9 +211,7 @@ clName :: Lens' CreateLayer Text clName = lens _clName (\ s a -> s{_clName = 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>.+-- | 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}); @@ -278,8 +272,10 @@ instance ToQuery CreateLayer where         toQuery = const mempty --- | Contains the response to a 'CreateLayer' request.+-- | Contains the response to a @CreateLayer@ request. --+--+-- -- /See:/ 'createLayerResponse' smart constructor. data CreateLayerResponse = CreateLayerResponse'     { _clrsLayerId        :: !(Maybe Text)@@ -290,9 +286,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'clrsLayerId'+-- * 'clrsLayerId' - The layer ID. ----- * 'clrsResponseStatus'+-- * 'clrsResponseStatus' - -- | The response status code. createLayerResponse     :: Int -- ^ 'clrsResponseStatus'     -> CreateLayerResponse@@ -306,7 +302,7 @@ clrsLayerId :: Lens' CreateLayerResponse (Maybe Text) clrsLayerId = lens _clrsLayerId (\ s a -> s{_clrsLayerId = a}); --- | The response status code.+-- | -- | The response status code. clrsResponseStatus :: Lens' CreateLayerResponse Int clrsResponseStatus = lens _clrsResponseStatus (\ s a -> s{_clrsResponseStatus = a}); 

@@ -18,9 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a new stack. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workingstacks-edit.html Create a New Stack>.+-- Creates a new stack. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workingstacks-edit.html Create a New 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> .+-- module Network.AWS.OpsWorks.CreateStack     (     -- * Creating a Request@@ -89,43 +91,43 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'csDefaultRootDeviceType'+-- * 'csDefaultRootDeviceType' - The default root device type. This value is the default for all instances in the stack, but you can override it when you create an instance. The default option is @instance-store@ . For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ComponentsAMIs.html#storage-for-the-root-device Storage for the Root Device> . ----- * 'csVPCId'+-- * 'csVPCId' - The ID of the VPC that the stack is to be launched into. The VPC must be in the stack's region. All instances are launched into this VPC. 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> . ----- * 'csChefConfiguration'+-- * 'csChefConfiguration' - 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> . ----- * 'csAgentVersion'+-- * 'csAgentVersion' - 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 the most recent release of the agent. 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' . ----- * 'csDefaultSSHKeyName'+-- * 'csDefaultSSHKeyName' - 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> . ----- * 'csCustomJSON'+-- * 'csCustomJSON' - A string that contains user-defined, custom JSON. It can be used to override the corresponding default stack configuration attribute values or to pass data to recipes. The string should be in the following format: @"{\"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> . ----- * 'csCustomCookbooksSource'+-- * 'csCustomCookbooksSource' - Undocumented member. ----- * 'csDefaultAvailabilityZone'+-- * 'csDefaultAvailabilityZone' - The 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. ----- * 'csAttributes'+-- * 'csAttributes' - One or more user-defined key-value pairs to be added to the stack attributes. ----- * 'csDefaultOS'+-- * 'csDefaultOS' - The stack's default operating system, which is installed on every instance unless you specify a different operating system when you create the instance. You can specify one of the following.     * A supported Linux operating system: An Amazon Linux version, such as @Amazon Linux 2016.03@ , @Amazon Linux 2015.09@ , or @Amazon Linux 2015.03@ .     * A supported Ubuntu operating system, such as @Ubuntu 16.04 LTS@ , @Ubuntu 14.04 LTS@ , or @Ubuntu 12.04 LTS@ .     * @CentOS 7@      * @Red Hat Enterprise Linux 7@      * A supported Windows operating system, such as @Microsoft Windows Server 2012 R2 Base@ , @Microsoft Windows Server 2012 R2 with SQL Server Express@ , @Microsoft Windows Server 2012 R2 with SQL Server Standard@ , or @Microsoft Windows Server 2012 R2 with SQL Server Web@ .     * A custom AMI: @Custom@ . You specify the custom AMI you want to use when you create instances. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-custom-ami.html Using Custom AMIs> . The default option is the current Amazon Linux version. For more information on the supported operating systems, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-os.html AWS OpsWorks Operating Systems> . ----- * 'csUseOpsworksSecurityGroups'+-- * 'csUseOpsworksSecurityGroups' - 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 New Stack> . ----- * 'csUseCustomCookbooks'+-- * 'csUseCustomCookbooks' - Whether the stack uses custom cookbooks. ----- * 'csDefaultSubnetId'+-- * 'csDefaultSubnetId' - 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. ----- * 'csConfigurationManager'+-- * 'csConfigurationManager' - The configuration manager. When you create a stack we recommend that you use the configuration manager to specify the Chef version: 12, 11.10, or 11.4 for Linux stacks, or 12.2 for Windows stacks. The default value for Linux stacks is currently 11.4. ----- * 'csHostnameTheme'+-- * 'csHostnameTheme' - The stack's host name theme, with spaces 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. ----- * 'csName'+-- * 'csName' - The stack name. ----- * 'csRegion'+-- * 'csRegion' - The stack's AWS region, such as "ap-south-1". For more information about Amazon regions, see <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints> . ----- * 'csServiceRoleARN'+-- * 'csServiceRoleARN' - The stack's 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. For more information about IAM ARNs, see <http://docs.aws.amazon.com/IAM/latest/UserGuide/Using_Identifiers.html Using Identifiers> . ----- * 'csDefaultInstanceProfileARN'+-- * 'csDefaultInstanceProfileARN' - 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> . createStack     :: Text -- ^ 'csName'     -> Text -- ^ 'csRegion'@@ -155,53 +157,27 @@     , _csDefaultInstanceProfileARN = pDefaultInstanceProfileARN_     } --- | The default root device type. This value is the default for all instances in the stack, but you can override it when you create an instance. The default option is 'instance-store'. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ComponentsAMIs.html#storage-for-the-root-device Storage for the Root Device>.+-- | The default root device type. This value is the default for all instances in the stack, but you can override it when you create an instance. The default option is @instance-store@ . For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ComponentsAMIs.html#storage-for-the-root-device Storage for the Root Device> . csDefaultRootDeviceType :: Lens' CreateStack (Maybe RootDeviceType) csDefaultRootDeviceType = lens _csDefaultRootDeviceType (\ s a -> s{_csDefaultRootDeviceType = a}); --- | The ID of the VPC that the stack is to be launched into. The VPC must be in the stack\'s region. All instances are launched into this VPC. 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>.+-- | The ID of the VPC that the stack is to be launched into. The VPC must be in the stack's region. All instances are launched into this VPC. 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> . csVPCId :: Lens' CreateStack (Maybe Text) csVPCId = lens _csVPCId (\ s a -> s{_csVPCId = 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>.+-- | 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> . csChefConfiguration :: Lens' CreateStack (Maybe ChefConfiguration) csChefConfiguration = lens _csChefConfiguration (\ s a -> s{_csChefConfiguration = 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 the most recent release of the agent. 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.+-- | 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 the most recent release of the agent. 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' . csAgentVersion :: Lens' CreateStack (Maybe Text) csAgentVersion = lens _csAgentVersion (\ s a -> s{_csAgentVersion = 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>.+-- | 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> . csDefaultSSHKeyName :: Lens' CreateStack (Maybe Text) csDefaultSSHKeyName = lens _csDefaultSSHKeyName (\ s a -> s{_csDefaultSSHKeyName = a}); --- | A string that contains user-defined, custom JSON. It can be used to override the corresponding default stack configuration attribute values or to pass data to recipes. The string should be in the following escape characters such as \'\"\':------ '\"{\\\"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>.+-- | A string that contains user-defined, custom JSON. It can be used to override the corresponding default stack configuration attribute values or to pass data to recipes. The string should be in the following format: @"{\"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> . csCustomJSON :: Lens' CreateStack (Maybe Text) csCustomJSON = lens _csCustomJSON (\ s a -> s{_csCustomJSON = a}); @@ -209,7 +185,7 @@ csCustomCookbooksSource :: Lens' CreateStack (Maybe Source) csCustomCookbooksSource = lens _csCustomCookbooksSource (\ s a -> s{_csCustomCookbooksSource = a}); --- | The 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.+-- | The 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. csDefaultAvailabilityZone :: Lens' CreateStack (Maybe Text) csDefaultAvailabilityZone = lens _csDefaultAvailabilityZone (\ s a -> s{_csDefaultAvailabilityZone = a}); @@ -217,33 +193,11 @@ csAttributes :: Lens' CreateStack (HashMap StackAttributesKeys Text) csAttributes = lens _csAttributes (\ s a -> s{_csAttributes = a}) . _Default . _Map; --- | The stack\'s default operating system, which is installed on every instance unless you specify a different operating system when you create the instance. You can specify one of the following.------ -   A supported Linux operating system: An Amazon Linux version, such as 'Amazon Linux 2016.03', 'Amazon Linux 2015.09', or 'Amazon Linux 2015.03'.------ -   A supported Ubuntu operating system, such as 'Ubuntu 16.04 LTS', 'Ubuntu 14.04 LTS', or 'Ubuntu 12.04 LTS'.------ -   'CentOS 7'------ -   'Red Hat Enterprise Linux 7'------ -   A supported Windows operating system, such as 'Microsoft Windows Server 2012 R2 Base', 'Microsoft Windows Server 2012 R2 with SQL Server Express', 'Microsoft Windows Server 2012 R2 with SQL Server Standard', or 'Microsoft Windows Server 2012 R2 with SQL Server Web'.------ -   A custom AMI: 'Custom'. You specify the custom AMI you want to use when you create instances. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-custom-ami.html Using Custom AMIs>.------ The default option is the current Amazon Linux version. For more information on the supported operating systems, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-os.html AWS OpsWorks Operating Systems>.+-- | The stack's default operating system, which is installed on every instance unless you specify a different operating system when you create the instance. You can specify one of the following.     * A supported Linux operating system: An Amazon Linux version, such as @Amazon Linux 2016.03@ , @Amazon Linux 2015.09@ , or @Amazon Linux 2015.03@ .     * A supported Ubuntu operating system, such as @Ubuntu 16.04 LTS@ , @Ubuntu 14.04 LTS@ , or @Ubuntu 12.04 LTS@ .     * @CentOS 7@      * @Red Hat Enterprise Linux 7@      * A supported Windows operating system, such as @Microsoft Windows Server 2012 R2 Base@ , @Microsoft Windows Server 2012 R2 with SQL Server Express@ , @Microsoft Windows Server 2012 R2 with SQL Server Standard@ , or @Microsoft Windows Server 2012 R2 with SQL Server Web@ .     * A custom AMI: @Custom@ . You specify the custom AMI you want to use when you create instances. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-custom-ami.html Using Custom AMIs> . The default option is the current Amazon Linux version. For more information on the supported operating systems, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-os.html AWS OpsWorks Operating Systems> . csDefaultOS :: Lens' CreateStack (Maybe Text) csDefaultOS = lens _csDefaultOS (\ s a -> s{_csDefaultOS = 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 New Stack>.+-- | 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 New Stack> . csUseOpsworksSecurityGroups :: Lens' CreateStack (Maybe Bool) csUseOpsworksSecurityGroups = lens _csUseOpsworksSecurityGroups (\ s a -> s{_csUseOpsworksSecurityGroups = a}); @@ -251,7 +205,7 @@ csUseCustomCookbooks :: Lens' CreateStack (Maybe Bool) csUseCustomCookbooks = lens _csUseCustomCookbooks (\ s a -> s{_csUseCustomCookbooks = 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.+-- | 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. csDefaultSubnetId :: Lens' CreateStack (Maybe Text) csDefaultSubnetId = lens _csDefaultSubnetId (\ s a -> s{_csDefaultSubnetId = a}); @@ -259,31 +213,7 @@ csConfigurationManager :: Lens' CreateStack (Maybe StackConfigurationManager) csConfigurationManager = lens _csConfigurationManager (\ s a -> s{_csConfigurationManager = a}); --- | The stack\'s host name theme, with spaces 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.+-- | The stack's host name theme, with spaces 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. csHostnameTheme :: Lens' CreateStack (Maybe Text) csHostnameTheme = lens _csHostnameTheme (\ s a -> s{_csHostnameTheme = a}); @@ -291,15 +221,15 @@ csName :: Lens' CreateStack Text csName = lens _csName (\ s a -> s{_csName = a}); --- | The stack\'s AWS region, such as \"ap-south-1\". For more information about Amazon regions, see <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints>.+-- | The stack's AWS region, such as "ap-south-1". For more information about Amazon regions, see <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints> . csRegion :: Lens' CreateStack Text csRegion = lens _csRegion (\ s a -> s{_csRegion = a}); --- | The stack\'s 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. For more information about IAM ARNs, see <http://docs.aws.amazon.com/IAM/latest/UserGuide/Using_Identifiers.html Using Identifiers>.+-- | The stack's 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. For more information about IAM ARNs, see <http://docs.aws.amazon.com/IAM/latest/UserGuide/Using_Identifiers.html Using Identifiers> . csServiceRoleARN :: Lens' CreateStack Text csServiceRoleARN = lens _csServiceRoleARN (\ s a -> s{_csServiceRoleARN = 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>.+-- | 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> . csDefaultInstanceProfileARN :: Lens' CreateStack Text csDefaultInstanceProfileARN = lens _csDefaultInstanceProfileARN (\ s a -> s{_csDefaultInstanceProfileARN = a}); @@ -362,8 +292,10 @@ instance ToQuery CreateStack where         toQuery = const mempty --- | Contains the response to a 'CreateStack' request.+-- | Contains the response to a @CreateStack@ request. --+--+-- -- /See:/ 'createStackResponse' smart constructor. data CreateStackResponse = CreateStackResponse'     { _crsStackId        :: !(Maybe Text)@@ -374,9 +306,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'crsStackId'+-- * 'crsStackId' - The stack ID, which is an opaque string that you use to identify the stack when performing actions such as @DescribeStacks@ . ----- * 'crsResponseStatus'+-- * 'crsResponseStatus' - -- | The response status code. createStackResponse     :: Int -- ^ 'crsResponseStatus'     -> CreateStackResponse@@ -386,11 +318,11 @@     , _crsResponseStatus = pResponseStatus_     } --- | The stack ID, which is an opaque string that you use to identify the stack when performing actions such as 'DescribeStacks'.+-- | The stack ID, which is an opaque string that you use to identify the stack when performing actions such as @DescribeStacks@ . crsStackId :: Lens' CreateStackResponse (Maybe Text) crsStackId = lens _crsStackId (\ s a -> s{_crsStackId = a}); --- | The response status code.+-- | -- | The response status code. crsResponseStatus :: Lens' CreateStackResponse Int crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a}); 

@@ -20,7 +20,9 @@ -- -- Creates a new user profile. ----- __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> .+-- module Network.AWS.OpsWorks.CreateUserProfile     (     -- * Creating a Request@@ -59,13 +61,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cupAllowSelfManagement'+-- * 'cupAllowSelfManagement' - Whether users can specify their own SSH public key through the My Settings page. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/security-settingsshkey.html Setting an IAM User's Public SSH Key> . ----- * 'cupSSHPublicKey'+-- * 'cupSSHPublicKey' - The user's public SSH key. ----- * 'cupSSHUsername'+-- * 'cupSSHUsername' - The user's SSH user name. The allowable characters are [a-z], [A-Z], [0-9], '-', and '_'. If the specified name includes other punctuation marks, AWS OpsWorks removes them. For example, @my.name@ will be changed to @myname@ . If you do not specify an SSH user name, AWS OpsWorks generates one from the IAM user name. ----- * 'cupIAMUserARN'+-- * 'cupIAMUserARN' - The user's IAM ARN; this can also be a federated user's ARN. createUserProfile     :: Text -- ^ 'cupIAMUserARN'     -> CreateUserProfile@@ -77,19 +79,19 @@     , _cupIAMUserARN = pIAMUserARN_     } --- | Whether users can specify their own SSH public key through the My Settings page. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/security-settingsshkey.html Setting an IAM User\'s Public SSH Key>.+-- | Whether users can specify their own SSH public key through the My Settings page. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/security-settingsshkey.html Setting an IAM User's Public SSH Key> . cupAllowSelfManagement :: Lens' CreateUserProfile (Maybe Bool) cupAllowSelfManagement = lens _cupAllowSelfManagement (\ s a -> s{_cupAllowSelfManagement = a}); --- | The user\'s public SSH key.+-- | The user's public SSH key. cupSSHPublicKey :: Lens' CreateUserProfile (Maybe Text) cupSSHPublicKey = lens _cupSSHPublicKey (\ s a -> s{_cupSSHPublicKey = a}); --- | The user\'s SSH user name. The allowable characters are [a-z], [A-Z], [0-9], \'-\', and \'_\'. If the specified name includes other punctuation marks, AWS OpsWorks removes them. For example, 'my.name' will be changed to 'myname'. If you do not specify an SSH user name, AWS OpsWorks generates one from the IAM user name.+-- | The user's SSH user name. The allowable characters are [a-z], [A-Z], [0-9], '-', and '_'. If the specified name includes other punctuation marks, AWS OpsWorks removes them. For example, @my.name@ will be changed to @myname@ . If you do not specify an SSH user name, AWS OpsWorks generates one from the IAM user name. cupSSHUsername :: Lens' CreateUserProfile (Maybe Text) cupSSHUsername = lens _cupSSHUsername (\ s a -> s{_cupSSHUsername = a}); --- | The user\'s IAM ARN.+-- | The user's IAM ARN; this can also be a federated user's ARN. cupIAMUserARN :: Lens' CreateUserProfile Text cupIAMUserARN = lens _cupIAMUserARN (\ s a -> s{_cupIAMUserARN = a}); @@ -132,8 +134,10 @@ instance ToQuery CreateUserProfile where         toQuery = const mempty --- | Contains the response to a 'CreateUserProfile' request.+-- | Contains the response to a @CreateUserProfile@ request. --+--+-- -- /See:/ 'createUserProfileResponse' smart constructor. data CreateUserProfileResponse = CreateUserProfileResponse'     { _cuprsIAMUserARN     :: !(Maybe Text)@@ -144,9 +148,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cuprsIAMUserARN'+-- * 'cuprsIAMUserARN' - The user's IAM ARN. ----- * 'cuprsResponseStatus'+-- * 'cuprsResponseStatus' - -- | The response status code. createUserProfileResponse     :: Int -- ^ 'cuprsResponseStatus'     -> CreateUserProfileResponse@@ -156,11 +160,11 @@     , _cuprsResponseStatus = pResponseStatus_     } --- | The user\'s IAM ARN.+-- | The user's IAM ARN. cuprsIAMUserARN :: Lens' CreateUserProfileResponse (Maybe Text) cuprsIAMUserARN = lens _cuprsIAMUserARN (\ s a -> s{_cuprsIAMUserARN = a}); --- | The response status code.+-- | -- | The response status code. cuprsResponseStatus :: Lens' CreateUserProfileResponse Int cuprsResponseStatus = lens _cuprsResponseStatus (\ s a -> s{_cuprsResponseStatus = a}); 

@@ -20,7 +20,9 @@ -- -- Deletes a specified app. ----- __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>.+--+-- __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> .+-- module Network.AWS.OpsWorks.DeleteApp     (     -- * Creating a Request@@ -50,7 +52,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'daAppId'+-- * 'daAppId' - The app ID. deleteApp     :: Text -- ^ 'daAppId'     -> DeleteApp

@@ -20,9 +20,11 @@ -- -- Deletes a specified instance, which terminates the associated Amazon EC2 instance. You must stop an instance before you can delete it. ----- For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-delete.html Deleting Instances>. ----- __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>.+-- For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-delete.html Deleting Instances> .+--+-- __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> .+-- module Network.AWS.OpsWorks.DeleteInstance     (     -- * Creating a Request@@ -56,11 +58,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'diDeleteVolumes'+-- * 'diDeleteVolumes' - Whether to delete the instance's Amazon EBS volumes. ----- * 'diDeleteElasticIP'+-- * 'diDeleteElasticIP' - Whether to delete the instance Elastic IP address. ----- * 'diInstanceId'+-- * 'diInstanceId' - The instance ID. deleteInstance     :: Text -- ^ 'diInstanceId'     -> DeleteInstance@@ -71,7 +73,7 @@     , _diInstanceId = pInstanceId_     } --- | Whether to delete the instance\'s Amazon EBS volumes.+-- | Whether to delete the instance's Amazon EBS volumes. diDeleteVolumes :: Lens' DeleteInstance (Maybe Bool) diDeleteVolumes = lens _diDeleteVolumes (\ s a -> s{_diDeleteVolumes = a}); 

@@ -18,9 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes a specified layer. You must first stop and then delete all associated instances or unassign registered instances. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workinglayers-basics-delete.html How to Delete a Layer>.+-- Deletes a specified layer. You must first stop and then delete all associated instances or unassign registered instances. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workinglayers-basics-delete.html How to Delete 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 User Permissions>.+--+-- __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> .+-- module Network.AWS.OpsWorks.DeleteLayer     (     -- * Creating a Request@@ -50,7 +52,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dlLayerId'+-- * 'dlLayerId' - The layer ID. deleteLayer     :: Text -- ^ 'dlLayerId'     -> DeleteLayer

@@ -18,9 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes a specified stack. You must first delete all instances, layers, and apps or deregister registered instances. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workingstacks-shutting.html Shut Down a Stack>.+-- Deletes a specified stack. You must first delete all instances, layers, and apps or deregister registered instances. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workingstacks-shutting.html Shut Down a Stack> . ----- __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>.+--+-- __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> .+-- module Network.AWS.OpsWorks.DeleteStack     (     -- * Creating a Request@@ -50,7 +52,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dsStackId'+-- * 'dsStackId' - The stack ID. deleteStack     :: Text -- ^ 'dsStackId'     -> DeleteStack

@@ -20,7 +20,9 @@ -- -- Deletes a user profile. ----- __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> .+-- module Network.AWS.OpsWorks.DeleteUserProfile     (     -- * Creating a Request@@ -50,7 +52,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dupIAMUserARN'+-- * 'dupIAMUserARN' - The user's IAM ARN. This can also be a federated user's ARN. deleteUserProfile     :: Text -- ^ 'dupIAMUserARN'     -> DeleteUserProfile@@ -59,7 +61,7 @@     { _dupIAMUserARN = pIAMUserARN_     } --- | The user\'s IAM ARN.+-- | The user's IAM ARN. This can also be a federated user's ARN. dupIAMUserARN :: Lens' DeleteUserProfile Text dupIAMUserARN = lens _dupIAMUserARN (\ s a -> s{_dupIAMUserARN = a}); 

@@ -18,9 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deregisters a specified Amazon ECS cluster from a stack. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workinglayers-ecscluster.html#workinglayers-ecscluster-delete Resource Management>.+-- Deregisters a specified Amazon ECS cluster from a stack. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workinglayers-ecscluster.html#workinglayers-ecscluster-delete 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>.+--+-- __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 http://docs.aws.amazon.com/opsworks/latest/userguide/opsworks-security-users.html> .+-- module Network.AWS.OpsWorks.DeregisterEcsCluster     (     -- * Creating a Request@@ -50,7 +52,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'decEcsClusterARN'+-- * 'decEcsClusterARN' - The cluster's ARN. deregisterEcsCluster     :: Text -- ^ 'decEcsClusterARN'     -> DeregisterEcsCluster@@ -59,7 +61,7 @@     { _decEcsClusterARN = pEcsClusterARN_     } --- | The cluster\'s ARN.+-- | The cluster's ARN. decEcsClusterARN :: Lens' DeregisterEcsCluster Text decEcsClusterARN = lens _decEcsClusterARN (\ s a -> s{_decEcsClusterARN = a}); 

@@ -18,9 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deregisters a specified Elastic IP address. The address can then be registered by another stack. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/resources.html Resource Management>.+-- Deregisters a specified Elastic IP address. The address can then be registered by another stack. 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>.+--+-- __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> .+-- module Network.AWS.OpsWorks.DeregisterElasticIP     (     -- * Creating a Request@@ -50,7 +52,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'deipElasticIP'+-- * 'deipElasticIP' - The Elastic IP address. deregisterElasticIP     :: Text -- ^ 'deipElasticIP'     -> DeregisterElasticIP

@@ -20,7 +20,9 @@ -- -- Deregister a registered Amazon EC2 or on-premises instance. This action removes the instance from the stack and returns it to your control. This action can not be used 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>.+--+-- __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> .+-- module Network.AWS.OpsWorks.DeregisterInstance     (     -- * Creating a Request@@ -50,7 +52,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dInstanceId'+-- * 'dInstanceId' - The instance ID. deregisterInstance     :: Text -- ^ 'dInstanceId'     -> DeregisterInstance

@@ -20,7 +20,9 @@ -- -- Deregisters an Amazon RDS instance. ----- __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>.+--+-- __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> .+-- module Network.AWS.OpsWorks.DeregisterRDSDBInstance     (     -- * Creating a Request@@ -50,7 +52,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'drdiRDSDBInstanceARN'+-- * 'drdiRDSDBInstanceARN' - The Amazon RDS instance's ARN. deregisterRDSDBInstance     :: Text -- ^ 'drdiRDSDBInstanceARN'     -> DeregisterRDSDBInstance@@ -59,7 +61,7 @@     { _drdiRDSDBInstanceARN = pRDSDBInstanceARN_     } --- | The Amazon RDS instance\'s ARN.+-- | The Amazon RDS instance's ARN. drdiRDSDBInstanceARN :: Lens' DeregisterRDSDBInstance Text drdiRDSDBInstanceARN = lens _drdiRDSDBInstanceARN (\ s a -> s{_drdiRDSDBInstanceARN = a}); 

@@ -18,9 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deregisters an Amazon EBS volume. The volume can then be registered by another stack. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/resources.html Resource Management>.+-- Deregisters an Amazon EBS volume. The volume can then be registered by another stack. 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>.+--+-- __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> .+-- module Network.AWS.OpsWorks.DeregisterVolume     (     -- * Creating a Request@@ -50,7 +52,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dvVolumeId'+-- * 'dvVolumeId' - The AWS OpsWorks volume ID, which is the GUID that AWS OpsWorks assigned to the instance when you registered the volume with the stack, not the Amazon EC2 volume ID. deregisterVolume     :: Text -- ^ 'dvVolumeId'     -> DeregisterVolume

@@ -18,7 +18,9 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Describes the available AWS OpsWorks agent versions. You must specify a stack ID or a configuration manager. 'DescribeAgentVersions' returns a list of available agent versions for the specified stack or configuration manager.+-- Describes the available AWS OpsWorks agent versions. You must specify a stack ID or a configuration manager. @DescribeAgentVersions@ returns a list of available agent versions for the specified stack or configuration manager.+--+-- module Network.AWS.OpsWorks.DescribeAgentVersions     (     -- * Creating a Request@@ -53,9 +55,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'davConfigurationManager'+-- * 'davConfigurationManager' - The configuration manager. ----- * 'davStackId'+-- * 'davStackId' - The stack ID. describeAgentVersions     :: DescribeAgentVersions describeAgentVersions =@@ -111,8 +113,10 @@ instance ToQuery DescribeAgentVersions where         toQuery = const mempty --- | Contains the response to a 'DescribeAgentVersions' request.+-- | Contains the response to a @DescribeAgentVersions@ request. --+--+-- -- /See:/ 'describeAgentVersionsResponse' smart constructor. data DescribeAgentVersionsResponse = DescribeAgentVersionsResponse'     { _davrsAgentVersions  :: !(Maybe [AgentVersion])@@ -123,9 +127,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'davrsAgentVersions'+-- * 'davrsAgentVersions' - The agent versions for the specified stack or configuration manager. Note that this value is the complete version number, not the abbreviated number used by the console. ----- * 'davrsResponseStatus'+-- * 'davrsResponseStatus' - -- | The response status code. describeAgentVersionsResponse     :: Int -- ^ 'davrsResponseStatus'     -> DescribeAgentVersionsResponse@@ -139,7 +143,7 @@ davrsAgentVersions :: Lens' DescribeAgentVersionsResponse [AgentVersion] davrsAgentVersions = lens _davrsAgentVersions (\ s a -> s{_davrsAgentVersions = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. davrsResponseStatus :: Lens' DescribeAgentVersionsResponse Int davrsResponseStatus = lens _davrsResponseStatus (\ s a -> s{_davrsResponseStatus = a}); 

@@ -20,9 +20,9 @@ -- -- Requests a description of a specified set of apps. ----- You must specify at least one of the parameters. ----- __Required Permissions__: To use this action, an IAM user must have a Show, 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>.+-- __Required Permissions__ : To use this action, an IAM user must have a Show, 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> .+-- module Network.AWS.OpsWorks.DescribeApps     (     -- * Creating a Request@@ -57,9 +57,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'daAppIds'+-- * 'daAppIds' - An array of app IDs for the apps to be described. If you use this parameter, @DescribeApps@ returns a description of the specified apps. Otherwise, it returns a description of every app. ----- * 'daStackId'+-- * 'daStackId' - The app stack ID. If you use this parameter, @DescribeApps@ returns a description of the apps in the specified stack. describeApps     :: DescribeApps describeApps =@@ -68,11 +68,11 @@     , _daStackId = Nothing     } --- | An array of app IDs for the apps to be described. If you use this parameter, 'DescribeApps' returns a description of the specified apps. Otherwise, it returns a description of every app.+-- | An array of app IDs for the apps to be described. If you use this parameter, @DescribeApps@ returns a description of the specified apps. Otherwise, it returns a description of every app. daAppIds :: Lens' DescribeApps [Text] daAppIds = lens _daAppIds (\ s a -> s{_daAppIds = a}) . _Default . _Coerce; --- | The app stack ID. If you use this parameter, 'DescribeApps' returns a description of the apps in the specified stack.+-- | The app stack ID. If you use this parameter, @DescribeApps@ returns a description of the apps in the specified stack. daStackId :: Lens' DescribeApps (Maybe Text) daStackId = lens _daStackId (\ s a -> s{_daStackId = a}); @@ -111,8 +111,10 @@ instance ToQuery DescribeApps where         toQuery = const mempty --- | Contains the response to a 'DescribeApps' request.+-- | Contains the response to a @DescribeApps@ request. --+--+-- -- /See:/ 'describeAppsResponse' smart constructor. data DescribeAppsResponse = DescribeAppsResponse'     { _darsApps           :: !(Maybe [App])@@ -123,9 +125,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'darsApps'+-- * 'darsApps' - An array of @App@ objects that describe the specified apps. ----- * 'darsResponseStatus'+-- * 'darsResponseStatus' - -- | The response status code. describeAppsResponse     :: Int -- ^ 'darsResponseStatus'     -> DescribeAppsResponse@@ -135,11 +137,11 @@     , _darsResponseStatus = pResponseStatus_     } --- | An array of 'App' objects that describe the specified apps.+-- | An array of @App@ objects that describe the specified apps. darsApps :: Lens' DescribeAppsResponse [App] darsApps = lens _darsApps (\ s a -> s{_darsApps = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. darsResponseStatus :: Lens' DescribeAppsResponse Int darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a}); 

@@ -20,9 +20,9 @@ -- -- Describes the results of specified commands. ----- You must specify at least one of the parameters. ----- __Required Permissions__: To use this action, an IAM user must have a Show, 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>.+-- __Required Permissions__ : To use this action, an IAM user must have a Show, 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> .+-- module Network.AWS.OpsWorks.DescribeCommands     (     -- * Creating a Request@@ -59,11 +59,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dcDeploymentId'+-- * 'dcDeploymentId' - The deployment ID. If you include this parameter, @DescribeCommands@ returns a description of the commands associated with the specified deployment. ----- * 'dcInstanceId'+-- * 'dcInstanceId' - The instance ID. If you include this parameter, @DescribeCommands@ returns a description of the commands associated with the specified instance. ----- * 'dcCommandIds'+-- * 'dcCommandIds' - An array of command IDs. If you include this parameter, @DescribeCommands@ returns a description of the specified commands. Otherwise, it returns a description of every command. describeCommands     :: DescribeCommands describeCommands =@@ -73,15 +73,15 @@     , _dcCommandIds = Nothing     } --- | The deployment ID. If you include this parameter, 'DescribeCommands' returns a description of the commands associated with the specified deployment.+-- | The deployment ID. If you include this parameter, @DescribeCommands@ returns a description of the commands associated with the specified deployment. dcDeploymentId :: Lens' DescribeCommands (Maybe Text) dcDeploymentId = lens _dcDeploymentId (\ s a -> s{_dcDeploymentId = a}); --- | The instance ID. If you include this parameter, 'DescribeCommands' returns a description of the commands associated with the specified instance.+-- | The instance ID. If you include this parameter, @DescribeCommands@ returns a description of the commands associated with the specified instance. dcInstanceId :: Lens' DescribeCommands (Maybe Text) dcInstanceId = lens _dcInstanceId (\ s a -> s{_dcInstanceId = a}); --- | An array of command IDs. If you include this parameter, 'DescribeCommands' returns a description of the specified commands. Otherwise, it returns a description of every command.+-- | An array of command IDs. If you include this parameter, @DescribeCommands@ returns a description of the specified commands. Otherwise, it returns a description of every command. dcCommandIds :: Lens' DescribeCommands [Text] dcCommandIds = lens _dcCommandIds (\ s a -> s{_dcCommandIds = a}) . _Default . _Coerce; @@ -122,8 +122,10 @@ instance ToQuery DescribeCommands where         toQuery = const mempty --- | Contains the response to a 'DescribeCommands' request.+-- | Contains the response to a @DescribeCommands@ request. --+--+-- -- /See:/ 'describeCommandsResponse' smart constructor. data DescribeCommandsResponse = DescribeCommandsResponse'     { _dcrsCommands       :: !(Maybe [Command])@@ -134,9 +136,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dcrsCommands'+-- * 'dcrsCommands' - An array of @Command@ objects that describe each of the specified commands. ----- * 'dcrsResponseStatus'+-- * 'dcrsResponseStatus' - -- | The response status code. describeCommandsResponse     :: Int -- ^ 'dcrsResponseStatus'     -> DescribeCommandsResponse@@ -146,11 +148,11 @@     , _dcrsResponseStatus = pResponseStatus_     } --- | An array of 'Command' objects that describe each of the specified commands.+-- | An array of @Command@ objects that describe each of the specified commands. dcrsCommands :: Lens' DescribeCommandsResponse [Command] dcrsCommands = lens _dcrsCommands (\ s a -> s{_dcrsCommands = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. dcrsResponseStatus :: Lens' DescribeCommandsResponse Int dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a}); 

@@ -20,9 +20,9 @@ -- -- Requests a description of a specified set of deployments. ----- You must specify at least one of the parameters. ----- __Required Permissions__: To use this action, an IAM user must have a Show, 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>.+-- __Required Permissions__ : To use this action, an IAM user must have a Show, 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> .+-- module Network.AWS.OpsWorks.DescribeDeployments     (     -- * Creating a Request@@ -59,11 +59,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ddAppId'+-- * 'ddAppId' - The app ID. If you include this parameter, @DescribeDeployments@ returns a description of the commands associated with the specified app. ----- * 'ddDeploymentIds'+-- * 'ddDeploymentIds' - An array of deployment IDs to be described. If you include this parameter, @DescribeDeployments@ returns a description of the specified deployments. Otherwise, it returns a description of every deployment. ----- * 'ddStackId'+-- * 'ddStackId' - The stack ID. If you include this parameter, @DescribeDeployments@ returns a description of the commands associated with the specified stack. describeDeployments     :: DescribeDeployments describeDeployments =@@ -73,15 +73,15 @@     , _ddStackId = Nothing     } --- | The app ID. If you include this parameter, 'DescribeDeployments' returns a description of the commands associated with the specified app.+-- | The app ID. If you include this parameter, @DescribeDeployments@ returns a description of the commands associated with the specified app. ddAppId :: Lens' DescribeDeployments (Maybe Text) ddAppId = lens _ddAppId (\ s a -> s{_ddAppId = a}); --- | An array of deployment IDs to be described. If you include this parameter, 'DescribeDeployments' returns a description of the specified deployments. Otherwise, it returns a description of every deployment.+-- | An array of deployment IDs to be described. If you include this parameter, @DescribeDeployments@ returns a description of the specified deployments. Otherwise, it returns a description of every deployment. ddDeploymentIds :: Lens' DescribeDeployments [Text] ddDeploymentIds = lens _ddDeploymentIds (\ s a -> s{_ddDeploymentIds = a}) . _Default . _Coerce; --- | The stack ID. If you include this parameter, 'DescribeDeployments' returns a description of the commands associated with the specified stack.+-- | The stack ID. If you include this parameter, @DescribeDeployments@ returns a description of the commands associated with the specified stack. ddStackId :: Lens' DescribeDeployments (Maybe Text) ddStackId = lens _ddStackId (\ s a -> s{_ddStackId = a}); @@ -124,8 +124,10 @@ instance ToQuery DescribeDeployments where         toQuery = const mempty --- | Contains the response to a 'DescribeDeployments' request.+-- | Contains the response to a @DescribeDeployments@ request. --+--+-- -- /See:/ 'describeDeploymentsResponse' smart constructor. data DescribeDeploymentsResponse = DescribeDeploymentsResponse'     { _ddrsDeployments    :: !(Maybe [Deployment])@@ -136,9 +138,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ddrsDeployments'+-- * 'ddrsDeployments' - An array of @Deployment@ objects that describe the deployments. ----- * 'ddrsResponseStatus'+-- * 'ddrsResponseStatus' - -- | The response status code. describeDeploymentsResponse     :: Int -- ^ 'ddrsResponseStatus'     -> DescribeDeploymentsResponse@@ -148,11 +150,11 @@     , _ddrsResponseStatus = pResponseStatus_     } --- | An array of 'Deployment' objects that describe the deployments.+-- | An array of @Deployment@ objects that describe the deployments. ddrsDeployments :: Lens' DescribeDeploymentsResponse [Deployment] ddrsDeployments = lens _ddrsDeployments (\ s a -> s{_ddrsDeployments = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. ddrsResponseStatus :: Lens' DescribeDeploymentsResponse Int ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a}); 

@@ -18,9 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Describes Amazon ECS clusters that are registered with a stack. If you specify only a stack ID, you can use the 'MaxResults' and 'NextToken' parameters to paginate the response. However, AWS OpsWorks currently supports only one cluster per layer, so the result set has a maximum of one element.+-- Describes Amazon ECS clusters that are registered with a stack. If you specify only a stack ID, you can use the @MaxResults@ and @NextToken@ parameters to paginate the response. However, AWS OpsWorks currently supports only one cluster per layer, so the result set has a maximum of one element. ----- __Required Permissions__: To use this action, an IAM user must have a Show, Deploy, or Manage permissions level for the stack or an attached policy that explicitly grants permission. 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 a Show, Deploy, or Manage permissions level for the stack or an attached policy that explicitly grants permission. For more information on user permissions, see <http://docs.aws.amazon.com/opsworks/latest/userguide/opsworks-security-users.html Managing User Permissions> .+-- module Network.AWS.OpsWorks.DescribeEcsClusters     (     -- * Creating a Request@@ -60,13 +62,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'decNextToken'+-- * 'decNextToken' - If the previous paginated request did not return all of the remaining results, the response object's@NextToken@ parameter value is set to a token. To retrieve the next set of results, call @DescribeEcsClusters@ again and assign that token to the request object's @NextToken@ parameter. If there are no remaining results, the previous response object's @NextToken@ parameter is set to @null@ . ----- * 'decStackId'+-- * 'decStackId' - A stack ID. @DescribeEcsClusters@ returns a description of the cluster that is registered with the stack. ----- * 'decMaxResults'+-- * 'decMaxResults' - To receive a paginated response, use this parameter to specify the maximum number of results to be returned with a single call. If the number of available results exceeds this maximum, the response includes a @NextToken@ value that you can assign to the @NextToken@ request parameter to get the next set of results. ----- * 'decEcsClusterARNs'+-- * 'decEcsClusterARNs' - A list of ARNs, one for each cluster to be described. describeEcsClusters     :: DescribeEcsClusters describeEcsClusters =@@ -77,15 +79,15 @@     , _decEcsClusterARNs = Nothing     } --- | If the previous paginated request did not return all of the remaining results, the response object\'s'NextToken' parameter value is set to a token. To retrieve the next set of results, call 'DescribeEcsClusters' again and assign that token to the request object\'s 'NextToken' parameter. If there are no remaining results, the previous response object\'s 'NextToken' parameter is set to 'null'.+-- | If the previous paginated request did not return all of the remaining results, the response object's@NextToken@ parameter value is set to a token. To retrieve the next set of results, call @DescribeEcsClusters@ again and assign that token to the request object's @NextToken@ parameter. If there are no remaining results, the previous response object's @NextToken@ parameter is set to @null@ . decNextToken :: Lens' DescribeEcsClusters (Maybe Text) decNextToken = lens _decNextToken (\ s a -> s{_decNextToken = a}); --- | A stack ID. 'DescribeEcsClusters' returns a description of the cluster that is registered with the stack.+-- | A stack ID. @DescribeEcsClusters@ returns a description of the cluster that is registered with the stack. decStackId :: Lens' DescribeEcsClusters (Maybe Text) decStackId = lens _decStackId (\ s a -> s{_decStackId = a}); --- | To receive a paginated response, use this parameter to specify the maximum number of results to be returned with a single call. If the number of available results exceeds this maximum, the response includes a 'NextToken' value that you can assign to the 'NextToken' request parameter to get the next set of results.+-- | To receive a paginated response, use this parameter to specify the maximum number of results to be returned with a single call. If the number of available results exceeds this maximum, the response includes a @NextToken@ value that you can assign to the @NextToken@ request parameter to get the next set of results. decMaxResults :: Lens' DescribeEcsClusters (Maybe Int) decMaxResults = lens _decMaxResults (\ s a -> s{_decMaxResults = a}); @@ -134,8 +136,10 @@ instance ToQuery DescribeEcsClusters where         toQuery = const mempty --- | Contains the response to a 'DescribeEcsClusters' request.+-- | Contains the response to a @DescribeEcsClusters@ request. --+--+-- -- /See:/ 'describeEcsClustersResponse' smart constructor. data DescribeEcsClustersResponse = DescribeEcsClustersResponse'     { _decrsNextToken      :: !(Maybe Text)@@ -147,11 +151,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'decrsNextToken'+-- * 'decrsNextToken' - If a paginated request does not return all of the remaining results, this parameter is set to a token that you can assign to the request object's @NextToken@ parameter to retrieve the next set of results. If the previous paginated request returned all of the remaining results, this parameter is set to @null@ . ----- * 'decrsEcsClusters'+-- * 'decrsEcsClusters' - A list of @EcsCluster@ objects containing the cluster descriptions. ----- * 'decrsResponseStatus'+-- * 'decrsResponseStatus' - -- | The response status code. describeEcsClustersResponse     :: Int -- ^ 'decrsResponseStatus'     -> DescribeEcsClustersResponse@@ -162,15 +166,15 @@     , _decrsResponseStatus = pResponseStatus_     } --- | If a paginated request does not return all of the remaining results, this parameter is set to a token that you can assign to the request object\'s 'NextToken' parameter to retrieve the next set of results. If the previous paginated request returned all of the remaining results, this parameter is set to 'null'.+-- | If a paginated request does not return all of the remaining results, this parameter is set to a token that you can assign to the request object's @NextToken@ parameter to retrieve the next set of results. If the previous paginated request returned all of the remaining results, this parameter is set to @null@ . decrsNextToken :: Lens' DescribeEcsClustersResponse (Maybe Text) decrsNextToken = lens _decrsNextToken (\ s a -> s{_decrsNextToken = a}); --- | A list of 'EcsCluster' objects containing the cluster descriptions.+-- | A list of @EcsCluster@ objects containing the cluster descriptions. decrsEcsClusters :: Lens' DescribeEcsClustersResponse [EcsCluster] decrsEcsClusters = lens _decrsEcsClusters (\ s a -> s{_decrsEcsClusters = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. decrsResponseStatus :: Lens' DescribeEcsClustersResponse Int decrsResponseStatus = lens _decrsResponseStatus (\ s a -> s{_decrsResponseStatus = a}); 

@@ -18,11 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Describes <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/elastic-ip-addresses-eip.html Elastic IP addresses>.+-- Describes <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/elastic-ip-addresses-eip.html Elastic IP addresses> . ----- You must specify at least one of the parameters. ----- __Required Permissions__: To use this action, an IAM user must have a Show, 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>.+-- __Required Permissions__ : To use this action, an IAM user must have a Show, 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> .+-- module Network.AWS.OpsWorks.DescribeElasticIPs     (     -- * Creating a Request@@ -59,11 +59,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'deiInstanceId'+-- * 'deiInstanceId' - The instance ID. If you include this parameter, @DescribeElasticIps@ returns a description of the Elastic IP addresses associated with the specified instance. ----- * 'deiIPs'+-- * 'deiIPs' - An array of Elastic IP addresses to be described. If you include this parameter, @DescribeElasticIps@ returns a description of the specified Elastic IP addresses. Otherwise, it returns a description of every Elastic IP address. ----- * 'deiStackId'+-- * 'deiStackId' - A stack ID. If you include this parameter, @DescribeElasticIps@ returns a description of the Elastic IP addresses that are registered with the specified stack. describeElasticIPs     :: DescribeElasticIPs describeElasticIPs =@@ -73,15 +73,15 @@     , _deiStackId = Nothing     } --- | The instance ID. If you include this parameter, 'DescribeElasticIps' returns a description of the Elastic IP addresses associated with the specified instance.+-- | The instance ID. If you include this parameter, @DescribeElasticIps@ returns a description of the Elastic IP addresses associated with the specified instance. deiInstanceId :: Lens' DescribeElasticIPs (Maybe Text) deiInstanceId = lens _deiInstanceId (\ s a -> s{_deiInstanceId = a}); --- | An array of Elastic IP addresses to be described. If you include this parameter, 'DescribeElasticIps' returns a description of the specified Elastic IP addresses. Otherwise, it returns a description of every Elastic IP address.+-- | An array of Elastic IP addresses to be described. If you include this parameter, @DescribeElasticIps@ returns a description of the specified Elastic IP addresses. Otherwise, it returns a description of every Elastic IP address. deiIPs :: Lens' DescribeElasticIPs [Text] deiIPs = lens _deiIPs (\ s a -> s{_deiIPs = a}) . _Default . _Coerce; --- | A stack ID. If you include this parameter, 'DescribeElasticIps' returns a description of the Elastic IP addresses that are registered with the specified stack.+-- | A stack ID. If you include this parameter, @DescribeElasticIps@ returns a description of the Elastic IP addresses that are registered with the specified stack. deiStackId :: Lens' DescribeElasticIPs (Maybe Text) deiStackId = lens _deiStackId (\ s a -> s{_deiStackId = a}); @@ -124,8 +124,10 @@ instance ToQuery DescribeElasticIPs where         toQuery = const mempty --- | Contains the response to a 'DescribeElasticIps' request.+-- | Contains the response to a @DescribeElasticIps@ request. --+--+-- -- /See:/ 'describeElasticIPsResponse' smart constructor. data DescribeElasticIPsResponse = DescribeElasticIPsResponse'     { _deirsElasticIPs     :: !(Maybe [ElasticIP])@@ -136,9 +138,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'deirsElasticIPs'+-- * 'deirsElasticIPs' - An @ElasticIps@ object that describes the specified Elastic IP addresses. ----- * 'deirsResponseStatus'+-- * 'deirsResponseStatus' - -- | The response status code. describeElasticIPsResponse     :: Int -- ^ 'deirsResponseStatus'     -> DescribeElasticIPsResponse@@ -148,11 +150,11 @@     , _deirsResponseStatus = pResponseStatus_     } --- | An 'ElasticIps' object that describes the specified Elastic IP addresses.+-- | An @ElasticIps@ object that describes the specified Elastic IP addresses. deirsElasticIPs :: Lens' DescribeElasticIPsResponse [ElasticIP] deirsElasticIPs = lens _deirsElasticIPs (\ s a -> s{_deirsElasticIPs = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. deirsResponseStatus :: Lens' DescribeElasticIPsResponse Int deirsResponseStatus = lens _deirsResponseStatus (\ s a -> s{_deirsResponseStatus = a}); 

@@ -18,11 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Describes a stack\'s Elastic Load Balancing instances.+-- Describes a stack's Elastic Load Balancing instances. ----- You must specify at least one of the parameters. ----- __Required Permissions__: To use this action, an IAM user must have a Show, 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>.+-- __Required Permissions__ : To use this action, an IAM user must have a Show, 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> .+-- module Network.AWS.OpsWorks.DescribeElasticLoadBalancers     (     -- * Creating a Request@@ -57,9 +57,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'delbLayerIds'+-- * 'delbLayerIds' - A list of layer IDs. The action describes the Elastic Load Balancing instances for the specified layers. ----- * 'delbStackId'+-- * 'delbStackId' - A stack ID. The action describes the stack's Elastic Load Balancing instances. describeElasticLoadBalancers     :: DescribeElasticLoadBalancers describeElasticLoadBalancers =@@ -72,7 +72,7 @@ delbLayerIds :: Lens' DescribeElasticLoadBalancers [Text] delbLayerIds = lens _delbLayerIds (\ s a -> s{_delbLayerIds = a}) . _Default . _Coerce; --- | A stack ID. The action describes the stack\'s Elastic Load Balancing instances.+-- | A stack ID. The action describes the stack's Elastic Load Balancing instances. delbStackId :: Lens' DescribeElasticLoadBalancers (Maybe Text) delbStackId = lens _delbStackId (\ s a -> s{_delbStackId = a}); @@ -115,8 +115,10 @@ instance ToQuery DescribeElasticLoadBalancers where         toQuery = const mempty --- | Contains the response to a 'DescribeElasticLoadBalancers' request.+-- | Contains the response to a @DescribeElasticLoadBalancers@ request. --+--+-- -- /See:/ 'describeElasticLoadBalancersResponse' smart constructor. data DescribeElasticLoadBalancersResponse = DescribeElasticLoadBalancersResponse'     { _delbrsElasticLoadBalancers :: !(Maybe [ElasticLoadBalancer])@@ -127,9 +129,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'delbrsElasticLoadBalancers'+-- * 'delbrsElasticLoadBalancers' - A list of @ElasticLoadBalancer@ objects that describe the specified Elastic Load Balancing instances. ----- * 'delbrsResponseStatus'+-- * 'delbrsResponseStatus' - -- | The response status code. describeElasticLoadBalancersResponse     :: Int -- ^ 'delbrsResponseStatus'     -> DescribeElasticLoadBalancersResponse@@ -139,11 +141,11 @@     , _delbrsResponseStatus = pResponseStatus_     } --- | A list of 'ElasticLoadBalancer' objects that describe the specified Elastic Load Balancing instances.+-- | A list of @ElasticLoadBalancer@ objects that describe the specified Elastic Load Balancing instances. delbrsElasticLoadBalancers :: Lens' DescribeElasticLoadBalancersResponse [ElasticLoadBalancer] delbrsElasticLoadBalancers = lens _delbrsElasticLoadBalancers (\ s a -> s{_delbrsElasticLoadBalancers = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. delbrsResponseStatus :: Lens' DescribeElasticLoadBalancersResponse Int delbrsResponseStatus = lens _delbrsResponseStatus (\ s a -> s{_delbrsResponseStatus = a}); 

@@ -20,9 +20,9 @@ -- -- Requests a description of a set of instances. ----- You must specify at least one of the parameters. ----- __Required Permissions__: To use this action, an IAM user must have a Show, 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>.+-- __Required Permissions__ : To use this action, an IAM user must have a Show, 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> .+-- module Network.AWS.OpsWorks.DescribeInstances     (     -- * Creating a Request@@ -59,11 +59,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'diInstanceIds'+-- * 'diInstanceIds' - An array of instance IDs to be described. If you use this parameter, @DescribeInstances@ returns a description of the specified instances. Otherwise, it returns a description of every instance. ----- * 'diStackId'+-- * 'diStackId' - A stack ID. If you use this parameter, @DescribeInstances@ returns descriptions of the instances associated with the specified stack. ----- * 'diLayerId'+-- * 'diLayerId' - A layer ID. If you use this parameter, @DescribeInstances@ returns descriptions of the instances associated with the specified layer. describeInstances     :: DescribeInstances describeInstances =@@ -73,15 +73,15 @@     , _diLayerId = Nothing     } --- | An array of instance IDs to be described. If you use this parameter, 'DescribeInstances' returns a description of the specified instances. Otherwise, it returns a description of every instance.+-- | An array of instance IDs to be described. If you use this parameter, @DescribeInstances@ returns a description of the specified instances. Otherwise, it returns a description of every instance. diInstanceIds :: Lens' DescribeInstances [Text] diInstanceIds = lens _diInstanceIds (\ s a -> s{_diInstanceIds = a}) . _Default . _Coerce; --- | A stack ID. If you use this parameter, 'DescribeInstances' returns descriptions of the instances associated with the specified stack.+-- | A stack ID. If you use this parameter, @DescribeInstances@ returns descriptions of the instances associated with the specified stack. diStackId :: Lens' DescribeInstances (Maybe Text) diStackId = lens _diStackId (\ s a -> s{_diStackId = a}); --- | A layer ID. If you use this parameter, 'DescribeInstances' returns descriptions of the instances associated with the specified layer.+-- | A layer ID. If you use this parameter, @DescribeInstances@ returns descriptions of the instances associated with the specified layer. diLayerId :: Lens' DescribeInstances (Maybe Text) diLayerId = lens _diLayerId (\ s a -> s{_diLayerId = a}); @@ -123,8 +123,10 @@ instance ToQuery DescribeInstances where         toQuery = const mempty --- | Contains the response to a 'DescribeInstances' request.+-- | Contains the response to a @DescribeInstances@ request. --+--+-- -- /See:/ 'describeInstancesResponse' smart constructor. data DescribeInstancesResponse = DescribeInstancesResponse'     { _dirsInstances      :: !(Maybe [Instance])@@ -135,9 +137,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dirsInstances'+-- * 'dirsInstances' - An array of @Instance@ objects that describe the instances. ----- * 'dirsResponseStatus'+-- * 'dirsResponseStatus' - -- | The response status code. describeInstancesResponse     :: Int -- ^ 'dirsResponseStatus'     -> DescribeInstancesResponse@@ -147,11 +149,11 @@     , _dirsResponseStatus = pResponseStatus_     } --- | An array of 'Instance' objects that describe the instances.+-- | An array of @Instance@ objects that describe the instances. dirsInstances :: Lens' DescribeInstancesResponse [Instance] dirsInstances = lens _dirsInstances (\ s a -> s{_dirsInstances = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. dirsResponseStatus :: Lens' DescribeInstancesResponse Int dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a}); 

@@ -20,9 +20,9 @@ -- -- Requests a description of one or more layers in a specified stack. ----- You must specify at least one of the parameters. ----- __Required Permissions__: To use this action, an IAM user must have a Show, 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>.+-- __Required Permissions__ : To use this action, an IAM user must have a Show, 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> .+-- module Network.AWS.OpsWorks.DescribeLayers     (     -- * Creating a Request@@ -57,9 +57,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dlLayerIds'+-- * 'dlLayerIds' - An array of layer IDs that specify the layers to be described. If you omit this parameter, @DescribeLayers@ returns a description of every layer in the specified stack. ----- * 'dlStackId'+-- * 'dlStackId' - The stack ID. describeLayers     :: DescribeLayers describeLayers =@@ -68,7 +68,7 @@     , _dlStackId = Nothing     } --- | An array of layer IDs that specify the layers to be described. If you omit this parameter, 'DescribeLayers' returns a description of every layer in the specified stack.+-- | An array of layer IDs that specify the layers to be described. If you omit this parameter, @DescribeLayers@ returns a description of every layer in the specified stack. dlLayerIds :: Lens' DescribeLayers [Text] dlLayerIds = lens _dlLayerIds (\ s a -> s{_dlLayerIds = a}) . _Default . _Coerce; @@ -111,8 +111,10 @@ instance ToQuery DescribeLayers where         toQuery = const mempty --- | Contains the response to a 'DescribeLayers' request.+-- | Contains the response to a @DescribeLayers@ request. --+--+-- -- /See:/ 'describeLayersResponse' smart constructor. data DescribeLayersResponse = DescribeLayersResponse'     { _dlrsLayers         :: !(Maybe [Layer])@@ -123,9 +125,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dlrsLayers'+-- * 'dlrsLayers' - An array of @Layer@ objects that describe the layers. ----- * 'dlrsResponseStatus'+-- * 'dlrsResponseStatus' - -- | The response status code. describeLayersResponse     :: Int -- ^ 'dlrsResponseStatus'     -> DescribeLayersResponse@@ -135,11 +137,11 @@     , _dlrsResponseStatus = pResponseStatus_     } --- | An array of 'Layer' objects that describe the layers.+-- | An array of @Layer@ objects that describe the layers. dlrsLayers :: Lens' DescribeLayersResponse [Layer] dlrsLayers = lens _dlrsLayers (\ s a -> s{_dlrsLayers = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. dlrsResponseStatus :: Lens' DescribeLayersResponse Int dlrsResponseStatus = lens _dlrsResponseStatus (\ s a -> s{_dlrsResponseStatus = a}); 

@@ -20,9 +20,9 @@ -- -- Describes load-based auto scaling configurations for specified layers. ----- You must specify at least one of the parameters. ----- __Required Permissions__: To use this action, an IAM user must have a Show, 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>.+-- __Required Permissions__ : To use this action, an IAM user must have a Show, 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> .+-- module Network.AWS.OpsWorks.DescribeLoadBasedAutoScaling     (     -- * Creating a Request@@ -55,7 +55,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dlbasLayerIds'+-- * 'dlbasLayerIds' - An array of layer IDs. describeLoadBasedAutoScaling     :: DescribeLoadBasedAutoScaling describeLoadBasedAutoScaling =@@ -105,8 +105,10 @@ instance ToQuery DescribeLoadBasedAutoScaling where         toQuery = const mempty --- | Contains the response to a 'DescribeLoadBasedAutoScaling' request.+-- | Contains the response to a @DescribeLoadBasedAutoScaling@ request. --+--+-- -- /See:/ 'describeLoadBasedAutoScalingResponse' smart constructor. data DescribeLoadBasedAutoScalingResponse = DescribeLoadBasedAutoScalingResponse'     { _dlbasrsLoadBasedAutoScalingConfigurations :: !(Maybe [LoadBasedAutoScalingConfiguration])@@ -117,9 +119,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dlbasrsLoadBasedAutoScalingConfigurations'+-- * 'dlbasrsLoadBasedAutoScalingConfigurations' - An array of @LoadBasedAutoScalingConfiguration@ objects that describe each layer's configuration. ----- * 'dlbasrsResponseStatus'+-- * 'dlbasrsResponseStatus' - -- | The response status code. describeLoadBasedAutoScalingResponse     :: Int -- ^ 'dlbasrsResponseStatus'     -> DescribeLoadBasedAutoScalingResponse@@ -129,11 +131,11 @@     , _dlbasrsResponseStatus = pResponseStatus_     } --- | An array of 'LoadBasedAutoScalingConfiguration' objects that describe each layer\'s configuration.+-- | An array of @LoadBasedAutoScalingConfiguration@ objects that describe each layer's configuration. dlbasrsLoadBasedAutoScalingConfigurations :: Lens' DescribeLoadBasedAutoScalingResponse [LoadBasedAutoScalingConfiguration] dlbasrsLoadBasedAutoScalingConfigurations = lens _dlbasrsLoadBasedAutoScalingConfigurations (\ s a -> s{_dlbasrsLoadBasedAutoScalingConfigurations = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. dlbasrsResponseStatus :: Lens' DescribeLoadBasedAutoScalingResponse Int dlbasrsResponseStatus = lens _dlbasrsResponseStatus (\ s a -> s{_dlbasrsResponseStatus = a}); 

@@ -18,9 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Describes a user\'s SSH information.+-- Describes a user's SSH information. ----- __Required Permissions__: To use this action, an IAM user must have self-management enabled 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>.+--+-- __Required Permissions__ : To use this action, an IAM user must have self-management enabled 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> .+-- module Network.AWS.OpsWorks.DescribeMyUserProfile     (     -- * Creating a Request@@ -86,8 +88,10 @@ instance ToQuery DescribeMyUserProfile where         toQuery = const mempty --- | Contains the response to a 'DescribeMyUserProfile' request.+-- | Contains the response to a @DescribeMyUserProfile@ request. --+--+-- -- /See:/ 'describeMyUserProfileResponse' smart constructor. data DescribeMyUserProfileResponse = DescribeMyUserProfileResponse'     { _dmuprsUserProfile    :: !(Maybe SelfUserProfile)@@ -98,9 +102,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dmuprsUserProfile'+-- * 'dmuprsUserProfile' - A @UserProfile@ object that describes the user's SSH information. ----- * 'dmuprsResponseStatus'+-- * 'dmuprsResponseStatus' - -- | The response status code. describeMyUserProfileResponse     :: Int -- ^ 'dmuprsResponseStatus'     -> DescribeMyUserProfileResponse@@ -110,11 +114,11 @@     , _dmuprsResponseStatus = pResponseStatus_     } --- | A 'UserProfile' object that describes the user\'s SSH information.+-- | A @UserProfile@ object that describes the user's SSH information. dmuprsUserProfile :: Lens' DescribeMyUserProfileResponse (Maybe SelfUserProfile) dmuprsUserProfile = lens _dmuprsUserProfile (\ s a -> s{_dmuprsUserProfile = a}); --- | The response status code.+-- | -- | The response status code. dmuprsResponseStatus :: Lens' DescribeMyUserProfileResponse Int dmuprsResponseStatus = lens _dmuprsResponseStatus (\ s a -> s{_dmuprsResponseStatus = a}); 

@@ -20,7 +20,9 @@ -- -- Describes the permissions for a specified stack. ----- __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>.+--+-- __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> .+-- module Network.AWS.OpsWorks.DescribePermissions     (     -- * Creating a Request@@ -55,9 +57,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dpIAMUserARN'+-- * 'dpIAMUserARN' - The user's IAM ARN. This can also be a federated user's ARN. For more information about IAM ARNs, see <http://docs.aws.amazon.com/IAM/latest/UserGuide/Using_Identifiers.html Using Identifiers> . ----- * 'dpStackId'+-- * 'dpStackId' - The stack ID. describePermissions     :: DescribePermissions describePermissions =@@ -66,7 +68,7 @@     , _dpStackId = Nothing     } --- | The user\'s IAM ARN. For more information about IAM ARNs, see <http://docs.aws.amazon.com/IAM/latest/UserGuide/Using_Identifiers.html Using Identifiers>.+-- | The user's IAM ARN. This can also be a federated user's ARN. For more information about IAM ARNs, see <http://docs.aws.amazon.com/IAM/latest/UserGuide/Using_Identifiers.html Using Identifiers> . dpIAMUserARN :: Lens' DescribePermissions (Maybe Text) dpIAMUserARN = lens _dpIAMUserARN (\ s a -> s{_dpIAMUserARN = a}); @@ -112,8 +114,10 @@ instance ToQuery DescribePermissions where         toQuery = const mempty --- | Contains the response to a 'DescribePermissions' request.+-- | Contains the response to a @DescribePermissions@ request. --+--+-- -- /See:/ 'describePermissionsResponse' smart constructor. data DescribePermissionsResponse = DescribePermissionsResponse'     { _dprsPermissions    :: !(Maybe [Permission])@@ -124,9 +128,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dprsPermissions'+-- * 'dprsPermissions' - An array of @Permission@ objects that describe the stack permissions.     * If the request object contains only a stack ID, the array contains a @Permission@ object with permissions for each of the stack IAM ARNs.     * If the request object contains only an IAM ARN, the array contains a @Permission@ object with permissions for each of the user's stack IDs.     * If the request contains a stack ID and an IAM ARN, the array contains a single @Permission@ object with permissions for the specified stack and IAM ARN. ----- * 'dprsResponseStatus'+-- * 'dprsResponseStatus' - -- | The response status code. describePermissionsResponse     :: Int -- ^ 'dprsResponseStatus'     -> DescribePermissionsResponse@@ -136,18 +140,11 @@     , _dprsResponseStatus = pResponseStatus_     } --- | An array of 'Permission' objects that describe the stack permissions.------ -   If the request object contains only a stack ID, the array contains a 'Permission' object with permissions for each of the stack IAM ARNs.------ -   If the request object contains only an IAM ARN, the array contains a 'Permission' object with permissions for each of the user\'s stack IDs.------ -   If the request contains a stack ID and an IAM ARN, the array contains a single 'Permission' object with permissions for the specified stack and IAM ARN.---+-- | An array of @Permission@ objects that describe the stack permissions.     * If the request object contains only a stack ID, the array contains a @Permission@ object with permissions for each of the stack IAM ARNs.     * If the request object contains only an IAM ARN, the array contains a @Permission@ object with permissions for each of the user's stack IDs.     * If the request contains a stack ID and an IAM ARN, the array contains a single @Permission@ object with permissions for the specified stack and IAM ARN. dprsPermissions :: Lens' DescribePermissionsResponse [Permission] dprsPermissions = lens _dprsPermissions (\ s a -> s{_dprsPermissions = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. dprsResponseStatus :: Lens' DescribePermissionsResponse Int dprsResponseStatus = lens _dprsResponseStatus (\ s a -> s{_dprsResponseStatus = a}); 

@@ -18,11 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Describe an instance\'s RAID arrays.+-- Describe an instance's RAID arrays. ----- You must specify at least one of the parameters. ----- __Required Permissions__: To use this action, an IAM user must have a Show, 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>.+-- __Required Permissions__ : To use this action, an IAM user must have a Show, 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> .+-- module Network.AWS.OpsWorks.DescribeRAIdArrays     (     -- * Creating a Request@@ -59,11 +59,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'draiaInstanceId'+-- * 'draiaInstanceId' - The instance ID. If you use this parameter, @DescribeRaidArrays@ returns descriptions of the RAID arrays associated with the specified instance. ----- * 'draiaRAIdArrayIds'+-- * 'draiaRAIdArrayIds' - An array of RAID array IDs. If you use this parameter, @DescribeRaidArrays@ returns descriptions of the specified arrays. Otherwise, it returns a description of every array. ----- * 'draiaStackId'+-- * 'draiaStackId' - The stack ID. describeRAIdArrays     :: DescribeRAIdArrays describeRAIdArrays =@@ -73,11 +73,11 @@     , _draiaStackId = Nothing     } --- | The instance ID. If you use this parameter, 'DescribeRaidArrays' returns descriptions of the RAID arrays associated with the specified instance.+-- | The instance ID. If you use this parameter, @DescribeRaidArrays@ returns descriptions of the RAID arrays associated with the specified instance. draiaInstanceId :: Lens' DescribeRAIdArrays (Maybe Text) draiaInstanceId = lens _draiaInstanceId (\ s a -> s{_draiaInstanceId = a}); --- | An array of RAID array IDs. If you use this parameter, 'DescribeRaidArrays' returns descriptions of the specified arrays. Otherwise, it returns a description of every array.+-- | An array of RAID array IDs. If you use this parameter, @DescribeRaidArrays@ returns descriptions of the specified arrays. Otherwise, it returns a description of every array. draiaRAIdArrayIds :: Lens' DescribeRAIdArrays [Text] draiaRAIdArrayIds = lens _draiaRAIdArrayIds (\ s a -> s{_draiaRAIdArrayIds = a}) . _Default . _Coerce; @@ -124,8 +124,10 @@ instance ToQuery DescribeRAIdArrays where         toQuery = const mempty --- | Contains the response to a 'DescribeRaidArrays' request.+-- | Contains the response to a @DescribeRaidArrays@ request. --+--+-- -- /See:/ 'describeRAIdArraysResponse' smart constructor. data DescribeRAIdArraysResponse = DescribeRAIdArraysResponse'     { _draiarsRAIdArrays     :: !(Maybe [RAIdArray])@@ -136,9 +138,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'draiarsRAIdArrays'+-- * 'draiarsRAIdArrays' - A @RaidArrays@ object that describes the specified RAID arrays. ----- * 'draiarsResponseStatus'+-- * 'draiarsResponseStatus' - -- | The response status code. describeRAIdArraysResponse     :: Int -- ^ 'draiarsResponseStatus'     -> DescribeRAIdArraysResponse@@ -148,11 +150,11 @@     , _draiarsResponseStatus = pResponseStatus_     } --- | A 'RaidArrays' object that describes the specified RAID arrays.+-- | A @RaidArrays@ object that describes the specified RAID arrays. draiarsRAIdArrays :: Lens' DescribeRAIdArraysResponse [RAIdArray] draiarsRAIdArrays = lens _draiarsRAIdArrays (\ s a -> s{_draiarsRAIdArrays = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. draiarsResponseStatus :: Lens' DescribeRAIdArraysResponse Int draiarsResponseStatus = lens _draiarsResponseStatus (\ s a -> s{_draiarsResponseStatus = a}); 

@@ -20,7 +20,9 @@ -- -- Describes Amazon RDS instances. ----- __Required Permissions__: To use this action, an IAM user must have a Show, 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>.+--+-- __Required Permissions__ : To use this action, an IAM user must have a Show, 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> .+-- module Network.AWS.OpsWorks.DescribeRDSDBInstances     (     -- * Creating a Request@@ -55,9 +57,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'drdiRDSDBInstanceARNs'+-- * 'drdiRDSDBInstanceARNs' - An array containing the ARNs of the instances to be described. ----- * 'drdiStackId'+-- * 'drdiStackId' - The stack ID that the instances are registered with. The operation returns descriptions of all registered Amazon RDS instances. describeRDSDBInstances     :: Text -- ^ 'drdiStackId'     -> DescribeRDSDBInstances@@ -113,8 +115,10 @@ instance ToQuery DescribeRDSDBInstances where         toQuery = const mempty --- | Contains the response to a 'DescribeRdsDbInstances' request.+-- | Contains the response to a @DescribeRdsDbInstances@ request. --+--+-- -- /See:/ 'describeRDSDBInstancesResponse' smart constructor. data DescribeRDSDBInstancesResponse = DescribeRDSDBInstancesResponse'     { _drdirsRDSDBInstances :: !(Maybe [RDSDBInstance])@@ -125,9 +129,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'drdirsRDSDBInstances'+-- * 'drdirsRDSDBInstances' - An a array of @RdsDbInstance@ objects that describe the instances. ----- * 'drdirsResponseStatus'+-- * 'drdirsResponseStatus' - -- | The response status code. describeRDSDBInstancesResponse     :: Int -- ^ 'drdirsResponseStatus'     -> DescribeRDSDBInstancesResponse@@ -137,11 +141,11 @@     , _drdirsResponseStatus = pResponseStatus_     } --- | An a array of 'RdsDbInstance' objects that describe the instances.+-- | An a array of @RdsDbInstance@ objects that describe the instances. drdirsRDSDBInstances :: Lens' DescribeRDSDBInstancesResponse [RDSDBInstance] drdirsRDSDBInstances = lens _drdirsRDSDBInstances (\ s a -> s{_drdirsRDSDBInstances = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. drdirsResponseStatus :: Lens' DescribeRDSDBInstancesResponse Int drdirsResponseStatus = lens _drdirsResponseStatus (\ s a -> s{_drdirsResponseStatus = a}); 

@@ -20,7 +20,9 @@ -- -- Describes AWS OpsWorks service errors. ----- __Required Permissions__: To use this action, an IAM user must have a Show, 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>.+--+-- __Required Permissions__ : To use this action, an IAM user must have a Show, 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> .+-- module Network.AWS.OpsWorks.DescribeServiceErrors     (     -- * Creating a Request@@ -57,11 +59,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dseInstanceId'+-- * 'dseInstanceId' - The instance ID. If you use this parameter, @DescribeServiceErrors@ returns descriptions of the errors associated with the specified instance. ----- * 'dseStackId'+-- * 'dseStackId' - The stack ID. If you use this parameter, @DescribeServiceErrors@ returns descriptions of the errors associated with the specified stack. ----- * 'dseServiceErrorIds'+-- * 'dseServiceErrorIds' - An array of service error IDs. If you use this parameter, @DescribeServiceErrors@ returns descriptions of the specified errors. Otherwise, it returns a description of every error. describeServiceErrors     :: DescribeServiceErrors describeServiceErrors =@@ -71,15 +73,15 @@     , _dseServiceErrorIds = Nothing     } --- | The instance ID. If you use this parameter, 'DescribeServiceErrors' returns descriptions of the errors associated with the specified instance.+-- | The instance ID. If you use this parameter, @DescribeServiceErrors@ returns descriptions of the errors associated with the specified instance. dseInstanceId :: Lens' DescribeServiceErrors (Maybe Text) dseInstanceId = lens _dseInstanceId (\ s a -> s{_dseInstanceId = a}); --- | The stack ID. If you use this parameter, 'DescribeServiceErrors' returns descriptions of the errors associated with the specified stack.+-- | The stack ID. If you use this parameter, @DescribeServiceErrors@ returns descriptions of the errors associated with the specified stack. dseStackId :: Lens' DescribeServiceErrors (Maybe Text) dseStackId = lens _dseStackId (\ s a -> s{_dseStackId = a}); --- | An array of service error IDs. If you use this parameter, 'DescribeServiceErrors' returns descriptions of the specified errors. Otherwise, it returns a description of every error.+-- | An array of service error IDs. If you use this parameter, @DescribeServiceErrors@ returns descriptions of the specified errors. Otherwise, it returns a description of every error. dseServiceErrorIds :: Lens' DescribeServiceErrors [Text] dseServiceErrorIds = lens _dseServiceErrorIds (\ s a -> s{_dseServiceErrorIds = a}) . _Default . _Coerce; @@ -122,8 +124,10 @@ instance ToQuery DescribeServiceErrors where         toQuery = const mempty --- | Contains the response to a 'DescribeServiceErrors' request.+-- | Contains the response to a @DescribeServiceErrors@ request. --+--+-- -- /See:/ 'describeServiceErrorsResponse' smart constructor. data DescribeServiceErrorsResponse = DescribeServiceErrorsResponse'     { _dsersServiceErrors  :: !(Maybe [ServiceError'])@@ -134,9 +138,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dsersServiceErrors'+-- * 'dsersServiceErrors' - An array of @ServiceError@ objects that describe the specified service errors. ----- * 'dsersResponseStatus'+-- * 'dsersResponseStatus' - -- | The response status code. describeServiceErrorsResponse     :: Int -- ^ 'dsersResponseStatus'     -> DescribeServiceErrorsResponse@@ -146,11 +150,11 @@     , _dsersResponseStatus = pResponseStatus_     } --- | An array of 'ServiceError' objects that describe the specified service errors.+-- | An array of @ServiceError@ objects that describe the specified service errors. dsersServiceErrors :: Lens' DescribeServiceErrorsResponse [ServiceError'] dsersServiceErrors = lens _dsersServiceErrors (\ s a -> s{_dsersServiceErrors = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. dsersResponseStatus :: Lens' DescribeServiceErrorsResponse Int dsersResponseStatus = lens _dsersResponseStatus (\ s a -> s{_dsersResponseStatus = a}); 

@@ -18,9 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Requests a description of a stack\'s provisioning parameters.+-- Requests a description of a stack's provisioning parameters. ----- __Required Permissions__: To use this action, an IAM user must have a Show, 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>.+--+-- __Required Permissions__ : To use this action, an IAM user must have a Show, 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> .+-- module Network.AWS.OpsWorks.DescribeStackProvisioningParameters     (     -- * Creating a Request@@ -54,7 +56,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dsppStackId'+-- * 'dsppStackId' - The stack ID describeStackProvisioningParameters     :: Text -- ^ 'dsppStackId'     -> DescribeStackProvisioningParameters@@ -109,8 +111,10 @@          where         toQuery = const mempty --- | Contains the response to a 'DescribeStackProvisioningParameters' request.+-- | Contains the response to a @DescribeStackProvisioningParameters@ request. --+--+-- -- /See:/ 'describeStackProvisioningParametersResponse' smart constructor. data DescribeStackProvisioningParametersResponse = DescribeStackProvisioningParametersResponse'     { _dspprsAgentInstallerURL :: !(Maybe Text)@@ -122,11 +126,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dspprsAgentInstallerURL'+-- * 'dspprsAgentInstallerURL' - The AWS OpsWorks agent installer's URL. ----- * 'dspprsParameters'+-- * 'dspprsParameters' - An embedded object that contains the provisioning parameters. ----- * 'dspprsResponseStatus'+-- * 'dspprsResponseStatus' - -- | The response status code. describeStackProvisioningParametersResponse     :: Int -- ^ 'dspprsResponseStatus'     -> DescribeStackProvisioningParametersResponse@@ -137,7 +141,7 @@     , _dspprsResponseStatus = pResponseStatus_     } --- | The AWS OpsWorks agent installer\'s URL.+-- | The AWS OpsWorks agent installer's URL. dspprsAgentInstallerURL :: Lens' DescribeStackProvisioningParametersResponse (Maybe Text) dspprsAgentInstallerURL = lens _dspprsAgentInstallerURL (\ s a -> s{_dspprsAgentInstallerURL = a}); @@ -145,7 +149,7 @@ dspprsParameters :: Lens' DescribeStackProvisioningParametersResponse (HashMap Text Text) dspprsParameters = lens _dspprsParameters (\ s a -> s{_dspprsParameters = a}) . _Default . _Map; --- | The response status code.+-- | -- | The response status code. dspprsResponseStatus :: Lens' DescribeStackProvisioningParametersResponse Int dspprsResponseStatus = lens _dspprsResponseStatus (\ s a -> s{_dspprsResponseStatus = a}); 

@@ -18,9 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Describes the number of layers and apps in a specified stack, and the number of instances in each state, such as 'running_setup' or 'online'.+-- Describes the number of layers and apps in a specified stack, and the number of instances in each state, such as @running_setup@ or @online@ . ----- __Required Permissions__: To use this action, an IAM user must have a Show, 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>.+--+-- __Required Permissions__ : To use this action, an IAM user must have a Show, 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> .+-- module Network.AWS.OpsWorks.DescribeStackSummary     (     -- * Creating a Request@@ -53,7 +55,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dssStackId'+-- * 'dssStackId' - The stack ID. describeStackSummary     :: Text -- ^ 'dssStackId'     -> DescribeStackSummary@@ -101,8 +103,10 @@ instance ToQuery DescribeStackSummary where         toQuery = const mempty --- | Contains the response to a 'DescribeStackSummary' request.+-- | Contains the response to a @DescribeStackSummary@ request. --+--+-- -- /See:/ 'describeStackSummaryResponse' smart constructor. data DescribeStackSummaryResponse = DescribeStackSummaryResponse'     { _dssrsStackSummary   :: !(Maybe StackSummary)@@ -113,9 +117,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dssrsStackSummary'+-- * 'dssrsStackSummary' - A @StackSummary@ object that contains the results. ----- * 'dssrsResponseStatus'+-- * 'dssrsResponseStatus' - -- | The response status code. describeStackSummaryResponse     :: Int -- ^ 'dssrsResponseStatus'     -> DescribeStackSummaryResponse@@ -125,11 +129,11 @@     , _dssrsResponseStatus = pResponseStatus_     } --- | A 'StackSummary' object that contains the results.+-- | A @StackSummary@ object that contains the results. dssrsStackSummary :: Lens' DescribeStackSummaryResponse (Maybe StackSummary) dssrsStackSummary = lens _dssrsStackSummary (\ s a -> s{_dssrsStackSummary = a}); --- | The response status code.+-- | -- | The response status code. dssrsResponseStatus :: Lens' DescribeStackSummaryResponse Int dssrsResponseStatus = lens _dssrsResponseStatus (\ s a -> s{_dssrsResponseStatus = a}); 

@@ -20,7 +20,9 @@ -- -- Requests a description of one or more stacks. ----- __Required Permissions__: To use this action, an IAM user must have a Show, 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>.+--+-- __Required Permissions__ : To use this action, an IAM user must have a Show, 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> .+-- module Network.AWS.OpsWorks.DescribeStacks     (     -- * Creating a Request@@ -53,7 +55,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dsStackIds'+-- * 'dsStackIds' - An array of stack IDs that specify the stacks to be described. If you omit this parameter, @DescribeStacks@ returns a description of every stack. describeStacks     :: DescribeStacks describeStacks =@@ -61,7 +63,7 @@     { _dsStackIds = Nothing     } --- | An array of stack IDs that specify the stacks to be described. If you omit this parameter, 'DescribeStacks' returns a description of every stack.+-- | An array of stack IDs that specify the stacks to be described. If you omit this parameter, @DescribeStacks@ returns a description of every stack. dsStackIds :: Lens' DescribeStacks [Text] dsStackIds = lens _dsStackIds (\ s a -> s{_dsStackIds = a}) . _Default . _Coerce; @@ -98,8 +100,10 @@ instance ToQuery DescribeStacks where         toQuery = const mempty --- | Contains the response to a 'DescribeStacks' request.+-- | Contains the response to a @DescribeStacks@ request. --+--+-- -- /See:/ 'describeStacksResponse' smart constructor. data DescribeStacksResponse = DescribeStacksResponse'     { _dsrsStacks         :: !(Maybe [Stack])@@ -110,9 +114,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dsrsStacks'+-- * 'dsrsStacks' - An array of @Stack@ objects that describe the stacks. ----- * 'dsrsResponseStatus'+-- * 'dsrsResponseStatus' - -- | The response status code. describeStacksResponse     :: Int -- ^ 'dsrsResponseStatus'     -> DescribeStacksResponse@@ -122,11 +126,11 @@     , _dsrsResponseStatus = pResponseStatus_     } --- | An array of 'Stack' objects that describe the stacks.+-- | An array of @Stack@ objects that describe the stacks. dsrsStacks :: Lens' DescribeStacksResponse [Stack] dsrsStacks = lens _dsrsStacks (\ s a -> s{_dsrsStacks = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. dsrsResponseStatus :: Lens' DescribeStacksResponse Int dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a}); 

@@ -20,9 +20,9 @@ -- -- Describes time-based auto scaling configurations for specified instances. ----- You must specify at least one of the parameters. ----- __Required Permissions__: To use this action, an IAM user must have a Show, 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>.+-- __Required Permissions__ : To use this action, an IAM user must have a Show, 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> .+-- module Network.AWS.OpsWorks.DescribeTimeBasedAutoScaling     (     -- * Creating a Request@@ -55,7 +55,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dtbasInstanceIds'+-- * 'dtbasInstanceIds' - An array of instance IDs. describeTimeBasedAutoScaling     :: DescribeTimeBasedAutoScaling describeTimeBasedAutoScaling =@@ -106,8 +106,10 @@ instance ToQuery DescribeTimeBasedAutoScaling where         toQuery = const mempty --- | Contains the response to a 'DescribeTimeBasedAutoScaling' request.+-- | Contains the response to a @DescribeTimeBasedAutoScaling@ request. --+--+-- -- /See:/ 'describeTimeBasedAutoScalingResponse' smart constructor. data DescribeTimeBasedAutoScalingResponse = DescribeTimeBasedAutoScalingResponse'     { _dtbasrsTimeBasedAutoScalingConfigurations :: !(Maybe [TimeBasedAutoScalingConfiguration])@@ -118,9 +120,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dtbasrsTimeBasedAutoScalingConfigurations'+-- * 'dtbasrsTimeBasedAutoScalingConfigurations' - An array of @TimeBasedAutoScalingConfiguration@ objects that describe the configuration for the specified instances. ----- * 'dtbasrsResponseStatus'+-- * 'dtbasrsResponseStatus' - -- | The response status code. describeTimeBasedAutoScalingResponse     :: Int -- ^ 'dtbasrsResponseStatus'     -> DescribeTimeBasedAutoScalingResponse@@ -130,11 +132,11 @@     , _dtbasrsResponseStatus = pResponseStatus_     } --- | An array of 'TimeBasedAutoScalingConfiguration' objects that describe the configuration for the specified instances.+-- | An array of @TimeBasedAutoScalingConfiguration@ objects that describe the configuration for the specified instances. dtbasrsTimeBasedAutoScalingConfigurations :: Lens' DescribeTimeBasedAutoScalingResponse [TimeBasedAutoScalingConfiguration] dtbasrsTimeBasedAutoScalingConfigurations = lens _dtbasrsTimeBasedAutoScalingConfigurations (\ s a -> s{_dtbasrsTimeBasedAutoScalingConfigurations = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. dtbasrsResponseStatus :: Lens' DescribeTimeBasedAutoScalingResponse Int dtbasrsResponseStatus = lens _dtbasrsResponseStatus (\ s a -> s{_dtbasrsResponseStatus = a}); 

@@ -20,7 +20,9 @@ -- -- Describe specified users. ----- __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> .+-- module Network.AWS.OpsWorks.DescribeUserProfiles     (     -- * Creating a Request@@ -53,7 +55,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dupIAMUserARNs'+-- * 'dupIAMUserARNs' - An array of IAM or federated user ARNs that identify the users to be described. describeUserProfiles     :: DescribeUserProfiles describeUserProfiles =@@ -61,7 +63,7 @@     { _dupIAMUserARNs = Nothing     } --- | An array of IAM user ARNs that identify the users to be described.+-- | An array of IAM or federated user ARNs that identify the users to be described. dupIAMUserARNs :: Lens' DescribeUserProfiles [Text] dupIAMUserARNs = lens _dupIAMUserARNs (\ s a -> s{_dupIAMUserARNs = a}) . _Default . _Coerce; @@ -101,8 +103,10 @@ instance ToQuery DescribeUserProfiles where         toQuery = const mempty --- | Contains the response to a 'DescribeUserProfiles' request.+-- | Contains the response to a @DescribeUserProfiles@ request. --+--+-- -- /See:/ 'describeUserProfilesResponse' smart constructor. data DescribeUserProfilesResponse = DescribeUserProfilesResponse'     { _duprsUserProfiles   :: !(Maybe [UserProfile])@@ -113,9 +117,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'duprsUserProfiles'+-- * 'duprsUserProfiles' - A @Users@ object that describes the specified users. ----- * 'duprsResponseStatus'+-- * 'duprsResponseStatus' - -- | The response status code. describeUserProfilesResponse     :: Int -- ^ 'duprsResponseStatus'     -> DescribeUserProfilesResponse@@ -125,11 +129,11 @@     , _duprsResponseStatus = pResponseStatus_     } --- | A 'Users' object that describes the specified users.+-- | A @Users@ object that describes the specified users. duprsUserProfiles :: Lens' DescribeUserProfilesResponse [UserProfile] duprsUserProfiles = lens _duprsUserProfiles (\ s a -> s{_duprsUserProfiles = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. duprsResponseStatus :: Lens' DescribeUserProfilesResponse Int duprsResponseStatus = lens _duprsResponseStatus (\ s a -> s{_duprsResponseStatus = a}); 

@@ -18,11 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Describes an instance\'s Amazon EBS volumes.+-- Describes an instance's Amazon EBS volumes. ----- You must specify at least one of the parameters. ----- __Required Permissions__: To use this action, an IAM user must have a Show, 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>.+-- __Required Permissions__ : To use this action, an IAM user must have a Show, 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> .+-- module Network.AWS.OpsWorks.DescribeVolumes     (     -- * Creating a Request@@ -61,13 +61,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dvInstanceId'+-- * 'dvInstanceId' - The instance ID. If you use this parameter, @DescribeVolumes@ returns descriptions of the volumes associated with the specified instance. ----- * 'dvVolumeIds'+-- * 'dvVolumeIds' - Am array of volume IDs. If you use this parameter, @DescribeVolumes@ returns descriptions of the specified volumes. Otherwise, it returns a description of every volume. ----- * 'dvRAIdArrayId'+-- * 'dvRAIdArrayId' - The RAID array ID. If you use this parameter, @DescribeVolumes@ returns descriptions of the volumes associated with the specified RAID array. ----- * 'dvStackId'+-- * 'dvStackId' - A stack ID. The action describes the stack's registered Amazon EBS volumes. describeVolumes     :: DescribeVolumes describeVolumes =@@ -78,19 +78,19 @@     , _dvStackId = Nothing     } --- | The instance ID. If you use this parameter, 'DescribeVolumes' returns descriptions of the volumes associated with the specified instance.+-- | The instance ID. If you use this parameter, @DescribeVolumes@ returns descriptions of the volumes associated with the specified instance. dvInstanceId :: Lens' DescribeVolumes (Maybe Text) dvInstanceId = lens _dvInstanceId (\ s a -> s{_dvInstanceId = a}); --- | Am array of volume IDs. If you use this parameter, 'DescribeVolumes' returns descriptions of the specified volumes. Otherwise, it returns a description of every volume.+-- | Am array of volume IDs. If you use this parameter, @DescribeVolumes@ returns descriptions of the specified volumes. Otherwise, it returns a description of every volume. dvVolumeIds :: Lens' DescribeVolumes [Text] dvVolumeIds = lens _dvVolumeIds (\ s a -> s{_dvVolumeIds = a}) . _Default . _Coerce; --- | The RAID array ID. If you use this parameter, 'DescribeVolumes' returns descriptions of the volumes associated with the specified RAID array.+-- | The RAID array ID. If you use this parameter, @DescribeVolumes@ returns descriptions of the volumes associated with the specified RAID array. dvRAIdArrayId :: Lens' DescribeVolumes (Maybe Text) dvRAIdArrayId = lens _dvRAIdArrayId (\ s a -> s{_dvRAIdArrayId = a}); --- | A stack ID. The action describes the stack\'s registered Amazon EBS volumes.+-- | A stack ID. The action describes the stack's registered Amazon EBS volumes. dvStackId :: Lens' DescribeVolumes (Maybe Text) dvStackId = lens _dvStackId (\ s a -> s{_dvStackId = a}); @@ -131,8 +131,10 @@ instance ToQuery DescribeVolumes where         toQuery = const mempty --- | Contains the response to a 'DescribeVolumes' request.+-- | Contains the response to a @DescribeVolumes@ request. --+--+-- -- /See:/ 'describeVolumesResponse' smart constructor. data DescribeVolumesResponse = DescribeVolumesResponse'     { _dvrsVolumes        :: !(Maybe [Volume])@@ -143,9 +145,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dvrsVolumes'+-- * 'dvrsVolumes' - An array of volume IDs. ----- * 'dvrsResponseStatus'+-- * 'dvrsResponseStatus' - -- | The response status code. describeVolumesResponse     :: Int -- ^ 'dvrsResponseStatus'     -> DescribeVolumesResponse@@ -159,7 +161,7 @@ dvrsVolumes :: Lens' DescribeVolumesResponse [Volume] dvrsVolumes = lens _dvrsVolumes (\ s a -> s{_dvrsVolumes = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. dvrsResponseStatus :: Lens' DescribeVolumesResponse Int dvrsResponseStatus = lens _dvrsResponseStatus (\ s a -> s{_dvrsResponseStatus = a}); 

@@ -20,7 +20,9 @@ -- -- Detaches a specified Elastic Load Balancing instance from its 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 User Permissions>.+--+-- __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> .+-- module Network.AWS.OpsWorks.DetachElasticLoadBalancer     (     -- * Creating a Request@@ -52,9 +54,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'delbElasticLoadBalancerName'+-- * 'delbElasticLoadBalancerName' - The Elastic Load Balancing instance's name. ----- * 'delbLayerId'+-- * 'delbLayerId' - The ID of the layer that the Elastic Load Balancing instance is attached to. detachElasticLoadBalancer     :: Text -- ^ 'delbElasticLoadBalancerName'     -> Text -- ^ 'delbLayerId'@@ -65,7 +67,7 @@     , _delbLayerId = pLayerId_     } --- | The Elastic Load Balancing instance\'s name.+-- | The Elastic Load Balancing instance's name. delbElasticLoadBalancerName :: Lens' DetachElasticLoadBalancer Text delbElasticLoadBalancerName = lens _delbElasticLoadBalancerName (\ s a -> s{_delbElasticLoadBalancerName = a}); 

@@ -18,9 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Disassociates an Elastic IP address from its instance. The address remains registered with the stack. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/resources.html Resource Management>.+-- Disassociates an Elastic IP address from its instance. The address remains registered with the stack. 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>.+--+-- __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> .+-- module Network.AWS.OpsWorks.DisassociateElasticIP     (     -- * Creating a Request@@ -50,7 +52,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'deiElasticIP'+-- * 'deiElasticIP' - The Elastic IP address. disassociateElasticIP     :: Text -- ^ 'deiElasticIP'     -> DisassociateElasticIP

@@ -20,7 +20,9 @@ -- -- Gets a generated host name for the specified layer, based on the current host name theme. ----- __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>.+--+-- __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> .+-- module Network.AWS.OpsWorks.GetHostnameSuggestion     (     -- * Creating a Request@@ -54,7 +56,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ghsLayerId'+-- * 'ghsLayerId' - The layer ID. getHostnameSuggestion     :: Text -- ^ 'ghsLayerId'     -> GetHostnameSuggestion@@ -103,8 +105,10 @@ instance ToQuery GetHostnameSuggestion where         toQuery = const mempty --- | Contains the response to a 'GetHostnameSuggestion' request.+-- | Contains the response to a @GetHostnameSuggestion@ request. --+--+-- -- /See:/ 'getHostnameSuggestionResponse' smart constructor. data GetHostnameSuggestionResponse = GetHostnameSuggestionResponse'     { _ghsrsHostname       :: !(Maybe Text)@@ -116,11 +120,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ghsrsHostname'+-- * 'ghsrsHostname' - The generated host name. ----- * 'ghsrsLayerId'+-- * 'ghsrsLayerId' - The layer ID. ----- * 'ghsrsResponseStatus'+-- * 'ghsrsResponseStatus' - -- | The response status code. getHostnameSuggestionResponse     :: Int -- ^ 'ghsrsResponseStatus'     -> GetHostnameSuggestionResponse@@ -139,7 +143,7 @@ ghsrsLayerId :: Lens' GetHostnameSuggestionResponse (Maybe Text) ghsrsLayerId = lens _ghsrsLayerId (\ s a -> s{_ghsrsLayerId = a}); --- | The response status code.+-- | -- | The response status code. ghsrsResponseStatus :: Lens' GetHostnameSuggestionResponse Int ghsrsResponseStatus = lens _ghsrsResponseStatus (\ s a -> s{_ghsrsResponseStatus = a}); 

@@ -18,9 +18,9 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- This action can be used only with Windows stacks.--- -- Grants RDP access to a Windows instance for a specified time period.+--+-- module Network.AWS.OpsWorks.GrantAccess     (     -- * Creating a Request@@ -55,9 +55,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gaValidForInMinutes'+-- * 'gaValidForInMinutes' - The length of time (in minutes) that the grant is valid. When the grant expires at the end of this period, the user will no longer be able to use the credentials to log in. If the user is logged in at the time, he or she automatically will be logged out. ----- * 'gaInstanceId'+-- * 'gaInstanceId' - The instance's AWS OpsWorks ID. grantAccess     :: Text -- ^ 'gaInstanceId'     -> GrantAccess@@ -71,7 +71,7 @@ gaValidForInMinutes :: Lens' GrantAccess (Maybe Natural) gaValidForInMinutes = lens _gaValidForInMinutes (\ s a -> s{_gaValidForInMinutes = a}) . mapping _Nat; --- | The instance\'s AWS OpsWorks ID.+-- | The instance's AWS OpsWorks ID. gaInstanceId :: Lens' GrantAccess Text gaInstanceId = lens _gaInstanceId (\ s a -> s{_gaInstanceId = a}); @@ -111,8 +111,10 @@ instance ToQuery GrantAccess where         toQuery = const mempty --- | Contains the response to a 'GrantAccess' request.+-- | Contains the response to a @GrantAccess@ request. --+--+-- -- /See:/ 'grantAccessResponse' smart constructor. data GrantAccessResponse = GrantAccessResponse'     { _garsTemporaryCredential :: !(Maybe TemporaryCredential)@@ -123,9 +125,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'garsTemporaryCredential'+-- * 'garsTemporaryCredential' - A @TemporaryCredential@ object that contains the data needed to log in to the instance by RDP clients, such as the Microsoft Remote Desktop Connection. ----- * 'garsResponseStatus'+-- * 'garsResponseStatus' - -- | The response status code. grantAccessResponse     :: Int -- ^ 'garsResponseStatus'     -> GrantAccessResponse@@ -135,11 +137,11 @@     , _garsResponseStatus = pResponseStatus_     } --- | A 'TemporaryCredential' object that contains the data needed to log in to the instance by RDP clients, such as the Microsoft Remote Desktop Connection.+-- | A @TemporaryCredential@ object that contains the data needed to log in to the instance by RDP clients, such as the Microsoft Remote Desktop Connection. garsTemporaryCredential :: Lens' GrantAccessResponse (Maybe TemporaryCredential) garsTemporaryCredential = lens _garsTemporaryCredential (\ s a -> s{_garsTemporaryCredential = a}); --- | The response status code.+-- | -- | The response status code. garsResponseStatus :: Lens' GrantAccessResponse Int garsResponseStatus = lens _garsResponseStatus (\ s a -> s{_garsResponseStatus = a}); 

@@ -18,9 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Reboots a specified instance. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-starting.html Starting, Stopping, and Rebooting Instances>.+-- Reboots a specified instance. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-starting.html Starting, Stopping, and Rebooting Instances> . ----- __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>.+--+-- __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> .+-- module Network.AWS.OpsWorks.RebootInstance     (     -- * Creating a Request@@ -50,7 +52,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'riInstanceId'+-- * 'riInstanceId' - The instance ID. rebootInstance     :: Text -- ^ 'riInstanceId'     -> RebootInstance

@@ -18,9 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Registers a specified Amazon ECS cluster with a stack. You can register only one cluster with a stack. A cluster can be registered with only one stack. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workinglayers-ecscluster.html Resource Management>.+-- Registers a specified Amazon ECS cluster with a stack. You can register only one cluster with a stack. A cluster can be registered with only one stack. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workinglayers-ecscluster.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>.+--+-- __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> .+-- module Network.AWS.OpsWorks.RegisterEcsCluster     (     -- * Creating a Request@@ -55,9 +57,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'recEcsClusterARN'+-- * 'recEcsClusterARN' - The cluster's ARN. ----- * 'recStackId'+-- * 'recStackId' - The stack ID. registerEcsCluster     :: Text -- ^ 'recEcsClusterARN'     -> Text -- ^ 'recStackId'@@ -68,7 +70,7 @@     , _recStackId = pStackId_     } --- | The cluster\'s ARN.+-- | The cluster's ARN. recEcsClusterARN :: Lens' RegisterEcsCluster Text recEcsClusterARN = lens _recEcsClusterARN (\ s a -> s{_recEcsClusterARN = a}); @@ -113,8 +115,10 @@ instance ToQuery RegisterEcsCluster where         toQuery = const mempty --- | Contains the response to a 'RegisterEcsCluster' request.+-- | Contains the response to a @RegisterEcsCluster@ request. --+--+-- -- /See:/ 'registerEcsClusterResponse' smart constructor. data RegisterEcsClusterResponse = RegisterEcsClusterResponse'     { _recrsEcsClusterARN  :: !(Maybe Text)@@ -125,9 +129,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'recrsEcsClusterARN'+-- * 'recrsEcsClusterARN' - The cluster's ARN. ----- * 'recrsResponseStatus'+-- * 'recrsResponseStatus' - -- | The response status code. registerEcsClusterResponse     :: Int -- ^ 'recrsResponseStatus'     -> RegisterEcsClusterResponse@@ -137,11 +141,11 @@     , _recrsResponseStatus = pResponseStatus_     } --- | The cluster\'s ARN.+-- | The cluster's ARN. recrsEcsClusterARN :: Lens' RegisterEcsClusterResponse (Maybe Text) recrsEcsClusterARN = lens _recrsEcsClusterARN (\ s a -> s{_recrsEcsClusterARN = a}); --- | The response status code.+-- | -- | The response status code. recrsResponseStatus :: Lens' RegisterEcsClusterResponse Int recrsResponseStatus = lens _recrsResponseStatus (\ s a -> s{_recrsResponseStatus = a}); 

@@ -18,9 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Registers an Elastic IP address with a specified stack. An address can be registered with only one stack at a time. If the address is already registered, you must first deregister it by calling < DeregisterElasticIp>. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/resources.html Resource Management>.+-- Registers an Elastic IP address with a specified stack. An address can be registered with only one stack at a time. If the address is already registered, you must first deregister it by calling 'DeregisterElasticIp' . 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>.+--+-- __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> .+-- module Network.AWS.OpsWorks.RegisterElasticIP     (     -- * Creating a Request@@ -55,9 +57,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'reiElasticIP'+-- * 'reiElasticIP' - The Elastic IP address. ----- * 'reiStackId'+-- * 'reiStackId' - The stack ID. registerElasticIP     :: Text -- ^ 'reiElasticIP'     -> Text -- ^ 'reiStackId'@@ -112,8 +114,10 @@ instance ToQuery RegisterElasticIP where         toQuery = const mempty --- | Contains the response to a 'RegisterElasticIp' request.+-- | Contains the response to a @RegisterElasticIp@ request. --+--+-- -- /See:/ 'registerElasticIPResponse' smart constructor. data RegisterElasticIPResponse = RegisterElasticIPResponse'     { _reirsElasticIP      :: !(Maybe Text)@@ -124,9 +128,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'reirsElasticIP'+-- * 'reirsElasticIP' - The Elastic IP address. ----- * 'reirsResponseStatus'+-- * 'reirsResponseStatus' - -- | The response status code. registerElasticIPResponse     :: Int -- ^ 'reirsResponseStatus'     -> RegisterElasticIPResponse@@ -140,7 +144,7 @@ reirsElasticIP :: Lens' RegisterElasticIPResponse (Maybe Text) reirsElasticIP = lens _reirsElasticIP (\ s a -> s{_reirsElasticIP = a}); --- | The response status code.+-- | -- | The response status code. reirsResponseStatus :: Lens' RegisterElasticIPResponse Int reirsResponseStatus = lens _reirsResponseStatus (\ s a -> s{_reirsResponseStatus = a}); 

@@ -20,9 +20,9 @@ -- -- Registers instances with a specified stack that were created outside of AWS OpsWorks. ----- We do not recommend using this action to register instances. The complete registration operation has two primary steps, installing the AWS OpsWorks agent on the instance and registering the instance with the stack. 'RegisterInstance' handles only the second step. You should instead use the AWS CLI 'register' command, which performs the entire registration operation. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/registered-instances-register.html Registering an Instance with an AWS OpsWorks Stack>. ----- __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>.+-- __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> .+-- module Network.AWS.OpsWorks.RegisterInstance     (     -- * Creating a Request@@ -67,19 +67,19 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'riPrivateIP'+-- * 'riPrivateIP' - The instance's private IP address. ----- * 'riHostname'+-- * 'riHostname' - The instance's hostname. ----- * 'riInstanceIdentity'+-- * 'riInstanceIdentity' - An InstanceIdentity object that contains the instance's identity. ----- * 'riPublicIP'+-- * 'riPublicIP' - The instance's public IP address. ----- * 'riRsaPublicKeyFingerprint'+-- * 'riRsaPublicKeyFingerprint' - The instances public RSA key fingerprint. ----- * 'riRsaPublicKey'+-- * 'riRsaPublicKey' - The instances public RSA key. This key is used to encrypt communication between the instance and the service. ----- * 'riStackId'+-- * 'riStackId' - The ID of the stack that the instance is to be registered with. registerInstance     :: Text -- ^ 'riStackId'     -> RegisterInstance@@ -94,19 +94,19 @@     , _riStackId = pStackId_     } --- | The instance\'s private IP address.+-- | The instance's private IP address. riPrivateIP :: Lens' RegisterInstance (Maybe Text) riPrivateIP = lens _riPrivateIP (\ s a -> s{_riPrivateIP = a}); --- | The instance\'s hostname.+-- | The instance's hostname. riHostname :: Lens' RegisterInstance (Maybe Text) riHostname = lens _riHostname (\ s a -> s{_riHostname = a}); --- | An InstanceIdentity object that contains the instance\'s identity.+-- | An InstanceIdentity object that contains the instance's identity. riInstanceIdentity :: Lens' RegisterInstance (Maybe InstanceIdentity) riInstanceIdentity = lens _riInstanceIdentity (\ s a -> s{_riInstanceIdentity = a}); --- | The instance\'s public IP address.+-- | The instance's public IP address. riPublicIP :: Lens' RegisterInstance (Maybe Text) riPublicIP = lens _riPublicIP (\ s a -> s{_riPublicIP = a}); @@ -163,8 +163,10 @@ instance ToQuery RegisterInstance where         toQuery = const mempty --- | Contains the response to a 'RegisterInstanceResult' request.+-- | Contains the response to a @RegisterInstanceResult@ request. --+--+-- -- /See:/ 'registerInstanceResponse' smart constructor. data RegisterInstanceResponse = RegisterInstanceResponse'     { _rirsInstanceId     :: !(Maybe Text)@@ -175,9 +177,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rirsInstanceId'+-- * 'rirsInstanceId' - The registered instance's AWS OpsWorks ID. ----- * 'rirsResponseStatus'+-- * 'rirsResponseStatus' - -- | The response status code. registerInstanceResponse     :: Int -- ^ 'rirsResponseStatus'     -> RegisterInstanceResponse@@ -187,11 +189,11 @@     , _rirsResponseStatus = pResponseStatus_     } --- | The registered instance\'s AWS OpsWorks ID.+-- | The registered instance's AWS OpsWorks ID. rirsInstanceId :: Lens' RegisterInstanceResponse (Maybe Text) rirsInstanceId = lens _rirsInstanceId (\ s a -> s{_rirsInstanceId = a}); --- | The response status code.+-- | -- | The response status code. rirsResponseStatus :: Lens' RegisterInstanceResponse Int rirsResponseStatus = lens _rirsResponseStatus (\ s a -> s{_rirsResponseStatus = a}); 

@@ -20,7 +20,9 @@ -- -- Registers an Amazon RDS instance with a stack. ----- __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>.+--+-- __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> .+-- module Network.AWS.OpsWorks.RegisterRDSDBInstance     (     -- * Creating a Request@@ -56,13 +58,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rrdiStackId'+-- * 'rrdiStackId' - The stack ID. ----- * 'rrdiRDSDBInstanceARN'+-- * 'rrdiRDSDBInstanceARN' - The Amazon RDS instance's ARN. ----- * 'rrdiDBUser'+-- * 'rrdiDBUser' - The database's master user name. ----- * 'rrdiDBPassword'+-- * 'rrdiDBPassword' - The database password. registerRDSDBInstance     :: Text -- ^ 'rrdiStackId'     -> Text -- ^ 'rrdiRDSDBInstanceARN'@@ -81,11 +83,11 @@ rrdiStackId :: Lens' RegisterRDSDBInstance Text rrdiStackId = lens _rrdiStackId (\ s a -> s{_rrdiStackId = a}); --- | The Amazon RDS instance\'s ARN.+-- | The Amazon RDS instance's ARN. rrdiRDSDBInstanceARN :: Lens' RegisterRDSDBInstance Text rrdiRDSDBInstanceARN = lens _rrdiRDSDBInstanceARN (\ s a -> s{_rrdiRDSDBInstanceARN = a}); --- | The database\'s master user name.+-- | The database's master user name. rrdiDBUser :: Lens' RegisterRDSDBInstance Text rrdiDBUser = lens _rrdiDBUser (\ s a -> s{_rrdiDBUser = a}); 

@@ -18,9 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Registers an Amazon EBS volume with a specified stack. A volume can be registered with only one stack at a time. If the volume is already registered, you must first deregister it by calling < DeregisterVolume>. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/resources.html Resource Management>.+-- Registers an Amazon EBS volume with a specified stack. A volume can be registered with only one stack at a time. If the volume is already registered, you must first deregister it by calling 'DeregisterVolume' . 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>.+--+-- __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> .+-- module Network.AWS.OpsWorks.RegisterVolume     (     -- * Creating a Request@@ -55,9 +57,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rvEC2VolumeId'+-- * 'rvEC2VolumeId' - The Amazon EBS volume ID. ----- * 'rvStackId'+-- * 'rvStackId' - The stack ID. registerVolume     :: Text -- ^ 'rvStackId'     -> RegisterVolume@@ -110,8 +112,10 @@ instance ToQuery RegisterVolume where         toQuery = const mempty --- | Contains the response to a 'RegisterVolume' request.+-- | Contains the response to a @RegisterVolume@ request. --+--+-- -- /See:/ 'registerVolumeResponse' smart constructor. data RegisterVolumeResponse = RegisterVolumeResponse'     { _rvrsVolumeId       :: !(Maybe Text)@@ -122,9 +126,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rvrsVolumeId'+-- * 'rvrsVolumeId' - The volume ID. ----- * 'rvrsResponseStatus'+-- * 'rvrsResponseStatus' - -- | The response status code. registerVolumeResponse     :: Int -- ^ 'rvrsResponseStatus'     -> RegisterVolumeResponse@@ -138,7 +142,7 @@ rvrsVolumeId :: Lens' RegisterVolumeResponse (Maybe Text) rvrsVolumeId = lens _rvrsVolumeId (\ s a -> s{_rvrsVolumeId = a}); --- | The response status code.+-- | -- | The response status code. rvrsResponseStatus :: Lens' RegisterVolumeResponse Int rvrsResponseStatus = lens _rvrsResponseStatus (\ s a -> s{_rvrsResponseStatus = a}); 

@@ -18,11 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Specify the load-based auto scaling configuration for a specified layer. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-autoscaling.html Managing Load with Time-based and Load-based Instances>.+-- Specify the load-based auto scaling configuration for a specified layer. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-autoscaling.html Managing Load with Time-based and Load-based Instances> . ----- To use load-based auto scaling, you must create a set of load-based auto scaling instances. Load-based auto scaling operates only on the instances from that set, so you must ensure that you have created enough instances to handle the maximum anticipated load. ----- __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>.+-- __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> .+-- module Network.AWS.OpsWorks.SetLoadBasedAutoScaling     (     -- * Creating a Request@@ -58,13 +58,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'slbasUpScaling'+-- * 'slbasUpScaling' - An @AutoScalingThresholds@ object with the upscaling threshold configuration. If the load exceeds these thresholds for a specified amount of time, AWS OpsWorks starts a specified number of instances. ----- * 'slbasEnable'+-- * 'slbasEnable' - Enables load-based auto scaling for the layer. ----- * 'slbasDownScaling'+-- * 'slbasDownScaling' - An @AutoScalingThresholds@ object with the downscaling threshold configuration. If the load falls below these thresholds for a specified amount of time, AWS OpsWorks stops a specified number of instances. ----- * 'slbasLayerId'+-- * 'slbasLayerId' - The layer ID. setLoadBasedAutoScaling     :: Text -- ^ 'slbasLayerId'     -> SetLoadBasedAutoScaling@@ -76,7 +76,7 @@     , _slbasLayerId = pLayerId_     } --- | An 'AutoScalingThresholds' object with the upscaling threshold configuration. If the load exceeds these thresholds for a specified amount of time, AWS OpsWorks starts a specified number of instances.+-- | An @AutoScalingThresholds@ object with the upscaling threshold configuration. If the load exceeds these thresholds for a specified amount of time, AWS OpsWorks starts a specified number of instances. slbasUpScaling :: Lens' SetLoadBasedAutoScaling (Maybe AutoScalingThresholds) slbasUpScaling = lens _slbasUpScaling (\ s a -> s{_slbasUpScaling = a}); @@ -84,7 +84,7 @@ slbasEnable :: Lens' SetLoadBasedAutoScaling (Maybe Bool) slbasEnable = lens _slbasEnable (\ s a -> s{_slbasEnable = a}); --- | An 'AutoScalingThresholds' object with the downscaling threshold configuration. If the load falls below these thresholds for a specified amount of time, AWS OpsWorks stops a specified number of instances.+-- | An @AutoScalingThresholds@ object with the downscaling threshold configuration. If the load falls below these thresholds for a specified amount of time, AWS OpsWorks stops a specified number of instances. slbasDownScaling :: Lens' SetLoadBasedAutoScaling (Maybe AutoScalingThresholds) slbasDownScaling = lens _slbasDownScaling (\ s a -> s{_slbasDownScaling = a}); 

@@ -18,9 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Specifies a user\'s permissions. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workingsecurity.html Security and Permissions>.+-- Specifies a user's permissions. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workingsecurity.html Security and Permissions> . ----- __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>.+--+-- __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> .+-- module Network.AWS.OpsWorks.SetPermission     (     -- * Creating a Request@@ -58,15 +60,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'spAllowSudo'+-- * 'spAllowSudo' - The user is allowed to use __sudo__ to elevate privileges. ----- * 'spLevel'+-- * 'spLevel' - The user's permission level, which must be set to one of the following strings. You cannot set your own permissions level.     * @deny@      * @show@      * @deploy@      * @manage@      * @iam_only@  For more information on the permissions associated with these levels, see <http://docs.aws.amazon.com/opsworks/latest/userguide/opsworks-security-users.html Managing User Permissions> . ----- * 'spAllowSSH'+-- * 'spAllowSSH' - The user is allowed to use SSH to communicate with the instance. ----- * 'spStackId'+-- * 'spStackId' - The stack ID. ----- * 'spIAMUserARN'+-- * 'spIAMUserARN' - The user's IAM ARN. This can also be a federated user's ARN. setPermission     :: Text -- ^ 'spStackId'     -> Text -- ^ 'spIAMUserARN'@@ -84,19 +86,7 @@ spAllowSudo :: Lens' SetPermission (Maybe Bool) spAllowSudo = lens _spAllowSudo (\ s a -> s{_spAllowSudo = a}); --- | The user\'s permission level, which must be set to one of the following strings. You cannot set your own permissions level.------ -   'deny'------ -   'show'------ -   'deploy'------ -   'manage'------ -   'iam_only'------ For more information on the permissions associated with these levels, see <http://docs.aws.amazon.com/opsworks/latest/userguide/opsworks-security-users.html Managing User Permissions>.+-- | The user's permission level, which must be set to one of the following strings. You cannot set your own permissions level.     * @deny@      * @show@      * @deploy@      * @manage@      * @iam_only@  For more information on the permissions associated with these levels, see <http://docs.aws.amazon.com/opsworks/latest/userguide/opsworks-security-users.html Managing User Permissions> . spLevel :: Lens' SetPermission (Maybe Text) spLevel = lens _spLevel (\ s a -> s{_spLevel = a}); @@ -108,7 +98,7 @@ spStackId :: Lens' SetPermission Text spStackId = lens _spStackId (\ s a -> s{_spStackId = a}); --- | The user\'s IAM ARN.+-- | The user's IAM ARN. This can also be a federated user's ARN. spIAMUserARN :: Lens' SetPermission Text spIAMUserARN = lens _spIAMUserARN (\ s a -> s{_spIAMUserARN = a}); 

@@ -18,9 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Specify the time-based auto scaling configuration for a specified instance. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-autoscaling.html Managing Load with Time-based and Load-based Instances>.+-- Specify the time-based auto scaling configuration for a specified instance. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-autoscaling.html Managing Load with Time-based and Load-based Instances> . ----- __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>.+--+-- __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> .+-- module Network.AWS.OpsWorks.SetTimeBasedAutoScaling     (     -- * Creating a Request@@ -52,9 +54,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'stbasAutoScalingSchedule'+-- * 'stbasAutoScalingSchedule' - An @AutoScalingSchedule@ with the instance schedule. ----- * 'stbasInstanceId'+-- * 'stbasInstanceId' - The instance ID. setTimeBasedAutoScaling     :: Text -- ^ 'stbasInstanceId'     -> SetTimeBasedAutoScaling@@ -64,7 +66,7 @@     , _stbasInstanceId = pInstanceId_     } --- | An 'AutoScalingSchedule' with the instance schedule.+-- | An @AutoScalingSchedule@ with the instance schedule. stbasAutoScalingSchedule :: Lens' SetTimeBasedAutoScaling (Maybe WeeklyAutoScalingSchedule) stbasAutoScalingSchedule = lens _stbasAutoScalingSchedule (\ s a -> s{_stbasAutoScalingSchedule = a}); 

@@ -18,9 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Starts a specified instance. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-starting.html Starting, Stopping, and Rebooting Instances>.+-- Starts a specified instance. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-starting.html Starting, Stopping, and Rebooting Instances> . ----- __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>.+--+-- __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> .+-- module Network.AWS.OpsWorks.StartInstance     (     -- * Creating a Request@@ -50,7 +52,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'sInstanceId'+-- * 'sInstanceId' - The instance ID. startInstance     :: Text -- ^ 'sInstanceId'     -> StartInstance

@@ -18,9 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Starts a stack\'s instances.+-- Starts a stack's instances. ----- __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>.+--+-- __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> .+-- module Network.AWS.OpsWorks.StartStack     (     -- * Creating a Request@@ -50,7 +52,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'staStackId'+-- * 'staStackId' - The stack ID. startStack     :: Text -- ^ 'staStackId'     -> StartStack

@@ -18,9 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Stops a specified instance. When you stop a standard instance, the data disappears and must be reinstalled when you restart the instance. You can stop an Amazon EBS-backed instance without losing data. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-starting.html Starting, Stopping, and Rebooting Instances>.+-- Stops a specified instance. When you stop a standard instance, the data disappears and must be reinstalled when you restart the instance. You can stop an Amazon EBS-backed instance without losing data. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-starting.html Starting, Stopping, and Rebooting Instances> . ----- __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>.+--+-- __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> .+-- module Network.AWS.OpsWorks.StopInstance     (     -- * Creating a Request@@ -50,7 +52,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'siInstanceId'+-- * 'siInstanceId' - The instance ID. stopInstance     :: Text -- ^ 'siInstanceId'     -> StopInstance

@@ -20,7 +20,9 @@ -- -- Stops a specified stack. ----- __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>.+--+-- __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> .+-- module Network.AWS.OpsWorks.StopStack     (     -- * Creating a Request@@ -50,7 +52,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'stoStackId'+-- * 'stoStackId' - The stack ID. stopStack     :: Text -- ^ 'stoStackId'     -> StopStack

@@ -510,7 +510,7 @@ import           Network.AWS.Prelude import           Network.AWS.Sign.V4 --- | API version '2013-02-18' of the Amazon OpsWorks SDK configuration.+-- | API version @2013-02-18@ of the Amazon OpsWorks SDK configuration. opsWorks :: Service opsWorks =     Service@@ -545,10 +545,14 @@       | otherwise = Nothing  -- | Indicates that a request was not valid.+--+-- _ValidationException :: AsError a => Getting (First ServiceError) a ServiceError _ValidationException = _ServiceError . hasCode "ValidationException"  -- | Indicates that a resource was not found.+--+-- _ResourceNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _ResourceNotFoundException =     _ServiceError . hasCode "ResourceNotFoundException"

@@ -23,3824 +23,3743 @@  -- | Describes an agent version. ----- /See:/ 'agentVersion' smart constructor.-data AgentVersion = AgentVersion'-    { _avVersion              :: !(Maybe Text)-    , _avConfigurationManager :: !(Maybe StackConfigurationManager)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'AgentVersion' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'avVersion'------ * 'avConfigurationManager'-agentVersion-    :: AgentVersion-agentVersion =-    AgentVersion'-    { _avVersion = Nothing-    , _avConfigurationManager = Nothing-    }---- | The agent version.-avVersion :: Lens' AgentVersion (Maybe Text)-avVersion = lens _avVersion (\ s a -> s{_avVersion = a});---- | The configuration manager.-avConfigurationManager :: Lens' AgentVersion (Maybe StackConfigurationManager)-avConfigurationManager = lens _avConfigurationManager (\ s a -> s{_avConfigurationManager = a});--instance FromJSON AgentVersion where-        parseJSON-          = withObject "AgentVersion"-              (\ x ->-                 AgentVersion' <$>-                   (x .:? "Version") <*> (x .:? "ConfigurationManager"))--instance Hashable AgentVersion--instance NFData AgentVersion---- | A description of the app.------ /See:/ 'app' smart constructor.-data App = App'-    { _appSSLConfiguration :: !(Maybe SSLConfiguration)-    , _appEnvironment      :: !(Maybe [EnvironmentVariable])-    , _appEnableSSL        :: !(Maybe Bool)-    , _appCreatedAt        :: !(Maybe Text)-    , _appShortname        :: !(Maybe Text)-    , _appDataSources      :: !(Maybe [DataSource])-    , _appAppSource        :: !(Maybe Source)-    , _appAppId            :: !(Maybe Text)-    , _appAttributes       :: !(Maybe (Map AppAttributesKeys Text))-    , _appName             :: !(Maybe Text)-    , _appType             :: !(Maybe AppType)-    , _appStackId          :: !(Maybe Text)-    , _appDomains          :: !(Maybe [Text])-    , _appDescription      :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'App' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'appSSLConfiguration'------ * 'appEnvironment'------ * 'appEnableSSL'------ * 'appCreatedAt'------ * 'appShortname'------ * 'appDataSources'------ * 'appAppSource'------ * 'appAppId'------ * 'appAttributes'------ * 'appName'------ * 'appType'------ * 'appStackId'------ * 'appDomains'------ * 'appDescription'-app-    :: App-app =-    App'-    { _appSSLConfiguration = Nothing-    , _appEnvironment = Nothing-    , _appEnableSSL = Nothing-    , _appCreatedAt = Nothing-    , _appShortname = Nothing-    , _appDataSources = Nothing-    , _appAppSource = Nothing-    , _appAppId = Nothing-    , _appAttributes = Nothing-    , _appName = Nothing-    , _appType = Nothing-    , _appStackId = Nothing-    , _appDomains = Nothing-    , _appDescription = Nothing-    }---- | An 'SslConfiguration' object with the SSL configuration.-appSSLConfiguration :: Lens' App (Maybe SSLConfiguration)-appSSLConfiguration = lens _appSSLConfiguration (\ s a -> s{_appSSLConfiguration = 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 instances. 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 variable names, values, and protected flag values - cannot exceed 10 KB (10240 Bytes). This limit should accommodate most if not all use cases, but if you do exceed it, you will cause an exception (API) with an \"Environment: is too large (maximum is 10KB)\" message.-appEnvironment :: Lens' App [EnvironmentVariable]-appEnvironment = lens _appEnvironment (\ s a -> s{_appEnvironment = a}) . _Default . _Coerce;---- | Whether to enable SSL for the app.-appEnableSSL :: Lens' App (Maybe Bool)-appEnableSSL = lens _appEnableSSL (\ s a -> s{_appEnableSSL = a});---- | When the app was created.-appCreatedAt :: Lens' App (Maybe Text)-appCreatedAt = lens _appCreatedAt (\ s a -> s{_appCreatedAt = a});---- | The app\'s short name.-appShortname :: Lens' App (Maybe Text)-appShortname = lens _appShortname (\ s a -> s{_appShortname = a});---- | The app\'s data sources.-appDataSources :: Lens' App [DataSource]-appDataSources = lens _appDataSources (\ s a -> s{_appDataSources = a}) . _Default . _Coerce;---- | A 'Source' object that describes the app repository.-appAppSource :: Lens' App (Maybe Source)-appAppSource = lens _appAppSource (\ s a -> s{_appAppSource = a});---- | The app ID.-appAppId :: Lens' App (Maybe Text)-appAppId = lens _appAppId (\ s a -> s{_appAppId = a});---- | The stack attributes.-appAttributes :: Lens' App (HashMap AppAttributesKeys Text)-appAttributes = lens _appAttributes (\ s a -> s{_appAttributes = a}) . _Default . _Map;---- | The app name.-appName :: Lens' App (Maybe Text)-appName = lens _appName (\ s a -> s{_appName = a});---- | The app type.-appType :: Lens' App (Maybe AppType)-appType = lens _appType (\ s a -> s{_appType = a});---- | The app stack ID.-appStackId :: Lens' App (Maybe Text)-appStackId = lens _appStackId (\ s a -> s{_appStackId = a});---- | The app vhost settings with multiple domains separated by commas. For example: '\'www.example.com, example.com\''-appDomains :: Lens' App [Text]-appDomains = lens _appDomains (\ s a -> s{_appDomains = a}) . _Default . _Coerce;---- | A description of the app.-appDescription :: Lens' App (Maybe Text)-appDescription = lens _appDescription (\ s a -> s{_appDescription = a});--instance FromJSON App where-        parseJSON-          = withObject "App"-              (\ x ->-                 App' <$>-                   (x .:? "SslConfiguration") <*>-                     (x .:? "Environment" .!= mempty)-                     <*> (x .:? "EnableSsl")-                     <*> (x .:? "CreatedAt")-                     <*> (x .:? "Shortname")-                     <*> (x .:? "DataSources" .!= mempty)-                     <*> (x .:? "AppSource")-                     <*> (x .:? "AppId")-                     <*> (x .:? "Attributes" .!= mempty)-                     <*> (x .:? "Name")-                     <*> (x .:? "Type")-                     <*> (x .:? "StackId")-                     <*> (x .:? "Domains" .!= mempty)-                     <*> (x .:? "Description"))--instance Hashable App--instance NFData App---- | Describes a load-based auto scaling upscaling or downscaling threshold configuration, which specifies when AWS OpsWorks starts or stops load-based instances.------ /See:/ 'autoScalingThresholds' smart constructor.-data AutoScalingThresholds = AutoScalingThresholds'-    { _astInstanceCount      :: !(Maybe Int)-    , _astIgnoreMetricsTime  :: !(Maybe Nat)-    , _astLoadThreshold      :: !(Maybe Double)-    , _astThresholdsWaitTime :: !(Maybe Nat)-    , _astAlarms             :: !(Maybe [Text])-    , _astMemoryThreshold    :: !(Maybe Double)-    , _astCPUThreshold       :: !(Maybe Double)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'AutoScalingThresholds' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'astInstanceCount'------ * 'astIgnoreMetricsTime'------ * 'astLoadThreshold'------ * 'astThresholdsWaitTime'------ * 'astAlarms'------ * 'astMemoryThreshold'------ * 'astCPUThreshold'-autoScalingThresholds-    :: AutoScalingThresholds-autoScalingThresholds =-    AutoScalingThresholds'-    { _astInstanceCount = Nothing-    , _astIgnoreMetricsTime = Nothing-    , _astLoadThreshold = Nothing-    , _astThresholdsWaitTime = Nothing-    , _astAlarms = Nothing-    , _astMemoryThreshold = Nothing-    , _astCPUThreshold = Nothing-    }---- | The number of instances to add or remove when the load exceeds a threshold.-astInstanceCount :: Lens' AutoScalingThresholds (Maybe Int)-astInstanceCount = lens _astInstanceCount (\ s a -> s{_astInstanceCount = a});---- | The amount of time (in minutes) after a scaling event occurs that AWS OpsWorks should ignore metrics and suppress additional scaling events. For example, AWS OpsWorks adds new instances following an upscaling event but the instances won\'t start reducing the load until they have been booted and configured. There is no point in raising additional scaling events during that operation, which typically takes several minutes. 'IgnoreMetricsTime' allows you to direct AWS OpsWorks to suppress scaling events long enough to get the new instances online.-astIgnoreMetricsTime :: Lens' AutoScalingThresholds (Maybe Natural)-astIgnoreMetricsTime = lens _astIgnoreMetricsTime (\ s a -> s{_astIgnoreMetricsTime = a}) . mapping _Nat;---- | The load threshold. A value of -1 disables the threshold. For more information about how load is computed, see <http://en.wikipedia.org/wiki/Load_%28computing%29 Load (computing)>.-astLoadThreshold :: Lens' AutoScalingThresholds (Maybe Double)-astLoadThreshold = lens _astLoadThreshold (\ s a -> s{_astLoadThreshold = a});---- | The amount of time, in minutes, that the load must exceed a threshold before more instances are added or removed.-astThresholdsWaitTime :: Lens' AutoScalingThresholds (Maybe Natural)-astThresholdsWaitTime = lens _astThresholdsWaitTime (\ s a -> s{_astThresholdsWaitTime = a}) . mapping _Nat;---- | Custom Cloudwatch auto scaling alarms, to be used as thresholds. This parameter takes a list of up to five alarm names, which are case sensitive and must be in the same region as the stack.------ To use custom alarms, you must update your service role to allow 'cloudwatch:DescribeAlarms'. You can either have AWS OpsWorks update the role for you when you first use this feature or you can edit the role manually. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/opsworks-security-servicerole.html Allowing AWS OpsWorks to Act on Your Behalf>.-astAlarms :: Lens' AutoScalingThresholds [Text]-astAlarms = lens _astAlarms (\ s a -> s{_astAlarms = a}) . _Default . _Coerce;---- | The memory utilization threshold, as a percent of the available memory. A value of -1 disables the threshold.-astMemoryThreshold :: Lens' AutoScalingThresholds (Maybe Double)-astMemoryThreshold = lens _astMemoryThreshold (\ s a -> s{_astMemoryThreshold = a});---- | The CPU utilization threshold, as a percent of the available CPU. A value of -1 disables the threshold.-astCPUThreshold :: Lens' AutoScalingThresholds (Maybe Double)-astCPUThreshold = lens _astCPUThreshold (\ s a -> s{_astCPUThreshold = a});--instance FromJSON AutoScalingThresholds where-        parseJSON-          = withObject "AutoScalingThresholds"-              (\ x ->-                 AutoScalingThresholds' <$>-                   (x .:? "InstanceCount") <*>-                     (x .:? "IgnoreMetricsTime")-                     <*> (x .:? "LoadThreshold")-                     <*> (x .:? "ThresholdsWaitTime")-                     <*> (x .:? "Alarms" .!= mempty)-                     <*> (x .:? "MemoryThreshold")-                     <*> (x .:? "CpuThreshold"))--instance Hashable AutoScalingThresholds--instance NFData AutoScalingThresholds--instance ToJSON AutoScalingThresholds where-        toJSON AutoScalingThresholds'{..}-          = object-              (catMaybes-                 [("InstanceCount" .=) <$> _astInstanceCount,-                  ("IgnoreMetricsTime" .=) <$> _astIgnoreMetricsTime,-                  ("LoadThreshold" .=) <$> _astLoadThreshold,-                  ("ThresholdsWaitTime" .=) <$> _astThresholdsWaitTime,-                  ("Alarms" .=) <$> _astAlarms,-                  ("MemoryThreshold" .=) <$> _astMemoryThreshold,-                  ("CpuThreshold" .=) <$> _astCPUThreshold])---- | Describes a block device mapping. This data type maps directly to the Amazon EC2 <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/API_BlockDeviceMapping.html BlockDeviceMapping> data type.------ /See:/ 'blockDeviceMapping' smart constructor.-data BlockDeviceMapping = BlockDeviceMapping'-    { _bdmVirtualName :: !(Maybe Text)-    , _bdmNoDevice    :: !(Maybe Text)-    , _bdmEBS         :: !(Maybe EBSBlockDevice)-    , _bdmDeviceName  :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'BlockDeviceMapping' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'bdmVirtualName'------ * 'bdmNoDevice'------ * 'bdmEBS'------ * 'bdmDeviceName'-blockDeviceMapping-    :: BlockDeviceMapping-blockDeviceMapping =-    BlockDeviceMapping'-    { _bdmVirtualName = Nothing-    , _bdmNoDevice = Nothing-    , _bdmEBS = Nothing-    , _bdmDeviceName = Nothing-    }---- | The virtual device name. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/API_BlockDeviceMapping.html BlockDeviceMapping>.-bdmVirtualName :: Lens' BlockDeviceMapping (Maybe Text)-bdmVirtualName = lens _bdmVirtualName (\ s a -> s{_bdmVirtualName = a});---- | Suppresses the specified device included in the AMI\'s block device mapping.-bdmNoDevice :: Lens' BlockDeviceMapping (Maybe Text)-bdmNoDevice = lens _bdmNoDevice (\ s a -> s{_bdmNoDevice = a});---- | An 'EBSBlockDevice' that defines how to configure an Amazon EBS volume when the instance is launched.-bdmEBS :: Lens' BlockDeviceMapping (Maybe EBSBlockDevice)-bdmEBS = lens _bdmEBS (\ s a -> s{_bdmEBS = a});---- | The device name that is exposed to the instance, such as '\/dev\/sdh'. For the root device, you can use the explicit device name or you can set this parameter to 'ROOT_DEVICE' and AWS OpsWorks will provide the correct device name.-bdmDeviceName :: Lens' BlockDeviceMapping (Maybe Text)-bdmDeviceName = lens _bdmDeviceName (\ s a -> s{_bdmDeviceName = a});--instance FromJSON BlockDeviceMapping where-        parseJSON-          = withObject "BlockDeviceMapping"-              (\ x ->-                 BlockDeviceMapping' <$>-                   (x .:? "VirtualName") <*> (x .:? "NoDevice") <*>-                     (x .:? "Ebs")-                     <*> (x .:? "DeviceName"))--instance Hashable BlockDeviceMapping--instance NFData BlockDeviceMapping--instance ToJSON BlockDeviceMapping where-        toJSON BlockDeviceMapping'{..}-          = object-              (catMaybes-                 [("VirtualName" .=) <$> _bdmVirtualName,-                  ("NoDevice" .=) <$> _bdmNoDevice,-                  ("Ebs" .=) <$> _bdmEBS,-                  ("DeviceName" .=) <$> _bdmDeviceName])---- | Describes the Chef configuration.------ /See:/ 'chefConfiguration' smart constructor.-data ChefConfiguration = ChefConfiguration'-    { _ccBerkshelfVersion :: !(Maybe Text)-    , _ccManageBerkshelf  :: !(Maybe Bool)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ChefConfiguration' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ccBerkshelfVersion'------ * 'ccManageBerkshelf'-chefConfiguration-    :: ChefConfiguration-chefConfiguration =-    ChefConfiguration'-    { _ccBerkshelfVersion = Nothing-    , _ccManageBerkshelf = Nothing-    }---- | The Berkshelf version.-ccBerkshelfVersion :: Lens' ChefConfiguration (Maybe Text)-ccBerkshelfVersion = lens _ccBerkshelfVersion (\ s a -> s{_ccBerkshelfVersion = a});---- | Whether to enable Berkshelf.-ccManageBerkshelf :: Lens' ChefConfiguration (Maybe Bool)-ccManageBerkshelf = lens _ccManageBerkshelf (\ s a -> s{_ccManageBerkshelf = a});--instance FromJSON ChefConfiguration where-        parseJSON-          = withObject "ChefConfiguration"-              (\ x ->-                 ChefConfiguration' <$>-                   (x .:? "BerkshelfVersion") <*>-                     (x .:? "ManageBerkshelf"))--instance Hashable ChefConfiguration--instance NFData ChefConfiguration--instance ToJSON ChefConfiguration where-        toJSON ChefConfiguration'{..}-          = object-              (catMaybes-                 [("BerkshelfVersion" .=) <$> _ccBerkshelfVersion,-                  ("ManageBerkshelf" .=) <$> _ccManageBerkshelf])---- | Describes a command.------ /See:/ 'command' smart constructor.-data Command = Command'-    { _cDeploymentId   :: !(Maybe Text)-    , _cInstanceId     :: !(Maybe Text)-    , _cStatus         :: !(Maybe Text)-    , _cLogURL         :: !(Maybe Text)-    , _cCreatedAt      :: !(Maybe Text)-    , _cCommandId      :: !(Maybe Text)-    , _cExitCode       :: !(Maybe Int)-    , _cType           :: !(Maybe Text)-    , _cCompletedAt    :: !(Maybe Text)-    , _cAcknowledgedAt :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'Command' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cDeploymentId'------ * 'cInstanceId'------ * 'cStatus'------ * 'cLogURL'------ * 'cCreatedAt'------ * 'cCommandId'------ * 'cExitCode'------ * 'cType'------ * 'cCompletedAt'------ * 'cAcknowledgedAt'-command-    :: Command-command =-    Command'-    { _cDeploymentId = Nothing-    , _cInstanceId = Nothing-    , _cStatus = Nothing-    , _cLogURL = Nothing-    , _cCreatedAt = Nothing-    , _cCommandId = Nothing-    , _cExitCode = Nothing-    , _cType = Nothing-    , _cCompletedAt = Nothing-    , _cAcknowledgedAt = Nothing-    }---- | The command deployment ID.-cDeploymentId :: Lens' Command (Maybe Text)-cDeploymentId = lens _cDeploymentId (\ s a -> s{_cDeploymentId = a});---- | The ID of the instance where the command was executed.-cInstanceId :: Lens' Command (Maybe Text)-cInstanceId = lens _cInstanceId (\ s a -> s{_cInstanceId = a});---- | The command status:------ -   failed------ -   successful------ -   skipped------ -   pending----cStatus :: Lens' Command (Maybe Text)-cStatus = lens _cStatus (\ s a -> s{_cStatus = a});---- | The URL of the command log.-cLogURL :: Lens' Command (Maybe Text)-cLogURL = lens _cLogURL (\ s a -> s{_cLogURL = a});---- | Date and time when the command was run.-cCreatedAt :: Lens' Command (Maybe Text)-cCreatedAt = lens _cCreatedAt (\ s a -> s{_cCreatedAt = a});---- | The command ID.-cCommandId :: Lens' Command (Maybe Text)-cCommandId = lens _cCommandId (\ s a -> s{_cCommandId = a});---- | The command exit code.-cExitCode :: Lens' Command (Maybe Int)-cExitCode = lens _cExitCode (\ s a -> s{_cExitCode = a});---- | The command type:------ -   'deploy'------ -   'rollback'------ -   'start'------ -   'stop'------ -   'restart'------ -   'undeploy'------ -   'update_dependencies'------ -   'install_dependencies'------ -   'update_custom_cookbooks'------ -   'execute_recipes'----cType :: Lens' Command (Maybe Text)-cType = lens _cType (\ s a -> s{_cType = a});---- | Date when the command completed.-cCompletedAt :: Lens' Command (Maybe Text)-cCompletedAt = lens _cCompletedAt (\ s a -> s{_cCompletedAt = a});---- | Date and time when the command was acknowledged.-cAcknowledgedAt :: Lens' Command (Maybe Text)-cAcknowledgedAt = lens _cAcknowledgedAt (\ s a -> s{_cAcknowledgedAt = a});--instance FromJSON Command where-        parseJSON-          = withObject "Command"-              (\ x ->-                 Command' <$>-                   (x .:? "DeploymentId") <*> (x .:? "InstanceId") <*>-                     (x .:? "Status")-                     <*> (x .:? "LogUrl")-                     <*> (x .:? "CreatedAt")-                     <*> (x .:? "CommandId")-                     <*> (x .:? "ExitCode")-                     <*> (x .:? "Type")-                     <*> (x .:? "CompletedAt")-                     <*> (x .:? "AcknowledgedAt"))--instance Hashable Command--instance NFData Command---- | Describes an app\'s data source.------ /See:/ 'dataSource' smart constructor.-data DataSource = DataSource'-    { _dsARN          :: !(Maybe Text)-    , _dsDatabaseName :: !(Maybe Text)-    , _dsType         :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DataSource' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dsARN'------ * 'dsDatabaseName'------ * 'dsType'-dataSource-    :: DataSource-dataSource =-    DataSource'-    { _dsARN = Nothing-    , _dsDatabaseName = Nothing-    , _dsType = Nothing-    }---- | The data source\'s ARN.-dsARN :: Lens' DataSource (Maybe Text)-dsARN = lens _dsARN (\ s a -> s{_dsARN = a});---- | The database name.-dsDatabaseName :: Lens' DataSource (Maybe Text)-dsDatabaseName = lens _dsDatabaseName (\ s a -> s{_dsDatabaseName = a});---- | The data source\'s type, 'AutoSelectOpsworksMysqlInstance', 'OpsworksMysqlInstance', or 'RdsDbInstance'.-dsType :: Lens' DataSource (Maybe Text)-dsType = lens _dsType (\ s a -> s{_dsType = a});--instance FromJSON DataSource where-        parseJSON-          = withObject "DataSource"-              (\ x ->-                 DataSource' <$>-                   (x .:? "Arn") <*> (x .:? "DatabaseName") <*>-                     (x .:? "Type"))--instance Hashable DataSource--instance NFData DataSource--instance ToJSON DataSource where-        toJSON DataSource'{..}-          = object-              (catMaybes-                 [("Arn" .=) <$> _dsARN,-                  ("DatabaseName" .=) <$> _dsDatabaseName,-                  ("Type" .=) <$> _dsType])---- | Describes a deployment of a stack or app.------ /See:/ 'deployment' smart constructor.-data Deployment = Deployment'-    { _dDeploymentId :: !(Maybe Text)-    , _dStatus       :: !(Maybe Text)-    , _dCommand      :: !(Maybe DeploymentCommand)-    , _dCreatedAt    :: !(Maybe Text)-    , _dCustomJSON   :: !(Maybe Text)-    , _dIAMUserARN   :: !(Maybe Text)-    , _dAppId        :: !(Maybe Text)-    , _dInstanceIds  :: !(Maybe [Text])-    , _dCompletedAt  :: !(Maybe Text)-    , _dStackId      :: !(Maybe Text)-    , _dComment      :: !(Maybe Text)-    , _dDuration     :: !(Maybe Int)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'Deployment' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dDeploymentId'------ * 'dStatus'------ * 'dCommand'------ * 'dCreatedAt'------ * 'dCustomJSON'------ * 'dIAMUserARN'------ * 'dAppId'------ * 'dInstanceIds'------ * 'dCompletedAt'------ * 'dStackId'------ * 'dComment'------ * 'dDuration'-deployment-    :: Deployment-deployment =-    Deployment'-    { _dDeploymentId = Nothing-    , _dStatus = Nothing-    , _dCommand = Nothing-    , _dCreatedAt = Nothing-    , _dCustomJSON = Nothing-    , _dIAMUserARN = Nothing-    , _dAppId = Nothing-    , _dInstanceIds = Nothing-    , _dCompletedAt = Nothing-    , _dStackId = Nothing-    , _dComment = Nothing-    , _dDuration = Nothing-    }---- | The deployment ID.-dDeploymentId :: Lens' Deployment (Maybe Text)-dDeploymentId = lens _dDeploymentId (\ s a -> s{_dDeploymentId = a});---- | The deployment status:------ -   running------ -   successful------ -   failed----dStatus :: Lens' Deployment (Maybe Text)-dStatus = lens _dStatus (\ s a -> s{_dStatus = a});---- | Undocumented member.-dCommand :: Lens' Deployment (Maybe DeploymentCommand)-dCommand = lens _dCommand (\ s a -> s{_dCommand = a});---- | Date when the deployment was created.-dCreatedAt :: Lens' Deployment (Maybe Text)-dCreatedAt = lens _dCreatedAt (\ s a -> s{_dCreatedAt = a});---- | A string that contains user-defined custom JSON. It can be used to override the corresponding default stack configuration attribute values for stack or to pass data to recipes. The string should be in the following format and must escape characters such as \'\"\':------ '\"{\\\"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>.-dCustomJSON :: Lens' Deployment (Maybe Text)-dCustomJSON = lens _dCustomJSON (\ s a -> s{_dCustomJSON = a});---- | The user\'s IAM ARN.-dIAMUserARN :: Lens' Deployment (Maybe Text)-dIAMUserARN = lens _dIAMUserARN (\ s a -> s{_dIAMUserARN = a});---- | The app ID.-dAppId :: Lens' Deployment (Maybe Text)-dAppId = lens _dAppId (\ s a -> s{_dAppId = a});---- | The IDs of the target instances.-dInstanceIds :: Lens' Deployment [Text]-dInstanceIds = lens _dInstanceIds (\ s a -> s{_dInstanceIds = a}) . _Default . _Coerce;---- | Date when the deployment completed.-dCompletedAt :: Lens' Deployment (Maybe Text)-dCompletedAt = lens _dCompletedAt (\ s a -> s{_dCompletedAt = a});---- | The stack ID.-dStackId :: Lens' Deployment (Maybe Text)-dStackId = lens _dStackId (\ s a -> s{_dStackId = a});---- | A user-defined comment.-dComment :: Lens' Deployment (Maybe Text)-dComment = lens _dComment (\ s a -> s{_dComment = a});---- | The deployment duration.-dDuration :: Lens' Deployment (Maybe Int)-dDuration = lens _dDuration (\ s a -> s{_dDuration = a});--instance FromJSON Deployment where-        parseJSON-          = withObject "Deployment"-              (\ x ->-                 Deployment' <$>-                   (x .:? "DeploymentId") <*> (x .:? "Status") <*>-                     (x .:? "Command")-                     <*> (x .:? "CreatedAt")-                     <*> (x .:? "CustomJson")-                     <*> (x .:? "IamUserArn")-                     <*> (x .:? "AppId")-                     <*> (x .:? "InstanceIds" .!= mempty)-                     <*> (x .:? "CompletedAt")-                     <*> (x .:? "StackId")-                     <*> (x .:? "Comment")-                     <*> (x .:? "Duration"))--instance Hashable Deployment--instance NFData Deployment---- | Used to specify a stack or deployment command.------ /See:/ 'deploymentCommand' smart constructor.-data DeploymentCommand = DeploymentCommand'-    { _dcArgs :: !(Maybe (Map Text [Text]))-    , _dcName :: !DeploymentCommandName-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DeploymentCommand' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcArgs'------ * 'dcName'-deploymentCommand-    :: DeploymentCommandName -- ^ 'dcName'-    -> DeploymentCommand-deploymentCommand pName_ =-    DeploymentCommand'-    { _dcArgs = Nothing-    , _dcName = pName_-    }---- | The arguments of those commands that take arguments. It should be set to a JSON object with the following format:------ '{\"arg_name1\" : [\"value1\", \"value2\", ...], \"arg_name2\" : [\"value1\", \"value2\", ...], ...}'------ The 'update_dependencies' command takes two arguments:------ -   'upgrade_os_to' - Specifies the desired Amazon Linux version for instances whose OS you want to upgrade, such as 'Amazon Linux 2014.09'. You must also set the 'allow_reboot' argument to true.------ -   'allow_reboot' - Specifies whether to allow AWS OpsWorks to reboot the instances if necessary, after installing the updates. This argument can be set to either 'true' or 'false'. The default value is 'false'.------ For example, to upgrade an instance to Amazon Linux 2014.09, set 'Args' to the following.------ ' { \"upgrade_os_to\":[\"Amazon Linux 2014.09\"], \"allow_reboot\":[\"true\"] } '-dcArgs :: Lens' DeploymentCommand (HashMap Text [Text])-dcArgs = lens _dcArgs (\ s a -> s{_dcArgs = a}) . _Default . _Map;---- | Specifies the operation. You can specify only one command.------ For stacks, the following commands are available:------ -   'execute_recipes': Execute one or more recipes. To specify the recipes, set an 'Args' parameter named 'recipes' to the list of recipes to be executed. For example, to execute 'phpapp::appsetup', set 'Args' to '{\"recipes\":[\"phpapp::appsetup\"]}'.------ -   'install_dependencies': Install the stack\'s dependencies.------ -   'update_custom_cookbooks': Update the stack\'s custom cookbooks.------ -   'update_dependencies': Update the stack\'s dependencies.------ The update_dependencies and install_dependencies commands are supported only for Linux instances. You can run the commands successfully on Windows instances, but they do nothing.------ For apps, the following commands are available:------ -   'deploy': Deploy an app. Ruby on Rails apps have an optional 'Args' parameter named 'migrate'. Set 'Args' to {\"migrate\":[\"true\"]} to migrate the database. The default setting is {\"migrate\":[\"false\"]}.------ -   'rollback' Roll the app back to the previous version. When you update an app, AWS OpsWorks stores the previous version, up to a maximum of five versions. You can use this command to roll an app back as many as four versions.------ -   'start': Start the app\'s web or application server.------ -   'stop': Stop the app\'s web or application server.------ -   'restart': Restart the app\'s web or application server.------ -   'undeploy': Undeploy the app.----dcName :: Lens' DeploymentCommand DeploymentCommandName-dcName = lens _dcName (\ s a -> s{_dcName = a});--instance FromJSON DeploymentCommand where-        parseJSON-          = withObject "DeploymentCommand"-              (\ x ->-                 DeploymentCommand' <$>-                   (x .:? "Args" .!= mempty) <*> (x .: "Name"))--instance Hashable DeploymentCommand--instance NFData DeploymentCommand--instance ToJSON DeploymentCommand where-        toJSON DeploymentCommand'{..}-          = object-              (catMaybes-                 [("Args" .=) <$> _dcArgs, Just ("Name" .= _dcName)])---- | Describes an Amazon EBS volume. This data type maps directly to the Amazon EC2 <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/API_EbsBlockDevice.html EbsBlockDevice> data type.------ /See:/ 'ebsBlockDevice' smart constructor.-data EBSBlockDevice = EBSBlockDevice'-    { _ebdDeleteOnTermination :: !(Maybe Bool)-    , _ebdVolumeSize          :: !(Maybe Int)-    , _ebdIOPS                :: !(Maybe Int)-    , _ebdVolumeType          :: !(Maybe VolumeType)-    , _ebdSnapshotId          :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'EBSBlockDevice' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ebdDeleteOnTermination'------ * 'ebdVolumeSize'------ * 'ebdIOPS'------ * 'ebdVolumeType'------ * 'ebdSnapshotId'-ebsBlockDevice-    :: EBSBlockDevice-ebsBlockDevice =-    EBSBlockDevice'-    { _ebdDeleteOnTermination = Nothing-    , _ebdVolumeSize = Nothing-    , _ebdIOPS = Nothing-    , _ebdVolumeType = Nothing-    , _ebdSnapshotId = Nothing-    }---- | Whether the volume is deleted on instance termination.-ebdDeleteOnTermination :: Lens' EBSBlockDevice (Maybe Bool)-ebdDeleteOnTermination = lens _ebdDeleteOnTermination (\ s a -> s{_ebdDeleteOnTermination = a});---- | The volume size, in GiB. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/API_EbsBlockDevice.html EbsBlockDevice>.-ebdVolumeSize :: Lens' EBSBlockDevice (Maybe Int)-ebdVolumeSize = lens _ebdVolumeSize (\ s a -> s{_ebdVolumeSize = a});---- | The number of I\/O operations per second (IOPS) that the volume supports. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/API_EbsBlockDevice.html EbsBlockDevice>.-ebdIOPS :: Lens' EBSBlockDevice (Maybe Int)-ebdIOPS = lens _ebdIOPS (\ s a -> s{_ebdIOPS = a});---- | The volume type. 'gp2' for General Purpose (SSD) volumes, 'io1' for Provisioned IOPS (SSD) volumes, and 'standard' for Magnetic volumes.-ebdVolumeType :: Lens' EBSBlockDevice (Maybe VolumeType)-ebdVolumeType = lens _ebdVolumeType (\ s a -> s{_ebdVolumeType = a});---- | The snapshot ID.-ebdSnapshotId :: Lens' EBSBlockDevice (Maybe Text)-ebdSnapshotId = lens _ebdSnapshotId (\ s a -> s{_ebdSnapshotId = a});--instance FromJSON EBSBlockDevice where-        parseJSON-          = withObject "EBSBlockDevice"-              (\ x ->-                 EBSBlockDevice' <$>-                   (x .:? "DeleteOnTermination") <*>-                     (x .:? "VolumeSize")-                     <*> (x .:? "Iops")-                     <*> (x .:? "VolumeType")-                     <*> (x .:? "SnapshotId"))--instance Hashable EBSBlockDevice--instance NFData EBSBlockDevice--instance ToJSON EBSBlockDevice where-        toJSON EBSBlockDevice'{..}-          = object-              (catMaybes-                 [("DeleteOnTermination" .=) <$>-                    _ebdDeleteOnTermination,-                  ("VolumeSize" .=) <$> _ebdVolumeSize,-                  ("Iops" .=) <$> _ebdIOPS,-                  ("VolumeType" .=) <$> _ebdVolumeType,-                  ("SnapshotId" .=) <$> _ebdSnapshotId])---- | Describes a registered Amazon ECS cluster.------ /See:/ 'ecsCluster' smart constructor.-data EcsCluster = EcsCluster'-    { _ecEcsClusterARN  :: !(Maybe Text)-    , _ecEcsClusterName :: !(Maybe Text)-    , _ecRegisteredAt   :: !(Maybe Text)-    , _ecStackId        :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'EcsCluster' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ecEcsClusterARN'------ * 'ecEcsClusterName'------ * 'ecRegisteredAt'------ * 'ecStackId'-ecsCluster-    :: EcsCluster-ecsCluster =-    EcsCluster'-    { _ecEcsClusterARN = Nothing-    , _ecEcsClusterName = Nothing-    , _ecRegisteredAt = Nothing-    , _ecStackId = Nothing-    }---- | The cluster\'s ARN.-ecEcsClusterARN :: Lens' EcsCluster (Maybe Text)-ecEcsClusterARN = lens _ecEcsClusterARN (\ s a -> s{_ecEcsClusterARN = a});---- | The cluster name.-ecEcsClusterName :: Lens' EcsCluster (Maybe Text)-ecEcsClusterName = lens _ecEcsClusterName (\ s a -> s{_ecEcsClusterName = a});---- | The time and date that the cluster was registered with the stack.-ecRegisteredAt :: Lens' EcsCluster (Maybe Text)-ecRegisteredAt = lens _ecRegisteredAt (\ s a -> s{_ecRegisteredAt = a});---- | The stack ID.-ecStackId :: Lens' EcsCluster (Maybe Text)-ecStackId = lens _ecStackId (\ s a -> s{_ecStackId = a});--instance FromJSON EcsCluster where-        parseJSON-          = withObject "EcsCluster"-              (\ x ->-                 EcsCluster' <$>-                   (x .:? "EcsClusterArn") <*> (x .:? "EcsClusterName")-                     <*> (x .:? "RegisteredAt")-                     <*> (x .:? "StackId"))--instance Hashable EcsCluster--instance NFData EcsCluster---- | Describes an Elastic IP address.------ /See:/ 'elasticIP' smart constructor.-data ElasticIP = ElasticIP'-    { _eiInstanceId :: !(Maybe Text)-    , _eiDomain     :: !(Maybe Text)-    , _eiIP         :: !(Maybe Text)-    , _eiName       :: !(Maybe Text)-    , _eiRegion     :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ElasticIP' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'eiInstanceId'------ * 'eiDomain'------ * 'eiIP'------ * 'eiName'------ * 'eiRegion'-elasticIP-    :: ElasticIP-elasticIP =-    ElasticIP'-    { _eiInstanceId = Nothing-    , _eiDomain = Nothing-    , _eiIP = Nothing-    , _eiName = Nothing-    , _eiRegion = Nothing-    }---- | The ID of the instance that the address is attached to.-eiInstanceId :: Lens' ElasticIP (Maybe Text)-eiInstanceId = lens _eiInstanceId (\ s a -> s{_eiInstanceId = a});---- | The domain.-eiDomain :: Lens' ElasticIP (Maybe Text)-eiDomain = lens _eiDomain (\ s a -> s{_eiDomain = a});---- | The IP address.-eiIP :: Lens' ElasticIP (Maybe Text)-eiIP = lens _eiIP (\ s a -> s{_eiIP = a});---- | The name.-eiName :: Lens' ElasticIP (Maybe Text)-eiName = lens _eiName (\ s a -> s{_eiName = a});---- | The AWS region. For more information, see <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints>.-eiRegion :: Lens' ElasticIP (Maybe Text)-eiRegion = lens _eiRegion (\ s a -> s{_eiRegion = a});--instance FromJSON ElasticIP where-        parseJSON-          = withObject "ElasticIP"-              (\ x ->-                 ElasticIP' <$>-                   (x .:? "InstanceId") <*> (x .:? "Domain") <*>-                     (x .:? "Ip")-                     <*> (x .:? "Name")-                     <*> (x .:? "Region"))--instance Hashable ElasticIP--instance NFData ElasticIP---- | Describes an Elastic Load Balancing instance.------ /See:/ 'elasticLoadBalancer' smart constructor.-data ElasticLoadBalancer = ElasticLoadBalancer'-    { _elbSubnetIds               :: !(Maybe [Text])-    , _elbVPCId                   :: !(Maybe Text)-    , _elbAvailabilityZones       :: !(Maybe [Text])-    , _elbRegion                  :: !(Maybe Text)-    , _elbElasticLoadBalancerName :: !(Maybe Text)-    , _elbStackId                 :: !(Maybe Text)-    , _elbEC2InstanceIds          :: !(Maybe [Text])-    , _elbLayerId                 :: !(Maybe Text)-    , _elbDNSName                 :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ElasticLoadBalancer' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'elbSubnetIds'------ * 'elbVPCId'------ * 'elbAvailabilityZones'------ * 'elbRegion'------ * 'elbElasticLoadBalancerName'------ * 'elbStackId'------ * 'elbEC2InstanceIds'------ * 'elbLayerId'------ * 'elbDNSName'-elasticLoadBalancer-    :: ElasticLoadBalancer-elasticLoadBalancer =-    ElasticLoadBalancer'-    { _elbSubnetIds = Nothing-    , _elbVPCId = Nothing-    , _elbAvailabilityZones = Nothing-    , _elbRegion = Nothing-    , _elbElasticLoadBalancerName = Nothing-    , _elbStackId = Nothing-    , _elbEC2InstanceIds = Nothing-    , _elbLayerId = Nothing-    , _elbDNSName = Nothing-    }---- | A list of subnet IDs, if the stack is running in a VPC.-elbSubnetIds :: Lens' ElasticLoadBalancer [Text]-elbSubnetIds = lens _elbSubnetIds (\ s a -> s{_elbSubnetIds = a}) . _Default . _Coerce;---- | The VPC ID.-elbVPCId :: Lens' ElasticLoadBalancer (Maybe Text)-elbVPCId = lens _elbVPCId (\ s a -> s{_elbVPCId = a});---- | A list of Availability Zones.-elbAvailabilityZones :: Lens' ElasticLoadBalancer [Text]-elbAvailabilityZones = lens _elbAvailabilityZones (\ s a -> s{_elbAvailabilityZones = a}) . _Default . _Coerce;---- | The instance\'s AWS region.-elbRegion :: Lens' ElasticLoadBalancer (Maybe Text)-elbRegion = lens _elbRegion (\ s a -> s{_elbRegion = a});---- | The Elastic Load Balancing instance\'s name.-elbElasticLoadBalancerName :: Lens' ElasticLoadBalancer (Maybe Text)-elbElasticLoadBalancerName = lens _elbElasticLoadBalancerName (\ s a -> s{_elbElasticLoadBalancerName = a});---- | The ID of the stack that the instance is associated with.-elbStackId :: Lens' ElasticLoadBalancer (Maybe Text)-elbStackId = lens _elbStackId (\ s a -> s{_elbStackId = a});---- | A list of the EC2 instances that the Elastic Load Balancing instance is managing traffic for.-elbEC2InstanceIds :: Lens' ElasticLoadBalancer [Text]-elbEC2InstanceIds = lens _elbEC2InstanceIds (\ s a -> s{_elbEC2InstanceIds = a}) . _Default . _Coerce;---- | The ID of the layer that the instance is attached to.-elbLayerId :: Lens' ElasticLoadBalancer (Maybe Text)-elbLayerId = lens _elbLayerId (\ s a -> s{_elbLayerId = a});---- | The instance\'s public DNS name.-elbDNSName :: Lens' ElasticLoadBalancer (Maybe Text)-elbDNSName = lens _elbDNSName (\ s a -> s{_elbDNSName = a});--instance FromJSON ElasticLoadBalancer where-        parseJSON-          = withObject "ElasticLoadBalancer"-              (\ x ->-                 ElasticLoadBalancer' <$>-                   (x .:? "SubnetIds" .!= mempty) <*> (x .:? "VpcId")-                     <*> (x .:? "AvailabilityZones" .!= mempty)-                     <*> (x .:? "Region")-                     <*> (x .:? "ElasticLoadBalancerName")-                     <*> (x .:? "StackId")-                     <*> (x .:? "Ec2InstanceIds" .!= mempty)-                     <*> (x .:? "LayerId")-                     <*> (x .:? "DnsName"))--instance Hashable ElasticLoadBalancer--instance NFData ElasticLoadBalancer---- | Represents an app\'s environment variable.------ /See:/ 'environmentVariable' smart constructor.-data EnvironmentVariable = EnvironmentVariable'-    { _evSecure :: !(Maybe Bool)-    , _evKey    :: !Text-    , _evValue  :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'EnvironmentVariable' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'evSecure'------ * 'evKey'------ * 'evValue'-environmentVariable-    :: Text -- ^ 'evKey'-    -> Text -- ^ 'evValue'-    -> EnvironmentVariable-environmentVariable pKey_ pValue_ =-    EnvironmentVariable'-    { _evSecure = Nothing-    , _evKey = pKey_-    , _evValue = pValue_-    }---- | (Optional) Whether the variable\'s value will be returned by the < DescribeApps> action. To conceal an environment variable\'s value, set 'Secure' to 'true'. 'DescribeApps' then returns '*****FILTERED*****' instead of the actual value. The default value for 'Secure' is 'false'.-evSecure :: Lens' EnvironmentVariable (Maybe Bool)-evSecure = lens _evSecure (\ s a -> s{_evSecure = a});---- | (Required) The environment variable\'s name, which can consist of up to 64 characters and must be specified. The name can contain upper- and lowercase letters, numbers, and underscores (_), but it must start with a letter or underscore.-evKey :: Lens' EnvironmentVariable Text-evKey = lens _evKey (\ s a -> s{_evKey = a});---- | (Optional) The environment variable\'s value, which can be left empty. If you specify a value, it can contain up to 256 characters, which must all be printable.-evValue :: Lens' EnvironmentVariable Text-evValue = lens _evValue (\ s a -> s{_evValue = a});--instance FromJSON EnvironmentVariable where-        parseJSON-          = withObject "EnvironmentVariable"-              (\ x ->-                 EnvironmentVariable' <$>-                   (x .:? "Secure") <*> (x .: "Key") <*> (x .: "Value"))--instance Hashable EnvironmentVariable--instance NFData EnvironmentVariable--instance ToJSON EnvironmentVariable where-        toJSON EnvironmentVariable'{..}-          = object-              (catMaybes-                 [("Secure" .=) <$> _evSecure, Just ("Key" .= _evKey),-                  Just ("Value" .= _evValue)])---- | Describes an instance.------ /See:/ 'instance'' smart constructor.-data Instance = Instance'-    { _iPrivateDNS               :: !(Maybe Text)-    , _iReportedAgentVersion     :: !(Maybe Text)-    , _iInstanceId               :: !(Maybe Text)-    , _iStatus                   :: !(Maybe Text)-    , _iPrivateIP                :: !(Maybe Text)-    , _iInstallUpdatesOnBoot     :: !(Maybe Bool)-    , _iVirtualizationType       :: !(Maybe VirtualizationType)-    , _iInstanceProfileARN       :: !(Maybe Text)-    , _iPlatform                 :: !(Maybe Text)-    , _iHostname                 :: !(Maybe Text)-    , _iSSHHostRsaKeyFingerprint :: !(Maybe Text)-    , _iSecurityGroupIds         :: !(Maybe [Text])-    , _iEcsClusterARN            :: !(Maybe Text)-    , _iCreatedAt                :: !(Maybe Text)-    , _iEC2InstanceId            :: !(Maybe Text)-    , _iSSHKeyName               :: !(Maybe Text)-    , _iAgentVersion             :: !(Maybe Text)-    , _iRootDeviceVolumeId       :: !(Maybe Text)-    , _iSubnetId                 :: !(Maybe Text)-    , _iInfrastructureClass      :: !(Maybe Text)-    , _iSSHHostDsaKeyFingerprint :: !(Maybe Text)-    , _iInstanceType             :: !(Maybe Text)-    , _iEBSOptimized             :: !(Maybe Bool)-    , _iElasticIP                :: !(Maybe Text)-    , _iOS                       :: !(Maybe Text)-    , _iAvailabilityZone         :: !(Maybe Text)-    , _iLastServiceErrorId       :: !(Maybe Text)-    , _iTenancy                  :: !(Maybe Text)-    , _iAutoScalingType          :: !(Maybe AutoScalingType)-    , _iLayerIds                 :: !(Maybe [Text])-    , _iArchitecture             :: !(Maybe Architecture)-    , _iPublicDNS                :: !(Maybe Text)-    , _iAMIId                    :: !(Maybe Text)-    , _iPublicIP                 :: !(Maybe Text)-    , _iReportedOS               :: !(Maybe ReportedOS)-    , _iRegisteredBy             :: !(Maybe Text)-    , _iStackId                  :: !(Maybe Text)-    , _iRootDeviceType           :: !(Maybe RootDeviceType)-    , _iEcsContainerInstanceARN  :: !(Maybe Text)-    , _iBlockDeviceMappings      :: !(Maybe [BlockDeviceMapping])-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'Instance' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'iPrivateDNS'------ * 'iReportedAgentVersion'------ * 'iInstanceId'------ * 'iStatus'------ * 'iPrivateIP'------ * 'iInstallUpdatesOnBoot'------ * 'iVirtualizationType'------ * 'iInstanceProfileARN'------ * 'iPlatform'------ * 'iHostname'------ * 'iSSHHostRsaKeyFingerprint'------ * 'iSecurityGroupIds'------ * 'iEcsClusterARN'------ * 'iCreatedAt'------ * 'iEC2InstanceId'------ * 'iSSHKeyName'------ * 'iAgentVersion'------ * 'iRootDeviceVolumeId'------ * 'iSubnetId'------ * 'iInfrastructureClass'------ * 'iSSHHostDsaKeyFingerprint'------ * 'iInstanceType'------ * 'iEBSOptimized'------ * 'iElasticIP'------ * 'iOS'------ * 'iAvailabilityZone'------ * 'iLastServiceErrorId'------ * 'iTenancy'------ * 'iAutoScalingType'------ * 'iLayerIds'------ * 'iArchitecture'------ * 'iPublicDNS'------ * 'iAMIId'------ * 'iPublicIP'------ * 'iReportedOS'------ * 'iRegisteredBy'------ * 'iStackId'------ * 'iRootDeviceType'------ * 'iEcsContainerInstanceARN'------ * 'iBlockDeviceMappings'-instance'-    :: Instance-instance' =-    Instance'-    { _iPrivateDNS = Nothing-    , _iReportedAgentVersion = Nothing-    , _iInstanceId = Nothing-    , _iStatus = Nothing-    , _iPrivateIP = Nothing-    , _iInstallUpdatesOnBoot = Nothing-    , _iVirtualizationType = Nothing-    , _iInstanceProfileARN = Nothing-    , _iPlatform = Nothing-    , _iHostname = Nothing-    , _iSSHHostRsaKeyFingerprint = Nothing-    , _iSecurityGroupIds = Nothing-    , _iEcsClusterARN = Nothing-    , _iCreatedAt = Nothing-    , _iEC2InstanceId = Nothing-    , _iSSHKeyName = Nothing-    , _iAgentVersion = Nothing-    , _iRootDeviceVolumeId = Nothing-    , _iSubnetId = Nothing-    , _iInfrastructureClass = Nothing-    , _iSSHHostDsaKeyFingerprint = Nothing-    , _iInstanceType = Nothing-    , _iEBSOptimized = Nothing-    , _iElasticIP = Nothing-    , _iOS = Nothing-    , _iAvailabilityZone = Nothing-    , _iLastServiceErrorId = Nothing-    , _iTenancy = Nothing-    , _iAutoScalingType = Nothing-    , _iLayerIds = Nothing-    , _iArchitecture = Nothing-    , _iPublicDNS = Nothing-    , _iAMIId = Nothing-    , _iPublicIP = Nothing-    , _iReportedOS = Nothing-    , _iRegisteredBy = Nothing-    , _iStackId = Nothing-    , _iRootDeviceType = Nothing-    , _iEcsContainerInstanceARN = Nothing-    , _iBlockDeviceMappings = Nothing-    }---- | The The instance\'s private DNS name.-iPrivateDNS :: Lens' Instance (Maybe Text)-iPrivateDNS = lens _iPrivateDNS (\ s a -> s{_iPrivateDNS = a});---- | The instance\'s reported AWS OpsWorks agent version.-iReportedAgentVersion :: Lens' Instance (Maybe Text)-iReportedAgentVersion = lens _iReportedAgentVersion (\ s a -> s{_iReportedAgentVersion = a});---- | The instance ID.-iInstanceId :: Lens' Instance (Maybe Text)-iInstanceId = lens _iInstanceId (\ s a -> s{_iInstanceId = a});---- | The instance status:------ -   'booting'------ -   'connection_lost'------ -   'online'------ -   'pending'------ -   'rebooting'------ -   'requested'------ -   'running_setup'------ -   'setup_failed'------ -   'shutting_down'------ -   'start_failed'------ -   'stop_failed'------ -   'stopped'------ -   'stopping'------ -   'terminated'------ -   'terminating'----iStatus :: Lens' Instance (Maybe Text)-iStatus = lens _iStatus (\ s a -> s{_iStatus = a});---- | The instance\'s private IP address.-iPrivateIP :: Lens' Instance (Maybe Text)-iPrivateIP = lens _iPrivateIP (\ s a -> s{_iPrivateIP = a});---- | Whether to install operating system and package updates when the instance boots. The default value is 'true'. If this value is set 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.------ We strongly recommend using the default value of 'true', to ensure that your instances have the latest security updates.-iInstallUpdatesOnBoot :: Lens' Instance (Maybe Bool)-iInstallUpdatesOnBoot = lens _iInstallUpdatesOnBoot (\ s a -> s{_iInstallUpdatesOnBoot = a});---- | The instance\'s virtualization type: 'paravirtual' or 'hvm'.-iVirtualizationType :: Lens' Instance (Maybe VirtualizationType)-iVirtualizationType = lens _iVirtualizationType (\ s a -> s{_iVirtualizationType = a});---- | The ARN of the instance\'s IAM profile. For more information about IAM ARNs, see <http://docs.aws.amazon.com/IAM/latest/UserGuide/Using_Identifiers.html Using Identifiers>.-iInstanceProfileARN :: Lens' Instance (Maybe Text)-iInstanceProfileARN = lens _iInstanceProfileARN (\ s a -> s{_iInstanceProfileARN = a});---- | The instance\'s platform.-iPlatform :: Lens' Instance (Maybe Text)-iPlatform = lens _iPlatform (\ s a -> s{_iPlatform = a});---- | The instance host name.-iHostname :: Lens' Instance (Maybe Text)-iHostname = lens _iHostname (\ s a -> s{_iHostname = a});---- | The SSH key\'s RSA fingerprint.-iSSHHostRsaKeyFingerprint :: Lens' Instance (Maybe Text)-iSSHHostRsaKeyFingerprint = lens _iSSHHostRsaKeyFingerprint (\ s a -> s{_iSSHHostRsaKeyFingerprint = a});---- | An array containing the instance security group IDs.-iSecurityGroupIds :: Lens' Instance [Text]-iSecurityGroupIds = lens _iSecurityGroupIds (\ s a -> s{_iSecurityGroupIds = a}) . _Default . _Coerce;---- | For container instances, the Amazon ECS cluster\'s ARN.-iEcsClusterARN :: Lens' Instance (Maybe Text)-iEcsClusterARN = lens _iEcsClusterARN (\ s a -> s{_iEcsClusterARN = a});---- | The time that the instance was created.-iCreatedAt :: Lens' Instance (Maybe Text)-iCreatedAt = lens _iCreatedAt (\ s a -> s{_iCreatedAt = a});---- | The ID of the associated Amazon EC2 instance.-iEC2InstanceId :: Lens' Instance (Maybe Text)-iEC2InstanceId = lens _iEC2InstanceId (\ s a -> s{_iEC2InstanceId = a});---- | The instance\'s Amazon EC2 key-pair name.-iSSHKeyName :: Lens' Instance (Maybe Text)-iSSHKeyName = lens _iSSHKeyName (\ s a -> s{_iSSHKeyName = a});---- | The agent version. This parameter is set to 'INHERIT' if the instance inherits the default stack setting or to a a version number for a fixed agent version.-iAgentVersion :: Lens' Instance (Maybe Text)-iAgentVersion = lens _iAgentVersion (\ s a -> s{_iAgentVersion = a});---- | The root device volume ID.-iRootDeviceVolumeId :: Lens' Instance (Maybe Text)-iRootDeviceVolumeId = lens _iRootDeviceVolumeId (\ s a -> s{_iRootDeviceVolumeId = a});---- | The instance\'s subnet ID; applicable only if the stack is running in a VPC.-iSubnetId :: Lens' Instance (Maybe Text)-iSubnetId = lens _iSubnetId (\ s a -> s{_iSubnetId = a});---- | For registered instances, the infrastructure class: 'ec2' or 'on-premises'.-iInfrastructureClass :: Lens' Instance (Maybe Text)-iInfrastructureClass = lens _iInfrastructureClass (\ s a -> s{_iInfrastructureClass = a});---- | The SSH key\'s Deep Security Agent (DSA) fingerprint.-iSSHHostDsaKeyFingerprint :: Lens' Instance (Maybe Text)-iSSHHostDsaKeyFingerprint = lens _iSSHHostDsaKeyFingerprint (\ s a -> s{_iSSHHostDsaKeyFingerprint = a});---- | The instance type, such as 't2.micro'.-iInstanceType :: Lens' Instance (Maybe Text)-iInstanceType = lens _iInstanceType (\ s a -> s{_iInstanceType = a});---- | Whether this is an Amazon EBS-optimized instance.-iEBSOptimized :: Lens' Instance (Maybe Bool)-iEBSOptimized = lens _iEBSOptimized (\ s a -> s{_iEBSOptimized = a});---- | The instance <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/elastic-ip-addresses-eip.html Elastic IP address>.-iElasticIP :: Lens' Instance (Maybe Text)-iElasticIP = lens _iElasticIP (\ s a -> s{_iElasticIP = a});---- | The instance\'s operating system.-iOS :: Lens' Instance (Maybe Text)-iOS = lens _iOS (\ s a -> s{_iOS = a});---- | The instance Availability Zone. For more information, see <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints>.-iAvailabilityZone :: Lens' Instance (Maybe Text)-iAvailabilityZone = lens _iAvailabilityZone (\ s a -> s{_iAvailabilityZone = a});---- | The ID of the last service error. For more information, call < DescribeServiceErrors>.-iLastServiceErrorId :: Lens' Instance (Maybe Text)-iLastServiceErrorId = lens _iLastServiceErrorId (\ s a -> s{_iLastServiceErrorId = a});---- | The instance\'s tenancy option, such as 'dedicated' or 'host'.-iTenancy :: Lens' Instance (Maybe Text)-iTenancy = lens _iTenancy (\ s a -> s{_iTenancy = a});---- | For load-based or time-based instances, the type.-iAutoScalingType :: Lens' Instance (Maybe AutoScalingType)-iAutoScalingType = lens _iAutoScalingType (\ s a -> s{_iAutoScalingType = a});---- | An array containing the instance layer IDs.-iLayerIds :: Lens' Instance [Text]-iLayerIds = lens _iLayerIds (\ s a -> s{_iLayerIds = a}) . _Default . _Coerce;---- | The instance architecture: \"i386\" or \"x86_64\".-iArchitecture :: Lens' Instance (Maybe Architecture)-iArchitecture = lens _iArchitecture (\ s a -> s{_iArchitecture = a});---- | The instance public DNS name.-iPublicDNS :: Lens' Instance (Maybe Text)-iPublicDNS = lens _iPublicDNS (\ s a -> s{_iPublicDNS = a});---- | A custom AMI ID to be used to create the instance. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-custom-ami.html Instances>-iAMIId :: Lens' Instance (Maybe Text)-iAMIId = lens _iAMIId (\ s a -> s{_iAMIId = a});---- | The instance public IP address.-iPublicIP :: Lens' Instance (Maybe Text)-iPublicIP = lens _iPublicIP (\ s a -> s{_iPublicIP = a});---- | For registered instances, the reported operating system.-iReportedOS :: Lens' Instance (Maybe ReportedOS)-iReportedOS = lens _iReportedOS (\ s a -> s{_iReportedOS = a});---- | For registered instances, who performed the registration.-iRegisteredBy :: Lens' Instance (Maybe Text)-iRegisteredBy = lens _iRegisteredBy (\ s a -> s{_iRegisteredBy = a});---- | The stack ID.-iStackId :: Lens' Instance (Maybe Text)-iStackId = lens _iStackId (\ s a -> s{_iStackId = a});---- | The instance\'s 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>.-iRootDeviceType :: Lens' Instance (Maybe RootDeviceType)-iRootDeviceType = lens _iRootDeviceType (\ s a -> s{_iRootDeviceType = a});---- | For container instances, the instance\'s ARN.-iEcsContainerInstanceARN :: Lens' Instance (Maybe Text)-iEcsContainerInstanceARN = lens _iEcsContainerInstanceARN (\ s a -> s{_iEcsContainerInstanceARN = a});---- | An array of 'BlockDeviceMapping' objects that specify the instance\'s block device mappings.-iBlockDeviceMappings :: Lens' Instance [BlockDeviceMapping]-iBlockDeviceMappings = lens _iBlockDeviceMappings (\ s a -> s{_iBlockDeviceMappings = a}) . _Default . _Coerce;--instance FromJSON Instance where-        parseJSON-          = withObject "Instance"-              (\ x ->-                 Instance' <$>-                   (x .:? "PrivateDns") <*>-                     (x .:? "ReportedAgentVersion")-                     <*> (x .:? "InstanceId")-                     <*> (x .:? "Status")-                     <*> (x .:? "PrivateIp")-                     <*> (x .:? "InstallUpdatesOnBoot")-                     <*> (x .:? "VirtualizationType")-                     <*> (x .:? "InstanceProfileArn")-                     <*> (x .:? "Platform")-                     <*> (x .:? "Hostname")-                     <*> (x .:? "SshHostRsaKeyFingerprint")-                     <*> (x .:? "SecurityGroupIds" .!= mempty)-                     <*> (x .:? "EcsClusterArn")-                     <*> (x .:? "CreatedAt")-                     <*> (x .:? "Ec2InstanceId")-                     <*> (x .:? "SshKeyName")-                     <*> (x .:? "AgentVersion")-                     <*> (x .:? "RootDeviceVolumeId")-                     <*> (x .:? "SubnetId")-                     <*> (x .:? "InfrastructureClass")-                     <*> (x .:? "SshHostDsaKeyFingerprint")-                     <*> (x .:? "InstanceType")-                     <*> (x .:? "EbsOptimized")-                     <*> (x .:? "ElasticIp")-                     <*> (x .:? "Os")-                     <*> (x .:? "AvailabilityZone")-                     <*> (x .:? "LastServiceErrorId")-                     <*> (x .:? "Tenancy")-                     <*> (x .:? "AutoScalingType")-                     <*> (x .:? "LayerIds" .!= mempty)-                     <*> (x .:? "Architecture")-                     <*> (x .:? "PublicDns")-                     <*> (x .:? "AmiId")-                     <*> (x .:? "PublicIp")-                     <*> (x .:? "ReportedOs")-                     <*> (x .:? "RegisteredBy")-                     <*> (x .:? "StackId")-                     <*> (x .:? "RootDeviceType")-                     <*> (x .:? "EcsContainerInstanceArn")-                     <*> (x .:? "BlockDeviceMappings" .!= mempty))--instance Hashable Instance--instance NFData Instance---- | Contains a description of an Amazon EC2 instance from the Amazon EC2 metadata service. For more information, see <http://docs.aws.amazon.com/sdkfornet/latest/apidocs/Index.html Instance Metadata and User Data>.------ /See:/ 'instanceIdentity' smart constructor.-data InstanceIdentity = InstanceIdentity'-    { _iiSignature :: !(Maybe Text)-    , _iiDocument  :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'InstanceIdentity' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'iiSignature'------ * 'iiDocument'-instanceIdentity-    :: InstanceIdentity-instanceIdentity =-    InstanceIdentity'-    { _iiSignature = Nothing-    , _iiDocument = Nothing-    }---- | A signature that can be used to verify the document\'s accuracy and authenticity.-iiSignature :: Lens' InstanceIdentity (Maybe Text)-iiSignature = lens _iiSignature (\ s a -> s{_iiSignature = a});---- | A JSON document that contains the metadata.-iiDocument :: Lens' InstanceIdentity (Maybe Text)-iiDocument = lens _iiDocument (\ s a -> s{_iiDocument = a});--instance Hashable InstanceIdentity--instance NFData InstanceIdentity--instance ToJSON InstanceIdentity where-        toJSON InstanceIdentity'{..}-          = object-              (catMaybes-                 [("Signature" .=) <$> _iiSignature,-                  ("Document" .=) <$> _iiDocument])---- | Describes how many instances a stack has for each status.------ /See:/ 'instancesCount' smart constructor.-data InstancesCount = InstancesCount'-    { _icTerminating    :: !(Maybe Int)-    , _icPending        :: !(Maybe Int)-    , _icOnline         :: !(Maybe Int)-    , _icUnassigning    :: !(Maybe Int)-    , _icDeregistering  :: !(Maybe Int)-    , _icRunningSetup   :: !(Maybe Int)-    , _icRequested      :: !(Maybe Int)-    , _icBooting        :: !(Maybe Int)-    , _icStopped        :: !(Maybe Int)-    , _icRebooting      :: !(Maybe Int)-    , _icAssigning      :: !(Maybe Int)-    , _icShuttingDown   :: !(Maybe Int)-    , _icSetupFailed    :: !(Maybe Int)-    , _icConnectionLost :: !(Maybe Int)-    , _icTerminated     :: !(Maybe Int)-    , _icStopping       :: !(Maybe Int)-    , _icRegistered     :: !(Maybe Int)-    , _icStartFailed    :: !(Maybe Int)-    , _icRegistering    :: !(Maybe Int)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'InstancesCount' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'icTerminating'------ * 'icPending'------ * 'icOnline'------ * 'icUnassigning'------ * 'icDeregistering'------ * 'icRunningSetup'------ * 'icRequested'------ * 'icBooting'------ * 'icStopped'------ * 'icRebooting'------ * 'icAssigning'------ * 'icShuttingDown'------ * 'icSetupFailed'------ * 'icConnectionLost'------ * 'icTerminated'------ * 'icStopping'------ * 'icRegistered'------ * 'icStartFailed'------ * 'icRegistering'-instancesCount-    :: InstancesCount-instancesCount =-    InstancesCount'-    { _icTerminating = Nothing-    , _icPending = Nothing-    , _icOnline = Nothing-    , _icUnassigning = Nothing-    , _icDeregistering = Nothing-    , _icRunningSetup = Nothing-    , _icRequested = Nothing-    , _icBooting = Nothing-    , _icStopped = Nothing-    , _icRebooting = Nothing-    , _icAssigning = Nothing-    , _icShuttingDown = Nothing-    , _icSetupFailed = Nothing-    , _icConnectionLost = Nothing-    , _icTerminated = Nothing-    , _icStopping = Nothing-    , _icRegistered = Nothing-    , _icStartFailed = Nothing-    , _icRegistering = Nothing-    }---- | The number of instances with 'terminating' status.-icTerminating :: Lens' InstancesCount (Maybe Int)-icTerminating = lens _icTerminating (\ s a -> s{_icTerminating = a});---- | The number of instances with 'pending' status.-icPending :: Lens' InstancesCount (Maybe Int)-icPending = lens _icPending (\ s a -> s{_icPending = a});---- | The number of instances with 'online' status.-icOnline :: Lens' InstancesCount (Maybe Int)-icOnline = lens _icOnline (\ s a -> s{_icOnline = a});---- | The number of instances in the Unassigning state.-icUnassigning :: Lens' InstancesCount (Maybe Int)-icUnassigning = lens _icUnassigning (\ s a -> s{_icUnassigning = a});---- | The number of instances in the Deregistering state.-icDeregistering :: Lens' InstancesCount (Maybe Int)-icDeregistering = lens _icDeregistering (\ s a -> s{_icDeregistering = a});---- | The number of instances with 'running_setup' status.-icRunningSetup :: Lens' InstancesCount (Maybe Int)-icRunningSetup = lens _icRunningSetup (\ s a -> s{_icRunningSetup = a});---- | The number of instances with 'requested' status.-icRequested :: Lens' InstancesCount (Maybe Int)-icRequested = lens _icRequested (\ s a -> s{_icRequested = a});---- | The number of instances with 'booting' status.-icBooting :: Lens' InstancesCount (Maybe Int)-icBooting = lens _icBooting (\ s a -> s{_icBooting = a});---- | The number of instances with 'stopped' status.-icStopped :: Lens' InstancesCount (Maybe Int)-icStopped = lens _icStopped (\ s a -> s{_icStopped = a});---- | The number of instances with 'rebooting' status.-icRebooting :: Lens' InstancesCount (Maybe Int)-icRebooting = lens _icRebooting (\ s a -> s{_icRebooting = a});---- | The number of instances in the Assigning state.-icAssigning :: Lens' InstancesCount (Maybe Int)-icAssigning = lens _icAssigning (\ s a -> s{_icAssigning = a});---- | The number of instances with 'shutting_down' status.-icShuttingDown :: Lens' InstancesCount (Maybe Int)-icShuttingDown = lens _icShuttingDown (\ s a -> s{_icShuttingDown = a});---- | The number of instances with 'setup_failed' status.-icSetupFailed :: Lens' InstancesCount (Maybe Int)-icSetupFailed = lens _icSetupFailed (\ s a -> s{_icSetupFailed = a});---- | The number of instances with 'connection_lost' status.-icConnectionLost :: Lens' InstancesCount (Maybe Int)-icConnectionLost = lens _icConnectionLost (\ s a -> s{_icConnectionLost = a});---- | The number of instances with 'terminated' status.-icTerminated :: Lens' InstancesCount (Maybe Int)-icTerminated = lens _icTerminated (\ s a -> s{_icTerminated = a});---- | The number of instances with 'stopping' status.-icStopping :: Lens' InstancesCount (Maybe Int)-icStopping = lens _icStopping (\ s a -> s{_icStopping = a});---- | The number of instances in the Registered state.-icRegistered :: Lens' InstancesCount (Maybe Int)-icRegistered = lens _icRegistered (\ s a -> s{_icRegistered = a});---- | The number of instances with 'start_failed' status.-icStartFailed :: Lens' InstancesCount (Maybe Int)-icStartFailed = lens _icStartFailed (\ s a -> s{_icStartFailed = a});---- | The number of instances in the Registering state.-icRegistering :: Lens' InstancesCount (Maybe Int)-icRegistering = lens _icRegistering (\ s a -> s{_icRegistering = a});--instance FromJSON InstancesCount where-        parseJSON-          = withObject "InstancesCount"-              (\ x ->-                 InstancesCount' <$>-                   (x .:? "Terminating") <*> (x .:? "Pending") <*>-                     (x .:? "Online")-                     <*> (x .:? "Unassigning")-                     <*> (x .:? "Deregistering")-                     <*> (x .:? "RunningSetup")-                     <*> (x .:? "Requested")-                     <*> (x .:? "Booting")-                     <*> (x .:? "Stopped")-                     <*> (x .:? "Rebooting")-                     <*> (x .:? "Assigning")-                     <*> (x .:? "ShuttingDown")-                     <*> (x .:? "SetupFailed")-                     <*> (x .:? "ConnectionLost")-                     <*> (x .:? "Terminated")-                     <*> (x .:? "Stopping")-                     <*> (x .:? "Registered")-                     <*> (x .:? "StartFailed")-                     <*> (x .:? "Registering"))--instance Hashable InstancesCount--instance NFData InstancesCount---- | Describes a layer.------ /See:/ 'layer' smart constructor.-data Layer = Layer'-    { _lCustomInstanceProfileARN    :: !(Maybe Text)-    , _lCustomSecurityGroupIds      :: !(Maybe [Text])-    , _lInstallUpdatesOnBoot        :: !(Maybe Bool)-    , _lLifecycleEventConfiguration :: !(Maybe LifecycleEventConfiguration)-    , _lCreatedAt                   :: !(Maybe Text)-    , _lShortname                   :: !(Maybe Text)-    , _lDefaultRecipes              :: !(Maybe Recipes)-    , _lCustomRecipes               :: !(Maybe Recipes)-    , _lCustomJSON                  :: !(Maybe Text)-    , _lVolumeConfigurations        :: !(Maybe [VolumeConfiguration])-    , _lEnableAutoHealing           :: !(Maybe Bool)-    , _lPackages                    :: !(Maybe [Text])-    , _lAttributes                  :: !(Maybe (Map LayerAttributesKeys Text))-    , _lName                        :: !(Maybe Text)-    , _lAutoAssignPublicIPs         :: !(Maybe Bool)-    , _lType                        :: !(Maybe LayerType)-    , _lUseEBSOptimizedInstances    :: !(Maybe Bool)-    , _lStackId                     :: !(Maybe Text)-    , _lLayerId                     :: !(Maybe Text)-    , _lDefaultSecurityGroupNames   :: !(Maybe [Text])-    , _lAutoAssignElasticIPs        :: !(Maybe Bool)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'Layer' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lCustomInstanceProfileARN'------ * 'lCustomSecurityGroupIds'------ * 'lInstallUpdatesOnBoot'------ * 'lLifecycleEventConfiguration'------ * 'lCreatedAt'------ * 'lShortname'------ * 'lDefaultRecipes'------ * 'lCustomRecipes'------ * 'lCustomJSON'------ * 'lVolumeConfigurations'------ * 'lEnableAutoHealing'------ * 'lPackages'------ * 'lAttributes'------ * 'lName'------ * 'lAutoAssignPublicIPs'------ * 'lType'------ * 'lUseEBSOptimizedInstances'------ * 'lStackId'------ * 'lLayerId'------ * 'lDefaultSecurityGroupNames'------ * 'lAutoAssignElasticIPs'-layer-    :: Layer-layer =-    Layer'-    { _lCustomInstanceProfileARN = Nothing-    , _lCustomSecurityGroupIds = Nothing-    , _lInstallUpdatesOnBoot = Nothing-    , _lLifecycleEventConfiguration = Nothing-    , _lCreatedAt = Nothing-    , _lShortname = Nothing-    , _lDefaultRecipes = Nothing-    , _lCustomRecipes = Nothing-    , _lCustomJSON = Nothing-    , _lVolumeConfigurations = Nothing-    , _lEnableAutoHealing = Nothing-    , _lPackages = Nothing-    , _lAttributes = Nothing-    , _lName = Nothing-    , _lAutoAssignPublicIPs = Nothing-    , _lType = Nothing-    , _lUseEBSOptimizedInstances = Nothing-    , _lStackId = Nothing-    , _lLayerId = Nothing-    , _lDefaultSecurityGroupNames = Nothing-    , _lAutoAssignElasticIPs = Nothing-    }---- | The ARN of the default 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>.-lCustomInstanceProfileARN :: Lens' Layer (Maybe Text)-lCustomInstanceProfileARN = lens _lCustomInstanceProfileARN (\ s a -> s{_lCustomInstanceProfileARN = a});---- | An array containing the layer\'s custom security group IDs.-lCustomSecurityGroupIds :: Lens' Layer [Text]-lCustomSecurityGroupIds = lens _lCustomSecurityGroupIds (\ s a -> s{_lCustomSecurityGroupIds = a}) . _Default . _Coerce;---- | Whether to install operating system and package updates when the instance boots. The default value is 'true'. If this value is set 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.-lInstallUpdatesOnBoot :: Lens' Layer (Maybe Bool)-lInstallUpdatesOnBoot = lens _lInstallUpdatesOnBoot (\ s a -> s{_lInstallUpdatesOnBoot = a});---- | A 'LifeCycleEventConfiguration' object that specifies the Shutdown event configuration.-lLifecycleEventConfiguration :: Lens' Layer (Maybe LifecycleEventConfiguration)-lLifecycleEventConfiguration = lens _lLifecycleEventConfiguration (\ s a -> s{_lLifecycleEventConfiguration = a});---- | Date when the layer was created.-lCreatedAt :: Lens' Layer (Maybe Text)-lCreatedAt = lens _lCreatedAt (\ s a -> s{_lCreatedAt = a});---- | The layer short name.-lShortname :: Lens' Layer (Maybe Text)-lShortname = lens _lShortname (\ s a -> s{_lShortname = a});---- | Undocumented member.-lDefaultRecipes :: Lens' Layer (Maybe Recipes)-lDefaultRecipes = lens _lDefaultRecipes (\ s a -> s{_lDefaultRecipes = a});---- | A 'LayerCustomRecipes' object that specifies the layer\'s custom recipes.-lCustomRecipes :: Lens' Layer (Maybe Recipes)-lCustomRecipes = lens _lCustomRecipes (\ s a -> s{_lCustomRecipes = a});---- | A JSON formatted string containing the layer\'s custom stack configuration and deployment attributes.-lCustomJSON :: Lens' Layer (Maybe Text)-lCustomJSON = lens _lCustomJSON (\ s a -> s{_lCustomJSON = a});---- | A 'VolumeConfigurations' object that describes the layer\'s Amazon EBS volumes.-lVolumeConfigurations :: Lens' Layer [VolumeConfiguration]-lVolumeConfigurations = lens _lVolumeConfigurations (\ s a -> s{_lVolumeConfigurations = a}) . _Default . _Coerce;---- | Whether auto healing is disabled for the layer.-lEnableAutoHealing :: Lens' Layer (Maybe Bool)-lEnableAutoHealing = lens _lEnableAutoHealing (\ s a -> s{_lEnableAutoHealing = a});---- | An array of 'Package' objects that describe the layer\'s packages.-lPackages :: Lens' Layer [Text]-lPackages = lens _lPackages (\ s a -> s{_lPackages = a}) . _Default . _Coerce;---- | The layer attributes.------ For the 'HaproxyStatsPassword', 'MysqlRootPassword', and 'GangliaPassword' attributes, AWS OpsWorks returns '*****FILTERED*****' instead of the actual value------ For an ECS Cluster layer, AWS OpsWorks the 'EcsClusterArn' attribute is set to the cluster\'s ARN.-lAttributes :: Lens' Layer (HashMap LayerAttributesKeys Text)-lAttributes = lens _lAttributes (\ s a -> s{_lAttributes = a}) . _Default . _Map;---- | The layer name.-lName :: Lens' Layer (Maybe Text)-lName = lens _lName (\ s a -> s{_lName = 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>.-lAutoAssignPublicIPs :: Lens' Layer (Maybe Bool)-lAutoAssignPublicIPs = lens _lAutoAssignPublicIPs (\ s a -> s{_lAutoAssignPublicIPs = a});---- | The layer type.-lType :: Lens' Layer (Maybe LayerType)-lType = lens _lType (\ s a -> s{_lType = a});---- | Whether the layer uses Amazon EBS-optimized instances.-lUseEBSOptimizedInstances :: Lens' Layer (Maybe Bool)-lUseEBSOptimizedInstances = lens _lUseEBSOptimizedInstances (\ s a -> s{_lUseEBSOptimizedInstances = a});---- | The layer stack ID.-lStackId :: Lens' Layer (Maybe Text)-lStackId = lens _lStackId (\ s a -> s{_lStackId = a});---- | The layer ID.-lLayerId :: Lens' Layer (Maybe Text)-lLayerId = lens _lLayerId (\ s a -> s{_lLayerId = a});---- | An array containing the layer\'s security group names.-lDefaultSecurityGroupNames :: Lens' Layer [Text]-lDefaultSecurityGroupNames = lens _lDefaultSecurityGroupNames (\ s a -> s{_lDefaultSecurityGroupNames = a}) . _Default . _Coerce;---- | 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>.-lAutoAssignElasticIPs :: Lens' Layer (Maybe Bool)-lAutoAssignElasticIPs = lens _lAutoAssignElasticIPs (\ s a -> s{_lAutoAssignElasticIPs = a});--instance FromJSON Layer where-        parseJSON-          = withObject "Layer"-              (\ x ->-                 Layer' <$>-                   (x .:? "CustomInstanceProfileArn") <*>-                     (x .:? "CustomSecurityGroupIds" .!= mempty)-                     <*> (x .:? "InstallUpdatesOnBoot")-                     <*> (x .:? "LifecycleEventConfiguration")-                     <*> (x .:? "CreatedAt")-                     <*> (x .:? "Shortname")-                     <*> (x .:? "DefaultRecipes")-                     <*> (x .:? "CustomRecipes")-                     <*> (x .:? "CustomJson")-                     <*> (x .:? "VolumeConfigurations" .!= mempty)-                     <*> (x .:? "EnableAutoHealing")-                     <*> (x .:? "Packages" .!= mempty)-                     <*> (x .:? "Attributes" .!= mempty)-                     <*> (x .:? "Name")-                     <*> (x .:? "AutoAssignPublicIps")-                     <*> (x .:? "Type")-                     <*> (x .:? "UseEbsOptimizedInstances")-                     <*> (x .:? "StackId")-                     <*> (x .:? "LayerId")-                     <*> (x .:? "DefaultSecurityGroupNames" .!= mempty)-                     <*> (x .:? "AutoAssignElasticIps"))--instance Hashable Layer--instance NFData Layer---- | Specifies the lifecycle event configuration------ /See:/ 'lifecycleEventConfiguration' smart constructor.-newtype LifecycleEventConfiguration = LifecycleEventConfiguration'-    { _lecShutdown :: Maybe ShutdownEventConfiguration-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'LifecycleEventConfiguration' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lecShutdown'-lifecycleEventConfiguration-    :: LifecycleEventConfiguration-lifecycleEventConfiguration =-    LifecycleEventConfiguration'-    { _lecShutdown = Nothing-    }---- | A 'ShutdownEventConfiguration' object that specifies the Shutdown event configuration.-lecShutdown :: Lens' LifecycleEventConfiguration (Maybe ShutdownEventConfiguration)-lecShutdown = lens _lecShutdown (\ s a -> s{_lecShutdown = a});--instance FromJSON LifecycleEventConfiguration where-        parseJSON-          = withObject "LifecycleEventConfiguration"-              (\ x ->-                 LifecycleEventConfiguration' <$> (x .:? "Shutdown"))--instance Hashable LifecycleEventConfiguration--instance NFData LifecycleEventConfiguration--instance ToJSON LifecycleEventConfiguration where-        toJSON LifecycleEventConfiguration'{..}-          = object-              (catMaybes [("Shutdown" .=) <$> _lecShutdown])---- | Describes a layer\'s load-based auto scaling configuration.------ /See:/ 'loadBasedAutoScalingConfiguration' smart constructor.-data LoadBasedAutoScalingConfiguration = LoadBasedAutoScalingConfiguration'-    { _lbascUpScaling   :: !(Maybe AutoScalingThresholds)-    , _lbascEnable      :: !(Maybe Bool)-    , _lbascDownScaling :: !(Maybe AutoScalingThresholds)-    , _lbascLayerId     :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'LoadBasedAutoScalingConfiguration' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lbascUpScaling'------ * 'lbascEnable'------ * 'lbascDownScaling'------ * 'lbascLayerId'-loadBasedAutoScalingConfiguration-    :: LoadBasedAutoScalingConfiguration-loadBasedAutoScalingConfiguration =-    LoadBasedAutoScalingConfiguration'-    { _lbascUpScaling = Nothing-    , _lbascEnable = Nothing-    , _lbascDownScaling = Nothing-    , _lbascLayerId = Nothing-    }---- | An 'AutoScalingThresholds' object that describes the upscaling configuration, which defines how and when AWS OpsWorks increases the number of instances.-lbascUpScaling :: Lens' LoadBasedAutoScalingConfiguration (Maybe AutoScalingThresholds)-lbascUpScaling = lens _lbascUpScaling (\ s a -> s{_lbascUpScaling = a});---- | Whether load-based auto scaling is enabled for the layer.-lbascEnable :: Lens' LoadBasedAutoScalingConfiguration (Maybe Bool)-lbascEnable = lens _lbascEnable (\ s a -> s{_lbascEnable = a});---- | An 'AutoScalingThresholds' object that describes the downscaling configuration, which defines how and when AWS OpsWorks reduces the number of instances.-lbascDownScaling :: Lens' LoadBasedAutoScalingConfiguration (Maybe AutoScalingThresholds)-lbascDownScaling = lens _lbascDownScaling (\ s a -> s{_lbascDownScaling = a});---- | The layer ID.-lbascLayerId :: Lens' LoadBasedAutoScalingConfiguration (Maybe Text)-lbascLayerId = lens _lbascLayerId (\ s a -> s{_lbascLayerId = a});--instance FromJSON LoadBasedAutoScalingConfiguration-         where-        parseJSON-          = withObject "LoadBasedAutoScalingConfiguration"-              (\ x ->-                 LoadBasedAutoScalingConfiguration' <$>-                   (x .:? "UpScaling") <*> (x .:? "Enable") <*>-                     (x .:? "DownScaling")-                     <*> (x .:? "LayerId"))--instance Hashable LoadBasedAutoScalingConfiguration--instance NFData LoadBasedAutoScalingConfiguration---- | Describes stack or user permissions.------ /See:/ 'permission' smart constructor.-data Permission = Permission'-    { _pIAMUserARN :: !(Maybe Text)-    , _pAllowSudo  :: !(Maybe Bool)-    , _pStackId    :: !(Maybe Text)-    , _pLevel      :: !(Maybe Text)-    , _pAllowSSH   :: !(Maybe Bool)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'Permission' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pIAMUserARN'------ * 'pAllowSudo'------ * 'pStackId'------ * 'pLevel'------ * 'pAllowSSH'-permission-    :: Permission-permission =-    Permission'-    { _pIAMUserARN = Nothing-    , _pAllowSudo = Nothing-    , _pStackId = Nothing-    , _pLevel = Nothing-    , _pAllowSSH = Nothing-    }---- | The Amazon Resource Name (ARN) for an AWS Identity and Access Management (IAM) role. For more information about IAM ARNs, see <http://docs.aws.amazon.com/IAM/latest/UserGuide/Using_Identifiers.html Using Identifiers>.-pIAMUserARN :: Lens' Permission (Maybe Text)-pIAMUserARN = lens _pIAMUserARN (\ s a -> s{_pIAMUserARN = a});---- | Whether the user can use __sudo__.-pAllowSudo :: Lens' Permission (Maybe Bool)-pAllowSudo = lens _pAllowSudo (\ s a -> s{_pAllowSudo = a});---- | A stack ID.-pStackId :: Lens' Permission (Maybe Text)-pStackId = lens _pStackId (\ s a -> s{_pStackId = a});---- | The user\'s permission level, which must be the following:------ -   'deny'------ -   'show'------ -   'deploy'------ -   'manage'------ -   'iam_only'------ For more information on the permissions associated with these levels, see <http://docs.aws.amazon.com/opsworks/latest/userguide/opsworks-security-users.html Managing User Permissions>-pLevel :: Lens' Permission (Maybe Text)-pLevel = lens _pLevel (\ s a -> s{_pLevel = a});---- | Whether the user can use SSH.-pAllowSSH :: Lens' Permission (Maybe Bool)-pAllowSSH = lens _pAllowSSH (\ s a -> s{_pAllowSSH = a});--instance FromJSON Permission where-        parseJSON-          = withObject "Permission"-              (\ x ->-                 Permission' <$>-                   (x .:? "IamUserArn") <*> (x .:? "AllowSudo") <*>-                     (x .:? "StackId")-                     <*> (x .:? "Level")-                     <*> (x .:? "AllowSsh"))--instance Hashable Permission--instance NFData Permission---- | Describes an instance\'s RAID array.------ /See:/ 'rAIdArray' smart constructor.-data RAIdArray = RAIdArray'-    { _raiaInstanceId       :: !(Maybe Text)-    , _raiaSize             :: !(Maybe Int)-    , _raiaIOPS             :: !(Maybe Int)-    , _raiaCreatedAt        :: !(Maybe Text)-    , _raiaRAIdLevel        :: !(Maybe Int)-    , _raiaDevice           :: !(Maybe Text)-    , _raiaNumberOfDisks    :: !(Maybe Int)-    , _raiaAvailabilityZone :: !(Maybe Text)-    , _raiaName             :: !(Maybe Text)-    , _raiaRAIdArrayId      :: !(Maybe Text)-    , _raiaVolumeType       :: !(Maybe Text)-    , _raiaStackId          :: !(Maybe Text)-    , _raiaMountPoint       :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'RAIdArray' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'raiaInstanceId'------ * 'raiaSize'------ * 'raiaIOPS'------ * 'raiaCreatedAt'------ * 'raiaRAIdLevel'------ * 'raiaDevice'------ * 'raiaNumberOfDisks'------ * 'raiaAvailabilityZone'------ * 'raiaName'------ * 'raiaRAIdArrayId'------ * 'raiaVolumeType'------ * 'raiaStackId'------ * 'raiaMountPoint'-rAIdArray-    :: RAIdArray-rAIdArray =-    RAIdArray'-    { _raiaInstanceId = Nothing-    , _raiaSize = Nothing-    , _raiaIOPS = Nothing-    , _raiaCreatedAt = Nothing-    , _raiaRAIdLevel = Nothing-    , _raiaDevice = Nothing-    , _raiaNumberOfDisks = Nothing-    , _raiaAvailabilityZone = Nothing-    , _raiaName = Nothing-    , _raiaRAIdArrayId = Nothing-    , _raiaVolumeType = Nothing-    , _raiaStackId = Nothing-    , _raiaMountPoint = Nothing-    }---- | The instance ID.-raiaInstanceId :: Lens' RAIdArray (Maybe Text)-raiaInstanceId = lens _raiaInstanceId (\ s a -> s{_raiaInstanceId = a});---- | The array\'s size.-raiaSize :: Lens' RAIdArray (Maybe Int)-raiaSize = lens _raiaSize (\ s a -> s{_raiaSize = a});---- | For PIOPS volumes, the IOPS per disk.-raiaIOPS :: Lens' RAIdArray (Maybe Int)-raiaIOPS = lens _raiaIOPS (\ s a -> s{_raiaIOPS = a});---- | When the RAID array was created.-raiaCreatedAt :: Lens' RAIdArray (Maybe Text)-raiaCreatedAt = lens _raiaCreatedAt (\ s a -> s{_raiaCreatedAt = a});---- | The <http://en.wikipedia.org/wiki/Standard_RAID_levels RAID level>.-raiaRAIdLevel :: Lens' RAIdArray (Maybe Int)-raiaRAIdLevel = lens _raiaRAIdLevel (\ s a -> s{_raiaRAIdLevel = a});---- | The array\'s Linux device. For example \/dev\/mdadm0.-raiaDevice :: Lens' RAIdArray (Maybe Text)-raiaDevice = lens _raiaDevice (\ s a -> s{_raiaDevice = a});---- | The number of disks in the array.-raiaNumberOfDisks :: Lens' RAIdArray (Maybe Int)-raiaNumberOfDisks = lens _raiaNumberOfDisks (\ s a -> s{_raiaNumberOfDisks = a});---- | The array\'s Availability Zone. For more information, see <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints>.-raiaAvailabilityZone :: Lens' RAIdArray (Maybe Text)-raiaAvailabilityZone = lens _raiaAvailabilityZone (\ s a -> s{_raiaAvailabilityZone = a});---- | The array name.-raiaName :: Lens' RAIdArray (Maybe Text)-raiaName = lens _raiaName (\ s a -> s{_raiaName = a});---- | The array ID.-raiaRAIdArrayId :: Lens' RAIdArray (Maybe Text)-raiaRAIdArrayId = lens _raiaRAIdArrayId (\ s a -> s{_raiaRAIdArrayId = a});---- | The volume type, standard or PIOPS.-raiaVolumeType :: Lens' RAIdArray (Maybe Text)-raiaVolumeType = lens _raiaVolumeType (\ s a -> s{_raiaVolumeType = a});---- | The stack ID.-raiaStackId :: Lens' RAIdArray (Maybe Text)-raiaStackId = lens _raiaStackId (\ s a -> s{_raiaStackId = a});---- | The array\'s mount point.-raiaMountPoint :: Lens' RAIdArray (Maybe Text)-raiaMountPoint = lens _raiaMountPoint (\ s a -> s{_raiaMountPoint = a});--instance FromJSON RAIdArray where-        parseJSON-          = withObject "RAIdArray"-              (\ x ->-                 RAIdArray' <$>-                   (x .:? "InstanceId") <*> (x .:? "Size") <*>-                     (x .:? "Iops")-                     <*> (x .:? "CreatedAt")-                     <*> (x .:? "RaidLevel")-                     <*> (x .:? "Device")-                     <*> (x .:? "NumberOfDisks")-                     <*> (x .:? "AvailabilityZone")-                     <*> (x .:? "Name")-                     <*> (x .:? "RaidArrayId")-                     <*> (x .:? "VolumeType")-                     <*> (x .:? "StackId")-                     <*> (x .:? "MountPoint"))--instance Hashable RAIdArray--instance NFData RAIdArray---- | Describes an Amazon RDS instance.------ /See:/ 'rdsDBInstance' smart constructor.-data RDSDBInstance = RDSDBInstance'-    { _rdiRDSDBInstanceARN     :: !(Maybe Text)-    , _rdiDBUser               :: !(Maybe Text)-    , _rdiMissingOnRDS         :: !(Maybe Bool)-    , _rdiEngine               :: !(Maybe Text)-    , _rdiAddress              :: !(Maybe Text)-    , _rdiDBInstanceIdentifier :: !(Maybe Text)-    , _rdiRegion               :: !(Maybe Text)-    , _rdiStackId              :: !(Maybe Text)-    , _rdiDBPassword           :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'RDSDBInstance' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rdiRDSDBInstanceARN'------ * 'rdiDBUser'------ * 'rdiMissingOnRDS'------ * 'rdiEngine'------ * 'rdiAddress'------ * 'rdiDBInstanceIdentifier'------ * 'rdiRegion'------ * 'rdiStackId'------ * 'rdiDBPassword'-rdsDBInstance-    :: RDSDBInstance-rdsDBInstance =-    RDSDBInstance'-    { _rdiRDSDBInstanceARN = Nothing-    , _rdiDBUser = Nothing-    , _rdiMissingOnRDS = Nothing-    , _rdiEngine = Nothing-    , _rdiAddress = Nothing-    , _rdiDBInstanceIdentifier = Nothing-    , _rdiRegion = Nothing-    , _rdiStackId = Nothing-    , _rdiDBPassword = Nothing-    }---- | The instance\'s ARN.-rdiRDSDBInstanceARN :: Lens' RDSDBInstance (Maybe Text)-rdiRDSDBInstanceARN = lens _rdiRDSDBInstanceARN (\ s a -> s{_rdiRDSDBInstanceARN = a});---- | The master user name.-rdiDBUser :: Lens' RDSDBInstance (Maybe Text)-rdiDBUser = lens _rdiDBUser (\ s a -> s{_rdiDBUser = a});---- | Set to 'true' if AWS OpsWorks was unable to discover the Amazon RDS instance. AWS OpsWorks attempts to discover the instance only once. If this value is set to 'true', you must deregister the instance and then register it again.-rdiMissingOnRDS :: Lens' RDSDBInstance (Maybe Bool)-rdiMissingOnRDS = lens _rdiMissingOnRDS (\ s a -> s{_rdiMissingOnRDS = a});---- | The instance\'s database engine.-rdiEngine :: Lens' RDSDBInstance (Maybe Text)-rdiEngine = lens _rdiEngine (\ s a -> s{_rdiEngine = a});---- | The instance\'s address.-rdiAddress :: Lens' RDSDBInstance (Maybe Text)-rdiAddress = lens _rdiAddress (\ s a -> s{_rdiAddress = a});---- | The DB instance identifier.-rdiDBInstanceIdentifier :: Lens' RDSDBInstance (Maybe Text)-rdiDBInstanceIdentifier = lens _rdiDBInstanceIdentifier (\ s a -> s{_rdiDBInstanceIdentifier = a});---- | The instance\'s AWS region.-rdiRegion :: Lens' RDSDBInstance (Maybe Text)-rdiRegion = lens _rdiRegion (\ s a -> s{_rdiRegion = a});---- | The ID of the stack that the instance is registered with.-rdiStackId :: Lens' RDSDBInstance (Maybe Text)-rdiStackId = lens _rdiStackId (\ s a -> s{_rdiStackId = a});---- | AWS OpsWorks returns '*****FILTERED*****' instead of the actual value.-rdiDBPassword :: Lens' RDSDBInstance (Maybe Text)-rdiDBPassword = lens _rdiDBPassword (\ s a -> s{_rdiDBPassword = a});--instance FromJSON RDSDBInstance where-        parseJSON-          = withObject "RDSDBInstance"-              (\ x ->-                 RDSDBInstance' <$>-                   (x .:? "RdsDbInstanceArn") <*> (x .:? "DbUser") <*>-                     (x .:? "MissingOnRds")-                     <*> (x .:? "Engine")-                     <*> (x .:? "Address")-                     <*> (x .:? "DbInstanceIdentifier")-                     <*> (x .:? "Region")-                     <*> (x .:? "StackId")-                     <*> (x .:? "DbPassword"))--instance Hashable RDSDBInstance--instance NFData RDSDBInstance---- | AWS OpsWorks supports five lifecycle events: __setup__, __configuration__, __deploy__, __undeploy__, and __shutdown__. For each layer, AWS OpsWorks runs a set of standard recipes for each event. In addition, you can provide custom recipes for any or all layers and events. AWS OpsWorks runs custom event recipes after the standard recipes. 'LayerCustomRecipes' specifies the custom recipes for a particular layer to be run in response to each of the five events.------ To specify a recipe, use the cookbook\'s directory name in the repository followed by two colons and the recipe name, which is the recipe\'s file name without the .rb extension. For example: phpapp2::dbsetup specifies the dbsetup.rb recipe in the repository\'s phpapp2 folder.------ /See:/ 'recipes' smart constructor.-data Recipes = Recipes'-    { _rSetup     :: !(Maybe [Text])-    , _rShutdown  :: !(Maybe [Text])-    , _rUndeploy  :: !(Maybe [Text])-    , _rConfigure :: !(Maybe [Text])-    , _rDeploy    :: !(Maybe [Text])-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'Recipes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rSetup'------ * 'rShutdown'------ * 'rUndeploy'------ * 'rConfigure'------ * 'rDeploy'-recipes-    :: Recipes-recipes =-    Recipes'-    { _rSetup = Nothing-    , _rShutdown = Nothing-    , _rUndeploy = Nothing-    , _rConfigure = Nothing-    , _rDeploy = Nothing-    }---- | An array of custom recipe names to be run following a 'setup' event.-rSetup :: Lens' Recipes [Text]-rSetup = lens _rSetup (\ s a -> s{_rSetup = a}) . _Default . _Coerce;---- | An array of custom recipe names to be run following a 'shutdown' event.-rShutdown :: Lens' Recipes [Text]-rShutdown = lens _rShutdown (\ s a -> s{_rShutdown = a}) . _Default . _Coerce;---- | An array of custom recipe names to be run following a 'undeploy' event.-rUndeploy :: Lens' Recipes [Text]-rUndeploy = lens _rUndeploy (\ s a -> s{_rUndeploy = a}) . _Default . _Coerce;---- | An array of custom recipe names to be run following a 'configure' event.-rConfigure :: Lens' Recipes [Text]-rConfigure = lens _rConfigure (\ s a -> s{_rConfigure = a}) . _Default . _Coerce;---- | An array of custom recipe names to be run following a 'deploy' event.-rDeploy :: Lens' Recipes [Text]-rDeploy = lens _rDeploy (\ s a -> s{_rDeploy = a}) . _Default . _Coerce;--instance FromJSON Recipes where-        parseJSON-          = withObject "Recipes"-              (\ x ->-                 Recipes' <$>-                   (x .:? "Setup" .!= mempty) <*>-                     (x .:? "Shutdown" .!= mempty)-                     <*> (x .:? "Undeploy" .!= mempty)-                     <*> (x .:? "Configure" .!= mempty)-                     <*> (x .:? "Deploy" .!= mempty))--instance Hashable Recipes--instance NFData Recipes--instance ToJSON Recipes where-        toJSON Recipes'{..}-          = object-              (catMaybes-                 [("Setup" .=) <$> _rSetup,-                  ("Shutdown" .=) <$> _rShutdown,-                  ("Undeploy" .=) <$> _rUndeploy,-                  ("Configure" .=) <$> _rConfigure,-                  ("Deploy" .=) <$> _rDeploy])---- | A registered instance\'s reported operating system.------ /See:/ 'reportedOS' smart constructor.-data ReportedOS = ReportedOS'-    { _roFamily  :: !(Maybe Text)-    , _roName    :: !(Maybe Text)-    , _roVersion :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ReportedOS' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'roFamily'------ * 'roName'------ * 'roVersion'-reportedOS-    :: ReportedOS-reportedOS =-    ReportedOS'-    { _roFamily = Nothing-    , _roName = Nothing-    , _roVersion = Nothing-    }---- | The operating system family.-roFamily :: Lens' ReportedOS (Maybe Text)-roFamily = lens _roFamily (\ s a -> s{_roFamily = a});---- | The operating system name.-roName :: Lens' ReportedOS (Maybe Text)-roName = lens _roName (\ s a -> s{_roName = a});---- | The operating system version.-roVersion :: Lens' ReportedOS (Maybe Text)-roVersion = lens _roVersion (\ s a -> s{_roVersion = a});--instance FromJSON ReportedOS where-        parseJSON-          = withObject "ReportedOS"-              (\ x ->-                 ReportedOS' <$>-                   (x .:? "Family") <*> (x .:? "Name") <*>-                     (x .:? "Version"))--instance Hashable ReportedOS--instance NFData ReportedOS---- | Describes an app\'s SSL configuration.------ /See:/ 'sslConfiguration' smart constructor.-data SSLConfiguration = SSLConfiguration'-    { _scChain       :: !(Maybe Text)-    , _scCertificate :: !Text-    , _scPrivateKey  :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'SSLConfiguration' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'scChain'------ * 'scCertificate'------ * 'scPrivateKey'-sslConfiguration-    :: Text -- ^ 'scCertificate'-    -> Text -- ^ 'scPrivateKey'-    -> SSLConfiguration-sslConfiguration pCertificate_ pPrivateKey_ =-    SSLConfiguration'-    { _scChain = Nothing-    , _scCertificate = pCertificate_-    , _scPrivateKey = pPrivateKey_-    }---- | Optional. Can be used to specify an intermediate certificate authority key or client authentication.-scChain :: Lens' SSLConfiguration (Maybe Text)-scChain = lens _scChain (\ s a -> s{_scChain = a});---- | The contents of the certificate\'s domain.crt file.-scCertificate :: Lens' SSLConfiguration Text-scCertificate = lens _scCertificate (\ s a -> s{_scCertificate = a});---- | The private key; the contents of the certificate\'s domain.kex file.-scPrivateKey :: Lens' SSLConfiguration Text-scPrivateKey = lens _scPrivateKey (\ s a -> s{_scPrivateKey = a});--instance FromJSON SSLConfiguration where-        parseJSON-          = withObject "SSLConfiguration"-              (\ x ->-                 SSLConfiguration' <$>-                   (x .:? "Chain") <*> (x .: "Certificate") <*>-                     (x .: "PrivateKey"))--instance Hashable SSLConfiguration--instance NFData SSLConfiguration--instance ToJSON SSLConfiguration where-        toJSON SSLConfiguration'{..}-          = object-              (catMaybes-                 [("Chain" .=) <$> _scChain,-                  Just ("Certificate" .= _scCertificate),-                  Just ("PrivateKey" .= _scPrivateKey)])---- | Describes a user\'s SSH information.------ /See:/ 'selfUserProfile' smart constructor.-data SelfUserProfile = SelfUserProfile'-    { _supSSHPublicKey :: !(Maybe Text)-    , _supSSHUsername  :: !(Maybe Text)-    , _supIAMUserARN   :: !(Maybe Text)-    , _supName         :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'SelfUserProfile' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'supSSHPublicKey'------ * 'supSSHUsername'------ * 'supIAMUserARN'------ * 'supName'-selfUserProfile-    :: SelfUserProfile-selfUserProfile =-    SelfUserProfile'-    { _supSSHPublicKey = Nothing-    , _supSSHUsername = Nothing-    , _supIAMUserARN = Nothing-    , _supName = Nothing-    }---- | The user\'s SSH public key.-supSSHPublicKey :: Lens' SelfUserProfile (Maybe Text)-supSSHPublicKey = lens _supSSHPublicKey (\ s a -> s{_supSSHPublicKey = a});---- | The user\'s SSH user name.-supSSHUsername :: Lens' SelfUserProfile (Maybe Text)-supSSHUsername = lens _supSSHUsername (\ s a -> s{_supSSHUsername = a});---- | The user\'s IAM ARN.-supIAMUserARN :: Lens' SelfUserProfile (Maybe Text)-supIAMUserARN = lens _supIAMUserARN (\ s a -> s{_supIAMUserARN = a});---- | The user\'s name.-supName :: Lens' SelfUserProfile (Maybe Text)-supName = lens _supName (\ s a -> s{_supName = a});--instance FromJSON SelfUserProfile where-        parseJSON-          = withObject "SelfUserProfile"-              (\ x ->-                 SelfUserProfile' <$>-                   (x .:? "SshPublicKey") <*> (x .:? "SshUsername") <*>-                     (x .:? "IamUserArn")-                     <*> (x .:? "Name"))--instance Hashable SelfUserProfile--instance NFData SelfUserProfile---- | Describes an AWS OpsWorks service error.------ /See:/ 'serviceError'' smart constructor.-data ServiceError' = ServiceError''-    { _seInstanceId     :: !(Maybe Text)-    , _seCreatedAt      :: !(Maybe Text)-    , _seServiceErrorId :: !(Maybe Text)-    , _seType           :: !(Maybe Text)-    , _seStackId        :: !(Maybe Text)-    , _seMessage        :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ServiceError'' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'seInstanceId'------ * 'seCreatedAt'------ * 'seServiceErrorId'------ * 'seType'------ * 'seStackId'------ * 'seMessage'-serviceError'-    :: ServiceError'-serviceError' =-    ServiceError''-    { _seInstanceId = Nothing-    , _seCreatedAt = Nothing-    , _seServiceErrorId = Nothing-    , _seType = Nothing-    , _seStackId = Nothing-    , _seMessage = Nothing-    }---- | The instance ID.-seInstanceId :: Lens' ServiceError' (Maybe Text)-seInstanceId = lens _seInstanceId (\ s a -> s{_seInstanceId = a});---- | When the error occurred.-seCreatedAt :: Lens' ServiceError' (Maybe Text)-seCreatedAt = lens _seCreatedAt (\ s a -> s{_seCreatedAt = a});---- | The error ID.-seServiceErrorId :: Lens' ServiceError' (Maybe Text)-seServiceErrorId = lens _seServiceErrorId (\ s a -> s{_seServiceErrorId = a});---- | The error type.-seType :: Lens' ServiceError' (Maybe Text)-seType = lens _seType (\ s a -> s{_seType = a});---- | The stack ID.-seStackId :: Lens' ServiceError' (Maybe Text)-seStackId = lens _seStackId (\ s a -> s{_seStackId = a});---- | A message that describes the error.-seMessage :: Lens' ServiceError' (Maybe Text)-seMessage = lens _seMessage (\ s a -> s{_seMessage = a});--instance FromJSON ServiceError' where-        parseJSON-          = withObject "ServiceError'"-              (\ x ->-                 ServiceError'' <$>-                   (x .:? "InstanceId") <*> (x .:? "CreatedAt") <*>-                     (x .:? "ServiceErrorId")-                     <*> (x .:? "Type")-                     <*> (x .:? "StackId")-                     <*> (x .:? "Message"))--instance Hashable ServiceError'--instance NFData ServiceError'---- | The Shutdown event configuration.------ /See:/ 'shutdownEventConfiguration' smart constructor.-data ShutdownEventConfiguration = ShutdownEventConfiguration'-    { _secExecutionTimeout                :: !(Maybe Int)-    , _secDelayUntilElbConnectionsDrained :: !(Maybe Bool)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ShutdownEventConfiguration' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'secExecutionTimeout'------ * 'secDelayUntilElbConnectionsDrained'-shutdownEventConfiguration-    :: ShutdownEventConfiguration-shutdownEventConfiguration =-    ShutdownEventConfiguration'-    { _secExecutionTimeout = Nothing-    , _secDelayUntilElbConnectionsDrained = Nothing-    }---- | The time, in seconds, that AWS OpsWorks will wait after triggering a Shutdown event before shutting down an instance.-secExecutionTimeout :: Lens' ShutdownEventConfiguration (Maybe Int)-secExecutionTimeout = lens _secExecutionTimeout (\ s a -> s{_secExecutionTimeout = a});---- | Whether to enable Elastic Load Balancing connection draining. For more information, see <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/TerminologyandKeyConcepts.html#conn-drain Connection Draining>-secDelayUntilElbConnectionsDrained :: Lens' ShutdownEventConfiguration (Maybe Bool)-secDelayUntilElbConnectionsDrained = lens _secDelayUntilElbConnectionsDrained (\ s a -> s{_secDelayUntilElbConnectionsDrained = a});--instance FromJSON ShutdownEventConfiguration where-        parseJSON-          = withObject "ShutdownEventConfiguration"-              (\ x ->-                 ShutdownEventConfiguration' <$>-                   (x .:? "ExecutionTimeout") <*>-                     (x .:? "DelayUntilElbConnectionsDrained"))--instance Hashable ShutdownEventConfiguration--instance NFData ShutdownEventConfiguration--instance ToJSON ShutdownEventConfiguration where-        toJSON ShutdownEventConfiguration'{..}-          = object-              (catMaybes-                 [("ExecutionTimeout" .=) <$> _secExecutionTimeout,-                  ("DelayUntilElbConnectionsDrained" .=) <$>-                    _secDelayUntilElbConnectionsDrained])---- | Contains the information required to retrieve an app or cookbook from a repository. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workingapps-creating.html Creating Apps> or <http://docs.aws.amazon.com/opsworks/latest/userguide/workingcookbook.html Custom Recipes and Cookbooks>.------ /See:/ 'source' smart constructor.-data Source = Source'-    { _sURL      :: !(Maybe Text)-    , _sUsername :: !(Maybe Text)-    , _sSSHKey   :: !(Maybe Text)-    , _sPassword :: !(Maybe Text)-    , _sType     :: !(Maybe SourceType)-    , _sRevision :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'Source' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sURL'------ * 'sUsername'------ * 'sSSHKey'------ * 'sPassword'------ * 'sType'------ * 'sRevision'-source-    :: Source-source =-    Source'-    { _sURL = Nothing-    , _sUsername = Nothing-    , _sSSHKey = Nothing-    , _sPassword = Nothing-    , _sType = Nothing-    , _sRevision = Nothing-    }---- | The source URL.-sURL :: Lens' Source (Maybe Text)-sURL = lens _sURL (\ s a -> s{_sURL = a});---- | This parameter depends on the repository type.------ -   For Amazon S3 bundles, set 'Username' to the appropriate IAM access key ID.------ -   For HTTP bundles, Git repositories, and Subversion repositories, set 'Username' to the user name.----sUsername :: Lens' Source (Maybe Text)-sUsername = lens _sUsername (\ s a -> s{_sUsername = a});---- | In requests, the repository\'s SSH key.------ In responses, AWS OpsWorks returns '*****FILTERED*****' instead of the actual value.-sSSHKey :: Lens' Source (Maybe Text)-sSSHKey = lens _sSSHKey (\ s a -> s{_sSSHKey = a});---- | When included in a request, the parameter depends on the repository type.------ -   For Amazon S3 bundles, set 'Password' to the appropriate IAM secret access key.------ -   For HTTP bundles and Subversion repositories, set 'Password' to the password.------ For more information on how to safely handle IAM credentials, see <http://docs.aws.amazon.com/general/latest/gr/aws-access-keys-best-practices.html>.------ In responses, AWS OpsWorks returns '*****FILTERED*****' instead of the actual value.-sPassword :: Lens' Source (Maybe Text)-sPassword = lens _sPassword (\ s a -> s{_sPassword = a});---- | The repository type.-sType :: Lens' Source (Maybe SourceType)-sType = lens _sType (\ s a -> s{_sType = a});---- | The application\'s version. AWS OpsWorks enables you to easily deploy new versions of an application. One of the simplest approaches is to have branches or revisions in your repository that represent different versions that can potentially be deployed.-sRevision :: Lens' Source (Maybe Text)-sRevision = lens _sRevision (\ s a -> s{_sRevision = a});--instance FromJSON Source where-        parseJSON-          = withObject "Source"-              (\ x ->-                 Source' <$>-                   (x .:? "Url") <*> (x .:? "Username") <*>-                     (x .:? "SshKey")-                     <*> (x .:? "Password")-                     <*> (x .:? "Type")-                     <*> (x .:? "Revision"))--instance Hashable Source--instance NFData Source--instance ToJSON Source where-        toJSON Source'{..}-          = object-              (catMaybes-                 [("Url" .=) <$> _sURL,-                  ("Username" .=) <$> _sUsername,-                  ("SshKey" .=) <$> _sSSHKey,-                  ("Password" .=) <$> _sPassword,-                  ("Type" .=) <$> _sType,-                  ("Revision" .=) <$> _sRevision])---- | Describes a stack.------ /See:/ 'stack' smart constructor.-data Stack = Stack'-    { _sDefaultInstanceProfileARN :: !(Maybe Text)-    , _sServiceRoleARN            :: !(Maybe Text)-    , _sDefaultRootDeviceType     :: !(Maybe RootDeviceType)-    , _sARN                       :: !(Maybe Text)-    , _sCreatedAt                 :: !(Maybe Text)-    , _sVPCId                     :: !(Maybe Text)-    , _sChefConfiguration         :: !(Maybe ChefConfiguration)-    , _sAgentVersion              :: !(Maybe Text)-    , _sDefaultSSHKeyName         :: !(Maybe Text)-    , _sCustomJSON                :: !(Maybe Text)-    , _sCustomCookbooksSource     :: !(Maybe Source)-    , _sDefaultAvailabilityZone   :: !(Maybe Text)-    , _sAttributes                :: !(Maybe (Map StackAttributesKeys Text))-    , _sName                      :: !(Maybe Text)-    , _sDefaultOS                 :: !(Maybe Text)-    , _sUseOpsworksSecurityGroups :: !(Maybe Bool)-    , _sUseCustomCookbooks        :: !(Maybe Bool)-    , _sDefaultSubnetId           :: !(Maybe Text)-    , _sRegion                    :: !(Maybe Text)-    , _sConfigurationManager      :: !(Maybe StackConfigurationManager)-    , _sStackId                   :: !(Maybe Text)-    , _sHostnameTheme             :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'Stack' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sDefaultInstanceProfileARN'------ * 'sServiceRoleARN'------ * 'sDefaultRootDeviceType'------ * 'sARN'------ * 'sCreatedAt'------ * 'sVPCId'------ * 'sChefConfiguration'------ * 'sAgentVersion'------ * 'sDefaultSSHKeyName'------ * 'sCustomJSON'------ * 'sCustomCookbooksSource'------ * 'sDefaultAvailabilityZone'------ * 'sAttributes'------ * 'sName'------ * 'sDefaultOS'------ * 'sUseOpsworksSecurityGroups'------ * 'sUseCustomCookbooks'------ * 'sDefaultSubnetId'------ * 'sRegion'------ * 'sConfigurationManager'------ * 'sStackId'------ * 'sHostnameTheme'-stack-    :: Stack-stack =-    Stack'-    { _sDefaultInstanceProfileARN = Nothing-    , _sServiceRoleARN = Nothing-    , _sDefaultRootDeviceType = Nothing-    , _sARN = Nothing-    , _sCreatedAt = Nothing-    , _sVPCId = Nothing-    , _sChefConfiguration = Nothing-    , _sAgentVersion = Nothing-    , _sDefaultSSHKeyName = Nothing-    , _sCustomJSON = Nothing-    , _sCustomCookbooksSource = Nothing-    , _sDefaultAvailabilityZone = Nothing-    , _sAttributes = Nothing-    , _sName = Nothing-    , _sDefaultOS = Nothing-    , _sUseOpsworksSecurityGroups = Nothing-    , _sUseCustomCookbooks = Nothing-    , _sDefaultSubnetId = Nothing-    , _sRegion = Nothing-    , _sConfigurationManager = Nothing-    , _sStackId = Nothing-    , _sHostnameTheme = Nothing-    }---- | 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>.-sDefaultInstanceProfileARN :: Lens' Stack (Maybe Text)-sDefaultInstanceProfileARN = lens _sDefaultInstanceProfileARN (\ s a -> s{_sDefaultInstanceProfileARN = a});---- | The stack AWS Identity and Access Management (IAM) role.-sServiceRoleARN :: Lens' Stack (Maybe Text)-sServiceRoleARN = lens _sServiceRoleARN (\ s a -> s{_sServiceRoleARN = a});---- | The default root device type. This value is used by default for all instances in the 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>.-sDefaultRootDeviceType :: Lens' Stack (Maybe RootDeviceType)-sDefaultRootDeviceType = lens _sDefaultRootDeviceType (\ s a -> s{_sDefaultRootDeviceType = a});---- | The stack\'s ARN.-sARN :: Lens' Stack (Maybe Text)-sARN = lens _sARN (\ s a -> s{_sARN = a});---- | The date when the stack was created.-sCreatedAt :: Lens' Stack (Maybe Text)-sCreatedAt = lens _sCreatedAt (\ s a -> s{_sCreatedAt = a});---- | The VPC ID; applicable only if the stack is running in a VPC.-sVPCId :: Lens' Stack (Maybe Text)-sVPCId = lens _sVPCId (\ s a -> s{_sVPCId = a});---- | A 'ChefConfiguration' object that specifies whether to enable Berkshelf and the Berkshelf version. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workingstacks-creating.html Create a New Stack>.-sChefConfiguration :: Lens' Stack (Maybe ChefConfiguration)-sChefConfiguration = lens _sChefConfiguration (\ s a -> s{_sChefConfiguration = a});---- | The agent version. This parameter is set to 'LATEST' for auto-update. or a version number for a fixed agent version.-sAgentVersion :: Lens' Stack (Maybe Text)-sAgentVersion = lens _sAgentVersion (\ s a -> s{_sAgentVersion = a});---- | A default Amazon EC2 key pair for the stack\'s instances. You can override this value when you create or update an instance.-sDefaultSSHKeyName :: Lens' Stack (Maybe Text)-sDefaultSSHKeyName = lens _sDefaultSSHKeyName (\ s a -> s{_sDefaultSSHKeyName = a});---- | A JSON object that contains user-defined attributes to be added to the stack configuration and deployment attributes. You can use custom JSON to override the corresponding default stack configuration attribute values or to pass data to recipes. The string should be in the following format and must escape characters such as \'\"\':------ '\"{\\\"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>.-sCustomJSON :: Lens' Stack (Maybe Text)-sCustomJSON = lens _sCustomJSON (\ s a -> s{_sCustomJSON = a});---- | Undocumented member.-sCustomCookbooksSource :: Lens' Stack (Maybe Source)-sCustomCookbooksSource = lens _sCustomCookbooksSource (\ s a -> s{_sCustomCookbooksSource = a});---- | The stack\'s default Availability Zone. For more information, see <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints>.-sDefaultAvailabilityZone :: Lens' Stack (Maybe Text)-sDefaultAvailabilityZone = lens _sDefaultAvailabilityZone (\ s a -> s{_sDefaultAvailabilityZone = a});---- | The stack\'s attributes.-sAttributes :: Lens' Stack (HashMap StackAttributesKeys Text)-sAttributes = lens _sAttributes (\ s a -> s{_sAttributes = a}) . _Default . _Map;---- | The stack name.-sName :: Lens' Stack (Maybe Text)-sName = lens _sName (\ s a -> s{_sName = a});---- | The stack\'s default operating system.-sDefaultOS :: Lens' Stack (Maybe Text)-sDefaultOS = lens _sDefaultOS (\ s a -> s{_sDefaultOS = a});---- | Whether the stack automatically associates the AWS OpsWorks built-in security groups with the stack\'s layers.-sUseOpsworksSecurityGroups :: Lens' Stack (Maybe Bool)-sUseOpsworksSecurityGroups = lens _sUseOpsworksSecurityGroups (\ s a -> s{_sUseOpsworksSecurityGroups = a});---- | Whether the stack uses custom cookbooks.-sUseCustomCookbooks :: Lens' Stack (Maybe Bool)-sUseCustomCookbooks = lens _sUseCustomCookbooks (\ s a -> s{_sUseCustomCookbooks = a});---- | The default subnet ID; applicable only if the stack is running in a VPC.-sDefaultSubnetId :: Lens' Stack (Maybe Text)-sDefaultSubnetId = lens _sDefaultSubnetId (\ s a -> s{_sDefaultSubnetId = a});---- | The stack AWS region, such as \"ap-northeast-2\". For more information about AWS regions, see <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints>.-sRegion :: Lens' Stack (Maybe Text)-sRegion = lens _sRegion (\ s a -> s{_sRegion = a});---- | The configuration manager.-sConfigurationManager :: Lens' Stack (Maybe StackConfigurationManager)-sConfigurationManager = lens _sConfigurationManager (\ s a -> s{_sConfigurationManager = a});---- | The stack ID.-sStackId :: Lens' Stack (Maybe Text)-sStackId = lens _sStackId (\ s a -> s{_sStackId = a});---- | The stack host name theme, with spaces replaced by underscores.-sHostnameTheme :: Lens' Stack (Maybe Text)-sHostnameTheme = lens _sHostnameTheme (\ s a -> s{_sHostnameTheme = a});--instance FromJSON Stack where-        parseJSON-          = withObject "Stack"-              (\ x ->-                 Stack' <$>-                   (x .:? "DefaultInstanceProfileArn") <*>-                     (x .:? "ServiceRoleArn")-                     <*> (x .:? "DefaultRootDeviceType")-                     <*> (x .:? "Arn")-                     <*> (x .:? "CreatedAt")-                     <*> (x .:? "VpcId")-                     <*> (x .:? "ChefConfiguration")-                     <*> (x .:? "AgentVersion")-                     <*> (x .:? "DefaultSshKeyName")-                     <*> (x .:? "CustomJson")-                     <*> (x .:? "CustomCookbooksSource")-                     <*> (x .:? "DefaultAvailabilityZone")-                     <*> (x .:? "Attributes" .!= mempty)-                     <*> (x .:? "Name")-                     <*> (x .:? "DefaultOs")-                     <*> (x .:? "UseOpsworksSecurityGroups")-                     <*> (x .:? "UseCustomCookbooks")-                     <*> (x .:? "DefaultSubnetId")-                     <*> (x .:? "Region")-                     <*> (x .:? "ConfigurationManager")-                     <*> (x .:? "StackId")-                     <*> (x .:? "HostnameTheme"))--instance Hashable Stack--instance NFData Stack---- | Describes the configuration manager.------ /See:/ 'stackConfigurationManager' smart constructor.-data StackConfigurationManager = StackConfigurationManager'-    { _scmName    :: !(Maybe Text)-    , _scmVersion :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'StackConfigurationManager' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'scmName'------ * 'scmVersion'-stackConfigurationManager-    :: StackConfigurationManager-stackConfigurationManager =-    StackConfigurationManager'-    { _scmName = Nothing-    , _scmVersion = Nothing-    }---- | The name. This parameter must be set to \"Chef\".-scmName :: Lens' StackConfigurationManager (Maybe Text)-scmName = lens _scmName (\ s a -> s{_scmName = a});---- | The Chef version. This parameter must be set to 12, 11.10, or 11.4 for Linux stacks, and to 12.2 for Windows stacks. The default value for Linux stacks is 11.4.-scmVersion :: Lens' StackConfigurationManager (Maybe Text)-scmVersion = lens _scmVersion (\ s a -> s{_scmVersion = a});--instance FromJSON StackConfigurationManager where-        parseJSON-          = withObject "StackConfigurationManager"-              (\ x ->-                 StackConfigurationManager' <$>-                   (x .:? "Name") <*> (x .:? "Version"))--instance Hashable StackConfigurationManager--instance NFData StackConfigurationManager--instance ToJSON StackConfigurationManager where-        toJSON StackConfigurationManager'{..}-          = object-              (catMaybes-                 [("Name" .=) <$> _scmName,-                  ("Version" .=) <$> _scmVersion])---- | Summarizes the number of layers, instances, and apps in a stack.------ /See:/ 'stackSummary' smart constructor.-data StackSummary = StackSummary'-    { _ssARN            :: !(Maybe Text)-    , _ssAppsCount      :: !(Maybe Int)-    , _ssName           :: !(Maybe Text)-    , _ssStackId        :: !(Maybe Text)-    , _ssLayersCount    :: !(Maybe Int)-    , _ssInstancesCount :: !(Maybe InstancesCount)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'StackSummary' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ssARN'------ * 'ssAppsCount'------ * 'ssName'------ * 'ssStackId'------ * 'ssLayersCount'------ * 'ssInstancesCount'-stackSummary-    :: StackSummary-stackSummary =-    StackSummary'-    { _ssARN = Nothing-    , _ssAppsCount = Nothing-    , _ssName = Nothing-    , _ssStackId = Nothing-    , _ssLayersCount = Nothing-    , _ssInstancesCount = Nothing-    }---- | The stack\'s ARN.-ssARN :: Lens' StackSummary (Maybe Text)-ssARN = lens _ssARN (\ s a -> s{_ssARN = a});---- | The number of apps.-ssAppsCount :: Lens' StackSummary (Maybe Int)-ssAppsCount = lens _ssAppsCount (\ s a -> s{_ssAppsCount = a});---- | The stack name.-ssName :: Lens' StackSummary (Maybe Text)-ssName = lens _ssName (\ s a -> s{_ssName = a});---- | The stack ID.-ssStackId :: Lens' StackSummary (Maybe Text)-ssStackId = lens _ssStackId (\ s a -> s{_ssStackId = a});---- | The number of layers.-ssLayersCount :: Lens' StackSummary (Maybe Int)-ssLayersCount = lens _ssLayersCount (\ s a -> s{_ssLayersCount = a});---- | An 'InstancesCount' object with the number of instances in each status.-ssInstancesCount :: Lens' StackSummary (Maybe InstancesCount)-ssInstancesCount = lens _ssInstancesCount (\ s a -> s{_ssInstancesCount = a});--instance FromJSON StackSummary where-        parseJSON-          = withObject "StackSummary"-              (\ x ->-                 StackSummary' <$>-                   (x .:? "Arn") <*> (x .:? "AppsCount") <*>-                     (x .:? "Name")-                     <*> (x .:? "StackId")-                     <*> (x .:? "LayersCount")-                     <*> (x .:? "InstancesCount"))--instance Hashable StackSummary--instance NFData StackSummary---- | Contains the data needed by RDP clients such as the Microsoft Remote Desktop Connection to log in to the instance.------ /See:/ 'temporaryCredential' smart constructor.-data TemporaryCredential = TemporaryCredential'-    { _tcInstanceId        :: !(Maybe Text)-    , _tcUsername          :: !(Maybe Text)-    , _tcPassword          :: !(Maybe Text)-    , _tcValidForInMinutes :: !(Maybe Int)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'TemporaryCredential' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tcInstanceId'------ * 'tcUsername'------ * 'tcPassword'------ * 'tcValidForInMinutes'-temporaryCredential-    :: TemporaryCredential-temporaryCredential =-    TemporaryCredential'-    { _tcInstanceId = Nothing-    , _tcUsername = Nothing-    , _tcPassword = Nothing-    , _tcValidForInMinutes = Nothing-    }---- | The instance\'s AWS OpsWorks ID.-tcInstanceId :: Lens' TemporaryCredential (Maybe Text)-tcInstanceId = lens _tcInstanceId (\ s a -> s{_tcInstanceId = a});---- | The user name.-tcUsername :: Lens' TemporaryCredential (Maybe Text)-tcUsername = lens _tcUsername (\ s a -> s{_tcUsername = a});---- | The password.-tcPassword :: Lens' TemporaryCredential (Maybe Text)-tcPassword = lens _tcPassword (\ s a -> s{_tcPassword = a});---- | The length of time (in minutes) that the grant is valid. When the grant expires, at the end of this period, the user will no longer be able to use the credentials to log in. If they are logged in at the time, they will be automatically logged out.-tcValidForInMinutes :: Lens' TemporaryCredential (Maybe Int)-tcValidForInMinutes = lens _tcValidForInMinutes (\ s a -> s{_tcValidForInMinutes = a});--instance FromJSON TemporaryCredential where-        parseJSON-          = withObject "TemporaryCredential"-              (\ x ->-                 TemporaryCredential' <$>-                   (x .:? "InstanceId") <*> (x .:? "Username") <*>-                     (x .:? "Password")-                     <*> (x .:? "ValidForInMinutes"))--instance Hashable TemporaryCredential--instance NFData TemporaryCredential---- | Describes an instance\'s time-based auto scaling configuration.------ /See:/ 'timeBasedAutoScalingConfiguration' smart constructor.-data TimeBasedAutoScalingConfiguration = TimeBasedAutoScalingConfiguration'-    { _tbascInstanceId          :: !(Maybe Text)-    , _tbascAutoScalingSchedule :: !(Maybe WeeklyAutoScalingSchedule)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'TimeBasedAutoScalingConfiguration' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tbascInstanceId'------ * 'tbascAutoScalingSchedule'-timeBasedAutoScalingConfiguration-    :: TimeBasedAutoScalingConfiguration-timeBasedAutoScalingConfiguration =-    TimeBasedAutoScalingConfiguration'-    { _tbascInstanceId = Nothing-    , _tbascAutoScalingSchedule = Nothing-    }---- | The instance ID.-tbascInstanceId :: Lens' TimeBasedAutoScalingConfiguration (Maybe Text)-tbascInstanceId = lens _tbascInstanceId (\ s a -> s{_tbascInstanceId = a});---- | A 'WeeklyAutoScalingSchedule' object with the instance schedule.-tbascAutoScalingSchedule :: Lens' TimeBasedAutoScalingConfiguration (Maybe WeeklyAutoScalingSchedule)-tbascAutoScalingSchedule = lens _tbascAutoScalingSchedule (\ s a -> s{_tbascAutoScalingSchedule = a});--instance FromJSON TimeBasedAutoScalingConfiguration-         where-        parseJSON-          = withObject "TimeBasedAutoScalingConfiguration"-              (\ x ->-                 TimeBasedAutoScalingConfiguration' <$>-                   (x .:? "InstanceId") <*>-                     (x .:? "AutoScalingSchedule"))--instance Hashable TimeBasedAutoScalingConfiguration--instance NFData TimeBasedAutoScalingConfiguration---- | Describes a user\'s SSH information.------ /See:/ 'userProfile' smart constructor.-data UserProfile = UserProfile'-    { _upAllowSelfManagement :: !(Maybe Bool)-    , _upSSHPublicKey        :: !(Maybe Text)-    , _upSSHUsername         :: !(Maybe Text)-    , _upIAMUserARN          :: !(Maybe Text)-    , _upName                :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'UserProfile' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'upAllowSelfManagement'------ * 'upSSHPublicKey'------ * 'upSSHUsername'------ * 'upIAMUserARN'------ * 'upName'-userProfile-    :: UserProfile-userProfile =-    UserProfile'-    { _upAllowSelfManagement = Nothing-    , _upSSHPublicKey = Nothing-    , _upSSHUsername = Nothing-    , _upIAMUserARN = Nothing-    , _upName = Nothing-    }---- | Whether users can specify their own SSH public key through the My Settings page. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/security-settingsshkey.html Managing User Permissions>.-upAllowSelfManagement :: Lens' UserProfile (Maybe Bool)-upAllowSelfManagement = lens _upAllowSelfManagement (\ s a -> s{_upAllowSelfManagement = a});---- | The user\'s SSH public key.-upSSHPublicKey :: Lens' UserProfile (Maybe Text)-upSSHPublicKey = lens _upSSHPublicKey (\ s a -> s{_upSSHPublicKey = a});---- | The user\'s SSH user name.-upSSHUsername :: Lens' UserProfile (Maybe Text)-upSSHUsername = lens _upSSHUsername (\ s a -> s{_upSSHUsername = a});---- | The user\'s IAM ARN.-upIAMUserARN :: Lens' UserProfile (Maybe Text)-upIAMUserARN = lens _upIAMUserARN (\ s a -> s{_upIAMUserARN = a});---- | The user\'s name.-upName :: Lens' UserProfile (Maybe Text)-upName = lens _upName (\ s a -> s{_upName = a});--instance FromJSON UserProfile where-        parseJSON-          = withObject "UserProfile"-              (\ x ->-                 UserProfile' <$>-                   (x .:? "AllowSelfManagement") <*>-                     (x .:? "SshPublicKey")-                     <*> (x .:? "SshUsername")-                     <*> (x .:? "IamUserArn")-                     <*> (x .:? "Name"))--instance Hashable UserProfile--instance NFData UserProfile---- | Describes an instance\'s Amazon EBS volume.------ /See:/ 'volume' smart constructor.-data Volume = Volume'-    { _vInstanceId       :: !(Maybe Text)-    , _vStatus           :: !(Maybe Text)-    , _vSize             :: !(Maybe Int)-    , _vIOPS             :: !(Maybe Int)-    , _vDevice           :: !(Maybe Text)-    , _vAvailabilityZone :: !(Maybe Text)-    , _vName             :: !(Maybe Text)-    , _vRAIdArrayId      :: !(Maybe Text)-    , _vVolumeId         :: !(Maybe Text)-    , _vRegion           :: !(Maybe Text)-    , _vVolumeType       :: !(Maybe Text)-    , _vEC2VolumeId      :: !(Maybe Text)-    , _vMountPoint       :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'Volume' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vInstanceId'------ * 'vStatus'------ * 'vSize'------ * 'vIOPS'------ * 'vDevice'------ * 'vAvailabilityZone'------ * 'vName'------ * 'vRAIdArrayId'------ * 'vVolumeId'------ * 'vRegion'------ * 'vVolumeType'------ * 'vEC2VolumeId'------ * 'vMountPoint'-volume-    :: Volume-volume =-    Volume'-    { _vInstanceId = Nothing-    , _vStatus = Nothing-    , _vSize = Nothing-    , _vIOPS = Nothing-    , _vDevice = Nothing-    , _vAvailabilityZone = Nothing-    , _vName = Nothing-    , _vRAIdArrayId = Nothing-    , _vVolumeId = Nothing-    , _vRegion = Nothing-    , _vVolumeType = Nothing-    , _vEC2VolumeId = Nothing-    , _vMountPoint = Nothing-    }---- | The instance ID.-vInstanceId :: Lens' Volume (Maybe Text)-vInstanceId = lens _vInstanceId (\ s a -> s{_vInstanceId = a});---- | The value returned by <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeVolumes.html DescribeVolumes>.-vStatus :: Lens' Volume (Maybe Text)-vStatus = lens _vStatus (\ s a -> s{_vStatus = a});---- | The volume size.-vSize :: Lens' Volume (Maybe Int)-vSize = lens _vSize (\ s a -> s{_vSize = a});---- | For PIOPS volumes, the IOPS per disk.-vIOPS :: Lens' Volume (Maybe Int)-vIOPS = lens _vIOPS (\ s a -> s{_vIOPS = a});---- | The device name.-vDevice :: Lens' Volume (Maybe Text)-vDevice = lens _vDevice (\ s a -> s{_vDevice = a});---- | The volume Availability Zone. For more information, see <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints>.-vAvailabilityZone :: Lens' Volume (Maybe Text)-vAvailabilityZone = lens _vAvailabilityZone (\ s a -> s{_vAvailabilityZone = a});---- | The volume name.-vName :: Lens' Volume (Maybe Text)-vName = lens _vName (\ s a -> s{_vName = a});---- | The RAID array ID.-vRAIdArrayId :: Lens' Volume (Maybe Text)-vRAIdArrayId = lens _vRAIdArrayId (\ s a -> s{_vRAIdArrayId = a});---- | The volume ID.-vVolumeId :: Lens' Volume (Maybe Text)-vVolumeId = lens _vVolumeId (\ s a -> s{_vVolumeId = a});---- | The AWS region. For more information about AWS regions, see <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints>.-vRegion :: Lens' Volume (Maybe Text)-vRegion = lens _vRegion (\ s a -> s{_vRegion = a});---- | The volume type, standard or PIOPS.-vVolumeType :: Lens' Volume (Maybe Text)-vVolumeType = lens _vVolumeType (\ s a -> s{_vVolumeType = a});---- | The Amazon EC2 volume ID.-vEC2VolumeId :: Lens' Volume (Maybe Text)-vEC2VolumeId = lens _vEC2VolumeId (\ s a -> s{_vEC2VolumeId = a});---- | The volume mount point. For example, \"\/mnt\/disk1\".-vMountPoint :: Lens' Volume (Maybe Text)-vMountPoint = lens _vMountPoint (\ s a -> s{_vMountPoint = a});--instance FromJSON Volume where-        parseJSON-          = withObject "Volume"-              (\ x ->-                 Volume' <$>-                   (x .:? "InstanceId") <*> (x .:? "Status") <*>-                     (x .:? "Size")-                     <*> (x .:? "Iops")-                     <*> (x .:? "Device")-                     <*> (x .:? "AvailabilityZone")-                     <*> (x .:? "Name")-                     <*> (x .:? "RaidArrayId")-                     <*> (x .:? "VolumeId")-                     <*> (x .:? "Region")-                     <*> (x .:? "VolumeType")-                     <*> (x .:? "Ec2VolumeId")-                     <*> (x .:? "MountPoint"))--instance Hashable Volume--instance NFData Volume---- | Describes an Amazon EBS volume configuration.------ /See:/ 'volumeConfiguration' smart constructor.-data VolumeConfiguration = VolumeConfiguration'-    { _vcIOPS          :: !(Maybe Int)-    , _vcRAIdLevel     :: !(Maybe Int)-    , _vcVolumeType    :: !(Maybe Text)-    , _vcMountPoint    :: !Text-    , _vcNumberOfDisks :: !Int-    , _vcSize          :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'VolumeConfiguration' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vcIOPS'------ * 'vcRAIdLevel'------ * 'vcVolumeType'------ * 'vcMountPoint'------ * 'vcNumberOfDisks'------ * 'vcSize'-volumeConfiguration-    :: Text -- ^ 'vcMountPoint'-    -> Int -- ^ 'vcNumberOfDisks'-    -> Int -- ^ 'vcSize'-    -> VolumeConfiguration-volumeConfiguration pMountPoint_ pNumberOfDisks_ pSize_ =-    VolumeConfiguration'-    { _vcIOPS = Nothing-    , _vcRAIdLevel = Nothing-    , _vcVolumeType = Nothing-    , _vcMountPoint = pMountPoint_-    , _vcNumberOfDisks = pNumberOfDisks_-    , _vcSize = pSize_-    }---- | For PIOPS volumes, the IOPS per disk.-vcIOPS :: Lens' VolumeConfiguration (Maybe Int)-vcIOPS = lens _vcIOPS (\ s a -> s{_vcIOPS = a});---- | The volume <http://en.wikipedia.org/wiki/Standard_RAID_levels RAID level>.-vcRAIdLevel :: Lens' VolumeConfiguration (Maybe Int)-vcRAIdLevel = lens _vcRAIdLevel (\ s a -> s{_vcRAIdLevel = a});---- | The volume type:------ -   'standard' - Magnetic------ -   'io1' - Provisioned IOPS (SSD)------ -   'gp2' - General Purpose (SSD)----vcVolumeType :: Lens' VolumeConfiguration (Maybe Text)-vcVolumeType = lens _vcVolumeType (\ s a -> s{_vcVolumeType = a});---- | The volume mount point. For example \"\/dev\/sdh\".-vcMountPoint :: Lens' VolumeConfiguration Text-vcMountPoint = lens _vcMountPoint (\ s a -> s{_vcMountPoint = a});---- | The number of disks in the volume.-vcNumberOfDisks :: Lens' VolumeConfiguration Int-vcNumberOfDisks = lens _vcNumberOfDisks (\ s a -> s{_vcNumberOfDisks = a});---- | The volume size.-vcSize :: Lens' VolumeConfiguration Int-vcSize = lens _vcSize (\ s a -> s{_vcSize = a});--instance FromJSON VolumeConfiguration where-        parseJSON-          = withObject "VolumeConfiguration"-              (\ x ->-                 VolumeConfiguration' <$>-                   (x .:? "Iops") <*> (x .:? "RaidLevel") <*>-                     (x .:? "VolumeType")-                     <*> (x .: "MountPoint")-                     <*> (x .: "NumberOfDisks")-                     <*> (x .: "Size"))--instance Hashable VolumeConfiguration--instance NFData VolumeConfiguration--instance ToJSON VolumeConfiguration where-        toJSON VolumeConfiguration'{..}-          = object-              (catMaybes-                 [("Iops" .=) <$> _vcIOPS,-                  ("RaidLevel" .=) <$> _vcRAIdLevel,-                  ("VolumeType" .=) <$> _vcVolumeType,-                  Just ("MountPoint" .= _vcMountPoint),-                  Just ("NumberOfDisks" .= _vcNumberOfDisks),-                  Just ("Size" .= _vcSize)])---- | Describes a time-based instance\'s auto scaling schedule. The schedule consists of a set of key-value pairs.------ -   The key is the time period (a UTC hour) and must be an integer from 0 - 23.------ -   The value indicates whether the instance should be online or offline for the specified period, and must be set to \"on\" or \"off\"------ The default setting for all time periods is off, so you use the following parameters primarily to specify the online periods. You don\'t have to explicitly specify offline periods unless you want to change an online period to an offline period.------ The following example specifies that the instance should be online for four hours, from UTC 1200 - 1600. It will be off for the remainder of the day.------ ' { \"12\":\"on\", \"13\":\"on\", \"14\":\"on\", \"15\":\"on\" } '------ /See:/ 'weeklyAutoScalingSchedule' smart constructor.-data WeeklyAutoScalingSchedule = WeeklyAutoScalingSchedule'-    { _wassThursday  :: !(Maybe (Map Text Text))-    , _wassWednesday :: !(Maybe (Map Text Text))-    , _wassSaturday  :: !(Maybe (Map Text Text))-    , _wassMonday    :: !(Maybe (Map Text Text))-    , _wassFriday    :: !(Maybe (Map Text Text))-    , _wassSunday    :: !(Maybe (Map Text Text))-    , _wassTuesday   :: !(Maybe (Map Text Text))-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'WeeklyAutoScalingSchedule' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wassThursday'------ * 'wassWednesday'------ * 'wassSaturday'------ * 'wassMonday'------ * 'wassFriday'------ * 'wassSunday'------ * 'wassTuesday'+--+--+-- /See:/ 'agentVersion' smart constructor.+data AgentVersion = AgentVersion'+    { _avVersion              :: !(Maybe Text)+    , _avConfigurationManager :: !(Maybe StackConfigurationManager)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AgentVersion' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'avVersion' - The agent version.+--+-- * 'avConfigurationManager' - The configuration manager.+agentVersion+    :: AgentVersion+agentVersion =+    AgentVersion'+    { _avVersion = Nothing+    , _avConfigurationManager = Nothing+    }++-- | The agent version.+avVersion :: Lens' AgentVersion (Maybe Text)+avVersion = lens _avVersion (\ s a -> s{_avVersion = a});++-- | The configuration manager.+avConfigurationManager :: Lens' AgentVersion (Maybe StackConfigurationManager)+avConfigurationManager = lens _avConfigurationManager (\ s a -> s{_avConfigurationManager = a});++instance FromJSON AgentVersion where+        parseJSON+          = withObject "AgentVersion"+              (\ x ->+                 AgentVersion' <$>+                   (x .:? "Version") <*> (x .:? "ConfigurationManager"))++instance Hashable AgentVersion++instance NFData AgentVersion++-- | A description of the app.+--+--+--+-- /See:/ 'app' smart constructor.+data App = App'+    { _appSSLConfiguration :: !(Maybe SSLConfiguration)+    , _appEnvironment      :: !(Maybe [EnvironmentVariable])+    , _appEnableSSL        :: !(Maybe Bool)+    , _appCreatedAt        :: !(Maybe Text)+    , _appShortname        :: !(Maybe Text)+    , _appDataSources      :: !(Maybe [DataSource])+    , _appAppSource        :: !(Maybe Source)+    , _appAppId            :: !(Maybe Text)+    , _appAttributes       :: !(Maybe (Map AppAttributesKeys Text))+    , _appName             :: !(Maybe Text)+    , _appType             :: !(Maybe AppType)+    , _appStackId          :: !(Maybe Text)+    , _appDomains          :: !(Maybe [Text])+    , _appDescription      :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'App' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'appSSLConfiguration' - An @SslConfiguration@ object with the SSL configuration.+--+-- * 'appEnvironment' - 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 instances. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workingapps-creating.html#workingapps-creating-environment Environment Variables> .+--+-- * 'appEnableSSL' - Whether to enable SSL for the app.+--+-- * 'appCreatedAt' - When the app was created.+--+-- * 'appShortname' - The app's short name.+--+-- * 'appDataSources' - The app's data sources.+--+-- * 'appAppSource' - A @Source@ object that describes the app repository.+--+-- * 'appAppId' - The app ID.+--+-- * 'appAttributes' - The stack attributes.+--+-- * 'appName' - The app name.+--+-- * 'appType' - The app type.+--+-- * 'appStackId' - The app stack ID.+--+-- * 'appDomains' - The app vhost settings with multiple domains separated by commas. For example: @'www.example.com, example.com'@+--+-- * 'appDescription' - A description of the app.+app+    :: App+app =+    App'+    { _appSSLConfiguration = Nothing+    , _appEnvironment = Nothing+    , _appEnableSSL = Nothing+    , _appCreatedAt = Nothing+    , _appShortname = Nothing+    , _appDataSources = Nothing+    , _appAppSource = Nothing+    , _appAppId = Nothing+    , _appAttributes = Nothing+    , _appName = Nothing+    , _appType = Nothing+    , _appStackId = Nothing+    , _appDomains = Nothing+    , _appDescription = Nothing+    }++-- | An @SslConfiguration@ object with the SSL configuration.+appSSLConfiguration :: Lens' App (Maybe SSLConfiguration)+appSSLConfiguration = lens _appSSLConfiguration (\ s a -> s{_appSSLConfiguration = 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 instances. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workingapps-creating.html#workingapps-creating-environment Environment Variables> .+appEnvironment :: Lens' App [EnvironmentVariable]+appEnvironment = lens _appEnvironment (\ s a -> s{_appEnvironment = a}) . _Default . _Coerce;++-- | Whether to enable SSL for the app.+appEnableSSL :: Lens' App (Maybe Bool)+appEnableSSL = lens _appEnableSSL (\ s a -> s{_appEnableSSL = a});++-- | When the app was created.+appCreatedAt :: Lens' App (Maybe Text)+appCreatedAt = lens _appCreatedAt (\ s a -> s{_appCreatedAt = a});++-- | The app's short name.+appShortname :: Lens' App (Maybe Text)+appShortname = lens _appShortname (\ s a -> s{_appShortname = a});++-- | The app's data sources.+appDataSources :: Lens' App [DataSource]+appDataSources = lens _appDataSources (\ s a -> s{_appDataSources = a}) . _Default . _Coerce;++-- | A @Source@ object that describes the app repository.+appAppSource :: Lens' App (Maybe Source)+appAppSource = lens _appAppSource (\ s a -> s{_appAppSource = a});++-- | The app ID.+appAppId :: Lens' App (Maybe Text)+appAppId = lens _appAppId (\ s a -> s{_appAppId = a});++-- | The stack attributes.+appAttributes :: Lens' App (HashMap AppAttributesKeys Text)+appAttributes = lens _appAttributes (\ s a -> s{_appAttributes = a}) . _Default . _Map;++-- | The app name.+appName :: Lens' App (Maybe Text)+appName = lens _appName (\ s a -> s{_appName = a});++-- | The app type.+appType :: Lens' App (Maybe AppType)+appType = lens _appType (\ s a -> s{_appType = a});++-- | The app stack ID.+appStackId :: Lens' App (Maybe Text)+appStackId = lens _appStackId (\ s a -> s{_appStackId = a});++-- | The app vhost settings with multiple domains separated by commas. For example: @'www.example.com, example.com'@+appDomains :: Lens' App [Text]+appDomains = lens _appDomains (\ s a -> s{_appDomains = a}) . _Default . _Coerce;++-- | A description of the app.+appDescription :: Lens' App (Maybe Text)+appDescription = lens _appDescription (\ s a -> s{_appDescription = a});++instance FromJSON App where+        parseJSON+          = withObject "App"+              (\ x ->+                 App' <$>+                   (x .:? "SslConfiguration") <*>+                     (x .:? "Environment" .!= mempty)+                     <*> (x .:? "EnableSsl")+                     <*> (x .:? "CreatedAt")+                     <*> (x .:? "Shortname")+                     <*> (x .:? "DataSources" .!= mempty)+                     <*> (x .:? "AppSource")+                     <*> (x .:? "AppId")+                     <*> (x .:? "Attributes" .!= mempty)+                     <*> (x .:? "Name")+                     <*> (x .:? "Type")+                     <*> (x .:? "StackId")+                     <*> (x .:? "Domains" .!= mempty)+                     <*> (x .:? "Description"))++instance Hashable App++instance NFData App++-- | Describes a load-based auto scaling upscaling or downscaling threshold configuration, which specifies when AWS OpsWorks starts or stops load-based instances.+--+--+--+-- /See:/ 'autoScalingThresholds' smart constructor.+data AutoScalingThresholds = AutoScalingThresholds'+    { _astInstanceCount      :: !(Maybe Int)+    , _astIgnoreMetricsTime  :: !(Maybe Nat)+    , _astLoadThreshold      :: !(Maybe Double)+    , _astThresholdsWaitTime :: !(Maybe Nat)+    , _astAlarms             :: !(Maybe [Text])+    , _astMemoryThreshold    :: !(Maybe Double)+    , _astCPUThreshold       :: !(Maybe Double)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AutoScalingThresholds' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'astInstanceCount' - The number of instances to add or remove when the load exceeds a threshold.+--+-- * 'astIgnoreMetricsTime' - The amount of time (in minutes) after a scaling event occurs that AWS OpsWorks should ignore metrics and suppress additional scaling events. For example, AWS OpsWorks adds new instances following an upscaling event but the instances won't start reducing the load until they have been booted and configured. There is no point in raising additional scaling events during that operation, which typically takes several minutes. @IgnoreMetricsTime@ allows you to direct AWS OpsWorks to suppress scaling events long enough to get the new instances online.+--+-- * 'astLoadThreshold' - The load threshold. A value of -1 disables the threshold. For more information about how load is computed, see <http://en.wikipedia.org/wiki/Load_%28computing%29 Load (computing)> .+--+-- * 'astThresholdsWaitTime' - The amount of time, in minutes, that the load must exceed a threshold before more instances are added or removed.+--+-- * 'astAlarms' - Custom Cloudwatch auto scaling alarms, to be used as thresholds. This parameter takes a list of up to five alarm names, which are case sensitive and must be in the same region as the stack.+--+-- * 'astMemoryThreshold' - The memory utilization threshold, as a percent of the available memory. A value of -1 disables the threshold.+--+-- * 'astCPUThreshold' - The CPU utilization threshold, as a percent of the available CPU. A value of -1 disables the threshold.+autoScalingThresholds+    :: AutoScalingThresholds+autoScalingThresholds =+    AutoScalingThresholds'+    { _astInstanceCount = Nothing+    , _astIgnoreMetricsTime = Nothing+    , _astLoadThreshold = Nothing+    , _astThresholdsWaitTime = Nothing+    , _astAlarms = Nothing+    , _astMemoryThreshold = Nothing+    , _astCPUThreshold = Nothing+    }++-- | The number of instances to add or remove when the load exceeds a threshold.+astInstanceCount :: Lens' AutoScalingThresholds (Maybe Int)+astInstanceCount = lens _astInstanceCount (\ s a -> s{_astInstanceCount = a});++-- | The amount of time (in minutes) after a scaling event occurs that AWS OpsWorks should ignore metrics and suppress additional scaling events. For example, AWS OpsWorks adds new instances following an upscaling event but the instances won't start reducing the load until they have been booted and configured. There is no point in raising additional scaling events during that operation, which typically takes several minutes. @IgnoreMetricsTime@ allows you to direct AWS OpsWorks to suppress scaling events long enough to get the new instances online.+astIgnoreMetricsTime :: Lens' AutoScalingThresholds (Maybe Natural)+astIgnoreMetricsTime = lens _astIgnoreMetricsTime (\ s a -> s{_astIgnoreMetricsTime = a}) . mapping _Nat;++-- | The load threshold. A value of -1 disables the threshold. For more information about how load is computed, see <http://en.wikipedia.org/wiki/Load_%28computing%29 Load (computing)> .+astLoadThreshold :: Lens' AutoScalingThresholds (Maybe Double)+astLoadThreshold = lens _astLoadThreshold (\ s a -> s{_astLoadThreshold = a});++-- | The amount of time, in minutes, that the load must exceed a threshold before more instances are added or removed.+astThresholdsWaitTime :: Lens' AutoScalingThresholds (Maybe Natural)+astThresholdsWaitTime = lens _astThresholdsWaitTime (\ s a -> s{_astThresholdsWaitTime = a}) . mapping _Nat;++-- | Custom Cloudwatch auto scaling alarms, to be used as thresholds. This parameter takes a list of up to five alarm names, which are case sensitive and must be in the same region as the stack.+astAlarms :: Lens' AutoScalingThresholds [Text]+astAlarms = lens _astAlarms (\ s a -> s{_astAlarms = a}) . _Default . _Coerce;++-- | The memory utilization threshold, as a percent of the available memory. A value of -1 disables the threshold.+astMemoryThreshold :: Lens' AutoScalingThresholds (Maybe Double)+astMemoryThreshold = lens _astMemoryThreshold (\ s a -> s{_astMemoryThreshold = a});++-- | The CPU utilization threshold, as a percent of the available CPU. A value of -1 disables the threshold.+astCPUThreshold :: Lens' AutoScalingThresholds (Maybe Double)+astCPUThreshold = lens _astCPUThreshold (\ s a -> s{_astCPUThreshold = a});++instance FromJSON AutoScalingThresholds where+        parseJSON+          = withObject "AutoScalingThresholds"+              (\ x ->+                 AutoScalingThresholds' <$>+                   (x .:? "InstanceCount") <*>+                     (x .:? "IgnoreMetricsTime")+                     <*> (x .:? "LoadThreshold")+                     <*> (x .:? "ThresholdsWaitTime")+                     <*> (x .:? "Alarms" .!= mempty)+                     <*> (x .:? "MemoryThreshold")+                     <*> (x .:? "CpuThreshold"))++instance Hashable AutoScalingThresholds++instance NFData AutoScalingThresholds++instance ToJSON AutoScalingThresholds where+        toJSON AutoScalingThresholds'{..}+          = object+              (catMaybes+                 [("InstanceCount" .=) <$> _astInstanceCount,+                  ("IgnoreMetricsTime" .=) <$> _astIgnoreMetricsTime,+                  ("LoadThreshold" .=) <$> _astLoadThreshold,+                  ("ThresholdsWaitTime" .=) <$> _astThresholdsWaitTime,+                  ("Alarms" .=) <$> _astAlarms,+                  ("MemoryThreshold" .=) <$> _astMemoryThreshold,+                  ("CpuThreshold" .=) <$> _astCPUThreshold])++-- | Describes a block device mapping. This data type maps directly to the Amazon EC2 <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/API_BlockDeviceMapping.html BlockDeviceMapping> data type.+--+--+--+-- /See:/ 'blockDeviceMapping' smart constructor.+data BlockDeviceMapping = BlockDeviceMapping'+    { _bdmVirtualName :: !(Maybe Text)+    , _bdmNoDevice    :: !(Maybe Text)+    , _bdmEBS         :: !(Maybe EBSBlockDevice)+    , _bdmDeviceName  :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'BlockDeviceMapping' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'bdmVirtualName' - The virtual device name. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/API_BlockDeviceMapping.html BlockDeviceMapping> .+--+-- * 'bdmNoDevice' - Suppresses the specified device included in the AMI's block device mapping.+--+-- * 'bdmEBS' - An @EBSBlockDevice@ that defines how to configure an Amazon EBS volume when the instance is launched.+--+-- * 'bdmDeviceName' - The device name that is exposed to the instance, such as @/dev/sdh@ . For the root device, you can use the explicit device name or you can set this parameter to @ROOT_DEVICE@ and AWS OpsWorks will provide the correct device name.+blockDeviceMapping+    :: BlockDeviceMapping+blockDeviceMapping =+    BlockDeviceMapping'+    { _bdmVirtualName = Nothing+    , _bdmNoDevice = Nothing+    , _bdmEBS = Nothing+    , _bdmDeviceName = Nothing+    }++-- | The virtual device name. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/API_BlockDeviceMapping.html BlockDeviceMapping> .+bdmVirtualName :: Lens' BlockDeviceMapping (Maybe Text)+bdmVirtualName = lens _bdmVirtualName (\ s a -> s{_bdmVirtualName = a});++-- | Suppresses the specified device included in the AMI's block device mapping.+bdmNoDevice :: Lens' BlockDeviceMapping (Maybe Text)+bdmNoDevice = lens _bdmNoDevice (\ s a -> s{_bdmNoDevice = a});++-- | An @EBSBlockDevice@ that defines how to configure an Amazon EBS volume when the instance is launched.+bdmEBS :: Lens' BlockDeviceMapping (Maybe EBSBlockDevice)+bdmEBS = lens _bdmEBS (\ s a -> s{_bdmEBS = a});++-- | The device name that is exposed to the instance, such as @/dev/sdh@ . For the root device, you can use the explicit device name or you can set this parameter to @ROOT_DEVICE@ and AWS OpsWorks will provide the correct device name.+bdmDeviceName :: Lens' BlockDeviceMapping (Maybe Text)+bdmDeviceName = lens _bdmDeviceName (\ s a -> s{_bdmDeviceName = a});++instance FromJSON BlockDeviceMapping where+        parseJSON+          = withObject "BlockDeviceMapping"+              (\ x ->+                 BlockDeviceMapping' <$>+                   (x .:? "VirtualName") <*> (x .:? "NoDevice") <*>+                     (x .:? "Ebs")+                     <*> (x .:? "DeviceName"))++instance Hashable BlockDeviceMapping++instance NFData BlockDeviceMapping++instance ToJSON BlockDeviceMapping where+        toJSON BlockDeviceMapping'{..}+          = object+              (catMaybes+                 [("VirtualName" .=) <$> _bdmVirtualName,+                  ("NoDevice" .=) <$> _bdmNoDevice,+                  ("Ebs" .=) <$> _bdmEBS,+                  ("DeviceName" .=) <$> _bdmDeviceName])++-- | Describes the Chef configuration.+--+--+--+-- /See:/ 'chefConfiguration' smart constructor.+data ChefConfiguration = ChefConfiguration'+    { _ccBerkshelfVersion :: !(Maybe Text)+    , _ccManageBerkshelf  :: !(Maybe Bool)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ChefConfiguration' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ccBerkshelfVersion' - The Berkshelf version.+--+-- * 'ccManageBerkshelf' - Whether to enable Berkshelf.+chefConfiguration+    :: ChefConfiguration+chefConfiguration =+    ChefConfiguration'+    { _ccBerkshelfVersion = Nothing+    , _ccManageBerkshelf = Nothing+    }++-- | The Berkshelf version.+ccBerkshelfVersion :: Lens' ChefConfiguration (Maybe Text)+ccBerkshelfVersion = lens _ccBerkshelfVersion (\ s a -> s{_ccBerkshelfVersion = a});++-- | Whether to enable Berkshelf.+ccManageBerkshelf :: Lens' ChefConfiguration (Maybe Bool)+ccManageBerkshelf = lens _ccManageBerkshelf (\ s a -> s{_ccManageBerkshelf = a});++instance FromJSON ChefConfiguration where+        parseJSON+          = withObject "ChefConfiguration"+              (\ x ->+                 ChefConfiguration' <$>+                   (x .:? "BerkshelfVersion") <*>+                     (x .:? "ManageBerkshelf"))++instance Hashable ChefConfiguration++instance NFData ChefConfiguration++instance ToJSON ChefConfiguration where+        toJSON ChefConfiguration'{..}+          = object+              (catMaybes+                 [("BerkshelfVersion" .=) <$> _ccBerkshelfVersion,+                  ("ManageBerkshelf" .=) <$> _ccManageBerkshelf])++-- | Describes a command.+--+--+--+-- /See:/ 'command' smart constructor.+data Command = Command'+    { _cDeploymentId   :: !(Maybe Text)+    , _cInstanceId     :: !(Maybe Text)+    , _cStatus         :: !(Maybe Text)+    , _cLogURL         :: !(Maybe Text)+    , _cCreatedAt      :: !(Maybe Text)+    , _cCommandId      :: !(Maybe Text)+    , _cExitCode       :: !(Maybe Int)+    , _cType           :: !(Maybe Text)+    , _cCompletedAt    :: !(Maybe Text)+    , _cAcknowledgedAt :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'Command' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cDeploymentId' - The command deployment ID.+--+-- * 'cInstanceId' - The ID of the instance where the command was executed.+--+-- * 'cStatus' - The command status:     * failed     * successful     * skipped     * pending+--+-- * 'cLogURL' - The URL of the command log.+--+-- * 'cCreatedAt' - Date and time when the command was run.+--+-- * 'cCommandId' - The command ID.+--+-- * 'cExitCode' - The command exit code.+--+-- * 'cType' - The command type:     * @deploy@      * @rollback@      * @start@      * @stop@      * @restart@      * @undeploy@      * @update_dependencies@      * @install_dependencies@      * @update_custom_cookbooks@      * @execute_recipes@+--+-- * 'cCompletedAt' - Date when the command completed.+--+-- * 'cAcknowledgedAt' - Date and time when the command was acknowledged.+command+    :: Command+command =+    Command'+    { _cDeploymentId = Nothing+    , _cInstanceId = Nothing+    , _cStatus = Nothing+    , _cLogURL = Nothing+    , _cCreatedAt = Nothing+    , _cCommandId = Nothing+    , _cExitCode = Nothing+    , _cType = Nothing+    , _cCompletedAt = Nothing+    , _cAcknowledgedAt = Nothing+    }++-- | The command deployment ID.+cDeploymentId :: Lens' Command (Maybe Text)+cDeploymentId = lens _cDeploymentId (\ s a -> s{_cDeploymentId = a});++-- | The ID of the instance where the command was executed.+cInstanceId :: Lens' Command (Maybe Text)+cInstanceId = lens _cInstanceId (\ s a -> s{_cInstanceId = a});++-- | The command status:     * failed     * successful     * skipped     * pending+cStatus :: Lens' Command (Maybe Text)+cStatus = lens _cStatus (\ s a -> s{_cStatus = a});++-- | The URL of the command log.+cLogURL :: Lens' Command (Maybe Text)+cLogURL = lens _cLogURL (\ s a -> s{_cLogURL = a});++-- | Date and time when the command was run.+cCreatedAt :: Lens' Command (Maybe Text)+cCreatedAt = lens _cCreatedAt (\ s a -> s{_cCreatedAt = a});++-- | The command ID.+cCommandId :: Lens' Command (Maybe Text)+cCommandId = lens _cCommandId (\ s a -> s{_cCommandId = a});++-- | The command exit code.+cExitCode :: Lens' Command (Maybe Int)+cExitCode = lens _cExitCode (\ s a -> s{_cExitCode = a});++-- | The command type:     * @deploy@      * @rollback@      * @start@      * @stop@      * @restart@      * @undeploy@      * @update_dependencies@      * @install_dependencies@      * @update_custom_cookbooks@      * @execute_recipes@+cType :: Lens' Command (Maybe Text)+cType = lens _cType (\ s a -> s{_cType = a});++-- | Date when the command completed.+cCompletedAt :: Lens' Command (Maybe Text)+cCompletedAt = lens _cCompletedAt (\ s a -> s{_cCompletedAt = a});++-- | Date and time when the command was acknowledged.+cAcknowledgedAt :: Lens' Command (Maybe Text)+cAcknowledgedAt = lens _cAcknowledgedAt (\ s a -> s{_cAcknowledgedAt = a});++instance FromJSON Command where+        parseJSON+          = withObject "Command"+              (\ x ->+                 Command' <$>+                   (x .:? "DeploymentId") <*> (x .:? "InstanceId") <*>+                     (x .:? "Status")+                     <*> (x .:? "LogUrl")+                     <*> (x .:? "CreatedAt")+                     <*> (x .:? "CommandId")+                     <*> (x .:? "ExitCode")+                     <*> (x .:? "Type")+                     <*> (x .:? "CompletedAt")+                     <*> (x .:? "AcknowledgedAt"))++instance Hashable Command++instance NFData Command++-- | Describes an app's data source.+--+--+--+-- /See:/ 'dataSource' smart constructor.+data DataSource = DataSource'+    { _dsARN          :: !(Maybe Text)+    , _dsDatabaseName :: !(Maybe Text)+    , _dsType         :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DataSource' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dsARN' - The data source's ARN.+--+-- * 'dsDatabaseName' - The database name.+--+-- * 'dsType' - The data source's type, @AutoSelectOpsworksMysqlInstance@ , @OpsworksMysqlInstance@ , or @RdsDbInstance@ .+dataSource+    :: DataSource+dataSource =+    DataSource'+    { _dsARN = Nothing+    , _dsDatabaseName = Nothing+    , _dsType = Nothing+    }++-- | The data source's ARN.+dsARN :: Lens' DataSource (Maybe Text)+dsARN = lens _dsARN (\ s a -> s{_dsARN = a});++-- | The database name.+dsDatabaseName :: Lens' DataSource (Maybe Text)+dsDatabaseName = lens _dsDatabaseName (\ s a -> s{_dsDatabaseName = a});++-- | The data source's type, @AutoSelectOpsworksMysqlInstance@ , @OpsworksMysqlInstance@ , or @RdsDbInstance@ .+dsType :: Lens' DataSource (Maybe Text)+dsType = lens _dsType (\ s a -> s{_dsType = a});++instance FromJSON DataSource where+        parseJSON+          = withObject "DataSource"+              (\ x ->+                 DataSource' <$>+                   (x .:? "Arn") <*> (x .:? "DatabaseName") <*>+                     (x .:? "Type"))++instance Hashable DataSource++instance NFData DataSource++instance ToJSON DataSource where+        toJSON DataSource'{..}+          = object+              (catMaybes+                 [("Arn" .=) <$> _dsARN,+                  ("DatabaseName" .=) <$> _dsDatabaseName,+                  ("Type" .=) <$> _dsType])++-- | Describes a deployment of a stack or app.+--+--+--+-- /See:/ 'deployment' smart constructor.+data Deployment = Deployment'+    { _dDeploymentId :: !(Maybe Text)+    , _dStatus       :: !(Maybe Text)+    , _dCommand      :: !(Maybe DeploymentCommand)+    , _dCreatedAt    :: !(Maybe Text)+    , _dCustomJSON   :: !(Maybe Text)+    , _dIAMUserARN   :: !(Maybe Text)+    , _dAppId        :: !(Maybe Text)+    , _dInstanceIds  :: !(Maybe [Text])+    , _dCompletedAt  :: !(Maybe Text)+    , _dStackId      :: !(Maybe Text)+    , _dComment      :: !(Maybe Text)+    , _dDuration     :: !(Maybe Int)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'Deployment' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dDeploymentId' - The deployment ID.+--+-- * 'dStatus' - The deployment status:     * running     * successful     * failed+--+-- * 'dCommand' - Undocumented member.+--+-- * 'dCreatedAt' - Date when the deployment was created.+--+-- * 'dCustomJSON' - A string that contains user-defined custom JSON. It can be used to override the corresponding default stack configuration attribute values for stack or to pass data to recipes. The string should be in the following format: @"{\"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> .+--+-- * 'dIAMUserARN' - The user's IAM ARN.+--+-- * 'dAppId' - The app ID.+--+-- * 'dInstanceIds' - The IDs of the target instances.+--+-- * 'dCompletedAt' - Date when the deployment completed.+--+-- * 'dStackId' - The stack ID.+--+-- * 'dComment' - A user-defined comment.+--+-- * 'dDuration' - The deployment duration.+deployment+    :: Deployment+deployment =+    Deployment'+    { _dDeploymentId = Nothing+    , _dStatus = Nothing+    , _dCommand = Nothing+    , _dCreatedAt = Nothing+    , _dCustomJSON = Nothing+    , _dIAMUserARN = Nothing+    , _dAppId = Nothing+    , _dInstanceIds = Nothing+    , _dCompletedAt = Nothing+    , _dStackId = Nothing+    , _dComment = Nothing+    , _dDuration = Nothing+    }++-- | The deployment ID.+dDeploymentId :: Lens' Deployment (Maybe Text)+dDeploymentId = lens _dDeploymentId (\ s a -> s{_dDeploymentId = a});++-- | The deployment status:     * running     * successful     * failed+dStatus :: Lens' Deployment (Maybe Text)+dStatus = lens _dStatus (\ s a -> s{_dStatus = a});++-- | Undocumented member.+dCommand :: Lens' Deployment (Maybe DeploymentCommand)+dCommand = lens _dCommand (\ s a -> s{_dCommand = a});++-- | Date when the deployment was created.+dCreatedAt :: Lens' Deployment (Maybe Text)+dCreatedAt = lens _dCreatedAt (\ s a -> s{_dCreatedAt = a});++-- | A string that contains user-defined custom JSON. It can be used to override the corresponding default stack configuration attribute values for stack or to pass data to recipes. The string should be in the following format: @"{\"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> .+dCustomJSON :: Lens' Deployment (Maybe Text)+dCustomJSON = lens _dCustomJSON (\ s a -> s{_dCustomJSON = a});++-- | The user's IAM ARN.+dIAMUserARN :: Lens' Deployment (Maybe Text)+dIAMUserARN = lens _dIAMUserARN (\ s a -> s{_dIAMUserARN = a});++-- | The app ID.+dAppId :: Lens' Deployment (Maybe Text)+dAppId = lens _dAppId (\ s a -> s{_dAppId = a});++-- | The IDs of the target instances.+dInstanceIds :: Lens' Deployment [Text]+dInstanceIds = lens _dInstanceIds (\ s a -> s{_dInstanceIds = a}) . _Default . _Coerce;++-- | Date when the deployment completed.+dCompletedAt :: Lens' Deployment (Maybe Text)+dCompletedAt = lens _dCompletedAt (\ s a -> s{_dCompletedAt = a});++-- | The stack ID.+dStackId :: Lens' Deployment (Maybe Text)+dStackId = lens _dStackId (\ s a -> s{_dStackId = a});++-- | A user-defined comment.+dComment :: Lens' Deployment (Maybe Text)+dComment = lens _dComment (\ s a -> s{_dComment = a});++-- | The deployment duration.+dDuration :: Lens' Deployment (Maybe Int)+dDuration = lens _dDuration (\ s a -> s{_dDuration = a});++instance FromJSON Deployment where+        parseJSON+          = withObject "Deployment"+              (\ x ->+                 Deployment' <$>+                   (x .:? "DeploymentId") <*> (x .:? "Status") <*>+                     (x .:? "Command")+                     <*> (x .:? "CreatedAt")+                     <*> (x .:? "CustomJson")+                     <*> (x .:? "IamUserArn")+                     <*> (x .:? "AppId")+                     <*> (x .:? "InstanceIds" .!= mempty)+                     <*> (x .:? "CompletedAt")+                     <*> (x .:? "StackId")+                     <*> (x .:? "Comment")+                     <*> (x .:? "Duration"))++instance Hashable Deployment++instance NFData Deployment++-- | Used to specify a stack or deployment command.+--+--+--+-- /See:/ 'deploymentCommand' smart constructor.+data DeploymentCommand = DeploymentCommand'+    { _dcArgs :: !(Maybe (Map Text [Text]))+    , _dcName :: !DeploymentCommandName+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeploymentCommand' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dcArgs' - The arguments of those commands that take arguments. It should be set to a JSON object with the following format: @{"arg_name1" : ["value1", "value2", ...], "arg_name2" : ["value1", "value2", ...], ...}@  The @update_dependencies@ command takes two arguments:     * @upgrade_os_to@ - Specifies the desired Amazon Linux version for instances whose OS you want to upgrade, such as @Amazon Linux 2014.09@ . You must also set the @allow_reboot@ argument to true.     * @allow_reboot@ - Specifies whether to allow AWS OpsWorks to reboot the instances if necessary, after installing the updates. This argument can be set to either @true@ or @false@ . The default value is @false@ . For example, to upgrade an instance to Amazon Linux 2014.09, set @Args@ to the following. @{ "upgrade_os_to":["Amazon Linux 2014.09"], "allow_reboot":["true"] } @+--+-- * 'dcName' - Specifies the operation. You can specify only one command. For stacks, the following commands are available:     * @execute_recipes@ : Execute one or more recipes. To specify the recipes, set an @Args@ parameter named @recipes@ to the list of recipes to be executed. For example, to execute @phpapp::appsetup@ , set @Args@ to @{"recipes":["phpapp::appsetup"]}@ .     * @install_dependencies@ : Install the stack's dependencies.     * @update_custom_cookbooks@ : Update the stack's custom cookbooks.     * @update_dependencies@ : Update the stack's dependencies. For apps, the following commands are available:     * @deploy@ : Deploy an app. Ruby on Rails apps have an optional @Args@ parameter named @migrate@ . Set @Args@ to {"migrate":["true"]} to migrate the database. The default setting is {"migrate":["false"]}.     * @rollback@ Roll the app back to the previous version. When you update an app, AWS OpsWorks stores the previous version, up to a maximum of five versions. You can use this command to roll an app back as many as four versions.     * @start@ : Start the app's web or application server.     * @stop@ : Stop the app's web or application server.     * @restart@ : Restart the app's web or application server.     * @undeploy@ : Undeploy the app.+deploymentCommand+    :: DeploymentCommandName -- ^ 'dcName'+    -> DeploymentCommand+deploymentCommand pName_ =+    DeploymentCommand'+    { _dcArgs = Nothing+    , _dcName = pName_+    }++-- | The arguments of those commands that take arguments. It should be set to a JSON object with the following format: @{"arg_name1" : ["value1", "value2", ...], "arg_name2" : ["value1", "value2", ...], ...}@  The @update_dependencies@ command takes two arguments:     * @upgrade_os_to@ - Specifies the desired Amazon Linux version for instances whose OS you want to upgrade, such as @Amazon Linux 2014.09@ . You must also set the @allow_reboot@ argument to true.     * @allow_reboot@ - Specifies whether to allow AWS OpsWorks to reboot the instances if necessary, after installing the updates. This argument can be set to either @true@ or @false@ . The default value is @false@ . For example, to upgrade an instance to Amazon Linux 2014.09, set @Args@ to the following. @{ "upgrade_os_to":["Amazon Linux 2014.09"], "allow_reboot":["true"] } @+dcArgs :: Lens' DeploymentCommand (HashMap Text [Text])+dcArgs = lens _dcArgs (\ s a -> s{_dcArgs = a}) . _Default . _Map;++-- | Specifies the operation. You can specify only one command. For stacks, the following commands are available:     * @execute_recipes@ : Execute one or more recipes. To specify the recipes, set an @Args@ parameter named @recipes@ to the list of recipes to be executed. For example, to execute @phpapp::appsetup@ , set @Args@ to @{"recipes":["phpapp::appsetup"]}@ .     * @install_dependencies@ : Install the stack's dependencies.     * @update_custom_cookbooks@ : Update the stack's custom cookbooks.     * @update_dependencies@ : Update the stack's dependencies. For apps, the following commands are available:     * @deploy@ : Deploy an app. Ruby on Rails apps have an optional @Args@ parameter named @migrate@ . Set @Args@ to {"migrate":["true"]} to migrate the database. The default setting is {"migrate":["false"]}.     * @rollback@ Roll the app back to the previous version. When you update an app, AWS OpsWorks stores the previous version, up to a maximum of five versions. You can use this command to roll an app back as many as four versions.     * @start@ : Start the app's web or application server.     * @stop@ : Stop the app's web or application server.     * @restart@ : Restart the app's web or application server.     * @undeploy@ : Undeploy the app.+dcName :: Lens' DeploymentCommand DeploymentCommandName+dcName = lens _dcName (\ s a -> s{_dcName = a});++instance FromJSON DeploymentCommand where+        parseJSON+          = withObject "DeploymentCommand"+              (\ x ->+                 DeploymentCommand' <$>+                   (x .:? "Args" .!= mempty) <*> (x .: "Name"))++instance Hashable DeploymentCommand++instance NFData DeploymentCommand++instance ToJSON DeploymentCommand where+        toJSON DeploymentCommand'{..}+          = object+              (catMaybes+                 [("Args" .=) <$> _dcArgs, Just ("Name" .= _dcName)])++-- | Describes an Amazon EBS volume. This data type maps directly to the Amazon EC2 <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/API_EbsBlockDevice.html EbsBlockDevice> data type.+--+--+--+-- /See:/ 'ebsBlockDevice' smart constructor.+data EBSBlockDevice = EBSBlockDevice'+    { _ebdDeleteOnTermination :: !(Maybe Bool)+    , _ebdVolumeSize          :: !(Maybe Int)+    , _ebdIOPS                :: !(Maybe Int)+    , _ebdVolumeType          :: !(Maybe VolumeType)+    , _ebdSnapshotId          :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'EBSBlockDevice' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ebdDeleteOnTermination' - Whether the volume is deleted on instance termination.+--+-- * 'ebdVolumeSize' - The volume size, in GiB. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/API_EbsBlockDevice.html EbsBlockDevice> .+--+-- * 'ebdIOPS' - The number of I/O operations per second (IOPS) that the volume supports. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/API_EbsBlockDevice.html EbsBlockDevice> .+--+-- * 'ebdVolumeType' - The volume type. @gp2@ for General Purpose (SSD) volumes, @io1@ for Provisioned IOPS (SSD) volumes, and @standard@ for Magnetic volumes.+--+-- * 'ebdSnapshotId' - The snapshot ID.+ebsBlockDevice+    :: EBSBlockDevice+ebsBlockDevice =+    EBSBlockDevice'+    { _ebdDeleteOnTermination = Nothing+    , _ebdVolumeSize = Nothing+    , _ebdIOPS = Nothing+    , _ebdVolumeType = Nothing+    , _ebdSnapshotId = Nothing+    }++-- | Whether the volume is deleted on instance termination.+ebdDeleteOnTermination :: Lens' EBSBlockDevice (Maybe Bool)+ebdDeleteOnTermination = lens _ebdDeleteOnTermination (\ s a -> s{_ebdDeleteOnTermination = a});++-- | The volume size, in GiB. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/API_EbsBlockDevice.html EbsBlockDevice> .+ebdVolumeSize :: Lens' EBSBlockDevice (Maybe Int)+ebdVolumeSize = lens _ebdVolumeSize (\ s a -> s{_ebdVolumeSize = a});++-- | The number of I/O operations per second (IOPS) that the volume supports. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/API_EbsBlockDevice.html EbsBlockDevice> .+ebdIOPS :: Lens' EBSBlockDevice (Maybe Int)+ebdIOPS = lens _ebdIOPS (\ s a -> s{_ebdIOPS = a});++-- | The volume type. @gp2@ for General Purpose (SSD) volumes, @io1@ for Provisioned IOPS (SSD) volumes, and @standard@ for Magnetic volumes.+ebdVolumeType :: Lens' EBSBlockDevice (Maybe VolumeType)+ebdVolumeType = lens _ebdVolumeType (\ s a -> s{_ebdVolumeType = a});++-- | The snapshot ID.+ebdSnapshotId :: Lens' EBSBlockDevice (Maybe Text)+ebdSnapshotId = lens _ebdSnapshotId (\ s a -> s{_ebdSnapshotId = a});++instance FromJSON EBSBlockDevice where+        parseJSON+          = withObject "EBSBlockDevice"+              (\ x ->+                 EBSBlockDevice' <$>+                   (x .:? "DeleteOnTermination") <*>+                     (x .:? "VolumeSize")+                     <*> (x .:? "Iops")+                     <*> (x .:? "VolumeType")+                     <*> (x .:? "SnapshotId"))++instance Hashable EBSBlockDevice++instance NFData EBSBlockDevice++instance ToJSON EBSBlockDevice where+        toJSON EBSBlockDevice'{..}+          = object+              (catMaybes+                 [("DeleteOnTermination" .=) <$>+                    _ebdDeleteOnTermination,+                  ("VolumeSize" .=) <$> _ebdVolumeSize,+                  ("Iops" .=) <$> _ebdIOPS,+                  ("VolumeType" .=) <$> _ebdVolumeType,+                  ("SnapshotId" .=) <$> _ebdSnapshotId])++-- | Describes a registered Amazon ECS cluster.+--+--+--+-- /See:/ 'ecsCluster' smart constructor.+data EcsCluster = EcsCluster'+    { _ecEcsClusterARN  :: !(Maybe Text)+    , _ecEcsClusterName :: !(Maybe Text)+    , _ecRegisteredAt   :: !(Maybe Text)+    , _ecStackId        :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'EcsCluster' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ecEcsClusterARN' - The cluster's ARN.+--+-- * 'ecEcsClusterName' - The cluster name.+--+-- * 'ecRegisteredAt' - The time and date that the cluster was registered with the stack.+--+-- * 'ecStackId' - The stack ID.+ecsCluster+    :: EcsCluster+ecsCluster =+    EcsCluster'+    { _ecEcsClusterARN = Nothing+    , _ecEcsClusterName = Nothing+    , _ecRegisteredAt = Nothing+    , _ecStackId = Nothing+    }++-- | The cluster's ARN.+ecEcsClusterARN :: Lens' EcsCluster (Maybe Text)+ecEcsClusterARN = lens _ecEcsClusterARN (\ s a -> s{_ecEcsClusterARN = a});++-- | The cluster name.+ecEcsClusterName :: Lens' EcsCluster (Maybe Text)+ecEcsClusterName = lens _ecEcsClusterName (\ s a -> s{_ecEcsClusterName = a});++-- | The time and date that the cluster was registered with the stack.+ecRegisteredAt :: Lens' EcsCluster (Maybe Text)+ecRegisteredAt = lens _ecRegisteredAt (\ s a -> s{_ecRegisteredAt = a});++-- | The stack ID.+ecStackId :: Lens' EcsCluster (Maybe Text)+ecStackId = lens _ecStackId (\ s a -> s{_ecStackId = a});++instance FromJSON EcsCluster where+        parseJSON+          = withObject "EcsCluster"+              (\ x ->+                 EcsCluster' <$>+                   (x .:? "EcsClusterArn") <*> (x .:? "EcsClusterName")+                     <*> (x .:? "RegisteredAt")+                     <*> (x .:? "StackId"))++instance Hashable EcsCluster++instance NFData EcsCluster++-- | Describes an Elastic IP address.+--+--+--+-- /See:/ 'elasticIP' smart constructor.+data ElasticIP = ElasticIP'+    { _eiInstanceId :: !(Maybe Text)+    , _eiDomain     :: !(Maybe Text)+    , _eiIP         :: !(Maybe Text)+    , _eiName       :: !(Maybe Text)+    , _eiRegion     :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ElasticIP' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'eiInstanceId' - The ID of the instance that the address is attached to.+--+-- * 'eiDomain' - The domain.+--+-- * 'eiIP' - The IP address.+--+-- * 'eiName' - The name.+--+-- * 'eiRegion' - The AWS region. For more information, see <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints> .+elasticIP+    :: ElasticIP+elasticIP =+    ElasticIP'+    { _eiInstanceId = Nothing+    , _eiDomain = Nothing+    , _eiIP = Nothing+    , _eiName = Nothing+    , _eiRegion = Nothing+    }++-- | The ID of the instance that the address is attached to.+eiInstanceId :: Lens' ElasticIP (Maybe Text)+eiInstanceId = lens _eiInstanceId (\ s a -> s{_eiInstanceId = a});++-- | The domain.+eiDomain :: Lens' ElasticIP (Maybe Text)+eiDomain = lens _eiDomain (\ s a -> s{_eiDomain = a});++-- | The IP address.+eiIP :: Lens' ElasticIP (Maybe Text)+eiIP = lens _eiIP (\ s a -> s{_eiIP = a});++-- | The name.+eiName :: Lens' ElasticIP (Maybe Text)+eiName = lens _eiName (\ s a -> s{_eiName = a});++-- | The AWS region. For more information, see <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints> .+eiRegion :: Lens' ElasticIP (Maybe Text)+eiRegion = lens _eiRegion (\ s a -> s{_eiRegion = a});++instance FromJSON ElasticIP where+        parseJSON+          = withObject "ElasticIP"+              (\ x ->+                 ElasticIP' <$>+                   (x .:? "InstanceId") <*> (x .:? "Domain") <*>+                     (x .:? "Ip")+                     <*> (x .:? "Name")+                     <*> (x .:? "Region"))++instance Hashable ElasticIP++instance NFData ElasticIP++-- | Describes an Elastic Load Balancing instance.+--+--+--+-- /See:/ 'elasticLoadBalancer' smart constructor.+data ElasticLoadBalancer = ElasticLoadBalancer'+    { _elbSubnetIds               :: !(Maybe [Text])+    , _elbVPCId                   :: !(Maybe Text)+    , _elbAvailabilityZones       :: !(Maybe [Text])+    , _elbRegion                  :: !(Maybe Text)+    , _elbElasticLoadBalancerName :: !(Maybe Text)+    , _elbStackId                 :: !(Maybe Text)+    , _elbEC2InstanceIds          :: !(Maybe [Text])+    , _elbLayerId                 :: !(Maybe Text)+    , _elbDNSName                 :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ElasticLoadBalancer' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'elbSubnetIds' - A list of subnet IDs, if the stack is running in a VPC.+--+-- * 'elbVPCId' - The VPC ID.+--+-- * 'elbAvailabilityZones' - A list of Availability Zones.+--+-- * 'elbRegion' - The instance's AWS region.+--+-- * 'elbElasticLoadBalancerName' - The Elastic Load Balancing instance's name.+--+-- * 'elbStackId' - The ID of the stack that the instance is associated with.+--+-- * 'elbEC2InstanceIds' - A list of the EC2 instances that the Elastic Load Balancing instance is managing traffic for.+--+-- * 'elbLayerId' - The ID of the layer that the instance is attached to.+--+-- * 'elbDNSName' - The instance's public DNS name.+elasticLoadBalancer+    :: ElasticLoadBalancer+elasticLoadBalancer =+    ElasticLoadBalancer'+    { _elbSubnetIds = Nothing+    , _elbVPCId = Nothing+    , _elbAvailabilityZones = Nothing+    , _elbRegion = Nothing+    , _elbElasticLoadBalancerName = Nothing+    , _elbStackId = Nothing+    , _elbEC2InstanceIds = Nothing+    , _elbLayerId = Nothing+    , _elbDNSName = Nothing+    }++-- | A list of subnet IDs, if the stack is running in a VPC.+elbSubnetIds :: Lens' ElasticLoadBalancer [Text]+elbSubnetIds = lens _elbSubnetIds (\ s a -> s{_elbSubnetIds = a}) . _Default . _Coerce;++-- | The VPC ID.+elbVPCId :: Lens' ElasticLoadBalancer (Maybe Text)+elbVPCId = lens _elbVPCId (\ s a -> s{_elbVPCId = a});++-- | A list of Availability Zones.+elbAvailabilityZones :: Lens' ElasticLoadBalancer [Text]+elbAvailabilityZones = lens _elbAvailabilityZones (\ s a -> s{_elbAvailabilityZones = a}) . _Default . _Coerce;++-- | The instance's AWS region.+elbRegion :: Lens' ElasticLoadBalancer (Maybe Text)+elbRegion = lens _elbRegion (\ s a -> s{_elbRegion = a});++-- | The Elastic Load Balancing instance's name.+elbElasticLoadBalancerName :: Lens' ElasticLoadBalancer (Maybe Text)+elbElasticLoadBalancerName = lens _elbElasticLoadBalancerName (\ s a -> s{_elbElasticLoadBalancerName = a});++-- | The ID of the stack that the instance is associated with.+elbStackId :: Lens' ElasticLoadBalancer (Maybe Text)+elbStackId = lens _elbStackId (\ s a -> s{_elbStackId = a});++-- | A list of the EC2 instances that the Elastic Load Balancing instance is managing traffic for.+elbEC2InstanceIds :: Lens' ElasticLoadBalancer [Text]+elbEC2InstanceIds = lens _elbEC2InstanceIds (\ s a -> s{_elbEC2InstanceIds = a}) . _Default . _Coerce;++-- | The ID of the layer that the instance is attached to.+elbLayerId :: Lens' ElasticLoadBalancer (Maybe Text)+elbLayerId = lens _elbLayerId (\ s a -> s{_elbLayerId = a});++-- | The instance's public DNS name.+elbDNSName :: Lens' ElasticLoadBalancer (Maybe Text)+elbDNSName = lens _elbDNSName (\ s a -> s{_elbDNSName = a});++instance FromJSON ElasticLoadBalancer where+        parseJSON+          = withObject "ElasticLoadBalancer"+              (\ x ->+                 ElasticLoadBalancer' <$>+                   (x .:? "SubnetIds" .!= mempty) <*> (x .:? "VpcId")+                     <*> (x .:? "AvailabilityZones" .!= mempty)+                     <*> (x .:? "Region")+                     <*> (x .:? "ElasticLoadBalancerName")+                     <*> (x .:? "StackId")+                     <*> (x .:? "Ec2InstanceIds" .!= mempty)+                     <*> (x .:? "LayerId")+                     <*> (x .:? "DnsName"))++instance Hashable ElasticLoadBalancer++instance NFData ElasticLoadBalancer++-- | Represents an app's environment variable.+--+--+--+-- /See:/ 'environmentVariable' smart constructor.+data EnvironmentVariable = EnvironmentVariable'+    { _evSecure :: !(Maybe Bool)+    , _evKey    :: !Text+    , _evValue  :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'EnvironmentVariable' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'evSecure' - (Optional) Whether the variable's value will be returned by the 'DescribeApps' action. To conceal an environment variable's value, set @Secure@ to @true@ . @DescribeApps@ then returns @*****FILTERED*****@ instead of the actual value. The default value for @Secure@ is @false@ .+--+-- * 'evKey' - (Required) The environment variable's name, which can consist of up to 64 characters and must be specified. The name can contain upper- and lowercase letters, numbers, and underscores (_), but it must start with a letter or underscore.+--+-- * 'evValue' - (Optional) The environment variable's value, which can be left empty. If you specify a value, it can contain up to 256 characters, which must all be printable.+environmentVariable+    :: Text -- ^ 'evKey'+    -> Text -- ^ 'evValue'+    -> EnvironmentVariable+environmentVariable pKey_ pValue_ =+    EnvironmentVariable'+    { _evSecure = Nothing+    , _evKey = pKey_+    , _evValue = pValue_+    }++-- | (Optional) Whether the variable's value will be returned by the 'DescribeApps' action. To conceal an environment variable's value, set @Secure@ to @true@ . @DescribeApps@ then returns @*****FILTERED*****@ instead of the actual value. The default value for @Secure@ is @false@ .+evSecure :: Lens' EnvironmentVariable (Maybe Bool)+evSecure = lens _evSecure (\ s a -> s{_evSecure = a});++-- | (Required) The environment variable's name, which can consist of up to 64 characters and must be specified. The name can contain upper- and lowercase letters, numbers, and underscores (_), but it must start with a letter or underscore.+evKey :: Lens' EnvironmentVariable Text+evKey = lens _evKey (\ s a -> s{_evKey = a});++-- | (Optional) The environment variable's value, which can be left empty. If you specify a value, it can contain up to 256 characters, which must all be printable.+evValue :: Lens' EnvironmentVariable Text+evValue = lens _evValue (\ s a -> s{_evValue = a});++instance FromJSON EnvironmentVariable where+        parseJSON+          = withObject "EnvironmentVariable"+              (\ x ->+                 EnvironmentVariable' <$>+                   (x .:? "Secure") <*> (x .: "Key") <*> (x .: "Value"))++instance Hashable EnvironmentVariable++instance NFData EnvironmentVariable++instance ToJSON EnvironmentVariable where+        toJSON EnvironmentVariable'{..}+          = object+              (catMaybes+                 [("Secure" .=) <$> _evSecure, Just ("Key" .= _evKey),+                  Just ("Value" .= _evValue)])++-- | Describes an instance.+--+--+--+-- /See:/ 'instance'' smart constructor.+data Instance = Instance'+    { _iPrivateDNS               :: !(Maybe Text)+    , _iReportedAgentVersion     :: !(Maybe Text)+    , _iInstanceId               :: !(Maybe Text)+    , _iStatus                   :: !(Maybe Text)+    , _iPrivateIP                :: !(Maybe Text)+    , _iInstallUpdatesOnBoot     :: !(Maybe Bool)+    , _iVirtualizationType       :: !(Maybe VirtualizationType)+    , _iInstanceProfileARN       :: !(Maybe Text)+    , _iPlatform                 :: !(Maybe Text)+    , _iHostname                 :: !(Maybe Text)+    , _iSSHHostRsaKeyFingerprint :: !(Maybe Text)+    , _iSecurityGroupIds         :: !(Maybe [Text])+    , _iEcsClusterARN            :: !(Maybe Text)+    , _iCreatedAt                :: !(Maybe Text)+    , _iEC2InstanceId            :: !(Maybe Text)+    , _iSSHKeyName               :: !(Maybe Text)+    , _iAgentVersion             :: !(Maybe Text)+    , _iRootDeviceVolumeId       :: !(Maybe Text)+    , _iSubnetId                 :: !(Maybe Text)+    , _iInfrastructureClass      :: !(Maybe Text)+    , _iSSHHostDsaKeyFingerprint :: !(Maybe Text)+    , _iInstanceType             :: !(Maybe Text)+    , _iEBSOptimized             :: !(Maybe Bool)+    , _iElasticIP                :: !(Maybe Text)+    , _iOS                       :: !(Maybe Text)+    , _iAvailabilityZone         :: !(Maybe Text)+    , _iLastServiceErrorId       :: !(Maybe Text)+    , _iTenancy                  :: !(Maybe Text)+    , _iAutoScalingType          :: !(Maybe AutoScalingType)+    , _iLayerIds                 :: !(Maybe [Text])+    , _iArchitecture             :: !(Maybe Architecture)+    , _iPublicDNS                :: !(Maybe Text)+    , _iAMIId                    :: !(Maybe Text)+    , _iPublicIP                 :: !(Maybe Text)+    , _iReportedOS               :: !(Maybe ReportedOS)+    , _iRegisteredBy             :: !(Maybe Text)+    , _iStackId                  :: !(Maybe Text)+    , _iRootDeviceType           :: !(Maybe RootDeviceType)+    , _iEcsContainerInstanceARN  :: !(Maybe Text)+    , _iBlockDeviceMappings      :: !(Maybe [BlockDeviceMapping])+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'Instance' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'iPrivateDNS' - The The instance's private DNS name.+--+-- * 'iReportedAgentVersion' - The instance's reported AWS OpsWorks agent version.+--+-- * 'iInstanceId' - The instance ID.+--+-- * 'iStatus' - The instance status:     * @booting@      * @connection_lost@      * @online@      * @pending@      * @rebooting@      * @requested@      * @running_setup@      * @setup_failed@      * @shutting_down@      * @start_failed@      * @stop_failed@      * @stopped@      * @stopping@      * @terminated@      * @terminating@+--+-- * 'iPrivateIP' - The instance's private IP address.+--+-- * 'iInstallUpdatesOnBoot' - Whether to install operating system and package updates when the instance boots. The default value is @true@ . If this value is set 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.+--+-- * 'iVirtualizationType' - The instance's virtualization type: @paravirtual@ or @hvm@ .+--+-- * 'iInstanceProfileARN' - The ARN of the instance's IAM profile. For more information about IAM ARNs, see <http://docs.aws.amazon.com/IAM/latest/UserGuide/Using_Identifiers.html Using Identifiers> .+--+-- * 'iPlatform' - The instance's platform.+--+-- * 'iHostname' - The instance host name.+--+-- * 'iSSHHostRsaKeyFingerprint' - The SSH key's RSA fingerprint.+--+-- * 'iSecurityGroupIds' - An array containing the instance security group IDs.+--+-- * 'iEcsClusterARN' - For container instances, the Amazon ECS cluster's ARN.+--+-- * 'iCreatedAt' - The time that the instance was created.+--+-- * 'iEC2InstanceId' - The ID of the associated Amazon EC2 instance.+--+-- * 'iSSHKeyName' - The instance's Amazon EC2 key-pair name.+--+-- * 'iAgentVersion' - The agent version. This parameter is set to @INHERIT@ if the instance inherits the default stack setting or to a a version number for a fixed agent version.+--+-- * 'iRootDeviceVolumeId' - The root device volume ID.+--+-- * 'iSubnetId' - The instance's subnet ID; applicable only if the stack is running in a VPC.+--+-- * 'iInfrastructureClass' - For registered instances, the infrastructure class: @ec2@ or @on-premises@ .+--+-- * 'iSSHHostDsaKeyFingerprint' - The SSH key's Deep Security Agent (DSA) fingerprint.+--+-- * 'iInstanceType' - The instance type, such as @t2.micro@ .+--+-- * 'iEBSOptimized' - Whether this is an Amazon EBS-optimized instance.+--+-- * 'iElasticIP' - The instance <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/elastic-ip-addresses-eip.html Elastic IP address > .+--+-- * 'iOS' - The instance's operating system.+--+-- * 'iAvailabilityZone' - The instance Availability Zone. For more information, see <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints> .+--+-- * 'iLastServiceErrorId' - The ID of the last service error. For more information, call 'DescribeServiceErrors' .+--+-- * 'iTenancy' - The instance's tenancy option, such as @dedicated@ or @host@ .+--+-- * 'iAutoScalingType' - For load-based or time-based instances, the type.+--+-- * 'iLayerIds' - An array containing the instance layer IDs.+--+-- * 'iArchitecture' - The instance architecture: "i386" or "x86_64".+--+-- * 'iPublicDNS' - The instance public DNS name.+--+-- * 'iAMIId' - A custom AMI ID to be used to create the instance. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-custom-ami.html Instances>+--+-- * 'iPublicIP' - The instance public IP address.+--+-- * 'iReportedOS' - For registered instances, the reported operating system.+--+-- * 'iRegisteredBy' - For registered instances, who performed the registration.+--+-- * 'iStackId' - The stack ID.+--+-- * 'iRootDeviceType' - The instance's 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> .+--+-- * 'iEcsContainerInstanceARN' - For container instances, the instance's ARN.+--+-- * 'iBlockDeviceMappings' - An array of @BlockDeviceMapping@ objects that specify the instance's block device mappings.+instance'+    :: Instance+instance' =+    Instance'+    { _iPrivateDNS = Nothing+    , _iReportedAgentVersion = Nothing+    , _iInstanceId = Nothing+    , _iStatus = Nothing+    , _iPrivateIP = Nothing+    , _iInstallUpdatesOnBoot = Nothing+    , _iVirtualizationType = Nothing+    , _iInstanceProfileARN = Nothing+    , _iPlatform = Nothing+    , _iHostname = Nothing+    , _iSSHHostRsaKeyFingerprint = Nothing+    , _iSecurityGroupIds = Nothing+    , _iEcsClusterARN = Nothing+    , _iCreatedAt = Nothing+    , _iEC2InstanceId = Nothing+    , _iSSHKeyName = Nothing+    , _iAgentVersion = Nothing+    , _iRootDeviceVolumeId = Nothing+    , _iSubnetId = Nothing+    , _iInfrastructureClass = Nothing+    , _iSSHHostDsaKeyFingerprint = Nothing+    , _iInstanceType = Nothing+    , _iEBSOptimized = Nothing+    , _iElasticIP = Nothing+    , _iOS = Nothing+    , _iAvailabilityZone = Nothing+    , _iLastServiceErrorId = Nothing+    , _iTenancy = Nothing+    , _iAutoScalingType = Nothing+    , _iLayerIds = Nothing+    , _iArchitecture = Nothing+    , _iPublicDNS = Nothing+    , _iAMIId = Nothing+    , _iPublicIP = Nothing+    , _iReportedOS = Nothing+    , _iRegisteredBy = Nothing+    , _iStackId = Nothing+    , _iRootDeviceType = Nothing+    , _iEcsContainerInstanceARN = Nothing+    , _iBlockDeviceMappings = Nothing+    }++-- | The The instance's private DNS name.+iPrivateDNS :: Lens' Instance (Maybe Text)+iPrivateDNS = lens _iPrivateDNS (\ s a -> s{_iPrivateDNS = a});++-- | The instance's reported AWS OpsWorks agent version.+iReportedAgentVersion :: Lens' Instance (Maybe Text)+iReportedAgentVersion = lens _iReportedAgentVersion (\ s a -> s{_iReportedAgentVersion = a});++-- | The instance ID.+iInstanceId :: Lens' Instance (Maybe Text)+iInstanceId = lens _iInstanceId (\ s a -> s{_iInstanceId = a});++-- | The instance status:     * @booting@      * @connection_lost@      * @online@      * @pending@      * @rebooting@      * @requested@      * @running_setup@      * @setup_failed@      * @shutting_down@      * @start_failed@      * @stop_failed@      * @stopped@      * @stopping@      * @terminated@      * @terminating@+iStatus :: Lens' Instance (Maybe Text)+iStatus = lens _iStatus (\ s a -> s{_iStatus = a});++-- | The instance's private IP address.+iPrivateIP :: Lens' Instance (Maybe Text)+iPrivateIP = lens _iPrivateIP (\ s a -> s{_iPrivateIP = a});++-- | Whether to install operating system and package updates when the instance boots. The default value is @true@ . If this value is set 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.+iInstallUpdatesOnBoot :: Lens' Instance (Maybe Bool)+iInstallUpdatesOnBoot = lens _iInstallUpdatesOnBoot (\ s a -> s{_iInstallUpdatesOnBoot = a});++-- | The instance's virtualization type: @paravirtual@ or @hvm@ .+iVirtualizationType :: Lens' Instance (Maybe VirtualizationType)+iVirtualizationType = lens _iVirtualizationType (\ s a -> s{_iVirtualizationType = a});++-- | The ARN of the instance's IAM profile. For more information about IAM ARNs, see <http://docs.aws.amazon.com/IAM/latest/UserGuide/Using_Identifiers.html Using Identifiers> .+iInstanceProfileARN :: Lens' Instance (Maybe Text)+iInstanceProfileARN = lens _iInstanceProfileARN (\ s a -> s{_iInstanceProfileARN = a});++-- | The instance's platform.+iPlatform :: Lens' Instance (Maybe Text)+iPlatform = lens _iPlatform (\ s a -> s{_iPlatform = a});++-- | The instance host name.+iHostname :: Lens' Instance (Maybe Text)+iHostname = lens _iHostname (\ s a -> s{_iHostname = a});++-- | The SSH key's RSA fingerprint.+iSSHHostRsaKeyFingerprint :: Lens' Instance (Maybe Text)+iSSHHostRsaKeyFingerprint = lens _iSSHHostRsaKeyFingerprint (\ s a -> s{_iSSHHostRsaKeyFingerprint = a});++-- | An array containing the instance security group IDs.+iSecurityGroupIds :: Lens' Instance [Text]+iSecurityGroupIds = lens _iSecurityGroupIds (\ s a -> s{_iSecurityGroupIds = a}) . _Default . _Coerce;++-- | For container instances, the Amazon ECS cluster's ARN.+iEcsClusterARN :: Lens' Instance (Maybe Text)+iEcsClusterARN = lens _iEcsClusterARN (\ s a -> s{_iEcsClusterARN = a});++-- | The time that the instance was created.+iCreatedAt :: Lens' Instance (Maybe Text)+iCreatedAt = lens _iCreatedAt (\ s a -> s{_iCreatedAt = a});++-- | The ID of the associated Amazon EC2 instance.+iEC2InstanceId :: Lens' Instance (Maybe Text)+iEC2InstanceId = lens _iEC2InstanceId (\ s a -> s{_iEC2InstanceId = a});++-- | The instance's Amazon EC2 key-pair name.+iSSHKeyName :: Lens' Instance (Maybe Text)+iSSHKeyName = lens _iSSHKeyName (\ s a -> s{_iSSHKeyName = a});++-- | The agent version. This parameter is set to @INHERIT@ if the instance inherits the default stack setting or to a a version number for a fixed agent version.+iAgentVersion :: Lens' Instance (Maybe Text)+iAgentVersion = lens _iAgentVersion (\ s a -> s{_iAgentVersion = a});++-- | The root device volume ID.+iRootDeviceVolumeId :: Lens' Instance (Maybe Text)+iRootDeviceVolumeId = lens _iRootDeviceVolumeId (\ s a -> s{_iRootDeviceVolumeId = a});++-- | The instance's subnet ID; applicable only if the stack is running in a VPC.+iSubnetId :: Lens' Instance (Maybe Text)+iSubnetId = lens _iSubnetId (\ s a -> s{_iSubnetId = a});++-- | For registered instances, the infrastructure class: @ec2@ or @on-premises@ .+iInfrastructureClass :: Lens' Instance (Maybe Text)+iInfrastructureClass = lens _iInfrastructureClass (\ s a -> s{_iInfrastructureClass = a});++-- | The SSH key's Deep Security Agent (DSA) fingerprint.+iSSHHostDsaKeyFingerprint :: Lens' Instance (Maybe Text)+iSSHHostDsaKeyFingerprint = lens _iSSHHostDsaKeyFingerprint (\ s a -> s{_iSSHHostDsaKeyFingerprint = a});++-- | The instance type, such as @t2.micro@ .+iInstanceType :: Lens' Instance (Maybe Text)+iInstanceType = lens _iInstanceType (\ s a -> s{_iInstanceType = a});++-- | Whether this is an Amazon EBS-optimized instance.+iEBSOptimized :: Lens' Instance (Maybe Bool)+iEBSOptimized = lens _iEBSOptimized (\ s a -> s{_iEBSOptimized = a});++-- | The instance <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/elastic-ip-addresses-eip.html Elastic IP address > .+iElasticIP :: Lens' Instance (Maybe Text)+iElasticIP = lens _iElasticIP (\ s a -> s{_iElasticIP = a});++-- | The instance's operating system.+iOS :: Lens' Instance (Maybe Text)+iOS = lens _iOS (\ s a -> s{_iOS = a});++-- | The instance Availability Zone. For more information, see <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints> .+iAvailabilityZone :: Lens' Instance (Maybe Text)+iAvailabilityZone = lens _iAvailabilityZone (\ s a -> s{_iAvailabilityZone = a});++-- | The ID of the last service error. For more information, call 'DescribeServiceErrors' .+iLastServiceErrorId :: Lens' Instance (Maybe Text)+iLastServiceErrorId = lens _iLastServiceErrorId (\ s a -> s{_iLastServiceErrorId = a});++-- | The instance's tenancy option, such as @dedicated@ or @host@ .+iTenancy :: Lens' Instance (Maybe Text)+iTenancy = lens _iTenancy (\ s a -> s{_iTenancy = a});++-- | For load-based or time-based instances, the type.+iAutoScalingType :: Lens' Instance (Maybe AutoScalingType)+iAutoScalingType = lens _iAutoScalingType (\ s a -> s{_iAutoScalingType = a});++-- | An array containing the instance layer IDs.+iLayerIds :: Lens' Instance [Text]+iLayerIds = lens _iLayerIds (\ s a -> s{_iLayerIds = a}) . _Default . _Coerce;++-- | The instance architecture: "i386" or "x86_64".+iArchitecture :: Lens' Instance (Maybe Architecture)+iArchitecture = lens _iArchitecture (\ s a -> s{_iArchitecture = a});++-- | The instance public DNS name.+iPublicDNS :: Lens' Instance (Maybe Text)+iPublicDNS = lens _iPublicDNS (\ s a -> s{_iPublicDNS = a});++-- | A custom AMI ID to be used to create the instance. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-custom-ami.html Instances>+iAMIId :: Lens' Instance (Maybe Text)+iAMIId = lens _iAMIId (\ s a -> s{_iAMIId = a});++-- | The instance public IP address.+iPublicIP :: Lens' Instance (Maybe Text)+iPublicIP = lens _iPublicIP (\ s a -> s{_iPublicIP = a});++-- | For registered instances, the reported operating system.+iReportedOS :: Lens' Instance (Maybe ReportedOS)+iReportedOS = lens _iReportedOS (\ s a -> s{_iReportedOS = a});++-- | For registered instances, who performed the registration.+iRegisteredBy :: Lens' Instance (Maybe Text)+iRegisteredBy = lens _iRegisteredBy (\ s a -> s{_iRegisteredBy = a});++-- | The stack ID.+iStackId :: Lens' Instance (Maybe Text)+iStackId = lens _iStackId (\ s a -> s{_iStackId = a});++-- | The instance's 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> .+iRootDeviceType :: Lens' Instance (Maybe RootDeviceType)+iRootDeviceType = lens _iRootDeviceType (\ s a -> s{_iRootDeviceType = a});++-- | For container instances, the instance's ARN.+iEcsContainerInstanceARN :: Lens' Instance (Maybe Text)+iEcsContainerInstanceARN = lens _iEcsContainerInstanceARN (\ s a -> s{_iEcsContainerInstanceARN = a});++-- | An array of @BlockDeviceMapping@ objects that specify the instance's block device mappings.+iBlockDeviceMappings :: Lens' Instance [BlockDeviceMapping]+iBlockDeviceMappings = lens _iBlockDeviceMappings (\ s a -> s{_iBlockDeviceMappings = a}) . _Default . _Coerce;++instance FromJSON Instance where+        parseJSON+          = withObject "Instance"+              (\ x ->+                 Instance' <$>+                   (x .:? "PrivateDns") <*>+                     (x .:? "ReportedAgentVersion")+                     <*> (x .:? "InstanceId")+                     <*> (x .:? "Status")+                     <*> (x .:? "PrivateIp")+                     <*> (x .:? "InstallUpdatesOnBoot")+                     <*> (x .:? "VirtualizationType")+                     <*> (x .:? "InstanceProfileArn")+                     <*> (x .:? "Platform")+                     <*> (x .:? "Hostname")+                     <*> (x .:? "SshHostRsaKeyFingerprint")+                     <*> (x .:? "SecurityGroupIds" .!= mempty)+                     <*> (x .:? "EcsClusterArn")+                     <*> (x .:? "CreatedAt")+                     <*> (x .:? "Ec2InstanceId")+                     <*> (x .:? "SshKeyName")+                     <*> (x .:? "AgentVersion")+                     <*> (x .:? "RootDeviceVolumeId")+                     <*> (x .:? "SubnetId")+                     <*> (x .:? "InfrastructureClass")+                     <*> (x .:? "SshHostDsaKeyFingerprint")+                     <*> (x .:? "InstanceType")+                     <*> (x .:? "EbsOptimized")+                     <*> (x .:? "ElasticIp")+                     <*> (x .:? "Os")+                     <*> (x .:? "AvailabilityZone")+                     <*> (x .:? "LastServiceErrorId")+                     <*> (x .:? "Tenancy")+                     <*> (x .:? "AutoScalingType")+                     <*> (x .:? "LayerIds" .!= mempty)+                     <*> (x .:? "Architecture")+                     <*> (x .:? "PublicDns")+                     <*> (x .:? "AmiId")+                     <*> (x .:? "PublicIp")+                     <*> (x .:? "ReportedOs")+                     <*> (x .:? "RegisteredBy")+                     <*> (x .:? "StackId")+                     <*> (x .:? "RootDeviceType")+                     <*> (x .:? "EcsContainerInstanceArn")+                     <*> (x .:? "BlockDeviceMappings" .!= mempty))++instance Hashable Instance++instance NFData Instance++-- | Contains a description of an Amazon EC2 instance from the Amazon EC2 metadata service. For more information, see <http://docs.aws.amazon.com/sdkfornet/latest/apidocs/Index.html Instance Metadata and User Data> .+--+--+--+-- /See:/ 'instanceIdentity' smart constructor.+data InstanceIdentity = InstanceIdentity'+    { _iiSignature :: !(Maybe Text)+    , _iiDocument  :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'InstanceIdentity' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'iiSignature' - A signature that can be used to verify the document's accuracy and authenticity.+--+-- * 'iiDocument' - A JSON document that contains the metadata.+instanceIdentity+    :: InstanceIdentity+instanceIdentity =+    InstanceIdentity'+    { _iiSignature = Nothing+    , _iiDocument = Nothing+    }++-- | A signature that can be used to verify the document's accuracy and authenticity.+iiSignature :: Lens' InstanceIdentity (Maybe Text)+iiSignature = lens _iiSignature (\ s a -> s{_iiSignature = a});++-- | A JSON document that contains the metadata.+iiDocument :: Lens' InstanceIdentity (Maybe Text)+iiDocument = lens _iiDocument (\ s a -> s{_iiDocument = a});++instance Hashable InstanceIdentity++instance NFData InstanceIdentity++instance ToJSON InstanceIdentity where+        toJSON InstanceIdentity'{..}+          = object+              (catMaybes+                 [("Signature" .=) <$> _iiSignature,+                  ("Document" .=) <$> _iiDocument])++-- | Describes how many instances a stack has for each status.+--+--+--+-- /See:/ 'instancesCount' smart constructor.+data InstancesCount = InstancesCount'+    { _icTerminating    :: !(Maybe Int)+    , _icPending        :: !(Maybe Int)+    , _icOnline         :: !(Maybe Int)+    , _icUnassigning    :: !(Maybe Int)+    , _icDeregistering  :: !(Maybe Int)+    , _icRunningSetup   :: !(Maybe Int)+    , _icRequested      :: !(Maybe Int)+    , _icBooting        :: !(Maybe Int)+    , _icStopped        :: !(Maybe Int)+    , _icRebooting      :: !(Maybe Int)+    , _icAssigning      :: !(Maybe Int)+    , _icShuttingDown   :: !(Maybe Int)+    , _icSetupFailed    :: !(Maybe Int)+    , _icConnectionLost :: !(Maybe Int)+    , _icTerminated     :: !(Maybe Int)+    , _icStopping       :: !(Maybe Int)+    , _icRegistered     :: !(Maybe Int)+    , _icStartFailed    :: !(Maybe Int)+    , _icRegistering    :: !(Maybe Int)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'InstancesCount' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'icTerminating' - The number of instances with @terminating@ status.+--+-- * 'icPending' - The number of instances with @pending@ status.+--+-- * 'icOnline' - The number of instances with @online@ status.+--+-- * 'icUnassigning' - The number of instances in the Unassigning state.+--+-- * 'icDeregistering' - The number of instances in the Deregistering state.+--+-- * 'icRunningSetup' - The number of instances with @running_setup@ status.+--+-- * 'icRequested' - The number of instances with @requested@ status.+--+-- * 'icBooting' - The number of instances with @booting@ status.+--+-- * 'icStopped' - The number of instances with @stopped@ status.+--+-- * 'icRebooting' - The number of instances with @rebooting@ status.+--+-- * 'icAssigning' - The number of instances in the Assigning state.+--+-- * 'icShuttingDown' - The number of instances with @shutting_down@ status.+--+-- * 'icSetupFailed' - The number of instances with @setup_failed@ status.+--+-- * 'icConnectionLost' - The number of instances with @connection_lost@ status.+--+-- * 'icTerminated' - The number of instances with @terminated@ status.+--+-- * 'icStopping' - The number of instances with @stopping@ status.+--+-- * 'icRegistered' - The number of instances in the Registered state.+--+-- * 'icStartFailed' - The number of instances with @start_failed@ status.+--+-- * 'icRegistering' - The number of instances in the Registering state.+instancesCount+    :: InstancesCount+instancesCount =+    InstancesCount'+    { _icTerminating = Nothing+    , _icPending = Nothing+    , _icOnline = Nothing+    , _icUnassigning = Nothing+    , _icDeregistering = Nothing+    , _icRunningSetup = Nothing+    , _icRequested = Nothing+    , _icBooting = Nothing+    , _icStopped = Nothing+    , _icRebooting = Nothing+    , _icAssigning = Nothing+    , _icShuttingDown = Nothing+    , _icSetupFailed = Nothing+    , _icConnectionLost = Nothing+    , _icTerminated = Nothing+    , _icStopping = Nothing+    , _icRegistered = Nothing+    , _icStartFailed = Nothing+    , _icRegistering = Nothing+    }++-- | The number of instances with @terminating@ status.+icTerminating :: Lens' InstancesCount (Maybe Int)+icTerminating = lens _icTerminating (\ s a -> s{_icTerminating = a});++-- | The number of instances with @pending@ status.+icPending :: Lens' InstancesCount (Maybe Int)+icPending = lens _icPending (\ s a -> s{_icPending = a});++-- | The number of instances with @online@ status.+icOnline :: Lens' InstancesCount (Maybe Int)+icOnline = lens _icOnline (\ s a -> s{_icOnline = a});++-- | The number of instances in the Unassigning state.+icUnassigning :: Lens' InstancesCount (Maybe Int)+icUnassigning = lens _icUnassigning (\ s a -> s{_icUnassigning = a});++-- | The number of instances in the Deregistering state.+icDeregistering :: Lens' InstancesCount (Maybe Int)+icDeregistering = lens _icDeregistering (\ s a -> s{_icDeregistering = a});++-- | The number of instances with @running_setup@ status.+icRunningSetup :: Lens' InstancesCount (Maybe Int)+icRunningSetup = lens _icRunningSetup (\ s a -> s{_icRunningSetup = a});++-- | The number of instances with @requested@ status.+icRequested :: Lens' InstancesCount (Maybe Int)+icRequested = lens _icRequested (\ s a -> s{_icRequested = a});++-- | The number of instances with @booting@ status.+icBooting :: Lens' InstancesCount (Maybe Int)+icBooting = lens _icBooting (\ s a -> s{_icBooting = a});++-- | The number of instances with @stopped@ status.+icStopped :: Lens' InstancesCount (Maybe Int)+icStopped = lens _icStopped (\ s a -> s{_icStopped = a});++-- | The number of instances with @rebooting@ status.+icRebooting :: Lens' InstancesCount (Maybe Int)+icRebooting = lens _icRebooting (\ s a -> s{_icRebooting = a});++-- | The number of instances in the Assigning state.+icAssigning :: Lens' InstancesCount (Maybe Int)+icAssigning = lens _icAssigning (\ s a -> s{_icAssigning = a});++-- | The number of instances with @shutting_down@ status.+icShuttingDown :: Lens' InstancesCount (Maybe Int)+icShuttingDown = lens _icShuttingDown (\ s a -> s{_icShuttingDown = a});++-- | The number of instances with @setup_failed@ status.+icSetupFailed :: Lens' InstancesCount (Maybe Int)+icSetupFailed = lens _icSetupFailed (\ s a -> s{_icSetupFailed = a});++-- | The number of instances with @connection_lost@ status.+icConnectionLost :: Lens' InstancesCount (Maybe Int)+icConnectionLost = lens _icConnectionLost (\ s a -> s{_icConnectionLost = a});++-- | The number of instances with @terminated@ status.+icTerminated :: Lens' InstancesCount (Maybe Int)+icTerminated = lens _icTerminated (\ s a -> s{_icTerminated = a});++-- | The number of instances with @stopping@ status.+icStopping :: Lens' InstancesCount (Maybe Int)+icStopping = lens _icStopping (\ s a -> s{_icStopping = a});++-- | The number of instances in the Registered state.+icRegistered :: Lens' InstancesCount (Maybe Int)+icRegistered = lens _icRegistered (\ s a -> s{_icRegistered = a});++-- | The number of instances with @start_failed@ status.+icStartFailed :: Lens' InstancesCount (Maybe Int)+icStartFailed = lens _icStartFailed (\ s a -> s{_icStartFailed = a});++-- | The number of instances in the Registering state.+icRegistering :: Lens' InstancesCount (Maybe Int)+icRegistering = lens _icRegistering (\ s a -> s{_icRegistering = a});++instance FromJSON InstancesCount where+        parseJSON+          = withObject "InstancesCount"+              (\ x ->+                 InstancesCount' <$>+                   (x .:? "Terminating") <*> (x .:? "Pending") <*>+                     (x .:? "Online")+                     <*> (x .:? "Unassigning")+                     <*> (x .:? "Deregistering")+                     <*> (x .:? "RunningSetup")+                     <*> (x .:? "Requested")+                     <*> (x .:? "Booting")+                     <*> (x .:? "Stopped")+                     <*> (x .:? "Rebooting")+                     <*> (x .:? "Assigning")+                     <*> (x .:? "ShuttingDown")+                     <*> (x .:? "SetupFailed")+                     <*> (x .:? "ConnectionLost")+                     <*> (x .:? "Terminated")+                     <*> (x .:? "Stopping")+                     <*> (x .:? "Registered")+                     <*> (x .:? "StartFailed")+                     <*> (x .:? "Registering"))++instance Hashable InstancesCount++instance NFData InstancesCount++-- | Describes a layer.+--+--+--+-- /See:/ 'layer' smart constructor.+data Layer = Layer'+    { _lCustomInstanceProfileARN    :: !(Maybe Text)+    , _lCustomSecurityGroupIds      :: !(Maybe [Text])+    , _lInstallUpdatesOnBoot        :: !(Maybe Bool)+    , _lLifecycleEventConfiguration :: !(Maybe LifecycleEventConfiguration)+    , _lCreatedAt                   :: !(Maybe Text)+    , _lShortname                   :: !(Maybe Text)+    , _lDefaultRecipes              :: !(Maybe Recipes)+    , _lCustomRecipes               :: !(Maybe Recipes)+    , _lCustomJSON                  :: !(Maybe Text)+    , _lVolumeConfigurations        :: !(Maybe [VolumeConfiguration])+    , _lEnableAutoHealing           :: !(Maybe Bool)+    , _lPackages                    :: !(Maybe [Text])+    , _lAttributes                  :: !(Maybe (Map LayerAttributesKeys Text))+    , _lName                        :: !(Maybe Text)+    , _lAutoAssignPublicIPs         :: !(Maybe Bool)+    , _lType                        :: !(Maybe LayerType)+    , _lUseEBSOptimizedInstances    :: !(Maybe Bool)+    , _lStackId                     :: !(Maybe Text)+    , _lLayerId                     :: !(Maybe Text)+    , _lDefaultSecurityGroupNames   :: !(Maybe [Text])+    , _lAutoAssignElasticIPs        :: !(Maybe Bool)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'Layer' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lCustomInstanceProfileARN' - The ARN of the default 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> .+--+-- * 'lCustomSecurityGroupIds' - An array containing the layer's custom security group IDs.+--+-- * 'lInstallUpdatesOnBoot' - Whether to install operating system and package updates when the instance boots. The default value is @true@ . If this value is set 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.+--+-- * 'lLifecycleEventConfiguration' - A @LifeCycleEventConfiguration@ object that specifies the Shutdown event configuration.+--+-- * 'lCreatedAt' - Date when the layer was created.+--+-- * 'lShortname' - The layer short name.+--+-- * 'lDefaultRecipes' - Undocumented member.+--+-- * 'lCustomRecipes' - A @LayerCustomRecipes@ object that specifies the layer's custom recipes.+--+-- * 'lCustomJSON' - A JSON formatted string containing the layer's custom stack configuration and deployment attributes.+--+-- * 'lVolumeConfigurations' - A @VolumeConfigurations@ object that describes the layer's Amazon EBS volumes.+--+-- * 'lEnableAutoHealing' - Whether auto healing is disabled for the layer.+--+-- * 'lPackages' - An array of @Package@ objects that describe the layer's packages.+--+-- * 'lAttributes' - The layer attributes. For the @HaproxyStatsPassword@ , @MysqlRootPassword@ , and @GangliaPassword@ attributes, AWS OpsWorks returns @*****FILTERED*****@ instead of the actual value For an ECS Cluster layer, AWS OpsWorks the @EcsClusterArn@ attribute is set to the cluster's ARN.+--+-- * 'lName' - The layer name.+--+-- * 'lAutoAssignPublicIPs' - 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> .+--+-- * 'lType' - The layer type.+--+-- * 'lUseEBSOptimizedInstances' - Whether the layer uses Amazon EBS-optimized instances.+--+-- * 'lStackId' - The layer stack ID.+--+-- * 'lLayerId' - The layer ID.+--+-- * 'lDefaultSecurityGroupNames' - An array containing the layer's security group names.+--+-- * 'lAutoAssignElasticIPs' - 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> .+layer+    :: Layer+layer =+    Layer'+    { _lCustomInstanceProfileARN = Nothing+    , _lCustomSecurityGroupIds = Nothing+    , _lInstallUpdatesOnBoot = Nothing+    , _lLifecycleEventConfiguration = Nothing+    , _lCreatedAt = Nothing+    , _lShortname = Nothing+    , _lDefaultRecipes = Nothing+    , _lCustomRecipes = Nothing+    , _lCustomJSON = Nothing+    , _lVolumeConfigurations = Nothing+    , _lEnableAutoHealing = Nothing+    , _lPackages = Nothing+    , _lAttributes = Nothing+    , _lName = Nothing+    , _lAutoAssignPublicIPs = Nothing+    , _lType = Nothing+    , _lUseEBSOptimizedInstances = Nothing+    , _lStackId = Nothing+    , _lLayerId = Nothing+    , _lDefaultSecurityGroupNames = Nothing+    , _lAutoAssignElasticIPs = Nothing+    }++-- | The ARN of the default 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> .+lCustomInstanceProfileARN :: Lens' Layer (Maybe Text)+lCustomInstanceProfileARN = lens _lCustomInstanceProfileARN (\ s a -> s{_lCustomInstanceProfileARN = a});++-- | An array containing the layer's custom security group IDs.+lCustomSecurityGroupIds :: Lens' Layer [Text]+lCustomSecurityGroupIds = lens _lCustomSecurityGroupIds (\ s a -> s{_lCustomSecurityGroupIds = a}) . _Default . _Coerce;++-- | Whether to install operating system and package updates when the instance boots. The default value is @true@ . If this value is set 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.+lInstallUpdatesOnBoot :: Lens' Layer (Maybe Bool)+lInstallUpdatesOnBoot = lens _lInstallUpdatesOnBoot (\ s a -> s{_lInstallUpdatesOnBoot = a});++-- | A @LifeCycleEventConfiguration@ object that specifies the Shutdown event configuration.+lLifecycleEventConfiguration :: Lens' Layer (Maybe LifecycleEventConfiguration)+lLifecycleEventConfiguration = lens _lLifecycleEventConfiguration (\ s a -> s{_lLifecycleEventConfiguration = a});++-- | Date when the layer was created.+lCreatedAt :: Lens' Layer (Maybe Text)+lCreatedAt = lens _lCreatedAt (\ s a -> s{_lCreatedAt = a});++-- | The layer short name.+lShortname :: Lens' Layer (Maybe Text)+lShortname = lens _lShortname (\ s a -> s{_lShortname = a});++-- | Undocumented member.+lDefaultRecipes :: Lens' Layer (Maybe Recipes)+lDefaultRecipes = lens _lDefaultRecipes (\ s a -> s{_lDefaultRecipes = a});++-- | A @LayerCustomRecipes@ object that specifies the layer's custom recipes.+lCustomRecipes :: Lens' Layer (Maybe Recipes)+lCustomRecipes = lens _lCustomRecipes (\ s a -> s{_lCustomRecipes = a});++-- | A JSON formatted string containing the layer's custom stack configuration and deployment attributes.+lCustomJSON :: Lens' Layer (Maybe Text)+lCustomJSON = lens _lCustomJSON (\ s a -> s{_lCustomJSON = a});++-- | A @VolumeConfigurations@ object that describes the layer's Amazon EBS volumes.+lVolumeConfigurations :: Lens' Layer [VolumeConfiguration]+lVolumeConfigurations = lens _lVolumeConfigurations (\ s a -> s{_lVolumeConfigurations = a}) . _Default . _Coerce;++-- | Whether auto healing is disabled for the layer.+lEnableAutoHealing :: Lens' Layer (Maybe Bool)+lEnableAutoHealing = lens _lEnableAutoHealing (\ s a -> s{_lEnableAutoHealing = a});++-- | An array of @Package@ objects that describe the layer's packages.+lPackages :: Lens' Layer [Text]+lPackages = lens _lPackages (\ s a -> s{_lPackages = a}) . _Default . _Coerce;++-- | The layer attributes. For the @HaproxyStatsPassword@ , @MysqlRootPassword@ , and @GangliaPassword@ attributes, AWS OpsWorks returns @*****FILTERED*****@ instead of the actual value For an ECS Cluster layer, AWS OpsWorks the @EcsClusterArn@ attribute is set to the cluster's ARN.+lAttributes :: Lens' Layer (HashMap LayerAttributesKeys Text)+lAttributes = lens _lAttributes (\ s a -> s{_lAttributes = a}) . _Default . _Map;++-- | The layer name.+lName :: Lens' Layer (Maybe Text)+lName = lens _lName (\ s a -> s{_lName = 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> .+lAutoAssignPublicIPs :: Lens' Layer (Maybe Bool)+lAutoAssignPublicIPs = lens _lAutoAssignPublicIPs (\ s a -> s{_lAutoAssignPublicIPs = a});++-- | The layer type.+lType :: Lens' Layer (Maybe LayerType)+lType = lens _lType (\ s a -> s{_lType = a});++-- | Whether the layer uses Amazon EBS-optimized instances.+lUseEBSOptimizedInstances :: Lens' Layer (Maybe Bool)+lUseEBSOptimizedInstances = lens _lUseEBSOptimizedInstances (\ s a -> s{_lUseEBSOptimizedInstances = a});++-- | The layer stack ID.+lStackId :: Lens' Layer (Maybe Text)+lStackId = lens _lStackId (\ s a -> s{_lStackId = a});++-- | The layer ID.+lLayerId :: Lens' Layer (Maybe Text)+lLayerId = lens _lLayerId (\ s a -> s{_lLayerId = a});++-- | An array containing the layer's security group names.+lDefaultSecurityGroupNames :: Lens' Layer [Text]+lDefaultSecurityGroupNames = lens _lDefaultSecurityGroupNames (\ s a -> s{_lDefaultSecurityGroupNames = a}) . _Default . _Coerce;++-- | 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> .+lAutoAssignElasticIPs :: Lens' Layer (Maybe Bool)+lAutoAssignElasticIPs = lens _lAutoAssignElasticIPs (\ s a -> s{_lAutoAssignElasticIPs = a});++instance FromJSON Layer where+        parseJSON+          = withObject "Layer"+              (\ x ->+                 Layer' <$>+                   (x .:? "CustomInstanceProfileArn") <*>+                     (x .:? "CustomSecurityGroupIds" .!= mempty)+                     <*> (x .:? "InstallUpdatesOnBoot")+                     <*> (x .:? "LifecycleEventConfiguration")+                     <*> (x .:? "CreatedAt")+                     <*> (x .:? "Shortname")+                     <*> (x .:? "DefaultRecipes")+                     <*> (x .:? "CustomRecipes")+                     <*> (x .:? "CustomJson")+                     <*> (x .:? "VolumeConfigurations" .!= mempty)+                     <*> (x .:? "EnableAutoHealing")+                     <*> (x .:? "Packages" .!= mempty)+                     <*> (x .:? "Attributes" .!= mempty)+                     <*> (x .:? "Name")+                     <*> (x .:? "AutoAssignPublicIps")+                     <*> (x .:? "Type")+                     <*> (x .:? "UseEbsOptimizedInstances")+                     <*> (x .:? "StackId")+                     <*> (x .:? "LayerId")+                     <*> (x .:? "DefaultSecurityGroupNames" .!= mempty)+                     <*> (x .:? "AutoAssignElasticIps"))++instance Hashable Layer++instance NFData Layer++-- | Specifies the lifecycle event configuration+--+--+--+-- /See:/ 'lifecycleEventConfiguration' smart constructor.+newtype LifecycleEventConfiguration = LifecycleEventConfiguration'+    { _lecShutdown :: Maybe ShutdownEventConfiguration+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'LifecycleEventConfiguration' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lecShutdown' - A @ShutdownEventConfiguration@ object that specifies the Shutdown event configuration.+lifecycleEventConfiguration+    :: LifecycleEventConfiguration+lifecycleEventConfiguration =+    LifecycleEventConfiguration'+    { _lecShutdown = Nothing+    }++-- | A @ShutdownEventConfiguration@ object that specifies the Shutdown event configuration.+lecShutdown :: Lens' LifecycleEventConfiguration (Maybe ShutdownEventConfiguration)+lecShutdown = lens _lecShutdown (\ s a -> s{_lecShutdown = a});++instance FromJSON LifecycleEventConfiguration where+        parseJSON+          = withObject "LifecycleEventConfiguration"+              (\ x ->+                 LifecycleEventConfiguration' <$> (x .:? "Shutdown"))++instance Hashable LifecycleEventConfiguration++instance NFData LifecycleEventConfiguration++instance ToJSON LifecycleEventConfiguration where+        toJSON LifecycleEventConfiguration'{..}+          = object+              (catMaybes [("Shutdown" .=) <$> _lecShutdown])++-- | Describes a layer's load-based auto scaling configuration.+--+--+--+-- /See:/ 'loadBasedAutoScalingConfiguration' smart constructor.+data LoadBasedAutoScalingConfiguration = LoadBasedAutoScalingConfiguration'+    { _lbascUpScaling   :: !(Maybe AutoScalingThresholds)+    , _lbascEnable      :: !(Maybe Bool)+    , _lbascDownScaling :: !(Maybe AutoScalingThresholds)+    , _lbascLayerId     :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'LoadBasedAutoScalingConfiguration' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lbascUpScaling' - An @AutoScalingThresholds@ object that describes the upscaling configuration, which defines how and when AWS OpsWorks increases the number of instances.+--+-- * 'lbascEnable' - Whether load-based auto scaling is enabled for the layer.+--+-- * 'lbascDownScaling' - An @AutoScalingThresholds@ object that describes the downscaling configuration, which defines how and when AWS OpsWorks reduces the number of instances.+--+-- * 'lbascLayerId' - The layer ID.+loadBasedAutoScalingConfiguration+    :: LoadBasedAutoScalingConfiguration+loadBasedAutoScalingConfiguration =+    LoadBasedAutoScalingConfiguration'+    { _lbascUpScaling = Nothing+    , _lbascEnable = Nothing+    , _lbascDownScaling = Nothing+    , _lbascLayerId = Nothing+    }++-- | An @AutoScalingThresholds@ object that describes the upscaling configuration, which defines how and when AWS OpsWorks increases the number of instances.+lbascUpScaling :: Lens' LoadBasedAutoScalingConfiguration (Maybe AutoScalingThresholds)+lbascUpScaling = lens _lbascUpScaling (\ s a -> s{_lbascUpScaling = a});++-- | Whether load-based auto scaling is enabled for the layer.+lbascEnable :: Lens' LoadBasedAutoScalingConfiguration (Maybe Bool)+lbascEnable = lens _lbascEnable (\ s a -> s{_lbascEnable = a});++-- | An @AutoScalingThresholds@ object that describes the downscaling configuration, which defines how and when AWS OpsWorks reduces the number of instances.+lbascDownScaling :: Lens' LoadBasedAutoScalingConfiguration (Maybe AutoScalingThresholds)+lbascDownScaling = lens _lbascDownScaling (\ s a -> s{_lbascDownScaling = a});++-- | The layer ID.+lbascLayerId :: Lens' LoadBasedAutoScalingConfiguration (Maybe Text)+lbascLayerId = lens _lbascLayerId (\ s a -> s{_lbascLayerId = a});++instance FromJSON LoadBasedAutoScalingConfiguration+         where+        parseJSON+          = withObject "LoadBasedAutoScalingConfiguration"+              (\ x ->+                 LoadBasedAutoScalingConfiguration' <$>+                   (x .:? "UpScaling") <*> (x .:? "Enable") <*>+                     (x .:? "DownScaling")+                     <*> (x .:? "LayerId"))++instance Hashable LoadBasedAutoScalingConfiguration++instance NFData LoadBasedAutoScalingConfiguration++-- | Describes stack or user permissions.+--+--+--+-- /See:/ 'permission' smart constructor.+data Permission = Permission'+    { _pIAMUserARN :: !(Maybe Text)+    , _pAllowSudo  :: !(Maybe Bool)+    , _pStackId    :: !(Maybe Text)+    , _pLevel      :: !(Maybe Text)+    , _pAllowSSH   :: !(Maybe Bool)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'Permission' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pIAMUserARN' - The Amazon Resource Name (ARN) for an AWS Identity and Access Management (IAM) role. For more information about IAM ARNs, see <http://docs.aws.amazon.com/IAM/latest/UserGuide/Using_Identifiers.html Using Identifiers> .+--+-- * 'pAllowSudo' - Whether the user can use __sudo__ .+--+-- * 'pStackId' - A stack ID.+--+-- * 'pLevel' - The user's permission level, which must be the following:     * @deny@      * @show@      * @deploy@      * @manage@      * @iam_only@  For more information on the permissions associated with these levels, see <http://docs.aws.amazon.com/opsworks/latest/userguide/opsworks-security-users.html Managing User Permissions>+--+-- * 'pAllowSSH' - Whether the user can use SSH.+permission+    :: Permission+permission =+    Permission'+    { _pIAMUserARN = Nothing+    , _pAllowSudo = Nothing+    , _pStackId = Nothing+    , _pLevel = Nothing+    , _pAllowSSH = Nothing+    }++-- | The Amazon Resource Name (ARN) for an AWS Identity and Access Management (IAM) role. For more information about IAM ARNs, see <http://docs.aws.amazon.com/IAM/latest/UserGuide/Using_Identifiers.html Using Identifiers> .+pIAMUserARN :: Lens' Permission (Maybe Text)+pIAMUserARN = lens _pIAMUserARN (\ s a -> s{_pIAMUserARN = a});++-- | Whether the user can use __sudo__ .+pAllowSudo :: Lens' Permission (Maybe Bool)+pAllowSudo = lens _pAllowSudo (\ s a -> s{_pAllowSudo = a});++-- | A stack ID.+pStackId :: Lens' Permission (Maybe Text)+pStackId = lens _pStackId (\ s a -> s{_pStackId = a});++-- | The user's permission level, which must be the following:     * @deny@      * @show@      * @deploy@      * @manage@      * @iam_only@  For more information on the permissions associated with these levels, see <http://docs.aws.amazon.com/opsworks/latest/userguide/opsworks-security-users.html Managing User Permissions>+pLevel :: Lens' Permission (Maybe Text)+pLevel = lens _pLevel (\ s a -> s{_pLevel = a});++-- | Whether the user can use SSH.+pAllowSSH :: Lens' Permission (Maybe Bool)+pAllowSSH = lens _pAllowSSH (\ s a -> s{_pAllowSSH = a});++instance FromJSON Permission where+        parseJSON+          = withObject "Permission"+              (\ x ->+                 Permission' <$>+                   (x .:? "IamUserArn") <*> (x .:? "AllowSudo") <*>+                     (x .:? "StackId")+                     <*> (x .:? "Level")+                     <*> (x .:? "AllowSsh"))++instance Hashable Permission++instance NFData Permission++-- | Describes an instance's RAID array.+--+--+--+-- /See:/ 'rAIdArray' smart constructor.+data RAIdArray = RAIdArray'+    { _raiaInstanceId       :: !(Maybe Text)+    , _raiaSize             :: !(Maybe Int)+    , _raiaIOPS             :: !(Maybe Int)+    , _raiaCreatedAt        :: !(Maybe Text)+    , _raiaRAIdLevel        :: !(Maybe Int)+    , _raiaDevice           :: !(Maybe Text)+    , _raiaNumberOfDisks    :: !(Maybe Int)+    , _raiaAvailabilityZone :: !(Maybe Text)+    , _raiaName             :: !(Maybe Text)+    , _raiaRAIdArrayId      :: !(Maybe Text)+    , _raiaVolumeType       :: !(Maybe Text)+    , _raiaStackId          :: !(Maybe Text)+    , _raiaMountPoint       :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'RAIdArray' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'raiaInstanceId' - The instance ID.+--+-- * 'raiaSize' - The array's size.+--+-- * 'raiaIOPS' - For PIOPS volumes, the IOPS per disk.+--+-- * 'raiaCreatedAt' - When the RAID array was created.+--+-- * 'raiaRAIdLevel' - The <http://en.wikipedia.org/wiki/Standard_RAID_levels RAID level> .+--+-- * 'raiaDevice' - The array's Linux device. For example /dev/mdadm0.+--+-- * 'raiaNumberOfDisks' - The number of disks in the array.+--+-- * 'raiaAvailabilityZone' - The array's Availability Zone. For more information, see <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints> .+--+-- * 'raiaName' - The array name.+--+-- * 'raiaRAIdArrayId' - The array ID.+--+-- * 'raiaVolumeType' - The volume type, standard or PIOPS.+--+-- * 'raiaStackId' - The stack ID.+--+-- * 'raiaMountPoint' - The array's mount point.+rAIdArray+    :: RAIdArray+rAIdArray =+    RAIdArray'+    { _raiaInstanceId = Nothing+    , _raiaSize = Nothing+    , _raiaIOPS = Nothing+    , _raiaCreatedAt = Nothing+    , _raiaRAIdLevel = Nothing+    , _raiaDevice = Nothing+    , _raiaNumberOfDisks = Nothing+    , _raiaAvailabilityZone = Nothing+    , _raiaName = Nothing+    , _raiaRAIdArrayId = Nothing+    , _raiaVolumeType = Nothing+    , _raiaStackId = Nothing+    , _raiaMountPoint = Nothing+    }++-- | The instance ID.+raiaInstanceId :: Lens' RAIdArray (Maybe Text)+raiaInstanceId = lens _raiaInstanceId (\ s a -> s{_raiaInstanceId = a});++-- | The array's size.+raiaSize :: Lens' RAIdArray (Maybe Int)+raiaSize = lens _raiaSize (\ s a -> s{_raiaSize = a});++-- | For PIOPS volumes, the IOPS per disk.+raiaIOPS :: Lens' RAIdArray (Maybe Int)+raiaIOPS = lens _raiaIOPS (\ s a -> s{_raiaIOPS = a});++-- | When the RAID array was created.+raiaCreatedAt :: Lens' RAIdArray (Maybe Text)+raiaCreatedAt = lens _raiaCreatedAt (\ s a -> s{_raiaCreatedAt = a});++-- | The <http://en.wikipedia.org/wiki/Standard_RAID_levels RAID level> .+raiaRAIdLevel :: Lens' RAIdArray (Maybe Int)+raiaRAIdLevel = lens _raiaRAIdLevel (\ s a -> s{_raiaRAIdLevel = a});++-- | The array's Linux device. For example /dev/mdadm0.+raiaDevice :: Lens' RAIdArray (Maybe Text)+raiaDevice = lens _raiaDevice (\ s a -> s{_raiaDevice = a});++-- | The number of disks in the array.+raiaNumberOfDisks :: Lens' RAIdArray (Maybe Int)+raiaNumberOfDisks = lens _raiaNumberOfDisks (\ s a -> s{_raiaNumberOfDisks = a});++-- | The array's Availability Zone. For more information, see <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints> .+raiaAvailabilityZone :: Lens' RAIdArray (Maybe Text)+raiaAvailabilityZone = lens _raiaAvailabilityZone (\ s a -> s{_raiaAvailabilityZone = a});++-- | The array name.+raiaName :: Lens' RAIdArray (Maybe Text)+raiaName = lens _raiaName (\ s a -> s{_raiaName = a});++-- | The array ID.+raiaRAIdArrayId :: Lens' RAIdArray (Maybe Text)+raiaRAIdArrayId = lens _raiaRAIdArrayId (\ s a -> s{_raiaRAIdArrayId = a});++-- | The volume type, standard or PIOPS.+raiaVolumeType :: Lens' RAIdArray (Maybe Text)+raiaVolumeType = lens _raiaVolumeType (\ s a -> s{_raiaVolumeType = a});++-- | The stack ID.+raiaStackId :: Lens' RAIdArray (Maybe Text)+raiaStackId = lens _raiaStackId (\ s a -> s{_raiaStackId = a});++-- | The array's mount point.+raiaMountPoint :: Lens' RAIdArray (Maybe Text)+raiaMountPoint = lens _raiaMountPoint (\ s a -> s{_raiaMountPoint = a});++instance FromJSON RAIdArray where+        parseJSON+          = withObject "RAIdArray"+              (\ x ->+                 RAIdArray' <$>+                   (x .:? "InstanceId") <*> (x .:? "Size") <*>+                     (x .:? "Iops")+                     <*> (x .:? "CreatedAt")+                     <*> (x .:? "RaidLevel")+                     <*> (x .:? "Device")+                     <*> (x .:? "NumberOfDisks")+                     <*> (x .:? "AvailabilityZone")+                     <*> (x .:? "Name")+                     <*> (x .:? "RaidArrayId")+                     <*> (x .:? "VolumeType")+                     <*> (x .:? "StackId")+                     <*> (x .:? "MountPoint"))++instance Hashable RAIdArray++instance NFData RAIdArray++-- | Describes an Amazon RDS instance.+--+--+--+-- /See:/ 'rdsDBInstance' smart constructor.+data RDSDBInstance = RDSDBInstance'+    { _rdiRDSDBInstanceARN     :: !(Maybe Text)+    , _rdiDBUser               :: !(Maybe Text)+    , _rdiMissingOnRDS         :: !(Maybe Bool)+    , _rdiEngine               :: !(Maybe Text)+    , _rdiAddress              :: !(Maybe Text)+    , _rdiDBInstanceIdentifier :: !(Maybe Text)+    , _rdiRegion               :: !(Maybe Text)+    , _rdiStackId              :: !(Maybe Text)+    , _rdiDBPassword           :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'RDSDBInstance' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rdiRDSDBInstanceARN' - The instance's ARN.+--+-- * 'rdiDBUser' - The master user name.+--+-- * 'rdiMissingOnRDS' - Set to @true@ if AWS OpsWorks was unable to discover the Amazon RDS instance. AWS OpsWorks attempts to discover the instance only once. If this value is set to @true@ , you must deregister the instance and then register it again.+--+-- * 'rdiEngine' - The instance's database engine.+--+-- * 'rdiAddress' - The instance's address.+--+-- * 'rdiDBInstanceIdentifier' - The DB instance identifier.+--+-- * 'rdiRegion' - The instance's AWS region.+--+-- * 'rdiStackId' - The ID of the stack that the instance is registered with.+--+-- * 'rdiDBPassword' - AWS OpsWorks returns @*****FILTERED*****@ instead of the actual value.+rdsDBInstance+    :: RDSDBInstance+rdsDBInstance =+    RDSDBInstance'+    { _rdiRDSDBInstanceARN = Nothing+    , _rdiDBUser = Nothing+    , _rdiMissingOnRDS = Nothing+    , _rdiEngine = Nothing+    , _rdiAddress = Nothing+    , _rdiDBInstanceIdentifier = Nothing+    , _rdiRegion = Nothing+    , _rdiStackId = Nothing+    , _rdiDBPassword = Nothing+    }++-- | The instance's ARN.+rdiRDSDBInstanceARN :: Lens' RDSDBInstance (Maybe Text)+rdiRDSDBInstanceARN = lens _rdiRDSDBInstanceARN (\ s a -> s{_rdiRDSDBInstanceARN = a});++-- | The master user name.+rdiDBUser :: Lens' RDSDBInstance (Maybe Text)+rdiDBUser = lens _rdiDBUser (\ s a -> s{_rdiDBUser = a});++-- | Set to @true@ if AWS OpsWorks was unable to discover the Amazon RDS instance. AWS OpsWorks attempts to discover the instance only once. If this value is set to @true@ , you must deregister the instance and then register it again.+rdiMissingOnRDS :: Lens' RDSDBInstance (Maybe Bool)+rdiMissingOnRDS = lens _rdiMissingOnRDS (\ s a -> s{_rdiMissingOnRDS = a});++-- | The instance's database engine.+rdiEngine :: Lens' RDSDBInstance (Maybe Text)+rdiEngine = lens _rdiEngine (\ s a -> s{_rdiEngine = a});++-- | The instance's address.+rdiAddress :: Lens' RDSDBInstance (Maybe Text)+rdiAddress = lens _rdiAddress (\ s a -> s{_rdiAddress = a});++-- | The DB instance identifier.+rdiDBInstanceIdentifier :: Lens' RDSDBInstance (Maybe Text)+rdiDBInstanceIdentifier = lens _rdiDBInstanceIdentifier (\ s a -> s{_rdiDBInstanceIdentifier = a});++-- | The instance's AWS region.+rdiRegion :: Lens' RDSDBInstance (Maybe Text)+rdiRegion = lens _rdiRegion (\ s a -> s{_rdiRegion = a});++-- | The ID of the stack that the instance is registered with.+rdiStackId :: Lens' RDSDBInstance (Maybe Text)+rdiStackId = lens _rdiStackId (\ s a -> s{_rdiStackId = a});++-- | AWS OpsWorks returns @*****FILTERED*****@ instead of the actual value.+rdiDBPassword :: Lens' RDSDBInstance (Maybe Text)+rdiDBPassword = lens _rdiDBPassword (\ s a -> s{_rdiDBPassword = a});++instance FromJSON RDSDBInstance where+        parseJSON+          = withObject "RDSDBInstance"+              (\ x ->+                 RDSDBInstance' <$>+                   (x .:? "RdsDbInstanceArn") <*> (x .:? "DbUser") <*>+                     (x .:? "MissingOnRds")+                     <*> (x .:? "Engine")+                     <*> (x .:? "Address")+                     <*> (x .:? "DbInstanceIdentifier")+                     <*> (x .:? "Region")+                     <*> (x .:? "StackId")+                     <*> (x .:? "DbPassword"))++instance Hashable RDSDBInstance++instance NFData RDSDBInstance++-- | AWS OpsWorks supports five lifecycle events: __setup__ , __configuration__ , __deploy__ , __undeploy__ , and __shutdown__ . For each layer, AWS OpsWorks runs a set of standard recipes for each event. In addition, you can provide custom recipes for any or all layers and events. AWS OpsWorks runs custom event recipes after the standard recipes. @LayerCustomRecipes@ specifies the custom recipes for a particular layer to be run in response to each of the five events.+--+--+-- To specify a recipe, use the cookbook's directory name in the repository followed by two colons and the recipe name, which is the recipe's file name without the .rb extension. For example: phpapp2::dbsetup specifies the dbsetup.rb recipe in the repository's phpapp2 folder.+--+--+-- /See:/ 'recipes' smart constructor.+data Recipes = Recipes'+    { _rSetup     :: !(Maybe [Text])+    , _rShutdown  :: !(Maybe [Text])+    , _rUndeploy  :: !(Maybe [Text])+    , _rConfigure :: !(Maybe [Text])+    , _rDeploy    :: !(Maybe [Text])+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'Recipes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rSetup' - An array of custom recipe names to be run following a @setup@ event.+--+-- * 'rShutdown' - An array of custom recipe names to be run following a @shutdown@ event.+--+-- * 'rUndeploy' - An array of custom recipe names to be run following a @undeploy@ event.+--+-- * 'rConfigure' - An array of custom recipe names to be run following a @configure@ event.+--+-- * 'rDeploy' - An array of custom recipe names to be run following a @deploy@ event.+recipes+    :: Recipes+recipes =+    Recipes'+    { _rSetup = Nothing+    , _rShutdown = Nothing+    , _rUndeploy = Nothing+    , _rConfigure = Nothing+    , _rDeploy = Nothing+    }++-- | An array of custom recipe names to be run following a @setup@ event.+rSetup :: Lens' Recipes [Text]+rSetup = lens _rSetup (\ s a -> s{_rSetup = a}) . _Default . _Coerce;++-- | An array of custom recipe names to be run following a @shutdown@ event.+rShutdown :: Lens' Recipes [Text]+rShutdown = lens _rShutdown (\ s a -> s{_rShutdown = a}) . _Default . _Coerce;++-- | An array of custom recipe names to be run following a @undeploy@ event.+rUndeploy :: Lens' Recipes [Text]+rUndeploy = lens _rUndeploy (\ s a -> s{_rUndeploy = a}) . _Default . _Coerce;++-- | An array of custom recipe names to be run following a @configure@ event.+rConfigure :: Lens' Recipes [Text]+rConfigure = lens _rConfigure (\ s a -> s{_rConfigure = a}) . _Default . _Coerce;++-- | An array of custom recipe names to be run following a @deploy@ event.+rDeploy :: Lens' Recipes [Text]+rDeploy = lens _rDeploy (\ s a -> s{_rDeploy = a}) . _Default . _Coerce;++instance FromJSON Recipes where+        parseJSON+          = withObject "Recipes"+              (\ x ->+                 Recipes' <$>+                   (x .:? "Setup" .!= mempty) <*>+                     (x .:? "Shutdown" .!= mempty)+                     <*> (x .:? "Undeploy" .!= mempty)+                     <*> (x .:? "Configure" .!= mempty)+                     <*> (x .:? "Deploy" .!= mempty))++instance Hashable Recipes++instance NFData Recipes++instance ToJSON Recipes where+        toJSON Recipes'{..}+          = object+              (catMaybes+                 [("Setup" .=) <$> _rSetup,+                  ("Shutdown" .=) <$> _rShutdown,+                  ("Undeploy" .=) <$> _rUndeploy,+                  ("Configure" .=) <$> _rConfigure,+                  ("Deploy" .=) <$> _rDeploy])++-- | A registered instance's reported operating system.+--+--+--+-- /See:/ 'reportedOS' smart constructor.+data ReportedOS = ReportedOS'+    { _roFamily  :: !(Maybe Text)+    , _roName    :: !(Maybe Text)+    , _roVersion :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ReportedOS' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'roFamily' - The operating system family.+--+-- * 'roName' - The operating system name.+--+-- * 'roVersion' - The operating system version.+reportedOS+    :: ReportedOS+reportedOS =+    ReportedOS'+    { _roFamily = Nothing+    , _roName = Nothing+    , _roVersion = Nothing+    }++-- | The operating system family.+roFamily :: Lens' ReportedOS (Maybe Text)+roFamily = lens _roFamily (\ s a -> s{_roFamily = a});++-- | The operating system name.+roName :: Lens' ReportedOS (Maybe Text)+roName = lens _roName (\ s a -> s{_roName = a});++-- | The operating system version.+roVersion :: Lens' ReportedOS (Maybe Text)+roVersion = lens _roVersion (\ s a -> s{_roVersion = a});++instance FromJSON ReportedOS where+        parseJSON+          = withObject "ReportedOS"+              (\ x ->+                 ReportedOS' <$>+                   (x .:? "Family") <*> (x .:? "Name") <*>+                     (x .:? "Version"))++instance Hashable ReportedOS++instance NFData ReportedOS++-- | Describes an app's SSL configuration.+--+--+--+-- /See:/ 'sslConfiguration' smart constructor.+data SSLConfiguration = SSLConfiguration'+    { _scChain       :: !(Maybe Text)+    , _scCertificate :: !Text+    , _scPrivateKey  :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'SSLConfiguration' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'scChain' - Optional. Can be used to specify an intermediate certificate authority key or client authentication.+--+-- * 'scCertificate' - The contents of the certificate's domain.crt file.+--+-- * 'scPrivateKey' - The private key; the contents of the certificate's domain.kex file.+sslConfiguration+    :: Text -- ^ 'scCertificate'+    -> Text -- ^ 'scPrivateKey'+    -> SSLConfiguration+sslConfiguration pCertificate_ pPrivateKey_ =+    SSLConfiguration'+    { _scChain = Nothing+    , _scCertificate = pCertificate_+    , _scPrivateKey = pPrivateKey_+    }++-- | Optional. Can be used to specify an intermediate certificate authority key or client authentication.+scChain :: Lens' SSLConfiguration (Maybe Text)+scChain = lens _scChain (\ s a -> s{_scChain = a});++-- | The contents of the certificate's domain.crt file.+scCertificate :: Lens' SSLConfiguration Text+scCertificate = lens _scCertificate (\ s a -> s{_scCertificate = a});++-- | The private key; the contents of the certificate's domain.kex file.+scPrivateKey :: Lens' SSLConfiguration Text+scPrivateKey = lens _scPrivateKey (\ s a -> s{_scPrivateKey = a});++instance FromJSON SSLConfiguration where+        parseJSON+          = withObject "SSLConfiguration"+              (\ x ->+                 SSLConfiguration' <$>+                   (x .:? "Chain") <*> (x .: "Certificate") <*>+                     (x .: "PrivateKey"))++instance Hashable SSLConfiguration++instance NFData SSLConfiguration++instance ToJSON SSLConfiguration where+        toJSON SSLConfiguration'{..}+          = object+              (catMaybes+                 [("Chain" .=) <$> _scChain,+                  Just ("Certificate" .= _scCertificate),+                  Just ("PrivateKey" .= _scPrivateKey)])++-- | Describes a user's SSH information.+--+--+--+-- /See:/ 'selfUserProfile' smart constructor.+data SelfUserProfile = SelfUserProfile'+    { _supSSHPublicKey :: !(Maybe Text)+    , _supSSHUsername  :: !(Maybe Text)+    , _supIAMUserARN   :: !(Maybe Text)+    , _supName         :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'SelfUserProfile' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'supSSHPublicKey' - The user's SSH public key.+--+-- * 'supSSHUsername' - The user's SSH user name.+--+-- * 'supIAMUserARN' - The user's IAM ARN.+--+-- * 'supName' - The user's name.+selfUserProfile+    :: SelfUserProfile+selfUserProfile =+    SelfUserProfile'+    { _supSSHPublicKey = Nothing+    , _supSSHUsername = Nothing+    , _supIAMUserARN = Nothing+    , _supName = Nothing+    }++-- | The user's SSH public key.+supSSHPublicKey :: Lens' SelfUserProfile (Maybe Text)+supSSHPublicKey = lens _supSSHPublicKey (\ s a -> s{_supSSHPublicKey = a});++-- | The user's SSH user name.+supSSHUsername :: Lens' SelfUserProfile (Maybe Text)+supSSHUsername = lens _supSSHUsername (\ s a -> s{_supSSHUsername = a});++-- | The user's IAM ARN.+supIAMUserARN :: Lens' SelfUserProfile (Maybe Text)+supIAMUserARN = lens _supIAMUserARN (\ s a -> s{_supIAMUserARN = a});++-- | The user's name.+supName :: Lens' SelfUserProfile (Maybe Text)+supName = lens _supName (\ s a -> s{_supName = a});++instance FromJSON SelfUserProfile where+        parseJSON+          = withObject "SelfUserProfile"+              (\ x ->+                 SelfUserProfile' <$>+                   (x .:? "SshPublicKey") <*> (x .:? "SshUsername") <*>+                     (x .:? "IamUserArn")+                     <*> (x .:? "Name"))++instance Hashable SelfUserProfile++instance NFData SelfUserProfile++-- | Describes an AWS OpsWorks service error.+--+--+--+-- /See:/ 'serviceError'' smart constructor.+data ServiceError' = ServiceError''+    { _seInstanceId     :: !(Maybe Text)+    , _seCreatedAt      :: !(Maybe Text)+    , _seServiceErrorId :: !(Maybe Text)+    , _seType           :: !(Maybe Text)+    , _seStackId        :: !(Maybe Text)+    , _seMessage        :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ServiceError'' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'seInstanceId' - The instance ID.+--+-- * 'seCreatedAt' - When the error occurred.+--+-- * 'seServiceErrorId' - The error ID.+--+-- * 'seType' - The error type.+--+-- * 'seStackId' - The stack ID.+--+-- * 'seMessage' - A message that describes the error.+serviceError'+    :: ServiceError'+serviceError' =+    ServiceError''+    { _seInstanceId = Nothing+    , _seCreatedAt = Nothing+    , _seServiceErrorId = Nothing+    , _seType = Nothing+    , _seStackId = Nothing+    , _seMessage = Nothing+    }++-- | The instance ID.+seInstanceId :: Lens' ServiceError' (Maybe Text)+seInstanceId = lens _seInstanceId (\ s a -> s{_seInstanceId = a});++-- | When the error occurred.+seCreatedAt :: Lens' ServiceError' (Maybe Text)+seCreatedAt = lens _seCreatedAt (\ s a -> s{_seCreatedAt = a});++-- | The error ID.+seServiceErrorId :: Lens' ServiceError' (Maybe Text)+seServiceErrorId = lens _seServiceErrorId (\ s a -> s{_seServiceErrorId = a});++-- | The error type.+seType :: Lens' ServiceError' (Maybe Text)+seType = lens _seType (\ s a -> s{_seType = a});++-- | The stack ID.+seStackId :: Lens' ServiceError' (Maybe Text)+seStackId = lens _seStackId (\ s a -> s{_seStackId = a});++-- | A message that describes the error.+seMessage :: Lens' ServiceError' (Maybe Text)+seMessage = lens _seMessage (\ s a -> s{_seMessage = a});++instance FromJSON ServiceError' where+        parseJSON+          = withObject "ServiceError'"+              (\ x ->+                 ServiceError'' <$>+                   (x .:? "InstanceId") <*> (x .:? "CreatedAt") <*>+                     (x .:? "ServiceErrorId")+                     <*> (x .:? "Type")+                     <*> (x .:? "StackId")+                     <*> (x .:? "Message"))++instance Hashable ServiceError'++instance NFData ServiceError'++-- | The Shutdown event configuration.+--+--+--+-- /See:/ 'shutdownEventConfiguration' smart constructor.+data ShutdownEventConfiguration = ShutdownEventConfiguration'+    { _secExecutionTimeout                :: !(Maybe Int)+    , _secDelayUntilElbConnectionsDrained :: !(Maybe Bool)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ShutdownEventConfiguration' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'secExecutionTimeout' - The time, in seconds, that AWS OpsWorks will wait after triggering a Shutdown event before shutting down an instance.+--+-- * 'secDelayUntilElbConnectionsDrained' - Whether to enable Elastic Load Balancing connection draining. For more information, see <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/TerminologyandKeyConcepts.html#conn-drain Connection Draining>+shutdownEventConfiguration+    :: ShutdownEventConfiguration+shutdownEventConfiguration =+    ShutdownEventConfiguration'+    { _secExecutionTimeout = Nothing+    , _secDelayUntilElbConnectionsDrained = Nothing+    }++-- | The time, in seconds, that AWS OpsWorks will wait after triggering a Shutdown event before shutting down an instance.+secExecutionTimeout :: Lens' ShutdownEventConfiguration (Maybe Int)+secExecutionTimeout = lens _secExecutionTimeout (\ s a -> s{_secExecutionTimeout = a});++-- | Whether to enable Elastic Load Balancing connection draining. For more information, see <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/TerminologyandKeyConcepts.html#conn-drain Connection Draining>+secDelayUntilElbConnectionsDrained :: Lens' ShutdownEventConfiguration (Maybe Bool)+secDelayUntilElbConnectionsDrained = lens _secDelayUntilElbConnectionsDrained (\ s a -> s{_secDelayUntilElbConnectionsDrained = a});++instance FromJSON ShutdownEventConfiguration where+        parseJSON+          = withObject "ShutdownEventConfiguration"+              (\ x ->+                 ShutdownEventConfiguration' <$>+                   (x .:? "ExecutionTimeout") <*>+                     (x .:? "DelayUntilElbConnectionsDrained"))++instance Hashable ShutdownEventConfiguration++instance NFData ShutdownEventConfiguration++instance ToJSON ShutdownEventConfiguration where+        toJSON ShutdownEventConfiguration'{..}+          = object+              (catMaybes+                 [("ExecutionTimeout" .=) <$> _secExecutionTimeout,+                  ("DelayUntilElbConnectionsDrained" .=) <$>+                    _secDelayUntilElbConnectionsDrained])++-- | Contains the information required to retrieve an app or cookbook from a repository. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workingapps-creating.html Creating Apps> or <http://docs.aws.amazon.com/opsworks/latest/userguide/workingcookbook.html Custom Recipes and Cookbooks> .+--+--+--+-- /See:/ 'source' smart constructor.+data Source = Source'+    { _sURL      :: !(Maybe Text)+    , _sUsername :: !(Maybe Text)+    , _sSSHKey   :: !(Maybe Text)+    , _sPassword :: !(Maybe Text)+    , _sType     :: !(Maybe SourceType)+    , _sRevision :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'Source' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sURL' - The source URL.+--+-- * 'sUsername' - This parameter depends on the repository type.     * For Amazon S3 bundles, set @Username@ to the appropriate IAM access key ID.     * For HTTP bundles, Git repositories, and Subversion repositories, set @Username@ to the user name.+--+-- * 'sSSHKey' - In requests, the repository's SSH key. In responses, AWS OpsWorks returns @*****FILTERED*****@ instead of the actual value.+--+-- * 'sPassword' - When included in a request, the parameter depends on the repository type.     * For Amazon S3 bundles, set @Password@ to the appropriate IAM secret access key.     * For HTTP bundles and Subversion repositories, set @Password@ to the password. For more information on how to safely handle IAM credentials, see <http://docs.aws.amazon.com/general/latest/gr/aws-access-keys-best-practices.html http://docs.aws.amazon.com/general/latest/gr/aws-access-keys-best-practices.html> . In responses, AWS OpsWorks returns @*****FILTERED*****@ instead of the actual value.+--+-- * 'sType' - The repository type.+--+-- * 'sRevision' - The application's version. AWS OpsWorks enables you to easily deploy new versions of an application. One of the simplest approaches is to have branches or revisions in your repository that represent different versions that can potentially be deployed.+source+    :: Source+source =+    Source'+    { _sURL = Nothing+    , _sUsername = Nothing+    , _sSSHKey = Nothing+    , _sPassword = Nothing+    , _sType = Nothing+    , _sRevision = Nothing+    }++-- | The source URL.+sURL :: Lens' Source (Maybe Text)+sURL = lens _sURL (\ s a -> s{_sURL = a});++-- | This parameter depends on the repository type.     * For Amazon S3 bundles, set @Username@ to the appropriate IAM access key ID.     * For HTTP bundles, Git repositories, and Subversion repositories, set @Username@ to the user name.+sUsername :: Lens' Source (Maybe Text)+sUsername = lens _sUsername (\ s a -> s{_sUsername = a});++-- | In requests, the repository's SSH key. In responses, AWS OpsWorks returns @*****FILTERED*****@ instead of the actual value.+sSSHKey :: Lens' Source (Maybe Text)+sSSHKey = lens _sSSHKey (\ s a -> s{_sSSHKey = a});++-- | When included in a request, the parameter depends on the repository type.     * For Amazon S3 bundles, set @Password@ to the appropriate IAM secret access key.     * For HTTP bundles and Subversion repositories, set @Password@ to the password. For more information on how to safely handle IAM credentials, see <http://docs.aws.amazon.com/general/latest/gr/aws-access-keys-best-practices.html http://docs.aws.amazon.com/general/latest/gr/aws-access-keys-best-practices.html> . In responses, AWS OpsWorks returns @*****FILTERED*****@ instead of the actual value.+sPassword :: Lens' Source (Maybe Text)+sPassword = lens _sPassword (\ s a -> s{_sPassword = a});++-- | The repository type.+sType :: Lens' Source (Maybe SourceType)+sType = lens _sType (\ s a -> s{_sType = a});++-- | The application's version. AWS OpsWorks enables you to easily deploy new versions of an application. One of the simplest approaches is to have branches or revisions in your repository that represent different versions that can potentially be deployed.+sRevision :: Lens' Source (Maybe Text)+sRevision = lens _sRevision (\ s a -> s{_sRevision = a});++instance FromJSON Source where+        parseJSON+          = withObject "Source"+              (\ x ->+                 Source' <$>+                   (x .:? "Url") <*> (x .:? "Username") <*>+                     (x .:? "SshKey")+                     <*> (x .:? "Password")+                     <*> (x .:? "Type")+                     <*> (x .:? "Revision"))++instance Hashable Source++instance NFData Source++instance ToJSON Source where+        toJSON Source'{..}+          = object+              (catMaybes+                 [("Url" .=) <$> _sURL,+                  ("Username" .=) <$> _sUsername,+                  ("SshKey" .=) <$> _sSSHKey,+                  ("Password" .=) <$> _sPassword,+                  ("Type" .=) <$> _sType,+                  ("Revision" .=) <$> _sRevision])++-- | Describes a stack.+--+--+--+-- /See:/ 'stack' smart constructor.+data Stack = Stack'+    { _sDefaultInstanceProfileARN :: !(Maybe Text)+    , _sServiceRoleARN            :: !(Maybe Text)+    , _sDefaultRootDeviceType     :: !(Maybe RootDeviceType)+    , _sARN                       :: !(Maybe Text)+    , _sCreatedAt                 :: !(Maybe Text)+    , _sVPCId                     :: !(Maybe Text)+    , _sChefConfiguration         :: !(Maybe ChefConfiguration)+    , _sAgentVersion              :: !(Maybe Text)+    , _sDefaultSSHKeyName         :: !(Maybe Text)+    , _sCustomJSON                :: !(Maybe Text)+    , _sCustomCookbooksSource     :: !(Maybe Source)+    , _sDefaultAvailabilityZone   :: !(Maybe Text)+    , _sAttributes                :: !(Maybe (Map StackAttributesKeys Text))+    , _sName                      :: !(Maybe Text)+    , _sDefaultOS                 :: !(Maybe Text)+    , _sUseOpsworksSecurityGroups :: !(Maybe Bool)+    , _sUseCustomCookbooks        :: !(Maybe Bool)+    , _sDefaultSubnetId           :: !(Maybe Text)+    , _sRegion                    :: !(Maybe Text)+    , _sConfigurationManager      :: !(Maybe StackConfigurationManager)+    , _sStackId                   :: !(Maybe Text)+    , _sHostnameTheme             :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'Stack' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sDefaultInstanceProfileARN' - 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> .+--+-- * 'sServiceRoleARN' - The stack AWS Identity and Access Management (IAM) role.+--+-- * 'sDefaultRootDeviceType' - The default root device type. This value is used by default for all instances in the 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> .+--+-- * 'sARN' - The stack's ARN.+--+-- * 'sCreatedAt' - The date when the stack was created.+--+-- * 'sVPCId' - The VPC ID; applicable only if the stack is running in a VPC.+--+-- * 'sChefConfiguration' - A @ChefConfiguration@ object that specifies whether to enable Berkshelf and the Berkshelf version. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workingstacks-creating.html Create a New Stack> .+--+-- * 'sAgentVersion' - The agent version. This parameter is set to @LATEST@ for auto-update. or a version number for a fixed agent version.+--+-- * 'sDefaultSSHKeyName' - A default Amazon EC2 key pair for the stack's instances. You can override this value when you create or update an instance.+--+-- * 'sCustomJSON' - A JSON object that contains user-defined attributes to be added to the stack configuration and deployment attributes. You can use custom JSON to override the corresponding default stack configuration attribute values or to pass data to recipes. The string should be in the following format: @"{\"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> .+--+-- * 'sCustomCookbooksSource' - Undocumented member.+--+-- * 'sDefaultAvailabilityZone' - The stack's default Availability Zone. For more information, see <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints> .+--+-- * 'sAttributes' - The stack's attributes.+--+-- * 'sName' - The stack name.+--+-- * 'sDefaultOS' - The stack's default operating system.+--+-- * 'sUseOpsworksSecurityGroups' - Whether the stack automatically associates the AWS OpsWorks built-in security groups with the stack's layers.+--+-- * 'sUseCustomCookbooks' - Whether the stack uses custom cookbooks.+--+-- * 'sDefaultSubnetId' - The default subnet ID; applicable only if the stack is running in a VPC.+--+-- * 'sRegion' - The stack AWS region, such as "ap-northeast-2". For more information about AWS regions, see <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints> .+--+-- * 'sConfigurationManager' - The configuration manager.+--+-- * 'sStackId' - The stack ID.+--+-- * 'sHostnameTheme' - The stack host name theme, with spaces replaced by underscores.+stack+    :: Stack+stack =+    Stack'+    { _sDefaultInstanceProfileARN = Nothing+    , _sServiceRoleARN = Nothing+    , _sDefaultRootDeviceType = Nothing+    , _sARN = Nothing+    , _sCreatedAt = Nothing+    , _sVPCId = Nothing+    , _sChefConfiguration = Nothing+    , _sAgentVersion = Nothing+    , _sDefaultSSHKeyName = Nothing+    , _sCustomJSON = Nothing+    , _sCustomCookbooksSource = Nothing+    , _sDefaultAvailabilityZone = Nothing+    , _sAttributes = Nothing+    , _sName = Nothing+    , _sDefaultOS = Nothing+    , _sUseOpsworksSecurityGroups = Nothing+    , _sUseCustomCookbooks = Nothing+    , _sDefaultSubnetId = Nothing+    , _sRegion = Nothing+    , _sConfigurationManager = Nothing+    , _sStackId = Nothing+    , _sHostnameTheme = Nothing+    }++-- | 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> .+sDefaultInstanceProfileARN :: Lens' Stack (Maybe Text)+sDefaultInstanceProfileARN = lens _sDefaultInstanceProfileARN (\ s a -> s{_sDefaultInstanceProfileARN = a});++-- | The stack AWS Identity and Access Management (IAM) role.+sServiceRoleARN :: Lens' Stack (Maybe Text)+sServiceRoleARN = lens _sServiceRoleARN (\ s a -> s{_sServiceRoleARN = a});++-- | The default root device type. This value is used by default for all instances in the 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> .+sDefaultRootDeviceType :: Lens' Stack (Maybe RootDeviceType)+sDefaultRootDeviceType = lens _sDefaultRootDeviceType (\ s a -> s{_sDefaultRootDeviceType = a});++-- | The stack's ARN.+sARN :: Lens' Stack (Maybe Text)+sARN = lens _sARN (\ s a -> s{_sARN = a});++-- | The date when the stack was created.+sCreatedAt :: Lens' Stack (Maybe Text)+sCreatedAt = lens _sCreatedAt (\ s a -> s{_sCreatedAt = a});++-- | The VPC ID; applicable only if the stack is running in a VPC.+sVPCId :: Lens' Stack (Maybe Text)+sVPCId = lens _sVPCId (\ s a -> s{_sVPCId = a});++-- | A @ChefConfiguration@ object that specifies whether to enable Berkshelf and the Berkshelf version. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/workingstacks-creating.html Create a New Stack> .+sChefConfiguration :: Lens' Stack (Maybe ChefConfiguration)+sChefConfiguration = lens _sChefConfiguration (\ s a -> s{_sChefConfiguration = a});++-- | The agent version. This parameter is set to @LATEST@ for auto-update. or a version number for a fixed agent version.+sAgentVersion :: Lens' Stack (Maybe Text)+sAgentVersion = lens _sAgentVersion (\ s a -> s{_sAgentVersion = a});++-- | A default Amazon EC2 key pair for the stack's instances. You can override this value when you create or update an instance.+sDefaultSSHKeyName :: Lens' Stack (Maybe Text)+sDefaultSSHKeyName = lens _sDefaultSSHKeyName (\ s a -> s{_sDefaultSSHKeyName = a});++-- | A JSON object that contains user-defined attributes to be added to the stack configuration and deployment attributes. You can use custom JSON to override the corresponding default stack configuration attribute values or to pass data to recipes. The string should be in the following format: @"{\"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> .+sCustomJSON :: Lens' Stack (Maybe Text)+sCustomJSON = lens _sCustomJSON (\ s a -> s{_sCustomJSON = a});++-- | Undocumented member.+sCustomCookbooksSource :: Lens' Stack (Maybe Source)+sCustomCookbooksSource = lens _sCustomCookbooksSource (\ s a -> s{_sCustomCookbooksSource = a});++-- | The stack's default Availability Zone. For more information, see <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints> .+sDefaultAvailabilityZone :: Lens' Stack (Maybe Text)+sDefaultAvailabilityZone = lens _sDefaultAvailabilityZone (\ s a -> s{_sDefaultAvailabilityZone = a});++-- | The stack's attributes.+sAttributes :: Lens' Stack (HashMap StackAttributesKeys Text)+sAttributes = lens _sAttributes (\ s a -> s{_sAttributes = a}) . _Default . _Map;++-- | The stack name.+sName :: Lens' Stack (Maybe Text)+sName = lens _sName (\ s a -> s{_sName = a});++-- | The stack's default operating system.+sDefaultOS :: Lens' Stack (Maybe Text)+sDefaultOS = lens _sDefaultOS (\ s a -> s{_sDefaultOS = a});++-- | Whether the stack automatically associates the AWS OpsWorks built-in security groups with the stack's layers.+sUseOpsworksSecurityGroups :: Lens' Stack (Maybe Bool)+sUseOpsworksSecurityGroups = lens _sUseOpsworksSecurityGroups (\ s a -> s{_sUseOpsworksSecurityGroups = a});++-- | Whether the stack uses custom cookbooks.+sUseCustomCookbooks :: Lens' Stack (Maybe Bool)+sUseCustomCookbooks = lens _sUseCustomCookbooks (\ s a -> s{_sUseCustomCookbooks = a});++-- | The default subnet ID; applicable only if the stack is running in a VPC.+sDefaultSubnetId :: Lens' Stack (Maybe Text)+sDefaultSubnetId = lens _sDefaultSubnetId (\ s a -> s{_sDefaultSubnetId = a});++-- | The stack AWS region, such as "ap-northeast-2". For more information about AWS regions, see <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints> .+sRegion :: Lens' Stack (Maybe Text)+sRegion = lens _sRegion (\ s a -> s{_sRegion = a});++-- | The configuration manager.+sConfigurationManager :: Lens' Stack (Maybe StackConfigurationManager)+sConfigurationManager = lens _sConfigurationManager (\ s a -> s{_sConfigurationManager = a});++-- | The stack ID.+sStackId :: Lens' Stack (Maybe Text)+sStackId = lens _sStackId (\ s a -> s{_sStackId = a});++-- | The stack host name theme, with spaces replaced by underscores.+sHostnameTheme :: Lens' Stack (Maybe Text)+sHostnameTheme = lens _sHostnameTheme (\ s a -> s{_sHostnameTheme = a});++instance FromJSON Stack where+        parseJSON+          = withObject "Stack"+              (\ x ->+                 Stack' <$>+                   (x .:? "DefaultInstanceProfileArn") <*>+                     (x .:? "ServiceRoleArn")+                     <*> (x .:? "DefaultRootDeviceType")+                     <*> (x .:? "Arn")+                     <*> (x .:? "CreatedAt")+                     <*> (x .:? "VpcId")+                     <*> (x .:? "ChefConfiguration")+                     <*> (x .:? "AgentVersion")+                     <*> (x .:? "DefaultSshKeyName")+                     <*> (x .:? "CustomJson")+                     <*> (x .:? "CustomCookbooksSource")+                     <*> (x .:? "DefaultAvailabilityZone")+                     <*> (x .:? "Attributes" .!= mempty)+                     <*> (x .:? "Name")+                     <*> (x .:? "DefaultOs")+                     <*> (x .:? "UseOpsworksSecurityGroups")+                     <*> (x .:? "UseCustomCookbooks")+                     <*> (x .:? "DefaultSubnetId")+                     <*> (x .:? "Region")+                     <*> (x .:? "ConfigurationManager")+                     <*> (x .:? "StackId")+                     <*> (x .:? "HostnameTheme"))++instance Hashable Stack++instance NFData Stack++-- | Describes the configuration manager.+--+--+--+-- /See:/ 'stackConfigurationManager' smart constructor.+data StackConfigurationManager = StackConfigurationManager'+    { _scmName    :: !(Maybe Text)+    , _scmVersion :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'StackConfigurationManager' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'scmName' - The name. This parameter must be set to "Chef".+--+-- * 'scmVersion' - The Chef version. This parameter must be set to 12, 11.10, or 11.4 for Linux stacks, and to 12.2 for Windows stacks. The default value for Linux stacks is 11.4.+stackConfigurationManager+    :: StackConfigurationManager+stackConfigurationManager =+    StackConfigurationManager'+    { _scmName = Nothing+    , _scmVersion = Nothing+    }++-- | The name. This parameter must be set to "Chef".+scmName :: Lens' StackConfigurationManager (Maybe Text)+scmName = lens _scmName (\ s a -> s{_scmName = a});++-- | The Chef version. This parameter must be set to 12, 11.10, or 11.4 for Linux stacks, and to 12.2 for Windows stacks. The default value for Linux stacks is 11.4.+scmVersion :: Lens' StackConfigurationManager (Maybe Text)+scmVersion = lens _scmVersion (\ s a -> s{_scmVersion = a});++instance FromJSON StackConfigurationManager where+        parseJSON+          = withObject "StackConfigurationManager"+              (\ x ->+                 StackConfigurationManager' <$>+                   (x .:? "Name") <*> (x .:? "Version"))++instance Hashable StackConfigurationManager++instance NFData StackConfigurationManager++instance ToJSON StackConfigurationManager where+        toJSON StackConfigurationManager'{..}+          = object+              (catMaybes+                 [("Name" .=) <$> _scmName,+                  ("Version" .=) <$> _scmVersion])++-- | Summarizes the number of layers, instances, and apps in a stack.+--+--+--+-- /See:/ 'stackSummary' smart constructor.+data StackSummary = StackSummary'+    { _ssARN            :: !(Maybe Text)+    , _ssAppsCount      :: !(Maybe Int)+    , _ssName           :: !(Maybe Text)+    , _ssStackId        :: !(Maybe Text)+    , _ssLayersCount    :: !(Maybe Int)+    , _ssInstancesCount :: !(Maybe InstancesCount)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'StackSummary' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ssARN' - The stack's ARN.+--+-- * 'ssAppsCount' - The number of apps.+--+-- * 'ssName' - The stack name.+--+-- * 'ssStackId' - The stack ID.+--+-- * 'ssLayersCount' - The number of layers.+--+-- * 'ssInstancesCount' - An @InstancesCount@ object with the number of instances in each status.+stackSummary+    :: StackSummary+stackSummary =+    StackSummary'+    { _ssARN = Nothing+    , _ssAppsCount = Nothing+    , _ssName = Nothing+    , _ssStackId = Nothing+    , _ssLayersCount = Nothing+    , _ssInstancesCount = Nothing+    }++-- | The stack's ARN.+ssARN :: Lens' StackSummary (Maybe Text)+ssARN = lens _ssARN (\ s a -> s{_ssARN = a});++-- | The number of apps.+ssAppsCount :: Lens' StackSummary (Maybe Int)+ssAppsCount = lens _ssAppsCount (\ s a -> s{_ssAppsCount = a});++-- | The stack name.+ssName :: Lens' StackSummary (Maybe Text)+ssName = lens _ssName (\ s a -> s{_ssName = a});++-- | The stack ID.+ssStackId :: Lens' StackSummary (Maybe Text)+ssStackId = lens _ssStackId (\ s a -> s{_ssStackId = a});++-- | The number of layers.+ssLayersCount :: Lens' StackSummary (Maybe Int)+ssLayersCount = lens _ssLayersCount (\ s a -> s{_ssLayersCount = a});++-- | An @InstancesCount@ object with the number of instances in each status.+ssInstancesCount :: Lens' StackSummary (Maybe InstancesCount)+ssInstancesCount = lens _ssInstancesCount (\ s a -> s{_ssInstancesCount = a});++instance FromJSON StackSummary where+        parseJSON+          = withObject "StackSummary"+              (\ x ->+                 StackSummary' <$>+                   (x .:? "Arn") <*> (x .:? "AppsCount") <*>+                     (x .:? "Name")+                     <*> (x .:? "StackId")+                     <*> (x .:? "LayersCount")+                     <*> (x .:? "InstancesCount"))++instance Hashable StackSummary++instance NFData StackSummary++-- | Contains the data needed by RDP clients such as the Microsoft Remote Desktop Connection to log in to the instance.+--+--+--+-- /See:/ 'temporaryCredential' smart constructor.+data TemporaryCredential = TemporaryCredential'+    { _tcInstanceId        :: !(Maybe Text)+    , _tcUsername          :: !(Maybe Text)+    , _tcPassword          :: !(Maybe Text)+    , _tcValidForInMinutes :: !(Maybe Int)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'TemporaryCredential' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tcInstanceId' - The instance's AWS OpsWorks ID.+--+-- * 'tcUsername' - The user name.+--+-- * 'tcPassword' - The password.+--+-- * 'tcValidForInMinutes' - The length of time (in minutes) that the grant is valid. When the grant expires, at the end of this period, the user will no longer be able to use the credentials to log in. If they are logged in at the time, they will be automatically logged out.+temporaryCredential+    :: TemporaryCredential+temporaryCredential =+    TemporaryCredential'+    { _tcInstanceId = Nothing+    , _tcUsername = Nothing+    , _tcPassword = Nothing+    , _tcValidForInMinutes = Nothing+    }++-- | The instance's AWS OpsWorks ID.+tcInstanceId :: Lens' TemporaryCredential (Maybe Text)+tcInstanceId = lens _tcInstanceId (\ s a -> s{_tcInstanceId = a});++-- | The user name.+tcUsername :: Lens' TemporaryCredential (Maybe Text)+tcUsername = lens _tcUsername (\ s a -> s{_tcUsername = a});++-- | The password.+tcPassword :: Lens' TemporaryCredential (Maybe Text)+tcPassword = lens _tcPassword (\ s a -> s{_tcPassword = a});++-- | The length of time (in minutes) that the grant is valid. When the grant expires, at the end of this period, the user will no longer be able to use the credentials to log in. If they are logged in at the time, they will be automatically logged out.+tcValidForInMinutes :: Lens' TemporaryCredential (Maybe Int)+tcValidForInMinutes = lens _tcValidForInMinutes (\ s a -> s{_tcValidForInMinutes = a});++instance FromJSON TemporaryCredential where+        parseJSON+          = withObject "TemporaryCredential"+              (\ x ->+                 TemporaryCredential' <$>+                   (x .:? "InstanceId") <*> (x .:? "Username") <*>+                     (x .:? "Password")+                     <*> (x .:? "ValidForInMinutes"))++instance Hashable TemporaryCredential++instance NFData TemporaryCredential++-- | Describes an instance's time-based auto scaling configuration.+--+--+--+-- /See:/ 'timeBasedAutoScalingConfiguration' smart constructor.+data TimeBasedAutoScalingConfiguration = TimeBasedAutoScalingConfiguration'+    { _tbascInstanceId          :: !(Maybe Text)+    , _tbascAutoScalingSchedule :: !(Maybe WeeklyAutoScalingSchedule)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'TimeBasedAutoScalingConfiguration' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tbascInstanceId' - The instance ID.+--+-- * 'tbascAutoScalingSchedule' - A @WeeklyAutoScalingSchedule@ object with the instance schedule.+timeBasedAutoScalingConfiguration+    :: TimeBasedAutoScalingConfiguration+timeBasedAutoScalingConfiguration =+    TimeBasedAutoScalingConfiguration'+    { _tbascInstanceId = Nothing+    , _tbascAutoScalingSchedule = Nothing+    }++-- | The instance ID.+tbascInstanceId :: Lens' TimeBasedAutoScalingConfiguration (Maybe Text)+tbascInstanceId = lens _tbascInstanceId (\ s a -> s{_tbascInstanceId = a});++-- | A @WeeklyAutoScalingSchedule@ object with the instance schedule.+tbascAutoScalingSchedule :: Lens' TimeBasedAutoScalingConfiguration (Maybe WeeklyAutoScalingSchedule)+tbascAutoScalingSchedule = lens _tbascAutoScalingSchedule (\ s a -> s{_tbascAutoScalingSchedule = a});++instance FromJSON TimeBasedAutoScalingConfiguration+         where+        parseJSON+          = withObject "TimeBasedAutoScalingConfiguration"+              (\ x ->+                 TimeBasedAutoScalingConfiguration' <$>+                   (x .:? "InstanceId") <*>+                     (x .:? "AutoScalingSchedule"))++instance Hashable TimeBasedAutoScalingConfiguration++instance NFData TimeBasedAutoScalingConfiguration++-- | Describes a user's SSH information.+--+--+--+-- /See:/ 'userProfile' smart constructor.+data UserProfile = UserProfile'+    { _upAllowSelfManagement :: !(Maybe Bool)+    , _upSSHPublicKey        :: !(Maybe Text)+    , _upSSHUsername         :: !(Maybe Text)+    , _upIAMUserARN          :: !(Maybe Text)+    , _upName                :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'UserProfile' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'upAllowSelfManagement' - Whether users can specify their own SSH public key through the My Settings page. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/security-settingsshkey.html Managing User Permissions> .+--+-- * 'upSSHPublicKey' - The user's SSH public key.+--+-- * 'upSSHUsername' - The user's SSH user name.+--+-- * 'upIAMUserARN' - The user's IAM ARN.+--+-- * 'upName' - The user's name.+userProfile+    :: UserProfile+userProfile =+    UserProfile'+    { _upAllowSelfManagement = Nothing+    , _upSSHPublicKey = Nothing+    , _upSSHUsername = Nothing+    , _upIAMUserARN = Nothing+    , _upName = Nothing+    }++-- | Whether users can specify their own SSH public key through the My Settings page. For more information, see <http://docs.aws.amazon.com/opsworks/latest/userguide/security-settingsshkey.html Managing User Permissions> .+upAllowSelfManagement :: Lens' UserProfile (Maybe Bool)+upAllowSelfManagement = lens _upAllowSelfManagement (\ s a -> s{_upAllowSelfManagement = a});++-- | The user's SSH public key.+upSSHPublicKey :: Lens' UserProfile (Maybe Text)+upSSHPublicKey = lens _upSSHPublicKey (\ s a -> s{_upSSHPublicKey = a});++-- | The user's SSH user name.+upSSHUsername :: Lens' UserProfile (Maybe Text)+upSSHUsername = lens _upSSHUsername (\ s a -> s{_upSSHUsername = a});++-- | The user's IAM ARN.+upIAMUserARN :: Lens' UserProfile (Maybe Text)+upIAMUserARN = lens _upIAMUserARN (\ s a -> s{_upIAMUserARN = a});++-- | The user's name.+upName :: Lens' UserProfile (Maybe Text)+upName = lens _upName (\ s a -> s{_upName = a});++instance FromJSON UserProfile where+        parseJSON+          = withObject "UserProfile"+              (\ x ->+                 UserProfile' <$>+                   (x .:? "AllowSelfManagement") <*>+                     (x .:? "SshPublicKey")+                     <*> (x .:? "SshUsername")+                     <*> (x .:? "IamUserArn")+                     <*> (x .:? "Name"))++instance Hashable UserProfile++instance NFData UserProfile++-- | Describes an instance's Amazon EBS volume.+--+--+--+-- /See:/ 'volume' smart constructor.+data Volume = Volume'+    { _vInstanceId       :: !(Maybe Text)+    , _vStatus           :: !(Maybe Text)+    , _vSize             :: !(Maybe Int)+    , _vIOPS             :: !(Maybe Int)+    , _vDevice           :: !(Maybe Text)+    , _vAvailabilityZone :: !(Maybe Text)+    , _vName             :: !(Maybe Text)+    , _vRAIdArrayId      :: !(Maybe Text)+    , _vVolumeId         :: !(Maybe Text)+    , _vRegion           :: !(Maybe Text)+    , _vVolumeType       :: !(Maybe Text)+    , _vEC2VolumeId      :: !(Maybe Text)+    , _vMountPoint       :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'Volume' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'vInstanceId' - The instance ID.+--+-- * 'vStatus' - The value returned by <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeVolumes.html DescribeVolumes> .+--+-- * 'vSize' - The volume size.+--+-- * 'vIOPS' - For PIOPS volumes, the IOPS per disk.+--+-- * 'vDevice' - The device name.+--+-- * 'vAvailabilityZone' - The volume Availability Zone. For more information, see <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints> .+--+-- * 'vName' - The volume name.+--+-- * 'vRAIdArrayId' - The RAID array ID.+--+-- * 'vVolumeId' - The volume ID.+--+-- * 'vRegion' - The AWS region. For more information about AWS regions, see <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints> .+--+-- * 'vVolumeType' - The volume type, standard or PIOPS.+--+-- * 'vEC2VolumeId' - The Amazon EC2 volume ID.+--+-- * 'vMountPoint' - The volume mount point. For example, "/mnt/disk1".+volume+    :: Volume+volume =+    Volume'+    { _vInstanceId = Nothing+    , _vStatus = Nothing+    , _vSize = Nothing+    , _vIOPS = Nothing+    , _vDevice = Nothing+    , _vAvailabilityZone = Nothing+    , _vName = Nothing+    , _vRAIdArrayId = Nothing+    , _vVolumeId = Nothing+    , _vRegion = Nothing+    , _vVolumeType = Nothing+    , _vEC2VolumeId = Nothing+    , _vMountPoint = Nothing+    }++-- | The instance ID.+vInstanceId :: Lens' Volume (Maybe Text)+vInstanceId = lens _vInstanceId (\ s a -> s{_vInstanceId = a});++-- | The value returned by <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeVolumes.html DescribeVolumes> .+vStatus :: Lens' Volume (Maybe Text)+vStatus = lens _vStatus (\ s a -> s{_vStatus = a});++-- | The volume size.+vSize :: Lens' Volume (Maybe Int)+vSize = lens _vSize (\ s a -> s{_vSize = a});++-- | For PIOPS volumes, the IOPS per disk.+vIOPS :: Lens' Volume (Maybe Int)+vIOPS = lens _vIOPS (\ s a -> s{_vIOPS = a});++-- | The device name.+vDevice :: Lens' Volume (Maybe Text)+vDevice = lens _vDevice (\ s a -> s{_vDevice = a});++-- | The volume Availability Zone. For more information, see <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints> .+vAvailabilityZone :: Lens' Volume (Maybe Text)+vAvailabilityZone = lens _vAvailabilityZone (\ s a -> s{_vAvailabilityZone = a});++-- | The volume name.+vName :: Lens' Volume (Maybe Text)+vName = lens _vName (\ s a -> s{_vName = a});++-- | The RAID array ID.+vRAIdArrayId :: Lens' Volume (Maybe Text)+vRAIdArrayId = lens _vRAIdArrayId (\ s a -> s{_vRAIdArrayId = a});++-- | The volume ID.+vVolumeId :: Lens' Volume (Maybe Text)+vVolumeId = lens _vVolumeId (\ s a -> s{_vVolumeId = a});++-- | The AWS region. For more information about AWS regions, see <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints> .+vRegion :: Lens' Volume (Maybe Text)+vRegion = lens _vRegion (\ s a -> s{_vRegion = a});++-- | The volume type, standard or PIOPS.+vVolumeType :: Lens' Volume (Maybe Text)+vVolumeType = lens _vVolumeType (\ s a -> s{_vVolumeType = a});++-- | The Amazon EC2 volume ID.+vEC2VolumeId :: Lens' Volume (Maybe Text)+vEC2VolumeId = lens _vEC2VolumeId (\ s a -> s{_vEC2VolumeId = a});++-- | The volume mount point. For example, "/mnt/disk1".+vMountPoint :: Lens' Volume (Maybe Text)+vMountPoint = lens _vMountPoint (\ s a -> s{_vMountPoint = a});++instance FromJSON Volume where+        parseJSON+          = withObject "Volume"+              (\ x ->+                 Volume' <$>+                   (x .:? "InstanceId") <*> (x .:? "Status") <*>+                     (x .:? "Size")+                     <*> (x .:? "Iops")+                     <*> (x .:? "Device")+                     <*> (x .:? "AvailabilityZone")+                     <*> (x .:? "Name")+                     <*> (x .:? "RaidArrayId")+                     <*> (x .:? "VolumeId")+                     <*> (x .:? "Region")+                     <*> (x .:? "VolumeType")+                     <*> (x .:? "Ec2VolumeId")+                     <*> (x .:? "MountPoint"))++instance Hashable Volume++instance NFData Volume++-- | Describes an Amazon EBS volume configuration.+--+--+--+-- /See:/ 'volumeConfiguration' smart constructor.+data VolumeConfiguration = VolumeConfiguration'+    { _vcIOPS          :: !(Maybe Int)+    , _vcRAIdLevel     :: !(Maybe Int)+    , _vcVolumeType    :: !(Maybe Text)+    , _vcMountPoint    :: !Text+    , _vcNumberOfDisks :: !Int+    , _vcSize          :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'VolumeConfiguration' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'vcIOPS' - For PIOPS volumes, the IOPS per disk.+--+-- * 'vcRAIdLevel' - The volume <http://en.wikipedia.org/wiki/Standard_RAID_levels RAID level> .+--+-- * 'vcVolumeType' - The volume type:     * @standard@ - Magnetic     * @io1@ - Provisioned IOPS (SSD)     * @gp2@ - General Purpose (SSD)+--+-- * 'vcMountPoint' - The volume mount point. For example "/dev/sdh".+--+-- * 'vcNumberOfDisks' - The number of disks in the volume.+--+-- * 'vcSize' - The volume size.+volumeConfiguration+    :: Text -- ^ 'vcMountPoint'+    -> Int -- ^ 'vcNumberOfDisks'+    -> Int -- ^ 'vcSize'+    -> VolumeConfiguration+volumeConfiguration pMountPoint_ pNumberOfDisks_ pSize_ =+    VolumeConfiguration'+    { _vcIOPS = Nothing+    , _vcRAIdLevel = Nothing+    , _vcVolumeType = Nothing+    , _vcMountPoint = pMountPoint_+    , _vcNumberOfDisks = pNumberOfDisks_+    , _vcSize = pSize_+    }++-- | For PIOPS volumes, the IOPS per disk.+vcIOPS :: Lens' VolumeConfiguration (Maybe Int)+vcIOPS = lens _vcIOPS (\ s a -> s{_vcIOPS = a});++-- | The volume <http://en.wikipedia.org/wiki/Standard_RAID_levels RAID level> .+vcRAIdLevel :: Lens' VolumeConfiguration (Maybe Int)+vcRAIdLevel = lens _vcRAIdLevel (\ s a -> s{_vcRAIdLevel = a});++-- | The volume type:     * @standard@ - Magnetic     * @io1@ - Provisioned IOPS (SSD)     * @gp2@ - General Purpose (SSD)+vcVolumeType :: Lens' VolumeConfiguration (Maybe Text)+vcVolumeType = lens _vcVolumeType (\ s a -> s{_vcVolumeType = a});++-- | The volume mount point. For example "/dev/sdh".+vcMountPoint :: Lens' VolumeConfiguration Text+vcMountPoint = lens _vcMountPoint (\ s a -> s{_vcMountPoint = a});++-- | The number of disks in the volume.+vcNumberOfDisks :: Lens' VolumeConfiguration Int+vcNumberOfDisks = lens _vcNumberOfDisks (\ s a -> s{_vcNumberOfDisks = a});++-- | The volume size.+vcSize :: Lens' VolumeConfiguration Int+vcSize = lens _vcSize (\ s a -> s{_vcSize = a});++instance FromJSON VolumeConfiguration where+        parseJSON+          = withObject "VolumeConfiguration"+              (\ x ->+                 VolumeConfiguration' <$>+                   (x .:? "Iops") <*> (x .:? "RaidLevel") <*>+                     (x .:? "VolumeType")+                     <*> (x .: "MountPoint")+                     <*> (x .: "NumberOfDisks")+                     <*> (x .: "Size"))++instance Hashable VolumeConfiguration++instance NFData VolumeConfiguration++instance ToJSON VolumeConfiguration where+        toJSON VolumeConfiguration'{..}+          = object+              (catMaybes+                 [("Iops" .=) <$> _vcIOPS,+                  ("RaidLevel" .=) <$> _vcRAIdLevel,+                  ("VolumeType" .=) <$> _vcVolumeType,+                  Just ("MountPoint" .= _vcMountPoint),+                  Just ("NumberOfDisks" .= _vcNumberOfDisks),+                  Just ("Size" .= _vcSize)])++-- | Describes a time-based instance's auto scaling schedule. The schedule consists of a set of key-value pairs.+--+--+--     * The key is the time period (a UTC hour) and must be an integer from 0 - 23.+--+--     * The value indicates whether the instance should be online or offline for the specified period, and must be set to "on" or "off"+--+--+--+-- The default setting for all time periods is off, so you use the following parameters primarily to specify the online periods. You don't have to explicitly specify offline periods unless you want to change an online period to an offline period.+--+-- The following example specifies that the instance should be online for four hours, from UTC 1200 - 1600. It will be off for the remainder of the day.+--+-- @{ "12":"on", "13":"on", "14":"on", "15":"on" } @+--+--+-- /See:/ 'weeklyAutoScalingSchedule' smart constructor.+data WeeklyAutoScalingSchedule = WeeklyAutoScalingSchedule'+    { _wassThursday  :: !(Maybe (Map Text Text))+    , _wassWednesday :: !(Maybe (Map Text Text))+    , _wassSaturday  :: !(Maybe (Map Text Text))+    , _wassMonday    :: !(Maybe (Map Text Text))+    , _wassFriday    :: !(Maybe (Map Text Text))+    , _wassSunday    :: !(Maybe (Map Text Text))+    , _wassTuesday   :: !(Maybe (Map Text Text))+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'WeeklyAutoScalingSchedule' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'wassThursday' - The schedule for Thursday.+--+-- * 'wassWednesday' - The schedule for Wednesday.+--+-- * 'wassSaturday' - The schedule for Saturday.+--+-- * 'wassMonday' - The schedule for Monday.+--+-- * 'wassFriday' - The schedule for Friday.+--+-- * 'wassSunday' - The schedule for Sunday.+--+-- * 'wassTuesday' - The schedule for Tuesday. weeklyAutoScalingSchedule     :: WeeklyAutoScalingSchedule weeklyAutoScalingSchedule =