amazonka-elasticbeanstalk 1.4.5 → 1.5.0

raw patch · 66 files changed

+6563/−3893 lines, 66 filesdep ~amazonka-coredep ~amazonka-elasticbeanstalkdep ~amazonka-testPVP ok

version bump matches the API change (PVP)

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

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-elasticbeanstalk.cabal +23/−11
• fixture/CreatePlatformVersion.yaml +10/−0
• fixture/CreatePlatformVersionResponse.proto +0/−0
• fixture/DeletePlatformVersion.yaml +10/−0
• fixture/DeletePlatformVersionResponse.proto +0/−0
• fixture/DescribePlatformVersion.yaml +10/−0
• fixture/DescribePlatformVersionResponse.proto +0/−0
• fixture/ListPlatformVersions.yaml +10/−0
• fixture/ListPlatformVersionsResponse.proto +0/−0
• fixture/ListTagsForResource.yaml +10/−0
• fixture/ListTagsForResourceResponse.proto +0/−0
• fixture/UpdateApplicationResourceLifecycle.yaml +10/−0
• fixture/UpdateApplicationResourceLifecycleResponse.proto +0/−0
• fixture/UpdateTagsForResource.yaml +10/−0
• fixture/UpdateTagsForResourceResponse.proto +0/−0
• gen/Network/AWS/ElasticBeanstalk.hs +182/−40
• gen/Network/AWS/ElasticBeanstalk/AbortEnvironmentUpdate.hs +22/−20
• gen/Network/AWS/ElasticBeanstalk/ApplyEnvironmentManagedAction.hs +37/−32
• gen/Network/AWS/ElasticBeanstalk/CheckDNSAvailability.hs +27/−25
• gen/Network/AWS/ElasticBeanstalk/ComposeEnvironments.hs +22/−19
• gen/Network/AWS/ElasticBeanstalk/CreateApplication.hs +30/−17
• gen/Network/AWS/ElasticBeanstalk/CreateApplicationVersion.hs +44/−34
• gen/Network/AWS/ElasticBeanstalk/CreateConfigurationTemplate.hs +40/−27
• gen/Network/AWS/ElasticBeanstalk/CreateEnvironment.hs +58/−44
• gen/Network/AWS/ElasticBeanstalk/CreatePlatformVersion.hs +189/−0
• gen/Network/AWS/ElasticBeanstalk/CreateStorageLocation.hs +22/−20
• gen/Network/AWS/ElasticBeanstalk/DeleteApplication.hs +22/−20
• gen/Network/AWS/ElasticBeanstalk/DeleteApplicationVersion.hs +26/−21
• gen/Network/AWS/ElasticBeanstalk/DeleteConfigurationTemplate.hs +22/−19
• gen/Network/AWS/ElasticBeanstalk/DeleteEnvironmentConfiguration.hs +26/−21
• gen/Network/AWS/ElasticBeanstalk/DeletePlatformVersion.hs +124/−0
• gen/Network/AWS/ElasticBeanstalk/DescribeApplicationVersions.hs +41/−36
• gen/Network/AWS/ElasticBeanstalk/DescribeApplications.hs +23/−24
• gen/Network/AWS/ElasticBeanstalk/DescribeConfigurationOptions.hs +59/−34
• gen/Network/AWS/ElasticBeanstalk/DescribeConfigurationSettings.hs +31/−26
• gen/Network/AWS/ElasticBeanstalk/DescribeEnvironmentHealth.hs +45/−40
• gen/Network/AWS/ElasticBeanstalk/DescribeEnvironmentManagedActionHistory.hs +46/−35
• gen/Network/AWS/ElasticBeanstalk/DescribeEnvironmentManagedActions.hs +30/−25
• gen/Network/AWS/ElasticBeanstalk/DescribeEnvironmentResources.hs +27/−24
• gen/Network/AWS/ElasticBeanstalk/DescribeEnvironments.hs +48/−25
• gen/Network/AWS/ElasticBeanstalk/DescribeEvents.hs +60/−46
• gen/Network/AWS/ElasticBeanstalk/DescribeInstancesHealth.hs +37/−33
• gen/Network/AWS/ElasticBeanstalk/DescribePlatformVersion.hs +126/−0
• gen/Network/AWS/ElasticBeanstalk/ListAvailableSolutionStacks.hs +27/−22
• gen/Network/AWS/ElasticBeanstalk/ListPlatformVersions.hs +159/−0
• gen/Network/AWS/ElasticBeanstalk/ListTagsForResource.hs +142/−0
• gen/Network/AWS/ElasticBeanstalk/RebuildEnvironment.hs +21/−20
• gen/Network/AWS/ElasticBeanstalk/RequestEnvironmentInfo.hs +26/−22
• gen/Network/AWS/ElasticBeanstalk/RestartAppServer.hs +21/−20
• gen/Network/AWS/ElasticBeanstalk/RetrieveEnvironmentInfo.hs +29/−27
• gen/Network/AWS/ElasticBeanstalk/SwapEnvironmentCNAMEs.hs +28/−24
• gen/Network/AWS/ElasticBeanstalk/TerminateEnvironment.hs +25/−21
• gen/Network/AWS/ElasticBeanstalk/Types.hs +226/−45
• gen/Network/AWS/ElasticBeanstalk/Types/Product.hs +3547/−2715
• gen/Network/AWS/ElasticBeanstalk/Types/Sum.hs +177/−123
• gen/Network/AWS/ElasticBeanstalk/UpdateApplication.hs +17/−17
• gen/Network/AWS/ElasticBeanstalk/UpdateApplicationResourceLifecycle.hs +164/−0
• gen/Network/AWS/ElasticBeanstalk/UpdateApplicationVersion.hs +21/−19
• gen/Network/AWS/ElasticBeanstalk/UpdateConfigurationTemplate.hs +26/−23
• gen/Network/AWS/ElasticBeanstalk/UpdateEnvironment.hs +50/−36
• gen/Network/AWS/ElasticBeanstalk/UpdateTagsForResource.hs +128/−0
• gen/Network/AWS/ElasticBeanstalk/ValidateConfigurationSettings.hs +31/−28
• gen/Network/AWS/ElasticBeanstalk/Waiters.hs +6/−6
• test/Main.hs +2/−2
• test/Test/AWS/Gen/ElasticBeanstalk.hs +130/−4

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

@@ -1,13 +1,13 @@ name:                  amazonka-elasticbeanstalk-version:               1.4.5+version:               1.5.0 synopsis:              Amazon Elastic Beanstalk SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues-license:               OtherLicense+license:               MPL-2.0 license-file:          LICENSE author:                Brendan Hay-maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2013-2016 Brendan Hay+maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>+copyright:             Copyright (c) 2013-2017 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -29,14 +29,19 @@     to get started.  source-repository head-    type:     git-    location: git://github.com/brendanhay/amazonka.git+    type:              git+    location:          git://github.com/brendanhay/amazonka.git+    subdir:            amazonka-elasticbeanstalk  library     default-language:  Haskell2010     hs-source-dirs:    src gen -    ghc-options:       -Wall+    ghc-options:+        -Wall+        -fwarn-incomplete-uni-patterns+        -fwarn-incomplete-record-updates+        -funbox-strict-fields      exposed-modules:           Network.AWS.ElasticBeanstalk@@ -48,11 +53,13 @@         , Network.AWS.ElasticBeanstalk.CreateApplicationVersion         , Network.AWS.ElasticBeanstalk.CreateConfigurationTemplate         , Network.AWS.ElasticBeanstalk.CreateEnvironment+        , Network.AWS.ElasticBeanstalk.CreatePlatformVersion         , Network.AWS.ElasticBeanstalk.CreateStorageLocation         , Network.AWS.ElasticBeanstalk.DeleteApplication         , Network.AWS.ElasticBeanstalk.DeleteApplicationVersion         , Network.AWS.ElasticBeanstalk.DeleteConfigurationTemplate         , Network.AWS.ElasticBeanstalk.DeleteEnvironmentConfiguration+        , Network.AWS.ElasticBeanstalk.DeletePlatformVersion         , Network.AWS.ElasticBeanstalk.DescribeApplicationVersions         , Network.AWS.ElasticBeanstalk.DescribeApplications         , Network.AWS.ElasticBeanstalk.DescribeConfigurationOptions@@ -64,7 +71,10 @@         , Network.AWS.ElasticBeanstalk.DescribeEnvironments         , Network.AWS.ElasticBeanstalk.DescribeEvents         , Network.AWS.ElasticBeanstalk.DescribeInstancesHealth+        , Network.AWS.ElasticBeanstalk.DescribePlatformVersion         , Network.AWS.ElasticBeanstalk.ListAvailableSolutionStacks+        , Network.AWS.ElasticBeanstalk.ListPlatformVersions+        , Network.AWS.ElasticBeanstalk.ListTagsForResource         , Network.AWS.ElasticBeanstalk.RebuildEnvironment         , Network.AWS.ElasticBeanstalk.RequestEnvironmentInfo         , Network.AWS.ElasticBeanstalk.RestartAppServer@@ -73,9 +83,11 @@         , Network.AWS.ElasticBeanstalk.TerminateEnvironment         , Network.AWS.ElasticBeanstalk.Types         , Network.AWS.ElasticBeanstalk.UpdateApplication+        , Network.AWS.ElasticBeanstalk.UpdateApplicationResourceLifecycle         , Network.AWS.ElasticBeanstalk.UpdateApplicationVersion         , Network.AWS.ElasticBeanstalk.UpdateConfigurationTemplate         , Network.AWS.ElasticBeanstalk.UpdateEnvironment+        , Network.AWS.ElasticBeanstalk.UpdateTagsForResource         , Network.AWS.ElasticBeanstalk.ValidateConfigurationSettings         , Network.AWS.ElasticBeanstalk.Waiters @@ -84,7 +96,7 @@         , Network.AWS.ElasticBeanstalk.Types.Sum      build-depends:-          amazonka-core == 1.4.5.*+          amazonka-core == 1.5.0.*         , base          >= 4.7     && < 5  test-suite amazonka-elasticbeanstalk-test@@ -104,9 +116,9 @@         , Test.AWS.ElasticBeanstalk.Internal      build-depends:-          amazonka-core == 1.4.5.*-        , amazonka-test == 1.4.5.*-        , amazonka-elasticbeanstalk == 1.4.5.*+          amazonka-core == 1.5.0.*+        , amazonka-test == 1.5.0.*+        , amazonka-elasticbeanstalk         , base         , bytestring         , tasty

@@ -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:+  ''

@@ -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:+  ''

@@ -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:+  ''

@@ -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:+  ''

@@ -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:+  ''

@@ -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:+  ''

@@ -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,9 +5,9 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,21 +41,33 @@     -- ** OperationInProgressException     , _OperationInProgressException +    -- ** PlatformVersionStillReferencedException+    , _PlatformVersionStillReferencedException+     -- ** TooManyApplicationVersionsException     , _TooManyApplicationVersionsException      -- ** TooManyConfigurationTemplatesException     , _TooManyConfigurationTemplatesException +    -- ** ResourceTypeNotSupportedException+    , _ResourceTypeNotSupportedException+     -- ** InsufficientPrivilegesException     , _InsufficientPrivilegesException      -- ** ElasticBeanstalkServiceException     , _ElasticBeanstalkServiceException +    -- ** TooManyTagsException+    , _TooManyTagsException+     -- ** TooManyApplicationsException     , _TooManyApplicationsException +    -- ** TooManyPlatformsException+    , _TooManyPlatformsException+     -- ** ManagedActionInvalidStateException     , _ManagedActionInvalidStateException @@ -71,6 +83,9 @@     -- ** TooManyEnvironmentsException     , _TooManyEnvironmentsException +    -- ** ResourceNotFoundException+    , _ResourceNotFoundException+     -- * Waiters     -- $waiters @@ -86,6 +101,12 @@     -- ** TerminateEnvironment     , module Network.AWS.ElasticBeanstalk.TerminateEnvironment +    -- ** ListPlatformVersions+    , module Network.AWS.ElasticBeanstalk.ListPlatformVersions++    -- ** DeletePlatformVersion+    , module Network.AWS.ElasticBeanstalk.DeletePlatformVersion+     -- ** CreateApplicationVersion     , module Network.AWS.ElasticBeanstalk.CreateApplicationVersion @@ -95,9 +116,15 @@     -- ** RequestEnvironmentInfo     , module Network.AWS.ElasticBeanstalk.RequestEnvironmentInfo +    -- ** ListTagsForResource+    , module Network.AWS.ElasticBeanstalk.ListTagsForResource+     -- ** RetrieveEnvironmentInfo     , module Network.AWS.ElasticBeanstalk.RetrieveEnvironmentInfo +    -- ** DescribePlatformVersion+    , module Network.AWS.ElasticBeanstalk.DescribePlatformVersion+     -- ** DeleteApplication     , module Network.AWS.ElasticBeanstalk.DeleteApplication @@ -122,6 +149,9 @@     -- ** UpdateConfigurationTemplate     , module Network.AWS.ElasticBeanstalk.UpdateConfigurationTemplate +    -- ** UpdateTagsForResource+    , module Network.AWS.ElasticBeanstalk.UpdateTagsForResource+     -- ** DescribeEnvironmentResources     , module Network.AWS.ElasticBeanstalk.DescribeEnvironmentResources @@ -146,6 +176,9 @@     -- ** DeleteEnvironmentConfiguration     , module Network.AWS.ElasticBeanstalk.DeleteEnvironmentConfiguration +    -- ** UpdateApplicationResourceLifecycle+    , module Network.AWS.ElasticBeanstalk.UpdateApplicationResourceLifecycle+     -- ** SwapEnvironmentCNAMEs     , module Network.AWS.ElasticBeanstalk.SwapEnvironmentCNAMEs @@ -185,6 +218,9 @@     -- ** CreateEnvironment     , module Network.AWS.ElasticBeanstalk.CreateEnvironment +    -- ** CreatePlatformVersion+    , module Network.AWS.ElasticBeanstalk.CreatePlatformVersion+     -- * Types      -- ** ActionHistoryStatus@@ -232,6 +268,9 @@     -- ** InstancesHealthAttribute     , InstancesHealthAttribute (..) +    -- ** PlatformStatus+    , PlatformStatus (..)+     -- ** SourceRepository     , SourceRepository (..) @@ -249,6 +288,7 @@     , adDateCreated     , adApplicationName     , adConfigurationTemplates+    , adResourceLifecycleConfig     , adDescription      -- ** ApplicationDescriptionMessage@@ -264,6 +304,12 @@     , amStatusCodes     , amDuration +    -- ** ApplicationResourceLifecycleConfig+    , ApplicationResourceLifecycleConfig+    , applicationResourceLifecycleConfig+    , arlcVersionLifecycleConfig+    , arlcServiceRole+     -- ** ApplicationVersionDescription     , ApplicationVersionDescription     , applicationVersionDescription@@ -282,6 +328,12 @@     , applicationVersionDescriptionMessage     , avdmApplicationVersion +    -- ** ApplicationVersionLifecycleConfig+    , ApplicationVersionLifecycleConfig+    , applicationVersionLifecycleConfig+    , avlcMaxAgeRule+    , avlcMaxCountRule+     -- ** AutoScalingGroup     , AutoScalingGroup     , autoScalingGroup@@ -296,6 +348,11 @@     , bcCodeBuildServiceRole     , bcImage +    -- ** Builder+    , Builder+    , builder+    , bARN+     -- ** CPUUtilization     , CPUUtilization     , cpuUtilization@@ -337,12 +394,19 @@     , csdOptionSettings     , csdDateUpdated     , csdDateCreated+    , csdPlatformARN     , csdEnvironmentName     , csdApplicationName     , csdDeploymentStatus     , csdSolutionStackName     , csdDescription +    -- ** CustomAMI+    , CustomAMI+    , customAMI+    , caVirtualizationType+    , caImageId+     -- ** Deployment     , Deployment     , deployment@@ -364,9 +428,11 @@     , eDateCreated     , eHealth     , eVersionLabel+    , ePlatformARN     , eTier     , eEnvironmentName     , eApplicationName+    , eEnvironmentARN     , eSolutionStackName     , eEnvironmentId     , eHealthStatus@@ -376,6 +442,7 @@     -- ** EnvironmentDescriptionsMessage     , EnvironmentDescriptionsMessage     , environmentDescriptionsMessage+    , edmNextToken     , edmEnvironments      -- ** EnvironmentInfoDescription@@ -422,6 +489,7 @@     , edTemplateName     , edSeverity     , edVersionLabel+    , edPlatformARN     , edEnvironmentName     , edApplicationName     , edEventDate@@ -500,6 +568,20 @@     , mahiExecutedTime     , mahiActionType +    -- ** MaxAgeRule+    , MaxAgeRule+    , maxAgeRule+    , marDeleteSourceFromS3+    , marMaxAgeInDays+    , marEnabled++    -- ** MaxCountRule+    , MaxCountRule+    , maxCountRule+    , mcrMaxCount+    , mcrDeleteSourceFromS3+    , mcrEnabled+     -- ** OptionRestrictionRegex     , OptionRestrictionRegex     , optionRestrictionRegex@@ -513,6 +595,59 @@     , osResourceName     , osNamespace +    -- ** PlatformDescription+    , PlatformDescription+    , platformDescription+    , pdSupportedAddonList+    , pdPlatformCategory+    , pdPlatformVersion+    , pdPlatformStatus+    , pdMaintainer+    , pdPlatformOwner+    , pdDateUpdated+    , pdCustomAMIList+    , pdDateCreated+    , pdOperatingSystemName+    , pdFrameworks+    , pdPlatformARN+    , pdOperatingSystemVersion+    , pdProgrammingLanguages+    , pdSolutionStackName+    , pdPlatformName+    , pdDescription+    , pdSupportedTierList++    -- ** PlatformFilter+    , PlatformFilter+    , platformFilter+    , pfValues+    , pfOperator+    , pfType++    -- ** PlatformFramework+    , PlatformFramework+    , platformFramework+    , pfName+    , pfVersion++    -- ** PlatformProgrammingLanguage+    , PlatformProgrammingLanguage+    , platformProgrammingLanguage+    , pplName+    , pplVersion++    -- ** PlatformSummary+    , PlatformSummary+    , platformSummary+    , psSupportedAddonList+    , psPlatformCategory+    , psPlatformStatus+    , psPlatformOwner+    , psOperatingSystemName+    , psPlatformARN+    , psOperatingSystemVersion+    , psSupportedTierList+     -- ** Queue     , Queue     , queue@@ -592,44 +727,51 @@     , vmMessage     ) where -import           Network.AWS.ElasticBeanstalk.AbortEnvironmentUpdate-import           Network.AWS.ElasticBeanstalk.ApplyEnvironmentManagedAction-import           Network.AWS.ElasticBeanstalk.CheckDNSAvailability-import           Network.AWS.ElasticBeanstalk.ComposeEnvironments-import           Network.AWS.ElasticBeanstalk.CreateApplication-import           Network.AWS.ElasticBeanstalk.CreateApplicationVersion-import           Network.AWS.ElasticBeanstalk.CreateConfigurationTemplate-import           Network.AWS.ElasticBeanstalk.CreateEnvironment-import           Network.AWS.ElasticBeanstalk.CreateStorageLocation-import           Network.AWS.ElasticBeanstalk.DeleteApplication-import           Network.AWS.ElasticBeanstalk.DeleteApplicationVersion-import           Network.AWS.ElasticBeanstalk.DeleteConfigurationTemplate-import           Network.AWS.ElasticBeanstalk.DeleteEnvironmentConfiguration-import           Network.AWS.ElasticBeanstalk.DescribeApplications-import           Network.AWS.ElasticBeanstalk.DescribeApplicationVersions-import           Network.AWS.ElasticBeanstalk.DescribeConfigurationOptions-import           Network.AWS.ElasticBeanstalk.DescribeConfigurationSettings-import           Network.AWS.ElasticBeanstalk.DescribeEnvironmentHealth-import           Network.AWS.ElasticBeanstalk.DescribeEnvironmentManagedActionHistory-import           Network.AWS.ElasticBeanstalk.DescribeEnvironmentManagedActions-import           Network.AWS.ElasticBeanstalk.DescribeEnvironmentResources-import           Network.AWS.ElasticBeanstalk.DescribeEnvironments-import           Network.AWS.ElasticBeanstalk.DescribeEvents-import           Network.AWS.ElasticBeanstalk.DescribeInstancesHealth-import           Network.AWS.ElasticBeanstalk.ListAvailableSolutionStacks-import           Network.AWS.ElasticBeanstalk.RebuildEnvironment-import           Network.AWS.ElasticBeanstalk.RequestEnvironmentInfo-import           Network.AWS.ElasticBeanstalk.RestartAppServer-import           Network.AWS.ElasticBeanstalk.RetrieveEnvironmentInfo-import           Network.AWS.ElasticBeanstalk.SwapEnvironmentCNAMEs-import           Network.AWS.ElasticBeanstalk.TerminateEnvironment-import           Network.AWS.ElasticBeanstalk.Types-import           Network.AWS.ElasticBeanstalk.UpdateApplication-import           Network.AWS.ElasticBeanstalk.UpdateApplicationVersion-import           Network.AWS.ElasticBeanstalk.UpdateConfigurationTemplate-import           Network.AWS.ElasticBeanstalk.UpdateEnvironment-import           Network.AWS.ElasticBeanstalk.ValidateConfigurationSettings-import           Network.AWS.ElasticBeanstalk.Waiters+import Network.AWS.ElasticBeanstalk.AbortEnvironmentUpdate+import Network.AWS.ElasticBeanstalk.ApplyEnvironmentManagedAction+import Network.AWS.ElasticBeanstalk.CheckDNSAvailability+import Network.AWS.ElasticBeanstalk.ComposeEnvironments+import Network.AWS.ElasticBeanstalk.CreateApplication+import Network.AWS.ElasticBeanstalk.CreateApplicationVersion+import Network.AWS.ElasticBeanstalk.CreateConfigurationTemplate+import Network.AWS.ElasticBeanstalk.CreateEnvironment+import Network.AWS.ElasticBeanstalk.CreatePlatformVersion+import Network.AWS.ElasticBeanstalk.CreateStorageLocation+import Network.AWS.ElasticBeanstalk.DeleteApplication+import Network.AWS.ElasticBeanstalk.DeleteApplicationVersion+import Network.AWS.ElasticBeanstalk.DeleteConfigurationTemplate+import Network.AWS.ElasticBeanstalk.DeleteEnvironmentConfiguration+import Network.AWS.ElasticBeanstalk.DeletePlatformVersion+import Network.AWS.ElasticBeanstalk.DescribeApplications+import Network.AWS.ElasticBeanstalk.DescribeApplicationVersions+import Network.AWS.ElasticBeanstalk.DescribeConfigurationOptions+import Network.AWS.ElasticBeanstalk.DescribeConfigurationSettings+import Network.AWS.ElasticBeanstalk.DescribeEnvironmentHealth+import Network.AWS.ElasticBeanstalk.DescribeEnvironmentManagedActionHistory+import Network.AWS.ElasticBeanstalk.DescribeEnvironmentManagedActions+import Network.AWS.ElasticBeanstalk.DescribeEnvironmentResources+import Network.AWS.ElasticBeanstalk.DescribeEnvironments+import Network.AWS.ElasticBeanstalk.DescribeEvents+import Network.AWS.ElasticBeanstalk.DescribeInstancesHealth+import Network.AWS.ElasticBeanstalk.DescribePlatformVersion+import Network.AWS.ElasticBeanstalk.ListAvailableSolutionStacks+import Network.AWS.ElasticBeanstalk.ListPlatformVersions+import Network.AWS.ElasticBeanstalk.ListTagsForResource+import Network.AWS.ElasticBeanstalk.RebuildEnvironment+import Network.AWS.ElasticBeanstalk.RequestEnvironmentInfo+import Network.AWS.ElasticBeanstalk.RestartAppServer+import Network.AWS.ElasticBeanstalk.RetrieveEnvironmentInfo+import Network.AWS.ElasticBeanstalk.SwapEnvironmentCNAMEs+import Network.AWS.ElasticBeanstalk.TerminateEnvironment+import Network.AWS.ElasticBeanstalk.Types+import Network.AWS.ElasticBeanstalk.UpdateApplication+import Network.AWS.ElasticBeanstalk.UpdateApplicationResourceLifecycle+import Network.AWS.ElasticBeanstalk.UpdateApplicationVersion+import Network.AWS.ElasticBeanstalk.UpdateConfigurationTemplate+import Network.AWS.ElasticBeanstalk.UpdateEnvironment+import Network.AWS.ElasticBeanstalk.UpdateTagsForResource+import Network.AWS.ElasticBeanstalk.ValidateConfigurationSettings+import Network.AWS.ElasticBeanstalk.Waiters  {- $errors Error matchers are designed for use with the functions provided by

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.AbortEnvironmentUpdate--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,12 +35,12 @@     , AbortEnvironmentUpdateResponse     ) 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+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  -- | --@@ -48,10 +48,11 @@ -- -- /See:/ 'abortEnvironmentUpdate' smart constructor. data AbortEnvironmentUpdate = AbortEnvironmentUpdate'-    { _aeuEnvironmentName :: !(Maybe Text)-    , _aeuEnvironmentId   :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _aeuEnvironmentName :: !(Maybe Text)+  , _aeuEnvironmentId   :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AbortEnvironmentUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -62,11 +63,10 @@ abortEnvironmentUpdate     :: AbortEnvironmentUpdate abortEnvironmentUpdate =-    AbortEnvironmentUpdate'-    { _aeuEnvironmentName = Nothing-    , _aeuEnvironmentId = Nothing-    }+  AbortEnvironmentUpdate'+  {_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});@@ -82,9 +82,9 @@         response           = receiveNull AbortEnvironmentUpdateResponse' -instance Hashable AbortEnvironmentUpdate+instance Hashable AbortEnvironmentUpdate where -instance NFData AbortEnvironmentUpdate+instance NFData AbortEnvironmentUpdate where  instance ToHeaders AbortEnvironmentUpdate where         toHeaders = const mempty@@ -103,13 +103,15 @@  -- | /See:/ 'abortEnvironmentUpdateResponse' smart constructor. data AbortEnvironmentUpdateResponse =-    AbortEnvironmentUpdateResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  AbortEnvironmentUpdateResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AbortEnvironmentUpdateResponse' with the minimum fields required to make a request. -- abortEnvironmentUpdateResponse     :: AbortEnvironmentUpdateResponse abortEnvironmentUpdateResponse = AbortEnvironmentUpdateResponse' -instance NFData AbortEnvironmentUpdateResponse++instance NFData AbortEnvironmentUpdateResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.ApplyEnvironmentManagedAction--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -42,12 +42,12 @@     , aemarsResponseStatus     ) 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+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  -- | Request to execute a scheduled managed action immediately. --@@ -55,11 +55,12 @@ -- -- /See:/ 'applyEnvironmentManagedAction' smart constructor. data ApplyEnvironmentManagedAction = ApplyEnvironmentManagedAction'-    { _aemaEnvironmentName :: !(Maybe Text)-    , _aemaEnvironmentId   :: !(Maybe Text)-    , _aemaActionId        :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _aemaEnvironmentName :: !(Maybe Text)+  , _aemaEnvironmentId   :: !(Maybe Text)+  , _aemaActionId        :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ApplyEnvironmentManagedAction' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -73,12 +74,13 @@     :: Text -- ^ 'aemaActionId'     -> ApplyEnvironmentManagedAction applyEnvironmentManagedAction pActionId_ =-    ApplyEnvironmentManagedAction'-    { _aemaEnvironmentName = Nothing-    , _aemaEnvironmentId = Nothing-    , _aemaActionId = pActionId_-    }+  ApplyEnvironmentManagedAction'+  { _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});@@ -106,9 +108,9 @@                      <*> (x .@? "ActionType")                      <*> (pure (fromEnum s))) -instance Hashable ApplyEnvironmentManagedAction+instance Hashable ApplyEnvironmentManagedAction where -instance NFData ApplyEnvironmentManagedAction+instance NFData ApplyEnvironmentManagedAction where  instance ToHeaders ApplyEnvironmentManagedAction          where@@ -133,13 +135,14 @@ -- -- /See:/ 'applyEnvironmentManagedActionResponse' smart constructor. data ApplyEnvironmentManagedActionResponse = ApplyEnvironmentManagedActionResponse'-    { _aemarsStatus            :: !(Maybe Text)-    , _aemarsActionId          :: !(Maybe Text)-    , _aemarsActionDescription :: !(Maybe Text)-    , _aemarsActionType        :: !(Maybe ActionType)-    , _aemarsResponseStatus    :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _aemarsStatus            :: !(Maybe Text)+  , _aemarsActionId          :: !(Maybe Text)+  , _aemarsActionDescription :: !(Maybe Text)+  , _aemarsActionType        :: !(Maybe ActionType)+  , _aemarsResponseStatus    :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ApplyEnvironmentManagedActionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -157,14 +160,15 @@     :: Int -- ^ 'aemarsResponseStatus'     -> ApplyEnvironmentManagedActionResponse applyEnvironmentManagedActionResponse pResponseStatus_ =-    ApplyEnvironmentManagedActionResponse'-    { _aemarsStatus = Nothing-    , _aemarsActionId = Nothing-    , _aemarsActionDescription = Nothing-    , _aemarsActionType = Nothing-    , _aemarsResponseStatus = pResponseStatus_-    }+  ApplyEnvironmentManagedActionResponse'+  { _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});@@ -186,3 +190,4 @@ aemarsResponseStatus = lens _aemarsResponseStatus (\ s a -> s{_aemarsResponseStatus = a});  instance NFData ApplyEnvironmentManagedActionResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.CheckDNSAvailability--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -38,12 +38,12 @@     , cdarsResponseStatus     ) 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+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  -- | Results message indicating whether a CNAME is available. --@@ -51,9 +51,10 @@ -- -- /See:/ 'checkDNSAvailability' smart constructor. newtype CheckDNSAvailability = CheckDNSAvailability'-    { _cdaCNAMEPrefix :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cdaCNAMEPrefix :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CheckDNSAvailability' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -63,10 +64,9 @@     :: Text -- ^ 'cdaCNAMEPrefix'     -> CheckDNSAvailability checkDNSAvailability pCNAMEPrefix_ =-    CheckDNSAvailability'-    { _cdaCNAMEPrefix = pCNAMEPrefix_-    }+  CheckDNSAvailability' {_cdaCNAMEPrefix = pCNAMEPrefix_} + -- | The prefix used when this CNAME is reserved. cdaCNAMEPrefix :: Lens' CheckDNSAvailability Text cdaCNAMEPrefix = lens _cdaCNAMEPrefix (\ s a -> s{_cdaCNAMEPrefix = a});@@ -82,9 +82,9 @@                    (x .@? "FullyQualifiedCNAME") <*> (x .@? "Available")                      <*> (pure (fromEnum s))) -instance Hashable CheckDNSAvailability+instance Hashable CheckDNSAvailability where -instance NFData CheckDNSAvailability+instance NFData CheckDNSAvailability where  instance ToHeaders CheckDNSAvailability where         toHeaders = const mempty@@ -105,11 +105,12 @@ -- -- /See:/ 'checkDNSAvailabilityResponse' smart constructor. data CheckDNSAvailabilityResponse = CheckDNSAvailabilityResponse'-    { _cdarsFullyQualifiedCNAME :: !(Maybe Text)-    , _cdarsAvailable           :: !(Maybe Bool)-    , _cdarsResponseStatus      :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cdarsFullyQualifiedCNAME :: !(Maybe Text)+  , _cdarsAvailable           :: !(Maybe Bool)+  , _cdarsResponseStatus      :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CheckDNSAvailabilityResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -123,12 +124,13 @@     :: Int -- ^ 'cdarsResponseStatus'     -> CheckDNSAvailabilityResponse checkDNSAvailabilityResponse pResponseStatus_ =-    CheckDNSAvailabilityResponse'-    { _cdarsFullyQualifiedCNAME = Nothing-    , _cdarsAvailable = Nothing-    , _cdarsResponseStatus = pResponseStatus_-    }+  CheckDNSAvailabilityResponse'+  { _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});@@ -141,4 +143,4 @@ cdarsResponseStatus :: Lens' CheckDNSAvailabilityResponse Int cdarsResponseStatus = lens _cdarsResponseStatus (\ s a -> s{_cdarsResponseStatus = a}); -instance NFData CheckDNSAvailabilityResponse+instance NFData CheckDNSAvailabilityResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.ComposeEnvironments--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,15 +35,16 @@     , environmentDescriptionsMessage     , EnvironmentDescriptionsMessage     -- * Response Lenses+    , edmNextToken     , edmEnvironments     ) 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+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  -- | Request to create or update a group of environments. --@@ -51,11 +52,12 @@ -- -- /See:/ 'composeEnvironments' smart constructor. data ComposeEnvironments = ComposeEnvironments'-    { _ceVersionLabels   :: !(Maybe [Text])-    , _ceApplicationName :: !(Maybe Text)-    , _ceGroupName       :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ceVersionLabels   :: !(Maybe [Text])+  , _ceApplicationName :: !(Maybe Text)+  , _ceGroupName       :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ComposeEnvironments' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -68,12 +70,13 @@ composeEnvironments     :: ComposeEnvironments composeEnvironments =-    ComposeEnvironments'-    { _ceVersionLabels = Nothing-    , _ceApplicationName = Nothing-    , _ceGroupName = Nothing-    }+  ComposeEnvironments'+  { _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;@@ -94,9 +97,9 @@           = receiveXMLWrapper "ComposeEnvironmentsResult"               (\ s h x -> parseXML x) -instance Hashable ComposeEnvironments+instance Hashable ComposeEnvironments where -instance NFData ComposeEnvironments+instance NFData ComposeEnvironments where  instance ToHeaders ComposeEnvironments where         toHeaders = const mempty

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.CreateApplication--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -27,6 +27,7 @@       createApplication     , CreateApplication     -- * Request Lenses+    , caResourceLifecycleConfig     , caDescription     , caApplicationName @@ -37,12 +38,12 @@     , admApplication     ) 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+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  -- | Request to create an application. --@@ -50,14 +51,18 @@ -- -- /See:/ 'createApplication' smart constructor. data CreateApplication = CreateApplication'-    { _caDescription     :: !(Maybe Text)-    , _caApplicationName :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _caResourceLifecycleConfig :: !(Maybe ApplicationResourceLifecycleConfig)+  , _caDescription             :: !(Maybe Text)+  , _caApplicationName         :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateApplication' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'caResourceLifecycleConfig' - Specify an application resource lifecycle configuration to prevent your application from accumulating too many versions.+-- -- * 'caDescription' - Describes the application. -- -- * 'caApplicationName' - 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.@@ -65,11 +70,17 @@     :: Text -- ^ 'caApplicationName'     -> CreateApplication createApplication pApplicationName_ =-    CreateApplication'-    { _caDescription = Nothing-    , _caApplicationName = pApplicationName_-    }+  CreateApplication'+  { _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});+ -- | Describes the application. caDescription :: Lens' CreateApplication (Maybe Text) caDescription = lens _caDescription (\ s a -> s{_caDescription = a});@@ -86,9 +97,9 @@           = receiveXMLWrapper "CreateApplicationResult"               (\ s h x -> parseXML x) -instance Hashable CreateApplication+instance Hashable CreateApplication where -instance NFData CreateApplication+instance NFData CreateApplication where  instance ToHeaders CreateApplication where         toHeaders = const mempty@@ -101,5 +112,7 @@           = mconcat               ["Action" =: ("CreateApplication" :: ByteString),                "Version" =: ("2010-12-01" :: ByteString),+               "ResourceLifecycleConfig" =:+                 _caResourceLifecycleConfig,                "Description" =: _caDescription,                "ApplicationName" =: _caApplicationName]

@@ -12,15 +12,23 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.CreateApplicationVersion--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates an application version for the specified application.+-- Creates an application version for the specified application. You can create an application version from a source bundle in Amazon S3, a commit in AWS CodeCommit, or the output of an AWS CodeBuild build as follows: -- --+-- Specify a commit in an AWS CodeCommit repository with @SourceBuildInformation@ .+--+-- Specify a build in an AWS CodeBuild with @SourceBuildInformation@ and @BuildConfiguration@ .+--+-- Specify a source bundle in S3 with @SourceBundle@+--+-- Omit both @SourceBuildInformation@ and @SourceBundle@ to use the default sample application.+-- module Network.AWS.ElasticBeanstalk.CreateApplicationVersion     (     -- * Creating a Request@@ -43,12 +51,12 @@     , avdmApplicationVersion     ) 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+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  -- | --@@ -56,16 +64,17 @@ -- -- /See:/ 'createApplicationVersion' smart constructor. data CreateApplicationVersion = CreateApplicationVersion'-    { _cavProcess                :: !(Maybe Bool)-    , _cavSourceBundle           :: !(Maybe S3Location)-    , _cavAutoCreateApplication  :: !(Maybe Bool)-    , _cavSourceBuildInformation :: !(Maybe SourceBuildInformation)-    , _cavDescription            :: !(Maybe Text)-    , _cavBuildConfiguration     :: !(Maybe BuildConfiguration)-    , _cavApplicationName        :: !Text-    , _cavVersionLabel           :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cavProcess                :: !(Maybe Bool)+  , _cavSourceBundle           :: !(Maybe S3Location)+  , _cavAutoCreateApplication  :: !(Maybe Bool)+  , _cavSourceBuildInformation :: !(Maybe SourceBuildInformation)+  , _cavDescription            :: !(Maybe Text)+  , _cavBuildConfiguration     :: !(Maybe BuildConfiguration)+  , _cavApplicationName        :: !Text+  , _cavVersionLabel           :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateApplicationVersion' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -76,11 +85,11 @@ -- -- * 'cavAutoCreateApplication' - Set to @true@ to create an application with the specified name if it doesn't already exist. ----- * 'cavSourceBuildInformation' - Specify a commit in an AWS CodeCommit Git repository to use as the source code for the application version. Specify a commit in an AWS CodeCommit repository or a source bundle in S3 (with @SourceBundle@ ), but not both. If neither @SourceBundle@ nor @SourceBuildInformation@ are provided, Elastic Beanstalk uses a sample application.+-- * 'cavSourceBuildInformation' - Specify a commit in an AWS CodeCommit Git repository to use as the source code for the application version. -- -- * 'cavDescription' - Describes this version. ----- * 'cavBuildConfiguration' - Undocumented member.+-- * 'cavBuildConfiguration' - Settings for an AWS CodeBuild build. -- -- * 'cavApplicationName' - The name of the application. If no application is found with this name, and @AutoCreateApplication@ is @false@ , returns an @InvalidParameterValue@ error. --@@ -90,17 +99,18 @@     -> Text -- ^ 'cavVersionLabel'     -> CreateApplicationVersion createApplicationVersion pApplicationName_ pVersionLabel_ =-    CreateApplicationVersion'-    { _cavProcess = Nothing-    , _cavSourceBundle = Nothing-    , _cavAutoCreateApplication = Nothing-    , _cavSourceBuildInformation = Nothing-    , _cavDescription = Nothing-    , _cavBuildConfiguration = Nothing-    , _cavApplicationName = pApplicationName_-    , _cavVersionLabel = pVersionLabel_-    }+  CreateApplicationVersion'+  { _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. cavProcess :: Lens' CreateApplicationVersion (Maybe Bool) cavProcess = lens _cavProcess (\ s a -> s{_cavProcess = a});@@ -113,7 +123,7 @@ cavAutoCreateApplication :: Lens' CreateApplicationVersion (Maybe Bool) 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. Specify a commit in an AWS CodeCommit repository or a source bundle in S3 (with @SourceBundle@ ), but not both. If neither @SourceBundle@ nor @SourceBuildInformation@ are provided, Elastic Beanstalk uses a sample application.+-- | 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}); @@ -121,7 +131,7 @@ cavDescription :: Lens' CreateApplicationVersion (Maybe Text) cavDescription = lens _cavDescription (\ s a -> s{_cavDescription = a}); --- | Undocumented member.+-- | Settings for an AWS CodeBuild build. cavBuildConfiguration :: Lens' CreateApplicationVersion (Maybe BuildConfiguration) cavBuildConfiguration = lens _cavBuildConfiguration (\ s a -> s{_cavBuildConfiguration = a}); @@ -141,9 +151,9 @@           = receiveXMLWrapper "CreateApplicationVersionResult"               (\ s h x -> parseXML x) -instance Hashable CreateApplicationVersion+instance Hashable CreateApplicationVersion where -instance NFData CreateApplicationVersion+instance NFData CreateApplicationVersion where  instance ToHeaders CreateApplicationVersion where         toHeaders = const mempty

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.CreateConfigurationTemplate--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -38,6 +38,7 @@     , CreateConfigurationTemplate     -- * Request Lenses     , cctOptionSettings+    , cctPlatformARN     , cctSourceConfiguration     , cctSolutionStackName     , cctEnvironmentId@@ -53,6 +54,7 @@     , csdOptionSettings     , csdDateUpdated     , csdDateCreated+    , csdPlatformARN     , csdEnvironmentName     , csdApplicationName     , csdDeploymentStatus@@ -60,12 +62,12 @@     , csdDescription     ) 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+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  -- | Request to create a configuration template. --@@ -73,21 +75,25 @@ -- -- /See:/ 'createConfigurationTemplate' smart constructor. data CreateConfigurationTemplate = CreateConfigurationTemplate'-    { _cctOptionSettings      :: !(Maybe [ConfigurationOptionSetting])-    , _cctSourceConfiguration :: !(Maybe SourceConfiguration)-    , _cctSolutionStackName   :: !(Maybe Text)-    , _cctEnvironmentId       :: !(Maybe Text)-    , _cctDescription         :: !(Maybe Text)-    , _cctApplicationName     :: !Text-    , _cctTemplateName        :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cctOptionSettings      :: !(Maybe [ConfigurationOptionSetting])+  , _cctPlatformARN         :: !(Maybe Text)+  , _cctSourceConfiguration :: !(Maybe SourceConfiguration)+  , _cctSolutionStackName   :: !(Maybe Text)+  , _cctEnvironmentId       :: !(Maybe Text)+  , _cctDescription         :: !(Maybe Text)+  , _cctApplicationName     :: !Text+  , _cctTemplateName        :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateConfigurationTemplate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * '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.+-- -- * '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. -- -- * 'cctSolutionStackName' - 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.@@ -104,20 +110,26 @@     -> Text -- ^ 'cctTemplateName'     -> CreateConfigurationTemplate createConfigurationTemplate pApplicationName_ pTemplateName_ =-    CreateConfigurationTemplate'-    { _cctOptionSettings = Nothing-    , _cctSourceConfiguration = Nothing-    , _cctSolutionStackName = Nothing-    , _cctEnvironmentId = Nothing-    , _cctDescription = Nothing-    , _cctApplicationName = pApplicationName_-    , _cctTemplateName = pTemplateName_-    }+  CreateConfigurationTemplate'+  { _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; +-- | The ARN of the custome platform.+cctPlatformARN :: Lens' CreateConfigurationTemplate (Maybe Text)+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});@@ -151,9 +163,9 @@               "CreateConfigurationTemplateResult"               (\ s h x -> parseXML x) -instance Hashable CreateConfigurationTemplate+instance Hashable CreateConfigurationTemplate where -instance NFData CreateConfigurationTemplate+instance NFData CreateConfigurationTemplate where  instance ToHeaders CreateConfigurationTemplate where         toHeaders = const mempty@@ -170,6 +182,7 @@                "OptionSettings" =:                  toQuery                    (toQueryList "member" <$> _cctOptionSettings),+               "PlatformArn" =: _cctPlatformARN,                "SourceConfiguration" =: _cctSourceConfiguration,                "SolutionStackName" =: _cctSolutionStackName,                "EnvironmentId" =: _cctEnvironmentId,

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.CreateEnvironment--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -32,6 +32,7 @@     , cOptionsToRemove     , cOptionSettings     , cVersionLabel+    , cPlatformARN     , cTier     , cEnvironmentName     , cSolutionStackName@@ -54,9 +55,11 @@     , eDateCreated     , eHealth     , eVersionLabel+    , ePlatformARN     , eTier     , eEnvironmentName     , eApplicationName+    , eEnvironmentARN     , eSolutionStackName     , eEnvironmentId     , eHealthStatus@@ -64,12 +67,12 @@     , eDescription     ) 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+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  -- | --@@ -77,27 +80,29 @@ -- -- /See:/ 'createEnvironment' smart constructor. data CreateEnvironment = CreateEnvironment'-    { _cCNAMEPrefix       :: !(Maybe Text)-    , _cTemplateName      :: !(Maybe Text)-    , _cOptionsToRemove   :: !(Maybe [OptionSpecification])-    , _cOptionSettings    :: !(Maybe [ConfigurationOptionSetting])-    , _cVersionLabel      :: !(Maybe Text)-    , _cTier              :: !(Maybe EnvironmentTier)-    , _cEnvironmentName   :: !(Maybe Text)-    , _cSolutionStackName :: !(Maybe Text)-    , _cGroupName         :: !(Maybe Text)-    , _cDescription       :: !(Maybe Text)-    , _cTags              :: !(Maybe [Tag])-    , _cApplicationName   :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cCNAMEPrefix       :: !(Maybe Text)+  , _cTemplateName      :: !(Maybe Text)+  , _cOptionsToRemove   :: !(Maybe [OptionSpecification])+  , _cOptionSettings    :: !(Maybe [ConfigurationOptionSetting])+  , _cVersionLabel      :: !(Maybe Text)+  , _cPlatformARN       :: !(Maybe Text)+  , _cTier              :: !(Maybe EnvironmentTier)+  , _cEnvironmentName   :: !(Maybe Text)+  , _cSolutionStackName :: !(Maybe Text)+  , _cGroupName         :: !(Maybe Text)+  , _cDescription       :: !(Maybe Text)+  , _cTags              :: !(Maybe [Tag])+  , _cApplicationName   :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateEnvironment' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'cCNAMEPrefix' - 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. ----- * 'cTemplateName' - The name of the configuration template to use in deployment. If no configuration template is found with this name, AWS Elastic Beanstalk returns an @InvalidParameterValue@ error.  Condition: You must specify either this parameter or a @SolutionStackName@ , but not both. If you specify both, AWS Elastic Beanstalk returns an @InvalidParameterCombination@ error. If you do not specify either, AWS Elastic Beanstalk returns a @MissingRequiredParameter@ error.+-- * 'cTemplateName' - 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. -- -- * 'cOptionsToRemove' - A list of custom user-defined configuration options to remove from the configuration set for this new environment. --@@ -105,11 +110,13 @@ -- -- * 'cVersionLabel' - 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. --+-- * 'cPlatformARN' - The ARN of the platform.+-- -- * 'cTier' - This specifies the tier to use for creating this environment. ----- * 'cEnvironmentName' - 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 in your account. If the specified name already exists, AWS Elastic Beanstalk returns an @InvalidParameterValue@ error.  Default: If the CNAME parameter is not specified, the environment name becomes part of the CNAME, and therefore part of the visible URL for your application.+-- * 'cEnvironmentName' - 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. ----- * 'cSolutionStackName' - 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. Condition: You must specify either this or a @TemplateName@ , but not both. If you specify both, AWS Elastic Beanstalk returns an @InvalidParameterCombination@ error. If you do not specify either, AWS Elastic Beanstalk returns a @MissingRequiredParameter@ error.+-- * 'cSolutionStackName' - 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. -- -- * 'cGroupName' - 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. --@@ -122,26 +129,28 @@     :: Text -- ^ 'cApplicationName'     -> CreateEnvironment createEnvironment pApplicationName_ =-    CreateEnvironment'-    { _cCNAMEPrefix = Nothing-    , _cTemplateName = Nothing-    , _cOptionsToRemove = Nothing-    , _cOptionSettings = Nothing-    , _cVersionLabel = Nothing-    , _cTier = Nothing-    , _cEnvironmentName = Nothing-    , _cSolutionStackName = Nothing-    , _cGroupName = Nothing-    , _cDescription = Nothing-    , _cTags = Nothing-    , _cApplicationName = 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_+  } + -- | 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}); --- | The name of the configuration template to use in deployment. If no configuration template is found with this name, AWS Elastic Beanstalk returns an @InvalidParameterValue@ error.  Condition: You must specify either this parameter or a @SolutionStackName@ , but not both. If you specify both, AWS Elastic Beanstalk returns an @InvalidParameterCombination@ error. If you do not specify either, AWS Elastic Beanstalk returns a @MissingRequiredParameter@ error.+-- | 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}); @@ -157,15 +166,19 @@ cVersionLabel :: Lens' CreateEnvironment (Maybe Text) 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});+ -- | This specifies the tier to use for creating this environment. cTier :: Lens' CreateEnvironment (Maybe EnvironmentTier) 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 in your account. If the specified name already exists, AWS Elastic Beanstalk returns an @InvalidParameterValue@ error.  Default: If the CNAME parameter is not specified, the environment name becomes part of the CNAME, and therefore part of the visible URL for your application.+-- | 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}); --- | 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. Condition: You must specify either this or a @TemplateName@ , but not both. If you specify both, AWS Elastic Beanstalk returns an @InvalidParameterCombination@ error. If you do not specify either, AWS Elastic Beanstalk returns a @MissingRequiredParameter@ error.+-- | 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}); @@ -192,9 +205,9 @@           = receiveXMLWrapper "CreateEnvironmentResult"               (\ s h x -> parseXML x) -instance Hashable CreateEnvironment+instance Hashable CreateEnvironment where -instance NFData CreateEnvironment+instance NFData CreateEnvironment where  instance ToHeaders CreateEnvironment where         toHeaders = const mempty@@ -213,7 +226,8 @@                  toQuery (toQueryList "member" <$> _cOptionsToRemove),                "OptionSettings" =:                  toQuery (toQueryList "member" <$> _cOptionSettings),-               "VersionLabel" =: _cVersionLabel, "Tier" =: _cTier,+               "VersionLabel" =: _cVersionLabel,+               "PlatformArn" =: _cPlatformARN, "Tier" =: _cTier,                "EnvironmentName" =: _cEnvironmentName,                "SolutionStackName" =: _cSolutionStackName,                "GroupName" =: _cGroupName,

@@ -0,0 +1,189 @@+{-# 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.CreatePlatformVersion+-- 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)+--+-- Create a new version of your custom platform.+--+--+module Network.AWS.ElasticBeanstalk.CreatePlatformVersion+    (+    -- * Creating a Request+      createPlatformVersion+    , CreatePlatformVersion+    -- * Request Lenses+    , cpvOptionSettings+    , cpvEnvironmentName+    , cpvPlatformName+    , cpvPlatformVersion+    , cpvPlatformDefinitionBundle++    -- * Destructuring the Response+    , createPlatformVersionResponse+    , CreatePlatformVersionResponse+    -- * Response Lenses+    , cpvrsBuilder+    , cpvrsPlatformSummary+    , cpvrsResponseStatus+    ) 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++-- | Request to create a new platform version.+--+--+--+-- /See:/ 'createPlatformVersion' smart constructor.+data CreatePlatformVersion = CreatePlatformVersion'+  { _cpvOptionSettings           :: !(Maybe [ConfigurationOptionSetting])+  , _cpvEnvironmentName          :: !(Maybe Text)+  , _cpvPlatformName             :: !Text+  , _cpvPlatformVersion          :: !Text+  , _cpvPlatformDefinitionBundle :: !S3Location+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreatePlatformVersion' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cpvOptionSettings' - The configuration option settings to apply to the builder environment.+--+-- * 'cpvEnvironmentName' - The name of the builder environment.+--+-- * 'cpvPlatformName' - The name of your custom platform.+--+-- * 'cpvPlatformVersion' - The number, such as 1.0.2, for the new platform version.+--+-- * 'cpvPlatformDefinitionBundle' - The location of the platform definition archive in Amazon S3.+createPlatformVersion+    :: Text -- ^ 'cpvPlatformName'+    -> Text -- ^ 'cpvPlatformVersion'+    -> S3Location -- ^ 'cpvPlatformDefinitionBundle'+    -> CreatePlatformVersion+createPlatformVersion pPlatformName_ pPlatformVersion_ pPlatformDefinitionBundle_ =+  CreatePlatformVersion'+  { _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;++-- | The name of the builder environment.+cpvEnvironmentName :: Lens' CreatePlatformVersion (Maybe Text)+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});++-- | The number, such as 1.0.2, for the new platform version.+cpvPlatformVersion :: Lens' CreatePlatformVersion Text+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});++instance AWSRequest CreatePlatformVersion where+        type Rs CreatePlatformVersion =+             CreatePlatformVersionResponse+        request = postQuery elasticBeanstalk+        response+          = receiveXMLWrapper "CreatePlatformVersionResult"+              (\ s h x ->+                 CreatePlatformVersionResponse' <$>+                   (x .@? "Builder") <*> (x .@? "PlatformSummary") <*>+                     (pure (fromEnum s)))++instance Hashable CreatePlatformVersion where++instance NFData CreatePlatformVersion where++instance ToHeaders CreatePlatformVersion where+        toHeaders = const mempty++instance ToPath CreatePlatformVersion where+        toPath = const "/"++instance ToQuery CreatePlatformVersion where+        toQuery CreatePlatformVersion'{..}+          = mconcat+              ["Action" =: ("CreatePlatformVersion" :: ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "OptionSettings" =:+                 toQuery+                   (toQueryList "member" <$> _cpvOptionSettings),+               "EnvironmentName" =: _cpvEnvironmentName,+               "PlatformName" =: _cpvPlatformName,+               "PlatformVersion" =: _cpvPlatformVersion,+               "PlatformDefinitionBundle" =:+                 _cpvPlatformDefinitionBundle]++-- | /See:/ 'createPlatformVersionResponse' smart constructor.+data CreatePlatformVersionResponse = CreatePlatformVersionResponse'+  { _cpvrsBuilder         :: !(Maybe Builder)+  , _cpvrsPlatformSummary :: !(Maybe PlatformSummary)+  , _cpvrsResponseStatus  :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreatePlatformVersionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cpvrsBuilder' - The builder used to create the custom platform.+--+-- * 'cpvrsPlatformSummary' - Detailed information about the new version of the custom platform.+--+-- * 'cpvrsResponseStatus' - -- | The response status code.+createPlatformVersionResponse+    :: Int -- ^ 'cpvrsResponseStatus'+    -> CreatePlatformVersionResponse+createPlatformVersionResponse pResponseStatus_ =+  CreatePlatformVersionResponse'+  { _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});++-- | Detailed information about the new version of the custom platform.+cpvrsPlatformSummary :: Lens' CreatePlatformVersionResponse (Maybe PlatformSummary)+cpvrsPlatformSummary = lens _cpvrsPlatformSummary (\ s a -> s{_cpvrsPlatformSummary = a});++-- | -- | The response status code.+cpvrsResponseStatus :: Lens' CreatePlatformVersionResponse Int+cpvrsResponseStatus = lens _cpvrsResponseStatus (\ s a -> s{_cpvrsResponseStatus = a});++instance NFData CreatePlatformVersionResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.CreateStorageLocation--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,24 +37,26 @@     , cslrsResponseStatus     ) 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+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:/ 'createStorageLocation' smart constructor. data CreateStorageLocation =-    CreateStorageLocation'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  CreateStorageLocation'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateStorageLocation' with the minimum fields required to make a request. -- createStorageLocation     :: CreateStorageLocation createStorageLocation = CreateStorageLocation' + instance AWSRequest CreateStorageLocation where         type Rs CreateStorageLocation =              CreateStorageLocationResponse@@ -65,9 +67,9 @@                  CreateStorageLocationResponse' <$>                    (x .@? "S3Bucket") <*> (pure (fromEnum s))) -instance Hashable CreateStorageLocation+instance Hashable CreateStorageLocation where -instance NFData CreateStorageLocation+instance NFData CreateStorageLocation where  instance ToHeaders CreateStorageLocation where         toHeaders = const mempty@@ -88,10 +90,11 @@ -- -- /See:/ 'createStorageLocationResponse' smart constructor. data CreateStorageLocationResponse = CreateStorageLocationResponse'-    { _cslrsS3Bucket       :: !(Maybe Text)-    , _cslrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cslrsS3Bucket       :: !(Maybe Text)+  , _cslrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateStorageLocationResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -103,11 +106,10 @@     :: Int -- ^ 'cslrsResponseStatus'     -> CreateStorageLocationResponse createStorageLocationResponse pResponseStatus_ =-    CreateStorageLocationResponse'-    { _cslrsS3Bucket = Nothing-    , _cslrsResponseStatus = pResponseStatus_-    }+  CreateStorageLocationResponse'+  {_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});@@ -116,4 +118,4 @@ cslrsResponseStatus :: Lens' CreateStorageLocationResponse Int cslrsResponseStatus = lens _cslrsResponseStatus (\ s a -> s{_cslrsResponseStatus = a}); -instance NFData CreateStorageLocationResponse+instance NFData CreateStorageLocationResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.DeleteApplication--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,12 +35,12 @@     , DeleteApplicationResponse     ) 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+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  -- | Request to delete an application. --@@ -48,10 +48,11 @@ -- -- /See:/ 'deleteApplication' smart constructor. data DeleteApplication = DeleteApplication'-    { _daTerminateEnvByForce :: !(Maybe Bool)-    , _daApplicationName     :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _daTerminateEnvByForce :: !(Maybe Bool)+  , _daApplicationName     :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteApplication' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -63,11 +64,10 @@     :: Text -- ^ 'daApplicationName'     -> DeleteApplication deleteApplication pApplicationName_ =-    DeleteApplication'-    { _daTerminateEnvByForce = Nothing-    , _daApplicationName = pApplicationName_-    }+  DeleteApplication'+  {_daTerminateEnvByForce = Nothing, _daApplicationName = pApplicationName_} + -- | When set to true, running environments will be terminated before deleting the application. daTerminateEnvByForce :: Lens' DeleteApplication (Maybe Bool) daTerminateEnvByForce = lens _daTerminateEnvByForce (\ s a -> s{_daTerminateEnvByForce = a});@@ -81,9 +81,9 @@         request = postQuery elasticBeanstalk         response = receiveNull DeleteApplicationResponse' -instance Hashable DeleteApplication+instance Hashable DeleteApplication where -instance NFData DeleteApplication+instance NFData DeleteApplication where  instance ToHeaders DeleteApplication where         toHeaders = const mempty@@ -101,13 +101,15 @@  -- | /See:/ 'deleteApplicationResponse' smart constructor. data DeleteApplicationResponse =-    DeleteApplicationResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeleteApplicationResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteApplicationResponse' with the minimum fields required to make a request. -- deleteApplicationResponse     :: DeleteApplicationResponse deleteApplicationResponse = DeleteApplicationResponse' -instance NFData DeleteApplicationResponse++instance NFData DeleteApplicationResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.DeleteApplicationVersion--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -36,12 +36,12 @@     , DeleteApplicationVersionResponse     ) 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+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  -- | Request to delete an application version. --@@ -49,11 +49,12 @@ -- -- /See:/ 'deleteApplicationVersion' smart constructor. data DeleteApplicationVersion = DeleteApplicationVersion'-    { _davDeleteSourceBundle :: !(Maybe Bool)-    , _davApplicationName    :: !Text-    , _davVersionLabel       :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _davDeleteSourceBundle :: !(Maybe Bool)+  , _davApplicationName    :: !Text+  , _davVersionLabel       :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteApplicationVersion' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -68,12 +69,13 @@     -> Text -- ^ 'davVersionLabel'     -> DeleteApplicationVersion deleteApplicationVersion pApplicationName_ pVersionLabel_ =-    DeleteApplicationVersion'-    { _davDeleteSourceBundle = Nothing-    , _davApplicationName = pApplicationName_-    , _davVersionLabel = pVersionLabel_-    }+  DeleteApplicationVersion'+  { _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});@@ -93,9 +95,9 @@         response           = receiveNull DeleteApplicationVersionResponse' -instance Hashable DeleteApplicationVersion+instance Hashable DeleteApplicationVersion where -instance NFData DeleteApplicationVersion+instance NFData DeleteApplicationVersion where  instance ToHeaders DeleteApplicationVersion where         toHeaders = const mempty@@ -115,13 +117,16 @@  -- | /See:/ 'deleteApplicationVersionResponse' smart constructor. data DeleteApplicationVersionResponse =-    DeleteApplicationVersionResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeleteApplicationVersionResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteApplicationVersionResponse' with the minimum fields required to make a request. -- deleteApplicationVersionResponse     :: DeleteApplicationVersionResponse deleteApplicationVersionResponse = DeleteApplicationVersionResponse' + instance NFData DeleteApplicationVersionResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.DeleteConfigurationTemplate--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,12 +35,12 @@     , DeleteConfigurationTemplateResponse     ) 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+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  -- | Request to delete a configuration template. --@@ -48,10 +48,11 @@ -- -- /See:/ 'deleteConfigurationTemplate' smart constructor. data DeleteConfigurationTemplate = DeleteConfigurationTemplate'-    { _dctApplicationName :: !Text-    , _dctTemplateName    :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dctApplicationName :: !Text+  , _dctTemplateName    :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteConfigurationTemplate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -64,11 +65,10 @@     -> Text -- ^ 'dctTemplateName'     -> DeleteConfigurationTemplate deleteConfigurationTemplate pApplicationName_ pTemplateName_ =-    DeleteConfigurationTemplate'-    { _dctApplicationName = pApplicationName_-    , _dctTemplateName = pTemplateName_-    }+  DeleteConfigurationTemplate'+  {_dctApplicationName = pApplicationName_, _dctTemplateName = pTemplateName_} + -- | The name of the application to delete the configuration template from. dctApplicationName :: Lens' DeleteConfigurationTemplate Text dctApplicationName = lens _dctApplicationName (\ s a -> s{_dctApplicationName = a});@@ -84,9 +84,9 @@         response           = receiveNull DeleteConfigurationTemplateResponse' -instance Hashable DeleteConfigurationTemplate+instance Hashable DeleteConfigurationTemplate where -instance NFData DeleteConfigurationTemplate+instance NFData DeleteConfigurationTemplate where  instance ToHeaders DeleteConfigurationTemplate where         toHeaders = const mempty@@ -105,13 +105,16 @@  -- | /See:/ 'deleteConfigurationTemplateResponse' smart constructor. data DeleteConfigurationTemplateResponse =-    DeleteConfigurationTemplateResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeleteConfigurationTemplateResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteConfigurationTemplateResponse' with the minimum fields required to make a request. -- deleteConfigurationTemplateResponse     :: DeleteConfigurationTemplateResponse deleteConfigurationTemplateResponse = DeleteConfigurationTemplateResponse' + instance NFData DeleteConfigurationTemplateResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.DeleteEnvironmentConfiguration--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@     , DeleteEnvironmentConfigurationResponse     ) 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+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  -- | Request to delete a draft environment configuration. --@@ -50,10 +50,11 @@ -- -- /See:/ 'deleteEnvironmentConfiguration' smart constructor. data DeleteEnvironmentConfiguration = DeleteEnvironmentConfiguration'-    { _decApplicationName :: !Text-    , _decEnvironmentName :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _decApplicationName :: !Text+  , _decEnvironmentName :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteEnvironmentConfiguration' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -66,11 +67,12 @@     -> Text -- ^ 'decEnvironmentName'     -> DeleteEnvironmentConfiguration deleteEnvironmentConfiguration pApplicationName_ pEnvironmentName_ =-    DeleteEnvironmentConfiguration'-    { _decApplicationName = pApplicationName_-    , _decEnvironmentName = pEnvironmentName_-    }+  DeleteEnvironmentConfiguration'+  { _decApplicationName = pApplicationName_+  , _decEnvironmentName = pEnvironmentName_+  } + -- | The name of the application the environment is associated with. decApplicationName :: Lens' DeleteEnvironmentConfiguration Text decApplicationName = lens _decApplicationName (\ s a -> s{_decApplicationName = a});@@ -88,8 +90,9 @@           = receiveNull DeleteEnvironmentConfigurationResponse'  instance Hashable DeleteEnvironmentConfiguration+         where -instance NFData DeleteEnvironmentConfiguration+instance NFData DeleteEnvironmentConfiguration where  instance ToHeaders DeleteEnvironmentConfiguration          where@@ -109,15 +112,17 @@  -- | /See:/ 'deleteEnvironmentConfigurationResponse' smart constructor. data DeleteEnvironmentConfigurationResponse =-    DeleteEnvironmentConfigurationResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeleteEnvironmentConfigurationResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteEnvironmentConfigurationResponse' with the minimum fields required to make a request. -- deleteEnvironmentConfigurationResponse     :: DeleteEnvironmentConfigurationResponse-deleteEnvironmentConfigurationResponse =-    DeleteEnvironmentConfigurationResponse'+deleteEnvironmentConfigurationResponse = DeleteEnvironmentConfigurationResponse' + instance NFData-         DeleteEnvironmentConfigurationResponse+           DeleteEnvironmentConfigurationResponse+         where

@@ -0,0 +1,124 @@+{-# 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.DeletePlatformVersion+-- 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)+--+-- Deletes the specified version of a custom platform.+--+--+module Network.AWS.ElasticBeanstalk.DeletePlatformVersion+    (+    -- * Creating a Request+      deletePlatformVersion+    , DeletePlatformVersion+    -- * Request Lenses+    , dpvPlatformARN++    -- * Destructuring the Response+    , deletePlatformVersionResponse+    , DeletePlatformVersionResponse+    -- * Response Lenses+    , dpvrsPlatformSummary+    , dpvrsResponseStatus+    ) 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:/ 'deletePlatformVersion' smart constructor.+newtype DeletePlatformVersion = DeletePlatformVersion'+  { _dpvPlatformARN :: Maybe Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeletePlatformVersion' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dpvPlatformARN' - The ARN of the version of the custom platform.+deletePlatformVersion+    :: DeletePlatformVersion+deletePlatformVersion = DeletePlatformVersion' {_dpvPlatformARN = Nothing}+++-- | The ARN of the version of the custom platform.+dpvPlatformARN :: Lens' DeletePlatformVersion (Maybe Text)+dpvPlatformARN = lens _dpvPlatformARN (\ s a -> s{_dpvPlatformARN = a});++instance AWSRequest DeletePlatformVersion where+        type Rs DeletePlatformVersion =+             DeletePlatformVersionResponse+        request = postQuery elasticBeanstalk+        response+          = receiveXMLWrapper "DeletePlatformVersionResult"+              (\ s h x ->+                 DeletePlatformVersionResponse' <$>+                   (x .@? "PlatformSummary") <*> (pure (fromEnum s)))++instance Hashable DeletePlatformVersion where++instance NFData DeletePlatformVersion where++instance ToHeaders DeletePlatformVersion where+        toHeaders = const mempty++instance ToPath DeletePlatformVersion where+        toPath = const "/"++instance ToQuery DeletePlatformVersion where+        toQuery DeletePlatformVersion'{..}+          = mconcat+              ["Action" =: ("DeletePlatformVersion" :: ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "PlatformArn" =: _dpvPlatformARN]++-- | /See:/ 'deletePlatformVersionResponse' smart constructor.+data DeletePlatformVersionResponse = DeletePlatformVersionResponse'+  { _dpvrsPlatformSummary :: !(Maybe PlatformSummary)+  , _dpvrsResponseStatus  :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeletePlatformVersionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dpvrsPlatformSummary' - Detailed information about the version of the custom platform.+--+-- * 'dpvrsResponseStatus' - -- | The response status code.+deletePlatformVersionResponse+    :: Int -- ^ 'dpvrsResponseStatus'+    -> DeletePlatformVersionResponse+deletePlatformVersionResponse pResponseStatus_ =+  DeletePlatformVersionResponse'+  {_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});++-- | -- | The response status code.+dpvrsResponseStatus :: Lens' DeletePlatformVersionResponse Int+dpvrsResponseStatus = lens _dpvrsResponseStatus (\ s a -> s{_dpvrsResponseStatus = a});++instance NFData DeletePlatformVersionResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.DescribeApplicationVersions--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,12 +41,12 @@     , davrsResponseStatus     ) 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+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  -- | Request to describe application versions. --@@ -54,42 +54,44 @@ -- -- /See:/ 'describeApplicationVersions' smart constructor. data DescribeApplicationVersions = DescribeApplicationVersions'-    { _dVersionLabels   :: !(Maybe [Text])-    , _dNextToken       :: !(Maybe Text)-    , _dMaxRecords      :: !(Maybe Nat)-    , _dApplicationName :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dVersionLabels   :: !(Maybe [Text])+  , _dNextToken       :: !(Maybe Text)+  , _dMaxRecords      :: !(Maybe Nat)+  , _dApplicationName :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeApplicationVersions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'dVersionLabels' - Specify a version label to show a specific application version. ----- * 'dNextToken' - Specify a next token to retrieve the next page in a paginated request.+-- * 'dNextToken' - 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. ----- * 'dMaxRecords' - Specify a maximum number of application versions to paginate in the request.+-- * 'dMaxRecords' - 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. -- -- * 'dApplicationName' - Specify an application name to show only application versions for that application. describeApplicationVersions     :: DescribeApplicationVersions describeApplicationVersions =-    DescribeApplicationVersions'-    { _dVersionLabels = Nothing-    , _dNextToken = Nothing-    , _dMaxRecords = Nothing-    , _dApplicationName = Nothing-    }+  DescribeApplicationVersions'+  { _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; --- | Specify a next token to retrieve the next page in a paginated request.+-- | 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}); --- | Specify a maximum number of application versions to paginate in the request.+-- | 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; @@ -111,9 +113,9 @@                      <*> (x .@? "NextToken")                      <*> (pure (fromEnum s))) -instance Hashable DescribeApplicationVersions+instance Hashable DescribeApplicationVersions where -instance NFData DescribeApplicationVersions+instance NFData DescribeApplicationVersions where  instance ToHeaders DescribeApplicationVersions where         toHeaders = const mempty@@ -139,35 +141,37 @@ -- -- /See:/ 'describeApplicationVersionsResponse' smart constructor. data DescribeApplicationVersionsResponse = DescribeApplicationVersionsResponse'-    { _davrsApplicationVersions :: !(Maybe [ApplicationVersionDescription])-    , _davrsNextToken           :: !(Maybe Text)-    , _davrsResponseStatus      :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _davrsApplicationVersions :: !(Maybe [ApplicationVersionDescription])+  , _davrsNextToken           :: !(Maybe Text)+  , _davrsResponseStatus      :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeApplicationVersionsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'davrsApplicationVersions' - List of @ApplicationVersionDescription@ objects sorted in order of creation. ----- * 'davrsNextToken' - For a paginated request, the token that you can pass in a subsequent request to get the next page.+-- * 'davrsNextToken' - In a paginated request, the token that you can pass in a subsequent request to get the next response page. -- -- * 'davrsResponseStatus' - -- | The response status code. describeApplicationVersionsResponse     :: Int -- ^ 'davrsResponseStatus'     -> DescribeApplicationVersionsResponse describeApplicationVersionsResponse pResponseStatus_ =-    DescribeApplicationVersionsResponse'-    { _davrsApplicationVersions = Nothing-    , _davrsNextToken = Nothing-    , _davrsResponseStatus = pResponseStatus_-    }+  DescribeApplicationVersionsResponse'+  { _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; --- | For a paginated request, the token that you can pass in a subsequent request to get the next page.+-- | 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}); @@ -176,3 +180,4 @@ davrsResponseStatus = lens _davrsResponseStatus (\ s a -> s{_davrsResponseStatus = a});  instance NFData DescribeApplicationVersionsResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.DescribeApplications--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@     , darsResponseStatus     ) 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+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  -- | Request to describe one or more applications. --@@ -50,9 +50,10 @@ -- -- /See:/ 'describeApplications' smart constructor. newtype DescribeApplications = DescribeApplications'-    { _daApplicationNames :: Maybe [Text]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _daApplicationNames :: Maybe [Text]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeApplications' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -60,11 +61,9 @@ -- * 'daApplicationNames' - If specified, AWS Elastic Beanstalk restricts the returned descriptions to only include those with the specified names. describeApplications     :: DescribeApplications-describeApplications =-    DescribeApplications'-    { _daApplicationNames = Nothing-    }+describeApplications = DescribeApplications' {_daApplicationNames = Nothing} + -- | 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;@@ -81,9 +80,9 @@                       may (parseXMLList "member"))                      <*> (pure (fromEnum s))) -instance Hashable DescribeApplications+instance Hashable DescribeApplications where -instance NFData DescribeApplications+instance NFData DescribeApplications where  instance ToHeaders DescribeApplications where         toHeaders = const mempty@@ -106,10 +105,11 @@ -- -- /See:/ 'describeApplicationsResponse' smart constructor. data DescribeApplicationsResponse = DescribeApplicationsResponse'-    { _darsApplications   :: !(Maybe [ApplicationDescription])-    , _darsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _darsApplications   :: !(Maybe [ApplicationDescription])+  , _darsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeApplicationsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -121,11 +121,10 @@     :: Int -- ^ 'darsResponseStatus'     -> DescribeApplicationsResponse describeApplicationsResponse pResponseStatus_ =-    DescribeApplicationsResponse'-    { _darsApplications = Nothing-    , _darsResponseStatus = pResponseStatus_-    }+  DescribeApplicationsResponse'+  {_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;@@ -134,4 +133,4 @@ darsResponseStatus :: Lens' DescribeApplicationsResponse Int darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a}); -instance NFData DescribeApplicationsResponse+instance NFData DescribeApplicationsResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.DescribeConfigurationOptions--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -28,6 +28,7 @@     , DescribeConfigurationOptions     -- * Request Lenses     , dcoTemplateName+    , dcoPlatformARN     , dcoEnvironmentName     , dcoApplicationName     , dcoSolutionStackName@@ -37,37 +38,42 @@     , describeConfigurationOptionsResponse     , DescribeConfigurationOptionsResponse     -- * Response Lenses+    , dcorsPlatformARN     , dcorsSolutionStackName     , dcorsOptions     , dcorsResponseStatus     ) 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+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 --- | Result message containig a list of application version descriptions.+-- | Result message containing a list of application version descriptions. -- -- -- -- /See:/ 'describeConfigurationOptions' smart constructor. data DescribeConfigurationOptions = DescribeConfigurationOptions'-    { _dcoTemplateName      :: !(Maybe Text)-    , _dcoEnvironmentName   :: !(Maybe Text)-    , _dcoApplicationName   :: !(Maybe Text)-    , _dcoSolutionStackName :: !(Maybe Text)-    , _dcoOptions           :: !(Maybe [OptionSpecification])-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dcoTemplateName      :: !(Maybe Text)+  , _dcoPlatformARN       :: !(Maybe Text)+  , _dcoEnvironmentName   :: !(Maybe Text)+  , _dcoApplicationName   :: !(Maybe Text)+  , _dcoSolutionStackName :: !(Maybe Text)+  , _dcoOptions           :: !(Maybe [OptionSpecification])+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeConfigurationOptions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'dcoTemplateName' - The name of the configuration template whose configuration options you want to describe. --+-- * 'dcoPlatformARN' - The ARN of the custom platform.+-- -- * 'dcoEnvironmentName' - The name of the environment whose configuration options you want to describe. -- -- * 'dcoApplicationName' - 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.@@ -78,18 +84,24 @@ describeConfigurationOptions     :: DescribeConfigurationOptions describeConfigurationOptions =-    DescribeConfigurationOptions'-    { _dcoTemplateName = Nothing-    , _dcoEnvironmentName = Nothing-    , _dcoApplicationName = Nothing-    , _dcoSolutionStackName = Nothing-    , _dcoOptions = Nothing-    }+  DescribeConfigurationOptions'+  { _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}); +-- | The ARN of the custom platform.+dcoPlatformARN :: Lens' DescribeConfigurationOptions (Maybe Text)+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});@@ -116,14 +128,15 @@               "DescribeConfigurationOptionsResult"               (\ s h x ->                  DescribeConfigurationOptionsResponse' <$>-                   (x .@? "SolutionStackName") <*>+                   (x .@? "PlatformArn") <*> (x .@? "SolutionStackName")+                     <*>                      (x .@? "Options" .!@ mempty >>=                         may (parseXMLList "member"))                      <*> (pure (fromEnum s))) -instance Hashable DescribeConfigurationOptions+instance Hashable DescribeConfigurationOptions where -instance NFData DescribeConfigurationOptions+instance NFData DescribeConfigurationOptions where  instance ToHeaders DescribeConfigurationOptions where         toHeaders = const mempty@@ -138,6 +151,7 @@                  ("DescribeConfigurationOptions" :: ByteString),                "Version" =: ("2010-12-01" :: ByteString),                "TemplateName" =: _dcoTemplateName,+               "PlatformArn" =: _dcoPlatformARN,                "EnvironmentName" =: _dcoEnvironmentName,                "ApplicationName" =: _dcoApplicationName,                "SolutionStackName" =: _dcoSolutionStackName,@@ -150,15 +164,19 @@ -- -- /See:/ 'describeConfigurationOptionsResponse' smart constructor. data DescribeConfigurationOptionsResponse = DescribeConfigurationOptionsResponse'-    { _dcorsSolutionStackName :: !(Maybe Text)-    , _dcorsOptions           :: !(Maybe [ConfigurationOptionDescription])-    , _dcorsResponseStatus    :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dcorsPlatformARN       :: !(Maybe Text)+  , _dcorsSolutionStackName :: !(Maybe Text)+  , _dcorsOptions           :: !(Maybe [ConfigurationOptionDescription])+  , _dcorsResponseStatus    :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeConfigurationOptionsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'dcorsPlatformARN' - The ARN of the platform.+-- -- * 'dcorsSolutionStackName' - The name of the solution stack these configuration options belong to. -- -- * 'dcorsOptions' - A list of 'ConfigurationOptionDescription' .@@ -168,12 +186,18 @@     :: Int -- ^ 'dcorsResponseStatus'     -> DescribeConfigurationOptionsResponse describeConfigurationOptionsResponse pResponseStatus_ =-    DescribeConfigurationOptionsResponse'-    { _dcorsSolutionStackName = Nothing-    , _dcorsOptions = Nothing-    , _dcorsResponseStatus = pResponseStatus_-    }+  DescribeConfigurationOptionsResponse'+  { _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});+ -- | The name of the solution stack these configuration options belong to. dcorsSolutionStackName :: Lens' DescribeConfigurationOptionsResponse (Maybe Text) dcorsSolutionStackName = lens _dcorsSolutionStackName (\ s a -> s{_dcorsSolutionStackName = a});@@ -187,3 +211,4 @@ dcorsResponseStatus = lens _dcorsResponseStatus (\ s a -> s{_dcorsResponseStatus = a});  instance NFData DescribeConfigurationOptionsResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.DescribeConfigurationSettings--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -47,12 +47,12 @@     , dcsrsResponseStatus     ) 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+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  -- | Result message containing all of the configuration settings for a specified solution stack or configuration template. --@@ -60,11 +60,12 @@ -- -- /See:/ 'describeConfigurationSettings' smart constructor. data DescribeConfigurationSettings = DescribeConfigurationSettings'-    { _dcsTemplateName    :: !(Maybe Text)-    , _dcsEnvironmentName :: !(Maybe Text)-    , _dcsApplicationName :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dcsTemplateName    :: !(Maybe Text)+  , _dcsEnvironmentName :: !(Maybe Text)+  , _dcsApplicationName :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeConfigurationSettings' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -78,12 +79,13 @@     :: Text -- ^ 'dcsApplicationName'     -> DescribeConfigurationSettings describeConfigurationSettings pApplicationName_ =-    DescribeConfigurationSettings'-    { _dcsTemplateName = Nothing-    , _dcsEnvironmentName = Nothing-    , _dcsApplicationName = pApplicationName_-    }+  DescribeConfigurationSettings'+  { _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});@@ -110,9 +112,9 @@                       may (parseXMLList "member"))                      <*> (pure (fromEnum s))) -instance Hashable DescribeConfigurationSettings+instance Hashable DescribeConfigurationSettings where -instance NFData DescribeConfigurationSettings+instance NFData DescribeConfigurationSettings where  instance ToHeaders DescribeConfigurationSettings          where@@ -137,10 +139,11 @@ -- -- /See:/ 'describeConfigurationSettingsResponse' smart constructor. data DescribeConfigurationSettingsResponse = DescribeConfigurationSettingsResponse'-    { _dcsrsConfigurationSettings :: !(Maybe [ConfigurationSettingsDescription])-    , _dcsrsResponseStatus        :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dcsrsConfigurationSettings :: !(Maybe [ConfigurationSettingsDescription])+  , _dcsrsResponseStatus        :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeConfigurationSettingsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -152,11 +155,12 @@     :: Int -- ^ 'dcsrsResponseStatus'     -> DescribeConfigurationSettingsResponse describeConfigurationSettingsResponse pResponseStatus_ =-    DescribeConfigurationSettingsResponse'-    { _dcsrsConfigurationSettings = Nothing-    , _dcsrsResponseStatus = pResponseStatus_-    }+  DescribeConfigurationSettingsResponse'+  { _dcsrsConfigurationSettings = Nothing+  , _dcsrsResponseStatus = pResponseStatus_+  } + -- | A list of 'ConfigurationSettingsDescription' . dcsrsConfigurationSettings :: Lens' DescribeConfigurationSettingsResponse [ConfigurationSettingsDescription] dcsrsConfigurationSettings = lens _dcsrsConfigurationSettings (\ s a -> s{_dcsrsConfigurationSettings = a}) . _Default . _Coerce;@@ -166,3 +170,4 @@ dcsrsResponseStatus = lens _dcsrsResponseStatus (\ s a -> s{_dcsrsResponseStatus = a});  instance NFData DescribeConfigurationSettingsResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.DescribeEnvironmentHealth--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -46,12 +46,12 @@     , dehrsResponseStatus     ) 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+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 the example below to learn how to create a request body. --@@ -59,11 +59,12 @@ -- -- /See:/ 'describeEnvironmentHealth' smart constructor. data DescribeEnvironmentHealth = DescribeEnvironmentHealth'-    { _dehEnvironmentName :: !(Maybe Text)-    , _dehAttributeNames  :: !(Maybe [EnvironmentHealthAttribute])-    , _dehEnvironmentId   :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dehEnvironmentName :: !(Maybe Text)+  , _dehAttributeNames  :: !(Maybe [EnvironmentHealthAttribute])+  , _dehEnvironmentId   :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeEnvironmentHealth' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -76,12 +77,13 @@ describeEnvironmentHealth     :: DescribeEnvironmentHealth describeEnvironmentHealth =-    DescribeEnvironmentHealth'-    { _dehEnvironmentName = Nothing-    , _dehAttributeNames = Nothing-    , _dehEnvironmentId = Nothing-    }+  DescribeEnvironmentHealth'+  { _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});@@ -113,9 +115,9 @@                      <*> (x .@? "RefreshedAt")                      <*> (pure (fromEnum s))) -instance Hashable DescribeEnvironmentHealth+instance Hashable DescribeEnvironmentHealth where -instance NFData DescribeEnvironmentHealth+instance NFData DescribeEnvironmentHealth where  instance ToHeaders DescribeEnvironmentHealth where         toHeaders = const mempty@@ -141,17 +143,18 @@ -- -- /See:/ 'describeEnvironmentHealthResponse' smart constructor. data DescribeEnvironmentHealthResponse = DescribeEnvironmentHealthResponse'-    { _dehrsStatus             :: !(Maybe EnvironmentHealth)-    , _dehrsCauses             :: !(Maybe [Text])-    , _dehrsApplicationMetrics :: !(Maybe ApplicationMetrics)-    , _dehrsColor              :: !(Maybe Text)-    , _dehrsEnvironmentName    :: !(Maybe Text)-    , _dehrsHealthStatus       :: !(Maybe Text)-    , _dehrsInstancesHealth    :: !(Maybe InstanceHealthSummary)-    , _dehrsRefreshedAt        :: !(Maybe ISO8601)-    , _dehrsResponseStatus     :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dehrsStatus             :: !(Maybe EnvironmentHealth)+  , _dehrsCauses             :: !(Maybe [Text])+  , _dehrsApplicationMetrics :: !(Maybe ApplicationMetrics)+  , _dehrsColor              :: !(Maybe Text)+  , _dehrsEnvironmentName    :: !(Maybe Text)+  , _dehrsHealthStatus       :: !(Maybe Text)+  , _dehrsInstancesHealth    :: !(Maybe InstanceHealthSummary)+  , _dehrsRefreshedAt        :: !(Maybe ISO8601)+  , _dehrsResponseStatus     :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeEnvironmentHealthResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -177,18 +180,19 @@     :: Int -- ^ 'dehrsResponseStatus'     -> DescribeEnvironmentHealthResponse describeEnvironmentHealthResponse pResponseStatus_ =-    DescribeEnvironmentHealthResponse'-    { _dehrsStatus = Nothing-    , _dehrsCauses = Nothing-    , _dehrsApplicationMetrics = Nothing-    , _dehrsColor = Nothing-    , _dehrsEnvironmentName = Nothing-    , _dehrsHealthStatus = Nothing-    , _dehrsInstancesHealth = Nothing-    , _dehrsRefreshedAt = Nothing-    , _dehrsResponseStatus = pResponseStatus_-    }+  DescribeEnvironmentHealthResponse'+  { _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});@@ -226,3 +230,4 @@ dehrsResponseStatus = lens _dehrsResponseStatus (\ s a -> s{_dehrsResponseStatus = a});  instance NFData DescribeEnvironmentHealthResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.DescribeEnvironmentManagedActionHistory--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,12 +41,12 @@     , demahrsResponseStatus     ) 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+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  -- | Request to list completed and failed managed actions. --@@ -54,12 +54,13 @@ -- -- /See:/ 'describeEnvironmentManagedActionHistory' smart constructor. data DescribeEnvironmentManagedActionHistory = DescribeEnvironmentManagedActionHistory'-    { _demahNextToken       :: !(Maybe Text)-    , _demahEnvironmentName :: !(Maybe Text)-    , _demahMaxItems        :: !(Maybe Int)-    , _demahEnvironmentId   :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _demahNextToken       :: !(Maybe Text)+  , _demahEnvironmentName :: !(Maybe Text)+  , _demahMaxItems        :: !(Maybe Int)+  , _demahEnvironmentId   :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeEnvironmentManagedActionHistory' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -74,13 +75,14 @@ describeEnvironmentManagedActionHistory     :: DescribeEnvironmentManagedActionHistory describeEnvironmentManagedActionHistory =-    DescribeEnvironmentManagedActionHistory'-    { _demahNextToken = Nothing-    , _demahEnvironmentName = Nothing-    , _demahMaxItems = Nothing-    , _demahEnvironmentId = Nothing-    }+  DescribeEnvironmentManagedActionHistory'+  { _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});@@ -98,7 +100,8 @@ demahEnvironmentId = lens _demahEnvironmentId (\ s a -> s{_demahEnvironmentId = a});  instance AWSRequest-         DescribeEnvironmentManagedActionHistory where+           DescribeEnvironmentManagedActionHistory+         where         type Rs DescribeEnvironmentManagedActionHistory =              DescribeEnvironmentManagedActionHistoryResponse         request = postQuery elasticBeanstalk@@ -113,21 +116,26 @@                      <*> (pure (fromEnum s)))  instance Hashable-         DescribeEnvironmentManagedActionHistory+           DescribeEnvironmentManagedActionHistory+         where  instance NFData-         DescribeEnvironmentManagedActionHistory+           DescribeEnvironmentManagedActionHistory+         where  instance ToHeaders-         DescribeEnvironmentManagedActionHistory where+           DescribeEnvironmentManagedActionHistory+         where         toHeaders = const mempty  instance ToPath-         DescribeEnvironmentManagedActionHistory where+           DescribeEnvironmentManagedActionHistory+         where         toPath = const "/"  instance ToQuery-         DescribeEnvironmentManagedActionHistory where+           DescribeEnvironmentManagedActionHistory+         where         toQuery DescribeEnvironmentManagedActionHistory'{..}           = mconcat               ["Action" =:@@ -145,11 +153,12 @@ -- -- /See:/ 'describeEnvironmentManagedActionHistoryResponse' smart constructor. data DescribeEnvironmentManagedActionHistoryResponse = DescribeEnvironmentManagedActionHistoryResponse'-    { _demahrsManagedActionHistoryItems :: !(Maybe (List1 ManagedActionHistoryItem))-    , _demahrsNextToken                 :: !(Maybe Text)-    , _demahrsResponseStatus            :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _demahrsManagedActionHistoryItems :: !(Maybe (List1 ManagedActionHistoryItem))+  , _demahrsNextToken :: !(Maybe Text)+  , _demahrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeEnvironmentManagedActionHistoryResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -163,12 +172,13 @@     :: Int -- ^ 'demahrsResponseStatus'     -> DescribeEnvironmentManagedActionHistoryResponse describeEnvironmentManagedActionHistoryResponse pResponseStatus_ =-    DescribeEnvironmentManagedActionHistoryResponse'-    { _demahrsManagedActionHistoryItems = Nothing-    , _demahrsNextToken = Nothing-    , _demahrsResponseStatus = pResponseStatus_-    }+  DescribeEnvironmentManagedActionHistoryResponse'+  { _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;@@ -182,4 +192,5 @@ demahrsResponseStatus = lens _demahrsResponseStatus (\ s a -> s{_demahrsResponseStatus = a});  instance NFData-         DescribeEnvironmentManagedActionHistoryResponse+           DescribeEnvironmentManagedActionHistoryResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.DescribeEnvironmentManagedActions--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,12 +39,12 @@     , demarsResponseStatus     ) 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+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  -- | Request to list an environment's upcoming and in-progress managed actions. --@@ -52,11 +52,12 @@ -- -- /See:/ 'describeEnvironmentManagedActions' smart constructor. data DescribeEnvironmentManagedActions = DescribeEnvironmentManagedActions'-    { _demaStatus          :: !(Maybe ActionStatus)-    , _demaEnvironmentName :: !(Maybe Text)-    , _demaEnvironmentId   :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _demaStatus          :: !(Maybe ActionStatus)+  , _demaEnvironmentName :: !(Maybe Text)+  , _demaEnvironmentId   :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeEnvironmentManagedActions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -69,12 +70,13 @@ describeEnvironmentManagedActions     :: DescribeEnvironmentManagedActions describeEnvironmentManagedActions =-    DescribeEnvironmentManagedActions'-    { _demaStatus = Nothing-    , _demaEnvironmentName = Nothing-    , _demaEnvironmentId = Nothing-    }+  DescribeEnvironmentManagedActions'+  { _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});@@ -102,8 +104,10 @@                      <*> (pure (fromEnum s)))  instance Hashable DescribeEnvironmentManagedActions+         where  instance NFData DescribeEnvironmentManagedActions+         where  instance ToHeaders DescribeEnvironmentManagedActions          where@@ -130,10 +134,11 @@ -- -- /See:/ 'describeEnvironmentManagedActionsResponse' smart constructor. data DescribeEnvironmentManagedActionsResponse = DescribeEnvironmentManagedActionsResponse'-    { _demarsManagedActions :: !(Maybe (List1 ManagedAction))-    , _demarsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _demarsManagedActions :: !(Maybe (List1 ManagedAction))+  , _demarsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeEnvironmentManagedActionsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -145,11 +150,10 @@     :: Int -- ^ 'demarsResponseStatus'     -> DescribeEnvironmentManagedActionsResponse describeEnvironmentManagedActionsResponse pResponseStatus_ =-    DescribeEnvironmentManagedActionsResponse'-    { _demarsManagedActions = Nothing-    , _demarsResponseStatus = pResponseStatus_-    }+  DescribeEnvironmentManagedActionsResponse'+  {_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;@@ -159,4 +163,5 @@ demarsResponseStatus = lens _demarsResponseStatus (\ s a -> s{_demarsResponseStatus = a});  instance NFData-         DescribeEnvironmentManagedActionsResponse+           DescribeEnvironmentManagedActionsResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.DescribeEnvironmentResources--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -38,12 +38,12 @@     , derrsResponseStatus     ) 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+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  -- | Request to describe the resources in an environment. --@@ -51,10 +51,11 @@ -- -- /See:/ 'describeEnvironmentResources' smart constructor. data DescribeEnvironmentResources = DescribeEnvironmentResources'-    { _derEnvironmentName :: !(Maybe Text)-    , _derEnvironmentId   :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _derEnvironmentName :: !(Maybe Text)+  , _derEnvironmentId   :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeEnvironmentResources' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,11 +66,10 @@ describeEnvironmentResources     :: DescribeEnvironmentResources describeEnvironmentResources =-    DescribeEnvironmentResources'-    { _derEnvironmentName = Nothing-    , _derEnvironmentId = Nothing-    }+  DescribeEnvironmentResources'+  {_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});@@ -91,9 +91,9 @@                    (x .@? "EnvironmentResources") <*>                      (pure (fromEnum s))) -instance Hashable DescribeEnvironmentResources+instance Hashable DescribeEnvironmentResources where -instance NFData DescribeEnvironmentResources+instance NFData DescribeEnvironmentResources where  instance ToHeaders DescribeEnvironmentResources where         toHeaders = const mempty@@ -116,10 +116,11 @@ -- -- /See:/ 'describeEnvironmentResourcesResponse' smart constructor. data DescribeEnvironmentResourcesResponse = DescribeEnvironmentResourcesResponse'-    { _derrsEnvironmentResources :: !(Maybe EnvironmentResourceDescription)-    , _derrsResponseStatus       :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _derrsEnvironmentResources :: !(Maybe EnvironmentResourceDescription)+  , _derrsResponseStatus       :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeEnvironmentResourcesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -131,11 +132,12 @@     :: Int -- ^ 'derrsResponseStatus'     -> DescribeEnvironmentResourcesResponse describeEnvironmentResourcesResponse pResponseStatus_ =-    DescribeEnvironmentResourcesResponse'-    { _derrsEnvironmentResources = Nothing-    , _derrsResponseStatus = pResponseStatus_-    }+  DescribeEnvironmentResourcesResponse'+  { _derrsEnvironmentResources = Nothing+  , _derrsResponseStatus = pResponseStatus_+  } + -- | A list of 'EnvironmentResourceDescription' . derrsEnvironmentResources :: Lens' DescribeEnvironmentResourcesResponse (Maybe EnvironmentResourceDescription) derrsEnvironmentResources = lens _derrsEnvironmentResources (\ s a -> s{_derrsEnvironmentResources = a});@@ -145,3 +147,4 @@ derrsResponseStatus = lens _derrsResponseStatus (\ s a -> s{_derrsResponseStatus = a});  instance NFData DescribeEnvironmentResourcesResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.DescribeEnvironments--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -29,7 +29,9 @@     -- * Request Lenses     , desEnvironmentIds     , desEnvironmentNames+    , desNextToken     , desVersionLabel+    , desMaxRecords     , desApplicationName     , desIncludedDeletedBackTo     , desIncludeDeleted@@ -38,15 +40,16 @@     , environmentDescriptionsMessage     , EnvironmentDescriptionsMessage     -- * Response Lenses+    , edmNextToken     , edmEnvironments     ) 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+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  -- | Request to describe one or more environments. --@@ -54,14 +57,17 @@ -- -- /See:/ 'describeEnvironments' smart constructor. data DescribeEnvironments = DescribeEnvironments'-    { _desEnvironmentIds        :: !(Maybe [Text])-    , _desEnvironmentNames      :: !(Maybe [Text])-    , _desVersionLabel          :: !(Maybe Text)-    , _desApplicationName       :: !(Maybe Text)-    , _desIncludedDeletedBackTo :: !(Maybe ISO8601)-    , _desIncludeDeleted        :: !(Maybe Bool)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _desEnvironmentIds        :: !(Maybe [Text])+  , _desEnvironmentNames      :: !(Maybe [Text])+  , _desNextToken             :: !(Maybe Text)+  , _desVersionLabel          :: !(Maybe Text)+  , _desMaxRecords            :: !(Maybe Nat)+  , _desApplicationName       :: !(Maybe Text)+  , _desIncludedDeletedBackTo :: !(Maybe ISO8601)+  , _desIncludeDeleted        :: !(Maybe Bool)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeEnvironments' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -70,8 +76,12 @@ -- -- * 'desEnvironmentNames' - If specified, AWS Elastic Beanstalk restricts the returned descriptions to include only those that have the specified names. --+-- * 'desNextToken' - 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.+-- -- * 'desVersionLabel' - If specified, AWS Elastic Beanstalk restricts the returned descriptions to include only those that are associated with this application version. --+-- * 'desMaxRecords' - 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.+-- -- * 'desApplicationName' - If specified, AWS Elastic Beanstalk restricts the returned descriptions to include only those that are associated with this application. -- -- * 'desIncludedDeletedBackTo' - If specified when @IncludeDeleted@ is set to @true@ , then environments deleted after this date are displayed.@@ -80,15 +90,18 @@ describeEnvironments     :: DescribeEnvironments describeEnvironments =-    DescribeEnvironments'-    { _desEnvironmentIds = Nothing-    , _desEnvironmentNames = Nothing-    , _desVersionLabel = Nothing-    , _desApplicationName = Nothing-    , _desIncludedDeletedBackTo = Nothing-    , _desIncludeDeleted = Nothing-    }+  DescribeEnvironments'+  { _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;@@ -97,10 +110,18 @@ desEnvironmentNames :: Lens' DescribeEnvironments [Text] 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});+ -- | 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}); +-- | 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;+ -- | 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});@@ -121,9 +142,9 @@           = receiveXMLWrapper "DescribeEnvironmentsResult"               (\ s h x -> parseXML x) -instance Hashable DescribeEnvironments+instance Hashable DescribeEnvironments where -instance NFData DescribeEnvironments+instance NFData DescribeEnvironments where  instance ToHeaders DescribeEnvironments where         toHeaders = const mempty@@ -142,7 +163,9 @@                "EnvironmentNames" =:                  toQuery                    (toQueryList "member" <$> _desEnvironmentNames),+               "NextToken" =: _desNextToken,                "VersionLabel" =: _desVersionLabel,+               "MaxRecords" =: _desMaxRecords,                "ApplicationName" =: _desApplicationName,                "IncludedDeletedBackTo" =: _desIncludedDeletedBackTo,                "IncludeDeleted" =: _desIncludeDeleted]

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.DescribeEvents--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,6 +35,7 @@     , deSeverity     , deNextToken     , deVersionLabel+    , dePlatformARN     , deEnvironmentName     , deMaxRecords     , deEndTime@@ -50,13 +51,13 @@     , dersResponseStatus     ) where -import           Network.AWS.ElasticBeanstalk.Types-import           Network.AWS.ElasticBeanstalk.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.ElasticBeanstalk.Types+import Network.AWS.ElasticBeanstalk.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Request to retrieve a list of events for an environment. --@@ -64,19 +65,21 @@ -- -- /See:/ 'describeEvents' smart constructor. data DescribeEvents = DescribeEvents'-    { _deRequestId       :: !(Maybe Text)-    , _deTemplateName    :: !(Maybe Text)-    , _deStartTime       :: !(Maybe ISO8601)-    , _deSeverity        :: !(Maybe EventSeverity)-    , _deNextToken       :: !(Maybe Text)-    , _deVersionLabel    :: !(Maybe Text)-    , _deEnvironmentName :: !(Maybe Text)-    , _deMaxRecords      :: !(Maybe Nat)-    , _deEndTime         :: !(Maybe ISO8601)-    , _deApplicationName :: !(Maybe Text)-    , _deEnvironmentId   :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _deRequestId       :: !(Maybe Text)+  , _deTemplateName    :: !(Maybe Text)+  , _deStartTime       :: !(Maybe ISO8601)+  , _deSeverity        :: !(Maybe EventSeverity)+  , _deNextToken       :: !(Maybe Text)+  , _deVersionLabel    :: !(Maybe Text)+  , _dePlatformARN     :: !(Maybe Text)+  , _deEnvironmentName :: !(Maybe Text)+  , _deMaxRecords      :: !(Maybe Nat)+  , _deEndTime         :: !(Maybe ISO8601)+  , _deApplicationName :: !(Maybe Text)+  , _deEnvironmentId   :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeEvents' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -93,6 +96,8 @@ -- -- * 'deVersionLabel' - If specified, AWS Elastic Beanstalk restricts the returned descriptions to those associated with this application version. --+-- * 'dePlatformARN' - The ARN of the version of the custom platform.+-- -- * 'deEnvironmentName' - If specified, AWS Elastic Beanstalk restricts the returned descriptions to those associated with this environment. -- -- * 'deMaxRecords' - Specifies the maximum number of events that can be returned, beginning with the most recent event.@@ -105,20 +110,22 @@ describeEvents     :: DescribeEvents describeEvents =-    DescribeEvents'-    { _deRequestId = Nothing-    , _deTemplateName = Nothing-    , _deStartTime = Nothing-    , _deSeverity = Nothing-    , _deNextToken = Nothing-    , _deVersionLabel = Nothing-    , _deEnvironmentName = Nothing-    , _deMaxRecords = Nothing-    , _deEndTime = Nothing-    , _deApplicationName = Nothing-    , _deEnvironmentId = Nothing-    }+  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+  } + -- | 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});@@ -143,6 +150,10 @@ deVersionLabel :: Lens' DescribeEvents (Maybe Text) 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});+ -- | 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});@@ -182,9 +193,9 @@                         may (parseXMLList "member"))                      <*> (pure (fromEnum s))) -instance Hashable DescribeEvents+instance Hashable DescribeEvents where -instance NFData DescribeEvents+instance NFData DescribeEvents where  instance ToHeaders DescribeEvents where         toHeaders = const mempty@@ -203,6 +214,7 @@                "Severity" =: _deSeverity,                "NextToken" =: _deNextToken,                "VersionLabel" =: _deVersionLabel,+               "PlatformArn" =: _dePlatformARN,                "EnvironmentName" =: _deEnvironmentName,                "MaxRecords" =: _deMaxRecords,                "EndTime" =: _deEndTime,@@ -215,11 +227,12 @@ -- -- /See:/ 'describeEventsResponse' smart constructor. data DescribeEventsResponse = DescribeEventsResponse'-    { _dersNextToken      :: !(Maybe Text)-    , _dersEvents         :: !(Maybe [EventDescription])-    , _dersResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dersNextToken      :: !(Maybe Text)+  , _dersEvents         :: !(Maybe [EventDescription])+  , _dersResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeEventsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -233,12 +246,13 @@     :: Int -- ^ 'dersResponseStatus'     -> DescribeEventsResponse describeEventsResponse pResponseStatus_ =-    DescribeEventsResponse'-    { _dersNextToken = Nothing-    , _dersEvents = Nothing-    , _dersResponseStatus = pResponseStatus_-    }+  DescribeEventsResponse'+  { _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});@@ -251,4 +265,4 @@ dersResponseStatus :: Lens' DescribeEventsResponse Int dersResponseStatus = lens _dersResponseStatus (\ s a -> s{_dersResponseStatus = a}); -instance NFData DescribeEventsResponse+instance NFData DescribeEventsResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.DescribeInstancesHealth--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -42,12 +42,12 @@     , dihrsResponseStatus     ) 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+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  -- | Parameters for a call to @DescribeInstancesHealth@ . --@@ -55,12 +55,13 @@ -- -- /See:/ 'describeInstancesHealth' smart constructor. data DescribeInstancesHealth = DescribeInstancesHealth'-    { _dihNextToken       :: !(Maybe Text)-    , _dihEnvironmentName :: !(Maybe Text)-    , _dihAttributeNames  :: !(Maybe [InstancesHealthAttribute])-    , _dihEnvironmentId   :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dihNextToken       :: !(Maybe Text)+  , _dihEnvironmentName :: !(Maybe Text)+  , _dihAttributeNames  :: !(Maybe [InstancesHealthAttribute])+  , _dihEnvironmentId   :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeInstancesHealth' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -75,13 +76,14 @@ describeInstancesHealth     :: DescribeInstancesHealth describeInstancesHealth =-    DescribeInstancesHealth'-    { _dihNextToken = Nothing-    , _dihEnvironmentName = Nothing-    , _dihAttributeNames = Nothing-    , _dihEnvironmentId = Nothing-    }+  DescribeInstancesHealth'+  { _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});@@ -112,9 +114,9 @@                      <*> (x .@? "RefreshedAt")                      <*> (pure (fromEnum s))) -instance Hashable DescribeInstancesHealth+instance Hashable DescribeInstancesHealth where -instance NFData DescribeInstancesHealth+instance NFData DescribeInstancesHealth where  instance ToHeaders DescribeInstancesHealth where         toHeaders = const mempty@@ -141,12 +143,13 @@ -- -- /See:/ 'describeInstancesHealthResponse' smart constructor. data DescribeInstancesHealthResponse = DescribeInstancesHealthResponse'-    { _dihrsInstanceHealthList :: !(Maybe [SingleInstanceHealth])-    , _dihrsNextToken          :: !(Maybe Text)-    , _dihrsRefreshedAt        :: !(Maybe ISO8601)-    , _dihrsResponseStatus     :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dihrsInstanceHealthList :: !(Maybe [SingleInstanceHealth])+  , _dihrsNextToken          :: !(Maybe Text)+  , _dihrsRefreshedAt        :: !(Maybe ISO8601)+  , _dihrsResponseStatus     :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeInstancesHealthResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -162,13 +165,14 @@     :: Int -- ^ 'dihrsResponseStatus'     -> DescribeInstancesHealthResponse describeInstancesHealthResponse pResponseStatus_ =-    DescribeInstancesHealthResponse'-    { _dihrsInstanceHealthList = Nothing-    , _dihrsNextToken = Nothing-    , _dihrsRefreshedAt = Nothing-    , _dihrsResponseStatus = pResponseStatus_-    }+  DescribeInstancesHealthResponse'+  { _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;@@ -185,4 +189,4 @@ dihrsResponseStatus :: Lens' DescribeInstancesHealthResponse Int dihrsResponseStatus = lens _dihrsResponseStatus (\ s a -> s{_dihrsResponseStatus = a}); -instance NFData DescribeInstancesHealthResponse+instance NFData DescribeInstancesHealthResponse where

@@ -0,0 +1,126 @@+{-# 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.DescribePlatformVersion+-- 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)+--+-- Describes the version of the platform.+--+--+module Network.AWS.ElasticBeanstalk.DescribePlatformVersion+    (+    -- * Creating a Request+      describePlatformVersion+    , DescribePlatformVersion+    -- * Request Lenses+    , dPlatformARN++    -- * Destructuring the Response+    , describePlatformVersionResponse+    , DescribePlatformVersionResponse+    -- * Response Lenses+    , drsPlatformDescription+    , drsResponseStatus+    ) 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:/ 'describePlatformVersion' smart constructor.+newtype DescribePlatformVersion = DescribePlatformVersion'+  { _dPlatformARN :: Maybe Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribePlatformVersion' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dPlatformARN' - The ARN of the version of the platform.+describePlatformVersion+    :: DescribePlatformVersion+describePlatformVersion = DescribePlatformVersion' {_dPlatformARN = Nothing}+++-- | The ARN of the version of the platform.+dPlatformARN :: Lens' DescribePlatformVersion (Maybe Text)+dPlatformARN = lens _dPlatformARN (\ s a -> s{_dPlatformARN = a});++instance AWSRequest DescribePlatformVersion where+        type Rs DescribePlatformVersion =+             DescribePlatformVersionResponse+        request = postQuery elasticBeanstalk+        response+          = receiveXMLWrapper "DescribePlatformVersionResult"+              (\ s h x ->+                 DescribePlatformVersionResponse' <$>+                   (x .@? "PlatformDescription") <*>+                     (pure (fromEnum s)))++instance Hashable DescribePlatformVersion where++instance NFData DescribePlatformVersion where++instance ToHeaders DescribePlatformVersion where+        toHeaders = const mempty++instance ToPath DescribePlatformVersion where+        toPath = const "/"++instance ToQuery DescribePlatformVersion where+        toQuery DescribePlatformVersion'{..}+          = mconcat+              ["Action" =:+                 ("DescribePlatformVersion" :: ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "PlatformArn" =: _dPlatformARN]++-- | /See:/ 'describePlatformVersionResponse' smart constructor.+data DescribePlatformVersionResponse = DescribePlatformVersionResponse'+  { _drsPlatformDescription :: !(Maybe PlatformDescription)+  , _drsResponseStatus      :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribePlatformVersionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drsPlatformDescription' - Detailed information about the version of the platform.+--+-- * 'drsResponseStatus' - -- | The response status code.+describePlatformVersionResponse+    :: Int -- ^ 'drsResponseStatus'+    -> DescribePlatformVersionResponse+describePlatformVersionResponse pResponseStatus_ =+  DescribePlatformVersionResponse'+  {_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});++-- | -- | The response status code.+drsResponseStatus :: Lens' DescribePlatformVersionResponse Int+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});++instance NFData DescribePlatformVersionResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.ListAvailableSolutionStacks--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns a list of the available solution stack names.+-- Returns a list of the available solution stack names, with the public version first and then in reverse chronological order. -- -- module Network.AWS.ElasticBeanstalk.ListAvailableSolutionStacks@@ -36,24 +36,26 @@     , lassrsResponseStatus     ) 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+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:/ 'listAvailableSolutionStacks' smart constructor. data ListAvailableSolutionStacks =-    ListAvailableSolutionStacks'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  ListAvailableSolutionStacks'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListAvailableSolutionStacks' with the minimum fields required to make a request. -- listAvailableSolutionStacks     :: ListAvailableSolutionStacks listAvailableSolutionStacks = ListAvailableSolutionStacks' + instance AWSRequest ListAvailableSolutionStacks where         type Rs ListAvailableSolutionStacks =              ListAvailableSolutionStacksResponse@@ -70,9 +72,9 @@                         may (parseXMLList "member"))                      <*> (pure (fromEnum s))) -instance Hashable ListAvailableSolutionStacks+instance Hashable ListAvailableSolutionStacks where -instance NFData ListAvailableSolutionStacks+instance NFData ListAvailableSolutionStacks where  instance ToHeaders ListAvailableSolutionStacks where         toHeaders = const mempty@@ -94,11 +96,12 @@ -- -- /See:/ 'listAvailableSolutionStacksResponse' smart constructor. data ListAvailableSolutionStacksResponse = ListAvailableSolutionStacksResponse'-    { _lassrsSolutionStacks       :: !(Maybe [Text])-    , _lassrsSolutionStackDetails :: !(Maybe [SolutionStackDescription])-    , _lassrsResponseStatus       :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lassrsSolutionStacks       :: !(Maybe [Text])+  , _lassrsSolutionStackDetails :: !(Maybe [SolutionStackDescription])+  , _lassrsResponseStatus       :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListAvailableSolutionStacksResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -112,12 +115,13 @@     :: Int -- ^ 'lassrsResponseStatus'     -> ListAvailableSolutionStacksResponse listAvailableSolutionStacksResponse pResponseStatus_ =-    ListAvailableSolutionStacksResponse'-    { _lassrsSolutionStacks = Nothing-    , _lassrsSolutionStackDetails = Nothing-    , _lassrsResponseStatus = pResponseStatus_-    }+  ListAvailableSolutionStacksResponse'+  { _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;@@ -131,3 +135,4 @@ lassrsResponseStatus = lens _lassrsResponseStatus (\ s a -> s{_lassrsResponseStatus = a});  instance NFData ListAvailableSolutionStacksResponse+         where

@@ -0,0 +1,159 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.ElasticBeanstalk.ListPlatformVersions+-- 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)+--+-- Lists the available platforms.+--+--+module Network.AWS.ElasticBeanstalk.ListPlatformVersions+    (+    -- * Creating a Request+      listPlatformVersions+    , ListPlatformVersions+    -- * Request Lenses+    , lpvFilters+    , lpvNextToken+    , lpvMaxRecords++    -- * Destructuring the Response+    , listPlatformVersionsResponse+    , ListPlatformVersionsResponse+    -- * Response Lenses+    , lpvrsNextToken+    , lpvrsPlatformSummaryList+    , lpvrsResponseStatus+    ) 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:/ 'listPlatformVersions' smart constructor.+data ListPlatformVersions = ListPlatformVersions'+  { _lpvFilters    :: !(Maybe [PlatformFilter])+  , _lpvNextToken  :: !(Maybe Text)+  , _lpvMaxRecords :: !(Maybe Nat)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListPlatformVersions' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lpvFilters' - List only the platforms where the platform member value relates to one of the supplied values.+--+-- * 'lpvNextToken' - The starting index into the remaining list of platforms. Use the @NextToken@ value from a previous @ListPlatformVersion@ call.+--+-- * 'lpvMaxRecords' - The maximum number of platform values returned in one call.+listPlatformVersions+    :: ListPlatformVersions+listPlatformVersions =+  ListPlatformVersions'+  {_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;++-- | 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});++-- | 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;++instance AWSRequest ListPlatformVersions where+        type Rs ListPlatformVersions =+             ListPlatformVersionsResponse+        request = postQuery elasticBeanstalk+        response+          = receiveXMLWrapper "ListPlatformVersionsResult"+              (\ s h x ->+                 ListPlatformVersionsResponse' <$>+                   (x .@? "NextToken") <*>+                     (x .@? "PlatformSummaryList" .!@ mempty >>=+                        may (parseXMLList "member"))+                     <*> (pure (fromEnum s)))++instance Hashable ListPlatformVersions where++instance NFData ListPlatformVersions where++instance ToHeaders ListPlatformVersions where+        toHeaders = const mempty++instance ToPath ListPlatformVersions where+        toPath = const "/"++instance ToQuery ListPlatformVersions where+        toQuery ListPlatformVersions'{..}+          = mconcat+              ["Action" =: ("ListPlatformVersions" :: ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "Filters" =:+                 toQuery (toQueryList "member" <$> _lpvFilters),+               "NextToken" =: _lpvNextToken,+               "MaxRecords" =: _lpvMaxRecords]++-- | /See:/ 'listPlatformVersionsResponse' smart constructor.+data ListPlatformVersionsResponse = ListPlatformVersionsResponse'+  { _lpvrsNextToken           :: !(Maybe Text)+  , _lpvrsPlatformSummaryList :: !(Maybe [PlatformSummary])+  , _lpvrsResponseStatus      :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListPlatformVersionsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lpvrsNextToken' - The starting index into the remaining list of platforms. if this value is not @null@ , you can use it in a subsequent @ListPlatformVersion@ call.+--+-- * 'lpvrsPlatformSummaryList' - Detailed information about the platforms.+--+-- * 'lpvrsResponseStatus' - -- | The response status code.+listPlatformVersionsResponse+    :: Int -- ^ 'lpvrsResponseStatus'+    -> ListPlatformVersionsResponse+listPlatformVersionsResponse pResponseStatus_ =+  ListPlatformVersionsResponse'+  { _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});++-- | Detailed information about the platforms.+lpvrsPlatformSummaryList :: Lens' ListPlatformVersionsResponse [PlatformSummary]+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});++instance NFData ListPlatformVersionsResponse where

@@ -0,0 +1,142 @@+{-# 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.ListTagsForResource+-- 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)+--+-- 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.+--+module Network.AWS.ElasticBeanstalk.ListTagsForResource+    (+    -- * Creating a Request+      listTagsForResource+    , ListTagsForResource+    -- * Request Lenses+    , ltfrResourceARN++    -- * Destructuring the Response+    , listTagsForResourceResponse+    , ListTagsForResourceResponse+    -- * Response Lenses+    , ltfrrsResourceTags+    , ltfrrsResourceARN+    , ltfrrsResponseStatus+    ) 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:/ 'listTagsForResource' smart constructor.+newtype ListTagsForResource = ListTagsForResource'+  { _ltfrResourceARN :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListTagsForResource' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ltfrResourceARN' - The Amazon Resource Name (ARN) of the resouce for which a tag list is requested. Must be the ARN of an Elastic Beanstalk environment.+listTagsForResource+    :: Text -- ^ 'ltfrResourceARN'+    -> ListTagsForResource+listTagsForResource pResourceARN_ =+  ListTagsForResource' {_ltfrResourceARN = pResourceARN_}+++-- | 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});++instance AWSRequest ListTagsForResource where+        type Rs ListTagsForResource =+             ListTagsForResourceResponse+        request = postQuery elasticBeanstalk+        response+          = receiveXMLWrapper "ListTagsForResourceResult"+              (\ s h x ->+                 ListTagsForResourceResponse' <$>+                   (x .@? "ResourceTags" .!@ mempty >>=+                      may (parseXMLList "member"))+                     <*> (x .@? "ResourceArn")+                     <*> (pure (fromEnum s)))++instance Hashable ListTagsForResource where++instance NFData ListTagsForResource where++instance ToHeaders ListTagsForResource where+        toHeaders = const mempty++instance ToPath ListTagsForResource where+        toPath = const "/"++instance ToQuery ListTagsForResource where+        toQuery ListTagsForResource'{..}+          = mconcat+              ["Action" =: ("ListTagsForResource" :: ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "ResourceArn" =: _ltfrResourceARN]++-- | /See:/ 'listTagsForResourceResponse' smart constructor.+data ListTagsForResourceResponse = ListTagsForResourceResponse'+  { _ltfrrsResourceTags   :: !(Maybe [Tag])+  , _ltfrrsResourceARN    :: !(Maybe Text)+  , _ltfrrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListTagsForResourceResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ltfrrsResourceTags' - A list of tag key-value pairs.+--+-- * 'ltfrrsResourceARN' - The Amazon Resource Name (ARN) of the resouce for which a tag list was requested.+--+-- * 'ltfrrsResponseStatus' - -- | The response status code.+listTagsForResourceResponse+    :: Int -- ^ 'ltfrrsResponseStatus'+    -> ListTagsForResourceResponse+listTagsForResourceResponse pResponseStatus_ =+  ListTagsForResourceResponse'+  { _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;++-- | 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});++-- | -- | The response status code.+ltfrrsResponseStatus :: Lens' ListTagsForResourceResponse Int+ltfrrsResponseStatus = lens _ltfrrsResponseStatus (\ s a -> s{_ltfrrsResponseStatus = a});++instance NFData ListTagsForResourceResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.RebuildEnvironment--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,12 +35,12 @@     , RebuildEnvironmentResponse     ) 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+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  -- | --@@ -48,10 +48,11 @@ -- -- /See:/ 'rebuildEnvironment' smart constructor. data RebuildEnvironment = RebuildEnvironment'-    { _reEnvironmentName :: !(Maybe Text)-    , _reEnvironmentId   :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _reEnvironmentName :: !(Maybe Text)+  , _reEnvironmentId   :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RebuildEnvironment' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -62,11 +63,9 @@ rebuildEnvironment     :: RebuildEnvironment rebuildEnvironment =-    RebuildEnvironment'-    { _reEnvironmentName = Nothing-    , _reEnvironmentId = Nothing-    }+  RebuildEnvironment' {_reEnvironmentName = Nothing, _reEnvironmentId = Nothing} + -- | 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});@@ -81,9 +80,9 @@         request = postQuery elasticBeanstalk         response = receiveNull RebuildEnvironmentResponse' -instance Hashable RebuildEnvironment+instance Hashable RebuildEnvironment where -instance NFData RebuildEnvironment+instance NFData RebuildEnvironment where  instance ToHeaders RebuildEnvironment where         toHeaders = const mempty@@ -101,13 +100,15 @@  -- | /See:/ 'rebuildEnvironmentResponse' smart constructor. data RebuildEnvironmentResponse =-    RebuildEnvironmentResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  RebuildEnvironmentResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RebuildEnvironmentResponse' with the minimum fields required to make a request. -- rebuildEnvironmentResponse     :: RebuildEnvironmentResponse rebuildEnvironmentResponse = RebuildEnvironmentResponse' -instance NFData RebuildEnvironmentResponse++instance NFData RebuildEnvironmentResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.RequestEnvironmentInfo--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -48,12 +48,12 @@     , RequestEnvironmentInfoResponse     ) 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+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  -- | Request to retrieve logs from an environment and store them in your Elastic Beanstalk storage bucket. --@@ -61,11 +61,12 @@ -- -- /See:/ 'requestEnvironmentInfo' smart constructor. data RequestEnvironmentInfo = RequestEnvironmentInfo'-    { _reiEnvironmentName :: !(Maybe Text)-    , _reiEnvironmentId   :: !(Maybe Text)-    , _reiInfoType        :: !EnvironmentInfoType-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _reiEnvironmentName :: !(Maybe Text)+  , _reiEnvironmentId   :: !(Maybe Text)+  , _reiInfoType        :: !EnvironmentInfoType+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RequestEnvironmentInfo' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -79,12 +80,13 @@     :: EnvironmentInfoType -- ^ 'reiInfoType'     -> RequestEnvironmentInfo requestEnvironmentInfo pInfoType_ =-    RequestEnvironmentInfo'-    { _reiEnvironmentName = Nothing-    , _reiEnvironmentId = Nothing-    , _reiInfoType = pInfoType_-    }+  RequestEnvironmentInfo'+  { _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});@@ -104,9 +106,9 @@         response           = receiveNull RequestEnvironmentInfoResponse' -instance Hashable RequestEnvironmentInfo+instance Hashable RequestEnvironmentInfo where -instance NFData RequestEnvironmentInfo+instance NFData RequestEnvironmentInfo where  instance ToHeaders RequestEnvironmentInfo where         toHeaders = const mempty@@ -126,13 +128,15 @@  -- | /See:/ 'requestEnvironmentInfoResponse' smart constructor. data RequestEnvironmentInfoResponse =-    RequestEnvironmentInfoResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  RequestEnvironmentInfoResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RequestEnvironmentInfoResponse' with the minimum fields required to make a request. -- requestEnvironmentInfoResponse     :: RequestEnvironmentInfoResponse requestEnvironmentInfoResponse = RequestEnvironmentInfoResponse' -instance NFData RequestEnvironmentInfoResponse++instance NFData RequestEnvironmentInfoResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.RestartAppServer--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,12 +35,12 @@     , RestartAppServerResponse     ) 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+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  -- | --@@ -48,10 +48,11 @@ -- -- /See:/ 'restartAppServer' smart constructor. data RestartAppServer = RestartAppServer'-    { _rasEnvironmentName :: !(Maybe Text)-    , _rasEnvironmentId   :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rasEnvironmentName :: !(Maybe Text)+  , _rasEnvironmentId   :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RestartAppServer' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -62,11 +63,9 @@ restartAppServer     :: RestartAppServer restartAppServer =-    RestartAppServer'-    { _rasEnvironmentName = Nothing-    , _rasEnvironmentId = Nothing-    }+  RestartAppServer' {_rasEnvironmentName = Nothing, _rasEnvironmentId = Nothing} + -- | 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});@@ -80,9 +79,9 @@         request = postQuery elasticBeanstalk         response = receiveNull RestartAppServerResponse' -instance Hashable RestartAppServer+instance Hashable RestartAppServer where -instance NFData RestartAppServer+instance NFData RestartAppServer where  instance ToHeaders RestartAppServer where         toHeaders = const mempty@@ -100,13 +99,15 @@  -- | /See:/ 'restartAppServerResponse' smart constructor. data RestartAppServerResponse =-    RestartAppServerResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  RestartAppServerResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RestartAppServerResponse' with the minimum fields required to make a request. -- restartAppServerResponse     :: RestartAppServerResponse restartAppServerResponse = RestartAppServerResponse' -instance NFData RestartAppServerResponse++instance NFData RestartAppServerResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.RetrieveEnvironmentInfo--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -45,12 +45,12 @@     , reirsResponseStatus     ) 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+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  -- | Request to download logs retrieved with 'RequestEnvironmentInfo' . --@@ -58,11 +58,12 @@ -- -- /See:/ 'retrieveEnvironmentInfo' smart constructor. data RetrieveEnvironmentInfo = RetrieveEnvironmentInfo'-    { _rEnvironmentName :: !(Maybe Text)-    , _rEnvironmentId   :: !(Maybe Text)-    , _rInfoType        :: !EnvironmentInfoType-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rEnvironmentName :: !(Maybe Text)+  , _rEnvironmentId   :: !(Maybe Text)+  , _rInfoType        :: !EnvironmentInfoType+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RetrieveEnvironmentInfo' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -76,12 +77,13 @@     :: EnvironmentInfoType -- ^ 'rInfoType'     -> RetrieveEnvironmentInfo retrieveEnvironmentInfo pInfoType_ =-    RetrieveEnvironmentInfo'-    { _rEnvironmentName = Nothing-    , _rEnvironmentId = Nothing-    , _rInfoType = pInfoType_-    }+  RetrieveEnvironmentInfo'+  { _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});@@ -106,9 +108,9 @@                       may (parseXMLList "member"))                      <*> (pure (fromEnum s))) -instance Hashable RetrieveEnvironmentInfo+instance Hashable RetrieveEnvironmentInfo where -instance NFData RetrieveEnvironmentInfo+instance NFData RetrieveEnvironmentInfo where  instance ToHeaders RetrieveEnvironmentInfo where         toHeaders = const mempty@@ -132,10 +134,11 @@ -- -- /See:/ 'retrieveEnvironmentInfoResponse' smart constructor. data RetrieveEnvironmentInfoResponse = RetrieveEnvironmentInfoResponse'-    { _reirsEnvironmentInfo :: !(Maybe [EnvironmentInfoDescription])-    , _reirsResponseStatus  :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _reirsEnvironmentInfo :: !(Maybe [EnvironmentInfoDescription])+  , _reirsResponseStatus  :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RetrieveEnvironmentInfoResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -147,11 +150,10 @@     :: Int -- ^ 'reirsResponseStatus'     -> RetrieveEnvironmentInfoResponse retrieveEnvironmentInfoResponse pResponseStatus_ =-    RetrieveEnvironmentInfoResponse'-    { _reirsEnvironmentInfo = Nothing-    , _reirsResponseStatus = pResponseStatus_-    }+  RetrieveEnvironmentInfoResponse'+  {_reirsEnvironmentInfo = Nothing, _reirsResponseStatus = pResponseStatus_} + -- | The 'EnvironmentInfoDescription' of the environment. reirsEnvironmentInfo :: Lens' RetrieveEnvironmentInfoResponse [EnvironmentInfoDescription] reirsEnvironmentInfo = lens _reirsEnvironmentInfo (\ s a -> s{_reirsEnvironmentInfo = a}) . _Default . _Coerce;@@ -160,4 +162,4 @@ reirsResponseStatus :: Lens' RetrieveEnvironmentInfoResponse Int reirsResponseStatus = lens _reirsResponseStatus (\ s a -> s{_reirsResponseStatus = a}); -instance NFData RetrieveEnvironmentInfoResponse+instance NFData RetrieveEnvironmentInfoResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.SwapEnvironmentCNAMEs--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@     , SwapEnvironmentCNAMEsResponse     ) 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+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  -- | Swaps the CNAMEs of two environments. --@@ -50,12 +50,13 @@ -- -- /See:/ 'swapEnvironmentCNAMEs' smart constructor. data SwapEnvironmentCNAMEs = SwapEnvironmentCNAMEs'-    { _secnameDestinationEnvironmentName :: !(Maybe Text)-    , _secnameDestinationEnvironmentId   :: !(Maybe Text)-    , _secnameSourceEnvironmentName      :: !(Maybe Text)-    , _secnameSourceEnvironmentId        :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _secnameDestinationEnvironmentName :: !(Maybe Text)+  , _secnameDestinationEnvironmentId   :: !(Maybe Text)+  , _secnameSourceEnvironmentName      :: !(Maybe Text)+  , _secnameSourceEnvironmentId        :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SwapEnvironmentCNAMEs' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -70,13 +71,14 @@ swapEnvironmentCNAMEs     :: SwapEnvironmentCNAMEs swapEnvironmentCNAMEs =-    SwapEnvironmentCNAMEs'-    { _secnameDestinationEnvironmentName = Nothing-    , _secnameDestinationEnvironmentId = Nothing-    , _secnameSourceEnvironmentName = Nothing-    , _secnameSourceEnvironmentId = Nothing-    }+  SwapEnvironmentCNAMEs'+  { _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});@@ -99,9 +101,9 @@         request = postQuery elasticBeanstalk         response = receiveNull SwapEnvironmentCNAMEsResponse' -instance Hashable SwapEnvironmentCNAMEs+instance Hashable SwapEnvironmentCNAMEs where -instance NFData SwapEnvironmentCNAMEs+instance NFData SwapEnvironmentCNAMEs where  instance ToHeaders SwapEnvironmentCNAMEs where         toHeaders = const mempty@@ -124,13 +126,15 @@  -- | /See:/ 'swapEnvironmentCNAMEsResponse' smart constructor. data SwapEnvironmentCNAMEsResponse =-    SwapEnvironmentCNAMEsResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  SwapEnvironmentCNAMEsResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SwapEnvironmentCNAMEsResponse' with the minimum fields required to make a request. -- swapEnvironmentCNAMEsResponse     :: SwapEnvironmentCNAMEsResponse swapEnvironmentCNAMEsResponse = SwapEnvironmentCNAMEsResponse' -instance NFData SwapEnvironmentCNAMEsResponse++instance NFData SwapEnvironmentCNAMEsResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.TerminateEnvironment--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -46,9 +46,11 @@     , eDateCreated     , eHealth     , eVersionLabel+    , ePlatformARN     , eTier     , eEnvironmentName     , eApplicationName+    , eEnvironmentARN     , eSolutionStackName     , eEnvironmentId     , eHealthStatus@@ -56,12 +58,12 @@     , eDescription     ) 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+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  -- | Request to terminate an environment. --@@ -69,12 +71,13 @@ -- -- /See:/ 'terminateEnvironment' smart constructor. data TerminateEnvironment = TerminateEnvironment'-    { _teForceTerminate     :: !(Maybe Bool)-    , _teTerminateResources :: !(Maybe Bool)-    , _teEnvironmentName    :: !(Maybe Text)-    , _teEnvironmentId      :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _teForceTerminate     :: !(Maybe Bool)+  , _teTerminateResources :: !(Maybe Bool)+  , _teEnvironmentName    :: !(Maybe Text)+  , _teEnvironmentId      :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'TerminateEnvironment' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -89,13 +92,14 @@ terminateEnvironment     :: TerminateEnvironment terminateEnvironment =-    TerminateEnvironment'-    { _teForceTerminate = Nothing-    , _teTerminateResources = Nothing-    , _teEnvironmentName = Nothing-    , _teEnvironmentId = Nothing-    }+  TerminateEnvironment'+  { _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});@@ -119,9 +123,9 @@           = receiveXMLWrapper "TerminateEnvironmentResult"               (\ s h x -> parseXML x) -instance Hashable TerminateEnvironment+instance Hashable TerminateEnvironment where -instance NFData TerminateEnvironment+instance NFData TerminateEnvironment where  instance ToHeaders TerminateEnvironment where         toHeaders = const mempty

@@ -4,9 +4,9 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.Types--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -20,16 +20,21 @@     , _TooManyBucketsException     , _S3SubscriptionRequiredException     , _OperationInProgressException+    , _PlatformVersionStillReferencedException     , _TooManyApplicationVersionsException     , _TooManyConfigurationTemplatesException+    , _ResourceTypeNotSupportedException     , _InsufficientPrivilegesException     , _ElasticBeanstalkServiceException+    , _TooManyTagsException     , _TooManyApplicationsException+    , _TooManyPlatformsException     , _ManagedActionInvalidStateException     , _SourceBundleDeletionException     , _S3LocationNotInServiceRegionException     , _CodeBuildNotInServiceRegionException     , _TooManyEnvironmentsException+    , _ResourceNotFoundException      -- * ActionHistoryStatus     , ActionHistoryStatus (..)@@ -76,6 +81,9 @@     -- * InstancesHealthAttribute     , InstancesHealthAttribute (..) +    -- * PlatformStatus+    , PlatformStatus (..)+     -- * SourceRepository     , SourceRepository (..) @@ -93,6 +101,7 @@     , adDateCreated     , adApplicationName     , adConfigurationTemplates+    , adResourceLifecycleConfig     , adDescription      -- * ApplicationDescriptionMessage@@ -108,6 +117,12 @@     , amStatusCodes     , amDuration +    -- * ApplicationResourceLifecycleConfig+    , ApplicationResourceLifecycleConfig+    , applicationResourceLifecycleConfig+    , arlcVersionLifecycleConfig+    , arlcServiceRole+     -- * ApplicationVersionDescription     , ApplicationVersionDescription     , applicationVersionDescription@@ -126,6 +141,12 @@     , applicationVersionDescriptionMessage     , avdmApplicationVersion +    -- * ApplicationVersionLifecycleConfig+    , ApplicationVersionLifecycleConfig+    , applicationVersionLifecycleConfig+    , avlcMaxAgeRule+    , avlcMaxCountRule+     -- * AutoScalingGroup     , AutoScalingGroup     , autoScalingGroup@@ -140,6 +161,11 @@     , bcCodeBuildServiceRole     , bcImage +    -- * Builder+    , Builder+    , builder+    , bARN+     -- * CPUUtilization     , CPUUtilization     , cpuUtilization@@ -181,12 +207,19 @@     , csdOptionSettings     , csdDateUpdated     , csdDateCreated+    , csdPlatformARN     , csdEnvironmentName     , csdApplicationName     , csdDeploymentStatus     , csdSolutionStackName     , csdDescription +    -- * CustomAMI+    , CustomAMI+    , customAMI+    , caVirtualizationType+    , caImageId+     -- * Deployment     , Deployment     , deployment@@ -208,9 +241,11 @@     , eDateCreated     , eHealth     , eVersionLabel+    , ePlatformARN     , eTier     , eEnvironmentName     , eApplicationName+    , eEnvironmentARN     , eSolutionStackName     , eEnvironmentId     , eHealthStatus@@ -220,6 +255,7 @@     -- * EnvironmentDescriptionsMessage     , EnvironmentDescriptionsMessage     , environmentDescriptionsMessage+    , edmNextToken     , edmEnvironments      -- * EnvironmentInfoDescription@@ -266,6 +302,7 @@     , edTemplateName     , edSeverity     , edVersionLabel+    , edPlatformARN     , edEnvironmentName     , edApplicationName     , edEventDate@@ -344,6 +381,20 @@     , mahiExecutedTime     , mahiActionType +    -- * MaxAgeRule+    , MaxAgeRule+    , maxAgeRule+    , marDeleteSourceFromS3+    , marMaxAgeInDays+    , marEnabled++    -- * MaxCountRule+    , MaxCountRule+    , maxCountRule+    , mcrMaxCount+    , mcrDeleteSourceFromS3+    , mcrEnabled+     -- * OptionRestrictionRegex     , OptionRestrictionRegex     , optionRestrictionRegex@@ -357,6 +408,59 @@     , osResourceName     , osNamespace +    -- * PlatformDescription+    , PlatformDescription+    , platformDescription+    , pdSupportedAddonList+    , pdPlatformCategory+    , pdPlatformVersion+    , pdPlatformStatus+    , pdMaintainer+    , pdPlatformOwner+    , pdDateUpdated+    , pdCustomAMIList+    , pdDateCreated+    , pdOperatingSystemName+    , pdFrameworks+    , pdPlatformARN+    , pdOperatingSystemVersion+    , pdProgrammingLanguages+    , pdSolutionStackName+    , pdPlatformName+    , pdDescription+    , pdSupportedTierList++    -- * PlatformFilter+    , PlatformFilter+    , platformFilter+    , pfValues+    , pfOperator+    , pfType++    -- * PlatformFramework+    , PlatformFramework+    , platformFramework+    , pfName+    , pfVersion++    -- * PlatformProgrammingLanguage+    , PlatformProgrammingLanguage+    , platformProgrammingLanguage+    , pplName+    , pplVersion++    -- * PlatformSummary+    , PlatformSummary+    , platformSummary+    , psSupportedAddonList+    , psPlatformCategory+    , psPlatformStatus+    , psPlatformOwner+    , psOperatingSystemName+    , psPlatformARN+    , psOperatingSystemVersion+    , psSupportedTierList+     -- * Queue     , Queue     , queue@@ -436,38 +540,40 @@     , vmMessage     ) where -import           Network.AWS.ElasticBeanstalk.Types.Product-import           Network.AWS.ElasticBeanstalk.Types.Sum-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Sign.V4+import Network.AWS.ElasticBeanstalk.Types.Product+import Network.AWS.ElasticBeanstalk.Types.Sum+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Sign.V4  -- | API version @2010-12-01@ of the Amazon Elastic Beanstalk SDK configuration. 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-    }+  Service+  { _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-        }+      Exponential+      { _retryBase = 5.0e-2+      , _retryGrowth = 2+      , _retryAttempts = 5+      , _retryCheck = check+      }     check e+      | has (hasCode "ThrottledException" . hasStatus 400) e =+        Just "throttled_exception"       | has (hasStatus 429) e = Just "too_many_requests"       | has (hasCode "ThrottlingException" . hasStatus 400) e =-          Just "throttling_exception"+        Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"       | has (hasStatus 502) e = Just "bad_gateway"@@ -476,104 +582,179 @@       | has (hasStatus 509) e = Just "limit_exceeded"       | otherwise = Nothing + -- | One or more input parameters is not valid. Please correct the input parameters and try the operation again. -- -- _InvalidRequestException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidRequestException =-    _ServiceError . hasStatus 400 . hasCode "InvalidRequestException"+  _MatchServiceError elasticBeanstalk "InvalidRequestException" . hasStatus 400 + -- | The specified account has reached its limit of Amazon S3 buckets. -- -- _TooManyBucketsException :: AsError a => Getting (First ServiceError) a ServiceError _TooManyBucketsException =-    _ServiceError . hasStatus 400 . hasCode "TooManyBucketsException"+  _MatchServiceError elasticBeanstalk "TooManyBucketsException" . hasStatus 400 + -- | The specified account does not have a subscription to Amazon S3. -- -- _S3SubscriptionRequiredException :: AsError a => Getting (First ServiceError) a ServiceError _S3SubscriptionRequiredException =-    _ServiceError . hasStatus 400 . hasCode "S3SubscriptionRequiredException"+  _MatchServiceError elasticBeanstalk "S3SubscriptionRequiredException" .+  hasStatus 400 + -- | Unable to perform the specified operation because another operation that effects an element in this activity is already in progress. -- -- _OperationInProgressException :: AsError a => Getting (First ServiceError) a ServiceError _OperationInProgressException =-    _ServiceError . hasStatus 400 . hasCode "OperationInProgressFailure"+  _MatchServiceError elasticBeanstalk "OperationInProgressFailure" .+  hasStatus 400 ++-- | You cannot delete the platform version because there are still environments running on it.+--+--+_PlatformVersionStillReferencedException :: AsError a => Getting (First ServiceError) a ServiceError+_PlatformVersionStillReferencedException =+  _MatchServiceError elasticBeanstalk "PlatformVersionStillReferencedException" .+  hasStatus 400++ -- | The specified account has reached its limit of application versions. -- -- _TooManyApplicationVersionsException :: AsError a => Getting (First ServiceError) a ServiceError _TooManyApplicationVersionsException =-    _ServiceError . hasCode "TooManyApplicationVersionsException"+  _MatchServiceError elasticBeanstalk "TooManyApplicationVersionsException" + -- | The specified account has reached its limit of configuration templates. -- -- _TooManyConfigurationTemplatesException :: AsError a => Getting (First ServiceError) a ServiceError _TooManyConfigurationTemplatesException =-    _ServiceError .-    hasStatus 400 . hasCode "TooManyConfigurationTemplatesException"+  _MatchServiceError elasticBeanstalk "TooManyConfigurationTemplatesException" .+  hasStatus 400 ++-- | The type of the specified Amazon Resource Name (ARN) isn't supported for this operation.+--+--+_ResourceTypeNotSupportedException :: AsError a => Getting (First ServiceError) a ServiceError+_ResourceTypeNotSupportedException =+  _MatchServiceError elasticBeanstalk "ResourceTypeNotSupportedException" .+  hasStatus 400++ -- | The specified account does not have sufficient privileges for one of more AWS services. -- -- _InsufficientPrivilegesException :: AsError a => Getting (First ServiceError) a ServiceError _InsufficientPrivilegesException =-    _ServiceError . hasStatus 403 . hasCode "InsufficientPrivilegesException"+  _MatchServiceError elasticBeanstalk "InsufficientPrivilegesException" .+  hasStatus 403 + -- | A generic service exception has occurred. -- -- _ElasticBeanstalkServiceException :: AsError a => Getting (First ServiceError) a ServiceError _ElasticBeanstalkServiceException =-    _ServiceError . hasCode "ElasticBeanstalkServiceException"+  _MatchServiceError elasticBeanstalk "ElasticBeanstalkServiceException" ++-- | The number of tags in the resource would exceed the number of tags that each resource can have.+--+--+-- To calculate this, the operation considers both the number of tags the resource already has and the tags this operation would add if it succeeded.+--+_TooManyTagsException :: AsError a => Getting (First ServiceError) a ServiceError+_TooManyTagsException =+  _MatchServiceError elasticBeanstalk "TooManyTagsException" . hasStatus 400++ -- | The specified account has reached its limit of applications. -- -- _TooManyApplicationsException :: AsError a => Getting (First ServiceError) a ServiceError _TooManyApplicationsException =-    _ServiceError . hasStatus 400 . hasCode "TooManyApplicationsException"+  _MatchServiceError elasticBeanstalk "TooManyApplicationsException" .+  hasStatus 400 ++-- | You have exceeded the maximum number of allowed platforms associated with the account.+--+--+_TooManyPlatformsException :: AsError a => Getting (First ServiceError) a ServiceError+_TooManyPlatformsException =+  _MatchServiceError elasticBeanstalk "TooManyPlatformsException" .+  hasStatus 400++ -- | Cannot modify the managed action in its current state. -- -- _ManagedActionInvalidStateException :: AsError a => Getting (First ServiceError) a ServiceError _ManagedActionInvalidStateException =-    _ServiceError .-    hasStatus 400 . hasCode "ManagedActionInvalidStateException"+  _MatchServiceError elasticBeanstalk "ManagedActionInvalidStateException" .+  hasStatus 400 + -- | Unable to delete the Amazon S3 source bundle associated with the application version. The application version was deleted successfully. -- -- _SourceBundleDeletionException :: AsError a => Getting (First ServiceError) a ServiceError _SourceBundleDeletionException =-    _ServiceError . hasStatus 400 . hasCode "SourceBundleDeletionFailure"+  _MatchServiceError elasticBeanstalk "SourceBundleDeletionFailure" .+  hasStatus 400 --- | The specified S3 bucket does not belong to the S3 region in which the service is running.++-- | The specified S3 bucket does not belong to the S3 region in which the service is running. The following regions are supported: -- --+--     * IAD/us-east-1+--+--     * PDX/us-west-2+--+--     * DUB/eu-west-1+--+--+-- _S3LocationNotInServiceRegionException :: AsError a => Getting (First ServiceError) a ServiceError _S3LocationNotInServiceRegionException =-    _ServiceError .-    hasStatus 400 . hasCode "S3LocationNotInServiceRegionException"+  _MatchServiceError elasticBeanstalk "S3LocationNotInServiceRegionException" .+  hasStatus 400 --- | The CodeBuild service is not supported in this region.++-- | AWS CodeBuild is not available in the specified region. -- -- _CodeBuildNotInServiceRegionException :: AsError a => Getting (First ServiceError) a ServiceError _CodeBuildNotInServiceRegionException =-    _ServiceError .-    hasStatus 400 . hasCode "CodeBuildNotInServiceRegionException"+  _MatchServiceError elasticBeanstalk "CodeBuildNotInServiceRegionException" .+  hasStatus 400 + -- | The specified account has reached its limit of environments. -- -- _TooManyEnvironmentsException :: AsError a => Getting (First ServiceError) a ServiceError _TooManyEnvironmentsException =-    _ServiceError . hasStatus 400 . hasCode "TooManyEnvironmentsException"+  _MatchServiceError elasticBeanstalk "TooManyEnvironmentsException" .+  hasStatus 400+++-- | A resource doesn't exist for the specified Amazon Resource Name (ARN).+--+--+_ResourceNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError+_ResourceNotFoundException =+  _MatchServiceError elasticBeanstalk "ResourceNotFoundException" .+  hasStatus 400+

@@ -9,2718 +9,3550 @@  -- | -- Module      : Network.AWS.ElasticBeanstalk.Types.Product--- Copyright   : (c) 2013-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)----module Network.AWS.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])-    , _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.------ * 'adDescription' - User-defined description of the application.-applicationDescription-    :: ApplicationDescription-applicationDescription =-    ApplicationDescription'-    { _adVersions = Nothing-    , _adDateUpdated = Nothing-    , _adDateCreated = Nothing-    , _adApplicationName = Nothing-    , _adConfigurationTemplates = 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;---- | 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 .@? "Description")--instance Hashable ApplicationDescription--instance NFData ApplicationDescription---- | 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--instance NFData ApplicationDescriptionMessage---- | 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 milisecond 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 milisecond 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--instance NFData ApplicationMetrics---- | 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' - Undocumented member.------ * '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});---- | Undocumented member.-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--instance NFData ApplicationVersionDescription---- | 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--instance NFData ApplicationVersionDescriptionMessage---- | 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--instance NFData AutoScalingGroup---- | /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' - Undocumented member.------ * 'bcComputeType' - Undocumented member.------ * 'bcTimeoutInMinutes' - Undocumented member.------ * 'bcCodeBuildServiceRole' - Undocumented member.------ * 'bcImage' - Undocumented member.-buildConfiguration-    :: Text -- ^ 'bcCodeBuildServiceRole'-    -> Text -- ^ 'bcImage'-    -> BuildConfiguration-buildConfiguration pCodeBuildServiceRole_ pImage_ =-    BuildConfiguration'-    { _bcArtifactName = Nothing-    , _bcComputeType = Nothing-    , _bcTimeoutInMinutes = Nothing-    , _bcCodeBuildServiceRole = pCodeBuildServiceRole_-    , _bcImage = pImage_-    }---- | Undocumented member.-bcArtifactName :: Lens' BuildConfiguration (Maybe Text)-bcArtifactName = lens _bcArtifactName (\ s a -> s{_bcArtifactName = a});---- | Undocumented member.-bcComputeType :: Lens' BuildConfiguration (Maybe ComputeType)-bcComputeType = lens _bcComputeType (\ s a -> s{_bcComputeType = a});---- | Undocumented member.-bcTimeoutInMinutes :: Lens' BuildConfiguration (Maybe Int)-bcTimeoutInMinutes = lens _bcTimeoutInMinutes (\ s a -> s{_bcTimeoutInMinutes = a});---- | Undocumented member.-bcCodeBuildServiceRole :: Lens' BuildConfiguration Text-bcCodeBuildServiceRole = lens _bcCodeBuildServiceRole (\ s a -> s{_bcCodeBuildServiceRole = a});---- | Undocumented member.-bcImage :: Lens' BuildConfiguration Text-bcImage = lens _bcImage (\ s a -> s{_bcImage = a});--instance Hashable BuildConfiguration--instance NFData BuildConfiguration--instance ToQuery BuildConfiguration where-        toQuery BuildConfiguration'{..}-          = mconcat-              ["ArtifactName" =: _bcArtifactName,-               "ComputeType" =: _bcComputeType,-               "TimeoutInMinutes" =: _bcTimeoutInMinutes,-               "CodeBuildServiceRole" =: _bcCodeBuildServiceRole,-               "Image" =: _bcImage]---- | 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--instance NFData CPUUtilization---- | 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--instance NFData ConfigurationOptionDescription---- | 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--instance NFData ConfigurationOptionSetting--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)-    , _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.------ * '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-    , _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;---- | 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 .@? "EnvironmentName")-                <*> (x .@? "ApplicationName")-                <*> (x .@? "DeploymentStatus")-                <*> (x .@? "SolutionStackName")-                <*> (x .@? "Description")--instance Hashable ConfigurationSettingsDescription--instance NFData ConfigurationSettingsDescription---- | 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 deloyment 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 deloyment 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--instance NFData Deployment---- | 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)-    , _eTier                         :: !(Maybe EnvironmentTier)-    , _eEnvironmentName              :: !(Maybe Text)-    , _eApplicationName              :: !(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.------ * 'eTier' - Describes the current tier of this environment.------ * 'eEnvironmentName' - The name of this environment.------ * 'eApplicationName' - The name of the application associated with this environment.------ * '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-    , _eTier = Nothing-    , _eEnvironmentName = Nothing-    , _eApplicationName = 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});---- | 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 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 .@? "Tier")-                <*> (x .@? "EnvironmentName")-                <*> (x .@? "ApplicationName")-                <*> (x .@? "SolutionStackName")-                <*> (x .@? "EnvironmentId")-                <*> (x .@? "HealthStatus")-                <*>-                (x .@? "EnvironmentLinks" .!@ mempty >>=-                   may (parseXMLList "member"))-                <*> (x .@? "Description")--instance Hashable EnvironmentDescription--instance NFData EnvironmentDescription---- | Result message containing a list of environment descriptions.------------ /See:/ 'environmentDescriptionsMessage' smart constructor.-newtype EnvironmentDescriptionsMessage = EnvironmentDescriptionsMessage'-    { _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:------ * 'edmEnvironments' - Returns an 'EnvironmentDescription' list.-environmentDescriptionsMessage-    :: EnvironmentDescriptionsMessage-environmentDescriptionsMessage =-    EnvironmentDescriptionsMessage'-    { _edmEnvironments = Nothing-    }---- | 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 .@? "Environments" .!@ mempty >>=-                 may (parseXMLList "member"))--instance Hashable EnvironmentDescriptionsMessage--instance NFData EnvironmentDescriptionsMessage---- | 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--instance NFData EnvironmentInfoDescription---- | 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--instance NFData EnvironmentLink---- | 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--instance NFData EnvironmentResourceDescription---- | 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--instance NFData EnvironmentResourcesDescription---- | 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--instance NFData EnvironmentTier--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)-    , _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.------ * '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-    , _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 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 .@? "EnvironmentName")-                <*> (x .@? "ApplicationName")-                <*> (x .@? "EventDate")-                <*> (x .@? "Message")--instance Hashable EventDescription--instance NFData EventDescription---- | 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--instance NFData Instance---- | 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--instance NFData InstanceHealthSummary---- | 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--instance NFData Latency---- | 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--instance NFData LaunchConfiguration---- | 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--instance NFData Listener---- | 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--instance NFData LoadBalancer---- | 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--instance NFData LoadBalancerDescription---- | 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--instance NFData ManagedAction---- | 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--instance NFData ManagedActionHistoryItem---- | 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--instance NFData OptionRestrictionRegex---- | 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--instance NFData OptionSpecification--instance ToQuery OptionSpecification where-        toQuery OptionSpecification'{..}-          = mconcat-              ["OptionName" =: _osOptionName,-               "ResourceName" =: _osResourceName,-               "Namespace" =: _osNamespace]---- | 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--instance NFData Queue---- | 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--instance NFData S3Location--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--instance NFData SingleInstanceHealth---- | 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--instance NFData SolutionStackDescription---- | 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, such as @Git@ .------ * 'sbiSourceRepository' - Location where the repository is stored, such as @CodeCommit@ .------ * 'sbiSourceLocation' - The repository name and commit ID, separated by a forward slash. For example, @my-repo/265cfa0cf6af46153527f55d6503ec030551f57a@ .-sourceBuildInformation-    :: SourceType -- ^ 'sbiSourceType'-    -> SourceRepository -- ^ 'sbiSourceRepository'-    -> Text -- ^ 'sbiSourceLocation'-    -> SourceBuildInformation-sourceBuildInformation pSourceType_ pSourceRepository_ pSourceLocation_ =-    SourceBuildInformation'-    { _sbiSourceType = pSourceType_-    , _sbiSourceRepository = pSourceRepository_-    , _sbiSourceLocation = pSourceLocation_-    }---- | The type of repository, such as @Git@ .-sbiSourceType :: Lens' SourceBuildInformation SourceType-sbiSourceType = lens _sbiSourceType (\ s a -> s{_sbiSourceType = a});---- | Location where the repository is stored, such as @CodeCommit@ .-sbiSourceRepository :: Lens' SourceBuildInformation SourceRepository-sbiSourceRepository = lens _sbiSourceRepository (\ s a -> s{_sbiSourceRepository = a});---- | The repository name and commit ID, separated by a forward slash. For example, @my-repo/265cfa0cf6af46153527f55d6503ec030551f57a@ .-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--instance NFData SourceBuildInformation--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--instance NFData SourceConfiguration--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--instance NFData StatusCodes---- | 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 and 5-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 and 5-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--instance NFData SystemStatus---- | 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 Hashable Tag--instance NFData Tag--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--instance NFData Trigger---- | 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-          = ValidationMessage' <$>-              (x .@? "OptionName") <*> (x .@? "Severity") <*>-                (x .@? "Namespace")-                <*> (x .@? "Message")--instance Hashable ValidationMessage--instance NFData ValidationMessage+-- 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});++instance FromXML ValidationMessage where+        parseXML x+          = ValidationMessage' <$>+              (x .@? "OptionName") <*> (x .@? "Severity") <*>+                (x .@? "Namespace")+                <*> (x .@? "Message")++instance Hashable ValidationMessage where++instance NFData ValidationMessage where