stratosphere 0.25.0 → 0.26.0
raw patch · 61 files changed
+2137/−83 lines, 61 files
Files
- CHANGELOG.md +4/−0
- library-gen/Stratosphere/ResourceProperties/ApiGatewayDeploymentAccessLogSetting.hs +51/−0
- library-gen/Stratosphere/ResourceProperties/ApiGatewayDeploymentCanarySetting.hs +59/−0
- library-gen/Stratosphere/ResourceProperties/ApiGatewayDeploymentDeploymentCanarySettings.hs +61/−0
- library-gen/Stratosphere/ResourceProperties/ApiGatewayDeploymentStageDescription.hs +21/−3
- library-gen/Stratosphere/ResourceProperties/ApiGatewayMethodIntegration.hs +24/−0
- library-gen/Stratosphere/ResourceProperties/ApiGatewayStageAccessLogSetting.hs +51/−0
- library-gen/Stratosphere/ResourceProperties/ApiGatewayStageCanarySetting.hs +67/−0
- library-gen/Stratosphere/ResourceProperties/ApiGatewayUsagePlanApiStage.hs +10/−2
- library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupLaunchTemplateSpecification.hs +62/−0
- library-gen/Stratosphere/ResourceProperties/CodeBuildProjectArtifacts.hs +11/−3
- library-gen/Stratosphere/ResourceProperties/CodeBuildProjectCloudWatchLogsConfig.hs +60/−0
- library-gen/Stratosphere/ResourceProperties/CodeBuildProjectLogsConfig.hs +52/−0
- library-gen/Stratosphere/ResourceProperties/CodeBuildProjectS3LogsConfig.hs +52/−0
- library-gen/Stratosphere/ResourceProperties/CodeBuildProjectSource.hs +8/−0
- library-gen/Stratosphere/ResourceProperties/CodeBuildProjectVpcConfig.hs +17/−20
- library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupEC2TagFilter.hs +4/−4
- library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupEC2TagSet.hs +43/−0
- library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupEC2TagSetListObject.hs +45/−0
- library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupOnPremisesTagSet.hs +44/−0
- library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupOnPremisesTagSetListObject.hs +45/−0
- library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupTagFilter.hs +4/−4
- library-gen/Stratosphere/ResourceProperties/EC2SpotFleetClassicLoadBalancer.hs +44/−0
- library-gen/Stratosphere/ResourceProperties/EC2SpotFleetClassicLoadBalancersConfig.hs +45/−0
- library-gen/Stratosphere/ResourceProperties/EC2SpotFleetFleetLaunchTemplateSpecification.hs +62/−0
- library-gen/Stratosphere/ResourceProperties/EC2SpotFleetLaunchTemplateConfig.hs +52/−0
- library-gen/Stratosphere/ResourceProperties/EC2SpotFleetLaunchTemplateOverrides.hs +75/−0
- library-gen/Stratosphere/ResourceProperties/EC2SpotFleetLoadBalancersConfig.hs +52/−0
- library-gen/Stratosphere/ResourceProperties/EC2SpotFleetSpotFleetRequestConfigData.hs +26/−0
- library-gen/Stratosphere/ResourceProperties/EC2SpotFleetSpotPlacement.hs +9/−1
- library-gen/Stratosphere/ResourceProperties/EC2SpotFleetTargetGroup.hs +44/−0
- library-gen/Stratosphere/ResourceProperties/EC2SpotFleetTargetGroupsConfig.hs +44/−0
- library-gen/Stratosphere/ResourceProperties/ECSServiceServiceRegistry.hs +19/−3
- library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionContainerDefinition.hs +9/−0
- library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionDockerVolumeConfiguration.hs +76/−0
- library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionLinuxParameters.hs +18/−1
- library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionRepositoryCredentials.hs +44/−0
- library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionTmpfs.hs +59/−0
- library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionVolume.hs +12/−3
- library-gen/Stratosphere/ResourceProperties/ElastiCacheReplicationGroupNodeGroupConfiguration.hs +11/−3
- library-gen/Stratosphere/ResourceProperties/EventsRuleSqsParameters.hs +44/−0
- library-gen/Stratosphere/ResourceProperties/EventsRuleTarget.hs +10/−1
- library-gen/Stratosphere/ResourceProperties/IoT1ClickProjectDeviceTemplate.hs +51/−0
- library-gen/Stratosphere/ResourceProperties/IoT1ClickProjectPlacementTemplate.hs +51/−0
- library-gen/Stratosphere/ResourceProperties/RDSDBClusterScalingConfiguration.hs +67/−0
- library-gen/Stratosphere/ResourceProperties/RDSOptionGroupOptionConfiguration.hs +2/−2
- library-gen/Stratosphere/Resources.hs +43/−0
- library-gen/Stratosphere/Resources/ApiGatewayDeployment.hs +12/−3
- library-gen/Stratosphere/Resources/ApiGatewayMethod.hs +8/−0
- library-gen/Stratosphere/Resources/ApiGatewayStage.hs +21/−3
- library-gen/Stratosphere/Resources/AutoScalingAutoScalingGroup.hs +9/−0
- library-gen/Stratosphere/Resources/CodeBuildProject.hs +25/−0
- library-gen/Stratosphere/Resources/CodeDeployDeploymentGroup.hs +18/−0
- library-gen/Stratosphere/Resources/EC2FlowLog.hs +28/−14
- library-gen/Stratosphere/Resources/EC2VPCEndpoint.hs +11/−11
- library-gen/Stratosphere/Resources/ECSService.hs +8/−0
- library-gen/Stratosphere/Resources/IoT1ClickDevice.hs +53/−0
- library-gen/Stratosphere/Resources/IoT1ClickPlacement.hs +69/−0
- library-gen/Stratosphere/Resources/IoT1ClickProject.hs +61/−0
- library-gen/Stratosphere/Resources/RDSDBCluster.hs +17/−0
- stratosphere.cabal +33/−2
CHANGELOG.md view
@@ -1,5 +1,9 @@ # Change Log +## 0.26.0++* Update resource specification document to version 2.8.0+ ## 0.25.0 * Update resource specification document to version 2.6.0
+ library-gen/Stratosphere/ResourceProperties/ApiGatewayDeploymentAccessLogSetting.hs view
@@ -0,0 +1,51 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-accesslogsetting.html++module Stratosphere.ResourceProperties.ApiGatewayDeploymentAccessLogSetting where++import Stratosphere.ResourceImports+++-- | Full data type definition for ApiGatewayDeploymentAccessLogSetting. See+-- 'apiGatewayDeploymentAccessLogSetting' for a more convenient constructor.+data ApiGatewayDeploymentAccessLogSetting =+ ApiGatewayDeploymentAccessLogSetting+ { _apiGatewayDeploymentAccessLogSettingDestinationArn :: Maybe (Val Text)+ , _apiGatewayDeploymentAccessLogSettingFormat :: Maybe (Val Text)+ } deriving (Show, Eq)++instance ToJSON ApiGatewayDeploymentAccessLogSetting where+ toJSON ApiGatewayDeploymentAccessLogSetting{..} =+ object $+ catMaybes+ [ fmap (("DestinationArn",) . toJSON) _apiGatewayDeploymentAccessLogSettingDestinationArn+ , fmap (("Format",) . toJSON) _apiGatewayDeploymentAccessLogSettingFormat+ ]++instance FromJSON ApiGatewayDeploymentAccessLogSetting where+ parseJSON (Object obj) =+ ApiGatewayDeploymentAccessLogSetting <$>+ (obj .:? "DestinationArn") <*>+ (obj .:? "Format")+ parseJSON _ = mempty++-- | Constructor for 'ApiGatewayDeploymentAccessLogSetting' containing+-- required fields as arguments.+apiGatewayDeploymentAccessLogSetting+ :: ApiGatewayDeploymentAccessLogSetting+apiGatewayDeploymentAccessLogSetting =+ ApiGatewayDeploymentAccessLogSetting+ { _apiGatewayDeploymentAccessLogSettingDestinationArn = Nothing+ , _apiGatewayDeploymentAccessLogSettingFormat = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-accesslogsetting.html#cfn-apigateway-deployment-accesslogsetting-destinationarn+agdalsDestinationArn :: Lens' ApiGatewayDeploymentAccessLogSetting (Maybe (Val Text))+agdalsDestinationArn = lens _apiGatewayDeploymentAccessLogSettingDestinationArn (\s a -> s { _apiGatewayDeploymentAccessLogSettingDestinationArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-accesslogsetting.html#cfn-apigateway-deployment-accesslogsetting-format+agdalsFormat :: Lens' ApiGatewayDeploymentAccessLogSetting (Maybe (Val Text))+agdalsFormat = lens _apiGatewayDeploymentAccessLogSettingFormat (\s a -> s { _apiGatewayDeploymentAccessLogSettingFormat = a })
+ library-gen/Stratosphere/ResourceProperties/ApiGatewayDeploymentCanarySetting.hs view
@@ -0,0 +1,59 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-canarysetting.html++module Stratosphere.ResourceProperties.ApiGatewayDeploymentCanarySetting where++import Stratosphere.ResourceImports+++-- | Full data type definition for ApiGatewayDeploymentCanarySetting. See+-- 'apiGatewayDeploymentCanarySetting' for a more convenient constructor.+data ApiGatewayDeploymentCanarySetting =+ ApiGatewayDeploymentCanarySetting+ { _apiGatewayDeploymentCanarySettingPercentTraffic :: Maybe (Val Double)+ , _apiGatewayDeploymentCanarySettingStageVariableOverrides :: Maybe Object+ , _apiGatewayDeploymentCanarySettingUseStageCache :: Maybe (Val Bool)+ } deriving (Show, Eq)++instance ToJSON ApiGatewayDeploymentCanarySetting where+ toJSON ApiGatewayDeploymentCanarySetting{..} =+ object $+ catMaybes+ [ fmap (("PercentTraffic",) . toJSON . fmap Double') _apiGatewayDeploymentCanarySettingPercentTraffic+ , fmap (("StageVariableOverrides",) . toJSON) _apiGatewayDeploymentCanarySettingStageVariableOverrides+ , fmap (("UseStageCache",) . toJSON . fmap Bool') _apiGatewayDeploymentCanarySettingUseStageCache+ ]++instance FromJSON ApiGatewayDeploymentCanarySetting where+ parseJSON (Object obj) =+ ApiGatewayDeploymentCanarySetting <$>+ fmap (fmap (fmap unDouble')) (obj .:? "PercentTraffic") <*>+ (obj .:? "StageVariableOverrides") <*>+ fmap (fmap (fmap unBool')) (obj .:? "UseStageCache")+ parseJSON _ = mempty++-- | Constructor for 'ApiGatewayDeploymentCanarySetting' containing required+-- fields as arguments.+apiGatewayDeploymentCanarySetting+ :: ApiGatewayDeploymentCanarySetting+apiGatewayDeploymentCanarySetting =+ ApiGatewayDeploymentCanarySetting+ { _apiGatewayDeploymentCanarySettingPercentTraffic = Nothing+ , _apiGatewayDeploymentCanarySettingStageVariableOverrides = Nothing+ , _apiGatewayDeploymentCanarySettingUseStageCache = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-canarysetting.html#cfn-apigateway-deployment-canarysetting-percenttraffic+agdcsPercentTraffic :: Lens' ApiGatewayDeploymentCanarySetting (Maybe (Val Double))+agdcsPercentTraffic = lens _apiGatewayDeploymentCanarySettingPercentTraffic (\s a -> s { _apiGatewayDeploymentCanarySettingPercentTraffic = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-canarysetting.html#cfn-apigateway-deployment-canarysetting-stagevariableoverrides+agdcsStageVariableOverrides :: Lens' ApiGatewayDeploymentCanarySetting (Maybe Object)+agdcsStageVariableOverrides = lens _apiGatewayDeploymentCanarySettingStageVariableOverrides (\s a -> s { _apiGatewayDeploymentCanarySettingStageVariableOverrides = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-canarysetting.html#cfn-apigateway-deployment-canarysetting-usestagecache+agdcsUseStageCache :: Lens' ApiGatewayDeploymentCanarySetting (Maybe (Val Bool))+agdcsUseStageCache = lens _apiGatewayDeploymentCanarySettingUseStageCache (\s a -> s { _apiGatewayDeploymentCanarySettingUseStageCache = a })
+ library-gen/Stratosphere/ResourceProperties/ApiGatewayDeploymentDeploymentCanarySettings.hs view
@@ -0,0 +1,61 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-deploymentcanarysettings.html++module Stratosphere.ResourceProperties.ApiGatewayDeploymentDeploymentCanarySettings where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- ApiGatewayDeploymentDeploymentCanarySettings. See+-- 'apiGatewayDeploymentDeploymentCanarySettings' for a more convenient+-- constructor.+data ApiGatewayDeploymentDeploymentCanarySettings =+ ApiGatewayDeploymentDeploymentCanarySettings+ { _apiGatewayDeploymentDeploymentCanarySettingsPercentTraffic :: Maybe (Val Double)+ , _apiGatewayDeploymentDeploymentCanarySettingsStageVariableOverrides :: Maybe Object+ , _apiGatewayDeploymentDeploymentCanarySettingsUseStageCache :: Maybe (Val Bool)+ } deriving (Show, Eq)++instance ToJSON ApiGatewayDeploymentDeploymentCanarySettings where+ toJSON ApiGatewayDeploymentDeploymentCanarySettings{..} =+ object $+ catMaybes+ [ fmap (("PercentTraffic",) . toJSON . fmap Double') _apiGatewayDeploymentDeploymentCanarySettingsPercentTraffic+ , fmap (("StageVariableOverrides",) . toJSON) _apiGatewayDeploymentDeploymentCanarySettingsStageVariableOverrides+ , fmap (("UseStageCache",) . toJSON . fmap Bool') _apiGatewayDeploymentDeploymentCanarySettingsUseStageCache+ ]++instance FromJSON ApiGatewayDeploymentDeploymentCanarySettings where+ parseJSON (Object obj) =+ ApiGatewayDeploymentDeploymentCanarySettings <$>+ fmap (fmap (fmap unDouble')) (obj .:? "PercentTraffic") <*>+ (obj .:? "StageVariableOverrides") <*>+ fmap (fmap (fmap unBool')) (obj .:? "UseStageCache")+ parseJSON _ = mempty++-- | Constructor for 'ApiGatewayDeploymentDeploymentCanarySettings' containing+-- required fields as arguments.+apiGatewayDeploymentDeploymentCanarySettings+ :: ApiGatewayDeploymentDeploymentCanarySettings+apiGatewayDeploymentDeploymentCanarySettings =+ ApiGatewayDeploymentDeploymentCanarySettings+ { _apiGatewayDeploymentDeploymentCanarySettingsPercentTraffic = Nothing+ , _apiGatewayDeploymentDeploymentCanarySettingsStageVariableOverrides = Nothing+ , _apiGatewayDeploymentDeploymentCanarySettingsUseStageCache = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-deploymentcanarysettings.html#cfn-apigateway-deployment-deploymentcanarysettings-percenttraffic+agddcsPercentTraffic :: Lens' ApiGatewayDeploymentDeploymentCanarySettings (Maybe (Val Double))+agddcsPercentTraffic = lens _apiGatewayDeploymentDeploymentCanarySettingsPercentTraffic (\s a -> s { _apiGatewayDeploymentDeploymentCanarySettingsPercentTraffic = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-deploymentcanarysettings.html#cfn-apigateway-deployment-deploymentcanarysettings-stagevariableoverrides+agddcsStageVariableOverrides :: Lens' ApiGatewayDeploymentDeploymentCanarySettings (Maybe Object)+agddcsStageVariableOverrides = lens _apiGatewayDeploymentDeploymentCanarySettingsStageVariableOverrides (\s a -> s { _apiGatewayDeploymentDeploymentCanarySettingsStageVariableOverrides = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-deploymentcanarysettings.html#cfn-apigateway-deployment-deploymentcanarysettings-usestagecache+agddcsUseStageCache :: Lens' ApiGatewayDeploymentDeploymentCanarySettings (Maybe (Val Bool))+agddcsUseStageCache = lens _apiGatewayDeploymentDeploymentCanarySettingsUseStageCache (\s a -> s { _apiGatewayDeploymentDeploymentCanarySettingsUseStageCache = a })
library-gen/Stratosphere/ResourceProperties/ApiGatewayDeploymentStageDescription.hs view
@@ -8,17 +8,21 @@ import Stratosphere.ResourceImports import Stratosphere.Types+import Stratosphere.ResourceProperties.ApiGatewayDeploymentAccessLogSetting+import Stratosphere.ResourceProperties.ApiGatewayDeploymentCanarySetting import Stratosphere.ResourceProperties.ApiGatewayDeploymentMethodSetting -- | Full data type definition for ApiGatewayDeploymentStageDescription. See -- 'apiGatewayDeploymentStageDescription' for a more convenient constructor. data ApiGatewayDeploymentStageDescription = ApiGatewayDeploymentStageDescription- { _apiGatewayDeploymentStageDescriptionCacheClusterEnabled :: Maybe (Val Bool)+ { _apiGatewayDeploymentStageDescriptionAccessLogSetting :: Maybe ApiGatewayDeploymentAccessLogSetting+ , _apiGatewayDeploymentStageDescriptionCacheClusterEnabled :: Maybe (Val Bool) , _apiGatewayDeploymentStageDescriptionCacheClusterSize :: Maybe (Val Text) , _apiGatewayDeploymentStageDescriptionCacheDataEncrypted :: Maybe (Val Bool) , _apiGatewayDeploymentStageDescriptionCacheTtlInSeconds :: Maybe (Val Integer) , _apiGatewayDeploymentStageDescriptionCachingEnabled :: Maybe (Val Bool)+ , _apiGatewayDeploymentStageDescriptionCanarySetting :: Maybe ApiGatewayDeploymentCanarySetting , _apiGatewayDeploymentStageDescriptionClientCertificateId :: Maybe (Val Text) , _apiGatewayDeploymentStageDescriptionDataTraceEnabled :: Maybe (Val Bool) , _apiGatewayDeploymentStageDescriptionDescription :: Maybe (Val Text)@@ -35,11 +39,13 @@ toJSON ApiGatewayDeploymentStageDescription{..} = object $ catMaybes- [ fmap (("CacheClusterEnabled",) . toJSON . fmap Bool') _apiGatewayDeploymentStageDescriptionCacheClusterEnabled+ [ fmap (("AccessLogSetting",) . toJSON) _apiGatewayDeploymentStageDescriptionAccessLogSetting+ , fmap (("CacheClusterEnabled",) . toJSON . fmap Bool') _apiGatewayDeploymentStageDescriptionCacheClusterEnabled , fmap (("CacheClusterSize",) . toJSON) _apiGatewayDeploymentStageDescriptionCacheClusterSize , fmap (("CacheDataEncrypted",) . toJSON . fmap Bool') _apiGatewayDeploymentStageDescriptionCacheDataEncrypted , fmap (("CacheTtlInSeconds",) . toJSON . fmap Integer') _apiGatewayDeploymentStageDescriptionCacheTtlInSeconds , fmap (("CachingEnabled",) . toJSON . fmap Bool') _apiGatewayDeploymentStageDescriptionCachingEnabled+ , fmap (("CanarySetting",) . toJSON) _apiGatewayDeploymentStageDescriptionCanarySetting , fmap (("ClientCertificateId",) . toJSON) _apiGatewayDeploymentStageDescriptionClientCertificateId , fmap (("DataTraceEnabled",) . toJSON . fmap Bool') _apiGatewayDeploymentStageDescriptionDataTraceEnabled , fmap (("Description",) . toJSON) _apiGatewayDeploymentStageDescriptionDescription@@ -55,11 +61,13 @@ instance FromJSON ApiGatewayDeploymentStageDescription where parseJSON (Object obj) = ApiGatewayDeploymentStageDescription <$>+ (obj .:? "AccessLogSetting") <*> fmap (fmap (fmap unBool')) (obj .:? "CacheClusterEnabled") <*> (obj .:? "CacheClusterSize") <*> fmap (fmap (fmap unBool')) (obj .:? "CacheDataEncrypted") <*> fmap (fmap (fmap unInteger')) (obj .:? "CacheTtlInSeconds") <*> fmap (fmap (fmap unBool')) (obj .:? "CachingEnabled") <*>+ (obj .:? "CanarySetting") <*> (obj .:? "ClientCertificateId") <*> fmap (fmap (fmap unBool')) (obj .:? "DataTraceEnabled") <*> (obj .:? "Description") <*>@@ -78,11 +86,13 @@ :: ApiGatewayDeploymentStageDescription apiGatewayDeploymentStageDescription = ApiGatewayDeploymentStageDescription- { _apiGatewayDeploymentStageDescriptionCacheClusterEnabled = Nothing+ { _apiGatewayDeploymentStageDescriptionAccessLogSetting = Nothing+ , _apiGatewayDeploymentStageDescriptionCacheClusterEnabled = Nothing , _apiGatewayDeploymentStageDescriptionCacheClusterSize = Nothing , _apiGatewayDeploymentStageDescriptionCacheDataEncrypted = Nothing , _apiGatewayDeploymentStageDescriptionCacheTtlInSeconds = Nothing , _apiGatewayDeploymentStageDescriptionCachingEnabled = Nothing+ , _apiGatewayDeploymentStageDescriptionCanarySetting = Nothing , _apiGatewayDeploymentStageDescriptionClientCertificateId = Nothing , _apiGatewayDeploymentStageDescriptionDataTraceEnabled = Nothing , _apiGatewayDeploymentStageDescriptionDescription = Nothing@@ -95,6 +105,10 @@ , _apiGatewayDeploymentStageDescriptionVariables = Nothing } +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-accesslogsetting+agdsdAccessLogSetting :: Lens' ApiGatewayDeploymentStageDescription (Maybe ApiGatewayDeploymentAccessLogSetting)+agdsdAccessLogSetting = lens _apiGatewayDeploymentStageDescriptionAccessLogSetting (\s a -> s { _apiGatewayDeploymentStageDescriptionAccessLogSetting = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-cacheclusterenabled agdsdCacheClusterEnabled :: Lens' ApiGatewayDeploymentStageDescription (Maybe (Val Bool)) agdsdCacheClusterEnabled = lens _apiGatewayDeploymentStageDescriptionCacheClusterEnabled (\s a -> s { _apiGatewayDeploymentStageDescriptionCacheClusterEnabled = a })@@ -114,6 +128,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-cachingenabled agdsdCachingEnabled :: Lens' ApiGatewayDeploymentStageDescription (Maybe (Val Bool)) agdsdCachingEnabled = lens _apiGatewayDeploymentStageDescriptionCachingEnabled (\s a -> s { _apiGatewayDeploymentStageDescriptionCachingEnabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-canarysetting+agdsdCanarySetting :: Lens' ApiGatewayDeploymentStageDescription (Maybe ApiGatewayDeploymentCanarySetting)+agdsdCanarySetting = lens _apiGatewayDeploymentStageDescriptionCanarySetting (\s a -> s { _apiGatewayDeploymentStageDescriptionCanarySetting = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-clientcertificateid agdsdClientCertificateId :: Lens' ApiGatewayDeploymentStageDescription (Maybe (Val Text))
library-gen/Stratosphere/ResourceProperties/ApiGatewayMethodIntegration.hs view
@@ -16,6 +16,8 @@ ApiGatewayMethodIntegration { _apiGatewayMethodIntegrationCacheKeyParameters :: Maybe (ValList Text) , _apiGatewayMethodIntegrationCacheNamespace :: Maybe (Val Text)+ , _apiGatewayMethodIntegrationConnectionId :: Maybe (Val Text)+ , _apiGatewayMethodIntegrationConnectionType :: Maybe (Val Text) , _apiGatewayMethodIntegrationContentHandling :: Maybe (Val Text) , _apiGatewayMethodIntegrationCredentials :: Maybe (Val Text) , _apiGatewayMethodIntegrationIntegrationHttpMethod :: Maybe (Val HttpMethod)@@ -23,6 +25,7 @@ , _apiGatewayMethodIntegrationPassthroughBehavior :: Maybe (Val PassthroughBehavior) , _apiGatewayMethodIntegrationRequestParameters :: Maybe Object , _apiGatewayMethodIntegrationRequestTemplates :: Maybe Object+ , _apiGatewayMethodIntegrationTimeoutInMillis :: Maybe (Val Integer) , _apiGatewayMethodIntegrationType :: Maybe (Val ApiBackendType) , _apiGatewayMethodIntegrationUri :: Maybe (Val Text) } deriving (Show, Eq)@@ -33,6 +36,8 @@ catMaybes [ fmap (("CacheKeyParameters",) . toJSON) _apiGatewayMethodIntegrationCacheKeyParameters , fmap (("CacheNamespace",) . toJSON) _apiGatewayMethodIntegrationCacheNamespace+ , fmap (("ConnectionId",) . toJSON) _apiGatewayMethodIntegrationConnectionId+ , fmap (("ConnectionType",) . toJSON) _apiGatewayMethodIntegrationConnectionType , fmap (("ContentHandling",) . toJSON) _apiGatewayMethodIntegrationContentHandling , fmap (("Credentials",) . toJSON) _apiGatewayMethodIntegrationCredentials , fmap (("IntegrationHttpMethod",) . toJSON) _apiGatewayMethodIntegrationIntegrationHttpMethod@@ -40,6 +45,7 @@ , fmap (("PassthroughBehavior",) . toJSON) _apiGatewayMethodIntegrationPassthroughBehavior , fmap (("RequestParameters",) . toJSON) _apiGatewayMethodIntegrationRequestParameters , fmap (("RequestTemplates",) . toJSON) _apiGatewayMethodIntegrationRequestTemplates+ , fmap (("TimeoutInMillis",) . toJSON . fmap Integer') _apiGatewayMethodIntegrationTimeoutInMillis , fmap (("Type",) . toJSON) _apiGatewayMethodIntegrationType , fmap (("Uri",) . toJSON) _apiGatewayMethodIntegrationUri ]@@ -49,6 +55,8 @@ ApiGatewayMethodIntegration <$> (obj .:? "CacheKeyParameters") <*> (obj .:? "CacheNamespace") <*>+ (obj .:? "ConnectionId") <*>+ (obj .:? "ConnectionType") <*> (obj .:? "ContentHandling") <*> (obj .:? "Credentials") <*> (obj .:? "IntegrationHttpMethod") <*>@@ -56,6 +64,7 @@ (obj .:? "PassthroughBehavior") <*> (obj .:? "RequestParameters") <*> (obj .:? "RequestTemplates") <*>+ fmap (fmap (fmap unInteger')) (obj .:? "TimeoutInMillis") <*> (obj .:? "Type") <*> (obj .:? "Uri") parseJSON _ = mempty@@ -68,6 +77,8 @@ ApiGatewayMethodIntegration { _apiGatewayMethodIntegrationCacheKeyParameters = Nothing , _apiGatewayMethodIntegrationCacheNamespace = Nothing+ , _apiGatewayMethodIntegrationConnectionId = Nothing+ , _apiGatewayMethodIntegrationConnectionType = Nothing , _apiGatewayMethodIntegrationContentHandling = Nothing , _apiGatewayMethodIntegrationCredentials = Nothing , _apiGatewayMethodIntegrationIntegrationHttpMethod = Nothing@@ -75,6 +86,7 @@ , _apiGatewayMethodIntegrationPassthroughBehavior = Nothing , _apiGatewayMethodIntegrationRequestParameters = Nothing , _apiGatewayMethodIntegrationRequestTemplates = Nothing+ , _apiGatewayMethodIntegrationTimeoutInMillis = Nothing , _apiGatewayMethodIntegrationType = Nothing , _apiGatewayMethodIntegrationUri = Nothing }@@ -87,6 +99,14 @@ agmiCacheNamespace :: Lens' ApiGatewayMethodIntegration (Maybe (Val Text)) agmiCacheNamespace = lens _apiGatewayMethodIntegrationCacheNamespace (\s a -> s { _apiGatewayMethodIntegrationCacheNamespace = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-integration.html#cfn-apigateway-method-integration-connectionid+agmiConnectionId :: Lens' ApiGatewayMethodIntegration (Maybe (Val Text))+agmiConnectionId = lens _apiGatewayMethodIntegrationConnectionId (\s a -> s { _apiGatewayMethodIntegrationConnectionId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-integration.html#cfn-apigateway-method-integration-connectiontype+agmiConnectionType :: Lens' ApiGatewayMethodIntegration (Maybe (Val Text))+agmiConnectionType = lens _apiGatewayMethodIntegrationConnectionType (\s a -> s { _apiGatewayMethodIntegrationConnectionType = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-integration.html#cfn-apigateway-method-integration-contenthandling agmiContentHandling :: Lens' ApiGatewayMethodIntegration (Maybe (Val Text)) agmiContentHandling = lens _apiGatewayMethodIntegrationContentHandling (\s a -> s { _apiGatewayMethodIntegrationContentHandling = a })@@ -114,6 +134,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-integration.html#cfn-apigateway-method-integration-requesttemplates agmiRequestTemplates :: Lens' ApiGatewayMethodIntegration (Maybe Object) agmiRequestTemplates = lens _apiGatewayMethodIntegrationRequestTemplates (\s a -> s { _apiGatewayMethodIntegrationRequestTemplates = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-integration.html#cfn-apigateway-method-integration-timeoutinmillis+agmiTimeoutInMillis :: Lens' ApiGatewayMethodIntegration (Maybe (Val Integer))+agmiTimeoutInMillis = lens _apiGatewayMethodIntegrationTimeoutInMillis (\s a -> s { _apiGatewayMethodIntegrationTimeoutInMillis = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-integration.html#cfn-apigateway-method-integration-type agmiType :: Lens' ApiGatewayMethodIntegration (Maybe (Val ApiBackendType))
+ library-gen/Stratosphere/ResourceProperties/ApiGatewayStageAccessLogSetting.hs view
@@ -0,0 +1,51 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-stage-accesslogsetting.html++module Stratosphere.ResourceProperties.ApiGatewayStageAccessLogSetting where++import Stratosphere.ResourceImports+++-- | Full data type definition for ApiGatewayStageAccessLogSetting. See+-- 'apiGatewayStageAccessLogSetting' for a more convenient constructor.+data ApiGatewayStageAccessLogSetting =+ ApiGatewayStageAccessLogSetting+ { _apiGatewayStageAccessLogSettingDestinationArn :: Maybe (Val Text)+ , _apiGatewayStageAccessLogSettingFormat :: Maybe (Val Text)+ } deriving (Show, Eq)++instance ToJSON ApiGatewayStageAccessLogSetting where+ toJSON ApiGatewayStageAccessLogSetting{..} =+ object $+ catMaybes+ [ fmap (("DestinationArn",) . toJSON) _apiGatewayStageAccessLogSettingDestinationArn+ , fmap (("Format",) . toJSON) _apiGatewayStageAccessLogSettingFormat+ ]++instance FromJSON ApiGatewayStageAccessLogSetting where+ parseJSON (Object obj) =+ ApiGatewayStageAccessLogSetting <$>+ (obj .:? "DestinationArn") <*>+ (obj .:? "Format")+ parseJSON _ = mempty++-- | Constructor for 'ApiGatewayStageAccessLogSetting' containing required+-- fields as arguments.+apiGatewayStageAccessLogSetting+ :: ApiGatewayStageAccessLogSetting+apiGatewayStageAccessLogSetting =+ ApiGatewayStageAccessLogSetting+ { _apiGatewayStageAccessLogSettingDestinationArn = Nothing+ , _apiGatewayStageAccessLogSettingFormat = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-stage-accesslogsetting.html#cfn-apigateway-stage-accesslogsetting-destinationarn+agsalsDestinationArn :: Lens' ApiGatewayStageAccessLogSetting (Maybe (Val Text))+agsalsDestinationArn = lens _apiGatewayStageAccessLogSettingDestinationArn (\s a -> s { _apiGatewayStageAccessLogSettingDestinationArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-stage-accesslogsetting.html#cfn-apigateway-stage-accesslogsetting-format+agsalsFormat :: Lens' ApiGatewayStageAccessLogSetting (Maybe (Val Text))+agsalsFormat = lens _apiGatewayStageAccessLogSettingFormat (\s a -> s { _apiGatewayStageAccessLogSettingFormat = a })
+ library-gen/Stratosphere/ResourceProperties/ApiGatewayStageCanarySetting.hs view
@@ -0,0 +1,67 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-stage-canarysetting.html++module Stratosphere.ResourceProperties.ApiGatewayStageCanarySetting where++import Stratosphere.ResourceImports+++-- | Full data type definition for ApiGatewayStageCanarySetting. See+-- 'apiGatewayStageCanarySetting' for a more convenient constructor.+data ApiGatewayStageCanarySetting =+ ApiGatewayStageCanarySetting+ { _apiGatewayStageCanarySettingDeploymentId :: Maybe (Val Text)+ , _apiGatewayStageCanarySettingPercentTraffic :: Maybe (Val Double)+ , _apiGatewayStageCanarySettingStageVariableOverrides :: Maybe Object+ , _apiGatewayStageCanarySettingUseStageCache :: Maybe (Val Bool)+ } deriving (Show, Eq)++instance ToJSON ApiGatewayStageCanarySetting where+ toJSON ApiGatewayStageCanarySetting{..} =+ object $+ catMaybes+ [ fmap (("DeploymentId",) . toJSON) _apiGatewayStageCanarySettingDeploymentId+ , fmap (("PercentTraffic",) . toJSON . fmap Double') _apiGatewayStageCanarySettingPercentTraffic+ , fmap (("StageVariableOverrides",) . toJSON) _apiGatewayStageCanarySettingStageVariableOverrides+ , fmap (("UseStageCache",) . toJSON . fmap Bool') _apiGatewayStageCanarySettingUseStageCache+ ]++instance FromJSON ApiGatewayStageCanarySetting where+ parseJSON (Object obj) =+ ApiGatewayStageCanarySetting <$>+ (obj .:? "DeploymentId") <*>+ fmap (fmap (fmap unDouble')) (obj .:? "PercentTraffic") <*>+ (obj .:? "StageVariableOverrides") <*>+ fmap (fmap (fmap unBool')) (obj .:? "UseStageCache")+ parseJSON _ = mempty++-- | Constructor for 'ApiGatewayStageCanarySetting' containing required fields+-- as arguments.+apiGatewayStageCanarySetting+ :: ApiGatewayStageCanarySetting+apiGatewayStageCanarySetting =+ ApiGatewayStageCanarySetting+ { _apiGatewayStageCanarySettingDeploymentId = Nothing+ , _apiGatewayStageCanarySettingPercentTraffic = Nothing+ , _apiGatewayStageCanarySettingStageVariableOverrides = Nothing+ , _apiGatewayStageCanarySettingUseStageCache = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-stage-canarysetting.html#cfn-apigateway-stage-canarysetting-deploymentid+agscsDeploymentId :: Lens' ApiGatewayStageCanarySetting (Maybe (Val Text))+agscsDeploymentId = lens _apiGatewayStageCanarySettingDeploymentId (\s a -> s { _apiGatewayStageCanarySettingDeploymentId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-stage-canarysetting.html#cfn-apigateway-stage-canarysetting-percenttraffic+agscsPercentTraffic :: Lens' ApiGatewayStageCanarySetting (Maybe (Val Double))+agscsPercentTraffic = lens _apiGatewayStageCanarySettingPercentTraffic (\s a -> s { _apiGatewayStageCanarySettingPercentTraffic = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-stage-canarysetting.html#cfn-apigateway-stage-canarysetting-stagevariableoverrides+agscsStageVariableOverrides :: Lens' ApiGatewayStageCanarySetting (Maybe Object)+agscsStageVariableOverrides = lens _apiGatewayStageCanarySettingStageVariableOverrides (\s a -> s { _apiGatewayStageCanarySettingStageVariableOverrides = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-stage-canarysetting.html#cfn-apigateway-stage-canarysetting-usestagecache+agscsUseStageCache :: Lens' ApiGatewayStageCanarySetting (Maybe (Val Bool))+agscsUseStageCache = lens _apiGatewayStageCanarySettingUseStageCache (\s a -> s { _apiGatewayStageCanarySettingUseStageCache = a })
library-gen/Stratosphere/ResourceProperties/ApiGatewayUsagePlanApiStage.hs view
@@ -7,7 +7,7 @@ module Stratosphere.ResourceProperties.ApiGatewayUsagePlanApiStage where import Stratosphere.ResourceImports-+import Stratosphere.ResourceProperties.ApiGatewayUsagePlanThrottleSettings -- | Full data type definition for ApiGatewayUsagePlanApiStage. See -- 'apiGatewayUsagePlanApiStage' for a more convenient constructor.@@ -15,6 +15,7 @@ ApiGatewayUsagePlanApiStage { _apiGatewayUsagePlanApiStageApiId :: Maybe (Val Text) , _apiGatewayUsagePlanApiStageStage :: Maybe (Val Text)+ , _apiGatewayUsagePlanApiStageThrottle :: Maybe (Map Text ApiGatewayUsagePlanThrottleSettings) } deriving (Show, Eq) instance ToJSON ApiGatewayUsagePlanApiStage where@@ -23,13 +24,15 @@ catMaybes [ fmap (("ApiId",) . toJSON) _apiGatewayUsagePlanApiStageApiId , fmap (("Stage",) . toJSON) _apiGatewayUsagePlanApiStageStage+ , fmap (("Throttle",) . toJSON) _apiGatewayUsagePlanApiStageThrottle ] instance FromJSON ApiGatewayUsagePlanApiStage where parseJSON (Object obj) = ApiGatewayUsagePlanApiStage <$> (obj .:? "ApiId") <*>- (obj .:? "Stage")+ (obj .:? "Stage") <*>+ (obj .:? "Throttle") parseJSON _ = mempty -- | Constructor for 'ApiGatewayUsagePlanApiStage' containing required fields@@ -40,6 +43,7 @@ ApiGatewayUsagePlanApiStage { _apiGatewayUsagePlanApiStageApiId = Nothing , _apiGatewayUsagePlanApiStageStage = Nothing+ , _apiGatewayUsagePlanApiStageThrottle = Nothing } -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-usageplan-apistage.html#cfn-apigateway-usageplan-apistage-apiid@@ -49,3 +53,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-usageplan-apistage.html#cfn-apigateway-usageplan-apistage-stage agupasStage :: Lens' ApiGatewayUsagePlanApiStage (Maybe (Val Text)) agupasStage = lens _apiGatewayUsagePlanApiStageStage (\s a -> s { _apiGatewayUsagePlanApiStageStage = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-usageplan-apistage.html#cfn-apigateway-usageplan-apistage-throttle+agupasThrottle :: Lens' ApiGatewayUsagePlanApiStage (Maybe (Map Text ApiGatewayUsagePlanThrottleSettings))+agupasThrottle = lens _apiGatewayUsagePlanApiStageThrottle (\s a -> s { _apiGatewayUsagePlanApiStageThrottle = a })
+ library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupLaunchTemplateSpecification.hs view
@@ -0,0 +1,62 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-autoscalinggroup-launchtemplatespecification.html++module Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupLaunchTemplateSpecification where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- AutoScalingAutoScalingGroupLaunchTemplateSpecification. See+-- 'autoScalingAutoScalingGroupLaunchTemplateSpecification' for a more+-- convenient constructor.+data AutoScalingAutoScalingGroupLaunchTemplateSpecification =+ AutoScalingAutoScalingGroupLaunchTemplateSpecification+ { _autoScalingAutoScalingGroupLaunchTemplateSpecificationLaunchTemplateId :: Maybe (Val Text)+ , _autoScalingAutoScalingGroupLaunchTemplateSpecificationLaunchTemplateName :: Maybe (Val Text)+ , _autoScalingAutoScalingGroupLaunchTemplateSpecificationVersion :: Val Text+ } deriving (Show, Eq)++instance ToJSON AutoScalingAutoScalingGroupLaunchTemplateSpecification where+ toJSON AutoScalingAutoScalingGroupLaunchTemplateSpecification{..} =+ object $+ catMaybes+ [ fmap (("LaunchTemplateId",) . toJSON) _autoScalingAutoScalingGroupLaunchTemplateSpecificationLaunchTemplateId+ , fmap (("LaunchTemplateName",) . toJSON) _autoScalingAutoScalingGroupLaunchTemplateSpecificationLaunchTemplateName+ , (Just . ("Version",) . toJSON) _autoScalingAutoScalingGroupLaunchTemplateSpecificationVersion+ ]++instance FromJSON AutoScalingAutoScalingGroupLaunchTemplateSpecification where+ parseJSON (Object obj) =+ AutoScalingAutoScalingGroupLaunchTemplateSpecification <$>+ (obj .:? "LaunchTemplateId") <*>+ (obj .:? "LaunchTemplateName") <*>+ (obj .: "Version")+ parseJSON _ = mempty++-- | Constructor for 'AutoScalingAutoScalingGroupLaunchTemplateSpecification'+-- containing required fields as arguments.+autoScalingAutoScalingGroupLaunchTemplateSpecification+ :: Val Text -- ^ 'asasgltsVersion'+ -> AutoScalingAutoScalingGroupLaunchTemplateSpecification+autoScalingAutoScalingGroupLaunchTemplateSpecification versionarg =+ AutoScalingAutoScalingGroupLaunchTemplateSpecification+ { _autoScalingAutoScalingGroupLaunchTemplateSpecificationLaunchTemplateId = Nothing+ , _autoScalingAutoScalingGroupLaunchTemplateSpecificationLaunchTemplateName = Nothing+ , _autoScalingAutoScalingGroupLaunchTemplateSpecificationVersion = versionarg+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-autoscalinggroup-launchtemplatespecification.html#cfn-autoscaling-autoscalinggroup-launchtemplatespecification-launchtemplateid+asasgltsLaunchTemplateId :: Lens' AutoScalingAutoScalingGroupLaunchTemplateSpecification (Maybe (Val Text))+asasgltsLaunchTemplateId = lens _autoScalingAutoScalingGroupLaunchTemplateSpecificationLaunchTemplateId (\s a -> s { _autoScalingAutoScalingGroupLaunchTemplateSpecificationLaunchTemplateId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-autoscalinggroup-launchtemplatespecification.html#cfn-autoscaling-autoscalinggroup-launchtemplatespecification-launchtemplatename+asasgltsLaunchTemplateName :: Lens' AutoScalingAutoScalingGroupLaunchTemplateSpecification (Maybe (Val Text))+asasgltsLaunchTemplateName = lens _autoScalingAutoScalingGroupLaunchTemplateSpecificationLaunchTemplateName (\s a -> s { _autoScalingAutoScalingGroupLaunchTemplateSpecificationLaunchTemplateName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-autoscalinggroup-launchtemplatespecification.html#cfn-autoscaling-autoscalinggroup-launchtemplatespecification-version+asasgltsVersion :: Lens' AutoScalingAutoScalingGroupLaunchTemplateSpecification (Val Text)+asasgltsVersion = lens _autoScalingAutoScalingGroupLaunchTemplateSpecificationVersion (\s a -> s { _autoScalingAutoScalingGroupLaunchTemplateSpecificationVersion = a })
library-gen/Stratosphere/ResourceProperties/CodeBuildProjectArtifacts.hs view
@@ -13,7 +13,8 @@ -- 'codeBuildProjectArtifacts' for a more convenient constructor. data CodeBuildProjectArtifacts = CodeBuildProjectArtifacts- { _codeBuildProjectArtifactsEncryptionDisabled :: Maybe (Val Bool)+ { _codeBuildProjectArtifactsArtifactIdentifier :: Maybe (Val Text)+ , _codeBuildProjectArtifactsEncryptionDisabled :: Maybe (Val Bool) , _codeBuildProjectArtifactsLocation :: Maybe (Val Text) , _codeBuildProjectArtifactsName :: Maybe (Val Text) , _codeBuildProjectArtifactsNamespaceType :: Maybe (Val Text)@@ -27,7 +28,8 @@ toJSON CodeBuildProjectArtifacts{..} = object $ catMaybes- [ fmap (("EncryptionDisabled",) . toJSON . fmap Bool') _codeBuildProjectArtifactsEncryptionDisabled+ [ fmap (("ArtifactIdentifier",) . toJSON) _codeBuildProjectArtifactsArtifactIdentifier+ , fmap (("EncryptionDisabled",) . toJSON . fmap Bool') _codeBuildProjectArtifactsEncryptionDisabled , fmap (("Location",) . toJSON) _codeBuildProjectArtifactsLocation , fmap (("Name",) . toJSON) _codeBuildProjectArtifactsName , fmap (("NamespaceType",) . toJSON) _codeBuildProjectArtifactsNamespaceType@@ -40,6 +42,7 @@ instance FromJSON CodeBuildProjectArtifacts where parseJSON (Object obj) = CodeBuildProjectArtifacts <$>+ (obj .:? "ArtifactIdentifier") <*> fmap (fmap (fmap unBool')) (obj .:? "EncryptionDisabled") <*> (obj .:? "Location") <*> (obj .:? "Name") <*>@@ -57,7 +60,8 @@ -> CodeBuildProjectArtifacts codeBuildProjectArtifacts typearg = CodeBuildProjectArtifacts- { _codeBuildProjectArtifactsEncryptionDisabled = Nothing+ { _codeBuildProjectArtifactsArtifactIdentifier = Nothing+ , _codeBuildProjectArtifactsEncryptionDisabled = Nothing , _codeBuildProjectArtifactsLocation = Nothing , _codeBuildProjectArtifactsName = Nothing , _codeBuildProjectArtifactsNamespaceType = Nothing@@ -66,6 +70,10 @@ , _codeBuildProjectArtifactsPath = Nothing , _codeBuildProjectArtifactsType = typearg }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-artifacts.html#cfn-codebuild-project-artifacts-artifactidentifier+cbpaArtifactIdentifier :: Lens' CodeBuildProjectArtifacts (Maybe (Val Text))+cbpaArtifactIdentifier = lens _codeBuildProjectArtifactsArtifactIdentifier (\s a -> s { _codeBuildProjectArtifactsArtifactIdentifier = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-artifacts.html#cfn-codebuild-project-artifacts-encryptiondisabled cbpaEncryptionDisabled :: Lens' CodeBuildProjectArtifacts (Maybe (Val Bool))
+ library-gen/Stratosphere/ResourceProperties/CodeBuildProjectCloudWatchLogsConfig.hs view
@@ -0,0 +1,60 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-cloudwatchlogsconfig.html++module Stratosphere.ResourceProperties.CodeBuildProjectCloudWatchLogsConfig where++import Stratosphere.ResourceImports+++-- | Full data type definition for CodeBuildProjectCloudWatchLogsConfig. See+-- 'codeBuildProjectCloudWatchLogsConfig' for a more convenient constructor.+data CodeBuildProjectCloudWatchLogsConfig =+ CodeBuildProjectCloudWatchLogsConfig+ { _codeBuildProjectCloudWatchLogsConfigGroupName :: Maybe (Val Text)+ , _codeBuildProjectCloudWatchLogsConfigStatus :: Val Text+ , _codeBuildProjectCloudWatchLogsConfigStreamName :: Maybe (Val Text)+ } deriving (Show, Eq)++instance ToJSON CodeBuildProjectCloudWatchLogsConfig where+ toJSON CodeBuildProjectCloudWatchLogsConfig{..} =+ object $+ catMaybes+ [ fmap (("GroupName",) . toJSON) _codeBuildProjectCloudWatchLogsConfigGroupName+ , (Just . ("Status",) . toJSON) _codeBuildProjectCloudWatchLogsConfigStatus+ , fmap (("StreamName",) . toJSON) _codeBuildProjectCloudWatchLogsConfigStreamName+ ]++instance FromJSON CodeBuildProjectCloudWatchLogsConfig where+ parseJSON (Object obj) =+ CodeBuildProjectCloudWatchLogsConfig <$>+ (obj .:? "GroupName") <*>+ (obj .: "Status") <*>+ (obj .:? "StreamName")+ parseJSON _ = mempty++-- | Constructor for 'CodeBuildProjectCloudWatchLogsConfig' containing+-- required fields as arguments.+codeBuildProjectCloudWatchLogsConfig+ :: Val Text -- ^ 'cbpcwlcStatus'+ -> CodeBuildProjectCloudWatchLogsConfig+codeBuildProjectCloudWatchLogsConfig statusarg =+ CodeBuildProjectCloudWatchLogsConfig+ { _codeBuildProjectCloudWatchLogsConfigGroupName = Nothing+ , _codeBuildProjectCloudWatchLogsConfigStatus = statusarg+ , _codeBuildProjectCloudWatchLogsConfigStreamName = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-cloudwatchlogsconfig.html#cfn-codebuild-project-cloudwatchlogsconfig-groupname+cbpcwlcGroupName :: Lens' CodeBuildProjectCloudWatchLogsConfig (Maybe (Val Text))+cbpcwlcGroupName = lens _codeBuildProjectCloudWatchLogsConfigGroupName (\s a -> s { _codeBuildProjectCloudWatchLogsConfigGroupName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-cloudwatchlogsconfig.html#cfn-codebuild-project-cloudwatchlogsconfig-status+cbpcwlcStatus :: Lens' CodeBuildProjectCloudWatchLogsConfig (Val Text)+cbpcwlcStatus = lens _codeBuildProjectCloudWatchLogsConfigStatus (\s a -> s { _codeBuildProjectCloudWatchLogsConfigStatus = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-cloudwatchlogsconfig.html#cfn-codebuild-project-cloudwatchlogsconfig-streamname+cbpcwlcStreamName :: Lens' CodeBuildProjectCloudWatchLogsConfig (Maybe (Val Text))+cbpcwlcStreamName = lens _codeBuildProjectCloudWatchLogsConfigStreamName (\s a -> s { _codeBuildProjectCloudWatchLogsConfigStreamName = a })
+ library-gen/Stratosphere/ResourceProperties/CodeBuildProjectLogsConfig.hs view
@@ -0,0 +1,52 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-logsconfig.html++module Stratosphere.ResourceProperties.CodeBuildProjectLogsConfig where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.CodeBuildProjectCloudWatchLogsConfig+import Stratosphere.ResourceProperties.CodeBuildProjectS3LogsConfig++-- | Full data type definition for CodeBuildProjectLogsConfig. See+-- 'codeBuildProjectLogsConfig' for a more convenient constructor.+data CodeBuildProjectLogsConfig =+ CodeBuildProjectLogsConfig+ { _codeBuildProjectLogsConfigCloudWatchLogs :: Maybe CodeBuildProjectCloudWatchLogsConfig+ , _codeBuildProjectLogsConfigS3Logs :: Maybe CodeBuildProjectS3LogsConfig+ } deriving (Show, Eq)++instance ToJSON CodeBuildProjectLogsConfig where+ toJSON CodeBuildProjectLogsConfig{..} =+ object $+ catMaybes+ [ fmap (("CloudWatchLogs",) . toJSON) _codeBuildProjectLogsConfigCloudWatchLogs+ , fmap (("S3Logs",) . toJSON) _codeBuildProjectLogsConfigS3Logs+ ]++instance FromJSON CodeBuildProjectLogsConfig where+ parseJSON (Object obj) =+ CodeBuildProjectLogsConfig <$>+ (obj .:? "CloudWatchLogs") <*>+ (obj .:? "S3Logs")+ parseJSON _ = mempty++-- | Constructor for 'CodeBuildProjectLogsConfig' containing required fields+-- as arguments.+codeBuildProjectLogsConfig+ :: CodeBuildProjectLogsConfig+codeBuildProjectLogsConfig =+ CodeBuildProjectLogsConfig+ { _codeBuildProjectLogsConfigCloudWatchLogs = Nothing+ , _codeBuildProjectLogsConfigS3Logs = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-logsconfig.html#cfn-codebuild-project-logsconfig-cloudwatchlogs+cbplcCloudWatchLogs :: Lens' CodeBuildProjectLogsConfig (Maybe CodeBuildProjectCloudWatchLogsConfig)+cbplcCloudWatchLogs = lens _codeBuildProjectLogsConfigCloudWatchLogs (\s a -> s { _codeBuildProjectLogsConfigCloudWatchLogs = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-logsconfig.html#cfn-codebuild-project-logsconfig-s3logs+cbplcS3Logs :: Lens' CodeBuildProjectLogsConfig (Maybe CodeBuildProjectS3LogsConfig)+cbplcS3Logs = lens _codeBuildProjectLogsConfigS3Logs (\s a -> s { _codeBuildProjectLogsConfigS3Logs = a })
+ library-gen/Stratosphere/ResourceProperties/CodeBuildProjectS3LogsConfig.hs view
@@ -0,0 +1,52 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-s3logsconfig.html++module Stratosphere.ResourceProperties.CodeBuildProjectS3LogsConfig where++import Stratosphere.ResourceImports+++-- | Full data type definition for CodeBuildProjectS3LogsConfig. See+-- 'codeBuildProjectS3LogsConfig' for a more convenient constructor.+data CodeBuildProjectS3LogsConfig =+ CodeBuildProjectS3LogsConfig+ { _codeBuildProjectS3LogsConfigLocation :: Maybe (Val Text)+ , _codeBuildProjectS3LogsConfigStatus :: Val Text+ } deriving (Show, Eq)++instance ToJSON CodeBuildProjectS3LogsConfig where+ toJSON CodeBuildProjectS3LogsConfig{..} =+ object $+ catMaybes+ [ fmap (("Location",) . toJSON) _codeBuildProjectS3LogsConfigLocation+ , (Just . ("Status",) . toJSON) _codeBuildProjectS3LogsConfigStatus+ ]++instance FromJSON CodeBuildProjectS3LogsConfig where+ parseJSON (Object obj) =+ CodeBuildProjectS3LogsConfig <$>+ (obj .:? "Location") <*>+ (obj .: "Status")+ parseJSON _ = mempty++-- | Constructor for 'CodeBuildProjectS3LogsConfig' containing required fields+-- as arguments.+codeBuildProjectS3LogsConfig+ :: Val Text -- ^ 'cbpslcStatus'+ -> CodeBuildProjectS3LogsConfig+codeBuildProjectS3LogsConfig statusarg =+ CodeBuildProjectS3LogsConfig+ { _codeBuildProjectS3LogsConfigLocation = Nothing+ , _codeBuildProjectS3LogsConfigStatus = statusarg+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-s3logsconfig.html#cfn-codebuild-project-s3logsconfig-location+cbpslcLocation :: Lens' CodeBuildProjectS3LogsConfig (Maybe (Val Text))+cbpslcLocation = lens _codeBuildProjectS3LogsConfigLocation (\s a -> s { _codeBuildProjectS3LogsConfigLocation = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-s3logsconfig.html#cfn-codebuild-project-s3logsconfig-status+cbpslcStatus :: Lens' CodeBuildProjectS3LogsConfig (Val Text)+cbpslcStatus = lens _codeBuildProjectS3LogsConfigStatus (\s a -> s { _codeBuildProjectS3LogsConfigStatus = a })
library-gen/Stratosphere/ResourceProperties/CodeBuildProjectSource.hs view
@@ -19,6 +19,7 @@ , _codeBuildProjectSourceInsecureSsl :: Maybe (Val Bool) , _codeBuildProjectSourceLocation :: Maybe (Val Text) , _codeBuildProjectSourceReportBuildStatus :: Maybe (Val Bool)+ , _codeBuildProjectSourceSourceIdentifier :: Maybe (Val Text) , _codeBuildProjectSourceType :: Val Text } deriving (Show, Eq) @@ -32,6 +33,7 @@ , fmap (("InsecureSsl",) . toJSON . fmap Bool') _codeBuildProjectSourceInsecureSsl , fmap (("Location",) . toJSON) _codeBuildProjectSourceLocation , fmap (("ReportBuildStatus",) . toJSON . fmap Bool') _codeBuildProjectSourceReportBuildStatus+ , fmap (("SourceIdentifier",) . toJSON) _codeBuildProjectSourceSourceIdentifier , (Just . ("Type",) . toJSON) _codeBuildProjectSourceType ] @@ -44,6 +46,7 @@ fmap (fmap (fmap unBool')) (obj .:? "InsecureSsl") <*> (obj .:? "Location") <*> fmap (fmap (fmap unBool')) (obj .:? "ReportBuildStatus") <*>+ (obj .:? "SourceIdentifier") <*> (obj .: "Type") parseJSON _ = mempty @@ -60,6 +63,7 @@ , _codeBuildProjectSourceInsecureSsl = Nothing , _codeBuildProjectSourceLocation = Nothing , _codeBuildProjectSourceReportBuildStatus = Nothing+ , _codeBuildProjectSourceSourceIdentifier = Nothing , _codeBuildProjectSourceType = typearg } @@ -86,6 +90,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-source.html#cfn-codebuild-project-source-reportbuildstatus cbpsReportBuildStatus :: Lens' CodeBuildProjectSource (Maybe (Val Bool)) cbpsReportBuildStatus = lens _codeBuildProjectSourceReportBuildStatus (\s a -> s { _codeBuildProjectSourceReportBuildStatus = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-source.html#cfn-codebuild-project-source-sourceidentifier+cbpsSourceIdentifier :: Lens' CodeBuildProjectSource (Maybe (Val Text))+cbpsSourceIdentifier = lens _codeBuildProjectSourceSourceIdentifier (\s a -> s { _codeBuildProjectSourceSourceIdentifier = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-source.html#cfn-codebuild-project-source-type cbpsType :: Lens' CodeBuildProjectSource (Val Text)
library-gen/Stratosphere/ResourceProperties/CodeBuildProjectVpcConfig.hs view
@@ -13,50 +13,47 @@ -- 'codeBuildProjectVpcConfig' for a more convenient constructor. data CodeBuildProjectVpcConfig = CodeBuildProjectVpcConfig- { _codeBuildProjectVpcConfigSecurityGroupIds :: ValList Text- , _codeBuildProjectVpcConfigSubnets :: ValList Text- , _codeBuildProjectVpcConfigVpcId :: Val Text+ { _codeBuildProjectVpcConfigSecurityGroupIds :: Maybe (ValList Text)+ , _codeBuildProjectVpcConfigSubnets :: Maybe (ValList Text)+ , _codeBuildProjectVpcConfigVpcId :: Maybe (Val Text) } deriving (Show, Eq) instance ToJSON CodeBuildProjectVpcConfig where toJSON CodeBuildProjectVpcConfig{..} = object $ catMaybes- [ (Just . ("SecurityGroupIds",) . toJSON) _codeBuildProjectVpcConfigSecurityGroupIds- , (Just . ("Subnets",) . toJSON) _codeBuildProjectVpcConfigSubnets- , (Just . ("VpcId",) . toJSON) _codeBuildProjectVpcConfigVpcId+ [ fmap (("SecurityGroupIds",) . toJSON) _codeBuildProjectVpcConfigSecurityGroupIds+ , fmap (("Subnets",) . toJSON) _codeBuildProjectVpcConfigSubnets+ , fmap (("VpcId",) . toJSON) _codeBuildProjectVpcConfigVpcId ] instance FromJSON CodeBuildProjectVpcConfig where parseJSON (Object obj) = CodeBuildProjectVpcConfig <$>- (obj .: "SecurityGroupIds") <*>- (obj .: "Subnets") <*>- (obj .: "VpcId")+ (obj .:? "SecurityGroupIds") <*>+ (obj .:? "Subnets") <*>+ (obj .:? "VpcId") parseJSON _ = mempty -- | Constructor for 'CodeBuildProjectVpcConfig' containing required fields as -- arguments. codeBuildProjectVpcConfig- :: ValList Text -- ^ 'cbpvcSecurityGroupIds'- -> ValList Text -- ^ 'cbpvcSubnets'- -> Val Text -- ^ 'cbpvcVpcId'- -> CodeBuildProjectVpcConfig-codeBuildProjectVpcConfig securityGroupIdsarg subnetsarg vpcIdarg =+ :: CodeBuildProjectVpcConfig+codeBuildProjectVpcConfig = CodeBuildProjectVpcConfig- { _codeBuildProjectVpcConfigSecurityGroupIds = securityGroupIdsarg- , _codeBuildProjectVpcConfigSubnets = subnetsarg- , _codeBuildProjectVpcConfigVpcId = vpcIdarg+ { _codeBuildProjectVpcConfigSecurityGroupIds = Nothing+ , _codeBuildProjectVpcConfigSubnets = Nothing+ , _codeBuildProjectVpcConfigVpcId = Nothing } -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-vpcconfig.html#cfn-codebuild-project-vpcconfig-securitygroupids-cbpvcSecurityGroupIds :: Lens' CodeBuildProjectVpcConfig (ValList Text)+cbpvcSecurityGroupIds :: Lens' CodeBuildProjectVpcConfig (Maybe (ValList Text)) cbpvcSecurityGroupIds = lens _codeBuildProjectVpcConfigSecurityGroupIds (\s a -> s { _codeBuildProjectVpcConfigSecurityGroupIds = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-vpcconfig.html#cfn-codebuild-project-vpcconfig-subnets-cbpvcSubnets :: Lens' CodeBuildProjectVpcConfig (ValList Text)+cbpvcSubnets :: Lens' CodeBuildProjectVpcConfig (Maybe (ValList Text)) cbpvcSubnets = lens _codeBuildProjectVpcConfigSubnets (\s a -> s { _codeBuildProjectVpcConfigSubnets = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-vpcconfig.html#cfn-codebuild-project-vpcconfig-vpcid-cbpvcVpcId :: Lens' CodeBuildProjectVpcConfig (Val Text)+cbpvcVpcId :: Lens' CodeBuildProjectVpcConfig (Maybe (Val Text)) cbpvcVpcId = lens _codeBuildProjectVpcConfigVpcId (\s a -> s { _codeBuildProjectVpcConfigVpcId = a })
library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupEC2TagFilter.hs view
@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-ec2tagfilters.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-ec2tagfilter.html module Stratosphere.ResourceProperties.CodeDeployDeploymentGroupEC2TagFilter where @@ -47,14 +47,14 @@ , _codeDeployDeploymentGroupEC2TagFilterValue = Nothing } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-ec2tagfilters.html#cfn-properties-codedeploy-deploymentgroup-ec2tagfilters-key+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-ec2tagfilter.html#cfn-codedeploy-deploymentgroup-ec2tagfilter-key cddgectfKey :: Lens' CodeDeployDeploymentGroupEC2TagFilter (Maybe (Val Text)) cddgectfKey = lens _codeDeployDeploymentGroupEC2TagFilterKey (\s a -> s { _codeDeployDeploymentGroupEC2TagFilterKey = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-ec2tagfilters.html#cfn-properties-codedeploy-deploymentgroup-ec2tagfilters-type+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-ec2tagfilter.html#cfn-codedeploy-deploymentgroup-ec2tagfilter-type cddgectfType :: Lens' CodeDeployDeploymentGroupEC2TagFilter (Maybe (Val Text)) cddgectfType = lens _codeDeployDeploymentGroupEC2TagFilterType (\s a -> s { _codeDeployDeploymentGroupEC2TagFilterType = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-ec2tagfilters.html#cfn-properties-codedeploy-deploymentgroup-ec2tagfilters-value+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-ec2tagfilter.html#cfn-codedeploy-deploymentgroup-ec2tagfilter-value cddgectfValue :: Lens' CodeDeployDeploymentGroupEC2TagFilter (Maybe (Val Text)) cddgectfValue = lens _codeDeployDeploymentGroupEC2TagFilterValue (\s a -> s { _codeDeployDeploymentGroupEC2TagFilterValue = a })
+ library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupEC2TagSet.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-ec2tagset.html++module Stratosphere.ResourceProperties.CodeDeployDeploymentGroupEC2TagSet where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupEC2TagSetListObject++-- | Full data type definition for CodeDeployDeploymentGroupEC2TagSet. See+-- 'codeDeployDeploymentGroupEC2TagSet' for a more convenient constructor.+data CodeDeployDeploymentGroupEC2TagSet =+ CodeDeployDeploymentGroupEC2TagSet+ { _codeDeployDeploymentGroupEC2TagSetEc2TagSetList :: Maybe [CodeDeployDeploymentGroupEC2TagSetListObject]+ } deriving (Show, Eq)++instance ToJSON CodeDeployDeploymentGroupEC2TagSet where+ toJSON CodeDeployDeploymentGroupEC2TagSet{..} =+ object $+ catMaybes+ [ fmap (("Ec2TagSetList",) . toJSON) _codeDeployDeploymentGroupEC2TagSetEc2TagSetList+ ]++instance FromJSON CodeDeployDeploymentGroupEC2TagSet where+ parseJSON (Object obj) =+ CodeDeployDeploymentGroupEC2TagSet <$>+ (obj .:? "Ec2TagSetList")+ parseJSON _ = mempty++-- | Constructor for 'CodeDeployDeploymentGroupEC2TagSet' containing required+-- fields as arguments.+codeDeployDeploymentGroupEC2TagSet+ :: CodeDeployDeploymentGroupEC2TagSet+codeDeployDeploymentGroupEC2TagSet =+ CodeDeployDeploymentGroupEC2TagSet+ { _codeDeployDeploymentGroupEC2TagSetEc2TagSetList = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-ec2tagset.html#cfn-codedeploy-deploymentgroup-ec2tagset-ec2tagsetlist+cddgectsEc2TagSetList :: Lens' CodeDeployDeploymentGroupEC2TagSet (Maybe [CodeDeployDeploymentGroupEC2TagSetListObject])+cddgectsEc2TagSetList = lens _codeDeployDeploymentGroupEC2TagSetEc2TagSetList (\s a -> s { _codeDeployDeploymentGroupEC2TagSetEc2TagSetList = a })
+ library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupEC2TagSetListObject.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-ec2tagsetlistobject.html++module Stratosphere.ResourceProperties.CodeDeployDeploymentGroupEC2TagSetListObject where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupEC2TagFilter++-- | Full data type definition for+-- CodeDeployDeploymentGroupEC2TagSetListObject. See+-- 'codeDeployDeploymentGroupEC2TagSetListObject' for a more convenient+-- constructor.+data CodeDeployDeploymentGroupEC2TagSetListObject =+ CodeDeployDeploymentGroupEC2TagSetListObject+ { _codeDeployDeploymentGroupEC2TagSetListObjectEc2TagGroup :: Maybe [CodeDeployDeploymentGroupEC2TagFilter]+ } deriving (Show, Eq)++instance ToJSON CodeDeployDeploymentGroupEC2TagSetListObject where+ toJSON CodeDeployDeploymentGroupEC2TagSetListObject{..} =+ object $+ catMaybes+ [ fmap (("Ec2TagGroup",) . toJSON) _codeDeployDeploymentGroupEC2TagSetListObjectEc2TagGroup+ ]++instance FromJSON CodeDeployDeploymentGroupEC2TagSetListObject where+ parseJSON (Object obj) =+ CodeDeployDeploymentGroupEC2TagSetListObject <$>+ (obj .:? "Ec2TagGroup")+ parseJSON _ = mempty++-- | Constructor for 'CodeDeployDeploymentGroupEC2TagSetListObject' containing+-- required fields as arguments.+codeDeployDeploymentGroupEC2TagSetListObject+ :: CodeDeployDeploymentGroupEC2TagSetListObject+codeDeployDeploymentGroupEC2TagSetListObject =+ CodeDeployDeploymentGroupEC2TagSetListObject+ { _codeDeployDeploymentGroupEC2TagSetListObjectEc2TagGroup = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-ec2tagsetlistobject.html#cfn-codedeploy-deploymentgroup-ec2tagsetlistobject-ec2taggroup+cddgectsloEc2TagGroup :: Lens' CodeDeployDeploymentGroupEC2TagSetListObject (Maybe [CodeDeployDeploymentGroupEC2TagFilter])+cddgectsloEc2TagGroup = lens _codeDeployDeploymentGroupEC2TagSetListObjectEc2TagGroup (\s a -> s { _codeDeployDeploymentGroupEC2TagSetListObjectEc2TagGroup = a })
+ library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupOnPremisesTagSet.hs view
@@ -0,0 +1,44 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-onpremisestagset.html++module Stratosphere.ResourceProperties.CodeDeployDeploymentGroupOnPremisesTagSet where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupOnPremisesTagSetListObject++-- | Full data type definition for CodeDeployDeploymentGroupOnPremisesTagSet.+-- See 'codeDeployDeploymentGroupOnPremisesTagSet' for a more convenient+-- constructor.+data CodeDeployDeploymentGroupOnPremisesTagSet =+ CodeDeployDeploymentGroupOnPremisesTagSet+ { _codeDeployDeploymentGroupOnPremisesTagSetOnPremisesTagSetList :: Maybe [CodeDeployDeploymentGroupOnPremisesTagSetListObject]+ } deriving (Show, Eq)++instance ToJSON CodeDeployDeploymentGroupOnPremisesTagSet where+ toJSON CodeDeployDeploymentGroupOnPremisesTagSet{..} =+ object $+ catMaybes+ [ fmap (("OnPremisesTagSetList",) . toJSON) _codeDeployDeploymentGroupOnPremisesTagSetOnPremisesTagSetList+ ]++instance FromJSON CodeDeployDeploymentGroupOnPremisesTagSet where+ parseJSON (Object obj) =+ CodeDeployDeploymentGroupOnPremisesTagSet <$>+ (obj .:? "OnPremisesTagSetList")+ parseJSON _ = mempty++-- | Constructor for 'CodeDeployDeploymentGroupOnPremisesTagSet' containing+-- required fields as arguments.+codeDeployDeploymentGroupOnPremisesTagSet+ :: CodeDeployDeploymentGroupOnPremisesTagSet+codeDeployDeploymentGroupOnPremisesTagSet =+ CodeDeployDeploymentGroupOnPremisesTagSet+ { _codeDeployDeploymentGroupOnPremisesTagSetOnPremisesTagSetList = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-onpremisestagset.html#cfn-codedeploy-deploymentgroup-onpremisestagset-onpremisestagsetlist+cddgoptsOnPremisesTagSetList :: Lens' CodeDeployDeploymentGroupOnPremisesTagSet (Maybe [CodeDeployDeploymentGroupOnPremisesTagSetListObject])+cddgoptsOnPremisesTagSetList = lens _codeDeployDeploymentGroupOnPremisesTagSetOnPremisesTagSetList (\s a -> s { _codeDeployDeploymentGroupOnPremisesTagSetOnPremisesTagSetList = a })
+ library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupOnPremisesTagSetListObject.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-onpremisestagsetlistobject.html++module Stratosphere.ResourceProperties.CodeDeployDeploymentGroupOnPremisesTagSetListObject where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupTagFilter++-- | Full data type definition for+-- CodeDeployDeploymentGroupOnPremisesTagSetListObject. See+-- 'codeDeployDeploymentGroupOnPremisesTagSetListObject' for a more+-- convenient constructor.+data CodeDeployDeploymentGroupOnPremisesTagSetListObject =+ CodeDeployDeploymentGroupOnPremisesTagSetListObject+ { _codeDeployDeploymentGroupOnPremisesTagSetListObjectOnPremisesTagGroup :: Maybe [CodeDeployDeploymentGroupTagFilter]+ } deriving (Show, Eq)++instance ToJSON CodeDeployDeploymentGroupOnPremisesTagSetListObject where+ toJSON CodeDeployDeploymentGroupOnPremisesTagSetListObject{..} =+ object $+ catMaybes+ [ fmap (("OnPremisesTagGroup",) . toJSON) _codeDeployDeploymentGroupOnPremisesTagSetListObjectOnPremisesTagGroup+ ]++instance FromJSON CodeDeployDeploymentGroupOnPremisesTagSetListObject where+ parseJSON (Object obj) =+ CodeDeployDeploymentGroupOnPremisesTagSetListObject <$>+ (obj .:? "OnPremisesTagGroup")+ parseJSON _ = mempty++-- | Constructor for 'CodeDeployDeploymentGroupOnPremisesTagSetListObject'+-- containing required fields as arguments.+codeDeployDeploymentGroupOnPremisesTagSetListObject+ :: CodeDeployDeploymentGroupOnPremisesTagSetListObject+codeDeployDeploymentGroupOnPremisesTagSetListObject =+ CodeDeployDeploymentGroupOnPremisesTagSetListObject+ { _codeDeployDeploymentGroupOnPremisesTagSetListObjectOnPremisesTagGroup = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-onpremisestagsetlistobject.html#cfn-codedeploy-deploymentgroup-onpremisestagsetlistobject-onpremisestaggroup+cddgoptsloOnPremisesTagGroup :: Lens' CodeDeployDeploymentGroupOnPremisesTagSetListObject (Maybe [CodeDeployDeploymentGroupTagFilter])+cddgoptsloOnPremisesTagGroup = lens _codeDeployDeploymentGroupOnPremisesTagSetListObjectOnPremisesTagGroup (\s a -> s { _codeDeployDeploymentGroupOnPremisesTagSetListObjectOnPremisesTagGroup = a })
library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupTagFilter.hs view
@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-onpremisesinstancetagfilters.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-tagfilter.html module Stratosphere.ResourceProperties.CodeDeployDeploymentGroupTagFilter where @@ -46,14 +46,14 @@ , _codeDeployDeploymentGroupTagFilterValue = Nothing } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-onpremisesinstancetagfilters.html#cfn-properties-codedeploy-deploymentgroup-onpremisesinstancetagfilters-key+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-tagfilter.html#cfn-codedeploy-deploymentgroup-tagfilter-key cddgtfKey :: Lens' CodeDeployDeploymentGroupTagFilter (Maybe (Val Text)) cddgtfKey = lens _codeDeployDeploymentGroupTagFilterKey (\s a -> s { _codeDeployDeploymentGroupTagFilterKey = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-onpremisesinstancetagfilters.html#cfn-properties-codedeploy-deploymentgroup-onpremisesinstancetagfilters-type+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-tagfilter.html#cfn-codedeploy-deploymentgroup-tagfilter-type cddgtfType :: Lens' CodeDeployDeploymentGroupTagFilter (Maybe (Val Text)) cddgtfType = lens _codeDeployDeploymentGroupTagFilterType (\s a -> s { _codeDeployDeploymentGroupTagFilterType = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-onpremisesinstancetagfilters.html#cfn-properties-codedeploy-deploymentgroup-onpremisesinstancetagfilters-value+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-tagfilter.html#cfn-codedeploy-deploymentgroup-tagfilter-value cddgtfValue :: Lens' CodeDeployDeploymentGroupTagFilter (Maybe (Val Text)) cddgtfValue = lens _codeDeployDeploymentGroupTagFilterValue (\s a -> s { _codeDeployDeploymentGroupTagFilterValue = a })
+ library-gen/Stratosphere/ResourceProperties/EC2SpotFleetClassicLoadBalancer.hs view
@@ -0,0 +1,44 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-classicloadbalancer.html++module Stratosphere.ResourceProperties.EC2SpotFleetClassicLoadBalancer where++import Stratosphere.ResourceImports+++-- | Full data type definition for EC2SpotFleetClassicLoadBalancer. See+-- 'ec2SpotFleetClassicLoadBalancer' for a more convenient constructor.+data EC2SpotFleetClassicLoadBalancer =+ EC2SpotFleetClassicLoadBalancer+ { _eC2SpotFleetClassicLoadBalancerName :: Val Text+ } deriving (Show, Eq)++instance ToJSON EC2SpotFleetClassicLoadBalancer where+ toJSON EC2SpotFleetClassicLoadBalancer{..} =+ object $+ catMaybes+ [ (Just . ("Name",) . toJSON) _eC2SpotFleetClassicLoadBalancerName+ ]++instance FromJSON EC2SpotFleetClassicLoadBalancer where+ parseJSON (Object obj) =+ EC2SpotFleetClassicLoadBalancer <$>+ (obj .: "Name")+ parseJSON _ = mempty++-- | Constructor for 'EC2SpotFleetClassicLoadBalancer' containing required+-- fields as arguments.+ec2SpotFleetClassicLoadBalancer+ :: Val Text -- ^ 'ecsfclbName'+ -> EC2SpotFleetClassicLoadBalancer+ec2SpotFleetClassicLoadBalancer namearg =+ EC2SpotFleetClassicLoadBalancer+ { _eC2SpotFleetClassicLoadBalancerName = namearg+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-classicloadbalancer.html#cfn-ec2-spotfleet-classicloadbalancer-name+ecsfclbName :: Lens' EC2SpotFleetClassicLoadBalancer (Val Text)+ecsfclbName = lens _eC2SpotFleetClassicLoadBalancerName (\s a -> s { _eC2SpotFleetClassicLoadBalancerName = a })
+ library-gen/Stratosphere/ResourceProperties/EC2SpotFleetClassicLoadBalancersConfig.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-classicloadbalancersconfig.html++module Stratosphere.ResourceProperties.EC2SpotFleetClassicLoadBalancersConfig where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.EC2SpotFleetClassicLoadBalancer++-- | Full data type definition for EC2SpotFleetClassicLoadBalancersConfig. See+-- 'ec2SpotFleetClassicLoadBalancersConfig' for a more convenient+-- constructor.+data EC2SpotFleetClassicLoadBalancersConfig =+ EC2SpotFleetClassicLoadBalancersConfig+ { _eC2SpotFleetClassicLoadBalancersConfigClassicLoadBalancers :: [EC2SpotFleetClassicLoadBalancer]+ } deriving (Show, Eq)++instance ToJSON EC2SpotFleetClassicLoadBalancersConfig where+ toJSON EC2SpotFleetClassicLoadBalancersConfig{..} =+ object $+ catMaybes+ [ (Just . ("ClassicLoadBalancers",) . toJSON) _eC2SpotFleetClassicLoadBalancersConfigClassicLoadBalancers+ ]++instance FromJSON EC2SpotFleetClassicLoadBalancersConfig where+ parseJSON (Object obj) =+ EC2SpotFleetClassicLoadBalancersConfig <$>+ (obj .: "ClassicLoadBalancers")+ parseJSON _ = mempty++-- | Constructor for 'EC2SpotFleetClassicLoadBalancersConfig' containing+-- required fields as arguments.+ec2SpotFleetClassicLoadBalancersConfig+ :: [EC2SpotFleetClassicLoadBalancer] -- ^ 'ecsfclbcClassicLoadBalancers'+ -> EC2SpotFleetClassicLoadBalancersConfig+ec2SpotFleetClassicLoadBalancersConfig classicLoadBalancersarg =+ EC2SpotFleetClassicLoadBalancersConfig+ { _eC2SpotFleetClassicLoadBalancersConfigClassicLoadBalancers = classicLoadBalancersarg+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-classicloadbalancersconfig.html#cfn-ec2-spotfleet-classicloadbalancersconfig-classicloadbalancers+ecsfclbcClassicLoadBalancers :: Lens' EC2SpotFleetClassicLoadBalancersConfig [EC2SpotFleetClassicLoadBalancer]+ecsfclbcClassicLoadBalancers = lens _eC2SpotFleetClassicLoadBalancersConfigClassicLoadBalancers (\s a -> s { _eC2SpotFleetClassicLoadBalancersConfigClassicLoadBalancers = a })
+ library-gen/Stratosphere/ResourceProperties/EC2SpotFleetFleetLaunchTemplateSpecification.hs view
@@ -0,0 +1,62 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-fleetlaunchtemplatespecification.html++module Stratosphere.ResourceProperties.EC2SpotFleetFleetLaunchTemplateSpecification where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- EC2SpotFleetFleetLaunchTemplateSpecification. See+-- 'ec2SpotFleetFleetLaunchTemplateSpecification' for a more convenient+-- constructor.+data EC2SpotFleetFleetLaunchTemplateSpecification =+ EC2SpotFleetFleetLaunchTemplateSpecification+ { _eC2SpotFleetFleetLaunchTemplateSpecificationLaunchTemplateId :: Maybe (Val Text)+ , _eC2SpotFleetFleetLaunchTemplateSpecificationLaunchTemplateName :: Maybe (Val Text)+ , _eC2SpotFleetFleetLaunchTemplateSpecificationVersion :: Val Text+ } deriving (Show, Eq)++instance ToJSON EC2SpotFleetFleetLaunchTemplateSpecification where+ toJSON EC2SpotFleetFleetLaunchTemplateSpecification{..} =+ object $+ catMaybes+ [ fmap (("LaunchTemplateId",) . toJSON) _eC2SpotFleetFleetLaunchTemplateSpecificationLaunchTemplateId+ , fmap (("LaunchTemplateName",) . toJSON) _eC2SpotFleetFleetLaunchTemplateSpecificationLaunchTemplateName+ , (Just . ("Version",) . toJSON) _eC2SpotFleetFleetLaunchTemplateSpecificationVersion+ ]++instance FromJSON EC2SpotFleetFleetLaunchTemplateSpecification where+ parseJSON (Object obj) =+ EC2SpotFleetFleetLaunchTemplateSpecification <$>+ (obj .:? "LaunchTemplateId") <*>+ (obj .:? "LaunchTemplateName") <*>+ (obj .: "Version")+ parseJSON _ = mempty++-- | Constructor for 'EC2SpotFleetFleetLaunchTemplateSpecification' containing+-- required fields as arguments.+ec2SpotFleetFleetLaunchTemplateSpecification+ :: Val Text -- ^ 'ecsffltsVersion'+ -> EC2SpotFleetFleetLaunchTemplateSpecification+ec2SpotFleetFleetLaunchTemplateSpecification versionarg =+ EC2SpotFleetFleetLaunchTemplateSpecification+ { _eC2SpotFleetFleetLaunchTemplateSpecificationLaunchTemplateId = Nothing+ , _eC2SpotFleetFleetLaunchTemplateSpecificationLaunchTemplateName = Nothing+ , _eC2SpotFleetFleetLaunchTemplateSpecificationVersion = versionarg+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-fleetlaunchtemplatespecification.html#cfn-ec2-spotfleet-fleetlaunchtemplatespecification-launchtemplateid+ecsffltsLaunchTemplateId :: Lens' EC2SpotFleetFleetLaunchTemplateSpecification (Maybe (Val Text))+ecsffltsLaunchTemplateId = lens _eC2SpotFleetFleetLaunchTemplateSpecificationLaunchTemplateId (\s a -> s { _eC2SpotFleetFleetLaunchTemplateSpecificationLaunchTemplateId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-fleetlaunchtemplatespecification.html#cfn-ec2-spotfleet-fleetlaunchtemplatespecification-launchtemplatename+ecsffltsLaunchTemplateName :: Lens' EC2SpotFleetFleetLaunchTemplateSpecification (Maybe (Val Text))+ecsffltsLaunchTemplateName = lens _eC2SpotFleetFleetLaunchTemplateSpecificationLaunchTemplateName (\s a -> s { _eC2SpotFleetFleetLaunchTemplateSpecificationLaunchTemplateName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-fleetlaunchtemplatespecification.html#cfn-ec2-spotfleet-fleetlaunchtemplatespecification-version+ecsffltsVersion :: Lens' EC2SpotFleetFleetLaunchTemplateSpecification (Val Text)+ecsffltsVersion = lens _eC2SpotFleetFleetLaunchTemplateSpecificationVersion (\s a -> s { _eC2SpotFleetFleetLaunchTemplateSpecificationVersion = a })
+ library-gen/Stratosphere/ResourceProperties/EC2SpotFleetLaunchTemplateConfig.hs view
@@ -0,0 +1,52 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-launchtemplateconfig.html++module Stratosphere.ResourceProperties.EC2SpotFleetLaunchTemplateConfig where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.EC2SpotFleetFleetLaunchTemplateSpecification+import Stratosphere.ResourceProperties.EC2SpotFleetLaunchTemplateOverrides++-- | Full data type definition for EC2SpotFleetLaunchTemplateConfig. See+-- 'ec2SpotFleetLaunchTemplateConfig' for a more convenient constructor.+data EC2SpotFleetLaunchTemplateConfig =+ EC2SpotFleetLaunchTemplateConfig+ { _eC2SpotFleetLaunchTemplateConfigLaunchTemplateSpecification :: Maybe EC2SpotFleetFleetLaunchTemplateSpecification+ , _eC2SpotFleetLaunchTemplateConfigOverrides :: Maybe [EC2SpotFleetLaunchTemplateOverrides]+ } deriving (Show, Eq)++instance ToJSON EC2SpotFleetLaunchTemplateConfig where+ toJSON EC2SpotFleetLaunchTemplateConfig{..} =+ object $+ catMaybes+ [ fmap (("LaunchTemplateSpecification",) . toJSON) _eC2SpotFleetLaunchTemplateConfigLaunchTemplateSpecification+ , fmap (("Overrides",) . toJSON) _eC2SpotFleetLaunchTemplateConfigOverrides+ ]++instance FromJSON EC2SpotFleetLaunchTemplateConfig where+ parseJSON (Object obj) =+ EC2SpotFleetLaunchTemplateConfig <$>+ (obj .:? "LaunchTemplateSpecification") <*>+ (obj .:? "Overrides")+ parseJSON _ = mempty++-- | Constructor for 'EC2SpotFleetLaunchTemplateConfig' containing required+-- fields as arguments.+ec2SpotFleetLaunchTemplateConfig+ :: EC2SpotFleetLaunchTemplateConfig+ec2SpotFleetLaunchTemplateConfig =+ EC2SpotFleetLaunchTemplateConfig+ { _eC2SpotFleetLaunchTemplateConfigLaunchTemplateSpecification = Nothing+ , _eC2SpotFleetLaunchTemplateConfigOverrides = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-launchtemplateconfig.html#cfn-ec2-spotfleet-launchtemplateconfig-launchtemplatespecification+ecsfltcLaunchTemplateSpecification :: Lens' EC2SpotFleetLaunchTemplateConfig (Maybe EC2SpotFleetFleetLaunchTemplateSpecification)+ecsfltcLaunchTemplateSpecification = lens _eC2SpotFleetLaunchTemplateConfigLaunchTemplateSpecification (\s a -> s { _eC2SpotFleetLaunchTemplateConfigLaunchTemplateSpecification = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-launchtemplateconfig.html#cfn-ec2-spotfleet-launchtemplateconfig-overrides+ecsfltcOverrides :: Lens' EC2SpotFleetLaunchTemplateConfig (Maybe [EC2SpotFleetLaunchTemplateOverrides])+ecsfltcOverrides = lens _eC2SpotFleetLaunchTemplateConfigOverrides (\s a -> s { _eC2SpotFleetLaunchTemplateConfigOverrides = a })
+ library-gen/Stratosphere/ResourceProperties/EC2SpotFleetLaunchTemplateOverrides.hs view
@@ -0,0 +1,75 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-launchtemplateoverrides.html++module Stratosphere.ResourceProperties.EC2SpotFleetLaunchTemplateOverrides where++import Stratosphere.ResourceImports+++-- | Full data type definition for EC2SpotFleetLaunchTemplateOverrides. See+-- 'ec2SpotFleetLaunchTemplateOverrides' for a more convenient constructor.+data EC2SpotFleetLaunchTemplateOverrides =+ EC2SpotFleetLaunchTemplateOverrides+ { _eC2SpotFleetLaunchTemplateOverridesAvailabilityZone :: Maybe (Val Text)+ , _eC2SpotFleetLaunchTemplateOverridesInstanceType :: Maybe (Val Text)+ , _eC2SpotFleetLaunchTemplateOverridesSpotPrice :: Maybe (Val Text)+ , _eC2SpotFleetLaunchTemplateOverridesSubnetId :: Maybe (Val Text)+ , _eC2SpotFleetLaunchTemplateOverridesWeightedCapacity :: Maybe (Val Double)+ } deriving (Show, Eq)++instance ToJSON EC2SpotFleetLaunchTemplateOverrides where+ toJSON EC2SpotFleetLaunchTemplateOverrides{..} =+ object $+ catMaybes+ [ fmap (("AvailabilityZone",) . toJSON) _eC2SpotFleetLaunchTemplateOverridesAvailabilityZone+ , fmap (("InstanceType",) . toJSON) _eC2SpotFleetLaunchTemplateOverridesInstanceType+ , fmap (("SpotPrice",) . toJSON) _eC2SpotFleetLaunchTemplateOverridesSpotPrice+ , fmap (("SubnetId",) . toJSON) _eC2SpotFleetLaunchTemplateOverridesSubnetId+ , fmap (("WeightedCapacity",) . toJSON . fmap Double') _eC2SpotFleetLaunchTemplateOverridesWeightedCapacity+ ]++instance FromJSON EC2SpotFleetLaunchTemplateOverrides where+ parseJSON (Object obj) =+ EC2SpotFleetLaunchTemplateOverrides <$>+ (obj .:? "AvailabilityZone") <*>+ (obj .:? "InstanceType") <*>+ (obj .:? "SpotPrice") <*>+ (obj .:? "SubnetId") <*>+ fmap (fmap (fmap unDouble')) (obj .:? "WeightedCapacity")+ parseJSON _ = mempty++-- | Constructor for 'EC2SpotFleetLaunchTemplateOverrides' containing required+-- fields as arguments.+ec2SpotFleetLaunchTemplateOverrides+ :: EC2SpotFleetLaunchTemplateOverrides+ec2SpotFleetLaunchTemplateOverrides =+ EC2SpotFleetLaunchTemplateOverrides+ { _eC2SpotFleetLaunchTemplateOverridesAvailabilityZone = Nothing+ , _eC2SpotFleetLaunchTemplateOverridesInstanceType = Nothing+ , _eC2SpotFleetLaunchTemplateOverridesSpotPrice = Nothing+ , _eC2SpotFleetLaunchTemplateOverridesSubnetId = Nothing+ , _eC2SpotFleetLaunchTemplateOverridesWeightedCapacity = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-launchtemplateoverrides.html#cfn-ec2-spotfleet-launchtemplateoverrides-availabilityzone+ecsfltoAvailabilityZone :: Lens' EC2SpotFleetLaunchTemplateOverrides (Maybe (Val Text))+ecsfltoAvailabilityZone = lens _eC2SpotFleetLaunchTemplateOverridesAvailabilityZone (\s a -> s { _eC2SpotFleetLaunchTemplateOverridesAvailabilityZone = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-launchtemplateoverrides.html#cfn-ec2-spotfleet-launchtemplateoverrides-instancetype+ecsfltoInstanceType :: Lens' EC2SpotFleetLaunchTemplateOverrides (Maybe (Val Text))+ecsfltoInstanceType = lens _eC2SpotFleetLaunchTemplateOverridesInstanceType (\s a -> s { _eC2SpotFleetLaunchTemplateOverridesInstanceType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-launchtemplateoverrides.html#cfn-ec2-spotfleet-launchtemplateoverrides-spotprice+ecsfltoSpotPrice :: Lens' EC2SpotFleetLaunchTemplateOverrides (Maybe (Val Text))+ecsfltoSpotPrice = lens _eC2SpotFleetLaunchTemplateOverridesSpotPrice (\s a -> s { _eC2SpotFleetLaunchTemplateOverridesSpotPrice = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-launchtemplateoverrides.html#cfn-ec2-spotfleet-launchtemplateoverrides-subnetid+ecsfltoSubnetId :: Lens' EC2SpotFleetLaunchTemplateOverrides (Maybe (Val Text))+ecsfltoSubnetId = lens _eC2SpotFleetLaunchTemplateOverridesSubnetId (\s a -> s { _eC2SpotFleetLaunchTemplateOverridesSubnetId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-launchtemplateoverrides.html#cfn-ec2-spotfleet-launchtemplateoverrides-weightedcapacity+ecsfltoWeightedCapacity :: Lens' EC2SpotFleetLaunchTemplateOverrides (Maybe (Val Double))+ecsfltoWeightedCapacity = lens _eC2SpotFleetLaunchTemplateOverridesWeightedCapacity (\s a -> s { _eC2SpotFleetLaunchTemplateOverridesWeightedCapacity = a })
+ library-gen/Stratosphere/ResourceProperties/EC2SpotFleetLoadBalancersConfig.hs view
@@ -0,0 +1,52 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-loadbalancersconfig.html++module Stratosphere.ResourceProperties.EC2SpotFleetLoadBalancersConfig where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.EC2SpotFleetClassicLoadBalancersConfig+import Stratosphere.ResourceProperties.EC2SpotFleetTargetGroupsConfig++-- | Full data type definition for EC2SpotFleetLoadBalancersConfig. See+-- 'ec2SpotFleetLoadBalancersConfig' for a more convenient constructor.+data EC2SpotFleetLoadBalancersConfig =+ EC2SpotFleetLoadBalancersConfig+ { _eC2SpotFleetLoadBalancersConfigClassicLoadBalancersConfig :: Maybe EC2SpotFleetClassicLoadBalancersConfig+ , _eC2SpotFleetLoadBalancersConfigTargetGroupsConfig :: Maybe EC2SpotFleetTargetGroupsConfig+ } deriving (Show, Eq)++instance ToJSON EC2SpotFleetLoadBalancersConfig where+ toJSON EC2SpotFleetLoadBalancersConfig{..} =+ object $+ catMaybes+ [ fmap (("ClassicLoadBalancersConfig",) . toJSON) _eC2SpotFleetLoadBalancersConfigClassicLoadBalancersConfig+ , fmap (("TargetGroupsConfig",) . toJSON) _eC2SpotFleetLoadBalancersConfigTargetGroupsConfig+ ]++instance FromJSON EC2SpotFleetLoadBalancersConfig where+ parseJSON (Object obj) =+ EC2SpotFleetLoadBalancersConfig <$>+ (obj .:? "ClassicLoadBalancersConfig") <*>+ (obj .:? "TargetGroupsConfig")+ parseJSON _ = mempty++-- | Constructor for 'EC2SpotFleetLoadBalancersConfig' containing required+-- fields as arguments.+ec2SpotFleetLoadBalancersConfig+ :: EC2SpotFleetLoadBalancersConfig+ec2SpotFleetLoadBalancersConfig =+ EC2SpotFleetLoadBalancersConfig+ { _eC2SpotFleetLoadBalancersConfigClassicLoadBalancersConfig = Nothing+ , _eC2SpotFleetLoadBalancersConfigTargetGroupsConfig = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-loadbalancersconfig.html#cfn-ec2-spotfleet-loadbalancersconfig-classicloadbalancersconfig+ecsflbcClassicLoadBalancersConfig :: Lens' EC2SpotFleetLoadBalancersConfig (Maybe EC2SpotFleetClassicLoadBalancersConfig)+ecsflbcClassicLoadBalancersConfig = lens _eC2SpotFleetLoadBalancersConfigClassicLoadBalancersConfig (\s a -> s { _eC2SpotFleetLoadBalancersConfigClassicLoadBalancersConfig = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-loadbalancersconfig.html#cfn-ec2-spotfleet-loadbalancersconfig-targetgroupsconfig+ecsflbcTargetGroupsConfig :: Lens' EC2SpotFleetLoadBalancersConfig (Maybe EC2SpotFleetTargetGroupsConfig)+ecsflbcTargetGroupsConfig = lens _eC2SpotFleetLoadBalancersConfigTargetGroupsConfig (\s a -> s { _eC2SpotFleetLoadBalancersConfigTargetGroupsConfig = a })
library-gen/Stratosphere/ResourceProperties/EC2SpotFleetSpotFleetRequestConfigData.hs view
@@ -8,6 +8,8 @@ import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.EC2SpotFleetSpotFleetLaunchSpecification+import Stratosphere.ResourceProperties.EC2SpotFleetLaunchTemplateConfig+import Stratosphere.ResourceProperties.EC2SpotFleetLoadBalancersConfig -- | Full data type definition for EC2SpotFleetSpotFleetRequestConfigData. See -- 'ec2SpotFleetSpotFleetRequestConfigData' for a more convenient@@ -17,7 +19,10 @@ { _eC2SpotFleetSpotFleetRequestConfigDataAllocationStrategy :: Maybe (Val Text) , _eC2SpotFleetSpotFleetRequestConfigDataExcessCapacityTerminationPolicy :: Maybe (Val Text) , _eC2SpotFleetSpotFleetRequestConfigDataIamFleetRole :: Val Text+ , _eC2SpotFleetSpotFleetRequestConfigDataInstanceInterruptionBehavior :: Maybe (Val Text) , _eC2SpotFleetSpotFleetRequestConfigDataLaunchSpecifications :: Maybe [EC2SpotFleetSpotFleetLaunchSpecification]+ , _eC2SpotFleetSpotFleetRequestConfigDataLaunchTemplateConfigs :: Maybe [EC2SpotFleetLaunchTemplateConfig]+ , _eC2SpotFleetSpotFleetRequestConfigDataLoadBalancersConfig :: Maybe EC2SpotFleetLoadBalancersConfig , _eC2SpotFleetSpotFleetRequestConfigDataReplaceUnhealthyInstances :: Maybe (Val Bool) , _eC2SpotFleetSpotFleetRequestConfigDataSpotPrice :: Maybe (Val Text) , _eC2SpotFleetSpotFleetRequestConfigDataTargetCapacity :: Val Integer@@ -34,7 +39,10 @@ [ fmap (("AllocationStrategy",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigDataAllocationStrategy , fmap (("ExcessCapacityTerminationPolicy",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigDataExcessCapacityTerminationPolicy , (Just . ("IamFleetRole",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigDataIamFleetRole+ , fmap (("InstanceInterruptionBehavior",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigDataInstanceInterruptionBehavior , fmap (("LaunchSpecifications",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigDataLaunchSpecifications+ , fmap (("LaunchTemplateConfigs",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigDataLaunchTemplateConfigs+ , fmap (("LoadBalancersConfig",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigDataLoadBalancersConfig , fmap (("ReplaceUnhealthyInstances",) . toJSON . fmap Bool') _eC2SpotFleetSpotFleetRequestConfigDataReplaceUnhealthyInstances , fmap (("SpotPrice",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigDataSpotPrice , (Just . ("TargetCapacity",) . toJSON . fmap Integer') _eC2SpotFleetSpotFleetRequestConfigDataTargetCapacity@@ -50,7 +58,10 @@ (obj .:? "AllocationStrategy") <*> (obj .:? "ExcessCapacityTerminationPolicy") <*> (obj .: "IamFleetRole") <*>+ (obj .:? "InstanceInterruptionBehavior") <*> (obj .:? "LaunchSpecifications") <*>+ (obj .:? "LaunchTemplateConfigs") <*>+ (obj .:? "LoadBalancersConfig") <*> fmap (fmap (fmap unBool')) (obj .:? "ReplaceUnhealthyInstances") <*> (obj .:? "SpotPrice") <*> fmap (fmap unInteger') (obj .: "TargetCapacity") <*>@@ -71,7 +82,10 @@ { _eC2SpotFleetSpotFleetRequestConfigDataAllocationStrategy = Nothing , _eC2SpotFleetSpotFleetRequestConfigDataExcessCapacityTerminationPolicy = Nothing , _eC2SpotFleetSpotFleetRequestConfigDataIamFleetRole = iamFleetRolearg+ , _eC2SpotFleetSpotFleetRequestConfigDataInstanceInterruptionBehavior = Nothing , _eC2SpotFleetSpotFleetRequestConfigDataLaunchSpecifications = Nothing+ , _eC2SpotFleetSpotFleetRequestConfigDataLaunchTemplateConfigs = Nothing+ , _eC2SpotFleetSpotFleetRequestConfigDataLoadBalancersConfig = Nothing , _eC2SpotFleetSpotFleetRequestConfigDataReplaceUnhealthyInstances = Nothing , _eC2SpotFleetSpotFleetRequestConfigDataSpotPrice = Nothing , _eC2SpotFleetSpotFleetRequestConfigDataTargetCapacity = targetCapacityarg@@ -93,9 +107,21 @@ ecsfsfrcdIamFleetRole :: Lens' EC2SpotFleetSpotFleetRequestConfigData (Val Text) ecsfsfrcdIamFleetRole = lens _eC2SpotFleetSpotFleetRequestConfigDataIamFleetRole (\s a -> s { _eC2SpotFleetSpotFleetRequestConfigDataIamFleetRole = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata.html#cfn-ec2-spotfleet-spotfleetrequestconfigdata-instanceinterruptionbehavior+ecsfsfrcdInstanceInterruptionBehavior :: Lens' EC2SpotFleetSpotFleetRequestConfigData (Maybe (Val Text))+ecsfsfrcdInstanceInterruptionBehavior = lens _eC2SpotFleetSpotFleetRequestConfigDataInstanceInterruptionBehavior (\s a -> s { _eC2SpotFleetSpotFleetRequestConfigDataInstanceInterruptionBehavior = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata.html#cfn-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications ecsfsfrcdLaunchSpecifications :: Lens' EC2SpotFleetSpotFleetRequestConfigData (Maybe [EC2SpotFleetSpotFleetLaunchSpecification]) ecsfsfrcdLaunchSpecifications = lens _eC2SpotFleetSpotFleetRequestConfigDataLaunchSpecifications (\s a -> s { _eC2SpotFleetSpotFleetRequestConfigDataLaunchSpecifications = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata.html#cfn-ec2-spotfleet-spotfleetrequestconfigdata-launchtemplateconfigs+ecsfsfrcdLaunchTemplateConfigs :: Lens' EC2SpotFleetSpotFleetRequestConfigData (Maybe [EC2SpotFleetLaunchTemplateConfig])+ecsfsfrcdLaunchTemplateConfigs = lens _eC2SpotFleetSpotFleetRequestConfigDataLaunchTemplateConfigs (\s a -> s { _eC2SpotFleetSpotFleetRequestConfigDataLaunchTemplateConfigs = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata.html#cfn-ec2-spotfleet-spotfleetrequestconfigdata-loadbalancersconfig+ecsfsfrcdLoadBalancersConfig :: Lens' EC2SpotFleetSpotFleetRequestConfigData (Maybe EC2SpotFleetLoadBalancersConfig)+ecsfsfrcdLoadBalancersConfig = lens _eC2SpotFleetSpotFleetRequestConfigDataLoadBalancersConfig (\s a -> s { _eC2SpotFleetSpotFleetRequestConfigDataLoadBalancersConfig = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata.html#cfn-ec2-spotfleet-spotfleetrequestconfigdata-replaceunhealthyinstances ecsfsfrcdReplaceUnhealthyInstances :: Lens' EC2SpotFleetSpotFleetRequestConfigData (Maybe (Val Bool))
library-gen/Stratosphere/ResourceProperties/EC2SpotFleetSpotPlacement.hs view
@@ -15,6 +15,7 @@ EC2SpotFleetSpotPlacement { _eC2SpotFleetSpotPlacementAvailabilityZone :: Maybe (Val Text) , _eC2SpotFleetSpotPlacementGroupName :: Maybe (Val Text)+ , _eC2SpotFleetSpotPlacementTenancy :: Maybe (Val Text) } deriving (Show, Eq) instance ToJSON EC2SpotFleetSpotPlacement where@@ -23,13 +24,15 @@ catMaybes [ fmap (("AvailabilityZone",) . toJSON) _eC2SpotFleetSpotPlacementAvailabilityZone , fmap (("GroupName",) . toJSON) _eC2SpotFleetSpotPlacementGroupName+ , fmap (("Tenancy",) . toJSON) _eC2SpotFleetSpotPlacementTenancy ] instance FromJSON EC2SpotFleetSpotPlacement where parseJSON (Object obj) = EC2SpotFleetSpotPlacement <$> (obj .:? "AvailabilityZone") <*>- (obj .:? "GroupName")+ (obj .:? "GroupName") <*>+ (obj .:? "Tenancy") parseJSON _ = mempty -- | Constructor for 'EC2SpotFleetSpotPlacement' containing required fields as@@ -40,6 +43,7 @@ EC2SpotFleetSpotPlacement { _eC2SpotFleetSpotPlacementAvailabilityZone = Nothing , _eC2SpotFleetSpotPlacementGroupName = Nothing+ , _eC2SpotFleetSpotPlacementTenancy = Nothing } -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-placement.html#cfn-ec2-spotfleet-spotplacement-availabilityzone@@ -49,3 +53,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-placement.html#cfn-ec2-spotfleet-spotplacement-groupname ecsfspGroupName :: Lens' EC2SpotFleetSpotPlacement (Maybe (Val Text)) ecsfspGroupName = lens _eC2SpotFleetSpotPlacementGroupName (\s a -> s { _eC2SpotFleetSpotPlacementGroupName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-placement.html#cfn-ec2-spotfleet-spotplacement-tenancy+ecsfspTenancy :: Lens' EC2SpotFleetSpotPlacement (Maybe (Val Text))+ecsfspTenancy = lens _eC2SpotFleetSpotPlacementTenancy (\s a -> s { _eC2SpotFleetSpotPlacementTenancy = a })
+ library-gen/Stratosphere/ResourceProperties/EC2SpotFleetTargetGroup.hs view
@@ -0,0 +1,44 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-targetgroup.html++module Stratosphere.ResourceProperties.EC2SpotFleetTargetGroup where++import Stratosphere.ResourceImports+++-- | Full data type definition for EC2SpotFleetTargetGroup. See+-- 'ec2SpotFleetTargetGroup' for a more convenient constructor.+data EC2SpotFleetTargetGroup =+ EC2SpotFleetTargetGroup+ { _eC2SpotFleetTargetGroupArn :: Val Text+ } deriving (Show, Eq)++instance ToJSON EC2SpotFleetTargetGroup where+ toJSON EC2SpotFleetTargetGroup{..} =+ object $+ catMaybes+ [ (Just . ("Arn",) . toJSON) _eC2SpotFleetTargetGroupArn+ ]++instance FromJSON EC2SpotFleetTargetGroup where+ parseJSON (Object obj) =+ EC2SpotFleetTargetGroup <$>+ (obj .: "Arn")+ parseJSON _ = mempty++-- | Constructor for 'EC2SpotFleetTargetGroup' containing required fields as+-- arguments.+ec2SpotFleetTargetGroup+ :: Val Text -- ^ 'ecsftgArn'+ -> EC2SpotFleetTargetGroup+ec2SpotFleetTargetGroup arnarg =+ EC2SpotFleetTargetGroup+ { _eC2SpotFleetTargetGroupArn = arnarg+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-targetgroup.html#cfn-ec2-spotfleet-targetgroup-arn+ecsftgArn :: Lens' EC2SpotFleetTargetGroup (Val Text)+ecsftgArn = lens _eC2SpotFleetTargetGroupArn (\s a -> s { _eC2SpotFleetTargetGroupArn = a })
+ library-gen/Stratosphere/ResourceProperties/EC2SpotFleetTargetGroupsConfig.hs view
@@ -0,0 +1,44 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-targetgroupsconfig.html++module Stratosphere.ResourceProperties.EC2SpotFleetTargetGroupsConfig where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.EC2SpotFleetTargetGroup++-- | Full data type definition for EC2SpotFleetTargetGroupsConfig. See+-- 'ec2SpotFleetTargetGroupsConfig' for a more convenient constructor.+data EC2SpotFleetTargetGroupsConfig =+ EC2SpotFleetTargetGroupsConfig+ { _eC2SpotFleetTargetGroupsConfigTargetGroups :: [EC2SpotFleetTargetGroup]+ } deriving (Show, Eq)++instance ToJSON EC2SpotFleetTargetGroupsConfig where+ toJSON EC2SpotFleetTargetGroupsConfig{..} =+ object $+ catMaybes+ [ (Just . ("TargetGroups",) . toJSON) _eC2SpotFleetTargetGroupsConfigTargetGroups+ ]++instance FromJSON EC2SpotFleetTargetGroupsConfig where+ parseJSON (Object obj) =+ EC2SpotFleetTargetGroupsConfig <$>+ (obj .: "TargetGroups")+ parseJSON _ = mempty++-- | Constructor for 'EC2SpotFleetTargetGroupsConfig' containing required+-- fields as arguments.+ec2SpotFleetTargetGroupsConfig+ :: [EC2SpotFleetTargetGroup] -- ^ 'ecsftgcTargetGroups'+ -> EC2SpotFleetTargetGroupsConfig+ec2SpotFleetTargetGroupsConfig targetGroupsarg =+ EC2SpotFleetTargetGroupsConfig+ { _eC2SpotFleetTargetGroupsConfigTargetGroups = targetGroupsarg+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-targetgroupsconfig.html#cfn-ec2-spotfleet-targetgroupsconfig-targetgroups+ecsftgcTargetGroups :: Lens' EC2SpotFleetTargetGroupsConfig [EC2SpotFleetTargetGroup]+ecsftgcTargetGroups = lens _eC2SpotFleetTargetGroupsConfigTargetGroups (\s a -> s { _eC2SpotFleetTargetGroupsConfigTargetGroups = a })
library-gen/Stratosphere/ResourceProperties/ECSServiceServiceRegistry.hs view
@@ -13,7 +13,9 @@ -- 'ecsServiceServiceRegistry' for a more convenient constructor. data ECSServiceServiceRegistry = ECSServiceServiceRegistry- { _eCSServiceServiceRegistryPort :: Maybe (Val Integer)+ { _eCSServiceServiceRegistryContainerName :: Maybe (Val Text)+ , _eCSServiceServiceRegistryContainerPort :: Maybe (Val Integer)+ , _eCSServiceServiceRegistryPort :: Maybe (Val Integer) , _eCSServiceServiceRegistryRegistryArn :: Maybe (Val Text) } deriving (Show, Eq) @@ -21,13 +23,17 @@ toJSON ECSServiceServiceRegistry{..} = object $ catMaybes- [ fmap (("Port",) . toJSON . fmap Integer') _eCSServiceServiceRegistryPort+ [ fmap (("ContainerName",) . toJSON) _eCSServiceServiceRegistryContainerName+ , fmap (("ContainerPort",) . toJSON . fmap Integer') _eCSServiceServiceRegistryContainerPort+ , fmap (("Port",) . toJSON . fmap Integer') _eCSServiceServiceRegistryPort , fmap (("RegistryArn",) . toJSON) _eCSServiceServiceRegistryRegistryArn ] instance FromJSON ECSServiceServiceRegistry where parseJSON (Object obj) = ECSServiceServiceRegistry <$>+ (obj .:? "ContainerName") <*>+ fmap (fmap (fmap unInteger')) (obj .:? "ContainerPort") <*> fmap (fmap (fmap unInteger')) (obj .:? "Port") <*> (obj .:? "RegistryArn") parseJSON _ = mempty@@ -38,9 +44,19 @@ :: ECSServiceServiceRegistry ecsServiceServiceRegistry = ECSServiceServiceRegistry- { _eCSServiceServiceRegistryPort = Nothing+ { _eCSServiceServiceRegistryContainerName = Nothing+ , _eCSServiceServiceRegistryContainerPort = Nothing+ , _eCSServiceServiceRegistryPort = Nothing , _eCSServiceServiceRegistryRegistryArn = Nothing }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-serviceregistry.html#cfn-ecs-service-serviceregistry-containername+ecsssrContainerName :: Lens' ECSServiceServiceRegistry (Maybe (Val Text))+ecsssrContainerName = lens _eCSServiceServiceRegistryContainerName (\s a -> s { _eCSServiceServiceRegistryContainerName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-serviceregistry.html#cfn-ecs-service-serviceregistry-containerport+ecsssrContainerPort :: Lens' ECSServiceServiceRegistry (Maybe (Val Integer))+ecsssrContainerPort = lens _eCSServiceServiceRegistryContainerPort (\s a -> s { _eCSServiceServiceRegistryContainerPort = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-serviceregistry.html#cfn-ecs-service-serviceregistry-port ecsssrPort :: Lens' ECSServiceServiceRegistry (Maybe (Val Integer))
library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionContainerDefinition.hs view
@@ -14,6 +14,7 @@ import Stratosphere.ResourceProperties.ECSTaskDefinitionLogConfiguration import Stratosphere.ResourceProperties.ECSTaskDefinitionMountPoint import Stratosphere.ResourceProperties.ECSTaskDefinitionPortMapping+import Stratosphere.ResourceProperties.ECSTaskDefinitionRepositoryCredentials import Stratosphere.ResourceProperties.ECSTaskDefinitionUlimit import Stratosphere.ResourceProperties.ECSTaskDefinitionVolumeFrom @@ -45,6 +46,7 @@ , _eCSTaskDefinitionContainerDefinitionPortMappings :: Maybe [ECSTaskDefinitionPortMapping] , _eCSTaskDefinitionContainerDefinitionPrivileged :: Maybe (Val Bool) , _eCSTaskDefinitionContainerDefinitionReadonlyRootFilesystem :: Maybe (Val Bool)+ , _eCSTaskDefinitionContainerDefinitionRepositoryCredentials :: Maybe ECSTaskDefinitionRepositoryCredentials , _eCSTaskDefinitionContainerDefinitionUlimits :: Maybe [ECSTaskDefinitionUlimit] , _eCSTaskDefinitionContainerDefinitionUser :: Maybe (Val Text) , _eCSTaskDefinitionContainerDefinitionVolumesFrom :: Maybe [ECSTaskDefinitionVolumeFrom]@@ -79,6 +81,7 @@ , fmap (("PortMappings",) . toJSON) _eCSTaskDefinitionContainerDefinitionPortMappings , fmap (("Privileged",) . toJSON . fmap Bool') _eCSTaskDefinitionContainerDefinitionPrivileged , fmap (("ReadonlyRootFilesystem",) . toJSON . fmap Bool') _eCSTaskDefinitionContainerDefinitionReadonlyRootFilesystem+ , fmap (("RepositoryCredentials",) . toJSON) _eCSTaskDefinitionContainerDefinitionRepositoryCredentials , fmap (("Ulimits",) . toJSON) _eCSTaskDefinitionContainerDefinitionUlimits , fmap (("User",) . toJSON) _eCSTaskDefinitionContainerDefinitionUser , fmap (("VolumesFrom",) . toJSON) _eCSTaskDefinitionContainerDefinitionVolumesFrom@@ -112,6 +115,7 @@ (obj .:? "PortMappings") <*> fmap (fmap (fmap unBool')) (obj .:? "Privileged") <*> fmap (fmap (fmap unBool')) (obj .:? "ReadonlyRootFilesystem") <*>+ (obj .:? "RepositoryCredentials") <*> (obj .:? "Ulimits") <*> (obj .:? "User") <*> (obj .:? "VolumesFrom") <*>@@ -150,6 +154,7 @@ , _eCSTaskDefinitionContainerDefinitionPortMappings = Nothing , _eCSTaskDefinitionContainerDefinitionPrivileged = Nothing , _eCSTaskDefinitionContainerDefinitionReadonlyRootFilesystem = Nothing+ , _eCSTaskDefinitionContainerDefinitionRepositoryCredentials = Nothing , _eCSTaskDefinitionContainerDefinitionUlimits = Nothing , _eCSTaskDefinitionContainerDefinitionUser = Nothing , _eCSTaskDefinitionContainerDefinitionVolumesFrom = Nothing@@ -251,6 +256,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-readonlyrootfilesystem ecstdcdReadonlyRootFilesystem :: Lens' ECSTaskDefinitionContainerDefinition (Maybe (Val Bool)) ecstdcdReadonlyRootFilesystem = lens _eCSTaskDefinitionContainerDefinitionReadonlyRootFilesystem (\s a -> s { _eCSTaskDefinitionContainerDefinitionReadonlyRootFilesystem = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-repositorycredentials+ecstdcdRepositoryCredentials :: Lens' ECSTaskDefinitionContainerDefinition (Maybe ECSTaskDefinitionRepositoryCredentials)+ecstdcdRepositoryCredentials = lens _eCSTaskDefinitionContainerDefinitionRepositoryCredentials (\s a -> s { _eCSTaskDefinitionContainerDefinitionRepositoryCredentials = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-ulimits ecstdcdUlimits :: Lens' ECSTaskDefinitionContainerDefinition (Maybe [ECSTaskDefinitionUlimit])
+ library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionDockerVolumeConfiguration.hs view
@@ -0,0 +1,76 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-dockervolumeconfiguration.html++module Stratosphere.ResourceProperties.ECSTaskDefinitionDockerVolumeConfiguration where++import Stratosphere.ResourceImports+++-- | Full data type definition for ECSTaskDefinitionDockerVolumeConfiguration.+-- See 'ecsTaskDefinitionDockerVolumeConfiguration' for a more convenient+-- constructor.+data ECSTaskDefinitionDockerVolumeConfiguration =+ ECSTaskDefinitionDockerVolumeConfiguration+ { _eCSTaskDefinitionDockerVolumeConfigurationAutoprovision :: Maybe (Val Bool)+ , _eCSTaskDefinitionDockerVolumeConfigurationDriver :: Maybe (Val Text)+ , _eCSTaskDefinitionDockerVolumeConfigurationDriverOpts :: Maybe Object+ , _eCSTaskDefinitionDockerVolumeConfigurationLabels :: Maybe Object+ , _eCSTaskDefinitionDockerVolumeConfigurationScope :: Maybe (Val Text)+ } deriving (Show, Eq)++instance ToJSON ECSTaskDefinitionDockerVolumeConfiguration where+ toJSON ECSTaskDefinitionDockerVolumeConfiguration{..} =+ object $+ catMaybes+ [ fmap (("Autoprovision",) . toJSON . fmap Bool') _eCSTaskDefinitionDockerVolumeConfigurationAutoprovision+ , fmap (("Driver",) . toJSON) _eCSTaskDefinitionDockerVolumeConfigurationDriver+ , fmap (("DriverOpts",) . toJSON) _eCSTaskDefinitionDockerVolumeConfigurationDriverOpts+ , fmap (("Labels",) . toJSON) _eCSTaskDefinitionDockerVolumeConfigurationLabels+ , fmap (("Scope",) . toJSON) _eCSTaskDefinitionDockerVolumeConfigurationScope+ ]++instance FromJSON ECSTaskDefinitionDockerVolumeConfiguration where+ parseJSON (Object obj) =+ ECSTaskDefinitionDockerVolumeConfiguration <$>+ fmap (fmap (fmap unBool')) (obj .:? "Autoprovision") <*>+ (obj .:? "Driver") <*>+ (obj .:? "DriverOpts") <*>+ (obj .:? "Labels") <*>+ (obj .:? "Scope")+ parseJSON _ = mempty++-- | Constructor for 'ECSTaskDefinitionDockerVolumeConfiguration' containing+-- required fields as arguments.+ecsTaskDefinitionDockerVolumeConfiguration+ :: ECSTaskDefinitionDockerVolumeConfiguration+ecsTaskDefinitionDockerVolumeConfiguration =+ ECSTaskDefinitionDockerVolumeConfiguration+ { _eCSTaskDefinitionDockerVolumeConfigurationAutoprovision = Nothing+ , _eCSTaskDefinitionDockerVolumeConfigurationDriver = Nothing+ , _eCSTaskDefinitionDockerVolumeConfigurationDriverOpts = Nothing+ , _eCSTaskDefinitionDockerVolumeConfigurationLabels = Nothing+ , _eCSTaskDefinitionDockerVolumeConfigurationScope = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-dockervolumeconfiguration.html#cfn-ecs-taskdefinition-dockervolumeconfiguration-autoprovision+ecstddvcAutoprovision :: Lens' ECSTaskDefinitionDockerVolumeConfiguration (Maybe (Val Bool))+ecstddvcAutoprovision = lens _eCSTaskDefinitionDockerVolumeConfigurationAutoprovision (\s a -> s { _eCSTaskDefinitionDockerVolumeConfigurationAutoprovision = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-dockervolumeconfiguration.html#cfn-ecs-taskdefinition-dockervolumeconfiguration-driver+ecstddvcDriver :: Lens' ECSTaskDefinitionDockerVolumeConfiguration (Maybe (Val Text))+ecstddvcDriver = lens _eCSTaskDefinitionDockerVolumeConfigurationDriver (\s a -> s { _eCSTaskDefinitionDockerVolumeConfigurationDriver = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-dockervolumeconfiguration.html#cfn-ecs-taskdefinition-dockervolumeconfiguration-driveropts+ecstddvcDriverOpts :: Lens' ECSTaskDefinitionDockerVolumeConfiguration (Maybe Object)+ecstddvcDriverOpts = lens _eCSTaskDefinitionDockerVolumeConfigurationDriverOpts (\s a -> s { _eCSTaskDefinitionDockerVolumeConfigurationDriverOpts = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-dockervolumeconfiguration.html#cfn-ecs-taskdefinition-dockervolumeconfiguration-labels+ecstddvcLabels :: Lens' ECSTaskDefinitionDockerVolumeConfiguration (Maybe Object)+ecstddvcLabels = lens _eCSTaskDefinitionDockerVolumeConfigurationLabels (\s a -> s { _eCSTaskDefinitionDockerVolumeConfigurationLabels = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-dockervolumeconfiguration.html#cfn-ecs-taskdefinition-dockervolumeconfiguration-scope+ecstddvcScope :: Lens' ECSTaskDefinitionDockerVolumeConfiguration (Maybe (Val Text))+ecstddvcScope = lens _eCSTaskDefinitionDockerVolumeConfigurationScope (\s a -> s { _eCSTaskDefinitionDockerVolumeConfigurationScope = a })
library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionLinuxParameters.hs view
@@ -9,6 +9,7 @@ import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.ECSTaskDefinitionKernelCapabilities import Stratosphere.ResourceProperties.ECSTaskDefinitionDevice+import Stratosphere.ResourceProperties.ECSTaskDefinitionTmpfs -- | Full data type definition for ECSTaskDefinitionLinuxParameters. See -- 'ecsTaskDefinitionLinuxParameters' for a more convenient constructor.@@ -17,6 +18,8 @@ { _eCSTaskDefinitionLinuxParametersCapabilities :: Maybe ECSTaskDefinitionKernelCapabilities , _eCSTaskDefinitionLinuxParametersDevices :: Maybe [ECSTaskDefinitionDevice] , _eCSTaskDefinitionLinuxParametersInitProcessEnabled :: Maybe (Val Bool)+ , _eCSTaskDefinitionLinuxParametersSharedMemorySize :: Maybe (Val Integer)+ , _eCSTaskDefinitionLinuxParametersTmpfs :: Maybe [ECSTaskDefinitionTmpfs] } deriving (Show, Eq) instance ToJSON ECSTaskDefinitionLinuxParameters where@@ -26,6 +29,8 @@ [ fmap (("Capabilities",) . toJSON) _eCSTaskDefinitionLinuxParametersCapabilities , fmap (("Devices",) . toJSON) _eCSTaskDefinitionLinuxParametersDevices , fmap (("InitProcessEnabled",) . toJSON . fmap Bool') _eCSTaskDefinitionLinuxParametersInitProcessEnabled+ , fmap (("SharedMemorySize",) . toJSON . fmap Integer') _eCSTaskDefinitionLinuxParametersSharedMemorySize+ , fmap (("Tmpfs",) . toJSON) _eCSTaskDefinitionLinuxParametersTmpfs ] instance FromJSON ECSTaskDefinitionLinuxParameters where@@ -33,7 +38,9 @@ ECSTaskDefinitionLinuxParameters <$> (obj .:? "Capabilities") <*> (obj .:? "Devices") <*>- fmap (fmap (fmap unBool')) (obj .:? "InitProcessEnabled")+ fmap (fmap (fmap unBool')) (obj .:? "InitProcessEnabled") <*>+ fmap (fmap (fmap unInteger')) (obj .:? "SharedMemorySize") <*>+ (obj .:? "Tmpfs") parseJSON _ = mempty -- | Constructor for 'ECSTaskDefinitionLinuxParameters' containing required@@ -45,6 +52,8 @@ { _eCSTaskDefinitionLinuxParametersCapabilities = Nothing , _eCSTaskDefinitionLinuxParametersDevices = Nothing , _eCSTaskDefinitionLinuxParametersInitProcessEnabled = Nothing+ , _eCSTaskDefinitionLinuxParametersSharedMemorySize = Nothing+ , _eCSTaskDefinitionLinuxParametersTmpfs = Nothing } -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-linuxparameters.html#cfn-ecs-taskdefinition-linuxparameters-capabilities@@ -58,3 +67,11 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-linuxparameters.html#cfn-ecs-taskdefinition-linuxparameters-initprocessenabled ecstdlpInitProcessEnabled :: Lens' ECSTaskDefinitionLinuxParameters (Maybe (Val Bool)) ecstdlpInitProcessEnabled = lens _eCSTaskDefinitionLinuxParametersInitProcessEnabled (\s a -> s { _eCSTaskDefinitionLinuxParametersInitProcessEnabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-linuxparameters.html#cfn-ecs-taskdefinition-linuxparameters-sharedmemorysize+ecstdlpSharedMemorySize :: Lens' ECSTaskDefinitionLinuxParameters (Maybe (Val Integer))+ecstdlpSharedMemorySize = lens _eCSTaskDefinitionLinuxParametersSharedMemorySize (\s a -> s { _eCSTaskDefinitionLinuxParametersSharedMemorySize = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-linuxparameters.html#cfn-ecs-taskdefinition-linuxparameters-tmpfs+ecstdlpTmpfs :: Lens' ECSTaskDefinitionLinuxParameters (Maybe [ECSTaskDefinitionTmpfs])+ecstdlpTmpfs = lens _eCSTaskDefinitionLinuxParametersTmpfs (\s a -> s { _eCSTaskDefinitionLinuxParametersTmpfs = a })
+ library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionRepositoryCredentials.hs view
@@ -0,0 +1,44 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-repositorycredentials.html++module Stratosphere.ResourceProperties.ECSTaskDefinitionRepositoryCredentials where++import Stratosphere.ResourceImports+++-- | Full data type definition for ECSTaskDefinitionRepositoryCredentials. See+-- 'ecsTaskDefinitionRepositoryCredentials' for a more convenient+-- constructor.+data ECSTaskDefinitionRepositoryCredentials =+ ECSTaskDefinitionRepositoryCredentials+ { _eCSTaskDefinitionRepositoryCredentialsCredentialsParameter :: Maybe (Val Text)+ } deriving (Show, Eq)++instance ToJSON ECSTaskDefinitionRepositoryCredentials where+ toJSON ECSTaskDefinitionRepositoryCredentials{..} =+ object $+ catMaybes+ [ fmap (("CredentialsParameter",) . toJSON) _eCSTaskDefinitionRepositoryCredentialsCredentialsParameter+ ]++instance FromJSON ECSTaskDefinitionRepositoryCredentials where+ parseJSON (Object obj) =+ ECSTaskDefinitionRepositoryCredentials <$>+ (obj .:? "CredentialsParameter")+ parseJSON _ = mempty++-- | Constructor for 'ECSTaskDefinitionRepositoryCredentials' containing+-- required fields as arguments.+ecsTaskDefinitionRepositoryCredentials+ :: ECSTaskDefinitionRepositoryCredentials+ecsTaskDefinitionRepositoryCredentials =+ ECSTaskDefinitionRepositoryCredentials+ { _eCSTaskDefinitionRepositoryCredentialsCredentialsParameter = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-repositorycredentials.html#cfn-ecs-taskdefinition-repositorycredentials-credentialsparameter+ecstdrcCredentialsParameter :: Lens' ECSTaskDefinitionRepositoryCredentials (Maybe (Val Text))+ecstdrcCredentialsParameter = lens _eCSTaskDefinitionRepositoryCredentialsCredentialsParameter (\s a -> s { _eCSTaskDefinitionRepositoryCredentialsCredentialsParameter = a })
+ library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionTmpfs.hs view
@@ -0,0 +1,59 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-tmpfs.html++module Stratosphere.ResourceProperties.ECSTaskDefinitionTmpfs where++import Stratosphere.ResourceImports+++-- | Full data type definition for ECSTaskDefinitionTmpfs. See+-- 'ecsTaskDefinitionTmpfs' for a more convenient constructor.+data ECSTaskDefinitionTmpfs =+ ECSTaskDefinitionTmpfs+ { _eCSTaskDefinitionTmpfsContainerPath :: Maybe (Val Text)+ , _eCSTaskDefinitionTmpfsMountOptions :: Maybe (ValList Text)+ , _eCSTaskDefinitionTmpfsSize :: Maybe (Val Integer)+ } deriving (Show, Eq)++instance ToJSON ECSTaskDefinitionTmpfs where+ toJSON ECSTaskDefinitionTmpfs{..} =+ object $+ catMaybes+ [ fmap (("ContainerPath",) . toJSON) _eCSTaskDefinitionTmpfsContainerPath+ , fmap (("MountOptions",) . toJSON) _eCSTaskDefinitionTmpfsMountOptions+ , fmap (("Size",) . toJSON . fmap Integer') _eCSTaskDefinitionTmpfsSize+ ]++instance FromJSON ECSTaskDefinitionTmpfs where+ parseJSON (Object obj) =+ ECSTaskDefinitionTmpfs <$>+ (obj .:? "ContainerPath") <*>+ (obj .:? "MountOptions") <*>+ fmap (fmap (fmap unInteger')) (obj .:? "Size")+ parseJSON _ = mempty++-- | Constructor for 'ECSTaskDefinitionTmpfs' containing required fields as+-- arguments.+ecsTaskDefinitionTmpfs+ :: ECSTaskDefinitionTmpfs+ecsTaskDefinitionTmpfs =+ ECSTaskDefinitionTmpfs+ { _eCSTaskDefinitionTmpfsContainerPath = Nothing+ , _eCSTaskDefinitionTmpfsMountOptions = Nothing+ , _eCSTaskDefinitionTmpfsSize = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-tmpfs.html#cfn-ecs-taskdefinition-tmpfs-containerpath+ecstdtContainerPath :: Lens' ECSTaskDefinitionTmpfs (Maybe (Val Text))+ecstdtContainerPath = lens _eCSTaskDefinitionTmpfsContainerPath (\s a -> s { _eCSTaskDefinitionTmpfsContainerPath = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-tmpfs.html#cfn-ecs-taskdefinition-tmpfs-mountoptions+ecstdtMountOptions :: Lens' ECSTaskDefinitionTmpfs (Maybe (ValList Text))+ecstdtMountOptions = lens _eCSTaskDefinitionTmpfsMountOptions (\s a -> s { _eCSTaskDefinitionTmpfsMountOptions = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-tmpfs.html#cfn-ecs-taskdefinition-tmpfs-size+ecstdtSize :: Lens' ECSTaskDefinitionTmpfs (Maybe (Val Integer))+ecstdtSize = lens _eCSTaskDefinitionTmpfsSize (\s a -> s { _eCSTaskDefinitionTmpfsSize = a })
library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionVolume.hs view
@@ -7,13 +7,15 @@ module Stratosphere.ResourceProperties.ECSTaskDefinitionVolume where import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.ECSTaskDefinitionDockerVolumeConfiguration import Stratosphere.ResourceProperties.ECSTaskDefinitionHostVolumeProperties -- | Full data type definition for ECSTaskDefinitionVolume. See -- 'ecsTaskDefinitionVolume' for a more convenient constructor. data ECSTaskDefinitionVolume = ECSTaskDefinitionVolume- { _eCSTaskDefinitionVolumeHost :: Maybe ECSTaskDefinitionHostVolumeProperties+ { _eCSTaskDefinitionVolumeDockerVolumeConfiguration :: Maybe ECSTaskDefinitionDockerVolumeConfiguration+ , _eCSTaskDefinitionVolumeHost :: Maybe ECSTaskDefinitionHostVolumeProperties , _eCSTaskDefinitionVolumeName :: Maybe (Val Text) } deriving (Show, Eq) @@ -21,13 +23,15 @@ toJSON ECSTaskDefinitionVolume{..} = object $ catMaybes- [ fmap (("Host",) . toJSON) _eCSTaskDefinitionVolumeHost+ [ fmap (("DockerVolumeConfiguration",) . toJSON) _eCSTaskDefinitionVolumeDockerVolumeConfiguration+ , fmap (("Host",) . toJSON) _eCSTaskDefinitionVolumeHost , fmap (("Name",) . toJSON) _eCSTaskDefinitionVolumeName ] instance FromJSON ECSTaskDefinitionVolume where parseJSON (Object obj) = ECSTaskDefinitionVolume <$>+ (obj .:? "DockerVolumeConfiguration") <*> (obj .:? "Host") <*> (obj .:? "Name") parseJSON _ = mempty@@ -38,9 +42,14 @@ :: ECSTaskDefinitionVolume ecsTaskDefinitionVolume = ECSTaskDefinitionVolume- { _eCSTaskDefinitionVolumeHost = Nothing+ { _eCSTaskDefinitionVolumeDockerVolumeConfiguration = Nothing+ , _eCSTaskDefinitionVolumeHost = Nothing , _eCSTaskDefinitionVolumeName = Nothing }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-volumes.html#cfn-ecs-taskdefinition-volume-dockervolumeconfiguration+ecstdvDockerVolumeConfiguration :: Lens' ECSTaskDefinitionVolume (Maybe ECSTaskDefinitionDockerVolumeConfiguration)+ecstdvDockerVolumeConfiguration = lens _eCSTaskDefinitionVolumeDockerVolumeConfiguration (\s a -> s { _eCSTaskDefinitionVolumeDockerVolumeConfiguration = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-volumes.html#cfn-ecs-taskdefinition-volumes-host ecstdvHost :: Lens' ECSTaskDefinitionVolume (Maybe ECSTaskDefinitionHostVolumeProperties)
library-gen/Stratosphere/ResourceProperties/ElastiCacheReplicationGroupNodeGroupConfiguration.hs view
@@ -15,7 +15,8 @@ -- constructor. data ElastiCacheReplicationGroupNodeGroupConfiguration = ElastiCacheReplicationGroupNodeGroupConfiguration- { _elastiCacheReplicationGroupNodeGroupConfigurationPrimaryAvailabilityZone :: Maybe (Val Text)+ { _elastiCacheReplicationGroupNodeGroupConfigurationNodeGroupId :: Maybe (Val Text)+ , _elastiCacheReplicationGroupNodeGroupConfigurationPrimaryAvailabilityZone :: Maybe (Val Text) , _elastiCacheReplicationGroupNodeGroupConfigurationReplicaAvailabilityZones :: Maybe (ValList Text) , _elastiCacheReplicationGroupNodeGroupConfigurationReplicaCount :: Maybe (Val Integer) , _elastiCacheReplicationGroupNodeGroupConfigurationSlots :: Maybe (Val Text)@@ -25,7 +26,8 @@ toJSON ElastiCacheReplicationGroupNodeGroupConfiguration{..} = object $ catMaybes- [ fmap (("PrimaryAvailabilityZone",) . toJSON) _elastiCacheReplicationGroupNodeGroupConfigurationPrimaryAvailabilityZone+ [ fmap (("NodeGroupId",) . toJSON) _elastiCacheReplicationGroupNodeGroupConfigurationNodeGroupId+ , fmap (("PrimaryAvailabilityZone",) . toJSON) _elastiCacheReplicationGroupNodeGroupConfigurationPrimaryAvailabilityZone , fmap (("ReplicaAvailabilityZones",) . toJSON) _elastiCacheReplicationGroupNodeGroupConfigurationReplicaAvailabilityZones , fmap (("ReplicaCount",) . toJSON . fmap Integer') _elastiCacheReplicationGroupNodeGroupConfigurationReplicaCount , fmap (("Slots",) . toJSON) _elastiCacheReplicationGroupNodeGroupConfigurationSlots@@ -34,6 +36,7 @@ instance FromJSON ElastiCacheReplicationGroupNodeGroupConfiguration where parseJSON (Object obj) = ElastiCacheReplicationGroupNodeGroupConfiguration <$>+ (obj .:? "NodeGroupId") <*> (obj .:? "PrimaryAvailabilityZone") <*> (obj .:? "ReplicaAvailabilityZones") <*> fmap (fmap (fmap unInteger')) (obj .:? "ReplicaCount") <*>@@ -46,11 +49,16 @@ :: ElastiCacheReplicationGroupNodeGroupConfiguration elastiCacheReplicationGroupNodeGroupConfiguration = ElastiCacheReplicationGroupNodeGroupConfiguration- { _elastiCacheReplicationGroupNodeGroupConfigurationPrimaryAvailabilityZone = Nothing+ { _elastiCacheReplicationGroupNodeGroupConfigurationNodeGroupId = Nothing+ , _elastiCacheReplicationGroupNodeGroupConfigurationPrimaryAvailabilityZone = Nothing , _elastiCacheReplicationGroupNodeGroupConfigurationReplicaAvailabilityZones = Nothing , _elastiCacheReplicationGroupNodeGroupConfigurationReplicaCount = Nothing , _elastiCacheReplicationGroupNodeGroupConfigurationSlots = Nothing }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-replicationgroup-nodegroupconfiguration.html#cfn-elasticache-replicationgroup-nodegroupconfiguration-nodegroupid+ecrgngcNodeGroupId :: Lens' ElastiCacheReplicationGroupNodeGroupConfiguration (Maybe (Val Text))+ecrgngcNodeGroupId = lens _elastiCacheReplicationGroupNodeGroupConfigurationNodeGroupId (\s a -> s { _elastiCacheReplicationGroupNodeGroupConfigurationNodeGroupId = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-replicationgroup-nodegroupconfiguration.html#cfn-elasticache-replicationgroup-nodegroupconfiguration-primaryavailabilityzone ecrgngcPrimaryAvailabilityZone :: Lens' ElastiCacheReplicationGroupNodeGroupConfiguration (Maybe (Val Text))
+ library-gen/Stratosphere/ResourceProperties/EventsRuleSqsParameters.hs view
@@ -0,0 +1,44 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-sqsparameters.html++module Stratosphere.ResourceProperties.EventsRuleSqsParameters where++import Stratosphere.ResourceImports+++-- | Full data type definition for EventsRuleSqsParameters. See+-- 'eventsRuleSqsParameters' for a more convenient constructor.+data EventsRuleSqsParameters =+ EventsRuleSqsParameters+ { _eventsRuleSqsParametersMessageGroupId :: Val Text+ } deriving (Show, Eq)++instance ToJSON EventsRuleSqsParameters where+ toJSON EventsRuleSqsParameters{..} =+ object $+ catMaybes+ [ (Just . ("MessageGroupId",) . toJSON) _eventsRuleSqsParametersMessageGroupId+ ]++instance FromJSON EventsRuleSqsParameters where+ parseJSON (Object obj) =+ EventsRuleSqsParameters <$>+ (obj .: "MessageGroupId")+ parseJSON _ = mempty++-- | Constructor for 'EventsRuleSqsParameters' containing required fields as+-- arguments.+eventsRuleSqsParameters+ :: Val Text -- ^ 'erspMessageGroupId'+ -> EventsRuleSqsParameters+eventsRuleSqsParameters messageGroupIdarg =+ EventsRuleSqsParameters+ { _eventsRuleSqsParametersMessageGroupId = messageGroupIdarg+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-sqsparameters.html#cfn-events-rule-sqsparameters-messagegroupid+erspMessageGroupId :: Lens' EventsRuleSqsParameters (Val Text)+erspMessageGroupId = lens _eventsRuleSqsParametersMessageGroupId (\s a -> s { _eventsRuleSqsParametersMessageGroupId = a })
library-gen/Stratosphere/ResourceProperties/EventsRuleTarget.hs view
@@ -11,6 +11,7 @@ import Stratosphere.ResourceProperties.EventsRuleInputTransformer import Stratosphere.ResourceProperties.EventsRuleKinesisParameters import Stratosphere.ResourceProperties.EventsRuleRunCommandParameters+import Stratosphere.ResourceProperties.EventsRuleSqsParameters -- | Full data type definition for EventsRuleTarget. See 'eventsRuleTarget' -- for a more convenient constructor.@@ -25,6 +26,7 @@ , _eventsRuleTargetKinesisParameters :: Maybe EventsRuleKinesisParameters , _eventsRuleTargetRoleArn :: Maybe (Val Text) , _eventsRuleTargetRunCommandParameters :: Maybe EventsRuleRunCommandParameters+ , _eventsRuleTargetSqsParameters :: Maybe EventsRuleSqsParameters } deriving (Show, Eq) instance ToJSON EventsRuleTarget where@@ -40,6 +42,7 @@ , fmap (("KinesisParameters",) . toJSON) _eventsRuleTargetKinesisParameters , fmap (("RoleArn",) . toJSON) _eventsRuleTargetRoleArn , fmap (("RunCommandParameters",) . toJSON) _eventsRuleTargetRunCommandParameters+ , fmap (("SqsParameters",) . toJSON) _eventsRuleTargetSqsParameters ] instance FromJSON EventsRuleTarget where@@ -53,7 +56,8 @@ (obj .:? "InputTransformer") <*> (obj .:? "KinesisParameters") <*> (obj .:? "RoleArn") <*>- (obj .:? "RunCommandParameters")+ (obj .:? "RunCommandParameters") <*>+ (obj .:? "SqsParameters") parseJSON _ = mempty -- | Constructor for 'EventsRuleTarget' containing required fields as@@ -73,6 +77,7 @@ , _eventsRuleTargetKinesisParameters = Nothing , _eventsRuleTargetRoleArn = Nothing , _eventsRuleTargetRunCommandParameters = Nothing+ , _eventsRuleTargetSqsParameters = Nothing } -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-target.html#cfn-events-rule-target-arn@@ -110,3 +115,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-target.html#cfn-events-rule-target-runcommandparameters ertRunCommandParameters :: Lens' EventsRuleTarget (Maybe EventsRuleRunCommandParameters) ertRunCommandParameters = lens _eventsRuleTargetRunCommandParameters (\s a -> s { _eventsRuleTargetRunCommandParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-target.html#cfn-events-rule-target-sqsparameters+ertSqsParameters :: Lens' EventsRuleTarget (Maybe EventsRuleSqsParameters)+ertSqsParameters = lens _eventsRuleTargetSqsParameters (\s a -> s { _eventsRuleTargetSqsParameters = a })
+ library-gen/Stratosphere/ResourceProperties/IoT1ClickProjectDeviceTemplate.hs view
@@ -0,0 +1,51 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot1click-project-devicetemplate.html++module Stratosphere.ResourceProperties.IoT1ClickProjectDeviceTemplate where++import Stratosphere.ResourceImports+++-- | Full data type definition for IoT1ClickProjectDeviceTemplate. See+-- 'ioT1ClickProjectDeviceTemplate' for a more convenient constructor.+data IoT1ClickProjectDeviceTemplate =+ IoT1ClickProjectDeviceTemplate+ { _ioT1ClickProjectDeviceTemplateCallbackOverrides :: Maybe Object+ , _ioT1ClickProjectDeviceTemplateDeviceType :: Maybe (Val Text)+ } deriving (Show, Eq)++instance ToJSON IoT1ClickProjectDeviceTemplate where+ toJSON IoT1ClickProjectDeviceTemplate{..} =+ object $+ catMaybes+ [ fmap (("CallbackOverrides",) . toJSON) _ioT1ClickProjectDeviceTemplateCallbackOverrides+ , fmap (("DeviceType",) . toJSON) _ioT1ClickProjectDeviceTemplateDeviceType+ ]++instance FromJSON IoT1ClickProjectDeviceTemplate where+ parseJSON (Object obj) =+ IoT1ClickProjectDeviceTemplate <$>+ (obj .:? "CallbackOverrides") <*>+ (obj .:? "DeviceType")+ parseJSON _ = mempty++-- | Constructor for 'IoT1ClickProjectDeviceTemplate' containing required+-- fields as arguments.+ioT1ClickProjectDeviceTemplate+ :: IoT1ClickProjectDeviceTemplate+ioT1ClickProjectDeviceTemplate =+ IoT1ClickProjectDeviceTemplate+ { _ioT1ClickProjectDeviceTemplateCallbackOverrides = Nothing+ , _ioT1ClickProjectDeviceTemplateDeviceType = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot1click-project-devicetemplate.html#cfn-iot1click-project-devicetemplate-callbackoverrides+itcpdtCallbackOverrides :: Lens' IoT1ClickProjectDeviceTemplate (Maybe Object)+itcpdtCallbackOverrides = lens _ioT1ClickProjectDeviceTemplateCallbackOverrides (\s a -> s { _ioT1ClickProjectDeviceTemplateCallbackOverrides = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot1click-project-devicetemplate.html#cfn-iot1click-project-devicetemplate-devicetype+itcpdtDeviceType :: Lens' IoT1ClickProjectDeviceTemplate (Maybe (Val Text))+itcpdtDeviceType = lens _ioT1ClickProjectDeviceTemplateDeviceType (\s a -> s { _ioT1ClickProjectDeviceTemplateDeviceType = a })
+ library-gen/Stratosphere/ResourceProperties/IoT1ClickProjectPlacementTemplate.hs view
@@ -0,0 +1,51 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot1click-project-placementtemplate.html++module Stratosphere.ResourceProperties.IoT1ClickProjectPlacementTemplate where++import Stratosphere.ResourceImports+++-- | Full data type definition for IoT1ClickProjectPlacementTemplate. See+-- 'ioT1ClickProjectPlacementTemplate' for a more convenient constructor.+data IoT1ClickProjectPlacementTemplate =+ IoT1ClickProjectPlacementTemplate+ { _ioT1ClickProjectPlacementTemplateDefaultAttributes :: Maybe Object+ , _ioT1ClickProjectPlacementTemplateDeviceTemplates :: Maybe Object+ } deriving (Show, Eq)++instance ToJSON IoT1ClickProjectPlacementTemplate where+ toJSON IoT1ClickProjectPlacementTemplate{..} =+ object $+ catMaybes+ [ fmap (("DefaultAttributes",) . toJSON) _ioT1ClickProjectPlacementTemplateDefaultAttributes+ , fmap (("DeviceTemplates",) . toJSON) _ioT1ClickProjectPlacementTemplateDeviceTemplates+ ]++instance FromJSON IoT1ClickProjectPlacementTemplate where+ parseJSON (Object obj) =+ IoT1ClickProjectPlacementTemplate <$>+ (obj .:? "DefaultAttributes") <*>+ (obj .:? "DeviceTemplates")+ parseJSON _ = mempty++-- | Constructor for 'IoT1ClickProjectPlacementTemplate' containing required+-- fields as arguments.+ioT1ClickProjectPlacementTemplate+ :: IoT1ClickProjectPlacementTemplate+ioT1ClickProjectPlacementTemplate =+ IoT1ClickProjectPlacementTemplate+ { _ioT1ClickProjectPlacementTemplateDefaultAttributes = Nothing+ , _ioT1ClickProjectPlacementTemplateDeviceTemplates = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot1click-project-placementtemplate.html#cfn-iot1click-project-placementtemplate-defaultattributes+itcpptDefaultAttributes :: Lens' IoT1ClickProjectPlacementTemplate (Maybe Object)+itcpptDefaultAttributes = lens _ioT1ClickProjectPlacementTemplateDefaultAttributes (\s a -> s { _ioT1ClickProjectPlacementTemplateDefaultAttributes = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot1click-project-placementtemplate.html#cfn-iot1click-project-placementtemplate-devicetemplates+itcpptDeviceTemplates :: Lens' IoT1ClickProjectPlacementTemplate (Maybe Object)+itcpptDeviceTemplates = lens _ioT1ClickProjectPlacementTemplateDeviceTemplates (\s a -> s { _ioT1ClickProjectPlacementTemplateDeviceTemplates = a })
+ library-gen/Stratosphere/ResourceProperties/RDSDBClusterScalingConfiguration.hs view
@@ -0,0 +1,67 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbcluster-scalingconfiguration.html++module Stratosphere.ResourceProperties.RDSDBClusterScalingConfiguration where++import Stratosphere.ResourceImports+++-- | Full data type definition for RDSDBClusterScalingConfiguration. See+-- 'rdsdbClusterScalingConfiguration' for a more convenient constructor.+data RDSDBClusterScalingConfiguration =+ RDSDBClusterScalingConfiguration+ { _rDSDBClusterScalingConfigurationAutoPause :: Maybe (Val Bool)+ , _rDSDBClusterScalingConfigurationMaxCapacity :: Maybe (Val Integer)+ , _rDSDBClusterScalingConfigurationMinCapacity :: Maybe (Val Integer)+ , _rDSDBClusterScalingConfigurationSecondsBeforeAutoPause :: Maybe (Val Integer)+ } deriving (Show, Eq)++instance ToJSON RDSDBClusterScalingConfiguration where+ toJSON RDSDBClusterScalingConfiguration{..} =+ object $+ catMaybes+ [ fmap (("AutoPause",) . toJSON . fmap Bool') _rDSDBClusterScalingConfigurationAutoPause+ , fmap (("MaxCapacity",) . toJSON . fmap Integer') _rDSDBClusterScalingConfigurationMaxCapacity+ , fmap (("MinCapacity",) . toJSON . fmap Integer') _rDSDBClusterScalingConfigurationMinCapacity+ , fmap (("SecondsBeforeAutoPause",) . toJSON . fmap Integer') _rDSDBClusterScalingConfigurationSecondsBeforeAutoPause+ ]++instance FromJSON RDSDBClusterScalingConfiguration where+ parseJSON (Object obj) =+ RDSDBClusterScalingConfiguration <$>+ fmap (fmap (fmap unBool')) (obj .:? "AutoPause") <*>+ fmap (fmap (fmap unInteger')) (obj .:? "MaxCapacity") <*>+ fmap (fmap (fmap unInteger')) (obj .:? "MinCapacity") <*>+ fmap (fmap (fmap unInteger')) (obj .:? "SecondsBeforeAutoPause")+ parseJSON _ = mempty++-- | Constructor for 'RDSDBClusterScalingConfiguration' containing required+-- fields as arguments.+rdsdbClusterScalingConfiguration+ :: RDSDBClusterScalingConfiguration+rdsdbClusterScalingConfiguration =+ RDSDBClusterScalingConfiguration+ { _rDSDBClusterScalingConfigurationAutoPause = Nothing+ , _rDSDBClusterScalingConfigurationMaxCapacity = Nothing+ , _rDSDBClusterScalingConfigurationMinCapacity = Nothing+ , _rDSDBClusterScalingConfigurationSecondsBeforeAutoPause = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbcluster-scalingconfiguration.html#cfn-rds-dbcluster-scalingconfiguration-autopause+rdsdbcscAutoPause :: Lens' RDSDBClusterScalingConfiguration (Maybe (Val Bool))+rdsdbcscAutoPause = lens _rDSDBClusterScalingConfigurationAutoPause (\s a -> s { _rDSDBClusterScalingConfigurationAutoPause = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbcluster-scalingconfiguration.html#cfn-rds-dbcluster-scalingconfiguration-maxcapacity+rdsdbcscMaxCapacity :: Lens' RDSDBClusterScalingConfiguration (Maybe (Val Integer))+rdsdbcscMaxCapacity = lens _rDSDBClusterScalingConfigurationMaxCapacity (\s a -> s { _rDSDBClusterScalingConfigurationMaxCapacity = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbcluster-scalingconfiguration.html#cfn-rds-dbcluster-scalingconfiguration-mincapacity+rdsdbcscMinCapacity :: Lens' RDSDBClusterScalingConfiguration (Maybe (Val Integer))+rdsdbcscMinCapacity = lens _rDSDBClusterScalingConfigurationMinCapacity (\s a -> s { _rDSDBClusterScalingConfigurationMinCapacity = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbcluster-scalingconfiguration.html#cfn-rds-dbcluster-scalingconfiguration-secondsbeforeautopause+rdsdbcscSecondsBeforeAutoPause :: Lens' RDSDBClusterScalingConfiguration (Maybe (Val Integer))+rdsdbcscSecondsBeforeAutoPause = lens _rDSDBClusterScalingConfigurationSecondsBeforeAutoPause (\s a -> s { _rDSDBClusterScalingConfigurationSecondsBeforeAutoPause = a })
library-gen/Stratosphere/ResourceProperties/RDSOptionGroupOptionConfiguration.hs view
@@ -15,7 +15,7 @@ RDSOptionGroupOptionConfiguration { _rDSOptionGroupOptionConfigurationDBSecurityGroupMemberships :: Maybe (ValList Text) , _rDSOptionGroupOptionConfigurationOptionName :: Val Text- , _rDSOptionGroupOptionConfigurationOptionSettings :: Maybe RDSOptionGroupOptionSetting+ , _rDSOptionGroupOptionConfigurationOptionSettings :: Maybe [RDSOptionGroupOptionSetting] , _rDSOptionGroupOptionConfigurationOptionVersion :: Maybe (Val Text) , _rDSOptionGroupOptionConfigurationPort :: Maybe (Val Integer) , _rDSOptionGroupOptionConfigurationVpcSecurityGroupMemberships :: Maybe (ValList Text)@@ -68,7 +68,7 @@ rdsogocOptionName = lens _rDSOptionGroupOptionConfigurationOptionName (\s a -> s { _rDSOptionGroupOptionConfigurationOptionName = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-optiongroup-optionconfigurations.html#cfn-rds-optiongroup-optionconfigurations-optionsettings-rdsogocOptionSettings :: Lens' RDSOptionGroupOptionConfiguration (Maybe RDSOptionGroupOptionSetting)+rdsogocOptionSettings :: Lens' RDSOptionGroupOptionConfiguration (Maybe [RDSOptionGroupOptionSetting]) rdsogocOptionSettings = lens _rDSOptionGroupOptionConfigurationOptionSettings (\s a -> s { _rDSOptionGroupOptionConfigurationOptionSettings = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-optiongroup-optionconfigurations.html#cfn-rds-optiongroup-optionconfiguration-optionversion
library-gen/Stratosphere/Resources.hs view
@@ -233,6 +233,9 @@ import Stratosphere.Resources.InspectorAssessmentTarget as X import Stratosphere.Resources.InspectorAssessmentTemplate as X import Stratosphere.Resources.InspectorResourceGroup as X+import Stratosphere.Resources.IoT1ClickDevice as X+import Stratosphere.Resources.IoT1ClickPlacement as X+import Stratosphere.Resources.IoT1ClickProject as X import Stratosphere.Resources.IoTCertificate as X import Stratosphere.Resources.IoTPolicy as X import Stratosphere.Resources.IoTPolicyPrincipalAttachment as X@@ -350,6 +353,9 @@ import Stratosphere.ResourceProperties.AmazonMQBrokerMaintenanceWindow as X import Stratosphere.ResourceProperties.AmazonMQBrokerUser as X import Stratosphere.ResourceProperties.ApiGatewayApiKeyStageKey as X+import Stratosphere.ResourceProperties.ApiGatewayDeploymentAccessLogSetting as X+import Stratosphere.ResourceProperties.ApiGatewayDeploymentCanarySetting as X+import Stratosphere.ResourceProperties.ApiGatewayDeploymentDeploymentCanarySettings as X import Stratosphere.ResourceProperties.ApiGatewayDeploymentMethodSetting as X import Stratosphere.ResourceProperties.ApiGatewayDeploymentStageDescription as X import Stratosphere.ResourceProperties.ApiGatewayDocumentationPartLocation as X@@ -359,6 +365,8 @@ import Stratosphere.ResourceProperties.ApiGatewayMethodMethodResponse as X import Stratosphere.ResourceProperties.ApiGatewayRestApiEndpointConfiguration as X import Stratosphere.ResourceProperties.ApiGatewayRestApiS3Location as X+import Stratosphere.ResourceProperties.ApiGatewayStageAccessLogSetting as X+import Stratosphere.ResourceProperties.ApiGatewayStageCanarySetting as X import Stratosphere.ResourceProperties.ApiGatewayStageMethodSetting as X import Stratosphere.ResourceProperties.ApiGatewayUsagePlanApiStage as X import Stratosphere.ResourceProperties.ApiGatewayUsagePlanQuotaSettings as X@@ -378,6 +386,7 @@ import Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyStepAdjustment as X import Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyStepScalingPolicyConfiguration as X import Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration as X+import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupLaunchTemplateSpecification as X import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupLifecycleHookSpecification as X import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupMetricsCollection as X import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupNotificationConfiguration as X@@ -439,10 +448,13 @@ import Stratosphere.ResourceProperties.CloudTrailTrailEventSelector as X import Stratosphere.ResourceProperties.CloudWatchAlarmDimension as X import Stratosphere.ResourceProperties.CodeBuildProjectArtifacts as X+import Stratosphere.ResourceProperties.CodeBuildProjectCloudWatchLogsConfig as X import Stratosphere.ResourceProperties.CodeBuildProjectEnvironment as X import Stratosphere.ResourceProperties.CodeBuildProjectEnvironmentVariable as X+import Stratosphere.ResourceProperties.CodeBuildProjectLogsConfig as X import Stratosphere.ResourceProperties.CodeBuildProjectProjectCache as X import Stratosphere.ResourceProperties.CodeBuildProjectProjectTriggers as X+import Stratosphere.ResourceProperties.CodeBuildProjectS3LogsConfig as X import Stratosphere.ResourceProperties.CodeBuildProjectSource as X import Stratosphere.ResourceProperties.CodeBuildProjectSourceAuth as X import Stratosphere.ResourceProperties.CodeBuildProjectVpcConfig as X@@ -454,9 +466,13 @@ import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupDeployment as X import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupDeploymentStyle as X import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupEC2TagFilter as X+import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupEC2TagSet as X+import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupEC2TagSetListObject as X import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupELBInfo as X import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupGitHubLocation as X import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupLoadBalancerInfo as X+import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupOnPremisesTagSet as X+import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupOnPremisesTagSetListObject as X import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupRevisionLocation as X import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupS3Location as X import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupTagFilter as X@@ -556,17 +572,25 @@ import Stratosphere.ResourceProperties.EC2SecurityGroupEgressProperty as X import Stratosphere.ResourceProperties.EC2SecurityGroupIngressProperty as X import Stratosphere.ResourceProperties.EC2SpotFleetBlockDeviceMapping as X+import Stratosphere.ResourceProperties.EC2SpotFleetClassicLoadBalancer as X+import Stratosphere.ResourceProperties.EC2SpotFleetClassicLoadBalancersConfig as X import Stratosphere.ResourceProperties.EC2SpotFleetEbsBlockDevice as X+import Stratosphere.ResourceProperties.EC2SpotFleetFleetLaunchTemplateSpecification as X import Stratosphere.ResourceProperties.EC2SpotFleetGroupIdentifier as X import Stratosphere.ResourceProperties.EC2SpotFleetIamInstanceProfileSpecification as X import Stratosphere.ResourceProperties.EC2SpotFleetInstanceIpv6Address as X import Stratosphere.ResourceProperties.EC2SpotFleetInstanceNetworkInterfaceSpecification as X+import Stratosphere.ResourceProperties.EC2SpotFleetLaunchTemplateConfig as X+import Stratosphere.ResourceProperties.EC2SpotFleetLaunchTemplateOverrides as X+import Stratosphere.ResourceProperties.EC2SpotFleetLoadBalancersConfig as X import Stratosphere.ResourceProperties.EC2SpotFleetPrivateIpAddressSpecification as X import Stratosphere.ResourceProperties.EC2SpotFleetSpotFleetLaunchSpecification as X import Stratosphere.ResourceProperties.EC2SpotFleetSpotFleetMonitoring as X import Stratosphere.ResourceProperties.EC2SpotFleetSpotFleetRequestConfigData as X import Stratosphere.ResourceProperties.EC2SpotFleetSpotFleetTagSpecification as X import Stratosphere.ResourceProperties.EC2SpotFleetSpotPlacement as X+import Stratosphere.ResourceProperties.EC2SpotFleetTargetGroup as X+import Stratosphere.ResourceProperties.EC2SpotFleetTargetGroupsConfig as X import Stratosphere.ResourceProperties.EC2VPNConnectionVpnTunnelOptionsSpecification as X import Stratosphere.ResourceProperties.ECRRepositoryLifecyclePolicy as X import Stratosphere.ResourceProperties.ECSServiceAwsVpcConfiguration as X@@ -578,6 +602,7 @@ import Stratosphere.ResourceProperties.ECSServiceServiceRegistry as X import Stratosphere.ResourceProperties.ECSTaskDefinitionContainerDefinition as X import Stratosphere.ResourceProperties.ECSTaskDefinitionDevice as X+import Stratosphere.ResourceProperties.ECSTaskDefinitionDockerVolumeConfiguration as X import Stratosphere.ResourceProperties.ECSTaskDefinitionHealthCheck as X import Stratosphere.ResourceProperties.ECSTaskDefinitionHostEntry as X import Stratosphere.ResourceProperties.ECSTaskDefinitionHostVolumeProperties as X@@ -587,7 +612,9 @@ import Stratosphere.ResourceProperties.ECSTaskDefinitionLogConfiguration as X import Stratosphere.ResourceProperties.ECSTaskDefinitionMountPoint as X import Stratosphere.ResourceProperties.ECSTaskDefinitionPortMapping as X+import Stratosphere.ResourceProperties.ECSTaskDefinitionRepositoryCredentials as X import Stratosphere.ResourceProperties.ECSTaskDefinitionTaskDefinitionPlacementConstraint as X+import Stratosphere.ResourceProperties.ECSTaskDefinitionTmpfs as X import Stratosphere.ResourceProperties.ECSTaskDefinitionUlimit as X import Stratosphere.ResourceProperties.ECSTaskDefinitionVolume as X import Stratosphere.ResourceProperties.ECSTaskDefinitionVolumeFrom as X@@ -675,6 +702,7 @@ import Stratosphere.ResourceProperties.EventsRuleKinesisParameters as X import Stratosphere.ResourceProperties.EventsRuleRunCommandParameters as X import Stratosphere.ResourceProperties.EventsRuleRunCommandTarget as X+import Stratosphere.ResourceProperties.EventsRuleSqsParameters as X import Stratosphere.ResourceProperties.EventsRuleTarget as X import Stratosphere.ResourceProperties.GameLiftAliasRoutingStrategy as X import Stratosphere.ResourceProperties.GameLiftBuildS3Location as X@@ -714,6 +742,8 @@ import Stratosphere.ResourceProperties.IAMRolePolicy as X import Stratosphere.ResourceProperties.IAMUserLoginProfile as X import Stratosphere.ResourceProperties.IAMUserPolicy as X+import Stratosphere.ResourceProperties.IoT1ClickProjectDeviceTemplate as X+import Stratosphere.ResourceProperties.IoT1ClickProjectPlacementTemplate as X import Stratosphere.ResourceProperties.IoTThingAttributePayload as X import Stratosphere.ResourceProperties.IoTTopicRuleAction as X import Stratosphere.ResourceProperties.IoTTopicRuleCloudwatchAlarmAction as X@@ -799,6 +829,7 @@ import Stratosphere.ResourceProperties.OpsWorksStackRdsDbInstance as X import Stratosphere.ResourceProperties.OpsWorksStackSource as X import Stratosphere.ResourceProperties.OpsWorksStackStackConfigurationManager as X+import Stratosphere.ResourceProperties.RDSDBClusterScalingConfiguration as X import Stratosphere.ResourceProperties.RDSDBSecurityGroupIngressProperty as X import Stratosphere.ResourceProperties.RDSOptionGroupOptionConfiguration as X import Stratosphere.ResourceProperties.RDSOptionGroupOptionSetting as X@@ -1121,6 +1152,9 @@ | InspectorAssessmentTargetProperties InspectorAssessmentTarget | InspectorAssessmentTemplateProperties InspectorAssessmentTemplate | InspectorResourceGroupProperties InspectorResourceGroup+ | IoT1ClickDeviceProperties IoT1ClickDevice+ | IoT1ClickPlacementProperties IoT1ClickPlacement+ | IoT1ClickProjectProperties IoT1ClickProject | IoTCertificateProperties IoTCertificate | IoTPolicyProperties IoTPolicy | IoTPolicyPrincipalAttachmentProperties IoTPolicyPrincipalAttachment@@ -1660,6 +1694,12 @@ [ "Type" .= ("AWS::Inspector::AssessmentTemplate" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (InspectorResourceGroupProperties x) = [ "Type" .= ("AWS::Inspector::ResourceGroup" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (IoT1ClickDeviceProperties x) =+ [ "Type" .= ("AWS::IoT1Click::Device" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (IoT1ClickPlacementProperties x) =+ [ "Type" .= ("AWS::IoT1Click::Placement" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (IoT1ClickProjectProperties x) =+ [ "Type" .= ("AWS::IoT1Click::Project" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (IoTCertificateProperties x) = [ "Type" .= ("AWS::IoT::Certificate" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (IoTPolicyProperties x) =@@ -2076,6 +2116,9 @@ "AWS::Inspector::AssessmentTarget" -> InspectorAssessmentTargetProperties <$> (o .: "Properties") "AWS::Inspector::AssessmentTemplate" -> InspectorAssessmentTemplateProperties <$> (o .: "Properties") "AWS::Inspector::ResourceGroup" -> InspectorResourceGroupProperties <$> (o .: "Properties")+ "AWS::IoT1Click::Device" -> IoT1ClickDeviceProperties <$> (o .: "Properties")+ "AWS::IoT1Click::Placement" -> IoT1ClickPlacementProperties <$> (o .: "Properties")+ "AWS::IoT1Click::Project" -> IoT1ClickProjectProperties <$> (o .: "Properties") "AWS::IoT::Certificate" -> IoTCertificateProperties <$> (o .: "Properties") "AWS::IoT::Policy" -> IoTPolicyProperties <$> (o .: "Properties") "AWS::IoT::PolicyPrincipalAttachment" -> IoTPolicyPrincipalAttachmentProperties <$> (o .: "Properties")
library-gen/Stratosphere/Resources/ApiGatewayDeployment.hs view
@@ -7,13 +7,15 @@ module Stratosphere.Resources.ApiGatewayDeployment where import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.ApiGatewayDeploymentDeploymentCanarySettings import Stratosphere.ResourceProperties.ApiGatewayDeploymentStageDescription -- | Full data type definition for ApiGatewayDeployment. See -- 'apiGatewayDeployment' for a more convenient constructor. data ApiGatewayDeployment = ApiGatewayDeployment- { _apiGatewayDeploymentDescription :: Maybe (Val Text)+ { _apiGatewayDeploymentDeploymentCanarySettings :: Maybe ApiGatewayDeploymentDeploymentCanarySettings+ , _apiGatewayDeploymentDescription :: Maybe (Val Text) , _apiGatewayDeploymentRestApiId :: Val Text , _apiGatewayDeploymentStageDescription :: Maybe ApiGatewayDeploymentStageDescription , _apiGatewayDeploymentStageName :: Maybe (Val Text)@@ -23,7 +25,8 @@ toJSON ApiGatewayDeployment{..} = object $ catMaybes- [ fmap (("Description",) . toJSON) _apiGatewayDeploymentDescription+ [ fmap (("DeploymentCanarySettings",) . toJSON) _apiGatewayDeploymentDeploymentCanarySettings+ , fmap (("Description",) . toJSON) _apiGatewayDeploymentDescription , (Just . ("RestApiId",) . toJSON) _apiGatewayDeploymentRestApiId , fmap (("StageDescription",) . toJSON) _apiGatewayDeploymentStageDescription , fmap (("StageName",) . toJSON) _apiGatewayDeploymentStageName@@ -32,6 +35,7 @@ instance FromJSON ApiGatewayDeployment where parseJSON (Object obj) = ApiGatewayDeployment <$>+ (obj .:? "DeploymentCanarySettings") <*> (obj .:? "Description") <*> (obj .: "RestApiId") <*> (obj .:? "StageDescription") <*>@@ -45,11 +49,16 @@ -> ApiGatewayDeployment apiGatewayDeployment restApiIdarg = ApiGatewayDeployment- { _apiGatewayDeploymentDescription = Nothing+ { _apiGatewayDeploymentDeploymentCanarySettings = Nothing+ , _apiGatewayDeploymentDescription = Nothing , _apiGatewayDeploymentRestApiId = restApiIdarg , _apiGatewayDeploymentStageDescription = Nothing , _apiGatewayDeploymentStageName = Nothing }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-deployment.html#cfn-apigateway-deployment-deploymentcanarysettings+agdDeploymentCanarySettings :: Lens' ApiGatewayDeployment (Maybe ApiGatewayDeploymentDeploymentCanarySettings)+agdDeploymentCanarySettings = lens _apiGatewayDeploymentDeploymentCanarySettings (\s a -> s { _apiGatewayDeploymentDeploymentCanarySettings = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-deployment.html#cfn-apigateway-deployment-description agdDescription :: Lens' ApiGatewayDeployment (Maybe (Val Text))
library-gen/Stratosphere/Resources/ApiGatewayMethod.hs view
@@ -16,6 +16,7 @@ data ApiGatewayMethod = ApiGatewayMethod { _apiGatewayMethodApiKeyRequired :: Maybe (Val Bool)+ , _apiGatewayMethodAuthorizationScopes :: Maybe (ValList Text) , _apiGatewayMethodAuthorizationType :: Maybe (Val AuthorizationType) , _apiGatewayMethodAuthorizerId :: Maybe (Val Text) , _apiGatewayMethodHttpMethod :: Val HttpMethod@@ -34,6 +35,7 @@ object $ catMaybes [ fmap (("ApiKeyRequired",) . toJSON . fmap Bool') _apiGatewayMethodApiKeyRequired+ , fmap (("AuthorizationScopes",) . toJSON) _apiGatewayMethodAuthorizationScopes , fmap (("AuthorizationType",) . toJSON) _apiGatewayMethodAuthorizationType , fmap (("AuthorizerId",) . toJSON) _apiGatewayMethodAuthorizerId , (Just . ("HttpMethod",) . toJSON) _apiGatewayMethodHttpMethod@@ -51,6 +53,7 @@ parseJSON (Object obj) = ApiGatewayMethod <$> fmap (fmap (fmap unBool')) (obj .:? "ApiKeyRequired") <*>+ (obj .:? "AuthorizationScopes") <*> (obj .:? "AuthorizationType") <*> (obj .:? "AuthorizerId") <*> (obj .: "HttpMethod") <*>@@ -74,6 +77,7 @@ apiGatewayMethod httpMethodarg resourceIdarg restApiIdarg = ApiGatewayMethod { _apiGatewayMethodApiKeyRequired = Nothing+ , _apiGatewayMethodAuthorizationScopes = Nothing , _apiGatewayMethodAuthorizationType = Nothing , _apiGatewayMethodAuthorizerId = Nothing , _apiGatewayMethodHttpMethod = httpMethodarg@@ -90,6 +94,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-method.html#cfn-apigateway-method-apikeyrequired agmeApiKeyRequired :: Lens' ApiGatewayMethod (Maybe (Val Bool)) agmeApiKeyRequired = lens _apiGatewayMethodApiKeyRequired (\s a -> s { _apiGatewayMethodApiKeyRequired = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-method.html#cfn-apigateway-method-authorizationscopes+agmeAuthorizationScopes :: Lens' ApiGatewayMethod (Maybe (ValList Text))+agmeAuthorizationScopes = lens _apiGatewayMethodAuthorizationScopes (\s a -> s { _apiGatewayMethodAuthorizationScopes = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-method.html#cfn-apigateway-method-authorizationtype agmeAuthorizationType :: Lens' ApiGatewayMethod (Maybe (Val AuthorizationType))
library-gen/Stratosphere/Resources/ApiGatewayStage.hs view
@@ -7,14 +7,18 @@ module Stratosphere.Resources.ApiGatewayStage where import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.ApiGatewayStageAccessLogSetting+import Stratosphere.ResourceProperties.ApiGatewayStageCanarySetting import Stratosphere.ResourceProperties.ApiGatewayStageMethodSetting -- | Full data type definition for ApiGatewayStage. See 'apiGatewayStage' for -- a more convenient constructor. data ApiGatewayStage = ApiGatewayStage- { _apiGatewayStageCacheClusterEnabled :: Maybe (Val Bool)+ { _apiGatewayStageAccessLogSetting :: Maybe ApiGatewayStageAccessLogSetting+ , _apiGatewayStageCacheClusterEnabled :: Maybe (Val Bool) , _apiGatewayStageCacheClusterSize :: Maybe (Val Text)+ , _apiGatewayStageCanarySetting :: Maybe ApiGatewayStageCanarySetting , _apiGatewayStageClientCertificateId :: Maybe (Val Text) , _apiGatewayStageDeploymentId :: Maybe (Val Text) , _apiGatewayStageDescription :: Maybe (Val Text)@@ -29,8 +33,10 @@ toJSON ApiGatewayStage{..} = object $ catMaybes- [ fmap (("CacheClusterEnabled",) . toJSON . fmap Bool') _apiGatewayStageCacheClusterEnabled+ [ fmap (("AccessLogSetting",) . toJSON) _apiGatewayStageAccessLogSetting+ , fmap (("CacheClusterEnabled",) . toJSON . fmap Bool') _apiGatewayStageCacheClusterEnabled , fmap (("CacheClusterSize",) . toJSON) _apiGatewayStageCacheClusterSize+ , fmap (("CanarySetting",) . toJSON) _apiGatewayStageCanarySetting , fmap (("ClientCertificateId",) . toJSON) _apiGatewayStageClientCertificateId , fmap (("DeploymentId",) . toJSON) _apiGatewayStageDeploymentId , fmap (("Description",) . toJSON) _apiGatewayStageDescription@@ -44,8 +50,10 @@ instance FromJSON ApiGatewayStage where parseJSON (Object obj) = ApiGatewayStage <$>+ (obj .:? "AccessLogSetting") <*> fmap (fmap (fmap unBool')) (obj .:? "CacheClusterEnabled") <*> (obj .:? "CacheClusterSize") <*>+ (obj .:? "CanarySetting") <*> (obj .:? "ClientCertificateId") <*> (obj .:? "DeploymentId") <*> (obj .:? "Description") <*>@@ -63,8 +71,10 @@ -> ApiGatewayStage apiGatewayStage restApiIdarg = ApiGatewayStage- { _apiGatewayStageCacheClusterEnabled = Nothing+ { _apiGatewayStageAccessLogSetting = Nothing+ , _apiGatewayStageCacheClusterEnabled = Nothing , _apiGatewayStageCacheClusterSize = Nothing+ , _apiGatewayStageCanarySetting = Nothing , _apiGatewayStageClientCertificateId = Nothing , _apiGatewayStageDeploymentId = Nothing , _apiGatewayStageDescription = Nothing@@ -75,6 +85,10 @@ , _apiGatewayStageVariables = Nothing } +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-stage.html#cfn-apigateway-stage-accesslogsetting+agsAccessLogSetting :: Lens' ApiGatewayStage (Maybe ApiGatewayStageAccessLogSetting)+agsAccessLogSetting = lens _apiGatewayStageAccessLogSetting (\s a -> s { _apiGatewayStageAccessLogSetting = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-stage.html#cfn-apigateway-stage-cacheclusterenabled agsCacheClusterEnabled :: Lens' ApiGatewayStage (Maybe (Val Bool)) agsCacheClusterEnabled = lens _apiGatewayStageCacheClusterEnabled (\s a -> s { _apiGatewayStageCacheClusterEnabled = a })@@ -82,6 +96,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-stage.html#cfn-apigateway-stage-cacheclustersize agsCacheClusterSize :: Lens' ApiGatewayStage (Maybe (Val Text)) agsCacheClusterSize = lens _apiGatewayStageCacheClusterSize (\s a -> s { _apiGatewayStageCacheClusterSize = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-stage.html#cfn-apigateway-stage-canarysetting+agsCanarySetting :: Lens' ApiGatewayStage (Maybe ApiGatewayStageCanarySetting)+agsCanarySetting = lens _apiGatewayStageCanarySetting (\s a -> s { _apiGatewayStageCanarySetting = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-stage.html#cfn-apigateway-stage-clientcertificateid agsClientCertificateId :: Lens' ApiGatewayStage (Maybe (Val Text))
library-gen/Stratosphere/Resources/AutoScalingAutoScalingGroup.hs view
@@ -7,6 +7,7 @@ module Stratosphere.Resources.AutoScalingAutoScalingGroup where import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupLaunchTemplateSpecification import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupLifecycleHookSpecification import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupMetricsCollection import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupNotificationConfiguration@@ -24,6 +25,7 @@ , _autoScalingAutoScalingGroupHealthCheckType :: Maybe (Val Text) , _autoScalingAutoScalingGroupInstanceId :: Maybe (Val Text) , _autoScalingAutoScalingGroupLaunchConfigurationName :: Maybe (Val Text)+ , _autoScalingAutoScalingGroupLaunchTemplate :: Maybe AutoScalingAutoScalingGroupLaunchTemplateSpecification , _autoScalingAutoScalingGroupLifecycleHookSpecificationList :: Maybe [AutoScalingAutoScalingGroupLifecycleHookSpecification] , _autoScalingAutoScalingGroupLoadBalancerNames :: Maybe (ValList Text) , _autoScalingAutoScalingGroupMaxSize :: Val Text@@ -50,6 +52,7 @@ , fmap (("HealthCheckType",) . toJSON) _autoScalingAutoScalingGroupHealthCheckType , fmap (("InstanceId",) . toJSON) _autoScalingAutoScalingGroupInstanceId , fmap (("LaunchConfigurationName",) . toJSON) _autoScalingAutoScalingGroupLaunchConfigurationName+ , fmap (("LaunchTemplate",) . toJSON) _autoScalingAutoScalingGroupLaunchTemplate , fmap (("LifecycleHookSpecificationList",) . toJSON) _autoScalingAutoScalingGroupLifecycleHookSpecificationList , fmap (("LoadBalancerNames",) . toJSON) _autoScalingAutoScalingGroupLoadBalancerNames , (Just . ("MaxSize",) . toJSON) _autoScalingAutoScalingGroupMaxSize@@ -75,6 +78,7 @@ (obj .:? "HealthCheckType") <*> (obj .:? "InstanceId") <*> (obj .:? "LaunchConfigurationName") <*>+ (obj .:? "LaunchTemplate") <*> (obj .:? "LifecycleHookSpecificationList") <*> (obj .:? "LoadBalancerNames") <*> (obj .: "MaxSize") <*>@@ -105,6 +109,7 @@ , _autoScalingAutoScalingGroupHealthCheckType = Nothing , _autoScalingAutoScalingGroupInstanceId = Nothing , _autoScalingAutoScalingGroupLaunchConfigurationName = Nothing+ , _autoScalingAutoScalingGroupLaunchTemplate = Nothing , _autoScalingAutoScalingGroupLifecycleHookSpecificationList = Nothing , _autoScalingAutoScalingGroupLoadBalancerNames = Nothing , _autoScalingAutoScalingGroupMaxSize = maxSizearg@@ -150,6 +155,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-launchconfigurationname asasgLaunchConfigurationName :: Lens' AutoScalingAutoScalingGroup (Maybe (Val Text)) asasgLaunchConfigurationName = lens _autoScalingAutoScalingGroupLaunchConfigurationName (\s a -> s { _autoScalingAutoScalingGroupLaunchConfigurationName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-launchtemplate+asasgLaunchTemplate :: Lens' AutoScalingAutoScalingGroup (Maybe AutoScalingAutoScalingGroupLaunchTemplateSpecification)+asasgLaunchTemplate = lens _autoScalingAutoScalingGroupLaunchTemplate (\s a -> s { _autoScalingAutoScalingGroupLaunchTemplate = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-autoscaling-autoscalinggroup-lifecyclehookspecificationlist asasgLifecycleHookSpecificationList :: Lens' AutoScalingAutoScalingGroup (Maybe [AutoScalingAutoScalingGroupLifecycleHookSpecification])
library-gen/Stratosphere/Resources/CodeBuildProject.hs view
@@ -10,6 +10,7 @@ import Stratosphere.ResourceProperties.CodeBuildProjectArtifacts import Stratosphere.ResourceProperties.CodeBuildProjectProjectCache import Stratosphere.ResourceProperties.CodeBuildProjectEnvironment+import Stratosphere.ResourceProperties.CodeBuildProjectLogsConfig import Stratosphere.ResourceProperties.CodeBuildProjectSource import Stratosphere.ResourceProperties.Tag import Stratosphere.ResourceProperties.CodeBuildProjectProjectTriggers@@ -25,7 +26,10 @@ , _codeBuildProjectDescription :: Maybe (Val Text) , _codeBuildProjectEncryptionKey :: Maybe (Val Text) , _codeBuildProjectEnvironment :: CodeBuildProjectEnvironment+ , _codeBuildProjectLogsConfig :: Maybe CodeBuildProjectLogsConfig , _codeBuildProjectName :: Maybe (Val Text)+ , _codeBuildProjectSecondaryArtifacts :: Maybe [CodeBuildProjectArtifacts]+ , _codeBuildProjectSecondarySources :: Maybe [CodeBuildProjectSource] , _codeBuildProjectServiceRole :: Val Text , _codeBuildProjectSource :: CodeBuildProjectSource , _codeBuildProjectTags :: Maybe [Tag]@@ -44,7 +48,10 @@ , fmap (("Description",) . toJSON) _codeBuildProjectDescription , fmap (("EncryptionKey",) . toJSON) _codeBuildProjectEncryptionKey , (Just . ("Environment",) . toJSON) _codeBuildProjectEnvironment+ , fmap (("LogsConfig",) . toJSON) _codeBuildProjectLogsConfig , fmap (("Name",) . toJSON) _codeBuildProjectName+ , fmap (("SecondaryArtifacts",) . toJSON) _codeBuildProjectSecondaryArtifacts+ , fmap (("SecondarySources",) . toJSON) _codeBuildProjectSecondarySources , (Just . ("ServiceRole",) . toJSON) _codeBuildProjectServiceRole , (Just . ("Source",) . toJSON) _codeBuildProjectSource , fmap (("Tags",) . toJSON) _codeBuildProjectTags@@ -62,7 +69,10 @@ (obj .:? "Description") <*> (obj .:? "EncryptionKey") <*> (obj .: "Environment") <*>+ (obj .:? "LogsConfig") <*> (obj .:? "Name") <*>+ (obj .:? "SecondaryArtifacts") <*>+ (obj .:? "SecondarySources") <*> (obj .: "ServiceRole") <*> (obj .: "Source") <*> (obj .:? "Tags") <*>@@ -87,7 +97,10 @@ , _codeBuildProjectDescription = Nothing , _codeBuildProjectEncryptionKey = Nothing , _codeBuildProjectEnvironment = environmentarg+ , _codeBuildProjectLogsConfig = Nothing , _codeBuildProjectName = Nothing+ , _codeBuildProjectSecondaryArtifacts = Nothing+ , _codeBuildProjectSecondarySources = Nothing , _codeBuildProjectServiceRole = serviceRolearg , _codeBuildProjectSource = sourcearg , _codeBuildProjectTags = Nothing@@ -120,9 +133,21 @@ cbpEnvironment :: Lens' CodeBuildProject CodeBuildProjectEnvironment cbpEnvironment = lens _codeBuildProjectEnvironment (\s a -> s { _codeBuildProjectEnvironment = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-project.html#cfn-codebuild-project-logsconfig+cbpLogsConfig :: Lens' CodeBuildProject (Maybe CodeBuildProjectLogsConfig)+cbpLogsConfig = lens _codeBuildProjectLogsConfig (\s a -> s { _codeBuildProjectLogsConfig = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-project.html#cfn-codebuild-project-name cbpName :: Lens' CodeBuildProject (Maybe (Val Text)) cbpName = lens _codeBuildProjectName (\s a -> s { _codeBuildProjectName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-project.html#cfn-codebuild-project-secondaryartifacts+cbpSecondaryArtifacts :: Lens' CodeBuildProject (Maybe [CodeBuildProjectArtifacts])+cbpSecondaryArtifacts = lens _codeBuildProjectSecondaryArtifacts (\s a -> s { _codeBuildProjectSecondaryArtifacts = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-project.html#cfn-codebuild-project-secondarysources+cbpSecondarySources :: Lens' CodeBuildProject (Maybe [CodeBuildProjectSource])+cbpSecondarySources = lens _codeBuildProjectSecondarySources (\s a -> s { _codeBuildProjectSecondarySources = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-project.html#cfn-codebuild-project-servicerole cbpServiceRole :: Lens' CodeBuildProject (Val Text)
library-gen/Stratosphere/Resources/CodeDeployDeploymentGroup.hs view
@@ -12,8 +12,10 @@ import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupDeployment import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupDeploymentStyle import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupEC2TagFilter+import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupEC2TagSet import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupLoadBalancerInfo import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupTagFilter+import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupOnPremisesTagSet import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupTriggerConfig -- | Full data type definition for CodeDeployDeploymentGroup. See@@ -29,8 +31,10 @@ , _codeDeployDeploymentGroupDeploymentGroupName :: Maybe (Val Text) , _codeDeployDeploymentGroupDeploymentStyle :: Maybe CodeDeployDeploymentGroupDeploymentStyle , _codeDeployDeploymentGroupEc2TagFilters :: Maybe [CodeDeployDeploymentGroupEC2TagFilter]+ , _codeDeployDeploymentGroupEc2TagSet :: Maybe CodeDeployDeploymentGroupEC2TagSet , _codeDeployDeploymentGroupLoadBalancerInfo :: Maybe CodeDeployDeploymentGroupLoadBalancerInfo , _codeDeployDeploymentGroupOnPremisesInstanceTagFilters :: Maybe [CodeDeployDeploymentGroupTagFilter]+ , _codeDeployDeploymentGroupOnPremisesTagSet :: Maybe CodeDeployDeploymentGroupOnPremisesTagSet , _codeDeployDeploymentGroupServiceRoleArn :: Val Text , _codeDeployDeploymentGroupTriggerConfigurations :: Maybe [CodeDeployDeploymentGroupTriggerConfig] } deriving (Show, Eq)@@ -48,8 +52,10 @@ , fmap (("DeploymentGroupName",) . toJSON) _codeDeployDeploymentGroupDeploymentGroupName , fmap (("DeploymentStyle",) . toJSON) _codeDeployDeploymentGroupDeploymentStyle , fmap (("Ec2TagFilters",) . toJSON) _codeDeployDeploymentGroupEc2TagFilters+ , fmap (("Ec2TagSet",) . toJSON) _codeDeployDeploymentGroupEc2TagSet , fmap (("LoadBalancerInfo",) . toJSON) _codeDeployDeploymentGroupLoadBalancerInfo , fmap (("OnPremisesInstanceTagFilters",) . toJSON) _codeDeployDeploymentGroupOnPremisesInstanceTagFilters+ , fmap (("OnPremisesTagSet",) . toJSON) _codeDeployDeploymentGroupOnPremisesTagSet , (Just . ("ServiceRoleArn",) . toJSON) _codeDeployDeploymentGroupServiceRoleArn , fmap (("TriggerConfigurations",) . toJSON) _codeDeployDeploymentGroupTriggerConfigurations ]@@ -66,8 +72,10 @@ (obj .:? "DeploymentGroupName") <*> (obj .:? "DeploymentStyle") <*> (obj .:? "Ec2TagFilters") <*>+ (obj .:? "Ec2TagSet") <*> (obj .:? "LoadBalancerInfo") <*> (obj .:? "OnPremisesInstanceTagFilters") <*>+ (obj .:? "OnPremisesTagSet") <*> (obj .: "ServiceRoleArn") <*> (obj .:? "TriggerConfigurations") parseJSON _ = mempty@@ -89,8 +97,10 @@ , _codeDeployDeploymentGroupDeploymentGroupName = Nothing , _codeDeployDeploymentGroupDeploymentStyle = Nothing , _codeDeployDeploymentGroupEc2TagFilters = Nothing+ , _codeDeployDeploymentGroupEc2TagSet = Nothing , _codeDeployDeploymentGroupLoadBalancerInfo = Nothing , _codeDeployDeploymentGroupOnPremisesInstanceTagFilters = Nothing+ , _codeDeployDeploymentGroupOnPremisesTagSet = Nothing , _codeDeployDeploymentGroupServiceRoleArn = serviceRoleArnarg , _codeDeployDeploymentGroupTriggerConfigurations = Nothing }@@ -131,6 +141,10 @@ cddgEc2TagFilters :: Lens' CodeDeployDeploymentGroup (Maybe [CodeDeployDeploymentGroupEC2TagFilter]) cddgEc2TagFilters = lens _codeDeployDeploymentGroupEc2TagFilters (\s a -> s { _codeDeployDeploymentGroupEc2TagFilters = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codedeploy-deploymentgroup.html#cfn-codedeploy-deploymentgroup-ec2tagset+cddgEc2TagSet :: Lens' CodeDeployDeploymentGroup (Maybe CodeDeployDeploymentGroupEC2TagSet)+cddgEc2TagSet = lens _codeDeployDeploymentGroupEc2TagSet (\s a -> s { _codeDeployDeploymentGroupEc2TagSet = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codedeploy-deploymentgroup.html#cfn-codedeploy-deploymentgroup-loadbalancerinfo cddgLoadBalancerInfo :: Lens' CodeDeployDeploymentGroup (Maybe CodeDeployDeploymentGroupLoadBalancerInfo) cddgLoadBalancerInfo = lens _codeDeployDeploymentGroupLoadBalancerInfo (\s a -> s { _codeDeployDeploymentGroupLoadBalancerInfo = a })@@ -138,6 +152,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codedeploy-deploymentgroup.html#cfn-codedeploy-deploymentgroup-onpremisesinstancetagfilters cddgOnPremisesInstanceTagFilters :: Lens' CodeDeployDeploymentGroup (Maybe [CodeDeployDeploymentGroupTagFilter]) cddgOnPremisesInstanceTagFilters = lens _codeDeployDeploymentGroupOnPremisesInstanceTagFilters (\s a -> s { _codeDeployDeploymentGroupOnPremisesInstanceTagFilters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codedeploy-deploymentgroup.html#cfn-codedeploy-deploymentgroup-onpremisestagset+cddgOnPremisesTagSet :: Lens' CodeDeployDeploymentGroup (Maybe CodeDeployDeploymentGroupOnPremisesTagSet)+cddgOnPremisesTagSet = lens _codeDeployDeploymentGroupOnPremisesTagSet (\s a -> s { _codeDeployDeploymentGroupOnPremisesTagSet = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codedeploy-deploymentgroup.html#cfn-codedeploy-deploymentgroup-servicerolearn cddgServiceRoleArn :: Lens' CodeDeployDeploymentGroup (Val Text)
library-gen/Stratosphere/Resources/EC2FlowLog.hs view
@@ -13,8 +13,10 @@ -- convenient constructor. data EC2FlowLog = EC2FlowLog- { _eC2FlowLogDeliverLogsPermissionArn :: Val Text- , _eC2FlowLogLogGroupName :: Val Text+ { _eC2FlowLogDeliverLogsPermissionArn :: Maybe (Val Text)+ , _eC2FlowLogLogDestination :: Maybe (Val Text)+ , _eC2FlowLogLogDestinationType :: Maybe (Val Text)+ , _eC2FlowLogLogGroupName :: Maybe (Val Text) , _eC2FlowLogResourceId :: Val Text , _eC2FlowLogResourceType :: Val Text , _eC2FlowLogTrafficType :: Val Text@@ -24,8 +26,10 @@ toJSON EC2FlowLog{..} = object $ catMaybes- [ (Just . ("DeliverLogsPermissionArn",) . toJSON) _eC2FlowLogDeliverLogsPermissionArn- , (Just . ("LogGroupName",) . toJSON) _eC2FlowLogLogGroupName+ [ fmap (("DeliverLogsPermissionArn",) . toJSON) _eC2FlowLogDeliverLogsPermissionArn+ , fmap (("LogDestination",) . toJSON) _eC2FlowLogLogDestination+ , fmap (("LogDestinationType",) . toJSON) _eC2FlowLogLogDestinationType+ , fmap (("LogGroupName",) . toJSON) _eC2FlowLogLogGroupName , (Just . ("ResourceId",) . toJSON) _eC2FlowLogResourceId , (Just . ("ResourceType",) . toJSON) _eC2FlowLogResourceType , (Just . ("TrafficType",) . toJSON) _eC2FlowLogTrafficType@@ -34,8 +38,10 @@ instance FromJSON EC2FlowLog where parseJSON (Object obj) = EC2FlowLog <$>- (obj .: "DeliverLogsPermissionArn") <*>- (obj .: "LogGroupName") <*>+ (obj .:? "DeliverLogsPermissionArn") <*>+ (obj .:? "LogDestination") <*>+ (obj .:? "LogDestinationType") <*>+ (obj .:? "LogGroupName") <*> (obj .: "ResourceId") <*> (obj .: "ResourceType") <*> (obj .: "TrafficType")@@ -43,27 +49,35 @@ -- | Constructor for 'EC2FlowLog' containing required fields as arguments. ec2FlowLog- :: Val Text -- ^ 'ecflDeliverLogsPermissionArn'- -> Val Text -- ^ 'ecflLogGroupName'- -> Val Text -- ^ 'ecflResourceId'+ :: Val Text -- ^ 'ecflResourceId' -> Val Text -- ^ 'ecflResourceType' -> Val Text -- ^ 'ecflTrafficType' -> EC2FlowLog-ec2FlowLog deliverLogsPermissionArnarg logGroupNamearg resourceIdarg resourceTypearg trafficTypearg =+ec2FlowLog resourceIdarg resourceTypearg trafficTypearg = EC2FlowLog- { _eC2FlowLogDeliverLogsPermissionArn = deliverLogsPermissionArnarg- , _eC2FlowLogLogGroupName = logGroupNamearg+ { _eC2FlowLogDeliverLogsPermissionArn = Nothing+ , _eC2FlowLogLogDestination = Nothing+ , _eC2FlowLogLogDestinationType = Nothing+ , _eC2FlowLogLogGroupName = Nothing , _eC2FlowLogResourceId = resourceIdarg , _eC2FlowLogResourceType = resourceTypearg , _eC2FlowLogTrafficType = trafficTypearg } -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-flowlog.html#cfn-ec2-flowlog-deliverlogspermissionarn-ecflDeliverLogsPermissionArn :: Lens' EC2FlowLog (Val Text)+ecflDeliverLogsPermissionArn :: Lens' EC2FlowLog (Maybe (Val Text)) ecflDeliverLogsPermissionArn = lens _eC2FlowLogDeliverLogsPermissionArn (\s a -> s { _eC2FlowLogDeliverLogsPermissionArn = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-flowlog.html#cfn-ec2-flowlog-logdestination+ecflLogDestination :: Lens' EC2FlowLog (Maybe (Val Text))+ecflLogDestination = lens _eC2FlowLogLogDestination (\s a -> s { _eC2FlowLogLogDestination = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-flowlog.html#cfn-ec2-flowlog-logdestinationtype+ecflLogDestinationType :: Lens' EC2FlowLog (Maybe (Val Text))+ecflLogDestinationType = lens _eC2FlowLogLogDestinationType (\s a -> s { _eC2FlowLogLogDestinationType = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-flowlog.html#cfn-ec2-flowlog-loggroupname-ecflLogGroupName :: Lens' EC2FlowLog (Val Text)+ecflLogGroupName :: Lens' EC2FlowLog (Maybe (Val Text)) ecflLogGroupName = lens _eC2FlowLogLogGroupName (\s a -> s { _eC2FlowLogLogGroupName = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-flowlog.html#cfn-ec2-flowlog-resourceid
library-gen/Stratosphere/Resources/EC2VPCEndpoint.hs view
@@ -13,8 +13,8 @@ -- more convenient constructor. data EC2VPCEndpoint = EC2VPCEndpoint- { _eC2VPCEndpointIsPrivateDnsEnabled :: Maybe (Val Bool)- , _eC2VPCEndpointPolicyDocument :: Maybe Object+ { _eC2VPCEndpointPolicyDocument :: Maybe Object+ , _eC2VPCEndpointPrivateDnsEnabled :: Maybe (Val Bool) , _eC2VPCEndpointRouteTableIds :: Maybe (ValList Text) , _eC2VPCEndpointSecurityGroupIds :: Maybe (ValList Text) , _eC2VPCEndpointServiceName :: Val Text@@ -27,8 +27,8 @@ toJSON EC2VPCEndpoint{..} = object $ catMaybes- [ fmap (("IsPrivateDnsEnabled",) . toJSON . fmap Bool') _eC2VPCEndpointIsPrivateDnsEnabled- , fmap (("PolicyDocument",) . toJSON) _eC2VPCEndpointPolicyDocument+ [ fmap (("PolicyDocument",) . toJSON) _eC2VPCEndpointPolicyDocument+ , fmap (("PrivateDnsEnabled",) . toJSON . fmap Bool') _eC2VPCEndpointPrivateDnsEnabled , fmap (("RouteTableIds",) . toJSON) _eC2VPCEndpointRouteTableIds , fmap (("SecurityGroupIds",) . toJSON) _eC2VPCEndpointSecurityGroupIds , (Just . ("ServiceName",) . toJSON) _eC2VPCEndpointServiceName@@ -40,8 +40,8 @@ instance FromJSON EC2VPCEndpoint where parseJSON (Object obj) = EC2VPCEndpoint <$>- fmap (fmap (fmap unBool')) (obj .:? "IsPrivateDnsEnabled") <*> (obj .:? "PolicyDocument") <*>+ fmap (fmap (fmap unBool')) (obj .:? "PrivateDnsEnabled") <*> (obj .:? "RouteTableIds") <*> (obj .:? "SecurityGroupIds") <*> (obj .: "ServiceName") <*>@@ -57,8 +57,8 @@ -> EC2VPCEndpoint ec2VPCEndpoint serviceNamearg vpcIdarg = EC2VPCEndpoint- { _eC2VPCEndpointIsPrivateDnsEnabled = Nothing- , _eC2VPCEndpointPolicyDocument = Nothing+ { _eC2VPCEndpointPolicyDocument = Nothing+ , _eC2VPCEndpointPrivateDnsEnabled = Nothing , _eC2VPCEndpointRouteTableIds = Nothing , _eC2VPCEndpointSecurityGroupIds = Nothing , _eC2VPCEndpointServiceName = serviceNamearg@@ -67,13 +67,13 @@ , _eC2VPCEndpointVpcId = vpcIdarg } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcendpoint.html#cfn-ec2-vpcendpoint-isprivatednsenabled-ecvpceIsPrivateDnsEnabled :: Lens' EC2VPCEndpoint (Maybe (Val Bool))-ecvpceIsPrivateDnsEnabled = lens _eC2VPCEndpointIsPrivateDnsEnabled (\s a -> s { _eC2VPCEndpointIsPrivateDnsEnabled = a })- -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcendpoint.html#cfn-ec2-vpcendpoint-policydocument ecvpcePolicyDocument :: Lens' EC2VPCEndpoint (Maybe Object) ecvpcePolicyDocument = lens _eC2VPCEndpointPolicyDocument (\s a -> s { _eC2VPCEndpointPolicyDocument = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcendpoint.html#cfn-ec2-vpcendpoint-privatednsenabled+ecvpcePrivateDnsEnabled :: Lens' EC2VPCEndpoint (Maybe (Val Bool))+ecvpcePrivateDnsEnabled = lens _eC2VPCEndpointPrivateDnsEnabled (\s a -> s { _eC2VPCEndpointPrivateDnsEnabled = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcendpoint.html#cfn-ec2-vpcendpoint-routetableids ecvpceRouteTableIds :: Lens' EC2VPCEndpoint (Maybe (ValList Text))
library-gen/Stratosphere/Resources/ECSService.hs view
@@ -29,6 +29,7 @@ , _eCSServicePlacementStrategies :: Maybe [ECSServicePlacementStrategy] , _eCSServicePlatformVersion :: Maybe (Val Text) , _eCSServiceRole :: Maybe (Val Text)+ , _eCSServiceSchedulingStrategy :: Maybe (Val Text) , _eCSServiceServiceName :: Maybe (Val Text) , _eCSServiceServiceRegistries :: Maybe [ECSServiceServiceRegistry] , _eCSServiceTaskDefinition :: Val Text@@ -49,6 +50,7 @@ , fmap (("PlacementStrategies",) . toJSON) _eCSServicePlacementStrategies , fmap (("PlatformVersion",) . toJSON) _eCSServicePlatformVersion , fmap (("Role",) . toJSON) _eCSServiceRole+ , fmap (("SchedulingStrategy",) . toJSON) _eCSServiceSchedulingStrategy , fmap (("ServiceName",) . toJSON) _eCSServiceServiceName , fmap (("ServiceRegistries",) . toJSON) _eCSServiceServiceRegistries , (Just . ("TaskDefinition",) . toJSON) _eCSServiceTaskDefinition@@ -68,6 +70,7 @@ (obj .:? "PlacementStrategies") <*> (obj .:? "PlatformVersion") <*> (obj .:? "Role") <*>+ (obj .:? "SchedulingStrategy") <*> (obj .:? "ServiceName") <*> (obj .:? "ServiceRegistries") <*> (obj .: "TaskDefinition")@@ -90,6 +93,7 @@ , _eCSServicePlacementStrategies = Nothing , _eCSServicePlatformVersion = Nothing , _eCSServiceRole = Nothing+ , _eCSServiceSchedulingStrategy = Nothing , _eCSServiceServiceName = Nothing , _eCSServiceServiceRegistries = Nothing , _eCSServiceTaskDefinition = taskDefinitionarg@@ -138,6 +142,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-role ecssRole :: Lens' ECSService (Maybe (Val Text)) ecssRole = lens _eCSServiceRole (\s a -> s { _eCSServiceRole = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-schedulingstrategy+ecssSchedulingStrategy :: Lens' ECSService (Maybe (Val Text))+ecssSchedulingStrategy = lens _eCSServiceSchedulingStrategy (\s a -> s { _eCSServiceSchedulingStrategy = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-servicename ecssServiceName :: Lens' ECSService (Maybe (Val Text))
+ library-gen/Stratosphere/Resources/IoT1ClickDevice.hs view
@@ -0,0 +1,53 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot1click-device.html++module Stratosphere.Resources.IoT1ClickDevice where++import Stratosphere.ResourceImports+++-- | Full data type definition for IoT1ClickDevice. See 'ioT1ClickDevice' for+-- a more convenient constructor.+data IoT1ClickDevice =+ IoT1ClickDevice+ { _ioT1ClickDeviceDeviceId :: Val Text+ , _ioT1ClickDeviceEnabled :: Val Bool+ } deriving (Show, Eq)++instance ToJSON IoT1ClickDevice where+ toJSON IoT1ClickDevice{..} =+ object $+ catMaybes+ [ (Just . ("DeviceId",) . toJSON) _ioT1ClickDeviceDeviceId+ , (Just . ("Enabled",) . toJSON . fmap Bool') _ioT1ClickDeviceEnabled+ ]++instance FromJSON IoT1ClickDevice where+ parseJSON (Object obj) =+ IoT1ClickDevice <$>+ (obj .: "DeviceId") <*>+ fmap (fmap unBool') (obj .: "Enabled")+ parseJSON _ = mempty++-- | Constructor for 'IoT1ClickDevice' containing required fields as+-- arguments.+ioT1ClickDevice+ :: Val Text -- ^ 'itcdDeviceId'+ -> Val Bool -- ^ 'itcdEnabled'+ -> IoT1ClickDevice+ioT1ClickDevice deviceIdarg enabledarg =+ IoT1ClickDevice+ { _ioT1ClickDeviceDeviceId = deviceIdarg+ , _ioT1ClickDeviceEnabled = enabledarg+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot1click-device.html#cfn-iot1click-device-deviceid+itcdDeviceId :: Lens' IoT1ClickDevice (Val Text)+itcdDeviceId = lens _ioT1ClickDeviceDeviceId (\s a -> s { _ioT1ClickDeviceDeviceId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot1click-device.html#cfn-iot1click-device-enabled+itcdEnabled :: Lens' IoT1ClickDevice (Val Bool)+itcdEnabled = lens _ioT1ClickDeviceEnabled (\s a -> s { _ioT1ClickDeviceEnabled = a })
+ library-gen/Stratosphere/Resources/IoT1ClickPlacement.hs view
@@ -0,0 +1,69 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot1click-placement.html++module Stratosphere.Resources.IoT1ClickPlacement where++import Stratosphere.ResourceImports+++-- | Full data type definition for IoT1ClickPlacement. See+-- 'ioT1ClickPlacement' for a more convenient constructor.+data IoT1ClickPlacement =+ IoT1ClickPlacement+ { _ioT1ClickPlacementAssociatedDevices :: Maybe Object+ , _ioT1ClickPlacementAttributes :: Maybe Object+ , _ioT1ClickPlacementPlacementName :: Val Text+ , _ioT1ClickPlacementProjectName :: Val Text+ } deriving (Show, Eq)++instance ToJSON IoT1ClickPlacement where+ toJSON IoT1ClickPlacement{..} =+ object $+ catMaybes+ [ fmap (("AssociatedDevices",) . toJSON) _ioT1ClickPlacementAssociatedDevices+ , fmap (("Attributes",) . toJSON) _ioT1ClickPlacementAttributes+ , (Just . ("PlacementName",) . toJSON) _ioT1ClickPlacementPlacementName+ , (Just . ("ProjectName",) . toJSON) _ioT1ClickPlacementProjectName+ ]++instance FromJSON IoT1ClickPlacement where+ parseJSON (Object obj) =+ IoT1ClickPlacement <$>+ (obj .:? "AssociatedDevices") <*>+ (obj .:? "Attributes") <*>+ (obj .: "PlacementName") <*>+ (obj .: "ProjectName")+ parseJSON _ = mempty++-- | Constructor for 'IoT1ClickPlacement' containing required fields as+-- arguments.+ioT1ClickPlacement+ :: Val Text -- ^ 'itcplPlacementName'+ -> Val Text -- ^ 'itcplProjectName'+ -> IoT1ClickPlacement+ioT1ClickPlacement placementNamearg projectNamearg =+ IoT1ClickPlacement+ { _ioT1ClickPlacementAssociatedDevices = Nothing+ , _ioT1ClickPlacementAttributes = Nothing+ , _ioT1ClickPlacementPlacementName = placementNamearg+ , _ioT1ClickPlacementProjectName = projectNamearg+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot1click-placement.html#cfn-iot1click-placement-associateddevices+itcplAssociatedDevices :: Lens' IoT1ClickPlacement (Maybe Object)+itcplAssociatedDevices = lens _ioT1ClickPlacementAssociatedDevices (\s a -> s { _ioT1ClickPlacementAssociatedDevices = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot1click-placement.html#cfn-iot1click-placement-attributes+itcplAttributes :: Lens' IoT1ClickPlacement (Maybe Object)+itcplAttributes = lens _ioT1ClickPlacementAttributes (\s a -> s { _ioT1ClickPlacementAttributes = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot1click-placement.html#cfn-iot1click-placement-placementname+itcplPlacementName :: Lens' IoT1ClickPlacement (Val Text)+itcplPlacementName = lens _ioT1ClickPlacementPlacementName (\s a -> s { _ioT1ClickPlacementPlacementName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot1click-placement.html#cfn-iot1click-placement-projectname+itcplProjectName :: Lens' IoT1ClickPlacement (Val Text)+itcplProjectName = lens _ioT1ClickPlacementProjectName (\s a -> s { _ioT1ClickPlacementProjectName = a })
+ library-gen/Stratosphere/Resources/IoT1ClickProject.hs view
@@ -0,0 +1,61 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot1click-project.html++module Stratosphere.Resources.IoT1ClickProject where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.IoT1ClickProjectPlacementTemplate++-- | Full data type definition for IoT1ClickProject. See 'ioT1ClickProject'+-- for a more convenient constructor.+data IoT1ClickProject =+ IoT1ClickProject+ { _ioT1ClickProjectDescription :: Maybe (Val Text)+ , _ioT1ClickProjectPlacementTemplate :: IoT1ClickProjectPlacementTemplate+ , _ioT1ClickProjectProjectName :: Val Text+ } deriving (Show, Eq)++instance ToJSON IoT1ClickProject where+ toJSON IoT1ClickProject{..} =+ object $+ catMaybes+ [ fmap (("Description",) . toJSON) _ioT1ClickProjectDescription+ , (Just . ("PlacementTemplate",) . toJSON) _ioT1ClickProjectPlacementTemplate+ , (Just . ("ProjectName",) . toJSON) _ioT1ClickProjectProjectName+ ]++instance FromJSON IoT1ClickProject where+ parseJSON (Object obj) =+ IoT1ClickProject <$>+ (obj .:? "Description") <*>+ (obj .: "PlacementTemplate") <*>+ (obj .: "ProjectName")+ parseJSON _ = mempty++-- | Constructor for 'IoT1ClickProject' containing required fields as+-- arguments.+ioT1ClickProject+ :: IoT1ClickProjectPlacementTemplate -- ^ 'itcprPlacementTemplate'+ -> Val Text -- ^ 'itcprProjectName'+ -> IoT1ClickProject+ioT1ClickProject placementTemplatearg projectNamearg =+ IoT1ClickProject+ { _ioT1ClickProjectDescription = Nothing+ , _ioT1ClickProjectPlacementTemplate = placementTemplatearg+ , _ioT1ClickProjectProjectName = projectNamearg+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot1click-project.html#cfn-iot1click-project-description+itcprDescription :: Lens' IoT1ClickProject (Maybe (Val Text))+itcprDescription = lens _ioT1ClickProjectDescription (\s a -> s { _ioT1ClickProjectDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot1click-project.html#cfn-iot1click-project-placementtemplate+itcprPlacementTemplate :: Lens' IoT1ClickProject IoT1ClickProjectPlacementTemplate+itcprPlacementTemplate = lens _ioT1ClickProjectPlacementTemplate (\s a -> s { _ioT1ClickProjectPlacementTemplate = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot1click-project.html#cfn-iot1click-project-projectname+itcprProjectName :: Lens' IoT1ClickProject (Val Text)+itcprProjectName = lens _ioT1ClickProjectProjectName (\s a -> s { _ioT1ClickProjectProjectName = a })
library-gen/Stratosphere/Resources/RDSDBCluster.hs view
@@ -7,6 +7,7 @@ module Stratosphere.Resources.RDSDBCluster where import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.RDSDBClusterScalingConfiguration import Stratosphere.ResourceProperties.Tag -- | Full data type definition for RDSDBCluster. See 'rdsdbCluster' for a more@@ -20,6 +21,7 @@ , _rDSDBClusterDBSubnetGroupName :: Maybe (Val Text) , _rDSDBClusterDatabaseName :: Maybe (Val Text) , _rDSDBClusterEngine :: Val Text+ , _rDSDBClusterEngineMode :: Maybe (Val Text) , _rDSDBClusterEngineVersion :: Maybe (Val Text) , _rDSDBClusterKmsKeyId :: Maybe (Val Text) , _rDSDBClusterMasterUserPassword :: Maybe (Val Text)@@ -28,6 +30,7 @@ , _rDSDBClusterPreferredBackupWindow :: Maybe (Val Text) , _rDSDBClusterPreferredMaintenanceWindow :: Maybe (Val Text) , _rDSDBClusterReplicationSourceIdentifier :: Maybe (Val Text)+ , _rDSDBClusterScalingConfiguration :: Maybe RDSDBClusterScalingConfiguration , _rDSDBClusterSnapshotIdentifier :: Maybe (Val Text) , _rDSDBClusterStorageEncrypted :: Maybe (Val Bool) , _rDSDBClusterTags :: Maybe [Tag]@@ -45,6 +48,7 @@ , fmap (("DBSubnetGroupName",) . toJSON) _rDSDBClusterDBSubnetGroupName , fmap (("DatabaseName",) . toJSON) _rDSDBClusterDatabaseName , (Just . ("Engine",) . toJSON) _rDSDBClusterEngine+ , fmap (("EngineMode",) . toJSON) _rDSDBClusterEngineMode , fmap (("EngineVersion",) . toJSON) _rDSDBClusterEngineVersion , fmap (("KmsKeyId",) . toJSON) _rDSDBClusterKmsKeyId , fmap (("MasterUserPassword",) . toJSON) _rDSDBClusterMasterUserPassword@@ -53,6 +57,7 @@ , fmap (("PreferredBackupWindow",) . toJSON) _rDSDBClusterPreferredBackupWindow , fmap (("PreferredMaintenanceWindow",) . toJSON) _rDSDBClusterPreferredMaintenanceWindow , fmap (("ReplicationSourceIdentifier",) . toJSON) _rDSDBClusterReplicationSourceIdentifier+ , fmap (("ScalingConfiguration",) . toJSON) _rDSDBClusterScalingConfiguration , fmap (("SnapshotIdentifier",) . toJSON) _rDSDBClusterSnapshotIdentifier , fmap (("StorageEncrypted",) . toJSON . fmap Bool') _rDSDBClusterStorageEncrypted , fmap (("Tags",) . toJSON) _rDSDBClusterTags@@ -69,6 +74,7 @@ (obj .:? "DBSubnetGroupName") <*> (obj .:? "DatabaseName") <*> (obj .: "Engine") <*>+ (obj .:? "EngineMode") <*> (obj .:? "EngineVersion") <*> (obj .:? "KmsKeyId") <*> (obj .:? "MasterUserPassword") <*>@@ -77,6 +83,7 @@ (obj .:? "PreferredBackupWindow") <*> (obj .:? "PreferredMaintenanceWindow") <*> (obj .:? "ReplicationSourceIdentifier") <*>+ (obj .:? "ScalingConfiguration") <*> (obj .:? "SnapshotIdentifier") <*> fmap (fmap (fmap unBool')) (obj .:? "StorageEncrypted") <*> (obj .:? "Tags") <*>@@ -96,6 +103,7 @@ , _rDSDBClusterDBSubnetGroupName = Nothing , _rDSDBClusterDatabaseName = Nothing , _rDSDBClusterEngine = enginearg+ , _rDSDBClusterEngineMode = Nothing , _rDSDBClusterEngineVersion = Nothing , _rDSDBClusterKmsKeyId = Nothing , _rDSDBClusterMasterUserPassword = Nothing@@ -104,6 +112,7 @@ , _rDSDBClusterPreferredBackupWindow = Nothing , _rDSDBClusterPreferredMaintenanceWindow = Nothing , _rDSDBClusterReplicationSourceIdentifier = Nothing+ , _rDSDBClusterScalingConfiguration = Nothing , _rDSDBClusterSnapshotIdentifier = Nothing , _rDSDBClusterStorageEncrypted = Nothing , _rDSDBClusterTags = Nothing@@ -138,6 +147,10 @@ rdsdbcEngine :: Lens' RDSDBCluster (Val Text) rdsdbcEngine = lens _rDSDBClusterEngine (\s a -> s { _rDSDBClusterEngine = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-enginemode+rdsdbcEngineMode :: Lens' RDSDBCluster (Maybe (Val Text))+rdsdbcEngineMode = lens _rDSDBClusterEngineMode (\s a -> s { _rDSDBClusterEngineMode = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-engineversion rdsdbcEngineVersion :: Lens' RDSDBCluster (Maybe (Val Text)) rdsdbcEngineVersion = lens _rDSDBClusterEngineVersion (\s a -> s { _rDSDBClusterEngineVersion = a })@@ -169,6 +182,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-replicationsourceidentifier rdsdbcReplicationSourceIdentifier :: Lens' RDSDBCluster (Maybe (Val Text)) rdsdbcReplicationSourceIdentifier = lens _rDSDBClusterReplicationSourceIdentifier (\s a -> s { _rDSDBClusterReplicationSourceIdentifier = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-scalingconfiguration+rdsdbcScalingConfiguration :: Lens' RDSDBCluster (Maybe RDSDBClusterScalingConfiguration)+rdsdbcScalingConfiguration = lens _rDSDBClusterScalingConfiguration (\s a -> s { _rDSDBClusterScalingConfiguration = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-snapshotidentifier rdsdbcSnapshotIdentifier :: Lens' RDSDBCluster (Maybe (Val Text))
stratosphere.cabal view
@@ -2,10 +2,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 1240380557351af82d5b4cca1213969ef6ce1f9d22796c0163e2d1d25d77eb0f+-- hash: 962710ab05cb0bbc5c857558fef6b2e9340ce4cafc1e4884af35aa5596dbe3fd name: stratosphere-version: 0.25.0+version: 0.26.0 synopsis: EDSL for AWS CloudFormation description: EDSL for AWS CloudFormation category: AWS, Cloud@@ -52,6 +52,9 @@ Stratosphere.ResourceProperties.AmazonMQBrokerMaintenanceWindow Stratosphere.ResourceProperties.AmazonMQBrokerUser Stratosphere.ResourceProperties.ApiGatewayApiKeyStageKey+ Stratosphere.ResourceProperties.ApiGatewayDeploymentAccessLogSetting+ Stratosphere.ResourceProperties.ApiGatewayDeploymentCanarySetting+ Stratosphere.ResourceProperties.ApiGatewayDeploymentDeploymentCanarySettings Stratosphere.ResourceProperties.ApiGatewayDeploymentMethodSetting Stratosphere.ResourceProperties.ApiGatewayDeploymentStageDescription Stratosphere.ResourceProperties.ApiGatewayDocumentationPartLocation@@ -61,6 +64,8 @@ Stratosphere.ResourceProperties.ApiGatewayMethodMethodResponse Stratosphere.ResourceProperties.ApiGatewayRestApiEndpointConfiguration Stratosphere.ResourceProperties.ApiGatewayRestApiS3Location+ Stratosphere.ResourceProperties.ApiGatewayStageAccessLogSetting+ Stratosphere.ResourceProperties.ApiGatewayStageCanarySetting Stratosphere.ResourceProperties.ApiGatewayStageMethodSetting Stratosphere.ResourceProperties.ApiGatewayUsagePlanApiStage Stratosphere.ResourceProperties.ApiGatewayUsagePlanQuotaSettings@@ -80,6 +85,7 @@ Stratosphere.ResourceProperties.AppSyncGraphQLApiLogConfig Stratosphere.ResourceProperties.AppSyncGraphQLApiOpenIDConnectConfig Stratosphere.ResourceProperties.AppSyncGraphQLApiUserPoolConfig+ Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupLaunchTemplateSpecification Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupLifecycleHookSpecification Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupMetricsCollection Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupNotificationConfiguration@@ -141,10 +147,13 @@ Stratosphere.ResourceProperties.CloudTrailTrailEventSelector Stratosphere.ResourceProperties.CloudWatchAlarmDimension Stratosphere.ResourceProperties.CodeBuildProjectArtifacts+ Stratosphere.ResourceProperties.CodeBuildProjectCloudWatchLogsConfig Stratosphere.ResourceProperties.CodeBuildProjectEnvironment Stratosphere.ResourceProperties.CodeBuildProjectEnvironmentVariable+ Stratosphere.ResourceProperties.CodeBuildProjectLogsConfig Stratosphere.ResourceProperties.CodeBuildProjectProjectCache Stratosphere.ResourceProperties.CodeBuildProjectProjectTriggers+ Stratosphere.ResourceProperties.CodeBuildProjectS3LogsConfig Stratosphere.ResourceProperties.CodeBuildProjectSource Stratosphere.ResourceProperties.CodeBuildProjectSourceAuth Stratosphere.ResourceProperties.CodeBuildProjectVpcConfig@@ -156,9 +165,13 @@ Stratosphere.ResourceProperties.CodeDeployDeploymentGroupDeployment Stratosphere.ResourceProperties.CodeDeployDeploymentGroupDeploymentStyle Stratosphere.ResourceProperties.CodeDeployDeploymentGroupEC2TagFilter+ Stratosphere.ResourceProperties.CodeDeployDeploymentGroupEC2TagSet+ Stratosphere.ResourceProperties.CodeDeployDeploymentGroupEC2TagSetListObject Stratosphere.ResourceProperties.CodeDeployDeploymentGroupELBInfo Stratosphere.ResourceProperties.CodeDeployDeploymentGroupGitHubLocation Stratosphere.ResourceProperties.CodeDeployDeploymentGroupLoadBalancerInfo+ Stratosphere.ResourceProperties.CodeDeployDeploymentGroupOnPremisesTagSet+ Stratosphere.ResourceProperties.CodeDeployDeploymentGroupOnPremisesTagSetListObject Stratosphere.ResourceProperties.CodeDeployDeploymentGroupRevisionLocation Stratosphere.ResourceProperties.CodeDeployDeploymentGroupS3Location Stratosphere.ResourceProperties.CodeDeployDeploymentGroupTagFilter@@ -258,17 +271,25 @@ Stratosphere.ResourceProperties.EC2SecurityGroupEgressProperty Stratosphere.ResourceProperties.EC2SecurityGroupIngressProperty Stratosphere.ResourceProperties.EC2SpotFleetBlockDeviceMapping+ Stratosphere.ResourceProperties.EC2SpotFleetClassicLoadBalancer+ Stratosphere.ResourceProperties.EC2SpotFleetClassicLoadBalancersConfig Stratosphere.ResourceProperties.EC2SpotFleetEbsBlockDevice+ Stratosphere.ResourceProperties.EC2SpotFleetFleetLaunchTemplateSpecification Stratosphere.ResourceProperties.EC2SpotFleetGroupIdentifier Stratosphere.ResourceProperties.EC2SpotFleetIamInstanceProfileSpecification Stratosphere.ResourceProperties.EC2SpotFleetInstanceIpv6Address Stratosphere.ResourceProperties.EC2SpotFleetInstanceNetworkInterfaceSpecification+ Stratosphere.ResourceProperties.EC2SpotFleetLaunchTemplateConfig+ Stratosphere.ResourceProperties.EC2SpotFleetLaunchTemplateOverrides+ Stratosphere.ResourceProperties.EC2SpotFleetLoadBalancersConfig Stratosphere.ResourceProperties.EC2SpotFleetPrivateIpAddressSpecification Stratosphere.ResourceProperties.EC2SpotFleetSpotFleetLaunchSpecification Stratosphere.ResourceProperties.EC2SpotFleetSpotFleetMonitoring Stratosphere.ResourceProperties.EC2SpotFleetSpotFleetRequestConfigData Stratosphere.ResourceProperties.EC2SpotFleetSpotFleetTagSpecification Stratosphere.ResourceProperties.EC2SpotFleetSpotPlacement+ Stratosphere.ResourceProperties.EC2SpotFleetTargetGroup+ Stratosphere.ResourceProperties.EC2SpotFleetTargetGroupsConfig Stratosphere.ResourceProperties.EC2VPNConnectionVpnTunnelOptionsSpecification Stratosphere.ResourceProperties.ECRRepositoryLifecyclePolicy Stratosphere.ResourceProperties.ECSServiceAwsVpcConfiguration@@ -280,6 +301,7 @@ Stratosphere.ResourceProperties.ECSServiceServiceRegistry Stratosphere.ResourceProperties.ECSTaskDefinitionContainerDefinition Stratosphere.ResourceProperties.ECSTaskDefinitionDevice+ Stratosphere.ResourceProperties.ECSTaskDefinitionDockerVolumeConfiguration Stratosphere.ResourceProperties.ECSTaskDefinitionHealthCheck Stratosphere.ResourceProperties.ECSTaskDefinitionHostEntry Stratosphere.ResourceProperties.ECSTaskDefinitionHostVolumeProperties@@ -289,7 +311,9 @@ Stratosphere.ResourceProperties.ECSTaskDefinitionLogConfiguration Stratosphere.ResourceProperties.ECSTaskDefinitionMountPoint Stratosphere.ResourceProperties.ECSTaskDefinitionPortMapping+ Stratosphere.ResourceProperties.ECSTaskDefinitionRepositoryCredentials Stratosphere.ResourceProperties.ECSTaskDefinitionTaskDefinitionPlacementConstraint+ Stratosphere.ResourceProperties.ECSTaskDefinitionTmpfs Stratosphere.ResourceProperties.ECSTaskDefinitionUlimit Stratosphere.ResourceProperties.ECSTaskDefinitionVolume Stratosphere.ResourceProperties.ECSTaskDefinitionVolumeFrom@@ -377,6 +401,7 @@ Stratosphere.ResourceProperties.EventsRuleKinesisParameters Stratosphere.ResourceProperties.EventsRuleRunCommandParameters Stratosphere.ResourceProperties.EventsRuleRunCommandTarget+ Stratosphere.ResourceProperties.EventsRuleSqsParameters Stratosphere.ResourceProperties.EventsRuleTarget Stratosphere.ResourceProperties.GameLiftAliasRoutingStrategy Stratosphere.ResourceProperties.GameLiftBuildS3Location@@ -416,6 +441,8 @@ Stratosphere.ResourceProperties.IAMRolePolicy Stratosphere.ResourceProperties.IAMUserLoginProfile Stratosphere.ResourceProperties.IAMUserPolicy+ Stratosphere.ResourceProperties.IoT1ClickProjectDeviceTemplate+ Stratosphere.ResourceProperties.IoT1ClickProjectPlacementTemplate Stratosphere.ResourceProperties.IoTThingAttributePayload Stratosphere.ResourceProperties.IoTTopicRuleAction Stratosphere.ResourceProperties.IoTTopicRuleCloudwatchAlarmAction@@ -501,6 +528,7 @@ Stratosphere.ResourceProperties.OpsWorksStackRdsDbInstance Stratosphere.ResourceProperties.OpsWorksStackSource Stratosphere.ResourceProperties.OpsWorksStackStackConfigurationManager+ Stratosphere.ResourceProperties.RDSDBClusterScalingConfiguration Stratosphere.ResourceProperties.RDSDBSecurityGroupIngressProperty Stratosphere.ResourceProperties.RDSOptionGroupOptionConfiguration Stratosphere.ResourceProperties.RDSOptionGroupOptionSetting@@ -813,6 +841,9 @@ Stratosphere.Resources.InspectorAssessmentTarget Stratosphere.Resources.InspectorAssessmentTemplate Stratosphere.Resources.InspectorResourceGroup+ Stratosphere.Resources.IoT1ClickDevice+ Stratosphere.Resources.IoT1ClickPlacement+ Stratosphere.Resources.IoT1ClickProject Stratosphere.Resources.IoTCertificate Stratosphere.Resources.IoTPolicy Stratosphere.Resources.IoTPolicyPrincipalAttachment