stratosphere 0.54.0 → 0.55.0
raw patch · 16 files changed
+370/−138 lines, 16 files
Files
- CHANGELOG.md +4/−0
- library-gen/Stratosphere/ResourceProperties/EC2PrefixListEntry.hs +0/−46
- library-gen/Stratosphere/ResourceProperties/ECSCapacityProviderAutoScalingGroupProvider.hs +55/−0
- library-gen/Stratosphere/ResourceProperties/ECSCapacityProviderManagedScaling.hs +59/−0
- library-gen/Stratosphere/ResourceProperties/ECSClusterCapacityProviderStrategyItem.hs +53/−0
- library-gen/Stratosphere/Resources.hs +5/−2
- library-gen/Stratosphere/Resources/AppConfigHostedConfigurationVersion.hs +80/−0
- library-gen/Stratosphere/Resources/DataPipelinePipeline.hs +0/−8
- library-gen/Stratosphere/Resources/EC2PrefixList.hs +0/−72
- library-gen/Stratosphere/Resources/ECSCapacityProvider.hs +57/−0
- library-gen/Stratosphere/Resources/ECSCluster.hs +18/−3
- library-gen/Stratosphere/Resources/ServiceDiscoveryHttpNamespace.hs +8/−1
- library-gen/Stratosphere/Resources/ServiceDiscoveryPrivateDnsNamespace.hs +8/−1
- library-gen/Stratosphere/Resources/ServiceDiscoveryPublicDnsNamespace.hs +8/−1
- library-gen/Stratosphere/Resources/ServiceDiscoveryService.hs +8/−0
- stratosphere.cabal +7/−4
CHANGELOG.md view
@@ -1,5 +1,9 @@ # Change Log +## 0.55.0++* Update resource specification document to version 15.3.0+ ## 0.54.0 * Update resource specification document to version 15.1.0
− library-gen/Stratosphere/ResourceProperties/EC2PrefixListEntry.hs
@@ -1,46 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE StrictData #-}-{-# LANGUAGE TupleSections #-}---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-prefixlist-entry.html--module Stratosphere.ResourceProperties.EC2PrefixListEntry where--import Stratosphere.ResourceImports----- | Full data type definition for EC2PrefixListEntry. See--- 'ec2PrefixListEntry' for a more convenient constructor.-data EC2PrefixListEntry =- EC2PrefixListEntry- { _eC2PrefixListEntryCidr :: Val Text- , _eC2PrefixListEntryDescription :: Maybe (Val Text)- } deriving (Show, Eq)--instance ToJSON EC2PrefixListEntry where- toJSON EC2PrefixListEntry{..} =- object $- catMaybes- [ (Just . ("Cidr",) . toJSON) _eC2PrefixListEntryCidr- , fmap (("Description",) . toJSON) _eC2PrefixListEntryDescription- ]---- | Constructor for 'EC2PrefixListEntry' containing required fields as--- arguments.-ec2PrefixListEntry- :: Val Text -- ^ 'ecpleCidr'- -> EC2PrefixListEntry-ec2PrefixListEntry cidrarg =- EC2PrefixListEntry- { _eC2PrefixListEntryCidr = cidrarg- , _eC2PrefixListEntryDescription = Nothing- }---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-prefixlist-entry.html#cfn-ec2-prefixlist-entry-cidr-ecpleCidr :: Lens' EC2PrefixListEntry (Val Text)-ecpleCidr = lens _eC2PrefixListEntryCidr (\s a -> s { _eC2PrefixListEntryCidr = a })---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-prefixlist-entry.html#cfn-ec2-prefixlist-entry-description-ecpleDescription :: Lens' EC2PrefixListEntry (Maybe (Val Text))-ecpleDescription = lens _eC2PrefixListEntryDescription (\s a -> s { _eC2PrefixListEntryDescription = a })
+ library-gen/Stratosphere/ResourceProperties/ECSCapacityProviderAutoScalingGroupProvider.hs view
@@ -0,0 +1,55 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-capacityprovider-autoscalinggroupprovider.html++module Stratosphere.ResourceProperties.ECSCapacityProviderAutoScalingGroupProvider where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.ECSCapacityProviderManagedScaling++-- | Full data type definition for+-- ECSCapacityProviderAutoScalingGroupProvider. See+-- 'ecsCapacityProviderAutoScalingGroupProvider' for a more convenient+-- constructor.+data ECSCapacityProviderAutoScalingGroupProvider =+ ECSCapacityProviderAutoScalingGroupProvider+ { _eCSCapacityProviderAutoScalingGroupProviderAutoScalingGroupArn :: Val Text+ , _eCSCapacityProviderAutoScalingGroupProviderManagedScaling :: Maybe ECSCapacityProviderManagedScaling+ , _eCSCapacityProviderAutoScalingGroupProviderManagedTerminationProtection :: Maybe (Val Text)+ } deriving (Show, Eq)++instance ToJSON ECSCapacityProviderAutoScalingGroupProvider where+ toJSON ECSCapacityProviderAutoScalingGroupProvider{..} =+ object $+ catMaybes+ [ (Just . ("AutoScalingGroupArn",) . toJSON) _eCSCapacityProviderAutoScalingGroupProviderAutoScalingGroupArn+ , fmap (("ManagedScaling",) . toJSON) _eCSCapacityProviderAutoScalingGroupProviderManagedScaling+ , fmap (("ManagedTerminationProtection",) . toJSON) _eCSCapacityProviderAutoScalingGroupProviderManagedTerminationProtection+ ]++-- | Constructor for 'ECSCapacityProviderAutoScalingGroupProvider' containing+-- required fields as arguments.+ecsCapacityProviderAutoScalingGroupProvider+ :: Val Text -- ^ 'ecscpasgpAutoScalingGroupArn'+ -> ECSCapacityProviderAutoScalingGroupProvider+ecsCapacityProviderAutoScalingGroupProvider autoScalingGroupArnarg =+ ECSCapacityProviderAutoScalingGroupProvider+ { _eCSCapacityProviderAutoScalingGroupProviderAutoScalingGroupArn = autoScalingGroupArnarg+ , _eCSCapacityProviderAutoScalingGroupProviderManagedScaling = Nothing+ , _eCSCapacityProviderAutoScalingGroupProviderManagedTerminationProtection = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-capacityprovider-autoscalinggroupprovider.html#cfn-ecs-capacityprovider-autoscalinggroupprovider-autoscalinggrouparn+ecscpasgpAutoScalingGroupArn :: Lens' ECSCapacityProviderAutoScalingGroupProvider (Val Text)+ecscpasgpAutoScalingGroupArn = lens _eCSCapacityProviderAutoScalingGroupProviderAutoScalingGroupArn (\s a -> s { _eCSCapacityProviderAutoScalingGroupProviderAutoScalingGroupArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-capacityprovider-autoscalinggroupprovider.html#cfn-ecs-capacityprovider-autoscalinggroupprovider-managedscaling+ecscpasgpManagedScaling :: Lens' ECSCapacityProviderAutoScalingGroupProvider (Maybe ECSCapacityProviderManagedScaling)+ecscpasgpManagedScaling = lens _eCSCapacityProviderAutoScalingGroupProviderManagedScaling (\s a -> s { _eCSCapacityProviderAutoScalingGroupProviderManagedScaling = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-capacityprovider-autoscalinggroupprovider.html#cfn-ecs-capacityprovider-autoscalinggroupprovider-managedterminationprotection+ecscpasgpManagedTerminationProtection :: Lens' ECSCapacityProviderAutoScalingGroupProvider (Maybe (Val Text))+ecscpasgpManagedTerminationProtection = lens _eCSCapacityProviderAutoScalingGroupProviderManagedTerminationProtection (\s a -> s { _eCSCapacityProviderAutoScalingGroupProviderManagedTerminationProtection = a })
+ library-gen/Stratosphere/ResourceProperties/ECSCapacityProviderManagedScaling.hs view
@@ -0,0 +1,59 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-capacityprovider-managedscaling.html++module Stratosphere.ResourceProperties.ECSCapacityProviderManagedScaling where++import Stratosphere.ResourceImports+++-- | Full data type definition for ECSCapacityProviderManagedScaling. See+-- 'ecsCapacityProviderManagedScaling' for a more convenient constructor.+data ECSCapacityProviderManagedScaling =+ ECSCapacityProviderManagedScaling+ { _eCSCapacityProviderManagedScalingMaximumScalingStepSize :: Maybe (Val Integer)+ , _eCSCapacityProviderManagedScalingMinimumScalingStepSize :: Maybe (Val Integer)+ , _eCSCapacityProviderManagedScalingStatus :: Maybe (Val Text)+ , _eCSCapacityProviderManagedScalingTargetCapacity :: Maybe (Val Integer)+ } deriving (Show, Eq)++instance ToJSON ECSCapacityProviderManagedScaling where+ toJSON ECSCapacityProviderManagedScaling{..} =+ object $+ catMaybes+ [ fmap (("MaximumScalingStepSize",) . toJSON) _eCSCapacityProviderManagedScalingMaximumScalingStepSize+ , fmap (("MinimumScalingStepSize",) . toJSON) _eCSCapacityProviderManagedScalingMinimumScalingStepSize+ , fmap (("Status",) . toJSON) _eCSCapacityProviderManagedScalingStatus+ , fmap (("TargetCapacity",) . toJSON) _eCSCapacityProviderManagedScalingTargetCapacity+ ]++-- | Constructor for 'ECSCapacityProviderManagedScaling' containing required+-- fields as arguments.+ecsCapacityProviderManagedScaling+ :: ECSCapacityProviderManagedScaling+ecsCapacityProviderManagedScaling =+ ECSCapacityProviderManagedScaling+ { _eCSCapacityProviderManagedScalingMaximumScalingStepSize = Nothing+ , _eCSCapacityProviderManagedScalingMinimumScalingStepSize = Nothing+ , _eCSCapacityProviderManagedScalingStatus = Nothing+ , _eCSCapacityProviderManagedScalingTargetCapacity = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-capacityprovider-managedscaling.html#cfn-ecs-capacityprovider-managedscaling-maximumscalingstepsize+ecscpmsMaximumScalingStepSize :: Lens' ECSCapacityProviderManagedScaling (Maybe (Val Integer))+ecscpmsMaximumScalingStepSize = lens _eCSCapacityProviderManagedScalingMaximumScalingStepSize (\s a -> s { _eCSCapacityProviderManagedScalingMaximumScalingStepSize = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-capacityprovider-managedscaling.html#cfn-ecs-capacityprovider-managedscaling-minimumscalingstepsize+ecscpmsMinimumScalingStepSize :: Lens' ECSCapacityProviderManagedScaling (Maybe (Val Integer))+ecscpmsMinimumScalingStepSize = lens _eCSCapacityProviderManagedScalingMinimumScalingStepSize (\s a -> s { _eCSCapacityProviderManagedScalingMinimumScalingStepSize = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-capacityprovider-managedscaling.html#cfn-ecs-capacityprovider-managedscaling-status+ecscpmsStatus :: Lens' ECSCapacityProviderManagedScaling (Maybe (Val Text))+ecscpmsStatus = lens _eCSCapacityProviderManagedScalingStatus (\s a -> s { _eCSCapacityProviderManagedScalingStatus = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-capacityprovider-managedscaling.html#cfn-ecs-capacityprovider-managedscaling-targetcapacity+ecscpmsTargetCapacity :: Lens' ECSCapacityProviderManagedScaling (Maybe (Val Integer))+ecscpmsTargetCapacity = lens _eCSCapacityProviderManagedScalingTargetCapacity (\s a -> s { _eCSCapacityProviderManagedScalingTargetCapacity = a })
+ library-gen/Stratosphere/ResourceProperties/ECSClusterCapacityProviderStrategyItem.hs view
@@ -0,0 +1,53 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-cluster-capacityproviderstrategyitem.html++module Stratosphere.ResourceProperties.ECSClusterCapacityProviderStrategyItem where++import Stratosphere.ResourceImports+++-- | Full data type definition for ECSClusterCapacityProviderStrategyItem. See+-- 'ecsClusterCapacityProviderStrategyItem' for a more convenient+-- constructor.+data ECSClusterCapacityProviderStrategyItem =+ ECSClusterCapacityProviderStrategyItem+ { _eCSClusterCapacityProviderStrategyItemBase :: Maybe (Val Integer)+ , _eCSClusterCapacityProviderStrategyItemCapacityProvider :: Maybe (Val Text)+ , _eCSClusterCapacityProviderStrategyItemWeight :: Maybe (Val Integer)+ } deriving (Show, Eq)++instance ToJSON ECSClusterCapacityProviderStrategyItem where+ toJSON ECSClusterCapacityProviderStrategyItem{..} =+ object $+ catMaybes+ [ fmap (("Base",) . toJSON) _eCSClusterCapacityProviderStrategyItemBase+ , fmap (("CapacityProvider",) . toJSON) _eCSClusterCapacityProviderStrategyItemCapacityProvider+ , fmap (("Weight",) . toJSON) _eCSClusterCapacityProviderStrategyItemWeight+ ]++-- | Constructor for 'ECSClusterCapacityProviderStrategyItem' containing+-- required fields as arguments.+ecsClusterCapacityProviderStrategyItem+ :: ECSClusterCapacityProviderStrategyItem+ecsClusterCapacityProviderStrategyItem =+ ECSClusterCapacityProviderStrategyItem+ { _eCSClusterCapacityProviderStrategyItemBase = Nothing+ , _eCSClusterCapacityProviderStrategyItemCapacityProvider = Nothing+ , _eCSClusterCapacityProviderStrategyItemWeight = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-cluster-capacityproviderstrategyitem.html#cfn-ecs-cluster-capacityproviderstrategyitem-base+ecsccpsiBase :: Lens' ECSClusterCapacityProviderStrategyItem (Maybe (Val Integer))+ecsccpsiBase = lens _eCSClusterCapacityProviderStrategyItemBase (\s a -> s { _eCSClusterCapacityProviderStrategyItemBase = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-cluster-capacityproviderstrategyitem.html#cfn-ecs-cluster-capacityproviderstrategyitem-capacityprovider+ecsccpsiCapacityProvider :: Lens' ECSClusterCapacityProviderStrategyItem (Maybe (Val Text))+ecsccpsiCapacityProvider = lens _eCSClusterCapacityProviderStrategyItemCapacityProvider (\s a -> s { _eCSClusterCapacityProviderStrategyItemCapacityProvider = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-cluster-capacityproviderstrategyitem.html#cfn-ecs-cluster-capacityproviderstrategyitem-weight+ecsccpsiWeight :: Lens' ECSClusterCapacityProviderStrategyItem (Maybe (Val Integer))+ecsccpsiWeight = lens _eCSClusterCapacityProviderStrategyItemWeight (\s a -> s { _eCSClusterCapacityProviderStrategyItemWeight = a })
library-gen/Stratosphere/Resources.hs view
@@ -89,6 +89,7 @@ import Stratosphere.Resources.AppConfigDeployment as X import Stratosphere.Resources.AppConfigDeploymentStrategy as X import Stratosphere.Resources.AppConfigEnvironment as X+import Stratosphere.Resources.AppConfigHostedConfigurationVersion as X import Stratosphere.Resources.AppMeshMesh as X import Stratosphere.Resources.AppMeshRoute as X import Stratosphere.Resources.AppMeshVirtualNode as X@@ -226,7 +227,6 @@ import Stratosphere.Resources.EC2NetworkInterfaceAttachment as X import Stratosphere.Resources.EC2NetworkInterfacePermission as X import Stratosphere.Resources.EC2PlacementGroup as X-import Stratosphere.Resources.EC2PrefixList as X import Stratosphere.Resources.EC2Route as X import Stratosphere.Resources.EC2RouteTable as X import Stratosphere.Resources.EC2SecurityGroup as X@@ -263,6 +263,7 @@ import Stratosphere.Resources.EC2Volume as X import Stratosphere.Resources.EC2VolumeAttachment as X import Stratosphere.Resources.ECRRepository as X+import Stratosphere.Resources.ECSCapacityProvider as X import Stratosphere.Resources.ECSCluster as X import Stratosphere.Resources.ECSPrimaryTaskSet as X import Stratosphere.Resources.ECSService as X@@ -1031,7 +1032,6 @@ import Stratosphere.ResourceProperties.EC2NetworkAclEntryPortRange as X import Stratosphere.ResourceProperties.EC2NetworkInterfaceInstanceIpv6Address as X import Stratosphere.ResourceProperties.EC2NetworkInterfacePrivateIpAddressSpecification as X-import Stratosphere.ResourceProperties.EC2PrefixListEntry as X import Stratosphere.ResourceProperties.EC2SecurityGroupEgressProperty as X import Stratosphere.ResourceProperties.EC2SecurityGroupIngressProperty as X import Stratosphere.ResourceProperties.EC2SpotFleetBlockDeviceMapping as X@@ -1057,6 +1057,9 @@ import Stratosphere.ResourceProperties.EC2TrafficMirrorFilterRuleTrafficMirrorPortRange as X import Stratosphere.ResourceProperties.EC2VPNConnectionVpnTunnelOptionsSpecification as X import Stratosphere.ResourceProperties.ECRRepositoryLifecyclePolicy as X+import Stratosphere.ResourceProperties.ECSCapacityProviderAutoScalingGroupProvider as X+import Stratosphere.ResourceProperties.ECSCapacityProviderManagedScaling as X+import Stratosphere.ResourceProperties.ECSClusterCapacityProviderStrategyItem as X import Stratosphere.ResourceProperties.ECSClusterClusterSettings as X import Stratosphere.ResourceProperties.ECSServiceAwsVpcConfiguration as X import Stratosphere.ResourceProperties.ECSServiceDeploymentConfiguration as X
+ library-gen/Stratosphere/Resources/AppConfigHostedConfigurationVersion.hs view
@@ -0,0 +1,80 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-hostedconfigurationversion.html++module Stratosphere.Resources.AppConfigHostedConfigurationVersion where++import Stratosphere.ResourceImports+++-- | Full data type definition for AppConfigHostedConfigurationVersion. See+-- 'appConfigHostedConfigurationVersion' for a more convenient constructor.+data AppConfigHostedConfigurationVersion =+ AppConfigHostedConfigurationVersion+ { _appConfigHostedConfigurationVersionApplicationId :: Val Text+ , _appConfigHostedConfigurationVersionConfigurationProfileId :: Val Text+ , _appConfigHostedConfigurationVersionContent :: Val Text+ , _appConfigHostedConfigurationVersionContentType :: Val Text+ , _appConfigHostedConfigurationVersionDescription :: Maybe (Val Text)+ , _appConfigHostedConfigurationVersionLatestVersionNumber :: Maybe (Val Double)+ } deriving (Show, Eq)++instance ToResourceProperties AppConfigHostedConfigurationVersion where+ toResourceProperties AppConfigHostedConfigurationVersion{..} =+ ResourceProperties+ { resourcePropertiesType = "AWS::AppConfig::HostedConfigurationVersion"+ , resourcePropertiesProperties =+ hashMapFromList $ catMaybes+ [ (Just . ("ApplicationId",) . toJSON) _appConfigHostedConfigurationVersionApplicationId+ , (Just . ("ConfigurationProfileId",) . toJSON) _appConfigHostedConfigurationVersionConfigurationProfileId+ , (Just . ("Content",) . toJSON) _appConfigHostedConfigurationVersionContent+ , (Just . ("ContentType",) . toJSON) _appConfigHostedConfigurationVersionContentType+ , fmap (("Description",) . toJSON) _appConfigHostedConfigurationVersionDescription+ , fmap (("LatestVersionNumber",) . toJSON) _appConfigHostedConfigurationVersionLatestVersionNumber+ ]+ }++-- | Constructor for 'AppConfigHostedConfigurationVersion' containing required+-- fields as arguments.+appConfigHostedConfigurationVersion+ :: Val Text -- ^ 'achcvApplicationId'+ -> Val Text -- ^ 'achcvConfigurationProfileId'+ -> Val Text -- ^ 'achcvContent'+ -> Val Text -- ^ 'achcvContentType'+ -> AppConfigHostedConfigurationVersion+appConfigHostedConfigurationVersion applicationIdarg configurationProfileIdarg contentarg contentTypearg =+ AppConfigHostedConfigurationVersion+ { _appConfigHostedConfigurationVersionApplicationId = applicationIdarg+ , _appConfigHostedConfigurationVersionConfigurationProfileId = configurationProfileIdarg+ , _appConfigHostedConfigurationVersionContent = contentarg+ , _appConfigHostedConfigurationVersionContentType = contentTypearg+ , _appConfigHostedConfigurationVersionDescription = Nothing+ , _appConfigHostedConfigurationVersionLatestVersionNumber = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-hostedconfigurationversion.html#cfn-appconfig-hostedconfigurationversion-applicationid+achcvApplicationId :: Lens' AppConfigHostedConfigurationVersion (Val Text)+achcvApplicationId = lens _appConfigHostedConfigurationVersionApplicationId (\s a -> s { _appConfigHostedConfigurationVersionApplicationId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-hostedconfigurationversion.html#cfn-appconfig-hostedconfigurationversion-configurationprofileid+achcvConfigurationProfileId :: Lens' AppConfigHostedConfigurationVersion (Val Text)+achcvConfigurationProfileId = lens _appConfigHostedConfigurationVersionConfigurationProfileId (\s a -> s { _appConfigHostedConfigurationVersionConfigurationProfileId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-hostedconfigurationversion.html#cfn-appconfig-hostedconfigurationversion-content+achcvContent :: Lens' AppConfigHostedConfigurationVersion (Val Text)+achcvContent = lens _appConfigHostedConfigurationVersionContent (\s a -> s { _appConfigHostedConfigurationVersionContent = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-hostedconfigurationversion.html#cfn-appconfig-hostedconfigurationversion-contenttype+achcvContentType :: Lens' AppConfigHostedConfigurationVersion (Val Text)+achcvContentType = lens _appConfigHostedConfigurationVersionContentType (\s a -> s { _appConfigHostedConfigurationVersionContentType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-hostedconfigurationversion.html#cfn-appconfig-hostedconfigurationversion-description+achcvDescription :: Lens' AppConfigHostedConfigurationVersion (Maybe (Val Text))+achcvDescription = lens _appConfigHostedConfigurationVersionDescription (\s a -> s { _appConfigHostedConfigurationVersionDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-hostedconfigurationversion.html#cfn-appconfig-hostedconfigurationversion-latestversionnumber+achcvLatestVersionNumber :: Lens' AppConfigHostedConfigurationVersion (Maybe (Val Double))+achcvLatestVersionNumber = lens _appConfigHostedConfigurationVersionLatestVersionNumber (\s a -> s { _appConfigHostedConfigurationVersionLatestVersionNumber = a })
library-gen/Stratosphere/Resources/DataPipelinePipeline.hs view
@@ -9,7 +9,6 @@ import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.DataPipelinePipelineParameterObject-import Stratosphere.ResourceProperties.DataPipelinePipelineParameterValue import Stratosphere.ResourceProperties.DataPipelinePipelinePipelineObject import Stratosphere.ResourceProperties.DataPipelinePipelinePipelineTag @@ -21,7 +20,6 @@ , _dataPipelinePipelineDescription :: Maybe (Val Text) , _dataPipelinePipelineName :: Val Text , _dataPipelinePipelineParameterObjects :: [DataPipelinePipelineParameterObject]- , _dataPipelinePipelineParameterValues :: Maybe [DataPipelinePipelineParameterValue] , _dataPipelinePipelinePipelineObjects :: Maybe [DataPipelinePipelinePipelineObject] , _dataPipelinePipelinePipelineTags :: Maybe [DataPipelinePipelinePipelineTag] } deriving (Show, Eq)@@ -36,7 +34,6 @@ , fmap (("Description",) . toJSON) _dataPipelinePipelineDescription , (Just . ("Name",) . toJSON) _dataPipelinePipelineName , (Just . ("ParameterObjects",) . toJSON) _dataPipelinePipelineParameterObjects- , fmap (("ParameterValues",) . toJSON) _dataPipelinePipelineParameterValues , fmap (("PipelineObjects",) . toJSON) _dataPipelinePipelinePipelineObjects , fmap (("PipelineTags",) . toJSON) _dataPipelinePipelinePipelineTags ]@@ -54,7 +51,6 @@ , _dataPipelinePipelineDescription = Nothing , _dataPipelinePipelineName = namearg , _dataPipelinePipelineParameterObjects = parameterObjectsarg- , _dataPipelinePipelineParameterValues = Nothing , _dataPipelinePipelinePipelineObjects = Nothing , _dataPipelinePipelinePipelineTags = Nothing }@@ -74,10 +70,6 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-datapipeline-pipeline.html#cfn-datapipeline-pipeline-parameterobjects dppParameterObjects :: Lens' DataPipelinePipeline [DataPipelinePipelineParameterObject] dppParameterObjects = lens _dataPipelinePipelineParameterObjects (\s a -> s { _dataPipelinePipelineParameterObjects = a })---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-datapipeline-pipeline.html#cfn-datapipeline-pipeline-parametervalues-dppParameterValues :: Lens' DataPipelinePipeline (Maybe [DataPipelinePipelineParameterValue])-dppParameterValues = lens _dataPipelinePipelineParameterValues (\s a -> s { _dataPipelinePipelineParameterValues = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-datapipeline-pipeline.html#cfn-datapipeline-pipeline-pipelineobjects dppPipelineObjects :: Lens' DataPipelinePipeline (Maybe [DataPipelinePipelinePipelineObject])
− library-gen/Stratosphere/Resources/EC2PrefixList.hs
@@ -1,72 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE StrictData #-}-{-# LANGUAGE TupleSections #-}---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-prefixlist.html--module Stratosphere.Resources.EC2PrefixList where--import Stratosphere.ResourceImports-import Stratosphere.ResourceProperties.EC2PrefixListEntry-import Stratosphere.ResourceProperties.Tag---- | Full data type definition for EC2PrefixList. See 'ec2PrefixList' for a--- more convenient constructor.-data EC2PrefixList =- EC2PrefixList- { _eC2PrefixListAddressFamily :: Val Text- , _eC2PrefixListEntries :: Maybe [EC2PrefixListEntry]- , _eC2PrefixListMaxEntries :: Val Integer- , _eC2PrefixListPrefixListName :: Val Text- , _eC2PrefixListTags :: Maybe [Tag]- } deriving (Show, Eq)--instance ToResourceProperties EC2PrefixList where- toResourceProperties EC2PrefixList{..} =- ResourceProperties- { resourcePropertiesType = "AWS::EC2::PrefixList"- , resourcePropertiesProperties =- hashMapFromList $ catMaybes- [ (Just . ("AddressFamily",) . toJSON) _eC2PrefixListAddressFamily- , fmap (("Entries",) . toJSON) _eC2PrefixListEntries- , (Just . ("MaxEntries",) . toJSON) _eC2PrefixListMaxEntries- , (Just . ("PrefixListName",) . toJSON) _eC2PrefixListPrefixListName- , fmap (("Tags",) . toJSON) _eC2PrefixListTags- ]- }---- | Constructor for 'EC2PrefixList' containing required fields as arguments.-ec2PrefixList- :: Val Text -- ^ 'ecplAddressFamily'- -> Val Integer -- ^ 'ecplMaxEntries'- -> Val Text -- ^ 'ecplPrefixListName'- -> EC2PrefixList-ec2PrefixList addressFamilyarg maxEntriesarg prefixListNamearg =- EC2PrefixList- { _eC2PrefixListAddressFamily = addressFamilyarg- , _eC2PrefixListEntries = Nothing- , _eC2PrefixListMaxEntries = maxEntriesarg- , _eC2PrefixListPrefixListName = prefixListNamearg- , _eC2PrefixListTags = Nothing- }---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-prefixlist.html#cfn-ec2-prefixlist-addressfamily-ecplAddressFamily :: Lens' EC2PrefixList (Val Text)-ecplAddressFamily = lens _eC2PrefixListAddressFamily (\s a -> s { _eC2PrefixListAddressFamily = a })---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-prefixlist.html#cfn-ec2-prefixlist-entries-ecplEntries :: Lens' EC2PrefixList (Maybe [EC2PrefixListEntry])-ecplEntries = lens _eC2PrefixListEntries (\s a -> s { _eC2PrefixListEntries = a })---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-prefixlist.html#cfn-ec2-prefixlist-maxentries-ecplMaxEntries :: Lens' EC2PrefixList (Val Integer)-ecplMaxEntries = lens _eC2PrefixListMaxEntries (\s a -> s { _eC2PrefixListMaxEntries = a })---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-prefixlist.html#cfn-ec2-prefixlist-prefixlistname-ecplPrefixListName :: Lens' EC2PrefixList (Val Text)-ecplPrefixListName = lens _eC2PrefixListPrefixListName (\s a -> s { _eC2PrefixListPrefixListName = a })---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-prefixlist.html#cfn-ec2-prefixlist-tags-ecplTags :: Lens' EC2PrefixList (Maybe [Tag])-ecplTags = lens _eC2PrefixListTags (\s a -> s { _eC2PrefixListTags = a })
+ library-gen/Stratosphere/Resources/ECSCapacityProvider.hs view
@@ -0,0 +1,57 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-capacityprovider.html++module Stratosphere.Resources.ECSCapacityProvider where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.ECSCapacityProviderAutoScalingGroupProvider+import Stratosphere.ResourceProperties.Tag++-- | Full data type definition for ECSCapacityProvider. See+-- 'ecsCapacityProvider' for a more convenient constructor.+data ECSCapacityProvider =+ ECSCapacityProvider+ { _eCSCapacityProviderAutoScalingGroupProvider :: ECSCapacityProviderAutoScalingGroupProvider+ , _eCSCapacityProviderName :: Maybe (Val Text)+ , _eCSCapacityProviderTags :: Maybe [Tag]+ } deriving (Show, Eq)++instance ToResourceProperties ECSCapacityProvider where+ toResourceProperties ECSCapacityProvider{..} =+ ResourceProperties+ { resourcePropertiesType = "AWS::ECS::CapacityProvider"+ , resourcePropertiesProperties =+ hashMapFromList $ catMaybes+ [ (Just . ("AutoScalingGroupProvider",) . toJSON) _eCSCapacityProviderAutoScalingGroupProvider+ , fmap (("Name",) . toJSON) _eCSCapacityProviderName+ , fmap (("Tags",) . toJSON) _eCSCapacityProviderTags+ ]+ }++-- | Constructor for 'ECSCapacityProvider' containing required fields as+-- arguments.+ecsCapacityProvider+ :: ECSCapacityProviderAutoScalingGroupProvider -- ^ 'ecscpAutoScalingGroupProvider'+ -> ECSCapacityProvider+ecsCapacityProvider autoScalingGroupProviderarg =+ ECSCapacityProvider+ { _eCSCapacityProviderAutoScalingGroupProvider = autoScalingGroupProviderarg+ , _eCSCapacityProviderName = Nothing+ , _eCSCapacityProviderTags = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-capacityprovider.html#cfn-ecs-capacityprovider-autoscalinggroupprovider+ecscpAutoScalingGroupProvider :: Lens' ECSCapacityProvider ECSCapacityProviderAutoScalingGroupProvider+ecscpAutoScalingGroupProvider = lens _eCSCapacityProviderAutoScalingGroupProvider (\s a -> s { _eCSCapacityProviderAutoScalingGroupProvider = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-capacityprovider.html#cfn-ecs-capacityprovider-name+ecscpName :: Lens' ECSCapacityProvider (Maybe (Val Text))+ecscpName = lens _eCSCapacityProviderName (\s a -> s { _eCSCapacityProviderName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-capacityprovider.html#cfn-ecs-capacityprovider-tags+ecscpTags :: Lens' ECSCapacityProvider (Maybe [Tag])+ecscpTags = lens _eCSCapacityProviderTags (\s a -> s { _eCSCapacityProviderTags = a })
library-gen/Stratosphere/Resources/ECSCluster.hs view
@@ -9,14 +9,17 @@ import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.ECSClusterClusterSettings+import Stratosphere.ResourceProperties.ECSClusterCapacityProviderStrategyItem import Stratosphere.ResourceProperties.Tag -- | Full data type definition for ECSCluster. See 'ecsCluster' for a more -- convenient constructor. data ECSCluster = ECSCluster- { _eCSClusterClusterName :: Maybe (Val Text)+ { _eCSClusterCapacityProviders :: Maybe (ValList Text)+ , _eCSClusterClusterName :: Maybe (Val Text) , _eCSClusterClusterSettings :: Maybe [ECSClusterClusterSettings]+ , _eCSClusterDefaultCapacityProviderStrategy :: Maybe [ECSClusterCapacityProviderStrategyItem] , _eCSClusterTags :: Maybe [Tag] } deriving (Show, Eq) @@ -26,8 +29,10 @@ { resourcePropertiesType = "AWS::ECS::Cluster" , resourcePropertiesProperties = hashMapFromList $ catMaybes- [ fmap (("ClusterName",) . toJSON) _eCSClusterClusterName+ [ fmap (("CapacityProviders",) . toJSON) _eCSClusterCapacityProviders+ , fmap (("ClusterName",) . toJSON) _eCSClusterClusterName , fmap (("ClusterSettings",) . toJSON) _eCSClusterClusterSettings+ , fmap (("DefaultCapacityProviderStrategy",) . toJSON) _eCSClusterDefaultCapacityProviderStrategy , fmap (("Tags",) . toJSON) _eCSClusterTags ] }@@ -37,11 +42,17 @@ :: ECSCluster ecsCluster = ECSCluster- { _eCSClusterClusterName = Nothing+ { _eCSClusterCapacityProviders = Nothing+ , _eCSClusterClusterName = Nothing , _eCSClusterClusterSettings = Nothing+ , _eCSClusterDefaultCapacityProviderStrategy = Nothing , _eCSClusterTags = Nothing } +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-cluster.html#cfn-ecs-cluster-capacityproviders+ecscCapacityProviders :: Lens' ECSCluster (Maybe (ValList Text))+ecscCapacityProviders = lens _eCSClusterCapacityProviders (\s a -> s { _eCSClusterCapacityProviders = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-cluster.html#cfn-ecs-cluster-clustername ecscClusterName :: Lens' ECSCluster (Maybe (Val Text)) ecscClusterName = lens _eCSClusterClusterName (\s a -> s { _eCSClusterClusterName = a })@@ -49,6 +60,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-cluster.html#cfn-ecs-cluster-clustersettings ecscClusterSettings :: Lens' ECSCluster (Maybe [ECSClusterClusterSettings]) ecscClusterSettings = lens _eCSClusterClusterSettings (\s a -> s { _eCSClusterClusterSettings = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-cluster.html#cfn-ecs-cluster-defaultcapacityproviderstrategy+ecscDefaultCapacityProviderStrategy :: Lens' ECSCluster (Maybe [ECSClusterCapacityProviderStrategyItem])+ecscDefaultCapacityProviderStrategy = lens _eCSClusterDefaultCapacityProviderStrategy (\s a -> s { _eCSClusterDefaultCapacityProviderStrategy = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-cluster.html#cfn-ecs-cluster-tags ecscTags :: Lens' ECSCluster (Maybe [Tag])
library-gen/Stratosphere/Resources/ServiceDiscoveryHttpNamespace.hs view
@@ -8,7 +8,7 @@ module Stratosphere.Resources.ServiceDiscoveryHttpNamespace where import Stratosphere.ResourceImports-+import Stratosphere.ResourceProperties.Tag -- | Full data type definition for ServiceDiscoveryHttpNamespace. See -- 'serviceDiscoveryHttpNamespace' for a more convenient constructor.@@ -16,6 +16,7 @@ ServiceDiscoveryHttpNamespace { _serviceDiscoveryHttpNamespaceDescription :: Maybe (Val Text) , _serviceDiscoveryHttpNamespaceName :: Val Text+ , _serviceDiscoveryHttpNamespaceTags :: Maybe [Tag] } deriving (Show, Eq) instance ToResourceProperties ServiceDiscoveryHttpNamespace where@@ -26,6 +27,7 @@ hashMapFromList $ catMaybes [ fmap (("Description",) . toJSON) _serviceDiscoveryHttpNamespaceDescription , (Just . ("Name",) . toJSON) _serviceDiscoveryHttpNamespaceName+ , fmap (("Tags",) . toJSON) _serviceDiscoveryHttpNamespaceTags ] } @@ -38,6 +40,7 @@ ServiceDiscoveryHttpNamespace { _serviceDiscoveryHttpNamespaceDescription = Nothing , _serviceDiscoveryHttpNamespaceName = namearg+ , _serviceDiscoveryHttpNamespaceTags = Nothing } -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-httpnamespace.html#cfn-servicediscovery-httpnamespace-description@@ -47,3 +50,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-httpnamespace.html#cfn-servicediscovery-httpnamespace-name sdhnName :: Lens' ServiceDiscoveryHttpNamespace (Val Text) sdhnName = lens _serviceDiscoveryHttpNamespaceName (\s a -> s { _serviceDiscoveryHttpNamespaceName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-httpnamespace.html#cfn-servicediscovery-httpnamespace-tags+sdhnTags :: Lens' ServiceDiscoveryHttpNamespace (Maybe [Tag])+sdhnTags = lens _serviceDiscoveryHttpNamespaceTags (\s a -> s { _serviceDiscoveryHttpNamespaceTags = a })
library-gen/Stratosphere/Resources/ServiceDiscoveryPrivateDnsNamespace.hs view
@@ -8,7 +8,7 @@ module Stratosphere.Resources.ServiceDiscoveryPrivateDnsNamespace where import Stratosphere.ResourceImports-+import Stratosphere.ResourceProperties.Tag -- | Full data type definition for ServiceDiscoveryPrivateDnsNamespace. See -- 'serviceDiscoveryPrivateDnsNamespace' for a more convenient constructor.@@ -16,6 +16,7 @@ ServiceDiscoveryPrivateDnsNamespace { _serviceDiscoveryPrivateDnsNamespaceDescription :: Maybe (Val Text) , _serviceDiscoveryPrivateDnsNamespaceName :: Val Text+ , _serviceDiscoveryPrivateDnsNamespaceTags :: Maybe [Tag] , _serviceDiscoveryPrivateDnsNamespaceVpc :: Val Text } deriving (Show, Eq) @@ -27,6 +28,7 @@ hashMapFromList $ catMaybes [ fmap (("Description",) . toJSON) _serviceDiscoveryPrivateDnsNamespaceDescription , (Just . ("Name",) . toJSON) _serviceDiscoveryPrivateDnsNamespaceName+ , fmap (("Tags",) . toJSON) _serviceDiscoveryPrivateDnsNamespaceTags , (Just . ("Vpc",) . toJSON) _serviceDiscoveryPrivateDnsNamespaceVpc ] }@@ -41,6 +43,7 @@ ServiceDiscoveryPrivateDnsNamespace { _serviceDiscoveryPrivateDnsNamespaceDescription = Nothing , _serviceDiscoveryPrivateDnsNamespaceName = namearg+ , _serviceDiscoveryPrivateDnsNamespaceTags = Nothing , _serviceDiscoveryPrivateDnsNamespaceVpc = vpcarg } @@ -51,6 +54,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-privatednsnamespace.html#cfn-servicediscovery-privatednsnamespace-name sdprdnName :: Lens' ServiceDiscoveryPrivateDnsNamespace (Val Text) sdprdnName = lens _serviceDiscoveryPrivateDnsNamespaceName (\s a -> s { _serviceDiscoveryPrivateDnsNamespaceName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-privatednsnamespace.html#cfn-servicediscovery-privatednsnamespace-tags+sdprdnTags :: Lens' ServiceDiscoveryPrivateDnsNamespace (Maybe [Tag])+sdprdnTags = lens _serviceDiscoveryPrivateDnsNamespaceTags (\s a -> s { _serviceDiscoveryPrivateDnsNamespaceTags = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-privatednsnamespace.html#cfn-servicediscovery-privatednsnamespace-vpc sdprdnVpc :: Lens' ServiceDiscoveryPrivateDnsNamespace (Val Text)
library-gen/Stratosphere/Resources/ServiceDiscoveryPublicDnsNamespace.hs view
@@ -8,7 +8,7 @@ module Stratosphere.Resources.ServiceDiscoveryPublicDnsNamespace where import Stratosphere.ResourceImports-+import Stratosphere.ResourceProperties.Tag -- | Full data type definition for ServiceDiscoveryPublicDnsNamespace. See -- 'serviceDiscoveryPublicDnsNamespace' for a more convenient constructor.@@ -16,6 +16,7 @@ ServiceDiscoveryPublicDnsNamespace { _serviceDiscoveryPublicDnsNamespaceDescription :: Maybe (Val Text) , _serviceDiscoveryPublicDnsNamespaceName :: Val Text+ , _serviceDiscoveryPublicDnsNamespaceTags :: Maybe [Tag] } deriving (Show, Eq) instance ToResourceProperties ServiceDiscoveryPublicDnsNamespace where@@ -26,6 +27,7 @@ hashMapFromList $ catMaybes [ fmap (("Description",) . toJSON) _serviceDiscoveryPublicDnsNamespaceDescription , (Just . ("Name",) . toJSON) _serviceDiscoveryPublicDnsNamespaceName+ , fmap (("Tags",) . toJSON) _serviceDiscoveryPublicDnsNamespaceTags ] } @@ -38,6 +40,7 @@ ServiceDiscoveryPublicDnsNamespace { _serviceDiscoveryPublicDnsNamespaceDescription = Nothing , _serviceDiscoveryPublicDnsNamespaceName = namearg+ , _serviceDiscoveryPublicDnsNamespaceTags = Nothing } -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-publicdnsnamespace.html#cfn-servicediscovery-publicdnsnamespace-description@@ -47,3 +50,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-publicdnsnamespace.html#cfn-servicediscovery-publicdnsnamespace-name sdpudnName :: Lens' ServiceDiscoveryPublicDnsNamespace (Val Text) sdpudnName = lens _serviceDiscoveryPublicDnsNamespaceName (\s a -> s { _serviceDiscoveryPublicDnsNamespaceName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-publicdnsnamespace.html#cfn-servicediscovery-publicdnsnamespace-tags+sdpudnTags :: Lens' ServiceDiscoveryPublicDnsNamespace (Maybe [Tag])+sdpudnTags = lens _serviceDiscoveryPublicDnsNamespaceTags (\s a -> s { _serviceDiscoveryPublicDnsNamespaceTags = a })
library-gen/Stratosphere/Resources/ServiceDiscoveryService.hs view
@@ -11,6 +11,7 @@ import Stratosphere.ResourceProperties.ServiceDiscoveryServiceDnsConfig import Stratosphere.ResourceProperties.ServiceDiscoveryServiceHealthCheckConfig import Stratosphere.ResourceProperties.ServiceDiscoveryServiceHealthCheckCustomConfig+import Stratosphere.ResourceProperties.Tag -- | Full data type definition for ServiceDiscoveryService. See -- 'serviceDiscoveryService' for a more convenient constructor.@@ -22,6 +23,7 @@ , _serviceDiscoveryServiceHealthCheckCustomConfig :: Maybe ServiceDiscoveryServiceHealthCheckCustomConfig , _serviceDiscoveryServiceName :: Maybe (Val Text) , _serviceDiscoveryServiceNamespaceId :: Maybe (Val Text)+ , _serviceDiscoveryServiceTags :: Maybe [Tag] } deriving (Show, Eq) instance ToResourceProperties ServiceDiscoveryService where@@ -36,6 +38,7 @@ , fmap (("HealthCheckCustomConfig",) . toJSON) _serviceDiscoveryServiceHealthCheckCustomConfig , fmap (("Name",) . toJSON) _serviceDiscoveryServiceName , fmap (("NamespaceId",) . toJSON) _serviceDiscoveryServiceNamespaceId+ , fmap (("Tags",) . toJSON) _serviceDiscoveryServiceTags ] } @@ -51,6 +54,7 @@ , _serviceDiscoveryServiceHealthCheckCustomConfig = Nothing , _serviceDiscoveryServiceName = Nothing , _serviceDiscoveryServiceNamespaceId = Nothing+ , _serviceDiscoveryServiceTags = Nothing } -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-service.html#cfn-servicediscovery-service-description@@ -76,3 +80,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-service.html#cfn-servicediscovery-service-namespaceid sdsNamespaceId :: Lens' ServiceDiscoveryService (Maybe (Val Text)) sdsNamespaceId = lens _serviceDiscoveryServiceNamespaceId (\s a -> s { _serviceDiscoveryServiceNamespaceId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-service.html#cfn-servicediscovery-service-tags+sdsTags :: Lens' ServiceDiscoveryService (Maybe [Tag])+sdsTags = lens _serviceDiscoveryServiceTags (\s a -> s { _serviceDiscoveryServiceTags = a })
stratosphere.cabal view
@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 558d8697844ceae54a906e27f7ea27a528dee32d412141b9b7807a7bd4273cb6+-- hash: 0f3595917beabb179bd54f483b5f0bf8fd232482a243e91153db9f49d64f6c0f name: stratosphere-version: 0.54.0+version: 0.55.0 synopsis: EDSL for AWS CloudFormation description: EDSL for AWS CloudFormation category: AWS, Cloud@@ -499,7 +499,6 @@ Stratosphere.ResourceProperties.EC2NetworkAclEntryPortRange Stratosphere.ResourceProperties.EC2NetworkInterfaceInstanceIpv6Address Stratosphere.ResourceProperties.EC2NetworkInterfacePrivateIpAddressSpecification- Stratosphere.ResourceProperties.EC2PrefixListEntry Stratosphere.ResourceProperties.EC2SecurityGroupEgressProperty Stratosphere.ResourceProperties.EC2SecurityGroupIngressProperty Stratosphere.ResourceProperties.EC2SpotFleetBlockDeviceMapping@@ -525,6 +524,9 @@ Stratosphere.ResourceProperties.EC2TrafficMirrorFilterRuleTrafficMirrorPortRange Stratosphere.ResourceProperties.EC2VPNConnectionVpnTunnelOptionsSpecification Stratosphere.ResourceProperties.ECRRepositoryLifecyclePolicy+ Stratosphere.ResourceProperties.ECSCapacityProviderAutoScalingGroupProvider+ Stratosphere.ResourceProperties.ECSCapacityProviderManagedScaling+ Stratosphere.ResourceProperties.ECSClusterCapacityProviderStrategyItem Stratosphere.ResourceProperties.ECSClusterClusterSettings Stratosphere.ResourceProperties.ECSServiceAwsVpcConfiguration Stratosphere.ResourceProperties.ECSServiceDeploymentConfiguration@@ -1449,6 +1451,7 @@ Stratosphere.Resources.AppConfigDeployment Stratosphere.Resources.AppConfigDeploymentStrategy Stratosphere.Resources.AppConfigEnvironment+ Stratosphere.Resources.AppConfigHostedConfigurationVersion Stratosphere.Resources.ApplicationAutoScalingScalableTarget Stratosphere.Resources.ApplicationAutoScalingScalingPolicy Stratosphere.Resources.AppMeshMesh@@ -1587,7 +1590,6 @@ Stratosphere.Resources.EC2NetworkInterfaceAttachment Stratosphere.Resources.EC2NetworkInterfacePermission Stratosphere.Resources.EC2PlacementGroup- Stratosphere.Resources.EC2PrefixList Stratosphere.Resources.EC2Route Stratosphere.Resources.EC2RouteTable Stratosphere.Resources.EC2SecurityGroup@@ -1624,6 +1626,7 @@ Stratosphere.Resources.EC2VPNGateway Stratosphere.Resources.EC2VPNGatewayRoutePropagation Stratosphere.Resources.ECRRepository+ Stratosphere.Resources.ECSCapacityProvider Stratosphere.Resources.ECSCluster Stratosphere.Resources.ECSPrimaryTaskSet Stratosphere.Resources.ECSService