amazonka-elasticbeanstalk 1.4.0 → 1.4.1

raw patch · 49 files changed

+1420/−148 lines, 49 filesdep ~amazonka-coredep ~amazonka-elasticbeanstalkdep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

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

API changes (from Hackage documentation)

Files

• README.md +4/−8
• amazonka-elasticbeanstalk.cabal +11/−12
• fixture/ApplyEnvironmentManagedAction.yaml +0/−0
• fixture/ApplyEnvironmentManagedActionResponse.proto +0/−0
• fixture/DescribeEnvironmentManagedActionHistory.yaml +0/−0
• fixture/DescribeEnvironmentManagedActionHistoryResponse.proto +0/−0
• fixture/DescribeEnvironmentManagedActions.yaml +0/−0
• fixture/DescribeEnvironmentManagedActionsResponse.proto +0/−0
• gen/Network/AWS/ElasticBeanstalk.hs +62/−7
• gen/Network/AWS/ElasticBeanstalk/AbortEnvironmentUpdate.hs +4/−0
• gen/Network/AWS/ElasticBeanstalk/ApplyEnvironmentManagedAction.hs +184/−0
• gen/Network/AWS/ElasticBeanstalk/CheckDNSAvailability.hs +4/−0
• gen/Network/AWS/ElasticBeanstalk/ComposeEnvironments.hs +4/−2
• gen/Network/AWS/ElasticBeanstalk/CreateApplication.hs +3/−1
• gen/Network/AWS/ElasticBeanstalk/CreateApplicationVersion.hs +2/−0
• gen/Network/AWS/ElasticBeanstalk/CreateConfigurationTemplate.hs +3/−1
• gen/Network/AWS/ElasticBeanstalk/CreateEnvironment.hs +4/−2
• gen/Network/AWS/ElasticBeanstalk/CreateStorageLocation.hs +4/−0
• gen/Network/AWS/ElasticBeanstalk/DeleteApplication.hs +5/−1
• gen/Network/AWS/ElasticBeanstalk/DeleteApplicationVersion.hs +5/−1
• gen/Network/AWS/ElasticBeanstalk/DeleteConfigurationTemplate.hs +5/−1
• gen/Network/AWS/ElasticBeanstalk/DeleteEnvironmentConfiguration.hs +6/−1
• gen/Network/AWS/ElasticBeanstalk/DescribeApplicationVersions.hs +18/−15
• gen/Network/AWS/ElasticBeanstalk/DescribeApplications.hs +5/−1
• gen/Network/AWS/ElasticBeanstalk/DescribeConfigurationOptions.hs +4/−0
• gen/Network/AWS/ElasticBeanstalk/DescribeConfigurationSettings.hs +4/−0
• gen/Network/AWS/ElasticBeanstalk/DescribeEnvironmentHealth.hs +4/−0
• gen/Network/AWS/ElasticBeanstalk/DescribeEnvironmentManagedActionHistory.hs +182/−0
• gen/Network/AWS/ElasticBeanstalk/DescribeEnvironmentManagedActions.hs +157/−0
• gen/Network/AWS/ElasticBeanstalk/DescribeEnvironmentResources.hs +5/−1
• gen/Network/AWS/ElasticBeanstalk/DescribeEnvironments.hs +46/−43
• gen/Network/AWS/ElasticBeanstalk/DescribeEvents.hs +5/−1
• gen/Network/AWS/ElasticBeanstalk/DescribeInstancesHealth.hs +4/−0
• gen/Network/AWS/ElasticBeanstalk/ListAvailableSolutionStacks.hs +4/−0
• gen/Network/AWS/ElasticBeanstalk/RebuildEnvironment.hs +4/−0
• gen/Network/AWS/ElasticBeanstalk/RequestEnvironmentInfo.hs +6/−1
• gen/Network/AWS/ElasticBeanstalk/RestartAppServer.hs +4/−0
• gen/Network/AWS/ElasticBeanstalk/RetrieveEnvironmentInfo.hs +5/−1
• gen/Network/AWS/ElasticBeanstalk/SwapEnvironmentCNAMEs.hs +4/−0
• gen/Network/AWS/ElasticBeanstalk/TerminateEnvironment.hs +3/−1
• gen/Network/AWS/ElasticBeanstalk/Types.hs +53/−0
• gen/Network/AWS/ElasticBeanstalk/Types/Product.hs +330/−1
• gen/Network/AWS/ElasticBeanstalk/Types/Sum.hs +194/−43
• gen/Network/AWS/ElasticBeanstalk/UpdateApplication.hs +3/−1
• gen/Network/AWS/ElasticBeanstalk/UpdateApplicationVersion.hs +2/−0
• gen/Network/AWS/ElasticBeanstalk/UpdateConfigurationTemplate.hs +2/−0
• gen/Network/AWS/ElasticBeanstalk/UpdateEnvironment.hs +4/−2
• gen/Network/AWS/ElasticBeanstalk/ValidateConfigurationSettings.hs +4/−0
• test/Test/AWS/Gen/ElasticBeanstalk.hs +54/−0

@@ -8,20 +8,16 @@  ## Version -`1.4.0`+`1.4.1`   ## Description  AWS Elastic Beanstalk -This is the AWS Elastic Beanstalk API Reference. This guide provides-detailed information about AWS Elastic Beanstalk actions, data types,-parameters, and errors.--AWS Elastic Beanstalk is a tool that makes it easy for you to create,-deploy, and manage scalable, fault-tolerant applications running on-Amazon Web Services cloud resources.+AWS Elastic Beanstalk makes it easy for you to create, deploy, and+manage scalable, fault-tolerant applications running on the Amazon Web+Services cloud.  For more information about this product, go to the <http://aws.amazon.com/elasticbeanstalk/ AWS Elastic Beanstalk> details

@@ -1,5 +1,5 @@ name:                  amazonka-elasticbeanstalk-version:               1.4.0+version:               1.4.1 synopsis:              Amazon Elastic Beanstalk SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -15,13 +15,9 @@ description:     AWS Elastic Beanstalk -    This is the AWS Elastic Beanstalk API Reference. This guide provides-    detailed information about AWS Elastic Beanstalk actions, data types,-    parameters, and errors.--    AWS Elastic Beanstalk is a tool that makes it easy for you to create,-    deploy, and manage scalable, fault-tolerant applications running on-    Amazon Web Services cloud resources.+    AWS Elastic Beanstalk makes it easy for you to create, deploy, and+    manage scalable, fault-tolerant applications running on the Amazon Web+    Services cloud.      For more information about this product, go to the     <http://aws.amazon.com/elasticbeanstalk/ AWS Elastic Beanstalk> details@@ -66,6 +62,7 @@     exposed-modules:           Network.AWS.ElasticBeanstalk         , Network.AWS.ElasticBeanstalk.AbortEnvironmentUpdate+        , Network.AWS.ElasticBeanstalk.ApplyEnvironmentManagedAction         , Network.AWS.ElasticBeanstalk.CheckDNSAvailability         , Network.AWS.ElasticBeanstalk.ComposeEnvironments         , Network.AWS.ElasticBeanstalk.CreateApplication@@ -82,6 +79,8 @@         , Network.AWS.ElasticBeanstalk.DescribeConfigurationOptions         , Network.AWS.ElasticBeanstalk.DescribeConfigurationSettings         , Network.AWS.ElasticBeanstalk.DescribeEnvironmentHealth+        , Network.AWS.ElasticBeanstalk.DescribeEnvironmentManagedActionHistory+        , Network.AWS.ElasticBeanstalk.DescribeEnvironmentManagedActions         , Network.AWS.ElasticBeanstalk.DescribeEnvironmentResources         , Network.AWS.ElasticBeanstalk.DescribeEnvironments         , Network.AWS.ElasticBeanstalk.DescribeEvents@@ -106,7 +105,7 @@         , Network.AWS.ElasticBeanstalk.Types.Sum      build-depends:-          amazonka-core == 1.4.0.*+          amazonka-core == 1.4.1.*         , base          >= 4.7     && < 5  test-suite amazonka-elasticbeanstalk-test@@ -126,9 +125,9 @@         , Test.AWS.ElasticBeanstalk.Internal      build-depends:-          amazonka-core == 1.4.0.*-        , amazonka-test == 1.4.0.*-        , amazonka-elasticbeanstalk == 1.4.0.*+          amazonka-core == 1.4.1.*+        , amazonka-test == 1.4.1.*+        , amazonka-elasticbeanstalk == 1.4.1.*         , base         , bytestring         , tasty

@@ -13,13 +13,9 @@ -- -- AWS Elastic Beanstalk ----- This is the AWS Elastic Beanstalk API Reference. This guide provides--- detailed information about AWS Elastic Beanstalk actions, data types,--- parameters, and errors.------ AWS Elastic Beanstalk is a tool that makes it easy for you to create,--- deploy, and manage scalable, fault-tolerant applications running on--- Amazon Web Services cloud resources.+-- AWS Elastic Beanstalk makes it easy for you to create, deploy, and+-- manage scalable, fault-tolerant applications running on the Amazon Web+-- Services cloud. -- -- For more information about this product, go to the -- <http://aws.amazon.com/elasticbeanstalk/ AWS Elastic Beanstalk> details@@ -71,6 +67,9 @@     -- ** TooManyApplicationsException     , _TooManyApplicationsException +    -- ** ManagedActionInvalidStateException+    , _ManagedActionInvalidStateException+     -- ** SourceBundleDeletionException     , _SourceBundleDeletionException @@ -134,6 +133,9 @@     -- ** DescribeEnvironmentResources     , module Network.AWS.ElasticBeanstalk.DescribeEnvironmentResources +    -- ** DescribeEnvironmentManagedActionHistory+    , module Network.AWS.ElasticBeanstalk.DescribeEnvironmentManagedActionHistory+     -- ** DeleteApplicationVersion     , module Network.AWS.ElasticBeanstalk.DeleteApplicationVersion @@ -158,12 +160,18 @@     -- ** ListAvailableSolutionStacks     , module Network.AWS.ElasticBeanstalk.ListAvailableSolutionStacks +    -- ** ApplyEnvironmentManagedAction+    , module Network.AWS.ElasticBeanstalk.ApplyEnvironmentManagedAction+     -- ** DescribeConfigurationOptions     , module Network.AWS.ElasticBeanstalk.DescribeConfigurationOptions      -- ** CreateStorageLocation     , module Network.AWS.ElasticBeanstalk.CreateStorageLocation +    -- ** DescribeEnvironmentManagedActions+    , module Network.AWS.ElasticBeanstalk.DescribeEnvironmentManagedActions+     -- ** DescribeConfigurationSettings     , module Network.AWS.ElasticBeanstalk.DescribeConfigurationSettings @@ -187,6 +195,15 @@      -- * Types +    -- ** ActionHistoryStatus+    , ActionHistoryStatus (..)++    -- ** ActionStatus+    , ActionStatus (..)++    -- ** ActionType+    , ActionType (..)+     -- ** ApplicationVersionStatus     , ApplicationVersionStatus (..) @@ -214,6 +231,9 @@     -- ** EventSeverity     , EventSeverity (..) +    -- ** FailureType+    , FailureType (..)+     -- ** InstancesHealthAttribute     , InstancesHealthAttribute (..) @@ -311,6 +331,14 @@     , csdSolutionStackName     , csdDescription +    -- ** Deployment+    , Deployment+    , deployment+    , dDeploymentId+    , dStatus+    , dDeploymentTime+    , dVersionLabel+     -- ** EnvironmentDescription     , EnvironmentDescription     , environmentDescription@@ -439,6 +467,27 @@     , lbdDomain     , lbdListeners +    -- ** ManagedAction+    , ManagedAction+    , managedAction+    , maStatus+    , maActionId+    , maWindowStartTime+    , maActionDescription+    , maActionType++    -- ** ManagedActionHistoryItem+    , ManagedActionHistoryItem+    , managedActionHistoryItem+    , mahiStatus+    , mahiFailureType+    , mahiActionId+    , mahiFailureDescription+    , mahiFinishedTime+    , mahiActionDescription+    , mahiExecutedTime+    , mahiActionType+     -- ** OptionRestrictionRegex     , OptionRestrictionRegex     , optionRestrictionRegex@@ -472,7 +521,10 @@     , sihSystem     , sihApplicationMetrics     , sihColor+    , sihInstanceType+    , sihAvailabilityZone     , sihHealthStatus+    , sihDeployment     , sihLaunchedAt      -- ** SolutionStackDescription@@ -522,6 +574,7 @@     ) 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@@ -538,6 +591,8 @@ 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

@@ -83,6 +83,8 @@  instance Hashable AbortEnvironmentUpdate +instance NFData AbortEnvironmentUpdate+ instance ToHeaders AbortEnvironmentUpdate where         toHeaders = const mempty @@ -108,3 +110,5 @@ abortEnvironmentUpdateResponse     :: AbortEnvironmentUpdateResponse abortEnvironmentUpdateResponse = AbortEnvironmentUpdateResponse'++instance NFData AbortEnvironmentUpdateResponse

@@ -0,0 +1,184 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.ElasticBeanstalk.ApplyEnvironmentManagedAction+-- 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)+--+-- Applies a scheduled managed action immediately. A managed action can be+-- applied only if its status is 'Scheduled'. Get the status and action ID+-- of a managed action with < DescribeEnvironmentManagedActions>.+module Network.AWS.ElasticBeanstalk.ApplyEnvironmentManagedAction+    (+    -- * Creating a Request+      applyEnvironmentManagedAction+    , ApplyEnvironmentManagedAction+    -- * Request Lenses+    , aemaEnvironmentName+    , aemaEnvironmentId+    , aemaActionId++    -- * Destructuring the Response+    , applyEnvironmentManagedActionResponse+    , ApplyEnvironmentManagedActionResponse+    -- * Response Lenses+    , aemarsStatus+    , aemarsActionId+    , aemarsActionDescription+    , aemarsActionType+    , 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++-- | Request to execute a scheduled managed action immediately.+--+-- /See:/ 'applyEnvironmentManagedAction' smart constructor.+data ApplyEnvironmentManagedAction = ApplyEnvironmentManagedAction'+    { _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:+--+-- * 'aemaEnvironmentName'+--+-- * 'aemaEnvironmentId'+--+-- * 'aemaActionId'+applyEnvironmentManagedAction+    :: Text -- ^ 'aemaActionId'+    -> ApplyEnvironmentManagedAction+applyEnvironmentManagedAction 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});++-- | The environment ID of the target environment.+aemaEnvironmentId :: Lens' ApplyEnvironmentManagedAction (Maybe Text)+aemaEnvironmentId = lens _aemaEnvironmentId (\ s a -> s{_aemaEnvironmentId = a});++-- | The action ID of the scheduled managed action to execute.+aemaActionId :: Lens' ApplyEnvironmentManagedAction Text+aemaActionId = lens _aemaActionId (\ s a -> s{_aemaActionId = a});++instance AWSRequest ApplyEnvironmentManagedAction+         where+        type Rs ApplyEnvironmentManagedAction =+             ApplyEnvironmentManagedActionResponse+        request = postQuery elasticBeanstalk+        response+          = receiveXMLWrapper+              "ApplyEnvironmentManagedActionResult"+              (\ s h x ->+                 ApplyEnvironmentManagedActionResponse' <$>+                   (x .@? "Status") <*> (x .@? "ActionId") <*>+                     (x .@? "ActionDescription")+                     <*> (x .@? "ActionType")+                     <*> (pure (fromEnum s)))++instance Hashable ApplyEnvironmentManagedAction++instance NFData ApplyEnvironmentManagedAction++instance ToHeaders ApplyEnvironmentManagedAction+         where+        toHeaders = const mempty++instance ToPath ApplyEnvironmentManagedAction where+        toPath = const "/"++instance ToQuery ApplyEnvironmentManagedAction where+        toQuery ApplyEnvironmentManagedAction'{..}+          = mconcat+              ["Action" =:+                 ("ApplyEnvironmentManagedAction" :: ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "EnvironmentName" =: _aemaEnvironmentName,+               "EnvironmentId" =: _aemaEnvironmentId,+               "ActionId" =: _aemaActionId]++-- | The result message containing information about the managed action.+--+-- /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)++-- | 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:+--+-- * 'aemarsStatus'+--+-- * 'aemarsActionId'+--+-- * 'aemarsActionDescription'+--+-- * 'aemarsActionType'+--+-- * 'aemarsResponseStatus'+applyEnvironmentManagedActionResponse+    :: Int -- ^ 'aemarsResponseStatus'+    -> ApplyEnvironmentManagedActionResponse+applyEnvironmentManagedActionResponse 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});++-- | The action ID of the managed action.+aemarsActionId :: Lens' ApplyEnvironmentManagedActionResponse (Maybe Text)+aemarsActionId = lens _aemarsActionId (\ s a -> s{_aemarsActionId = a});++-- | A description of the managed action.+aemarsActionDescription :: Lens' ApplyEnvironmentManagedActionResponse (Maybe Text)+aemarsActionDescription = lens _aemarsActionDescription (\ s a -> s{_aemarsActionDescription = a});++-- | The type of managed action.+aemarsActionType :: Lens' ApplyEnvironmentManagedActionResponse (Maybe ActionType)+aemarsActionType = lens _aemarsActionType (\ s a -> s{_aemarsActionType = a});++-- | The response status code.+aemarsResponseStatus :: Lens' ApplyEnvironmentManagedActionResponse Int+aemarsResponseStatus = lens _aemarsResponseStatus (\ s a -> s{_aemarsResponseStatus = a});++instance NFData ApplyEnvironmentManagedActionResponse

@@ -80,6 +80,8 @@  instance Hashable CheckDNSAvailability +instance NFData CheckDNSAvailability+ instance ToHeaders CheckDNSAvailability where         toHeaders = const mempty @@ -136,3 +138,5 @@ -- | The response status code. cdarsResponseStatus :: Lens' CheckDNSAvailabilityResponse Int cdarsResponseStatus = lens _cdarsResponseStatus (\ s a -> s{_cdarsResponseStatus = a});++instance NFData CheckDNSAvailabilityResponse

@@ -50,7 +50,7 @@ import           Network.AWS.Request import           Network.AWS.Response --- |+-- | Request to create or update a group of environments. -- -- /See:/ 'composeEnvironments' smart constructor. data ComposeEnvironments = ComposeEnvironments'@@ -93,7 +93,7 @@ -- | The name of the group to which the target environments belong. Specify a -- group name only if the environment name defined in each target -- environment\'s manifest ends with a + (plus) character. See--- <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/environment-mgmt-compose.html#environment-mgmt-compose-envyaml Environment Manifest (env.yaml)>+-- <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/environment-cfg-manifest.html Environment Manifest (env.yaml)> -- for details. ceGroupName :: Lens' ComposeEnvironments (Maybe Text) ceGroupName = lens _ceGroupName (\ s a -> s{_ceGroupName = a});@@ -107,6 +107,8 @@               (\ s h x -> parseXML x)  instance Hashable ComposeEnvironments++instance NFData ComposeEnvironments  instance ToHeaders ComposeEnvironments where         toHeaders = const mempty

@@ -43,7 +43,7 @@ import           Network.AWS.Request import           Network.AWS.Response --- |+-- | Request to create an application. -- -- /See:/ 'createApplication' smart constructor. data CreateApplication = CreateApplication'@@ -88,6 +88,8 @@               (\ s h x -> parseXML x)  instance Hashable CreateApplication++instance NFData CreateApplication  instance ToHeaders CreateApplication where         toHeaders = const mempty

@@ -155,6 +155,8 @@  instance Hashable CreateApplicationVersion +instance NFData CreateApplicationVersion+ instance ToHeaders CreateApplicationVersion where         toHeaders = const mempty 

@@ -63,7 +63,7 @@ import           Network.AWS.Request import           Network.AWS.Response --- |+-- | Request to create a configuration template. -- -- /See:/ 'createConfigurationTemplate' smart constructor. data CreateConfigurationTemplate = CreateConfigurationTemplate'@@ -182,6 +182,8 @@               (\ s h x -> parseXML x)  instance Hashable CreateConfigurationTemplate++instance NFData CreateConfigurationTemplate  instance ToHeaders CreateConfigurationTemplate where         toHeaders = const mempty

@@ -182,7 +182,7 @@ -- | A unique name for the deployment environment. Used in the application -- URL. ----- Constraint: Must be from 4 to 23 characters in length. The name can+-- 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@@ -208,7 +208,7 @@ -- | 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-mgmt-compose.html#environment-mgmt-compose-envyaml Environment Manifest (env.yaml)>+-- <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/environment-cfg-manifest.html Environment Manifest (env.yaml)> -- for details. cGroupName :: Lens' CreateEnvironment (Maybe Text) cGroupName = lens _cGroupName (\ s a -> s{_cGroupName = a});@@ -236,6 +236,8 @@               (\ s h x -> parseXML x)  instance Hashable CreateEnvironment++instance NFData CreateEnvironment  instance ToHeaders CreateEnvironment where         toHeaders = const mempty

@@ -65,6 +65,8 @@  instance Hashable CreateStorageLocation +instance NFData CreateStorageLocation+ instance ToHeaders CreateStorageLocation where         toHeaders = const mempty @@ -109,3 +111,5 @@ -- | The response status code. cslrsResponseStatus :: Lens' CreateStorageLocationResponse Int cslrsResponseStatus = lens _cslrsResponseStatus (\ s a -> s{_cslrsResponseStatus = a});++instance NFData CreateStorageLocationResponse

@@ -44,7 +44,7 @@ import           Network.AWS.Request import           Network.AWS.Response --- |+-- | Request to delete an application. -- -- /See:/ 'deleteApplication' smart constructor. data DeleteApplication = DeleteApplication'@@ -84,6 +84,8 @@  instance Hashable DeleteApplication +instance NFData DeleteApplication+ instance ToHeaders DeleteApplication where         toHeaders = const mempty @@ -108,3 +110,5 @@ deleteApplicationResponse     :: DeleteApplicationResponse deleteApplicationResponse = DeleteApplicationResponse'++instance NFData DeleteApplicationResponse

@@ -44,7 +44,7 @@ import           Network.AWS.Request import           Network.AWS.Response --- |+-- | Request to delete an application version. -- -- /See:/ 'deleteApplicationVersion' smart constructor. data DeleteApplicationVersion = DeleteApplicationVersion'@@ -101,6 +101,8 @@  instance Hashable DeleteApplicationVersion +instance NFData DeleteApplicationVersion+ instance ToHeaders DeleteApplicationVersion where         toHeaders = const mempty @@ -127,3 +129,5 @@ deleteApplicationVersionResponse     :: DeleteApplicationVersionResponse deleteApplicationVersionResponse = DeleteApplicationVersionResponse'++instance NFData DeleteApplicationVersionResponse

@@ -45,7 +45,7 @@ import           Network.AWS.Request import           Network.AWS.Response --- |+-- | Request to delete a configuration template. -- -- /See:/ 'deleteConfigurationTemplate' smart constructor. data DeleteConfigurationTemplate = DeleteConfigurationTemplate'@@ -87,6 +87,8 @@  instance Hashable DeleteConfigurationTemplate +instance NFData DeleteConfigurationTemplate+ instance ToHeaders DeleteConfigurationTemplate where         toHeaders = const mempty @@ -112,3 +114,5 @@ deleteConfigurationTemplateResponse     :: DeleteConfigurationTemplateResponse deleteConfigurationTemplateResponse = DeleteConfigurationTemplateResponse'++instance NFData DeleteConfigurationTemplateResponse

@@ -47,7 +47,7 @@ import           Network.AWS.Request import           Network.AWS.Response --- |+-- | Request to delete a draft environment configuration. -- -- /See:/ 'deleteEnvironmentConfiguration' smart constructor. data DeleteEnvironmentConfiguration = DeleteEnvironmentConfiguration'@@ -90,6 +90,8 @@  instance Hashable DeleteEnvironmentConfiguration +instance NFData DeleteEnvironmentConfiguration+ instance ToHeaders DeleteEnvironmentConfiguration          where         toHeaders = const mempty@@ -117,3 +119,6 @@     :: DeleteEnvironmentConfigurationResponse deleteEnvironmentConfigurationResponse =     DeleteEnvironmentConfigurationResponse'++instance NFData+         DeleteEnvironmentConfigurationResponse

@@ -26,8 +26,8 @@       describeApplicationVersions     , DescribeApplicationVersions     -- * Request Lenses-    , davsVersionLabels-    , davsApplicationName+    , dVersionLabels+    , dApplicationName      -- * Destructuring the Response     , describeApplicationVersionsResponse@@ -48,34 +48,34 @@ -- -- /See:/ 'describeApplicationVersions' smart constructor. data DescribeApplicationVersions = DescribeApplicationVersions'-    { _davsVersionLabels   :: !(Maybe [Text])-    , _davsApplicationName :: !(Maybe Text)+    { _dVersionLabels   :: !(Maybe [Text])+    , _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: ----- * 'davsVersionLabels'+-- * 'dVersionLabels' ----- * 'davsApplicationName'+-- * 'dApplicationName' describeApplicationVersions     :: DescribeApplicationVersions describeApplicationVersions =     DescribeApplicationVersions'-    { _davsVersionLabels = Nothing-    , _davsApplicationName = Nothing+    { _dVersionLabels = Nothing+    , _dApplicationName = Nothing     }  -- | If specified, restricts the returned descriptions to only include ones -- that have the specified version labels.-davsVersionLabels :: Lens' DescribeApplicationVersions [Text]-davsVersionLabels = lens _davsVersionLabels (\ s a -> s{_davsVersionLabels = a}) . _Default . _Coerce;+dVersionLabels :: Lens' DescribeApplicationVersions [Text]+dVersionLabels = lens _dVersionLabels (\ s a -> s{_dVersionLabels = a}) . _Default . _Coerce;  -- | If specified, AWS Elastic Beanstalk restricts the returned descriptions -- to only include ones that are associated with the specified application.-davsApplicationName :: Lens' DescribeApplicationVersions (Maybe Text)-davsApplicationName = lens _davsApplicationName (\ s a -> s{_davsApplicationName = a});+dApplicationName :: Lens' DescribeApplicationVersions (Maybe Text)+dApplicationName = lens _dApplicationName (\ s a -> s{_dApplicationName = a});  instance AWSRequest DescribeApplicationVersions where         type Rs DescribeApplicationVersions =@@ -92,6 +92,8 @@  instance Hashable DescribeApplicationVersions +instance NFData DescribeApplicationVersions+ instance ToHeaders DescribeApplicationVersions where         toHeaders = const mempty @@ -105,9 +107,8 @@                  ("DescribeApplicationVersions" :: ByteString),                "Version" =: ("2010-12-01" :: ByteString),                "VersionLabels" =:-                 toQuery-                   (toQueryList "member" <$> _davsVersionLabels),-               "ApplicationName" =: _davsApplicationName]+                 toQuery (toQueryList "member" <$> _dVersionLabels),+               "ApplicationName" =: _dApplicationName]  -- | Result message wrapping a list of application version descriptions. --@@ -141,3 +142,5 @@ -- | The response status code. davrsResponseStatus :: Lens' DescribeApplicationVersionsResponse Int davrsResponseStatus = lens _davrsResponseStatus (\ s a -> s{_davrsResponseStatus = a});++instance NFData DescribeApplicationVersionsResponse

@@ -42,7 +42,7 @@ import           Network.AWS.Request import           Network.AWS.Response --- |+-- | Request to describe one or more applications. -- -- /See:/ 'describeApplications' smart constructor. newtype DescribeApplications = DescribeApplications'@@ -80,6 +80,8 @@  instance Hashable DescribeApplications +instance NFData DescribeApplications+ instance ToHeaders DescribeApplications where         toHeaders = const mempty @@ -126,3 +128,5 @@ -- | The response status code. darsResponseStatus :: Lens' DescribeApplicationsResponse Int darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a});++instance NFData DescribeApplicationsResponse

@@ -129,6 +129,8 @@  instance Hashable DescribeConfigurationOptions +instance NFData DescribeConfigurationOptions+ instance ToHeaders DescribeConfigurationOptions where         toHeaders = const mempty @@ -187,3 +189,5 @@ -- | The response status code. dcorsResponseStatus :: Lens' DescribeConfigurationOptionsResponse Int dcorsResponseStatus = lens _dcorsResponseStatus (\ s a -> s{_dcorsResponseStatus = a});++instance NFData DescribeConfigurationOptionsResponse

@@ -124,6 +124,8 @@  instance Hashable DescribeConfigurationSettings +instance NFData DescribeConfigurationSettings+ instance ToHeaders DescribeConfigurationSettings          where         toHeaders = const mempty@@ -173,3 +175,5 @@ -- | The response status code. dcsrsResponseStatus :: Lens' DescribeConfigurationSettingsResponse Int dcsrsResponseStatus = lens _dcsrsResponseStatus (\ s a -> s{_dcsrsResponseStatus = a});++instance NFData DescribeConfigurationSettingsResponse

@@ -123,6 +123,8 @@  instance Hashable DescribeEnvironmentHealth +instance NFData DescribeEnvironmentHealth+ instance ToHeaders DescribeEnvironmentHealth where         toHeaders = const mempty @@ -233,3 +235,5 @@ -- | The response status code. dehrsResponseStatus :: Lens' DescribeEnvironmentHealthResponse Int dehrsResponseStatus = lens _dehrsResponseStatus (\ s a -> s{_dehrsResponseStatus = a});++instance NFData DescribeEnvironmentHealthResponse

@@ -0,0 +1,182 @@+{-# 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.DescribeEnvironmentManagedActionHistory+-- 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)+--+-- Lists an environment\'s completed and failed managed actions.+module Network.AWS.ElasticBeanstalk.DescribeEnvironmentManagedActionHistory+    (+    -- * Creating a Request+      describeEnvironmentManagedActionHistory+    , DescribeEnvironmentManagedActionHistory+    -- * Request Lenses+    , demahNextToken+    , demahEnvironmentName+    , demahMaxItems+    , demahEnvironmentId++    -- * Destructuring the Response+    , describeEnvironmentManagedActionHistoryResponse+    , DescribeEnvironmentManagedActionHistoryResponse+    -- * Response Lenses+    , demahrsManagedActionHistoryItems+    , demahrsNextToken+    , 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++-- | Request to list completed and failed managed actions.+--+-- /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)++-- | 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:+--+-- * 'demahNextToken'+--+-- * 'demahEnvironmentName'+--+-- * 'demahMaxItems'+--+-- * 'demahEnvironmentId'+describeEnvironmentManagedActionHistory+    :: DescribeEnvironmentManagedActionHistory+describeEnvironmentManagedActionHistory =+    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});++-- | The name of the target environment.+demahEnvironmentName :: Lens' DescribeEnvironmentManagedActionHistory (Maybe Text)+demahEnvironmentName = lens _demahEnvironmentName (\ s a -> s{_demahEnvironmentName = a});++-- | The maximum number of items to return for a single request.+demahMaxItems :: Lens' DescribeEnvironmentManagedActionHistory (Maybe Int)+demahMaxItems = lens _demahMaxItems (\ s a -> s{_demahMaxItems = a});++-- | The environment ID of the target environment.+demahEnvironmentId :: Lens' DescribeEnvironmentManagedActionHistory (Maybe Text)+demahEnvironmentId = lens _demahEnvironmentId (\ s a -> s{_demahEnvironmentId = a});++instance AWSRequest+         DescribeEnvironmentManagedActionHistory where+        type Rs DescribeEnvironmentManagedActionHistory =+             DescribeEnvironmentManagedActionHistoryResponse+        request = postQuery elasticBeanstalk+        response+          = receiveXMLWrapper+              "DescribeEnvironmentManagedActionHistoryResult"+              (\ s h x ->+                 DescribeEnvironmentManagedActionHistoryResponse' <$>+                   (x .@? "ManagedActionHistoryItems" .!@ mempty >>=+                      may (parseXMLList1 "member"))+                     <*> (x .@? "NextToken")+                     <*> (pure (fromEnum s)))++instance Hashable+         DescribeEnvironmentManagedActionHistory++instance NFData+         DescribeEnvironmentManagedActionHistory++instance ToHeaders+         DescribeEnvironmentManagedActionHistory where+        toHeaders = const mempty++instance ToPath+         DescribeEnvironmentManagedActionHistory where+        toPath = const "/"++instance ToQuery+         DescribeEnvironmentManagedActionHistory where+        toQuery DescribeEnvironmentManagedActionHistory'{..}+          = mconcat+              ["Action" =:+                 ("DescribeEnvironmentManagedActionHistory" ::+                    ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "NextToken" =: _demahNextToken,+               "EnvironmentName" =: _demahEnvironmentName,+               "MaxItems" =: _demahMaxItems,+               "EnvironmentId" =: _demahEnvironmentId]++-- | A result message containing a list of completed and failed managed+-- actions.+--+-- /See:/ 'describeEnvironmentManagedActionHistoryResponse' smart constructor.+data DescribeEnvironmentManagedActionHistoryResponse = DescribeEnvironmentManagedActionHistoryResponse'+    { _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:+--+-- * 'demahrsManagedActionHistoryItems'+--+-- * 'demahrsNextToken'+--+-- * 'demahrsResponseStatus'+describeEnvironmentManagedActionHistoryResponse+    :: Int -- ^ 'demahrsResponseStatus'+    -> DescribeEnvironmentManagedActionHistoryResponse+describeEnvironmentManagedActionHistoryResponse 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;++-- | A pagination token that you pass to+-- < DescribeEnvironmentManagedActionHistory> to get the next page of+-- results.+demahrsNextToken :: Lens' DescribeEnvironmentManagedActionHistoryResponse (Maybe Text)+demahrsNextToken = lens _demahrsNextToken (\ s a -> s{_demahrsNextToken = a});++-- | The response status code.+demahrsResponseStatus :: Lens' DescribeEnvironmentManagedActionHistoryResponse Int+demahrsResponseStatus = lens _demahrsResponseStatus (\ s a -> s{_demahrsResponseStatus = a});++instance NFData+         DescribeEnvironmentManagedActionHistoryResponse

@@ -0,0 +1,157 @@+{-# 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.DescribeEnvironmentManagedActions+-- 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)+--+-- Lists an environment\'s upcoming and in-progress managed actions.+module Network.AWS.ElasticBeanstalk.DescribeEnvironmentManagedActions+    (+    -- * Creating a Request+      describeEnvironmentManagedActions+    , DescribeEnvironmentManagedActions+    -- * Request Lenses+    , demaStatus+    , demaEnvironmentName+    , demaEnvironmentId++    -- * Destructuring the Response+    , describeEnvironmentManagedActionsResponse+    , DescribeEnvironmentManagedActionsResponse+    -- * Response Lenses+    , demarsManagedActions+    , 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++-- | Request to list an environment\'s upcoming and in-progress managed+-- actions.+--+-- /See:/ 'describeEnvironmentManagedActions' smart constructor.+data DescribeEnvironmentManagedActions = DescribeEnvironmentManagedActions'+    { _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:+--+-- * 'demaStatus'+--+-- * 'demaEnvironmentName'+--+-- * 'demaEnvironmentId'+describeEnvironmentManagedActions+    :: DescribeEnvironmentManagedActions+describeEnvironmentManagedActions =+    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});++-- | The name of the target environment.+demaEnvironmentName :: Lens' DescribeEnvironmentManagedActions (Maybe Text)+demaEnvironmentName = lens _demaEnvironmentName (\ s a -> s{_demaEnvironmentName = a});++-- | The environment ID of the target environment.+demaEnvironmentId :: Lens' DescribeEnvironmentManagedActions (Maybe Text)+demaEnvironmentId = lens _demaEnvironmentId (\ s a -> s{_demaEnvironmentId = a});++instance AWSRequest DescribeEnvironmentManagedActions+         where+        type Rs DescribeEnvironmentManagedActions =+             DescribeEnvironmentManagedActionsResponse+        request = postQuery elasticBeanstalk+        response+          = receiveXMLWrapper+              "DescribeEnvironmentManagedActionsResult"+              (\ s h x ->+                 DescribeEnvironmentManagedActionsResponse' <$>+                   (x .@? "ManagedActions" .!@ mempty >>=+                      may (parseXMLList1 "member"))+                     <*> (pure (fromEnum s)))++instance Hashable DescribeEnvironmentManagedActions++instance NFData DescribeEnvironmentManagedActions++instance ToHeaders DescribeEnvironmentManagedActions+         where+        toHeaders = const mempty++instance ToPath DescribeEnvironmentManagedActions+         where+        toPath = const "/"++instance ToQuery DescribeEnvironmentManagedActions+         where+        toQuery DescribeEnvironmentManagedActions'{..}+          = mconcat+              ["Action" =:+                 ("DescribeEnvironmentManagedActions" :: ByteString),+               "Version" =: ("2010-12-01" :: ByteString),+               "Status" =: _demaStatus,+               "EnvironmentName" =: _demaEnvironmentName,+               "EnvironmentId" =: _demaEnvironmentId]++-- | The result message containing a list of managed actions.+--+-- /See:/ 'describeEnvironmentManagedActionsResponse' smart constructor.+data DescribeEnvironmentManagedActionsResponse = DescribeEnvironmentManagedActionsResponse'+    { _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:+--+-- * 'demarsManagedActions'+--+-- * 'demarsResponseStatus'+describeEnvironmentManagedActionsResponse+    :: Int -- ^ 'demarsResponseStatus'+    -> DescribeEnvironmentManagedActionsResponse+describeEnvironmentManagedActionsResponse 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;++-- | The response status code.+demarsResponseStatus :: Lens' DescribeEnvironmentManagedActionsResponse Int+demarsResponseStatus = lens _demarsResponseStatus (\ s a -> s{_demarsResponseStatus = a});++instance NFData+         DescribeEnvironmentManagedActionsResponse

@@ -43,7 +43,7 @@ import           Network.AWS.Request import           Network.AWS.Response --- |+-- | Request to describe the resources in an environment. -- -- /See:/ 'describeEnvironmentResources' smart constructor. data DescribeEnvironmentResources = DescribeEnvironmentResources'@@ -97,6 +97,8 @@  instance Hashable DescribeEnvironmentResources +instance NFData DescribeEnvironmentResources+ instance ToHeaders DescribeEnvironmentResources where         toHeaders = const mempty @@ -143,3 +145,5 @@ -- | The response status code. derrsResponseStatus :: Lens' DescribeEnvironmentResourcesResponse Int derrsResponseStatus = lens _derrsResponseStatus (\ s a -> s{_derrsResponseStatus = a});++instance NFData DescribeEnvironmentResourcesResponse

@@ -25,12 +25,12 @@       describeEnvironments     , DescribeEnvironments     -- * Request Lenses-    , dEnvironmentIds-    , dEnvironmentNames-    , dVersionLabel-    , dApplicationName-    , dIncludedDeletedBackTo-    , dIncludeDeleted+    , desEnvironmentIds+    , desEnvironmentNames+    , desVersionLabel+    , desApplicationName+    , desIncludedDeletedBackTo+    , desIncludeDeleted      -- * Destructuring the Response     , environmentDescriptionsMessage@@ -46,69 +46,69 @@ import           Network.AWS.Request import           Network.AWS.Response --- |+-- | Request to describe one or more environments. -- -- /See:/ 'describeEnvironments' smart constructor. data DescribeEnvironments = DescribeEnvironments'-    { _dEnvironmentIds        :: !(Maybe [Text])-    , _dEnvironmentNames      :: !(Maybe [Text])-    , _dVersionLabel          :: !(Maybe Text)-    , _dApplicationName       :: !(Maybe Text)-    , _dIncludedDeletedBackTo :: !(Maybe ISO8601)-    , _dIncludeDeleted        :: !(Maybe Bool)+    { _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)  -- | 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: ----- * 'dEnvironmentIds'+-- * 'desEnvironmentIds' ----- * 'dEnvironmentNames'+-- * 'desEnvironmentNames' ----- * 'dVersionLabel'+-- * 'desVersionLabel' ----- * 'dApplicationName'+-- * 'desApplicationName' ----- * 'dIncludedDeletedBackTo'+-- * 'desIncludedDeletedBackTo' ----- * 'dIncludeDeleted'+-- * 'desIncludeDeleted' describeEnvironments     :: DescribeEnvironments describeEnvironments =     DescribeEnvironments'-    { _dEnvironmentIds = Nothing-    , _dEnvironmentNames = Nothing-    , _dVersionLabel = Nothing-    , _dApplicationName = Nothing-    , _dIncludedDeletedBackTo = Nothing-    , _dIncludeDeleted = Nothing+    { _desEnvironmentIds = Nothing+    , _desEnvironmentNames = Nothing+    , _desVersionLabel = 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.-dEnvironmentIds :: Lens' DescribeEnvironments [Text]-dEnvironmentIds = lens _dEnvironmentIds (\ s a -> s{_dEnvironmentIds = a}) . _Default . _Coerce;+desEnvironmentIds :: Lens' DescribeEnvironments [Text]+desEnvironmentIds = lens _desEnvironmentIds (\ s a -> s{_desEnvironmentIds = a}) . _Default . _Coerce;  -- | If specified, AWS Elastic Beanstalk restricts the returned descriptions -- to include only those that have the specified names.-dEnvironmentNames :: Lens' DescribeEnvironments [Text]-dEnvironmentNames = lens _dEnvironmentNames (\ s a -> s{_dEnvironmentNames = a}) . _Default . _Coerce;+desEnvironmentNames :: Lens' DescribeEnvironments [Text]+desEnvironmentNames = lens _desEnvironmentNames (\ s a -> s{_desEnvironmentNames = a}) . _Default . _Coerce;  -- | If specified, AWS Elastic Beanstalk restricts the returned descriptions -- to include only those that are associated with this application version.-dVersionLabel :: Lens' DescribeEnvironments (Maybe Text)-dVersionLabel = lens _dVersionLabel (\ s a -> s{_dVersionLabel = a});+desVersionLabel :: Lens' DescribeEnvironments (Maybe Text)+desVersionLabel = lens _desVersionLabel (\ s a -> s{_desVersionLabel = a});  -- | If specified, AWS Elastic Beanstalk restricts the returned descriptions -- to include only those that are associated with this application.-dApplicationName :: Lens' DescribeEnvironments (Maybe Text)-dApplicationName = lens _dApplicationName (\ s a -> s{_dApplicationName = a});+desApplicationName :: Lens' DescribeEnvironments (Maybe Text)+desApplicationName = lens _desApplicationName (\ s a -> s{_desApplicationName = a});  -- | If specified when 'IncludeDeleted' is set to 'true', then environments -- deleted after this date are displayed.-dIncludedDeletedBackTo :: Lens' DescribeEnvironments (Maybe UTCTime)-dIncludedDeletedBackTo = lens _dIncludedDeletedBackTo (\ s a -> s{_dIncludedDeletedBackTo = a}) . mapping _Time;+desIncludedDeletedBackTo :: Lens' DescribeEnvironments (Maybe UTCTime)+desIncludedDeletedBackTo = lens _desIncludedDeletedBackTo (\ s a -> s{_desIncludedDeletedBackTo = a}) . mapping _Time;  -- | Indicates whether to include deleted environments: --@@ -116,8 +116,8 @@ -- 'IncludedDeletedBackTo' are displayed. -- -- 'false': Do not include deleted environments.-dIncludeDeleted :: Lens' DescribeEnvironments (Maybe Bool)-dIncludeDeleted = lens _dIncludeDeleted (\ s a -> s{_dIncludeDeleted = a});+desIncludeDeleted :: Lens' DescribeEnvironments (Maybe Bool)+desIncludeDeleted = lens _desIncludeDeleted (\ s a -> s{_desIncludeDeleted = a});  instance AWSRequest DescribeEnvironments where         type Rs DescribeEnvironments =@@ -129,6 +129,8 @@  instance Hashable DescribeEnvironments +instance NFData DescribeEnvironments+ instance ToHeaders DescribeEnvironments where         toHeaders = const mempty @@ -141,11 +143,12 @@               ["Action" =: ("DescribeEnvironments" :: ByteString),                "Version" =: ("2010-12-01" :: ByteString),                "EnvironmentIds" =:-                 toQuery (toQueryList "member" <$> _dEnvironmentIds),+                 toQuery+                   (toQueryList "member" <$> _desEnvironmentIds),                "EnvironmentNames" =:                  toQuery-                   (toQueryList "member" <$> _dEnvironmentNames),-               "VersionLabel" =: _dVersionLabel,-               "ApplicationName" =: _dApplicationName,-               "IncludedDeletedBackTo" =: _dIncludedDeletedBackTo,-               "IncludeDeleted" =: _dIncludeDeleted]+                   (toQueryList "member" <$> _desEnvironmentNames),+               "VersionLabel" =: _desVersionLabel,+               "ApplicationName" =: _desApplicationName,+               "IncludedDeletedBackTo" =: _desIncludedDeletedBackTo,+               "IncludeDeleted" =: _desIncludeDeleted]

@@ -60,7 +60,7 @@ import           Network.AWS.Request import           Network.AWS.Response --- |+-- | Request to retrieve a list of events for an environment. -- -- /See:/ 'describeEvents' smart constructor. data DescribeEvents = DescribeEvents'@@ -195,6 +195,8 @@  instance Hashable DescribeEvents +instance NFData DescribeEvents+ instance ToHeaders DescribeEvents where         toHeaders = const mempty @@ -259,3 +261,5 @@ -- | The response status code. dersResponseStatus :: Lens' DescribeEventsResponse Int dersResponseStatus = lens _dersResponseStatus (\ s a -> s{_dersResponseStatus = a});++instance NFData DescribeEventsResponse

@@ -115,6 +115,8 @@  instance Hashable DescribeInstancesHealth +instance NFData DescribeInstancesHealth+ instance ToHeaders DescribeInstancesHealth where         toHeaders = const mempty @@ -182,3 +184,5 @@ -- | The response status code. dihrsResponseStatus :: Lens' DescribeInstancesHealthResponse Int dihrsResponseStatus = lens _dihrsResponseStatus (\ s a -> s{_dihrsResponseStatus = a});++instance NFData DescribeInstancesHealthResponse

@@ -70,6 +70,8 @@  instance Hashable ListAvailableSolutionStacks +instance NFData ListAvailableSolutionStacks+ instance ToHeaders ListAvailableSolutionStacks where         toHeaders = const mempty @@ -124,3 +126,5 @@ -- | The response status code. lassrsResponseStatus :: Lens' ListAvailableSolutionStacksResponse Int lassrsResponseStatus = lens _lassrsResponseStatus (\ s a -> s{_lassrsResponseStatus = a});++instance NFData ListAvailableSolutionStacksResponse

@@ -89,6 +89,8 @@  instance Hashable RebuildEnvironment +instance NFData RebuildEnvironment+ instance ToHeaders RebuildEnvironment where         toHeaders = const mempty @@ -113,3 +115,5 @@ rebuildEnvironmentResponse     :: RebuildEnvironmentResponse rebuildEnvironmentResponse = RebuildEnvironmentResponse'++instance NFData RebuildEnvironmentResponse

@@ -56,7 +56,8 @@ import           Network.AWS.Request import           Network.AWS.Response --- |+-- | Request to retrieve logs from an environment and store them in your+-- Elastic Beanstalk storage bucket. -- -- /See:/ 'requestEnvironmentInfo' smart constructor. data RequestEnvironmentInfo = RequestEnvironmentInfo'@@ -119,6 +120,8 @@  instance Hashable RequestEnvironmentInfo +instance NFData RequestEnvironmentInfo+ instance ToHeaders RequestEnvironmentInfo where         toHeaders = const mempty @@ -145,3 +148,5 @@ requestEnvironmentInfoResponse     :: RequestEnvironmentInfoResponse requestEnvironmentInfoResponse = RequestEnvironmentInfoResponse'++instance NFData RequestEnvironmentInfoResponse

@@ -87,6 +87,8 @@  instance Hashable RestartAppServer +instance NFData RestartAppServer+ instance ToHeaders RestartAppServer where         toHeaders = const mempty @@ -111,3 +113,5 @@ restartAppServerResponse     :: RestartAppServerResponse restartAppServerResponse = RestartAppServerResponse'++instance NFData RestartAppServerResponse

@@ -49,7 +49,7 @@ import           Network.AWS.Request import           Network.AWS.Response --- |+-- | Request to download logs retrieved with < RequestEnvironmentInfo>. -- -- /See:/ 'retrieveEnvironmentInfo' smart constructor. data RetrieveEnvironmentInfo = RetrieveEnvironmentInfo'@@ -117,6 +117,8 @@  instance Hashable RetrieveEnvironmentInfo +instance NFData RetrieveEnvironmentInfo+ instance ToHeaders RetrieveEnvironmentInfo where         toHeaders = const mempty @@ -165,3 +167,5 @@ -- | The response status code. reirsResponseStatus :: Lens' RetrieveEnvironmentInfoResponse Int reirsResponseStatus = lens _reirsResponseStatus (\ s a -> s{_reirsResponseStatus = a});++instance NFData RetrieveEnvironmentInfoResponse

@@ -115,6 +115,8 @@  instance Hashable SwapEnvironmentCNAMEs +instance NFData SwapEnvironmentCNAMEs+ instance ToHeaders SwapEnvironmentCNAMEs where         toHeaders = const mempty @@ -144,3 +146,5 @@ swapEnvironmentCNAMEsResponse     :: SwapEnvironmentCNAMEsResponse swapEnvironmentCNAMEsResponse = SwapEnvironmentCNAMEsResponse'++instance NFData SwapEnvironmentCNAMEsResponse

@@ -61,7 +61,7 @@ import           Network.AWS.Request import           Network.AWS.Response --- |+-- | Request to terminate an environment. -- -- /See:/ 'terminateEnvironment' smart constructor. data TerminateEnvironment = TerminateEnvironment'@@ -139,6 +139,8 @@               (\ s h x -> parseXML x)  instance Hashable TerminateEnvironment++instance NFData TerminateEnvironment  instance ToHeaders TerminateEnvironment where         toHeaders = const mempty

@@ -25,10 +25,20 @@     , _InsufficientPrivilegesException     , _ElasticBeanstalkServiceException     , _TooManyApplicationsException+    , _ManagedActionInvalidStateException     , _SourceBundleDeletionException     , _S3LocationNotInServiceRegionException     , _TooManyEnvironmentsException +    -- * ActionHistoryStatus+    , ActionHistoryStatus (..)++    -- * ActionStatus+    , ActionStatus (..)++    -- * ActionType+    , ActionType (..)+     -- * ApplicationVersionStatus     , ApplicationVersionStatus (..) @@ -56,6 +66,9 @@     -- * EventSeverity     , EventSeverity (..) +    -- * FailureType+    , FailureType (..)+     -- * InstancesHealthAttribute     , InstancesHealthAttribute (..) @@ -153,6 +166,14 @@     , csdSolutionStackName     , csdDescription +    -- * Deployment+    , Deployment+    , deployment+    , dDeploymentId+    , dStatus+    , dDeploymentTime+    , dVersionLabel+     -- * EnvironmentDescription     , EnvironmentDescription     , environmentDescription@@ -281,6 +302,27 @@     , lbdDomain     , lbdListeners +    -- * ManagedAction+    , ManagedAction+    , managedAction+    , maStatus+    , maActionId+    , maWindowStartTime+    , maActionDescription+    , maActionType++    -- * ManagedActionHistoryItem+    , ManagedActionHistoryItem+    , managedActionHistoryItem+    , mahiStatus+    , mahiFailureType+    , mahiActionId+    , mahiFailureDescription+    , mahiFinishedTime+    , mahiActionDescription+    , mahiExecutedTime+    , mahiActionType+     -- * OptionRestrictionRegex     , OptionRestrictionRegex     , optionRestrictionRegex@@ -314,7 +356,10 @@     , sihSystem     , sihApplicationMetrics     , sihColor+    , sihInstanceType+    , sihAvailabilityZone     , sihHealthStatus+    , sihDeployment     , sihLaunchedAt      -- * SolutionStackDescription@@ -396,6 +441,8 @@       | has (hasCode "ThrottlingException" . hasStatus 400) e =           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"       | has (hasStatus 503) e = Just "service_unavailable"       | has (hasStatus 500) e = Just "general_server_error"       | has (hasStatus 509) e = Just "limit_exceeded"@@ -449,6 +496,12 @@ _TooManyApplicationsException :: AsError a => Getting (First ServiceError) a ServiceError _TooManyApplicationsException =     _ServiceError . hasStatus 400 . hasCode "TooManyApplicationsException"++-- | Cannot modify the managed action in its current state.+_ManagedActionInvalidStateException :: AsError a => Getting (First ServiceError) a ServiceError+_ManagedActionInvalidStateException =+    _ServiceError .+    hasStatus 400 . hasCode "ManagedActionInvalidStateException"  -- | Unable to delete the Amazon S3 source bundle associated with the -- application version. The application version was deleted successfully.

@@ -100,6 +100,8 @@  instance Hashable ApplicationDescription +instance NFData ApplicationDescription+ -- | Result message containing a single description of an application. -- -- /See:/ 'applicationDescriptionMessage' smart constructor.@@ -130,6 +132,8 @@  instance Hashable ApplicationDescriptionMessage +instance NFData ApplicationDescriptionMessage+ -- | Represents the application metrics for a specified environment. -- -- /See:/ 'applicationMetrics' smart constructor.@@ -192,6 +196,8 @@  instance Hashable ApplicationMetrics +instance NFData ApplicationMetrics+ -- | Describes the properties of an application version. -- -- /See:/ 'applicationVersionDescription' smart constructor.@@ -275,6 +281,8 @@  instance Hashable ApplicationVersionDescription +instance NFData ApplicationVersionDescription+ -- | Result message wrapping a single description of an application version. -- -- /See:/ 'applicationVersionDescriptionMessage' smart constructor.@@ -307,6 +315,8 @@ instance Hashable          ApplicationVersionDescriptionMessage +instance NFData ApplicationVersionDescriptionMessage+ -- | Describes an Auto Scaling launch configuration. -- -- /See:/ 'autoScalingGroup' smart constructor.@@ -335,6 +345,8 @@  instance Hashable AutoScalingGroup +instance NFData AutoScalingGroup+ -- | Represents CPU utilization information from the specified instance that -- belongs to the AWS Elastic Beanstalk environment. Use the 'instanceId' -- property to specify the application instance for which you\'d like to@@ -428,6 +440,8 @@  instance Hashable CPUUtilization +instance NFData CPUUtilization+ -- | Describes the possible values for a configuration option. -- -- /See:/ 'configurationOptionDescription' smart constructor.@@ -586,6 +600,8 @@  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>@@ -645,6 +661,8 @@  instance Hashable ConfigurationOptionSetting +instance NFData ConfigurationOptionSetting+ instance ToQuery ConfigurationOptionSetting where         toQuery ConfigurationOptionSetting'{..}           = mconcat@@ -769,6 +787,73 @@  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'+--+-- * 'dStatus'+--+-- * 'dDeploymentTime'+--+-- * 'dVersionLabel'+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.@@ -984,6 +1069,8 @@  instance Hashable EnvironmentDescription +instance NFData EnvironmentDescription+ -- | Result message containing a list of environment descriptions. -- -- /See:/ 'environmentDescriptionsMessage' smart constructor.@@ -1015,6 +1102,8 @@  instance Hashable EnvironmentDescriptionsMessage +instance NFData EnvironmentDescriptionsMessage+ -- | The information retrieved from the Amazon EC2 instances. -- -- /See:/ 'environmentInfoDescription' smart constructor.@@ -1071,10 +1160,12 @@  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-mgmt-compose.html#environment-mgmt-compose-envyaml Environment Manifest (env.yaml)>+-- <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/environment-cfg-manifest.html Environment Manifest (env.yaml)> -- for details. -- -- /See:/ 'environmentLink' smart constructor.@@ -1113,6 +1204,8 @@  instance Hashable EnvironmentLink +instance NFData EnvironmentLink+ -- | Describes the AWS resources in use by this environment. This data is -- live. --@@ -1209,6 +1302,8 @@  instance Hashable EnvironmentResourceDescription +instance NFData EnvironmentResourceDescription+ -- | Describes the AWS resources in use by this environment. This data is not -- live data. --@@ -1241,6 +1336,8 @@  instance Hashable EnvironmentResourcesDescription +instance NFData EnvironmentResourcesDescription+ -- | Describes the properties of an environment tier -- -- /See:/ 'environmentTier' smart constructor.@@ -1288,6 +1385,8 @@  instance Hashable EnvironmentTier +instance NFData EnvironmentTier+ instance ToQuery EnvironmentTier where         toQuery EnvironmentTier'{..}           = mconcat@@ -1387,6 +1486,8 @@  instance Hashable EventDescription +instance NFData EventDescription+ -- | The description of an Amazon EC2 instance. -- -- /See:/ 'instance'' smart constructor.@@ -1415,6 +1516,8 @@  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>.@@ -1516,6 +1619,8 @@  instance Hashable InstanceHealthSummary +instance NFData InstanceHealthSummary+ -- | Represents the average latency for the slowest X percent of requests -- over the last 10 seconds. --@@ -1616,6 +1721,8 @@  instance Hashable Latency +instance NFData Latency+ -- | Describes an Auto Scaling launch configuration. -- -- /See:/ 'launchConfiguration' smart constructor.@@ -1644,6 +1751,8 @@  instance Hashable LaunchConfiguration +instance NFData LaunchConfiguration+ -- | Describes the properties of a Listener for the LoadBalancer. -- -- /See:/ 'listener' smart constructor.@@ -1681,6 +1790,8 @@  instance Hashable Listener +instance NFData Listener+ -- | Describes a LoadBalancer. -- -- /See:/ 'loadBalancer' smart constructor.@@ -1709,6 +1820,8 @@  instance Hashable LoadBalancer +instance NFData LoadBalancer+ -- | Describes the details of a LoadBalancer. -- -- /See:/ 'loadBalancerDescription' smart constructor.@@ -1757,6 +1870,171 @@  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'+--+-- * 'maActionId'+--+-- * 'maWindowStartTime'+--+-- * 'maActionDescription'+--+-- * 'maActionType'+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'+--+-- * 'mahiFailureType'+--+-- * 'mahiActionId'+--+-- * 'mahiFailureDescription'+--+-- * 'mahiFinishedTime'+--+-- * 'mahiActionDescription'+--+-- * 'mahiExecutedTime'+--+-- * 'mahiActionType'+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. --@@ -1797,6 +2075,8 @@  instance Hashable OptionRestrictionRegex +instance NFData OptionRestrictionRegex+ -- | A specification identifying an individual configuration option. -- -- /See:/ 'optionSpecification' smart constructor.@@ -1838,6 +2118,8 @@  instance Hashable OptionSpecification +instance NFData OptionSpecification+ instance ToQuery OptionSpecification where         toQuery OptionSpecification'{..}           = mconcat@@ -1882,6 +2164,8 @@  instance Hashable Queue +instance NFData Queue+ -- | A specification of a location in Amazon S3. -- -- /See:/ 's3Location' smart constructor.@@ -1920,6 +2204,8 @@  instance Hashable S3Location +instance NFData S3Location+ instance ToQuery S3Location where         toQuery S3Location'{..}           = mconcat@@ -1937,7 +2223,10 @@     , _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) @@ -1955,8 +2244,14 @@ -- -- * 'sihColor' --+-- * 'sihInstanceType'+--+-- * 'sihAvailabilityZone'+-- -- * 'sihHealthStatus' --+-- * 'sihDeployment'+-- -- * 'sihLaunchedAt' singleInstanceHealth     :: SingleInstanceHealth@@ -1967,7 +2262,10 @@     , _sihSystem = Nothing     , _sihApplicationMetrics = Nothing     , _sihColor = Nothing+    , _sihInstanceType = Nothing+    , _sihAvailabilityZone = Nothing     , _sihHealthStatus = Nothing+    , _sihDeployment = Nothing     , _sihLaunchedAt = Nothing     } @@ -1994,12 +2292,24 @@ 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;@@ -2013,11 +2323,16 @@                 <*> (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.@@ -2058,6 +2373,8 @@  instance Hashable SolutionStackDescription +instance NFData SolutionStackDescription+ -- | A specification for an environment configuration -- -- /See:/ 'sourceConfiguration' smart constructor.@@ -2091,6 +2408,8 @@  instance Hashable SourceConfiguration +instance NFData SourceConfiguration+ instance ToQuery SourceConfiguration where         toQuery SourceConfiguration'{..}           = mconcat@@ -2159,6 +2478,8 @@  instance Hashable StatusCodes +instance NFData StatusCodes+ -- | Represents CPU utilization and load average information for applications -- running in the specified environment. --@@ -2202,6 +2523,8 @@  instance Hashable SystemStatus +instance NFData SystemStatus+ -- | Describes a tag applied to a resource in an environment. -- -- /See:/ 'tag' smart constructor.@@ -2235,6 +2558,8 @@  instance Hashable Tag +instance NFData Tag+ instance ToQuery Tag where         toQuery Tag'{..}           = mconcat ["Value" =: _tagValue, "Key" =: _tagKey]@@ -2267,6 +2592,8 @@  instance Hashable Trigger +instance NFData Trigger+ -- | An error or warning for a desired configuration option value. -- -- /See:/ 'validationMessage' smart constructor.@@ -2327,3 +2654,5 @@                 <*> (x .@? "Message")  instance Hashable ValidationMessage++instance NFData ValidationMessage

@@ -19,30 +19,121 @@  import           Network.AWS.Prelude +data ActionHistoryStatus+    = Completed+    | Failed+    | Unknown+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)++instance FromText ActionHistoryStatus where+    parser = takeLowerText >>= \case+        "completed" -> pure Completed+        "failed" -> pure Failed+        "unknown" -> pure Unknown+        e -> fromTextError $ "Failure parsing ActionHistoryStatus from value: '" <> e+           <> "'. Accepted values: Completed, Failed, Unknown"++instance ToText ActionHistoryStatus where+    toText = \case+        Completed -> "Completed"+        Failed -> "Failed"+        Unknown -> "Unknown"++instance Hashable     ActionHistoryStatus+instance NFData       ActionHistoryStatus+instance ToByteString ActionHistoryStatus+instance ToQuery      ActionHistoryStatus+instance ToHeader     ActionHistoryStatus++instance FromXML ActionHistoryStatus where+    parseXML = parseXMLText "ActionHistoryStatus"++data ActionStatus+    = ASPending+    | ASRunning+    | ASScheduled+    | ASUnknown+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)++instance FromText ActionStatus where+    parser = takeLowerText >>= \case+        "pending" -> pure ASPending+        "running" -> pure ASRunning+        "scheduled" -> pure ASScheduled+        "unknown" -> pure ASUnknown+        e -> fromTextError $ "Failure parsing ActionStatus from value: '" <> e+           <> "'. Accepted values: Pending, Running, Scheduled, Unknown"++instance ToText ActionStatus where+    toText = \case+        ASPending -> "Pending"+        ASRunning -> "Running"+        ASScheduled -> "Scheduled"+        ASUnknown -> "Unknown"++instance Hashable     ActionStatus+instance NFData       ActionStatus+instance ToByteString ActionStatus+instance ToQuery      ActionStatus+instance ToHeader     ActionStatus++instance FromXML ActionStatus where+    parseXML = parseXMLText "ActionStatus"++data ActionType+    = ATInstanceRefresh+    | ATPlatformUpdate+    | ATUnknown+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)++instance FromText ActionType where+    parser = takeLowerText >>= \case+        "instancerefresh" -> pure ATInstanceRefresh+        "platformupdate" -> pure ATPlatformUpdate+        "unknown" -> pure ATUnknown+        e -> fromTextError $ "Failure parsing ActionType from value: '" <> e+           <> "'. Accepted values: InstanceRefresh, PlatformUpdate, Unknown"++instance ToText ActionType where+    toText = \case+        ATInstanceRefresh -> "InstanceRefresh"+        ATPlatformUpdate -> "PlatformUpdate"+        ATUnknown -> "Unknown"++instance Hashable     ActionType+instance NFData       ActionType+instance ToByteString ActionType+instance ToQuery      ActionType+instance ToHeader     ActionType++instance FromXML ActionType where+    parseXML = parseXMLText "ActionType"+ data ApplicationVersionStatus-    = Failed-    | Processed-    | Processing-    | Unprocessed+    = AVSFailed+    | AVSProcessed+    | AVSProcessing+    | AVSUnprocessed     deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText ApplicationVersionStatus where     parser = takeLowerText >>= \case-        "failed" -> pure Failed-        "processed" -> pure Processed-        "processing" -> pure Processing-        "unprocessed" -> pure Unprocessed+        "failed" -> pure AVSFailed+        "processed" -> pure AVSProcessed+        "processing" -> pure AVSProcessing+        "unprocessed" -> pure AVSUnprocessed         e -> fromTextError $ "Failure parsing ApplicationVersionStatus from value: '" <> e            <> "'. Accepted values: Failed, Processed, Processing, Unprocessed"  instance ToText ApplicationVersionStatus where     toText = \case-        Failed -> "Failed"-        Processed -> "Processed"-        Processing -> "Processing"-        Unprocessed -> "Unprocessed"+        AVSFailed -> "Failed"+        AVSProcessed -> "Processed"+        AVSProcessing -> "Processing"+        AVSUnprocessed -> "Unprocessed"  instance Hashable     ApplicationVersionStatus+instance NFData       ApplicationVersionStatus instance ToByteString ApplicationVersionStatus instance ToQuery      ApplicationVersionStatus instance ToHeader     ApplicationVersionStatus@@ -71,6 +162,7 @@         CDSPending -> "pending"  instance Hashable     ConfigurationDeploymentStatus+instance NFData       ConfigurationDeploymentStatus instance ToByteString ConfigurationDeploymentStatus instance ToQuery      ConfigurationDeploymentStatus instance ToHeader     ConfigurationDeploymentStatus@@ -96,6 +188,7 @@         Scalar -> "Scalar"  instance Hashable     ConfigurationOptionValueType+instance NFData       ConfigurationOptionValueType instance ToByteString ConfigurationOptionValueType instance ToQuery      ConfigurationOptionValueType instance ToHeader     ConfigurationOptionValueType@@ -127,6 +220,7 @@         Yellow -> "Yellow"  instance Hashable     EnvironmentHealth+instance NFData       EnvironmentHealth instance ToByteString EnvironmentHealth instance ToQuery      EnvironmentHealth instance ToHeader     EnvironmentHealth@@ -170,46 +264,48 @@         EHAStatus -> "Status"  instance Hashable     EnvironmentHealthAttribute+instance NFData       EnvironmentHealthAttribute instance ToByteString EnvironmentHealthAttribute instance ToQuery      EnvironmentHealthAttribute instance ToHeader     EnvironmentHealthAttribute  data EnvironmentHealthStatus-    = Degraded-    | Info-    | NoData-    | OK-    | Pending-    | Severe-    | Unknown-    | Warning+    = EHSDegraded+    | EHSInfo+    | EHSNoData+    | EHSOK+    | EHSPending+    | EHSSevere+    | EHSUnknown+    | EHSWarning     deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText EnvironmentHealthStatus where     parser = takeLowerText >>= \case-        "degraded" -> pure Degraded-        "info" -> pure Info-        "nodata" -> pure NoData-        "ok" -> pure OK-        "pending" -> pure Pending-        "severe" -> pure Severe-        "unknown" -> pure Unknown-        "warning" -> pure Warning+        "degraded" -> pure EHSDegraded+        "info" -> pure EHSInfo+        "nodata" -> pure EHSNoData+        "ok" -> pure EHSOK+        "pending" -> pure EHSPending+        "severe" -> pure EHSSevere+        "unknown" -> pure EHSUnknown+        "warning" -> pure EHSWarning         e -> fromTextError $ "Failure parsing EnvironmentHealthStatus from value: '" <> e            <> "'. Accepted values: Degraded, Info, NoData, Ok, Pending, Severe, Unknown, Warning"  instance ToText EnvironmentHealthStatus where     toText = \case-        Degraded -> "Degraded"-        Info -> "Info"-        NoData -> "NoData"-        OK -> "Ok"-        Pending -> "Pending"-        Severe -> "Severe"-        Unknown -> "Unknown"-        Warning -> "Warning"+        EHSDegraded -> "Degraded"+        EHSInfo -> "Info"+        EHSNoData -> "NoData"+        EHSOK -> "Ok"+        EHSPending -> "Pending"+        EHSSevere -> "Severe"+        EHSUnknown -> "Unknown"+        EHSWarning -> "Warning"  instance Hashable     EnvironmentHealthStatus+instance NFData       EnvironmentHealthStatus instance ToByteString EnvironmentHealthStatus instance ToQuery      EnvironmentHealthStatus instance ToHeader     EnvironmentHealthStatus@@ -235,6 +331,7 @@         Tail -> "tail"  instance Hashable     EnvironmentInfoType+instance NFData       EnvironmentInfoType instance ToByteString EnvironmentInfoType instance ToQuery      EnvironmentInfoType instance ToHeader     EnvironmentInfoType@@ -269,6 +366,7 @@         Updating -> "Updating"  instance Hashable     EnvironmentStatus+instance NFData       EnvironmentStatus instance ToByteString EnvironmentStatus instance ToQuery      EnvironmentStatus instance ToHeader     EnvironmentStatus@@ -306,6 +404,7 @@         LevelWarn -> "WARN"  instance Hashable     EventSeverity+instance NFData       EventSeverity instance ToByteString EventSeverity instance ToQuery      EventSeverity instance ToHeader     EventSeverity@@ -313,12 +412,56 @@ instance FromXML EventSeverity where     parseXML = parseXMLText "EventSeverity" +data FailureType+    = CancellationFailed+    | InternalFailure+    | InvalidEnvironmentState+    | PermissionsError+    | RollbackFailed+    | RollbackSuccessful+    | UpdateCancelled+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)++instance FromText FailureType where+    parser = takeLowerText >>= \case+        "cancellationfailed" -> pure CancellationFailed+        "internalfailure" -> pure InternalFailure+        "invalidenvironmentstate" -> pure InvalidEnvironmentState+        "permissionserror" -> pure PermissionsError+        "rollbackfailed" -> pure RollbackFailed+        "rollbacksuccessful" -> pure RollbackSuccessful+        "updatecancelled" -> pure UpdateCancelled+        e -> fromTextError $ "Failure parsing FailureType from value: '" <> e+           <> "'. Accepted values: CancellationFailed, InternalFailure, InvalidEnvironmentState, PermissionsError, RollbackFailed, RollbackSuccessful, UpdateCancelled"++instance ToText FailureType where+    toText = \case+        CancellationFailed -> "CancellationFailed"+        InternalFailure -> "InternalFailure"+        InvalidEnvironmentState -> "InvalidEnvironmentState"+        PermissionsError -> "PermissionsError"+        RollbackFailed -> "RollbackFailed"+        RollbackSuccessful -> "RollbackSuccessful"+        UpdateCancelled -> "UpdateCancelled"++instance Hashable     FailureType+instance NFData       FailureType+instance ToByteString FailureType+instance ToQuery      FailureType+instance ToHeader     FailureType++instance FromXML FailureType where+    parseXML = parseXMLText "FailureType"+ data InstancesHealthAttribute     = All     | ApplicationMetrics+    | AvailabilityZone     | Causes     | Color+    | Deployment     | HealthStatus+    | InstanceType     | LaunchedAt     | RefreshedAt     | System@@ -328,49 +471,57 @@     parser = takeLowerText >>= \case         "all" -> pure All         "applicationmetrics" -> pure ApplicationMetrics+        "availabilityzone" -> pure AvailabilityZone         "causes" -> pure Causes         "color" -> pure Color+        "deployment" -> pure Deployment         "healthstatus" -> pure HealthStatus+        "instancetype" -> pure InstanceType         "launchedat" -> pure LaunchedAt         "refreshedat" -> pure RefreshedAt         "system" -> pure System         e -> fromTextError $ "Failure parsing InstancesHealthAttribute from value: '" <> e-           <> "'. Accepted values: All, ApplicationMetrics, Causes, Color, HealthStatus, LaunchedAt, RefreshedAt, System"+           <> "'. Accepted values: All, ApplicationMetrics, AvailabilityZone, Causes, Color, Deployment, HealthStatus, InstanceType, LaunchedAt, RefreshedAt, System"  instance ToText InstancesHealthAttribute where     toText = \case         All -> "All"         ApplicationMetrics -> "ApplicationMetrics"+        AvailabilityZone -> "AvailabilityZone"         Causes -> "Causes"         Color -> "Color"+        Deployment -> "Deployment"         HealthStatus -> "HealthStatus"+        InstanceType -> "InstanceType"         LaunchedAt -> "LaunchedAt"         RefreshedAt -> "RefreshedAt"         System -> "System"  instance Hashable     InstancesHealthAttribute+instance NFData       InstancesHealthAttribute instance ToByteString InstancesHealthAttribute instance ToQuery      InstancesHealthAttribute instance ToHeader     InstancesHealthAttribute  data ValidationSeverity-    = VSError'-    | VSWarning+    = Error'+    | Warning     deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText ValidationSeverity where     parser = takeLowerText >>= \case-        "error" -> pure VSError'-        "warning" -> pure VSWarning+        "error" -> pure Error'+        "warning" -> pure Warning         e -> fromTextError $ "Failure parsing ValidationSeverity from value: '" <> e            <> "'. Accepted values: error, warning"  instance ToText ValidationSeverity where     toText = \case-        VSError' -> "error"-        VSWarning -> "warning"+        Error' -> "error"+        Warning -> "warning"  instance Hashable     ValidationSeverity+instance NFData       ValidationSeverity instance ToByteString ValidationSeverity instance ToQuery      ValidationSeverity instance ToHeader     ValidationSeverity

@@ -45,7 +45,7 @@ import           Network.AWS.Request import           Network.AWS.Response --- |+-- | Request to update an application. -- -- /See:/ 'updateApplication' smart constructor. data UpdateApplication = UpdateApplication'@@ -90,6 +90,8 @@               (\ s h x -> parseXML x)  instance Hashable UpdateApplication++instance NFData UpdateApplication  instance ToHeaders UpdateApplication where         toHeaders = const mempty

@@ -104,6 +104,8 @@  instance Hashable UpdateApplicationVersion +instance NFData UpdateApplicationVersion+ instance ToHeaders UpdateApplicationVersion where         toHeaders = const mempty 

@@ -141,6 +141,8 @@  instance Hashable UpdateConfigurationTemplate +instance NFData UpdateConfigurationTemplate+ instance ToHeaders UpdateConfigurationTemplate where         toHeaders = const mempty 

@@ -80,7 +80,7 @@ import           Network.AWS.Request import           Network.AWS.Response --- |+-- | Request to update an environment. -- -- /See:/ 'updateEnvironment' smart constructor. data UpdateEnvironment = UpdateEnvironment'@@ -203,7 +203,7 @@ -- group name only if the environment\'s name is specified in an -- environment manifest and not with the environment name or environment ID -- parameters. See--- <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/environment-mgmt-compose.html#environment-mgmt-compose-envyaml Environment Manifest (env.yaml)>+-- <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/environment-cfg-manifest.html Environment Manifest (env.yaml)> -- for details. ueGroupName :: Lens' UpdateEnvironment (Maybe Text) ueGroupName = lens _ueGroupName (\ s a -> s{_ueGroupName = a});@@ -221,6 +221,8 @@               (\ s h x -> parseXML x)  instance Hashable UpdateEnvironment++instance NFData UpdateEnvironment  instance ToHeaders UpdateEnvironment where         toHeaders = const mempty

@@ -119,6 +119,8 @@  instance Hashable ValidateConfigurationSettings +instance NFData ValidateConfigurationSettings+ instance ToHeaders ValidateConfigurationSettings          where         toHeaders = const mempty@@ -169,3 +171,5 @@ -- | The response status code. vcsrsResponseStatus :: Lens' ValidateConfigurationSettingsResponse Int vcsrsResponseStatus = lens _vcsrsResponseStatus (\ s a -> s{_vcsrsResponseStatus = a});++instance NFData ValidateConfigurationSettingsResponse

@@ -76,6 +76,9 @@ --         , testDescribeEnvironmentResources $ --             describeEnvironmentResources --+--         , testDescribeEnvironmentManagedActionHistory $+--             describeEnvironmentManagedActionHistory+-- --         , testDeleteApplicationVersion $ --             deleteApplicationVersion --@@ -100,12 +103,18 @@ --         , testListAvailableSolutionStacks $ --             listAvailableSolutionStacks --+--         , testApplyEnvironmentManagedAction $+--             applyEnvironmentManagedAction+-- --         , testDescribeConfigurationOptions $ --             describeConfigurationOptions -- --         , testCreateStorageLocation $ --             createStorageLocation --+--         , testDescribeEnvironmentManagedActions $+--             describeEnvironmentManagedActions+-- --         , testDescribeConfigurationSettings $ --             describeConfigurationSettings --@@ -178,6 +187,9 @@ --         , testDescribeEnvironmentResourcesResponse $ --             describeEnvironmentResourcesResponse --+--         , testDescribeEnvironmentManagedActionHistoryResponse $+--             describeEnvironmentManagedActionHistoryResponse+-- --         , testDeleteApplicationVersionResponse $ --             deleteApplicationVersionResponse --@@ -202,12 +214,18 @@ --         , testListAvailableSolutionStacksResponse $ --             listAvailableSolutionStacksResponse --+--         , testApplyEnvironmentManagedActionResponse $+--             applyEnvironmentManagedActionResponse+-- --         , testDescribeConfigurationOptionsResponse $ --             describeConfigurationOptionsResponse -- --         , testCreateStorageLocationResponse $ --             createStorageLocationResponse --+--         , testDescribeEnvironmentManagedActionsResponse $+--             describeEnvironmentManagedActionsResponse+-- --         , testDescribeConfigurationSettingsResponse $ --             describeConfigurationSettingsResponse --@@ -314,6 +332,11 @@     "DescribeEnvironmentResources"     "fixture/DescribeEnvironmentResources.yaml" +testDescribeEnvironmentManagedActionHistory :: DescribeEnvironmentManagedActionHistory -> TestTree+testDescribeEnvironmentManagedActionHistory = req+    "DescribeEnvironmentManagedActionHistory"+    "fixture/DescribeEnvironmentManagedActionHistory.yaml"+ testDeleteApplicationVersion :: DeleteApplicationVersion -> TestTree testDeleteApplicationVersion = req     "DeleteApplicationVersion"@@ -354,6 +377,11 @@     "ListAvailableSolutionStacks"     "fixture/ListAvailableSolutionStacks.yaml" +testApplyEnvironmentManagedAction :: ApplyEnvironmentManagedAction -> TestTree+testApplyEnvironmentManagedAction = req+    "ApplyEnvironmentManagedAction"+    "fixture/ApplyEnvironmentManagedAction.yaml"+ testDescribeConfigurationOptions :: DescribeConfigurationOptions -> TestTree testDescribeConfigurationOptions = req     "DescribeConfigurationOptions"@@ -364,6 +392,11 @@     "CreateStorageLocation"     "fixture/CreateStorageLocation.yaml" +testDescribeEnvironmentManagedActions :: DescribeEnvironmentManagedActions -> TestTree+testDescribeEnvironmentManagedActions = req+    "DescribeEnvironmentManagedActions"+    "fixture/DescribeEnvironmentManagedActions.yaml"+ testDescribeConfigurationSettings :: DescribeConfigurationSettings -> TestTree testDescribeConfigurationSettings = req     "DescribeConfigurationSettings"@@ -513,6 +546,13 @@     elasticBeanstalk     (Proxy :: Proxy DescribeEnvironmentResources) +testDescribeEnvironmentManagedActionHistoryResponse :: DescribeEnvironmentManagedActionHistoryResponse -> TestTree+testDescribeEnvironmentManagedActionHistoryResponse = res+    "DescribeEnvironmentManagedActionHistoryResponse"+    "fixture/DescribeEnvironmentManagedActionHistoryResponse.proto"+    elasticBeanstalk+    (Proxy :: Proxy DescribeEnvironmentManagedActionHistory)+ testDeleteApplicationVersionResponse :: DeleteApplicationVersionResponse -> TestTree testDeleteApplicationVersionResponse = res     "DeleteApplicationVersionResponse"@@ -569,6 +609,13 @@     elasticBeanstalk     (Proxy :: Proxy ListAvailableSolutionStacks) +testApplyEnvironmentManagedActionResponse :: ApplyEnvironmentManagedActionResponse -> TestTree+testApplyEnvironmentManagedActionResponse = res+    "ApplyEnvironmentManagedActionResponse"+    "fixture/ApplyEnvironmentManagedActionResponse.proto"+    elasticBeanstalk+    (Proxy :: Proxy ApplyEnvironmentManagedAction)+ testDescribeConfigurationOptionsResponse :: DescribeConfigurationOptionsResponse -> TestTree testDescribeConfigurationOptionsResponse = res     "DescribeConfigurationOptionsResponse"@@ -582,6 +629,13 @@     "fixture/CreateStorageLocationResponse.proto"     elasticBeanstalk     (Proxy :: Proxy CreateStorageLocation)++testDescribeEnvironmentManagedActionsResponse :: DescribeEnvironmentManagedActionsResponse -> TestTree+testDescribeEnvironmentManagedActionsResponse = res+    "DescribeEnvironmentManagedActionsResponse"+    "fixture/DescribeEnvironmentManagedActionsResponse.proto"+    elasticBeanstalk+    (Proxy :: Proxy DescribeEnvironmentManagedActions)  testDescribeConfigurationSettingsResponse :: DescribeConfigurationSettingsResponse -> TestTree testDescribeConfigurationSettingsResponse = res