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: 0.3.4 +version: 0.3.5 synopsis: Amazon Elastic Beanstalk SDK. homepage: https://github.com/brendanhay/amazonka license: OtherLicense @@ -77,5 +77,5 @@ other-modules: build-depends: - amazonka-core == 0.3.4.* + amazonka-core == 0.3.5.* , base >= 4.7 && < 5 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 @@ -288,8 +288,12 @@ , _cerTier = Nothing } --- | Lists in-progress environment updates and application version deployments --- that you can cancel. +-- | Indicates if there is an in-progress environment configuration update or +-- application version deployment that you can cancel. +-- +-- 'true:' There is an update in progress. +-- +-- 'false:' There are no updates currently in progress. cerAbortableOperationInProgress :: Lens' CreateEnvironmentResponse (Maybe Bool) cerAbortableOperationInProgress = lens _cerAbortableOperationInProgress 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 @@ -198,8 +198,12 @@ , _terTier = Nothing } --- | Lists in-progress environment updates and application version deployments --- that you can cancel. +-- | Indicates if there is an in-progress environment configuration update or +-- application version deployment that you can cancel. +-- +-- 'true:' There is an update in progress. +-- +-- 'false:' There are no updates currently in progress. terAbortableOperationInProgress :: Lens' TerminateEnvironmentResponse (Maybe Bool) terAbortableOperationInProgress = lens _terAbortableOperationInProgress 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 @@ -86,6 +86,7 @@ , configurationOptionSetting , cosNamespace , cosOptionName + , cosResourceName , cosValue -- * ConfigurationOptionValueType @@ -119,6 +120,7 @@ , optionSpecification , osNamespace , osOptionName + , osResourceName -- * EnvironmentResourceDescription , EnvironmentResourceDescription @@ -310,7 +312,7 @@ -> RESTError -> Bool check (statusCode -> s) (awsErrorCode -> e) - | s == 400 && "Throttling" == e = True -- Throttling + | s == 400 && (Just "Throttling") == e = True -- Throttling | s == 500 = True -- General Server Error | s == 509 = True -- Limit Exceeded | s == 503 = True -- Service Unavailable @@ -693,9 +695,10 @@ parseXML = parseXMLText "ConfigurationDeploymentStatus" data ConfigurationOptionSetting = ConfigurationOptionSetting - { _cosNamespace :: Maybe Text - , _cosOptionName :: Maybe Text - , _cosValue :: Maybe Text + { _cosNamespace :: Maybe Text + , _cosOptionName :: Maybe Text + , _cosResourceName :: Maybe Text + , _cosValue :: Maybe Text } deriving (Eq, Ord, Read, Show) -- | 'ConfigurationOptionSetting' constructor. @@ -706,13 +709,16 @@ -- -- * 'cosOptionName' @::@ 'Maybe' 'Text' -- +-- * 'cosResourceName' @::@ 'Maybe' 'Text' +-- -- * 'cosValue' @::@ 'Maybe' 'Text' -- configurationOptionSetting :: ConfigurationOptionSetting configurationOptionSetting = ConfigurationOptionSetting - { _cosNamespace = Nothing - , _cosOptionName = Nothing - , _cosValue = Nothing + { _cosResourceName = Nothing + , _cosNamespace = Nothing + , _cosOptionName = Nothing + , _cosValue = Nothing } -- | A unique namespace identifying the option's associated AWS resource. @@ -723,6 +729,10 @@ cosOptionName :: Lens' ConfigurationOptionSetting (Maybe Text) cosOptionName = lens _cosOptionName (\s a -> s { _cosOptionName = a }) +-- | A unique resource name for a time-based scaling configuration option. +cosResourceName :: Lens' ConfigurationOptionSetting (Maybe Text) +cosResourceName = lens _cosResourceName (\s a -> s { _cosResourceName = a }) + -- | The current value for the configuration option. cosValue :: Lens' ConfigurationOptionSetting (Maybe Text) cosValue = lens _cosValue (\s a -> s { _cosValue = a }) @@ -731,13 +741,15 @@ parseXML x = ConfigurationOptionSetting <$> x .@? "Namespace" <*> x .@? "OptionName" + <*> x .@? "ResourceName" <*> x .@? "Value" instance ToQuery ConfigurationOptionSetting where toQuery ConfigurationOptionSetting{..} = mconcat - [ "Namespace" =? _cosNamespace - , "OptionName" =? _cosOptionName - , "Value" =? _cosValue + [ "Namespace" =? _cosNamespace + , "OptionName" =? _cosOptionName + , "ResourceName" =? _cosResourceName + , "Value" =? _cosValue ] data ConfigurationOptionValueType @@ -979,8 +991,9 @@ ] data OptionSpecification = OptionSpecification - { _osNamespace :: Maybe Text - , _osOptionName :: Maybe Text + { _osNamespace :: Maybe Text + , _osOptionName :: Maybe Text + , _osResourceName :: Maybe Text } deriving (Eq, Ord, Read, Show) -- | 'OptionSpecification' constructor. @@ -991,10 +1004,13 @@ -- -- * 'osOptionName' @::@ 'Maybe' 'Text' -- +-- * 'osResourceName' @::@ 'Maybe' 'Text' +-- optionSpecification :: OptionSpecification optionSpecification = OptionSpecification - { _osNamespace = Nothing - , _osOptionName = Nothing + { _osResourceName = Nothing + , _osNamespace = Nothing + , _osOptionName = Nothing } -- | A unique namespace identifying the option's associated AWS resource. @@ -1005,15 +1021,21 @@ osOptionName :: Lens' OptionSpecification (Maybe Text) osOptionName = lens _osOptionName (\s a -> s { _osOptionName = a }) +-- | A unique resource name for a time-based scaling configuration option. +osResourceName :: Lens' OptionSpecification (Maybe Text) +osResourceName = lens _osResourceName (\s a -> s { _osResourceName = a }) + instance FromXML OptionSpecification where parseXML x = OptionSpecification <$> x .@? "Namespace" <*> x .@? "OptionName" + <*> x .@? "ResourceName" instance ToQuery OptionSpecification where toQuery OptionSpecification{..} = mconcat - [ "Namespace" =? _osNamespace - , "OptionName" =? _osOptionName + [ "Namespace" =? _osNamespace + , "OptionName" =? _osOptionName + , "ResourceName" =? _osResourceName ] data EnvironmentResourceDescription = EnvironmentResourceDescription @@ -1944,8 +1966,12 @@ , _ed1Tier = Nothing } --- | Lists in-progress environment updates and application version deployments --- that you can cancel. +-- | Indicates if there is an in-progress environment configuration update or +-- application version deployment that you can cancel. +-- +-- 'true:' There is an update in progress. +-- +-- 'false:' There are no updates currently in progress. ed1AbortableOperationInProgress :: Lens' EnvironmentDescription (Maybe Bool) ed1AbortableOperationInProgress = lens _ed1AbortableOperationInProgress 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 @@ -176,8 +176,8 @@ -- | This specifies the tier to use to update the environment. -- --- Condition: You can only update the tier version for an environment. If you --- change the name of the type, AWS Elastic Beanstalk returns 'InvalidParameterValue' error. +-- Condition: At this time, if you change the tier version, name, or type, AWS +-- Elastic Beanstalk returns 'InvalidParameterValue' error. ueTier :: Lens' UpdateEnvironment (Maybe EnvironmentTier) ueTier = lens _ueTier (\s a -> s { _ueTier = a }) @@ -262,8 +262,12 @@ , _uerTier = Nothing } --- | Lists in-progress environment updates and application version deployments --- that you can cancel. +-- | Indicates if there is an in-progress environment configuration update or +-- application version deployment that you can cancel. +-- +-- 'true:' There is an update in progress. +-- +-- 'false:' There are no updates currently in progress. uerAbortableOperationInProgress :: Lens' UpdateEnvironmentResponse (Maybe Bool) uerAbortableOperationInProgress = lens _uerAbortableOperationInProgress