amazonka-elasticbeanstalk 1.5.0 → 1.6.0

raw patch · 57 files changed

+4407/−4094 lines, 57 filesdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-elasticbeanstalk.cabal +6/−5
• fixture/DescribeAccountAttributes.yaml +10/−0
• fixture/DescribeAccountAttributesResponse.proto +0/−0
• gen/Network/AWS/ElasticBeanstalk.hs +21/−1
• gen/Network/AWS/ElasticBeanstalk/AbortEnvironmentUpdate.hs +4/−4
• gen/Network/AWS/ElasticBeanstalk/ApplyEnvironmentManagedAction.hs +19/−19
• gen/Network/AWS/ElasticBeanstalk/CheckDNSAvailability.hs +9/−9
• gen/Network/AWS/ElasticBeanstalk/ComposeEnvironments.hs +8/−8
• gen/Network/AWS/ElasticBeanstalk/CreateApplication.hs +8/−8
• gen/Network/AWS/ElasticBeanstalk/CreateApplicationVersion.hs +20/−20
• gen/Network/AWS/ElasticBeanstalk/CreateConfigurationTemplate.hs +20/−20
• gen/Network/AWS/ElasticBeanstalk/CreateEnvironment.hs +28/−28
• gen/Network/AWS/ElasticBeanstalk/CreatePlatformVersion.hs +19/−19
• gen/Network/AWS/ElasticBeanstalk/CreateStorageLocation.hs +5/−7
• gen/Network/AWS/ElasticBeanstalk/DeleteApplication.hs +4/−4
• gen/Network/AWS/ElasticBeanstalk/DeleteApplicationVersion.hs +8/−8
• gen/Network/AWS/ElasticBeanstalk/DeleteConfigurationTemplate.hs +4/−4
• gen/Network/AWS/ElasticBeanstalk/DeleteEnvironmentConfiguration.hs +6/−6
• gen/Network/AWS/ElasticBeanstalk/DeletePlatformVersion.hs +5/−5
• gen/Network/AWS/ElasticBeanstalk/DescribeAccountAttributes.hs +119/−0
• gen/Network/AWS/ElasticBeanstalk/DescribeApplicationVersions.hs +17/−17
• gen/Network/AWS/ElasticBeanstalk/DescribeApplications.hs +5/−5
• gen/Network/AWS/ElasticBeanstalk/DescribeConfigurationOptions.hs +23/−23
• gen/Network/AWS/ElasticBeanstalk/DescribeConfigurationSettings.hs +13/−13
• gen/Network/AWS/ElasticBeanstalk/DescribeEnvironmentHealth.hs +27/−27
• gen/Network/AWS/ElasticBeanstalk/DescribeEnvironmentManagedActionHistory.hs +17/−17
• gen/Network/AWS/ElasticBeanstalk/DescribeEnvironmentManagedActions.hs +11/−11
• gen/Network/AWS/ElasticBeanstalk/DescribeEnvironmentResources.hs +9/−9
• gen/Network/AWS/ElasticBeanstalk/DescribeEnvironments.hs +18/−18
• gen/Network/AWS/ElasticBeanstalk/DescribeEvents.hs +33/−33
• gen/Network/AWS/ElasticBeanstalk/DescribeInstancesHealth.hs +19/−19
• gen/Network/AWS/ElasticBeanstalk/DescribePlatformVersion.hs +5/−5
• gen/Network/AWS/ElasticBeanstalk/ListAvailableSolutionStacks.hs +8/−8
• gen/Network/AWS/ElasticBeanstalk/ListPlatformVersions.hs +12/−12
• gen/Network/AWS/ElasticBeanstalk/ListTagsForResource.hs +10/−10
• gen/Network/AWS/ElasticBeanstalk/RebuildEnvironment.hs +3/−3
• gen/Network/AWS/ElasticBeanstalk/RequestEnvironmentInfo.hs +8/−8
• gen/Network/AWS/ElasticBeanstalk/RestartAppServer.hs +3/−3
• gen/Network/AWS/ElasticBeanstalk/RetrieveEnvironmentInfo.hs +11/−11
• gen/Network/AWS/ElasticBeanstalk/SwapEnvironmentCNAMEs.hs +10/−10
• gen/Network/AWS/ElasticBeanstalk/TerminateEnvironment.hs +10/−10
• gen/Network/AWS/ElasticBeanstalk/Types.hs +35/−17
• gen/Network/AWS/ElasticBeanstalk/Types/Product.hs +3657/−3536
• gen/Network/AWS/ElasticBeanstalk/Types/Sum.hs +1/−1
• gen/Network/AWS/ElasticBeanstalk/UpdateApplication.hs +4/−4
• gen/Network/AWS/ElasticBeanstalk/UpdateApplicationResourceLifecycle.hs +13/−13
• gen/Network/AWS/ElasticBeanstalk/UpdateApplicationVersion.hs +8/−8
• gen/Network/AWS/ElasticBeanstalk/UpdateConfigurationTemplate.hs +12/−12
• gen/Network/AWS/ElasticBeanstalk/UpdateEnvironment.hs +26/−26
• gen/Network/AWS/ElasticBeanstalk/UpdateTagsForResource.hs +19/−9
• gen/Network/AWS/ElasticBeanstalk/ValidateConfigurationSettings.hs +13/−13
• gen/Network/AWS/ElasticBeanstalk/Waiters.hs +1/−1
• test/Main.hs +1/−1
• test/Test/AWS/ElasticBeanstalk.hs +1/−3
• test/Test/AWS/ElasticBeanstalk/Internal.hs +1/−1
• test/Test/AWS/Gen/ElasticBeanstalk.hs +19/−1

@@ -8,7 +8,7 @@  ## Version -`1.5.0`+`1.6.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-elasticbeanstalk-version:               1.5.0+version:               1.6.0 synopsis:              Amazon Elastic Beanstalk SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -7,7 +7,7 @@ license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2017 Brendan Hay+copyright:             Copyright (c) 2013-2018 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -60,6 +60,7 @@         , Network.AWS.ElasticBeanstalk.DeleteConfigurationTemplate         , Network.AWS.ElasticBeanstalk.DeleteEnvironmentConfiguration         , Network.AWS.ElasticBeanstalk.DeletePlatformVersion+        , Network.AWS.ElasticBeanstalk.DescribeAccountAttributes         , Network.AWS.ElasticBeanstalk.DescribeApplicationVersions         , Network.AWS.ElasticBeanstalk.DescribeApplications         , Network.AWS.ElasticBeanstalk.DescribeConfigurationOptions@@ -96,7 +97,7 @@         , Network.AWS.ElasticBeanstalk.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5  test-suite amazonka-elasticbeanstalk-test@@ -116,8 +117,8 @@         , Test.AWS.ElasticBeanstalk.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-elasticbeanstalk         , base         , bytestring

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

@@ -5,7 +5,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -203,6 +203,9 @@     -- ** ValidateConfigurationSettings     , module Network.AWS.ElasticBeanstalk.ValidateConfigurationSettings +    -- ** DescribeAccountAttributes+    , module Network.AWS.ElasticBeanstalk.DescribeAccountAttributes+     -- ** RestartAppServer     , module Network.AWS.ElasticBeanstalk.RestartAppServer @@ -283,6 +286,7 @@     -- ** ApplicationDescription     , ApplicationDescription     , applicationDescription+    , adApplicationARN     , adVersions     , adDateUpdated     , adDateCreated@@ -320,6 +324,7 @@     , avdVersionLabel     , avdSourceBuildInformation     , avdApplicationName+    , avdApplicationVersionARN     , avdBuildARN     , avdDescription @@ -654,6 +659,20 @@     , qURL     , qName +    -- ** ResourceQuota+    , ResourceQuota+    , resourceQuota+    , rqMaximum++    -- ** ResourceQuotas+    , ResourceQuotas+    , resourceQuotas+    , rqApplicationQuota+    , rqCustomPlatformQuota+    , rqApplicationVersionQuota+    , rqEnvironmentQuota+    , rqConfigurationTemplateQuota+     -- ** S3Location     , S3Location     , s3Location@@ -742,6 +761,7 @@ import Network.AWS.ElasticBeanstalk.DeleteConfigurationTemplate import Network.AWS.ElasticBeanstalk.DeleteEnvironmentConfiguration import Network.AWS.ElasticBeanstalk.DeletePlatformVersion+import Network.AWS.ElasticBeanstalk.DescribeAccountAttributes import Network.AWS.ElasticBeanstalk.DescribeApplications import Network.AWS.ElasticBeanstalk.DescribeApplicationVersions import Network.AWS.ElasticBeanstalk.DescribeConfigurationOptions

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.AbortEnvironmentUpdate--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -64,16 +64,16 @@     :: AbortEnvironmentUpdate abortEnvironmentUpdate =   AbortEnvironmentUpdate'-  {_aeuEnvironmentName = Nothing, _aeuEnvironmentId = Nothing}+    {_aeuEnvironmentName = Nothing, _aeuEnvironmentId = Nothing}   -- | 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})  -- | 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});+aeuEnvironmentId = lens _aeuEnvironmentId (\ s a -> s{_aeuEnvironmentId = a})  instance AWSRequest AbortEnvironmentUpdate where         type Rs AbortEnvironmentUpdate =

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.ApplyEnvironmentManagedAction--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -75,23 +75,23 @@     -> ApplyEnvironmentManagedAction applyEnvironmentManagedAction pActionId_ =   ApplyEnvironmentManagedAction'-  { _aemaEnvironmentName = Nothing-  , _aemaEnvironmentId = Nothing-  , _aemaActionId = pActionId_-  }+    { _aemaEnvironmentName = Nothing+    , _aemaEnvironmentId = Nothing+    , _aemaActionId = pActionId_+    }   -- | The name of the target environment. aemaEnvironmentName :: Lens' ApplyEnvironmentManagedAction (Maybe Text)-aemaEnvironmentName = lens _aemaEnvironmentName (\ s a -> s{_aemaEnvironmentName = a});+aemaEnvironmentName = lens _aemaEnvironmentName (\ s a -> s{_aemaEnvironmentName = a})  -- | The environment ID of the target environment. aemaEnvironmentId :: Lens' ApplyEnvironmentManagedAction (Maybe Text)-aemaEnvironmentId = lens _aemaEnvironmentId (\ s a -> s{_aemaEnvironmentId = a});+aemaEnvironmentId = lens _aemaEnvironmentId (\ s a -> s{_aemaEnvironmentId = a})  -- | The action ID of the scheduled managed action to execute. aemaActionId :: Lens' ApplyEnvironmentManagedAction Text-aemaActionId = lens _aemaActionId (\ s a -> s{_aemaActionId = a});+aemaActionId = lens _aemaActionId (\ s a -> s{_aemaActionId = a})  instance AWSRequest ApplyEnvironmentManagedAction          where@@ -161,33 +161,33 @@     -> ApplyEnvironmentManagedActionResponse applyEnvironmentManagedActionResponse pResponseStatus_ =   ApplyEnvironmentManagedActionResponse'-  { _aemarsStatus = Nothing-  , _aemarsActionId = Nothing-  , _aemarsActionDescription = Nothing-  , _aemarsActionType = Nothing-  , _aemarsResponseStatus = pResponseStatus_-  }+    { _aemarsStatus = Nothing+    , _aemarsActionId = Nothing+    , _aemarsActionDescription = Nothing+    , _aemarsActionType = Nothing+    , _aemarsResponseStatus = pResponseStatus_+    }   -- | The status of the managed action. aemarsStatus :: Lens' ApplyEnvironmentManagedActionResponse (Maybe Text)-aemarsStatus = lens _aemarsStatus (\ s a -> s{_aemarsStatus = a});+aemarsStatus = lens _aemarsStatus (\ s a -> s{_aemarsStatus = a})  -- | The action ID of the managed action. aemarsActionId :: Lens' ApplyEnvironmentManagedActionResponse (Maybe Text)-aemarsActionId = lens _aemarsActionId (\ s a -> s{_aemarsActionId = a});+aemarsActionId = lens _aemarsActionId (\ s a -> s{_aemarsActionId = a})  -- | A description of the managed action. aemarsActionDescription :: Lens' ApplyEnvironmentManagedActionResponse (Maybe Text)-aemarsActionDescription = lens _aemarsActionDescription (\ s a -> s{_aemarsActionDescription = a});+aemarsActionDescription = lens _aemarsActionDescription (\ s a -> s{_aemarsActionDescription = a})  -- | The type of managed action. aemarsActionType :: Lens' ApplyEnvironmentManagedActionResponse (Maybe ActionType)-aemarsActionType = lens _aemarsActionType (\ s a -> s{_aemarsActionType = a});+aemarsActionType = lens _aemarsActionType (\ s a -> s{_aemarsActionType = a})  -- | -- | The response status code. aemarsResponseStatus :: Lens' ApplyEnvironmentManagedActionResponse Int-aemarsResponseStatus = lens _aemarsResponseStatus (\ s a -> s{_aemarsResponseStatus = a});+aemarsResponseStatus = lens _aemarsResponseStatus (\ s a -> s{_aemarsResponseStatus = a})  instance NFData ApplyEnvironmentManagedActionResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.CheckDNSAvailability--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,7 +69,7 @@  -- | The prefix used when this CNAME is reserved. cdaCNAMEPrefix :: Lens' CheckDNSAvailability Text-cdaCNAMEPrefix = lens _cdaCNAMEPrefix (\ s a -> s{_cdaCNAMEPrefix = a});+cdaCNAMEPrefix = lens _cdaCNAMEPrefix (\ s a -> s{_cdaCNAMEPrefix = a})  instance AWSRequest CheckDNSAvailability where         type Rs CheckDNSAvailability =@@ -125,22 +125,22 @@     -> CheckDNSAvailabilityResponse checkDNSAvailabilityResponse pResponseStatus_ =   CheckDNSAvailabilityResponse'-  { _cdarsFullyQualifiedCNAME = Nothing-  , _cdarsAvailable = Nothing-  , _cdarsResponseStatus = pResponseStatus_-  }+    { _cdarsFullyQualifiedCNAME = Nothing+    , _cdarsAvailable = Nothing+    , _cdarsResponseStatus = pResponseStatus_+    }   -- | 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});+cdarsFullyQualifiedCNAME = lens _cdarsFullyQualifiedCNAME (\ s a -> s{_cdarsFullyQualifiedCNAME = a})  -- | Indicates if the specified CNAME is available:     * @true@ : The CNAME is available.     * @false@ : The CNAME is not available. cdarsAvailable :: Lens' CheckDNSAvailabilityResponse (Maybe Bool)-cdarsAvailable = lens _cdarsAvailable (\ s a -> s{_cdarsAvailable = a});+cdarsAvailable = lens _cdarsAvailable (\ s a -> s{_cdarsAvailable = a})  -- | -- | The response status code. cdarsResponseStatus :: Lens' CheckDNSAvailabilityResponse Int-cdarsResponseStatus = lens _cdarsResponseStatus (\ s a -> s{_cdarsResponseStatus = a});+cdarsResponseStatus = lens _cdarsResponseStatus (\ s a -> s{_cdarsResponseStatus = a})  instance NFData CheckDNSAvailabilityResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.ComposeEnvironments--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,23 +71,23 @@     :: ComposeEnvironments composeEnvironments =   ComposeEnvironments'-  { _ceVersionLabels = Nothing-  , _ceApplicationName = Nothing-  , _ceGroupName = Nothing-  }+    { _ceVersionLabels = Nothing+    , _ceApplicationName = Nothing+    , _ceGroupName = Nothing+    }   -- | A list of version labels, specifying one or more application source bundles that belong to the target application. Each source bundle must include an environment manifest that specifies the name of the environment and the name of the solution stack to use, and optionally can specify environment links to create. ceVersionLabels :: Lens' ComposeEnvironments [Text]-ceVersionLabels = lens _ceVersionLabels (\ s a -> s{_ceVersionLabels = a}) . _Default . _Coerce;+ceVersionLabels = lens _ceVersionLabels (\ s a -> s{_ceVersionLabels = a}) . _Default . _Coerce  -- | The name of the application to which the specified source bundles belong. ceApplicationName :: Lens' ComposeEnvironments (Maybe Text)-ceApplicationName = lens _ceApplicationName (\ s a -> s{_ceApplicationName = a});+ceApplicationName = lens _ceApplicationName (\ s a -> s{_ceApplicationName = a})  -- | The name of the group to which the target environments belong. Specify a group name only if the environment name defined in each target environment's manifest ends with a + (plus) character. See <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/environment-cfg-manifest.html Environment Manifest (env.yaml)> for details. ceGroupName :: Lens' ComposeEnvironments (Maybe Text)-ceGroupName = lens _ceGroupName (\ s a -> s{_ceGroupName = a});+ceGroupName = lens _ceGroupName (\ s a -> s{_ceGroupName = a})  instance AWSRequest ComposeEnvironments where         type Rs ComposeEnvironments =

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.CreateApplication--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,23 +71,23 @@     -> CreateApplication createApplication pApplicationName_ =   CreateApplication'-  { _caResourceLifecycleConfig = Nothing-  , _caDescription = Nothing-  , _caApplicationName = pApplicationName_-  }+    { _caResourceLifecycleConfig = Nothing+    , _caDescription = Nothing+    , _caApplicationName = pApplicationName_+    }   -- | Specify an application resource lifecycle configuration to prevent your application from accumulating too many versions. caResourceLifecycleConfig :: Lens' CreateApplication (Maybe ApplicationResourceLifecycleConfig)-caResourceLifecycleConfig = lens _caResourceLifecycleConfig (\ s a -> s{_caResourceLifecycleConfig = a});+caResourceLifecycleConfig = lens _caResourceLifecycleConfig (\ s a -> s{_caResourceLifecycleConfig = a})  -- | Describes the application. caDescription :: Lens' CreateApplication (Maybe Text)-caDescription = lens _caDescription (\ s a -> s{_caDescription = a});+caDescription = lens _caDescription (\ s a -> s{_caDescription = a})  -- | 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});+caApplicationName = lens _caApplicationName (\ s a -> s{_caApplicationName = a})  instance AWSRequest CreateApplication where         type Rs CreateApplication =

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.CreateApplicationVersion--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -79,7 +79,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cavProcess' - Preprocesses and validates the environment manifest and configuration files in the source bundle. Validating configuration files can identify issues prior to deploying the application version to an environment.+-- * 'cavProcess' - Preprocesses and validates the environment manifest (@env.yaml@ ) and configuration files (@*.config@ files in the @.ebextensions@ folder) in the source bundle. Validating configuration files can identify issues prior to deploying the application version to an environment. -- -- * 'cavSourceBundle' - The Amazon S3 bucket and key that identify the location of the source bundle for this version. Specify a source bundle in S3 or a commit in an AWS CodeCommit repository (with @SourceBuildInformation@ ), but not both. If neither @SourceBundle@ nor @SourceBuildInformation@ are provided, Elastic Beanstalk uses a sample application. --@@ -100,48 +100,48 @@     -> CreateApplicationVersion createApplicationVersion pApplicationName_ pVersionLabel_ =   CreateApplicationVersion'-  { _cavProcess = Nothing-  , _cavSourceBundle = Nothing-  , _cavAutoCreateApplication = Nothing-  , _cavSourceBuildInformation = Nothing-  , _cavDescription = Nothing-  , _cavBuildConfiguration = Nothing-  , _cavApplicationName = pApplicationName_-  , _cavVersionLabel = pVersionLabel_-  }+    { _cavProcess = Nothing+    , _cavSourceBundle = Nothing+    , _cavAutoCreateApplication = Nothing+    , _cavSourceBuildInformation = Nothing+    , _cavDescription = Nothing+    , _cavBuildConfiguration = Nothing+    , _cavApplicationName = pApplicationName_+    , _cavVersionLabel = pVersionLabel_+    }  --- | Preprocesses and validates the environment manifest and configuration files in the source bundle. Validating configuration files can identify issues prior to deploying the application version to an environment.+-- | Preprocesses and validates the environment manifest (@env.yaml@ ) and configuration files (@*.config@ files in the @.ebextensions@ folder) in the source bundle. Validating configuration files can identify issues prior to deploying the application version to an environment. cavProcess :: Lens' CreateApplicationVersion (Maybe Bool)-cavProcess = lens _cavProcess (\ s a -> s{_cavProcess = a});+cavProcess = lens _cavProcess (\ s a -> s{_cavProcess = a})  -- | The Amazon S3 bucket and key that identify the location of the source bundle for this version. Specify a source bundle in S3 or a commit in an AWS CodeCommit repository (with @SourceBuildInformation@ ), but not both. If neither @SourceBundle@ nor @SourceBuildInformation@ are provided, Elastic Beanstalk uses a sample application. cavSourceBundle :: Lens' CreateApplicationVersion (Maybe S3Location)-cavSourceBundle = lens _cavSourceBundle (\ s a -> s{_cavSourceBundle = a});+cavSourceBundle = lens _cavSourceBundle (\ s a -> s{_cavSourceBundle = a})  -- | Set to @true@ to create an application with the specified name if it doesn't already exist. cavAutoCreateApplication :: Lens' CreateApplicationVersion (Maybe Bool)-cavAutoCreateApplication = lens _cavAutoCreateApplication (\ s a -> s{_cavAutoCreateApplication = a});+cavAutoCreateApplication = lens _cavAutoCreateApplication (\ s a -> s{_cavAutoCreateApplication = a})  -- | Specify a commit in an AWS CodeCommit Git repository to use as the source code for the application version. cavSourceBuildInformation :: Lens' CreateApplicationVersion (Maybe SourceBuildInformation)-cavSourceBuildInformation = lens _cavSourceBuildInformation (\ s a -> s{_cavSourceBuildInformation = a});+cavSourceBuildInformation = lens _cavSourceBuildInformation (\ s a -> s{_cavSourceBuildInformation = 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})  -- | Settings for an AWS CodeBuild build. cavBuildConfiguration :: Lens' CreateApplicationVersion (Maybe BuildConfiguration)-cavBuildConfiguration = lens _cavBuildConfiguration (\ s a -> s{_cavBuildConfiguration = a});+cavBuildConfiguration = lens _cavBuildConfiguration (\ s a -> s{_cavBuildConfiguration = 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});+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. cavVersionLabel :: Lens' CreateApplicationVersion Text-cavVersionLabel = lens _cavVersionLabel (\ s a -> s{_cavVersionLabel = a});+cavVersionLabel = lens _cavVersionLabel (\ s a -> s{_cavVersionLabel = a})  instance AWSRequest CreateApplicationVersion where         type Rs CreateApplicationVersion =

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.CreateConfigurationTemplate--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -92,7 +92,7 @@ -- -- * 'cctOptionSettings' - 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. ----- * 'cctPlatformARN' - The ARN of the custome platform.+-- * 'cctPlatformARN' - The ARN of the custom platform. -- -- * 'cctSourceConfiguration' - 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. --@@ -111,48 +111,48 @@     -> CreateConfigurationTemplate createConfigurationTemplate pApplicationName_ pTemplateName_ =   CreateConfigurationTemplate'-  { _cctOptionSettings = Nothing-  , _cctPlatformARN = Nothing-  , _cctSourceConfiguration = Nothing-  , _cctSolutionStackName = Nothing-  , _cctEnvironmentId = Nothing-  , _cctDescription = Nothing-  , _cctApplicationName = pApplicationName_-  , _cctTemplateName = pTemplateName_-  }+    { _cctOptionSettings = Nothing+    , _cctPlatformARN = Nothing+    , _cctSourceConfiguration = Nothing+    , _cctSolutionStackName = Nothing+    , _cctEnvironmentId = Nothing+    , _cctDescription = Nothing+    , _cctApplicationName = pApplicationName_+    , _cctTemplateName = pTemplateName_+    }   -- | 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;+cctOptionSettings = lens _cctOptionSettings (\ s a -> s{_cctOptionSettings = a}) . _Default . _Coerce --- | The ARN of the custome platform.+-- | The ARN of the custom platform. cctPlatformARN :: Lens' CreateConfigurationTemplate (Maybe Text)-cctPlatformARN = lens _cctPlatformARN (\ s a -> s{_cctPlatformARN = a});+cctPlatformARN = lens _cctPlatformARN (\ s a -> s{_cctPlatformARN = 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});+cctSourceConfiguration = lens _cctSourceConfiguration (\ s a -> s{_cctSourceConfiguration = 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. 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.  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. cctSolutionStackName :: Lens' CreateConfigurationTemplate (Maybe Text)-cctSolutionStackName = lens _cctSolutionStackName (\ s a -> s{_cctSolutionStackName = a});+cctSolutionStackName = lens _cctSolutionStackName (\ s a -> s{_cctSolutionStackName = a})  -- | The ID of the environment used with this configuration template. cctEnvironmentId :: Lens' CreateConfigurationTemplate (Maybe Text)-cctEnvironmentId = lens _cctEnvironmentId (\ s a -> s{_cctEnvironmentId = a});+cctEnvironmentId = lens _cctEnvironmentId (\ s a -> s{_cctEnvironmentId = a})  -- | Describes this configuration. cctDescription :: Lens' CreateConfigurationTemplate (Maybe Text)-cctDescription = lens _cctDescription (\ s a -> s{_cctDescription = a});+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});+cctApplicationName = lens _cctApplicationName (\ s a -> s{_cctApplicationName = a})  -- | The name of the configuration template. Constraint: This name must be unique per application. 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});+cctTemplateName = lens _cctTemplateName (\ s a -> s{_cctTemplateName = a})  instance AWSRequest CreateConfigurationTemplate where         type Rs CreateConfigurationTemplate =

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.CreateEnvironment--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -130,73 +130,73 @@     -> CreateEnvironment createEnvironment pApplicationName_ =   CreateEnvironment'-  { _cCNAMEPrefix = Nothing-  , _cTemplateName = Nothing-  , _cOptionsToRemove = Nothing-  , _cOptionSettings = Nothing-  , _cVersionLabel = Nothing-  , _cPlatformARN = Nothing-  , _cTier = Nothing-  , _cEnvironmentName = Nothing-  , _cSolutionStackName = Nothing-  , _cGroupName = Nothing-  , _cDescription = Nothing-  , _cTags = Nothing-  , _cApplicationName = pApplicationName_-  }+    { _cCNAMEPrefix = Nothing+    , _cTemplateName = Nothing+    , _cOptionsToRemove = Nothing+    , _cOptionSettings = Nothing+    , _cVersionLabel = Nothing+    , _cPlatformARN = Nothing+    , _cTier = Nothing+    , _cEnvironmentName = Nothing+    , _cSolutionStackName = Nothing+    , _cGroupName = Nothing+    , _cDescription = Nothing+    , _cTags = Nothing+    , _cApplicationName = pApplicationName_+    }   -- | 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. cCNAMEPrefix :: Lens' CreateEnvironment (Maybe Text)-cCNAMEPrefix = lens _cCNAMEPrefix (\ s a -> s{_cCNAMEPrefix = a});+cCNAMEPrefix = lens _cCNAMEPrefix (\ s a -> s{_cCNAMEPrefix = a})  -- | 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. cTemplateName :: Lens' CreateEnvironment (Maybe Text)-cTemplateName = lens _cTemplateName (\ s a -> s{_cTemplateName = a});+cTemplateName = lens _cTemplateName (\ s a -> s{_cTemplateName = a})  -- | A list of custom user-defined configuration options to remove from the configuration set for this new environment. cOptionsToRemove :: Lens' CreateEnvironment [OptionSpecification]-cOptionsToRemove = lens _cOptionsToRemove (\ s a -> s{_cOptionsToRemove = a}) . _Default . _Coerce;+cOptionsToRemove = lens _cOptionsToRemove (\ s a -> s{_cOptionsToRemove = a}) . _Default . _Coerce  -- | 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. cOptionSettings :: Lens' CreateEnvironment [ConfigurationOptionSetting]-cOptionSettings = lens _cOptionSettings (\ s a -> s{_cOptionSettings = a}) . _Default . _Coerce;+cOptionSettings = lens _cOptionSettings (\ s a -> s{_cOptionSettings = 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.  Default: If not specified, AWS Elastic Beanstalk attempts to launch the sample application in the container. cVersionLabel :: Lens' CreateEnvironment (Maybe Text)-cVersionLabel = lens _cVersionLabel (\ s a -> s{_cVersionLabel = a});+cVersionLabel = lens _cVersionLabel (\ s a -> s{_cVersionLabel = a})  -- | The ARN of the platform. cPlatformARN :: Lens' CreateEnvironment (Maybe Text)-cPlatformARN = lens _cPlatformARN (\ s a -> s{_cPlatformARN = a});+cPlatformARN = lens _cPlatformARN (\ s a -> s{_cPlatformARN = a})  -- | This specifies the tier to use for creating this environment. cTier :: Lens' CreateEnvironment (Maybe EnvironmentTier)-cTier = lens _cTier (\ s a -> s{_cTier = a});+cTier = lens _cTier (\ s a -> s{_cTier = a})  -- | A unique name for the deployment environment. Used in the application URL. Constraint: Must be from 4 to 40 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 within a region in your account. If the specified name already exists in the region, 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. cEnvironmentName :: Lens' CreateEnvironment (Maybe Text)-cEnvironmentName = lens _cEnvironmentName (\ s a -> s{_cEnvironmentName = a});+cEnvironmentName = lens _cEnvironmentName (\ s a -> s{_cEnvironmentName = a})  -- | This is an alternative to specifying a template name. If specified, AWS Elastic Beanstalk sets the configuration values to the default values associated with the specified solution stack. cSolutionStackName :: Lens' CreateEnvironment (Maybe Text)-cSolutionStackName = lens _cSolutionStackName (\ s a -> s{_cSolutionStackName = a});+cSolutionStackName = lens _cSolutionStackName (\ s a -> s{_cSolutionStackName = a})  -- | The name of the group to which the target environment belongs. Specify a group name only if the environment's name is specified in an environment manifest and not with the environment name parameter. See <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/environment-cfg-manifest.html Environment Manifest (env.yaml)> for details. cGroupName :: Lens' CreateEnvironment (Maybe Text)-cGroupName = lens _cGroupName (\ s a -> s{_cGroupName = a});+cGroupName = lens _cGroupName (\ s a -> s{_cGroupName = a})  -- | Describes this environment. cDescription :: Lens' CreateEnvironment (Maybe Text)-cDescription = lens _cDescription (\ s a -> s{_cDescription = a});+cDescription = lens _cDescription (\ s a -> s{_cDescription = a})  -- | This specifies the tags applied to resources in the environment. cTags :: Lens' CreateEnvironment [Tag]-cTags = lens _cTags (\ s a -> s{_cTags = a}) . _Default . _Coerce;+cTags = lens _cTags (\ s a -> s{_cTags = a}) . _Default . _Coerce  -- | 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. cApplicationName :: Lens' CreateEnvironment Text-cApplicationName = lens _cApplicationName (\ s a -> s{_cApplicationName = a});+cApplicationName = lens _cApplicationName (\ s a -> s{_cApplicationName = a})  instance AWSRequest CreateEnvironment where         type Rs CreateEnvironment = EnvironmentDescription

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.CreatePlatformVersion--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -83,33 +83,33 @@     -> CreatePlatformVersion createPlatformVersion pPlatformName_ pPlatformVersion_ pPlatformDefinitionBundle_ =   CreatePlatformVersion'-  { _cpvOptionSettings = Nothing-  , _cpvEnvironmentName = Nothing-  , _cpvPlatformName = pPlatformName_-  , _cpvPlatformVersion = pPlatformVersion_-  , _cpvPlatformDefinitionBundle = pPlatformDefinitionBundle_-  }+    { _cpvOptionSettings = Nothing+    , _cpvEnvironmentName = Nothing+    , _cpvPlatformName = pPlatformName_+    , _cpvPlatformVersion = pPlatformVersion_+    , _cpvPlatformDefinitionBundle = pPlatformDefinitionBundle_+    }   -- | The configuration option settings to apply to the builder environment. cpvOptionSettings :: Lens' CreatePlatformVersion [ConfigurationOptionSetting]-cpvOptionSettings = lens _cpvOptionSettings (\ s a -> s{_cpvOptionSettings = a}) . _Default . _Coerce;+cpvOptionSettings = lens _cpvOptionSettings (\ s a -> s{_cpvOptionSettings = a}) . _Default . _Coerce  -- | The name of the builder environment. cpvEnvironmentName :: Lens' CreatePlatformVersion (Maybe Text)-cpvEnvironmentName = lens _cpvEnvironmentName (\ s a -> s{_cpvEnvironmentName = a});+cpvEnvironmentName = lens _cpvEnvironmentName (\ s a -> s{_cpvEnvironmentName = a})  -- | The name of your custom platform. cpvPlatformName :: Lens' CreatePlatformVersion Text-cpvPlatformName = lens _cpvPlatformName (\ s a -> s{_cpvPlatformName = a});+cpvPlatformName = lens _cpvPlatformName (\ s a -> s{_cpvPlatformName = a})  -- | The number, such as 1.0.2, for the new platform version. cpvPlatformVersion :: Lens' CreatePlatformVersion Text-cpvPlatformVersion = lens _cpvPlatformVersion (\ s a -> s{_cpvPlatformVersion = a});+cpvPlatformVersion = lens _cpvPlatformVersion (\ s a -> s{_cpvPlatformVersion = a})  -- | The location of the platform definition archive in Amazon S3. cpvPlatformDefinitionBundle :: Lens' CreatePlatformVersion S3Location-cpvPlatformDefinitionBundle = lens _cpvPlatformDefinitionBundle (\ s a -> s{_cpvPlatformDefinitionBundle = a});+cpvPlatformDefinitionBundle = lens _cpvPlatformDefinitionBundle (\ s a -> s{_cpvPlatformDefinitionBundle = a})  instance AWSRequest CreatePlatformVersion where         type Rs CreatePlatformVersion =@@ -168,22 +168,22 @@     -> CreatePlatformVersionResponse createPlatformVersionResponse pResponseStatus_ =   CreatePlatformVersionResponse'-  { _cpvrsBuilder = Nothing-  , _cpvrsPlatformSummary = Nothing-  , _cpvrsResponseStatus = pResponseStatus_-  }+    { _cpvrsBuilder = Nothing+    , _cpvrsPlatformSummary = Nothing+    , _cpvrsResponseStatus = pResponseStatus_+    }   -- | The builder used to create the custom platform. cpvrsBuilder :: Lens' CreatePlatformVersionResponse (Maybe Builder)-cpvrsBuilder = lens _cpvrsBuilder (\ s a -> s{_cpvrsBuilder = a});+cpvrsBuilder = lens _cpvrsBuilder (\ s a -> s{_cpvrsBuilder = a})  -- | Detailed information about the new version of the custom platform. cpvrsPlatformSummary :: Lens' CreatePlatformVersionResponse (Maybe PlatformSummary)-cpvrsPlatformSummary = lens _cpvrsPlatformSummary (\ s a -> s{_cpvrsPlatformSummary = a});+cpvrsPlatformSummary = lens _cpvrsPlatformSummary (\ s a -> s{_cpvrsPlatformSummary = a})  -- | -- | The response status code. cpvrsResponseStatus :: Lens' CreatePlatformVersionResponse Int-cpvrsResponseStatus = lens _cpvrsResponseStatus (\ s a -> s{_cpvrsResponseStatus = a});+cpvrsResponseStatus = lens _cpvrsResponseStatus (\ s a -> s{_cpvrsResponseStatus = a})  instance NFData CreatePlatformVersionResponse where

@@ -12,17 +12,15 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.CreateStorageLocation--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates the Amazon S3 storage location for the account.+-- Creates a bucket in Amazon S3 to store application versions, logs, and other files used by Elastic Beanstalk environments. The Elastic Beanstalk console and EB CLI call this API the first time you create an environment in a region. If the storage location already exists, @CreateStorageLocation@ still returns the bucket name but does not create a new bucket. -- ----- This location is used to store user log files.--- module Network.AWS.ElasticBeanstalk.CreateStorageLocation     (     -- * Creating a Request@@ -107,15 +105,15 @@     -> CreateStorageLocationResponse createStorageLocationResponse pResponseStatus_ =   CreateStorageLocationResponse'-  {_cslrsS3Bucket = Nothing, _cslrsResponseStatus = pResponseStatus_}+    {_cslrsS3Bucket = Nothing, _cslrsResponseStatus = pResponseStatus_}   -- | The name of the Amazon S3 bucket created. cslrsS3Bucket :: Lens' CreateStorageLocationResponse (Maybe Text)-cslrsS3Bucket = lens _cslrsS3Bucket (\ s a -> s{_cslrsS3Bucket = a});+cslrsS3Bucket = lens _cslrsS3Bucket (\ s a -> s{_cslrsS3Bucket = a})  -- | -- | The response status code. cslrsResponseStatus :: Lens' CreateStorageLocationResponse Int-cslrsResponseStatus = lens _cslrsResponseStatus (\ s a -> s{_cslrsResponseStatus = a});+cslrsResponseStatus = lens _cslrsResponseStatus (\ s a -> s{_cslrsResponseStatus = a})  instance NFData CreateStorageLocationResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.DeleteApplication--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -65,16 +65,16 @@     -> DeleteApplication deleteApplication pApplicationName_ =   DeleteApplication'-  {_daTerminateEnvByForce = Nothing, _daApplicationName = pApplicationName_}+    {_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});+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});+daApplicationName = lens _daApplicationName (\ s a -> s{_daApplicationName = a})  instance AWSRequest DeleteApplication where         type Rs DeleteApplication = DeleteApplicationResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.DeleteApplicationVersion--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -70,23 +70,23 @@     -> DeleteApplicationVersion deleteApplicationVersion pApplicationName_ pVersionLabel_ =   DeleteApplicationVersion'-  { _davDeleteSourceBundle = Nothing-  , _davApplicationName = pApplicationName_-  , _davVersionLabel = pVersionLabel_-  }+    { _davDeleteSourceBundle = Nothing+    , _davApplicationName = pApplicationName_+    , _davVersionLabel = pVersionLabel_+    }   -- | Set to @true@ to delete the source bundle from your storage bucket. Otherwise, the application version is deleted only from Elastic Beanstalk and the source bundle remains in Amazon S3. 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 which the version belongs. davApplicationName :: Lens' DeleteApplicationVersion Text-davApplicationName = lens _davApplicationName (\ s a -> s{_davApplicationName = a});+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})  instance AWSRequest DeleteApplicationVersion where         type Rs DeleteApplicationVersion =

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.DeleteConfigurationTemplate--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -66,16 +66,16 @@     -> DeleteConfigurationTemplate deleteConfigurationTemplate pApplicationName_ pTemplateName_ =   DeleteConfigurationTemplate'-  {_dctApplicationName = pApplicationName_, _dctTemplateName = pTemplateName_}+    {_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})  instance AWSRequest DeleteConfigurationTemplate where         type Rs DeleteConfigurationTemplate =

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.DeleteEnvironmentConfiguration--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,18 +68,18 @@     -> DeleteEnvironmentConfiguration deleteEnvironmentConfiguration pApplicationName_ pEnvironmentName_ =   DeleteEnvironmentConfiguration'-  { _decApplicationName = pApplicationName_-  , _decEnvironmentName = pEnvironmentName_-  }+    { _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})  instance AWSRequest DeleteEnvironmentConfiguration          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.DeletePlatformVersion--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -62,7 +62,7 @@  -- | The ARN of the version of the custom platform. dpvPlatformARN :: Lens' DeletePlatformVersion (Maybe Text)-dpvPlatformARN = lens _dpvPlatformARN (\ s a -> s{_dpvPlatformARN = a});+dpvPlatformARN = lens _dpvPlatformARN (\ s a -> s{_dpvPlatformARN = a})  instance AWSRequest DeletePlatformVersion where         type Rs DeletePlatformVersion =@@ -110,15 +110,15 @@     -> DeletePlatformVersionResponse deletePlatformVersionResponse pResponseStatus_ =   DeletePlatformVersionResponse'-  {_dpvrsPlatformSummary = Nothing, _dpvrsResponseStatus = pResponseStatus_}+    {_dpvrsPlatformSummary = Nothing, _dpvrsResponseStatus = pResponseStatus_}   -- | Detailed information about the version of the custom platform. dpvrsPlatformSummary :: Lens' DeletePlatformVersionResponse (Maybe PlatformSummary)-dpvrsPlatformSummary = lens _dpvrsPlatformSummary (\ s a -> s{_dpvrsPlatformSummary = a});+dpvrsPlatformSummary = lens _dpvrsPlatformSummary (\ s a -> s{_dpvrsPlatformSummary = a})  -- | -- | The response status code. dpvrsResponseStatus :: Lens' DeletePlatformVersionResponse Int-dpvrsResponseStatus = lens _dpvrsResponseStatus (\ s a -> s{_dpvrsResponseStatus = a});+dpvrsResponseStatus = lens _dpvrsResponseStatus (\ s a -> s{_dpvrsResponseStatus = a})  instance NFData DeletePlatformVersionResponse where

@@ -0,0 +1,119 @@+{-# 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.DescribeAccountAttributes+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns attributes related to AWS Elastic Beanstalk that are associated with the calling AWS account.+--+--+-- The result currently has one set of attributes—resource quotas.+--+module Network.AWS.ElasticBeanstalk.DescribeAccountAttributes+    (+    -- * Creating a Request+      describeAccountAttributes+    , DescribeAccountAttributes++    -- * Destructuring the Response+    , describeAccountAttributesResponse+    , DescribeAccountAttributesResponse+    -- * Response Lenses+    , daarsResourceQuotas+    , daarsResponseStatus+    ) where++import Network.AWS.ElasticBeanstalk.Types+import Network.AWS.ElasticBeanstalk.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'describeAccountAttributes' smart constructor.+data DescribeAccountAttributes =+  DescribeAccountAttributes'+  deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeAccountAttributes' with the minimum fields required to make a request.+--+describeAccountAttributes+    :: DescribeAccountAttributes+describeAccountAttributes = DescribeAccountAttributes'+++instance AWSRequest DescribeAccountAttributes where+        type Rs DescribeAccountAttributes =+             DescribeAccountAttributesResponse+        request = postQuery elasticBeanstalk+        response+          = receiveXMLWrapper "DescribeAccountAttributesResult"+              (\ s h x ->+                 DescribeAccountAttributesResponse' <$>+                   (x .@? "ResourceQuotas") <*> (pure (fromEnum s)))++instance Hashable DescribeAccountAttributes where++instance NFData DescribeAccountAttributes where++instance ToHeaders DescribeAccountAttributes where+        toHeaders = const mempty++instance ToPath DescribeAccountAttributes where+        toPath = const "/"++instance ToQuery DescribeAccountAttributes where+        toQuery+          = const+              (mconcat+                 ["Action" =:+                    ("DescribeAccountAttributes" :: ByteString),+                  "Version" =: ("2010-12-01" :: ByteString)])++-- | /See:/ 'describeAccountAttributesResponse' smart constructor.+data DescribeAccountAttributesResponse = DescribeAccountAttributesResponse'+  { _daarsResourceQuotas :: !(Maybe ResourceQuotas)+  , _daarsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeAccountAttributesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'daarsResourceQuotas' - The Elastic Beanstalk resource quotas associated with the calling AWS account.+--+-- * 'daarsResponseStatus' - -- | The response status code.+describeAccountAttributesResponse+    :: Int -- ^ 'daarsResponseStatus'+    -> DescribeAccountAttributesResponse+describeAccountAttributesResponse pResponseStatus_ =+  DescribeAccountAttributesResponse'+    {_daarsResourceQuotas = Nothing, _daarsResponseStatus = pResponseStatus_}+++-- | The Elastic Beanstalk resource quotas associated with the calling AWS account.+daarsResourceQuotas :: Lens' DescribeAccountAttributesResponse (Maybe ResourceQuotas)+daarsResourceQuotas = lens _daarsResourceQuotas (\ s a -> s{_daarsResourceQuotas = a})++-- | -- | The response status code.+daarsResponseStatus :: Lens' DescribeAccountAttributesResponse Int+daarsResponseStatus = lens _daarsResponseStatus (\ s a -> s{_daarsResponseStatus = a})++instance NFData DescribeAccountAttributesResponse+         where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.DescribeApplicationVersions--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -76,28 +76,28 @@     :: DescribeApplicationVersions describeApplicationVersions =   DescribeApplicationVersions'-  { _dVersionLabels = Nothing-  , _dNextToken = Nothing-  , _dMaxRecords = Nothing-  , _dApplicationName = Nothing-  }+    { _dVersionLabels = Nothing+    , _dNextToken = Nothing+    , _dMaxRecords = Nothing+    , _dApplicationName = Nothing+    }   -- | Specify a version label to show a specific application version. dVersionLabels :: Lens' DescribeApplicationVersions [Text]-dVersionLabels = lens _dVersionLabels (\ s a -> s{_dVersionLabels = a}) . _Default . _Coerce;+dVersionLabels = lens _dVersionLabels (\ s a -> s{_dVersionLabels = a}) . _Default . _Coerce  -- | For a paginated request. Specify a token from a previous response page to retrieve the next response page. All other parameter values must be identical to the ones specified in the initial request. If no @NextToken@ is specified, the first page is retrieved. dNextToken :: Lens' DescribeApplicationVersions (Maybe Text)-dNextToken = lens _dNextToken (\ s a -> s{_dNextToken = a});+dNextToken = lens _dNextToken (\ s a -> s{_dNextToken = a})  -- | For a paginated request. Specify a maximum number of application versions to include in each response. If no @MaxRecords@ is specified, all available application versions are retrieved in a single response. dMaxRecords :: Lens' DescribeApplicationVersions (Maybe Natural)-dMaxRecords = lens _dMaxRecords (\ s a -> s{_dMaxRecords = a}) . mapping _Nat;+dMaxRecords = lens _dMaxRecords (\ s a -> s{_dMaxRecords = a}) . mapping _Nat  -- | Specify an application name to show only application versions for that application. dApplicationName :: Lens' DescribeApplicationVersions (Maybe Text)-dApplicationName = lens _dApplicationName (\ s a -> s{_dApplicationName = a});+dApplicationName = lens _dApplicationName (\ s a -> s{_dApplicationName = a})  instance AWSRequest DescribeApplicationVersions where         type Rs DescribeApplicationVersions =@@ -161,23 +161,23 @@     -> DescribeApplicationVersionsResponse describeApplicationVersionsResponse pResponseStatus_ =   DescribeApplicationVersionsResponse'-  { _davrsApplicationVersions = Nothing-  , _davrsNextToken = Nothing-  , _davrsResponseStatus = pResponseStatus_-  }+    { _davrsApplicationVersions = Nothing+    , _davrsNextToken = Nothing+    , _davrsResponseStatus = pResponseStatus_+    }   -- | List of @ApplicationVersionDescription@ objects sorted in order of creation. davrsApplicationVersions :: Lens' DescribeApplicationVersionsResponse [ApplicationVersionDescription]-davrsApplicationVersions = lens _davrsApplicationVersions (\ s a -> s{_davrsApplicationVersions = a}) . _Default . _Coerce;+davrsApplicationVersions = lens _davrsApplicationVersions (\ s a -> s{_davrsApplicationVersions = a}) . _Default . _Coerce  -- | In a paginated request, the token that you can pass in a subsequent request to get the next response page. davrsNextToken :: Lens' DescribeApplicationVersionsResponse (Maybe Text)-davrsNextToken = lens _davrsNextToken (\ s a -> s{_davrsNextToken = a});+davrsNextToken = lens _davrsNextToken (\ s a -> s{_davrsNextToken = a})  -- | -- | The response status code. davrsResponseStatus :: Lens' DescribeApplicationVersionsResponse Int-davrsResponseStatus = lens _davrsResponseStatus (\ s a -> s{_davrsResponseStatus = a});+davrsResponseStatus = lens _davrsResponseStatus (\ s a -> s{_davrsResponseStatus = a})  instance NFData DescribeApplicationVersionsResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.DescribeApplications--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -66,7 +66,7 @@  -- | 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}) . _Default . _Coerce;+daApplicationNames = lens _daApplicationNames (\ s a -> s{_daApplicationNames = a}) . _Default . _Coerce  instance AWSRequest DescribeApplications where         type Rs DescribeApplications =@@ -122,15 +122,15 @@     -> DescribeApplicationsResponse describeApplicationsResponse pResponseStatus_ =   DescribeApplicationsResponse'-  {_darsApplications = Nothing, _darsResponseStatus = pResponseStatus_}+    {_darsApplications = Nothing, _darsResponseStatus = pResponseStatus_}   -- | This parameter contains a list of 'ApplicationDescription' . darsApplications :: Lens' DescribeApplicationsResponse [ApplicationDescription]-darsApplications = lens _darsApplications (\ s a -> s{_darsApplications = a}) . _Default . _Coerce;+darsApplications = lens _darsApplications (\ s a -> s{_darsApplications = a}) . _Default . _Coerce  -- | -- | The response status code. darsResponseStatus :: Lens' DescribeApplicationsResponse Int-darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a});+darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a})  instance NFData DescribeApplicationsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.DescribeConfigurationOptions--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -85,38 +85,38 @@     :: DescribeConfigurationOptions describeConfigurationOptions =   DescribeConfigurationOptions'-  { _dcoTemplateName = Nothing-  , _dcoPlatformARN = Nothing-  , _dcoEnvironmentName = Nothing-  , _dcoApplicationName = Nothing-  , _dcoSolutionStackName = Nothing-  , _dcoOptions = Nothing-  }+    { _dcoTemplateName = Nothing+    , _dcoPlatformARN = Nothing+    , _dcoEnvironmentName = Nothing+    , _dcoApplicationName = Nothing+    , _dcoSolutionStackName = Nothing+    , _dcoOptions = Nothing+    }   -- | 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});+dcoTemplateName = lens _dcoTemplateName (\ s a -> s{_dcoTemplateName = a})  -- | The ARN of the custom platform. dcoPlatformARN :: Lens' DescribeConfigurationOptions (Maybe Text)-dcoPlatformARN = lens _dcoPlatformARN (\ s a -> s{_dcoPlatformARN = a});+dcoPlatformARN = lens _dcoPlatformARN (\ s a -> s{_dcoPlatformARN = 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});+dcoApplicationName = lens _dcoApplicationName (\ s a -> s{_dcoApplicationName = a})  -- | 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})  -- | If specified, restricts the descriptions to only the specified options. dcoOptions :: Lens' DescribeConfigurationOptions [OptionSpecification]-dcoOptions = lens _dcoOptions (\ s a -> s{_dcoOptions = a}) . _Default . _Coerce;+dcoOptions = lens _dcoOptions (\ s a -> s{_dcoOptions = a}) . _Default . _Coerce  instance AWSRequest DescribeConfigurationOptions          where@@ -187,28 +187,28 @@     -> DescribeConfigurationOptionsResponse describeConfigurationOptionsResponse pResponseStatus_ =   DescribeConfigurationOptionsResponse'-  { _dcorsPlatformARN = Nothing-  , _dcorsSolutionStackName = Nothing-  , _dcorsOptions = Nothing-  , _dcorsResponseStatus = pResponseStatus_-  }+    { _dcorsPlatformARN = Nothing+    , _dcorsSolutionStackName = Nothing+    , _dcorsOptions = Nothing+    , _dcorsResponseStatus = pResponseStatus_+    }   -- | The ARN of the platform. dcorsPlatformARN :: Lens' DescribeConfigurationOptionsResponse (Maybe Text)-dcorsPlatformARN = lens _dcorsPlatformARN (\ s a -> s{_dcorsPlatformARN = a});+dcorsPlatformARN = lens _dcorsPlatformARN (\ s a -> s{_dcorsPlatformARN = a})  -- | The name of the solution stack these configuration options belong to. dcorsSolutionStackName :: Lens' DescribeConfigurationOptionsResponse (Maybe Text)-dcorsSolutionStackName = lens _dcorsSolutionStackName (\ s a -> s{_dcorsSolutionStackName = a});+dcorsSolutionStackName = lens _dcorsSolutionStackName (\ s a -> s{_dcorsSolutionStackName = a})  -- | A list of 'ConfigurationOptionDescription' . dcorsOptions :: Lens' DescribeConfigurationOptionsResponse [ConfigurationOptionDescription]-dcorsOptions = lens _dcorsOptions (\ s a -> s{_dcorsOptions = a}) . _Default . _Coerce;+dcorsOptions = lens _dcorsOptions (\ s a -> s{_dcorsOptions = a}) . _Default . _Coerce  -- | -- | The response status code. dcorsResponseStatus :: Lens' DescribeConfigurationOptionsResponse Int-dcorsResponseStatus = lens _dcorsResponseStatus (\ s a -> s{_dcorsResponseStatus = a});+dcorsResponseStatus = lens _dcorsResponseStatus (\ s a -> s{_dcorsResponseStatus = a})  instance NFData DescribeConfigurationOptionsResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.DescribeConfigurationSettings--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -80,23 +80,23 @@     -> DescribeConfigurationSettings describeConfigurationSettings pApplicationName_ =   DescribeConfigurationSettings'-  { _dcsTemplateName = Nothing-  , _dcsEnvironmentName = Nothing-  , _dcsApplicationName = pApplicationName_-  }+    { _dcsTemplateName = Nothing+    , _dcsEnvironmentName = Nothing+    , _dcsApplicationName = pApplicationName_+    }   -- | 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. dcsTemplateName :: Lens' DescribeConfigurationSettings (Maybe Text)-dcsTemplateName = lens _dcsTemplateName (\ s a -> s{_dcsTemplateName = a});+dcsTemplateName = lens _dcsTemplateName (\ s a -> s{_dcsTemplateName = 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});+dcsEnvironmentName = lens _dcsEnvironmentName (\ s a -> s{_dcsEnvironmentName = a})  -- | The application for the environment or configuration template. dcsApplicationName :: Lens' DescribeConfigurationSettings Text-dcsApplicationName = lens _dcsApplicationName (\ s a -> s{_dcsApplicationName = a});+dcsApplicationName = lens _dcsApplicationName (\ s a -> s{_dcsApplicationName = a})  instance AWSRequest DescribeConfigurationSettings          where@@ -156,18 +156,18 @@     -> DescribeConfigurationSettingsResponse describeConfigurationSettingsResponse pResponseStatus_ =   DescribeConfigurationSettingsResponse'-  { _dcsrsConfigurationSettings = Nothing-  , _dcsrsResponseStatus = pResponseStatus_-  }+    { _dcsrsConfigurationSettings = Nothing+    , _dcsrsResponseStatus = pResponseStatus_+    }   -- | A list of 'ConfigurationSettingsDescription' . dcsrsConfigurationSettings :: Lens' DescribeConfigurationSettingsResponse [ConfigurationSettingsDescription]-dcsrsConfigurationSettings = lens _dcsrsConfigurationSettings (\ s a -> s{_dcsrsConfigurationSettings = a}) . _Default . _Coerce;+dcsrsConfigurationSettings = lens _dcsrsConfigurationSettings (\ s a -> s{_dcsrsConfigurationSettings = a}) . _Default . _Coerce  -- | -- | The response status code. dcsrsResponseStatus :: Lens' DescribeConfigurationSettingsResponse Int-dcsrsResponseStatus = lens _dcsrsResponseStatus (\ s a -> s{_dcsrsResponseStatus = a});+dcsrsResponseStatus = lens _dcsrsResponseStatus (\ s a -> s{_dcsrsResponseStatus = a})  instance NFData DescribeConfigurationSettingsResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.DescribeEnvironmentHealth--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -78,23 +78,23 @@     :: DescribeEnvironmentHealth describeEnvironmentHealth =   DescribeEnvironmentHealth'-  { _dehEnvironmentName = Nothing-  , _dehAttributeNames = Nothing-  , _dehEnvironmentId = Nothing-  }+    { _dehEnvironmentName = Nothing+    , _dehAttributeNames = Nothing+    , _dehEnvironmentId = Nothing+    }   -- | Specify the environment by name. You must specify either this or an EnvironmentName, or both. dehEnvironmentName :: Lens' DescribeEnvironmentHealth (Maybe Text)-dehEnvironmentName = lens _dehEnvironmentName (\ s a -> s{_dehEnvironmentName = a});+dehEnvironmentName = lens _dehEnvironmentName (\ s a -> s{_dehEnvironmentName = a})  -- | Specify the response elements to return. To retrieve all attributes, set to @All@ . If no attribute names are specified, returns the name of the environment. dehAttributeNames :: Lens' DescribeEnvironmentHealth [EnvironmentHealthAttribute]-dehAttributeNames = lens _dehAttributeNames (\ s a -> s{_dehAttributeNames = a}) . _Default . _Coerce;+dehAttributeNames = lens _dehAttributeNames (\ s a -> s{_dehAttributeNames = a}) . _Default . _Coerce  -- | Specify the environment by ID. You must specify either this or an EnvironmentName, or both. dehEnvironmentId :: Lens' DescribeEnvironmentHealth (Maybe Text)-dehEnvironmentId = lens _dehEnvironmentId (\ s a -> s{_dehEnvironmentId = a});+dehEnvironmentId = lens _dehEnvironmentId (\ s a -> s{_dehEnvironmentId = a})  instance AWSRequest DescribeEnvironmentHealth where         type Rs DescribeEnvironmentHealth =@@ -181,53 +181,53 @@     -> DescribeEnvironmentHealthResponse describeEnvironmentHealthResponse pResponseStatus_ =   DescribeEnvironmentHealthResponse'-  { _dehrsStatus = Nothing-  , _dehrsCauses = Nothing-  , _dehrsApplicationMetrics = Nothing-  , _dehrsColor = Nothing-  , _dehrsEnvironmentName = Nothing-  , _dehrsHealthStatus = Nothing-  , _dehrsInstancesHealth = Nothing-  , _dehrsRefreshedAt = Nothing-  , _dehrsResponseStatus = pResponseStatus_-  }+    { _dehrsStatus = Nothing+    , _dehrsCauses = Nothing+    , _dehrsApplicationMetrics = Nothing+    , _dehrsColor = Nothing+    , _dehrsEnvironmentName = Nothing+    , _dehrsHealthStatus = Nothing+    , _dehrsInstancesHealth = Nothing+    , _dehrsRefreshedAt = Nothing+    , _dehrsResponseStatus = pResponseStatus_+    }   -- | The environment's operational status. @Ready@ , @Launching@ , @Updating@ , @Terminating@ , or @Terminated@ . dehrsStatus :: Lens' DescribeEnvironmentHealthResponse (Maybe EnvironmentHealth)-dehrsStatus = lens _dehrsStatus (\ s a -> s{_dehrsStatus = a});+dehrsStatus = lens _dehrsStatus (\ s a -> s{_dehrsStatus = a})  -- | Descriptions of the data that contributed to the environment's current health status. dehrsCauses :: Lens' DescribeEnvironmentHealthResponse [Text]-dehrsCauses = lens _dehrsCauses (\ s a -> s{_dehrsCauses = a}) . _Default . _Coerce;+dehrsCauses = lens _dehrsCauses (\ s a -> s{_dehrsCauses = a}) . _Default . _Coerce  -- | Application request metrics for the environment. dehrsApplicationMetrics :: Lens' DescribeEnvironmentHealthResponse (Maybe ApplicationMetrics)-dehrsApplicationMetrics = lens _dehrsApplicationMetrics (\ s a -> s{_dehrsApplicationMetrics = a});+dehrsApplicationMetrics = lens _dehrsApplicationMetrics (\ s a -> s{_dehrsApplicationMetrics = a})  -- | The <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/health-enhanced-status.html health color> of the environment. dehrsColor :: Lens' DescribeEnvironmentHealthResponse (Maybe Text)-dehrsColor = lens _dehrsColor (\ s a -> s{_dehrsColor = a});+dehrsColor = lens _dehrsColor (\ s a -> s{_dehrsColor = a})  -- | The environment's name. dehrsEnvironmentName :: Lens' DescribeEnvironmentHealthResponse (Maybe Text)-dehrsEnvironmentName = lens _dehrsEnvironmentName (\ s a -> s{_dehrsEnvironmentName = a});+dehrsEnvironmentName = lens _dehrsEnvironmentName (\ s a -> s{_dehrsEnvironmentName = a})  -- | The <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/health-enhanced-status.html health status> of the environment. For example, @Ok@ . dehrsHealthStatus :: Lens' DescribeEnvironmentHealthResponse (Maybe Text)-dehrsHealthStatus = lens _dehrsHealthStatus (\ s a -> s{_dehrsHealthStatus = a});+dehrsHealthStatus = lens _dehrsHealthStatus (\ s a -> s{_dehrsHealthStatus = a})  -- | Summary health information for the instances in the environment. dehrsInstancesHealth :: Lens' DescribeEnvironmentHealthResponse (Maybe InstanceHealthSummary)-dehrsInstancesHealth = lens _dehrsInstancesHealth (\ s a -> s{_dehrsInstancesHealth = a});+dehrsInstancesHealth = lens _dehrsInstancesHealth (\ s a -> s{_dehrsInstancesHealth = a})  -- | The date and time that the health information was retrieved. dehrsRefreshedAt :: Lens' DescribeEnvironmentHealthResponse (Maybe UTCTime)-dehrsRefreshedAt = lens _dehrsRefreshedAt (\ s a -> s{_dehrsRefreshedAt = a}) . mapping _Time;+dehrsRefreshedAt = lens _dehrsRefreshedAt (\ s a -> s{_dehrsRefreshedAt = a}) . mapping _Time  -- | -- | The response status code. dehrsResponseStatus :: Lens' DescribeEnvironmentHealthResponse Int-dehrsResponseStatus = lens _dehrsResponseStatus (\ s a -> s{_dehrsResponseStatus = a});+dehrsResponseStatus = lens _dehrsResponseStatus (\ s a -> s{_dehrsResponseStatus = a})  instance NFData DescribeEnvironmentHealthResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.DescribeEnvironmentManagedActionHistory--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -76,28 +76,28 @@     :: DescribeEnvironmentManagedActionHistory describeEnvironmentManagedActionHistory =   DescribeEnvironmentManagedActionHistory'-  { _demahNextToken = Nothing-  , _demahEnvironmentName = Nothing-  , _demahMaxItems = Nothing-  , _demahEnvironmentId = Nothing-  }+    { _demahNextToken = Nothing+    , _demahEnvironmentName = Nothing+    , _demahMaxItems = Nothing+    , _demahEnvironmentId = Nothing+    }   -- | The pagination token returned by a previous request. demahNextToken :: Lens' DescribeEnvironmentManagedActionHistory (Maybe Text)-demahNextToken = lens _demahNextToken (\ s a -> s{_demahNextToken = a});+demahNextToken = lens _demahNextToken (\ s a -> s{_demahNextToken = a})  -- | The name of the target environment. demahEnvironmentName :: Lens' DescribeEnvironmentManagedActionHistory (Maybe Text)-demahEnvironmentName = lens _demahEnvironmentName (\ s a -> s{_demahEnvironmentName = a});+demahEnvironmentName = lens _demahEnvironmentName (\ s a -> s{_demahEnvironmentName = a})  -- | The maximum number of items to return for a single request. demahMaxItems :: Lens' DescribeEnvironmentManagedActionHistory (Maybe Int)-demahMaxItems = lens _demahMaxItems (\ s a -> s{_demahMaxItems = a});+demahMaxItems = lens _demahMaxItems (\ s a -> s{_demahMaxItems = a})  -- | The environment ID of the target environment. demahEnvironmentId :: Lens' DescribeEnvironmentManagedActionHistory (Maybe Text)-demahEnvironmentId = lens _demahEnvironmentId (\ s a -> s{_demahEnvironmentId = a});+demahEnvironmentId = lens _demahEnvironmentId (\ s a -> s{_demahEnvironmentId = a})  instance AWSRequest            DescribeEnvironmentManagedActionHistory@@ -173,23 +173,23 @@     -> DescribeEnvironmentManagedActionHistoryResponse describeEnvironmentManagedActionHistoryResponse pResponseStatus_ =   DescribeEnvironmentManagedActionHistoryResponse'-  { _demahrsManagedActionHistoryItems = Nothing-  , _demahrsNextToken = Nothing-  , _demahrsResponseStatus = pResponseStatus_-  }+    { _demahrsManagedActionHistoryItems = Nothing+    , _demahrsNextToken = Nothing+    , _demahrsResponseStatus = pResponseStatus_+    }   -- | A list of completed and failed managed actions. demahrsManagedActionHistoryItems :: Lens' DescribeEnvironmentManagedActionHistoryResponse (Maybe (NonEmpty ManagedActionHistoryItem))-demahrsManagedActionHistoryItems = lens _demahrsManagedActionHistoryItems (\ s a -> s{_demahrsManagedActionHistoryItems = a}) . mapping _List1;+demahrsManagedActionHistoryItems = lens _demahrsManagedActionHistoryItems (\ s a -> s{_demahrsManagedActionHistoryItems = a}) . mapping _List1  -- | A pagination token that you pass to 'DescribeEnvironmentManagedActionHistory' to get the next page of results. demahrsNextToken :: Lens' DescribeEnvironmentManagedActionHistoryResponse (Maybe Text)-demahrsNextToken = lens _demahrsNextToken (\ s a -> s{_demahrsNextToken = a});+demahrsNextToken = lens _demahrsNextToken (\ s a -> s{_demahrsNextToken = a})  -- | -- | The response status code. demahrsResponseStatus :: Lens' DescribeEnvironmentManagedActionHistoryResponse Int-demahrsResponseStatus = lens _demahrsResponseStatus (\ s a -> s{_demahrsResponseStatus = a});+demahrsResponseStatus = lens _demahrsResponseStatus (\ s a -> s{_demahrsResponseStatus = a})  instance NFData            DescribeEnvironmentManagedActionHistoryResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.DescribeEnvironmentManagedActions--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,23 +71,23 @@     :: DescribeEnvironmentManagedActions describeEnvironmentManagedActions =   DescribeEnvironmentManagedActions'-  { _demaStatus = Nothing-  , _demaEnvironmentName = Nothing-  , _demaEnvironmentId = Nothing-  }+    { _demaStatus = Nothing+    , _demaEnvironmentName = Nothing+    , _demaEnvironmentId = Nothing+    }   -- | To show only actions with a particular status, specify a status. demaStatus :: Lens' DescribeEnvironmentManagedActions (Maybe ActionStatus)-demaStatus = lens _demaStatus (\ s a -> s{_demaStatus = a});+demaStatus = lens _demaStatus (\ s a -> s{_demaStatus = a})  -- | The name of the target environment. demaEnvironmentName :: Lens' DescribeEnvironmentManagedActions (Maybe Text)-demaEnvironmentName = lens _demaEnvironmentName (\ s a -> s{_demaEnvironmentName = a});+demaEnvironmentName = lens _demaEnvironmentName (\ s a -> s{_demaEnvironmentName = a})  -- | The environment ID of the target environment. demaEnvironmentId :: Lens' DescribeEnvironmentManagedActions (Maybe Text)-demaEnvironmentId = lens _demaEnvironmentId (\ s a -> s{_demaEnvironmentId = a});+demaEnvironmentId = lens _demaEnvironmentId (\ s a -> s{_demaEnvironmentId = a})  instance AWSRequest DescribeEnvironmentManagedActions          where@@ -151,16 +151,16 @@     -> DescribeEnvironmentManagedActionsResponse describeEnvironmentManagedActionsResponse pResponseStatus_ =   DescribeEnvironmentManagedActionsResponse'-  {_demarsManagedActions = Nothing, _demarsResponseStatus = pResponseStatus_}+    {_demarsManagedActions = Nothing, _demarsResponseStatus = pResponseStatus_}   -- | A list of upcoming and in-progress managed actions. demarsManagedActions :: Lens' DescribeEnvironmentManagedActionsResponse (Maybe (NonEmpty ManagedAction))-demarsManagedActions = lens _demarsManagedActions (\ s a -> s{_demarsManagedActions = a}) . mapping _List1;+demarsManagedActions = lens _demarsManagedActions (\ s a -> s{_demarsManagedActions = a}) . mapping _List1  -- | -- | The response status code. demarsResponseStatus :: Lens' DescribeEnvironmentManagedActionsResponse Int-demarsResponseStatus = lens _demarsResponseStatus (\ s a -> s{_demarsResponseStatus = a});+demarsResponseStatus = lens _demarsResponseStatus (\ s a -> s{_demarsResponseStatus = a})  instance NFData            DescribeEnvironmentManagedActionsResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.DescribeEnvironmentResources--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -67,16 +67,16 @@     :: DescribeEnvironmentResources describeEnvironmentResources =   DescribeEnvironmentResources'-  {_derEnvironmentName = Nothing, _derEnvironmentId = Nothing}+    {_derEnvironmentName = Nothing, _derEnvironmentId = Nothing}   -- | 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. derEnvironmentName :: Lens' DescribeEnvironmentResources (Maybe Text)-derEnvironmentName = lens _derEnvironmentName (\ s a -> s{_derEnvironmentName = a});+derEnvironmentName = lens _derEnvironmentName (\ s a -> s{_derEnvironmentName = a})  -- | 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});+derEnvironmentId = lens _derEnvironmentId (\ s a -> s{_derEnvironmentId = a})  instance AWSRequest DescribeEnvironmentResources          where@@ -133,18 +133,18 @@     -> DescribeEnvironmentResourcesResponse describeEnvironmentResourcesResponse pResponseStatus_ =   DescribeEnvironmentResourcesResponse'-  { _derrsEnvironmentResources = Nothing-  , _derrsResponseStatus = pResponseStatus_-  }+    { _derrsEnvironmentResources = Nothing+    , _derrsResponseStatus = pResponseStatus_+    }   -- | A list of 'EnvironmentResourceDescription' . derrsEnvironmentResources :: Lens' DescribeEnvironmentResourcesResponse (Maybe EnvironmentResourceDescription)-derrsEnvironmentResources = lens _derrsEnvironmentResources (\ s a -> s{_derrsEnvironmentResources = a});+derrsEnvironmentResources = lens _derrsEnvironmentResources (\ s a -> s{_derrsEnvironmentResources = a})  -- | -- | The response status code. derrsResponseStatus :: Lens' DescribeEnvironmentResourcesResponse Int-derrsResponseStatus = lens _derrsResponseStatus (\ s a -> s{_derrsResponseStatus = a});+derrsResponseStatus = lens _derrsResponseStatus (\ s a -> s{_derrsResponseStatus = a})  instance NFData DescribeEnvironmentResourcesResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.DescribeEnvironments--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -91,48 +91,48 @@     :: DescribeEnvironments describeEnvironments =   DescribeEnvironments'-  { _desEnvironmentIds = Nothing-  , _desEnvironmentNames = Nothing-  , _desNextToken = Nothing-  , _desVersionLabel = Nothing-  , _desMaxRecords = Nothing-  , _desApplicationName = Nothing-  , _desIncludedDeletedBackTo = Nothing-  , _desIncludeDeleted = Nothing-  }+    { _desEnvironmentIds = Nothing+    , _desEnvironmentNames = Nothing+    , _desNextToken = Nothing+    , _desVersionLabel = Nothing+    , _desMaxRecords = Nothing+    , _desApplicationName = Nothing+    , _desIncludedDeletedBackTo = Nothing+    , _desIncludeDeleted = Nothing+    }   -- | If specified, AWS Elastic Beanstalk restricts the returned descriptions to include only those that have the specified IDs. desEnvironmentIds :: Lens' DescribeEnvironments [Text]-desEnvironmentIds = lens _desEnvironmentIds (\ s a -> s{_desEnvironmentIds = a}) . _Default . _Coerce;+desEnvironmentIds = lens _desEnvironmentIds (\ s a -> s{_desEnvironmentIds = a}) . _Default . _Coerce  -- | If specified, AWS Elastic Beanstalk restricts the returned descriptions to include only those that have the specified names. desEnvironmentNames :: Lens' DescribeEnvironments [Text]-desEnvironmentNames = lens _desEnvironmentNames (\ s a -> s{_desEnvironmentNames = a}) . _Default . _Coerce;+desEnvironmentNames = lens _desEnvironmentNames (\ s a -> s{_desEnvironmentNames = a}) . _Default . _Coerce  -- | For a paginated request. Specify a token from a previous response page to retrieve the next response page. All other parameter values must be identical to the ones specified in the initial request. If no @NextToken@ is specified, the first page is retrieved. desNextToken :: Lens' DescribeEnvironments (Maybe Text)-desNextToken = lens _desNextToken (\ s a -> s{_desNextToken = a});+desNextToken = lens _desNextToken (\ s a -> s{_desNextToken = a})  -- | If specified, AWS Elastic Beanstalk restricts the returned descriptions to include only those that are associated with this application version. desVersionLabel :: Lens' DescribeEnvironments (Maybe Text)-desVersionLabel = lens _desVersionLabel (\ s a -> s{_desVersionLabel = a});+desVersionLabel = lens _desVersionLabel (\ s a -> s{_desVersionLabel = a})  -- | For a paginated request. Specify a maximum number of environments to include in each response. If no @MaxRecords@ is specified, all available environments are retrieved in a single response. desMaxRecords :: Lens' DescribeEnvironments (Maybe Natural)-desMaxRecords = lens _desMaxRecords (\ s a -> s{_desMaxRecords = a}) . mapping _Nat;+desMaxRecords = lens _desMaxRecords (\ s a -> s{_desMaxRecords = a}) . mapping _Nat  -- | If specified, AWS Elastic Beanstalk restricts the returned descriptions to include only those that are associated with this application. desApplicationName :: Lens' DescribeEnvironments (Maybe Text)-desApplicationName = lens _desApplicationName (\ s a -> s{_desApplicationName = a});+desApplicationName = lens _desApplicationName (\ s a -> s{_desApplicationName = a})  -- | If specified when @IncludeDeleted@ is set to @true@ , then environments deleted after this date are displayed. desIncludedDeletedBackTo :: Lens' DescribeEnvironments (Maybe UTCTime)-desIncludedDeletedBackTo = lens _desIncludedDeletedBackTo (\ s a -> s{_desIncludedDeletedBackTo = a}) . mapping _Time;+desIncludedDeletedBackTo = lens _desIncludedDeletedBackTo (\ s a -> s{_desIncludedDeletedBackTo = a}) . mapping _Time  -- | Indicates whether to include deleted environments: @true@ : Environments that have been deleted after @IncludedDeletedBackTo@ are displayed. @false@ : Do not include deleted environments. desIncludeDeleted :: Lens' DescribeEnvironments (Maybe Bool)-desIncludeDeleted = lens _desIncludeDeleted (\ s a -> s{_desIncludeDeleted = a});+desIncludeDeleted = lens _desIncludeDeleted (\ s a -> s{_desIncludeDeleted = a})  instance AWSRequest DescribeEnvironments where         type Rs DescribeEnvironments =

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.DescribeEvents--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -111,68 +111,68 @@     :: DescribeEvents describeEvents =   DescribeEvents'-  { _deRequestId = Nothing-  , _deTemplateName = Nothing-  , _deStartTime = Nothing-  , _deSeverity = Nothing-  , _deNextToken = Nothing-  , _deVersionLabel = Nothing-  , _dePlatformARN = Nothing-  , _deEnvironmentName = Nothing-  , _deMaxRecords = Nothing-  , _deEndTime = Nothing-  , _deApplicationName = Nothing-  , _deEnvironmentId = Nothing-  }+    { _deRequestId = Nothing+    , _deTemplateName = Nothing+    , _deStartTime = Nothing+    , _deSeverity = Nothing+    , _deNextToken = Nothing+    , _deVersionLabel = Nothing+    , _dePlatformARN = Nothing+    , _deEnvironmentName = Nothing+    , _deMaxRecords = Nothing+    , _deEndTime = Nothing+    , _deApplicationName = Nothing+    , _deEnvironmentId = Nothing+    }   -- | 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});+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;+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});+deSeverity = lens _deSeverity (\ s a -> s{_deSeverity = 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});+deNextToken = lens _deNextToken (\ s a -> s{_deNextToken = a})  -- | 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})  -- | The ARN of the version of the custom platform. dePlatformARN :: Lens' DescribeEvents (Maybe Text)-dePlatformARN = lens _dePlatformARN (\ s a -> s{_dePlatformARN = a});+dePlatformARN = lens _dePlatformARN (\ s a -> s{_dePlatformARN = 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});+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;+deMaxRecords = lens _deMaxRecords (\ s a -> s{_deMaxRecords = a}) . mapping _Nat  -- | 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;+deEndTime = lens _deEndTime (\ s a -> s{_deEndTime = a}) . mapping _Time  -- | 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});+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});+deEnvironmentId = lens _deEnvironmentId (\ s a -> s{_deEnvironmentId = a})  instance AWSPager DescribeEvents where         page rq rs@@ -247,22 +247,22 @@     -> DescribeEventsResponse describeEventsResponse pResponseStatus_ =   DescribeEventsResponse'-  { _dersNextToken = Nothing-  , _dersEvents = Nothing-  , _dersResponseStatus = pResponseStatus_-  }+    { _dersNextToken = Nothing+    , _dersEvents = Nothing+    , _dersResponseStatus = pResponseStatus_+    }   -- | 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});+dersNextToken = lens _dersNextToken (\ s a -> s{_dersNextToken = a})  -- | A list of 'EventDescription' . dersEvents :: Lens' DescribeEventsResponse [EventDescription]-dersEvents = lens _dersEvents (\ s a -> s{_dersEvents = a}) . _Default . _Coerce;+dersEvents = lens _dersEvents (\ s a -> s{_dersEvents = a}) . _Default . _Coerce  -- | -- | The response status code. dersResponseStatus :: Lens' DescribeEventsResponse Int-dersResponseStatus = lens _dersResponseStatus (\ s a -> s{_dersResponseStatus = a});+dersResponseStatus = lens _dersResponseStatus (\ s a -> s{_dersResponseStatus = a})  instance NFData DescribeEventsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.DescribeInstancesHealth--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -77,28 +77,28 @@     :: DescribeInstancesHealth describeInstancesHealth =   DescribeInstancesHealth'-  { _dihNextToken = Nothing-  , _dihEnvironmentName = Nothing-  , _dihAttributeNames = Nothing-  , _dihEnvironmentId = Nothing-  }+    { _dihNextToken = Nothing+    , _dihEnvironmentName = Nothing+    , _dihAttributeNames = Nothing+    , _dihEnvironmentId = Nothing+    }   -- | Specify the pagination token returned by a previous call. dihNextToken :: Lens' DescribeInstancesHealth (Maybe Text)-dihNextToken = lens _dihNextToken (\ s a -> s{_dihNextToken = a});+dihNextToken = lens _dihNextToken (\ s a -> s{_dihNextToken = a})  -- | Specify the AWS Elastic Beanstalk environment by name. dihEnvironmentName :: Lens' DescribeInstancesHealth (Maybe Text)-dihEnvironmentName = lens _dihEnvironmentName (\ s a -> s{_dihEnvironmentName = a});+dihEnvironmentName = lens _dihEnvironmentName (\ s a -> s{_dihEnvironmentName = a})  -- | Specifies the response elements you wish to receive. To retrieve all attributes, set to @All@ . If no attribute names are specified, returns a list of instances. dihAttributeNames :: Lens' DescribeInstancesHealth [InstancesHealthAttribute]-dihAttributeNames = lens _dihAttributeNames (\ s a -> s{_dihAttributeNames = a}) . _Default . _Coerce;+dihAttributeNames = lens _dihAttributeNames (\ s a -> s{_dihAttributeNames = a}) . _Default . _Coerce  -- | Specify the AWS Elastic Beanstalk environment by ID. dihEnvironmentId :: Lens' DescribeInstancesHealth (Maybe Text)-dihEnvironmentId = lens _dihEnvironmentId (\ s a -> s{_dihEnvironmentId = a});+dihEnvironmentId = lens _dihEnvironmentId (\ s a -> s{_dihEnvironmentId = a})  instance AWSRequest DescribeInstancesHealth where         type Rs DescribeInstancesHealth =@@ -166,27 +166,27 @@     -> DescribeInstancesHealthResponse describeInstancesHealthResponse pResponseStatus_ =   DescribeInstancesHealthResponse'-  { _dihrsInstanceHealthList = Nothing-  , _dihrsNextToken = Nothing-  , _dihrsRefreshedAt = Nothing-  , _dihrsResponseStatus = pResponseStatus_-  }+    { _dihrsInstanceHealthList = Nothing+    , _dihrsNextToken = Nothing+    , _dihrsRefreshedAt = Nothing+    , _dihrsResponseStatus = pResponseStatus_+    }   -- | Detailed health information about each instance. dihrsInstanceHealthList :: Lens' DescribeInstancesHealthResponse [SingleInstanceHealth]-dihrsInstanceHealthList = lens _dihrsInstanceHealthList (\ s a -> s{_dihrsInstanceHealthList = a}) . _Default . _Coerce;+dihrsInstanceHealthList = lens _dihrsInstanceHealthList (\ s a -> s{_dihrsInstanceHealthList = a}) . _Default . _Coerce  -- | Pagination token for the next page of results, if available. dihrsNextToken :: Lens' DescribeInstancesHealthResponse (Maybe Text)-dihrsNextToken = lens _dihrsNextToken (\ s a -> s{_dihrsNextToken = a});+dihrsNextToken = lens _dihrsNextToken (\ s a -> s{_dihrsNextToken = a})  -- | The date and time that the health information was retrieved. dihrsRefreshedAt :: Lens' DescribeInstancesHealthResponse (Maybe UTCTime)-dihrsRefreshedAt = lens _dihrsRefreshedAt (\ s a -> s{_dihrsRefreshedAt = a}) . mapping _Time;+dihrsRefreshedAt = lens _dihrsRefreshedAt (\ s a -> s{_dihrsRefreshedAt = a}) . mapping _Time  -- | -- | The response status code. dihrsResponseStatus :: Lens' DescribeInstancesHealthResponse Int-dihrsResponseStatus = lens _dihrsResponseStatus (\ s a -> s{_dihrsResponseStatus = a});+dihrsResponseStatus = lens _dihrsResponseStatus (\ s a -> s{_dihrsResponseStatus = a})  instance NFData DescribeInstancesHealthResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.DescribePlatformVersion--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -62,7 +62,7 @@  -- | The ARN of the version of the platform. dPlatformARN :: Lens' DescribePlatformVersion (Maybe Text)-dPlatformARN = lens _dPlatformARN (\ s a -> s{_dPlatformARN = a});+dPlatformARN = lens _dPlatformARN (\ s a -> s{_dPlatformARN = a})  instance AWSRequest DescribePlatformVersion where         type Rs DescribePlatformVersion =@@ -112,15 +112,15 @@     -> DescribePlatformVersionResponse describePlatformVersionResponse pResponseStatus_ =   DescribePlatformVersionResponse'-  {_drsPlatformDescription = Nothing, _drsResponseStatus = pResponseStatus_}+    {_drsPlatformDescription = Nothing, _drsResponseStatus = pResponseStatus_}   -- | Detailed information about the version of the platform. drsPlatformDescription :: Lens' DescribePlatformVersionResponse (Maybe PlatformDescription)-drsPlatformDescription = lens _drsPlatformDescription (\ s a -> s{_drsPlatformDescription = a});+drsPlatformDescription = lens _drsPlatformDescription (\ s a -> s{_drsPlatformDescription = a})  -- | -- | The response status code. drsResponseStatus :: Lens' DescribePlatformVersionResponse Int-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})  instance NFData DescribePlatformVersionResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.ListAvailableSolutionStacks--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -116,23 +116,23 @@     -> ListAvailableSolutionStacksResponse listAvailableSolutionStacksResponse pResponseStatus_ =   ListAvailableSolutionStacksResponse'-  { _lassrsSolutionStacks = Nothing-  , _lassrsSolutionStackDetails = Nothing-  , _lassrsResponseStatus = pResponseStatus_-  }+    { _lassrsSolutionStacks = Nothing+    , _lassrsSolutionStackDetails = Nothing+    , _lassrsResponseStatus = pResponseStatus_+    }   -- | A list of available solution stacks. lassrsSolutionStacks :: Lens' ListAvailableSolutionStacksResponse [Text]-lassrsSolutionStacks = lens _lassrsSolutionStacks (\ s a -> s{_lassrsSolutionStacks = a}) . _Default . _Coerce;+lassrsSolutionStacks = lens _lassrsSolutionStacks (\ s a -> s{_lassrsSolutionStacks = a}) . _Default . _Coerce  -- | A list of available solution stacks and their 'SolutionStackDescription' . lassrsSolutionStackDetails :: Lens' ListAvailableSolutionStacksResponse [SolutionStackDescription]-lassrsSolutionStackDetails = lens _lassrsSolutionStackDetails (\ s a -> s{_lassrsSolutionStackDetails = a}) . _Default . _Coerce;+lassrsSolutionStackDetails = lens _lassrsSolutionStackDetails (\ s a -> s{_lassrsSolutionStackDetails = a}) . _Default . _Coerce  -- | -- | The response status code. lassrsResponseStatus :: Lens' ListAvailableSolutionStacksResponse Int-lassrsResponseStatus = lens _lassrsResponseStatus (\ s a -> s{_lassrsResponseStatus = a});+lassrsResponseStatus = lens _lassrsResponseStatus (\ s a -> s{_lassrsResponseStatus = a})  instance NFData ListAvailableSolutionStacksResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.ListPlatformVersions--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,20 +68,20 @@     :: ListPlatformVersions listPlatformVersions =   ListPlatformVersions'-  {_lpvFilters = Nothing, _lpvNextToken = Nothing, _lpvMaxRecords = Nothing}+    {_lpvFilters = Nothing, _lpvNextToken = Nothing, _lpvMaxRecords = Nothing}   -- | List only the platforms where the platform member value relates to one of the supplied values. lpvFilters :: Lens' ListPlatformVersions [PlatformFilter]-lpvFilters = lens _lpvFilters (\ s a -> s{_lpvFilters = a}) . _Default . _Coerce;+lpvFilters = lens _lpvFilters (\ s a -> s{_lpvFilters = a}) . _Default . _Coerce  -- | The starting index into the remaining list of platforms. Use the @NextToken@ value from a previous @ListPlatformVersion@ call. lpvNextToken :: Lens' ListPlatformVersions (Maybe Text)-lpvNextToken = lens _lpvNextToken (\ s a -> s{_lpvNextToken = a});+lpvNextToken = lens _lpvNextToken (\ s a -> s{_lpvNextToken = a})  -- | The maximum number of platform values returned in one call. lpvMaxRecords :: Lens' ListPlatformVersions (Maybe Natural)-lpvMaxRecords = lens _lpvMaxRecords (\ s a -> s{_lpvMaxRecords = a}) . mapping _Nat;+lpvMaxRecords = lens _lpvMaxRecords (\ s a -> s{_lpvMaxRecords = a}) . mapping _Nat  instance AWSRequest ListPlatformVersions where         type Rs ListPlatformVersions =@@ -138,22 +138,22 @@     -> ListPlatformVersionsResponse listPlatformVersionsResponse pResponseStatus_ =   ListPlatformVersionsResponse'-  { _lpvrsNextToken = Nothing-  , _lpvrsPlatformSummaryList = Nothing-  , _lpvrsResponseStatus = pResponseStatus_-  }+    { _lpvrsNextToken = Nothing+    , _lpvrsPlatformSummaryList = Nothing+    , _lpvrsResponseStatus = pResponseStatus_+    }   -- | The starting index into the remaining list of platforms. if this value is not @null@ , you can use it in a subsequent @ListPlatformVersion@ call. lpvrsNextToken :: Lens' ListPlatformVersionsResponse (Maybe Text)-lpvrsNextToken = lens _lpvrsNextToken (\ s a -> s{_lpvrsNextToken = a});+lpvrsNextToken = lens _lpvrsNextToken (\ s a -> s{_lpvrsNextToken = a})  -- | Detailed information about the platforms. lpvrsPlatformSummaryList :: Lens' ListPlatformVersionsResponse [PlatformSummary]-lpvrsPlatformSummaryList = lens _lpvrsPlatformSummaryList (\ s a -> s{_lpvrsPlatformSummaryList = a}) . _Default . _Coerce;+lpvrsPlatformSummaryList = lens _lpvrsPlatformSummaryList (\ s a -> s{_lpvrsPlatformSummaryList = a}) . _Default . _Coerce  -- | -- | The response status code. lpvrsResponseStatus :: Lens' ListPlatformVersionsResponse Int-lpvrsResponseStatus = lens _lpvrsResponseStatus (\ s a -> s{_lpvrsResponseStatus = a});+lpvrsResponseStatus = lens _lpvrsResponseStatus (\ s a -> s{_lpvrsResponseStatus = a})  instance NFData ListPlatformVersionsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.ListTagsForResource--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,7 +21,7 @@ -- Returns the tags applied to an AWS Elastic Beanstalk resource. The response contains a list of tag key-value pairs. -- ----- Currently, Elastic Beanstalk only supports tagging Elastic Beanstalk environments.+-- Currently, Elastic Beanstalk only supports tagging of Elastic Beanstalk environments. For details about environment tagging, see <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/using-features.tagging.html Tagging Resources in Your Elastic Beanstalk Environment> . -- module Network.AWS.ElasticBeanstalk.ListTagsForResource     (@@ -67,7 +67,7 @@  -- | The Amazon Resource Name (ARN) of the resouce for which a tag list is requested. Must be the ARN of an Elastic Beanstalk environment. ltfrResourceARN :: Lens' ListTagsForResource Text-ltfrResourceARN = lens _ltfrResourceARN (\ s a -> s{_ltfrResourceARN = a});+ltfrResourceARN = lens _ltfrResourceARN (\ s a -> s{_ltfrResourceARN = a})  instance AWSRequest ListTagsForResource where         type Rs ListTagsForResource =@@ -121,22 +121,22 @@     -> ListTagsForResourceResponse listTagsForResourceResponse pResponseStatus_ =   ListTagsForResourceResponse'-  { _ltfrrsResourceTags = Nothing-  , _ltfrrsResourceARN = Nothing-  , _ltfrrsResponseStatus = pResponseStatus_-  }+    { _ltfrrsResourceTags = Nothing+    , _ltfrrsResourceARN = Nothing+    , _ltfrrsResponseStatus = pResponseStatus_+    }   -- | A list of tag key-value pairs. ltfrrsResourceTags :: Lens' ListTagsForResourceResponse [Tag]-ltfrrsResourceTags = lens _ltfrrsResourceTags (\ s a -> s{_ltfrrsResourceTags = a}) . _Default . _Coerce;+ltfrrsResourceTags = lens _ltfrrsResourceTags (\ s a -> s{_ltfrrsResourceTags = a}) . _Default . _Coerce  -- | The Amazon Resource Name (ARN) of the resouce for which a tag list was requested. ltfrrsResourceARN :: Lens' ListTagsForResourceResponse (Maybe Text)-ltfrrsResourceARN = lens _ltfrrsResourceARN (\ s a -> s{_ltfrrsResourceARN = a});+ltfrrsResourceARN = lens _ltfrrsResourceARN (\ s a -> s{_ltfrrsResourceARN = a})  -- | -- | The response status code. ltfrrsResponseStatus :: Lens' ListTagsForResourceResponse Int-ltfrrsResponseStatus = lens _ltfrrsResponseStatus (\ s a -> s{_ltfrrsResponseStatus = a});+ltfrrsResponseStatus = lens _ltfrrsResponseStatus (\ s a -> s{_ltfrrsResponseStatus = a})  instance NFData ListTagsForResourceResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.RebuildEnvironment--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,11 +68,11 @@  -- | The name of the environment to rebuild. Condition: You must specify either this or an EnvironmentId, or both. If you do not specify either, AWS Elastic Beanstalk returns @MissingRequiredParameter@ error. reEnvironmentName :: Lens' RebuildEnvironment (Maybe Text)-reEnvironmentName = lens _reEnvironmentName (\ s a -> s{_reEnvironmentName = a});+reEnvironmentName = lens _reEnvironmentName (\ s a -> s{_reEnvironmentName = a})  -- | The ID of the environment to rebuild. Condition: You must specify either this or an EnvironmentName, or both. If you do not specify either, AWS Elastic Beanstalk returns @MissingRequiredParameter@ error. reEnvironmentId :: Lens' RebuildEnvironment (Maybe Text)-reEnvironmentId = lens _reEnvironmentId (\ s a -> s{_reEnvironmentId = a});+reEnvironmentId = lens _reEnvironmentId (\ s a -> s{_reEnvironmentId = a})  instance AWSRequest RebuildEnvironment where         type Rs RebuildEnvironment =

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.RequestEnvironmentInfo--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -81,23 +81,23 @@     -> RequestEnvironmentInfo requestEnvironmentInfo pInfoType_ =   RequestEnvironmentInfo'-  { _reiEnvironmentName = Nothing-  , _reiEnvironmentId = Nothing-  , _reiInfoType = pInfoType_-  }+    { _reiEnvironmentName = Nothing+    , _reiEnvironmentId = Nothing+    , _reiInfoType = pInfoType_+    }   -- | The name of the environment of the requested data. If no such environment is found, @RequestEnvironmentInfo@ returns an @InvalidParameterValue@ error.  Condition: You must specify either this or an EnvironmentId, or both. If you do not specify either, AWS Elastic Beanstalk returns @MissingRequiredParameter@ error. reiEnvironmentName :: Lens' RequestEnvironmentInfo (Maybe Text)-reiEnvironmentName = lens _reiEnvironmentName (\ s a -> s{_reiEnvironmentName = a});+reiEnvironmentName = lens _reiEnvironmentName (\ s a -> s{_reiEnvironmentName = a})  -- | The ID of the environment of the requested data. If no such environment is found, @RequestEnvironmentInfo@ returns an @InvalidParameterValue@ error.  Condition: You must specify either this or an EnvironmentName, or both. If you do not specify either, AWS Elastic Beanstalk returns @MissingRequiredParameter@ error. reiEnvironmentId :: Lens' RequestEnvironmentInfo (Maybe Text)-reiEnvironmentId = lens _reiEnvironmentId (\ s a -> s{_reiEnvironmentId = a});+reiEnvironmentId = lens _reiEnvironmentId (\ s a -> s{_reiEnvironmentId = a})  -- | The type of information to request. reiInfoType :: Lens' RequestEnvironmentInfo EnvironmentInfoType-reiInfoType = lens _reiInfoType (\ s a -> s{_reiInfoType = a});+reiInfoType = lens _reiInfoType (\ s a -> s{_reiInfoType = a})  instance AWSRequest RequestEnvironmentInfo where         type Rs RequestEnvironmentInfo =

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.RestartAppServer--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,11 +68,11 @@  -- | The name of the environment to restart the server for. Condition: You must specify either this or an EnvironmentId, or both. If you do not specify either, AWS Elastic Beanstalk returns @MissingRequiredParameter@ error. rasEnvironmentName :: Lens' RestartAppServer (Maybe Text)-rasEnvironmentName = lens _rasEnvironmentName (\ s a -> s{_rasEnvironmentName = a});+rasEnvironmentName = lens _rasEnvironmentName (\ s a -> s{_rasEnvironmentName = a})  -- | The ID of the environment to restart the server for. Condition: You must specify either this or an EnvironmentName, or both. If you do not specify either, AWS Elastic Beanstalk returns @MissingRequiredParameter@ error. rasEnvironmentId :: Lens' RestartAppServer (Maybe Text)-rasEnvironmentId = lens _rasEnvironmentId (\ s a -> s{_rasEnvironmentId = a});+rasEnvironmentId = lens _rasEnvironmentId (\ s a -> s{_rasEnvironmentId = a})  instance AWSRequest RestartAppServer where         type Rs RestartAppServer = RestartAppServerResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.RetrieveEnvironmentInfo--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -78,23 +78,23 @@     -> RetrieveEnvironmentInfo retrieveEnvironmentInfo pInfoType_ =   RetrieveEnvironmentInfo'-  { _rEnvironmentName = Nothing-  , _rEnvironmentId = Nothing-  , _rInfoType = pInfoType_-  }+    { _rEnvironmentName = Nothing+    , _rEnvironmentId = Nothing+    , _rInfoType = pInfoType_+    }   -- | The name of the data's environment. If no such environment is found, returns an @InvalidParameterValue@ error.  Condition: You must specify either this or an EnvironmentId, or both. If you do not specify either, AWS Elastic Beanstalk returns @MissingRequiredParameter@ error. rEnvironmentName :: Lens' RetrieveEnvironmentInfo (Maybe Text)-rEnvironmentName = lens _rEnvironmentName (\ s a -> s{_rEnvironmentName = a});+rEnvironmentName = lens _rEnvironmentName (\ s a -> s{_rEnvironmentName = a})  -- | The ID of the data's environment. If no such environment is found, returns an @InvalidParameterValue@ error. Condition: You must specify either this or an EnvironmentName, or both. If you do not specify either, AWS Elastic Beanstalk returns @MissingRequiredParameter@ error. rEnvironmentId :: Lens' RetrieveEnvironmentInfo (Maybe Text)-rEnvironmentId = lens _rEnvironmentId (\ s a -> s{_rEnvironmentId = a});+rEnvironmentId = lens _rEnvironmentId (\ s a -> s{_rEnvironmentId = a})  -- | The type of information to retrieve. rInfoType :: Lens' RetrieveEnvironmentInfo EnvironmentInfoType-rInfoType = lens _rInfoType (\ s a -> s{_rInfoType = a});+rInfoType = lens _rInfoType (\ s a -> s{_rInfoType = a})  instance AWSRequest RetrieveEnvironmentInfo where         type Rs RetrieveEnvironmentInfo =@@ -151,15 +151,15 @@     -> RetrieveEnvironmentInfoResponse retrieveEnvironmentInfoResponse pResponseStatus_ =   RetrieveEnvironmentInfoResponse'-  {_reirsEnvironmentInfo = Nothing, _reirsResponseStatus = pResponseStatus_}+    {_reirsEnvironmentInfo = Nothing, _reirsResponseStatus = pResponseStatus_}   -- | The 'EnvironmentInfoDescription' of the environment. reirsEnvironmentInfo :: Lens' RetrieveEnvironmentInfoResponse [EnvironmentInfoDescription]-reirsEnvironmentInfo = lens _reirsEnvironmentInfo (\ s a -> s{_reirsEnvironmentInfo = a}) . _Default . _Coerce;+reirsEnvironmentInfo = lens _reirsEnvironmentInfo (\ s a -> s{_reirsEnvironmentInfo = a}) . _Default . _Coerce  -- | -- | The response status code. reirsResponseStatus :: Lens' RetrieveEnvironmentInfoResponse Int-reirsResponseStatus = lens _reirsResponseStatus (\ s a -> s{_reirsResponseStatus = a});+reirsResponseStatus = lens _reirsResponseStatus (\ s a -> s{_reirsResponseStatus = a})  instance NFData RetrieveEnvironmentInfoResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.SwapEnvironmentCNAMEs--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -72,28 +72,28 @@     :: SwapEnvironmentCNAMEs swapEnvironmentCNAMEs =   SwapEnvironmentCNAMEs'-  { _secnameDestinationEnvironmentName = Nothing-  , _secnameDestinationEnvironmentId = Nothing-  , _secnameSourceEnvironmentName = Nothing-  , _secnameSourceEnvironmentId = Nothing-  }+    { _secnameDestinationEnvironmentName = Nothing+    , _secnameDestinationEnvironmentId = Nothing+    , _secnameSourceEnvironmentName = Nothing+    , _secnameSourceEnvironmentId = Nothing+    }   -- | The name of the destination environment. Condition: You must specify at least the @DestinationEnvironmentID@ or the @DestinationEnvironmentName@ . You may also specify both. You must specify the @SourceEnvironmentName@ with the @DestinationEnvironmentName@ . secnameDestinationEnvironmentName :: Lens' SwapEnvironmentCNAMEs (Maybe Text)-secnameDestinationEnvironmentName = lens _secnameDestinationEnvironmentName (\ s a -> s{_secnameDestinationEnvironmentName = a});+secnameDestinationEnvironmentName = lens _secnameDestinationEnvironmentName (\ s a -> s{_secnameDestinationEnvironmentName = a})  -- | The ID of the destination environment. Condition: You must specify at least the @DestinationEnvironmentID@ or the @DestinationEnvironmentName@ . You may also specify both. You must specify the @SourceEnvironmentId@ with the @DestinationEnvironmentId@ . secnameDestinationEnvironmentId :: Lens' SwapEnvironmentCNAMEs (Maybe Text)-secnameDestinationEnvironmentId = lens _secnameDestinationEnvironmentId (\ s a -> s{_secnameDestinationEnvironmentId = a});+secnameDestinationEnvironmentId = lens _secnameDestinationEnvironmentId (\ s a -> s{_secnameDestinationEnvironmentId = a})  -- | The name of the source environment. Condition: You must specify at least the @SourceEnvironmentID@ or the @SourceEnvironmentName@ . You may also specify both. If you specify the @SourceEnvironmentName@ , you must specify the @DestinationEnvironmentName@ . secnameSourceEnvironmentName :: Lens' SwapEnvironmentCNAMEs (Maybe Text)-secnameSourceEnvironmentName = lens _secnameSourceEnvironmentName (\ s a -> s{_secnameSourceEnvironmentName = a});+secnameSourceEnvironmentName = lens _secnameSourceEnvironmentName (\ s a -> s{_secnameSourceEnvironmentName = a})  -- | The ID of the source environment. Condition: You must specify at least the @SourceEnvironmentID@ or the @SourceEnvironmentName@ . You may also specify both. If you specify the @SourceEnvironmentId@ , you must specify the @DestinationEnvironmentId@ . secnameSourceEnvironmentId :: Lens' SwapEnvironmentCNAMEs (Maybe Text)-secnameSourceEnvironmentId = lens _secnameSourceEnvironmentId (\ s a -> s{_secnameSourceEnvironmentId = a});+secnameSourceEnvironmentId = lens _secnameSourceEnvironmentId (\ s a -> s{_secnameSourceEnvironmentId = a})  instance AWSRequest SwapEnvironmentCNAMEs where         type Rs SwapEnvironmentCNAMEs =

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.TerminateEnvironment--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -93,28 +93,28 @@     :: TerminateEnvironment terminateEnvironment =   TerminateEnvironment'-  { _teForceTerminate = Nothing-  , _teTerminateResources = Nothing-  , _teEnvironmentName = Nothing-  , _teEnvironmentId = Nothing-  }+    { _teForceTerminate = Nothing+    , _teTerminateResources = Nothing+    , _teEnvironmentName = Nothing+    , _teEnvironmentId = Nothing+    }   -- | Terminates the target environment even if another environment in the same group is dependent on it. teForceTerminate :: Lens' TerminateEnvironment (Maybe Bool)-teForceTerminate = lens _teForceTerminate (\ s a -> s{_teForceTerminate = a});+teForceTerminate = lens _teForceTerminate (\ s a -> s{_teForceTerminate = a})  -- | Indicates whether the associated AWS resources should shut down when the environment is terminated:     * @true@ : The specified environment as well as the associated AWS resources, such as Auto Scaling group and LoadBalancer, are terminated.     * @false@ : AWS Elastic Beanstalk resource management is removed from the environment, but the AWS resources continue to operate. For more information, see the <http://docs.aws.amazon.com/elasticbeanstalk/latest/ug/ AWS Elastic Beanstalk User Guide. >  Default: @true@  Valid Values: @true@ | @false@ teTerminateResources :: Lens' TerminateEnvironment (Maybe Bool)-teTerminateResources = lens _teTerminateResources (\ s a -> s{_teTerminateResources = a});+teTerminateResources = lens _teTerminateResources (\ s a -> s{_teTerminateResources = a})  -- | The name of the environment to terminate. Condition: You must specify either this or an EnvironmentId, or both. If you do not specify either, AWS Elastic Beanstalk returns @MissingRequiredParameter@ error. teEnvironmentName :: Lens' TerminateEnvironment (Maybe Text)-teEnvironmentName = lens _teEnvironmentName (\ s a -> s{_teEnvironmentName = a});+teEnvironmentName = lens _teEnvironmentName (\ s a -> s{_teEnvironmentName = a})  -- | The ID of the environment to terminate. Condition: You must specify either this or an EnvironmentName, or both. If you do not specify either, AWS Elastic Beanstalk returns @MissingRequiredParameter@ error. teEnvironmentId :: Lens' TerminateEnvironment (Maybe Text)-teEnvironmentId = lens _teEnvironmentId (\ s a -> s{_teEnvironmentId = a});+teEnvironmentId = lens _teEnvironmentId (\ s a -> s{_teEnvironmentId = a})  instance AWSRequest TerminateEnvironment where         type Rs TerminateEnvironment = EnvironmentDescription

@@ -4,7 +4,7 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.Types--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -96,6 +96,7 @@     -- * ApplicationDescription     , ApplicationDescription     , applicationDescription+    , adApplicationARN     , adVersions     , adDateUpdated     , adDateCreated@@ -133,6 +134,7 @@     , avdVersionLabel     , avdSourceBuildInformation     , avdApplicationName+    , avdApplicationVersionARN     , avdBuildARN     , avdDescription @@ -467,6 +469,20 @@     , qURL     , qName +    -- * ResourceQuota+    , ResourceQuota+    , resourceQuota+    , rqMaximum++    -- * ResourceQuotas+    , ResourceQuotas+    , resourceQuotas+    , rqApplicationQuota+    , rqCustomPlatformQuota+    , rqApplicationVersionQuota+    , rqEnvironmentQuota+    , rqConfigurationTemplateQuota+     -- * S3Location     , S3Location     , s3Location@@ -550,24 +566,24 @@ elasticBeanstalk :: Service elasticBeanstalk =   Service-  { _svcAbbrev = "ElasticBeanstalk"-  , _svcSigner = v4-  , _svcPrefix = "elasticbeanstalk"-  , _svcVersion = "2010-12-01"-  , _svcEndpoint = defaultEndpoint elasticBeanstalk-  , _svcTimeout = Just 70-  , _svcCheck = statusSuccess-  , _svcError = parseXMLError "ElasticBeanstalk"-  , _svcRetry = retry-  }+    { _svcAbbrev = "ElasticBeanstalk"+    , _svcSigner = v4+    , _svcPrefix = "elasticbeanstalk"+    , _svcVersion = "2010-12-01"+    , _svcEndpoint = defaultEndpoint elasticBeanstalk+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseXMLError "ElasticBeanstalk"+    , _svcRetry = retry+    }   where     retry =       Exponential-      { _retryBase = 5.0e-2-      , _retryGrowth = 2-      , _retryAttempts = 5-      , _retryCheck = check-      }+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }     check e       | has (hasCode "ThrottledException" . hasStatus 400) e =         Just "throttled_exception"@@ -576,6 +592,8 @@         Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"+      | has (hasCode "RequestThrottledException" . hasStatus 400) e =+        Just "request_throttled_exception"       | has (hasStatus 502) e = Just "bad_gateway"       | has (hasStatus 503) e = Just "service_unavailable"       | has (hasStatus 500) e = Just "general_server_error"@@ -652,7 +670,7 @@   hasStatus 400  --- | The specified account does not have sufficient privileges for one of more AWS services.+-- | The specified account does not have sufficient privileges for one or more AWS services. -- -- _InsufficientPrivilegesException :: AsError a => Getting (First ServiceError) a ServiceError

@@ -9,3542 +9,3663 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.Types.Product--- Copyright   : (c) 2013-2017 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)----module Network.AWS.ElasticBeanstalk.Types.Product where--import Network.AWS.ElasticBeanstalk.Types.Sum-import Network.AWS.Lens-import Network.AWS.Prelude---- | Describes the properties of an application.------------ /See:/ 'applicationDescription' smart constructor.-data ApplicationDescription = ApplicationDescription'-  { _adVersions                :: !(Maybe [Text])-  , _adDateUpdated             :: !(Maybe ISO8601)-  , _adDateCreated             :: !(Maybe ISO8601)-  , _adApplicationName         :: !(Maybe Text)-  , _adConfigurationTemplates  :: !(Maybe [Text])-  , _adResourceLifecycleConfig :: !(Maybe ApplicationResourceLifecycleConfig)-  , _adDescription             :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ApplicationDescription' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'adVersions' - The names of the versions for this application.------ * 'adDateUpdated' - The date when the application was last modified.------ * 'adDateCreated' - The date when the application was created.------ * 'adApplicationName' - The name of the application.------ * 'adConfigurationTemplates' - The names of the configuration templates associated with this application.------ * 'adResourceLifecycleConfig' - The lifecycle settings for the application.------ * 'adDescription' - User-defined description of the application.-applicationDescription-    :: ApplicationDescription-applicationDescription =-  ApplicationDescription'-  { _adVersions = Nothing-  , _adDateUpdated = Nothing-  , _adDateCreated = Nothing-  , _adApplicationName = Nothing-  , _adConfigurationTemplates = Nothing-  , _adResourceLifecycleConfig = Nothing-  , _adDescription = Nothing-  }----- | The names of the versions for this application.-adVersions :: Lens' ApplicationDescription [Text]-adVersions = lens _adVersions (\ s a -> s{_adVersions = a}) . _Default . _Coerce;---- | The date when the application was last modified.-adDateUpdated :: Lens' ApplicationDescription (Maybe UTCTime)-adDateUpdated = lens _adDateUpdated (\ s a -> s{_adDateUpdated = a}) . mapping _Time;---- | The date when the application was created.-adDateCreated :: Lens' ApplicationDescription (Maybe UTCTime)-adDateCreated = lens _adDateCreated (\ s a -> s{_adDateCreated = a}) . mapping _Time;---- | The name of the application.-adApplicationName :: Lens' ApplicationDescription (Maybe Text)-adApplicationName = lens _adApplicationName (\ s a -> s{_adApplicationName = a});---- | The names of the configuration templates associated with this application.-adConfigurationTemplates :: Lens' ApplicationDescription [Text]-adConfigurationTemplates = lens _adConfigurationTemplates (\ s a -> s{_adConfigurationTemplates = a}) . _Default . _Coerce;---- | The lifecycle settings for the application.-adResourceLifecycleConfig :: Lens' ApplicationDescription (Maybe ApplicationResourceLifecycleConfig)-adResourceLifecycleConfig = lens _adResourceLifecycleConfig (\ s a -> s{_adResourceLifecycleConfig = a});---- | User-defined description of the application.-adDescription :: Lens' ApplicationDescription (Maybe Text)-adDescription = lens _adDescription (\ s a -> s{_adDescription = a});--instance FromXML ApplicationDescription where-        parseXML x-          = ApplicationDescription' <$>-              (x .@? "Versions" .!@ mempty >>=-                 may (parseXMLList "member"))-                <*> (x .@? "DateUpdated")-                <*> (x .@? "DateCreated")-                <*> (x .@? "ApplicationName")-                <*>-                (x .@? "ConfigurationTemplates" .!@ mempty >>=-                   may (parseXMLList "member"))-                <*> (x .@? "ResourceLifecycleConfig")-                <*> (x .@? "Description")--instance Hashable ApplicationDescription where--instance NFData ApplicationDescription where---- | Result message containing a single description of an application.------------ /See:/ 'applicationDescriptionMessage' smart constructor.-newtype ApplicationDescriptionMessage = ApplicationDescriptionMessage'-  { _admApplication :: Maybe ApplicationDescription-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ApplicationDescriptionMessage' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'admApplication' - The 'ApplicationDescription' of the application.-applicationDescriptionMessage-    :: ApplicationDescriptionMessage-applicationDescriptionMessage =-  ApplicationDescriptionMessage' {_admApplication = Nothing}----- | The 'ApplicationDescription' of the application.-admApplication :: Lens' ApplicationDescriptionMessage (Maybe ApplicationDescription)-admApplication = lens _admApplication (\ s a -> s{_admApplication = a});--instance FromXML ApplicationDescriptionMessage where-        parseXML x-          = ApplicationDescriptionMessage' <$>-              (x .@? "Application")--instance Hashable ApplicationDescriptionMessage where--instance NFData ApplicationDescriptionMessage where---- | Application request metrics for an AWS Elastic Beanstalk environment.------------ /See:/ 'applicationMetrics' smart constructor.-data ApplicationMetrics = ApplicationMetrics'-  { _amRequestCount :: !(Maybe Int)-  , _amLatency      :: !(Maybe Latency)-  , _amStatusCodes  :: !(Maybe StatusCodes)-  , _amDuration     :: !(Maybe Int)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ApplicationMetrics' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'amRequestCount' - Average number of requests handled by the web server per second over the last 10 seconds.------ * 'amLatency' - Represents the average latency for the slowest X percent of requests over the last 10 seconds. Latencies are in seconds with one millisecond resolution.------ * 'amStatusCodes' - Represents the percentage of requests over the last 10 seconds that resulted in each type of status code response.------ * 'amDuration' - The amount of time that the metrics cover (usually 10 seconds). For example, you might have 5 requests (@request_count@ ) within the most recent time slice of 10 seconds (@duration@ ).-applicationMetrics-    :: ApplicationMetrics-applicationMetrics =-  ApplicationMetrics'-  { _amRequestCount = Nothing-  , _amLatency = Nothing-  , _amStatusCodes = Nothing-  , _amDuration = Nothing-  }----- | Average number of requests handled by the web server per second over the last 10 seconds.-amRequestCount :: Lens' ApplicationMetrics (Maybe Int)-amRequestCount = lens _amRequestCount (\ s a -> s{_amRequestCount = a});---- | Represents the average latency for the slowest X percent of requests over the last 10 seconds. Latencies are in seconds with one millisecond resolution.-amLatency :: Lens' ApplicationMetrics (Maybe Latency)-amLatency = lens _amLatency (\ s a -> s{_amLatency = a});---- | Represents the percentage of requests over the last 10 seconds that resulted in each type of status code response.-amStatusCodes :: Lens' ApplicationMetrics (Maybe StatusCodes)-amStatusCodes = lens _amStatusCodes (\ s a -> s{_amStatusCodes = a});---- | The amount of time that the metrics cover (usually 10 seconds). For example, you might have 5 requests (@request_count@ ) within the most recent time slice of 10 seconds (@duration@ ).-amDuration :: Lens' ApplicationMetrics (Maybe Int)-amDuration = lens _amDuration (\ s a -> s{_amDuration = a});--instance FromXML ApplicationMetrics where-        parseXML x-          = ApplicationMetrics' <$>-              (x .@? "RequestCount") <*> (x .@? "Latency") <*>-                (x .@? "StatusCodes")-                <*> (x .@? "Duration")--instance Hashable ApplicationMetrics where--instance NFData ApplicationMetrics where---- | The resource lifecycle configuration for an application. Defines lifecycle settings for resources that belong to the application, and the service role that Elastic Beanstalk assumes in order to apply lifecycle settings. The version lifecycle configuration defines lifecycle settings for application versions.------------ /See:/ 'applicationResourceLifecycleConfig' smart constructor.-data ApplicationResourceLifecycleConfig = ApplicationResourceLifecycleConfig'-  { _arlcVersionLifecycleConfig :: !(Maybe ApplicationVersionLifecycleConfig)-  , _arlcServiceRole            :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ApplicationResourceLifecycleConfig' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'arlcVersionLifecycleConfig' - The application version lifecycle configuration.------ * 'arlcServiceRole' - The ARN of an IAM service role that Elastic Beanstalk has permission to assume.-applicationResourceLifecycleConfig-    :: ApplicationResourceLifecycleConfig-applicationResourceLifecycleConfig =-  ApplicationResourceLifecycleConfig'-  {_arlcVersionLifecycleConfig = Nothing, _arlcServiceRole = Nothing}----- | The application version lifecycle configuration.-arlcVersionLifecycleConfig :: Lens' ApplicationResourceLifecycleConfig (Maybe ApplicationVersionLifecycleConfig)-arlcVersionLifecycleConfig = lens _arlcVersionLifecycleConfig (\ s a -> s{_arlcVersionLifecycleConfig = a});---- | The ARN of an IAM service role that Elastic Beanstalk has permission to assume.-arlcServiceRole :: Lens' ApplicationResourceLifecycleConfig (Maybe Text)-arlcServiceRole = lens _arlcServiceRole (\ s a -> s{_arlcServiceRole = a});--instance FromXML ApplicationResourceLifecycleConfig-         where-        parseXML x-          = ApplicationResourceLifecycleConfig' <$>-              (x .@? "VersionLifecycleConfig") <*>-                (x .@? "ServiceRole")--instance Hashable ApplicationResourceLifecycleConfig-         where--instance NFData ApplicationResourceLifecycleConfig-         where--instance ToQuery ApplicationResourceLifecycleConfig-         where-        toQuery ApplicationResourceLifecycleConfig'{..}-          = mconcat-              ["VersionLifecycleConfig" =:-                 _arlcVersionLifecycleConfig,-               "ServiceRole" =: _arlcServiceRole]---- | Describes the properties of an application version.------------ /See:/ 'applicationVersionDescription' smart constructor.-data ApplicationVersionDescription = ApplicationVersionDescription'-  { _avdStatus                 :: !(Maybe ApplicationVersionStatus)-  , _avdSourceBundle           :: !(Maybe S3Location)-  , _avdDateUpdated            :: !(Maybe ISO8601)-  , _avdDateCreated            :: !(Maybe ISO8601)-  , _avdVersionLabel           :: !(Maybe Text)-  , _avdSourceBuildInformation :: !(Maybe SourceBuildInformation)-  , _avdApplicationName        :: !(Maybe Text)-  , _avdBuildARN               :: !(Maybe Text)-  , _avdDescription            :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ApplicationVersionDescription' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'avdStatus' - The processing status of the application version.------ * 'avdSourceBundle' - The storage location of the application version's source bundle in Amazon S3.------ * 'avdDateUpdated' - The last modified date of the application version.------ * 'avdDateCreated' - The creation date of the application version.------ * 'avdVersionLabel' - A unique identifier for the application version.------ * 'avdSourceBuildInformation' - If the version's source code was retrieved from AWS CodeCommit, the location of the source code for the application version.------ * 'avdApplicationName' - The name of the application to which the application version belongs.------ * 'avdBuildARN' - Reference to the artifact from the AWS CodeBuild build.------ * 'avdDescription' - The description of the application version.-applicationVersionDescription-    :: ApplicationVersionDescription-applicationVersionDescription =-  ApplicationVersionDescription'-  { _avdStatus = Nothing-  , _avdSourceBundle = Nothing-  , _avdDateUpdated = Nothing-  , _avdDateCreated = Nothing-  , _avdVersionLabel = Nothing-  , _avdSourceBuildInformation = Nothing-  , _avdApplicationName = Nothing-  , _avdBuildARN = Nothing-  , _avdDescription = Nothing-  }----- | The processing status of the application version.-avdStatus :: Lens' ApplicationVersionDescription (Maybe ApplicationVersionStatus)-avdStatus = lens _avdStatus (\ s a -> s{_avdStatus = a});---- | The storage location of the application version's source bundle in Amazon S3.-avdSourceBundle :: Lens' ApplicationVersionDescription (Maybe S3Location)-avdSourceBundle = lens _avdSourceBundle (\ s a -> s{_avdSourceBundle = a});---- | The last modified date of the application version.-avdDateUpdated :: Lens' ApplicationVersionDescription (Maybe UTCTime)-avdDateUpdated = lens _avdDateUpdated (\ s a -> s{_avdDateUpdated = a}) . mapping _Time;---- | The creation date of the application version.-avdDateCreated :: Lens' ApplicationVersionDescription (Maybe UTCTime)-avdDateCreated = lens _avdDateCreated (\ s a -> s{_avdDateCreated = a}) . mapping _Time;---- | A unique identifier for the application version.-avdVersionLabel :: Lens' ApplicationVersionDescription (Maybe Text)-avdVersionLabel = lens _avdVersionLabel (\ s a -> s{_avdVersionLabel = a});---- | If the version's source code was retrieved from AWS CodeCommit, the location of the source code for the application version.-avdSourceBuildInformation :: Lens' ApplicationVersionDescription (Maybe SourceBuildInformation)-avdSourceBuildInformation = lens _avdSourceBuildInformation (\ s a -> s{_avdSourceBuildInformation = a});---- | The name of the application to which the application version belongs.-avdApplicationName :: Lens' ApplicationVersionDescription (Maybe Text)-avdApplicationName = lens _avdApplicationName (\ s a -> s{_avdApplicationName = a});---- | Reference to the artifact from the AWS CodeBuild build.-avdBuildARN :: Lens' ApplicationVersionDescription (Maybe Text)-avdBuildARN = lens _avdBuildARN (\ s a -> s{_avdBuildARN = a});---- | The description of the application version.-avdDescription :: Lens' ApplicationVersionDescription (Maybe Text)-avdDescription = lens _avdDescription (\ s a -> s{_avdDescription = a});--instance FromXML ApplicationVersionDescription where-        parseXML x-          = ApplicationVersionDescription' <$>-              (x .@? "Status") <*> (x .@? "SourceBundle") <*>-                (x .@? "DateUpdated")-                <*> (x .@? "DateCreated")-                <*> (x .@? "VersionLabel")-                <*> (x .@? "SourceBuildInformation")-                <*> (x .@? "ApplicationName")-                <*> (x .@? "BuildArn")-                <*> (x .@? "Description")--instance Hashable ApplicationVersionDescription where--instance NFData ApplicationVersionDescription where---- | Result message wrapping a single description of an application version.------------ /See:/ 'applicationVersionDescriptionMessage' smart constructor.-newtype ApplicationVersionDescriptionMessage = ApplicationVersionDescriptionMessage'-  { _avdmApplicationVersion :: Maybe ApplicationVersionDescription-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ApplicationVersionDescriptionMessage' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'avdmApplicationVersion' - The 'ApplicationVersionDescription' of the application version.-applicationVersionDescriptionMessage-    :: ApplicationVersionDescriptionMessage-applicationVersionDescriptionMessage =-  ApplicationVersionDescriptionMessage' {_avdmApplicationVersion = Nothing}----- | The 'ApplicationVersionDescription' of the application version.-avdmApplicationVersion :: Lens' ApplicationVersionDescriptionMessage (Maybe ApplicationVersionDescription)-avdmApplicationVersion = lens _avdmApplicationVersion (\ s a -> s{_avdmApplicationVersion = a});--instance FromXML ApplicationVersionDescriptionMessage-         where-        parseXML x-          = ApplicationVersionDescriptionMessage' <$>-              (x .@? "ApplicationVersion")--instance Hashable-           ApplicationVersionDescriptionMessage-         where--instance NFData ApplicationVersionDescriptionMessage-         where---- | The application version lifecycle settings for an application. Defines the rules that Elastic Beanstalk applies to an application's versions in order to avoid hitting the per-region limit for application versions.--------- When Elastic Beanstalk deletes an application version from its database, you can no longer deploy that version to an environment. The source bundle remains in S3 unless you configure the rule to delete it.--------- /See:/ 'applicationVersionLifecycleConfig' smart constructor.-data ApplicationVersionLifecycleConfig = ApplicationVersionLifecycleConfig'-  { _avlcMaxAgeRule   :: !(Maybe MaxAgeRule)-  , _avlcMaxCountRule :: !(Maybe MaxCountRule)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ApplicationVersionLifecycleConfig' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'avlcMaxAgeRule' - Specify a max age rule to restrict the length of time that application versions are retained for an application.------ * 'avlcMaxCountRule' - Specify a max count rule to restrict the number of application versions that are retained for an application.-applicationVersionLifecycleConfig-    :: ApplicationVersionLifecycleConfig-applicationVersionLifecycleConfig =-  ApplicationVersionLifecycleConfig'-  {_avlcMaxAgeRule = Nothing, _avlcMaxCountRule = Nothing}----- | Specify a max age rule to restrict the length of time that application versions are retained for an application.-avlcMaxAgeRule :: Lens' ApplicationVersionLifecycleConfig (Maybe MaxAgeRule)-avlcMaxAgeRule = lens _avlcMaxAgeRule (\ s a -> s{_avlcMaxAgeRule = a});---- | Specify a max count rule to restrict the number of application versions that are retained for an application.-avlcMaxCountRule :: Lens' ApplicationVersionLifecycleConfig (Maybe MaxCountRule)-avlcMaxCountRule = lens _avlcMaxCountRule (\ s a -> s{_avlcMaxCountRule = a});--instance FromXML ApplicationVersionLifecycleConfig-         where-        parseXML x-          = ApplicationVersionLifecycleConfig' <$>-              (x .@? "MaxAgeRule") <*> (x .@? "MaxCountRule")--instance Hashable ApplicationVersionLifecycleConfig-         where--instance NFData ApplicationVersionLifecycleConfig-         where--instance ToQuery ApplicationVersionLifecycleConfig-         where-        toQuery ApplicationVersionLifecycleConfig'{..}-          = mconcat-              ["MaxAgeRule" =: _avlcMaxAgeRule,-               "MaxCountRule" =: _avlcMaxCountRule]---- | Describes an Auto Scaling launch configuration.------------ /See:/ 'autoScalingGroup' smart constructor.-newtype AutoScalingGroup = AutoScalingGroup'-  { _asgName :: Maybe Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'AutoScalingGroup' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'asgName' - The name of the @AutoScalingGroup@ .-autoScalingGroup-    :: AutoScalingGroup-autoScalingGroup = AutoScalingGroup' {_asgName = Nothing}----- | The name of the @AutoScalingGroup@ .-asgName :: Lens' AutoScalingGroup (Maybe Text)-asgName = lens _asgName (\ s a -> s{_asgName = a});--instance FromXML AutoScalingGroup where-        parseXML x = AutoScalingGroup' <$> (x .@? "Name")--instance Hashable AutoScalingGroup where--instance NFData AutoScalingGroup where---- | Settings for an AWS CodeBuild build.------------ /See:/ 'buildConfiguration' smart constructor.-data BuildConfiguration = BuildConfiguration'-  { _bcArtifactName         :: !(Maybe Text)-  , _bcComputeType          :: !(Maybe ComputeType)-  , _bcTimeoutInMinutes     :: !(Maybe Int)-  , _bcCodeBuildServiceRole :: !Text-  , _bcImage                :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'BuildConfiguration' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'bcArtifactName' - The name of the artifact of the CodeBuild build. If provided, Elastic Beanstalk stores the build artifact in the S3 location /S3-bucket/ /resources//application-name/ /codebuild/codebuild-/version-label/ -/artifact-name/ .zip. If not provided, Elastic Beanstalk stores the build artifact in the S3 location /S3-bucket/ /resources//application-name/ /codebuild/codebuild-/version-label/ .zip.------ * 'bcComputeType' - Information about the compute resources the build project will use.     * @BUILD_GENERAL1_SMALL: Use up to 3 GB memory and 2 vCPUs for builds@      * @BUILD_GENERAL1_MEDIUM: Use up to 7 GB memory and 4 vCPUs for builds@      * @BUILD_GENERAL1_LARGE: Use up to 15 GB memory and 8 vCPUs for builds@------ * 'bcTimeoutInMinutes' - How long in minutes, from 5 to 480 (8 hours), for AWS CodeBuild to wait until timing out any related build that does not get marked as completed. The default is 60 minutes.------ * 'bcCodeBuildServiceRole' - The Amazon Resource Name (ARN) of the AWS Identity and Access Management (IAM) role that enables AWS CodeBuild to interact with dependent AWS services on behalf of the AWS account.------ * 'bcImage' - The ID of the Docker image to use for this build project.-buildConfiguration-    :: Text -- ^ 'bcCodeBuildServiceRole'-    -> Text -- ^ 'bcImage'-    -> BuildConfiguration-buildConfiguration pCodeBuildServiceRole_ pImage_ =-  BuildConfiguration'-  { _bcArtifactName = Nothing-  , _bcComputeType = Nothing-  , _bcTimeoutInMinutes = Nothing-  , _bcCodeBuildServiceRole = pCodeBuildServiceRole_-  , _bcImage = pImage_-  }----- | The name of the artifact of the CodeBuild build. If provided, Elastic Beanstalk stores the build artifact in the S3 location /S3-bucket/ /resources//application-name/ /codebuild/codebuild-/version-label/ -/artifact-name/ .zip. If not provided, Elastic Beanstalk stores the build artifact in the S3 location /S3-bucket/ /resources//application-name/ /codebuild/codebuild-/version-label/ .zip.-bcArtifactName :: Lens' BuildConfiguration (Maybe Text)-bcArtifactName = lens _bcArtifactName (\ s a -> s{_bcArtifactName = a});---- | Information about the compute resources the build project will use.     * @BUILD_GENERAL1_SMALL: Use up to 3 GB memory and 2 vCPUs for builds@      * @BUILD_GENERAL1_MEDIUM: Use up to 7 GB memory and 4 vCPUs for builds@      * @BUILD_GENERAL1_LARGE: Use up to 15 GB memory and 8 vCPUs for builds@-bcComputeType :: Lens' BuildConfiguration (Maybe ComputeType)-bcComputeType = lens _bcComputeType (\ s a -> s{_bcComputeType = a});---- | How long in minutes, from 5 to 480 (8 hours), for AWS CodeBuild to wait until timing out any related build that does not get marked as completed. The default is 60 minutes.-bcTimeoutInMinutes :: Lens' BuildConfiguration (Maybe Int)-bcTimeoutInMinutes = lens _bcTimeoutInMinutes (\ s a -> s{_bcTimeoutInMinutes = a});---- | The Amazon Resource Name (ARN) of the AWS Identity and Access Management (IAM) role that enables AWS CodeBuild to interact with dependent AWS services on behalf of the AWS account.-bcCodeBuildServiceRole :: Lens' BuildConfiguration Text-bcCodeBuildServiceRole = lens _bcCodeBuildServiceRole (\ s a -> s{_bcCodeBuildServiceRole = a});---- | The ID of the Docker image to use for this build project.-bcImage :: Lens' BuildConfiguration Text-bcImage = lens _bcImage (\ s a -> s{_bcImage = a});--instance Hashable BuildConfiguration where--instance NFData BuildConfiguration where--instance ToQuery BuildConfiguration where-        toQuery BuildConfiguration'{..}-          = mconcat-              ["ArtifactName" =: _bcArtifactName,-               "ComputeType" =: _bcComputeType,-               "TimeoutInMinutes" =: _bcTimeoutInMinutes,-               "CodeBuildServiceRole" =: _bcCodeBuildServiceRole,-               "Image" =: _bcImage]---- | The builder used to build the custom platform.------------ /See:/ 'builder' smart constructor.-newtype Builder = Builder'-  { _bARN :: Maybe Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Builder' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'bARN' - The ARN of the builder.-builder-    :: Builder-builder = Builder' {_bARN = Nothing}----- | The ARN of the builder.-bARN :: Lens' Builder (Maybe Text)-bARN = lens _bARN (\ s a -> s{_bARN = a});--instance FromXML Builder where-        parseXML x = Builder' <$> (x .@? "ARN")--instance Hashable Builder where--instance NFData Builder where---- | CPU utilization metrics for an instance.------------ /See:/ 'cpuUtilization' smart constructor.-data CPUUtilization = CPUUtilization'-  { _cuSoftIRQ :: !(Maybe Double)-  , _cuIdle    :: !(Maybe Double)-  , _cuIRQ     :: !(Maybe Double)-  , _cuSystem  :: !(Maybe Double)-  , _cuUser    :: !(Maybe Double)-  , _cuIOWait  :: !(Maybe Double)-  , _cuNice    :: !(Maybe Double)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CPUUtilization' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cuSoftIRQ' - Percentage of time that the CPU has spent in the @SoftIRQ@ state over the last 10 seconds.------ * 'cuIdle' - Percentage of time that the CPU has spent in the @Idle@ state over the last 10 seconds.------ * 'cuIRQ' - Percentage of time that the CPU has spent in the @IRQ@ state over the last 10 seconds.------ * 'cuSystem' - Percentage of time that the CPU has spent in the @System@ state over the last 10 seconds.------ * 'cuUser' - Percentage of time that the CPU has spent in the @User@ state over the last 10 seconds.------ * 'cuIOWait' - Percentage of time that the CPU has spent in the @I/O Wait@ state over the last 10 seconds.------ * 'cuNice' - Percentage of time that the CPU has spent in the @Nice@ state over the last 10 seconds.-cpuUtilization-    :: CPUUtilization-cpuUtilization =-  CPUUtilization'-  { _cuSoftIRQ = Nothing-  , _cuIdle = Nothing-  , _cuIRQ = Nothing-  , _cuSystem = Nothing-  , _cuUser = Nothing-  , _cuIOWait = Nothing-  , _cuNice = Nothing-  }----- | Percentage of time that the CPU has spent in the @SoftIRQ@ state over the last 10 seconds.-cuSoftIRQ :: Lens' CPUUtilization (Maybe Double)-cuSoftIRQ = lens _cuSoftIRQ (\ s a -> s{_cuSoftIRQ = a});---- | Percentage of time that the CPU has spent in the @Idle@ state over the last 10 seconds.-cuIdle :: Lens' CPUUtilization (Maybe Double)-cuIdle = lens _cuIdle (\ s a -> s{_cuIdle = a});---- | Percentage of time that the CPU has spent in the @IRQ@ state over the last 10 seconds.-cuIRQ :: Lens' CPUUtilization (Maybe Double)-cuIRQ = lens _cuIRQ (\ s a -> s{_cuIRQ = a});---- | Percentage of time that the CPU has spent in the @System@ state over the last 10 seconds.-cuSystem :: Lens' CPUUtilization (Maybe Double)-cuSystem = lens _cuSystem (\ s a -> s{_cuSystem = a});---- | Percentage of time that the CPU has spent in the @User@ state over the last 10 seconds.-cuUser :: Lens' CPUUtilization (Maybe Double)-cuUser = lens _cuUser (\ s a -> s{_cuUser = a});---- | Percentage of time that the CPU has spent in the @I/O Wait@ state over the last 10 seconds.-cuIOWait :: Lens' CPUUtilization (Maybe Double)-cuIOWait = lens _cuIOWait (\ s a -> s{_cuIOWait = a});---- | Percentage of time that the CPU has spent in the @Nice@ state over the last 10 seconds.-cuNice :: Lens' CPUUtilization (Maybe Double)-cuNice = lens _cuNice (\ s a -> s{_cuNice = a});--instance FromXML CPUUtilization where-        parseXML x-          = CPUUtilization' <$>-              (x .@? "SoftIRQ") <*> (x .@? "Idle") <*>-                (x .@? "IRQ")-                <*> (x .@? "System")-                <*> (x .@? "User")-                <*> (x .@? "IOWait")-                <*> (x .@? "Nice")--instance Hashable CPUUtilization where--instance NFData CPUUtilization where---- | Describes the possible values for a configuration option.------------ /See:/ 'configurationOptionDescription' smart constructor.-data ConfigurationOptionDescription = ConfigurationOptionDescription'-  { _codMaxValue       :: !(Maybe Int)-  , _codRegex          :: !(Maybe OptionRestrictionRegex)-  , _codMaxLength      :: !(Maybe Int)-  , _codUserDefined    :: !(Maybe Bool)-  , _codNamespace      :: !(Maybe Text)-  , _codValueOptions   :: !(Maybe [Text])-  , _codName           :: !(Maybe Text)-  , _codChangeSeverity :: !(Maybe Text)-  , _codDefaultValue   :: !(Maybe Text)-  , _codValueType      :: !(Maybe ConfigurationOptionValueType)-  , _codMinValue       :: !(Maybe Int)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ConfigurationOptionDescription' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'codMaxValue' - If specified, the configuration option must be a numeric value less than this value.------ * 'codRegex' - If specified, the configuration option must be a string value that satisfies this regular expression.------ * 'codMaxLength' - If specified, the configuration option must be a string value no longer than this value.------ * 'codUserDefined' - An indication of whether the user defined this configuration option:     * @true@ : This configuration option was defined by the user. It is a valid choice for specifying if this as an @Option to Remove@ when updating configuration settings.      * @false@ : This configuration was not defined by the user. Constraint: You can remove only @UserDefined@ options from a configuration.  Valid Values: @true@ | @false@------ * 'codNamespace' - A unique namespace identifying the option's associated AWS resource.------ * 'codValueOptions' - If specified, values for the configuration option are selected from this list.------ * 'codName' - The name of the configuration option.------ * 'codChangeSeverity' - An indication of which action is required if the value for this configuration option changes:     * @NoInterruption@ : There is no interruption to the environment or application availability.     * @RestartEnvironment@ : The environment is entirely restarted, all AWS resources are deleted and recreated, and the environment is unavailable during the process.     * @RestartApplicationServer@ : The environment is available the entire time. However, a short application outage occurs when the application servers on the running Amazon EC2 instances are restarted.------ * 'codDefaultValue' - The default value for this configuration option.------ * 'codValueType' - An indication of which type of values this option has and whether it is allowable to select one or more than one of the possible values:     * @Scalar@ : Values for this option are a single selection from the possible values, or an unformatted string, or numeric value governed by the @MIN/MAX/Regex@ constraints.     * @List@ : Values for this option are multiple selections from the possible values.     * @Boolean@ : Values for this option are either @true@ or @false@ .     * @Json@ : Values for this option are a JSON representation of a @ConfigDocument@ .------ * 'codMinValue' - If specified, the configuration option must be a numeric value greater than this value.-configurationOptionDescription-    :: ConfigurationOptionDescription-configurationOptionDescription =-  ConfigurationOptionDescription'-  { _codMaxValue = Nothing-  , _codRegex = Nothing-  , _codMaxLength = Nothing-  , _codUserDefined = Nothing-  , _codNamespace = Nothing-  , _codValueOptions = Nothing-  , _codName = Nothing-  , _codChangeSeverity = Nothing-  , _codDefaultValue = Nothing-  , _codValueType = Nothing-  , _codMinValue = Nothing-  }----- | If specified, the configuration option must be a numeric value less than this value.-codMaxValue :: Lens' ConfigurationOptionDescription (Maybe Int)-codMaxValue = lens _codMaxValue (\ s a -> s{_codMaxValue = a});---- | If specified, the configuration option must be a string value that satisfies this regular expression.-codRegex :: Lens' ConfigurationOptionDescription (Maybe OptionRestrictionRegex)-codRegex = lens _codRegex (\ s a -> s{_codRegex = a});---- | If specified, the configuration option must be a string value no longer than this value.-codMaxLength :: Lens' ConfigurationOptionDescription (Maybe Int)-codMaxLength = lens _codMaxLength (\ s a -> s{_codMaxLength = a});---- | An indication of whether the user defined this configuration option:     * @true@ : This configuration option was defined by the user. It is a valid choice for specifying if this as an @Option to Remove@ when updating configuration settings.      * @false@ : This configuration was not defined by the user. Constraint: You can remove only @UserDefined@ options from a configuration.  Valid Values: @true@ | @false@-codUserDefined :: Lens' ConfigurationOptionDescription (Maybe Bool)-codUserDefined = lens _codUserDefined (\ s a -> s{_codUserDefined = a});---- | A unique namespace identifying the option's associated AWS resource.-codNamespace :: Lens' ConfigurationOptionDescription (Maybe Text)-codNamespace = lens _codNamespace (\ s a -> s{_codNamespace = a});---- | If specified, values for the configuration option are selected from this list.-codValueOptions :: Lens' ConfigurationOptionDescription [Text]-codValueOptions = lens _codValueOptions (\ s a -> s{_codValueOptions = a}) . _Default . _Coerce;---- | The name of the configuration option.-codName :: Lens' ConfigurationOptionDescription (Maybe Text)-codName = lens _codName (\ s a -> s{_codName = a});---- | An indication of which action is required if the value for this configuration option changes:     * @NoInterruption@ : There is no interruption to the environment or application availability.     * @RestartEnvironment@ : The environment is entirely restarted, all AWS resources are deleted and recreated, and the environment is unavailable during the process.     * @RestartApplicationServer@ : The environment is available the entire time. However, a short application outage occurs when the application servers on the running Amazon EC2 instances are restarted.-codChangeSeverity :: Lens' ConfigurationOptionDescription (Maybe Text)-codChangeSeverity = lens _codChangeSeverity (\ s a -> s{_codChangeSeverity = a});---- | The default value for this configuration option.-codDefaultValue :: Lens' ConfigurationOptionDescription (Maybe Text)-codDefaultValue = lens _codDefaultValue (\ s a -> s{_codDefaultValue = a});---- | An indication of which type of values this option has and whether it is allowable to select one or more than one of the possible values:     * @Scalar@ : Values for this option are a single selection from the possible values, or an unformatted string, or numeric value governed by the @MIN/MAX/Regex@ constraints.     * @List@ : Values for this option are multiple selections from the possible values.     * @Boolean@ : Values for this option are either @true@ or @false@ .     * @Json@ : Values for this option are a JSON representation of a @ConfigDocument@ .-codValueType :: Lens' ConfigurationOptionDescription (Maybe ConfigurationOptionValueType)-codValueType = lens _codValueType (\ s a -> s{_codValueType = a});---- | If specified, the configuration option must be a numeric value greater than this value.-codMinValue :: Lens' ConfigurationOptionDescription (Maybe Int)-codMinValue = lens _codMinValue (\ s a -> s{_codMinValue = a});--instance FromXML ConfigurationOptionDescription where-        parseXML x-          = ConfigurationOptionDescription' <$>-              (x .@? "MaxValue") <*> (x .@? "Regex") <*>-                (x .@? "MaxLength")-                <*> (x .@? "UserDefined")-                <*> (x .@? "Namespace")-                <*>-                (x .@? "ValueOptions" .!@ mempty >>=-                   may (parseXMLList "member"))-                <*> (x .@? "Name")-                <*> (x .@? "ChangeSeverity")-                <*> (x .@? "DefaultValue")-                <*> (x .@? "ValueType")-                <*> (x .@? "MinValue")--instance Hashable ConfigurationOptionDescription-         where--instance NFData ConfigurationOptionDescription where---- | A specification identifying an individual configuration option along with its current value. For a list of possible option values, go to <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/command-options.html Option Values> in the /AWS Elastic Beanstalk Developer Guide/ .------------ /See:/ 'configurationOptionSetting' smart constructor.-data ConfigurationOptionSetting = ConfigurationOptionSetting'-  { _cosOptionName   :: !(Maybe Text)-  , _cosResourceName :: !(Maybe Text)-  , _cosNamespace    :: !(Maybe Text)-  , _cosValue        :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ConfigurationOptionSetting' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cosOptionName' - The name of the configuration option.------ * 'cosResourceName' - A unique resource name for a time-based scaling configuration option.------ * 'cosNamespace' - A unique namespace identifying the option's associated AWS resource.------ * 'cosValue' - The current value for the configuration option.-configurationOptionSetting-    :: ConfigurationOptionSetting-configurationOptionSetting =-  ConfigurationOptionSetting'-  { _cosOptionName = Nothing-  , _cosResourceName = Nothing-  , _cosNamespace = Nothing-  , _cosValue = Nothing-  }----- | The name of the configuration option.-cosOptionName :: Lens' ConfigurationOptionSetting (Maybe Text)-cosOptionName = lens _cosOptionName (\ s a -> s{_cosOptionName = a});---- | A unique resource name for a time-based scaling configuration option.-cosResourceName :: Lens' ConfigurationOptionSetting (Maybe Text)-cosResourceName = lens _cosResourceName (\ s a -> s{_cosResourceName = a});---- | A unique namespace identifying the option's associated AWS resource.-cosNamespace :: Lens' ConfigurationOptionSetting (Maybe Text)-cosNamespace = lens _cosNamespace (\ s a -> s{_cosNamespace = a});---- | The current value for the configuration option.-cosValue :: Lens' ConfigurationOptionSetting (Maybe Text)-cosValue = lens _cosValue (\ s a -> s{_cosValue = a});--instance FromXML ConfigurationOptionSetting where-        parseXML x-          = ConfigurationOptionSetting' <$>-              (x .@? "OptionName") <*> (x .@? "ResourceName") <*>-                (x .@? "Namespace")-                <*> (x .@? "Value")--instance Hashable ConfigurationOptionSetting where--instance NFData ConfigurationOptionSetting where--instance ToQuery ConfigurationOptionSetting where-        toQuery ConfigurationOptionSetting'{..}-          = mconcat-              ["OptionName" =: _cosOptionName,-               "ResourceName" =: _cosResourceName,-               "Namespace" =: _cosNamespace, "Value" =: _cosValue]---- | Describes the settings for a configuration set.------------ /See:/ 'configurationSettingsDescription' smart constructor.-data ConfigurationSettingsDescription = ConfigurationSettingsDescription'-  { _csdTemplateName      :: !(Maybe Text)-  , _csdOptionSettings    :: !(Maybe [ConfigurationOptionSetting])-  , _csdDateUpdated       :: !(Maybe ISO8601)-  , _csdDateCreated       :: !(Maybe ISO8601)-  , _csdPlatformARN       :: !(Maybe Text)-  , _csdEnvironmentName   :: !(Maybe Text)-  , _csdApplicationName   :: !(Maybe Text)-  , _csdDeploymentStatus  :: !(Maybe ConfigurationDeploymentStatus)-  , _csdSolutionStackName :: !(Maybe Text)-  , _csdDescription       :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ConfigurationSettingsDescription' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'csdTemplateName' - If not @null@ , the name of the configuration template for this configuration set.------ * 'csdOptionSettings' - A list of the configuration options and their values in this configuration set.------ * 'csdDateUpdated' - The date (in UTC time) when this configuration set was last modified.------ * 'csdDateCreated' - The date (in UTC time) when this configuration set was created.------ * 'csdPlatformARN' - The ARN of the platform.------ * 'csdEnvironmentName' - If not @null@ , the name of the environment for this configuration set.------ * 'csdApplicationName' - The name of the application associated with this configuration set.------ * 'csdDeploymentStatus' - 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.------ * 'csdSolutionStackName' - The name of the solution stack this configuration set uses.------ * 'csdDescription' - Describes this configuration set.-configurationSettingsDescription-    :: ConfigurationSettingsDescription-configurationSettingsDescription =-  ConfigurationSettingsDescription'-  { _csdTemplateName = Nothing-  , _csdOptionSettings = Nothing-  , _csdDateUpdated = Nothing-  , _csdDateCreated = Nothing-  , _csdPlatformARN = Nothing-  , _csdEnvironmentName = Nothing-  , _csdApplicationName = Nothing-  , _csdDeploymentStatus = Nothing-  , _csdSolutionStackName = Nothing-  , _csdDescription = Nothing-  }----- | If not @null@ , the name of the configuration template for this configuration set.-csdTemplateName :: Lens' ConfigurationSettingsDescription (Maybe Text)-csdTemplateName = lens _csdTemplateName (\ s a -> s{_csdTemplateName = a});---- | A list of the configuration options and their values in this configuration set.-csdOptionSettings :: Lens' ConfigurationSettingsDescription [ConfigurationOptionSetting]-csdOptionSettings = lens _csdOptionSettings (\ s a -> s{_csdOptionSettings = a}) . _Default . _Coerce;---- | The date (in UTC time) when this configuration set was last modified.-csdDateUpdated :: Lens' ConfigurationSettingsDescription (Maybe UTCTime)-csdDateUpdated = lens _csdDateUpdated (\ s a -> s{_csdDateUpdated = a}) . mapping _Time;---- | The date (in UTC time) when this configuration set was created.-csdDateCreated :: Lens' ConfigurationSettingsDescription (Maybe UTCTime)-csdDateCreated = lens _csdDateCreated (\ s a -> s{_csdDateCreated = a}) . mapping _Time;---- | The ARN of the platform.-csdPlatformARN :: Lens' ConfigurationSettingsDescription (Maybe Text)-csdPlatformARN = lens _csdPlatformARN (\ s a -> s{_csdPlatformARN = a});---- | If not @null@ , the name of the environment for this configuration set.-csdEnvironmentName :: Lens' ConfigurationSettingsDescription (Maybe Text)-csdEnvironmentName = lens _csdEnvironmentName (\ s a -> s{_csdEnvironmentName = a});---- | The name of the application associated with this configuration set.-csdApplicationName :: Lens' ConfigurationSettingsDescription (Maybe Text)-csdApplicationName = lens _csdApplicationName (\ s a -> s{_csdApplicationName = a});---- | 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.-csdDeploymentStatus :: Lens' ConfigurationSettingsDescription (Maybe ConfigurationDeploymentStatus)-csdDeploymentStatus = lens _csdDeploymentStatus (\ s a -> s{_csdDeploymentStatus = a});---- | The name of the solution stack this configuration set uses.-csdSolutionStackName :: Lens' ConfigurationSettingsDescription (Maybe Text)-csdSolutionStackName = lens _csdSolutionStackName (\ s a -> s{_csdSolutionStackName = a});---- | Describes this configuration set.-csdDescription :: Lens' ConfigurationSettingsDescription (Maybe Text)-csdDescription = lens _csdDescription (\ s a -> s{_csdDescription = a});--instance FromXML ConfigurationSettingsDescription-         where-        parseXML x-          = ConfigurationSettingsDescription' <$>-              (x .@? "TemplateName") <*>-                (x .@? "OptionSettings" .!@ mempty >>=-                   may (parseXMLList "member"))-                <*> (x .@? "DateUpdated")-                <*> (x .@? "DateCreated")-                <*> (x .@? "PlatformArn")-                <*> (x .@? "EnvironmentName")-                <*> (x .@? "ApplicationName")-                <*> (x .@? "DeploymentStatus")-                <*> (x .@? "SolutionStackName")-                <*> (x .@? "Description")--instance Hashable ConfigurationSettingsDescription-         where--instance NFData ConfigurationSettingsDescription-         where---- | A custom AMI available to platforms.------------ /See:/ 'customAMI' smart constructor.-data CustomAMI = CustomAMI'-  { _caVirtualizationType :: !(Maybe Text)-  , _caImageId            :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CustomAMI' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'caVirtualizationType' - The type of virtualization used to create the custom AMI.------ * 'caImageId' - THe ID of the image used to create the custom AMI.-customAMI-    :: CustomAMI-customAMI = CustomAMI' {_caVirtualizationType = Nothing, _caImageId = Nothing}----- | The type of virtualization used to create the custom AMI.-caVirtualizationType :: Lens' CustomAMI (Maybe Text)-caVirtualizationType = lens _caVirtualizationType (\ s a -> s{_caVirtualizationType = a});---- | THe ID of the image used to create the custom AMI.-caImageId :: Lens' CustomAMI (Maybe Text)-caImageId = lens _caImageId (\ s a -> s{_caImageId = a});--instance FromXML CustomAMI where-        parseXML x-          = CustomAMI' <$>-              (x .@? "VirtualizationType") <*> (x .@? "ImageId")--instance Hashable CustomAMI where--instance NFData CustomAMI where---- | Information about an application version deployment.------------ /See:/ 'deployment' smart constructor.-data Deployment = Deployment'-  { _dDeploymentId   :: !(Maybe Integer)-  , _dStatus         :: !(Maybe Text)-  , _dDeploymentTime :: !(Maybe ISO8601)-  , _dVersionLabel   :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Deployment' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dDeploymentId' - The ID of the deployment. This number increases by one each time that you deploy source code or change instance configuration settings.------ * 'dStatus' - The status of the deployment:     * @In Progress@ : The deployment is in progress.     * @Deployed@ : The deployment succeeded.     * @Failed@ : The deployment failed.------ * 'dDeploymentTime' - For in-progress deployments, the time that the deployment started. For completed deployments, the time that the deployment ended.------ * 'dVersionLabel' - The version label of the application version in the deployment.-deployment-    :: Deployment-deployment =-  Deployment'-  { _dDeploymentId = Nothing-  , _dStatus = Nothing-  , _dDeploymentTime = Nothing-  , _dVersionLabel = Nothing-  }----- | The ID of the deployment. This number increases by one each time that you deploy source code or change instance configuration settings.-dDeploymentId :: Lens' Deployment (Maybe Integer)-dDeploymentId = lens _dDeploymentId (\ s a -> s{_dDeploymentId = a});---- | The status of the deployment:     * @In Progress@ : The deployment is in progress.     * @Deployed@ : The deployment succeeded.     * @Failed@ : The deployment failed.-dStatus :: Lens' Deployment (Maybe Text)-dStatus = lens _dStatus (\ s a -> s{_dStatus = a});---- | For in-progress deployments, the time that the deployment started. For completed deployments, the time that the deployment ended.-dDeploymentTime :: Lens' Deployment (Maybe UTCTime)-dDeploymentTime = lens _dDeploymentTime (\ s a -> s{_dDeploymentTime = a}) . mapping _Time;---- | The version label of the application version in the deployment.-dVersionLabel :: Lens' Deployment (Maybe Text)-dVersionLabel = lens _dVersionLabel (\ s a -> s{_dVersionLabel = a});--instance FromXML Deployment where-        parseXML x-          = Deployment' <$>-              (x .@? "DeploymentId") <*> (x .@? "Status") <*>-                (x .@? "DeploymentTime")-                <*> (x .@? "VersionLabel")--instance Hashable Deployment where--instance NFData Deployment where---- | Describes the properties of an environment.------------ /See:/ 'environmentDescription' smart constructor.-data EnvironmentDescription = EnvironmentDescription'-  { _eStatus                       :: !(Maybe EnvironmentStatus)-  , _eCNAME                        :: !(Maybe Text)-  , _eTemplateName                 :: !(Maybe Text)-  , _eAbortableOperationInProgress :: !(Maybe Bool)-  , _eEndpointURL                  :: !(Maybe Text)-  , _eResources                    :: !(Maybe EnvironmentResourcesDescription)-  , _eDateUpdated                  :: !(Maybe ISO8601)-  , _eDateCreated                  :: !(Maybe ISO8601)-  , _eHealth                       :: !(Maybe EnvironmentHealth)-  , _eVersionLabel                 :: !(Maybe Text)-  , _ePlatformARN                  :: !(Maybe Text)-  , _eTier                         :: !(Maybe EnvironmentTier)-  , _eEnvironmentName              :: !(Maybe Text)-  , _eApplicationName              :: !(Maybe Text)-  , _eEnvironmentARN               :: !(Maybe Text)-  , _eSolutionStackName            :: !(Maybe Text)-  , _eEnvironmentId                :: !(Maybe Text)-  , _eHealthStatus                 :: !(Maybe EnvironmentHealthStatus)-  , _eEnvironmentLinks             :: !(Maybe [EnvironmentLink])-  , _eDescription                  :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'EnvironmentDescription' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'eStatus' - The current operational status of the environment:     * @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.------ * 'eCNAME' - The URL to the CNAME for this environment.------ * 'eTemplateName' - The name of the configuration template used to originally launch this environment.------ * 'eAbortableOperationInProgress' - 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.  @false:@ There are no updates currently in progress.------ * 'eEndpointURL' - For load-balanced, autoscaling environments, the URL to the LoadBalancer. For single-instance environments, the IP address of the instance.------ * 'eResources' - The description of the AWS resources used by this environment.------ * 'eDateUpdated' - The last modified date for this environment.------ * 'eDateCreated' - The creation date for this environment.------ * 'eHealth' - Describes the health status of the environment. AWS Elastic Beanstalk indicates the failure levels for a running environment:     * @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@------ * 'eVersionLabel' - The application version deployed in this environment.------ * 'ePlatformARN' - The ARN of the platform.------ * 'eTier' - Describes the current tier of this environment.------ * 'eEnvironmentName' - The name of this environment.------ * 'eApplicationName' - The name of the application associated with this environment.------ * 'eEnvironmentARN' - The environment's Amazon Resource Name (ARN), which can be used in other API reuqests that require an ARN.------ * 'eSolutionStackName' - The name of the @SolutionStack@ deployed with this environment.------ * 'eEnvironmentId' - The ID of this environment.------ * 'eHealthStatus' - Returns the health status of the application running in your environment. For more information, see <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/health-enhanced-status.html Health Colors and Statuses> .------ * 'eEnvironmentLinks' - A list of links to other environments in the same group.------ * 'eDescription' - Describes this environment.-environmentDescription-    :: EnvironmentDescription-environmentDescription =-  EnvironmentDescription'-  { _eStatus = Nothing-  , _eCNAME = Nothing-  , _eTemplateName = Nothing-  , _eAbortableOperationInProgress = Nothing-  , _eEndpointURL = Nothing-  , _eResources = Nothing-  , _eDateUpdated = Nothing-  , _eDateCreated = Nothing-  , _eHealth = Nothing-  , _eVersionLabel = Nothing-  , _ePlatformARN = Nothing-  , _eTier = Nothing-  , _eEnvironmentName = Nothing-  , _eApplicationName = Nothing-  , _eEnvironmentARN = Nothing-  , _eSolutionStackName = Nothing-  , _eEnvironmentId = Nothing-  , _eHealthStatus = Nothing-  , _eEnvironmentLinks = Nothing-  , _eDescription = Nothing-  }----- | The current operational status of the environment:     * @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.-eStatus :: Lens' EnvironmentDescription (Maybe EnvironmentStatus)-eStatus = lens _eStatus (\ s a -> s{_eStatus = a});---- | The URL to the CNAME for this environment.-eCNAME :: Lens' EnvironmentDescription (Maybe Text)-eCNAME = lens _eCNAME (\ s a -> s{_eCNAME = a});---- | The name of the configuration template used to originally launch this environment.-eTemplateName :: Lens' EnvironmentDescription (Maybe Text)-eTemplateName = lens _eTemplateName (\ s a -> s{_eTemplateName = 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.  @false:@ There are no updates currently in progress.-eAbortableOperationInProgress :: Lens' EnvironmentDescription (Maybe Bool)-eAbortableOperationInProgress = lens _eAbortableOperationInProgress (\ s a -> s{_eAbortableOperationInProgress = a});---- | For load-balanced, autoscaling environments, the URL to the LoadBalancer. For single-instance environments, the IP address of the instance.-eEndpointURL :: Lens' EnvironmentDescription (Maybe Text)-eEndpointURL = lens _eEndpointURL (\ s a -> s{_eEndpointURL = a});---- | The description of the AWS resources used by this environment.-eResources :: Lens' EnvironmentDescription (Maybe EnvironmentResourcesDescription)-eResources = lens _eResources (\ s a -> s{_eResources = a});---- | The last modified date for this environment.-eDateUpdated :: Lens' EnvironmentDescription (Maybe UTCTime)-eDateUpdated = lens _eDateUpdated (\ s a -> s{_eDateUpdated = a}) . mapping _Time;---- | The creation date for this environment.-eDateCreated :: Lens' EnvironmentDescription (Maybe UTCTime)-eDateCreated = lens _eDateCreated (\ s a -> s{_eDateCreated = a}) . mapping _Time;---- | Describes the health status of the environment. AWS Elastic Beanstalk indicates the failure levels for a running environment:     * @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@-eHealth :: Lens' EnvironmentDescription (Maybe EnvironmentHealth)-eHealth = lens _eHealth (\ s a -> s{_eHealth = a});---- | The application version deployed in this environment.-eVersionLabel :: Lens' EnvironmentDescription (Maybe Text)-eVersionLabel = lens _eVersionLabel (\ s a -> s{_eVersionLabel = a});---- | The ARN of the platform.-ePlatformARN :: Lens' EnvironmentDescription (Maybe Text)-ePlatformARN = lens _ePlatformARN (\ s a -> s{_ePlatformARN = a});---- | Describes the current tier of this environment.-eTier :: Lens' EnvironmentDescription (Maybe EnvironmentTier)-eTier = lens _eTier (\ s a -> s{_eTier = a});---- | The name of this environment.-eEnvironmentName :: Lens' EnvironmentDescription (Maybe Text)-eEnvironmentName = lens _eEnvironmentName (\ s a -> s{_eEnvironmentName = a});---- | The name of the application associated with this environment.-eApplicationName :: Lens' EnvironmentDescription (Maybe Text)-eApplicationName = lens _eApplicationName (\ s a -> s{_eApplicationName = a});---- | The environment's Amazon Resource Name (ARN), which can be used in other API reuqests that require an ARN.-eEnvironmentARN :: Lens' EnvironmentDescription (Maybe Text)-eEnvironmentARN = lens _eEnvironmentARN (\ s a -> s{_eEnvironmentARN = a});---- | The name of the @SolutionStack@ deployed with this environment.-eSolutionStackName :: Lens' EnvironmentDescription (Maybe Text)-eSolutionStackName = lens _eSolutionStackName (\ s a -> s{_eSolutionStackName = a});---- | The ID of this environment.-eEnvironmentId :: Lens' EnvironmentDescription (Maybe Text)-eEnvironmentId = lens _eEnvironmentId (\ s a -> s{_eEnvironmentId = a});---- | Returns the health status of the application running in your environment. For more information, see <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/health-enhanced-status.html Health Colors and Statuses> .-eHealthStatus :: Lens' EnvironmentDescription (Maybe EnvironmentHealthStatus)-eHealthStatus = lens _eHealthStatus (\ s a -> s{_eHealthStatus = a});---- | A list of links to other environments in the same group.-eEnvironmentLinks :: Lens' EnvironmentDescription [EnvironmentLink]-eEnvironmentLinks = lens _eEnvironmentLinks (\ s a -> s{_eEnvironmentLinks = a}) . _Default . _Coerce;---- | Describes this environment.-eDescription :: Lens' EnvironmentDescription (Maybe Text)-eDescription = lens _eDescription (\ s a -> s{_eDescription = a});--instance FromXML EnvironmentDescription where-        parseXML x-          = EnvironmentDescription' <$>-              (x .@? "Status") <*> (x .@? "CNAME") <*>-                (x .@? "TemplateName")-                <*> (x .@? "AbortableOperationInProgress")-                <*> (x .@? "EndpointURL")-                <*> (x .@? "Resources")-                <*> (x .@? "DateUpdated")-                <*> (x .@? "DateCreated")-                <*> (x .@? "Health")-                <*> (x .@? "VersionLabel")-                <*> (x .@? "PlatformArn")-                <*> (x .@? "Tier")-                <*> (x .@? "EnvironmentName")-                <*> (x .@? "ApplicationName")-                <*> (x .@? "EnvironmentArn")-                <*> (x .@? "SolutionStackName")-                <*> (x .@? "EnvironmentId")-                <*> (x .@? "HealthStatus")-                <*>-                (x .@? "EnvironmentLinks" .!@ mempty >>=-                   may (parseXMLList "member"))-                <*> (x .@? "Description")--instance Hashable EnvironmentDescription where--instance NFData EnvironmentDescription where---- | Result message containing a list of environment descriptions.------------ /See:/ 'environmentDescriptionsMessage' smart constructor.-data EnvironmentDescriptionsMessage = EnvironmentDescriptionsMessage'-  { _edmNextToken    :: !(Maybe Text)-  , _edmEnvironments :: !(Maybe [EnvironmentDescription])-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'EnvironmentDescriptionsMessage' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'edmNextToken' - In a paginated request, the token that you can pass in a subsequent request to get the next response page.------ * 'edmEnvironments' - Returns an 'EnvironmentDescription' list.-environmentDescriptionsMessage-    :: EnvironmentDescriptionsMessage-environmentDescriptionsMessage =-  EnvironmentDescriptionsMessage'-  {_edmNextToken = Nothing, _edmEnvironments = Nothing}----- | In a paginated request, the token that you can pass in a subsequent request to get the next response page.-edmNextToken :: Lens' EnvironmentDescriptionsMessage (Maybe Text)-edmNextToken = lens _edmNextToken (\ s a -> s{_edmNextToken = a});---- | Returns an 'EnvironmentDescription' list.-edmEnvironments :: Lens' EnvironmentDescriptionsMessage [EnvironmentDescription]-edmEnvironments = lens _edmEnvironments (\ s a -> s{_edmEnvironments = a}) . _Default . _Coerce;--instance FromXML EnvironmentDescriptionsMessage where-        parseXML x-          = EnvironmentDescriptionsMessage' <$>-              (x .@? "NextToken") <*>-                (x .@? "Environments" .!@ mempty >>=-                   may (parseXMLList "member"))--instance Hashable EnvironmentDescriptionsMessage-         where--instance NFData EnvironmentDescriptionsMessage where---- | The information retrieved from the Amazon EC2 instances.------------ /See:/ 'environmentInfoDescription' smart constructor.-data EnvironmentInfoDescription = EnvironmentInfoDescription'-  { _eidSampleTimestamp :: !(Maybe ISO8601)-  , _eidEC2InstanceId   :: !(Maybe Text)-  , _eidInfoType        :: !(Maybe EnvironmentInfoType)-  , _eidMessage         :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'EnvironmentInfoDescription' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'eidSampleTimestamp' - The time stamp when this information was retrieved.------ * 'eidEC2InstanceId' - The Amazon EC2 Instance ID for this information.------ * 'eidInfoType' - The type of information retrieved.------ * 'eidMessage' - The retrieved information.-environmentInfoDescription-    :: EnvironmentInfoDescription-environmentInfoDescription =-  EnvironmentInfoDescription'-  { _eidSampleTimestamp = Nothing-  , _eidEC2InstanceId = Nothing-  , _eidInfoType = Nothing-  , _eidMessage = Nothing-  }----- | The time stamp when this information was retrieved.-eidSampleTimestamp :: Lens' EnvironmentInfoDescription (Maybe UTCTime)-eidSampleTimestamp = lens _eidSampleTimestamp (\ s a -> s{_eidSampleTimestamp = a}) . mapping _Time;---- | The Amazon EC2 Instance ID for this information.-eidEC2InstanceId :: Lens' EnvironmentInfoDescription (Maybe Text)-eidEC2InstanceId = lens _eidEC2InstanceId (\ s a -> s{_eidEC2InstanceId = a});---- | The type of information retrieved.-eidInfoType :: Lens' EnvironmentInfoDescription (Maybe EnvironmentInfoType)-eidInfoType = lens _eidInfoType (\ s a -> s{_eidInfoType = a});---- | The retrieved information.-eidMessage :: Lens' EnvironmentInfoDescription (Maybe Text)-eidMessage = lens _eidMessage (\ s a -> s{_eidMessage = a});--instance FromXML EnvironmentInfoDescription where-        parseXML x-          = EnvironmentInfoDescription' <$>-              (x .@? "SampleTimestamp") <*> (x .@? "Ec2InstanceId")-                <*> (x .@? "InfoType")-                <*> (x .@? "Message")--instance Hashable EnvironmentInfoDescription where--instance NFData EnvironmentInfoDescription where---- | A link to another environment, defined in the environment's manifest. Links provide connection information in system properties that can be used to connect to another environment in the same group. See <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/environment-cfg-manifest.html Environment Manifest (env.yaml)> for details.------------ /See:/ 'environmentLink' smart constructor.-data EnvironmentLink = EnvironmentLink'-  { _elLinkName        :: !(Maybe Text)-  , _elEnvironmentName :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'EnvironmentLink' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'elLinkName' - The name of the link.------ * 'elEnvironmentName' - The name of the linked environment (the dependency).-environmentLink-    :: EnvironmentLink-environmentLink =-  EnvironmentLink' {_elLinkName = Nothing, _elEnvironmentName = Nothing}----- | The name of the link.-elLinkName :: Lens' EnvironmentLink (Maybe Text)-elLinkName = lens _elLinkName (\ s a -> s{_elLinkName = a});---- | The name of the linked environment (the dependency).-elEnvironmentName :: Lens' EnvironmentLink (Maybe Text)-elEnvironmentName = lens _elEnvironmentName (\ s a -> s{_elEnvironmentName = a});--instance FromXML EnvironmentLink where-        parseXML x-          = EnvironmentLink' <$>-              (x .@? "LinkName") <*> (x .@? "EnvironmentName")--instance Hashable EnvironmentLink where--instance NFData EnvironmentLink where---- | Describes the AWS resources in use by this environment. This data is live.------------ /See:/ 'environmentResourceDescription' smart constructor.-data EnvironmentResourceDescription = EnvironmentResourceDescription'-  { _erdQueues               :: !(Maybe [Queue])-  , _erdTriggers             :: !(Maybe [Trigger])-  , _erdLoadBalancers        :: !(Maybe [LoadBalancer])-  , _erdEnvironmentName      :: !(Maybe Text)-  , _erdInstances            :: !(Maybe [Instance])-  , _erdLaunchConfigurations :: !(Maybe [LaunchConfiguration])-  , _erdAutoScalingGroups    :: !(Maybe [AutoScalingGroup])-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'EnvironmentResourceDescription' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'erdQueues' - The queues used by this environment.------ * 'erdTriggers' - The @AutoScaling@ triggers in use by this environment.------ * 'erdLoadBalancers' - The LoadBalancers in use by this environment.------ * 'erdEnvironmentName' - The name of the environment.------ * 'erdInstances' - The Amazon EC2 instances used by this environment.------ * 'erdLaunchConfigurations' - The Auto Scaling launch configurations in use by this environment.------ * 'erdAutoScalingGroups' - The @AutoScalingGroups@ used by this environment.-environmentResourceDescription-    :: EnvironmentResourceDescription-environmentResourceDescription =-  EnvironmentResourceDescription'-  { _erdQueues = Nothing-  , _erdTriggers = Nothing-  , _erdLoadBalancers = Nothing-  , _erdEnvironmentName = Nothing-  , _erdInstances = Nothing-  , _erdLaunchConfigurations = Nothing-  , _erdAutoScalingGroups = Nothing-  }----- | The queues used by this environment.-erdQueues :: Lens' EnvironmentResourceDescription [Queue]-erdQueues = lens _erdQueues (\ s a -> s{_erdQueues = a}) . _Default . _Coerce;---- | The @AutoScaling@ triggers in use by this environment.-erdTriggers :: Lens' EnvironmentResourceDescription [Trigger]-erdTriggers = lens _erdTriggers (\ s a -> s{_erdTriggers = a}) . _Default . _Coerce;---- | The LoadBalancers in use by this environment.-erdLoadBalancers :: Lens' EnvironmentResourceDescription [LoadBalancer]-erdLoadBalancers = lens _erdLoadBalancers (\ s a -> s{_erdLoadBalancers = a}) . _Default . _Coerce;---- | The name of the environment.-erdEnvironmentName :: Lens' EnvironmentResourceDescription (Maybe Text)-erdEnvironmentName = lens _erdEnvironmentName (\ s a -> s{_erdEnvironmentName = a});---- | The Amazon EC2 instances used by this environment.-erdInstances :: Lens' EnvironmentResourceDescription [Instance]-erdInstances = lens _erdInstances (\ s a -> s{_erdInstances = a}) . _Default . _Coerce;---- | The Auto Scaling launch configurations in use by this environment.-erdLaunchConfigurations :: Lens' EnvironmentResourceDescription [LaunchConfiguration]-erdLaunchConfigurations = lens _erdLaunchConfigurations (\ s a -> s{_erdLaunchConfigurations = a}) . _Default . _Coerce;---- | The @AutoScalingGroups@ used by this environment.-erdAutoScalingGroups :: Lens' EnvironmentResourceDescription [AutoScalingGroup]-erdAutoScalingGroups = lens _erdAutoScalingGroups (\ s a -> s{_erdAutoScalingGroups = a}) . _Default . _Coerce;--instance FromXML EnvironmentResourceDescription where-        parseXML x-          = EnvironmentResourceDescription' <$>-              (x .@? "Queues" .!@ mempty >>=-                 may (parseXMLList "member"))-                <*>-                (x .@? "Triggers" .!@ mempty >>=-                   may (parseXMLList "member"))-                <*>-                (x .@? "LoadBalancers" .!@ mempty >>=-                   may (parseXMLList "member"))-                <*> (x .@? "EnvironmentName")-                <*>-                (x .@? "Instances" .!@ mempty >>=-                   may (parseXMLList "member"))-                <*>-                (x .@? "LaunchConfigurations" .!@ mempty >>=-                   may (parseXMLList "member"))-                <*>-                (x .@? "AutoScalingGroups" .!@ mempty >>=-                   may (parseXMLList "member"))--instance Hashable EnvironmentResourceDescription-         where--instance NFData EnvironmentResourceDescription where---- | Describes the AWS resources in use by this environment. This data is not live data.------------ /See:/ 'environmentResourcesDescription' smart constructor.-newtype EnvironmentResourcesDescription = EnvironmentResourcesDescription'-  { _erdLoadBalancer :: Maybe LoadBalancerDescription-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'EnvironmentResourcesDescription' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'erdLoadBalancer' - Describes the LoadBalancer.-environmentResourcesDescription-    :: EnvironmentResourcesDescription-environmentResourcesDescription =-  EnvironmentResourcesDescription' {_erdLoadBalancer = Nothing}----- | Describes the LoadBalancer.-erdLoadBalancer :: Lens' EnvironmentResourcesDescription (Maybe LoadBalancerDescription)-erdLoadBalancer = lens _erdLoadBalancer (\ s a -> s{_erdLoadBalancer = a});--instance FromXML EnvironmentResourcesDescription-         where-        parseXML x-          = EnvironmentResourcesDescription' <$>-              (x .@? "LoadBalancer")--instance Hashable EnvironmentResourcesDescription-         where--instance NFData EnvironmentResourcesDescription where---- | Describes the properties of an environment tier------------ /See:/ 'environmentTier' smart constructor.-data EnvironmentTier = EnvironmentTier'-  { _etName    :: !(Maybe Text)-  , _etVersion :: !(Maybe Text)-  , _etType    :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'EnvironmentTier' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'etName' - The name of this environment tier.------ * 'etVersion' - The version of this environment tier.------ * 'etType' - The type of this environment tier.-environmentTier-    :: EnvironmentTier-environmentTier =-  EnvironmentTier' {_etName = Nothing, _etVersion = Nothing, _etType = Nothing}----- | The name of this environment tier.-etName :: Lens' EnvironmentTier (Maybe Text)-etName = lens _etName (\ s a -> s{_etName = a});---- | The version of this environment tier.-etVersion :: Lens' EnvironmentTier (Maybe Text)-etVersion = lens _etVersion (\ s a -> s{_etVersion = a});---- | The type of this environment tier.-etType :: Lens' EnvironmentTier (Maybe Text)-etType = lens _etType (\ s a -> s{_etType = a});--instance FromXML EnvironmentTier where-        parseXML x-          = EnvironmentTier' <$>-              (x .@? "Name") <*> (x .@? "Version") <*>-                (x .@? "Type")--instance Hashable EnvironmentTier where--instance NFData EnvironmentTier where--instance ToQuery EnvironmentTier where-        toQuery EnvironmentTier'{..}-          = mconcat-              ["Name" =: _etName, "Version" =: _etVersion,-               "Type" =: _etType]---- | Describes an event.------------ /See:/ 'eventDescription' smart constructor.-data EventDescription = EventDescription'-  { _edRequestId       :: !(Maybe Text)-  , _edTemplateName    :: !(Maybe Text)-  , _edSeverity        :: !(Maybe EventSeverity)-  , _edVersionLabel    :: !(Maybe Text)-  , _edPlatformARN     :: !(Maybe Text)-  , _edEnvironmentName :: !(Maybe Text)-  , _edApplicationName :: !(Maybe Text)-  , _edEventDate       :: !(Maybe ISO8601)-  , _edMessage         :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'EventDescription' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'edRequestId' - The web service request ID for the activity of this event.------ * 'edTemplateName' - The name of the configuration associated with this event.------ * 'edSeverity' - The severity level of this event.------ * 'edVersionLabel' - The release label for the application version associated with this event.------ * 'edPlatformARN' - The ARN of the platform.------ * 'edEnvironmentName' - The name of the environment associated with this event.------ * 'edApplicationName' - The application associated with the event.------ * 'edEventDate' - The date when the event occurred.------ * 'edMessage' - The event message.-eventDescription-    :: EventDescription-eventDescription =-  EventDescription'-  { _edRequestId = Nothing-  , _edTemplateName = Nothing-  , _edSeverity = Nothing-  , _edVersionLabel = Nothing-  , _edPlatformARN = Nothing-  , _edEnvironmentName = Nothing-  , _edApplicationName = Nothing-  , _edEventDate = Nothing-  , _edMessage = Nothing-  }----- | The web service request ID for the activity of this event.-edRequestId :: Lens' EventDescription (Maybe Text)-edRequestId = lens _edRequestId (\ s a -> s{_edRequestId = a});---- | The name of the configuration associated with this event.-edTemplateName :: Lens' EventDescription (Maybe Text)-edTemplateName = lens _edTemplateName (\ s a -> s{_edTemplateName = a});---- | The severity level of this event.-edSeverity :: Lens' EventDescription (Maybe EventSeverity)-edSeverity = lens _edSeverity (\ s a -> s{_edSeverity = a});---- | The release label for the application version associated with this event.-edVersionLabel :: Lens' EventDescription (Maybe Text)-edVersionLabel = lens _edVersionLabel (\ s a -> s{_edVersionLabel = a});---- | The ARN of the platform.-edPlatformARN :: Lens' EventDescription (Maybe Text)-edPlatformARN = lens _edPlatformARN (\ s a -> s{_edPlatformARN = a});---- | The name of the environment associated with this event.-edEnvironmentName :: Lens' EventDescription (Maybe Text)-edEnvironmentName = lens _edEnvironmentName (\ s a -> s{_edEnvironmentName = a});---- | The application associated with the event.-edApplicationName :: Lens' EventDescription (Maybe Text)-edApplicationName = lens _edApplicationName (\ s a -> s{_edApplicationName = a});---- | The date when the event occurred.-edEventDate :: Lens' EventDescription (Maybe UTCTime)-edEventDate = lens _edEventDate (\ s a -> s{_edEventDate = a}) . mapping _Time;---- | The event message.-edMessage :: Lens' EventDescription (Maybe Text)-edMessage = lens _edMessage (\ s a -> s{_edMessage = a});--instance FromXML EventDescription where-        parseXML x-          = EventDescription' <$>-              (x .@? "RequestId") <*> (x .@? "TemplateName") <*>-                (x .@? "Severity")-                <*> (x .@? "VersionLabel")-                <*> (x .@? "PlatformArn")-                <*> (x .@? "EnvironmentName")-                <*> (x .@? "ApplicationName")-                <*> (x .@? "EventDate")-                <*> (x .@? "Message")--instance Hashable EventDescription where--instance NFData EventDescription where---- | The description of an Amazon EC2 instance.------------ /See:/ 'instance'' smart constructor.-newtype Instance = Instance'-  { _iId :: Maybe Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Instance' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'iId' - The ID of the Amazon EC2 instance.-instance'-    :: Instance-instance' = Instance' {_iId = Nothing}----- | The ID of the Amazon EC2 instance.-iId :: Lens' Instance (Maybe Text)-iId = lens _iId (\ s a -> s{_iId = a});--instance FromXML Instance where-        parseXML x = Instance' <$> (x .@? "Id")--instance Hashable Instance where--instance NFData Instance where---- | Represents summary information about the health of an instance. For more information, see <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/health-enhanced-status.html Health Colors and Statuses> .------------ /See:/ 'instanceHealthSummary' smart constructor.-data InstanceHealthSummary = InstanceHealthSummary'-  { _ihsOK       :: !(Maybe Int)-  , _ihsPending  :: !(Maybe Int)-  , _ihsSevere   :: !(Maybe Int)-  , _ihsUnknown  :: !(Maybe Int)-  , _ihsNoData   :: !(Maybe Int)-  , _ihsWarning  :: !(Maybe Int)-  , _ihsDegraded :: !(Maybe Int)-  , _ihsInfo     :: !(Maybe Int)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'InstanceHealthSummary' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ihsOK' - __Green.__ An instance is passing health checks and the health agent is not reporting any problems.------ * 'ihsPending' - __Grey.__ An operation is in progress on an instance within the command timeout.------ * 'ihsSevere' - __Red.__ The health agent is reporting a very high number of request failures or other issues for an instance or environment.------ * 'ihsUnknown' - __Grey.__ AWS Elastic Beanstalk and the health agent are reporting an insufficient amount of data on an instance.------ * 'ihsNoData' - __Grey.__ AWS Elastic Beanstalk and the health agent are reporting no data on an instance.------ * 'ihsWarning' - __Yellow.__ The health agent is reporting a moderate number of request failures or other issues for an instance or environment.------ * 'ihsDegraded' - __Red.__ The health agent is reporting a high number of request failures or other issues for an instance or environment.------ * 'ihsInfo' - __Green.__ An operation is in progress on an instance.-instanceHealthSummary-    :: InstanceHealthSummary-instanceHealthSummary =-  InstanceHealthSummary'-  { _ihsOK = Nothing-  , _ihsPending = Nothing-  , _ihsSevere = Nothing-  , _ihsUnknown = Nothing-  , _ihsNoData = Nothing-  , _ihsWarning = Nothing-  , _ihsDegraded = Nothing-  , _ihsInfo = Nothing-  }----- | __Green.__ An instance is passing health checks and the health agent is not reporting any problems.-ihsOK :: Lens' InstanceHealthSummary (Maybe Int)-ihsOK = lens _ihsOK (\ s a -> s{_ihsOK = a});---- | __Grey.__ An operation is in progress on an instance within the command timeout.-ihsPending :: Lens' InstanceHealthSummary (Maybe Int)-ihsPending = lens _ihsPending (\ s a -> s{_ihsPending = a});---- | __Red.__ The health agent is reporting a very high number of request failures or other issues for an instance or environment.-ihsSevere :: Lens' InstanceHealthSummary (Maybe Int)-ihsSevere = lens _ihsSevere (\ s a -> s{_ihsSevere = a});---- | __Grey.__ AWS Elastic Beanstalk and the health agent are reporting an insufficient amount of data on an instance.-ihsUnknown :: Lens' InstanceHealthSummary (Maybe Int)-ihsUnknown = lens _ihsUnknown (\ s a -> s{_ihsUnknown = a});---- | __Grey.__ AWS Elastic Beanstalk and the health agent are reporting no data on an instance.-ihsNoData :: Lens' InstanceHealthSummary (Maybe Int)-ihsNoData = lens _ihsNoData (\ s a -> s{_ihsNoData = a});---- | __Yellow.__ The health agent is reporting a moderate number of request failures or other issues for an instance or environment.-ihsWarning :: Lens' InstanceHealthSummary (Maybe Int)-ihsWarning = lens _ihsWarning (\ s a -> s{_ihsWarning = a});---- | __Red.__ The health agent is reporting a high number of request failures or other issues for an instance or environment.-ihsDegraded :: Lens' InstanceHealthSummary (Maybe Int)-ihsDegraded = lens _ihsDegraded (\ s a -> s{_ihsDegraded = a});---- | __Green.__ An operation is in progress on an instance.-ihsInfo :: Lens' InstanceHealthSummary (Maybe Int)-ihsInfo = lens _ihsInfo (\ s a -> s{_ihsInfo = a});--instance FromXML InstanceHealthSummary where-        parseXML x-          = InstanceHealthSummary' <$>-              (x .@? "Ok") <*> (x .@? "Pending") <*>-                (x .@? "Severe")-                <*> (x .@? "Unknown")-                <*> (x .@? "NoData")-                <*> (x .@? "Warning")-                <*> (x .@? "Degraded")-                <*> (x .@? "Info")--instance Hashable InstanceHealthSummary where--instance NFData InstanceHealthSummary where---- | Represents the average latency for the slowest X percent of requests over the last 10 seconds.------------ /See:/ 'latency' smart constructor.-data Latency = Latency'-  { _lP75  :: !(Maybe Double)-  , _lP50  :: !(Maybe Double)-  , _lP85  :: !(Maybe Double)-  , _lP999 :: !(Maybe Double)-  , _lP90  :: !(Maybe Double)-  , _lP95  :: !(Maybe Double)-  , _lP99  :: !(Maybe Double)-  , _lP10  :: !(Maybe Double)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Latency' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lP75' - The average latency for the slowest 25 percent of requests over the last 10 seconds.------ * 'lP50' - The average latency for the slowest 50 percent of requests over the last 10 seconds.------ * 'lP85' - The average latency for the slowest 15 percent of requests over the last 10 seconds.------ * 'lP999' - The average latency for the slowest 0.1 percent of requests over the last 10 seconds.------ * 'lP90' - The average latency for the slowest 10 percent of requests over the last 10 seconds.------ * 'lP95' - The average latency for the slowest 5 percent of requests over the last 10 seconds.------ * 'lP99' - The average latency for the slowest 1 percent of requests over the last 10 seconds.------ * 'lP10' - The average latency for the slowest 90 percent of requests over the last 10 seconds.-latency-    :: Latency-latency =-  Latency'-  { _lP75 = Nothing-  , _lP50 = Nothing-  , _lP85 = Nothing-  , _lP999 = Nothing-  , _lP90 = Nothing-  , _lP95 = Nothing-  , _lP99 = Nothing-  , _lP10 = Nothing-  }----- | The average latency for the slowest 25 percent of requests over the last 10 seconds.-lP75 :: Lens' Latency (Maybe Double)-lP75 = lens _lP75 (\ s a -> s{_lP75 = a});---- | The average latency for the slowest 50 percent of requests over the last 10 seconds.-lP50 :: Lens' Latency (Maybe Double)-lP50 = lens _lP50 (\ s a -> s{_lP50 = a});---- | The average latency for the slowest 15 percent of requests over the last 10 seconds.-lP85 :: Lens' Latency (Maybe Double)-lP85 = lens _lP85 (\ s a -> s{_lP85 = a});---- | The average latency for the slowest 0.1 percent of requests over the last 10 seconds.-lP999 :: Lens' Latency (Maybe Double)-lP999 = lens _lP999 (\ s a -> s{_lP999 = a});---- | The average latency for the slowest 10 percent of requests over the last 10 seconds.-lP90 :: Lens' Latency (Maybe Double)-lP90 = lens _lP90 (\ s a -> s{_lP90 = a});---- | The average latency for the slowest 5 percent of requests over the last 10 seconds.-lP95 :: Lens' Latency (Maybe Double)-lP95 = lens _lP95 (\ s a -> s{_lP95 = a});---- | The average latency for the slowest 1 percent of requests over the last 10 seconds.-lP99 :: Lens' Latency (Maybe Double)-lP99 = lens _lP99 (\ s a -> s{_lP99 = a});---- | The average latency for the slowest 90 percent of requests over the last 10 seconds.-lP10 :: Lens' Latency (Maybe Double)-lP10 = lens _lP10 (\ s a -> s{_lP10 = a});--instance FromXML Latency where-        parseXML x-          = Latency' <$>-              (x .@? "P75") <*> (x .@? "P50") <*> (x .@? "P85") <*>-                (x .@? "P999")-                <*> (x .@? "P90")-                <*> (x .@? "P95")-                <*> (x .@? "P99")-                <*> (x .@? "P10")--instance Hashable Latency where--instance NFData Latency where---- | Describes an Auto Scaling launch configuration.------------ /See:/ 'launchConfiguration' smart constructor.-newtype LaunchConfiguration = LaunchConfiguration'-  { _lcName :: Maybe Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'LaunchConfiguration' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lcName' - The name of the launch configuration.-launchConfiguration-    :: LaunchConfiguration-launchConfiguration = LaunchConfiguration' {_lcName = Nothing}----- | The name of the launch configuration.-lcName :: Lens' LaunchConfiguration (Maybe Text)-lcName = lens _lcName (\ s a -> s{_lcName = a});--instance FromXML LaunchConfiguration where-        parseXML x = LaunchConfiguration' <$> (x .@? "Name")--instance Hashable LaunchConfiguration where--instance NFData LaunchConfiguration where---- | Describes the properties of a Listener for the LoadBalancer.------------ /See:/ 'listener' smart constructor.-data Listener = Listener'-  { _lProtocol :: !(Maybe Text)-  , _lPort     :: !(Maybe Int)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Listener' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lProtocol' - The protocol that is used by the Listener.------ * 'lPort' - The port that is used by the Listener.-listener-    :: Listener-listener = Listener' {_lProtocol = Nothing, _lPort = Nothing}----- | The protocol that is used by the Listener.-lProtocol :: Lens' Listener (Maybe Text)-lProtocol = lens _lProtocol (\ s a -> s{_lProtocol = a});---- | The port that is used by the Listener.-lPort :: Lens' Listener (Maybe Int)-lPort = lens _lPort (\ s a -> s{_lPort = a});--instance FromXML Listener where-        parseXML x-          = Listener' <$> (x .@? "Protocol") <*> (x .@? "Port")--instance Hashable Listener where--instance NFData Listener where---- | Describes a LoadBalancer.------------ /See:/ 'loadBalancer' smart constructor.-newtype LoadBalancer = LoadBalancer'-  { _lbName :: Maybe Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'LoadBalancer' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lbName' - The name of the LoadBalancer.-loadBalancer-    :: LoadBalancer-loadBalancer = LoadBalancer' {_lbName = Nothing}----- | The name of the LoadBalancer.-lbName :: Lens' LoadBalancer (Maybe Text)-lbName = lens _lbName (\ s a -> s{_lbName = a});--instance FromXML LoadBalancer where-        parseXML x = LoadBalancer' <$> (x .@? "Name")--instance Hashable LoadBalancer where--instance NFData LoadBalancer where---- | Describes the details of a LoadBalancer.------------ /See:/ 'loadBalancerDescription' smart constructor.-data LoadBalancerDescription = LoadBalancerDescription'-  { _lbdLoadBalancerName :: !(Maybe Text)-  , _lbdDomain           :: !(Maybe Text)-  , _lbdListeners        :: !(Maybe [Listener])-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'LoadBalancerDescription' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lbdLoadBalancerName' - The name of the LoadBalancer.------ * 'lbdDomain' - The domain name of the LoadBalancer.------ * 'lbdListeners' - A list of Listeners used by the LoadBalancer.-loadBalancerDescription-    :: LoadBalancerDescription-loadBalancerDescription =-  LoadBalancerDescription'-  { _lbdLoadBalancerName = Nothing-  , _lbdDomain = Nothing-  , _lbdListeners = Nothing-  }----- | The name of the LoadBalancer.-lbdLoadBalancerName :: Lens' LoadBalancerDescription (Maybe Text)-lbdLoadBalancerName = lens _lbdLoadBalancerName (\ s a -> s{_lbdLoadBalancerName = a});---- | The domain name of the LoadBalancer.-lbdDomain :: Lens' LoadBalancerDescription (Maybe Text)-lbdDomain = lens _lbdDomain (\ s a -> s{_lbdDomain = a});---- | A list of Listeners used by the LoadBalancer.-lbdListeners :: Lens' LoadBalancerDescription [Listener]-lbdListeners = lens _lbdListeners (\ s a -> s{_lbdListeners = a}) . _Default . _Coerce;--instance FromXML LoadBalancerDescription where-        parseXML x-          = LoadBalancerDescription' <$>-              (x .@? "LoadBalancerName") <*> (x .@? "Domain") <*>-                (x .@? "Listeners" .!@ mempty >>=-                   may (parseXMLList "member"))--instance Hashable LoadBalancerDescription where--instance NFData LoadBalancerDescription where---- | The record of an upcoming or in-progress managed action.------------ /See:/ 'managedAction' smart constructor.-data ManagedAction = ManagedAction'-  { _maStatus            :: !(Maybe ActionStatus)-  , _maActionId          :: !(Maybe Text)-  , _maWindowStartTime   :: !(Maybe ISO8601)-  , _maActionDescription :: !(Maybe Text)-  , _maActionType        :: !(Maybe ActionType)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagedAction' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'maStatus' - The status of the managed action. If the action is @Scheduled@ , you can apply it immediately with 'ApplyEnvironmentManagedAction' .------ * 'maActionId' - A unique identifier for the managed action.------ * 'maWindowStartTime' - The start time of the maintenance window in which the managed action will execute.------ * 'maActionDescription' - A description of the managed action.------ * 'maActionType' - The type of managed action.-managedAction-    :: ManagedAction-managedAction =-  ManagedAction'-  { _maStatus = Nothing-  , _maActionId = Nothing-  , _maWindowStartTime = Nothing-  , _maActionDescription = Nothing-  , _maActionType = Nothing-  }----- | The status of the managed action. If the action is @Scheduled@ , you can apply it immediately with 'ApplyEnvironmentManagedAction' .-maStatus :: Lens' ManagedAction (Maybe ActionStatus)-maStatus = lens _maStatus (\ s a -> s{_maStatus = a});---- | A unique identifier for the managed action.-maActionId :: Lens' ManagedAction (Maybe Text)-maActionId = lens _maActionId (\ s a -> s{_maActionId = a});---- | The start time of the maintenance window in which the managed action will execute.-maWindowStartTime :: Lens' ManagedAction (Maybe UTCTime)-maWindowStartTime = lens _maWindowStartTime (\ s a -> s{_maWindowStartTime = a}) . mapping _Time;---- | A description of the managed action.-maActionDescription :: Lens' ManagedAction (Maybe Text)-maActionDescription = lens _maActionDescription (\ s a -> s{_maActionDescription = a});---- | The type of managed action.-maActionType :: Lens' ManagedAction (Maybe ActionType)-maActionType = lens _maActionType (\ s a -> s{_maActionType = a});--instance FromXML ManagedAction where-        parseXML x-          = ManagedAction' <$>-              (x .@? "Status") <*> (x .@? "ActionId") <*>-                (x .@? "WindowStartTime")-                <*> (x .@? "ActionDescription")-                <*> (x .@? "ActionType")--instance Hashable ManagedAction where--instance NFData ManagedAction where---- | The record of a completed or failed managed action.------------ /See:/ 'managedActionHistoryItem' smart constructor.-data ManagedActionHistoryItem = ManagedActionHistoryItem'-  { _mahiStatus             :: !(Maybe ActionHistoryStatus)-  , _mahiFailureType        :: !(Maybe FailureType)-  , _mahiActionId           :: !(Maybe Text)-  , _mahiFailureDescription :: !(Maybe Text)-  , _mahiFinishedTime       :: !(Maybe ISO8601)-  , _mahiActionDescription  :: !(Maybe Text)-  , _mahiExecutedTime       :: !(Maybe ISO8601)-  , _mahiActionType         :: !(Maybe ActionType)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagedActionHistoryItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mahiStatus' - The status of the action.------ * 'mahiFailureType' - If the action failed, the type of failure.------ * 'mahiActionId' - A unique identifier for the managed action.------ * 'mahiFailureDescription' - If the action failed, a description of the failure.------ * 'mahiFinishedTime' - The date and time that the action finished executing.------ * 'mahiActionDescription' - A description of the managed action.------ * 'mahiExecutedTime' - The date and time that the action started executing.------ * 'mahiActionType' - The type of the managed action.-managedActionHistoryItem-    :: ManagedActionHistoryItem-managedActionHistoryItem =-  ManagedActionHistoryItem'-  { _mahiStatus = Nothing-  , _mahiFailureType = Nothing-  , _mahiActionId = Nothing-  , _mahiFailureDescription = Nothing-  , _mahiFinishedTime = Nothing-  , _mahiActionDescription = Nothing-  , _mahiExecutedTime = Nothing-  , _mahiActionType = Nothing-  }----- | The status of the action.-mahiStatus :: Lens' ManagedActionHistoryItem (Maybe ActionHistoryStatus)-mahiStatus = lens _mahiStatus (\ s a -> s{_mahiStatus = a});---- | If the action failed, the type of failure.-mahiFailureType :: Lens' ManagedActionHistoryItem (Maybe FailureType)-mahiFailureType = lens _mahiFailureType (\ s a -> s{_mahiFailureType = a});---- | A unique identifier for the managed action.-mahiActionId :: Lens' ManagedActionHistoryItem (Maybe Text)-mahiActionId = lens _mahiActionId (\ s a -> s{_mahiActionId = a});---- | If the action failed, a description of the failure.-mahiFailureDescription :: Lens' ManagedActionHistoryItem (Maybe Text)-mahiFailureDescription = lens _mahiFailureDescription (\ s a -> s{_mahiFailureDescription = a});---- | The date and time that the action finished executing.-mahiFinishedTime :: Lens' ManagedActionHistoryItem (Maybe UTCTime)-mahiFinishedTime = lens _mahiFinishedTime (\ s a -> s{_mahiFinishedTime = a}) . mapping _Time;---- | A description of the managed action.-mahiActionDescription :: Lens' ManagedActionHistoryItem (Maybe Text)-mahiActionDescription = lens _mahiActionDescription (\ s a -> s{_mahiActionDescription = a});---- | The date and time that the action started executing.-mahiExecutedTime :: Lens' ManagedActionHistoryItem (Maybe UTCTime)-mahiExecutedTime = lens _mahiExecutedTime (\ s a -> s{_mahiExecutedTime = a}) . mapping _Time;---- | The type of the managed action.-mahiActionType :: Lens' ManagedActionHistoryItem (Maybe ActionType)-mahiActionType = lens _mahiActionType (\ s a -> s{_mahiActionType = a});--instance FromXML ManagedActionHistoryItem where-        parseXML x-          = ManagedActionHistoryItem' <$>-              (x .@? "Status") <*> (x .@? "FailureType") <*>-                (x .@? "ActionId")-                <*> (x .@? "FailureDescription")-                <*> (x .@? "FinishedTime")-                <*> (x .@? "ActionDescription")-                <*> (x .@? "ExecutedTime")-                <*> (x .@? "ActionType")--instance Hashable ManagedActionHistoryItem where--instance NFData ManagedActionHistoryItem where---- | A lifecycle rule that deletes application versions after the specified number of days.------------ /See:/ 'maxAgeRule' smart constructor.-data MaxAgeRule = MaxAgeRule'-  { _marDeleteSourceFromS3 :: !(Maybe Bool)-  , _marMaxAgeInDays       :: !(Maybe Int)-  , _marEnabled            :: !Bool-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'MaxAgeRule' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'marDeleteSourceFromS3' - Set to @true@ to delete a version's source bundle from Amazon S3 when Elastic Beanstalk deletes the application version.------ * 'marMaxAgeInDays' - Specify the number of days to retain an application versions.------ * 'marEnabled' - Specify @true@ to apply the rule, or @false@ to disable it.-maxAgeRule-    :: Bool -- ^ 'marEnabled'-    -> MaxAgeRule-maxAgeRule pEnabled_ =-  MaxAgeRule'-  { _marDeleteSourceFromS3 = Nothing-  , _marMaxAgeInDays = Nothing-  , _marEnabled = pEnabled_-  }----- | Set to @true@ to delete a version's source bundle from Amazon S3 when Elastic Beanstalk deletes the application version.-marDeleteSourceFromS3 :: Lens' MaxAgeRule (Maybe Bool)-marDeleteSourceFromS3 = lens _marDeleteSourceFromS3 (\ s a -> s{_marDeleteSourceFromS3 = a});---- | Specify the number of days to retain an application versions.-marMaxAgeInDays :: Lens' MaxAgeRule (Maybe Int)-marMaxAgeInDays = lens _marMaxAgeInDays (\ s a -> s{_marMaxAgeInDays = a});---- | Specify @true@ to apply the rule, or @false@ to disable it.-marEnabled :: Lens' MaxAgeRule Bool-marEnabled = lens _marEnabled (\ s a -> s{_marEnabled = a});--instance FromXML MaxAgeRule where-        parseXML x-          = MaxAgeRule' <$>-              (x .@? "DeleteSourceFromS3") <*>-                (x .@? "MaxAgeInDays")-                <*> (x .@ "Enabled")--instance Hashable MaxAgeRule where--instance NFData MaxAgeRule where--instance ToQuery MaxAgeRule where-        toQuery MaxAgeRule'{..}-          = mconcat-              ["DeleteSourceFromS3" =: _marDeleteSourceFromS3,-               "MaxAgeInDays" =: _marMaxAgeInDays,-               "Enabled" =: _marEnabled]---- | A lifecycle rule that deletes the oldest application version when the maximum count is exceeded.------------ /See:/ 'maxCountRule' smart constructor.-data MaxCountRule = MaxCountRule'-  { _mcrMaxCount           :: !(Maybe Int)-  , _mcrDeleteSourceFromS3 :: !(Maybe Bool)-  , _mcrEnabled            :: !Bool-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'MaxCountRule' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mcrMaxCount' - Specify the maximum number of application versions to retain.------ * 'mcrDeleteSourceFromS3' - Set to @true@ to delete a version's source bundle from Amazon S3 when Elastic Beanstalk deletes the application version.------ * 'mcrEnabled' - Specify @true@ to apply the rule, or @false@ to disable it.-maxCountRule-    :: Bool -- ^ 'mcrEnabled'-    -> MaxCountRule-maxCountRule pEnabled_ =-  MaxCountRule'-  { _mcrMaxCount = Nothing-  , _mcrDeleteSourceFromS3 = Nothing-  , _mcrEnabled = pEnabled_-  }----- | Specify the maximum number of application versions to retain.-mcrMaxCount :: Lens' MaxCountRule (Maybe Int)-mcrMaxCount = lens _mcrMaxCount (\ s a -> s{_mcrMaxCount = a});---- | Set to @true@ to delete a version's source bundle from Amazon S3 when Elastic Beanstalk deletes the application version.-mcrDeleteSourceFromS3 :: Lens' MaxCountRule (Maybe Bool)-mcrDeleteSourceFromS3 = lens _mcrDeleteSourceFromS3 (\ s a -> s{_mcrDeleteSourceFromS3 = a});---- | Specify @true@ to apply the rule, or @false@ to disable it.-mcrEnabled :: Lens' MaxCountRule Bool-mcrEnabled = lens _mcrEnabled (\ s a -> s{_mcrEnabled = a});--instance FromXML MaxCountRule where-        parseXML x-          = MaxCountRule' <$>-              (x .@? "MaxCount") <*> (x .@? "DeleteSourceFromS3")-                <*> (x .@ "Enabled")--instance Hashable MaxCountRule where--instance NFData MaxCountRule where--instance ToQuery MaxCountRule where-        toQuery MaxCountRule'{..}-          = mconcat-              ["MaxCount" =: _mcrMaxCount,-               "DeleteSourceFromS3" =: _mcrDeleteSourceFromS3,-               "Enabled" =: _mcrEnabled]---- | A regular expression representing a restriction on a string configuration option value.------------ /See:/ 'optionRestrictionRegex' smart constructor.-data OptionRestrictionRegex = OptionRestrictionRegex'-  { _orrPattern :: !(Maybe Text)-  , _orrLabel   :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'OptionRestrictionRegex' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'orrPattern' - The regular expression pattern that a string configuration option value with this restriction must match.------ * 'orrLabel' - A unique name representing this regular expression.-optionRestrictionRegex-    :: OptionRestrictionRegex-optionRestrictionRegex =-  OptionRestrictionRegex' {_orrPattern = Nothing, _orrLabel = Nothing}----- | The regular expression pattern that a string configuration option value with this restriction must match.-orrPattern :: Lens' OptionRestrictionRegex (Maybe Text)-orrPattern = lens _orrPattern (\ s a -> s{_orrPattern = a});---- | A unique name representing this regular expression.-orrLabel :: Lens' OptionRestrictionRegex (Maybe Text)-orrLabel = lens _orrLabel (\ s a -> s{_orrLabel = a});--instance FromXML OptionRestrictionRegex where-        parseXML x-          = OptionRestrictionRegex' <$>-              (x .@? "Pattern") <*> (x .@? "Label")--instance Hashable OptionRestrictionRegex where--instance NFData OptionRestrictionRegex where---- | A specification identifying an individual configuration option.------------ /See:/ 'optionSpecification' smart constructor.-data OptionSpecification = OptionSpecification'-  { _osOptionName   :: !(Maybe Text)-  , _osResourceName :: !(Maybe Text)-  , _osNamespace    :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'OptionSpecification' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'osOptionName' - The name of the configuration option.------ * 'osResourceName' - A unique resource name for a time-based scaling configuration option.------ * 'osNamespace' - A unique namespace identifying the option's associated AWS resource.-optionSpecification-    :: OptionSpecification-optionSpecification =-  OptionSpecification'-  {_osOptionName = Nothing, _osResourceName = Nothing, _osNamespace = Nothing}----- | The name of the configuration option.-osOptionName :: Lens' OptionSpecification (Maybe Text)-osOptionName = lens _osOptionName (\ s a -> s{_osOptionName = a});---- | A unique resource name for a time-based scaling configuration option.-osResourceName :: Lens' OptionSpecification (Maybe Text)-osResourceName = lens _osResourceName (\ s a -> s{_osResourceName = a});---- | A unique namespace identifying the option's associated AWS resource.-osNamespace :: Lens' OptionSpecification (Maybe Text)-osNamespace = lens _osNamespace (\ s a -> s{_osNamespace = a});--instance Hashable OptionSpecification where--instance NFData OptionSpecification where--instance ToQuery OptionSpecification where-        toQuery OptionSpecification'{..}-          = mconcat-              ["OptionName" =: _osOptionName,-               "ResourceName" =: _osResourceName,-               "Namespace" =: _osNamespace]---- | Detailed information about a platform.------------ /See:/ 'platformDescription' smart constructor.-data PlatformDescription = PlatformDescription'-  { _pdSupportedAddonList     :: !(Maybe [Text])-  , _pdPlatformCategory       :: !(Maybe Text)-  , _pdPlatformVersion        :: !(Maybe Text)-  , _pdPlatformStatus         :: !(Maybe PlatformStatus)-  , _pdMaintainer             :: !(Maybe Text)-  , _pdPlatformOwner          :: !(Maybe Text)-  , _pdDateUpdated            :: !(Maybe ISO8601)-  , _pdCustomAMIList          :: !(Maybe [CustomAMI])-  , _pdDateCreated            :: !(Maybe ISO8601)-  , _pdOperatingSystemName    :: !(Maybe Text)-  , _pdFrameworks             :: !(Maybe [PlatformFramework])-  , _pdPlatformARN            :: !(Maybe Text)-  , _pdOperatingSystemVersion :: !(Maybe Text)-  , _pdProgrammingLanguages   :: !(Maybe [PlatformProgrammingLanguage])-  , _pdSolutionStackName      :: !(Maybe Text)-  , _pdPlatformName           :: !(Maybe Text)-  , _pdDescription            :: !(Maybe Text)-  , _pdSupportedTierList      :: !(Maybe [Text])-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'PlatformDescription' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pdSupportedAddonList' - The additions supported by the platform.------ * 'pdPlatformCategory' - The category of the platform.------ * 'pdPlatformVersion' - The version of the platform.------ * 'pdPlatformStatus' - The status of the platform.------ * 'pdMaintainer' - Information about the maintainer of the platform.------ * 'pdPlatformOwner' - The AWS account ID of the person who created the platform.------ * 'pdDateUpdated' - The date when the platform was last updated.------ * 'pdCustomAMIList' - The custom AMIs supported by the platform.------ * 'pdDateCreated' - The date when the platform was created.------ * 'pdOperatingSystemName' - The operating system used by the platform.------ * 'pdFrameworks' - The frameworks supported by the platform.------ * 'pdPlatformARN' - The ARN of the platform.------ * 'pdOperatingSystemVersion' - The version of the operating system used by the platform.------ * 'pdProgrammingLanguages' - The programming languages supported by the platform.------ * 'pdSolutionStackName' - The name of the solution stack used by the platform.------ * 'pdPlatformName' - The name of the platform.------ * 'pdDescription' - The description of the platform.------ * 'pdSupportedTierList' - The tiers supported by the platform.-platformDescription-    :: PlatformDescription-platformDescription =-  PlatformDescription'-  { _pdSupportedAddonList = Nothing-  , _pdPlatformCategory = Nothing-  , _pdPlatformVersion = Nothing-  , _pdPlatformStatus = Nothing-  , _pdMaintainer = Nothing-  , _pdPlatformOwner = Nothing-  , _pdDateUpdated = Nothing-  , _pdCustomAMIList = Nothing-  , _pdDateCreated = Nothing-  , _pdOperatingSystemName = Nothing-  , _pdFrameworks = Nothing-  , _pdPlatformARN = Nothing-  , _pdOperatingSystemVersion = Nothing-  , _pdProgrammingLanguages = Nothing-  , _pdSolutionStackName = Nothing-  , _pdPlatformName = Nothing-  , _pdDescription = Nothing-  , _pdSupportedTierList = Nothing-  }----- | The additions supported by the platform.-pdSupportedAddonList :: Lens' PlatformDescription [Text]-pdSupportedAddonList = lens _pdSupportedAddonList (\ s a -> s{_pdSupportedAddonList = a}) . _Default . _Coerce;---- | The category of the platform.-pdPlatformCategory :: Lens' PlatformDescription (Maybe Text)-pdPlatformCategory = lens _pdPlatformCategory (\ s a -> s{_pdPlatformCategory = a});---- | The version of the platform.-pdPlatformVersion :: Lens' PlatformDescription (Maybe Text)-pdPlatformVersion = lens _pdPlatformVersion (\ s a -> s{_pdPlatformVersion = a});---- | The status of the platform.-pdPlatformStatus :: Lens' PlatformDescription (Maybe PlatformStatus)-pdPlatformStatus = lens _pdPlatformStatus (\ s a -> s{_pdPlatformStatus = a});---- | Information about the maintainer of the platform.-pdMaintainer :: Lens' PlatformDescription (Maybe Text)-pdMaintainer = lens _pdMaintainer (\ s a -> s{_pdMaintainer = a});---- | The AWS account ID of the person who created the platform.-pdPlatformOwner :: Lens' PlatformDescription (Maybe Text)-pdPlatformOwner = lens _pdPlatformOwner (\ s a -> s{_pdPlatformOwner = a});---- | The date when the platform was last updated.-pdDateUpdated :: Lens' PlatformDescription (Maybe UTCTime)-pdDateUpdated = lens _pdDateUpdated (\ s a -> s{_pdDateUpdated = a}) . mapping _Time;---- | The custom AMIs supported by the platform.-pdCustomAMIList :: Lens' PlatformDescription [CustomAMI]-pdCustomAMIList = lens _pdCustomAMIList (\ s a -> s{_pdCustomAMIList = a}) . _Default . _Coerce;---- | The date when the platform was created.-pdDateCreated :: Lens' PlatformDescription (Maybe UTCTime)-pdDateCreated = lens _pdDateCreated (\ s a -> s{_pdDateCreated = a}) . mapping _Time;---- | The operating system used by the platform.-pdOperatingSystemName :: Lens' PlatformDescription (Maybe Text)-pdOperatingSystemName = lens _pdOperatingSystemName (\ s a -> s{_pdOperatingSystemName = a});---- | The frameworks supported by the platform.-pdFrameworks :: Lens' PlatformDescription [PlatformFramework]-pdFrameworks = lens _pdFrameworks (\ s a -> s{_pdFrameworks = a}) . _Default . _Coerce;---- | The ARN of the platform.-pdPlatformARN :: Lens' PlatformDescription (Maybe Text)-pdPlatformARN = lens _pdPlatformARN (\ s a -> s{_pdPlatformARN = a});---- | The version of the operating system used by the platform.-pdOperatingSystemVersion :: Lens' PlatformDescription (Maybe Text)-pdOperatingSystemVersion = lens _pdOperatingSystemVersion (\ s a -> s{_pdOperatingSystemVersion = a});---- | The programming languages supported by the platform.-pdProgrammingLanguages :: Lens' PlatformDescription [PlatformProgrammingLanguage]-pdProgrammingLanguages = lens _pdProgrammingLanguages (\ s a -> s{_pdProgrammingLanguages = a}) . _Default . _Coerce;---- | The name of the solution stack used by the platform.-pdSolutionStackName :: Lens' PlatformDescription (Maybe Text)-pdSolutionStackName = lens _pdSolutionStackName (\ s a -> s{_pdSolutionStackName = a});---- | The name of the platform.-pdPlatformName :: Lens' PlatformDescription (Maybe Text)-pdPlatformName = lens _pdPlatformName (\ s a -> s{_pdPlatformName = a});---- | The description of the platform.-pdDescription :: Lens' PlatformDescription (Maybe Text)-pdDescription = lens _pdDescription (\ s a -> s{_pdDescription = a});---- | The tiers supported by the platform.-pdSupportedTierList :: Lens' PlatformDescription [Text]-pdSupportedTierList = lens _pdSupportedTierList (\ s a -> s{_pdSupportedTierList = a}) . _Default . _Coerce;--instance FromXML PlatformDescription where-        parseXML x-          = PlatformDescription' <$>-              (x .@? "SupportedAddonList" .!@ mempty >>=-                 may (parseXMLList "member"))-                <*> (x .@? "PlatformCategory")-                <*> (x .@? "PlatformVersion")-                <*> (x .@? "PlatformStatus")-                <*> (x .@? "Maintainer")-                <*> (x .@? "PlatformOwner")-                <*> (x .@? "DateUpdated")-                <*>-                (x .@? "CustomAmiList" .!@ mempty >>=-                   may (parseXMLList "member"))-                <*> (x .@? "DateCreated")-                <*> (x .@? "OperatingSystemName")-                <*>-                (x .@? "Frameworks" .!@ mempty >>=-                   may (parseXMLList "member"))-                <*> (x .@? "PlatformArn")-                <*> (x .@? "OperatingSystemVersion")-                <*>-                (x .@? "ProgrammingLanguages" .!@ mempty >>=-                   may (parseXMLList "member"))-                <*> (x .@? "SolutionStackName")-                <*> (x .@? "PlatformName")-                <*> (x .@? "Description")-                <*>-                (x .@? "SupportedTierList" .!@ mempty >>=-                   may (parseXMLList "member"))--instance Hashable PlatformDescription where--instance NFData PlatformDescription where---- | Specify criteria to restrict the results when listing custom platforms.--------- The filter is evaluated as the expression:------ @Type@ @Operator@ @Values[i]@--------- /See:/ 'platformFilter' smart constructor.-data PlatformFilter = PlatformFilter'-  { _pfValues   :: !(Maybe [Text])-  , _pfOperator :: !(Maybe Text)-  , _pfType     :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'PlatformFilter' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pfValues' - The list of values applied to the custom platform attribute.------ * 'pfOperator' - The operator to apply to the @Type@ with each of the @Values@ . Valid Values: @=@ (equal to) | @!=@ (not equal to) | @<@ (less than) | @<=@ (less than or equal to) | @>@ (greater than) | @>=@ (greater than or equal to) | @contains@ | @begins_with@ | @ends_with@------ * 'pfType' - The custom platform attribute to which the filter values are applied. Valid Values: @PlatformName@ | @PlatformVersion@ | @PlatformStatus@ | @PlatformOwner@-platformFilter-    :: PlatformFilter-platformFilter =-  PlatformFilter'-  {_pfValues = Nothing, _pfOperator = Nothing, _pfType = Nothing}----- | The list of values applied to the custom platform attribute.-pfValues :: Lens' PlatformFilter [Text]-pfValues = lens _pfValues (\ s a -> s{_pfValues = a}) . _Default . _Coerce;---- | The operator to apply to the @Type@ with each of the @Values@ . Valid Values: @=@ (equal to) | @!=@ (not equal to) | @<@ (less than) | @<=@ (less than or equal to) | @>@ (greater than) | @>=@ (greater than or equal to) | @contains@ | @begins_with@ | @ends_with@-pfOperator :: Lens' PlatformFilter (Maybe Text)-pfOperator = lens _pfOperator (\ s a -> s{_pfOperator = a});---- | The custom platform attribute to which the filter values are applied. Valid Values: @PlatformName@ | @PlatformVersion@ | @PlatformStatus@ | @PlatformOwner@-pfType :: Lens' PlatformFilter (Maybe Text)-pfType = lens _pfType (\ s a -> s{_pfType = a});--instance Hashable PlatformFilter where--instance NFData PlatformFilter where--instance ToQuery PlatformFilter where-        toQuery PlatformFilter'{..}-          = mconcat-              ["Values" =:-                 toQuery (toQueryList "member" <$> _pfValues),-               "Operator" =: _pfOperator, "Type" =: _pfType]---- | A framework supported by the custom platform.------------ /See:/ 'platformFramework' smart constructor.-data PlatformFramework = PlatformFramework'-  { _pfName    :: !(Maybe Text)-  , _pfVersion :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'PlatformFramework' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pfName' - The name of the framework.------ * 'pfVersion' - The version of the framework.-platformFramework-    :: PlatformFramework-platformFramework = PlatformFramework' {_pfName = Nothing, _pfVersion = Nothing}----- | The name of the framework.-pfName :: Lens' PlatformFramework (Maybe Text)-pfName = lens _pfName (\ s a -> s{_pfName = a});---- | The version of the framework.-pfVersion :: Lens' PlatformFramework (Maybe Text)-pfVersion = lens _pfVersion (\ s a -> s{_pfVersion = a});--instance FromXML PlatformFramework where-        parseXML x-          = PlatformFramework' <$>-              (x .@? "Name") <*> (x .@? "Version")--instance Hashable PlatformFramework where--instance NFData PlatformFramework where---- | A programming language supported by the platform.------------ /See:/ 'platformProgrammingLanguage' smart constructor.-data PlatformProgrammingLanguage = PlatformProgrammingLanguage'-  { _pplName    :: !(Maybe Text)-  , _pplVersion :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'PlatformProgrammingLanguage' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pplName' - The name of the programming language.------ * 'pplVersion' - The version of the programming language.-platformProgrammingLanguage-    :: PlatformProgrammingLanguage-platformProgrammingLanguage =-  PlatformProgrammingLanguage' {_pplName = Nothing, _pplVersion = Nothing}----- | The name of the programming language.-pplName :: Lens' PlatformProgrammingLanguage (Maybe Text)-pplName = lens _pplName (\ s a -> s{_pplName = a});---- | The version of the programming language.-pplVersion :: Lens' PlatformProgrammingLanguage (Maybe Text)-pplVersion = lens _pplVersion (\ s a -> s{_pplVersion = a});--instance FromXML PlatformProgrammingLanguage where-        parseXML x-          = PlatformProgrammingLanguage' <$>-              (x .@? "Name") <*> (x .@? "Version")--instance Hashable PlatformProgrammingLanguage where--instance NFData PlatformProgrammingLanguage where---- | Detailed information about a platform.------------ /See:/ 'platformSummary' smart constructor.-data PlatformSummary = PlatformSummary'-  { _psSupportedAddonList     :: !(Maybe [Text])-  , _psPlatformCategory       :: !(Maybe Text)-  , _psPlatformStatus         :: !(Maybe PlatformStatus)-  , _psPlatformOwner          :: !(Maybe Text)-  , _psOperatingSystemName    :: !(Maybe Text)-  , _psPlatformARN            :: !(Maybe Text)-  , _psOperatingSystemVersion :: !(Maybe Text)-  , _psSupportedTierList      :: !(Maybe [Text])-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'PlatformSummary' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'psSupportedAddonList' - The additions associated with the platform.------ * 'psPlatformCategory' - The category of platform.------ * 'psPlatformStatus' - The status of the platform. You can create an environment from the platform once it is ready.------ * 'psPlatformOwner' - The AWS account ID of the person who created the platform.------ * 'psOperatingSystemName' - The operating system used by the platform.------ * 'psPlatformARN' - The ARN of the platform.------ * 'psOperatingSystemVersion' - The version of the operating system used by the platform.------ * 'psSupportedTierList' - The tiers in which the platform runs.-platformSummary-    :: PlatformSummary-platformSummary =-  PlatformSummary'-  { _psSupportedAddonList = Nothing-  , _psPlatformCategory = Nothing-  , _psPlatformStatus = Nothing-  , _psPlatformOwner = Nothing-  , _psOperatingSystemName = Nothing-  , _psPlatformARN = Nothing-  , _psOperatingSystemVersion = Nothing-  , _psSupportedTierList = Nothing-  }----- | The additions associated with the platform.-psSupportedAddonList :: Lens' PlatformSummary [Text]-psSupportedAddonList = lens _psSupportedAddonList (\ s a -> s{_psSupportedAddonList = a}) . _Default . _Coerce;---- | The category of platform.-psPlatformCategory :: Lens' PlatformSummary (Maybe Text)-psPlatformCategory = lens _psPlatformCategory (\ s a -> s{_psPlatformCategory = a});---- | The status of the platform. You can create an environment from the platform once it is ready.-psPlatformStatus :: Lens' PlatformSummary (Maybe PlatformStatus)-psPlatformStatus = lens _psPlatformStatus (\ s a -> s{_psPlatformStatus = a});---- | The AWS account ID of the person who created the platform.-psPlatformOwner :: Lens' PlatformSummary (Maybe Text)-psPlatformOwner = lens _psPlatformOwner (\ s a -> s{_psPlatformOwner = a});---- | The operating system used by the platform.-psOperatingSystemName :: Lens' PlatformSummary (Maybe Text)-psOperatingSystemName = lens _psOperatingSystemName (\ s a -> s{_psOperatingSystemName = a});---- | The ARN of the platform.-psPlatformARN :: Lens' PlatformSummary (Maybe Text)-psPlatformARN = lens _psPlatformARN (\ s a -> s{_psPlatformARN = a});---- | The version of the operating system used by the platform.-psOperatingSystemVersion :: Lens' PlatformSummary (Maybe Text)-psOperatingSystemVersion = lens _psOperatingSystemVersion (\ s a -> s{_psOperatingSystemVersion = a});---- | The tiers in which the platform runs.-psSupportedTierList :: Lens' PlatformSummary [Text]-psSupportedTierList = lens _psSupportedTierList (\ s a -> s{_psSupportedTierList = a}) . _Default . _Coerce;--instance FromXML PlatformSummary where-        parseXML x-          = PlatformSummary' <$>-              (x .@? "SupportedAddonList" .!@ mempty >>=-                 may (parseXMLList "member"))-                <*> (x .@? "PlatformCategory")-                <*> (x .@? "PlatformStatus")-                <*> (x .@? "PlatformOwner")-                <*> (x .@? "OperatingSystemName")-                <*> (x .@? "PlatformArn")-                <*> (x .@? "OperatingSystemVersion")-                <*>-                (x .@? "SupportedTierList" .!@ mempty >>=-                   may (parseXMLList "member"))--instance Hashable PlatformSummary where--instance NFData PlatformSummary where---- | Describes a queue.------------ /See:/ 'queue' smart constructor.-data Queue = Queue'-  { _qURL  :: !(Maybe Text)-  , _qName :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Queue' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'qURL' - The URL of the queue.------ * 'qName' - The name of the queue.-queue-    :: Queue-queue = Queue' {_qURL = Nothing, _qName = Nothing}----- | The URL of the queue.-qURL :: Lens' Queue (Maybe Text)-qURL = lens _qURL (\ s a -> s{_qURL = a});---- | The name of the queue.-qName :: Lens' Queue (Maybe Text)-qName = lens _qName (\ s a -> s{_qName = a});--instance FromXML Queue where-        parseXML x-          = Queue' <$> (x .@? "URL") <*> (x .@? "Name")--instance Hashable Queue where--instance NFData Queue where---- | The bucket and key of an item stored in Amazon S3.------------ /See:/ 's3Location' smart constructor.-data S3Location = S3Location'-  { _slS3Key    :: !(Maybe Text)-  , _slS3Bucket :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'S3Location' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'slS3Key' - The Amazon S3 key where the data is located.------ * 'slS3Bucket' - The Amazon S3 bucket where the data is located.-s3Location-    :: S3Location-s3Location = S3Location' {_slS3Key = Nothing, _slS3Bucket = Nothing}----- | The Amazon S3 key where the data is located.-slS3Key :: Lens' S3Location (Maybe Text)-slS3Key = lens _slS3Key (\ s a -> s{_slS3Key = a});---- | The Amazon S3 bucket where the data is located.-slS3Bucket :: Lens' S3Location (Maybe Text)-slS3Bucket = lens _slS3Bucket (\ s a -> s{_slS3Bucket = a});--instance FromXML S3Location where-        parseXML x-          = S3Location' <$>-              (x .@? "S3Key") <*> (x .@? "S3Bucket")--instance Hashable S3Location where--instance NFData S3Location where--instance ToQuery S3Location where-        toQuery S3Location'{..}-          = mconcat-              ["S3Key" =: _slS3Key, "S3Bucket" =: _slS3Bucket]---- | Detailed health information about an Amazon EC2 instance in your Elastic Beanstalk environment.------------ /See:/ 'singleInstanceHealth' smart constructor.-data SingleInstanceHealth = SingleInstanceHealth'-  { _sihInstanceId         :: !(Maybe Text)-  , _sihCauses             :: !(Maybe [Text])-  , _sihSystem             :: !(Maybe SystemStatus)-  , _sihApplicationMetrics :: !(Maybe ApplicationMetrics)-  , _sihColor              :: !(Maybe Text)-  , _sihInstanceType       :: !(Maybe Text)-  , _sihAvailabilityZone   :: !(Maybe Text)-  , _sihHealthStatus       :: !(Maybe Text)-  , _sihDeployment         :: !(Maybe Deployment)-  , _sihLaunchedAt         :: !(Maybe ISO8601)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'SingleInstanceHealth' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sihInstanceId' - The ID of the Amazon EC2 instance.------ * 'sihCauses' - Represents the causes, which provide more information about the current health status.------ * 'sihSystem' - Operating system metrics from the instance.------ * 'sihApplicationMetrics' - Request metrics from your application.------ * 'sihColor' - Represents the color indicator that gives you information about the health of the EC2 instance. For more information, see <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/health-enhanced-status.html Health Colors and Statuses> .------ * 'sihInstanceType' - The instance's type.------ * 'sihAvailabilityZone' - The availability zone in which the instance runs.------ * 'sihHealthStatus' - Returns the health status of the specified instance. For more information, see <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/health-enhanced-status.html Health Colors and Statuses> .------ * 'sihDeployment' - Information about the most recent deployment to an instance.------ * 'sihLaunchedAt' - The time at which the EC2 instance was launched.-singleInstanceHealth-    :: SingleInstanceHealth-singleInstanceHealth =-  SingleInstanceHealth'-  { _sihInstanceId = Nothing-  , _sihCauses = Nothing-  , _sihSystem = Nothing-  , _sihApplicationMetrics = Nothing-  , _sihColor = Nothing-  , _sihInstanceType = Nothing-  , _sihAvailabilityZone = Nothing-  , _sihHealthStatus = Nothing-  , _sihDeployment = Nothing-  , _sihLaunchedAt = Nothing-  }----- | The ID of the Amazon EC2 instance.-sihInstanceId :: Lens' SingleInstanceHealth (Maybe Text)-sihInstanceId = lens _sihInstanceId (\ s a -> s{_sihInstanceId = a});---- | Represents the causes, which provide more information about the current health status.-sihCauses :: Lens' SingleInstanceHealth [Text]-sihCauses = lens _sihCauses (\ s a -> s{_sihCauses = a}) . _Default . _Coerce;---- | Operating system metrics from the instance.-sihSystem :: Lens' SingleInstanceHealth (Maybe SystemStatus)-sihSystem = lens _sihSystem (\ s a -> s{_sihSystem = a});---- | Request metrics from your application.-sihApplicationMetrics :: Lens' SingleInstanceHealth (Maybe ApplicationMetrics)-sihApplicationMetrics = lens _sihApplicationMetrics (\ s a -> s{_sihApplicationMetrics = a});---- | Represents the color indicator that gives you information about the health of the EC2 instance. For more information, see <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/health-enhanced-status.html Health Colors and Statuses> .-sihColor :: Lens' SingleInstanceHealth (Maybe Text)-sihColor = lens _sihColor (\ s a -> s{_sihColor = a});---- | The instance's type.-sihInstanceType :: Lens' SingleInstanceHealth (Maybe Text)-sihInstanceType = lens _sihInstanceType (\ s a -> s{_sihInstanceType = a});---- | The availability zone in which the instance runs.-sihAvailabilityZone :: Lens' SingleInstanceHealth (Maybe Text)-sihAvailabilityZone = lens _sihAvailabilityZone (\ s a -> s{_sihAvailabilityZone = a});---- | Returns the health status of the specified instance. For more information, see <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/health-enhanced-status.html Health Colors and Statuses> .-sihHealthStatus :: Lens' SingleInstanceHealth (Maybe Text)-sihHealthStatus = lens _sihHealthStatus (\ s a -> s{_sihHealthStatus = a});---- | Information about the most recent deployment to an instance.-sihDeployment :: Lens' SingleInstanceHealth (Maybe Deployment)-sihDeployment = lens _sihDeployment (\ s a -> s{_sihDeployment = a});---- | The time at which the EC2 instance was launched.-sihLaunchedAt :: Lens' SingleInstanceHealth (Maybe UTCTime)-sihLaunchedAt = lens _sihLaunchedAt (\ s a -> s{_sihLaunchedAt = a}) . mapping _Time;--instance FromXML SingleInstanceHealth where-        parseXML x-          = SingleInstanceHealth' <$>-              (x .@? "InstanceId") <*>-                (x .@? "Causes" .!@ mempty >>=-                   may (parseXMLList "member"))-                <*> (x .@? "System")-                <*> (x .@? "ApplicationMetrics")-                <*> (x .@? "Color")-                <*> (x .@? "InstanceType")-                <*> (x .@? "AvailabilityZone")-                <*> (x .@? "HealthStatus")-                <*> (x .@? "Deployment")-                <*> (x .@? "LaunchedAt")--instance Hashable SingleInstanceHealth where--instance NFData SingleInstanceHealth where---- | Describes the solution stack.------------ /See:/ 'solutionStackDescription' smart constructor.-data SolutionStackDescription = SolutionStackDescription'-  { _ssdPermittedFileTypes :: !(Maybe [Text])-  , _ssdSolutionStackName  :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'SolutionStackDescription' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ssdPermittedFileTypes' - The permitted file types allowed for a solution stack.------ * 'ssdSolutionStackName' - The name of the solution stack.-solutionStackDescription-    :: SolutionStackDescription-solutionStackDescription =-  SolutionStackDescription'-  {_ssdPermittedFileTypes = Nothing, _ssdSolutionStackName = Nothing}----- | The permitted file types allowed for a solution stack.-ssdPermittedFileTypes :: Lens' SolutionStackDescription [Text]-ssdPermittedFileTypes = lens _ssdPermittedFileTypes (\ s a -> s{_ssdPermittedFileTypes = a}) . _Default . _Coerce;---- | The name of the solution stack.-ssdSolutionStackName :: Lens' SolutionStackDescription (Maybe Text)-ssdSolutionStackName = lens _ssdSolutionStackName (\ s a -> s{_ssdSolutionStackName = a});--instance FromXML SolutionStackDescription where-        parseXML x-          = SolutionStackDescription' <$>-              (x .@? "PermittedFileTypes" .!@ mempty >>=-                 may (parseXMLList "member"))-                <*> (x .@? "SolutionStackName")--instance Hashable SolutionStackDescription where--instance NFData SolutionStackDescription where---- | Location of the source code for an application version.------------ /See:/ 'sourceBuildInformation' smart constructor.-data SourceBuildInformation = SourceBuildInformation'-  { _sbiSourceType       :: !SourceType-  , _sbiSourceRepository :: !SourceRepository-  , _sbiSourceLocation   :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'SourceBuildInformation' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sbiSourceType' - The type of repository.     * @Git@      * @Zip@------ * 'sbiSourceRepository' - Location where the repository is stored.     * @CodeCommit@      * @S3@------ * 'sbiSourceLocation' - The location of the source code, as a formatted string, depending on the value of @SourceRepository@      * For @CodeCommit@ , the format is the repository name and commit ID, separated by a forward slash. For example, @my-git-repo/265cfa0cf6af46153527f55d6503ec030551f57a@ .     * For @S3@ , the format is the S3 bucket name and object key, separated by a forward slash. For example, @my-s3-bucket/Folders/my-source-file@ .-sourceBuildInformation-    :: SourceType -- ^ 'sbiSourceType'-    -> SourceRepository -- ^ 'sbiSourceRepository'-    -> Text -- ^ 'sbiSourceLocation'-    -> SourceBuildInformation-sourceBuildInformation pSourceType_ pSourceRepository_ pSourceLocation_ =-  SourceBuildInformation'-  { _sbiSourceType = pSourceType_-  , _sbiSourceRepository = pSourceRepository_-  , _sbiSourceLocation = pSourceLocation_-  }----- | The type of repository.     * @Git@      * @Zip@-sbiSourceType :: Lens' SourceBuildInformation SourceType-sbiSourceType = lens _sbiSourceType (\ s a -> s{_sbiSourceType = a});---- | Location where the repository is stored.     * @CodeCommit@      * @S3@-sbiSourceRepository :: Lens' SourceBuildInformation SourceRepository-sbiSourceRepository = lens _sbiSourceRepository (\ s a -> s{_sbiSourceRepository = a});---- | The location of the source code, as a formatted string, depending on the value of @SourceRepository@      * For @CodeCommit@ , the format is the repository name and commit ID, separated by a forward slash. For example, @my-git-repo/265cfa0cf6af46153527f55d6503ec030551f57a@ .     * For @S3@ , the format is the S3 bucket name and object key, separated by a forward slash. For example, @my-s3-bucket/Folders/my-source-file@ .-sbiSourceLocation :: Lens' SourceBuildInformation Text-sbiSourceLocation = lens _sbiSourceLocation (\ s a -> s{_sbiSourceLocation = a});--instance FromXML SourceBuildInformation where-        parseXML x-          = SourceBuildInformation' <$>-              (x .@ "SourceType") <*> (x .@ "SourceRepository") <*>-                (x .@ "SourceLocation")--instance Hashable SourceBuildInformation where--instance NFData SourceBuildInformation where--instance ToQuery SourceBuildInformation where-        toQuery SourceBuildInformation'{..}-          = mconcat-              ["SourceType" =: _sbiSourceType,-               "SourceRepository" =: _sbiSourceRepository,-               "SourceLocation" =: _sbiSourceLocation]---- | A specification for an environment configuration------------ /See:/ 'sourceConfiguration' smart constructor.-data SourceConfiguration = SourceConfiguration'-  { _scTemplateName    :: !(Maybe Text)-  , _scApplicationName :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'SourceConfiguration' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'scTemplateName' - The name of the configuration template.------ * 'scApplicationName' - The name of the application associated with the configuration.-sourceConfiguration-    :: SourceConfiguration-sourceConfiguration =-  SourceConfiguration' {_scTemplateName = Nothing, _scApplicationName = Nothing}----- | The name of the configuration template.-scTemplateName :: Lens' SourceConfiguration (Maybe Text)-scTemplateName = lens _scTemplateName (\ s a -> s{_scTemplateName = a});---- | The name of the application associated with the configuration.-scApplicationName :: Lens' SourceConfiguration (Maybe Text)-scApplicationName = lens _scApplicationName (\ s a -> s{_scApplicationName = a});--instance Hashable SourceConfiguration where--instance NFData SourceConfiguration where--instance ToQuery SourceConfiguration where-        toQuery SourceConfiguration'{..}-          = mconcat-              ["TemplateName" =: _scTemplateName,-               "ApplicationName" =: _scApplicationName]---- | Represents the percentage of requests over the last 10 seconds that resulted in each type of status code response. For more information, see <http://www.w3.org/Protocols/rfc2616/rfc2616-sec10.html Status Code Definitions> .------------ /See:/ 'statusCodes' smart constructor.-data StatusCodes = StatusCodes'-  { _scStatus2xx :: !(Maybe Int)-  , _scStatus3xx :: !(Maybe Int)-  , _scStatus4xx :: !(Maybe Int)-  , _scStatus5xx :: !(Maybe Int)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'StatusCodes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'scStatus2xx' - The percentage of requests over the last 10 seconds that resulted in a 2xx (200, 201, etc.) status code.------ * 'scStatus3xx' - The percentage of requests over the last 10 seconds that resulted in a 3xx (300, 301, etc.) status code.------ * 'scStatus4xx' - The percentage of requests over the last 10 seconds that resulted in a 4xx (400, 401, etc.) status code.------ * 'scStatus5xx' - The percentage of requests over the last 10 seconds that resulted in a 5xx (500, 501, etc.) status code.-statusCodes-    :: StatusCodes-statusCodes =-  StatusCodes'-  { _scStatus2xx = Nothing-  , _scStatus3xx = Nothing-  , _scStatus4xx = Nothing-  , _scStatus5xx = Nothing-  }----- | The percentage of requests over the last 10 seconds that resulted in a 2xx (200, 201, etc.) status code.-scStatus2xx :: Lens' StatusCodes (Maybe Int)-scStatus2xx = lens _scStatus2xx (\ s a -> s{_scStatus2xx = a});---- | The percentage of requests over the last 10 seconds that resulted in a 3xx (300, 301, etc.) status code.-scStatus3xx :: Lens' StatusCodes (Maybe Int)-scStatus3xx = lens _scStatus3xx (\ s a -> s{_scStatus3xx = a});---- | The percentage of requests over the last 10 seconds that resulted in a 4xx (400, 401, etc.) status code.-scStatus4xx :: Lens' StatusCodes (Maybe Int)-scStatus4xx = lens _scStatus4xx (\ s a -> s{_scStatus4xx = a});---- | The percentage of requests over the last 10 seconds that resulted in a 5xx (500, 501, etc.) status code.-scStatus5xx :: Lens' StatusCodes (Maybe Int)-scStatus5xx = lens _scStatus5xx (\ s a -> s{_scStatus5xx = a});--instance FromXML StatusCodes where-        parseXML x-          = StatusCodes' <$>-              (x .@? "Status2xx") <*> (x .@? "Status3xx") <*>-                (x .@? "Status4xx")-                <*> (x .@? "Status5xx")--instance Hashable StatusCodes where--instance NFData StatusCodes where---- | CPU utilization and load average metrics for an Amazon EC2 instance.------------ /See:/ 'systemStatus' smart constructor.-data SystemStatus = SystemStatus'-  { _ssCPUUtilization :: !(Maybe CPUUtilization)-  , _ssLoadAverage    :: !(Maybe [Double])-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'SystemStatus' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ssCPUUtilization' - CPU utilization metrics for the instance.------ * 'ssLoadAverage' - Load average in the last 1-minute, 5-minute, and 15-minute periods. For more information, see <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/health-enhanced-metrics.html#health-enhanced-metrics-os Operating System Metrics> .-systemStatus-    :: SystemStatus-systemStatus =-  SystemStatus' {_ssCPUUtilization = Nothing, _ssLoadAverage = Nothing}----- | CPU utilization metrics for the instance.-ssCPUUtilization :: Lens' SystemStatus (Maybe CPUUtilization)-ssCPUUtilization = lens _ssCPUUtilization (\ s a -> s{_ssCPUUtilization = a});---- | Load average in the last 1-minute, 5-minute, and 15-minute periods. For more information, see <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/health-enhanced-metrics.html#health-enhanced-metrics-os Operating System Metrics> .-ssLoadAverage :: Lens' SystemStatus [Double]-ssLoadAverage = lens _ssLoadAverage (\ s a -> s{_ssLoadAverage = a}) . _Default . _Coerce;--instance FromXML SystemStatus where-        parseXML x-          = SystemStatus' <$>-              (x .@? "CPUUtilization") <*>-                (x .@? "LoadAverage" .!@ mempty >>=-                   may (parseXMLList "member"))--instance Hashable SystemStatus where--instance NFData SystemStatus where---- | Describes a tag applied to a resource in an environment.------------ /See:/ 'tag' smart constructor.-data Tag = Tag'-  { _tagValue :: !(Maybe Text)-  , _tagKey   :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Tag' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tagValue' - The value of the tag.------ * 'tagKey' - The key of the tag.-tag-    :: Tag-tag = Tag' {_tagValue = Nothing, _tagKey = Nothing}----- | The value of the tag.-tagValue :: Lens' Tag (Maybe Text)-tagValue = lens _tagValue (\ s a -> s{_tagValue = a});---- | The key of the tag.-tagKey :: Lens' Tag (Maybe Text)-tagKey = lens _tagKey (\ s a -> s{_tagKey = a});--instance FromXML Tag where-        parseXML x-          = Tag' <$> (x .@? "Value") <*> (x .@? "Key")--instance Hashable Tag where--instance NFData Tag where--instance ToQuery Tag where-        toQuery Tag'{..}-          = mconcat ["Value" =: _tagValue, "Key" =: _tagKey]---- | Describes a trigger.------------ /See:/ 'trigger' smart constructor.-newtype Trigger = Trigger'-  { _tName :: Maybe Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Trigger' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tName' - The name of the trigger.-trigger-    :: Trigger-trigger = Trigger' {_tName = Nothing}----- | The name of the trigger.-tName :: Lens' Trigger (Maybe Text)-tName = lens _tName (\ s a -> s{_tName = a});--instance FromXML Trigger where-        parseXML x = Trigger' <$> (x .@? "Name")--instance Hashable Trigger where--instance NFData Trigger where---- | An error or warning for a desired configuration option value.------------ /See:/ 'validationMessage' smart constructor.-data ValidationMessage = ValidationMessage'-  { _vmOptionName :: !(Maybe Text)-  , _vmSeverity   :: !(Maybe ValidationSeverity)-  , _vmNamespace  :: !(Maybe Text)-  , _vmMessage    :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ValidationMessage' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vmOptionName' - The name of the option.------ * 'vmSeverity' - An indication of the severity of this message:     * @error@ : This message indicates that this is not a valid setting for an option.     * @warning@ : This message is providing information you should take into account.------ * 'vmNamespace' - The namespace to which the option belongs.------ * 'vmMessage' - A message describing the error or warning.-validationMessage-    :: ValidationMessage-validationMessage =-  ValidationMessage'-  { _vmOptionName = Nothing-  , _vmSeverity = Nothing-  , _vmNamespace = Nothing-  , _vmMessage = Nothing-  }----- | The name of the option.-vmOptionName :: Lens' ValidationMessage (Maybe Text)-vmOptionName = lens _vmOptionName (\ s a -> s{_vmOptionName = a});---- | An indication of the severity of this message:     * @error@ : This message indicates that this is not a valid setting for an option.     * @warning@ : This message is providing information you should take into account.-vmSeverity :: Lens' ValidationMessage (Maybe ValidationSeverity)-vmSeverity = lens _vmSeverity (\ s a -> s{_vmSeverity = a});---- | The namespace to which the option belongs.-vmNamespace :: Lens' ValidationMessage (Maybe Text)-vmNamespace = lens _vmNamespace (\ s a -> s{_vmNamespace = a});---- | A message describing the error or warning.-vmMessage :: Lens' ValidationMessage (Maybe Text)-vmMessage = lens _vmMessage (\ s a -> s{_vmMessage = a});+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Network.AWS.ElasticBeanstalk.Types.Product where++import Network.AWS.ElasticBeanstalk.Types.Sum+import Network.AWS.Lens+import Network.AWS.Prelude++-- | Describes the properties of an application.+--+--+--+-- /See:/ 'applicationDescription' smart constructor.+data ApplicationDescription = ApplicationDescription'+  { _adApplicationARN          :: !(Maybe Text)+  , _adVersions                :: !(Maybe [Text])+  , _adDateUpdated             :: !(Maybe ISO8601)+  , _adDateCreated             :: !(Maybe ISO8601)+  , _adApplicationName         :: !(Maybe Text)+  , _adConfigurationTemplates  :: !(Maybe [Text])+  , _adResourceLifecycleConfig :: !(Maybe ApplicationResourceLifecycleConfig)+  , _adDescription             :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ApplicationDescription' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'adApplicationARN' - The Amazon Resource Name (ARN) of the application.+--+-- * 'adVersions' - The names of the versions for this application.+--+-- * 'adDateUpdated' - The date when the application was last modified.+--+-- * 'adDateCreated' - The date when the application was created.+--+-- * 'adApplicationName' - The name of the application.+--+-- * 'adConfigurationTemplates' - The names of the configuration templates associated with this application.+--+-- * 'adResourceLifecycleConfig' - The lifecycle settings for the application.+--+-- * 'adDescription' - User-defined description of the application.+applicationDescription+    :: ApplicationDescription+applicationDescription =+  ApplicationDescription'+    { _adApplicationARN = Nothing+    , _adVersions = Nothing+    , _adDateUpdated = Nothing+    , _adDateCreated = Nothing+    , _adApplicationName = Nothing+    , _adConfigurationTemplates = Nothing+    , _adResourceLifecycleConfig = Nothing+    , _adDescription = Nothing+    }+++-- | The Amazon Resource Name (ARN) of the application.+adApplicationARN :: Lens' ApplicationDescription (Maybe Text)+adApplicationARN = lens _adApplicationARN (\ s a -> s{_adApplicationARN = a})++-- | The names of the versions for this application.+adVersions :: Lens' ApplicationDescription [Text]+adVersions = lens _adVersions (\ s a -> s{_adVersions = a}) . _Default . _Coerce++-- | The date when the application was last modified.+adDateUpdated :: Lens' ApplicationDescription (Maybe UTCTime)+adDateUpdated = lens _adDateUpdated (\ s a -> s{_adDateUpdated = a}) . mapping _Time++-- | The date when the application was created.+adDateCreated :: Lens' ApplicationDescription (Maybe UTCTime)+adDateCreated = lens _adDateCreated (\ s a -> s{_adDateCreated = a}) . mapping _Time++-- | The name of the application.+adApplicationName :: Lens' ApplicationDescription (Maybe Text)+adApplicationName = lens _adApplicationName (\ s a -> s{_adApplicationName = a})++-- | The names of the configuration templates associated with this application.+adConfigurationTemplates :: Lens' ApplicationDescription [Text]+adConfigurationTemplates = lens _adConfigurationTemplates (\ s a -> s{_adConfigurationTemplates = a}) . _Default . _Coerce++-- | The lifecycle settings for the application.+adResourceLifecycleConfig :: Lens' ApplicationDescription (Maybe ApplicationResourceLifecycleConfig)+adResourceLifecycleConfig = lens _adResourceLifecycleConfig (\ s a -> s{_adResourceLifecycleConfig = a})++-- | User-defined description of the application.+adDescription :: Lens' ApplicationDescription (Maybe Text)+adDescription = lens _adDescription (\ s a -> s{_adDescription = a})++instance FromXML ApplicationDescription where+        parseXML x+          = ApplicationDescription' <$>+              (x .@? "ApplicationArn") <*>+                (x .@? "Versions" .!@ mempty >>=+                   may (parseXMLList "member"))+                <*> (x .@? "DateUpdated")+                <*> (x .@? "DateCreated")+                <*> (x .@? "ApplicationName")+                <*>+                (x .@? "ConfigurationTemplates" .!@ mempty >>=+                   may (parseXMLList "member"))+                <*> (x .@? "ResourceLifecycleConfig")+                <*> (x .@? "Description")++instance Hashable ApplicationDescription where++instance NFData ApplicationDescription where++-- | Result message containing a single description of an application.+--+--+--+-- /See:/ 'applicationDescriptionMessage' smart constructor.+newtype ApplicationDescriptionMessage = ApplicationDescriptionMessage'+  { _admApplication :: Maybe ApplicationDescription+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ApplicationDescriptionMessage' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'admApplication' - The 'ApplicationDescription' of the application.+applicationDescriptionMessage+    :: ApplicationDescriptionMessage+applicationDescriptionMessage =+  ApplicationDescriptionMessage' {_admApplication = Nothing}+++-- | The 'ApplicationDescription' of the application.+admApplication :: Lens' ApplicationDescriptionMessage (Maybe ApplicationDescription)+admApplication = lens _admApplication (\ s a -> s{_admApplication = a})++instance FromXML ApplicationDescriptionMessage where+        parseXML x+          = ApplicationDescriptionMessage' <$>+              (x .@? "Application")++instance Hashable ApplicationDescriptionMessage where++instance NFData ApplicationDescriptionMessage where++-- | Application request metrics for an AWS Elastic Beanstalk environment.+--+--+--+-- /See:/ 'applicationMetrics' smart constructor.+data ApplicationMetrics = ApplicationMetrics'+  { _amRequestCount :: !(Maybe Int)+  , _amLatency      :: !(Maybe Latency)+  , _amStatusCodes  :: !(Maybe StatusCodes)+  , _amDuration     :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ApplicationMetrics' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'amRequestCount' - Average number of requests handled by the web server per second over the last 10 seconds.+--+-- * 'amLatency' - Represents the average latency for the slowest X percent of requests over the last 10 seconds. Latencies are in seconds with one millisecond resolution.+--+-- * 'amStatusCodes' - Represents the percentage of requests over the last 10 seconds that resulted in each type of status code response.+--+-- * 'amDuration' - The amount of time that the metrics cover (usually 10 seconds). For example, you might have 5 requests (@request_count@ ) within the most recent time slice of 10 seconds (@duration@ ).+applicationMetrics+    :: ApplicationMetrics+applicationMetrics =+  ApplicationMetrics'+    { _amRequestCount = Nothing+    , _amLatency = Nothing+    , _amStatusCodes = Nothing+    , _amDuration = Nothing+    }+++-- | Average number of requests handled by the web server per second over the last 10 seconds.+amRequestCount :: Lens' ApplicationMetrics (Maybe Int)+amRequestCount = lens _amRequestCount (\ s a -> s{_amRequestCount = a})++-- | Represents the average latency for the slowest X percent of requests over the last 10 seconds. Latencies are in seconds with one millisecond resolution.+amLatency :: Lens' ApplicationMetrics (Maybe Latency)+amLatency = lens _amLatency (\ s a -> s{_amLatency = a})++-- | Represents the percentage of requests over the last 10 seconds that resulted in each type of status code response.+amStatusCodes :: Lens' ApplicationMetrics (Maybe StatusCodes)+amStatusCodes = lens _amStatusCodes (\ s a -> s{_amStatusCodes = a})++-- | The amount of time that the metrics cover (usually 10 seconds). For example, you might have 5 requests (@request_count@ ) within the most recent time slice of 10 seconds (@duration@ ).+amDuration :: Lens' ApplicationMetrics (Maybe Int)+amDuration = lens _amDuration (\ s a -> s{_amDuration = a})++instance FromXML ApplicationMetrics where+        parseXML x+          = ApplicationMetrics' <$>+              (x .@? "RequestCount") <*> (x .@? "Latency") <*>+                (x .@? "StatusCodes")+                <*> (x .@? "Duration")++instance Hashable ApplicationMetrics where++instance NFData ApplicationMetrics where++-- | The resource lifecycle configuration for an application. Defines lifecycle settings for resources that belong to the application, and the service role that Elastic Beanstalk assumes in order to apply lifecycle settings. The version lifecycle configuration defines lifecycle settings for application versions.+--+--+--+-- /See:/ 'applicationResourceLifecycleConfig' smart constructor.+data ApplicationResourceLifecycleConfig = ApplicationResourceLifecycleConfig'+  { _arlcVersionLifecycleConfig :: !(Maybe ApplicationVersionLifecycleConfig)+  , _arlcServiceRole            :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ApplicationResourceLifecycleConfig' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'arlcVersionLifecycleConfig' - The application version lifecycle configuration.+--+-- * 'arlcServiceRole' - The ARN of an IAM service role that Elastic Beanstalk has permission to assume.+applicationResourceLifecycleConfig+    :: ApplicationResourceLifecycleConfig+applicationResourceLifecycleConfig =+  ApplicationResourceLifecycleConfig'+    {_arlcVersionLifecycleConfig = Nothing, _arlcServiceRole = Nothing}+++-- | The application version lifecycle configuration.+arlcVersionLifecycleConfig :: Lens' ApplicationResourceLifecycleConfig (Maybe ApplicationVersionLifecycleConfig)+arlcVersionLifecycleConfig = lens _arlcVersionLifecycleConfig (\ s a -> s{_arlcVersionLifecycleConfig = a})++-- | The ARN of an IAM service role that Elastic Beanstalk has permission to assume.+arlcServiceRole :: Lens' ApplicationResourceLifecycleConfig (Maybe Text)+arlcServiceRole = lens _arlcServiceRole (\ s a -> s{_arlcServiceRole = a})++instance FromXML ApplicationResourceLifecycleConfig+         where+        parseXML x+          = ApplicationResourceLifecycleConfig' <$>+              (x .@? "VersionLifecycleConfig") <*>+                (x .@? "ServiceRole")++instance Hashable ApplicationResourceLifecycleConfig+         where++instance NFData ApplicationResourceLifecycleConfig+         where++instance ToQuery ApplicationResourceLifecycleConfig+         where+        toQuery ApplicationResourceLifecycleConfig'{..}+          = mconcat+              ["VersionLifecycleConfig" =:+                 _arlcVersionLifecycleConfig,+               "ServiceRole" =: _arlcServiceRole]++-- | Describes the properties of an application version.+--+--+--+-- /See:/ 'applicationVersionDescription' smart constructor.+data ApplicationVersionDescription = ApplicationVersionDescription'+  { _avdStatus                 :: !(Maybe ApplicationVersionStatus)+  , _avdSourceBundle           :: !(Maybe S3Location)+  , _avdDateUpdated            :: !(Maybe ISO8601)+  , _avdDateCreated            :: !(Maybe ISO8601)+  , _avdVersionLabel           :: !(Maybe Text)+  , _avdSourceBuildInformation :: !(Maybe SourceBuildInformation)+  , _avdApplicationName        :: !(Maybe Text)+  , _avdApplicationVersionARN  :: !(Maybe Text)+  , _avdBuildARN               :: !(Maybe Text)+  , _avdDescription            :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ApplicationVersionDescription' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'avdStatus' - The processing status of the application version.+--+-- * 'avdSourceBundle' - The storage location of the application version's source bundle in Amazon S3.+--+-- * 'avdDateUpdated' - The last modified date of the application version.+--+-- * 'avdDateCreated' - The creation date of the application version.+--+-- * 'avdVersionLabel' - A unique identifier for the application version.+--+-- * 'avdSourceBuildInformation' - If the version's source code was retrieved from AWS CodeCommit, the location of the source code for the application version.+--+-- * 'avdApplicationName' - The name of the application to which the application version belongs.+--+-- * 'avdApplicationVersionARN' - The Amazon Resource Name (ARN) of the application version.+--+-- * 'avdBuildARN' - Reference to the artifact from the AWS CodeBuild build.+--+-- * 'avdDescription' - The description of the application version.+applicationVersionDescription+    :: ApplicationVersionDescription+applicationVersionDescription =+  ApplicationVersionDescription'+    { _avdStatus = Nothing+    , _avdSourceBundle = Nothing+    , _avdDateUpdated = Nothing+    , _avdDateCreated = Nothing+    , _avdVersionLabel = Nothing+    , _avdSourceBuildInformation = Nothing+    , _avdApplicationName = Nothing+    , _avdApplicationVersionARN = Nothing+    , _avdBuildARN = Nothing+    , _avdDescription = Nothing+    }+++-- | The processing status of the application version.+avdStatus :: Lens' ApplicationVersionDescription (Maybe ApplicationVersionStatus)+avdStatus = lens _avdStatus (\ s a -> s{_avdStatus = a})++-- | The storage location of the application version's source bundle in Amazon S3.+avdSourceBundle :: Lens' ApplicationVersionDescription (Maybe S3Location)+avdSourceBundle = lens _avdSourceBundle (\ s a -> s{_avdSourceBundle = a})++-- | The last modified date of the application version.+avdDateUpdated :: Lens' ApplicationVersionDescription (Maybe UTCTime)+avdDateUpdated = lens _avdDateUpdated (\ s a -> s{_avdDateUpdated = a}) . mapping _Time++-- | The creation date of the application version.+avdDateCreated :: Lens' ApplicationVersionDescription (Maybe UTCTime)+avdDateCreated = lens _avdDateCreated (\ s a -> s{_avdDateCreated = a}) . mapping _Time++-- | A unique identifier for the application version.+avdVersionLabel :: Lens' ApplicationVersionDescription (Maybe Text)+avdVersionLabel = lens _avdVersionLabel (\ s a -> s{_avdVersionLabel = a})++-- | If the version's source code was retrieved from AWS CodeCommit, the location of the source code for the application version.+avdSourceBuildInformation :: Lens' ApplicationVersionDescription (Maybe SourceBuildInformation)+avdSourceBuildInformation = lens _avdSourceBuildInformation (\ s a -> s{_avdSourceBuildInformation = a})++-- | The name of the application to which the application version belongs.+avdApplicationName :: Lens' ApplicationVersionDescription (Maybe Text)+avdApplicationName = lens _avdApplicationName (\ s a -> s{_avdApplicationName = a})++-- | The Amazon Resource Name (ARN) of the application version.+avdApplicationVersionARN :: Lens' ApplicationVersionDescription (Maybe Text)+avdApplicationVersionARN = lens _avdApplicationVersionARN (\ s a -> s{_avdApplicationVersionARN = a})++-- | Reference to the artifact from the AWS CodeBuild build.+avdBuildARN :: Lens' ApplicationVersionDescription (Maybe Text)+avdBuildARN = lens _avdBuildARN (\ s a -> s{_avdBuildARN = a})++-- | The description of the application version.+avdDescription :: Lens' ApplicationVersionDescription (Maybe Text)+avdDescription = lens _avdDescription (\ s a -> s{_avdDescription = a})++instance FromXML ApplicationVersionDescription where+        parseXML x+          = ApplicationVersionDescription' <$>+              (x .@? "Status") <*> (x .@? "SourceBundle") <*>+                (x .@? "DateUpdated")+                <*> (x .@? "DateCreated")+                <*> (x .@? "VersionLabel")+                <*> (x .@? "SourceBuildInformation")+                <*> (x .@? "ApplicationName")+                <*> (x .@? "ApplicationVersionArn")+                <*> (x .@? "BuildArn")+                <*> (x .@? "Description")++instance Hashable ApplicationVersionDescription where++instance NFData ApplicationVersionDescription where++-- | Result message wrapping a single description of an application version.+--+--+--+-- /See:/ 'applicationVersionDescriptionMessage' smart constructor.+newtype ApplicationVersionDescriptionMessage = ApplicationVersionDescriptionMessage'+  { _avdmApplicationVersion :: Maybe ApplicationVersionDescription+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ApplicationVersionDescriptionMessage' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'avdmApplicationVersion' - The 'ApplicationVersionDescription' of the application version.+applicationVersionDescriptionMessage+    :: ApplicationVersionDescriptionMessage+applicationVersionDescriptionMessage =+  ApplicationVersionDescriptionMessage' {_avdmApplicationVersion = Nothing}+++-- | The 'ApplicationVersionDescription' of the application version.+avdmApplicationVersion :: Lens' ApplicationVersionDescriptionMessage (Maybe ApplicationVersionDescription)+avdmApplicationVersion = lens _avdmApplicationVersion (\ s a -> s{_avdmApplicationVersion = a})++instance FromXML ApplicationVersionDescriptionMessage+         where+        parseXML x+          = ApplicationVersionDescriptionMessage' <$>+              (x .@? "ApplicationVersion")++instance Hashable+           ApplicationVersionDescriptionMessage+         where++instance NFData ApplicationVersionDescriptionMessage+         where++-- | The application version lifecycle settings for an application. Defines the rules that Elastic Beanstalk applies to an application's versions in order to avoid hitting the per-region limit for application versions.+--+--+-- When Elastic Beanstalk deletes an application version from its database, you can no longer deploy that version to an environment. The source bundle remains in S3 unless you configure the rule to delete it.+--+--+-- /See:/ 'applicationVersionLifecycleConfig' smart constructor.+data ApplicationVersionLifecycleConfig = ApplicationVersionLifecycleConfig'+  { _avlcMaxAgeRule   :: !(Maybe MaxAgeRule)+  , _avlcMaxCountRule :: !(Maybe MaxCountRule)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ApplicationVersionLifecycleConfig' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'avlcMaxAgeRule' - Specify a max age rule to restrict the length of time that application versions are retained for an application.+--+-- * 'avlcMaxCountRule' - Specify a max count rule to restrict the number of application versions that are retained for an application.+applicationVersionLifecycleConfig+    :: ApplicationVersionLifecycleConfig+applicationVersionLifecycleConfig =+  ApplicationVersionLifecycleConfig'+    {_avlcMaxAgeRule = Nothing, _avlcMaxCountRule = Nothing}+++-- | Specify a max age rule to restrict the length of time that application versions are retained for an application.+avlcMaxAgeRule :: Lens' ApplicationVersionLifecycleConfig (Maybe MaxAgeRule)+avlcMaxAgeRule = lens _avlcMaxAgeRule (\ s a -> s{_avlcMaxAgeRule = a})++-- | Specify a max count rule to restrict the number of application versions that are retained for an application.+avlcMaxCountRule :: Lens' ApplicationVersionLifecycleConfig (Maybe MaxCountRule)+avlcMaxCountRule = lens _avlcMaxCountRule (\ s a -> s{_avlcMaxCountRule = a})++instance FromXML ApplicationVersionLifecycleConfig+         where+        parseXML x+          = ApplicationVersionLifecycleConfig' <$>+              (x .@? "MaxAgeRule") <*> (x .@? "MaxCountRule")++instance Hashable ApplicationVersionLifecycleConfig+         where++instance NFData ApplicationVersionLifecycleConfig+         where++instance ToQuery ApplicationVersionLifecycleConfig+         where+        toQuery ApplicationVersionLifecycleConfig'{..}+          = mconcat+              ["MaxAgeRule" =: _avlcMaxAgeRule,+               "MaxCountRule" =: _avlcMaxCountRule]++-- | Describes an Auto Scaling launch configuration.+--+--+--+-- /See:/ 'autoScalingGroup' smart constructor.+newtype AutoScalingGroup = AutoScalingGroup'+  { _asgName :: Maybe Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'AutoScalingGroup' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'asgName' - The name of the @AutoScalingGroup@ .+autoScalingGroup+    :: AutoScalingGroup+autoScalingGroup = AutoScalingGroup' {_asgName = Nothing}+++-- | The name of the @AutoScalingGroup@ .+asgName :: Lens' AutoScalingGroup (Maybe Text)+asgName = lens _asgName (\ s a -> s{_asgName = a})++instance FromXML AutoScalingGroup where+        parseXML x = AutoScalingGroup' <$> (x .@? "Name")++instance Hashable AutoScalingGroup where++instance NFData AutoScalingGroup where++-- | Settings for an AWS CodeBuild build.+--+--+--+-- /See:/ 'buildConfiguration' smart constructor.+data BuildConfiguration = BuildConfiguration'+  { _bcArtifactName         :: !(Maybe Text)+  , _bcComputeType          :: !(Maybe ComputeType)+  , _bcTimeoutInMinutes     :: !(Maybe Int)+  , _bcCodeBuildServiceRole :: !Text+  , _bcImage                :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'BuildConfiguration' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'bcArtifactName' - The name of the artifact of the CodeBuild build. If provided, Elastic Beanstalk stores the build artifact in the S3 location /S3-bucket/ /resources//application-name/ /codebuild/codebuild-/version-label/ -/artifact-name/ .zip. If not provided, Elastic Beanstalk stores the build artifact in the S3 location /S3-bucket/ /resources//application-name/ /codebuild/codebuild-/version-label/ .zip.+--+-- * 'bcComputeType' - Information about the compute resources the build project will use.     * @BUILD_GENERAL1_SMALL: Use up to 3 GB memory and 2 vCPUs for builds@      * @BUILD_GENERAL1_MEDIUM: Use up to 7 GB memory and 4 vCPUs for builds@      * @BUILD_GENERAL1_LARGE: Use up to 15 GB memory and 8 vCPUs for builds@+--+-- * 'bcTimeoutInMinutes' - How long in minutes, from 5 to 480 (8 hours), for AWS CodeBuild to wait until timing out any related build that does not get marked as completed. The default is 60 minutes.+--+-- * 'bcCodeBuildServiceRole' - The Amazon Resource Name (ARN) of the AWS Identity and Access Management (IAM) role that enables AWS CodeBuild to interact with dependent AWS services on behalf of the AWS account.+--+-- * 'bcImage' - The ID of the Docker image to use for this build project.+buildConfiguration+    :: Text -- ^ 'bcCodeBuildServiceRole'+    -> Text -- ^ 'bcImage'+    -> BuildConfiguration+buildConfiguration pCodeBuildServiceRole_ pImage_ =+  BuildConfiguration'+    { _bcArtifactName = Nothing+    , _bcComputeType = Nothing+    , _bcTimeoutInMinutes = Nothing+    , _bcCodeBuildServiceRole = pCodeBuildServiceRole_+    , _bcImage = pImage_+    }+++-- | The name of the artifact of the CodeBuild build. If provided, Elastic Beanstalk stores the build artifact in the S3 location /S3-bucket/ /resources//application-name/ /codebuild/codebuild-/version-label/ -/artifact-name/ .zip. If not provided, Elastic Beanstalk stores the build artifact in the S3 location /S3-bucket/ /resources//application-name/ /codebuild/codebuild-/version-label/ .zip.+bcArtifactName :: Lens' BuildConfiguration (Maybe Text)+bcArtifactName = lens _bcArtifactName (\ s a -> s{_bcArtifactName = a})++-- | Information about the compute resources the build project will use.     * @BUILD_GENERAL1_SMALL: Use up to 3 GB memory and 2 vCPUs for builds@      * @BUILD_GENERAL1_MEDIUM: Use up to 7 GB memory and 4 vCPUs for builds@      * @BUILD_GENERAL1_LARGE: Use up to 15 GB memory and 8 vCPUs for builds@+bcComputeType :: Lens' BuildConfiguration (Maybe ComputeType)+bcComputeType = lens _bcComputeType (\ s a -> s{_bcComputeType = a})++-- | How long in minutes, from 5 to 480 (8 hours), for AWS CodeBuild to wait until timing out any related build that does not get marked as completed. The default is 60 minutes.+bcTimeoutInMinutes :: Lens' BuildConfiguration (Maybe Int)+bcTimeoutInMinutes = lens _bcTimeoutInMinutes (\ s a -> s{_bcTimeoutInMinutes = a})++-- | The Amazon Resource Name (ARN) of the AWS Identity and Access Management (IAM) role that enables AWS CodeBuild to interact with dependent AWS services on behalf of the AWS account.+bcCodeBuildServiceRole :: Lens' BuildConfiguration Text+bcCodeBuildServiceRole = lens _bcCodeBuildServiceRole (\ s a -> s{_bcCodeBuildServiceRole = a})++-- | The ID of the Docker image to use for this build project.+bcImage :: Lens' BuildConfiguration Text+bcImage = lens _bcImage (\ s a -> s{_bcImage = a})++instance Hashable BuildConfiguration where++instance NFData BuildConfiguration where++instance ToQuery BuildConfiguration where+        toQuery BuildConfiguration'{..}+          = mconcat+              ["ArtifactName" =: _bcArtifactName,+               "ComputeType" =: _bcComputeType,+               "TimeoutInMinutes" =: _bcTimeoutInMinutes,+               "CodeBuildServiceRole" =: _bcCodeBuildServiceRole,+               "Image" =: _bcImage]++-- | The builder used to build the custom platform.+--+--+--+-- /See:/ 'builder' smart constructor.+newtype Builder = Builder'+  { _bARN :: Maybe Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Builder' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'bARN' - The ARN of the builder.+builder+    :: Builder+builder = Builder' {_bARN = Nothing}+++-- | The ARN of the builder.+bARN :: Lens' Builder (Maybe Text)+bARN = lens _bARN (\ s a -> s{_bARN = a})++instance FromXML Builder where+        parseXML x = Builder' <$> (x .@? "ARN")++instance Hashable Builder where++instance NFData Builder where++-- | CPU utilization metrics for an instance.+--+--+--+-- /See:/ 'cpuUtilization' smart constructor.+data CPUUtilization = CPUUtilization'+  { _cuSoftIRQ :: !(Maybe Double)+  , _cuIdle    :: !(Maybe Double)+  , _cuIRQ     :: !(Maybe Double)+  , _cuSystem  :: !(Maybe Double)+  , _cuUser    :: !(Maybe Double)+  , _cuIOWait  :: !(Maybe Double)+  , _cuNice    :: !(Maybe Double)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CPUUtilization' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cuSoftIRQ' - Percentage of time that the CPU has spent in the @SoftIRQ@ state over the last 10 seconds.+--+-- * 'cuIdle' - Percentage of time that the CPU has spent in the @Idle@ state over the last 10 seconds.+--+-- * 'cuIRQ' - Percentage of time that the CPU has spent in the @IRQ@ state over the last 10 seconds.+--+-- * 'cuSystem' - Percentage of time that the CPU has spent in the @System@ state over the last 10 seconds.+--+-- * 'cuUser' - Percentage of time that the CPU has spent in the @User@ state over the last 10 seconds.+--+-- * 'cuIOWait' - Percentage of time that the CPU has spent in the @I/O Wait@ state over the last 10 seconds.+--+-- * 'cuNice' - Percentage of time that the CPU has spent in the @Nice@ state over the last 10 seconds.+cpuUtilization+    :: CPUUtilization+cpuUtilization =+  CPUUtilization'+    { _cuSoftIRQ = Nothing+    , _cuIdle = Nothing+    , _cuIRQ = Nothing+    , _cuSystem = Nothing+    , _cuUser = Nothing+    , _cuIOWait = Nothing+    , _cuNice = Nothing+    }+++-- | Percentage of time that the CPU has spent in the @SoftIRQ@ state over the last 10 seconds.+cuSoftIRQ :: Lens' CPUUtilization (Maybe Double)+cuSoftIRQ = lens _cuSoftIRQ (\ s a -> s{_cuSoftIRQ = a})++-- | Percentage of time that the CPU has spent in the @Idle@ state over the last 10 seconds.+cuIdle :: Lens' CPUUtilization (Maybe Double)+cuIdle = lens _cuIdle (\ s a -> s{_cuIdle = a})++-- | Percentage of time that the CPU has spent in the @IRQ@ state over the last 10 seconds.+cuIRQ :: Lens' CPUUtilization (Maybe Double)+cuIRQ = lens _cuIRQ (\ s a -> s{_cuIRQ = a})++-- | Percentage of time that the CPU has spent in the @System@ state over the last 10 seconds.+cuSystem :: Lens' CPUUtilization (Maybe Double)+cuSystem = lens _cuSystem (\ s a -> s{_cuSystem = a})++-- | Percentage of time that the CPU has spent in the @User@ state over the last 10 seconds.+cuUser :: Lens' CPUUtilization (Maybe Double)+cuUser = lens _cuUser (\ s a -> s{_cuUser = a})++-- | Percentage of time that the CPU has spent in the @I/O Wait@ state over the last 10 seconds.+cuIOWait :: Lens' CPUUtilization (Maybe Double)+cuIOWait = lens _cuIOWait (\ s a -> s{_cuIOWait = a})++-- | Percentage of time that the CPU has spent in the @Nice@ state over the last 10 seconds.+cuNice :: Lens' CPUUtilization (Maybe Double)+cuNice = lens _cuNice (\ s a -> s{_cuNice = a})++instance FromXML CPUUtilization where+        parseXML x+          = CPUUtilization' <$>+              (x .@? "SoftIRQ") <*> (x .@? "Idle") <*>+                (x .@? "IRQ")+                <*> (x .@? "System")+                <*> (x .@? "User")+                <*> (x .@? "IOWait")+                <*> (x .@? "Nice")++instance Hashable CPUUtilization where++instance NFData CPUUtilization where++-- | Describes the possible values for a configuration option.+--+--+--+-- /See:/ 'configurationOptionDescription' smart constructor.+data ConfigurationOptionDescription = ConfigurationOptionDescription'+  { _codMaxValue       :: !(Maybe Int)+  , _codRegex          :: !(Maybe OptionRestrictionRegex)+  , _codMaxLength      :: !(Maybe Int)+  , _codUserDefined    :: !(Maybe Bool)+  , _codNamespace      :: !(Maybe Text)+  , _codValueOptions   :: !(Maybe [Text])+  , _codName           :: !(Maybe Text)+  , _codChangeSeverity :: !(Maybe Text)+  , _codDefaultValue   :: !(Maybe Text)+  , _codValueType      :: !(Maybe ConfigurationOptionValueType)+  , _codMinValue       :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ConfigurationOptionDescription' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'codMaxValue' - If specified, the configuration option must be a numeric value less than this value.+--+-- * 'codRegex' - If specified, the configuration option must be a string value that satisfies this regular expression.+--+-- * 'codMaxLength' - If specified, the configuration option must be a string value no longer than this value.+--+-- * 'codUserDefined' - An indication of whether the user defined this configuration option:     * @true@ : This configuration option was defined by the user. It is a valid choice for specifying if this as an @Option to Remove@ when updating configuration settings.      * @false@ : This configuration was not defined by the user. Constraint: You can remove only @UserDefined@ options from a configuration.  Valid Values: @true@ | @false@+--+-- * 'codNamespace' - A unique namespace identifying the option's associated AWS resource.+--+-- * 'codValueOptions' - If specified, values for the configuration option are selected from this list.+--+-- * 'codName' - The name of the configuration option.+--+-- * 'codChangeSeverity' - An indication of which action is required if the value for this configuration option changes:     * @NoInterruption@ : There is no interruption to the environment or application availability.     * @RestartEnvironment@ : The environment is entirely restarted, all AWS resources are deleted and recreated, and the environment is unavailable during the process.     * @RestartApplicationServer@ : The environment is available the entire time. However, a short application outage occurs when the application servers on the running Amazon EC2 instances are restarted.+--+-- * 'codDefaultValue' - The default value for this configuration option.+--+-- * 'codValueType' - An indication of which type of values this option has and whether it is allowable to select one or more than one of the possible values:     * @Scalar@ : Values for this option are a single selection from the possible values, or an unformatted string, or numeric value governed by the @MIN/MAX/Regex@ constraints.     * @List@ : Values for this option are multiple selections from the possible values.     * @Boolean@ : Values for this option are either @true@ or @false@ .     * @Json@ : Values for this option are a JSON representation of a @ConfigDocument@ .+--+-- * 'codMinValue' - If specified, the configuration option must be a numeric value greater than this value.+configurationOptionDescription+    :: ConfigurationOptionDescription+configurationOptionDescription =+  ConfigurationOptionDescription'+    { _codMaxValue = Nothing+    , _codRegex = Nothing+    , _codMaxLength = Nothing+    , _codUserDefined = Nothing+    , _codNamespace = Nothing+    , _codValueOptions = Nothing+    , _codName = Nothing+    , _codChangeSeverity = Nothing+    , _codDefaultValue = Nothing+    , _codValueType = Nothing+    , _codMinValue = Nothing+    }+++-- | If specified, the configuration option must be a numeric value less than this value.+codMaxValue :: Lens' ConfigurationOptionDescription (Maybe Int)+codMaxValue = lens _codMaxValue (\ s a -> s{_codMaxValue = a})++-- | If specified, the configuration option must be a string value that satisfies this regular expression.+codRegex :: Lens' ConfigurationOptionDescription (Maybe OptionRestrictionRegex)+codRegex = lens _codRegex (\ s a -> s{_codRegex = a})++-- | If specified, the configuration option must be a string value no longer than this value.+codMaxLength :: Lens' ConfigurationOptionDescription (Maybe Int)+codMaxLength = lens _codMaxLength (\ s a -> s{_codMaxLength = a})++-- | An indication of whether the user defined this configuration option:     * @true@ : This configuration option was defined by the user. It is a valid choice for specifying if this as an @Option to Remove@ when updating configuration settings.      * @false@ : This configuration was not defined by the user. Constraint: You can remove only @UserDefined@ options from a configuration.  Valid Values: @true@ | @false@+codUserDefined :: Lens' ConfigurationOptionDescription (Maybe Bool)+codUserDefined = lens _codUserDefined (\ s a -> s{_codUserDefined = a})++-- | A unique namespace identifying the option's associated AWS resource.+codNamespace :: Lens' ConfigurationOptionDescription (Maybe Text)+codNamespace = lens _codNamespace (\ s a -> s{_codNamespace = a})++-- | If specified, values for the configuration option are selected from this list.+codValueOptions :: Lens' ConfigurationOptionDescription [Text]+codValueOptions = lens _codValueOptions (\ s a -> s{_codValueOptions = a}) . _Default . _Coerce++-- | The name of the configuration option.+codName :: Lens' ConfigurationOptionDescription (Maybe Text)+codName = lens _codName (\ s a -> s{_codName = a})++-- | An indication of which action is required if the value for this configuration option changes:     * @NoInterruption@ : There is no interruption to the environment or application availability.     * @RestartEnvironment@ : The environment is entirely restarted, all AWS resources are deleted and recreated, and the environment is unavailable during the process.     * @RestartApplicationServer@ : The environment is available the entire time. However, a short application outage occurs when the application servers on the running Amazon EC2 instances are restarted.+codChangeSeverity :: Lens' ConfigurationOptionDescription (Maybe Text)+codChangeSeverity = lens _codChangeSeverity (\ s a -> s{_codChangeSeverity = a})++-- | The default value for this configuration option.+codDefaultValue :: Lens' ConfigurationOptionDescription (Maybe Text)+codDefaultValue = lens _codDefaultValue (\ s a -> s{_codDefaultValue = a})++-- | An indication of which type of values this option has and whether it is allowable to select one or more than one of the possible values:     * @Scalar@ : Values for this option are a single selection from the possible values, or an unformatted string, or numeric value governed by the @MIN/MAX/Regex@ constraints.     * @List@ : Values for this option are multiple selections from the possible values.     * @Boolean@ : Values for this option are either @true@ or @false@ .     * @Json@ : Values for this option are a JSON representation of a @ConfigDocument@ .+codValueType :: Lens' ConfigurationOptionDescription (Maybe ConfigurationOptionValueType)+codValueType = lens _codValueType (\ s a -> s{_codValueType = a})++-- | If specified, the configuration option must be a numeric value greater than this value.+codMinValue :: Lens' ConfigurationOptionDescription (Maybe Int)+codMinValue = lens _codMinValue (\ s a -> s{_codMinValue = a})++instance FromXML ConfigurationOptionDescription where+        parseXML x+          = ConfigurationOptionDescription' <$>+              (x .@? "MaxValue") <*> (x .@? "Regex") <*>+                (x .@? "MaxLength")+                <*> (x .@? "UserDefined")+                <*> (x .@? "Namespace")+                <*>+                (x .@? "ValueOptions" .!@ mempty >>=+                   may (parseXMLList "member"))+                <*> (x .@? "Name")+                <*> (x .@? "ChangeSeverity")+                <*> (x .@? "DefaultValue")+                <*> (x .@? "ValueType")+                <*> (x .@? "MinValue")++instance Hashable ConfigurationOptionDescription+         where++instance NFData ConfigurationOptionDescription where++-- | A specification identifying an individual configuration option along with its current value. For a list of possible option values, go to <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/command-options.html Option Values> in the /AWS Elastic Beanstalk Developer Guide/ .+--+--+--+-- /See:/ 'configurationOptionSetting' smart constructor.+data ConfigurationOptionSetting = ConfigurationOptionSetting'+  { _cosOptionName   :: !(Maybe Text)+  , _cosResourceName :: !(Maybe Text)+  , _cosNamespace    :: !(Maybe Text)+  , _cosValue        :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ConfigurationOptionSetting' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cosOptionName' - The name of the configuration option.+--+-- * 'cosResourceName' - A unique resource name for a time-based scaling configuration option.+--+-- * 'cosNamespace' - A unique namespace identifying the option's associated AWS resource.+--+-- * 'cosValue' - The current value for the configuration option.+configurationOptionSetting+    :: ConfigurationOptionSetting+configurationOptionSetting =+  ConfigurationOptionSetting'+    { _cosOptionName = Nothing+    , _cosResourceName = Nothing+    , _cosNamespace = Nothing+    , _cosValue = Nothing+    }+++-- | The name of the configuration option.+cosOptionName :: Lens' ConfigurationOptionSetting (Maybe Text)+cosOptionName = lens _cosOptionName (\ s a -> s{_cosOptionName = a})++-- | A unique resource name for a time-based scaling configuration option.+cosResourceName :: Lens' ConfigurationOptionSetting (Maybe Text)+cosResourceName = lens _cosResourceName (\ s a -> s{_cosResourceName = a})++-- | A unique namespace identifying the option's associated AWS resource.+cosNamespace :: Lens' ConfigurationOptionSetting (Maybe Text)+cosNamespace = lens _cosNamespace (\ s a -> s{_cosNamespace = a})++-- | The current value for the configuration option.+cosValue :: Lens' ConfigurationOptionSetting (Maybe Text)+cosValue = lens _cosValue (\ s a -> s{_cosValue = a})++instance FromXML ConfigurationOptionSetting where+        parseXML x+          = ConfigurationOptionSetting' <$>+              (x .@? "OptionName") <*> (x .@? "ResourceName") <*>+                (x .@? "Namespace")+                <*> (x .@? "Value")++instance Hashable ConfigurationOptionSetting where++instance NFData ConfigurationOptionSetting where++instance ToQuery ConfigurationOptionSetting where+        toQuery ConfigurationOptionSetting'{..}+          = mconcat+              ["OptionName" =: _cosOptionName,+               "ResourceName" =: _cosResourceName,+               "Namespace" =: _cosNamespace, "Value" =: _cosValue]++-- | Describes the settings for a configuration set.+--+--+--+-- /See:/ 'configurationSettingsDescription' smart constructor.+data ConfigurationSettingsDescription = ConfigurationSettingsDescription'+  { _csdTemplateName      :: !(Maybe Text)+  , _csdOptionSettings    :: !(Maybe [ConfigurationOptionSetting])+  , _csdDateUpdated       :: !(Maybe ISO8601)+  , _csdDateCreated       :: !(Maybe ISO8601)+  , _csdPlatformARN       :: !(Maybe Text)+  , _csdEnvironmentName   :: !(Maybe Text)+  , _csdApplicationName   :: !(Maybe Text)+  , _csdDeploymentStatus  :: !(Maybe ConfigurationDeploymentStatus)+  , _csdSolutionStackName :: !(Maybe Text)+  , _csdDescription       :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ConfigurationSettingsDescription' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'csdTemplateName' - If not @null@ , the name of the configuration template for this configuration set.+--+-- * 'csdOptionSettings' - A list of the configuration options and their values in this configuration set.+--+-- * 'csdDateUpdated' - The date (in UTC time) when this configuration set was last modified.+--+-- * 'csdDateCreated' - The date (in UTC time) when this configuration set was created.+--+-- * 'csdPlatformARN' - The ARN of the platform.+--+-- * 'csdEnvironmentName' - If not @null@ , the name of the environment for this configuration set.+--+-- * 'csdApplicationName' - The name of the application associated with this configuration set.+--+-- * 'csdDeploymentStatus' - 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.+--+-- * 'csdSolutionStackName' - The name of the solution stack this configuration set uses.+--+-- * 'csdDescription' - Describes this configuration set.+configurationSettingsDescription+    :: ConfigurationSettingsDescription+configurationSettingsDescription =+  ConfigurationSettingsDescription'+    { _csdTemplateName = Nothing+    , _csdOptionSettings = Nothing+    , _csdDateUpdated = Nothing+    , _csdDateCreated = Nothing+    , _csdPlatformARN = Nothing+    , _csdEnvironmentName = Nothing+    , _csdApplicationName = Nothing+    , _csdDeploymentStatus = Nothing+    , _csdSolutionStackName = Nothing+    , _csdDescription = Nothing+    }+++-- | If not @null@ , the name of the configuration template for this configuration set.+csdTemplateName :: Lens' ConfigurationSettingsDescription (Maybe Text)+csdTemplateName = lens _csdTemplateName (\ s a -> s{_csdTemplateName = a})++-- | A list of the configuration options and their values in this configuration set.+csdOptionSettings :: Lens' ConfigurationSettingsDescription [ConfigurationOptionSetting]+csdOptionSettings = lens _csdOptionSettings (\ s a -> s{_csdOptionSettings = a}) . _Default . _Coerce++-- | The date (in UTC time) when this configuration set was last modified.+csdDateUpdated :: Lens' ConfigurationSettingsDescription (Maybe UTCTime)+csdDateUpdated = lens _csdDateUpdated (\ s a -> s{_csdDateUpdated = a}) . mapping _Time++-- | The date (in UTC time) when this configuration set was created.+csdDateCreated :: Lens' ConfigurationSettingsDescription (Maybe UTCTime)+csdDateCreated = lens _csdDateCreated (\ s a -> s{_csdDateCreated = a}) . mapping _Time++-- | The ARN of the platform.+csdPlatformARN :: Lens' ConfigurationSettingsDescription (Maybe Text)+csdPlatformARN = lens _csdPlatformARN (\ s a -> s{_csdPlatformARN = a})++-- | If not @null@ , the name of the environment for this configuration set.+csdEnvironmentName :: Lens' ConfigurationSettingsDescription (Maybe Text)+csdEnvironmentName = lens _csdEnvironmentName (\ s a -> s{_csdEnvironmentName = a})++-- | The name of the application associated with this configuration set.+csdApplicationName :: Lens' ConfigurationSettingsDescription (Maybe Text)+csdApplicationName = lens _csdApplicationName (\ s a -> s{_csdApplicationName = a})++-- | 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.+csdDeploymentStatus :: Lens' ConfigurationSettingsDescription (Maybe ConfigurationDeploymentStatus)+csdDeploymentStatus = lens _csdDeploymentStatus (\ s a -> s{_csdDeploymentStatus = a})++-- | The name of the solution stack this configuration set uses.+csdSolutionStackName :: Lens' ConfigurationSettingsDescription (Maybe Text)+csdSolutionStackName = lens _csdSolutionStackName (\ s a -> s{_csdSolutionStackName = a})++-- | Describes this configuration set.+csdDescription :: Lens' ConfigurationSettingsDescription (Maybe Text)+csdDescription = lens _csdDescription (\ s a -> s{_csdDescription = a})++instance FromXML ConfigurationSettingsDescription+         where+        parseXML x+          = ConfigurationSettingsDescription' <$>+              (x .@? "TemplateName") <*>+                (x .@? "OptionSettings" .!@ mempty >>=+                   may (parseXMLList "member"))+                <*> (x .@? "DateUpdated")+                <*> (x .@? "DateCreated")+                <*> (x .@? "PlatformArn")+                <*> (x .@? "EnvironmentName")+                <*> (x .@? "ApplicationName")+                <*> (x .@? "DeploymentStatus")+                <*> (x .@? "SolutionStackName")+                <*> (x .@? "Description")++instance Hashable ConfigurationSettingsDescription+         where++instance NFData ConfigurationSettingsDescription+         where++-- | A custom AMI available to platforms.+--+--+--+-- /See:/ 'customAMI' smart constructor.+data CustomAMI = CustomAMI'+  { _caVirtualizationType :: !(Maybe Text)+  , _caImageId            :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CustomAMI' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'caVirtualizationType' - The type of virtualization used to create the custom AMI.+--+-- * 'caImageId' - THe ID of the image used to create the custom AMI.+customAMI+    :: CustomAMI+customAMI = CustomAMI' {_caVirtualizationType = Nothing, _caImageId = Nothing}+++-- | The type of virtualization used to create the custom AMI.+caVirtualizationType :: Lens' CustomAMI (Maybe Text)+caVirtualizationType = lens _caVirtualizationType (\ s a -> s{_caVirtualizationType = a})++-- | THe ID of the image used to create the custom AMI.+caImageId :: Lens' CustomAMI (Maybe Text)+caImageId = lens _caImageId (\ s a -> s{_caImageId = a})++instance FromXML CustomAMI where+        parseXML x+          = CustomAMI' <$>+              (x .@? "VirtualizationType") <*> (x .@? "ImageId")++instance Hashable CustomAMI where++instance NFData CustomAMI where++-- | Information about an application version deployment.+--+--+--+-- /See:/ 'deployment' smart constructor.+data Deployment = Deployment'+  { _dDeploymentId   :: !(Maybe Integer)+  , _dStatus         :: !(Maybe Text)+  , _dDeploymentTime :: !(Maybe ISO8601)+  , _dVersionLabel   :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Deployment' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dDeploymentId' - The ID of the deployment. This number increases by one each time that you deploy source code or change instance configuration settings.+--+-- * 'dStatus' - The status of the deployment:     * @In Progress@ : The deployment is in progress.     * @Deployed@ : The deployment succeeded.     * @Failed@ : The deployment failed.+--+-- * 'dDeploymentTime' - For in-progress deployments, the time that the deployment started. For completed deployments, the time that the deployment ended.+--+-- * 'dVersionLabel' - The version label of the application version in the deployment.+deployment+    :: Deployment+deployment =+  Deployment'+    { _dDeploymentId = Nothing+    , _dStatus = Nothing+    , _dDeploymentTime = Nothing+    , _dVersionLabel = Nothing+    }+++-- | The ID of the deployment. This number increases by one each time that you deploy source code or change instance configuration settings.+dDeploymentId :: Lens' Deployment (Maybe Integer)+dDeploymentId = lens _dDeploymentId (\ s a -> s{_dDeploymentId = a})++-- | The status of the deployment:     * @In Progress@ : The deployment is in progress.     * @Deployed@ : The deployment succeeded.     * @Failed@ : The deployment failed.+dStatus :: Lens' Deployment (Maybe Text)+dStatus = lens _dStatus (\ s a -> s{_dStatus = a})++-- | For in-progress deployments, the time that the deployment started. For completed deployments, the time that the deployment ended.+dDeploymentTime :: Lens' Deployment (Maybe UTCTime)+dDeploymentTime = lens _dDeploymentTime (\ s a -> s{_dDeploymentTime = a}) . mapping _Time++-- | The version label of the application version in the deployment.+dVersionLabel :: Lens' Deployment (Maybe Text)+dVersionLabel = lens _dVersionLabel (\ s a -> s{_dVersionLabel = a})++instance FromXML Deployment where+        parseXML x+          = Deployment' <$>+              (x .@? "DeploymentId") <*> (x .@? "Status") <*>+                (x .@? "DeploymentTime")+                <*> (x .@? "VersionLabel")++instance Hashable Deployment where++instance NFData Deployment where++-- | Describes the properties of an environment.+--+--+--+-- /See:/ 'environmentDescription' smart constructor.+data EnvironmentDescription = EnvironmentDescription'+  { _eStatus                       :: !(Maybe EnvironmentStatus)+  , _eCNAME                        :: !(Maybe Text)+  , _eTemplateName                 :: !(Maybe Text)+  , _eAbortableOperationInProgress :: !(Maybe Bool)+  , _eEndpointURL                  :: !(Maybe Text)+  , _eResources                    :: !(Maybe EnvironmentResourcesDescription)+  , _eDateUpdated                  :: !(Maybe ISO8601)+  , _eDateCreated                  :: !(Maybe ISO8601)+  , _eHealth                       :: !(Maybe EnvironmentHealth)+  , _eVersionLabel                 :: !(Maybe Text)+  , _ePlatformARN                  :: !(Maybe Text)+  , _eTier                         :: !(Maybe EnvironmentTier)+  , _eEnvironmentName              :: !(Maybe Text)+  , _eApplicationName              :: !(Maybe Text)+  , _eEnvironmentARN               :: !(Maybe Text)+  , _eSolutionStackName            :: !(Maybe Text)+  , _eEnvironmentId                :: !(Maybe Text)+  , _eHealthStatus                 :: !(Maybe EnvironmentHealthStatus)+  , _eEnvironmentLinks             :: !(Maybe [EnvironmentLink])+  , _eDescription                  :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'EnvironmentDescription' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'eStatus' - The current operational status of the environment:     * @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.+--+-- * 'eCNAME' - The URL to the CNAME for this environment.+--+-- * 'eTemplateName' - The name of the configuration template used to originally launch this environment.+--+-- * 'eAbortableOperationInProgress' - 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.  @false:@ There are no updates currently in progress.+--+-- * 'eEndpointURL' - For load-balanced, autoscaling environments, the URL to the LoadBalancer. For single-instance environments, the IP address of the instance.+--+-- * 'eResources' - The description of the AWS resources used by this environment.+--+-- * 'eDateUpdated' - The last modified date for this environment.+--+-- * 'eDateCreated' - The creation date for this environment.+--+-- * 'eHealth' - Describes the health status of the environment. AWS Elastic Beanstalk indicates the failure levels for a running environment:     * @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@+--+-- * 'eVersionLabel' - The application version deployed in this environment.+--+-- * 'ePlatformARN' - The ARN of the platform.+--+-- * 'eTier' - Describes the current tier of this environment.+--+-- * 'eEnvironmentName' - The name of this environment.+--+-- * 'eApplicationName' - The name of the application associated with this environment.+--+-- * 'eEnvironmentARN' - The environment's Amazon Resource Name (ARN), which can be used in other API requests that require an ARN.+--+-- * 'eSolutionStackName' - The name of the @SolutionStack@ deployed with this environment.+--+-- * 'eEnvironmentId' - The ID of this environment.+--+-- * 'eHealthStatus' - Returns the health status of the application running in your environment. For more information, see <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/health-enhanced-status.html Health Colors and Statuses> .+--+-- * 'eEnvironmentLinks' - A list of links to other environments in the same group.+--+-- * 'eDescription' - Describes this environment.+environmentDescription+    :: EnvironmentDescription+environmentDescription =+  EnvironmentDescription'+    { _eStatus = Nothing+    , _eCNAME = Nothing+    , _eTemplateName = Nothing+    , _eAbortableOperationInProgress = Nothing+    , _eEndpointURL = Nothing+    , _eResources = Nothing+    , _eDateUpdated = Nothing+    , _eDateCreated = Nothing+    , _eHealth = Nothing+    , _eVersionLabel = Nothing+    , _ePlatformARN = Nothing+    , _eTier = Nothing+    , _eEnvironmentName = Nothing+    , _eApplicationName = Nothing+    , _eEnvironmentARN = Nothing+    , _eSolutionStackName = Nothing+    , _eEnvironmentId = Nothing+    , _eHealthStatus = Nothing+    , _eEnvironmentLinks = Nothing+    , _eDescription = Nothing+    }+++-- | The current operational status of the environment:     * @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.+eStatus :: Lens' EnvironmentDescription (Maybe EnvironmentStatus)+eStatus = lens _eStatus (\ s a -> s{_eStatus = a})++-- | The URL to the CNAME for this environment.+eCNAME :: Lens' EnvironmentDescription (Maybe Text)+eCNAME = lens _eCNAME (\ s a -> s{_eCNAME = a})++-- | The name of the configuration template used to originally launch this environment.+eTemplateName :: Lens' EnvironmentDescription (Maybe Text)+eTemplateName = lens _eTemplateName (\ s a -> s{_eTemplateName = 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.  @false:@ There are no updates currently in progress.+eAbortableOperationInProgress :: Lens' EnvironmentDescription (Maybe Bool)+eAbortableOperationInProgress = lens _eAbortableOperationInProgress (\ s a -> s{_eAbortableOperationInProgress = a})++-- | For load-balanced, autoscaling environments, the URL to the LoadBalancer. For single-instance environments, the IP address of the instance.+eEndpointURL :: Lens' EnvironmentDescription (Maybe Text)+eEndpointURL = lens _eEndpointURL (\ s a -> s{_eEndpointURL = a})++-- | The description of the AWS resources used by this environment.+eResources :: Lens' EnvironmentDescription (Maybe EnvironmentResourcesDescription)+eResources = lens _eResources (\ s a -> s{_eResources = a})++-- | The last modified date for this environment.+eDateUpdated :: Lens' EnvironmentDescription (Maybe UTCTime)+eDateUpdated = lens _eDateUpdated (\ s a -> s{_eDateUpdated = a}) . mapping _Time++-- | The creation date for this environment.+eDateCreated :: Lens' EnvironmentDescription (Maybe UTCTime)+eDateCreated = lens _eDateCreated (\ s a -> s{_eDateCreated = a}) . mapping _Time++-- | Describes the health status of the environment. AWS Elastic Beanstalk indicates the failure levels for a running environment:     * @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@+eHealth :: Lens' EnvironmentDescription (Maybe EnvironmentHealth)+eHealth = lens _eHealth (\ s a -> s{_eHealth = a})++-- | The application version deployed in this environment.+eVersionLabel :: Lens' EnvironmentDescription (Maybe Text)+eVersionLabel = lens _eVersionLabel (\ s a -> s{_eVersionLabel = a})++-- | The ARN of the platform.+ePlatformARN :: Lens' EnvironmentDescription (Maybe Text)+ePlatformARN = lens _ePlatformARN (\ s a -> s{_ePlatformARN = a})++-- | Describes the current tier of this environment.+eTier :: Lens' EnvironmentDescription (Maybe EnvironmentTier)+eTier = lens _eTier (\ s a -> s{_eTier = a})++-- | The name of this environment.+eEnvironmentName :: Lens' EnvironmentDescription (Maybe Text)+eEnvironmentName = lens _eEnvironmentName (\ s a -> s{_eEnvironmentName = a})++-- | The name of the application associated with this environment.+eApplicationName :: Lens' EnvironmentDescription (Maybe Text)+eApplicationName = lens _eApplicationName (\ s a -> s{_eApplicationName = a})++-- | The environment's Amazon Resource Name (ARN), which can be used in other API requests that require an ARN.+eEnvironmentARN :: Lens' EnvironmentDescription (Maybe Text)+eEnvironmentARN = lens _eEnvironmentARN (\ s a -> s{_eEnvironmentARN = a})++-- | The name of the @SolutionStack@ deployed with this environment.+eSolutionStackName :: Lens' EnvironmentDescription (Maybe Text)+eSolutionStackName = lens _eSolutionStackName (\ s a -> s{_eSolutionStackName = a})++-- | The ID of this environment.+eEnvironmentId :: Lens' EnvironmentDescription (Maybe Text)+eEnvironmentId = lens _eEnvironmentId (\ s a -> s{_eEnvironmentId = a})++-- | Returns the health status of the application running in your environment. For more information, see <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/health-enhanced-status.html Health Colors and Statuses> .+eHealthStatus :: Lens' EnvironmentDescription (Maybe EnvironmentHealthStatus)+eHealthStatus = lens _eHealthStatus (\ s a -> s{_eHealthStatus = a})++-- | A list of links to other environments in the same group.+eEnvironmentLinks :: Lens' EnvironmentDescription [EnvironmentLink]+eEnvironmentLinks = lens _eEnvironmentLinks (\ s a -> s{_eEnvironmentLinks = a}) . _Default . _Coerce++-- | Describes this environment.+eDescription :: Lens' EnvironmentDescription (Maybe Text)+eDescription = lens _eDescription (\ s a -> s{_eDescription = a})++instance FromXML EnvironmentDescription where+        parseXML x+          = EnvironmentDescription' <$>+              (x .@? "Status") <*> (x .@? "CNAME") <*>+                (x .@? "TemplateName")+                <*> (x .@? "AbortableOperationInProgress")+                <*> (x .@? "EndpointURL")+                <*> (x .@? "Resources")+                <*> (x .@? "DateUpdated")+                <*> (x .@? "DateCreated")+                <*> (x .@? "Health")+                <*> (x .@? "VersionLabel")+                <*> (x .@? "PlatformArn")+                <*> (x .@? "Tier")+                <*> (x .@? "EnvironmentName")+                <*> (x .@? "ApplicationName")+                <*> (x .@? "EnvironmentArn")+                <*> (x .@? "SolutionStackName")+                <*> (x .@? "EnvironmentId")+                <*> (x .@? "HealthStatus")+                <*>+                (x .@? "EnvironmentLinks" .!@ mempty >>=+                   may (parseXMLList "member"))+                <*> (x .@? "Description")++instance Hashable EnvironmentDescription where++instance NFData EnvironmentDescription where++-- | Result message containing a list of environment descriptions.+--+--+--+-- /See:/ 'environmentDescriptionsMessage' smart constructor.+data EnvironmentDescriptionsMessage = EnvironmentDescriptionsMessage'+  { _edmNextToken    :: !(Maybe Text)+  , _edmEnvironments :: !(Maybe [EnvironmentDescription])+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'EnvironmentDescriptionsMessage' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'edmNextToken' - In a paginated request, the token that you can pass in a subsequent request to get the next response page.+--+-- * 'edmEnvironments' - Returns an 'EnvironmentDescription' list.+environmentDescriptionsMessage+    :: EnvironmentDescriptionsMessage+environmentDescriptionsMessage =+  EnvironmentDescriptionsMessage'+    {_edmNextToken = Nothing, _edmEnvironments = Nothing}+++-- | In a paginated request, the token that you can pass in a subsequent request to get the next response page.+edmNextToken :: Lens' EnvironmentDescriptionsMessage (Maybe Text)+edmNextToken = lens _edmNextToken (\ s a -> s{_edmNextToken = a})++-- | Returns an 'EnvironmentDescription' list.+edmEnvironments :: Lens' EnvironmentDescriptionsMessage [EnvironmentDescription]+edmEnvironments = lens _edmEnvironments (\ s a -> s{_edmEnvironments = a}) . _Default . _Coerce++instance FromXML EnvironmentDescriptionsMessage where+        parseXML x+          = EnvironmentDescriptionsMessage' <$>+              (x .@? "NextToken") <*>+                (x .@? "Environments" .!@ mempty >>=+                   may (parseXMLList "member"))++instance Hashable EnvironmentDescriptionsMessage+         where++instance NFData EnvironmentDescriptionsMessage where++-- | The information retrieved from the Amazon EC2 instances.+--+--+--+-- /See:/ 'environmentInfoDescription' smart constructor.+data EnvironmentInfoDescription = EnvironmentInfoDescription'+  { _eidSampleTimestamp :: !(Maybe ISO8601)+  , _eidEC2InstanceId   :: !(Maybe Text)+  , _eidInfoType        :: !(Maybe EnvironmentInfoType)+  , _eidMessage         :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'EnvironmentInfoDescription' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'eidSampleTimestamp' - The time stamp when this information was retrieved.+--+-- * 'eidEC2InstanceId' - The Amazon EC2 Instance ID for this information.+--+-- * 'eidInfoType' - The type of information retrieved.+--+-- * 'eidMessage' - The retrieved information.+environmentInfoDescription+    :: EnvironmentInfoDescription+environmentInfoDescription =+  EnvironmentInfoDescription'+    { _eidSampleTimestamp = Nothing+    , _eidEC2InstanceId = Nothing+    , _eidInfoType = Nothing+    , _eidMessage = Nothing+    }+++-- | The time stamp when this information was retrieved.+eidSampleTimestamp :: Lens' EnvironmentInfoDescription (Maybe UTCTime)+eidSampleTimestamp = lens _eidSampleTimestamp (\ s a -> s{_eidSampleTimestamp = a}) . mapping _Time++-- | The Amazon EC2 Instance ID for this information.+eidEC2InstanceId :: Lens' EnvironmentInfoDescription (Maybe Text)+eidEC2InstanceId = lens _eidEC2InstanceId (\ s a -> s{_eidEC2InstanceId = a})++-- | The type of information retrieved.+eidInfoType :: Lens' EnvironmentInfoDescription (Maybe EnvironmentInfoType)+eidInfoType = lens _eidInfoType (\ s a -> s{_eidInfoType = a})++-- | The retrieved information.+eidMessage :: Lens' EnvironmentInfoDescription (Maybe Text)+eidMessage = lens _eidMessage (\ s a -> s{_eidMessage = a})++instance FromXML EnvironmentInfoDescription where+        parseXML x+          = EnvironmentInfoDescription' <$>+              (x .@? "SampleTimestamp") <*> (x .@? "Ec2InstanceId")+                <*> (x .@? "InfoType")+                <*> (x .@? "Message")++instance Hashable EnvironmentInfoDescription where++instance NFData EnvironmentInfoDescription where++-- | A link to another environment, defined in the environment's manifest. Links provide connection information in system properties that can be used to connect to another environment in the same group. See <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/environment-cfg-manifest.html Environment Manifest (env.yaml)> for details.+--+--+--+-- /See:/ 'environmentLink' smart constructor.+data EnvironmentLink = EnvironmentLink'+  { _elLinkName        :: !(Maybe Text)+  , _elEnvironmentName :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'EnvironmentLink' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'elLinkName' - The name of the link.+--+-- * 'elEnvironmentName' - The name of the linked environment (the dependency).+environmentLink+    :: EnvironmentLink+environmentLink =+  EnvironmentLink' {_elLinkName = Nothing, _elEnvironmentName = Nothing}+++-- | The name of the link.+elLinkName :: Lens' EnvironmentLink (Maybe Text)+elLinkName = lens _elLinkName (\ s a -> s{_elLinkName = a})++-- | The name of the linked environment (the dependency).+elEnvironmentName :: Lens' EnvironmentLink (Maybe Text)+elEnvironmentName = lens _elEnvironmentName (\ s a -> s{_elEnvironmentName = a})++instance FromXML EnvironmentLink where+        parseXML x+          = EnvironmentLink' <$>+              (x .@? "LinkName") <*> (x .@? "EnvironmentName")++instance Hashable EnvironmentLink where++instance NFData EnvironmentLink where++-- | Describes the AWS resources in use by this environment. This data is live.+--+--+--+-- /See:/ 'environmentResourceDescription' smart constructor.+data EnvironmentResourceDescription = EnvironmentResourceDescription'+  { _erdQueues               :: !(Maybe [Queue])+  , _erdTriggers             :: !(Maybe [Trigger])+  , _erdLoadBalancers        :: !(Maybe [LoadBalancer])+  , _erdEnvironmentName      :: !(Maybe Text)+  , _erdInstances            :: !(Maybe [Instance])+  , _erdLaunchConfigurations :: !(Maybe [LaunchConfiguration])+  , _erdAutoScalingGroups    :: !(Maybe [AutoScalingGroup])+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'EnvironmentResourceDescription' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'erdQueues' - The queues used by this environment.+--+-- * 'erdTriggers' - The @AutoScaling@ triggers in use by this environment.+--+-- * 'erdLoadBalancers' - The LoadBalancers in use by this environment.+--+-- * 'erdEnvironmentName' - The name of the environment.+--+-- * 'erdInstances' - The Amazon EC2 instances used by this environment.+--+-- * 'erdLaunchConfigurations' - The Auto Scaling launch configurations in use by this environment.+--+-- * 'erdAutoScalingGroups' - The @AutoScalingGroups@ used by this environment.+environmentResourceDescription+    :: EnvironmentResourceDescription+environmentResourceDescription =+  EnvironmentResourceDescription'+    { _erdQueues = Nothing+    , _erdTriggers = Nothing+    , _erdLoadBalancers = Nothing+    , _erdEnvironmentName = Nothing+    , _erdInstances = Nothing+    , _erdLaunchConfigurations = Nothing+    , _erdAutoScalingGroups = Nothing+    }+++-- | The queues used by this environment.+erdQueues :: Lens' EnvironmentResourceDescription [Queue]+erdQueues = lens _erdQueues (\ s a -> s{_erdQueues = a}) . _Default . _Coerce++-- | The @AutoScaling@ triggers in use by this environment.+erdTriggers :: Lens' EnvironmentResourceDescription [Trigger]+erdTriggers = lens _erdTriggers (\ s a -> s{_erdTriggers = a}) . _Default . _Coerce++-- | The LoadBalancers in use by this environment.+erdLoadBalancers :: Lens' EnvironmentResourceDescription [LoadBalancer]+erdLoadBalancers = lens _erdLoadBalancers (\ s a -> s{_erdLoadBalancers = a}) . _Default . _Coerce++-- | The name of the environment.+erdEnvironmentName :: Lens' EnvironmentResourceDescription (Maybe Text)+erdEnvironmentName = lens _erdEnvironmentName (\ s a -> s{_erdEnvironmentName = a})++-- | The Amazon EC2 instances used by this environment.+erdInstances :: Lens' EnvironmentResourceDescription [Instance]+erdInstances = lens _erdInstances (\ s a -> s{_erdInstances = a}) . _Default . _Coerce++-- | The Auto Scaling launch configurations in use by this environment.+erdLaunchConfigurations :: Lens' EnvironmentResourceDescription [LaunchConfiguration]+erdLaunchConfigurations = lens _erdLaunchConfigurations (\ s a -> s{_erdLaunchConfigurations = a}) . _Default . _Coerce++-- | The @AutoScalingGroups@ used by this environment.+erdAutoScalingGroups :: Lens' EnvironmentResourceDescription [AutoScalingGroup]+erdAutoScalingGroups = lens _erdAutoScalingGroups (\ s a -> s{_erdAutoScalingGroups = a}) . _Default . _Coerce++instance FromXML EnvironmentResourceDescription where+        parseXML x+          = EnvironmentResourceDescription' <$>+              (x .@? "Queues" .!@ mempty >>=+                 may (parseXMLList "member"))+                <*>+                (x .@? "Triggers" .!@ mempty >>=+                   may (parseXMLList "member"))+                <*>+                (x .@? "LoadBalancers" .!@ mempty >>=+                   may (parseXMLList "member"))+                <*> (x .@? "EnvironmentName")+                <*>+                (x .@? "Instances" .!@ mempty >>=+                   may (parseXMLList "member"))+                <*>+                (x .@? "LaunchConfigurations" .!@ mempty >>=+                   may (parseXMLList "member"))+                <*>+                (x .@? "AutoScalingGroups" .!@ mempty >>=+                   may (parseXMLList "member"))++instance Hashable EnvironmentResourceDescription+         where++instance NFData EnvironmentResourceDescription where++-- | Describes the AWS resources in use by this environment. This data is not live data.+--+--+--+-- /See:/ 'environmentResourcesDescription' smart constructor.+newtype EnvironmentResourcesDescription = EnvironmentResourcesDescription'+  { _erdLoadBalancer :: Maybe LoadBalancerDescription+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'EnvironmentResourcesDescription' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'erdLoadBalancer' - Describes the LoadBalancer.+environmentResourcesDescription+    :: EnvironmentResourcesDescription+environmentResourcesDescription =+  EnvironmentResourcesDescription' {_erdLoadBalancer = Nothing}+++-- | Describes the LoadBalancer.+erdLoadBalancer :: Lens' EnvironmentResourcesDescription (Maybe LoadBalancerDescription)+erdLoadBalancer = lens _erdLoadBalancer (\ s a -> s{_erdLoadBalancer = a})++instance FromXML EnvironmentResourcesDescription+         where+        parseXML x+          = EnvironmentResourcesDescription' <$>+              (x .@? "LoadBalancer")++instance Hashable EnvironmentResourcesDescription+         where++instance NFData EnvironmentResourcesDescription where++-- | Describes the properties of an environment tier+--+--+--+-- /See:/ 'environmentTier' smart constructor.+data EnvironmentTier = EnvironmentTier'+  { _etName    :: !(Maybe Text)+  , _etVersion :: !(Maybe Text)+  , _etType    :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'EnvironmentTier' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'etName' - The name of this environment tier.+--+-- * 'etVersion' - The version of this environment tier.+--+-- * 'etType' - The type of this environment tier.+environmentTier+    :: EnvironmentTier+environmentTier =+  EnvironmentTier' {_etName = Nothing, _etVersion = Nothing, _etType = Nothing}+++-- | The name of this environment tier.+etName :: Lens' EnvironmentTier (Maybe Text)+etName = lens _etName (\ s a -> s{_etName = a})++-- | The version of this environment tier.+etVersion :: Lens' EnvironmentTier (Maybe Text)+etVersion = lens _etVersion (\ s a -> s{_etVersion = a})++-- | The type of this environment tier.+etType :: Lens' EnvironmentTier (Maybe Text)+etType = lens _etType (\ s a -> s{_etType = a})++instance FromXML EnvironmentTier where+        parseXML x+          = EnvironmentTier' <$>+              (x .@? "Name") <*> (x .@? "Version") <*>+                (x .@? "Type")++instance Hashable EnvironmentTier where++instance NFData EnvironmentTier where++instance ToQuery EnvironmentTier where+        toQuery EnvironmentTier'{..}+          = mconcat+              ["Name" =: _etName, "Version" =: _etVersion,+               "Type" =: _etType]++-- | Describes an event.+--+--+--+-- /See:/ 'eventDescription' smart constructor.+data EventDescription = EventDescription'+  { _edRequestId       :: !(Maybe Text)+  , _edTemplateName    :: !(Maybe Text)+  , _edSeverity        :: !(Maybe EventSeverity)+  , _edVersionLabel    :: !(Maybe Text)+  , _edPlatformARN     :: !(Maybe Text)+  , _edEnvironmentName :: !(Maybe Text)+  , _edApplicationName :: !(Maybe Text)+  , _edEventDate       :: !(Maybe ISO8601)+  , _edMessage         :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'EventDescription' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'edRequestId' - The web service request ID for the activity of this event.+--+-- * 'edTemplateName' - The name of the configuration associated with this event.+--+-- * 'edSeverity' - The severity level of this event.+--+-- * 'edVersionLabel' - The release label for the application version associated with this event.+--+-- * 'edPlatformARN' - The ARN of the platform.+--+-- * 'edEnvironmentName' - The name of the environment associated with this event.+--+-- * 'edApplicationName' - The application associated with the event.+--+-- * 'edEventDate' - The date when the event occurred.+--+-- * 'edMessage' - The event message.+eventDescription+    :: EventDescription+eventDescription =+  EventDescription'+    { _edRequestId = Nothing+    , _edTemplateName = Nothing+    , _edSeverity = Nothing+    , _edVersionLabel = Nothing+    , _edPlatformARN = Nothing+    , _edEnvironmentName = Nothing+    , _edApplicationName = Nothing+    , _edEventDate = Nothing+    , _edMessage = Nothing+    }+++-- | The web service request ID for the activity of this event.+edRequestId :: Lens' EventDescription (Maybe Text)+edRequestId = lens _edRequestId (\ s a -> s{_edRequestId = a})++-- | The name of the configuration associated with this event.+edTemplateName :: Lens' EventDescription (Maybe Text)+edTemplateName = lens _edTemplateName (\ s a -> s{_edTemplateName = a})++-- | The severity level of this event.+edSeverity :: Lens' EventDescription (Maybe EventSeverity)+edSeverity = lens _edSeverity (\ s a -> s{_edSeverity = a})++-- | The release label for the application version associated with this event.+edVersionLabel :: Lens' EventDescription (Maybe Text)+edVersionLabel = lens _edVersionLabel (\ s a -> s{_edVersionLabel = a})++-- | The ARN of the platform.+edPlatformARN :: Lens' EventDescription (Maybe Text)+edPlatformARN = lens _edPlatformARN (\ s a -> s{_edPlatformARN = a})++-- | The name of the environment associated with this event.+edEnvironmentName :: Lens' EventDescription (Maybe Text)+edEnvironmentName = lens _edEnvironmentName (\ s a -> s{_edEnvironmentName = a})++-- | The application associated with the event.+edApplicationName :: Lens' EventDescription (Maybe Text)+edApplicationName = lens _edApplicationName (\ s a -> s{_edApplicationName = a})++-- | The date when the event occurred.+edEventDate :: Lens' EventDescription (Maybe UTCTime)+edEventDate = lens _edEventDate (\ s a -> s{_edEventDate = a}) . mapping _Time++-- | The event message.+edMessage :: Lens' EventDescription (Maybe Text)+edMessage = lens _edMessage (\ s a -> s{_edMessage = a})++instance FromXML EventDescription where+        parseXML x+          = EventDescription' <$>+              (x .@? "RequestId") <*> (x .@? "TemplateName") <*>+                (x .@? "Severity")+                <*> (x .@? "VersionLabel")+                <*> (x .@? "PlatformArn")+                <*> (x .@? "EnvironmentName")+                <*> (x .@? "ApplicationName")+                <*> (x .@? "EventDate")+                <*> (x .@? "Message")++instance Hashable EventDescription where++instance NFData EventDescription where++-- | The description of an Amazon EC2 instance.+--+--+--+-- /See:/ 'instance'' smart constructor.+newtype Instance = Instance'+  { _iId :: Maybe Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Instance' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'iId' - The ID of the Amazon EC2 instance.+instance'+    :: Instance+instance' = Instance' {_iId = Nothing}+++-- | The ID of the Amazon EC2 instance.+iId :: Lens' Instance (Maybe Text)+iId = lens _iId (\ s a -> s{_iId = a})++instance FromXML Instance where+        parseXML x = Instance' <$> (x .@? "Id")++instance Hashable Instance where++instance NFData Instance where++-- | Represents summary information about the health of an instance. For more information, see <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/health-enhanced-status.html Health Colors and Statuses> .+--+--+--+-- /See:/ 'instanceHealthSummary' smart constructor.+data InstanceHealthSummary = InstanceHealthSummary'+  { _ihsOK       :: !(Maybe Int)+  , _ihsPending  :: !(Maybe Int)+  , _ihsSevere   :: !(Maybe Int)+  , _ihsUnknown  :: !(Maybe Int)+  , _ihsNoData   :: !(Maybe Int)+  , _ihsWarning  :: !(Maybe Int)+  , _ihsDegraded :: !(Maybe Int)+  , _ihsInfo     :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'InstanceHealthSummary' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ihsOK' - __Green.__ An instance is passing health checks and the health agent is not reporting any problems.+--+-- * 'ihsPending' - __Grey.__ An operation is in progress on an instance within the command timeout.+--+-- * 'ihsSevere' - __Red.__ The health agent is reporting a very high number of request failures or other issues for an instance or environment.+--+-- * 'ihsUnknown' - __Grey.__ AWS Elastic Beanstalk and the health agent are reporting an insufficient amount of data on an instance.+--+-- * 'ihsNoData' - __Grey.__ AWS Elastic Beanstalk and the health agent are reporting no data on an instance.+--+-- * 'ihsWarning' - __Yellow.__ The health agent is reporting a moderate number of request failures or other issues for an instance or environment.+--+-- * 'ihsDegraded' - __Red.__ The health agent is reporting a high number of request failures or other issues for an instance or environment.+--+-- * 'ihsInfo' - __Green.__ An operation is in progress on an instance.+instanceHealthSummary+    :: InstanceHealthSummary+instanceHealthSummary =+  InstanceHealthSummary'+    { _ihsOK = Nothing+    , _ihsPending = Nothing+    , _ihsSevere = Nothing+    , _ihsUnknown = Nothing+    , _ihsNoData = Nothing+    , _ihsWarning = Nothing+    , _ihsDegraded = Nothing+    , _ihsInfo = Nothing+    }+++-- | __Green.__ An instance is passing health checks and the health agent is not reporting any problems.+ihsOK :: Lens' InstanceHealthSummary (Maybe Int)+ihsOK = lens _ihsOK (\ s a -> s{_ihsOK = a})++-- | __Grey.__ An operation is in progress on an instance within the command timeout.+ihsPending :: Lens' InstanceHealthSummary (Maybe Int)+ihsPending = lens _ihsPending (\ s a -> s{_ihsPending = a})++-- | __Red.__ The health agent is reporting a very high number of request failures or other issues for an instance or environment.+ihsSevere :: Lens' InstanceHealthSummary (Maybe Int)+ihsSevere = lens _ihsSevere (\ s a -> s{_ihsSevere = a})++-- | __Grey.__ AWS Elastic Beanstalk and the health agent are reporting an insufficient amount of data on an instance.+ihsUnknown :: Lens' InstanceHealthSummary (Maybe Int)+ihsUnknown = lens _ihsUnknown (\ s a -> s{_ihsUnknown = a})++-- | __Grey.__ AWS Elastic Beanstalk and the health agent are reporting no data on an instance.+ihsNoData :: Lens' InstanceHealthSummary (Maybe Int)+ihsNoData = lens _ihsNoData (\ s a -> s{_ihsNoData = a})++-- | __Yellow.__ The health agent is reporting a moderate number of request failures or other issues for an instance or environment.+ihsWarning :: Lens' InstanceHealthSummary (Maybe Int)+ihsWarning = lens _ihsWarning (\ s a -> s{_ihsWarning = a})++-- | __Red.__ The health agent is reporting a high number of request failures or other issues for an instance or environment.+ihsDegraded :: Lens' InstanceHealthSummary (Maybe Int)+ihsDegraded = lens _ihsDegraded (\ s a -> s{_ihsDegraded = a})++-- | __Green.__ An operation is in progress on an instance.+ihsInfo :: Lens' InstanceHealthSummary (Maybe Int)+ihsInfo = lens _ihsInfo (\ s a -> s{_ihsInfo = a})++instance FromXML InstanceHealthSummary where+        parseXML x+          = InstanceHealthSummary' <$>+              (x .@? "Ok") <*> (x .@? "Pending") <*>+                (x .@? "Severe")+                <*> (x .@? "Unknown")+                <*> (x .@? "NoData")+                <*> (x .@? "Warning")+                <*> (x .@? "Degraded")+                <*> (x .@? "Info")++instance Hashable InstanceHealthSummary where++instance NFData InstanceHealthSummary where++-- | Represents the average latency for the slowest X percent of requests over the last 10 seconds.+--+--+--+-- /See:/ 'latency' smart constructor.+data Latency = Latency'+  { _lP75  :: !(Maybe Double)+  , _lP50  :: !(Maybe Double)+  , _lP85  :: !(Maybe Double)+  , _lP999 :: !(Maybe Double)+  , _lP90  :: !(Maybe Double)+  , _lP95  :: !(Maybe Double)+  , _lP99  :: !(Maybe Double)+  , _lP10  :: !(Maybe Double)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Latency' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lP75' - The average latency for the slowest 25 percent of requests over the last 10 seconds.+--+-- * 'lP50' - The average latency for the slowest 50 percent of requests over the last 10 seconds.+--+-- * 'lP85' - The average latency for the slowest 15 percent of requests over the last 10 seconds.+--+-- * 'lP999' - The average latency for the slowest 0.1 percent of requests over the last 10 seconds.+--+-- * 'lP90' - The average latency for the slowest 10 percent of requests over the last 10 seconds.+--+-- * 'lP95' - The average latency for the slowest 5 percent of requests over the last 10 seconds.+--+-- * 'lP99' - The average latency for the slowest 1 percent of requests over the last 10 seconds.+--+-- * 'lP10' - The average latency for the slowest 90 percent of requests over the last 10 seconds.+latency+    :: Latency+latency =+  Latency'+    { _lP75 = Nothing+    , _lP50 = Nothing+    , _lP85 = Nothing+    , _lP999 = Nothing+    , _lP90 = Nothing+    , _lP95 = Nothing+    , _lP99 = Nothing+    , _lP10 = Nothing+    }+++-- | The average latency for the slowest 25 percent of requests over the last 10 seconds.+lP75 :: Lens' Latency (Maybe Double)+lP75 = lens _lP75 (\ s a -> s{_lP75 = a})++-- | The average latency for the slowest 50 percent of requests over the last 10 seconds.+lP50 :: Lens' Latency (Maybe Double)+lP50 = lens _lP50 (\ s a -> s{_lP50 = a})++-- | The average latency for the slowest 15 percent of requests over the last 10 seconds.+lP85 :: Lens' Latency (Maybe Double)+lP85 = lens _lP85 (\ s a -> s{_lP85 = a})++-- | The average latency for the slowest 0.1 percent of requests over the last 10 seconds.+lP999 :: Lens' Latency (Maybe Double)+lP999 = lens _lP999 (\ s a -> s{_lP999 = a})++-- | The average latency for the slowest 10 percent of requests over the last 10 seconds.+lP90 :: Lens' Latency (Maybe Double)+lP90 = lens _lP90 (\ s a -> s{_lP90 = a})++-- | The average latency for the slowest 5 percent of requests over the last 10 seconds.+lP95 :: Lens' Latency (Maybe Double)+lP95 = lens _lP95 (\ s a -> s{_lP95 = a})++-- | The average latency for the slowest 1 percent of requests over the last 10 seconds.+lP99 :: Lens' Latency (Maybe Double)+lP99 = lens _lP99 (\ s a -> s{_lP99 = a})++-- | The average latency for the slowest 90 percent of requests over the last 10 seconds.+lP10 :: Lens' Latency (Maybe Double)+lP10 = lens _lP10 (\ s a -> s{_lP10 = a})++instance FromXML Latency where+        parseXML x+          = Latency' <$>+              (x .@? "P75") <*> (x .@? "P50") <*> (x .@? "P85") <*>+                (x .@? "P999")+                <*> (x .@? "P90")+                <*> (x .@? "P95")+                <*> (x .@? "P99")+                <*> (x .@? "P10")++instance Hashable Latency where++instance NFData Latency where++-- | Describes an Auto Scaling launch configuration.+--+--+--+-- /See:/ 'launchConfiguration' smart constructor.+newtype LaunchConfiguration = LaunchConfiguration'+  { _lcName :: Maybe Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'LaunchConfiguration' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lcName' - The name of the launch configuration.+launchConfiguration+    :: LaunchConfiguration+launchConfiguration = LaunchConfiguration' {_lcName = Nothing}+++-- | The name of the launch configuration.+lcName :: Lens' LaunchConfiguration (Maybe Text)+lcName = lens _lcName (\ s a -> s{_lcName = a})++instance FromXML LaunchConfiguration where+        parseXML x = LaunchConfiguration' <$> (x .@? "Name")++instance Hashable LaunchConfiguration where++instance NFData LaunchConfiguration where++-- | Describes the properties of a Listener for the LoadBalancer.+--+--+--+-- /See:/ 'listener' smart constructor.+data Listener = Listener'+  { _lProtocol :: !(Maybe Text)+  , _lPort     :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Listener' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lProtocol' - The protocol that is used by the Listener.+--+-- * 'lPort' - The port that is used by the Listener.+listener+    :: Listener+listener = Listener' {_lProtocol = Nothing, _lPort = Nothing}+++-- | The protocol that is used by the Listener.+lProtocol :: Lens' Listener (Maybe Text)+lProtocol = lens _lProtocol (\ s a -> s{_lProtocol = a})++-- | The port that is used by the Listener.+lPort :: Lens' Listener (Maybe Int)+lPort = lens _lPort (\ s a -> s{_lPort = a})++instance FromXML Listener where+        parseXML x+          = Listener' <$> (x .@? "Protocol") <*> (x .@? "Port")++instance Hashable Listener where++instance NFData Listener where++-- | Describes a LoadBalancer.+--+--+--+-- /See:/ 'loadBalancer' smart constructor.+newtype LoadBalancer = LoadBalancer'+  { _lbName :: Maybe Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'LoadBalancer' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lbName' - The name of the LoadBalancer.+loadBalancer+    :: LoadBalancer+loadBalancer = LoadBalancer' {_lbName = Nothing}+++-- | The name of the LoadBalancer.+lbName :: Lens' LoadBalancer (Maybe Text)+lbName = lens _lbName (\ s a -> s{_lbName = a})++instance FromXML LoadBalancer where+        parseXML x = LoadBalancer' <$> (x .@? "Name")++instance Hashable LoadBalancer where++instance NFData LoadBalancer where++-- | Describes the details of a LoadBalancer.+--+--+--+-- /See:/ 'loadBalancerDescription' smart constructor.+data LoadBalancerDescription = LoadBalancerDescription'+  { _lbdLoadBalancerName :: !(Maybe Text)+  , _lbdDomain           :: !(Maybe Text)+  , _lbdListeners        :: !(Maybe [Listener])+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'LoadBalancerDescription' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lbdLoadBalancerName' - The name of the LoadBalancer.+--+-- * 'lbdDomain' - The domain name of the LoadBalancer.+--+-- * 'lbdListeners' - A list of Listeners used by the LoadBalancer.+loadBalancerDescription+    :: LoadBalancerDescription+loadBalancerDescription =+  LoadBalancerDescription'+    { _lbdLoadBalancerName = Nothing+    , _lbdDomain = Nothing+    , _lbdListeners = Nothing+    }+++-- | The name of the LoadBalancer.+lbdLoadBalancerName :: Lens' LoadBalancerDescription (Maybe Text)+lbdLoadBalancerName = lens _lbdLoadBalancerName (\ s a -> s{_lbdLoadBalancerName = a})++-- | The domain name of the LoadBalancer.+lbdDomain :: Lens' LoadBalancerDescription (Maybe Text)+lbdDomain = lens _lbdDomain (\ s a -> s{_lbdDomain = a})++-- | A list of Listeners used by the LoadBalancer.+lbdListeners :: Lens' LoadBalancerDescription [Listener]+lbdListeners = lens _lbdListeners (\ s a -> s{_lbdListeners = a}) . _Default . _Coerce++instance FromXML LoadBalancerDescription where+        parseXML x+          = LoadBalancerDescription' <$>+              (x .@? "LoadBalancerName") <*> (x .@? "Domain") <*>+                (x .@? "Listeners" .!@ mempty >>=+                   may (parseXMLList "member"))++instance Hashable LoadBalancerDescription where++instance NFData LoadBalancerDescription where++-- | The record of an upcoming or in-progress managed action.+--+--+--+-- /See:/ 'managedAction' smart constructor.+data ManagedAction = ManagedAction'+  { _maStatus            :: !(Maybe ActionStatus)+  , _maActionId          :: !(Maybe Text)+  , _maWindowStartTime   :: !(Maybe ISO8601)+  , _maActionDescription :: !(Maybe Text)+  , _maActionType        :: !(Maybe ActionType)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ManagedAction' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'maStatus' - The status of the managed action. If the action is @Scheduled@ , you can apply it immediately with 'ApplyEnvironmentManagedAction' .+--+-- * 'maActionId' - A unique identifier for the managed action.+--+-- * 'maWindowStartTime' - The start time of the maintenance window in which the managed action will execute.+--+-- * 'maActionDescription' - A description of the managed action.+--+-- * 'maActionType' - The type of managed action.+managedAction+    :: ManagedAction+managedAction =+  ManagedAction'+    { _maStatus = Nothing+    , _maActionId = Nothing+    , _maWindowStartTime = Nothing+    , _maActionDescription = Nothing+    , _maActionType = Nothing+    }+++-- | The status of the managed action. If the action is @Scheduled@ , you can apply it immediately with 'ApplyEnvironmentManagedAction' .+maStatus :: Lens' ManagedAction (Maybe ActionStatus)+maStatus = lens _maStatus (\ s a -> s{_maStatus = a})++-- | A unique identifier for the managed action.+maActionId :: Lens' ManagedAction (Maybe Text)+maActionId = lens _maActionId (\ s a -> s{_maActionId = a})++-- | The start time of the maintenance window in which the managed action will execute.+maWindowStartTime :: Lens' ManagedAction (Maybe UTCTime)+maWindowStartTime = lens _maWindowStartTime (\ s a -> s{_maWindowStartTime = a}) . mapping _Time++-- | A description of the managed action.+maActionDescription :: Lens' ManagedAction (Maybe Text)+maActionDescription = lens _maActionDescription (\ s a -> s{_maActionDescription = a})++-- | The type of managed action.+maActionType :: Lens' ManagedAction (Maybe ActionType)+maActionType = lens _maActionType (\ s a -> s{_maActionType = a})++instance FromXML ManagedAction where+        parseXML x+          = ManagedAction' <$>+              (x .@? "Status") <*> (x .@? "ActionId") <*>+                (x .@? "WindowStartTime")+                <*> (x .@? "ActionDescription")+                <*> (x .@? "ActionType")++instance Hashable ManagedAction where++instance NFData ManagedAction where++-- | The record of a completed or failed managed action.+--+--+--+-- /See:/ 'managedActionHistoryItem' smart constructor.+data ManagedActionHistoryItem = ManagedActionHistoryItem'+  { _mahiStatus             :: !(Maybe ActionHistoryStatus)+  , _mahiFailureType        :: !(Maybe FailureType)+  , _mahiActionId           :: !(Maybe Text)+  , _mahiFailureDescription :: !(Maybe Text)+  , _mahiFinishedTime       :: !(Maybe ISO8601)+  , _mahiActionDescription  :: !(Maybe Text)+  , _mahiExecutedTime       :: !(Maybe ISO8601)+  , _mahiActionType         :: !(Maybe ActionType)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ManagedActionHistoryItem' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'mahiStatus' - The status of the action.+--+-- * 'mahiFailureType' - If the action failed, the type of failure.+--+-- * 'mahiActionId' - A unique identifier for the managed action.+--+-- * 'mahiFailureDescription' - If the action failed, a description of the failure.+--+-- * 'mahiFinishedTime' - The date and time that the action finished executing.+--+-- * 'mahiActionDescription' - A description of the managed action.+--+-- * 'mahiExecutedTime' - The date and time that the action started executing.+--+-- * 'mahiActionType' - The type of the managed action.+managedActionHistoryItem+    :: ManagedActionHistoryItem+managedActionHistoryItem =+  ManagedActionHistoryItem'+    { _mahiStatus = Nothing+    , _mahiFailureType = Nothing+    , _mahiActionId = Nothing+    , _mahiFailureDescription = Nothing+    , _mahiFinishedTime = Nothing+    , _mahiActionDescription = Nothing+    , _mahiExecutedTime = Nothing+    , _mahiActionType = Nothing+    }+++-- | The status of the action.+mahiStatus :: Lens' ManagedActionHistoryItem (Maybe ActionHistoryStatus)+mahiStatus = lens _mahiStatus (\ s a -> s{_mahiStatus = a})++-- | If the action failed, the type of failure.+mahiFailureType :: Lens' ManagedActionHistoryItem (Maybe FailureType)+mahiFailureType = lens _mahiFailureType (\ s a -> s{_mahiFailureType = a})++-- | A unique identifier for the managed action.+mahiActionId :: Lens' ManagedActionHistoryItem (Maybe Text)+mahiActionId = lens _mahiActionId (\ s a -> s{_mahiActionId = a})++-- | If the action failed, a description of the failure.+mahiFailureDescription :: Lens' ManagedActionHistoryItem (Maybe Text)+mahiFailureDescription = lens _mahiFailureDescription (\ s a -> s{_mahiFailureDescription = a})++-- | The date and time that the action finished executing.+mahiFinishedTime :: Lens' ManagedActionHistoryItem (Maybe UTCTime)+mahiFinishedTime = lens _mahiFinishedTime (\ s a -> s{_mahiFinishedTime = a}) . mapping _Time++-- | A description of the managed action.+mahiActionDescription :: Lens' ManagedActionHistoryItem (Maybe Text)+mahiActionDescription = lens _mahiActionDescription (\ s a -> s{_mahiActionDescription = a})++-- | The date and time that the action started executing.+mahiExecutedTime :: Lens' ManagedActionHistoryItem (Maybe UTCTime)+mahiExecutedTime = lens _mahiExecutedTime (\ s a -> s{_mahiExecutedTime = a}) . mapping _Time++-- | The type of the managed action.+mahiActionType :: Lens' ManagedActionHistoryItem (Maybe ActionType)+mahiActionType = lens _mahiActionType (\ s a -> s{_mahiActionType = a})++instance FromXML ManagedActionHistoryItem where+        parseXML x+          = ManagedActionHistoryItem' <$>+              (x .@? "Status") <*> (x .@? "FailureType") <*>+                (x .@? "ActionId")+                <*> (x .@? "FailureDescription")+                <*> (x .@? "FinishedTime")+                <*> (x .@? "ActionDescription")+                <*> (x .@? "ExecutedTime")+                <*> (x .@? "ActionType")++instance Hashable ManagedActionHistoryItem where++instance NFData ManagedActionHistoryItem where++-- | A lifecycle rule that deletes application versions after the specified number of days.+--+--+--+-- /See:/ 'maxAgeRule' smart constructor.+data MaxAgeRule = MaxAgeRule'+  { _marDeleteSourceFromS3 :: !(Maybe Bool)+  , _marMaxAgeInDays       :: !(Maybe Int)+  , _marEnabled            :: !Bool+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'MaxAgeRule' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'marDeleteSourceFromS3' - Set to @true@ to delete a version's source bundle from Amazon S3 when Elastic Beanstalk deletes the application version.+--+-- * 'marMaxAgeInDays' - Specify the number of days to retain an application versions.+--+-- * 'marEnabled' - Specify @true@ to apply the rule, or @false@ to disable it.+maxAgeRule+    :: Bool -- ^ 'marEnabled'+    -> MaxAgeRule+maxAgeRule pEnabled_ =+  MaxAgeRule'+    { _marDeleteSourceFromS3 = Nothing+    , _marMaxAgeInDays = Nothing+    , _marEnabled = pEnabled_+    }+++-- | Set to @true@ to delete a version's source bundle from Amazon S3 when Elastic Beanstalk deletes the application version.+marDeleteSourceFromS3 :: Lens' MaxAgeRule (Maybe Bool)+marDeleteSourceFromS3 = lens _marDeleteSourceFromS3 (\ s a -> s{_marDeleteSourceFromS3 = a})++-- | Specify the number of days to retain an application versions.+marMaxAgeInDays :: Lens' MaxAgeRule (Maybe Int)+marMaxAgeInDays = lens _marMaxAgeInDays (\ s a -> s{_marMaxAgeInDays = a})++-- | Specify @true@ to apply the rule, or @false@ to disable it.+marEnabled :: Lens' MaxAgeRule Bool+marEnabled = lens _marEnabled (\ s a -> s{_marEnabled = a})++instance FromXML MaxAgeRule where+        parseXML x+          = MaxAgeRule' <$>+              (x .@? "DeleteSourceFromS3") <*>+                (x .@? "MaxAgeInDays")+                <*> (x .@ "Enabled")++instance Hashable MaxAgeRule where++instance NFData MaxAgeRule where++instance ToQuery MaxAgeRule where+        toQuery MaxAgeRule'{..}+          = mconcat+              ["DeleteSourceFromS3" =: _marDeleteSourceFromS3,+               "MaxAgeInDays" =: _marMaxAgeInDays,+               "Enabled" =: _marEnabled]++-- | A lifecycle rule that deletes the oldest application version when the maximum count is exceeded.+--+--+--+-- /See:/ 'maxCountRule' smart constructor.+data MaxCountRule = MaxCountRule'+  { _mcrMaxCount           :: !(Maybe Int)+  , _mcrDeleteSourceFromS3 :: !(Maybe Bool)+  , _mcrEnabled            :: !Bool+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'MaxCountRule' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'mcrMaxCount' - Specify the maximum number of application versions to retain.+--+-- * 'mcrDeleteSourceFromS3' - Set to @true@ to delete a version's source bundle from Amazon S3 when Elastic Beanstalk deletes the application version.+--+-- * 'mcrEnabled' - Specify @true@ to apply the rule, or @false@ to disable it.+maxCountRule+    :: Bool -- ^ 'mcrEnabled'+    -> MaxCountRule+maxCountRule pEnabled_ =+  MaxCountRule'+    { _mcrMaxCount = Nothing+    , _mcrDeleteSourceFromS3 = Nothing+    , _mcrEnabled = pEnabled_+    }+++-- | Specify the maximum number of application versions to retain.+mcrMaxCount :: Lens' MaxCountRule (Maybe Int)+mcrMaxCount = lens _mcrMaxCount (\ s a -> s{_mcrMaxCount = a})++-- | Set to @true@ to delete a version's source bundle from Amazon S3 when Elastic Beanstalk deletes the application version.+mcrDeleteSourceFromS3 :: Lens' MaxCountRule (Maybe Bool)+mcrDeleteSourceFromS3 = lens _mcrDeleteSourceFromS3 (\ s a -> s{_mcrDeleteSourceFromS3 = a})++-- | Specify @true@ to apply the rule, or @false@ to disable it.+mcrEnabled :: Lens' MaxCountRule Bool+mcrEnabled = lens _mcrEnabled (\ s a -> s{_mcrEnabled = a})++instance FromXML MaxCountRule where+        parseXML x+          = MaxCountRule' <$>+              (x .@? "MaxCount") <*> (x .@? "DeleteSourceFromS3")+                <*> (x .@ "Enabled")++instance Hashable MaxCountRule where++instance NFData MaxCountRule where++instance ToQuery MaxCountRule where+        toQuery MaxCountRule'{..}+          = mconcat+              ["MaxCount" =: _mcrMaxCount,+               "DeleteSourceFromS3" =: _mcrDeleteSourceFromS3,+               "Enabled" =: _mcrEnabled]++-- | A regular expression representing a restriction on a string configuration option value.+--+--+--+-- /See:/ 'optionRestrictionRegex' smart constructor.+data OptionRestrictionRegex = OptionRestrictionRegex'+  { _orrPattern :: !(Maybe Text)+  , _orrLabel   :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'OptionRestrictionRegex' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'orrPattern' - The regular expression pattern that a string configuration option value with this restriction must match.+--+-- * 'orrLabel' - A unique name representing this regular expression.+optionRestrictionRegex+    :: OptionRestrictionRegex+optionRestrictionRegex =+  OptionRestrictionRegex' {_orrPattern = Nothing, _orrLabel = Nothing}+++-- | The regular expression pattern that a string configuration option value with this restriction must match.+orrPattern :: Lens' OptionRestrictionRegex (Maybe Text)+orrPattern = lens _orrPattern (\ s a -> s{_orrPattern = a})++-- | A unique name representing this regular expression.+orrLabel :: Lens' OptionRestrictionRegex (Maybe Text)+orrLabel = lens _orrLabel (\ s a -> s{_orrLabel = a})++instance FromXML OptionRestrictionRegex where+        parseXML x+          = OptionRestrictionRegex' <$>+              (x .@? "Pattern") <*> (x .@? "Label")++instance Hashable OptionRestrictionRegex where++instance NFData OptionRestrictionRegex where++-- | A specification identifying an individual configuration option.+--+--+--+-- /See:/ 'optionSpecification' smart constructor.+data OptionSpecification = OptionSpecification'+  { _osOptionName   :: !(Maybe Text)+  , _osResourceName :: !(Maybe Text)+  , _osNamespace    :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'OptionSpecification' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'osOptionName' - The name of the configuration option.+--+-- * 'osResourceName' - A unique resource name for a time-based scaling configuration option.+--+-- * 'osNamespace' - A unique namespace identifying the option's associated AWS resource.+optionSpecification+    :: OptionSpecification+optionSpecification =+  OptionSpecification'+    {_osOptionName = Nothing, _osResourceName = Nothing, _osNamespace = Nothing}+++-- | The name of the configuration option.+osOptionName :: Lens' OptionSpecification (Maybe Text)+osOptionName = lens _osOptionName (\ s a -> s{_osOptionName = a})++-- | A unique resource name for a time-based scaling configuration option.+osResourceName :: Lens' OptionSpecification (Maybe Text)+osResourceName = lens _osResourceName (\ s a -> s{_osResourceName = a})++-- | A unique namespace identifying the option's associated AWS resource.+osNamespace :: Lens' OptionSpecification (Maybe Text)+osNamespace = lens _osNamespace (\ s a -> s{_osNamespace = a})++instance Hashable OptionSpecification where++instance NFData OptionSpecification where++instance ToQuery OptionSpecification where+        toQuery OptionSpecification'{..}+          = mconcat+              ["OptionName" =: _osOptionName,+               "ResourceName" =: _osResourceName,+               "Namespace" =: _osNamespace]++-- | Detailed information about a platform.+--+--+--+-- /See:/ 'platformDescription' smart constructor.+data PlatformDescription = PlatformDescription'+  { _pdSupportedAddonList     :: !(Maybe [Text])+  , _pdPlatformCategory       :: !(Maybe Text)+  , _pdPlatformVersion        :: !(Maybe Text)+  , _pdPlatformStatus         :: !(Maybe PlatformStatus)+  , _pdMaintainer             :: !(Maybe Text)+  , _pdPlatformOwner          :: !(Maybe Text)+  , _pdDateUpdated            :: !(Maybe ISO8601)+  , _pdCustomAMIList          :: !(Maybe [CustomAMI])+  , _pdDateCreated            :: !(Maybe ISO8601)+  , _pdOperatingSystemName    :: !(Maybe Text)+  , _pdFrameworks             :: !(Maybe [PlatformFramework])+  , _pdPlatformARN            :: !(Maybe Text)+  , _pdOperatingSystemVersion :: !(Maybe Text)+  , _pdProgrammingLanguages   :: !(Maybe [PlatformProgrammingLanguage])+  , _pdSolutionStackName      :: !(Maybe Text)+  , _pdPlatformName           :: !(Maybe Text)+  , _pdDescription            :: !(Maybe Text)+  , _pdSupportedTierList      :: !(Maybe [Text])+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PlatformDescription' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pdSupportedAddonList' - The additions supported by the platform.+--+-- * 'pdPlatformCategory' - The category of the platform.+--+-- * 'pdPlatformVersion' - The version of the platform.+--+-- * 'pdPlatformStatus' - The status of the platform.+--+-- * 'pdMaintainer' - Information about the maintainer of the platform.+--+-- * 'pdPlatformOwner' - The AWS account ID of the person who created the platform.+--+-- * 'pdDateUpdated' - The date when the platform was last updated.+--+-- * 'pdCustomAMIList' - The custom AMIs supported by the platform.+--+-- * 'pdDateCreated' - The date when the platform was created.+--+-- * 'pdOperatingSystemName' - The operating system used by the platform.+--+-- * 'pdFrameworks' - The frameworks supported by the platform.+--+-- * 'pdPlatformARN' - The ARN of the platform.+--+-- * 'pdOperatingSystemVersion' - The version of the operating system used by the platform.+--+-- * 'pdProgrammingLanguages' - The programming languages supported by the platform.+--+-- * 'pdSolutionStackName' - The name of the solution stack used by the platform.+--+-- * 'pdPlatformName' - The name of the platform.+--+-- * 'pdDescription' - The description of the platform.+--+-- * 'pdSupportedTierList' - The tiers supported by the platform.+platformDescription+    :: PlatformDescription+platformDescription =+  PlatformDescription'+    { _pdSupportedAddonList = Nothing+    , _pdPlatformCategory = Nothing+    , _pdPlatformVersion = Nothing+    , _pdPlatformStatus = Nothing+    , _pdMaintainer = Nothing+    , _pdPlatformOwner = Nothing+    , _pdDateUpdated = Nothing+    , _pdCustomAMIList = Nothing+    , _pdDateCreated = Nothing+    , _pdOperatingSystemName = Nothing+    , _pdFrameworks = Nothing+    , _pdPlatformARN = Nothing+    , _pdOperatingSystemVersion = Nothing+    , _pdProgrammingLanguages = Nothing+    , _pdSolutionStackName = Nothing+    , _pdPlatformName = Nothing+    , _pdDescription = Nothing+    , _pdSupportedTierList = Nothing+    }+++-- | The additions supported by the platform.+pdSupportedAddonList :: Lens' PlatformDescription [Text]+pdSupportedAddonList = lens _pdSupportedAddonList (\ s a -> s{_pdSupportedAddonList = a}) . _Default . _Coerce++-- | The category of the platform.+pdPlatformCategory :: Lens' PlatformDescription (Maybe Text)+pdPlatformCategory = lens _pdPlatformCategory (\ s a -> s{_pdPlatformCategory = a})++-- | The version of the platform.+pdPlatformVersion :: Lens' PlatformDescription (Maybe Text)+pdPlatformVersion = lens _pdPlatformVersion (\ s a -> s{_pdPlatformVersion = a})++-- | The status of the platform.+pdPlatformStatus :: Lens' PlatformDescription (Maybe PlatformStatus)+pdPlatformStatus = lens _pdPlatformStatus (\ s a -> s{_pdPlatformStatus = a})++-- | Information about the maintainer of the platform.+pdMaintainer :: Lens' PlatformDescription (Maybe Text)+pdMaintainer = lens _pdMaintainer (\ s a -> s{_pdMaintainer = a})++-- | The AWS account ID of the person who created the platform.+pdPlatformOwner :: Lens' PlatformDescription (Maybe Text)+pdPlatformOwner = lens _pdPlatformOwner (\ s a -> s{_pdPlatformOwner = a})++-- | The date when the platform was last updated.+pdDateUpdated :: Lens' PlatformDescription (Maybe UTCTime)+pdDateUpdated = lens _pdDateUpdated (\ s a -> s{_pdDateUpdated = a}) . mapping _Time++-- | The custom AMIs supported by the platform.+pdCustomAMIList :: Lens' PlatformDescription [CustomAMI]+pdCustomAMIList = lens _pdCustomAMIList (\ s a -> s{_pdCustomAMIList = a}) . _Default . _Coerce++-- | The date when the platform was created.+pdDateCreated :: Lens' PlatformDescription (Maybe UTCTime)+pdDateCreated = lens _pdDateCreated (\ s a -> s{_pdDateCreated = a}) . mapping _Time++-- | The operating system used by the platform.+pdOperatingSystemName :: Lens' PlatformDescription (Maybe Text)+pdOperatingSystemName = lens _pdOperatingSystemName (\ s a -> s{_pdOperatingSystemName = a})++-- | The frameworks supported by the platform.+pdFrameworks :: Lens' PlatformDescription [PlatformFramework]+pdFrameworks = lens _pdFrameworks (\ s a -> s{_pdFrameworks = a}) . _Default . _Coerce++-- | The ARN of the platform.+pdPlatformARN :: Lens' PlatformDescription (Maybe Text)+pdPlatformARN = lens _pdPlatformARN (\ s a -> s{_pdPlatformARN = a})++-- | The version of the operating system used by the platform.+pdOperatingSystemVersion :: Lens' PlatformDescription (Maybe Text)+pdOperatingSystemVersion = lens _pdOperatingSystemVersion (\ s a -> s{_pdOperatingSystemVersion = a})++-- | The programming languages supported by the platform.+pdProgrammingLanguages :: Lens' PlatformDescription [PlatformProgrammingLanguage]+pdProgrammingLanguages = lens _pdProgrammingLanguages (\ s a -> s{_pdProgrammingLanguages = a}) . _Default . _Coerce++-- | The name of the solution stack used by the platform.+pdSolutionStackName :: Lens' PlatformDescription (Maybe Text)+pdSolutionStackName = lens _pdSolutionStackName (\ s a -> s{_pdSolutionStackName = a})++-- | The name of the platform.+pdPlatformName :: Lens' PlatformDescription (Maybe Text)+pdPlatformName = lens _pdPlatformName (\ s a -> s{_pdPlatformName = a})++-- | The description of the platform.+pdDescription :: Lens' PlatformDescription (Maybe Text)+pdDescription = lens _pdDescription (\ s a -> s{_pdDescription = a})++-- | The tiers supported by the platform.+pdSupportedTierList :: Lens' PlatformDescription [Text]+pdSupportedTierList = lens _pdSupportedTierList (\ s a -> s{_pdSupportedTierList = a}) . _Default . _Coerce++instance FromXML PlatformDescription where+        parseXML x+          = PlatformDescription' <$>+              (x .@? "SupportedAddonList" .!@ mempty >>=+                 may (parseXMLList "member"))+                <*> (x .@? "PlatformCategory")+                <*> (x .@? "PlatformVersion")+                <*> (x .@? "PlatformStatus")+                <*> (x .@? "Maintainer")+                <*> (x .@? "PlatformOwner")+                <*> (x .@? "DateUpdated")+                <*>+                (x .@? "CustomAmiList" .!@ mempty >>=+                   may (parseXMLList "member"))+                <*> (x .@? "DateCreated")+                <*> (x .@? "OperatingSystemName")+                <*>+                (x .@? "Frameworks" .!@ mempty >>=+                   may (parseXMLList "member"))+                <*> (x .@? "PlatformArn")+                <*> (x .@? "OperatingSystemVersion")+                <*>+                (x .@? "ProgrammingLanguages" .!@ mempty >>=+                   may (parseXMLList "member"))+                <*> (x .@? "SolutionStackName")+                <*> (x .@? "PlatformName")+                <*> (x .@? "Description")+                <*>+                (x .@? "SupportedTierList" .!@ mempty >>=+                   may (parseXMLList "member"))++instance Hashable PlatformDescription where++instance NFData PlatformDescription where++-- | Specify criteria to restrict the results when listing custom platforms.+--+--+-- The filter is evaluated as the expression:+--+-- @Type@ @Operator@ @Values[i]@+--+--+-- /See:/ 'platformFilter' smart constructor.+data PlatformFilter = PlatformFilter'+  { _pfValues   :: !(Maybe [Text])+  , _pfOperator :: !(Maybe Text)+  , _pfType     :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PlatformFilter' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pfValues' - The list of values applied to the custom platform attribute.+--+-- * 'pfOperator' - The operator to apply to the @Type@ with each of the @Values@ . Valid Values: @=@ (equal to) | @!=@ (not equal to) | @<@ (less than) | @<=@ (less than or equal to) | @>@ (greater than) | @>=@ (greater than or equal to) | @contains@ | @begins_with@ | @ends_with@+--+-- * 'pfType' - The custom platform attribute to which the filter values are applied. Valid Values: @PlatformName@ | @PlatformVersion@ | @PlatformStatus@ | @PlatformOwner@+platformFilter+    :: PlatformFilter+platformFilter =+  PlatformFilter'+    {_pfValues = Nothing, _pfOperator = Nothing, _pfType = Nothing}+++-- | The list of values applied to the custom platform attribute.+pfValues :: Lens' PlatformFilter [Text]+pfValues = lens _pfValues (\ s a -> s{_pfValues = a}) . _Default . _Coerce++-- | The operator to apply to the @Type@ with each of the @Values@ . Valid Values: @=@ (equal to) | @!=@ (not equal to) | @<@ (less than) | @<=@ (less than or equal to) | @>@ (greater than) | @>=@ (greater than or equal to) | @contains@ | @begins_with@ | @ends_with@+pfOperator :: Lens' PlatformFilter (Maybe Text)+pfOperator = lens _pfOperator (\ s a -> s{_pfOperator = a})++-- | The custom platform attribute to which the filter values are applied. Valid Values: @PlatformName@ | @PlatformVersion@ | @PlatformStatus@ | @PlatformOwner@+pfType :: Lens' PlatformFilter (Maybe Text)+pfType = lens _pfType (\ s a -> s{_pfType = a})++instance Hashable PlatformFilter where++instance NFData PlatformFilter where++instance ToQuery PlatformFilter where+        toQuery PlatformFilter'{..}+          = mconcat+              ["Values" =:+                 toQuery (toQueryList "member" <$> _pfValues),+               "Operator" =: _pfOperator, "Type" =: _pfType]++-- | A framework supported by the custom platform.+--+--+--+-- /See:/ 'platformFramework' smart constructor.+data PlatformFramework = PlatformFramework'+  { _pfName    :: !(Maybe Text)+  , _pfVersion :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PlatformFramework' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pfName' - The name of the framework.+--+-- * 'pfVersion' - The version of the framework.+platformFramework+    :: PlatformFramework+platformFramework = PlatformFramework' {_pfName = Nothing, _pfVersion = Nothing}+++-- | The name of the framework.+pfName :: Lens' PlatformFramework (Maybe Text)+pfName = lens _pfName (\ s a -> s{_pfName = a})++-- | The version of the framework.+pfVersion :: Lens' PlatformFramework (Maybe Text)+pfVersion = lens _pfVersion (\ s a -> s{_pfVersion = a})++instance FromXML PlatformFramework where+        parseXML x+          = PlatformFramework' <$>+              (x .@? "Name") <*> (x .@? "Version")++instance Hashable PlatformFramework where++instance NFData PlatformFramework where++-- | A programming language supported by the platform.+--+--+--+-- /See:/ 'platformProgrammingLanguage' smart constructor.+data PlatformProgrammingLanguage = PlatformProgrammingLanguage'+  { _pplName    :: !(Maybe Text)+  , _pplVersion :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PlatformProgrammingLanguage' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pplName' - The name of the programming language.+--+-- * 'pplVersion' - The version of the programming language.+platformProgrammingLanguage+    :: PlatformProgrammingLanguage+platformProgrammingLanguage =+  PlatformProgrammingLanguage' {_pplName = Nothing, _pplVersion = Nothing}+++-- | The name of the programming language.+pplName :: Lens' PlatformProgrammingLanguage (Maybe Text)+pplName = lens _pplName (\ s a -> s{_pplName = a})++-- | The version of the programming language.+pplVersion :: Lens' PlatformProgrammingLanguage (Maybe Text)+pplVersion = lens _pplVersion (\ s a -> s{_pplVersion = a})++instance FromXML PlatformProgrammingLanguage where+        parseXML x+          = PlatformProgrammingLanguage' <$>+              (x .@? "Name") <*> (x .@? "Version")++instance Hashable PlatformProgrammingLanguage where++instance NFData PlatformProgrammingLanguage where++-- | Detailed information about a platform.+--+--+--+-- /See:/ 'platformSummary' smart constructor.+data PlatformSummary = PlatformSummary'+  { _psSupportedAddonList     :: !(Maybe [Text])+  , _psPlatformCategory       :: !(Maybe Text)+  , _psPlatformStatus         :: !(Maybe PlatformStatus)+  , _psPlatformOwner          :: !(Maybe Text)+  , _psOperatingSystemName    :: !(Maybe Text)+  , _psPlatformARN            :: !(Maybe Text)+  , _psOperatingSystemVersion :: !(Maybe Text)+  , _psSupportedTierList      :: !(Maybe [Text])+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PlatformSummary' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'psSupportedAddonList' - The additions associated with the platform.+--+-- * 'psPlatformCategory' - The category of platform.+--+-- * 'psPlatformStatus' - The status of the platform. You can create an environment from the platform once it is ready.+--+-- * 'psPlatformOwner' - The AWS account ID of the person who created the platform.+--+-- * 'psOperatingSystemName' - The operating system used by the platform.+--+-- * 'psPlatformARN' - The ARN of the platform.+--+-- * 'psOperatingSystemVersion' - The version of the operating system used by the platform.+--+-- * 'psSupportedTierList' - The tiers in which the platform runs.+platformSummary+    :: PlatformSummary+platformSummary =+  PlatformSummary'+    { _psSupportedAddonList = Nothing+    , _psPlatformCategory = Nothing+    , _psPlatformStatus = Nothing+    , _psPlatformOwner = Nothing+    , _psOperatingSystemName = Nothing+    , _psPlatformARN = Nothing+    , _psOperatingSystemVersion = Nothing+    , _psSupportedTierList = Nothing+    }+++-- | The additions associated with the platform.+psSupportedAddonList :: Lens' PlatformSummary [Text]+psSupportedAddonList = lens _psSupportedAddonList (\ s a -> s{_psSupportedAddonList = a}) . _Default . _Coerce++-- | The category of platform.+psPlatformCategory :: Lens' PlatformSummary (Maybe Text)+psPlatformCategory = lens _psPlatformCategory (\ s a -> s{_psPlatformCategory = a})++-- | The status of the platform. You can create an environment from the platform once it is ready.+psPlatformStatus :: Lens' PlatformSummary (Maybe PlatformStatus)+psPlatformStatus = lens _psPlatformStatus (\ s a -> s{_psPlatformStatus = a})++-- | The AWS account ID of the person who created the platform.+psPlatformOwner :: Lens' PlatformSummary (Maybe Text)+psPlatformOwner = lens _psPlatformOwner (\ s a -> s{_psPlatformOwner = a})++-- | The operating system used by the platform.+psOperatingSystemName :: Lens' PlatformSummary (Maybe Text)+psOperatingSystemName = lens _psOperatingSystemName (\ s a -> s{_psOperatingSystemName = a})++-- | The ARN of the platform.+psPlatformARN :: Lens' PlatformSummary (Maybe Text)+psPlatformARN = lens _psPlatformARN (\ s a -> s{_psPlatformARN = a})++-- | The version of the operating system used by the platform.+psOperatingSystemVersion :: Lens' PlatformSummary (Maybe Text)+psOperatingSystemVersion = lens _psOperatingSystemVersion (\ s a -> s{_psOperatingSystemVersion = a})++-- | The tiers in which the platform runs.+psSupportedTierList :: Lens' PlatformSummary [Text]+psSupportedTierList = lens _psSupportedTierList (\ s a -> s{_psSupportedTierList = a}) . _Default . _Coerce++instance FromXML PlatformSummary where+        parseXML x+          = PlatformSummary' <$>+              (x .@? "SupportedAddonList" .!@ mempty >>=+                 may (parseXMLList "member"))+                <*> (x .@? "PlatformCategory")+                <*> (x .@? "PlatformStatus")+                <*> (x .@? "PlatformOwner")+                <*> (x .@? "OperatingSystemName")+                <*> (x .@? "PlatformArn")+                <*> (x .@? "OperatingSystemVersion")+                <*>+                (x .@? "SupportedTierList" .!@ mempty >>=+                   may (parseXMLList "member"))++instance Hashable PlatformSummary where++instance NFData PlatformSummary where++-- | Describes a queue.+--+--+--+-- /See:/ 'queue' smart constructor.+data Queue = Queue'+  { _qURL  :: !(Maybe Text)+  , _qName :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Queue' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'qURL' - The URL of the queue.+--+-- * 'qName' - The name of the queue.+queue+    :: Queue+queue = Queue' {_qURL = Nothing, _qName = Nothing}+++-- | The URL of the queue.+qURL :: Lens' Queue (Maybe Text)+qURL = lens _qURL (\ s a -> s{_qURL = a})++-- | The name of the queue.+qName :: Lens' Queue (Maybe Text)+qName = lens _qName (\ s a -> s{_qName = a})++instance FromXML Queue where+        parseXML x+          = Queue' <$> (x .@? "URL") <*> (x .@? "Name")++instance Hashable Queue where++instance NFData Queue where++-- | The AWS Elastic Beanstalk quota information for a single resource type in an AWS account. It reflects the resource's limits for this account.+--+--+--+-- /See:/ 'resourceQuota' smart constructor.+newtype ResourceQuota = ResourceQuota'+  { _rqMaximum :: Maybe Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ResourceQuota' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rqMaximum' - The maximum number of instances of this Elastic Beanstalk resource type that an AWS account can use.+resourceQuota+    :: ResourceQuota+resourceQuota = ResourceQuota' {_rqMaximum = Nothing}+++-- | The maximum number of instances of this Elastic Beanstalk resource type that an AWS account can use.+rqMaximum :: Lens' ResourceQuota (Maybe Int)+rqMaximum = lens _rqMaximum (\ s a -> s{_rqMaximum = a})++instance FromXML ResourceQuota where+        parseXML x = ResourceQuota' <$> (x .@? "Maximum")++instance Hashable ResourceQuota where++instance NFData ResourceQuota where++-- | A set of per-resource AWS Elastic Beanstalk quotas associated with an AWS account. They reflect Elastic Beanstalk resource limits for this account.+--+--+--+-- /See:/ 'resourceQuotas' smart constructor.+data ResourceQuotas = ResourceQuotas'+  { _rqApplicationQuota           :: !(Maybe ResourceQuota)+  , _rqCustomPlatformQuota        :: !(Maybe ResourceQuota)+  , _rqApplicationVersionQuota    :: !(Maybe ResourceQuota)+  , _rqEnvironmentQuota           :: !(Maybe ResourceQuota)+  , _rqConfigurationTemplateQuota :: !(Maybe ResourceQuota)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ResourceQuotas' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rqApplicationQuota' - The quota for applications in the AWS account.+--+-- * 'rqCustomPlatformQuota' - The quota for custom platforms in the AWS account.+--+-- * 'rqApplicationVersionQuota' - The quota for application versions in the AWS account.+--+-- * 'rqEnvironmentQuota' - The quota for environments in the AWS account.+--+-- * 'rqConfigurationTemplateQuota' - The quota for configuration templates in the AWS account.+resourceQuotas+    :: ResourceQuotas+resourceQuotas =+  ResourceQuotas'+    { _rqApplicationQuota = Nothing+    , _rqCustomPlatformQuota = Nothing+    , _rqApplicationVersionQuota = Nothing+    , _rqEnvironmentQuota = Nothing+    , _rqConfigurationTemplateQuota = Nothing+    }+++-- | The quota for applications in the AWS account.+rqApplicationQuota :: Lens' ResourceQuotas (Maybe ResourceQuota)+rqApplicationQuota = lens _rqApplicationQuota (\ s a -> s{_rqApplicationQuota = a})++-- | The quota for custom platforms in the AWS account.+rqCustomPlatformQuota :: Lens' ResourceQuotas (Maybe ResourceQuota)+rqCustomPlatformQuota = lens _rqCustomPlatformQuota (\ s a -> s{_rqCustomPlatformQuota = a})++-- | The quota for application versions in the AWS account.+rqApplicationVersionQuota :: Lens' ResourceQuotas (Maybe ResourceQuota)+rqApplicationVersionQuota = lens _rqApplicationVersionQuota (\ s a -> s{_rqApplicationVersionQuota = a})++-- | The quota for environments in the AWS account.+rqEnvironmentQuota :: Lens' ResourceQuotas (Maybe ResourceQuota)+rqEnvironmentQuota = lens _rqEnvironmentQuota (\ s a -> s{_rqEnvironmentQuota = a})++-- | The quota for configuration templates in the AWS account.+rqConfigurationTemplateQuota :: Lens' ResourceQuotas (Maybe ResourceQuota)+rqConfigurationTemplateQuota = lens _rqConfigurationTemplateQuota (\ s a -> s{_rqConfigurationTemplateQuota = a})++instance FromXML ResourceQuotas where+        parseXML x+          = ResourceQuotas' <$>+              (x .@? "ApplicationQuota") <*>+                (x .@? "CustomPlatformQuota")+                <*> (x .@? "ApplicationVersionQuota")+                <*> (x .@? "EnvironmentQuota")+                <*> (x .@? "ConfigurationTemplateQuota")++instance Hashable ResourceQuotas where++instance NFData ResourceQuotas where++-- | The bucket and key of an item stored in Amazon S3.+--+--+--+-- /See:/ 's3Location' smart constructor.+data S3Location = S3Location'+  { _slS3Key    :: !(Maybe Text)+  , _slS3Bucket :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'S3Location' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'slS3Key' - The Amazon S3 key where the data is located.+--+-- * 'slS3Bucket' - The Amazon S3 bucket where the data is located.+s3Location+    :: S3Location+s3Location = S3Location' {_slS3Key = Nothing, _slS3Bucket = Nothing}+++-- | The Amazon S3 key where the data is located.+slS3Key :: Lens' S3Location (Maybe Text)+slS3Key = lens _slS3Key (\ s a -> s{_slS3Key = a})++-- | The Amazon S3 bucket where the data is located.+slS3Bucket :: Lens' S3Location (Maybe Text)+slS3Bucket = lens _slS3Bucket (\ s a -> s{_slS3Bucket = a})++instance FromXML S3Location where+        parseXML x+          = S3Location' <$>+              (x .@? "S3Key") <*> (x .@? "S3Bucket")++instance Hashable S3Location where++instance NFData S3Location where++instance ToQuery S3Location where+        toQuery S3Location'{..}+          = mconcat+              ["S3Key" =: _slS3Key, "S3Bucket" =: _slS3Bucket]++-- | Detailed health information about an Amazon EC2 instance in your Elastic Beanstalk environment.+--+--+--+-- /See:/ 'singleInstanceHealth' smart constructor.+data SingleInstanceHealth = SingleInstanceHealth'+  { _sihInstanceId         :: !(Maybe Text)+  , _sihCauses             :: !(Maybe [Text])+  , _sihSystem             :: !(Maybe SystemStatus)+  , _sihApplicationMetrics :: !(Maybe ApplicationMetrics)+  , _sihColor              :: !(Maybe Text)+  , _sihInstanceType       :: !(Maybe Text)+  , _sihAvailabilityZone   :: !(Maybe Text)+  , _sihHealthStatus       :: !(Maybe Text)+  , _sihDeployment         :: !(Maybe Deployment)+  , _sihLaunchedAt         :: !(Maybe ISO8601)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'SingleInstanceHealth' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sihInstanceId' - The ID of the Amazon EC2 instance.+--+-- * 'sihCauses' - Represents the causes, which provide more information about the current health status.+--+-- * 'sihSystem' - Operating system metrics from the instance.+--+-- * 'sihApplicationMetrics' - Request metrics from your application.+--+-- * 'sihColor' - Represents the color indicator that gives you information about the health of the EC2 instance. For more information, see <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/health-enhanced-status.html Health Colors and Statuses> .+--+-- * 'sihInstanceType' - The instance's type.+--+-- * 'sihAvailabilityZone' - The availability zone in which the instance runs.+--+-- * 'sihHealthStatus' - Returns the health status of the specified instance. For more information, see <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/health-enhanced-status.html Health Colors and Statuses> .+--+-- * 'sihDeployment' - Information about the most recent deployment to an instance.+--+-- * 'sihLaunchedAt' - The time at which the EC2 instance was launched.+singleInstanceHealth+    :: SingleInstanceHealth+singleInstanceHealth =+  SingleInstanceHealth'+    { _sihInstanceId = Nothing+    , _sihCauses = Nothing+    , _sihSystem = Nothing+    , _sihApplicationMetrics = Nothing+    , _sihColor = Nothing+    , _sihInstanceType = Nothing+    , _sihAvailabilityZone = Nothing+    , _sihHealthStatus = Nothing+    , _sihDeployment = Nothing+    , _sihLaunchedAt = Nothing+    }+++-- | The ID of the Amazon EC2 instance.+sihInstanceId :: Lens' SingleInstanceHealth (Maybe Text)+sihInstanceId = lens _sihInstanceId (\ s a -> s{_sihInstanceId = a})++-- | Represents the causes, which provide more information about the current health status.+sihCauses :: Lens' SingleInstanceHealth [Text]+sihCauses = lens _sihCauses (\ s a -> s{_sihCauses = a}) . _Default . _Coerce++-- | Operating system metrics from the instance.+sihSystem :: Lens' SingleInstanceHealth (Maybe SystemStatus)+sihSystem = lens _sihSystem (\ s a -> s{_sihSystem = a})++-- | Request metrics from your application.+sihApplicationMetrics :: Lens' SingleInstanceHealth (Maybe ApplicationMetrics)+sihApplicationMetrics = lens _sihApplicationMetrics (\ s a -> s{_sihApplicationMetrics = a})++-- | Represents the color indicator that gives you information about the health of the EC2 instance. For more information, see <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/health-enhanced-status.html Health Colors and Statuses> .+sihColor :: Lens' SingleInstanceHealth (Maybe Text)+sihColor = lens _sihColor (\ s a -> s{_sihColor = a})++-- | The instance's type.+sihInstanceType :: Lens' SingleInstanceHealth (Maybe Text)+sihInstanceType = lens _sihInstanceType (\ s a -> s{_sihInstanceType = a})++-- | The availability zone in which the instance runs.+sihAvailabilityZone :: Lens' SingleInstanceHealth (Maybe Text)+sihAvailabilityZone = lens _sihAvailabilityZone (\ s a -> s{_sihAvailabilityZone = a})++-- | Returns the health status of the specified instance. For more information, see <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/health-enhanced-status.html Health Colors and Statuses> .+sihHealthStatus :: Lens' SingleInstanceHealth (Maybe Text)+sihHealthStatus = lens _sihHealthStatus (\ s a -> s{_sihHealthStatus = a})++-- | Information about the most recent deployment to an instance.+sihDeployment :: Lens' SingleInstanceHealth (Maybe Deployment)+sihDeployment = lens _sihDeployment (\ s a -> s{_sihDeployment = a})++-- | The time at which the EC2 instance was launched.+sihLaunchedAt :: Lens' SingleInstanceHealth (Maybe UTCTime)+sihLaunchedAt = lens _sihLaunchedAt (\ s a -> s{_sihLaunchedAt = a}) . mapping _Time++instance FromXML SingleInstanceHealth where+        parseXML x+          = SingleInstanceHealth' <$>+              (x .@? "InstanceId") <*>+                (x .@? "Causes" .!@ mempty >>=+                   may (parseXMLList "member"))+                <*> (x .@? "System")+                <*> (x .@? "ApplicationMetrics")+                <*> (x .@? "Color")+                <*> (x .@? "InstanceType")+                <*> (x .@? "AvailabilityZone")+                <*> (x .@? "HealthStatus")+                <*> (x .@? "Deployment")+                <*> (x .@? "LaunchedAt")++instance Hashable SingleInstanceHealth where++instance NFData SingleInstanceHealth where++-- | Describes the solution stack.+--+--+--+-- /See:/ 'solutionStackDescription' smart constructor.+data SolutionStackDescription = SolutionStackDescription'+  { _ssdPermittedFileTypes :: !(Maybe [Text])+  , _ssdSolutionStackName  :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'SolutionStackDescription' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ssdPermittedFileTypes' - The permitted file types allowed for a solution stack.+--+-- * 'ssdSolutionStackName' - The name of the solution stack.+solutionStackDescription+    :: SolutionStackDescription+solutionStackDescription =+  SolutionStackDescription'+    {_ssdPermittedFileTypes = Nothing, _ssdSolutionStackName = Nothing}+++-- | The permitted file types allowed for a solution stack.+ssdPermittedFileTypes :: Lens' SolutionStackDescription [Text]+ssdPermittedFileTypes = lens _ssdPermittedFileTypes (\ s a -> s{_ssdPermittedFileTypes = a}) . _Default . _Coerce++-- | The name of the solution stack.+ssdSolutionStackName :: Lens' SolutionStackDescription (Maybe Text)+ssdSolutionStackName = lens _ssdSolutionStackName (\ s a -> s{_ssdSolutionStackName = a})++instance FromXML SolutionStackDescription where+        parseXML x+          = SolutionStackDescription' <$>+              (x .@? "PermittedFileTypes" .!@ mempty >>=+                 may (parseXMLList "member"))+                <*> (x .@? "SolutionStackName")++instance Hashable SolutionStackDescription where++instance NFData SolutionStackDescription where++-- | Location of the source code for an application version.+--+--+--+-- /See:/ 'sourceBuildInformation' smart constructor.+data SourceBuildInformation = SourceBuildInformation'+  { _sbiSourceType       :: !SourceType+  , _sbiSourceRepository :: !SourceRepository+  , _sbiSourceLocation   :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'SourceBuildInformation' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sbiSourceType' - The type of repository.     * @Git@      * @Zip@+--+-- * 'sbiSourceRepository' - Location where the repository is stored.     * @CodeCommit@      * @S3@+--+-- * 'sbiSourceLocation' - The location of the source code, as a formatted string, depending on the value of @SourceRepository@      * For @CodeCommit@ , the format is the repository name and commit ID, separated by a forward slash. For example, @my-git-repo/265cfa0cf6af46153527f55d6503ec030551f57a@ .     * For @S3@ , the format is the S3 bucket name and object key, separated by a forward slash. For example, @my-s3-bucket/Folders/my-source-file@ .+sourceBuildInformation+    :: SourceType -- ^ 'sbiSourceType'+    -> SourceRepository -- ^ 'sbiSourceRepository'+    -> Text -- ^ 'sbiSourceLocation'+    -> SourceBuildInformation+sourceBuildInformation pSourceType_ pSourceRepository_ pSourceLocation_ =+  SourceBuildInformation'+    { _sbiSourceType = pSourceType_+    , _sbiSourceRepository = pSourceRepository_+    , _sbiSourceLocation = pSourceLocation_+    }+++-- | The type of repository.     * @Git@      * @Zip@+sbiSourceType :: Lens' SourceBuildInformation SourceType+sbiSourceType = lens _sbiSourceType (\ s a -> s{_sbiSourceType = a})++-- | Location where the repository is stored.     * @CodeCommit@      * @S3@+sbiSourceRepository :: Lens' SourceBuildInformation SourceRepository+sbiSourceRepository = lens _sbiSourceRepository (\ s a -> s{_sbiSourceRepository = a})++-- | The location of the source code, as a formatted string, depending on the value of @SourceRepository@      * For @CodeCommit@ , the format is the repository name and commit ID, separated by a forward slash. For example, @my-git-repo/265cfa0cf6af46153527f55d6503ec030551f57a@ .     * For @S3@ , the format is the S3 bucket name and object key, separated by a forward slash. For example, @my-s3-bucket/Folders/my-source-file@ .+sbiSourceLocation :: Lens' SourceBuildInformation Text+sbiSourceLocation = lens _sbiSourceLocation (\ s a -> s{_sbiSourceLocation = a})++instance FromXML SourceBuildInformation where+        parseXML x+          = SourceBuildInformation' <$>+              (x .@ "SourceType") <*> (x .@ "SourceRepository") <*>+                (x .@ "SourceLocation")++instance Hashable SourceBuildInformation where++instance NFData SourceBuildInformation where++instance ToQuery SourceBuildInformation where+        toQuery SourceBuildInformation'{..}+          = mconcat+              ["SourceType" =: _sbiSourceType,+               "SourceRepository" =: _sbiSourceRepository,+               "SourceLocation" =: _sbiSourceLocation]++-- | A specification for an environment configuration+--+--+--+-- /See:/ 'sourceConfiguration' smart constructor.+data SourceConfiguration = SourceConfiguration'+  { _scTemplateName    :: !(Maybe Text)+  , _scApplicationName :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'SourceConfiguration' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'scTemplateName' - The name of the configuration template.+--+-- * 'scApplicationName' - The name of the application associated with the configuration.+sourceConfiguration+    :: SourceConfiguration+sourceConfiguration =+  SourceConfiguration' {_scTemplateName = Nothing, _scApplicationName = Nothing}+++-- | The name of the configuration template.+scTemplateName :: Lens' SourceConfiguration (Maybe Text)+scTemplateName = lens _scTemplateName (\ s a -> s{_scTemplateName = a})++-- | The name of the application associated with the configuration.+scApplicationName :: Lens' SourceConfiguration (Maybe Text)+scApplicationName = lens _scApplicationName (\ s a -> s{_scApplicationName = a})++instance Hashable SourceConfiguration where++instance NFData SourceConfiguration where++instance ToQuery SourceConfiguration where+        toQuery SourceConfiguration'{..}+          = mconcat+              ["TemplateName" =: _scTemplateName,+               "ApplicationName" =: _scApplicationName]++-- | Represents the percentage of requests over the last 10 seconds that resulted in each type of status code response. For more information, see <http://www.w3.org/Protocols/rfc2616/rfc2616-sec10.html Status Code Definitions> .+--+--+--+-- /See:/ 'statusCodes' smart constructor.+data StatusCodes = StatusCodes'+  { _scStatus2xx :: !(Maybe Int)+  , _scStatus3xx :: !(Maybe Int)+  , _scStatus4xx :: !(Maybe Int)+  , _scStatus5xx :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StatusCodes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'scStatus2xx' - The percentage of requests over the last 10 seconds that resulted in a 2xx (200, 201, etc.) status code.+--+-- * 'scStatus3xx' - The percentage of requests over the last 10 seconds that resulted in a 3xx (300, 301, etc.) status code.+--+-- * 'scStatus4xx' - The percentage of requests over the last 10 seconds that resulted in a 4xx (400, 401, etc.) status code.+--+-- * 'scStatus5xx' - The percentage of requests over the last 10 seconds that resulted in a 5xx (500, 501, etc.) status code.+statusCodes+    :: StatusCodes+statusCodes =+  StatusCodes'+    { _scStatus2xx = Nothing+    , _scStatus3xx = Nothing+    , _scStatus4xx = Nothing+    , _scStatus5xx = Nothing+    }+++-- | The percentage of requests over the last 10 seconds that resulted in a 2xx (200, 201, etc.) status code.+scStatus2xx :: Lens' StatusCodes (Maybe Int)+scStatus2xx = lens _scStatus2xx (\ s a -> s{_scStatus2xx = a})++-- | The percentage of requests over the last 10 seconds that resulted in a 3xx (300, 301, etc.) status code.+scStatus3xx :: Lens' StatusCodes (Maybe Int)+scStatus3xx = lens _scStatus3xx (\ s a -> s{_scStatus3xx = a})++-- | The percentage of requests over the last 10 seconds that resulted in a 4xx (400, 401, etc.) status code.+scStatus4xx :: Lens' StatusCodes (Maybe Int)+scStatus4xx = lens _scStatus4xx (\ s a -> s{_scStatus4xx = a})++-- | The percentage of requests over the last 10 seconds that resulted in a 5xx (500, 501, etc.) status code.+scStatus5xx :: Lens' StatusCodes (Maybe Int)+scStatus5xx = lens _scStatus5xx (\ s a -> s{_scStatus5xx = a})++instance FromXML StatusCodes where+        parseXML x+          = StatusCodes' <$>+              (x .@? "Status2xx") <*> (x .@? "Status3xx") <*>+                (x .@? "Status4xx")+                <*> (x .@? "Status5xx")++instance Hashable StatusCodes where++instance NFData StatusCodes where++-- | CPU utilization and load average metrics for an Amazon EC2 instance.+--+--+--+-- /See:/ 'systemStatus' smart constructor.+data SystemStatus = SystemStatus'+  { _ssCPUUtilization :: !(Maybe CPUUtilization)+  , _ssLoadAverage    :: !(Maybe [Double])+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'SystemStatus' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ssCPUUtilization' - CPU utilization metrics for the instance.+--+-- * 'ssLoadAverage' - Load average in the last 1-minute, 5-minute, and 15-minute periods. For more information, see <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/health-enhanced-metrics.html#health-enhanced-metrics-os Operating System Metrics> .+systemStatus+    :: SystemStatus+systemStatus =+  SystemStatus' {_ssCPUUtilization = Nothing, _ssLoadAverage = Nothing}+++-- | CPU utilization metrics for the instance.+ssCPUUtilization :: Lens' SystemStatus (Maybe CPUUtilization)+ssCPUUtilization = lens _ssCPUUtilization (\ s a -> s{_ssCPUUtilization = a})++-- | Load average in the last 1-minute, 5-minute, and 15-minute periods. For more information, see <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/health-enhanced-metrics.html#health-enhanced-metrics-os Operating System Metrics> .+ssLoadAverage :: Lens' SystemStatus [Double]+ssLoadAverage = lens _ssLoadAverage (\ s a -> s{_ssLoadAverage = a}) . _Default . _Coerce++instance FromXML SystemStatus where+        parseXML x+          = SystemStatus' <$>+              (x .@? "CPUUtilization") <*>+                (x .@? "LoadAverage" .!@ mempty >>=+                   may (parseXMLList "member"))++instance Hashable SystemStatus where++instance NFData SystemStatus where++-- | Describes a tag applied to a resource in an environment.+--+--+--+-- /See:/ 'tag' smart constructor.+data Tag = Tag'+  { _tagValue :: !(Maybe Text)+  , _tagKey   :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Tag' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tagValue' - The value of the tag.+--+-- * 'tagKey' - The key of the tag.+tag+    :: Tag+tag = Tag' {_tagValue = Nothing, _tagKey = Nothing}+++-- | The value of the tag.+tagValue :: Lens' Tag (Maybe Text)+tagValue = lens _tagValue (\ s a -> s{_tagValue = a})++-- | The key of the tag.+tagKey :: Lens' Tag (Maybe Text)+tagKey = lens _tagKey (\ s a -> s{_tagKey = a})++instance FromXML Tag where+        parseXML x+          = Tag' <$> (x .@? "Value") <*> (x .@? "Key")++instance Hashable Tag where++instance NFData Tag where++instance ToQuery Tag where+        toQuery Tag'{..}+          = mconcat ["Value" =: _tagValue, "Key" =: _tagKey]++-- | Describes a trigger.+--+--+--+-- /See:/ 'trigger' smart constructor.+newtype Trigger = Trigger'+  { _tName :: Maybe Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Trigger' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tName' - The name of the trigger.+trigger+    :: Trigger+trigger = Trigger' {_tName = Nothing}+++-- | The name of the trigger.+tName :: Lens' Trigger (Maybe Text)+tName = lens _tName (\ s a -> s{_tName = a})++instance FromXML Trigger where+        parseXML x = Trigger' <$> (x .@? "Name")++instance Hashable Trigger where++instance NFData Trigger where++-- | An error or warning for a desired configuration option value.+--+--+--+-- /See:/ 'validationMessage' smart constructor.+data ValidationMessage = ValidationMessage'+  { _vmOptionName :: !(Maybe Text)+  , _vmSeverity   :: !(Maybe ValidationSeverity)+  , _vmNamespace  :: !(Maybe Text)+  , _vmMessage    :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ValidationMessage' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'vmOptionName' - The name of the option.+--+-- * 'vmSeverity' - An indication of the severity of this message:     * @error@ : This message indicates that this is not a valid setting for an option.     * @warning@ : This message is providing information you should take into account.+--+-- * 'vmNamespace' - The namespace to which the option belongs.+--+-- * 'vmMessage' - A message describing the error or warning.+validationMessage+    :: ValidationMessage+validationMessage =+  ValidationMessage'+    { _vmOptionName = Nothing+    , _vmSeverity = Nothing+    , _vmNamespace = Nothing+    , _vmMessage = Nothing+    }+++-- | The name of the option.+vmOptionName :: Lens' ValidationMessage (Maybe Text)+vmOptionName = lens _vmOptionName (\ s a -> s{_vmOptionName = a})++-- | An indication of the severity of this message:     * @error@ : This message indicates that this is not a valid setting for an option.     * @warning@ : This message is providing information you should take into account.+vmSeverity :: Lens' ValidationMessage (Maybe ValidationSeverity)+vmSeverity = lens _vmSeverity (\ s a -> s{_vmSeverity = a})++-- | The namespace to which the option belongs.+vmNamespace :: Lens' ValidationMessage (Maybe Text)+vmNamespace = lens _vmNamespace (\ s a -> s{_vmNamespace = a})++-- | A message describing the error or warning.+vmMessage :: Lens' ValidationMessage (Maybe Text)+vmMessage = lens _vmMessage (\ s a -> s{_vmMessage = a})  instance FromXML ValidationMessage where         parseXML x