diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -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 details diff --git a/amazonka-elasticbeanstalk.cabal b/amazonka-elasticbeanstalk.cabal --- a/amazonka-elasticbeanstalk.cabal +++ b/amazonka-elasticbeanstalk.cabal @@ -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 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 diff --git a/fixture/ApplyEnvironmentManagedAction.yaml b/fixture/ApplyEnvironmentManagedAction.yaml new file mode 100644 --- /dev/null +++ b/fixture/ApplyEnvironmentManagedAction.yaml diff --git a/fixture/ApplyEnvironmentManagedActionResponse.proto b/fixture/ApplyEnvironmentManagedActionResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ApplyEnvironmentManagedActionResponse.proto diff --git a/fixture/DescribeEnvironmentManagedActionHistory.yaml b/fixture/DescribeEnvironmentManagedActionHistory.yaml new file mode 100644 --- /dev/null +++ b/fixture/DescribeEnvironmentManagedActionHistory.yaml diff --git a/fixture/DescribeEnvironmentManagedActionHistoryResponse.proto b/fixture/DescribeEnvironmentManagedActionHistoryResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DescribeEnvironmentManagedActionHistoryResponse.proto diff --git a/fixture/DescribeEnvironmentManagedActions.yaml b/fixture/DescribeEnvironmentManagedActions.yaml new file mode 100644 --- /dev/null +++ b/fixture/DescribeEnvironmentManagedActions.yaml diff --git a/fixture/DescribeEnvironmentManagedActionsResponse.proto b/fixture/DescribeEnvironmentManagedActionsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DescribeEnvironmentManagedActionsResponse.proto diff --git a/gen/Network/AWS/ElasticBeanstalk.hs b/gen/Network/AWS/ElasticBeanstalk.hs --- a/gen/Network/AWS/ElasticBeanstalk.hs +++ b/gen/Network/AWS/ElasticBeanstalk.hs @@ -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 -- 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 diff --git a/gen/Network/AWS/ElasticBeanstalk/AbortEnvironmentUpdate.hs b/gen/Network/AWS/ElasticBeanstalk/AbortEnvironmentUpdate.hs --- a/gen/Network/AWS/ElasticBeanstalk/AbortEnvironmentUpdate.hs +++ b/gen/Network/AWS/ElasticBeanstalk/AbortEnvironmentUpdate.hs @@ -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 diff --git a/gen/Network/AWS/ElasticBeanstalk/ApplyEnvironmentManagedAction.hs b/gen/Network/AWS/ElasticBeanstalk/ApplyEnvironmentManagedAction.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/ElasticBeanstalk/ApplyEnvironmentManagedAction.hs @@ -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 +-- 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 diff --git a/gen/Network/AWS/ElasticBeanstalk/CheckDNSAvailability.hs b/gen/Network/AWS/ElasticBeanstalk/CheckDNSAvailability.hs --- a/gen/Network/AWS/ElasticBeanstalk/CheckDNSAvailability.hs +++ b/gen/Network/AWS/ElasticBeanstalk/CheckDNSAvailability.hs @@ -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 diff --git a/gen/Network/AWS/ElasticBeanstalk/ComposeEnvironments.hs b/gen/Network/AWS/ElasticBeanstalk/ComposeEnvironments.hs --- a/gen/Network/AWS/ElasticBeanstalk/ComposeEnvironments.hs +++ b/gen/Network/AWS/ElasticBeanstalk/ComposeEnvironments.hs @@ -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 --- +-- -- 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 diff --git a/gen/Network/AWS/ElasticBeanstalk/CreateApplication.hs b/gen/Network/AWS/ElasticBeanstalk/CreateApplication.hs --- a/gen/Network/AWS/ElasticBeanstalk/CreateApplication.hs +++ b/gen/Network/AWS/ElasticBeanstalk/CreateApplication.hs @@ -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 diff --git a/gen/Network/AWS/ElasticBeanstalk/CreateApplicationVersion.hs b/gen/Network/AWS/ElasticBeanstalk/CreateApplicationVersion.hs --- a/gen/Network/AWS/ElasticBeanstalk/CreateApplicationVersion.hs +++ b/gen/Network/AWS/ElasticBeanstalk/CreateApplicationVersion.hs @@ -155,6 +155,8 @@ instance Hashable CreateApplicationVersion +instance NFData CreateApplicationVersion + instance ToHeaders CreateApplicationVersion where toHeaders = const mempty diff --git a/gen/Network/AWS/ElasticBeanstalk/CreateConfigurationTemplate.hs b/gen/Network/AWS/ElasticBeanstalk/CreateConfigurationTemplate.hs --- a/gen/Network/AWS/ElasticBeanstalk/CreateConfigurationTemplate.hs +++ b/gen/Network/AWS/ElasticBeanstalk/CreateConfigurationTemplate.hs @@ -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 diff --git a/gen/Network/AWS/ElasticBeanstalk/CreateEnvironment.hs b/gen/Network/AWS/ElasticBeanstalk/CreateEnvironment.hs --- a/gen/Network/AWS/ElasticBeanstalk/CreateEnvironment.hs +++ b/gen/Network/AWS/ElasticBeanstalk/CreateEnvironment.hs @@ -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 --- +-- -- 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 diff --git a/gen/Network/AWS/ElasticBeanstalk/CreateStorageLocation.hs b/gen/Network/AWS/ElasticBeanstalk/CreateStorageLocation.hs --- a/gen/Network/AWS/ElasticBeanstalk/CreateStorageLocation.hs +++ b/gen/Network/AWS/ElasticBeanstalk/CreateStorageLocation.hs @@ -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 diff --git a/gen/Network/AWS/ElasticBeanstalk/DeleteApplication.hs b/gen/Network/AWS/ElasticBeanstalk/DeleteApplication.hs --- a/gen/Network/AWS/ElasticBeanstalk/DeleteApplication.hs +++ b/gen/Network/AWS/ElasticBeanstalk/DeleteApplication.hs @@ -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 diff --git a/gen/Network/AWS/ElasticBeanstalk/DeleteApplicationVersion.hs b/gen/Network/AWS/ElasticBeanstalk/DeleteApplicationVersion.hs --- a/gen/Network/AWS/ElasticBeanstalk/DeleteApplicationVersion.hs +++ b/gen/Network/AWS/ElasticBeanstalk/DeleteApplicationVersion.hs @@ -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 diff --git a/gen/Network/AWS/ElasticBeanstalk/DeleteConfigurationTemplate.hs b/gen/Network/AWS/ElasticBeanstalk/DeleteConfigurationTemplate.hs --- a/gen/Network/AWS/ElasticBeanstalk/DeleteConfigurationTemplate.hs +++ b/gen/Network/AWS/ElasticBeanstalk/DeleteConfigurationTemplate.hs @@ -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 diff --git a/gen/Network/AWS/ElasticBeanstalk/DeleteEnvironmentConfiguration.hs b/gen/Network/AWS/ElasticBeanstalk/DeleteEnvironmentConfiguration.hs --- a/gen/Network/AWS/ElasticBeanstalk/DeleteEnvironmentConfiguration.hs +++ b/gen/Network/AWS/ElasticBeanstalk/DeleteEnvironmentConfiguration.hs @@ -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 diff --git a/gen/Network/AWS/ElasticBeanstalk/DescribeApplicationVersions.hs b/gen/Network/AWS/ElasticBeanstalk/DescribeApplicationVersions.hs --- a/gen/Network/AWS/ElasticBeanstalk/DescribeApplicationVersions.hs +++ b/gen/Network/AWS/ElasticBeanstalk/DescribeApplicationVersions.hs @@ -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 diff --git a/gen/Network/AWS/ElasticBeanstalk/DescribeApplications.hs b/gen/Network/AWS/ElasticBeanstalk/DescribeApplications.hs --- a/gen/Network/AWS/ElasticBeanstalk/DescribeApplications.hs +++ b/gen/Network/AWS/ElasticBeanstalk/DescribeApplications.hs @@ -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 diff --git a/gen/Network/AWS/ElasticBeanstalk/DescribeConfigurationOptions.hs b/gen/Network/AWS/ElasticBeanstalk/DescribeConfigurationOptions.hs --- a/gen/Network/AWS/ElasticBeanstalk/DescribeConfigurationOptions.hs +++ b/gen/Network/AWS/ElasticBeanstalk/DescribeConfigurationOptions.hs @@ -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 diff --git a/gen/Network/AWS/ElasticBeanstalk/DescribeConfigurationSettings.hs b/gen/Network/AWS/ElasticBeanstalk/DescribeConfigurationSettings.hs --- a/gen/Network/AWS/ElasticBeanstalk/DescribeConfigurationSettings.hs +++ b/gen/Network/AWS/ElasticBeanstalk/DescribeConfigurationSettings.hs @@ -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 diff --git a/gen/Network/AWS/ElasticBeanstalk/DescribeEnvironmentHealth.hs b/gen/Network/AWS/ElasticBeanstalk/DescribeEnvironmentHealth.hs --- a/gen/Network/AWS/ElasticBeanstalk/DescribeEnvironmentHealth.hs +++ b/gen/Network/AWS/ElasticBeanstalk/DescribeEnvironmentHealth.hs @@ -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 diff --git a/gen/Network/AWS/ElasticBeanstalk/DescribeEnvironmentManagedActionHistory.hs b/gen/Network/AWS/ElasticBeanstalk/DescribeEnvironmentManagedActionHistory.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/ElasticBeanstalk/DescribeEnvironmentManagedActionHistory.hs @@ -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 +-- 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 diff --git a/gen/Network/AWS/ElasticBeanstalk/DescribeEnvironmentManagedActions.hs b/gen/Network/AWS/ElasticBeanstalk/DescribeEnvironmentManagedActions.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/ElasticBeanstalk/DescribeEnvironmentManagedActions.hs @@ -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 +-- 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 diff --git a/gen/Network/AWS/ElasticBeanstalk/DescribeEnvironmentResources.hs b/gen/Network/AWS/ElasticBeanstalk/DescribeEnvironmentResources.hs --- a/gen/Network/AWS/ElasticBeanstalk/DescribeEnvironmentResources.hs +++ b/gen/Network/AWS/ElasticBeanstalk/DescribeEnvironmentResources.hs @@ -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 diff --git a/gen/Network/AWS/ElasticBeanstalk/DescribeEnvironments.hs b/gen/Network/AWS/ElasticBeanstalk/DescribeEnvironments.hs --- a/gen/Network/AWS/ElasticBeanstalk/DescribeEnvironments.hs +++ b/gen/Network/AWS/ElasticBeanstalk/DescribeEnvironments.hs @@ -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] diff --git a/gen/Network/AWS/ElasticBeanstalk/DescribeEvents.hs b/gen/Network/AWS/ElasticBeanstalk/DescribeEvents.hs --- a/gen/Network/AWS/ElasticBeanstalk/DescribeEvents.hs +++ b/gen/Network/AWS/ElasticBeanstalk/DescribeEvents.hs @@ -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 diff --git a/gen/Network/AWS/ElasticBeanstalk/DescribeInstancesHealth.hs b/gen/Network/AWS/ElasticBeanstalk/DescribeInstancesHealth.hs --- a/gen/Network/AWS/ElasticBeanstalk/DescribeInstancesHealth.hs +++ b/gen/Network/AWS/ElasticBeanstalk/DescribeInstancesHealth.hs @@ -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 diff --git a/gen/Network/AWS/ElasticBeanstalk/ListAvailableSolutionStacks.hs b/gen/Network/AWS/ElasticBeanstalk/ListAvailableSolutionStacks.hs --- a/gen/Network/AWS/ElasticBeanstalk/ListAvailableSolutionStacks.hs +++ b/gen/Network/AWS/ElasticBeanstalk/ListAvailableSolutionStacks.hs @@ -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 diff --git a/gen/Network/AWS/ElasticBeanstalk/RebuildEnvironment.hs b/gen/Network/AWS/ElasticBeanstalk/RebuildEnvironment.hs --- a/gen/Network/AWS/ElasticBeanstalk/RebuildEnvironment.hs +++ b/gen/Network/AWS/ElasticBeanstalk/RebuildEnvironment.hs @@ -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 diff --git a/gen/Network/AWS/ElasticBeanstalk/RequestEnvironmentInfo.hs b/gen/Network/AWS/ElasticBeanstalk/RequestEnvironmentInfo.hs --- a/gen/Network/AWS/ElasticBeanstalk/RequestEnvironmentInfo.hs +++ b/gen/Network/AWS/ElasticBeanstalk/RequestEnvironmentInfo.hs @@ -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 diff --git a/gen/Network/AWS/ElasticBeanstalk/RestartAppServer.hs b/gen/Network/AWS/ElasticBeanstalk/RestartAppServer.hs --- a/gen/Network/AWS/ElasticBeanstalk/RestartAppServer.hs +++ b/gen/Network/AWS/ElasticBeanstalk/RestartAppServer.hs @@ -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 diff --git a/gen/Network/AWS/ElasticBeanstalk/RetrieveEnvironmentInfo.hs b/gen/Network/AWS/ElasticBeanstalk/RetrieveEnvironmentInfo.hs --- a/gen/Network/AWS/ElasticBeanstalk/RetrieveEnvironmentInfo.hs +++ b/gen/Network/AWS/ElasticBeanstalk/RetrieveEnvironmentInfo.hs @@ -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 diff --git a/gen/Network/AWS/ElasticBeanstalk/SwapEnvironmentCNAMEs.hs b/gen/Network/AWS/ElasticBeanstalk/SwapEnvironmentCNAMEs.hs --- a/gen/Network/AWS/ElasticBeanstalk/SwapEnvironmentCNAMEs.hs +++ b/gen/Network/AWS/ElasticBeanstalk/SwapEnvironmentCNAMEs.hs @@ -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 diff --git a/gen/Network/AWS/ElasticBeanstalk/TerminateEnvironment.hs b/gen/Network/AWS/ElasticBeanstalk/TerminateEnvironment.hs --- a/gen/Network/AWS/ElasticBeanstalk/TerminateEnvironment.hs +++ b/gen/Network/AWS/ElasticBeanstalk/TerminateEnvironment.hs @@ -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 diff --git a/gen/Network/AWS/ElasticBeanstalk/Types.hs b/gen/Network/AWS/ElasticBeanstalk/Types.hs --- a/gen/Network/AWS/ElasticBeanstalk/Types.hs +++ b/gen/Network/AWS/ElasticBeanstalk/Types.hs @@ -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. diff --git a/gen/Network/AWS/ElasticBeanstalk/Types/Product.hs b/gen/Network/AWS/ElasticBeanstalk/Types/Product.hs --- a/gen/Network/AWS/ElasticBeanstalk/Types/Product.hs +++ b/gen/Network/AWS/ElasticBeanstalk/Types/Product.hs @@ -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 -- @@ -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 --- +-- -- 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 -- . @@ -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 -- . 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 diff --git a/gen/Network/AWS/ElasticBeanstalk/Types/Sum.hs b/gen/Network/AWS/ElasticBeanstalk/Types/Sum.hs --- a/gen/Network/AWS/ElasticBeanstalk/Types/Sum.hs +++ b/gen/Network/AWS/ElasticBeanstalk/Types/Sum.hs @@ -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 diff --git a/gen/Network/AWS/ElasticBeanstalk/UpdateApplication.hs b/gen/Network/AWS/ElasticBeanstalk/UpdateApplication.hs --- a/gen/Network/AWS/ElasticBeanstalk/UpdateApplication.hs +++ b/gen/Network/AWS/ElasticBeanstalk/UpdateApplication.hs @@ -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 diff --git a/gen/Network/AWS/ElasticBeanstalk/UpdateApplicationVersion.hs b/gen/Network/AWS/ElasticBeanstalk/UpdateApplicationVersion.hs --- a/gen/Network/AWS/ElasticBeanstalk/UpdateApplicationVersion.hs +++ b/gen/Network/AWS/ElasticBeanstalk/UpdateApplicationVersion.hs @@ -104,6 +104,8 @@ instance Hashable UpdateApplicationVersion +instance NFData UpdateApplicationVersion + instance ToHeaders UpdateApplicationVersion where toHeaders = const mempty diff --git a/gen/Network/AWS/ElasticBeanstalk/UpdateConfigurationTemplate.hs b/gen/Network/AWS/ElasticBeanstalk/UpdateConfigurationTemplate.hs --- a/gen/Network/AWS/ElasticBeanstalk/UpdateConfigurationTemplate.hs +++ b/gen/Network/AWS/ElasticBeanstalk/UpdateConfigurationTemplate.hs @@ -141,6 +141,8 @@ instance Hashable UpdateConfigurationTemplate +instance NFData UpdateConfigurationTemplate + instance ToHeaders UpdateConfigurationTemplate where toHeaders = const mempty diff --git a/gen/Network/AWS/ElasticBeanstalk/UpdateEnvironment.hs b/gen/Network/AWS/ElasticBeanstalk/UpdateEnvironment.hs --- a/gen/Network/AWS/ElasticBeanstalk/UpdateEnvironment.hs +++ b/gen/Network/AWS/ElasticBeanstalk/UpdateEnvironment.hs @@ -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 --- +-- -- 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 diff --git a/gen/Network/AWS/ElasticBeanstalk/ValidateConfigurationSettings.hs b/gen/Network/AWS/ElasticBeanstalk/ValidateConfigurationSettings.hs --- a/gen/Network/AWS/ElasticBeanstalk/ValidateConfigurationSettings.hs +++ b/gen/Network/AWS/ElasticBeanstalk/ValidateConfigurationSettings.hs @@ -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 diff --git a/test/Test/AWS/Gen/ElasticBeanstalk.hs b/test/Test/AWS/Gen/ElasticBeanstalk.hs --- a/test/Test/AWS/Gen/ElasticBeanstalk.hs +++ b/test/Test/AWS/Gen/ElasticBeanstalk.hs @@ -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