stratosphere 0.9.0 → 0.10.0
raw patch · 28 files changed
+942/−101 lines, 28 files
Files
- CHANGELOG.md +4/−0
- library-gen/Stratosphere/ResourceProperties/CodeBuildProjectEnvironmentVariable.hs +8/−0
- library-gen/Stratosphere/ResourceProperties/CognitoIdentityPoolRoleAttachmentRulesConfigurationType.hs +2/−2
- library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkApplicationApplicationResourceLifecycleConfig.hs +60/−0
- library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkApplicationApplicationVersionLifecycleConfig.hs +61/−0
- library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkApplicationMaxAgeRule.hs +66/−0
- library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkApplicationMaxCountRule.hs +66/−0
- library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting.hs +6/−7
- library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkEnvironmentOptionSetting.hs +68/−0
- library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkEnvironmentOptionSettings.hs +0/−69
- library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerCertificateCertificate.hs +51/−0
- library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2TargetGroupTargetDescription.hs +11/−3
- library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration.hs +62/−0
- library-gen/Stratosphere/ResourceProperties/S3BucketAnalyticsConfiguration.hs +76/−0
- library-gen/Stratosphere/ResourceProperties/S3BucketDataExport.hs +59/−0
- library-gen/Stratosphere/ResourceProperties/S3BucketDestination.hs +75/−0
- library-gen/Stratosphere/ResourceProperties/S3BucketInventoryConfiguration.hs +102/−0
- library-gen/Stratosphere/ResourceProperties/S3BucketStorageClassAnalysis.hs +49/−0
- library-gen/Stratosphere/Resources.hs +12/−1
- library-gen/Stratosphere/Resources/EC2NatGateway.hs +10/−2
- library-gen/Stratosphere/Resources/ECSService.hs +7/−8
- library-gen/Stratosphere/Resources/ElasticBeanstalkApplication.hs +10/−2
- library-gen/Stratosphere/Resources/ElasticBeanstalkConfigurationTemplate.hs +8/−0
- library-gen/Stratosphere/Resources/ElasticBeanstalkEnvironment.hs +11/−3
- library-gen/Stratosphere/Resources/KMSKey.hs +10/−2
- library-gen/Stratosphere/Resources/KinesisFirehoseDeliveryStream.hs +17/−0
- library-gen/Stratosphere/Resources/S3Bucket.hs +18/−0
- stratosphere.cabal +13/−2
CHANGELOG.md view
@@ -1,5 +1,9 @@ # Change Log +## 0.10.0++* Update resource specification document to version 1.7.0+ ## 0.9.0 * Update resource specification document to version 1.6.0
library-gen/Stratosphere/ResourceProperties/CodeBuildProjectEnvironmentVariable.hs view
@@ -20,6 +20,7 @@ data CodeBuildProjectEnvironmentVariable = CodeBuildProjectEnvironmentVariable { _codeBuildProjectEnvironmentVariableName :: Val Text+ , _codeBuildProjectEnvironmentVariableType :: Maybe (Val Text) , _codeBuildProjectEnvironmentVariableValue :: Val Text } deriving (Show, Eq) @@ -28,6 +29,7 @@ object $ catMaybes [ (Just . ("Name",) . toJSON) _codeBuildProjectEnvironmentVariableName+ , fmap (("Type",) . toJSON) _codeBuildProjectEnvironmentVariableType , (Just . ("Value",) . toJSON) _codeBuildProjectEnvironmentVariableValue ] @@ -35,6 +37,7 @@ parseJSON (Object obj) = CodeBuildProjectEnvironmentVariable <$> (obj .: "Name") <*>+ (obj .:? "Type") <*> (obj .: "Value") parseJSON _ = mempty @@ -47,12 +50,17 @@ codeBuildProjectEnvironmentVariable namearg valuearg = CodeBuildProjectEnvironmentVariable { _codeBuildProjectEnvironmentVariableName = namearg+ , _codeBuildProjectEnvironmentVariableType = Nothing , _codeBuildProjectEnvironmentVariableValue = valuearg } -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-environmentvariable.html#cfn-codebuild-project-environmentvariable-name cbpevName :: Lens' CodeBuildProjectEnvironmentVariable (Val Text) cbpevName = lens _codeBuildProjectEnvironmentVariableName (\s a -> s { _codeBuildProjectEnvironmentVariableName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-environmentvariable.html#cfn-codebuild-project-environmentvariable-type+cbpevType :: Lens' CodeBuildProjectEnvironmentVariable (Maybe (Val Text))+cbpevType = lens _codeBuildProjectEnvironmentVariableType (\s a -> s { _codeBuildProjectEnvironmentVariableType = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-environmentvariable.html#cfn-codebuild-project-environmentvariable-value cbpevValue :: Lens' CodeBuildProjectEnvironmentVariable (Val Text)
library-gen/Stratosphere/ResourceProperties/CognitoIdentityPoolRoleAttachmentRulesConfigurationType.hs view
@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-identitypoolroleattachment-rolemapping-rulesconfiguration.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-identitypoolroleattachment-rulesconfigurationtype.html module Stratosphere.ResourceProperties.CognitoIdentityPoolRoleAttachmentRulesConfigurationType where @@ -47,6 +47,6 @@ { _cognitoIdentityPoolRoleAttachmentRulesConfigurationTypeRules = rulesarg } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-identitypoolroleattachment-rolemapping-rulesconfiguration.html#cfn-cognito-identitypoolroleattachment-rolemapping-rulesconfiguration-rules+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-identitypoolroleattachment-rulesconfigurationtype.html#cfn-cognito-identitypoolroleattachment-rulesconfigurationtype-rules ciprarctRules :: Lens' CognitoIdentityPoolRoleAttachmentRulesConfigurationType [CognitoIdentityPoolRoleAttachmentMappingRule] ciprarctRules = lens _cognitoIdentityPoolRoleAttachmentRulesConfigurationTypeRules (\s a -> s { _cognitoIdentityPoolRoleAttachmentRulesConfigurationTypeRules = a })
+ library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkApplicationApplicationResourceLifecycleConfig.hs view
@@ -0,0 +1,60 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-application-applicationresourcelifecycleconfig.html++module Stratosphere.ResourceProperties.ElasticBeanstalkApplicationApplicationResourceLifecycleConfig where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+import Stratosphere.ResourceProperties.ElasticBeanstalkApplicationApplicationVersionLifecycleConfig++-- | Full data type definition for+-- ElasticBeanstalkApplicationApplicationResourceLifecycleConfig. See+-- 'elasticBeanstalkApplicationApplicationResourceLifecycleConfig' for a+-- more convenient constructor.+data ElasticBeanstalkApplicationApplicationResourceLifecycleConfig =+ ElasticBeanstalkApplicationApplicationResourceLifecycleConfig+ { _elasticBeanstalkApplicationApplicationResourceLifecycleConfigServiceRole :: Maybe (Val Text)+ , _elasticBeanstalkApplicationApplicationResourceLifecycleConfigVersionLifecycleConfig :: Maybe ElasticBeanstalkApplicationApplicationVersionLifecycleConfig+ } deriving (Show, Eq)++instance ToJSON ElasticBeanstalkApplicationApplicationResourceLifecycleConfig where+ toJSON ElasticBeanstalkApplicationApplicationResourceLifecycleConfig{..} =+ object $+ catMaybes+ [ fmap (("ServiceRole",) . toJSON) _elasticBeanstalkApplicationApplicationResourceLifecycleConfigServiceRole+ , fmap (("VersionLifecycleConfig",) . toJSON) _elasticBeanstalkApplicationApplicationResourceLifecycleConfigVersionLifecycleConfig+ ]++instance FromJSON ElasticBeanstalkApplicationApplicationResourceLifecycleConfig where+ parseJSON (Object obj) =+ ElasticBeanstalkApplicationApplicationResourceLifecycleConfig <$>+ (obj .:? "ServiceRole") <*>+ (obj .:? "VersionLifecycleConfig")+ parseJSON _ = mempty++-- | Constructor for+-- 'ElasticBeanstalkApplicationApplicationResourceLifecycleConfig'+-- containing required fields as arguments.+elasticBeanstalkApplicationApplicationResourceLifecycleConfig+ :: ElasticBeanstalkApplicationApplicationResourceLifecycleConfig+elasticBeanstalkApplicationApplicationResourceLifecycleConfig =+ ElasticBeanstalkApplicationApplicationResourceLifecycleConfig+ { _elasticBeanstalkApplicationApplicationResourceLifecycleConfigServiceRole = Nothing+ , _elasticBeanstalkApplicationApplicationResourceLifecycleConfigVersionLifecycleConfig = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-application-applicationresourcelifecycleconfig.html#cfn-elasticbeanstalk-application-applicationresourcelifecycleconfig-servicerole+ebaarlcServiceRole :: Lens' ElasticBeanstalkApplicationApplicationResourceLifecycleConfig (Maybe (Val Text))+ebaarlcServiceRole = lens _elasticBeanstalkApplicationApplicationResourceLifecycleConfigServiceRole (\s a -> s { _elasticBeanstalkApplicationApplicationResourceLifecycleConfigServiceRole = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-application-applicationresourcelifecycleconfig.html#cfn-elasticbeanstalk-application-applicationresourcelifecycleconfig-versionlifecycleconfig+ebaarlcVersionLifecycleConfig :: Lens' ElasticBeanstalkApplicationApplicationResourceLifecycleConfig (Maybe ElasticBeanstalkApplicationApplicationVersionLifecycleConfig)+ebaarlcVersionLifecycleConfig = lens _elasticBeanstalkApplicationApplicationResourceLifecycleConfigVersionLifecycleConfig (\s a -> s { _elasticBeanstalkApplicationApplicationResourceLifecycleConfigVersionLifecycleConfig = a })
+ library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkApplicationApplicationVersionLifecycleConfig.hs view
@@ -0,0 +1,61 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-application-applicationversionlifecycleconfig.html++module Stratosphere.ResourceProperties.ElasticBeanstalkApplicationApplicationVersionLifecycleConfig where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+import Stratosphere.ResourceProperties.ElasticBeanstalkApplicationMaxAgeRule+import Stratosphere.ResourceProperties.ElasticBeanstalkApplicationMaxCountRule++-- | Full data type definition for+-- ElasticBeanstalkApplicationApplicationVersionLifecycleConfig. See+-- 'elasticBeanstalkApplicationApplicationVersionLifecycleConfig' for a more+-- convenient constructor.+data ElasticBeanstalkApplicationApplicationVersionLifecycleConfig =+ ElasticBeanstalkApplicationApplicationVersionLifecycleConfig+ { _elasticBeanstalkApplicationApplicationVersionLifecycleConfigMaxAgeRule :: Maybe ElasticBeanstalkApplicationMaxAgeRule+ , _elasticBeanstalkApplicationApplicationVersionLifecycleConfigMaxCountRule :: Maybe ElasticBeanstalkApplicationMaxCountRule+ } deriving (Show, Eq)++instance ToJSON ElasticBeanstalkApplicationApplicationVersionLifecycleConfig where+ toJSON ElasticBeanstalkApplicationApplicationVersionLifecycleConfig{..} =+ object $+ catMaybes+ [ fmap (("MaxAgeRule",) . toJSON) _elasticBeanstalkApplicationApplicationVersionLifecycleConfigMaxAgeRule+ , fmap (("MaxCountRule",) . toJSON) _elasticBeanstalkApplicationApplicationVersionLifecycleConfigMaxCountRule+ ]++instance FromJSON ElasticBeanstalkApplicationApplicationVersionLifecycleConfig where+ parseJSON (Object obj) =+ ElasticBeanstalkApplicationApplicationVersionLifecycleConfig <$>+ (obj .:? "MaxAgeRule") <*>+ (obj .:? "MaxCountRule")+ parseJSON _ = mempty++-- | Constructor for+-- 'ElasticBeanstalkApplicationApplicationVersionLifecycleConfig' containing+-- required fields as arguments.+elasticBeanstalkApplicationApplicationVersionLifecycleConfig+ :: ElasticBeanstalkApplicationApplicationVersionLifecycleConfig+elasticBeanstalkApplicationApplicationVersionLifecycleConfig =+ ElasticBeanstalkApplicationApplicationVersionLifecycleConfig+ { _elasticBeanstalkApplicationApplicationVersionLifecycleConfigMaxAgeRule = Nothing+ , _elasticBeanstalkApplicationApplicationVersionLifecycleConfigMaxCountRule = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-application-applicationversionlifecycleconfig.html#cfn-elasticbeanstalk-application-applicationversionlifecycleconfig-maxagerule+ebaavlcMaxAgeRule :: Lens' ElasticBeanstalkApplicationApplicationVersionLifecycleConfig (Maybe ElasticBeanstalkApplicationMaxAgeRule)+ebaavlcMaxAgeRule = lens _elasticBeanstalkApplicationApplicationVersionLifecycleConfigMaxAgeRule (\s a -> s { _elasticBeanstalkApplicationApplicationVersionLifecycleConfigMaxAgeRule = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-application-applicationversionlifecycleconfig.html#cfn-elasticbeanstalk-application-applicationversionlifecycleconfig-maxcountrule+ebaavlcMaxCountRule :: Lens' ElasticBeanstalkApplicationApplicationVersionLifecycleConfig (Maybe ElasticBeanstalkApplicationMaxCountRule)+ebaavlcMaxCountRule = lens _elasticBeanstalkApplicationApplicationVersionLifecycleConfigMaxCountRule (\s a -> s { _elasticBeanstalkApplicationApplicationVersionLifecycleConfigMaxCountRule = a })
+ library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkApplicationMaxAgeRule.hs view
@@ -0,0 +1,66 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-application-maxagerule.html++module Stratosphere.ResourceProperties.ElasticBeanstalkApplicationMaxAgeRule where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for ElasticBeanstalkApplicationMaxAgeRule. See+-- 'elasticBeanstalkApplicationMaxAgeRule' for a more convenient+-- constructor.+data ElasticBeanstalkApplicationMaxAgeRule =+ ElasticBeanstalkApplicationMaxAgeRule+ { _elasticBeanstalkApplicationMaxAgeRuleDeleteSourceFromS3 :: Maybe (Val Bool)+ , _elasticBeanstalkApplicationMaxAgeRuleEnabled :: Maybe (Val Bool)+ , _elasticBeanstalkApplicationMaxAgeRuleMaxAgeInDays :: Maybe (Val Integer)+ } deriving (Show, Eq)++instance ToJSON ElasticBeanstalkApplicationMaxAgeRule where+ toJSON ElasticBeanstalkApplicationMaxAgeRule{..} =+ object $+ catMaybes+ [ fmap (("DeleteSourceFromS3",) . toJSON . fmap Bool') _elasticBeanstalkApplicationMaxAgeRuleDeleteSourceFromS3+ , fmap (("Enabled",) . toJSON . fmap Bool') _elasticBeanstalkApplicationMaxAgeRuleEnabled+ , fmap (("MaxAgeInDays",) . toJSON . fmap Integer') _elasticBeanstalkApplicationMaxAgeRuleMaxAgeInDays+ ]++instance FromJSON ElasticBeanstalkApplicationMaxAgeRule where+ parseJSON (Object obj) =+ ElasticBeanstalkApplicationMaxAgeRule <$>+ fmap (fmap (fmap unBool')) (obj .:? "DeleteSourceFromS3") <*>+ fmap (fmap (fmap unBool')) (obj .:? "Enabled") <*>+ fmap (fmap (fmap unInteger')) (obj .:? "MaxAgeInDays")+ parseJSON _ = mempty++-- | Constructor for 'ElasticBeanstalkApplicationMaxAgeRule' containing+-- required fields as arguments.+elasticBeanstalkApplicationMaxAgeRule+ :: ElasticBeanstalkApplicationMaxAgeRule+elasticBeanstalkApplicationMaxAgeRule =+ ElasticBeanstalkApplicationMaxAgeRule+ { _elasticBeanstalkApplicationMaxAgeRuleDeleteSourceFromS3 = Nothing+ , _elasticBeanstalkApplicationMaxAgeRuleEnabled = Nothing+ , _elasticBeanstalkApplicationMaxAgeRuleMaxAgeInDays = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-application-maxagerule.html#cfn-elasticbeanstalk-application-maxagerule-deletesourcefroms3+ebamarDeleteSourceFromS3 :: Lens' ElasticBeanstalkApplicationMaxAgeRule (Maybe (Val Bool))+ebamarDeleteSourceFromS3 = lens _elasticBeanstalkApplicationMaxAgeRuleDeleteSourceFromS3 (\s a -> s { _elasticBeanstalkApplicationMaxAgeRuleDeleteSourceFromS3 = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-application-maxagerule.html#cfn-elasticbeanstalk-application-maxagerule-enabled+ebamarEnabled :: Lens' ElasticBeanstalkApplicationMaxAgeRule (Maybe (Val Bool))+ebamarEnabled = lens _elasticBeanstalkApplicationMaxAgeRuleEnabled (\s a -> s { _elasticBeanstalkApplicationMaxAgeRuleEnabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-application-maxagerule.html#cfn-elasticbeanstalk-application-maxagerule-maxageindays+ebamarMaxAgeInDays :: Lens' ElasticBeanstalkApplicationMaxAgeRule (Maybe (Val Integer))+ebamarMaxAgeInDays = lens _elasticBeanstalkApplicationMaxAgeRuleMaxAgeInDays (\s a -> s { _elasticBeanstalkApplicationMaxAgeRuleMaxAgeInDays = a })
+ library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkApplicationMaxCountRule.hs view
@@ -0,0 +1,66 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-application-maxcountrule.html++module Stratosphere.ResourceProperties.ElasticBeanstalkApplicationMaxCountRule where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for ElasticBeanstalkApplicationMaxCountRule.+-- See 'elasticBeanstalkApplicationMaxCountRule' for a more convenient+-- constructor.+data ElasticBeanstalkApplicationMaxCountRule =+ ElasticBeanstalkApplicationMaxCountRule+ { _elasticBeanstalkApplicationMaxCountRuleDeleteSourceFromS3 :: Maybe (Val Bool)+ , _elasticBeanstalkApplicationMaxCountRuleEnabled :: Maybe (Val Bool)+ , _elasticBeanstalkApplicationMaxCountRuleMaxCount :: Maybe (Val Integer)+ } deriving (Show, Eq)++instance ToJSON ElasticBeanstalkApplicationMaxCountRule where+ toJSON ElasticBeanstalkApplicationMaxCountRule{..} =+ object $+ catMaybes+ [ fmap (("DeleteSourceFromS3",) . toJSON . fmap Bool') _elasticBeanstalkApplicationMaxCountRuleDeleteSourceFromS3+ , fmap (("Enabled",) . toJSON . fmap Bool') _elasticBeanstalkApplicationMaxCountRuleEnabled+ , fmap (("MaxCount",) . toJSON . fmap Integer') _elasticBeanstalkApplicationMaxCountRuleMaxCount+ ]++instance FromJSON ElasticBeanstalkApplicationMaxCountRule where+ parseJSON (Object obj) =+ ElasticBeanstalkApplicationMaxCountRule <$>+ fmap (fmap (fmap unBool')) (obj .:? "DeleteSourceFromS3") <*>+ fmap (fmap (fmap unBool')) (obj .:? "Enabled") <*>+ fmap (fmap (fmap unInteger')) (obj .:? "MaxCount")+ parseJSON _ = mempty++-- | Constructor for 'ElasticBeanstalkApplicationMaxCountRule' containing+-- required fields as arguments.+elasticBeanstalkApplicationMaxCountRule+ :: ElasticBeanstalkApplicationMaxCountRule+elasticBeanstalkApplicationMaxCountRule =+ ElasticBeanstalkApplicationMaxCountRule+ { _elasticBeanstalkApplicationMaxCountRuleDeleteSourceFromS3 = Nothing+ , _elasticBeanstalkApplicationMaxCountRuleEnabled = Nothing+ , _elasticBeanstalkApplicationMaxCountRuleMaxCount = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-application-maxcountrule.html#cfn-elasticbeanstalk-application-maxcountrule-deletesourcefroms3+ebamcrDeleteSourceFromS3 :: Lens' ElasticBeanstalkApplicationMaxCountRule (Maybe (Val Bool))+ebamcrDeleteSourceFromS3 = lens _elasticBeanstalkApplicationMaxCountRuleDeleteSourceFromS3 (\s a -> s { _elasticBeanstalkApplicationMaxCountRuleDeleteSourceFromS3 = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-application-maxcountrule.html#cfn-elasticbeanstalk-application-maxcountrule-enabled+ebamcrEnabled :: Lens' ElasticBeanstalkApplicationMaxCountRule (Maybe (Val Bool))+ebamcrEnabled = lens _elasticBeanstalkApplicationMaxCountRuleEnabled (\s a -> s { _elasticBeanstalkApplicationMaxCountRuleEnabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-application-maxcountrule.html#cfn-elasticbeanstalk-application-maxcountrule-maxcount+ebamcrMaxCount :: Lens' ElasticBeanstalkApplicationMaxCountRule (Maybe (Val Integer))+ebamcrMaxCount = lens _elasticBeanstalkApplicationMaxCountRuleMaxCount (\s a -> s { _elasticBeanstalkApplicationMaxCountRuleMaxCount = a })
library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting.hs view
@@ -23,7 +23,7 @@ ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting { _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingNamespace :: Val Text , _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingOptionName :: Val Text- , _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingValue :: Val Text+ , _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingValue :: Maybe (Val Text) } deriving (Show, Eq) instance ToJSON ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting where@@ -32,7 +32,7 @@ catMaybes [ (Just . ("Namespace",) . toJSON) _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingNamespace , (Just . ("OptionName",) . toJSON) _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingOptionName- , (Just . ("Value",) . toJSON) _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingValue+ , fmap (("Value",) . toJSON) _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingValue ] instance FromJSON ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting where@@ -40,7 +40,7 @@ ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting <$> (obj .: "Namespace") <*> (obj .: "OptionName") <*>- (obj .: "Value")+ (obj .:? "Value") parseJSON _ = mempty -- | Constructor for@@ -49,13 +49,12 @@ elasticBeanstalkConfigurationTemplateConfigurationOptionSetting :: Val Text -- ^ 'ebctcosNamespace' -> Val Text -- ^ 'ebctcosOptionName'- -> Val Text -- ^ 'ebctcosValue' -> ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting-elasticBeanstalkConfigurationTemplateConfigurationOptionSetting namespacearg optionNamearg valuearg =+elasticBeanstalkConfigurationTemplateConfigurationOptionSetting namespacearg optionNamearg = ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting { _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingNamespace = namespacearg , _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingOptionName = optionNamearg- , _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingValue = valuearg+ , _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingValue = Nothing } -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-option-settings.html#cfn-beanstalk-optionsettings-namespace@@ -67,5 +66,5 @@ ebctcosOptionName = lens _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingOptionName (\s a -> s { _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingOptionName = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-option-settings.html#cfn-beanstalk-optionsettings-value-ebctcosValue :: Lens' ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting (Val Text)+ebctcosValue :: Lens' ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting (Maybe (Val Text)) ebctcosValue = lens _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingValue (\s a -> s { _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingValue = a })
+ library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkEnvironmentOptionSetting.hs view
@@ -0,0 +1,68 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-option-settings.html++module Stratosphere.ResourceProperties.ElasticBeanstalkEnvironmentOptionSetting where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for ElasticBeanstalkEnvironmentOptionSetting.+-- See 'elasticBeanstalkEnvironmentOptionSetting' for a more convenient+-- constructor.+data ElasticBeanstalkEnvironmentOptionSetting =+ ElasticBeanstalkEnvironmentOptionSetting+ { _elasticBeanstalkEnvironmentOptionSettingNamespace :: Val Text+ , _elasticBeanstalkEnvironmentOptionSettingOptionName :: Val Text+ , _elasticBeanstalkEnvironmentOptionSettingValue :: Maybe (Val Text)+ } deriving (Show, Eq)++instance ToJSON ElasticBeanstalkEnvironmentOptionSetting where+ toJSON ElasticBeanstalkEnvironmentOptionSetting{..} =+ object $+ catMaybes+ [ (Just . ("Namespace",) . toJSON) _elasticBeanstalkEnvironmentOptionSettingNamespace+ , (Just . ("OptionName",) . toJSON) _elasticBeanstalkEnvironmentOptionSettingOptionName+ , fmap (("Value",) . toJSON) _elasticBeanstalkEnvironmentOptionSettingValue+ ]++instance FromJSON ElasticBeanstalkEnvironmentOptionSetting where+ parseJSON (Object obj) =+ ElasticBeanstalkEnvironmentOptionSetting <$>+ (obj .: "Namespace") <*>+ (obj .: "OptionName") <*>+ (obj .:? "Value")+ parseJSON _ = mempty++-- | Constructor for 'ElasticBeanstalkEnvironmentOptionSetting' containing+-- required fields as arguments.+elasticBeanstalkEnvironmentOptionSetting+ :: Val Text -- ^ 'ebeosNamespace'+ -> Val Text -- ^ 'ebeosOptionName'+ -> ElasticBeanstalkEnvironmentOptionSetting+elasticBeanstalkEnvironmentOptionSetting namespacearg optionNamearg =+ ElasticBeanstalkEnvironmentOptionSetting+ { _elasticBeanstalkEnvironmentOptionSettingNamespace = namespacearg+ , _elasticBeanstalkEnvironmentOptionSettingOptionName = optionNamearg+ , _elasticBeanstalkEnvironmentOptionSettingValue = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-option-settings.html#cfn-beanstalk-optionsettings-namespace+ebeosNamespace :: Lens' ElasticBeanstalkEnvironmentOptionSetting (Val Text)+ebeosNamespace = lens _elasticBeanstalkEnvironmentOptionSettingNamespace (\s a -> s { _elasticBeanstalkEnvironmentOptionSettingNamespace = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-option-settings.html#cfn-beanstalk-optionsettings-optionname+ebeosOptionName :: Lens' ElasticBeanstalkEnvironmentOptionSetting (Val Text)+ebeosOptionName = lens _elasticBeanstalkEnvironmentOptionSettingOptionName (\s a -> s { _elasticBeanstalkEnvironmentOptionSettingOptionName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-option-settings.html#cfn-beanstalk-optionsettings-value+ebeosValue :: Lens' ElasticBeanstalkEnvironmentOptionSetting (Maybe (Val Text))+ebeosValue = lens _elasticBeanstalkEnvironmentOptionSettingValue (\s a -> s { _elasticBeanstalkEnvironmentOptionSettingValue = a })
− library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkEnvironmentOptionSettings.hs
@@ -1,69 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TupleSections #-}---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-option-settings.html--module Stratosphere.ResourceProperties.ElasticBeanstalkEnvironmentOptionSettings where--import Control.Lens hiding ((.=))-import Data.Aeson-import Data.Maybe (catMaybes)-import Data.Monoid (mempty)-import Data.Text--import Stratosphere.Values----- | Full data type definition for ElasticBeanstalkEnvironmentOptionSettings.--- See 'elasticBeanstalkEnvironmentOptionSettings' for a more convenient--- constructor.-data ElasticBeanstalkEnvironmentOptionSettings =- ElasticBeanstalkEnvironmentOptionSettings- { _elasticBeanstalkEnvironmentOptionSettingsNamespace :: Val Text- , _elasticBeanstalkEnvironmentOptionSettingsOptionName :: Val Text- , _elasticBeanstalkEnvironmentOptionSettingsValue :: Val Text- } deriving (Show, Eq)--instance ToJSON ElasticBeanstalkEnvironmentOptionSettings where- toJSON ElasticBeanstalkEnvironmentOptionSettings{..} =- object $- catMaybes- [ (Just . ("Namespace",) . toJSON) _elasticBeanstalkEnvironmentOptionSettingsNamespace- , (Just . ("OptionName",) . toJSON) _elasticBeanstalkEnvironmentOptionSettingsOptionName- , (Just . ("Value",) . toJSON) _elasticBeanstalkEnvironmentOptionSettingsValue- ]--instance FromJSON ElasticBeanstalkEnvironmentOptionSettings where- parseJSON (Object obj) =- ElasticBeanstalkEnvironmentOptionSettings <$>- (obj .: "Namespace") <*>- (obj .: "OptionName") <*>- (obj .: "Value")- parseJSON _ = mempty---- | Constructor for 'ElasticBeanstalkEnvironmentOptionSettings' containing--- required fields as arguments.-elasticBeanstalkEnvironmentOptionSettings- :: Val Text -- ^ 'ebeosNamespace'- -> Val Text -- ^ 'ebeosOptionName'- -> Val Text -- ^ 'ebeosValue'- -> ElasticBeanstalkEnvironmentOptionSettings-elasticBeanstalkEnvironmentOptionSettings namespacearg optionNamearg valuearg =- ElasticBeanstalkEnvironmentOptionSettings- { _elasticBeanstalkEnvironmentOptionSettingsNamespace = namespacearg- , _elasticBeanstalkEnvironmentOptionSettingsOptionName = optionNamearg- , _elasticBeanstalkEnvironmentOptionSettingsValue = valuearg- }---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-option-settings.html#cfn-beanstalk-optionsettings-namespace-ebeosNamespace :: Lens' ElasticBeanstalkEnvironmentOptionSettings (Val Text)-ebeosNamespace = lens _elasticBeanstalkEnvironmentOptionSettingsNamespace (\s a -> s { _elasticBeanstalkEnvironmentOptionSettingsNamespace = a })---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-option-settings.html#cfn-beanstalk-optionsettings-optionname-ebeosOptionName :: Lens' ElasticBeanstalkEnvironmentOptionSettings (Val Text)-ebeosOptionName = lens _elasticBeanstalkEnvironmentOptionSettingsOptionName (\s a -> s { _elasticBeanstalkEnvironmentOptionSettingsOptionName = a })---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-option-settings.html#cfn-beanstalk-optionsettings-value-ebeosValue :: Lens' ElasticBeanstalkEnvironmentOptionSettings (Val Text)-ebeosValue = lens _elasticBeanstalkEnvironmentOptionSettingsValue (\s a -> s { _elasticBeanstalkEnvironmentOptionSettingsValue = a })
+ library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerCertificateCertificate.hs view
@@ -0,0 +1,51 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-certificates.html++module Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerCertificateCertificate where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for+-- ElasticLoadBalancingV2ListenerCertificateCertificate. See+-- 'elasticLoadBalancingV2ListenerCertificateCertificate' for a more+-- convenient constructor.+data ElasticLoadBalancingV2ListenerCertificateCertificate =+ ElasticLoadBalancingV2ListenerCertificateCertificate+ { _elasticLoadBalancingV2ListenerCertificateCertificateCertificateArn :: Maybe (Val Text)+ } deriving (Show, Eq)++instance ToJSON ElasticLoadBalancingV2ListenerCertificateCertificate where+ toJSON ElasticLoadBalancingV2ListenerCertificateCertificate{..} =+ object $+ catMaybes+ [ fmap (("CertificateArn",) . toJSON) _elasticLoadBalancingV2ListenerCertificateCertificateCertificateArn+ ]++instance FromJSON ElasticLoadBalancingV2ListenerCertificateCertificate where+ parseJSON (Object obj) =+ ElasticLoadBalancingV2ListenerCertificateCertificate <$>+ (obj .:? "CertificateArn")+ parseJSON _ = mempty++-- | Constructor for 'ElasticLoadBalancingV2ListenerCertificateCertificate'+-- containing required fields as arguments.+elasticLoadBalancingV2ListenerCertificateCertificate+ :: ElasticLoadBalancingV2ListenerCertificateCertificate+elasticLoadBalancingV2ListenerCertificateCertificate =+ ElasticLoadBalancingV2ListenerCertificateCertificate+ { _elasticLoadBalancingV2ListenerCertificateCertificateCertificateArn = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-certificates.html#cfn-elasticloadbalancingv2-listener-certificates-certificatearn+elbvlccCertificateArn :: Lens' ElasticLoadBalancingV2ListenerCertificateCertificate (Maybe (Val Text))+elbvlccCertificateArn = lens _elasticLoadBalancingV2ListenerCertificateCertificateCertificateArn (\s a -> s { _elasticLoadBalancingV2ListenerCertificateCertificateCertificateArn = a })
library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2TargetGroupTargetDescription.hs view
@@ -21,7 +21,8 @@ -- convenient constructor. data ElasticLoadBalancingV2TargetGroupTargetDescription = ElasticLoadBalancingV2TargetGroupTargetDescription- { _elasticLoadBalancingV2TargetGroupTargetDescriptionId :: Val Text+ { _elasticLoadBalancingV2TargetGroupTargetDescriptionAvailabilityZone :: Maybe (Val Text)+ , _elasticLoadBalancingV2TargetGroupTargetDescriptionId :: Val Text , _elasticLoadBalancingV2TargetGroupTargetDescriptionPort :: Maybe (Val Integer) } deriving (Show, Eq) @@ -29,13 +30,15 @@ toJSON ElasticLoadBalancingV2TargetGroupTargetDescription{..} = object $ catMaybes- [ (Just . ("Id",) . toJSON) _elasticLoadBalancingV2TargetGroupTargetDescriptionId+ [ fmap (("AvailabilityZone",) . toJSON) _elasticLoadBalancingV2TargetGroupTargetDescriptionAvailabilityZone+ , (Just . ("Id",) . toJSON) _elasticLoadBalancingV2TargetGroupTargetDescriptionId , fmap (("Port",) . toJSON . fmap Integer') _elasticLoadBalancingV2TargetGroupTargetDescriptionPort ] instance FromJSON ElasticLoadBalancingV2TargetGroupTargetDescription where parseJSON (Object obj) = ElasticLoadBalancingV2TargetGroupTargetDescription <$>+ (obj .:? "AvailabilityZone") <*> (obj .: "Id") <*> fmap (fmap (fmap unInteger')) (obj .:? "Port") parseJSON _ = mempty@@ -47,9 +50,14 @@ -> ElasticLoadBalancingV2TargetGroupTargetDescription elasticLoadBalancingV2TargetGroupTargetDescription idarg = ElasticLoadBalancingV2TargetGroupTargetDescription- { _elasticLoadBalancingV2TargetGroupTargetDescriptionId = idarg+ { _elasticLoadBalancingV2TargetGroupTargetDescriptionAvailabilityZone = Nothing+ , _elasticLoadBalancingV2TargetGroupTargetDescriptionId = idarg , _elasticLoadBalancingV2TargetGroupTargetDescriptionPort = Nothing }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-targetgroup-targetdescription.html#cfn-elasticloadbalancingv2-targetgroup-targetdescription-availabilityzone+elbvtgtdAvailabilityZone :: Lens' ElasticLoadBalancingV2TargetGroupTargetDescription (Maybe (Val Text))+elbvtgtdAvailabilityZone = lens _elasticLoadBalancingV2TargetGroupTargetDescriptionAvailabilityZone (\s a -> s { _elasticLoadBalancingV2TargetGroupTargetDescriptionAvailabilityZone = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-targetgroup-targetdescription.html#cfn-elasticloadbalancingv2-targetgroup-targetdescription-id elbvtgtdId :: Lens' ElasticLoadBalancingV2TargetGroupTargetDescription (Val Text)
+ library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration.hs view
@@ -0,0 +1,62 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-kinesisstreamsourceconfiguration.html++module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for+-- KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration. See+-- 'kinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration' for a+-- more convenient constructor.+data KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration =+ KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration+ { _kinesisFirehoseDeliveryStreamKinesisStreamSourceConfigurationKinesisStreamARN :: Val Text+ , _kinesisFirehoseDeliveryStreamKinesisStreamSourceConfigurationRoleARN :: Val Text+ } deriving (Show, Eq)++instance ToJSON KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration where+ toJSON KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration{..} =+ object $+ catMaybes+ [ (Just . ("KinesisStreamARN",) . toJSON) _kinesisFirehoseDeliveryStreamKinesisStreamSourceConfigurationKinesisStreamARN+ , (Just . ("RoleARN",) . toJSON) _kinesisFirehoseDeliveryStreamKinesisStreamSourceConfigurationRoleARN+ ]++instance FromJSON KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration where+ parseJSON (Object obj) =+ KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration <$>+ (obj .: "KinesisStreamARN") <*>+ (obj .: "RoleARN")+ parseJSON _ = mempty++-- | Constructor for+-- 'KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration'+-- containing required fields as arguments.+kinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration+ :: Val Text -- ^ 'kfdsksscKinesisStreamARN'+ -> Val Text -- ^ 'kfdsksscRoleARN'+ -> KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration+kinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration kinesisStreamARNarg roleARNarg =+ KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration+ { _kinesisFirehoseDeliveryStreamKinesisStreamSourceConfigurationKinesisStreamARN = kinesisStreamARNarg+ , _kinesisFirehoseDeliveryStreamKinesisStreamSourceConfigurationRoleARN = roleARNarg+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-kinesisstreamsourceconfiguration.html#cfn-kinesisfirehose-deliverystream-kinesisstreamsourceconfiguration-kinesisstreamarn+kfdsksscKinesisStreamARN :: Lens' KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration (Val Text)+kfdsksscKinesisStreamARN = lens _kinesisFirehoseDeliveryStreamKinesisStreamSourceConfigurationKinesisStreamARN (\s a -> s { _kinesisFirehoseDeliveryStreamKinesisStreamSourceConfigurationKinesisStreamARN = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-kinesisstreamsourceconfiguration.html#cfn-kinesisfirehose-deliverystream-kinesisstreamsourceconfiguration-rolearn+kfdsksscRoleARN :: Lens' KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration (Val Text)+kfdsksscRoleARN = lens _kinesisFirehoseDeliveryStreamKinesisStreamSourceConfigurationRoleARN (\s a -> s { _kinesisFirehoseDeliveryStreamKinesisStreamSourceConfigurationRoleARN = a })
+ library-gen/Stratosphere/ResourceProperties/S3BucketAnalyticsConfiguration.hs view
@@ -0,0 +1,76 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-analyticsconfiguration.html++module Stratosphere.ResourceProperties.S3BucketAnalyticsConfiguration where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+import Stratosphere.ResourceProperties.S3BucketStorageClassAnalysis+import Stratosphere.ResourceProperties.S3BucketTagFilter++-- | Full data type definition for S3BucketAnalyticsConfiguration. See+-- 's3BucketAnalyticsConfiguration' for a more convenient constructor.+data S3BucketAnalyticsConfiguration =+ S3BucketAnalyticsConfiguration+ { _s3BucketAnalyticsConfigurationId :: Val Text+ , _s3BucketAnalyticsConfigurationPrefix :: Maybe (Val Text)+ , _s3BucketAnalyticsConfigurationStorageClassAnalysis :: S3BucketStorageClassAnalysis+ , _s3BucketAnalyticsConfigurationTagFilters :: Maybe [S3BucketTagFilter]+ } deriving (Show, Eq)++instance ToJSON S3BucketAnalyticsConfiguration where+ toJSON S3BucketAnalyticsConfiguration{..} =+ object $+ catMaybes+ [ (Just . ("Id",) . toJSON) _s3BucketAnalyticsConfigurationId+ , fmap (("Prefix",) . toJSON) _s3BucketAnalyticsConfigurationPrefix+ , (Just . ("StorageClassAnalysis",) . toJSON) _s3BucketAnalyticsConfigurationStorageClassAnalysis+ , fmap (("TagFilters",) . toJSON) _s3BucketAnalyticsConfigurationTagFilters+ ]++instance FromJSON S3BucketAnalyticsConfiguration where+ parseJSON (Object obj) =+ S3BucketAnalyticsConfiguration <$>+ (obj .: "Id") <*>+ (obj .:? "Prefix") <*>+ (obj .: "StorageClassAnalysis") <*>+ (obj .:? "TagFilters")+ parseJSON _ = mempty++-- | Constructor for 'S3BucketAnalyticsConfiguration' containing required+-- fields as arguments.+s3BucketAnalyticsConfiguration+ :: Val Text -- ^ 'sbacId'+ -> S3BucketStorageClassAnalysis -- ^ 'sbacStorageClassAnalysis'+ -> S3BucketAnalyticsConfiguration+s3BucketAnalyticsConfiguration idarg storageClassAnalysisarg =+ S3BucketAnalyticsConfiguration+ { _s3BucketAnalyticsConfigurationId = idarg+ , _s3BucketAnalyticsConfigurationPrefix = Nothing+ , _s3BucketAnalyticsConfigurationStorageClassAnalysis = storageClassAnalysisarg+ , _s3BucketAnalyticsConfigurationTagFilters = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-analyticsconfiguration.html#cfn-s3-bucket-analyticsconfiguration-id+sbacId :: Lens' S3BucketAnalyticsConfiguration (Val Text)+sbacId = lens _s3BucketAnalyticsConfigurationId (\s a -> s { _s3BucketAnalyticsConfigurationId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-analyticsconfiguration.html#cfn-s3-bucket-analyticsconfiguration-prefix+sbacPrefix :: Lens' S3BucketAnalyticsConfiguration (Maybe (Val Text))+sbacPrefix = lens _s3BucketAnalyticsConfigurationPrefix (\s a -> s { _s3BucketAnalyticsConfigurationPrefix = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-analyticsconfiguration.html#cfn-s3-bucket-analyticsconfiguration-storageclassanalysis+sbacStorageClassAnalysis :: Lens' S3BucketAnalyticsConfiguration S3BucketStorageClassAnalysis+sbacStorageClassAnalysis = lens _s3BucketAnalyticsConfigurationStorageClassAnalysis (\s a -> s { _s3BucketAnalyticsConfigurationStorageClassAnalysis = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-analyticsconfiguration.html#cfn-s3-bucket-analyticsconfiguration-tagfilters+sbacTagFilters :: Lens' S3BucketAnalyticsConfiguration (Maybe [S3BucketTagFilter])+sbacTagFilters = lens _s3BucketAnalyticsConfigurationTagFilters (\s a -> s { _s3BucketAnalyticsConfigurationTagFilters = a })
+ library-gen/Stratosphere/ResourceProperties/S3BucketDataExport.hs view
@@ -0,0 +1,59 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-dataexport.html++module Stratosphere.ResourceProperties.S3BucketDataExport where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+import Stratosphere.ResourceProperties.S3BucketDestination++-- | Full data type definition for S3BucketDataExport. See+-- 's3BucketDataExport' for a more convenient constructor.+data S3BucketDataExport =+ S3BucketDataExport+ { _s3BucketDataExportDestination :: S3BucketDestination+ , _s3BucketDataExportOutputSchemaVersion :: Val Text+ } deriving (Show, Eq)++instance ToJSON S3BucketDataExport where+ toJSON S3BucketDataExport{..} =+ object $+ catMaybes+ [ (Just . ("Destination",) . toJSON) _s3BucketDataExportDestination+ , (Just . ("OutputSchemaVersion",) . toJSON) _s3BucketDataExportOutputSchemaVersion+ ]++instance FromJSON S3BucketDataExport where+ parseJSON (Object obj) =+ S3BucketDataExport <$>+ (obj .: "Destination") <*>+ (obj .: "OutputSchemaVersion")+ parseJSON _ = mempty++-- | Constructor for 'S3BucketDataExport' containing required fields as+-- arguments.+s3BucketDataExport+ :: S3BucketDestination -- ^ 'sbdeDestination'+ -> Val Text -- ^ 'sbdeOutputSchemaVersion'+ -> S3BucketDataExport+s3BucketDataExport destinationarg outputSchemaVersionarg =+ S3BucketDataExport+ { _s3BucketDataExportDestination = destinationarg+ , _s3BucketDataExportOutputSchemaVersion = outputSchemaVersionarg+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-dataexport.html#cfn-s3-bucket-dataexport-destination+sbdeDestination :: Lens' S3BucketDataExport S3BucketDestination+sbdeDestination = lens _s3BucketDataExportDestination (\s a -> s { _s3BucketDataExportDestination = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-dataexport.html#cfn-s3-bucket-dataexport-outputschemaversion+sbdeOutputSchemaVersion :: Lens' S3BucketDataExport (Val Text)+sbdeOutputSchemaVersion = lens _s3BucketDataExportOutputSchemaVersion (\s a -> s { _s3BucketDataExportOutputSchemaVersion = a })
+ library-gen/Stratosphere/ResourceProperties/S3BucketDestination.hs view
@@ -0,0 +1,75 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-destination.html++module Stratosphere.ResourceProperties.S3BucketDestination where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for S3BucketDestination. See+-- 's3BucketDestination' for a more convenient constructor.+data S3BucketDestination =+ S3BucketDestination+ { _s3BucketDestinationBucketAccountId :: Maybe (Val Text)+ , _s3BucketDestinationBucketArn :: Val Text+ , _s3BucketDestinationFormat :: Val Text+ , _s3BucketDestinationPrefix :: Maybe (Val Text)+ } deriving (Show, Eq)++instance ToJSON S3BucketDestination where+ toJSON S3BucketDestination{..} =+ object $+ catMaybes+ [ fmap (("BucketAccountId",) . toJSON) _s3BucketDestinationBucketAccountId+ , (Just . ("BucketArn",) . toJSON) _s3BucketDestinationBucketArn+ , (Just . ("Format",) . toJSON) _s3BucketDestinationFormat+ , fmap (("Prefix",) . toJSON) _s3BucketDestinationPrefix+ ]++instance FromJSON S3BucketDestination where+ parseJSON (Object obj) =+ S3BucketDestination <$>+ (obj .:? "BucketAccountId") <*>+ (obj .: "BucketArn") <*>+ (obj .: "Format") <*>+ (obj .:? "Prefix")+ parseJSON _ = mempty++-- | Constructor for 'S3BucketDestination' containing required fields as+-- arguments.+s3BucketDestination+ :: Val Text -- ^ 'sbdBucketArn'+ -> Val Text -- ^ 'sbdFormat'+ -> S3BucketDestination+s3BucketDestination bucketArnarg formatarg =+ S3BucketDestination+ { _s3BucketDestinationBucketAccountId = Nothing+ , _s3BucketDestinationBucketArn = bucketArnarg+ , _s3BucketDestinationFormat = formatarg+ , _s3BucketDestinationPrefix = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-destination.html#cfn-s3-bucket-destination-bucketaccountid+sbdBucketAccountId :: Lens' S3BucketDestination (Maybe (Val Text))+sbdBucketAccountId = lens _s3BucketDestinationBucketAccountId (\s a -> s { _s3BucketDestinationBucketAccountId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-destination.html#cfn-s3-bucket-destination-bucketarn+sbdBucketArn :: Lens' S3BucketDestination (Val Text)+sbdBucketArn = lens _s3BucketDestinationBucketArn (\s a -> s { _s3BucketDestinationBucketArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-destination.html#cfn-s3-bucket-destination-format+sbdFormat :: Lens' S3BucketDestination (Val Text)+sbdFormat = lens _s3BucketDestinationFormat (\s a -> s { _s3BucketDestinationFormat = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-destination.html#cfn-s3-bucket-destination-prefix+sbdPrefix :: Lens' S3BucketDestination (Maybe (Val Text))+sbdPrefix = lens _s3BucketDestinationPrefix (\s a -> s { _s3BucketDestinationPrefix = a })
+ library-gen/Stratosphere/ResourceProperties/S3BucketInventoryConfiguration.hs view
@@ -0,0 +1,102 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-inventoryconfiguration.html++module Stratosphere.ResourceProperties.S3BucketInventoryConfiguration where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+import Stratosphere.ResourceProperties.S3BucketDestination++-- | Full data type definition for S3BucketInventoryConfiguration. See+-- 's3BucketInventoryConfiguration' for a more convenient constructor.+data S3BucketInventoryConfiguration =+ S3BucketInventoryConfiguration+ { _s3BucketInventoryConfigurationDestination :: S3BucketDestination+ , _s3BucketInventoryConfigurationEnabled :: Val Bool+ , _s3BucketInventoryConfigurationId :: Val Text+ , _s3BucketInventoryConfigurationIncludedObjectVersions :: Val Text+ , _s3BucketInventoryConfigurationOptionalFields :: Maybe (ValList Text)+ , _s3BucketInventoryConfigurationPrefix :: Maybe (Val Text)+ , _s3BucketInventoryConfigurationScheduleFrequency :: Val Text+ } deriving (Show, Eq)++instance ToJSON S3BucketInventoryConfiguration where+ toJSON S3BucketInventoryConfiguration{..} =+ object $+ catMaybes+ [ (Just . ("Destination",) . toJSON) _s3BucketInventoryConfigurationDestination+ , (Just . ("Enabled",) . toJSON . fmap Bool') _s3BucketInventoryConfigurationEnabled+ , (Just . ("Id",) . toJSON) _s3BucketInventoryConfigurationId+ , (Just . ("IncludedObjectVersions",) . toJSON) _s3BucketInventoryConfigurationIncludedObjectVersions+ , fmap (("OptionalFields",) . toJSON) _s3BucketInventoryConfigurationOptionalFields+ , fmap (("Prefix",) . toJSON) _s3BucketInventoryConfigurationPrefix+ , (Just . ("ScheduleFrequency",) . toJSON) _s3BucketInventoryConfigurationScheduleFrequency+ ]++instance FromJSON S3BucketInventoryConfiguration where+ parseJSON (Object obj) =+ S3BucketInventoryConfiguration <$>+ (obj .: "Destination") <*>+ fmap (fmap unBool') (obj .: "Enabled") <*>+ (obj .: "Id") <*>+ (obj .: "IncludedObjectVersions") <*>+ (obj .:? "OptionalFields") <*>+ (obj .:? "Prefix") <*>+ (obj .: "ScheduleFrequency")+ parseJSON _ = mempty++-- | Constructor for 'S3BucketInventoryConfiguration' containing required+-- fields as arguments.+s3BucketInventoryConfiguration+ :: S3BucketDestination -- ^ 'sbicDestination'+ -> Val Bool -- ^ 'sbicEnabled'+ -> Val Text -- ^ 'sbicId'+ -> Val Text -- ^ 'sbicIncludedObjectVersions'+ -> Val Text -- ^ 'sbicScheduleFrequency'+ -> S3BucketInventoryConfiguration+s3BucketInventoryConfiguration destinationarg enabledarg idarg includedObjectVersionsarg scheduleFrequencyarg =+ S3BucketInventoryConfiguration+ { _s3BucketInventoryConfigurationDestination = destinationarg+ , _s3BucketInventoryConfigurationEnabled = enabledarg+ , _s3BucketInventoryConfigurationId = idarg+ , _s3BucketInventoryConfigurationIncludedObjectVersions = includedObjectVersionsarg+ , _s3BucketInventoryConfigurationOptionalFields = Nothing+ , _s3BucketInventoryConfigurationPrefix = Nothing+ , _s3BucketInventoryConfigurationScheduleFrequency = scheduleFrequencyarg+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-inventoryconfiguration.html#cfn-s3-bucket-inventoryconfiguration-destination+sbicDestination :: Lens' S3BucketInventoryConfiguration S3BucketDestination+sbicDestination = lens _s3BucketInventoryConfigurationDestination (\s a -> s { _s3BucketInventoryConfigurationDestination = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-inventoryconfiguration.html#cfn-s3-bucket-inventoryconfiguration-enabled+sbicEnabled :: Lens' S3BucketInventoryConfiguration (Val Bool)+sbicEnabled = lens _s3BucketInventoryConfigurationEnabled (\s a -> s { _s3BucketInventoryConfigurationEnabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-inventoryconfiguration.html#cfn-s3-bucket-inventoryconfiguration-id+sbicId :: Lens' S3BucketInventoryConfiguration (Val Text)+sbicId = lens _s3BucketInventoryConfigurationId (\s a -> s { _s3BucketInventoryConfigurationId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-inventoryconfiguration.html#cfn-s3-bucket-inventoryconfiguration-includedobjectversions+sbicIncludedObjectVersions :: Lens' S3BucketInventoryConfiguration (Val Text)+sbicIncludedObjectVersions = lens _s3BucketInventoryConfigurationIncludedObjectVersions (\s a -> s { _s3BucketInventoryConfigurationIncludedObjectVersions = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-inventoryconfiguration.html#cfn-s3-bucket-inventoryconfiguration-optionalfields+sbicOptionalFields :: Lens' S3BucketInventoryConfiguration (Maybe (ValList Text))+sbicOptionalFields = lens _s3BucketInventoryConfigurationOptionalFields (\s a -> s { _s3BucketInventoryConfigurationOptionalFields = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-inventoryconfiguration.html#cfn-s3-bucket-inventoryconfiguration-prefix+sbicPrefix :: Lens' S3BucketInventoryConfiguration (Maybe (Val Text))+sbicPrefix = lens _s3BucketInventoryConfigurationPrefix (\s a -> s { _s3BucketInventoryConfigurationPrefix = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-inventoryconfiguration.html#cfn-s3-bucket-inventoryconfiguration-schedulefrequency+sbicScheduleFrequency :: Lens' S3BucketInventoryConfiguration (Val Text)+sbicScheduleFrequency = lens _s3BucketInventoryConfigurationScheduleFrequency (\s a -> s { _s3BucketInventoryConfigurationScheduleFrequency = a })
+ library-gen/Stratosphere/ResourceProperties/S3BucketStorageClassAnalysis.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-storageclassanalysis.html++module Stratosphere.ResourceProperties.S3BucketStorageClassAnalysis where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+import Stratosphere.ResourceProperties.S3BucketDataExport++-- | Full data type definition for S3BucketStorageClassAnalysis. See+-- 's3BucketStorageClassAnalysis' for a more convenient constructor.+data S3BucketStorageClassAnalysis =+ S3BucketStorageClassAnalysis+ { _s3BucketStorageClassAnalysisDataExport :: Maybe S3BucketDataExport+ } deriving (Show, Eq)++instance ToJSON S3BucketStorageClassAnalysis where+ toJSON S3BucketStorageClassAnalysis{..} =+ object $+ catMaybes+ [ fmap (("DataExport",) . toJSON) _s3BucketStorageClassAnalysisDataExport+ ]++instance FromJSON S3BucketStorageClassAnalysis where+ parseJSON (Object obj) =+ S3BucketStorageClassAnalysis <$>+ (obj .:? "DataExport")+ parseJSON _ = mempty++-- | Constructor for 'S3BucketStorageClassAnalysis' containing required fields+-- as arguments.+s3BucketStorageClassAnalysis+ :: S3BucketStorageClassAnalysis+s3BucketStorageClassAnalysis =+ S3BucketStorageClassAnalysis+ { _s3BucketStorageClassAnalysisDataExport = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-storageclassanalysis.html#cfn-s3-bucket-storageclassanalysis-dataexport+sbscaDataExport :: Lens' S3BucketStorageClassAnalysis (Maybe S3BucketDataExport)+sbscaDataExport = lens _s3BucketStorageClassAnalysisDataExport (\s a -> s { _s3BucketStorageClassAnalysisDataExport = a })
library-gen/Stratosphere/Resources.hs view
@@ -482,10 +482,14 @@ import Stratosphere.ResourceProperties.EMRStepHadoopJarStepConfig as X import Stratosphere.ResourceProperties.EMRStepKeyValue as X import Stratosphere.ResourceProperties.ElastiCacheReplicationGroupNodeGroupConfiguration as X+import Stratosphere.ResourceProperties.ElasticBeanstalkApplicationApplicationResourceLifecycleConfig as X+import Stratosphere.ResourceProperties.ElasticBeanstalkApplicationApplicationVersionLifecycleConfig as X+import Stratosphere.ResourceProperties.ElasticBeanstalkApplicationMaxAgeRule as X+import Stratosphere.ResourceProperties.ElasticBeanstalkApplicationMaxCountRule as X import Stratosphere.ResourceProperties.ElasticBeanstalkApplicationVersionSourceBundle as X import Stratosphere.ResourceProperties.ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting as X import Stratosphere.ResourceProperties.ElasticBeanstalkConfigurationTemplateSourceConfiguration as X-import Stratosphere.ResourceProperties.ElasticBeanstalkEnvironmentOptionSettings as X+import Stratosphere.ResourceProperties.ElasticBeanstalkEnvironmentOptionSetting as X import Stratosphere.ResourceProperties.ElasticBeanstalkEnvironmentTier as X import Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerAccessLoggingPolicy as X import Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerAppCookieStickinessPolicy as X@@ -497,6 +501,7 @@ import Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerPolicies as X import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerAction as X import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerCertificate as X+import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerCertificateCertificate as X import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleAction as X import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleRuleCondition as X import Stratosphere.ResourceProperties.ElasticLoadBalancingV2LoadBalancerLoadBalancerAttribute as X@@ -567,6 +572,7 @@ import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamEncryptionConfiguration as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamKMSEncryptionConfig as X+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessingConfiguration as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessor as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessorParameter as X@@ -614,9 +620,13 @@ import Stratosphere.ResourceProperties.Route53RecordSetGroupRecordSet as X import Stratosphere.ResourceProperties.S3BucketAbortIncompleteMultipartUpload as X import Stratosphere.ResourceProperties.S3BucketAccelerateConfiguration as X+import Stratosphere.ResourceProperties.S3BucketAnalyticsConfiguration as X import Stratosphere.ResourceProperties.S3BucketCorsConfiguration as X import Stratosphere.ResourceProperties.S3BucketCorsRule as X+import Stratosphere.ResourceProperties.S3BucketDataExport as X+import Stratosphere.ResourceProperties.S3BucketDestination as X import Stratosphere.ResourceProperties.S3BucketFilterRule as X+import Stratosphere.ResourceProperties.S3BucketInventoryConfiguration as X import Stratosphere.ResourceProperties.S3BucketLambdaConfiguration as X import Stratosphere.ResourceProperties.S3BucketLifecycleConfiguration as X import Stratosphere.ResourceProperties.S3BucketLoggingConfiguration as X@@ -634,6 +644,7 @@ import Stratosphere.ResourceProperties.S3BucketRoutingRuleCondition as X import Stratosphere.ResourceProperties.S3BucketRule as X import Stratosphere.ResourceProperties.S3BucketS3KeyFilter as X+import Stratosphere.ResourceProperties.S3BucketStorageClassAnalysis as X import Stratosphere.ResourceProperties.S3BucketTagFilter as X import Stratosphere.ResourceProperties.S3BucketTopicConfiguration as X import Stratosphere.ResourceProperties.S3BucketTransition as X
library-gen/Stratosphere/Resources/EC2NatGateway.hs view
@@ -13,7 +13,7 @@ import Data.Text import Stratosphere.Values-+import Stratosphere.ResourceProperties.Tag -- | Full data type definition for EC2NatGateway. See 'ec2NatGateway' for a -- more convenient constructor.@@ -21,6 +21,7 @@ EC2NatGateway { _eC2NatGatewayAllocationId :: Val Text , _eC2NatGatewaySubnetId :: Val Text+ , _eC2NatGatewayTags :: Maybe [Tag] } deriving (Show, Eq) instance ToJSON EC2NatGateway where@@ -29,13 +30,15 @@ catMaybes [ (Just . ("AllocationId",) . toJSON) _eC2NatGatewayAllocationId , (Just . ("SubnetId",) . toJSON) _eC2NatGatewaySubnetId+ , fmap (("Tags",) . toJSON) _eC2NatGatewayTags ] instance FromJSON EC2NatGateway where parseJSON (Object obj) = EC2NatGateway <$> (obj .: "AllocationId") <*>- (obj .: "SubnetId")+ (obj .: "SubnetId") <*>+ (obj .:? "Tags") parseJSON _ = mempty -- | Constructor for 'EC2NatGateway' containing required fields as arguments.@@ -47,6 +50,7 @@ EC2NatGateway { _eC2NatGatewayAllocationId = allocationIdarg , _eC2NatGatewaySubnetId = subnetIdarg+ , _eC2NatGatewayTags = Nothing } -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-natgateway.html#cfn-ec2-natgateway-allocationid@@ -56,3 +60,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-natgateway.html#cfn-ec2-natgateway-subnetid ecngSubnetId :: Lens' EC2NatGateway (Val Text) ecngSubnetId = lens _eC2NatGatewaySubnetId (\s a -> s { _eC2NatGatewaySubnetId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-natgateway.html#cfn-ec2-natgateway-tags+ecngTags :: Lens' EC2NatGateway (Maybe [Tag])+ecngTags = lens _eC2NatGatewayTags (\s a -> s { _eC2NatGatewayTags = a })
library-gen/Stratosphere/Resources/ECSService.hs view
@@ -24,7 +24,7 @@ ECSService { _eCSServiceCluster :: Maybe (Val Text) , _eCSServiceDeploymentConfiguration :: Maybe ECSServiceDeploymentConfiguration- , _eCSServiceDesiredCount :: Val Integer+ , _eCSServiceDesiredCount :: Maybe (Val Integer) , _eCSServiceLoadBalancers :: Maybe [ECSServiceLoadBalancer] , _eCSServicePlacementConstraints :: Maybe [ECSServicePlacementConstraint] , _eCSServicePlacementStrategies :: Maybe [ECSServicePlacementStrategy]@@ -39,7 +39,7 @@ catMaybes [ fmap (("Cluster",) . toJSON) _eCSServiceCluster , fmap (("DeploymentConfiguration",) . toJSON) _eCSServiceDeploymentConfiguration- , (Just . ("DesiredCount",) . toJSON . fmap Integer') _eCSServiceDesiredCount+ , fmap (("DesiredCount",) . toJSON . fmap Integer') _eCSServiceDesiredCount , fmap (("LoadBalancers",) . toJSON) _eCSServiceLoadBalancers , fmap (("PlacementConstraints",) . toJSON) _eCSServicePlacementConstraints , fmap (("PlacementStrategies",) . toJSON) _eCSServicePlacementStrategies@@ -53,7 +53,7 @@ ECSService <$> (obj .:? "Cluster") <*> (obj .:? "DeploymentConfiguration") <*>- fmap (fmap unInteger') (obj .: "DesiredCount") <*>+ fmap (fmap (fmap unInteger')) (obj .:? "DesiredCount") <*> (obj .:? "LoadBalancers") <*> (obj .:? "PlacementConstraints") <*> (obj .:? "PlacementStrategies") <*>@@ -64,14 +64,13 @@ -- | Constructor for 'ECSService' containing required fields as arguments. ecsService- :: Val Integer -- ^ 'ecssDesiredCount'- -> Val Text -- ^ 'ecssTaskDefinition'+ :: Val Text -- ^ 'ecssTaskDefinition' -> ECSService-ecsService desiredCountarg taskDefinitionarg =+ecsService taskDefinitionarg = ECSService { _eCSServiceCluster = Nothing , _eCSServiceDeploymentConfiguration = Nothing- , _eCSServiceDesiredCount = desiredCountarg+ , _eCSServiceDesiredCount = Nothing , _eCSServiceLoadBalancers = Nothing , _eCSServicePlacementConstraints = Nothing , _eCSServicePlacementStrategies = Nothing@@ -89,7 +88,7 @@ ecssDeploymentConfiguration = lens _eCSServiceDeploymentConfiguration (\s a -> s { _eCSServiceDeploymentConfiguration = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-desiredcount-ecssDesiredCount :: Lens' ECSService (Val Integer)+ecssDesiredCount :: Lens' ECSService (Maybe (Val Integer)) ecssDesiredCount = lens _eCSServiceDesiredCount (\s a -> s { _eCSServiceDesiredCount = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-loadbalancers
library-gen/Stratosphere/Resources/ElasticBeanstalkApplication.hs view
@@ -13,7 +13,7 @@ import Data.Text import Stratosphere.Values-+import Stratosphere.ResourceProperties.ElasticBeanstalkApplicationApplicationResourceLifecycleConfig -- | Full data type definition for ElasticBeanstalkApplication. See -- 'elasticBeanstalkApplication' for a more convenient constructor.@@ -21,6 +21,7 @@ ElasticBeanstalkApplication { _elasticBeanstalkApplicationApplicationName :: Maybe (Val Text) , _elasticBeanstalkApplicationDescription :: Maybe (Val Text)+ , _elasticBeanstalkApplicationResourceLifecycleConfig :: Maybe ElasticBeanstalkApplicationApplicationResourceLifecycleConfig } deriving (Show, Eq) instance ToJSON ElasticBeanstalkApplication where@@ -29,13 +30,15 @@ catMaybes [ fmap (("ApplicationName",) . toJSON) _elasticBeanstalkApplicationApplicationName , fmap (("Description",) . toJSON) _elasticBeanstalkApplicationDescription+ , fmap (("ResourceLifecycleConfig",) . toJSON) _elasticBeanstalkApplicationResourceLifecycleConfig ] instance FromJSON ElasticBeanstalkApplication where parseJSON (Object obj) = ElasticBeanstalkApplication <$> (obj .:? "ApplicationName") <*>- (obj .:? "Description")+ (obj .:? "Description") <*>+ (obj .:? "ResourceLifecycleConfig") parseJSON _ = mempty -- | Constructor for 'ElasticBeanstalkApplication' containing required fields@@ -46,6 +49,7 @@ ElasticBeanstalkApplication { _elasticBeanstalkApplicationApplicationName = Nothing , _elasticBeanstalkApplicationDescription = Nothing+ , _elasticBeanstalkApplicationResourceLifecycleConfig = Nothing } -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk.html#cfn-elasticbeanstalk-application-name@@ -55,3 +59,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk.html#cfn-elasticbeanstalk-application-description ebaDescription :: Lens' ElasticBeanstalkApplication (Maybe (Val Text)) ebaDescription = lens _elasticBeanstalkApplicationDescription (\s a -> s { _elasticBeanstalkApplicationDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk.html#cfn-elasticbeanstalk-application-resourcelifecycleconfig+ebaResourceLifecycleConfig :: Lens' ElasticBeanstalkApplication (Maybe ElasticBeanstalkApplicationApplicationResourceLifecycleConfig)+ebaResourceLifecycleConfig = lens _elasticBeanstalkApplicationResourceLifecycleConfig (\s a -> s { _elasticBeanstalkApplicationResourceLifecycleConfig = a })
library-gen/Stratosphere/Resources/ElasticBeanstalkConfigurationTemplate.hs view
@@ -25,6 +25,7 @@ , _elasticBeanstalkConfigurationTemplateDescription :: Maybe (Val Text) , _elasticBeanstalkConfigurationTemplateEnvironmentId :: Maybe (Val Text) , _elasticBeanstalkConfigurationTemplateOptionSettings :: Maybe [ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting]+ , _elasticBeanstalkConfigurationTemplatePlatformArn :: Maybe (Val Text) , _elasticBeanstalkConfigurationTemplateSolutionStackName :: Maybe (Val Text) , _elasticBeanstalkConfigurationTemplateSourceConfiguration :: Maybe ElasticBeanstalkConfigurationTemplateSourceConfiguration } deriving (Show, Eq)@@ -37,6 +38,7 @@ , fmap (("Description",) . toJSON) _elasticBeanstalkConfigurationTemplateDescription , fmap (("EnvironmentId",) . toJSON) _elasticBeanstalkConfigurationTemplateEnvironmentId , fmap (("OptionSettings",) . toJSON) _elasticBeanstalkConfigurationTemplateOptionSettings+ , fmap (("PlatformArn",) . toJSON) _elasticBeanstalkConfigurationTemplatePlatformArn , fmap (("SolutionStackName",) . toJSON) _elasticBeanstalkConfigurationTemplateSolutionStackName , fmap (("SourceConfiguration",) . toJSON) _elasticBeanstalkConfigurationTemplateSourceConfiguration ]@@ -48,6 +50,7 @@ (obj .:? "Description") <*> (obj .:? "EnvironmentId") <*> (obj .:? "OptionSettings") <*>+ (obj .:? "PlatformArn") <*> (obj .:? "SolutionStackName") <*> (obj .:? "SourceConfiguration") parseJSON _ = mempty@@ -63,6 +66,7 @@ , _elasticBeanstalkConfigurationTemplateDescription = Nothing , _elasticBeanstalkConfigurationTemplateEnvironmentId = Nothing , _elasticBeanstalkConfigurationTemplateOptionSettings = Nothing+ , _elasticBeanstalkConfigurationTemplatePlatformArn = Nothing , _elasticBeanstalkConfigurationTemplateSolutionStackName = Nothing , _elasticBeanstalkConfigurationTemplateSourceConfiguration = Nothing }@@ -82,6 +86,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-beanstalk-configurationtemplate.html#cfn-elasticbeanstalk-configurationtemplate-optionsettings ebctOptionSettings :: Lens' ElasticBeanstalkConfigurationTemplate (Maybe [ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting]) ebctOptionSettings = lens _elasticBeanstalkConfigurationTemplateOptionSettings (\s a -> s { _elasticBeanstalkConfigurationTemplateOptionSettings = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-beanstalk-configurationtemplate.html#cfn-elasticbeanstalk-configurationtemplate-platformarn+ebctPlatformArn :: Lens' ElasticBeanstalkConfigurationTemplate (Maybe (Val Text))+ebctPlatformArn = lens _elasticBeanstalkConfigurationTemplatePlatformArn (\s a -> s { _elasticBeanstalkConfigurationTemplatePlatformArn = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-beanstalk-configurationtemplate.html#cfn-elasticbeanstalk-configurationtemplate-solutionstackname ebctSolutionStackName :: Lens' ElasticBeanstalkConfigurationTemplate (Maybe (Val Text))
library-gen/Stratosphere/Resources/ElasticBeanstalkEnvironment.hs view
@@ -13,7 +13,7 @@ import Data.Text import Stratosphere.Values-import Stratosphere.ResourceProperties.ElasticBeanstalkEnvironmentOptionSettings+import Stratosphere.ResourceProperties.ElasticBeanstalkEnvironmentOptionSetting import Stratosphere.ResourceProperties.Tag import Stratosphere.ResourceProperties.ElasticBeanstalkEnvironmentTier @@ -25,7 +25,8 @@ , _elasticBeanstalkEnvironmentCNAMEPrefix :: Maybe (Val Text) , _elasticBeanstalkEnvironmentDescription :: Maybe (Val Text) , _elasticBeanstalkEnvironmentEnvironmentName :: Maybe (Val Text)- , _elasticBeanstalkEnvironmentOptionSettings :: Maybe [ElasticBeanstalkEnvironmentOptionSettings]+ , _elasticBeanstalkEnvironmentOptionSettings :: Maybe [ElasticBeanstalkEnvironmentOptionSetting]+ , _elasticBeanstalkEnvironmentPlatformArn :: Maybe (Val Text) , _elasticBeanstalkEnvironmentSolutionStackName :: Maybe (Val Text) , _elasticBeanstalkEnvironmentTags :: Maybe [Tag] , _elasticBeanstalkEnvironmentTemplateName :: Maybe (Val Text)@@ -42,6 +43,7 @@ , fmap (("Description",) . toJSON) _elasticBeanstalkEnvironmentDescription , fmap (("EnvironmentName",) . toJSON) _elasticBeanstalkEnvironmentEnvironmentName , fmap (("OptionSettings",) . toJSON) _elasticBeanstalkEnvironmentOptionSettings+ , fmap (("PlatformArn",) . toJSON) _elasticBeanstalkEnvironmentPlatformArn , fmap (("SolutionStackName",) . toJSON) _elasticBeanstalkEnvironmentSolutionStackName , fmap (("Tags",) . toJSON) _elasticBeanstalkEnvironmentTags , fmap (("TemplateName",) . toJSON) _elasticBeanstalkEnvironmentTemplateName@@ -57,6 +59,7 @@ (obj .:? "Description") <*> (obj .:? "EnvironmentName") <*> (obj .:? "OptionSettings") <*>+ (obj .:? "PlatformArn") <*> (obj .:? "SolutionStackName") <*> (obj .:? "Tags") <*> (obj .:? "TemplateName") <*>@@ -76,6 +79,7 @@ , _elasticBeanstalkEnvironmentDescription = Nothing , _elasticBeanstalkEnvironmentEnvironmentName = Nothing , _elasticBeanstalkEnvironmentOptionSettings = Nothing+ , _elasticBeanstalkEnvironmentPlatformArn = Nothing , _elasticBeanstalkEnvironmentSolutionStackName = Nothing , _elasticBeanstalkEnvironmentTags = Nothing , _elasticBeanstalkEnvironmentTemplateName = Nothing@@ -100,8 +104,12 @@ ebeEnvironmentName = lens _elasticBeanstalkEnvironmentEnvironmentName (\s a -> s { _elasticBeanstalkEnvironmentEnvironmentName = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-environment.html#cfn-beanstalk-environment-optionsettings-ebeOptionSettings :: Lens' ElasticBeanstalkEnvironment (Maybe [ElasticBeanstalkEnvironmentOptionSettings])+ebeOptionSettings :: Lens' ElasticBeanstalkEnvironment (Maybe [ElasticBeanstalkEnvironmentOptionSetting]) ebeOptionSettings = lens _elasticBeanstalkEnvironmentOptionSettings (\s a -> s { _elasticBeanstalkEnvironmentOptionSettings = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-environment.html#cfn-beanstalk-environment-platformarn+ebePlatformArn :: Lens' ElasticBeanstalkEnvironment (Maybe (Val Text))+ebePlatformArn = lens _elasticBeanstalkEnvironmentPlatformArn (\s a -> s { _elasticBeanstalkEnvironmentPlatformArn = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-environment.html#cfn-beanstalk-environment-solutionstackname ebeSolutionStackName :: Lens' ElasticBeanstalkEnvironment (Maybe (Val Text))
library-gen/Stratosphere/Resources/KMSKey.hs view
@@ -13,7 +13,7 @@ import Data.Text import Stratosphere.Values-+import Stratosphere.ResourceProperties.Tag -- | Full data type definition for KMSKey. See 'kmsKey' for a more convenient -- constructor.@@ -24,6 +24,7 @@ , _kMSKeyEnabled :: Maybe (Val Bool) , _kMSKeyKeyPolicy :: Object , _kMSKeyKeyUsage :: Maybe (Val Text)+ , _kMSKeyTags :: Maybe [Tag] } deriving (Show, Eq) instance ToJSON KMSKey where@@ -35,6 +36,7 @@ , fmap (("Enabled",) . toJSON . fmap Bool') _kMSKeyEnabled , (Just . ("KeyPolicy",) . toJSON) _kMSKeyKeyPolicy , fmap (("KeyUsage",) . toJSON) _kMSKeyKeyUsage+ , fmap (("Tags",) . toJSON) _kMSKeyTags ] instance FromJSON KMSKey where@@ -44,7 +46,8 @@ fmap (fmap (fmap unBool')) (obj .:? "EnableKeyRotation") <*> fmap (fmap (fmap unBool')) (obj .:? "Enabled") <*> (obj .: "KeyPolicy") <*>- (obj .:? "KeyUsage")+ (obj .:? "KeyUsage") <*>+ (obj .:? "Tags") parseJSON _ = mempty -- | Constructor for 'KMSKey' containing required fields as arguments.@@ -58,6 +61,7 @@ , _kMSKeyEnabled = Nothing , _kMSKeyKeyPolicy = keyPolicyarg , _kMSKeyKeyUsage = Nothing+ , _kMSKeyTags = Nothing } -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kms-key.html#cfn-kms-key-description@@ -79,3 +83,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kms-key.html#cfn-kms-key-keyusage kmskKeyUsage :: Lens' KMSKey (Maybe (Val Text)) kmskKeyUsage = lens _kMSKeyKeyUsage (\s a -> s { _kMSKeyKeyUsage = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kms-key.html#cfn-kms-key-tags+kmskTags :: Lens' KMSKey (Maybe [Tag])+kmskTags = lens _kMSKeyTags (\s a -> s { _kMSKeyTags = a })
library-gen/Stratosphere/Resources/KinesisFirehoseDeliveryStream.hs view
@@ -15,6 +15,7 @@ import Stratosphere.Values import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamS3DestinationConfiguration @@ -23,8 +24,10 @@ data KinesisFirehoseDeliveryStream = KinesisFirehoseDeliveryStream { _kinesisFirehoseDeliveryStreamDeliveryStreamName :: Maybe (Val Text)+ , _kinesisFirehoseDeliveryStreamDeliveryStreamType :: Maybe (Val Text) , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration :: Maybe KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration :: Maybe KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration+ , _kinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration :: Maybe KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration :: Maybe KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration , _kinesisFirehoseDeliveryStreamS3DestinationConfiguration :: Maybe KinesisFirehoseDeliveryStreamS3DestinationConfiguration } deriving (Show, Eq)@@ -34,8 +37,10 @@ object $ catMaybes [ fmap (("DeliveryStreamName",) . toJSON) _kinesisFirehoseDeliveryStreamDeliveryStreamName+ , fmap (("DeliveryStreamType",) . toJSON) _kinesisFirehoseDeliveryStreamDeliveryStreamType , fmap (("ElasticsearchDestinationConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration , fmap (("ExtendedS3DestinationConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration+ , fmap (("KinesisStreamSourceConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration , fmap (("RedshiftDestinationConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration , fmap (("S3DestinationConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamS3DestinationConfiguration ]@@ -44,8 +49,10 @@ parseJSON (Object obj) = KinesisFirehoseDeliveryStream <$> (obj .:? "DeliveryStreamName") <*>+ (obj .:? "DeliveryStreamType") <*> (obj .:? "ElasticsearchDestinationConfiguration") <*> (obj .:? "ExtendedS3DestinationConfiguration") <*>+ (obj .:? "KinesisStreamSourceConfiguration") <*> (obj .:? "RedshiftDestinationConfiguration") <*> (obj .:? "S3DestinationConfiguration") parseJSON _ = mempty@@ -57,8 +64,10 @@ kinesisFirehoseDeliveryStream = KinesisFirehoseDeliveryStream { _kinesisFirehoseDeliveryStreamDeliveryStreamName = Nothing+ , _kinesisFirehoseDeliveryStreamDeliveryStreamType = Nothing , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration = Nothing , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration = Nothing+ , _kinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration = Nothing , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration = Nothing , _kinesisFirehoseDeliveryStreamS3DestinationConfiguration = Nothing }@@ -67,6 +76,10 @@ kfdsDeliveryStreamName :: Lens' KinesisFirehoseDeliveryStream (Maybe (Val Text)) kfdsDeliveryStreamName = lens _kinesisFirehoseDeliveryStreamDeliveryStreamName (\s a -> s { _kinesisFirehoseDeliveryStreamDeliveryStreamName = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisfirehose-deliverystream.html#cfn-kinesisfirehose-deliverystream-deliverystreamtype+kfdsDeliveryStreamType :: Lens' KinesisFirehoseDeliveryStream (Maybe (Val Text))+kfdsDeliveryStreamType = lens _kinesisFirehoseDeliveryStreamDeliveryStreamType (\s a -> s { _kinesisFirehoseDeliveryStreamDeliveryStreamType = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisfirehose-deliverystream.html#cfn-kinesisfirehose-deliverystream-elasticsearchdestinationconfiguration kfdsElasticsearchDestinationConfiguration :: Lens' KinesisFirehoseDeliveryStream (Maybe KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration) kfdsElasticsearchDestinationConfiguration = lens _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration = a })@@ -74,6 +87,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisfirehose-deliverystream.html#cfn-kinesisfirehose-deliverystream-extendeds3destinationconfiguration kfdsExtendedS3DestinationConfiguration :: Lens' KinesisFirehoseDeliveryStream (Maybe KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration) kfdsExtendedS3DestinationConfiguration = lens _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisfirehose-deliverystream.html#cfn-kinesisfirehose-deliverystream-kinesisstreamsourceconfiguration+kfdsKinesisStreamSourceConfiguration :: Lens' KinesisFirehoseDeliveryStream (Maybe KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration)+kfdsKinesisStreamSourceConfiguration = lens _kinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisfirehose-deliverystream.html#cfn-kinesisfirehose-deliverystream-redshiftdestinationconfiguration kfdsRedshiftDestinationConfiguration :: Lens' KinesisFirehoseDeliveryStream (Maybe KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration)
library-gen/Stratosphere/Resources/S3Bucket.hs view
@@ -15,7 +15,9 @@ import Stratosphere.Values import Stratosphere.Types import Stratosphere.ResourceProperties.S3BucketAccelerateConfiguration+import Stratosphere.ResourceProperties.S3BucketAnalyticsConfiguration import Stratosphere.ResourceProperties.S3BucketCorsConfiguration+import Stratosphere.ResourceProperties.S3BucketInventoryConfiguration import Stratosphere.ResourceProperties.S3BucketLifecycleConfiguration import Stratosphere.ResourceProperties.S3BucketLoggingConfiguration import Stratosphere.ResourceProperties.S3BucketMetricsConfiguration@@ -31,8 +33,10 @@ S3Bucket { _s3BucketAccelerateConfiguration :: Maybe S3BucketAccelerateConfiguration , _s3BucketAccessControl :: Maybe (Val CannedACL)+ , _s3BucketAnalyticsConfigurations :: Maybe [S3BucketAnalyticsConfiguration] , _s3BucketBucketName :: Maybe (Val Text) , _s3BucketCorsConfiguration :: Maybe S3BucketCorsConfiguration+ , _s3BucketInventoryConfigurations :: Maybe [S3BucketInventoryConfiguration] , _s3BucketLifecycleConfiguration :: Maybe S3BucketLifecycleConfiguration , _s3BucketLoggingConfiguration :: Maybe S3BucketLoggingConfiguration , _s3BucketMetricsConfigurations :: Maybe [S3BucketMetricsConfiguration]@@ -49,8 +53,10 @@ catMaybes [ fmap (("AccelerateConfiguration",) . toJSON) _s3BucketAccelerateConfiguration , fmap (("AccessControl",) . toJSON) _s3BucketAccessControl+ , fmap (("AnalyticsConfigurations",) . toJSON) _s3BucketAnalyticsConfigurations , fmap (("BucketName",) . toJSON) _s3BucketBucketName , fmap (("CorsConfiguration",) . toJSON) _s3BucketCorsConfiguration+ , fmap (("InventoryConfigurations",) . toJSON) _s3BucketInventoryConfigurations , fmap (("LifecycleConfiguration",) . toJSON) _s3BucketLifecycleConfiguration , fmap (("LoggingConfiguration",) . toJSON) _s3BucketLoggingConfiguration , fmap (("MetricsConfigurations",) . toJSON) _s3BucketMetricsConfigurations@@ -66,8 +72,10 @@ S3Bucket <$> (obj .:? "AccelerateConfiguration") <*> (obj .:? "AccessControl") <*>+ (obj .:? "AnalyticsConfigurations") <*> (obj .:? "BucketName") <*> (obj .:? "CorsConfiguration") <*>+ (obj .:? "InventoryConfigurations") <*> (obj .:? "LifecycleConfiguration") <*> (obj .:? "LoggingConfiguration") <*> (obj .:? "MetricsConfigurations") <*>@@ -85,8 +93,10 @@ S3Bucket { _s3BucketAccelerateConfiguration = Nothing , _s3BucketAccessControl = Nothing+ , _s3BucketAnalyticsConfigurations = Nothing , _s3BucketBucketName = Nothing , _s3BucketCorsConfiguration = Nothing+ , _s3BucketInventoryConfigurations = Nothing , _s3BucketLifecycleConfiguration = Nothing , _s3BucketLoggingConfiguration = Nothing , _s3BucketMetricsConfigurations = Nothing@@ -105,6 +115,10 @@ sbAccessControl :: Lens' S3Bucket (Maybe (Val CannedACL)) sbAccessControl = lens _s3BucketAccessControl (\s a -> s { _s3BucketAccessControl = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket.html#cfn-s3-bucket-analyticsconfigurations+sbAnalyticsConfigurations :: Lens' S3Bucket (Maybe [S3BucketAnalyticsConfiguration])+sbAnalyticsConfigurations = lens _s3BucketAnalyticsConfigurations (\s a -> s { _s3BucketAnalyticsConfigurations = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket.html#cfn-s3-bucket-name sbBucketName :: Lens' S3Bucket (Maybe (Val Text)) sbBucketName = lens _s3BucketBucketName (\s a -> s { _s3BucketBucketName = a })@@ -112,6 +126,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket.html#cfn-s3-bucket-crossoriginconfig sbCorsConfiguration :: Lens' S3Bucket (Maybe S3BucketCorsConfiguration) sbCorsConfiguration = lens _s3BucketCorsConfiguration (\s a -> s { _s3BucketCorsConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket.html#cfn-s3-bucket-inventoryconfigurations+sbInventoryConfigurations :: Lens' S3Bucket (Maybe [S3BucketInventoryConfiguration])+sbInventoryConfigurations = lens _s3BucketInventoryConfigurations (\s a -> s { _s3BucketInventoryConfigurations = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket.html#cfn-s3-bucket-lifecycleconfig sbLifecycleConfiguration :: Lens' S3Bucket (Maybe S3BucketLifecycleConfiguration)
stratosphere.cabal view
@@ -3,7 +3,7 @@ -- see: https://github.com/sol/hpack name: stratosphere-version: 0.9.0+version: 0.10.0 synopsis: EDSL for AWS CloudFormation description: EDSL for AWS CloudFormation category: AWS, Cloud@@ -232,10 +232,14 @@ Stratosphere.ResourceProperties.ECSTaskDefinitionVolumeFrom Stratosphere.ResourceProperties.EFSFileSystemElasticFileSystemTag Stratosphere.ResourceProperties.ElastiCacheReplicationGroupNodeGroupConfiguration+ Stratosphere.ResourceProperties.ElasticBeanstalkApplicationApplicationResourceLifecycleConfig+ Stratosphere.ResourceProperties.ElasticBeanstalkApplicationApplicationVersionLifecycleConfig+ Stratosphere.ResourceProperties.ElasticBeanstalkApplicationMaxAgeRule+ Stratosphere.ResourceProperties.ElasticBeanstalkApplicationMaxCountRule Stratosphere.ResourceProperties.ElasticBeanstalkApplicationVersionSourceBundle Stratosphere.ResourceProperties.ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting Stratosphere.ResourceProperties.ElasticBeanstalkConfigurationTemplateSourceConfiguration- Stratosphere.ResourceProperties.ElasticBeanstalkEnvironmentOptionSettings+ Stratosphere.ResourceProperties.ElasticBeanstalkEnvironmentOptionSetting Stratosphere.ResourceProperties.ElasticBeanstalkEnvironmentTier Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerAccessLoggingPolicy Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerAppCookieStickinessPolicy@@ -247,6 +251,7 @@ Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerPolicies Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerAction Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerCertificate+ Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerCertificateCertificate Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleAction Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleRuleCondition Stratosphere.ResourceProperties.ElasticLoadBalancingV2LoadBalancerLoadBalancerAttribute@@ -359,6 +364,7 @@ Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamElasticsearchRetryOptions Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamEncryptionConfiguration Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration+ Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamKMSEncryptionConfig Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessingConfiguration Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessor@@ -407,9 +413,13 @@ Stratosphere.ResourceProperties.Route53RecordSetGroupRecordSet Stratosphere.ResourceProperties.S3BucketAbortIncompleteMultipartUpload Stratosphere.ResourceProperties.S3BucketAccelerateConfiguration+ Stratosphere.ResourceProperties.S3BucketAnalyticsConfiguration Stratosphere.ResourceProperties.S3BucketCorsConfiguration Stratosphere.ResourceProperties.S3BucketCorsRule+ Stratosphere.ResourceProperties.S3BucketDataExport+ Stratosphere.ResourceProperties.S3BucketDestination Stratosphere.ResourceProperties.S3BucketFilterRule+ Stratosphere.ResourceProperties.S3BucketInventoryConfiguration Stratosphere.ResourceProperties.S3BucketLambdaConfiguration Stratosphere.ResourceProperties.S3BucketLifecycleConfiguration Stratosphere.ResourceProperties.S3BucketLoggingConfiguration@@ -427,6 +437,7 @@ Stratosphere.ResourceProperties.S3BucketRoutingRuleCondition Stratosphere.ResourceProperties.S3BucketRule Stratosphere.ResourceProperties.S3BucketS3KeyFilter+ Stratosphere.ResourceProperties.S3BucketStorageClassAnalysis Stratosphere.ResourceProperties.S3BucketTagFilter Stratosphere.ResourceProperties.S3BucketTopicConfiguration Stratosphere.ResourceProperties.S3BucketTransition