stratosphere 0.47.0 → 0.48.0
raw patch · 16 files changed
+378/−30 lines, 16 files
Files
- CHANGELOG.md +4/−0
- library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupLaunchTemplateOverrides.hs +7/−0
- library-gen/Stratosphere/ResourceProperties/EC2InstanceHibernationOptions.hs +38/−0
- library-gen/Stratosphere/ResourceProperties/SSMResourceDataSyncAwsOrganizationsSource.hs +47/−0
- library-gen/Stratosphere/ResourceProperties/SSMResourceDataSyncS3Destination.hs +69/−0
- library-gen/Stratosphere/ResourceProperties/SSMResourceDataSyncSyncSource.hs +61/−0
- library-gen/Stratosphere/ResourceProperties/TransferUserHomeDirectoryMapEntry.hs +47/−0
- library-gen/Stratosphere/Resources.hs +5/−0
- library-gen/Stratosphere/Resources/AppStreamFleet.hs +6/−5
- library-gen/Stratosphere/Resources/AppStreamImageBuilder.hs +6/−5
- library-gen/Stratosphere/Resources/EC2Instance.hs +15/−0
- library-gen/Stratosphere/Resources/IoTEventsDetectorModel.hs +7/−0
- library-gen/Stratosphere/Resources/RDSDBInstance.hs +7/−0
- library-gen/Stratosphere/Resources/SSMResourceDataSync.hs +37/−18
- library-gen/Stratosphere/Resources/TransferUser.hs +15/−0
- stratosphere.cabal +7/−2
CHANGELOG.md view
@@ -1,5 +1,9 @@ # Change Log +## 0.48.0++* Update resource specification document to version 10.3.0+ ## 0.47.0 * Update resource specification document to version 10.2.0
library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupLaunchTemplateOverrides.hs view
@@ -17,6 +17,7 @@ data AutoScalingAutoScalingGroupLaunchTemplateOverrides = AutoScalingAutoScalingGroupLaunchTemplateOverrides { _autoScalingAutoScalingGroupLaunchTemplateOverridesInstanceType :: Maybe (Val Text)+ , _autoScalingAutoScalingGroupLaunchTemplateOverridesWeightedCapacity :: Maybe (Val Text) } deriving (Show, Eq) instance ToJSON AutoScalingAutoScalingGroupLaunchTemplateOverrides where@@ -24,6 +25,7 @@ object $ catMaybes [ fmap (("InstanceType",) . toJSON) _autoScalingAutoScalingGroupLaunchTemplateOverridesInstanceType+ , fmap (("WeightedCapacity",) . toJSON) _autoScalingAutoScalingGroupLaunchTemplateOverridesWeightedCapacity ] -- | Constructor for 'AutoScalingAutoScalingGroupLaunchTemplateOverrides'@@ -33,8 +35,13 @@ autoScalingAutoScalingGroupLaunchTemplateOverrides = AutoScalingAutoScalingGroupLaunchTemplateOverrides { _autoScalingAutoScalingGroupLaunchTemplateOverridesInstanceType = Nothing+ , _autoScalingAutoScalingGroupLaunchTemplateOverridesWeightedCapacity = Nothing } -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/cfn-as-mixedinstancespolicy-launchtemplateoverrides.html#cfn-autoscaling-autoscalinggroup-launchtemplateoverrides-instancetype asasgltoInstanceType :: Lens' AutoScalingAutoScalingGroupLaunchTemplateOverrides (Maybe (Val Text)) asasgltoInstanceType = lens _autoScalingAutoScalingGroupLaunchTemplateOverridesInstanceType (\s a -> s { _autoScalingAutoScalingGroupLaunchTemplateOverridesInstanceType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/cfn-as-mixedinstancespolicy-launchtemplateoverrides.html#cfn-autoscaling-autoscalinggroup-launchtemplateoverrides-weightedcapacity+asasgltoWeightedCapacity :: Lens' AutoScalingAutoScalingGroupLaunchTemplateOverrides (Maybe (Val Text))+asasgltoWeightedCapacity = lens _autoScalingAutoScalingGroupLaunchTemplateOverridesWeightedCapacity (\s a -> s { _autoScalingAutoScalingGroupLaunchTemplateOverridesWeightedCapacity = a })
+ library-gen/Stratosphere/ResourceProperties/EC2InstanceHibernationOptions.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance-hibernationoptions.html++module Stratosphere.ResourceProperties.EC2InstanceHibernationOptions where++import Stratosphere.ResourceImports+++-- | Full data type definition for EC2InstanceHibernationOptions. See+-- 'ec2InstanceHibernationOptions' for a more convenient constructor.+data EC2InstanceHibernationOptions =+ EC2InstanceHibernationOptions+ { _eC2InstanceHibernationOptionsConfigured :: Maybe (Val Bool)+ } deriving (Show, Eq)++instance ToJSON EC2InstanceHibernationOptions where+ toJSON EC2InstanceHibernationOptions{..} =+ object $+ catMaybes+ [ fmap (("Configured",) . toJSON) _eC2InstanceHibernationOptionsConfigured+ ]++-- | Constructor for 'EC2InstanceHibernationOptions' containing required+-- fields as arguments.+ec2InstanceHibernationOptions+ :: EC2InstanceHibernationOptions+ec2InstanceHibernationOptions =+ EC2InstanceHibernationOptions+ { _eC2InstanceHibernationOptionsConfigured = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance-hibernationoptions.html#cfn-ec2-instance-hibernationoptions-configured+ecihoConfigured :: Lens' EC2InstanceHibernationOptions (Maybe (Val Bool))+ecihoConfigured = lens _eC2InstanceHibernationOptionsConfigured (\s a -> s { _eC2InstanceHibernationOptionsConfigured = a })
+ library-gen/Stratosphere/ResourceProperties/SSMResourceDataSyncAwsOrganizationsSource.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-resourcedatasync-awsorganizationssource.html++module Stratosphere.ResourceProperties.SSMResourceDataSyncAwsOrganizationsSource where++import Stratosphere.ResourceImports+++-- | Full data type definition for SSMResourceDataSyncAwsOrganizationsSource.+-- See 'ssmResourceDataSyncAwsOrganizationsSource' for a more convenient+-- constructor.+data SSMResourceDataSyncAwsOrganizationsSource =+ SSMResourceDataSyncAwsOrganizationsSource+ { _sSMResourceDataSyncAwsOrganizationsSourceOrganizationSourceType :: Val Text+ , _sSMResourceDataSyncAwsOrganizationsSourceOrganizationalUnits :: Maybe (ValList Text)+ } deriving (Show, Eq)++instance ToJSON SSMResourceDataSyncAwsOrganizationsSource where+ toJSON SSMResourceDataSyncAwsOrganizationsSource{..} =+ object $+ catMaybes+ [ (Just . ("OrganizationSourceType",) . toJSON) _sSMResourceDataSyncAwsOrganizationsSourceOrganizationSourceType+ , fmap (("OrganizationalUnits",) . toJSON) _sSMResourceDataSyncAwsOrganizationsSourceOrganizationalUnits+ ]++-- | Constructor for 'SSMResourceDataSyncAwsOrganizationsSource' containing+-- required fields as arguments.+ssmResourceDataSyncAwsOrganizationsSource+ :: Val Text -- ^ 'ssmrdsaosOrganizationSourceType'+ -> SSMResourceDataSyncAwsOrganizationsSource+ssmResourceDataSyncAwsOrganizationsSource organizationSourceTypearg =+ SSMResourceDataSyncAwsOrganizationsSource+ { _sSMResourceDataSyncAwsOrganizationsSourceOrganizationSourceType = organizationSourceTypearg+ , _sSMResourceDataSyncAwsOrganizationsSourceOrganizationalUnits = Nothing+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-resourcedatasync-awsorganizationssource.html#cfn-ssm-resourcedatasync-awsorganizationssource-organizationsourcetype+ssmrdsaosOrganizationSourceType :: Lens' SSMResourceDataSyncAwsOrganizationsSource (Val Text)+ssmrdsaosOrganizationSourceType = lens _sSMResourceDataSyncAwsOrganizationsSourceOrganizationSourceType (\s a -> s { _sSMResourceDataSyncAwsOrganizationsSourceOrganizationSourceType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-resourcedatasync-awsorganizationssource.html#cfn-ssm-resourcedatasync-awsorganizationssource-organizationalunits+ssmrdsaosOrganizationalUnits :: Lens' SSMResourceDataSyncAwsOrganizationsSource (Maybe (ValList Text))+ssmrdsaosOrganizationalUnits = lens _sSMResourceDataSyncAwsOrganizationsSourceOrganizationalUnits (\s a -> s { _sSMResourceDataSyncAwsOrganizationsSourceOrganizationalUnits = a })
+ library-gen/Stratosphere/ResourceProperties/SSMResourceDataSyncS3Destination.hs view
@@ -0,0 +1,69 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-resourcedatasync-s3destination.html++module Stratosphere.ResourceProperties.SSMResourceDataSyncS3Destination where++import Stratosphere.ResourceImports+++-- | Full data type definition for SSMResourceDataSyncS3Destination. See+-- 'ssmResourceDataSyncS3Destination' for a more convenient constructor.+data SSMResourceDataSyncS3Destination =+ SSMResourceDataSyncS3Destination+ { _sSMResourceDataSyncS3DestinationBucketName :: Val Text+ , _sSMResourceDataSyncS3DestinationBucketPrefix :: Maybe (Val Text)+ , _sSMResourceDataSyncS3DestinationBucketRegion :: Val Text+ , _sSMResourceDataSyncS3DestinationKMSKeyArn :: Maybe (Val Text)+ , _sSMResourceDataSyncS3DestinationSyncFormat :: Val Text+ } deriving (Show, Eq)++instance ToJSON SSMResourceDataSyncS3Destination where+ toJSON SSMResourceDataSyncS3Destination{..} =+ object $+ catMaybes+ [ (Just . ("BucketName",) . toJSON) _sSMResourceDataSyncS3DestinationBucketName+ , fmap (("BucketPrefix",) . toJSON) _sSMResourceDataSyncS3DestinationBucketPrefix+ , (Just . ("BucketRegion",) . toJSON) _sSMResourceDataSyncS3DestinationBucketRegion+ , fmap (("KMSKeyArn",) . toJSON) _sSMResourceDataSyncS3DestinationKMSKeyArn+ , (Just . ("SyncFormat",) . toJSON) _sSMResourceDataSyncS3DestinationSyncFormat+ ]++-- | Constructor for 'SSMResourceDataSyncS3Destination' containing required+-- fields as arguments.+ssmResourceDataSyncS3Destination+ :: Val Text -- ^ 'ssmrdssdBucketName'+ -> Val Text -- ^ 'ssmrdssdBucketRegion'+ -> Val Text -- ^ 'ssmrdssdSyncFormat'+ -> SSMResourceDataSyncS3Destination+ssmResourceDataSyncS3Destination bucketNamearg bucketRegionarg syncFormatarg =+ SSMResourceDataSyncS3Destination+ { _sSMResourceDataSyncS3DestinationBucketName = bucketNamearg+ , _sSMResourceDataSyncS3DestinationBucketPrefix = Nothing+ , _sSMResourceDataSyncS3DestinationBucketRegion = bucketRegionarg+ , _sSMResourceDataSyncS3DestinationKMSKeyArn = Nothing+ , _sSMResourceDataSyncS3DestinationSyncFormat = syncFormatarg+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-resourcedatasync-s3destination.html#cfn-ssm-resourcedatasync-s3destination-bucketname+ssmrdssdBucketName :: Lens' SSMResourceDataSyncS3Destination (Val Text)+ssmrdssdBucketName = lens _sSMResourceDataSyncS3DestinationBucketName (\s a -> s { _sSMResourceDataSyncS3DestinationBucketName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-resourcedatasync-s3destination.html#cfn-ssm-resourcedatasync-s3destination-bucketprefix+ssmrdssdBucketPrefix :: Lens' SSMResourceDataSyncS3Destination (Maybe (Val Text))+ssmrdssdBucketPrefix = lens _sSMResourceDataSyncS3DestinationBucketPrefix (\s a -> s { _sSMResourceDataSyncS3DestinationBucketPrefix = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-resourcedatasync-s3destination.html#cfn-ssm-resourcedatasync-s3destination-bucketregion+ssmrdssdBucketRegion :: Lens' SSMResourceDataSyncS3Destination (Val Text)+ssmrdssdBucketRegion = lens _sSMResourceDataSyncS3DestinationBucketRegion (\s a -> s { _sSMResourceDataSyncS3DestinationBucketRegion = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-resourcedatasync-s3destination.html#cfn-ssm-resourcedatasync-s3destination-kmskeyarn+ssmrdssdKMSKeyArn :: Lens' SSMResourceDataSyncS3Destination (Maybe (Val Text))+ssmrdssdKMSKeyArn = lens _sSMResourceDataSyncS3DestinationKMSKeyArn (\s a -> s { _sSMResourceDataSyncS3DestinationKMSKeyArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-resourcedatasync-s3destination.html#cfn-ssm-resourcedatasync-s3destination-syncformat+ssmrdssdSyncFormat :: Lens' SSMResourceDataSyncS3Destination (Val Text)+ssmrdssdSyncFormat = lens _sSMResourceDataSyncS3DestinationSyncFormat (\s a -> s { _sSMResourceDataSyncS3DestinationSyncFormat = a })
+ library-gen/Stratosphere/ResourceProperties/SSMResourceDataSyncSyncSource.hs view
@@ -0,0 +1,61 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-resourcedatasync-syncsource.html++module Stratosphere.ResourceProperties.SSMResourceDataSyncSyncSource where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.SSMResourceDataSyncAwsOrganizationsSource++-- | Full data type definition for SSMResourceDataSyncSyncSource. See+-- 'ssmResourceDataSyncSyncSource' for a more convenient constructor.+data SSMResourceDataSyncSyncSource =+ SSMResourceDataSyncSyncSource+ { _sSMResourceDataSyncSyncSourceAwsOrganizationsSource :: Maybe SSMResourceDataSyncAwsOrganizationsSource+ , _sSMResourceDataSyncSyncSourceIncludeFutureRegions :: Maybe (Val Bool)+ , _sSMResourceDataSyncSyncSourceSourceRegions :: ValList Text+ , _sSMResourceDataSyncSyncSourceSourceType :: Val Text+ } deriving (Show, Eq)++instance ToJSON SSMResourceDataSyncSyncSource where+ toJSON SSMResourceDataSyncSyncSource{..} =+ object $+ catMaybes+ [ fmap (("AwsOrganizationsSource",) . toJSON) _sSMResourceDataSyncSyncSourceAwsOrganizationsSource+ , fmap (("IncludeFutureRegions",) . toJSON) _sSMResourceDataSyncSyncSourceIncludeFutureRegions+ , (Just . ("SourceRegions",) . toJSON) _sSMResourceDataSyncSyncSourceSourceRegions+ , (Just . ("SourceType",) . toJSON) _sSMResourceDataSyncSyncSourceSourceType+ ]++-- | Constructor for 'SSMResourceDataSyncSyncSource' containing required+-- fields as arguments.+ssmResourceDataSyncSyncSource+ :: ValList Text -- ^ 'ssmrdsssSourceRegions'+ -> Val Text -- ^ 'ssmrdsssSourceType'+ -> SSMResourceDataSyncSyncSource+ssmResourceDataSyncSyncSource sourceRegionsarg sourceTypearg =+ SSMResourceDataSyncSyncSource+ { _sSMResourceDataSyncSyncSourceAwsOrganizationsSource = Nothing+ , _sSMResourceDataSyncSyncSourceIncludeFutureRegions = Nothing+ , _sSMResourceDataSyncSyncSourceSourceRegions = sourceRegionsarg+ , _sSMResourceDataSyncSyncSourceSourceType = sourceTypearg+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-resourcedatasync-syncsource.html#cfn-ssm-resourcedatasync-syncsource-awsorganizationssource+ssmrdsssAwsOrganizationsSource :: Lens' SSMResourceDataSyncSyncSource (Maybe SSMResourceDataSyncAwsOrganizationsSource)+ssmrdsssAwsOrganizationsSource = lens _sSMResourceDataSyncSyncSourceAwsOrganizationsSource (\s a -> s { _sSMResourceDataSyncSyncSourceAwsOrganizationsSource = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-resourcedatasync-syncsource.html#cfn-ssm-resourcedatasync-syncsource-includefutureregions+ssmrdsssIncludeFutureRegions :: Lens' SSMResourceDataSyncSyncSource (Maybe (Val Bool))+ssmrdsssIncludeFutureRegions = lens _sSMResourceDataSyncSyncSourceIncludeFutureRegions (\s a -> s { _sSMResourceDataSyncSyncSourceIncludeFutureRegions = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-resourcedatasync-syncsource.html#cfn-ssm-resourcedatasync-syncsource-sourceregions+ssmrdsssSourceRegions :: Lens' SSMResourceDataSyncSyncSource (ValList Text)+ssmrdsssSourceRegions = lens _sSMResourceDataSyncSyncSourceSourceRegions (\s a -> s { _sSMResourceDataSyncSyncSourceSourceRegions = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-resourcedatasync-syncsource.html#cfn-ssm-resourcedatasync-syncsource-sourcetype+ssmrdsssSourceType :: Lens' SSMResourceDataSyncSyncSource (Val Text)+ssmrdsssSourceType = lens _sSMResourceDataSyncSyncSourceSourceType (\s a -> s { _sSMResourceDataSyncSyncSourceSourceType = a })
+ library-gen/Stratosphere/ResourceProperties/TransferUserHomeDirectoryMapEntry.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-transfer-user-homedirectorymapentry.html++module Stratosphere.ResourceProperties.TransferUserHomeDirectoryMapEntry where++import Stratosphere.ResourceImports+++-- | Full data type definition for TransferUserHomeDirectoryMapEntry. See+-- 'transferUserHomeDirectoryMapEntry' for a more convenient constructor.+data TransferUserHomeDirectoryMapEntry =+ TransferUserHomeDirectoryMapEntry+ { _transferUserHomeDirectoryMapEntryEntry :: Val Text+ , _transferUserHomeDirectoryMapEntryTarget :: Val Text+ } deriving (Show, Eq)++instance ToJSON TransferUserHomeDirectoryMapEntry where+ toJSON TransferUserHomeDirectoryMapEntry{..} =+ object $+ catMaybes+ [ (Just . ("Entry",) . toJSON) _transferUserHomeDirectoryMapEntryEntry+ , (Just . ("Target",) . toJSON) _transferUserHomeDirectoryMapEntryTarget+ ]++-- | Constructor for 'TransferUserHomeDirectoryMapEntry' containing required+-- fields as arguments.+transferUserHomeDirectoryMapEntry+ :: Val Text -- ^ 'tuhdmeEntry'+ -> Val Text -- ^ 'tuhdmeTarget'+ -> TransferUserHomeDirectoryMapEntry+transferUserHomeDirectoryMapEntry entryarg targetarg =+ TransferUserHomeDirectoryMapEntry+ { _transferUserHomeDirectoryMapEntryEntry = entryarg+ , _transferUserHomeDirectoryMapEntryTarget = targetarg+ }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-transfer-user-homedirectorymapentry.html#cfn-transfer-user-homedirectorymapentry-entry+tuhdmeEntry :: Lens' TransferUserHomeDirectoryMapEntry (Val Text)+tuhdmeEntry = lens _transferUserHomeDirectoryMapEntryEntry (\s a -> s { _transferUserHomeDirectoryMapEntryEntry = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-transfer-user-homedirectorymapentry.html#cfn-transfer-user-homedirectorymapentry-target+tuhdmeTarget :: Lens' TransferUserHomeDirectoryMapEntry (Val Text)+tuhdmeTarget = lens _transferUserHomeDirectoryMapEntryTarget (\s a -> s { _transferUserHomeDirectoryMapEntryTarget = a })
library-gen/Stratosphere/Resources.hs view
@@ -890,6 +890,7 @@ import Stratosphere.ResourceProperties.EC2InstanceEbs as X import Stratosphere.ResourceProperties.EC2InstanceElasticGpuSpecification as X import Stratosphere.ResourceProperties.EC2InstanceElasticInferenceAccelerator as X+import Stratosphere.ResourceProperties.EC2InstanceHibernationOptions as X import Stratosphere.ResourceProperties.EC2InstanceInstanceIpv6Address as X import Stratosphere.ResourceProperties.EC2InstanceLaunchTemplateSpecification as X import Stratosphere.ResourceProperties.EC2InstanceLicenseSpecification as X@@ -1637,6 +1638,9 @@ import Stratosphere.ResourceProperties.SSMPatchBaselinePatchSource as X import Stratosphere.ResourceProperties.SSMPatchBaselineRule as X import Stratosphere.ResourceProperties.SSMPatchBaselineRuleGroup as X+import Stratosphere.ResourceProperties.SSMResourceDataSyncAwsOrganizationsSource as X+import Stratosphere.ResourceProperties.SSMResourceDataSyncS3Destination as X+import Stratosphere.ResourceProperties.SSMResourceDataSyncSyncSource as X import Stratosphere.ResourceProperties.SageMakerCodeRepositoryGitConfig as X import Stratosphere.ResourceProperties.SageMakerEndpointVariantProperty as X import Stratosphere.ResourceProperties.SageMakerEndpointConfigProductionVariant as X@@ -1662,6 +1666,7 @@ import Stratosphere.ResourceProperties.StepFunctionsStateMachineTagsEntry as X import Stratosphere.ResourceProperties.TransferServerEndpointDetails as X import Stratosphere.ResourceProperties.TransferServerIdentityProviderDetails as X+import Stratosphere.ResourceProperties.TransferUserHomeDirectoryMapEntry as X import Stratosphere.ResourceProperties.WAFByteMatchSetByteMatchTuple as X import Stratosphere.ResourceProperties.WAFByteMatchSetFieldToMatch as X import Stratosphere.ResourceProperties.WAFIPSetIPSetDescriptor as X
library-gen/Stratosphere/Resources/AppStreamFleet.hs view
@@ -29,7 +29,7 @@ , _appStreamFleetImageName :: Maybe (Val Text) , _appStreamFleetInstanceType :: Val Text , _appStreamFleetMaxUserDurationInSeconds :: Maybe (Val Integer)- , _appStreamFleetName :: Maybe (Val Text)+ , _appStreamFleetName :: Val Text , _appStreamFleetTags :: Maybe [Tag] , _appStreamFleetVpcConfig :: Maybe AppStreamFleetVpcConfig } deriving (Show, Eq)@@ -52,7 +52,7 @@ , fmap (("ImageName",) . toJSON) _appStreamFleetImageName , (Just . ("InstanceType",) . toJSON) _appStreamFleetInstanceType , fmap (("MaxUserDurationInSeconds",) . toJSON) _appStreamFleetMaxUserDurationInSeconds- , fmap (("Name",) . toJSON) _appStreamFleetName+ , (Just . ("Name",) . toJSON) _appStreamFleetName , fmap (("Tags",) . toJSON) _appStreamFleetTags , fmap (("VpcConfig",) . toJSON) _appStreamFleetVpcConfig ]@@ -62,8 +62,9 @@ appStreamFleet :: AppStreamFleetComputeCapacity -- ^ 'asfComputeCapacity' -> Val Text -- ^ 'asfInstanceType'+ -> Val Text -- ^ 'asfName' -> AppStreamFleet-appStreamFleet computeCapacityarg instanceTypearg =+appStreamFleet computeCapacityarg instanceTypearg namearg = AppStreamFleet { _appStreamFleetComputeCapacity = computeCapacityarg , _appStreamFleetDescription = Nothing@@ -77,7 +78,7 @@ , _appStreamFleetImageName = Nothing , _appStreamFleetInstanceType = instanceTypearg , _appStreamFleetMaxUserDurationInSeconds = Nothing- , _appStreamFleetName = Nothing+ , _appStreamFleetName = namearg , _appStreamFleetTags = Nothing , _appStreamFleetVpcConfig = Nothing }@@ -131,7 +132,7 @@ asfMaxUserDurationInSeconds = lens _appStreamFleetMaxUserDurationInSeconds (\s a -> s { _appStreamFleetMaxUserDurationInSeconds = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-fleet.html#cfn-appstream-fleet-name-asfName :: Lens' AppStreamFleet (Maybe (Val Text))+asfName :: Lens' AppStreamFleet (Val Text) asfName = lens _appStreamFleetName (\s a -> s { _appStreamFleetName = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-fleet.html#cfn-appstream-fleet-tags
library-gen/Stratosphere/Resources/AppStreamImageBuilder.hs view
@@ -26,7 +26,7 @@ , _appStreamImageBuilderImageArn :: Maybe (Val Text) , _appStreamImageBuilderImageName :: Maybe (Val Text) , _appStreamImageBuilderInstanceType :: Val Text- , _appStreamImageBuilderName :: Maybe (Val Text)+ , _appStreamImageBuilderName :: Val Text , _appStreamImageBuilderTags :: Maybe [Tag] , _appStreamImageBuilderVpcConfig :: Maybe AppStreamImageBuilderVpcConfig } deriving (Show, Eq)@@ -46,7 +46,7 @@ , fmap (("ImageArn",) . toJSON) _appStreamImageBuilderImageArn , fmap (("ImageName",) . toJSON) _appStreamImageBuilderImageName , (Just . ("InstanceType",) . toJSON) _appStreamImageBuilderInstanceType- , fmap (("Name",) . toJSON) _appStreamImageBuilderName+ , (Just . ("Name",) . toJSON) _appStreamImageBuilderName , fmap (("Tags",) . toJSON) _appStreamImageBuilderTags , fmap (("VpcConfig",) . toJSON) _appStreamImageBuilderVpcConfig ]@@ -56,8 +56,9 @@ -- arguments. appStreamImageBuilder :: Val Text -- ^ 'asibInstanceType'+ -> Val Text -- ^ 'asibName' -> AppStreamImageBuilder-appStreamImageBuilder instanceTypearg =+appStreamImageBuilder instanceTypearg namearg = AppStreamImageBuilder { _appStreamImageBuilderAccessEndpoints = Nothing , _appStreamImageBuilderAppstreamAgentVersion = Nothing@@ -68,7 +69,7 @@ , _appStreamImageBuilderImageArn = Nothing , _appStreamImageBuilderImageName = Nothing , _appStreamImageBuilderInstanceType = instanceTypearg- , _appStreamImageBuilderName = Nothing+ , _appStreamImageBuilderName = namearg , _appStreamImageBuilderTags = Nothing , _appStreamImageBuilderVpcConfig = Nothing }@@ -110,7 +111,7 @@ asibInstanceType = lens _appStreamImageBuilderInstanceType (\s a -> s { _appStreamImageBuilderInstanceType = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-imagebuilder.html#cfn-appstream-imagebuilder-name-asibName :: Lens' AppStreamImageBuilder (Maybe (Val Text))+asibName :: Lens' AppStreamImageBuilder (Val Text) asibName = lens _appStreamImageBuilderName (\s a -> s { _appStreamImageBuilderName = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-imagebuilder.html#cfn-appstream-imagebuilder-tags
library-gen/Stratosphere/Resources/EC2Instance.hs view
@@ -13,6 +13,7 @@ import Stratosphere.ResourceProperties.EC2InstanceCreditSpecification import Stratosphere.ResourceProperties.EC2InstanceElasticGpuSpecification import Stratosphere.ResourceProperties.EC2InstanceElasticInferenceAccelerator+import Stratosphere.ResourceProperties.EC2InstanceHibernationOptions import Stratosphere.ResourceProperties.EC2InstanceInstanceIpv6Address import Stratosphere.ResourceProperties.EC2InstanceLaunchTemplateSpecification import Stratosphere.ResourceProperties.EC2InstanceLicenseSpecification@@ -35,7 +36,9 @@ , _eC2InstanceEbsOptimized :: Maybe (Val Bool) , _eC2InstanceElasticGpuSpecifications :: Maybe [EC2InstanceElasticGpuSpecification] , _eC2InstanceElasticInferenceAccelerators :: Maybe [EC2InstanceElasticInferenceAccelerator]+ , _eC2InstanceHibernationOptions :: Maybe EC2InstanceHibernationOptions , _eC2InstanceHostId :: Maybe (Val Text)+ , _eC2InstanceHostResourceGroupArn :: Maybe (Val Text) , _eC2InstanceIamInstanceProfile :: Maybe (Val Text) , _eC2InstanceImageId :: Maybe (Val Text) , _eC2InstanceInstanceInitiatedShutdownBehavior :: Maybe (Val Text)@@ -78,7 +81,9 @@ , fmap (("EbsOptimized",) . toJSON) _eC2InstanceEbsOptimized , fmap (("ElasticGpuSpecifications",) . toJSON) _eC2InstanceElasticGpuSpecifications , fmap (("ElasticInferenceAccelerators",) . toJSON) _eC2InstanceElasticInferenceAccelerators+ , fmap (("HibernationOptions",) . toJSON) _eC2InstanceHibernationOptions , fmap (("HostId",) . toJSON) _eC2InstanceHostId+ , fmap (("HostResourceGroupArn",) . toJSON) _eC2InstanceHostResourceGroupArn , fmap (("IamInstanceProfile",) . toJSON) _eC2InstanceIamInstanceProfile , fmap (("ImageId",) . toJSON) _eC2InstanceImageId , fmap (("InstanceInitiatedShutdownBehavior",) . toJSON) _eC2InstanceInstanceInitiatedShutdownBehavior@@ -121,7 +126,9 @@ , _eC2InstanceEbsOptimized = Nothing , _eC2InstanceElasticGpuSpecifications = Nothing , _eC2InstanceElasticInferenceAccelerators = Nothing+ , _eC2InstanceHibernationOptions = Nothing , _eC2InstanceHostId = Nothing+ , _eC2InstanceHostResourceGroupArn = Nothing , _eC2InstanceIamInstanceProfile = Nothing , _eC2InstanceImageId = Nothing , _eC2InstanceInstanceInitiatedShutdownBehavior = Nothing@@ -188,9 +195,17 @@ eciElasticInferenceAccelerators :: Lens' EC2Instance (Maybe [EC2InstanceElasticInferenceAccelerator]) eciElasticInferenceAccelerators = lens _eC2InstanceElasticInferenceAccelerators (\s a -> s { _eC2InstanceElasticInferenceAccelerators = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-hibernationoptions+eciHibernationOptions :: Lens' EC2Instance (Maybe EC2InstanceHibernationOptions)+eciHibernationOptions = lens _eC2InstanceHibernationOptions (\s a -> s { _eC2InstanceHibernationOptions = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-hostid eciHostId :: Lens' EC2Instance (Maybe (Val Text)) eciHostId = lens _eC2InstanceHostId (\s a -> s { _eC2InstanceHostId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-hostresourcegrouparn+eciHostResourceGroupArn :: Lens' EC2Instance (Maybe (Val Text))+eciHostResourceGroupArn = lens _eC2InstanceHostResourceGroupArn (\s a -> s { _eC2InstanceHostResourceGroupArn = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-iaminstanceprofile eciIamInstanceProfile :: Lens' EC2Instance (Maybe (Val Text))
library-gen/Stratosphere/Resources/IoTEventsDetectorModel.hs view
@@ -18,6 +18,7 @@ { _ioTEventsDetectorModelDetectorModelDefinition :: Maybe IoTEventsDetectorModelDetectorModelDefinition , _ioTEventsDetectorModelDetectorModelDescription :: Maybe (Val Text) , _ioTEventsDetectorModelDetectorModelName :: Maybe (Val Text)+ , _ioTEventsDetectorModelEvaluationMethod :: Maybe (Val Text) , _ioTEventsDetectorModelKey :: Maybe (Val Text) , _ioTEventsDetectorModelRoleArn :: Maybe (Val Text) , _ioTEventsDetectorModelTags :: Maybe [Tag]@@ -32,6 +33,7 @@ [ fmap (("DetectorModelDefinition",) . toJSON) _ioTEventsDetectorModelDetectorModelDefinition , fmap (("DetectorModelDescription",) . toJSON) _ioTEventsDetectorModelDetectorModelDescription , fmap (("DetectorModelName",) . toJSON) _ioTEventsDetectorModelDetectorModelName+ , fmap (("EvaluationMethod",) . toJSON) _ioTEventsDetectorModelEvaluationMethod , fmap (("Key",) . toJSON) _ioTEventsDetectorModelKey , fmap (("RoleArn",) . toJSON) _ioTEventsDetectorModelRoleArn , fmap (("Tags",) . toJSON) _ioTEventsDetectorModelTags@@ -47,6 +49,7 @@ { _ioTEventsDetectorModelDetectorModelDefinition = Nothing , _ioTEventsDetectorModelDetectorModelDescription = Nothing , _ioTEventsDetectorModelDetectorModelName = Nothing+ , _ioTEventsDetectorModelEvaluationMethod = Nothing , _ioTEventsDetectorModelKey = Nothing , _ioTEventsDetectorModelRoleArn = Nothing , _ioTEventsDetectorModelTags = Nothing@@ -63,6 +66,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotevents-detectormodel.html#cfn-iotevents-detectormodel-detectormodelname itedmDetectorModelName :: Lens' IoTEventsDetectorModel (Maybe (Val Text)) itedmDetectorModelName = lens _ioTEventsDetectorModelDetectorModelName (\s a -> s { _ioTEventsDetectorModelDetectorModelName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotevents-detectormodel.html#cfn-iotevents-detectormodel-evaluationmethod+itedmEvaluationMethod :: Lens' IoTEventsDetectorModel (Maybe (Val Text))+itedmEvaluationMethod = lens _ioTEventsDetectorModelEvaluationMethod (\s a -> s { _ioTEventsDetectorModelEvaluationMethod = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotevents-detectormodel.html#cfn-iotevents-detectormodel-key itedmKey :: Lens' IoTEventsDetectorModel (Maybe (Val Text))
library-gen/Stratosphere/Resources/RDSDBInstance.hs view
@@ -22,6 +22,7 @@ , _rDSDBInstanceAutoMinorVersionUpgrade :: Maybe (Val Bool) , _rDSDBInstanceAvailabilityZone :: Maybe (Val Text) , _rDSDBInstanceBackupRetentionPeriod :: Maybe (Val Integer)+ , _rDSDBInstanceCACertificateIdentifier :: Maybe (Val Text) , _rDSDBInstanceCharacterSetName :: Maybe (Val Text) , _rDSDBInstanceCopyTagsToSnapshot :: Maybe (Val Bool) , _rDSDBInstanceDBClusterIdentifier :: Maybe (Val Text)@@ -81,6 +82,7 @@ , fmap (("AutoMinorVersionUpgrade",) . toJSON) _rDSDBInstanceAutoMinorVersionUpgrade , fmap (("AvailabilityZone",) . toJSON) _rDSDBInstanceAvailabilityZone , fmap (("BackupRetentionPeriod",) . toJSON) _rDSDBInstanceBackupRetentionPeriod+ , fmap (("CACertificateIdentifier",) . toJSON) _rDSDBInstanceCACertificateIdentifier , fmap (("CharacterSetName",) . toJSON) _rDSDBInstanceCharacterSetName , fmap (("CopyTagsToSnapshot",) . toJSON) _rDSDBInstanceCopyTagsToSnapshot , fmap (("DBClusterIdentifier",) . toJSON) _rDSDBInstanceDBClusterIdentifier@@ -141,6 +143,7 @@ , _rDSDBInstanceAutoMinorVersionUpgrade = Nothing , _rDSDBInstanceAvailabilityZone = Nothing , _rDSDBInstanceBackupRetentionPeriod = Nothing+ , _rDSDBInstanceCACertificateIdentifier = Nothing , _rDSDBInstanceCharacterSetName = Nothing , _rDSDBInstanceCopyTagsToSnapshot = Nothing , _rDSDBInstanceDBClusterIdentifier = Nothing@@ -211,6 +214,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-backupretentionperiod rdsdbiBackupRetentionPeriod :: Lens' RDSDBInstance (Maybe (Val Integer)) rdsdbiBackupRetentionPeriod = lens _rDSDBInstanceBackupRetentionPeriod (\s a -> s { _rDSDBInstanceBackupRetentionPeriod = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-cacertificateidentifier+rdsdbiCACertificateIdentifier :: Lens' RDSDBInstance (Maybe (Val Text))+rdsdbiCACertificateIdentifier = lens _rDSDBInstanceCACertificateIdentifier (\s a -> s { _rDSDBInstanceCACertificateIdentifier = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-charactersetname rdsdbiCharacterSetName :: Lens' RDSDBInstance (Maybe (Val Text))
library-gen/Stratosphere/Resources/SSMResourceDataSync.hs view
@@ -8,18 +8,22 @@ module Stratosphere.Resources.SSMResourceDataSync where import Stratosphere.ResourceImports-+import Stratosphere.ResourceProperties.SSMResourceDataSyncS3Destination+import Stratosphere.ResourceProperties.SSMResourceDataSyncSyncSource -- | Full data type definition for SSMResourceDataSync. See -- 'ssmResourceDataSync' for a more convenient constructor. data SSMResourceDataSync = SSMResourceDataSync- { _sSMResourceDataSyncBucketName :: Val Text+ { _sSMResourceDataSyncBucketName :: Maybe (Val Text) , _sSMResourceDataSyncBucketPrefix :: Maybe (Val Text)- , _sSMResourceDataSyncBucketRegion :: Val Text+ , _sSMResourceDataSyncBucketRegion :: Maybe (Val Text) , _sSMResourceDataSyncKMSKeyArn :: Maybe (Val Text)- , _sSMResourceDataSyncSyncFormat :: Val Text+ , _sSMResourceDataSyncS3Destination :: Maybe SSMResourceDataSyncS3Destination+ , _sSMResourceDataSyncSyncFormat :: Maybe (Val Text) , _sSMResourceDataSyncSyncName :: Val Text+ , _sSMResourceDataSyncSyncSource :: Maybe SSMResourceDataSyncSyncSource+ , _sSMResourceDataSyncSyncType :: Maybe (Val Text) } deriving (Show, Eq) instance ToResourceProperties SSMResourceDataSync where@@ -28,35 +32,38 @@ { resourcePropertiesType = "AWS::SSM::ResourceDataSync" , resourcePropertiesProperties = hashMapFromList $ catMaybes- [ (Just . ("BucketName",) . toJSON) _sSMResourceDataSyncBucketName+ [ fmap (("BucketName",) . toJSON) _sSMResourceDataSyncBucketName , fmap (("BucketPrefix",) . toJSON) _sSMResourceDataSyncBucketPrefix- , (Just . ("BucketRegion",) . toJSON) _sSMResourceDataSyncBucketRegion+ , fmap (("BucketRegion",) . toJSON) _sSMResourceDataSyncBucketRegion , fmap (("KMSKeyArn",) . toJSON) _sSMResourceDataSyncKMSKeyArn- , (Just . ("SyncFormat",) . toJSON) _sSMResourceDataSyncSyncFormat+ , fmap (("S3Destination",) . toJSON) _sSMResourceDataSyncS3Destination+ , fmap (("SyncFormat",) . toJSON) _sSMResourceDataSyncSyncFormat , (Just . ("SyncName",) . toJSON) _sSMResourceDataSyncSyncName+ , fmap (("SyncSource",) . toJSON) _sSMResourceDataSyncSyncSource+ , fmap (("SyncType",) . toJSON) _sSMResourceDataSyncSyncType ] } -- | Constructor for 'SSMResourceDataSync' containing required fields as -- arguments. ssmResourceDataSync- :: Val Text -- ^ 'ssmrdsBucketName'- -> Val Text -- ^ 'ssmrdsBucketRegion'- -> Val Text -- ^ 'ssmrdsSyncFormat'- -> Val Text -- ^ 'ssmrdsSyncName'+ :: Val Text -- ^ 'ssmrdsSyncName' -> SSMResourceDataSync-ssmResourceDataSync bucketNamearg bucketRegionarg syncFormatarg syncNamearg =+ssmResourceDataSync syncNamearg = SSMResourceDataSync- { _sSMResourceDataSyncBucketName = bucketNamearg+ { _sSMResourceDataSyncBucketName = Nothing , _sSMResourceDataSyncBucketPrefix = Nothing- , _sSMResourceDataSyncBucketRegion = bucketRegionarg+ , _sSMResourceDataSyncBucketRegion = Nothing , _sSMResourceDataSyncKMSKeyArn = Nothing- , _sSMResourceDataSyncSyncFormat = syncFormatarg+ , _sSMResourceDataSyncS3Destination = Nothing+ , _sSMResourceDataSyncSyncFormat = Nothing , _sSMResourceDataSyncSyncName = syncNamearg+ , _sSMResourceDataSyncSyncSource = Nothing+ , _sSMResourceDataSyncSyncType = Nothing } -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-resourcedatasync.html#cfn-ssm-resourcedatasync-bucketname-ssmrdsBucketName :: Lens' SSMResourceDataSync (Val Text)+ssmrdsBucketName :: Lens' SSMResourceDataSync (Maybe (Val Text)) ssmrdsBucketName = lens _sSMResourceDataSyncBucketName (\s a -> s { _sSMResourceDataSyncBucketName = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-resourcedatasync.html#cfn-ssm-resourcedatasync-bucketprefix@@ -64,17 +71,29 @@ ssmrdsBucketPrefix = lens _sSMResourceDataSyncBucketPrefix (\s a -> s { _sSMResourceDataSyncBucketPrefix = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-resourcedatasync.html#cfn-ssm-resourcedatasync-bucketregion-ssmrdsBucketRegion :: Lens' SSMResourceDataSync (Val Text)+ssmrdsBucketRegion :: Lens' SSMResourceDataSync (Maybe (Val Text)) ssmrdsBucketRegion = lens _sSMResourceDataSyncBucketRegion (\s a -> s { _sSMResourceDataSyncBucketRegion = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-resourcedatasync.html#cfn-ssm-resourcedatasync-kmskeyarn ssmrdsKMSKeyArn :: Lens' SSMResourceDataSync (Maybe (Val Text)) ssmrdsKMSKeyArn = lens _sSMResourceDataSyncKMSKeyArn (\s a -> s { _sSMResourceDataSyncKMSKeyArn = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-resourcedatasync.html#cfn-ssm-resourcedatasync-s3destination+ssmrdsS3Destination :: Lens' SSMResourceDataSync (Maybe SSMResourceDataSyncS3Destination)+ssmrdsS3Destination = lens _sSMResourceDataSyncS3Destination (\s a -> s { _sSMResourceDataSyncS3Destination = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-resourcedatasync.html#cfn-ssm-resourcedatasync-syncformat-ssmrdsSyncFormat :: Lens' SSMResourceDataSync (Val Text)+ssmrdsSyncFormat :: Lens' SSMResourceDataSync (Maybe (Val Text)) ssmrdsSyncFormat = lens _sSMResourceDataSyncSyncFormat (\s a -> s { _sSMResourceDataSyncSyncFormat = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-resourcedatasync.html#cfn-ssm-resourcedatasync-syncname ssmrdsSyncName :: Lens' SSMResourceDataSync (Val Text) ssmrdsSyncName = lens _sSMResourceDataSyncSyncName (\s a -> s { _sSMResourceDataSyncSyncName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-resourcedatasync.html#cfn-ssm-resourcedatasync-syncsource+ssmrdsSyncSource :: Lens' SSMResourceDataSync (Maybe SSMResourceDataSyncSyncSource)+ssmrdsSyncSource = lens _sSMResourceDataSyncSyncSource (\s a -> s { _sSMResourceDataSyncSyncSource = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-resourcedatasync.html#cfn-ssm-resourcedatasync-synctype+ssmrdsSyncType :: Lens' SSMResourceDataSync (Maybe (Val Text))+ssmrdsSyncType = lens _sSMResourceDataSyncSyncType (\s a -> s { _sSMResourceDataSyncSyncType = a })
library-gen/Stratosphere/Resources/TransferUser.hs view
@@ -8,6 +8,7 @@ module Stratosphere.Resources.TransferUser where import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.TransferUserHomeDirectoryMapEntry import Stratosphere.ResourceProperties.Tag -- | Full data type definition for TransferUser. See 'transferUser' for a more@@ -15,6 +16,8 @@ data TransferUser = TransferUser { _transferUserHomeDirectory :: Maybe (Val Text)+ , _transferUserHomeDirectoryMappings :: Maybe [TransferUserHomeDirectoryMapEntry]+ , _transferUserHomeDirectoryType :: Maybe (Val Text) , _transferUserPolicy :: Maybe (Val Text) , _transferUserRole :: Val Text , _transferUserServerId :: Val Text@@ -30,6 +33,8 @@ , resourcePropertiesProperties = hashMapFromList $ catMaybes [ fmap (("HomeDirectory",) . toJSON) _transferUserHomeDirectory+ , fmap (("HomeDirectoryMappings",) . toJSON) _transferUserHomeDirectoryMappings+ , fmap (("HomeDirectoryType",) . toJSON) _transferUserHomeDirectoryType , fmap (("Policy",) . toJSON) _transferUserPolicy , (Just . ("Role",) . toJSON) _transferUserRole , (Just . ("ServerId",) . toJSON) _transferUserServerId@@ -48,6 +53,8 @@ transferUser rolearg serverIdarg userNamearg = TransferUser { _transferUserHomeDirectory = Nothing+ , _transferUserHomeDirectoryMappings = Nothing+ , _transferUserHomeDirectoryType = Nothing , _transferUserPolicy = Nothing , _transferUserRole = rolearg , _transferUserServerId = serverIdarg@@ -59,6 +66,14 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-transfer-user.html#cfn-transfer-user-homedirectory tuHomeDirectory :: Lens' TransferUser (Maybe (Val Text)) tuHomeDirectory = lens _transferUserHomeDirectory (\s a -> s { _transferUserHomeDirectory = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-transfer-user.html#cfn-transfer-user-homedirectorymappings+tuHomeDirectoryMappings :: Lens' TransferUser (Maybe [TransferUserHomeDirectoryMapEntry])+tuHomeDirectoryMappings = lens _transferUserHomeDirectoryMappings (\s a -> s { _transferUserHomeDirectoryMappings = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-transfer-user.html#cfn-transfer-user-homedirectorytype+tuHomeDirectoryType :: Lens' TransferUser (Maybe (Val Text))+tuHomeDirectoryType = lens _transferUserHomeDirectoryType (\s a -> s { _transferUserHomeDirectoryType = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-transfer-user.html#cfn-transfer-user-policy tuPolicy :: Lens' TransferUser (Maybe (Val Text))
stratosphere.cabal view
@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 0afe4e048b9a46a2b34abb5a5781bf91636595f8cf226537b342aab35680afcc+-- hash: 83dd365e768896c75ba35238ea26c7bac2360246824c514e268216858a98c518 name: stratosphere-version: 0.47.0+version: 0.48.0 synopsis: EDSL for AWS CloudFormation description: EDSL for AWS CloudFormation category: AWS, Cloud@@ -414,6 +414,7 @@ Stratosphere.ResourceProperties.EC2InstanceEbs Stratosphere.ResourceProperties.EC2InstanceElasticGpuSpecification Stratosphere.ResourceProperties.EC2InstanceElasticInferenceAccelerator+ Stratosphere.ResourceProperties.EC2InstanceHibernationOptions Stratosphere.ResourceProperties.EC2InstanceInstanceIpv6Address Stratosphere.ResourceProperties.EC2InstanceLaunchTemplateSpecification Stratosphere.ResourceProperties.EC2InstanceLicenseSpecification@@ -1179,6 +1180,9 @@ Stratosphere.ResourceProperties.SSMPatchBaselinePatchSource Stratosphere.ResourceProperties.SSMPatchBaselineRule Stratosphere.ResourceProperties.SSMPatchBaselineRuleGroup+ Stratosphere.ResourceProperties.SSMResourceDataSyncAwsOrganizationsSource+ Stratosphere.ResourceProperties.SSMResourceDataSyncS3Destination+ Stratosphere.ResourceProperties.SSMResourceDataSyncSyncSource Stratosphere.ResourceProperties.StepFunctionsActivityTagsEntry Stratosphere.ResourceProperties.StepFunctionsStateMachineCloudWatchLogsLogGroup Stratosphere.ResourceProperties.StepFunctionsStateMachineLogDestination@@ -1187,6 +1191,7 @@ Stratosphere.ResourceProperties.Tag Stratosphere.ResourceProperties.TransferServerEndpointDetails Stratosphere.ResourceProperties.TransferServerIdentityProviderDetails+ Stratosphere.ResourceProperties.TransferUserHomeDirectoryMapEntry Stratosphere.ResourceProperties.WAFByteMatchSetByteMatchTuple Stratosphere.ResourceProperties.WAFByteMatchSetFieldToMatch Stratosphere.ResourceProperties.WAFIPSetIPSetDescriptor