amazonka-elasticbeanstalk 0.3.6 → 1.0.0

raw patch · 43 files changed

+8060/−6231 lines, 43 filesdep +amazonka-elasticbeanstalkdep +amazonka-testdep +bytestringdep ~amazonka-coredep ~basePVP ok

version bump matches the API change (PVP)

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

Dependency ranges changed: amazonka-core, base

API changes (from Hackage documentation)

Files

• README.md +40/−12
• amazonka-elasticbeanstalk.cabal +72/−16
• gen/Network/AWS/ElasticBeanstalk.hs +553/−70
• gen/Network/AWS/ElasticBeanstalk/AbortEnvironmentUpdate.hs +79/−72
• gen/Network/AWS/ElasticBeanstalk/CheckDNSAvailability.hs +106/−91
• gen/Network/AWS/ElasticBeanstalk/CreateApplication.hs +74/−93
• gen/Network/AWS/ElasticBeanstalk/CreateApplicationVersion.hs +116/−133
• gen/Network/AWS/ElasticBeanstalk/CreateConfigurationTemplate.hs +148/−260
• gen/Network/AWS/ElasticBeanstalk/CreateEnvironment.hs +183/−366
• gen/Network/AWS/ElasticBeanstalk/CreateStorageLocation.hs +83/−65
• gen/Network/AWS/ElasticBeanstalk/DeleteApplication.hs +76/−73
• gen/Network/AWS/ElasticBeanstalk/DeleteApplicationVersion.hs +90/−81
• gen/Network/AWS/ElasticBeanstalk/DeleteConfigurationTemplate.hs +76/−67
• gen/Network/AWS/ElasticBeanstalk/DeleteEnvironmentConfiguration.hs +82/−71
• gen/Network/AWS/ElasticBeanstalk/DescribeApplicationVersions.hs +110/−98
• gen/Network/AWS/ElasticBeanstalk/DescribeApplications.hs +96/−90
• gen/Network/AWS/ElasticBeanstalk/DescribeConfigurationOptions.hs +139/−119
• gen/Network/AWS/ElasticBeanstalk/DescribeConfigurationSettings.hs +131/−113
• gen/Network/AWS/ElasticBeanstalk/DescribeEnvironmentHealth.hs +215/−0
• gen/Network/AWS/ElasticBeanstalk/DescribeEnvironmentResources.hs +109/−89
• gen/Network/AWS/ElasticBeanstalk/DescribeEnvironments.hs +144/−138
• gen/Network/AWS/ElasticBeanstalk/DescribeEvents.hs +203/−180
• gen/Network/AWS/ElasticBeanstalk/DescribeInstancesHealth.hs +184/−0
• gen/Network/AWS/ElasticBeanstalk/ListAvailableSolutionStacks.hs +99/−79
• gen/Network/AWS/ElasticBeanstalk/RebuildEnvironment.hs +81/−74
• gen/Network/AWS/ElasticBeanstalk/RequestEnvironmentInfo.hs +100/−88
• gen/Network/AWS/ElasticBeanstalk/RestartAppServer.hs +79/−73
• gen/Network/AWS/ElasticBeanstalk/RetrieveEnvironmentInfo.hs +125/−110
• gen/Network/AWS/ElasticBeanstalk/SwapEnvironmentCNAMEs.hs +104/−97
• gen/Network/AWS/ElasticBeanstalk/TerminateEnvironment.hs +107/−291
• gen/Network/AWS/ElasticBeanstalk/Types.hs +460/−2243
• gen/Network/AWS/ElasticBeanstalk/Types/Product.hs +2218/−0
• gen/Network/AWS/ElasticBeanstalk/Types/Sum.hs +348/−0
• gen/Network/AWS/ElasticBeanstalk/UpdateApplication.hs +72/−91
• gen/Network/AWS/ElasticBeanstalk/UpdateApplicationVersion.hs +82/−100
• gen/Network/AWS/ElasticBeanstalk/UpdateConfigurationTemplate.hs +119/−229
• gen/Network/AWS/ElasticBeanstalk/UpdateEnvironment.hs +166/−349
• gen/Network/AWS/ElasticBeanstalk/ValidateConfigurationSettings.hs +125/−110
• gen/Network/AWS/ElasticBeanstalk/Waiters.hs +20/−0
• test/Main.hs +21/−0
• test/Test/AWS/ElasticBeanstalk.hs +26/−0
• test/Test/AWS/ElasticBeanstalk/Internal.hs +16/−0
• test/Test/AWS/Gen/ElasticBeanstalk.hs +583/−0

@@ -1,27 +1,55 @@ # Amazon Elastic Beanstalk SDK -> _Warning:_ This is an experimental preview release which is still under heavy development and not intended for public consumption, _caveat emptor_!-+* [Version](#version) * [Description](#description) * [Contribute](#contribute) * [Licence](#licence) ++## Version++`1.0.0`++ ## Description -AWS Elastic Beanstalk is an easy-to-use service for deploying and scaling web-applications and services developed with Java, .NET, PHP, Node.js, Python,-Ruby, and Docker on familiar servers such as Apache HTTP Server, Apache-Tomcat, Nginx, Passenger, and IIS 7.5/8. You can simply upload your code and-Elastic Beanstalk automatically handles the deployment, from capacity-provisioning, load balancing, auto-scaling to application health monitoring.-At the same time, you retain full control over the AWS resources powering-your application and can access the underlying resources at any time. There-is no additional charge for Elastic Beanstalk - you pay only for the AWS-resources needed to store and run your applications.+AWS Elastic Beanstalk +This is the AWS Elastic Beanstalk API Reference. This guide provides+detailed information about AWS Elastic Beanstalk actions, data types,+parameters, and errors.++AWS Elastic Beanstalk is a tool that makes it easy for you to create,+deploy, and manage scalable, fault-tolerant applications running on+Amazon Web Services cloud resources.++For more information about this product, go to the+<http://aws.amazon.com/elasticbeanstalk/ AWS Elastic Beanstalk> details+page. The location of the latest AWS Elastic Beanstalk WSDL is+<http://elasticbeanstalk.s3.amazonaws.com/doc/2010-12-01/AWSElasticBeanstalk.wsdl>.+To install the Software Development Kits (SDKs), Integrated Development+Environment (IDE) Toolkits, and command line tools that enable you to+access the API, go to+<https://aws.amazon.com/tools/ Tools for Amazon Web Services>.++__Endpoints__++For a list of region-specific endpoints that AWS Elastic Beanstalk+supports, go to+<http://docs.aws.amazon.com/general/latest/gr/rande.html#elasticbeanstalk_region Regions and Endpoints>+in the /Amazon Web Services Glossary/.+ Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-elasticbeanstalk) and the [AWS API Reference](http://docs.aws.amazon.com/elasticbeanstalk/latest/api/Welcome.html). +The types from this library are intended to be used with [amazonka](http://hackage.haskell.org/package/amazonka),+which provides mechanisms for specifying AuthN/AuthZ information and sending requests.++Use of lenses is required for constructing and manipulating types.+This is due to the amount of nesting of AWS types and transparency regarding+de/serialisation into more palatable Haskell values.+The provided lenses should be compatible with any of the major lens libraries+[lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core).  ## Contribute 

@@ -1,34 +1,57 @@ name:                  amazonka-elasticbeanstalk-version:               0.3.6+version:               1.0.0 synopsis:              Amazon Elastic Beanstalk SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2013-2014 Brendan Hay+copyright:             Copyright (c) 2013-2015 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple extra-source-files:    README.md cabal-version:         >= 1.10  description:-    AWS Elastic Beanstalk is an easy-to-use service for deploying and scaling web-    applications and services developed with Java, .NET, PHP, Node.js, Python,-    Ruby, and Docker on familiar servers such as Apache HTTP Server, Apache-    Tomcat, Nginx, Passenger, and IIS 7.5/8. You can simply upload your code and-    Elastic Beanstalk automatically handles the deployment, from capacity-    provisioning, load balancing, auto-scaling to application health monitoring.-    At the same time, you retain full control over the AWS resources powering-    your application and can access the underlying resources at any time. There-    is no additional charge for Elastic Beanstalk - you pay only for the AWS-    resources needed to store and run your applications.+    AWS Elastic Beanstalk +    This is the AWS Elastic Beanstalk API Reference. This guide provides+    detailed information about AWS Elastic Beanstalk actions, data types,+    parameters, and errors.++    AWS Elastic Beanstalk is a tool that makes it easy for you to create,+    deploy, and manage scalable, fault-tolerant applications running on+    Amazon Web Services cloud resources.++    For more information about this product, go to the+    <http://aws.amazon.com/elasticbeanstalk/ AWS Elastic Beanstalk> details+    page. The location of the latest AWS Elastic Beanstalk WSDL is+    <http://elasticbeanstalk.s3.amazonaws.com/doc/2010-12-01/AWSElasticBeanstalk.wsdl>.+    To install the Software Development Kits (SDKs), Integrated Development+    Environment (IDE) Toolkits, and command line tools that enable you to+    access the API, go to+    <https://aws.amazon.com/tools/ Tools for Amazon Web Services>.++    __Endpoints__++    For a list of region-specific endpoints that AWS Elastic Beanstalk+    supports, go to+    <http://docs.aws.amazon.com/general/latest/gr/rande.html#elasticbeanstalk_region Regions and Endpoints>+    in the /Amazon Web Services Glossary/.     .-    /See:/ <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/Welcome.html AWS API Reference>+    The types from this library are intended to be used with+    <http://hackage.haskell.org/package/amazonka amazonka>, which provides+    mechanisms for specifying AuthN/AuthZ information and sending requests.     .-    /Warning:/ This is an experimental preview release which is still under-    heavy development and not intended for public consumption, caveat emptor!+    Use of lenses is required for constructing and manipulating types.+    This is due to the amount of nesting of AWS types and transparency regarding+    de/serialisation into more palatable Haskell values.+    The provided lenses should be compatible with any of the major lens libraries+    such as <http://hackage.haskell.org/package/lens lens> or+    <http://hackage.haskell.org/package/lens-family-core lens-family-core>.+    .+    See "Network.AWS.ElasticBeanstalk" and the <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/Welcome.html AWS API Reference>+    to get started.  source-repository head     type:     git@@ -57,9 +80,11 @@         , Network.AWS.ElasticBeanstalk.DescribeApplications         , Network.AWS.ElasticBeanstalk.DescribeConfigurationOptions         , Network.AWS.ElasticBeanstalk.DescribeConfigurationSettings+        , Network.AWS.ElasticBeanstalk.DescribeEnvironmentHealth         , Network.AWS.ElasticBeanstalk.DescribeEnvironmentResources         , Network.AWS.ElasticBeanstalk.DescribeEnvironments         , Network.AWS.ElasticBeanstalk.DescribeEvents+        , Network.AWS.ElasticBeanstalk.DescribeInstancesHealth         , Network.AWS.ElasticBeanstalk.ListAvailableSolutionStacks         , Network.AWS.ElasticBeanstalk.RebuildEnvironment         , Network.AWS.ElasticBeanstalk.RequestEnvironmentInfo@@ -73,9 +98,40 @@         , Network.AWS.ElasticBeanstalk.UpdateConfigurationTemplate         , Network.AWS.ElasticBeanstalk.UpdateEnvironment         , Network.AWS.ElasticBeanstalk.ValidateConfigurationSettings+        , Network.AWS.ElasticBeanstalk.Waiters      other-modules:+          Network.AWS.ElasticBeanstalk.Types.Product+        , Network.AWS.ElasticBeanstalk.Types.Sum      build-depends:-          amazonka-core == 0.3.6.*+          amazonka-core == 1.0.0.*         , base          >= 4.7     && < 5++test-suite amazonka-elasticbeanstalk-test+    type:              exitcode-stdio-1.0+    default-language:  Haskell2010+    hs-source-dirs:    test+    main-is:           Main.hs++    ghc-options:       -Wall -threaded++    -- This is not comprehensive if modules have manually been added.+    -- It exists to ensure cabal 'somewhat' detects test module changes.+    other-modules:+          Test.AWS.ElasticBeanstalk+        , Test.AWS.Gen.ElasticBeanstalk+        , Test.AWS.ElasticBeanstalk.Internal++    build-depends:+          amazonka-core == 1.0.0+        , amazonka-test == 1.0.0+        , amazonka-elasticbeanstalk == 1.0.0+        , base+        , bytestring+        , lens+        , tasty+        , tasty-hunit+        , text+        , time+        , unordered-containers

@@ -1,87 +1,570 @@+{-# OPTIONS_GHC -fno-warn-unused-imports    #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElasticBeanstalk--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | AWS Elastic Beanstalk is an easy-to-use service for deploying and scaling web--- applications and services developed with Java, .NET, PHP, Node.js, Python,--- Ruby, and Docker on familiar servers such as Apache HTTP Server, Apache--- Tomcat, Nginx, Passenger, and IIS 7.5/8. You can simply upload your code and--- Elastic Beanstalk automatically handles the deployment, from capacity--- provisioning, load balancing, auto-scaling to application health monitoring.--- At the same time, you retain full control over the AWS resources powering--- your application and can access the underlying resources at any time. There--- is no additional charge for Elastic Beanstalk - you pay only for the AWS--- resources needed to store and run your applications.+-- AWS Elastic Beanstalk+--+-- This is the AWS Elastic Beanstalk API Reference. This guide provides+-- detailed information about AWS Elastic Beanstalk actions, data types,+-- parameters, and errors.+--+-- AWS Elastic Beanstalk is a tool that makes it easy for you to create,+-- deploy, and manage scalable, fault-tolerant applications running on+-- Amazon Web Services cloud resources.+--+-- For more information about this product, go to the+-- <http://aws.amazon.com/elasticbeanstalk/ AWS Elastic Beanstalk> details+-- page. The location of the latest AWS Elastic Beanstalk WSDL is+-- <http://elasticbeanstalk.s3.amazonaws.com/doc/2010-12-01/AWSElasticBeanstalk.wsdl>.+-- To install the Software Development Kits (SDKs), Integrated Development+-- Environment (IDE) Toolkits, and command line tools that enable you to+-- access the API, go to+-- <https://aws.amazon.com/tools/ Tools for Amazon Web Services>.+--+-- __Endpoints__+--+-- For a list of region-specific endpoints that AWS Elastic Beanstalk+-- supports, go to+-- <http://docs.aws.amazon.com/general/latest/gr/rande.html#elasticbeanstalk_region Regions and Endpoints>+-- in the /Amazon Web Services Glossary/.+--+-- /See:/ <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/Welcome.html AWS API Reference> module Network.AWS.ElasticBeanstalk-    ( module Network.AWS.ElasticBeanstalk.AbortEnvironmentUpdate-    , module Network.AWS.ElasticBeanstalk.CheckDNSAvailability-    , module Network.AWS.ElasticBeanstalk.CreateApplication+    (+    -- * Service+      ElasticBeanstalk++    -- * Errors+    -- $errors++    -- ** InvalidRequestException+    , _InvalidRequestException++    -- ** S3SubscriptionRequiredException+    , _S3SubscriptionRequiredException++    -- ** TooManyBucketsException+    , _TooManyBucketsException++    -- ** OperationInProgressException+    , _OperationInProgressException++    -- ** TooManyConfigurationTemplatesException+    , _TooManyConfigurationTemplatesException++    -- ** TooManyApplicationVersionsException+    , _TooManyApplicationVersionsException++    -- ** ElasticBeanstalkServiceException+    , _ElasticBeanstalkServiceException++    -- ** InsufficientPrivilegesException+    , _InsufficientPrivilegesException++    -- ** TooManyApplicationsException+    , _TooManyApplicationsException++    -- ** SourceBundleDeletionException+    , _SourceBundleDeletionException++    -- ** S3LocationNotInServiceRegionException+    , _S3LocationNotInServiceRegionException++    -- ** TooManyEnvironmentsException+    , _TooManyEnvironmentsException++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** DescribeApplications+    , module Network.AWS.ElasticBeanstalk.DescribeApplications++    -- ** CreateApplicationVersion     , module Network.AWS.ElasticBeanstalk.CreateApplicationVersion-    , module Network.AWS.ElasticBeanstalk.CreateConfigurationTemplate-    , module Network.AWS.ElasticBeanstalk.CreateEnvironment-    , module Network.AWS.ElasticBeanstalk.CreateStorageLocation++    -- ** UpdateEnvironment+    , module Network.AWS.ElasticBeanstalk.UpdateEnvironment++    -- ** TerminateEnvironment+    , module Network.AWS.ElasticBeanstalk.TerminateEnvironment++    -- ** DescribeEvents (Paginated)+    , module Network.AWS.ElasticBeanstalk.DescribeEvents++    -- ** RequestEnvironmentInfo+    , module Network.AWS.ElasticBeanstalk.RequestEnvironmentInfo++    -- ** RetrieveEnvironmentInfo+    , module Network.AWS.ElasticBeanstalk.RetrieveEnvironmentInfo++    -- ** DeleteApplication     , module Network.AWS.ElasticBeanstalk.DeleteApplication++    -- ** UpdateApplication+    , module Network.AWS.ElasticBeanstalk.UpdateApplication++    -- ** DescribeInstancesHealth+    , module Network.AWS.ElasticBeanstalk.DescribeInstancesHealth++    -- ** CreateApplication+    , module Network.AWS.ElasticBeanstalk.CreateApplication++    -- ** AbortEnvironmentUpdate+    , module Network.AWS.ElasticBeanstalk.AbortEnvironmentUpdate++    -- ** DeleteApplicationVersion     , module Network.AWS.ElasticBeanstalk.DeleteApplicationVersion++    -- ** UpdateApplicationVersion+    , module Network.AWS.ElasticBeanstalk.UpdateApplicationVersion++    -- ** DescribeEnvironmentResources+    , module Network.AWS.ElasticBeanstalk.DescribeEnvironmentResources++    -- ** DeleteConfigurationTemplate     , module Network.AWS.ElasticBeanstalk.DeleteConfigurationTemplate++    -- ** UpdateConfigurationTemplate+    , module Network.AWS.ElasticBeanstalk.UpdateConfigurationTemplate++    -- ** DescribeEnvironmentHealth+    , module Network.AWS.ElasticBeanstalk.DescribeEnvironmentHealth++    -- ** RebuildEnvironment+    , module Network.AWS.ElasticBeanstalk.RebuildEnvironment++    -- ** DeleteEnvironmentConfiguration     , module Network.AWS.ElasticBeanstalk.DeleteEnvironmentConfiguration-    , module Network.AWS.ElasticBeanstalk.DescribeApplicationVersions-    , module Network.AWS.ElasticBeanstalk.DescribeApplications++    -- ** CreateConfigurationTemplate+    , module Network.AWS.ElasticBeanstalk.CreateConfigurationTemplate++    -- ** ListAvailableSolutionStacks+    , module Network.AWS.ElasticBeanstalk.ListAvailableSolutionStacks++    -- ** SwapEnvironmentCNAMEs+    , module Network.AWS.ElasticBeanstalk.SwapEnvironmentCNAMEs++    -- ** DescribeConfigurationOptions     , module Network.AWS.ElasticBeanstalk.DescribeConfigurationOptions++    -- ** DescribeConfigurationSettings     , module Network.AWS.ElasticBeanstalk.DescribeConfigurationSettings-    , module Network.AWS.ElasticBeanstalk.DescribeEnvironmentResources++    -- ** CreateStorageLocation+    , module Network.AWS.ElasticBeanstalk.CreateStorageLocation++    -- ** DescribeEnvironments     , module Network.AWS.ElasticBeanstalk.DescribeEnvironments-    , module Network.AWS.ElasticBeanstalk.DescribeEvents-    , module Network.AWS.ElasticBeanstalk.ListAvailableSolutionStacks-    , module Network.AWS.ElasticBeanstalk.RebuildEnvironment-    , module Network.AWS.ElasticBeanstalk.RequestEnvironmentInfo++    -- ** RestartAppServer     , module Network.AWS.ElasticBeanstalk.RestartAppServer-    , module Network.AWS.ElasticBeanstalk.RetrieveEnvironmentInfo-    , module Network.AWS.ElasticBeanstalk.SwapEnvironmentCNAMEs-    , module Network.AWS.ElasticBeanstalk.TerminateEnvironment-    , module Network.AWS.ElasticBeanstalk.Types-    , module Network.AWS.ElasticBeanstalk.UpdateApplication-    , module Network.AWS.ElasticBeanstalk.UpdateApplicationVersion-    , module Network.AWS.ElasticBeanstalk.UpdateConfigurationTemplate-    , module Network.AWS.ElasticBeanstalk.UpdateEnvironment++    -- ** ValidateConfigurationSettings     , module Network.AWS.ElasticBeanstalk.ValidateConfigurationSettings++    -- ** DescribeApplicationVersions+    , module Network.AWS.ElasticBeanstalk.DescribeApplicationVersions++    -- ** CheckDNSAvailability+    , module Network.AWS.ElasticBeanstalk.CheckDNSAvailability++    -- ** CreateEnvironment+    , module Network.AWS.ElasticBeanstalk.CreateEnvironment++    -- * Types++    -- ** ConfigurationDeploymentStatus+    , ConfigurationDeploymentStatus (..)++    -- ** ConfigurationOptionValueType+    , ConfigurationOptionValueType (..)++    -- ** EnvironmentHealth+    , EnvironmentHealth (..)++    -- ** EnvironmentHealthAttribute+    , EnvironmentHealthAttribute (..)++    -- ** EnvironmentHealthStatus+    , EnvironmentHealthStatus (..)++    -- ** EnvironmentInfoType+    , EnvironmentInfoType (..)++    -- ** EnvironmentStatus+    , EnvironmentStatus (..)++    -- ** EventSeverity+    , EventSeverity (..)++    -- ** InstancesHealthAttribute+    , InstancesHealthAttribute (..)++    -- ** ValidationSeverity+    , ValidationSeverity (..)++    -- ** ApplicationDescription+    , ApplicationDescription+    , applicationDescription+    , adDateUpdated+    , adVersions+    , adDateCreated+    , adApplicationName+    , adConfigurationTemplates+    , adDescription++    -- ** ApplicationDescriptionMessage+    , ApplicationDescriptionMessage+    , applicationDescriptionMessage+    , admApplication++    -- ** ApplicationMetrics+    , ApplicationMetrics+    , applicationMetrics+    , amRequestCount+    , amLatency+    , amStatusCodes+    , amDuration++    -- ** ApplicationVersionDescription+    , ApplicationVersionDescription+    , applicationVersionDescription+    , avdDateUpdated+    , avdSourceBundle+    , avdVersionLabel+    , avdDateCreated+    , avdApplicationName+    , avdDescription++    -- ** ApplicationVersionDescriptionMessage+    , ApplicationVersionDescriptionMessage+    , applicationVersionDescriptionMessage+    , avdmApplicationVersion++    -- ** AutoScalingGroup+    , AutoScalingGroup+    , autoScalingGroup+    , asgName++    -- ** CPUUtilization+    , CPUUtilization+    , cpuUtilization+    , cuIdle+    , cuSoftIRQ+    , cuIRQ+    , cuSystem+    , cuUser+    , cuIOWait+    , cuNice++    -- ** ConfigurationOptionDescription+    , ConfigurationOptionDescription+    , configurationOptionDescription+    , codMaxValue+    , codRegex+    , codUserDefined+    , codMaxLength+    , codValueOptions+    , codNamespace+    , codName+    , codChangeSeverity+    , codDefaultValue+    , codValueType+    , codMinValue++    -- ** ConfigurationOptionSetting+    , ConfigurationOptionSetting+    , configurationOptionSetting+    , cosOptionName+    , cosResourceName+    , cosValue+    , cosNamespace++    -- ** ConfigurationSettingsDescription+    , ConfigurationSettingsDescription+    , configurationSettingsDescription+    , csdTemplateName+    , csdOptionSettings+    , csdDateUpdated+    , csdDateCreated+    , csdEnvironmentName+    , csdApplicationName+    , csdDeploymentStatus+    , csdSolutionStackName+    , csdDescription++    -- ** EnvironmentDescription+    , EnvironmentDescription+    , environmentDescription+    , eCNAME+    , eStatus+    , eTemplateName+    , eAbortableOperationInProgress+    , eEndpointURL+    , eDateUpdated+    , eResources+    , eHealth+    , eVersionLabel+    , eDateCreated+    , eTier+    , eEnvironmentName+    , eApplicationName+    , eHealthStatus+    , eEnvironmentId+    , eSolutionStackName+    , eDescription++    -- ** EnvironmentInfoDescription+    , EnvironmentInfoDescription+    , environmentInfoDescription+    , eidSampleTimestamp+    , eidEC2InstanceId+    , eidInfoType+    , eidMessage++    -- ** EnvironmentResourceDescription+    , EnvironmentResourceDescription+    , environmentResourceDescription+    , erdQueues+    , erdTriggers+    , erdLoadBalancers+    , erdInstances+    , erdEnvironmentName+    , erdLaunchConfigurations+    , erdAutoScalingGroups++    -- ** EnvironmentResourcesDescription+    , EnvironmentResourcesDescription+    , environmentResourcesDescription+    , erdLoadBalancer++    -- ** EnvironmentTier+    , EnvironmentTier+    , environmentTier+    , etName+    , etVersion+    , etType++    -- ** EventDescription+    , EventDescription+    , eventDescription+    , edRequestId+    , edTemplateName+    , edSeverity+    , edVersionLabel+    , edEnvironmentName+    , edApplicationName+    , edEventDate+    , edMessage++    -- ** Instance+    , Instance+    , instance'+    , iId++    -- ** InstanceHealthSummary+    , InstanceHealthSummary+    , instanceHealthSummary+    , ihsOK+    , ihsPending+    , ihsSevere+    , ihsUnknown+    , ihsNoData+    , ihsWarning+    , ihsDegraded+    , ihsInfo++    -- ** Latency+    , Latency+    , latency+    , lP75+    , lP50+    , lP85+    , lP999+    , lP90+    , lP95+    , lP99+    , lP10++    -- ** LaunchConfiguration+    , LaunchConfiguration+    , launchConfiguration+    , lcName++    -- ** Listener+    , Listener+    , listener+    , lProtocol+    , lPort++    -- ** LoadBalancer+    , LoadBalancer+    , loadBalancer+    , lbName++    -- ** LoadBalancerDescription+    , LoadBalancerDescription+    , loadBalancerDescription+    , lbdLoadBalancerName+    , lbdDomain+    , lbdListeners++    -- ** OptionRestrictionRegex+    , OptionRestrictionRegex+    , optionRestrictionRegex+    , orrPattern+    , orrLabel++    -- ** OptionSpecification+    , OptionSpecification+    , optionSpecification+    , osOptionName+    , osResourceName+    , osNamespace++    -- ** Queue+    , Queue+    , queue+    , qURL+    , qName++    -- ** S3Location+    , S3Location+    , s3Location+    , slS3Key+    , slS3Bucket++    -- ** SingleInstanceHealth+    , SingleInstanceHealth+    , singleInstanceHealth+    , sihInstanceId+    , sihCauses+    , sihApplicationMetrics+    , sihColor+    , sihSystem+    , sihHealthStatus+    , sihLaunchedAt++    -- ** SolutionStackDescription+    , SolutionStackDescription+    , solutionStackDescription+    , ssdPermittedFileTypes+    , ssdSolutionStackName++    -- ** SourceConfiguration+    , SourceConfiguration+    , sourceConfiguration+    , scTemplateName+    , scApplicationName++    -- ** StatusCodes+    , StatusCodes+    , statusCodes+    , scStatus2xx+    , scStatus3xx+    , scStatus4xx+    , scStatus5xx++    -- ** SystemStatus+    , SystemStatus+    , systemStatus+    , ssCPUUtilization+    , ssLoadAverage++    -- ** Tag+    , Tag+    , tag+    , tagValue+    , tagKey++    -- ** Trigger+    , Trigger+    , trigger+    , tName++    -- ** ValidationMessage+    , ValidationMessage+    , validationMessage+    , vmOptionName+    , vmSeverity+    , vmNamespace+    , vmMessage     ) where -import Network.AWS.ElasticBeanstalk.AbortEnvironmentUpdate-import Network.AWS.ElasticBeanstalk.CheckDNSAvailability-import Network.AWS.ElasticBeanstalk.CreateApplication-import Network.AWS.ElasticBeanstalk.CreateApplicationVersion-import Network.AWS.ElasticBeanstalk.CreateConfigurationTemplate-import Network.AWS.ElasticBeanstalk.CreateEnvironment-import Network.AWS.ElasticBeanstalk.CreateStorageLocation-import Network.AWS.ElasticBeanstalk.DeleteApplication-import Network.AWS.ElasticBeanstalk.DeleteApplicationVersion-import Network.AWS.ElasticBeanstalk.DeleteConfigurationTemplate-import Network.AWS.ElasticBeanstalk.DeleteEnvironmentConfiguration-import Network.AWS.ElasticBeanstalk.DescribeApplicationVersions-import Network.AWS.ElasticBeanstalk.DescribeApplications-import Network.AWS.ElasticBeanstalk.DescribeConfigurationOptions-import Network.AWS.ElasticBeanstalk.DescribeConfigurationSettings-import Network.AWS.ElasticBeanstalk.DescribeEnvironmentResources-import Network.AWS.ElasticBeanstalk.DescribeEnvironments-import Network.AWS.ElasticBeanstalk.DescribeEvents-import Network.AWS.ElasticBeanstalk.ListAvailableSolutionStacks-import Network.AWS.ElasticBeanstalk.RebuildEnvironment-import Network.AWS.ElasticBeanstalk.RequestEnvironmentInfo-import Network.AWS.ElasticBeanstalk.RestartAppServer-import Network.AWS.ElasticBeanstalk.RetrieveEnvironmentInfo-import Network.AWS.ElasticBeanstalk.SwapEnvironmentCNAMEs-import Network.AWS.ElasticBeanstalk.TerminateEnvironment-import Network.AWS.ElasticBeanstalk.Types-import Network.AWS.ElasticBeanstalk.UpdateApplication-import Network.AWS.ElasticBeanstalk.UpdateApplicationVersion-import Network.AWS.ElasticBeanstalk.UpdateConfigurationTemplate-import Network.AWS.ElasticBeanstalk.UpdateEnvironment-import Network.AWS.ElasticBeanstalk.ValidateConfigurationSettings+import           Network.AWS.ElasticBeanstalk.AbortEnvironmentUpdate+import           Network.AWS.ElasticBeanstalk.CheckDNSAvailability+import           Network.AWS.ElasticBeanstalk.CreateApplication+import           Network.AWS.ElasticBeanstalk.CreateApplicationVersion+import           Network.AWS.ElasticBeanstalk.CreateConfigurationTemplate+import           Network.AWS.ElasticBeanstalk.CreateEnvironment+import           Network.AWS.ElasticBeanstalk.CreateStorageLocation+import           Network.AWS.ElasticBeanstalk.DeleteApplication+import           Network.AWS.ElasticBeanstalk.DeleteApplicationVersion+import           Network.AWS.ElasticBeanstalk.DeleteConfigurationTemplate+import           Network.AWS.ElasticBeanstalk.DeleteEnvironmentConfiguration+import           Network.AWS.ElasticBeanstalk.DescribeApplications+import           Network.AWS.ElasticBeanstalk.DescribeApplicationVersions+import           Network.AWS.ElasticBeanstalk.DescribeConfigurationOptions+import           Network.AWS.ElasticBeanstalk.DescribeConfigurationSettings+import           Network.AWS.ElasticBeanstalk.DescribeEnvironmentHealth+import           Network.AWS.ElasticBeanstalk.DescribeEnvironmentResources+import           Network.AWS.ElasticBeanstalk.DescribeEnvironments+import           Network.AWS.ElasticBeanstalk.DescribeEvents+import           Network.AWS.ElasticBeanstalk.DescribeInstancesHealth+import           Network.AWS.ElasticBeanstalk.ListAvailableSolutionStacks+import           Network.AWS.ElasticBeanstalk.RebuildEnvironment+import           Network.AWS.ElasticBeanstalk.RequestEnvironmentInfo+import           Network.AWS.ElasticBeanstalk.RestartAppServer+import           Network.AWS.ElasticBeanstalk.RetrieveEnvironmentInfo+import           Network.AWS.ElasticBeanstalk.SwapEnvironmentCNAMEs+import           Network.AWS.ElasticBeanstalk.TerminateEnvironment+import           Network.AWS.ElasticBeanstalk.Types+import           Network.AWS.ElasticBeanstalk.UpdateApplication+import           Network.AWS.ElasticBeanstalk.UpdateApplicationVersion+import           Network.AWS.ElasticBeanstalk.UpdateConfigurationTemplate+import           Network.AWS.ElasticBeanstalk.UpdateEnvironment+import           Network.AWS.ElasticBeanstalk.ValidateConfigurationSettings+import           Network.AWS.ElasticBeanstalk.Waiters++{- $errors+Error matchers are designed for use with the functions provided by+<http://hackage.haskell.org/package/lens/docs/Control-Exception-Lens.html Control.Exception.Lens>.+This allows catching (and rethrowing) service specific errors returned+by 'ElasticBeanstalk'.+-}++{- $operations+Some AWS operations return results that are incomplete and require subsequent+requests in order to obtain the entire result set. The process of sending+subsequent requests to continue where a previous request left off is called+pagination. For example, the 'ListObjects' operation of Amazon S3 returns up to+1000 objects at a time, and you must send subsequent requests with the+appropriate Marker in order to retrieve the next page of results.++Operations that have an 'AWSPager' instance can transparently perform subsequent+requests, correctly setting Markers and other request facets to iterate through+the entire result set of a truncated API operation. Operations which support+this have an additional note in the documentation.++Many operations have the ability to filter results on the server side. See the+individual operation parameters for details.+-}++{- $waiters+Waiters poll by repeatedly sending a request until some remote success condition+configured by the 'Wait' specification is fulfilled. The 'Wait' specification+determines how many attempts should be made, in addition to delay and retry strategies.+-}

@@ -1,103 +1,110 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElasticBeanstalk.AbortEnvironmentUpdate--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Cancels in-progress environment configuration update or application version--- deployment.+-- Cancels in-progress environment configuration update or application+-- version deployment. ----- <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_AbortEnvironmentUpdate.html>+-- /See:/ <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_AbortEnvironmentUpdate.html AWS API Reference> for AbortEnvironmentUpdate. module Network.AWS.ElasticBeanstalk.AbortEnvironmentUpdate     (-    -- * Request-      AbortEnvironmentUpdate-    -- ** Request constructor-    , abortEnvironmentUpdate-    -- ** Request lenses-    , aeuEnvironmentId+    -- * Creating a Request+      abortEnvironmentUpdate+    , AbortEnvironmentUpdate+    -- * Request Lenses     , aeuEnvironmentName+    , aeuEnvironmentId -    -- * Response-    , AbortEnvironmentUpdateResponse-    -- ** Response constructor+    -- * Destructuring the Response     , abortEnvironmentUpdateResponse+    , AbortEnvironmentUpdateResponse     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElasticBeanstalk.Types-import qualified GHC.Exts--data AbortEnvironmentUpdate = AbortEnvironmentUpdate-    { _aeuEnvironmentId   :: Maybe Text-    , _aeuEnvironmentName :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.ElasticBeanstalk.Types+import           Network.AWS.ElasticBeanstalk.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'AbortEnvironmentUpdate' constructor.+-- | ----- The fields accessible through corresponding lenses are:+-- /See:/ 'abortEnvironmentUpdate' smart constructor.+data AbortEnvironmentUpdate = AbortEnvironmentUpdate'+    { _aeuEnvironmentName :: !(Maybe Text)+    , _aeuEnvironmentId   :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AbortEnvironmentUpdate' with the minimum fields required to make a request. ----- * 'aeuEnvironmentId' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'aeuEnvironmentName' @::@ 'Maybe' 'Text'+-- * 'aeuEnvironmentName' ---abortEnvironmentUpdate :: AbortEnvironmentUpdate-abortEnvironmentUpdate = AbortEnvironmentUpdate-    { _aeuEnvironmentId   = Nothing-    , _aeuEnvironmentName = Nothing+-- * 'aeuEnvironmentId'+abortEnvironmentUpdate+    :: AbortEnvironmentUpdate+abortEnvironmentUpdate =+    AbortEnvironmentUpdate'+    { _aeuEnvironmentName = Nothing+    , _aeuEnvironmentId = Nothing     } --- | This specifies the ID of the environment with the in-progress update that you--- want to cancel.-aeuEnvironmentId :: Lens' AbortEnvironmentUpdate (Maybe Text)-aeuEnvironmentId = lens _aeuEnvironmentId (\s a -> s { _aeuEnvironmentId = a })---- | This specifies the name of the environment with the in-progress update that--- you want to cancel.+-- | This specifies the name of the environment with the in-progress update+-- that you want to cancel. aeuEnvironmentName :: Lens' AbortEnvironmentUpdate (Maybe Text)-aeuEnvironmentName =-    lens _aeuEnvironmentName (\s a -> s { _aeuEnvironmentName = a })+aeuEnvironmentName = lens _aeuEnvironmentName (\ s a -> s{_aeuEnvironmentName = a}); -data AbortEnvironmentUpdateResponse = AbortEnvironmentUpdateResponse-    deriving (Eq, Ord, Read, Show, Generic)+-- | This specifies the ID of the environment with the in-progress update+-- that you want to cancel.+aeuEnvironmentId :: Lens' AbortEnvironmentUpdate (Maybe Text)+aeuEnvironmentId = lens _aeuEnvironmentId (\ s a -> s{_aeuEnvironmentId = a}); --- | 'AbortEnvironmentUpdateResponse' constructor.-abortEnvironmentUpdateResponse :: AbortEnvironmentUpdateResponse-abortEnvironmentUpdateResponse = AbortEnvironmentUpdateResponse+instance AWSRequest AbortEnvironmentUpdate where+        type Sv AbortEnvironmentUpdate = ElasticBeanstalk+        type Rs AbortEnvironmentUpdate =+             AbortEnvironmentUpdateResponse+        request = postQuery+        response+          = receiveNull AbortEnvironmentUpdateResponse' +instance ToHeaders AbortEnvironmentUpdate where+        toHeaders = const mempty+ instance ToPath AbortEnvironmentUpdate where-    toPath = const "/"+        toPath = const "/"  instance ToQuery AbortEnvironmentUpdate where-    toQuery AbortEnvironmentUpdate{..} = mconcat-        [ "EnvironmentId"   =? _aeuEnvironmentId-        , "EnvironmentName" =? _aeuEnvironmentName-        ]--instance ToHeaders AbortEnvironmentUpdate+        toQuery AbortEnvironmentUpdate'{..}+          = mconcat+              ["Action" =:+                 ("AbortEnvironmentUpdate" :: ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "EnvironmentName" =: _aeuEnvironmentName,+               "EnvironmentId" =: _aeuEnvironmentId] -instance AWSRequest AbortEnvironmentUpdate where-    type Sv AbortEnvironmentUpdate = ElasticBeanstalk-    type Rs AbortEnvironmentUpdate = AbortEnvironmentUpdateResponse+-- | /See:/ 'abortEnvironmentUpdateResponse' smart constructor.+data AbortEnvironmentUpdateResponse =+    AbortEnvironmentUpdateResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic) -    request  = post "AbortEnvironmentUpdate"-    response = nullResponse AbortEnvironmentUpdateResponse+-- | Creates a value of 'AbortEnvironmentUpdateResponse' with the minimum fields required to make a request.+--+abortEnvironmentUpdateResponse+    :: AbortEnvironmentUpdateResponse+abortEnvironmentUpdateResponse = AbortEnvironmentUpdateResponse'

@@ -1,127 +1,142 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElasticBeanstalk.CheckDNSAvailability--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Checks if the specified CNAME is available.+-- Checks if the specified CNAME is available. ----- <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_CheckDNSAvailability.html>+-- /See:/ <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_CheckDNSAvailability.html AWS API Reference> for CheckDNSAvailability. module Network.AWS.ElasticBeanstalk.CheckDNSAvailability     (-    -- * Request-      CheckDNSAvailability-    -- ** Request constructor-    , checkDNSAvailability-    -- ** Request lenses-    , cdnsaCNAMEPrefix+    -- * Creating a Request+      checkDNSAvailability+    , CheckDNSAvailability+    -- * Request Lenses+    , cdaCNAMEPrefix -    -- * Response-    , CheckDNSAvailabilityResponse-    -- ** Response constructor+    -- * Destructuring the Response     , checkDNSAvailabilityResponse-    -- ** Response lenses-    , cdnsarAvailable-    , cdnsarFullyQualifiedCNAME+    , CheckDNSAvailabilityResponse+    -- * Response Lenses+    , cdarsFullyQualifiedCNAME+    , cdarsAvailable+    , cdarsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElasticBeanstalk.Types-import qualified GHC.Exts--newtype CheckDNSAvailability = CheckDNSAvailability-    { _cdnsaCNAMEPrefix :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+import           Network.AWS.ElasticBeanstalk.Types+import           Network.AWS.ElasticBeanstalk.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'CheckDNSAvailability' constructor.+-- | Results message indicating whether a CNAME is available. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'checkDNSAvailability' smart constructor.+newtype CheckDNSAvailability = CheckDNSAvailability'+    { _cdaCNAMEPrefix :: Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CheckDNSAvailability' with the minimum fields required to make a request. ----- * 'cdnsaCNAMEPrefix' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---checkDNSAvailability :: Text -- ^ 'cdnsaCNAMEPrefix'-                     -> CheckDNSAvailability-checkDNSAvailability p1 = CheckDNSAvailability-    { _cdnsaCNAMEPrefix = p1+-- * 'cdaCNAMEPrefix'+checkDNSAvailability+    :: Text -- ^ 'cdaCNAMEPrefix'+    -> CheckDNSAvailability+checkDNSAvailability pCNAMEPrefix_ =+    CheckDNSAvailability'+    { _cdaCNAMEPrefix = pCNAMEPrefix_     }  -- | The prefix used when this CNAME is reserved.-cdnsaCNAMEPrefix :: Lens' CheckDNSAvailability Text-cdnsaCNAMEPrefix = lens _cdnsaCNAMEPrefix (\s a -> s { _cdnsaCNAMEPrefix = a })+cdaCNAMEPrefix :: Lens' CheckDNSAvailability Text+cdaCNAMEPrefix = lens _cdaCNAMEPrefix (\ s a -> s{_cdaCNAMEPrefix = a}); -data CheckDNSAvailabilityResponse = CheckDNSAvailabilityResponse-    { _cdnsarAvailable           :: Maybe Bool-    , _cdnsarFullyQualifiedCNAME :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+instance AWSRequest CheckDNSAvailability where+        type Sv CheckDNSAvailability = ElasticBeanstalk+        type Rs CheckDNSAvailability =+             CheckDNSAvailabilityResponse+        request = postQuery+        response+          = receiveXMLWrapper "CheckDNSAvailabilityResult"+              (\ s h x ->+                 CheckDNSAvailabilityResponse' <$>+                   (x .@? "FullyQualifiedCNAME") <*> (x .@? "Available")+                     <*> (pure (fromEnum s))) --- | 'CheckDNSAvailabilityResponse' constructor.+instance ToHeaders CheckDNSAvailability where+        toHeaders = const mempty++instance ToPath CheckDNSAvailability where+        toPath = const "/"++instance ToQuery CheckDNSAvailability where+        toQuery CheckDNSAvailability'{..}+          = mconcat+              ["Action" =: ("CheckDNSAvailability" :: ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "CNAMEPrefix" =: _cdaCNAMEPrefix]++-- | Indicates if the specified CNAME is available. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'checkDNSAvailabilityResponse' smart constructor.+data CheckDNSAvailabilityResponse = CheckDNSAvailabilityResponse'+    { _cdarsFullyQualifiedCNAME :: !(Maybe Text)+    , _cdarsAvailable           :: !(Maybe Bool)+    , _cdarsStatus              :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CheckDNSAvailabilityResponse' with the minimum fields required to make a request. ----- * 'cdnsarAvailable' @::@ 'Maybe' 'Bool'+-- Use one of the following lenses to modify other fields as desired: ----- * 'cdnsarFullyQualifiedCNAME' @::@ 'Maybe' 'Text'+-- * 'cdarsFullyQualifiedCNAME' ---checkDNSAvailabilityResponse :: CheckDNSAvailabilityResponse-checkDNSAvailabilityResponse = CheckDNSAvailabilityResponse-    { _cdnsarAvailable           = Nothing-    , _cdnsarFullyQualifiedCNAME = Nothing+-- * 'cdarsAvailable'+--+-- * 'cdarsStatus'+checkDNSAvailabilityResponse+    :: Int -- ^ 'cdarsStatus'+    -> CheckDNSAvailabilityResponse+checkDNSAvailabilityResponse pStatus_ =+    CheckDNSAvailabilityResponse'+    { _cdarsFullyQualifiedCNAME = Nothing+    , _cdarsAvailable = Nothing+    , _cdarsStatus = pStatus_     } +-- | The fully qualified CNAME to reserve when CreateEnvironment is called+-- with the provided prefix.+cdarsFullyQualifiedCNAME :: Lens' CheckDNSAvailabilityResponse (Maybe Text)+cdarsFullyQualifiedCNAME = lens _cdarsFullyQualifiedCNAME (\ s a -> s{_cdarsFullyQualifiedCNAME = a});+ -- | Indicates if the specified CNAME is available: -- -- 'true' : The CNAME is available. -- -- 'true' : The CNAME is not available. ----- 'true' : The CNAME is available.   'false' : The CNAME is not available.-cdnsarAvailable :: Lens' CheckDNSAvailabilityResponse (Maybe Bool)-cdnsarAvailable = lens _cdnsarAvailable (\s a -> s { _cdnsarAvailable = a })---- | The fully qualified CNAME to reserve when 'CreateEnvironment' is called with--- the provided prefix.-cdnsarFullyQualifiedCNAME :: Lens' CheckDNSAvailabilityResponse (Maybe Text)-cdnsarFullyQualifiedCNAME =-    lens _cdnsarFullyQualifiedCNAME-        (\s a -> s { _cdnsarFullyQualifiedCNAME = a })--instance ToPath CheckDNSAvailability where-    toPath = const "/"--instance ToQuery CheckDNSAvailability where-    toQuery CheckDNSAvailability{..} = mconcat-        [ "CNAMEPrefix" =? _cdnsaCNAMEPrefix-        ]--instance ToHeaders CheckDNSAvailability--instance AWSRequest CheckDNSAvailability where-    type Sv CheckDNSAvailability = ElasticBeanstalk-    type Rs CheckDNSAvailability = CheckDNSAvailabilityResponse--    request  = post "CheckDNSAvailability"-    response = xmlResponse+-- -   'true' : The CNAME is available.+-- -   'false' : The CNAME is not available.+cdarsAvailable :: Lens' CheckDNSAvailabilityResponse (Maybe Bool)+cdarsAvailable = lens _cdarsAvailable (\ s a -> s{_cdarsAvailable = a}); -instance FromXML CheckDNSAvailabilityResponse where-    parseXML = withElement "CheckDNSAvailabilityResult" $ \x -> CheckDNSAvailabilityResponse-        <$> x .@? "Available"-        <*> x .@? "FullyQualifiedCNAME"+-- | The response status code.+cdarsStatus :: Lens' CheckDNSAvailabilityResponse Int+cdarsStatus = lens _cdarsStatus (\ s a -> s{_cdarsStatus = a});

@@ -1,123 +1,104 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElasticBeanstalk.CreateApplication--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Creates an application that has one configuration template named 'default' and--- no application versions.+-- Creates an application that has one configuration template named+-- 'default' and no application versions. ----- <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_CreateApplication.html>+-- /See:/ <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_CreateApplication.html AWS API Reference> for CreateApplication. module Network.AWS.ElasticBeanstalk.CreateApplication     (-    -- * Request-      CreateApplication-    -- ** Request constructor-    , createApplication-    -- ** Request lenses-    , caApplicationName+    -- * Creating a Request+      createApplication+    , CreateApplication+    -- * Request Lenses     , caDescription+    , caApplicationName -    -- * Response-    , CreateApplicationResponse-    -- ** Response constructor-    , createApplicationResponse-    -- ** Response lenses-    , carApplication+    -- * Destructuring the Response+    , applicationDescriptionMessage+    , ApplicationDescriptionMessage+    -- * Response Lenses+    , admApplication     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElasticBeanstalk.Types-import qualified GHC.Exts--data CreateApplication = CreateApplication-    { _caApplicationName :: Text-    , _caDescription     :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.ElasticBeanstalk.Types+import           Network.AWS.ElasticBeanstalk.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'CreateApplication' constructor.+-- | This documentation target is not reported in the API reference. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'createApplication' smart constructor.+data CreateApplication = CreateApplication'+    { _caDescription     :: !(Maybe Text)+    , _caApplicationName :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateApplication' with the minimum fields required to make a request. ----- * 'caApplicationName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'caDescription' @::@ 'Maybe' 'Text'+-- * 'caDescription' ---createApplication :: Text -- ^ 'caApplicationName'-                  -> CreateApplication-createApplication p1 = CreateApplication-    { _caApplicationName = p1-    , _caDescription     = Nothing+-- * 'caApplicationName'+createApplication+    :: Text -- ^ 'caApplicationName'+    -> CreateApplication+createApplication pApplicationName_ =+    CreateApplication'+    { _caDescription = Nothing+    , _caApplicationName = pApplicationName_     } --- | The name of the application.------ Constraint: This name must be unique within your account. If the specified--- name already exists, the action returns an 'InvalidParameterValue' error.-caApplicationName :: Lens' CreateApplication Text-caApplicationName =-    lens _caApplicationName (\s a -> s { _caApplicationName = a })- -- | Describes the application. caDescription :: Lens' CreateApplication (Maybe Text)-caDescription = lens _caDescription (\s a -> s { _caDescription = a })--newtype CreateApplicationResponse = CreateApplicationResponse-    { _carApplication :: Maybe ApplicationDescription-    } deriving (Eq, Read, Show)+caDescription = lens _caDescription (\ s a -> s{_caDescription = a}); --- | 'CreateApplicationResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'carApplication' @::@ 'Maybe' 'ApplicationDescription'+-- | The name of the application. ---createApplicationResponse :: CreateApplicationResponse-createApplicationResponse = CreateApplicationResponse-    { _carApplication = Nothing-    }+-- Constraint: This name must be unique within your account. If the+-- specified name already exists, the action returns an+-- 'InvalidParameterValue' error.+caApplicationName :: Lens' CreateApplication Text+caApplicationName = lens _caApplicationName (\ s a -> s{_caApplicationName = a}); --- | The 'ApplicationDescription' of the application.-carApplication :: Lens' CreateApplicationResponse (Maybe ApplicationDescription)-carApplication = lens _carApplication (\s a -> s { _carApplication = a })+instance AWSRequest CreateApplication where+        type Sv CreateApplication = ElasticBeanstalk+        type Rs CreateApplication =+             ApplicationDescriptionMessage+        request = postQuery+        response+          = receiveXMLWrapper "CreateApplicationResult"+              (\ s h x -> parseXML x) +instance ToHeaders CreateApplication where+        toHeaders = const mempty+ instance ToPath CreateApplication where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateApplication where-    toQuery CreateApplication{..} = mconcat-        [ "ApplicationName" =? _caApplicationName-        , "Description"     =? _caDescription-        ]--instance ToHeaders CreateApplication--instance AWSRequest CreateApplication where-    type Sv CreateApplication = ElasticBeanstalk-    type Rs CreateApplication = CreateApplicationResponse--    request  = post "CreateApplication"-    response = xmlResponse--instance FromXML CreateApplicationResponse where-    parseXML = withElement "CreateApplicationResult" $ \x -> CreateApplicationResponse-        <$> x .@? "Application"+        toQuery CreateApplication'{..}+          = mconcat+              ["Action" =: ("CreateApplication" :: ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "Description" =: _caDescription,+               "ApplicationName" =: _caApplicationName]

@@ -1,186 +1,169 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElasticBeanstalk.CreateApplicationVersion--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Creates an application version for the specified application.+-- Creates an application version for the specified application. ----- Once you create an application version with a specified Amazon S3 bucket and--- key location, you cannot change that Amazon S3 location. If you change the--- Amazon S3 location, you receive an exception when you attempt to launch an--- environment from the application version.+-- Once you create an application version with a specified Amazon S3 bucket+-- and key location, you cannot change that Amazon S3 location. If you+-- change the Amazon S3 location, you receive an exception when you attempt+-- to launch an environment from the application version. ----- <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_CreateApplicationVersion.html>+-- /See:/ <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_CreateApplicationVersion.html AWS API Reference> for CreateApplicationVersion. module Network.AWS.ElasticBeanstalk.CreateApplicationVersion     (-    -- * Request-      CreateApplicationVersion-    -- ** Request constructor-    , createApplicationVersion-    -- ** Request lenses-    , cavApplicationName+    -- * Creating a Request+      createApplicationVersion+    , CreateApplicationVersion+    -- * Request Lenses+    , cavSourceBundle     , cavAutoCreateApplication     , cavDescription-    , cavSourceBundle+    , cavApplicationName     , cavVersionLabel -    -- * Response-    , CreateApplicationVersionResponse-    -- ** Response constructor-    , createApplicationVersionResponse-    -- ** Response lenses-    , cavrApplicationVersion+    -- * Destructuring the Response+    , applicationVersionDescriptionMessage+    , ApplicationVersionDescriptionMessage+    -- * Response Lenses+    , avdmApplicationVersion     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElasticBeanstalk.Types-import qualified GHC.Exts--data CreateApplicationVersion = CreateApplicationVersion-    { _cavApplicationName       :: Text-    , _cavAutoCreateApplication :: Maybe Bool-    , _cavDescription           :: Maybe Text-    , _cavSourceBundle          :: Maybe S3Location-    , _cavVersionLabel          :: Text-    } deriving (Eq, Read, Show)+import           Network.AWS.ElasticBeanstalk.Types+import           Network.AWS.ElasticBeanstalk.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'CreateApplicationVersion' constructor.+-- | ----- The fields accessible through corresponding lenses are:+-- /See:/ 'createApplicationVersion' smart constructor.+data CreateApplicationVersion = CreateApplicationVersion'+    { _cavSourceBundle          :: !(Maybe S3Location)+    , _cavAutoCreateApplication :: !(Maybe Bool)+    , _cavDescription           :: !(Maybe Text)+    , _cavApplicationName       :: !Text+    , _cavVersionLabel          :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateApplicationVersion' with the minimum fields required to make a request. ----- * 'cavApplicationName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'cavAutoCreateApplication' @::@ 'Maybe' 'Bool'+-- * 'cavSourceBundle' ----- * 'cavDescription' @::@ 'Maybe' 'Text'+-- * 'cavAutoCreateApplication' ----- * 'cavSourceBundle' @::@ 'Maybe' 'S3Location'+-- * 'cavDescription' ----- * 'cavVersionLabel' @::@ 'Text'+-- * 'cavApplicationName' ---createApplicationVersion :: Text -- ^ 'cavApplicationName'-                         -> Text -- ^ 'cavVersionLabel'-                         -> CreateApplicationVersion-createApplicationVersion p1 p2 = CreateApplicationVersion-    { _cavApplicationName       = p1-    , _cavVersionLabel          = p2-    , _cavDescription           = Nothing-    , _cavSourceBundle          = Nothing+-- * 'cavVersionLabel'+createApplicationVersion+    :: Text -- ^ 'cavApplicationName'+    -> Text -- ^ 'cavVersionLabel'+    -> CreateApplicationVersion+createApplicationVersion pApplicationName_ pVersionLabel_ =+    CreateApplicationVersion'+    { _cavSourceBundle = Nothing     , _cavAutoCreateApplication = Nothing+    , _cavDescription = Nothing+    , _cavApplicationName = pApplicationName_+    , _cavVersionLabel = pVersionLabel_     } --- | The name of the application. If no application is found with this name, and 'AutoCreateApplication' is 'false', returns an 'InvalidParameterValue' error.-cavApplicationName :: Lens' CreateApplicationVersion Text-cavApplicationName =-    lens _cavApplicationName (\s a -> s { _cavApplicationName = a })+-- | The Amazon S3 bucket and key that identify the location of the source+-- bundle for this version.+--+-- If data found at the Amazon S3 location exceeds the maximum allowed+-- source bundle size, AWS Elastic Beanstalk returns an+-- 'InvalidParameterValue' error. The maximum size allowed is 512 MB.+--+-- Default: If not specified, AWS Elastic Beanstalk uses a sample+-- application. If only partially specified (for example, a bucket is+-- provided but not the key) or if no data is found at the Amazon S3+-- location, AWS Elastic Beanstalk returns an 'InvalidParameterCombination'+-- error.+cavSourceBundle :: Lens' CreateApplicationVersion (Maybe S3Location)+cavSourceBundle = lens _cavSourceBundle (\ s a -> s{_cavSourceBundle = a});  -- | Determines how the system behaves if the specified application for this -- version does not already exist: ----- 'true': Automatically creates the specified application for this version if--- it does not already exist.+-- 'true': Automatically creates the specified application for this version+-- if it does not already exist. ----- 'false': Returns an 'InvalidParameterValue' if the specified application for--- this version does not already exist.+-- 'false': Returns an 'InvalidParameterValue' if the specified application+-- for this version does not already exist. ----- 'true' : Automatically creates the specified application for this release--- if it does not already exist.   'false' : Throws an 'InvalidParameterValue' if--- the specified application for this release does not already exist.+-- -   'true' : Automatically creates the specified application for this+--     release if it does not already exist.+-- -   'false' : Throws an 'InvalidParameterValue' if the specified+--     application for this release does not already exist.+-- -- Default: 'false' -- -- Valid Values: 'true' | 'false' cavAutoCreateApplication :: Lens' CreateApplicationVersion (Maybe Bool)-cavAutoCreateApplication =-    lens _cavAutoCreateApplication-        (\s a -> s { _cavAutoCreateApplication = a })+cavAutoCreateApplication = lens _cavAutoCreateApplication (\ s a -> s{_cavAutoCreateApplication = a});  -- | Describes this version. cavDescription :: Lens' CreateApplicationVersion (Maybe Text)-cavDescription = lens _cavDescription (\s a -> s { _cavDescription = a })+cavDescription = lens _cavDescription (\ s a -> s{_cavDescription = a}); --- | The Amazon S3 bucket and key that identify the location of the source bundle--- for this version.------ If data found at the Amazon S3 location exceeds the maximum allowed source--- bundle size, AWS Elastic Beanstalk returns an 'InvalidParameterValue' error.--- The maximum size allowed is 512 MB.------ Default: If not specified, AWS Elastic Beanstalk uses a sample application.--- If only partially specified (for example, a bucket is provided but not the--- key) or if no data is found at the Amazon S3 location, AWS Elastic Beanstalk--- returns an 'InvalidParameterCombination' error.-cavSourceBundle :: Lens' CreateApplicationVersion (Maybe S3Location)-cavSourceBundle = lens _cavSourceBundle (\s a -> s { _cavSourceBundle = a })+-- | The name of the application. If no application is found with this name,+-- and 'AutoCreateApplication' is 'false', returns an+-- 'InvalidParameterValue' error.+cavApplicationName :: Lens' CreateApplicationVersion Text+cavApplicationName = lens _cavApplicationName (\ s a -> s{_cavApplicationName = a});  -- | A label identifying this version. -- -- Constraint: Must be unique per application. If an application version--- already exists with this label for the specified application, AWS Elastic--- Beanstalk returns an 'InvalidParameterValue' error.+-- already exists with this label for the specified application, AWS+-- Elastic Beanstalk returns an 'InvalidParameterValue' error. cavVersionLabel :: Lens' CreateApplicationVersion Text-cavVersionLabel = lens _cavVersionLabel (\s a -> s { _cavVersionLabel = a })--newtype CreateApplicationVersionResponse = CreateApplicationVersionResponse-    { _cavrApplicationVersion :: Maybe ApplicationVersionDescription-    } deriving (Eq, Read, Show)+cavVersionLabel = lens _cavVersionLabel (\ s a -> s{_cavVersionLabel = a}); --- | 'CreateApplicationVersionResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'cavrApplicationVersion' @::@ 'Maybe' 'ApplicationVersionDescription'----createApplicationVersionResponse :: CreateApplicationVersionResponse-createApplicationVersionResponse = CreateApplicationVersionResponse-    { _cavrApplicationVersion = Nothing-    }+instance AWSRequest CreateApplicationVersion where+        type Sv CreateApplicationVersion = ElasticBeanstalk+        type Rs CreateApplicationVersion =+             ApplicationVersionDescriptionMessage+        request = postQuery+        response+          = receiveXMLWrapper "CreateApplicationVersionResult"+              (\ s h x -> parseXML x) --- | The 'ApplicationVersionDescription' of the application version.-cavrApplicationVersion :: Lens' CreateApplicationVersionResponse (Maybe ApplicationVersionDescription)-cavrApplicationVersion =-    lens _cavrApplicationVersion (\s a -> s { _cavrApplicationVersion = a })+instance ToHeaders CreateApplicationVersion where+        toHeaders = const mempty  instance ToPath CreateApplicationVersion where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateApplicationVersion where-    toQuery CreateApplicationVersion{..} = mconcat-        [ "ApplicationName"       =? _cavApplicationName-        , "AutoCreateApplication" =? _cavAutoCreateApplication-        , "Description"           =? _cavDescription-        , "SourceBundle"          =? _cavSourceBundle-        , "VersionLabel"          =? _cavVersionLabel-        ]--instance ToHeaders CreateApplicationVersion--instance AWSRequest CreateApplicationVersion where-    type Sv CreateApplicationVersion = ElasticBeanstalk-    type Rs CreateApplicationVersion = CreateApplicationVersionResponse--    request  = post "CreateApplicationVersion"-    response = xmlResponse--instance FromXML CreateApplicationVersionResponse where-    parseXML = withElement "CreateApplicationVersionResult" $ \x -> CreateApplicationVersionResponse-        <$> x .@? "ApplicationVersion"+        toQuery CreateApplicationVersion'{..}+          = mconcat+              ["Action" =:+                 ("CreateApplicationVersion" :: ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "SourceBundle" =: _cavSourceBundle,+               "AutoCreateApplication" =: _cavAutoCreateApplication,+               "Description" =: _cavDescription,+               "ApplicationName" =: _cavApplicationName,+               "VersionLabel" =: _cavVersionLabel]

@@ -1,171 +1,169 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElasticBeanstalk.CreateConfigurationTemplate--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Creates a configuration template. Templates are associated with a specific--- application and are used to deploy different versions of the application with--- the same configuration settings.+-- Creates a configuration template. Templates are associated with a+-- specific application and are used to deploy different versions of the+-- application with the same configuration settings. -- -- Related Topics ----- 'DescribeConfigurationOptions'   'DescribeConfigurationSettings'   'ListAvailableSolutionStacks'+-- -   DescribeConfigurationOptions+-- -   DescribeConfigurationSettings+-- -   ListAvailableSolutionStacks ----- <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_CreateConfigurationTemplate.html>+-- /See:/ <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_CreateConfigurationTemplate.html AWS API Reference> for CreateConfigurationTemplate. module Network.AWS.ElasticBeanstalk.CreateConfigurationTemplate     (-    -- * Request-      CreateConfigurationTemplate-    -- ** Request constructor-    , createConfigurationTemplate-    -- ** Request lenses-    , cctApplicationName-    , cctDescription-    , cctEnvironmentId+    -- * Creating a Request+      createConfigurationTemplate+    , CreateConfigurationTemplate+    -- * Request Lenses     , cctOptionSettings-    , cctSolutionStackName     , cctSourceConfiguration+    , cctEnvironmentId+    , cctSolutionStackName+    , cctDescription+    , cctApplicationName     , cctTemplateName -    -- * Response-    , CreateConfigurationTemplateResponse-    -- ** Response constructor-    , createConfigurationTemplateResponse-    -- ** Response lenses-    , cctrApplicationName-    , cctrDateCreated-    , cctrDateUpdated-    , cctrDeploymentStatus-    , cctrDescription-    , cctrEnvironmentName-    , cctrOptionSettings-    , cctrSolutionStackName-    , cctrTemplateName+    -- * Destructuring the Response+    , configurationSettingsDescription+    , ConfigurationSettingsDescription+    -- * Response Lenses+    , csdTemplateName+    , csdOptionSettings+    , csdDateUpdated+    , csdDateCreated+    , csdEnvironmentName+    , csdApplicationName+    , csdDeploymentStatus+    , csdSolutionStackName+    , csdDescription     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElasticBeanstalk.Types-import qualified GHC.Exts--data CreateConfigurationTemplate = CreateConfigurationTemplate-    { _cctApplicationName     :: Text-    , _cctDescription         :: Maybe Text-    , _cctEnvironmentId       :: Maybe Text-    , _cctOptionSettings      :: List "member" ConfigurationOptionSetting-    , _cctSolutionStackName   :: Maybe Text-    , _cctSourceConfiguration :: Maybe SourceConfiguration-    , _cctTemplateName        :: Text-    } deriving (Eq, Read, Show)+import           Network.AWS.ElasticBeanstalk.Types+import           Network.AWS.ElasticBeanstalk.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'CreateConfigurationTemplate' constructor.+-- | This documentation target is not reported in the API reference. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'createConfigurationTemplate' smart constructor.+data CreateConfigurationTemplate = CreateConfigurationTemplate'+    { _cctOptionSettings      :: !(Maybe [ConfigurationOptionSetting])+    , _cctSourceConfiguration :: !(Maybe SourceConfiguration)+    , _cctEnvironmentId       :: !(Maybe Text)+    , _cctSolutionStackName   :: !(Maybe Text)+    , _cctDescription         :: !(Maybe Text)+    , _cctApplicationName     :: !Text+    , _cctTemplateName        :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateConfigurationTemplate' with the minimum fields required to make a request. ----- * 'cctApplicationName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'cctDescription' @::@ 'Maybe' 'Text'+-- * 'cctOptionSettings' ----- * 'cctEnvironmentId' @::@ 'Maybe' 'Text'+-- * 'cctSourceConfiguration' ----- * 'cctOptionSettings' @::@ ['ConfigurationOptionSetting']+-- * 'cctEnvironmentId' ----- * 'cctSolutionStackName' @::@ 'Maybe' 'Text'+-- * 'cctSolutionStackName' ----- * 'cctSourceConfiguration' @::@ 'Maybe' 'SourceConfiguration'+-- * 'cctDescription' ----- * 'cctTemplateName' @::@ 'Text'+-- * 'cctApplicationName' ---createConfigurationTemplate :: Text -- ^ 'cctApplicationName'-                            -> Text -- ^ 'cctTemplateName'-                            -> CreateConfigurationTemplate-createConfigurationTemplate p1 p2 = CreateConfigurationTemplate-    { _cctApplicationName     = p1-    , _cctTemplateName        = p2-    , _cctSolutionStackName   = Nothing+-- * 'cctTemplateName'+createConfigurationTemplate+    :: Text -- ^ 'cctApplicationName'+    -> Text -- ^ 'cctTemplateName'+    -> CreateConfigurationTemplate+createConfigurationTemplate pApplicationName_ pTemplateName_ =+    CreateConfigurationTemplate'+    { _cctOptionSettings = Nothing     , _cctSourceConfiguration = Nothing-    , _cctEnvironmentId       = Nothing-    , _cctDescription         = Nothing-    , _cctOptionSettings      = mempty+    , _cctEnvironmentId = Nothing+    , _cctSolutionStackName = Nothing+    , _cctDescription = Nothing+    , _cctApplicationName = pApplicationName_+    , _cctTemplateName = pTemplateName_     } --- | The name of the application to associate with this configuration template.--- If no application is found with this name, AWS Elastic Beanstalk returns an 'InvalidParameterValue' error.-cctApplicationName :: Lens' CreateConfigurationTemplate Text-cctApplicationName =-    lens _cctApplicationName (\s a -> s { _cctApplicationName = a })+-- | If specified, AWS Elastic Beanstalk sets the specified configuration+-- option to the requested value. The new value overrides the value+-- obtained from the solution stack or the source configuration template.+cctOptionSettings :: Lens' CreateConfigurationTemplate [ConfigurationOptionSetting]+cctOptionSettings = lens _cctOptionSettings (\ s a -> s{_cctOptionSettings = a}) . _Default . _Coerce; --- | Describes this configuration.-cctDescription :: Lens' CreateConfigurationTemplate (Maybe Text)-cctDescription = lens _cctDescription (\s a -> s { _cctDescription = a })+-- | If specified, AWS Elastic Beanstalk uses the configuration values from+-- the specified configuration template to create a new configuration.+--+-- Values specified in the 'OptionSettings' parameter of this call+-- overrides any values obtained from the 'SourceConfiguration'.+--+-- If no configuration template is found, returns an+-- 'InvalidParameterValue' error.+--+-- Constraint: If both the solution stack name parameter and the source+-- configuration parameters are specified, the solution stack of the source+-- configuration template must match the specified solution stack name or+-- else AWS Elastic Beanstalk returns an 'InvalidParameterCombination'+-- error.+cctSourceConfiguration :: Lens' CreateConfigurationTemplate (Maybe SourceConfiguration)+cctSourceConfiguration = lens _cctSourceConfiguration (\ s a -> s{_cctSourceConfiguration = a});  -- | The ID of the environment used with this configuration template. cctEnvironmentId :: Lens' CreateConfigurationTemplate (Maybe Text)-cctEnvironmentId = lens _cctEnvironmentId (\s a -> s { _cctEnvironmentId = a })---- | If specified, AWS Elastic Beanstalk sets the specified configuration option--- to the requested value. The new value overrides the value obtained from the--- solution stack or the source configuration template.-cctOptionSettings :: Lens' CreateConfigurationTemplate [ConfigurationOptionSetting]-cctOptionSettings =-    lens _cctOptionSettings (\s a -> s { _cctOptionSettings = a })-        . _List+cctEnvironmentId = lens _cctEnvironmentId (\ s a -> s{_cctEnvironmentId = a}); --- | The name of the solution stack used by this configuration. The solution stack--- specifies the operating system, architecture, and application server for a--- configuration template. It determines the set of configuration options as--- well as the possible and default values.+-- | The name of the solution stack used by this configuration. The solution+-- stack specifies the operating system, architecture, and application+-- server for a configuration template. It determines the set of+-- configuration options as well as the possible and default values. ----- Use 'ListAvailableSolutionStacks' to obtain a list of available solution+-- Use ListAvailableSolutionStacks to obtain a list of available solution -- stacks. -- -- A solution stack name or a source configuration parameter must be--- specified, otherwise AWS Elastic Beanstalk returns an 'InvalidParameterValue'--- error.+-- specified, otherwise AWS Elastic Beanstalk returns an+-- 'InvalidParameterValue' error. -- -- If a solution stack name is not specified and the source configuration--- parameter is specified, AWS Elastic Beanstalk uses the same solution stack as--- the source configuration template.+-- parameter is specified, AWS Elastic Beanstalk uses the same solution+-- stack as the source configuration template. cctSolutionStackName :: Lens' CreateConfigurationTemplate (Maybe Text)-cctSolutionStackName =-    lens _cctSolutionStackName (\s a -> s { _cctSolutionStackName = a })+cctSolutionStackName = lens _cctSolutionStackName (\ s a -> s{_cctSolutionStackName = a}); --- | If specified, AWS Elastic Beanstalk uses the configuration values from the--- specified configuration template to create a new configuration.------ Values specified in the 'OptionSettings' parameter of this call overrides any--- values obtained from the 'SourceConfiguration'.------ If no configuration template is found, returns an 'InvalidParameterValue'--- error.------ Constraint: If both the solution stack name parameter and the source--- configuration parameters are specified, the solution stack of the source--- configuration template must match the specified solution stack name or else--- AWS Elastic Beanstalk returns an 'InvalidParameterCombination' error.-cctSourceConfiguration :: Lens' CreateConfigurationTemplate (Maybe SourceConfiguration)-cctSourceConfiguration =-    lens _cctSourceConfiguration (\s a -> s { _cctSourceConfiguration = a })+-- | Describes this configuration.+cctDescription :: Lens' CreateConfigurationTemplate (Maybe Text)+cctDescription = lens _cctDescription (\ s a -> s{_cctDescription = a}); +-- | The name of the application to associate with this configuration+-- template. If no application is found with this name, AWS Elastic+-- Beanstalk returns an 'InvalidParameterValue' error.+cctApplicationName :: Lens' CreateConfigurationTemplate Text+cctApplicationName = lens _cctApplicationName (\ s a -> s{_cctApplicationName = a});+ -- | The name of the configuration template. -- -- Constraint: This name must be unique per application.@@ -173,147 +171,37 @@ -- Default: If a configuration template already exists with this name, AWS -- Elastic Beanstalk returns an 'InvalidParameterValue' error. cctTemplateName :: Lens' CreateConfigurationTemplate Text-cctTemplateName = lens _cctTemplateName (\s a -> s { _cctTemplateName = a })--data CreateConfigurationTemplateResponse = CreateConfigurationTemplateResponse-    { _cctrApplicationName   :: Maybe Text-    , _cctrDateCreated       :: Maybe ISO8601-    , _cctrDateUpdated       :: Maybe ISO8601-    , _cctrDeploymentStatus  :: Maybe ConfigurationDeploymentStatus-    , _cctrDescription       :: Maybe Text-    , _cctrEnvironmentName   :: Maybe Text-    , _cctrOptionSettings    :: List "member" ConfigurationOptionSetting-    , _cctrSolutionStackName :: Maybe Text-    , _cctrTemplateName      :: Maybe Text-    } deriving (Eq, Read, Show)---- | 'CreateConfigurationTemplateResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'cctrApplicationName' @::@ 'Maybe' 'Text'------ * 'cctrDateCreated' @::@ 'Maybe' 'UTCTime'------ * 'cctrDateUpdated' @::@ 'Maybe' 'UTCTime'------ * 'cctrDeploymentStatus' @::@ 'Maybe' 'ConfigurationDeploymentStatus'------ * 'cctrDescription' @::@ 'Maybe' 'Text'------ * 'cctrEnvironmentName' @::@ 'Maybe' 'Text'------ * 'cctrOptionSettings' @::@ ['ConfigurationOptionSetting']------ * 'cctrSolutionStackName' @::@ 'Maybe' 'Text'------ * 'cctrTemplateName' @::@ 'Maybe' 'Text'----createConfigurationTemplateResponse :: CreateConfigurationTemplateResponse-createConfigurationTemplateResponse = CreateConfigurationTemplateResponse-    { _cctrSolutionStackName = Nothing-    , _cctrApplicationName   = Nothing-    , _cctrTemplateName      = Nothing-    , _cctrDescription       = Nothing-    , _cctrEnvironmentName   = Nothing-    , _cctrDeploymentStatus  = Nothing-    , _cctrDateCreated       = Nothing-    , _cctrDateUpdated       = Nothing-    , _cctrOptionSettings    = mempty-    }---- | The name of the application associated with this configuration set.-cctrApplicationName :: Lens' CreateConfigurationTemplateResponse (Maybe Text)-cctrApplicationName =-    lens _cctrApplicationName (\s a -> s { _cctrApplicationName = a })---- | The date (in UTC time) when this configuration set was created.-cctrDateCreated :: Lens' CreateConfigurationTemplateResponse (Maybe UTCTime)-cctrDateCreated = lens _cctrDateCreated (\s a -> s { _cctrDateCreated = a }) . mapping _Time---- | The date (in UTC time) when this configuration set was last modified.-cctrDateUpdated :: Lens' CreateConfigurationTemplateResponse (Maybe UTCTime)-cctrDateUpdated = lens _cctrDateUpdated (\s a -> s { _cctrDateUpdated = a }) . mapping _Time---- | If this configuration set is associated with an environment, the 'DeploymentStatus' parameter indicates the deployment status of this configuration set:------ 'null': This configuration is not associated with a running environment.------ 'pending': This is a draft configuration that is not deployed to the--- associated environment but is in the process of deploying.------ 'deployed': This is the configuration that is currently deployed to the--- associated running environment.------ 'failed': This is a draft configuration, that failed to successfully--- deploy.------ 'null': This configuration is not associated with a running environment.   'pending': This is a draft configuration that is not deployed to the associated--- environment but is in the process of deploying.   'deployed': This is the--- configuration that is currently deployed to the associated running--- environment.   'failed': This is a draft configuration that failed to--- successfully deploy.-cctrDeploymentStatus :: Lens' CreateConfigurationTemplateResponse (Maybe ConfigurationDeploymentStatus)-cctrDeploymentStatus =-    lens _cctrDeploymentStatus (\s a -> s { _cctrDeploymentStatus = a })---- | Describes this configuration set.-cctrDescription :: Lens' CreateConfigurationTemplateResponse (Maybe Text)-cctrDescription = lens _cctrDescription (\s a -> s { _cctrDescription = a })---- | If not 'null', the name of the environment for this configuration set.-cctrEnvironmentName :: Lens' CreateConfigurationTemplateResponse (Maybe Text)-cctrEnvironmentName =-    lens _cctrEnvironmentName (\s a -> s { _cctrEnvironmentName = a })---- | A list of the configuration options and their values in this configuration--- set.-cctrOptionSettings :: Lens' CreateConfigurationTemplateResponse [ConfigurationOptionSetting]-cctrOptionSettings =-    lens _cctrOptionSettings (\s a -> s { _cctrOptionSettings = a })-        . _List+cctTemplateName = lens _cctTemplateName (\ s a -> s{_cctTemplateName = a}); --- | The name of the solution stack this configuration set uses.-cctrSolutionStackName :: Lens' CreateConfigurationTemplateResponse (Maybe Text)-cctrSolutionStackName =-    lens _cctrSolutionStackName (\s a -> s { _cctrSolutionStackName = a })+instance AWSRequest CreateConfigurationTemplate where+        type Sv CreateConfigurationTemplate =+             ElasticBeanstalk+        type Rs CreateConfigurationTemplate =+             ConfigurationSettingsDescription+        request = postQuery+        response+          = receiveXMLWrapper+              "CreateConfigurationTemplateResult"+              (\ s h x -> parseXML x) --- | If not 'null', the name of the configuration template for this configuration--- set.-cctrTemplateName :: Lens' CreateConfigurationTemplateResponse (Maybe Text)-cctrTemplateName = lens _cctrTemplateName (\s a -> s { _cctrTemplateName = a })+instance ToHeaders CreateConfigurationTemplate where+        toHeaders = const mempty  instance ToPath CreateConfigurationTemplate where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateConfigurationTemplate where-    toQuery CreateConfigurationTemplate{..} = mconcat-        [ "ApplicationName"     =? _cctApplicationName-        , "Description"         =? _cctDescription-        , "EnvironmentId"       =? _cctEnvironmentId-        , "OptionSettings"      =? _cctOptionSettings-        , "SolutionStackName"   =? _cctSolutionStackName-        , "SourceConfiguration" =? _cctSourceConfiguration-        , "TemplateName"        =? _cctTemplateName-        ]--instance ToHeaders CreateConfigurationTemplate--instance AWSRequest CreateConfigurationTemplate where-    type Sv CreateConfigurationTemplate = ElasticBeanstalk-    type Rs CreateConfigurationTemplate = CreateConfigurationTemplateResponse--    request  = post "CreateConfigurationTemplate"-    response = xmlResponse--instance FromXML CreateConfigurationTemplateResponse where-    parseXML = withElement "CreateConfigurationTemplateResult" $ \x -> CreateConfigurationTemplateResponse-        <$> x .@? "ApplicationName"-        <*> x .@? "DateCreated"-        <*> x .@? "DateUpdated"-        <*> x .@? "DeploymentStatus"-        <*> x .@? "Description"-        <*> x .@? "EnvironmentName"-        <*> x .@? "OptionSettings" .!@ mempty-        <*> x .@? "SolutionStackName"-        <*> x .@? "TemplateName"+        toQuery CreateConfigurationTemplate'{..}+          = mconcat+              ["Action" =:+                 ("CreateConfigurationTemplate" :: ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "OptionSettings" =:+                 toQuery+                   (toQueryList "member" <$> _cctOptionSettings),+               "SourceConfiguration" =: _cctSourceConfiguration,+               "EnvironmentId" =: _cctEnvironmentId,+               "SolutionStackName" =: _cctSolutionStackName,+               "Description" =: _cctDescription,+               "ApplicationName" =: _cctApplicationName,+               "TemplateName" =: _cctTemplateName]

@@ -1,433 +1,250 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElasticBeanstalk.CreateEnvironment--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Launches an environment for the specified application using the specified--- configuration.+-- Launches an environment for the specified application using the+-- specified configuration. ----- <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_CreateEnvironment.html>+-- /See:/ <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_CreateEnvironment.html AWS API Reference> for CreateEnvironment. module Network.AWS.ElasticBeanstalk.CreateEnvironment     (-    -- * Request-      CreateEnvironment-    -- ** Request constructor-    , createEnvironment-    -- ** Request lenses-    , ceApplicationName+    -- * Creating a Request+      createEnvironment+    , CreateEnvironment+    -- * Request Lenses     , ceCNAMEPrefix-    , ceDescription-    , ceEnvironmentName-    , ceOptionSettings+    , ceTemplateName     , ceOptionsToRemove+    , ceOptionSettings+    , ceVersionLabel+    , ceTier     , ceSolutionStackName+    , ceDescription     , ceTags-    , ceTemplateName-    , ceTier-    , ceVersionLabel+    , ceApplicationName+    , ceEnvironmentName -    -- * Response-    , CreateEnvironmentResponse-    -- ** Response constructor-    , createEnvironmentResponse-    -- ** Response lenses-    , cerAbortableOperationInProgress-    , cerApplicationName-    , cerCNAME-    , cerDateCreated-    , cerDateUpdated-    , cerDescription-    , cerEndpointURL-    , cerEnvironmentId-    , cerEnvironmentName-    , cerHealth-    , cerResources-    , cerSolutionStackName-    , cerStatus-    , cerTemplateName-    , cerTier-    , cerVersionLabel+    -- * Destructuring the Response+    , environmentDescription+    , EnvironmentDescription+    -- * Response Lenses+    , eCNAME+    , eStatus+    , eTemplateName+    , eAbortableOperationInProgress+    , eEndpointURL+    , eDateUpdated+    , eResources+    , eHealth+    , eVersionLabel+    , eDateCreated+    , eTier+    , eEnvironmentName+    , eApplicationName+    , eHealthStatus+    , eEnvironmentId+    , eSolutionStackName+    , eDescription     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElasticBeanstalk.Types-import qualified GHC.Exts--data CreateEnvironment = CreateEnvironment-    { _ceApplicationName   :: Text-    , _ceCNAMEPrefix       :: Maybe Text-    , _ceDescription       :: Maybe Text-    , _ceEnvironmentName   :: Text-    , _ceOptionSettings    :: List "member" ConfigurationOptionSetting-    , _ceOptionsToRemove   :: List "member" OptionSpecification-    , _ceSolutionStackName :: Maybe Text-    , _ceTags              :: List "member" Tag-    , _ceTemplateName      :: Maybe Text-    , _ceTier              :: Maybe EnvironmentTier-    , _ceVersionLabel      :: Maybe Text-    } deriving (Eq, Read, Show)+import           Network.AWS.ElasticBeanstalk.Types+import           Network.AWS.ElasticBeanstalk.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'CreateEnvironment' constructor.+-- | ----- The fields accessible through corresponding lenses are:+-- /See:/ 'createEnvironment' smart constructor.+data CreateEnvironment = CreateEnvironment'+    { _ceCNAMEPrefix       :: !(Maybe Text)+    , _ceTemplateName      :: !(Maybe Text)+    , _ceOptionsToRemove   :: !(Maybe [OptionSpecification])+    , _ceOptionSettings    :: !(Maybe [ConfigurationOptionSetting])+    , _ceVersionLabel      :: !(Maybe Text)+    , _ceTier              :: !(Maybe EnvironmentTier)+    , _ceSolutionStackName :: !(Maybe Text)+    , _ceDescription       :: !(Maybe Text)+    , _ceTags              :: !(Maybe [Tag])+    , _ceApplicationName   :: !Text+    , _ceEnvironmentName   :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateEnvironment' with the minimum fields required to make a request. ----- * 'ceApplicationName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'ceCNAMEPrefix' @::@ 'Maybe' 'Text'+-- * 'ceCNAMEPrefix' ----- * 'ceDescription' @::@ 'Maybe' 'Text'+-- * 'ceTemplateName' ----- * 'ceEnvironmentName' @::@ 'Text'+-- * 'ceOptionsToRemove' ----- * 'ceOptionSettings' @::@ ['ConfigurationOptionSetting']+-- * 'ceOptionSettings' ----- * 'ceOptionsToRemove' @::@ ['OptionSpecification']+-- * 'ceVersionLabel' ----- * 'ceSolutionStackName' @::@ 'Maybe' 'Text'+-- * 'ceTier' ----- * 'ceTags' @::@ ['Tag']+-- * 'ceSolutionStackName' ----- * 'ceTemplateName' @::@ 'Maybe' 'Text'+-- * 'ceDescription' ----- * 'ceTier' @::@ 'Maybe' 'EnvironmentTier'+-- * 'ceTags' ----- * 'ceVersionLabel' @::@ 'Maybe' 'Text'+-- * 'ceApplicationName' ---createEnvironment :: Text -- ^ 'ceApplicationName'-                  -> Text -- ^ 'ceEnvironmentName'-                  -> CreateEnvironment-createEnvironment p1 p2 = CreateEnvironment-    { _ceApplicationName   = p1-    , _ceEnvironmentName   = p2-    , _ceDescription       = Nothing-    , _ceCNAMEPrefix       = Nothing-    , _ceTier              = Nothing-    , _ceTags              = mempty-    , _ceVersionLabel      = Nothing-    , _ceTemplateName      = Nothing+-- * 'ceEnvironmentName'+createEnvironment+    :: Text -- ^ 'ceApplicationName'+    -> Text -- ^ 'ceEnvironmentName'+    -> CreateEnvironment+createEnvironment pApplicationName_ pEnvironmentName_ =+    CreateEnvironment'+    { _ceCNAMEPrefix = Nothing+    , _ceTemplateName = Nothing+    , _ceOptionsToRemove = Nothing+    , _ceOptionSettings = Nothing+    , _ceVersionLabel = Nothing+    , _ceTier = Nothing     , _ceSolutionStackName = Nothing-    , _ceOptionSettings    = mempty-    , _ceOptionsToRemove   = mempty+    , _ceDescription = Nothing+    , _ceTags = Nothing+    , _ceApplicationName = pApplicationName_+    , _ceEnvironmentName = pEnvironmentName_     } --- | The name of the application that contains the version to be deployed.------ If no application is found with this name, 'CreateEnvironment' returns an 'InvalidParameterValue' error.-ceApplicationName :: Lens' CreateEnvironment Text-ceApplicationName =-    lens _ceApplicationName (\s a -> s { _ceApplicationName = a })---- | If specified, the environment attempts to use this value as the prefix for--- the CNAME. If not specified, the CNAME is generated automatically by+-- | If specified, the environment attempts to use this value as the prefix+-- for the CNAME. If not specified, the CNAME is generated automatically by -- appending a random alphanumeric string to the environment name. ceCNAMEPrefix :: Lens' CreateEnvironment (Maybe Text)-ceCNAMEPrefix = lens _ceCNAMEPrefix (\s a -> s { _ceCNAMEPrefix = a })---- | Describes this environment.-ceDescription :: Lens' CreateEnvironment (Maybe Text)-ceDescription = lens _ceDescription (\s a -> s { _ceDescription = a })+ceCNAMEPrefix = lens _ceCNAMEPrefix (\ s a -> s{_ceCNAMEPrefix = a}); --- | A unique name for the deployment environment. Used in the application URL.------ Constraint: Must be from 4 to 23 characters in length. The name can contain--- only letters, numbers, and hyphens. It cannot start or end with a hyphen.--- This name must be unique in your account. If the specified name already--- exists, AWS Elastic Beanstalk returns an 'InvalidParameterValue' error.+-- | The name of the configuration template to use in deployment. If no+-- configuration template is found with this name, AWS Elastic Beanstalk+-- returns an 'InvalidParameterValue' error. ----- Default: If the CNAME parameter is not specified, the environment name--- becomes part of the CNAME, and therefore part of the visible URL for your--- application.-ceEnvironmentName :: Lens' CreateEnvironment Text-ceEnvironmentName =-    lens _ceEnvironmentName (\s a -> s { _ceEnvironmentName = a })---- | If specified, AWS Elastic Beanstalk sets the specified configuration options--- to the requested value in the configuration set for the new environment.--- These override the values obtained from the solution stack or the--- configuration template.-ceOptionSettings :: Lens' CreateEnvironment [ConfigurationOptionSetting]-ceOptionSettings = lens _ceOptionSettings (\s a -> s { _ceOptionSettings = a }) . _List+-- Condition: You must specify either this parameter or a+-- 'SolutionStackName', but not both. If you specify both, AWS Elastic+-- Beanstalk returns an 'InvalidParameterCombination' error. If you do not+-- specify either, AWS Elastic Beanstalk returns a+-- 'MissingRequiredParameter' error.+ceTemplateName :: Lens' CreateEnvironment (Maybe Text)+ceTemplateName = lens _ceTemplateName (\ s a -> s{_ceTemplateName = a});  -- | A list of custom user-defined configuration options to remove from the -- configuration set for this new environment. ceOptionsToRemove :: Lens' CreateEnvironment [OptionSpecification]-ceOptionsToRemove =-    lens _ceOptionsToRemove (\s a -> s { _ceOptionsToRemove = a })-        . _List---- | This is an alternative to specifying a configuration name. If specified, AWS--- Elastic Beanstalk sets the configuration values to the default values--- associated with the specified solution stack.------ Condition: You must specify either this or a 'TemplateName', but not both. If--- you specify both, AWS Elastic Beanstalk returns an 'InvalidParameterCombination'--- error. If you do not specify either, AWS Elastic Beanstalk returns a 'MissingRequiredParameter' error.-ceSolutionStackName :: Lens' CreateEnvironment (Maybe Text)-ceSolutionStackName =-    lens _ceSolutionStackName (\s a -> s { _ceSolutionStackName = a })---- | This specifies the tags applied to resources in the environment.-ceTags :: Lens' CreateEnvironment [Tag]-ceTags = lens _ceTags (\s a -> s { _ceTags = a }) . _List---- | The name of the configuration template to use in deployment. If no--- configuration template is found with this name, AWS Elastic Beanstalk returns--- an 'InvalidParameterValue' error.------ Condition: You must specify either this parameter or a 'SolutionStackName',--- but not both. If you specify both, AWS Elastic Beanstalk returns an 'InvalidParameterCombination' error. If you do not specify either, AWS Elastic Beanstalk returns a 'MissingRequiredParameter' error.-ceTemplateName :: Lens' CreateEnvironment (Maybe Text)-ceTemplateName = lens _ceTemplateName (\s a -> s { _ceTemplateName = a })+ceOptionsToRemove = lens _ceOptionsToRemove (\ s a -> s{_ceOptionsToRemove = a}) . _Default . _Coerce; --- | This specifies the tier to use for creating this environment.-ceTier :: Lens' CreateEnvironment (Maybe EnvironmentTier)-ceTier = lens _ceTier (\s a -> s { _ceTier = a })+-- | If specified, AWS Elastic Beanstalk sets the specified configuration+-- options to the requested value in the configuration set for the new+-- environment. These override the values obtained from the solution stack+-- or the configuration template.+ceOptionSettings :: Lens' CreateEnvironment [ConfigurationOptionSetting]+ceOptionSettings = lens _ceOptionSettings (\ s a -> s{_ceOptionSettings = a}) . _Default . _Coerce;  -- | The name of the application version to deploy. -- -- If the specified application has no associated application versions, AWS--- Elastic Beanstalk 'UpdateEnvironment' returns an 'InvalidParameterValue' error.+-- Elastic Beanstalk 'UpdateEnvironment' returns an 'InvalidParameterValue'+-- error. -- -- Default: If not specified, AWS Elastic Beanstalk attempts to launch the -- sample application in the container. ceVersionLabel :: Lens' CreateEnvironment (Maybe Text)-ceVersionLabel = lens _ceVersionLabel (\s a -> s { _ceVersionLabel = a })--data CreateEnvironmentResponse = CreateEnvironmentResponse-    { _cerAbortableOperationInProgress :: Maybe Bool-    , _cerApplicationName              :: Maybe Text-    , _cerCNAME                        :: Maybe Text-    , _cerDateCreated                  :: Maybe ISO8601-    , _cerDateUpdated                  :: Maybe ISO8601-    , _cerDescription                  :: Maybe Text-    , _cerEndpointURL                  :: Maybe Text-    , _cerEnvironmentId                :: Maybe Text-    , _cerEnvironmentName              :: Maybe Text-    , _cerHealth                       :: Maybe EnvironmentHealth-    , _cerResources                    :: Maybe EnvironmentResourcesDescription-    , _cerSolutionStackName            :: Maybe Text-    , _cerStatus                       :: Maybe EnvironmentStatus-    , _cerTemplateName                 :: Maybe Text-    , _cerTier                         :: Maybe EnvironmentTier-    , _cerVersionLabel                 :: Maybe Text-    } deriving (Eq, Read, Show)+ceVersionLabel = lens _ceVersionLabel (\ s a -> s{_ceVersionLabel = a}); --- | 'CreateEnvironmentResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'cerAbortableOperationInProgress' @::@ 'Maybe' 'Bool'------ * 'cerApplicationName' @::@ 'Maybe' 'Text'------ * 'cerCNAME' @::@ 'Maybe' 'Text'------ * 'cerDateCreated' @::@ 'Maybe' 'UTCTime'------ * 'cerDateUpdated' @::@ 'Maybe' 'UTCTime'------ * 'cerDescription' @::@ 'Maybe' 'Text'------ * 'cerEndpointURL' @::@ 'Maybe' 'Text'------ * 'cerEnvironmentId' @::@ 'Maybe' 'Text'------ * 'cerEnvironmentName' @::@ 'Maybe' 'Text'------ * 'cerHealth' @::@ 'Maybe' 'EnvironmentHealth'------ * 'cerResources' @::@ 'Maybe' 'EnvironmentResourcesDescription'------ * 'cerSolutionStackName' @::@ 'Maybe' 'Text'------ * 'cerStatus' @::@ 'Maybe' 'EnvironmentStatus'------ * 'cerTemplateName' @::@ 'Maybe' 'Text'------ * 'cerTier' @::@ 'Maybe' 'EnvironmentTier'------ * 'cerVersionLabel' @::@ 'Maybe' 'Text'----createEnvironmentResponse :: CreateEnvironmentResponse-createEnvironmentResponse = CreateEnvironmentResponse-    { _cerEnvironmentName              = Nothing-    , _cerEnvironmentId                = Nothing-    , _cerApplicationName              = Nothing-    , _cerVersionLabel                 = Nothing-    , _cerSolutionStackName            = Nothing-    , _cerTemplateName                 = Nothing-    , _cerDescription                  = Nothing-    , _cerEndpointURL                  = Nothing-    , _cerCNAME                        = Nothing-    , _cerDateCreated                  = Nothing-    , _cerDateUpdated                  = Nothing-    , _cerStatus                       = Nothing-    , _cerAbortableOperationInProgress = Nothing-    , _cerHealth                       = Nothing-    , _cerResources                    = Nothing-    , _cerTier                         = Nothing-    }+-- | This specifies the tier to use for creating this environment.+ceTier :: Lens' CreateEnvironment (Maybe EnvironmentTier)+ceTier = lens _ceTier (\ s a -> s{_ceTier = a}); --- | Indicates if there is an in-progress environment configuration update or--- application version deployment that you can cancel.------ 'true:' There is an update in progress.+-- | This is an alternative to specifying a configuration name. If specified,+-- AWS Elastic Beanstalk sets the configuration values to the default+-- values associated with the specified solution stack. ----- 'false:' There are no updates currently in progress.-cerAbortableOperationInProgress :: Lens' CreateEnvironmentResponse (Maybe Bool)-cerAbortableOperationInProgress =-    lens _cerAbortableOperationInProgress-        (\s a -> s { _cerAbortableOperationInProgress = a })---- | The name of the application associated with this environment.-cerApplicationName :: Lens' CreateEnvironmentResponse (Maybe Text)-cerApplicationName =-    lens _cerApplicationName (\s a -> s { _cerApplicationName = a })---- | The URL to the CNAME for this environment.-cerCNAME :: Lens' CreateEnvironmentResponse (Maybe Text)-cerCNAME = lens _cerCNAME (\s a -> s { _cerCNAME = a })---- | The creation date for this environment.-cerDateCreated :: Lens' CreateEnvironmentResponse (Maybe UTCTime)-cerDateCreated = lens _cerDateCreated (\s a -> s { _cerDateCreated = a }) . mapping _Time---- | The last modified date for this environment.-cerDateUpdated :: Lens' CreateEnvironmentResponse (Maybe UTCTime)-cerDateUpdated = lens _cerDateUpdated (\s a -> s { _cerDateUpdated = a }) . mapping _Time+-- Condition: You must specify either this or a 'TemplateName', but not+-- both. If you specify both, AWS Elastic Beanstalk returns an+-- 'InvalidParameterCombination' error. If you do not specify either, AWS+-- Elastic Beanstalk returns a 'MissingRequiredParameter' error.+ceSolutionStackName :: Lens' CreateEnvironment (Maybe Text)+ceSolutionStackName = lens _ceSolutionStackName (\ s a -> s{_ceSolutionStackName = a});  -- | Describes this environment.-cerDescription :: Lens' CreateEnvironmentResponse (Maybe Text)-cerDescription = lens _cerDescription (\s a -> s { _cerDescription = a })---- | For load-balanced, autoscaling environments, the URL to the LoadBalancer. For--- single-instance environments, the IP address of the instance.-cerEndpointURL :: Lens' CreateEnvironmentResponse (Maybe Text)-cerEndpointURL = lens _cerEndpointURL (\s a -> s { _cerEndpointURL = a })---- | The ID of this environment.-cerEnvironmentId :: Lens' CreateEnvironmentResponse (Maybe Text)-cerEnvironmentId = lens _cerEnvironmentId (\s a -> s { _cerEnvironmentId = a })+ceDescription :: Lens' CreateEnvironment (Maybe Text)+ceDescription = lens _ceDescription (\ s a -> s{_ceDescription = a}); --- | The name of this environment.-cerEnvironmentName :: Lens' CreateEnvironmentResponse (Maybe Text)-cerEnvironmentName =-    lens _cerEnvironmentName (\s a -> s { _cerEnvironmentName = a })+-- | This specifies the tags applied to resources in the environment.+ceTags :: Lens' CreateEnvironment [Tag]+ceTags = lens _ceTags (\ s a -> s{_ceTags = a}) . _Default . _Coerce; --- | Describes the health status of the environment. AWS Elastic Beanstalk--- indicates the failure levels for a running environment:------ 'Red' : Indicates the environment is not working.------ 'Yellow': Indicates that something is wrong, the application might not be--- available, but the instances appear running.------ 'Green': Indicates the environment is healthy and fully functional.+-- | The name of the application that contains the version to be deployed. ----- 'Red': Indicates the environment is not responsive. Occurs when three or--- more consecutive failures occur for an environment.   'Yellow': Indicates that--- something is wrong. Occurs when two consecutive failures occur for an--- environment.   'Green': Indicates the environment is healthy and fully--- functional.   'Grey': Default health for a new environment. The environment is--- not fully launched and health checks have not started or health checks are--- suspended during an 'UpdateEnvironment' or 'RestartEnvironement' request.--- Default: 'Grey'-cerHealth :: Lens' CreateEnvironmentResponse (Maybe EnvironmentHealth)-cerHealth = lens _cerHealth (\s a -> s { _cerHealth = a })---- | The description of the AWS resources used by this environment.-cerResources :: Lens' CreateEnvironmentResponse (Maybe EnvironmentResourcesDescription)-cerResources = lens _cerResources (\s a -> s { _cerResources = a })---- | The name of the 'SolutionStack' deployed with this environment.-cerSolutionStackName :: Lens' CreateEnvironmentResponse (Maybe Text)-cerSolutionStackName =-    lens _cerSolutionStackName (\s a -> s { _cerSolutionStackName = a })+-- If no application is found with this name, 'CreateEnvironment' returns+-- an 'InvalidParameterValue' error.+ceApplicationName :: Lens' CreateEnvironment Text+ceApplicationName = lens _ceApplicationName (\ s a -> s{_ceApplicationName = a}); --- | The current operational status of the environment:+-- | A unique name for the deployment environment. Used in the application+-- URL. ----- 'Launching': Environment is in the process of initial deployment.   'Updating': Environment is in the process of updating its configuration settings or application version.--- 'Ready': Environment is available to have an action performed on it, such as--- update or terminate.   'Terminating': Environment is in the shut-down process.--- 'Terminated': Environment is not running.-cerStatus :: Lens' CreateEnvironmentResponse (Maybe EnvironmentStatus)-cerStatus = lens _cerStatus (\s a -> s { _cerStatus = a })---- | The name of the configuration template used to originally launch this--- environment.-cerTemplateName :: Lens' CreateEnvironmentResponse (Maybe Text)-cerTemplateName = lens _cerTemplateName (\s a -> s { _cerTemplateName = a })+-- Constraint: Must be from 4 to 23 characters in length. The name can+-- contain only letters, numbers, and hyphens. It cannot start or end with+-- a hyphen. This name must be unique in your account. If the specified+-- name already exists, AWS Elastic Beanstalk returns an+-- 'InvalidParameterValue' error.+--+-- Default: If the CNAME parameter is not specified, the environment name+-- becomes part of the CNAME, and therefore part of the visible URL for+-- your application.+ceEnvironmentName :: Lens' CreateEnvironment Text+ceEnvironmentName = lens _ceEnvironmentName (\ s a -> s{_ceEnvironmentName = a}); --- | Describes the current tier of this environment.-cerTier :: Lens' CreateEnvironmentResponse (Maybe EnvironmentTier)-cerTier = lens _cerTier (\s a -> s { _cerTier = a })+instance AWSRequest CreateEnvironment where+        type Sv CreateEnvironment = ElasticBeanstalk+        type Rs CreateEnvironment = EnvironmentDescription+        request = postQuery+        response+          = receiveXMLWrapper "CreateEnvironmentResult"+              (\ s h x -> parseXML x) --- | The application version deployed in this environment.-cerVersionLabel :: Lens' CreateEnvironmentResponse (Maybe Text)-cerVersionLabel = lens _cerVersionLabel (\s a -> s { _cerVersionLabel = a })+instance ToHeaders CreateEnvironment where+        toHeaders = const mempty  instance ToPath CreateEnvironment where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateEnvironment where-    toQuery CreateEnvironment{..} = mconcat-        [ "ApplicationName"   =? _ceApplicationName-        , "CNAMEPrefix"       =? _ceCNAMEPrefix-        , "Description"       =? _ceDescription-        , "EnvironmentName"   =? _ceEnvironmentName-        , "OptionSettings"    =? _ceOptionSettings-        , "OptionsToRemove"   =? _ceOptionsToRemove-        , "SolutionStackName" =? _ceSolutionStackName-        , "Tags"              =? _ceTags-        , "TemplateName"      =? _ceTemplateName-        , "Tier"              =? _ceTier-        , "VersionLabel"      =? _ceVersionLabel-        ]--instance ToHeaders CreateEnvironment--instance AWSRequest CreateEnvironment where-    type Sv CreateEnvironment = ElasticBeanstalk-    type Rs CreateEnvironment = CreateEnvironmentResponse--    request  = post "CreateEnvironment"-    response = xmlResponse--instance FromXML CreateEnvironmentResponse where-    parseXML = withElement "CreateEnvironmentResult" $ \x -> CreateEnvironmentResponse-        <$> x .@? "AbortableOperationInProgress"-        <*> x .@? "ApplicationName"-        <*> x .@? "CNAME"-        <*> x .@? "DateCreated"-        <*> x .@? "DateUpdated"-        <*> x .@? "Description"-        <*> x .@? "EndpointURL"-        <*> x .@? "EnvironmentId"-        <*> x .@? "EnvironmentName"-        <*> x .@? "Health"-        <*> x .@? "Resources"-        <*> x .@? "SolutionStackName"-        <*> x .@? "Status"-        <*> x .@? "TemplateName"-        <*> x .@? "Tier"-        <*> x .@? "VersionLabel"+        toQuery CreateEnvironment'{..}+          = mconcat+              ["Action" =: ("CreateEnvironment" :: ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "CNAMEPrefix" =: _ceCNAMEPrefix,+               "TemplateName" =: _ceTemplateName,+               "OptionsToRemove" =:+                 toQuery+                   (toQueryList "member" <$> _ceOptionsToRemove),+               "OptionSettings" =:+                 toQuery (toQueryList "member" <$> _ceOptionSettings),+               "VersionLabel" =: _ceVersionLabel, "Tier" =: _ceTier,+               "SolutionStackName" =: _ceSolutionStackName,+               "Description" =: _ceDescription,+               "Tags" =: toQuery (toQueryList "member" <$> _ceTags),+               "ApplicationName" =: _ceApplicationName,+               "EnvironmentName" =: _ceEnvironmentName]

@@ -1,93 +1,111 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElasticBeanstalk.CreateStorageLocation--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Creates the Amazon S3 storage location for the account.+-- Creates the Amazon S3 storage location for the account. -- -- This location is used to store user log files. ----- <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_CreateStorageLocation.html>+-- /See:/ <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_CreateStorageLocation.html AWS API Reference> for CreateStorageLocation. module Network.AWS.ElasticBeanstalk.CreateStorageLocation     (-    -- * Request-      CreateStorageLocation-    -- ** Request constructor-    , createStorageLocation+    -- * Creating a Request+      createStorageLocation+    , CreateStorageLocation -    -- * Response-    , CreateStorageLocationResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createStorageLocationResponse-    -- ** Response lenses-    , cslrS3Bucket+    , CreateStorageLocationResponse+    -- * Response Lenses+    , cslrsS3Bucket+    , cslrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElasticBeanstalk.Types-import qualified GHC.Exts--data CreateStorageLocation = CreateStorageLocation-    deriving (Eq, Ord, Read, Show, Generic)---- | 'CreateStorageLocation' constructor.-createStorageLocation :: CreateStorageLocation-createStorageLocation = CreateStorageLocation+import           Network.AWS.ElasticBeanstalk.Types+import           Network.AWS.ElasticBeanstalk.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -newtype CreateStorageLocationResponse = CreateStorageLocationResponse-    { _cslrS3Bucket :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+-- | /See:/ 'createStorageLocation' smart constructor.+data CreateStorageLocation =+    CreateStorageLocation'+    deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'CreateStorageLocationResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'cslrS3Bucket' @::@ 'Maybe' 'Text'+-- | Creates a value of 'CreateStorageLocation' with the minimum fields required to make a request. ---createStorageLocationResponse :: CreateStorageLocationResponse-createStorageLocationResponse = CreateStorageLocationResponse-    { _cslrS3Bucket = Nothing-    }+createStorageLocation+    :: CreateStorageLocation+createStorageLocation = CreateStorageLocation' --- | The name of the Amazon S3 bucket created.-cslrS3Bucket :: Lens' CreateStorageLocationResponse (Maybe Text)-cslrS3Bucket = lens _cslrS3Bucket (\s a -> s { _cslrS3Bucket = a })+instance AWSRequest CreateStorageLocation where+        type Sv CreateStorageLocation = ElasticBeanstalk+        type Rs CreateStorageLocation =+             CreateStorageLocationResponse+        request = postQuery+        response+          = receiveXMLWrapper "CreateStorageLocationResult"+              (\ s h x ->+                 CreateStorageLocationResponse' <$>+                   (x .@? "S3Bucket") <*> (pure (fromEnum s))) +instance ToHeaders CreateStorageLocation where+        toHeaders = const mempty+ instance ToPath CreateStorageLocation where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateStorageLocation where-    toQuery = const mempty+        toQuery+          = const+              (mconcat+                 ["Action" =: ("CreateStorageLocation" :: ByteString),+                  "Version" =: ("2010-12-01" :: ByteString)]) -instance ToHeaders CreateStorageLocation+-- | Results of a CreateStorageLocationResult call.+--+-- /See:/ 'createStorageLocationResponse' smart constructor.+data CreateStorageLocationResponse = CreateStorageLocationResponse'+    { _cslrsS3Bucket :: !(Maybe Text)+    , _cslrsStatus   :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CreateStorageLocation where-    type Sv CreateStorageLocation = ElasticBeanstalk-    type Rs CreateStorageLocation = CreateStorageLocationResponse+-- | Creates a value of 'CreateStorageLocationResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cslrsS3Bucket'+--+-- * 'cslrsStatus'+createStorageLocationResponse+    :: Int -- ^ 'cslrsStatus'+    -> CreateStorageLocationResponse+createStorageLocationResponse pStatus_ =+    CreateStorageLocationResponse'+    { _cslrsS3Bucket = Nothing+    , _cslrsStatus = pStatus_+    } -    request  = post "CreateStorageLocation"-    response = xmlResponse+-- | The name of the Amazon S3 bucket created.+cslrsS3Bucket :: Lens' CreateStorageLocationResponse (Maybe Text)+cslrsS3Bucket = lens _cslrsS3Bucket (\ s a -> s{_cslrsS3Bucket = a}); -instance FromXML CreateStorageLocationResponse where-    parseXML = withElement "CreateStorageLocationResult" $ \x -> CreateStorageLocationResponse-        <$> x .@? "S3Bucket"+-- | The response status code.+cslrsStatus :: Lens' CreateStorageLocationResponse Int+cslrsStatus = lens _cslrsStatus (\ s a -> s{_cslrsStatus = a});

@@ -1,107 +1,110 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElasticBeanstalk.DeleteApplication--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Deletes the specified application along with all associated versions and--- configurations. The application versions will not be deleted from your Amazon--- S3 bucket.+-- Deletes the specified application along with all associated versions and+-- configurations. The application versions will not be deleted from your+-- Amazon S3 bucket. -- -- You cannot delete an application that has a running environment. ----- <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_DeleteApplication.html>+-- /See:/ <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_DeleteApplication.html AWS API Reference> for DeleteApplication. module Network.AWS.ElasticBeanstalk.DeleteApplication     (-    -- * Request-      DeleteApplication-    -- ** Request constructor-    , deleteApplication-    -- ** Request lenses-    , daApplicationName+    -- * Creating a Request+      deleteApplication+    , DeleteApplication+    -- * Request Lenses     , daTerminateEnvByForce+    , daApplicationName -    -- * Response-    , DeleteApplicationResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteApplicationResponse+    , DeleteApplicationResponse     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElasticBeanstalk.Types-import qualified GHC.Exts--data DeleteApplication = DeleteApplication-    { _daApplicationName     :: Text-    , _daTerminateEnvByForce :: Maybe Bool-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.ElasticBeanstalk.Types+import           Network.AWS.ElasticBeanstalk.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DeleteApplication' constructor.+-- | This documentation target is not reported in the API reference. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'deleteApplication' smart constructor.+data DeleteApplication = DeleteApplication'+    { _daTerminateEnvByForce :: !(Maybe Bool)+    , _daApplicationName     :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteApplication' with the minimum fields required to make a request. ----- * 'daApplicationName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'daTerminateEnvByForce' @::@ 'Maybe' 'Bool'+-- * 'daTerminateEnvByForce' ---deleteApplication :: Text -- ^ 'daApplicationName'-                  -> DeleteApplication-deleteApplication p1 = DeleteApplication-    { _daApplicationName     = p1-    , _daTerminateEnvByForce = Nothing+-- * 'daApplicationName'+deleteApplication+    :: Text -- ^ 'daApplicationName'+    -> DeleteApplication+deleteApplication pApplicationName_ =+    DeleteApplication'+    { _daTerminateEnvByForce = Nothing+    , _daApplicationName = pApplicationName_     } +-- | When set to true, running environments will be terminated before+-- deleting the application.+daTerminateEnvByForce :: Lens' DeleteApplication (Maybe Bool)+daTerminateEnvByForce = lens _daTerminateEnvByForce (\ s a -> s{_daTerminateEnvByForce = a});+ -- | The name of the application to delete. daApplicationName :: Lens' DeleteApplication Text-daApplicationName =-    lens _daApplicationName (\s a -> s { _daApplicationName = a })---- | When set to true, running environments will be terminated before deleting the--- application.-daTerminateEnvByForce :: Lens' DeleteApplication (Maybe Bool)-daTerminateEnvByForce =-    lens _daTerminateEnvByForce (\s a -> s { _daTerminateEnvByForce = a })+daApplicationName = lens _daApplicationName (\ s a -> s{_daApplicationName = a}); -data DeleteApplicationResponse = DeleteApplicationResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest DeleteApplication where+        type Sv DeleteApplication = ElasticBeanstalk+        type Rs DeleteApplication = DeleteApplicationResponse+        request = postQuery+        response = receiveNull DeleteApplicationResponse' --- | 'DeleteApplicationResponse' constructor.-deleteApplicationResponse :: DeleteApplicationResponse-deleteApplicationResponse = DeleteApplicationResponse+instance ToHeaders DeleteApplication where+        toHeaders = const mempty  instance ToPath DeleteApplication where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteApplication where-    toQuery DeleteApplication{..} = mconcat-        [ "ApplicationName"     =? _daApplicationName-        , "TerminateEnvByForce" =? _daTerminateEnvByForce-        ]--instance ToHeaders DeleteApplication+        toQuery DeleteApplication'{..}+          = mconcat+              ["Action" =: ("DeleteApplication" :: ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "TerminateEnvByForce" =: _daTerminateEnvByForce,+               "ApplicationName" =: _daApplicationName] -instance AWSRequest DeleteApplication where-    type Sv DeleteApplication = ElasticBeanstalk-    type Rs DeleteApplication = DeleteApplicationResponse+-- | /See:/ 'deleteApplicationResponse' smart constructor.+data DeleteApplicationResponse =+    DeleteApplicationResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic) -    request  = post "DeleteApplication"-    response = nullResponse DeleteApplicationResponse+-- | Creates a value of 'DeleteApplicationResponse' with the minimum fields required to make a request.+--+deleteApplicationResponse+    :: DeleteApplicationResponse+deleteApplicationResponse = DeleteApplicationResponse'

@@ -1,120 +1,129 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElasticBeanstalk.DeleteApplicationVersion--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Deletes the specified version from the specified application.+-- Deletes the specified version from the specified application. ----- You cannot delete an application version that is associated with a running--- environment.+-- You cannot delete an application version that is associated with a+-- running environment. ----- <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_DeleteApplicationVersion.html>+-- /See:/ <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_DeleteApplicationVersion.html AWS API Reference> for DeleteApplicationVersion. module Network.AWS.ElasticBeanstalk.DeleteApplicationVersion     (-    -- * Request-      DeleteApplicationVersion-    -- ** Request constructor-    , deleteApplicationVersion-    -- ** Request lenses-    , davApplicationName+    -- * Creating a Request+      deleteApplicationVersion+    , DeleteApplicationVersion+    -- * Request Lenses     , davDeleteSourceBundle+    , davApplicationName     , davVersionLabel -    -- * Response-    , DeleteApplicationVersionResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteApplicationVersionResponse+    , DeleteApplicationVersionResponse     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElasticBeanstalk.Types-import qualified GHC.Exts--data DeleteApplicationVersion = DeleteApplicationVersion-    { _davApplicationName    :: Text-    , _davDeleteSourceBundle :: Maybe Bool-    , _davVersionLabel       :: Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.ElasticBeanstalk.Types+import           Network.AWS.ElasticBeanstalk.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DeleteApplicationVersion' constructor.+-- | This documentation target is not reported in the API reference. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'deleteApplicationVersion' smart constructor.+data DeleteApplicationVersion = DeleteApplicationVersion'+    { _davDeleteSourceBundle :: !(Maybe Bool)+    , _davApplicationName    :: !Text+    , _davVersionLabel       :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteApplicationVersion' with the minimum fields required to make a request. ----- * 'davApplicationName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'davDeleteSourceBundle' @::@ 'Maybe' 'Bool'+-- * 'davDeleteSourceBundle' ----- * 'davVersionLabel' @::@ 'Text'+-- * 'davApplicationName' ---deleteApplicationVersion :: Text -- ^ 'davApplicationName'-                         -> Text -- ^ 'davVersionLabel'-                         -> DeleteApplicationVersion-deleteApplicationVersion p1 p2 = DeleteApplicationVersion-    { _davApplicationName    = p1-    , _davVersionLabel       = p2-    , _davDeleteSourceBundle = Nothing+-- * 'davVersionLabel'+deleteApplicationVersion+    :: Text -- ^ 'davApplicationName'+    -> Text -- ^ 'davVersionLabel'+    -> DeleteApplicationVersion+deleteApplicationVersion pApplicationName_ pVersionLabel_ =+    DeleteApplicationVersion'+    { _davDeleteSourceBundle = Nothing+    , _davApplicationName = pApplicationName_+    , _davVersionLabel = pVersionLabel_     } --- | The name of the application to delete releases from.-davApplicationName :: Lens' DeleteApplicationVersion Text-davApplicationName =-    lens _davApplicationName (\s a -> s { _davApplicationName = a })- -- | Indicates whether to delete the associated source bundle from Amazon S3: ----- 'true': An attempt is made to delete the associated Amazon S3 source bundle--- specified at time of creation.   'false': No action is taken on the Amazon S3--- source bundle specified at time of creation.    Valid Values: 'true' | 'false'+-- -   'true': An attempt is made to delete the associated Amazon S3 source+--     bundle specified at time of creation.+-- -   'false': No action is taken on the Amazon S3 source bundle specified+--     at time of creation.+--+-- Valid Values: 'true' | 'false' davDeleteSourceBundle :: Lens' DeleteApplicationVersion (Maybe Bool)-davDeleteSourceBundle =-    lens _davDeleteSourceBundle (\s a -> s { _davDeleteSourceBundle = a })+davDeleteSourceBundle = lens _davDeleteSourceBundle (\ s a -> s{_davDeleteSourceBundle = a}); +-- | The name of the application to delete releases from.+davApplicationName :: Lens' DeleteApplicationVersion Text+davApplicationName = lens _davApplicationName (\ s a -> s{_davApplicationName = a});+ -- | The label of the version to delete. davVersionLabel :: Lens' DeleteApplicationVersion Text-davVersionLabel = lens _davVersionLabel (\s a -> s { _davVersionLabel = a })+davVersionLabel = lens _davVersionLabel (\ s a -> s{_davVersionLabel = a}); -data DeleteApplicationVersionResponse = DeleteApplicationVersionResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest DeleteApplicationVersion where+        type Sv DeleteApplicationVersion = ElasticBeanstalk+        type Rs DeleteApplicationVersion =+             DeleteApplicationVersionResponse+        request = postQuery+        response+          = receiveNull DeleteApplicationVersionResponse' --- | 'DeleteApplicationVersionResponse' constructor.-deleteApplicationVersionResponse :: DeleteApplicationVersionResponse-deleteApplicationVersionResponse = DeleteApplicationVersionResponse+instance ToHeaders DeleteApplicationVersion where+        toHeaders = const mempty  instance ToPath DeleteApplicationVersion where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteApplicationVersion where-    toQuery DeleteApplicationVersion{..} = mconcat-        [ "ApplicationName"    =? _davApplicationName-        , "DeleteSourceBundle" =? _davDeleteSourceBundle-        , "VersionLabel"       =? _davVersionLabel-        ]--instance ToHeaders DeleteApplicationVersion+        toQuery DeleteApplicationVersion'{..}+          = mconcat+              ["Action" =:+                 ("DeleteApplicationVersion" :: ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "DeleteSourceBundle" =: _davDeleteSourceBundle,+               "ApplicationName" =: _davApplicationName,+               "VersionLabel" =: _davVersionLabel] -instance AWSRequest DeleteApplicationVersion where-    type Sv DeleteApplicationVersion = ElasticBeanstalk-    type Rs DeleteApplicationVersion = DeleteApplicationVersionResponse+-- | /See:/ 'deleteApplicationVersionResponse' smart constructor.+data DeleteApplicationVersionResponse =+    DeleteApplicationVersionResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic) -    request  = post "DeleteApplicationVersion"-    response = nullResponse DeleteApplicationVersionResponse+-- | Creates a value of 'DeleteApplicationVersionResponse' with the minimum fields required to make a request.+--+deleteApplicationVersionResponse+    :: DeleteApplicationVersionResponse+deleteApplicationVersionResponse = DeleteApplicationVersionResponse'

@@ -1,106 +1,115 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElasticBeanstalk.DeleteConfigurationTemplate--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Deletes the specified configuration template.+-- Deletes the specified configuration template. -- -- When you launch an environment using a configuration template, the -- environment gets a copy of the template. You can delete or modify the--- environment's copy of the template without affecting the running environment.+-- environment\'s copy of the template without affecting the running+-- environment. ----- <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_DeleteConfigurationTemplate.html>+-- /See:/ <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_DeleteConfigurationTemplate.html AWS API Reference> for DeleteConfigurationTemplate. module Network.AWS.ElasticBeanstalk.DeleteConfigurationTemplate     (-    -- * Request-      DeleteConfigurationTemplate-    -- ** Request constructor-    , deleteConfigurationTemplate-    -- ** Request lenses+    -- * Creating a Request+      deleteConfigurationTemplate+    , DeleteConfigurationTemplate+    -- * Request Lenses     , dctApplicationName     , dctTemplateName -    -- * Response-    , DeleteConfigurationTemplateResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteConfigurationTemplateResponse+    , DeleteConfigurationTemplateResponse     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElasticBeanstalk.Types-import qualified GHC.Exts--data DeleteConfigurationTemplate = DeleteConfigurationTemplate-    { _dctApplicationName :: Text-    , _dctTemplateName    :: Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.ElasticBeanstalk.Types+import           Network.AWS.ElasticBeanstalk.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DeleteConfigurationTemplate' constructor.+-- | This documentation target is not reported in the API reference. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'deleteConfigurationTemplate' smart constructor.+data DeleteConfigurationTemplate = DeleteConfigurationTemplate'+    { _dctApplicationName :: !Text+    , _dctTemplateName    :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteConfigurationTemplate' with the minimum fields required to make a request. ----- * 'dctApplicationName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dctTemplateName' @::@ 'Text'+-- * 'dctApplicationName' ---deleteConfigurationTemplate :: Text -- ^ 'dctApplicationName'-                            -> Text -- ^ 'dctTemplateName'-                            -> DeleteConfigurationTemplate-deleteConfigurationTemplate p1 p2 = DeleteConfigurationTemplate-    { _dctApplicationName = p1-    , _dctTemplateName    = p2+-- * 'dctTemplateName'+deleteConfigurationTemplate+    :: Text -- ^ 'dctApplicationName'+    -> Text -- ^ 'dctTemplateName'+    -> DeleteConfigurationTemplate+deleteConfigurationTemplate pApplicationName_ pTemplateName_ =+    DeleteConfigurationTemplate'+    { _dctApplicationName = pApplicationName_+    , _dctTemplateName = pTemplateName_     }  -- | The name of the application to delete the configuration template from. dctApplicationName :: Lens' DeleteConfigurationTemplate Text-dctApplicationName =-    lens _dctApplicationName (\s a -> s { _dctApplicationName = a })+dctApplicationName = lens _dctApplicationName (\ s a -> s{_dctApplicationName = a});  -- | The name of the configuration template to delete. dctTemplateName :: Lens' DeleteConfigurationTemplate Text-dctTemplateName = lens _dctTemplateName (\s a -> s { _dctTemplateName = a })+dctTemplateName = lens _dctTemplateName (\ s a -> s{_dctTemplateName = a}); -data DeleteConfigurationTemplateResponse = DeleteConfigurationTemplateResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest DeleteConfigurationTemplate where+        type Sv DeleteConfigurationTemplate =+             ElasticBeanstalk+        type Rs DeleteConfigurationTemplate =+             DeleteConfigurationTemplateResponse+        request = postQuery+        response+          = receiveNull DeleteConfigurationTemplateResponse' --- | 'DeleteConfigurationTemplateResponse' constructor.-deleteConfigurationTemplateResponse :: DeleteConfigurationTemplateResponse-deleteConfigurationTemplateResponse = DeleteConfigurationTemplateResponse+instance ToHeaders DeleteConfigurationTemplate where+        toHeaders = const mempty  instance ToPath DeleteConfigurationTemplate where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteConfigurationTemplate where-    toQuery DeleteConfigurationTemplate{..} = mconcat-        [ "ApplicationName" =? _dctApplicationName-        , "TemplateName"    =? _dctTemplateName-        ]--instance ToHeaders DeleteConfigurationTemplate+        toQuery DeleteConfigurationTemplate'{..}+          = mconcat+              ["Action" =:+                 ("DeleteConfigurationTemplate" :: ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "ApplicationName" =: _dctApplicationName,+               "TemplateName" =: _dctTemplateName] -instance AWSRequest DeleteConfigurationTemplate where-    type Sv DeleteConfigurationTemplate = ElasticBeanstalk-    type Rs DeleteConfigurationTemplate = DeleteConfigurationTemplateResponse+-- | /See:/ 'deleteConfigurationTemplateResponse' smart constructor.+data DeleteConfigurationTemplateResponse =+    DeleteConfigurationTemplateResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic) -    request  = post "DeleteConfigurationTemplate"-    response = nullResponse DeleteConfigurationTemplateResponse+-- | Creates a value of 'DeleteConfigurationTemplateResponse' with the minimum fields required to make a request.+--+deleteConfigurationTemplateResponse+    :: DeleteConfigurationTemplateResponse+deleteConfigurationTemplateResponse = DeleteConfigurationTemplateResponse'

@@ -1,109 +1,120 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElasticBeanstalk.DeleteEnvironmentConfiguration--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Deletes the draft configuration associated with the running environment.+-- Deletes the draft configuration associated with the running environment. -- -- Updating a running environment with any configuration changes creates a--- draft configuration set. You can get the draft configuration using 'DescribeConfigurationSettings' while the update is in progress or if the update fails. The 'DeploymentStatus'--- for the draft configuration indicates whether the deployment is in process or--- has failed. The draft configuration remains in existence until it is deleted--- with this action.+-- draft configuration set. You can get the draft configuration using+-- DescribeConfigurationSettings while the update is in progress or if the+-- update fails. The 'DeploymentStatus' for the draft configuration+-- indicates whether the deployment is in process or has failed. The draft+-- configuration remains in existence until it is deleted with this action. ----- <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_DeleteEnvironmentConfiguration.html>+-- /See:/ <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_DeleteEnvironmentConfiguration.html AWS API Reference> for DeleteEnvironmentConfiguration. module Network.AWS.ElasticBeanstalk.DeleteEnvironmentConfiguration     (-    -- * Request-      DeleteEnvironmentConfiguration-    -- ** Request constructor-    , deleteEnvironmentConfiguration-    -- ** Request lenses+    -- * Creating a Request+      deleteEnvironmentConfiguration+    , DeleteEnvironmentConfiguration+    -- * Request Lenses     , decApplicationName     , decEnvironmentName -    -- * Response-    , DeleteEnvironmentConfigurationResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteEnvironmentConfigurationResponse+    , DeleteEnvironmentConfigurationResponse     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElasticBeanstalk.Types-import qualified GHC.Exts--data DeleteEnvironmentConfiguration = DeleteEnvironmentConfiguration-    { _decApplicationName :: Text-    , _decEnvironmentName :: Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.ElasticBeanstalk.Types+import           Network.AWS.ElasticBeanstalk.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DeleteEnvironmentConfiguration' constructor.+-- | This documentation target is not reported in the API reference. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'deleteEnvironmentConfiguration' smart constructor.+data DeleteEnvironmentConfiguration = DeleteEnvironmentConfiguration'+    { _decApplicationName :: !Text+    , _decEnvironmentName :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteEnvironmentConfiguration' with the minimum fields required to make a request. ----- * 'decApplicationName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'decEnvironmentName' @::@ 'Text'+-- * 'decApplicationName' ---deleteEnvironmentConfiguration :: Text -- ^ 'decApplicationName'-                               -> Text -- ^ 'decEnvironmentName'-                               -> DeleteEnvironmentConfiguration-deleteEnvironmentConfiguration p1 p2 = DeleteEnvironmentConfiguration-    { _decApplicationName = p1-    , _decEnvironmentName = p2+-- * 'decEnvironmentName'+deleteEnvironmentConfiguration+    :: Text -- ^ 'decApplicationName'+    -> Text -- ^ 'decEnvironmentName'+    -> DeleteEnvironmentConfiguration+deleteEnvironmentConfiguration pApplicationName_ pEnvironmentName_ =+    DeleteEnvironmentConfiguration'+    { _decApplicationName = pApplicationName_+    , _decEnvironmentName = pEnvironmentName_     }  -- | The name of the application the environment is associated with. decApplicationName :: Lens' DeleteEnvironmentConfiguration Text-decApplicationName =-    lens _decApplicationName (\s a -> s { _decApplicationName = a })+decApplicationName = lens _decApplicationName (\ s a -> s{_decApplicationName = a});  -- | The name of the environment to delete the draft configuration from. decEnvironmentName :: Lens' DeleteEnvironmentConfiguration Text-decEnvironmentName =-    lens _decEnvironmentName (\s a -> s { _decEnvironmentName = a })+decEnvironmentName = lens _decEnvironmentName (\ s a -> s{_decEnvironmentName = a}); -data DeleteEnvironmentConfigurationResponse = DeleteEnvironmentConfigurationResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest DeleteEnvironmentConfiguration+         where+        type Sv DeleteEnvironmentConfiguration =+             ElasticBeanstalk+        type Rs DeleteEnvironmentConfiguration =+             DeleteEnvironmentConfigurationResponse+        request = postQuery+        response+          = receiveNull DeleteEnvironmentConfigurationResponse' --- | 'DeleteEnvironmentConfigurationResponse' constructor.-deleteEnvironmentConfigurationResponse :: DeleteEnvironmentConfigurationResponse-deleteEnvironmentConfigurationResponse = DeleteEnvironmentConfigurationResponse+instance ToHeaders DeleteEnvironmentConfiguration+         where+        toHeaders = const mempty  instance ToPath DeleteEnvironmentConfiguration where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteEnvironmentConfiguration where-    toQuery DeleteEnvironmentConfiguration{..} = mconcat-        [ "ApplicationName" =? _decApplicationName-        , "EnvironmentName" =? _decEnvironmentName-        ]--instance ToHeaders DeleteEnvironmentConfiguration+        toQuery DeleteEnvironmentConfiguration'{..}+          = mconcat+              ["Action" =:+                 ("DeleteEnvironmentConfiguration" :: ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "ApplicationName" =: _decApplicationName,+               "EnvironmentName" =: _decEnvironmentName] -instance AWSRequest DeleteEnvironmentConfiguration where-    type Sv DeleteEnvironmentConfiguration = ElasticBeanstalk-    type Rs DeleteEnvironmentConfiguration = DeleteEnvironmentConfigurationResponse+-- | /See:/ 'deleteEnvironmentConfigurationResponse' smart constructor.+data DeleteEnvironmentConfigurationResponse =+    DeleteEnvironmentConfigurationResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic) -    request  = post "DeleteEnvironmentConfiguration"-    response = nullResponse DeleteEnvironmentConfigurationResponse+-- | Creates a value of 'DeleteEnvironmentConfigurationResponse' with the minimum fields required to make a request.+--+deleteEnvironmentConfigurationResponse+    :: DeleteEnvironmentConfigurationResponse+deleteEnvironmentConfigurationResponse =+    DeleteEnvironmentConfigurationResponse'

@@ -1,130 +1,142 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElasticBeanstalk.DescribeApplicationVersions--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Returns descriptions for existing application versions.+-- Returns descriptions for existing application versions. ----- <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_DescribeApplicationVersions.html>+-- /See:/ <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_DescribeApplicationVersions.html AWS API Reference> for DescribeApplicationVersions. module Network.AWS.ElasticBeanstalk.DescribeApplicationVersions     (-    -- * Request-      DescribeApplicationVersions-    -- ** Request constructor-    , describeApplicationVersions-    -- ** Request lenses-    , dav1ApplicationName-    , dav1VersionLabels+    -- * Creating a Request+      describeApplicationVersions+    , DescribeApplicationVersions+    -- * Request Lenses+    , davsVersionLabels+    , davsApplicationName -    -- * Response-    , DescribeApplicationVersionsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeApplicationVersionsResponse-    -- ** Response lenses-    , davrApplicationVersions+    , DescribeApplicationVersionsResponse+    -- * Response Lenses+    , davrsApplicationVersions+    , davrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElasticBeanstalk.Types-import qualified GHC.Exts--data DescribeApplicationVersions = DescribeApplicationVersions-    { _dav1ApplicationName :: Maybe Text-    , _dav1VersionLabels   :: List "member" Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.ElasticBeanstalk.Types+import           Network.AWS.ElasticBeanstalk.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DescribeApplicationVersions' constructor.+-- | Result message containing a list of configuration descriptions. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'describeApplicationVersions' smart constructor.+data DescribeApplicationVersions = DescribeApplicationVersions'+    { _davsVersionLabels   :: !(Maybe [Text])+    , _davsApplicationName :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeApplicationVersions' with the minimum fields required to make a request. ----- * 'dav1ApplicationName' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dav1VersionLabels' @::@ ['Text']+-- * 'davsVersionLabels' ---describeApplicationVersions :: DescribeApplicationVersions-describeApplicationVersions = DescribeApplicationVersions-    { _dav1ApplicationName = Nothing-    , _dav1VersionLabels   = mempty+-- * 'davsApplicationName'+describeApplicationVersions+    :: DescribeApplicationVersions+describeApplicationVersions =+    DescribeApplicationVersions'+    { _davsVersionLabels = Nothing+    , _davsApplicationName = Nothing     } --- | If specified, AWS Elastic Beanstalk restricts the returned descriptions to--- only include ones that are associated with the specified application.-dav1ApplicationName :: Lens' DescribeApplicationVersions (Maybe Text)-dav1ApplicationName =-    lens _dav1ApplicationName (\s a -> s { _dav1ApplicationName = a })---- | If specified, restricts the returned descriptions to only include ones that--- have the specified version labels.-dav1VersionLabels :: Lens' DescribeApplicationVersions [Text]-dav1VersionLabels =-    lens _dav1VersionLabels (\s a -> s { _dav1VersionLabels = a })-        . _List--newtype DescribeApplicationVersionsResponse = DescribeApplicationVersionsResponse-    { _davrApplicationVersions :: List "member" ApplicationVersionDescription-    } deriving (Eq, Read, Show, Monoid, Semigroup)--instance GHC.Exts.IsList DescribeApplicationVersionsResponse where-    type Item DescribeApplicationVersionsResponse = ApplicationVersionDescription+-- | If specified, restricts the returned descriptions to only include ones+-- that have the specified version labels.+davsVersionLabels :: Lens' DescribeApplicationVersions [Text]+davsVersionLabels = lens _davsVersionLabels (\ s a -> s{_davsVersionLabels = a}) . _Default . _Coerce; -    fromList = DescribeApplicationVersionsResponse . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _davrApplicationVersions+-- | If specified, AWS Elastic Beanstalk restricts the returned descriptions+-- to only include ones that are associated with the specified application.+davsApplicationName :: Lens' DescribeApplicationVersions (Maybe Text)+davsApplicationName = lens _davsApplicationName (\ s a -> s{_davsApplicationName = a}); --- | 'DescribeApplicationVersionsResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'davrApplicationVersions' @::@ ['ApplicationVersionDescription']----describeApplicationVersionsResponse :: DescribeApplicationVersionsResponse-describeApplicationVersionsResponse = DescribeApplicationVersionsResponse-    { _davrApplicationVersions = mempty-    }+instance AWSRequest DescribeApplicationVersions where+        type Sv DescribeApplicationVersions =+             ElasticBeanstalk+        type Rs DescribeApplicationVersions =+             DescribeApplicationVersionsResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "DescribeApplicationVersionsResult"+              (\ s h x ->+                 DescribeApplicationVersionsResponse' <$>+                   (x .@? "ApplicationVersions" .!@ mempty >>=+                      may (parseXMLList "member"))+                     <*> (pure (fromEnum s))) --- | A list of 'ApplicationVersionDescription' .-davrApplicationVersions :: Lens' DescribeApplicationVersionsResponse [ApplicationVersionDescription]-davrApplicationVersions =-    lens _davrApplicationVersions (\s a -> s { _davrApplicationVersions = a })-        . _List+instance ToHeaders DescribeApplicationVersions where+        toHeaders = const mempty  instance ToPath DescribeApplicationVersions where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DescribeApplicationVersions where-    toQuery DescribeApplicationVersions{..} = mconcat-        [ "ApplicationName" =? _dav1ApplicationName-        , "VersionLabels"   =? _dav1VersionLabels-        ]+        toQuery DescribeApplicationVersions'{..}+          = mconcat+              ["Action" =:+                 ("DescribeApplicationVersions" :: ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "VersionLabels" =:+                 toQuery+                   (toQueryList "member" <$> _davsVersionLabels),+               "ApplicationName" =: _davsApplicationName] -instance ToHeaders DescribeApplicationVersions+-- | Result message wrapping a list of application version descriptions.+--+-- /See:/ 'describeApplicationVersionsResponse' smart constructor.+data DescribeApplicationVersionsResponse = DescribeApplicationVersionsResponse'+    { _davrsApplicationVersions :: !(Maybe [ApplicationVersionDescription])+    , _davrsStatus              :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DescribeApplicationVersions where-    type Sv DescribeApplicationVersions = ElasticBeanstalk-    type Rs DescribeApplicationVersions = DescribeApplicationVersionsResponse+-- | Creates a value of 'DescribeApplicationVersionsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'davrsApplicationVersions'+--+-- * 'davrsStatus'+describeApplicationVersionsResponse+    :: Int -- ^ 'davrsStatus'+    -> DescribeApplicationVersionsResponse+describeApplicationVersionsResponse pStatus_ =+    DescribeApplicationVersionsResponse'+    { _davrsApplicationVersions = Nothing+    , _davrsStatus = pStatus_+    } -    request  = post "DescribeApplicationVersions"-    response = xmlResponse+-- | A list of ApplicationVersionDescription .+davrsApplicationVersions :: Lens' DescribeApplicationVersionsResponse [ApplicationVersionDescription]+davrsApplicationVersions = lens _davrsApplicationVersions (\ s a -> s{_davrsApplicationVersions = a}) . _Default . _Coerce; -instance FromXML DescribeApplicationVersionsResponse where-    parseXML = withElement "DescribeApplicationVersionsResult" $ \x -> DescribeApplicationVersionsResponse-        <$> x .@? "ApplicationVersions" .!@ mempty+-- | The response status code.+davrsStatus :: Lens' DescribeApplicationVersionsResponse Int+davrsStatus = lens _davrsStatus (\ s a -> s{_davrsStatus = a});

@@ -1,122 +1,128 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElasticBeanstalk.DescribeApplications--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Returns the descriptions of existing applications.+-- Returns the descriptions of existing applications. ----- <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_DescribeApplications.html>+-- /See:/ <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_DescribeApplications.html AWS API Reference> for DescribeApplications. module Network.AWS.ElasticBeanstalk.DescribeApplications     (-    -- * Request-      DescribeApplications-    -- ** Request constructor-    , describeApplications-    -- ** Request lenses+    -- * Creating a Request+      describeApplications+    , DescribeApplications+    -- * Request Lenses     , daApplicationNames -    -- * Response-    , DescribeApplicationsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeApplicationsResponse-    -- ** Response lenses-    , darApplications+    , DescribeApplicationsResponse+    -- * Response Lenses+    , darsApplications+    , darsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElasticBeanstalk.Types-import qualified GHC.Exts--newtype DescribeApplications = DescribeApplications-    { _daApplicationNames :: List "member" Text-    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)--instance GHC.Exts.IsList DescribeApplications where-    type Item DescribeApplications = Text--    fromList = DescribeApplications . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _daApplicationNames+import           Network.AWS.ElasticBeanstalk.Types+import           Network.AWS.ElasticBeanstalk.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DescribeApplications' constructor.+-- | This documentation target is not reported in the API reference. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'describeApplications' smart constructor.+newtype DescribeApplications = DescribeApplications'+    { _daApplicationNames :: Maybe [Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeApplications' with the minimum fields required to make a request. ----- * 'daApplicationNames' @::@ ['Text']+-- Use one of the following lenses to modify other fields as desired: ---describeApplications :: DescribeApplications-describeApplications = DescribeApplications-    { _daApplicationNames = mempty+-- * 'daApplicationNames'+describeApplications+    :: DescribeApplications+describeApplications =+    DescribeApplications'+    { _daApplicationNames = Nothing     } --- | If specified, AWS Elastic Beanstalk restricts the returned descriptions to--- only include those with the specified names.+-- | If specified, AWS Elastic Beanstalk restricts the returned descriptions+-- to only include those with the specified names. daApplicationNames :: Lens' DescribeApplications [Text]-daApplicationNames =-    lens _daApplicationNames (\s a -> s { _daApplicationNames = a })-        . _List--newtype DescribeApplicationsResponse = DescribeApplicationsResponse-    { _darApplications :: List "member" ApplicationDescription-    } deriving (Eq, Read, Show, Monoid, Semigroup)--instance GHC.Exts.IsList DescribeApplicationsResponse where-    type Item DescribeApplicationsResponse = ApplicationDescription--    fromList = DescribeApplicationsResponse . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _darApplications+daApplicationNames = lens _daApplicationNames (\ s a -> s{_daApplicationNames = a}) . _Default . _Coerce; --- | 'DescribeApplicationsResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'darApplications' @::@ ['ApplicationDescription']----describeApplicationsResponse :: DescribeApplicationsResponse-describeApplicationsResponse = DescribeApplicationsResponse-    { _darApplications = mempty-    }+instance AWSRequest DescribeApplications where+        type Sv DescribeApplications = ElasticBeanstalk+        type Rs DescribeApplications =+             DescribeApplicationsResponse+        request = postQuery+        response+          = receiveXMLWrapper "DescribeApplicationsResult"+              (\ s h x ->+                 DescribeApplicationsResponse' <$>+                   (x .@? "Applications" .!@ mempty >>=+                      may (parseXMLList "member"))+                     <*> (pure (fromEnum s))) --- | This parameter contains a list of 'ApplicationDescription'.-darApplications :: Lens' DescribeApplicationsResponse [ApplicationDescription]-darApplications = lens _darApplications (\s a -> s { _darApplications = a }) . _List+instance ToHeaders DescribeApplications where+        toHeaders = const mempty  instance ToPath DescribeApplications where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DescribeApplications where-    toQuery DescribeApplications{..} = mconcat-        [ "ApplicationNames" =? _daApplicationNames-        ]+        toQuery DescribeApplications'{..}+          = mconcat+              ["Action" =: ("DescribeApplications" :: ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "ApplicationNames" =:+                 toQuery+                   (toQueryList "member" <$> _daApplicationNames)] -instance ToHeaders DescribeApplications+-- | Result message containing a list of application descriptions.+--+-- /See:/ 'describeApplicationsResponse' smart constructor.+data DescribeApplicationsResponse = DescribeApplicationsResponse'+    { _darsApplications :: !(Maybe [ApplicationDescription])+    , _darsStatus       :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DescribeApplications where-    type Sv DescribeApplications = ElasticBeanstalk-    type Rs DescribeApplications = DescribeApplicationsResponse+-- | Creates a value of 'DescribeApplicationsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'darsApplications'+--+-- * 'darsStatus'+describeApplicationsResponse+    :: Int -- ^ 'darsStatus'+    -> DescribeApplicationsResponse+describeApplicationsResponse pStatus_ =+    DescribeApplicationsResponse'+    { _darsApplications = Nothing+    , _darsStatus = pStatus_+    } -    request  = post "DescribeApplications"-    response = xmlResponse+-- | This parameter contains a list of ApplicationDescription.+darsApplications :: Lens' DescribeApplicationsResponse [ApplicationDescription]+darsApplications = lens _darsApplications (\ s a -> s{_darsApplications = a}) . _Default . _Coerce; -instance FromXML DescribeApplicationsResponse where-    parseXML = withElement "DescribeApplicationsResult" $ \x -> DescribeApplicationsResponse-        <$> x .@? "Applications" .!@ mempty+-- | The response status code.+darsStatus :: Lens' DescribeApplicationsResponse Int+darsStatus = lens _darsStatus (\ s a -> s{_darsStatus = a});

@@ -1,170 +1,190 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElasticBeanstalk.DescribeConfigurationOptions--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Describes the configuration options that are used in a particular--- configuration template or environment, or that a specified solution stack--- defines. The description includes the values the options, their default--- values, and an indication of the required action on a running environment if--- an option value is changed.+-- Describes the configuration options that are used in a particular+-- configuration template or environment, or that a specified solution+-- stack defines. The description includes the values the options, their+-- default values, and an indication of the required action on a running+-- environment if an option value is changed. ----- <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_DescribeConfigurationOptions.html>+-- /See:/ <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_DescribeConfigurationOptions.html AWS API Reference> for DescribeConfigurationOptions. module Network.AWS.ElasticBeanstalk.DescribeConfigurationOptions     (-    -- * Request-      DescribeConfigurationOptions-    -- ** Request constructor-    , describeConfigurationOptions-    -- ** Request lenses-    , dcoApplicationName+    -- * Creating a Request+      describeConfigurationOptions+    , DescribeConfigurationOptions+    -- * Request Lenses+    , dcoTemplateName     , dcoEnvironmentName+    , dcoApplicationName     , dcoOptions     , dcoSolutionStackName-    , dcoTemplateName -    -- * Response-    , DescribeConfigurationOptionsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeConfigurationOptionsResponse-    -- ** Response lenses-    , dcorOptions-    , dcorSolutionStackName+    , DescribeConfigurationOptionsResponse+    -- * Response Lenses+    , dcorsOptions+    , dcorsSolutionStackName+    , dcorsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElasticBeanstalk.Types-import qualified GHC.Exts--data DescribeConfigurationOptions = DescribeConfigurationOptions-    { _dcoApplicationName   :: Maybe Text-    , _dcoEnvironmentName   :: Maybe Text-    , _dcoOptions           :: List "member" OptionSpecification-    , _dcoSolutionStackName :: Maybe Text-    , _dcoTemplateName      :: Maybe Text-    } deriving (Eq, Read, Show)+import           Network.AWS.ElasticBeanstalk.Types+import           Network.AWS.ElasticBeanstalk.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DescribeConfigurationOptions' constructor.+-- | Result message containig a list of application version descriptions. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'describeConfigurationOptions' smart constructor.+data DescribeConfigurationOptions = DescribeConfigurationOptions'+    { _dcoTemplateName      :: !(Maybe Text)+    , _dcoEnvironmentName   :: !(Maybe Text)+    , _dcoApplicationName   :: !(Maybe Text)+    , _dcoOptions           :: !(Maybe [OptionSpecification])+    , _dcoSolutionStackName :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeConfigurationOptions' with the minimum fields required to make a request. ----- * 'dcoApplicationName' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dcoEnvironmentName' @::@ 'Maybe' 'Text'+-- * 'dcoTemplateName' ----- * 'dcoOptions' @::@ ['OptionSpecification']+-- * 'dcoEnvironmentName' ----- * 'dcoSolutionStackName' @::@ 'Maybe' 'Text'+-- * 'dcoApplicationName' ----- * 'dcoTemplateName' @::@ 'Maybe' 'Text'+-- * 'dcoOptions' ---describeConfigurationOptions :: DescribeConfigurationOptions-describeConfigurationOptions = DescribeConfigurationOptions-    { _dcoApplicationName   = Nothing-    , _dcoTemplateName      = Nothing-    , _dcoEnvironmentName   = Nothing+-- * 'dcoSolutionStackName'+describeConfigurationOptions+    :: DescribeConfigurationOptions+describeConfigurationOptions =+    DescribeConfigurationOptions'+    { _dcoTemplateName = Nothing+    , _dcoEnvironmentName = Nothing+    , _dcoApplicationName = Nothing+    , _dcoOptions = Nothing     , _dcoSolutionStackName = Nothing-    , _dcoOptions           = mempty     } --- | The name of the application associated with the configuration template or--- environment. Only needed if you want to describe the configuration options--- associated with either the configuration template or environment.-dcoApplicationName :: Lens' DescribeConfigurationOptions (Maybe Text)-dcoApplicationName =-    lens _dcoApplicationName (\s a -> s { _dcoApplicationName = a })+-- | The name of the configuration template whose configuration options you+-- want to describe.+dcoTemplateName :: Lens' DescribeConfigurationOptions (Maybe Text)+dcoTemplateName = lens _dcoTemplateName (\ s a -> s{_dcoTemplateName = a});  -- | The name of the environment whose configuration options you want to -- describe. dcoEnvironmentName :: Lens' DescribeConfigurationOptions (Maybe Text)-dcoEnvironmentName =-    lens _dcoEnvironmentName (\s a -> s { _dcoEnvironmentName = a })+dcoEnvironmentName = lens _dcoEnvironmentName (\ s a -> s{_dcoEnvironmentName = a}); +-- | The name of the application associated with the configuration template+-- or environment. Only needed if you want to describe the configuration+-- options associated with either the configuration template or+-- environment.+dcoApplicationName :: Lens' DescribeConfigurationOptions (Maybe Text)+dcoApplicationName = lens _dcoApplicationName (\ s a -> s{_dcoApplicationName = a});+ -- | If specified, restricts the descriptions to only the specified options. dcoOptions :: Lens' DescribeConfigurationOptions [OptionSpecification]-dcoOptions = lens _dcoOptions (\s a -> s { _dcoOptions = a }) . _List+dcoOptions = lens _dcoOptions (\ s a -> s{_dcoOptions = a}) . _Default . _Coerce;  -- | The name of the solution stack whose configuration options you want to -- describe. dcoSolutionStackName :: Lens' DescribeConfigurationOptions (Maybe Text)-dcoSolutionStackName =-    lens _dcoSolutionStackName (\s a -> s { _dcoSolutionStackName = a })+dcoSolutionStackName = lens _dcoSolutionStackName (\ s a -> s{_dcoSolutionStackName = a}); --- | The name of the configuration template whose configuration options you want--- to describe.-dcoTemplateName :: Lens' DescribeConfigurationOptions (Maybe Text)-dcoTemplateName = lens _dcoTemplateName (\s a -> s { _dcoTemplateName = a })+instance AWSRequest DescribeConfigurationOptions+         where+        type Sv DescribeConfigurationOptions =+             ElasticBeanstalk+        type Rs DescribeConfigurationOptions =+             DescribeConfigurationOptionsResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "DescribeConfigurationOptionsResult"+              (\ s h x ->+                 DescribeConfigurationOptionsResponse' <$>+                   (x .@? "Options" .!@ mempty >>=+                      may (parseXMLList "member"))+                     <*> (x .@? "SolutionStackName")+                     <*> (pure (fromEnum s))) -data DescribeConfigurationOptionsResponse = DescribeConfigurationOptionsResponse-    { _dcorOptions           :: List "member" ConfigurationOptionDescription-    , _dcorSolutionStackName :: Maybe Text-    } deriving (Eq, Read, Show)+instance ToHeaders DescribeConfigurationOptions where+        toHeaders = const mempty --- | 'DescribeConfigurationOptionsResponse' constructor.+instance ToPath DescribeConfigurationOptions where+        toPath = const "/"++instance ToQuery DescribeConfigurationOptions where+        toQuery DescribeConfigurationOptions'{..}+          = mconcat+              ["Action" =:+                 ("DescribeConfigurationOptions" :: ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "TemplateName" =: _dcoTemplateName,+               "EnvironmentName" =: _dcoEnvironmentName,+               "ApplicationName" =: _dcoApplicationName,+               "Options" =:+                 toQuery (toQueryList "member" <$> _dcoOptions),+               "SolutionStackName" =: _dcoSolutionStackName]++-- | Describes the settings for a specified configuration set. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'describeConfigurationOptionsResponse' smart constructor.+data DescribeConfigurationOptionsResponse = DescribeConfigurationOptionsResponse'+    { _dcorsOptions           :: !(Maybe [ConfigurationOptionDescription])+    , _dcorsSolutionStackName :: !(Maybe Text)+    , _dcorsStatus            :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeConfigurationOptionsResponse' with the minimum fields required to make a request. ----- * 'dcorOptions' @::@ ['ConfigurationOptionDescription']+-- Use one of the following lenses to modify other fields as desired: ----- * 'dcorSolutionStackName' @::@ 'Maybe' 'Text'+-- * 'dcorsOptions' ---describeConfigurationOptionsResponse :: DescribeConfigurationOptionsResponse-describeConfigurationOptionsResponse = DescribeConfigurationOptionsResponse-    { _dcorSolutionStackName = Nothing-    , _dcorOptions           = mempty+-- * 'dcorsSolutionStackName'+--+-- * 'dcorsStatus'+describeConfigurationOptionsResponse+    :: Int -- ^ 'dcorsStatus'+    -> DescribeConfigurationOptionsResponse+describeConfigurationOptionsResponse pStatus_ =+    DescribeConfigurationOptionsResponse'+    { _dcorsOptions = Nothing+    , _dcorsSolutionStackName = Nothing+    , _dcorsStatus = pStatus_     } --- | A list of 'ConfigurationOptionDescription'.-dcorOptions :: Lens' DescribeConfigurationOptionsResponse [ConfigurationOptionDescription]-dcorOptions = lens _dcorOptions (\s a -> s { _dcorOptions = a }) . _List+-- | A list of ConfigurationOptionDescription.+dcorsOptions :: Lens' DescribeConfigurationOptionsResponse [ConfigurationOptionDescription]+dcorsOptions = lens _dcorsOptions (\ s a -> s{_dcorsOptions = a}) . _Default . _Coerce;  -- | The name of the solution stack these configuration options belong to.-dcorSolutionStackName :: Lens' DescribeConfigurationOptionsResponse (Maybe Text)-dcorSolutionStackName =-    lens _dcorSolutionStackName (\s a -> s { _dcorSolutionStackName = a })--instance ToPath DescribeConfigurationOptions where-    toPath = const "/"--instance ToQuery DescribeConfigurationOptions where-    toQuery DescribeConfigurationOptions{..} = mconcat-        [ "ApplicationName"   =? _dcoApplicationName-        , "EnvironmentName"   =? _dcoEnvironmentName-        , "Options"           =? _dcoOptions-        , "SolutionStackName" =? _dcoSolutionStackName-        , "TemplateName"      =? _dcoTemplateName-        ]--instance ToHeaders DescribeConfigurationOptions--instance AWSRequest DescribeConfigurationOptions where-    type Sv DescribeConfigurationOptions = ElasticBeanstalk-    type Rs DescribeConfigurationOptions = DescribeConfigurationOptionsResponse--    request  = post "DescribeConfigurationOptions"-    response = xmlResponse+dcorsSolutionStackName :: Lens' DescribeConfigurationOptionsResponse (Maybe Text)+dcorsSolutionStackName = lens _dcorsSolutionStackName (\ s a -> s{_dcorsSolutionStackName = a}); -instance FromXML DescribeConfigurationOptionsResponse where-    parseXML = withElement "DescribeConfigurationOptionsResult" $ \x -> DescribeConfigurationOptionsResponse-        <$> x .@? "Options" .!@ mempty-        <*> x .@? "SolutionStackName"+-- | The response status code.+dcorsStatus :: Lens' DescribeConfigurationOptionsResponse Int+dcorsStatus = lens _dcorsStatus (\ s a -> s{_dcorsStatus = a});

@@ -1,158 +1,176 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElasticBeanstalk.DescribeConfigurationSettings--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Returns a description of the settings for the specified configuration set,--- that is, either a configuration template or the configuration set associated--- with a running environment.+-- Returns a description of the settings for the specified configuration+-- set, that is, either a configuration template or the configuration set+-- associated with a running environment. -- -- When describing the settings for the configuration set associated with a -- running environment, it is possible to receive two sets of setting--- descriptions. One is the deployed configuration set, and the other is a draft--- configuration of an environment that is either in the process of deployment--- or that failed to deploy.+-- descriptions. One is the deployed configuration set, and the other is a+-- draft configuration of an environment that is either in the process of+-- deployment or that failed to deploy. -- -- Related Topics ----- 'DeleteEnvironmentConfiguration'+-- -   DeleteEnvironmentConfiguration ----- <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_DescribeConfigurationSettings.html>+-- /See:/ <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_DescribeConfigurationSettings.html AWS API Reference> for DescribeConfigurationSettings. module Network.AWS.ElasticBeanstalk.DescribeConfigurationSettings     (-    -- * Request-      DescribeConfigurationSettings-    -- ** Request constructor-    , describeConfigurationSettings-    -- ** Request lenses-    , dcsApplicationName-    , dcsEnvironmentName+    -- * Creating a Request+      describeConfigurationSettings+    , DescribeConfigurationSettings+    -- * Request Lenses     , dcsTemplateName+    , dcsEnvironmentName+    , dcsApplicationName -    -- * Response-    , DescribeConfigurationSettingsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeConfigurationSettingsResponse-    -- ** Response lenses-    , dcsrConfigurationSettings+    , DescribeConfigurationSettingsResponse+    -- * Response Lenses+    , dcsrsConfigurationSettings+    , dcsrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElasticBeanstalk.Types-import qualified GHC.Exts--data DescribeConfigurationSettings = DescribeConfigurationSettings-    { _dcsApplicationName :: Text-    , _dcsEnvironmentName :: Maybe Text-    , _dcsTemplateName    :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.ElasticBeanstalk.Types+import           Network.AWS.ElasticBeanstalk.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DescribeConfigurationSettings' constructor.+-- | Result message containing all of the configuration settings for a+-- specified solution stack or configuration template. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'describeConfigurationSettings' smart constructor.+data DescribeConfigurationSettings = DescribeConfigurationSettings'+    { _dcsTemplateName    :: !(Maybe Text)+    , _dcsEnvironmentName :: !(Maybe Text)+    , _dcsApplicationName :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeConfigurationSettings' with the minimum fields required to make a request. ----- * 'dcsApplicationName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dcsEnvironmentName' @::@ 'Maybe' 'Text'+-- * 'dcsTemplateName' ----- * 'dcsTemplateName' @::@ 'Maybe' 'Text'+-- * 'dcsEnvironmentName' ---describeConfigurationSettings :: Text -- ^ 'dcsApplicationName'-                              -> DescribeConfigurationSettings-describeConfigurationSettings p1 = DescribeConfigurationSettings-    { _dcsApplicationName = p1-    , _dcsTemplateName    = Nothing+-- * 'dcsApplicationName'+describeConfigurationSettings+    :: Text -- ^ 'dcsApplicationName'+    -> DescribeConfigurationSettings+describeConfigurationSettings pApplicationName_ =+    DescribeConfigurationSettings'+    { _dcsTemplateName = Nothing     , _dcsEnvironmentName = Nothing+    , _dcsApplicationName = pApplicationName_     } --- | The application for the environment or configuration template.-dcsApplicationName :: Lens' DescribeConfigurationSettings Text-dcsApplicationName =-    lens _dcsApplicationName (\s a -> s { _dcsApplicationName = a })---- | The name of the environment to describe.------ Condition: You must specify either this or a TemplateName, but not both. If--- you specify both, AWS Elastic Beanstalk returns an 'InvalidParameterCombination'--- error. If you do not specify either, AWS Elastic Beanstalk returns 'MissingRequiredParameter' error.-dcsEnvironmentName :: Lens' DescribeConfigurationSettings (Maybe Text)-dcsEnvironmentName =-    lens _dcsEnvironmentName (\s a -> s { _dcsEnvironmentName = a })- -- | The name of the configuration template to describe. ----- Conditional: You must specify either this parameter or an EnvironmentName,--- but not both. If you specify both, AWS Elastic Beanstalk returns an 'InvalidParameterCombination' error. If you do not specify either, AWS Elastic Beanstalk returns a 'MissingRequiredParameter' error.+-- Conditional: You must specify either this parameter or an+-- EnvironmentName, but not both. If you specify both, AWS Elastic+-- Beanstalk returns an 'InvalidParameterCombination' error. If you do not+-- specify either, AWS Elastic Beanstalk returns a+-- 'MissingRequiredParameter' error. dcsTemplateName :: Lens' DescribeConfigurationSettings (Maybe Text)-dcsTemplateName = lens _dcsTemplateName (\s a -> s { _dcsTemplateName = a })--newtype DescribeConfigurationSettingsResponse = DescribeConfigurationSettingsResponse-    { _dcsrConfigurationSettings :: List "member" ConfigurationSettingsDescription-    } deriving (Eq, Read, Show, Monoid, Semigroup)+dcsTemplateName = lens _dcsTemplateName (\ s a -> s{_dcsTemplateName = a}); -instance GHC.Exts.IsList DescribeConfigurationSettingsResponse where-    type Item DescribeConfigurationSettingsResponse = ConfigurationSettingsDescription+-- | The name of the environment to describe.+--+-- Condition: You must specify either this or a TemplateName, but not both.+-- If you specify both, AWS Elastic Beanstalk returns an+-- 'InvalidParameterCombination' error. If you do not specify either, AWS+-- Elastic Beanstalk returns 'MissingRequiredParameter' error.+dcsEnvironmentName :: Lens' DescribeConfigurationSettings (Maybe Text)+dcsEnvironmentName = lens _dcsEnvironmentName (\ s a -> s{_dcsEnvironmentName = a}); -    fromList = DescribeConfigurationSettingsResponse . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _dcsrConfigurationSettings+-- | The application for the environment or configuration template.+dcsApplicationName :: Lens' DescribeConfigurationSettings Text+dcsApplicationName = lens _dcsApplicationName (\ s a -> s{_dcsApplicationName = a}); --- | 'DescribeConfigurationSettingsResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dcsrConfigurationSettings' @::@ ['ConfigurationSettingsDescription']----describeConfigurationSettingsResponse :: DescribeConfigurationSettingsResponse-describeConfigurationSettingsResponse = DescribeConfigurationSettingsResponse-    { _dcsrConfigurationSettings = mempty-    }+instance AWSRequest DescribeConfigurationSettings+         where+        type Sv DescribeConfigurationSettings =+             ElasticBeanstalk+        type Rs DescribeConfigurationSettings =+             DescribeConfigurationSettingsResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "DescribeConfigurationSettingsResult"+              (\ s h x ->+                 DescribeConfigurationSettingsResponse' <$>+                   (x .@? "ConfigurationSettings" .!@ mempty >>=+                      may (parseXMLList "member"))+                     <*> (pure (fromEnum s))) --- | A list of 'ConfigurationSettingsDescription'.-dcsrConfigurationSettings :: Lens' DescribeConfigurationSettingsResponse [ConfigurationSettingsDescription]-dcsrConfigurationSettings =-    lens _dcsrConfigurationSettings-        (\s a -> s { _dcsrConfigurationSettings = a })-            . _List+instance ToHeaders DescribeConfigurationSettings+         where+        toHeaders = const mempty  instance ToPath DescribeConfigurationSettings where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DescribeConfigurationSettings where-    toQuery DescribeConfigurationSettings{..} = mconcat-        [ "ApplicationName" =? _dcsApplicationName-        , "EnvironmentName" =? _dcsEnvironmentName-        , "TemplateName"    =? _dcsTemplateName-        ]+        toQuery DescribeConfigurationSettings'{..}+          = mconcat+              ["Action" =:+                 ("DescribeConfigurationSettings" :: ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "TemplateName" =: _dcsTemplateName,+               "EnvironmentName" =: _dcsEnvironmentName,+               "ApplicationName" =: _dcsApplicationName] -instance ToHeaders DescribeConfigurationSettings+-- | The results from a request to change the configuration settings of an+-- environment.+--+-- /See:/ 'describeConfigurationSettingsResponse' smart constructor.+data DescribeConfigurationSettingsResponse = DescribeConfigurationSettingsResponse'+    { _dcsrsConfigurationSettings :: !(Maybe [ConfigurationSettingsDescription])+    , _dcsrsStatus                :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DescribeConfigurationSettings where-    type Sv DescribeConfigurationSettings = ElasticBeanstalk-    type Rs DescribeConfigurationSettings = DescribeConfigurationSettingsResponse+-- | Creates a value of 'DescribeConfigurationSettingsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dcsrsConfigurationSettings'+--+-- * 'dcsrsStatus'+describeConfigurationSettingsResponse+    :: Int -- ^ 'dcsrsStatus'+    -> DescribeConfigurationSettingsResponse+describeConfigurationSettingsResponse pStatus_ =+    DescribeConfigurationSettingsResponse'+    { _dcsrsConfigurationSettings = Nothing+    , _dcsrsStatus = pStatus_+    } -    request  = post "DescribeConfigurationSettings"-    response = xmlResponse+-- | A list of ConfigurationSettingsDescription.+dcsrsConfigurationSettings :: Lens' DescribeConfigurationSettingsResponse [ConfigurationSettingsDescription]+dcsrsConfigurationSettings = lens _dcsrsConfigurationSettings (\ s a -> s{_dcsrsConfigurationSettings = a}) . _Default . _Coerce; -instance FromXML DescribeConfigurationSettingsResponse where-    parseXML = withElement "DescribeConfigurationSettingsResult" $ \x -> DescribeConfigurationSettingsResponse-        <$> x .@? "ConfigurationSettings" .!@ mempty+-- | The response status code.+dcsrsStatus :: Lens' DescribeConfigurationSettingsResponse Int+dcsrsStatus = lens _dcsrsStatus (\ s a -> s{_dcsrsStatus = a});

@@ -0,0 +1,215 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.ElasticBeanstalk.DescribeEnvironmentHealth+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about the overall health of the specified+-- environment. The __DescribeEnvironmentHealth__ operation is only+-- available with AWS Elastic Beanstalk Enhanced Health.+--+-- /See:/ <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_DescribeEnvironmentHealth.html AWS API Reference> for DescribeEnvironmentHealth.+module Network.AWS.ElasticBeanstalk.DescribeEnvironmentHealth+    (+    -- * Creating a Request+      describeEnvironmentHealth+    , DescribeEnvironmentHealth+    -- * Request Lenses+    , dehEnvironmentName+    , dehEnvironmentId+    , dehAttributeNames++    -- * Destructuring the Response+    , describeEnvironmentHealthResponse+    , DescribeEnvironmentHealthResponse+    -- * Response Lenses+    , dehrsCauses+    , dehrsApplicationMetrics+    , dehrsColor+    , dehrsEnvironmentName+    , dehrsHealthStatus+    , dehrsInstancesHealth+    , dehrsRefreshedAt+    , dehrsStatus+    ) where++import           Network.AWS.ElasticBeanstalk.Types+import           Network.AWS.ElasticBeanstalk.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | See the example below to learn how to create a request body.+--+-- /See:/ 'describeEnvironmentHealth' smart constructor.+data DescribeEnvironmentHealth = DescribeEnvironmentHealth'+    { _dehEnvironmentName :: !(Maybe Text)+    , _dehEnvironmentId   :: !(Maybe Text)+    , _dehAttributeNames  :: !(Maybe [EnvironmentHealthAttribute])+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeEnvironmentHealth' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dehEnvironmentName'+--+-- * 'dehEnvironmentId'+--+-- * 'dehAttributeNames'+describeEnvironmentHealth+    :: DescribeEnvironmentHealth+describeEnvironmentHealth =+    DescribeEnvironmentHealth'+    { _dehEnvironmentName = Nothing+    , _dehEnvironmentId = Nothing+    , _dehAttributeNames = Nothing+    }++-- | Specifies the AWS Elastic Beanstalk environment name.+dehEnvironmentName :: Lens' DescribeEnvironmentHealth (Maybe Text)+dehEnvironmentName = lens _dehEnvironmentName (\ s a -> s{_dehEnvironmentName = a});++-- | Specifies the AWS Elastic Beanstalk environment ID.+dehEnvironmentId :: Lens' DescribeEnvironmentHealth (Maybe Text)+dehEnvironmentId = lens _dehEnvironmentId (\ s a -> s{_dehEnvironmentId = a});++-- | Specifies the response elements you wish to receive. If no attribute+-- names are specified, AWS Elastic Beanstalk returns all response+-- elements.+dehAttributeNames :: Lens' DescribeEnvironmentHealth [EnvironmentHealthAttribute]+dehAttributeNames = lens _dehAttributeNames (\ s a -> s{_dehAttributeNames = a}) . _Default . _Coerce;++instance AWSRequest DescribeEnvironmentHealth where+        type Sv DescribeEnvironmentHealth = ElasticBeanstalk+        type Rs DescribeEnvironmentHealth =+             DescribeEnvironmentHealthResponse+        request = postQuery+        response+          = receiveXMLWrapper "DescribeEnvironmentHealthResult"+              (\ s h x ->+                 DescribeEnvironmentHealthResponse' <$>+                   (x .@? "Causes" .!@ mempty >>=+                      may (parseXMLList "member"))+                     <*> (x .@? "ApplicationMetrics")+                     <*> (x .@? "Color")+                     <*> (x .@? "EnvironmentName")+                     <*> (x .@? "HealthStatus")+                     <*> (x .@? "InstancesHealth")+                     <*> (x .@? "RefreshedAt")+                     <*> (pure (fromEnum s)))++instance ToHeaders DescribeEnvironmentHealth where+        toHeaders = const mempty++instance ToPath DescribeEnvironmentHealth where+        toPath = const "/"++instance ToQuery DescribeEnvironmentHealth where+        toQuery DescribeEnvironmentHealth'{..}+          = mconcat+              ["Action" =:+                 ("DescribeEnvironmentHealth" :: ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "EnvironmentName" =: _dehEnvironmentName,+               "EnvironmentId" =: _dehEnvironmentId,+               "AttributeNames" =:+                 toQuery+                   (toQueryList "member" <$> _dehAttributeNames)]++-- | See the example below for a sample response.+--+-- /See:/ 'describeEnvironmentHealthResponse' smart constructor.+data DescribeEnvironmentHealthResponse = DescribeEnvironmentHealthResponse'+    { _dehrsCauses             :: !(Maybe [Text])+    , _dehrsApplicationMetrics :: !(Maybe ApplicationMetrics)+    , _dehrsColor              :: !(Maybe Text)+    , _dehrsEnvironmentName    :: !(Maybe Text)+    , _dehrsHealthStatus       :: !(Maybe Text)+    , _dehrsInstancesHealth    :: !(Maybe InstanceHealthSummary)+    , _dehrsRefreshedAt        :: !(Maybe ISO8601)+    , _dehrsStatus             :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeEnvironmentHealthResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dehrsCauses'+--+-- * 'dehrsApplicationMetrics'+--+-- * 'dehrsColor'+--+-- * 'dehrsEnvironmentName'+--+-- * 'dehrsHealthStatus'+--+-- * 'dehrsInstancesHealth'+--+-- * 'dehrsRefreshedAt'+--+-- * 'dehrsStatus'+describeEnvironmentHealthResponse+    :: Int -- ^ 'dehrsStatus'+    -> DescribeEnvironmentHealthResponse+describeEnvironmentHealthResponse pStatus_ =+    DescribeEnvironmentHealthResponse'+    { _dehrsCauses = Nothing+    , _dehrsApplicationMetrics = Nothing+    , _dehrsColor = Nothing+    , _dehrsEnvironmentName = Nothing+    , _dehrsHealthStatus = Nothing+    , _dehrsInstancesHealth = Nothing+    , _dehrsRefreshedAt = Nothing+    , _dehrsStatus = pStatus_+    }++-- | Returns potential causes for the reported status.+dehrsCauses :: Lens' DescribeEnvironmentHealthResponse [Text]+dehrsCauses = lens _dehrsCauses (\ s a -> s{_dehrsCauses = a}) . _Default . _Coerce;++-- | Undocumented member.+dehrsApplicationMetrics :: Lens' DescribeEnvironmentHealthResponse (Maybe ApplicationMetrics)+dehrsApplicationMetrics = lens _dehrsApplicationMetrics (\ s a -> s{_dehrsApplicationMetrics = a});++-- | Returns the color indicator that tells you information about the health+-- of the environment. For more information, see+-- <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/health-enhanced-status.html Health Colors and Statuses>.+dehrsColor :: Lens' DescribeEnvironmentHealthResponse (Maybe Text)+dehrsColor = lens _dehrsColor (\ s a -> s{_dehrsColor = a});++-- | The AWS Elastic Beanstalk environment name.+dehrsEnvironmentName :: Lens' DescribeEnvironmentHealthResponse (Maybe Text)+dehrsEnvironmentName = lens _dehrsEnvironmentName (\ s a -> s{_dehrsEnvironmentName = a});++-- | Contains the response body with information about the health of the+-- environment.+dehrsHealthStatus :: Lens' DescribeEnvironmentHealthResponse (Maybe Text)+dehrsHealthStatus = lens _dehrsHealthStatus (\ s a -> s{_dehrsHealthStatus = a});++-- | Undocumented member.+dehrsInstancesHealth :: Lens' DescribeEnvironmentHealthResponse (Maybe InstanceHealthSummary)+dehrsInstancesHealth = lens _dehrsInstancesHealth (\ s a -> s{_dehrsInstancesHealth = a});++-- | The date and time the information was last refreshed.+dehrsRefreshedAt :: Lens' DescribeEnvironmentHealthResponse (Maybe UTCTime)+dehrsRefreshedAt = lens _dehrsRefreshedAt (\ s a -> s{_dehrsRefreshedAt = a}) . mapping _Time;++-- | The response status code.+dehrsStatus :: Lens' DescribeEnvironmentHealthResponse Int+dehrsStatus = lens _dehrsStatus (\ s a -> s{_dehrsStatus = a});

@@ -1,126 +1,146 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElasticBeanstalk.DescribeEnvironmentResources--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Returns AWS resources for this environment.+-- Returns AWS resources for this environment. ----- <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_DescribeEnvironmentResources.html>+-- /See:/ <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_DescribeEnvironmentResources.html AWS API Reference> for DescribeEnvironmentResources. module Network.AWS.ElasticBeanstalk.DescribeEnvironmentResources     (-    -- * Request-      DescribeEnvironmentResources-    -- ** Request constructor-    , describeEnvironmentResources-    -- ** Request lenses-    , derEnvironmentId+    -- * Creating a Request+      describeEnvironmentResources+    , DescribeEnvironmentResources+    -- * Request Lenses     , derEnvironmentName+    , derEnvironmentId -    -- * Response-    , DescribeEnvironmentResourcesResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeEnvironmentResourcesResponse-    -- ** Response lenses-    , derrEnvironmentResources+    , DescribeEnvironmentResourcesResponse+    -- * Response Lenses+    , derrsEnvironmentResources+    , derrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElasticBeanstalk.Types-import qualified GHC.Exts--data DescribeEnvironmentResources = DescribeEnvironmentResources-    { _derEnvironmentId   :: Maybe Text-    , _derEnvironmentName :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.ElasticBeanstalk.Types+import           Network.AWS.ElasticBeanstalk.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DescribeEnvironmentResources' constructor.+-- | This documentation target is not reported in the API reference. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'describeEnvironmentResources' smart constructor.+data DescribeEnvironmentResources = DescribeEnvironmentResources'+    { _derEnvironmentName :: !(Maybe Text)+    , _derEnvironmentId   :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeEnvironmentResources' with the minimum fields required to make a request. ----- * 'derEnvironmentId' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'derEnvironmentName' @::@ 'Maybe' 'Text'+-- * 'derEnvironmentName' ---describeEnvironmentResources :: DescribeEnvironmentResources-describeEnvironmentResources = DescribeEnvironmentResources-    { _derEnvironmentId   = Nothing-    , _derEnvironmentName = Nothing+-- * 'derEnvironmentId'+describeEnvironmentResources+    :: DescribeEnvironmentResources+describeEnvironmentResources =+    DescribeEnvironmentResources'+    { _derEnvironmentName = Nothing+    , _derEnvironmentId = Nothing     } --- | The ID of the environment to retrieve AWS resource usage data.------ Condition: You must specify either this or an EnvironmentName, or both. If--- you do not specify either, AWS Elastic Beanstalk returns 'MissingRequiredParameter' error.-derEnvironmentId :: Lens' DescribeEnvironmentResources (Maybe Text)-derEnvironmentId = lens _derEnvironmentId (\s a -> s { _derEnvironmentId = a })- -- | The name of the environment to retrieve AWS resource usage data. -- -- Condition: You must specify either this or an EnvironmentId, or both. If--- you do not specify either, AWS Elastic Beanstalk returns 'MissingRequiredParameter' error.+-- you do not specify either, AWS Elastic Beanstalk returns+-- 'MissingRequiredParameter' error. derEnvironmentName :: Lens' DescribeEnvironmentResources (Maybe Text)-derEnvironmentName =-    lens _derEnvironmentName (\s a -> s { _derEnvironmentName = a })--newtype DescribeEnvironmentResourcesResponse = DescribeEnvironmentResourcesResponse-    { _derrEnvironmentResources :: Maybe EnvironmentResourceDescription-    } deriving (Eq, Read, Show)+derEnvironmentName = lens _derEnvironmentName (\ s a -> s{_derEnvironmentName = a}); --- | 'DescribeEnvironmentResourcesResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'derrEnvironmentResources' @::@ 'Maybe' 'EnvironmentResourceDescription'+-- | The ID of the environment to retrieve AWS resource usage data. ---describeEnvironmentResourcesResponse :: DescribeEnvironmentResourcesResponse-describeEnvironmentResourcesResponse = DescribeEnvironmentResourcesResponse-    { _derrEnvironmentResources = Nothing-    }+-- Condition: You must specify either this or an EnvironmentName, or both.+-- If you do not specify either, AWS Elastic Beanstalk returns+-- 'MissingRequiredParameter' error.+derEnvironmentId :: Lens' DescribeEnvironmentResources (Maybe Text)+derEnvironmentId = lens _derEnvironmentId (\ s a -> s{_derEnvironmentId = a}); --- | A list of 'EnvironmentResourceDescription'.-derrEnvironmentResources :: Lens' DescribeEnvironmentResourcesResponse (Maybe EnvironmentResourceDescription)-derrEnvironmentResources =-    lens _derrEnvironmentResources-        (\s a -> s { _derrEnvironmentResources = a })+instance AWSRequest DescribeEnvironmentResources+         where+        type Sv DescribeEnvironmentResources =+             ElasticBeanstalk+        type Rs DescribeEnvironmentResources =+             DescribeEnvironmentResourcesResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "DescribeEnvironmentResourcesResult"+              (\ s h x ->+                 DescribeEnvironmentResourcesResponse' <$>+                   (x .@? "EnvironmentResources") <*>+                     (pure (fromEnum s))) +instance ToHeaders DescribeEnvironmentResources where+        toHeaders = const mempty+ instance ToPath DescribeEnvironmentResources where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DescribeEnvironmentResources where-    toQuery DescribeEnvironmentResources{..} = mconcat-        [ "EnvironmentId"   =? _derEnvironmentId-        , "EnvironmentName" =? _derEnvironmentName-        ]+        toQuery DescribeEnvironmentResources'{..}+          = mconcat+              ["Action" =:+                 ("DescribeEnvironmentResources" :: ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "EnvironmentName" =: _derEnvironmentName,+               "EnvironmentId" =: _derEnvironmentId] -instance ToHeaders DescribeEnvironmentResources+-- | Result message containing a list of environment resource descriptions.+--+-- /See:/ 'describeEnvironmentResourcesResponse' smart constructor.+data DescribeEnvironmentResourcesResponse = DescribeEnvironmentResourcesResponse'+    { _derrsEnvironmentResources :: !(Maybe EnvironmentResourceDescription)+    , _derrsStatus               :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DescribeEnvironmentResources where-    type Sv DescribeEnvironmentResources = ElasticBeanstalk-    type Rs DescribeEnvironmentResources = DescribeEnvironmentResourcesResponse+-- | Creates a value of 'DescribeEnvironmentResourcesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'derrsEnvironmentResources'+--+-- * 'derrsStatus'+describeEnvironmentResourcesResponse+    :: Int -- ^ 'derrsStatus'+    -> DescribeEnvironmentResourcesResponse+describeEnvironmentResourcesResponse pStatus_ =+    DescribeEnvironmentResourcesResponse'+    { _derrsEnvironmentResources = Nothing+    , _derrsStatus = pStatus_+    } -    request  = post "DescribeEnvironmentResources"-    response = xmlResponse+-- | A list of EnvironmentResourceDescription.+derrsEnvironmentResources :: Lens' DescribeEnvironmentResourcesResponse (Maybe EnvironmentResourceDescription)+derrsEnvironmentResources = lens _derrsEnvironmentResources (\ s a -> s{_derrsEnvironmentResources = a}); -instance FromXML DescribeEnvironmentResourcesResponse where-    parseXML = withElement "DescribeEnvironmentResourcesResult" $ \x -> DescribeEnvironmentResourcesResponse-        <$> x .@? "EnvironmentResources"+-- | The response status code.+derrsStatus :: Lens' DescribeEnvironmentResourcesResponse Int+derrsStatus = lens _derrsStatus (\ s a -> s{_derrsStatus = a});

@@ -1,182 +1,188 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElasticBeanstalk.DescribeEnvironments--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Returns descriptions for existing environments.+-- Returns descriptions for existing environments. ----- <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_DescribeEnvironments.html>+-- /See:/ <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_DescribeEnvironments.html AWS API Reference> for DescribeEnvironments. module Network.AWS.ElasticBeanstalk.DescribeEnvironments     (-    -- * Request-      DescribeEnvironments-    -- ** Request constructor-    , describeEnvironments-    -- ** Request lenses-    , de1ApplicationName-    , de1EnvironmentIds-    , de1EnvironmentNames-    , de1IncludeDeleted-    , de1IncludedDeletedBackTo-    , de1VersionLabel+    -- * Creating a Request+      describeEnvironments+    , DescribeEnvironments+    -- * Request Lenses+    , dEnvironmentIds+    , dEnvironmentNames+    , dVersionLabel+    , dIncludedDeletedBackTo+    , dApplicationName+    , dIncludeDeleted -    -- * Response-    , DescribeEnvironmentsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeEnvironmentsResponse-    -- ** Response lenses-    , derEnvironments+    , DescribeEnvironmentsResponse+    -- * Response Lenses+    , drsEnvironments+    , drsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElasticBeanstalk.Types-import qualified GHC.Exts--data DescribeEnvironments = DescribeEnvironments-    { _de1ApplicationName       :: Maybe Text-    , _de1EnvironmentIds        :: List "member" Text-    , _de1EnvironmentNames      :: List "member" Text-    , _de1IncludeDeleted        :: Maybe Bool-    , _de1IncludedDeletedBackTo :: Maybe ISO8601-    , _de1VersionLabel          :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.ElasticBeanstalk.Types+import           Network.AWS.ElasticBeanstalk.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DescribeEnvironments' constructor.+-- | This documentation target is not reported in the API reference. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'describeEnvironments' smart constructor.+data DescribeEnvironments = DescribeEnvironments'+    { _dEnvironmentIds        :: !(Maybe [Text])+    , _dEnvironmentNames      :: !(Maybe [Text])+    , _dVersionLabel          :: !(Maybe Text)+    , _dIncludedDeletedBackTo :: !(Maybe ISO8601)+    , _dApplicationName       :: !(Maybe Text)+    , _dIncludeDeleted        :: !(Maybe Bool)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeEnvironments' with the minimum fields required to make a request. ----- * 'de1ApplicationName' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'de1EnvironmentIds' @::@ ['Text']+-- * 'dEnvironmentIds' ----- * 'de1EnvironmentNames' @::@ ['Text']+-- * 'dEnvironmentNames' ----- * 'de1IncludeDeleted' @::@ 'Maybe' 'Bool'+-- * 'dVersionLabel' ----- * 'de1IncludedDeletedBackTo' @::@ 'Maybe' 'UTCTime'+-- * 'dIncludedDeletedBackTo' ----- * 'de1VersionLabel' @::@ 'Maybe' 'Text'+-- * 'dApplicationName' ---describeEnvironments :: DescribeEnvironments-describeEnvironments = DescribeEnvironments-    { _de1ApplicationName       = Nothing-    , _de1VersionLabel          = Nothing-    , _de1EnvironmentIds        = mempty-    , _de1EnvironmentNames      = mempty-    , _de1IncludeDeleted        = Nothing-    , _de1IncludedDeletedBackTo = Nothing+-- * 'dIncludeDeleted'+describeEnvironments+    :: DescribeEnvironments+describeEnvironments =+    DescribeEnvironments'+    { _dEnvironmentIds = Nothing+    , _dEnvironmentNames = Nothing+    , _dVersionLabel = Nothing+    , _dIncludedDeletedBackTo = Nothing+    , _dApplicationName = Nothing+    , _dIncludeDeleted = Nothing     } --- | If specified, AWS Elastic Beanstalk restricts the returned descriptions to--- include only those that are associated with this application.-de1ApplicationName :: Lens' DescribeEnvironments (Maybe Text)-de1ApplicationName =-    lens _de1ApplicationName (\s a -> s { _de1ApplicationName = a })+-- | If specified, AWS Elastic Beanstalk restricts the returned descriptions+-- to include only those that have the specified IDs.+dEnvironmentIds :: Lens' DescribeEnvironments [Text]+dEnvironmentIds = lens _dEnvironmentIds (\ s a -> s{_dEnvironmentIds = a}) . _Default . _Coerce; --- | If specified, AWS Elastic Beanstalk restricts the returned descriptions to--- include only those that have the specified IDs.-de1EnvironmentIds :: Lens' DescribeEnvironments [Text]-de1EnvironmentIds =-    lens _de1EnvironmentIds (\s a -> s { _de1EnvironmentIds = a })-        . _List+-- | If specified, AWS Elastic Beanstalk restricts the returned descriptions+-- to include only those that have the specified names.+dEnvironmentNames :: Lens' DescribeEnvironments [Text]+dEnvironmentNames = lens _dEnvironmentNames (\ s a -> s{_dEnvironmentNames = a}) . _Default . _Coerce; --- | If specified, AWS Elastic Beanstalk restricts the returned descriptions to--- include only those that have the specified names.-de1EnvironmentNames :: Lens' DescribeEnvironments [Text]-de1EnvironmentNames =-    lens _de1EnvironmentNames (\s a -> s { _de1EnvironmentNames = a })-        . _List+-- | If specified, AWS Elastic Beanstalk restricts the returned descriptions+-- to include only those that are associated with this application version.+dVersionLabel :: Lens' DescribeEnvironments (Maybe Text)+dVersionLabel = lens _dVersionLabel (\ s a -> s{_dVersionLabel = a}); +-- | If specified when 'IncludeDeleted' is set to 'true', then environments+-- deleted after this date are displayed.+dIncludedDeletedBackTo :: Lens' DescribeEnvironments (Maybe UTCTime)+dIncludedDeletedBackTo = lens _dIncludedDeletedBackTo (\ s a -> s{_dIncludedDeletedBackTo = a}) . mapping _Time;++-- | If specified, AWS Elastic Beanstalk restricts the returned descriptions+-- to include only those that are associated with this application.+dApplicationName :: Lens' DescribeEnvironments (Maybe Text)+dApplicationName = lens _dApplicationName (\ s a -> s{_dApplicationName = a});+ -- | Indicates whether to include deleted environments: ----- 'true': Environments that have been deleted after 'IncludedDeletedBackTo' are--- displayed.+-- 'true': Environments that have been deleted after+-- 'IncludedDeletedBackTo' are displayed. -- -- 'false': Do not include deleted environments.-de1IncludeDeleted :: Lens' DescribeEnvironments (Maybe Bool)-de1IncludeDeleted =-    lens _de1IncludeDeleted (\s a -> s { _de1IncludeDeleted = a })+dIncludeDeleted :: Lens' DescribeEnvironments (Maybe Bool)+dIncludeDeleted = lens _dIncludeDeleted (\ s a -> s{_dIncludeDeleted = a}); --- | If specified when 'IncludeDeleted' is set to 'true', then environments deleted--- after this date are displayed.-de1IncludedDeletedBackTo :: Lens' DescribeEnvironments (Maybe UTCTime)-de1IncludedDeletedBackTo =-    lens _de1IncludedDeletedBackTo-        (\s a -> s { _de1IncludedDeletedBackTo = a })-            . mapping _Time+instance AWSRequest DescribeEnvironments where+        type Sv DescribeEnvironments = ElasticBeanstalk+        type Rs DescribeEnvironments =+             DescribeEnvironmentsResponse+        request = postQuery+        response+          = receiveXMLWrapper "DescribeEnvironmentsResult"+              (\ s h x ->+                 DescribeEnvironmentsResponse' <$>+                   (x .@? "Environments" .!@ mempty >>=+                      may (parseXMLList "member"))+                     <*> (pure (fromEnum s))) --- | If specified, AWS Elastic Beanstalk restricts the returned descriptions to--- include only those that are associated with this application version.-de1VersionLabel :: Lens' DescribeEnvironments (Maybe Text)-de1VersionLabel = lens _de1VersionLabel (\s a -> s { _de1VersionLabel = a })+instance ToHeaders DescribeEnvironments where+        toHeaders = const mempty -newtype DescribeEnvironmentsResponse = DescribeEnvironmentsResponse-    { _derEnvironments :: List "member" EnvironmentDescription-    } deriving (Eq, Read, Show, Monoid, Semigroup)+instance ToPath DescribeEnvironments where+        toPath = const "/" -instance GHC.Exts.IsList DescribeEnvironmentsResponse where-    type Item DescribeEnvironmentsResponse = EnvironmentDescription+instance ToQuery DescribeEnvironments where+        toQuery DescribeEnvironments'{..}+          = mconcat+              ["Action" =: ("DescribeEnvironments" :: ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "EnvironmentIds" =:+                 toQuery (toQueryList "member" <$> _dEnvironmentIds),+               "EnvironmentNames" =:+                 toQuery+                   (toQueryList "member" <$> _dEnvironmentNames),+               "VersionLabel" =: _dVersionLabel,+               "IncludedDeletedBackTo" =: _dIncludedDeletedBackTo,+               "ApplicationName" =: _dApplicationName,+               "IncludeDeleted" =: _dIncludeDeleted] -    fromList = DescribeEnvironmentsResponse . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _derEnvironments+-- | Result message containing a list of environment descriptions.+--+-- /See:/ 'describeEnvironmentsResponse' smart constructor.+data DescribeEnvironmentsResponse = DescribeEnvironmentsResponse'+    { _drsEnvironments :: !(Maybe [EnvironmentDescription])+    , _drsStatus       :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DescribeEnvironmentsResponse' constructor.+-- | Creates a value of 'DescribeEnvironmentsResponse' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'derEnvironments' @::@ ['EnvironmentDescription']+-- * 'drsEnvironments' ---describeEnvironmentsResponse :: DescribeEnvironmentsResponse-describeEnvironmentsResponse = DescribeEnvironmentsResponse-    { _derEnvironments = mempty+-- * 'drsStatus'+describeEnvironmentsResponse+    :: Int -- ^ 'drsStatus'+    -> DescribeEnvironmentsResponse+describeEnvironmentsResponse pStatus_ =+    DescribeEnvironmentsResponse'+    { _drsEnvironments = Nothing+    , _drsStatus = pStatus_     } --- | Returns an 'EnvironmentDescription' list.-derEnvironments :: Lens' DescribeEnvironmentsResponse [EnvironmentDescription]-derEnvironments = lens _derEnvironments (\s a -> s { _derEnvironments = a }) . _List--instance ToPath DescribeEnvironments where-    toPath = const "/"--instance ToQuery DescribeEnvironments where-    toQuery DescribeEnvironments{..} = mconcat-        [ "ApplicationName"       =? _de1ApplicationName-        , "EnvironmentIds"        =? _de1EnvironmentIds-        , "EnvironmentNames"      =? _de1EnvironmentNames-        , "IncludeDeleted"        =? _de1IncludeDeleted-        , "IncludedDeletedBackTo" =? _de1IncludedDeletedBackTo-        , "VersionLabel"          =? _de1VersionLabel-        ]--instance ToHeaders DescribeEnvironments--instance AWSRequest DescribeEnvironments where-    type Sv DescribeEnvironments = ElasticBeanstalk-    type Rs DescribeEnvironments = DescribeEnvironmentsResponse--    request  = post "DescribeEnvironments"-    response = xmlResponse+-- | Returns an EnvironmentDescription list.+drsEnvironments :: Lens' DescribeEnvironmentsResponse [EnvironmentDescription]+drsEnvironments = lens _drsEnvironments (\ s a -> s{_drsEnvironments = a}) . _Default . _Coerce; -instance FromXML DescribeEnvironmentsResponse where-    parseXML = withElement "DescribeEnvironmentsResult" $ \x -> DescribeEnvironmentsResponse-        <$> x .@? "Environments" .!@ mempty+-- | The response status code.+drsStatus :: Lens' DescribeEnvironmentsResponse Int+drsStatus = lens _drsStatus (\ s a -> s{_drsStatus = a});

@@ -1,238 +1,261 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElasticBeanstalk.DescribeEvents--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Returns list of event descriptions matching criteria up to the last 6 weeks.+-- Returns list of event descriptions matching criteria up to the last 6+-- weeks. ----- This action returns the most recent 1,000 events from the specified 'NextToken'.+-- This action returns the most recent 1,000 events from the specified+-- 'NextToken'. ----- <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_DescribeEvents.html>+-- /See:/ <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_DescribeEvents.html AWS API Reference> for DescribeEvents.+--+-- This operation returns paginated results. module Network.AWS.ElasticBeanstalk.DescribeEvents     (-    -- * Request-      DescribeEvents-    -- ** Request constructor-    , describeEvents-    -- ** Request lenses-    , deApplicationName-    , deEndTime-    , deEnvironmentId-    , deEnvironmentName-    , deMaxRecords-    , deNextToken+    -- * Creating a Request+      describeEvents+    , DescribeEvents+    -- * Request Lenses     , deRequestId-    , deSeverity-    , deStartTime     , deTemplateName+    , deStartTime+    , deSeverity+    , deNextToken     , deVersionLabel+    , deMaxRecords+    , deEnvironmentName+    , deEndTime+    , deApplicationName+    , deEnvironmentId -    -- * Response-    , DescribeEventsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeEventsResponse-    -- ** Response lenses-    , derEvents-    , derNextToken+    , DescribeEventsResponse+    -- * Response Lenses+    , dersNextToken+    , dersEvents+    , dersStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElasticBeanstalk.Types-import qualified GHC.Exts--data DescribeEvents = DescribeEvents-    { _deApplicationName :: Maybe Text-    , _deEndTime         :: Maybe ISO8601-    , _deEnvironmentId   :: Maybe Text-    , _deEnvironmentName :: Maybe Text-    , _deMaxRecords      :: Maybe Nat-    , _deNextToken       :: Maybe Text-    , _deRequestId       :: Maybe Text-    , _deSeverity        :: Maybe EventSeverity-    , _deStartTime       :: Maybe ISO8601-    , _deTemplateName    :: Maybe Text-    , _deVersionLabel    :: Maybe Text-    } deriving (Eq, Read, Show)+import           Network.AWS.ElasticBeanstalk.Types+import           Network.AWS.ElasticBeanstalk.Types.Product+import           Network.AWS.Pager+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DescribeEvents' constructor.+-- | This documentation target is not reported in the API reference. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'describeEvents' smart constructor.+data DescribeEvents = DescribeEvents'+    { _deRequestId       :: !(Maybe Text)+    , _deTemplateName    :: !(Maybe Text)+    , _deStartTime       :: !(Maybe ISO8601)+    , _deSeverity        :: !(Maybe EventSeverity)+    , _deNextToken       :: !(Maybe Text)+    , _deVersionLabel    :: !(Maybe Text)+    , _deMaxRecords      :: !(Maybe Nat)+    , _deEnvironmentName :: !(Maybe Text)+    , _deEndTime         :: !(Maybe ISO8601)+    , _deApplicationName :: !(Maybe Text)+    , _deEnvironmentId   :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeEvents' with the minimum fields required to make a request. ----- * 'deApplicationName' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'deEndTime' @::@ 'Maybe' 'UTCTime'+-- * 'deRequestId' ----- * 'deEnvironmentId' @::@ 'Maybe' 'Text'+-- * 'deTemplateName' ----- * 'deEnvironmentName' @::@ 'Maybe' 'Text'+-- * 'deStartTime' ----- * 'deMaxRecords' @::@ 'Maybe' 'Natural'+-- * 'deSeverity' ----- * 'deNextToken' @::@ 'Maybe' 'Text'+-- * 'deNextToken' ----- * 'deRequestId' @::@ 'Maybe' 'Text'+-- * 'deVersionLabel' ----- * 'deSeverity' @::@ 'Maybe' 'EventSeverity'+-- * 'deMaxRecords' ----- * 'deStartTime' @::@ 'Maybe' 'UTCTime'+-- * 'deEnvironmentName' ----- * 'deTemplateName' @::@ 'Maybe' 'Text'+-- * 'deEndTime' ----- * 'deVersionLabel' @::@ 'Maybe' 'Text'+-- * 'deApplicationName' ---describeEvents :: DescribeEvents-describeEvents = DescribeEvents-    { _deApplicationName = Nothing-    , _deVersionLabel    = Nothing-    , _deTemplateName    = Nothing-    , _deEnvironmentId   = Nothing+-- * 'deEnvironmentId'+describeEvents+    :: DescribeEvents+describeEvents =+    DescribeEvents'+    { _deRequestId = Nothing+    , _deTemplateName = Nothing+    , _deStartTime = Nothing+    , _deSeverity = Nothing+    , _deNextToken = Nothing+    , _deVersionLabel = Nothing+    , _deMaxRecords = Nothing     , _deEnvironmentName = Nothing-    , _deRequestId       = Nothing-    , _deSeverity        = Nothing-    , _deStartTime       = Nothing-    , _deEndTime         = Nothing-    , _deMaxRecords      = Nothing-    , _deNextToken       = Nothing+    , _deEndTime = Nothing+    , _deApplicationName = Nothing+    , _deEnvironmentId = Nothing     } --- | If specified, AWS Elastic Beanstalk restricts the returned descriptions to--- include only those associated with this application.-deApplicationName :: Lens' DescribeEvents (Maybe Text)-deApplicationName =-    lens _deApplicationName (\s a -> s { _deApplicationName = a })---- | If specified, AWS Elastic Beanstalk restricts the returned descriptions to--- those that occur up to, but not including, the 'EndTime'.-deEndTime :: Lens' DescribeEvents (Maybe UTCTime)-deEndTime = lens _deEndTime (\s a -> s { _deEndTime = a }) . mapping _Time---- | If specified, AWS Elastic Beanstalk restricts the returned descriptions to--- those associated with this environment.-deEnvironmentId :: Lens' DescribeEvents (Maybe Text)-deEnvironmentId = lens _deEnvironmentId (\s a -> s { _deEnvironmentId = a })---- | If specified, AWS Elastic Beanstalk restricts the returned descriptions to--- those associated with this environment.-deEnvironmentName :: Lens' DescribeEvents (Maybe Text)-deEnvironmentName =-    lens _deEnvironmentName (\s a -> s { _deEnvironmentName = a })---- | Specifies the maximum number of events that can be returned, beginning with--- the most recent event.-deMaxRecords :: Lens' DescribeEvents (Maybe Natural)-deMaxRecords = lens _deMaxRecords (\s a -> s { _deMaxRecords = a }) . mapping _Nat---- | Pagination token. If specified, the events return the next batch of results.-deNextToken :: Lens' DescribeEvents (Maybe Text)-deNextToken = lens _deNextToken (\s a -> s { _deNextToken = a })- -- | If specified, AWS Elastic Beanstalk restricts the described events to -- include only those associated with this request ID. deRequestId :: Lens' DescribeEvents (Maybe Text)-deRequestId = lens _deRequestId (\s a -> s { _deRequestId = a })+deRequestId = lens _deRequestId (\ s a -> s{_deRequestId = a}); +-- | If specified, AWS Elastic Beanstalk restricts the returned descriptions+-- to those that are associated with this environment configuration.+deTemplateName :: Lens' DescribeEvents (Maybe Text)+deTemplateName = lens _deTemplateName (\ s a -> s{_deTemplateName = a});++-- | If specified, AWS Elastic Beanstalk restricts the returned descriptions+-- to those that occur on or after this time.+deStartTime :: Lens' DescribeEvents (Maybe UTCTime)+deStartTime = lens _deStartTime (\ s a -> s{_deStartTime = a}) . mapping _Time;+ -- | If specified, limits the events returned from this call to include only -- those with the specified severity or higher. deSeverity :: Lens' DescribeEvents (Maybe EventSeverity)-deSeverity = lens _deSeverity (\s a -> s { _deSeverity = a })---- | If specified, AWS Elastic Beanstalk restricts the returned descriptions to--- those that occur on or after this time.-deStartTime :: Lens' DescribeEvents (Maybe UTCTime)-deStartTime = lens _deStartTime (\s a -> s { _deStartTime = a }) . mapping _Time+deSeverity = lens _deSeverity (\ s a -> s{_deSeverity = a}); --- | If specified, AWS Elastic Beanstalk restricts the returned descriptions to--- those that are associated with this environment configuration.-deTemplateName :: Lens' DescribeEvents (Maybe Text)-deTemplateName = lens _deTemplateName (\s a -> s { _deTemplateName = a })+-- | Pagination token. If specified, the events return the next batch of+-- results.+deNextToken :: Lens' DescribeEvents (Maybe Text)+deNextToken = lens _deNextToken (\ s a -> s{_deNextToken = a}); --- | If specified, AWS Elastic Beanstalk restricts the returned descriptions to--- those associated with this application version.+-- | If specified, AWS Elastic Beanstalk restricts the returned descriptions+-- to those associated with this application version. deVersionLabel :: Lens' DescribeEvents (Maybe Text)-deVersionLabel = lens _deVersionLabel (\s a -> s { _deVersionLabel = a })+deVersionLabel = lens _deVersionLabel (\ s a -> s{_deVersionLabel = a}); -data DescribeEventsResponse = DescribeEventsResponse-    { _derEvents    :: List "member" EventDescription-    , _derNextToken :: Maybe Text-    } deriving (Eq, Read, Show)+-- | Specifies the maximum number of events that can be returned, beginning+-- with the most recent event.+deMaxRecords :: Lens' DescribeEvents (Maybe Natural)+deMaxRecords = lens _deMaxRecords (\ s a -> s{_deMaxRecords = a}) . mapping _Nat; --- | 'DescribeEventsResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'derEvents' @::@ ['EventDescription']------ * 'derNextToken' @::@ 'Maybe' 'Text'----describeEventsResponse :: DescribeEventsResponse-describeEventsResponse = DescribeEventsResponse-    { _derEvents    = mempty-    , _derNextToken = Nothing-    }+-- | If specified, AWS Elastic Beanstalk restricts the returned descriptions+-- to those associated with this environment.+deEnvironmentName :: Lens' DescribeEvents (Maybe Text)+deEnvironmentName = lens _deEnvironmentName (\ s a -> s{_deEnvironmentName = a}); --- | A list of 'EventDescription'.-derEvents :: Lens' DescribeEventsResponse [EventDescription]-derEvents = lens _derEvents (\s a -> s { _derEvents = a }) . _List+-- | If specified, AWS Elastic Beanstalk restricts the returned descriptions+-- to those that occur up to, but not including, the 'EndTime'.+deEndTime :: Lens' DescribeEvents (Maybe UTCTime)+deEndTime = lens _deEndTime (\ s a -> s{_deEndTime = a}) . mapping _Time; --- | If returned, this indicates that there are more results to obtain. Use this--- token in the next 'DescribeEvents' call to get the next batch of events.-derNextToken :: Lens' DescribeEventsResponse (Maybe Text)-derNextToken = lens _derNextToken (\s a -> s { _derNextToken = a })+-- | If specified, AWS Elastic Beanstalk restricts the returned descriptions+-- to include only those associated with this application.+deApplicationName :: Lens' DescribeEvents (Maybe Text)+deApplicationName = lens _deApplicationName (\ s a -> s{_deApplicationName = a}); +-- | If specified, AWS Elastic Beanstalk restricts the returned descriptions+-- to those associated with this environment.+deEnvironmentId :: Lens' DescribeEvents (Maybe Text)+deEnvironmentId = lens _deEnvironmentId (\ s a -> s{_deEnvironmentId = a});++instance AWSPager DescribeEvents where+        page rq rs+          | stop (rs ^. dersNextToken) = Nothing+          | stop (rs ^. dersEvents) = Nothing+          | otherwise =+            Just $ rq & deNextToken .~ rs ^. dersNextToken++instance AWSRequest DescribeEvents where+        type Sv DescribeEvents = ElasticBeanstalk+        type Rs DescribeEvents = DescribeEventsResponse+        request = postQuery+        response+          = receiveXMLWrapper "DescribeEventsResult"+              (\ s h x ->+                 DescribeEventsResponse' <$>+                   (x .@? "NextToken") <*>+                     (x .@? "Events" .!@ mempty >>=+                        may (parseXMLList "member"))+                     <*> (pure (fromEnum s)))++instance ToHeaders DescribeEvents where+        toHeaders = const mempty+ instance ToPath DescribeEvents where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DescribeEvents where-    toQuery DescribeEvents{..} = mconcat-        [ "ApplicationName" =? _deApplicationName-        , "EndTime"         =? _deEndTime-        , "EnvironmentId"   =? _deEnvironmentId-        , "EnvironmentName" =? _deEnvironmentName-        , "MaxRecords"      =? _deMaxRecords-        , "NextToken"       =? _deNextToken-        , "RequestId"       =? _deRequestId-        , "Severity"        =? _deSeverity-        , "StartTime"       =? _deStartTime-        , "TemplateName"    =? _deTemplateName-        , "VersionLabel"    =? _deVersionLabel-        ]+        toQuery DescribeEvents'{..}+          = mconcat+              ["Action" =: ("DescribeEvents" :: ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "RequestId" =: _deRequestId,+               "TemplateName" =: _deTemplateName,+               "StartTime" =: _deStartTime,+               "Severity" =: _deSeverity,+               "NextToken" =: _deNextToken,+               "VersionLabel" =: _deVersionLabel,+               "MaxRecords" =: _deMaxRecords,+               "EnvironmentName" =: _deEnvironmentName,+               "EndTime" =: _deEndTime,+               "ApplicationName" =: _deApplicationName,+               "EnvironmentId" =: _deEnvironmentId] -instance ToHeaders DescribeEvents+-- | Result message wrapping a list of event descriptions.+--+-- /See:/ 'describeEventsResponse' smart constructor.+data DescribeEventsResponse = DescribeEventsResponse'+    { _dersNextToken :: !(Maybe Text)+    , _dersEvents    :: !(Maybe [EventDescription])+    , _dersStatus    :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DescribeEvents where-    type Sv DescribeEvents = ElasticBeanstalk-    type Rs DescribeEvents = DescribeEventsResponse+-- | Creates a value of 'DescribeEventsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dersNextToken'+--+-- * 'dersEvents'+--+-- * 'dersStatus'+describeEventsResponse+    :: Int -- ^ 'dersStatus'+    -> DescribeEventsResponse+describeEventsResponse pStatus_ =+    DescribeEventsResponse'+    { _dersNextToken = Nothing+    , _dersEvents = Nothing+    , _dersStatus = pStatus_+    } -    request  = post "DescribeEvents"-    response = xmlResponse+-- | If returned, this indicates that there are more results to obtain. Use+-- this token in the next DescribeEvents call to get the next batch of+-- events.+dersNextToken :: Lens' DescribeEventsResponse (Maybe Text)+dersNextToken = lens _dersNextToken (\ s a -> s{_dersNextToken = a}); -instance FromXML DescribeEventsResponse where-    parseXML = withElement "DescribeEventsResult" $ \x -> DescribeEventsResponse-        <$> x .@? "Events" .!@ mempty-        <*> x .@? "NextToken"+-- | A list of EventDescription.+dersEvents :: Lens' DescribeEventsResponse [EventDescription]+dersEvents = lens _dersEvents (\ s a -> s{_dersEvents = a}) . _Default . _Coerce; -instance AWSPager DescribeEvents where-    page rq rs-        | stop (rs ^. derNextToken) = Nothing-        | otherwise = (\x -> rq & deNextToken ?~ x)-            <$> (rs ^. derNextToken)+-- | The response status code.+dersStatus :: Lens' DescribeEventsResponse Int+dersStatus = lens _dersStatus (\ s a -> s{_dersStatus = a});

@@ -0,0 +1,184 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.ElasticBeanstalk.DescribeInstancesHealth+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns more detailed information about the health of the specified+-- instances (for example, CPU utilization, load average, and causes). The+-- __DescribeInstancesHealth__ operation is only available with AWS Elastic+-- Beanstalk Enhanced Health.+--+-- /See:/ <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_DescribeInstancesHealth.html AWS API Reference> for DescribeInstancesHealth.+module Network.AWS.ElasticBeanstalk.DescribeInstancesHealth+    (+    -- * Creating a Request+      describeInstancesHealth+    , DescribeInstancesHealth+    -- * Request Lenses+    , dihNextToken+    , dihEnvironmentName+    , dihEnvironmentId+    , dihAttributeNames++    -- * Destructuring the Response+    , describeInstancesHealthResponse+    , DescribeInstancesHealthResponse+    -- * Response Lenses+    , dihrsInstanceHealthList+    , dihrsNextToken+    , dihrsRefreshedAt+    , dihrsStatus+    ) where++import           Network.AWS.ElasticBeanstalk.Types+import           Network.AWS.ElasticBeanstalk.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | See the example below to learn how to create a request body.+--+-- /See:/ 'describeInstancesHealth' smart constructor.+data DescribeInstancesHealth = DescribeInstancesHealth'+    { _dihNextToken       :: !(Maybe Text)+    , _dihEnvironmentName :: !(Maybe Text)+    , _dihEnvironmentId   :: !(Maybe Text)+    , _dihAttributeNames  :: !(Maybe [InstancesHealthAttribute])+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeInstancesHealth' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dihNextToken'+--+-- * 'dihEnvironmentName'+--+-- * 'dihEnvironmentId'+--+-- * 'dihAttributeNames'+describeInstancesHealth+    :: DescribeInstancesHealth+describeInstancesHealth =+    DescribeInstancesHealth'+    { _dihNextToken = Nothing+    , _dihEnvironmentName = Nothing+    , _dihEnvironmentId = Nothing+    , _dihAttributeNames = Nothing+    }++-- | Specifies the next token of the request.+dihNextToken :: Lens' DescribeInstancesHealth (Maybe Text)+dihNextToken = lens _dihNextToken (\ s a -> s{_dihNextToken = a});++-- | Specifies the AWS Elastic Beanstalk environment name.+dihEnvironmentName :: Lens' DescribeInstancesHealth (Maybe Text)+dihEnvironmentName = lens _dihEnvironmentName (\ s a -> s{_dihEnvironmentName = a});++-- | Specifies the AWS Elastic Beanstalk environment ID.+dihEnvironmentId :: Lens' DescribeInstancesHealth (Maybe Text)+dihEnvironmentId = lens _dihEnvironmentId (\ s a -> s{_dihEnvironmentId = a});++-- | Specifies the response elements you wish to receive. If no attribute+-- names are specified, AWS Elastic Beanstalk returns all response+-- elements.+dihAttributeNames :: Lens' DescribeInstancesHealth [InstancesHealthAttribute]+dihAttributeNames = lens _dihAttributeNames (\ s a -> s{_dihAttributeNames = a}) . _Default . _Coerce;++instance AWSRequest DescribeInstancesHealth where+        type Sv DescribeInstancesHealth = ElasticBeanstalk+        type Rs DescribeInstancesHealth =+             DescribeInstancesHealthResponse+        request = postQuery+        response+          = receiveXMLWrapper "DescribeInstancesHealthResult"+              (\ s h x ->+                 DescribeInstancesHealthResponse' <$>+                   (x .@? "InstanceHealthList" .!@ mempty >>=+                      may (parseXMLList "member"))+                     <*> (x .@? "NextToken")+                     <*> (x .@? "RefreshedAt")+                     <*> (pure (fromEnum s)))++instance ToHeaders DescribeInstancesHealth where+        toHeaders = const mempty++instance ToPath DescribeInstancesHealth where+        toPath = const "/"++instance ToQuery DescribeInstancesHealth where+        toQuery DescribeInstancesHealth'{..}+          = mconcat+              ["Action" =:+                 ("DescribeInstancesHealth" :: ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "NextToken" =: _dihNextToken,+               "EnvironmentName" =: _dihEnvironmentName,+               "EnvironmentId" =: _dihEnvironmentId,+               "AttributeNames" =:+                 toQuery+                   (toQueryList "member" <$> _dihAttributeNames)]++-- | See the example below for a sample response.+--+-- /See:/ 'describeInstancesHealthResponse' smart constructor.+data DescribeInstancesHealthResponse = DescribeInstancesHealthResponse'+    { _dihrsInstanceHealthList :: !(Maybe [SingleInstanceHealth])+    , _dihrsNextToken          :: !(Maybe Text)+    , _dihrsRefreshedAt        :: !(Maybe ISO8601)+    , _dihrsStatus             :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeInstancesHealthResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dihrsInstanceHealthList'+--+-- * 'dihrsNextToken'+--+-- * 'dihrsRefreshedAt'+--+-- * 'dihrsStatus'+describeInstancesHealthResponse+    :: Int -- ^ 'dihrsStatus'+    -> DescribeInstancesHealthResponse+describeInstancesHealthResponse pStatus_ =+    DescribeInstancesHealthResponse'+    { _dihrsInstanceHealthList = Nothing+    , _dihrsNextToken = Nothing+    , _dihrsRefreshedAt = Nothing+    , _dihrsStatus = pStatus_+    }++-- | Contains the response body with information about the health of the+-- instance.+dihrsInstanceHealthList :: Lens' DescribeInstancesHealthResponse [SingleInstanceHealth]+dihrsInstanceHealthList = lens _dihrsInstanceHealthList (\ s a -> s{_dihrsInstanceHealthList = a}) . _Default . _Coerce;++-- | The next token.+dihrsNextToken :: Lens' DescribeInstancesHealthResponse (Maybe Text)+dihrsNextToken = lens _dihrsNextToken (\ s a -> s{_dihrsNextToken = a});++-- | The date and time the information was last refreshed.+dihrsRefreshedAt :: Lens' DescribeInstancesHealthResponse (Maybe UTCTime)+dihrsRefreshedAt = lens _dihrsRefreshedAt (\ s a -> s{_dihrsRefreshedAt = a}) . mapping _Time;++-- | The response status code.+dihrsStatus :: Lens' DescribeInstancesHealthResponse Int+dihrsStatus = lens _dihrsStatus (\ s a -> s{_dihrsStatus = a});