stratosphere 0.51.0 → 0.52.0

raw patch · 50 files changed

+1947/−72 lines, 50 files

Files

CHANGELOG.md +4/−0
library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionContainerProperties.hs +9/−11
library-gen/Stratosphere/ResourceProperties/EC2EC2FleetCapacityReservationOptionsRequest.hs +40/−0
library-gen/Stratosphere/ResourceProperties/EC2EC2FleetFleetLaunchTemplateOverridesRequest.hs +8/−1
library-gen/Stratosphere/ResourceProperties/EC2EC2FleetOnDemandOptionsRequest.hs +36/−1
library-gen/Stratosphere/ResourceProperties/EC2EC2FleetPlacement.hs +87/−0
library-gen/Stratosphere/ResourceProperties/EC2EC2FleetSpotOptionsRequest.hs +28/−0
library-gen/Stratosphere/ResourceProperties/EC2EC2FleetTagRequest.hs +0/−45
library-gen/Stratosphere/ResourceProperties/EC2EC2FleetTagSpecification.hs +3/−3
library-gen/Stratosphere/ResourceProperties/ImageBuilderDistributionConfigurationDistribution.hs +54/−0
library-gen/Stratosphere/ResourceProperties/ImageBuilderImagePipelineImageTestsConfiguration.hs +47/−0
library-gen/Stratosphere/ResourceProperties/ImageBuilderImagePipelineSchedule.hs +45/−0
library-gen/Stratosphere/ResourceProperties/ImageBuilderImageRecipeComponentConfiguration.hs +40/−0
library-gen/Stratosphere/ResourceProperties/ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification.hs +83/−0
library-gen/Stratosphere/ResourceProperties/ImageBuilderImageRecipeInstanceBlockDeviceMapping.hs +61/−0
library-gen/Stratosphere/ResourceProperties/ImageBuilderInfrastructureConfigurationLogging.hs +40/−0
library-gen/Stratosphere/ResourceProperties/ImageBuilderInfrastructureConfigurationS3Logs.hs +47/−0
library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelSetTimer.hs +10/−3
library-gen/Stratosphere/ResourceProperties/IoTTopicRuleAction.hs +24/−0
library-gen/Stratosphere/ResourceProperties/IoTTopicRuleAssetPropertyTimestamp.hs +46/−0
library-gen/Stratosphere/ResourceProperties/IoTTopicRuleAssetPropertyValue.hs +55/−0
library-gen/Stratosphere/ResourceProperties/IoTTopicRuleAssetPropertyVariant.hs +59/−0
library-gen/Stratosphere/ResourceProperties/IoTTopicRuleHttpAction.hs +61/−0
library-gen/Stratosphere/ResourceProperties/IoTTopicRuleHttpActionHeader.hs +47/−0
library-gen/Stratosphere/ResourceProperties/IoTTopicRuleHttpAuthorization.hs +38/−0
library-gen/Stratosphere/ResourceProperties/IoTTopicRuleIotEventsAction.hs +54/−0
library-gen/Stratosphere/ResourceProperties/IoTTopicRuleIotSiteWiseAction.hs +47/−0
library-gen/Stratosphere/ResourceProperties/IoTTopicRulePutAssetPropertyValueEntry.hs +68/−0
library-gen/Stratosphere/ResourceProperties/IoTTopicRuleRepublishAction.hs +10/−3
library-gen/Stratosphere/ResourceProperties/IoTTopicRuleSigV4Authorization.hs +55/−0
library-gen/Stratosphere/ResourceProperties/StepFunctionsStateMachineTracingConfiguration.hs +41/−0
library-gen/Stratosphere/Resources.hs +28/−1
library-gen/Stratosphere/Resources/ApiGatewayV2Integration.hs +7/−0
library-gen/Stratosphere/Resources/AutoScalingAutoScalingGroup.hs +7/−0
library-gen/Stratosphere/Resources/CloudWatchInsightRule.hs +8/−1
library-gen/Stratosphere/Resources/CodeBuildReportGroup.hs +8/−0
library-gen/Stratosphere/Resources/DetectiveGraph.hs +35/−0
library-gen/Stratosphere/Resources/DetectiveMemberInvitation.hs +65/−0
library-gen/Stratosphere/Resources/EC2Volume.hs +7/−0
library-gen/Stratosphere/Resources/FSxFileSystem.hs +7/−0
library-gen/Stratosphere/Resources/GlueDevEndpoint.hs +7/−0
library-gen/Stratosphere/Resources/GlueMLTransform.hs +7/−0
library-gen/Stratosphere/Resources/ImageBuilderComponent.hs +100/−0
library-gen/Stratosphere/Resources/ImageBuilderDistributionConfiguration.hs +65/−0
library-gen/Stratosphere/Resources/ImageBuilderImagePipeline.hs +101/−0
library-gen/Stratosphere/Resources/ImageBuilderImageRecipe.hs +88/−0
library-gen/Stratosphere/Resources/ImageBuilderInfrastructureConfiguration.hs +114/−0
library-gen/Stratosphere/Resources/KinesisAnalyticsV2Application.hs +8/−0
library-gen/Stratosphere/Resources/StepFunctionsStateMachine.hs +8/−0
stratosphere.cabal +30/−3

CHANGELOG.md view

@@ -1,5 +1,9 @@ # Change Log +## 0.52.0++* Update resource specification document to version 12.3.0+ ## 0.51.0  * Update resource specification document to version 11.6.0

library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionContainerProperties.hs view

@@ -26,14 +26,14 @@   , _batchJobDefinitionContainerPropertiesInstanceType :: Maybe (Val Text)   , _batchJobDefinitionContainerPropertiesJobRoleArn :: Maybe (Val Text)   , _batchJobDefinitionContainerPropertiesLinuxParameters :: Maybe BatchJobDefinitionLinuxParameters-  , _batchJobDefinitionContainerPropertiesMemory :: Val Integer+  , _batchJobDefinitionContainerPropertiesMemory :: Maybe (Val Integer)   , _batchJobDefinitionContainerPropertiesMountPoints :: Maybe [BatchJobDefinitionMountPoints]   , _batchJobDefinitionContainerPropertiesPrivileged :: Maybe (Val Bool)   , _batchJobDefinitionContainerPropertiesReadonlyRootFilesystem :: Maybe (Val Bool)   , _batchJobDefinitionContainerPropertiesResourceRequirements :: Maybe [BatchJobDefinitionResourceRequirement]   , _batchJobDefinitionContainerPropertiesUlimits :: Maybe [BatchJobDefinitionUlimit]   , _batchJobDefinitionContainerPropertiesUser :: Maybe (Val Text)-  , _batchJobDefinitionContainerPropertiesVcpus :: Val Integer+  , _batchJobDefinitionContainerPropertiesVcpus :: Maybe (Val Integer)   , _batchJobDefinitionContainerPropertiesVolumes :: Maybe [BatchJobDefinitionVolumes]   } deriving (Show, Eq) @@ -47,14 +47,14 @@     , fmap (("InstanceType",) . toJSON) _batchJobDefinitionContainerPropertiesInstanceType     , fmap (("JobRoleArn",) . toJSON) _batchJobDefinitionContainerPropertiesJobRoleArn     , fmap (("LinuxParameters",) . toJSON) _batchJobDefinitionContainerPropertiesLinuxParameters-    , (Just . ("Memory",) . toJSON) _batchJobDefinitionContainerPropertiesMemory+    , fmap (("Memory",) . toJSON) _batchJobDefinitionContainerPropertiesMemory     , fmap (("MountPoints",) . toJSON) _batchJobDefinitionContainerPropertiesMountPoints     , fmap (("Privileged",) . toJSON) _batchJobDefinitionContainerPropertiesPrivileged     , fmap (("ReadonlyRootFilesystem",) . toJSON) _batchJobDefinitionContainerPropertiesReadonlyRootFilesystem     , fmap (("ResourceRequirements",) . toJSON) _batchJobDefinitionContainerPropertiesResourceRequirements     , fmap (("Ulimits",) . toJSON) _batchJobDefinitionContainerPropertiesUlimits     , fmap (("User",) . toJSON) _batchJobDefinitionContainerPropertiesUser-    , (Just . ("Vcpus",) . toJSON) _batchJobDefinitionContainerPropertiesVcpus+    , fmap (("Vcpus",) . toJSON) _batchJobDefinitionContainerPropertiesVcpus     , fmap (("Volumes",) . toJSON) _batchJobDefinitionContainerPropertiesVolumes     ] @@ -62,10 +62,8 @@ -- required fields as arguments. batchJobDefinitionContainerProperties   :: Val Text -- ^ 'bjdcpImage'-  -> Val Integer -- ^ 'bjdcpMemory'-  -> Val Integer -- ^ 'bjdcpVcpus'   -> BatchJobDefinitionContainerProperties-batchJobDefinitionContainerProperties imagearg memoryarg vcpusarg =+batchJobDefinitionContainerProperties imagearg =   BatchJobDefinitionContainerProperties   { _batchJobDefinitionContainerPropertiesCommand = Nothing   , _batchJobDefinitionContainerPropertiesEnvironment = Nothing@@ -73,14 +71,14 @@   , _batchJobDefinitionContainerPropertiesInstanceType = Nothing   , _batchJobDefinitionContainerPropertiesJobRoleArn = Nothing   , _batchJobDefinitionContainerPropertiesLinuxParameters = Nothing-  , _batchJobDefinitionContainerPropertiesMemory = memoryarg+  , _batchJobDefinitionContainerPropertiesMemory = Nothing   , _batchJobDefinitionContainerPropertiesMountPoints = Nothing   , _batchJobDefinitionContainerPropertiesPrivileged = Nothing   , _batchJobDefinitionContainerPropertiesReadonlyRootFilesystem = Nothing   , _batchJobDefinitionContainerPropertiesResourceRequirements = Nothing   , _batchJobDefinitionContainerPropertiesUlimits = Nothing   , _batchJobDefinitionContainerPropertiesUser = Nothing-  , _batchJobDefinitionContainerPropertiesVcpus = vcpusarg+  , _batchJobDefinitionContainerPropertiesVcpus = Nothing   , _batchJobDefinitionContainerPropertiesVolumes = Nothing   } @@ -109,7 +107,7 @@ bjdcpLinuxParameters = lens _batchJobDefinitionContainerPropertiesLinuxParameters (\s a -> s { _batchJobDefinitionContainerPropertiesLinuxParameters = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-containerproperties.html#cfn-batch-jobdefinition-containerproperties-memory-bjdcpMemory :: Lens' BatchJobDefinitionContainerProperties (Val Integer)+bjdcpMemory :: Lens' BatchJobDefinitionContainerProperties (Maybe (Val Integer)) bjdcpMemory = lens _batchJobDefinitionContainerPropertiesMemory (\s a -> s { _batchJobDefinitionContainerPropertiesMemory = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-containerproperties.html#cfn-batch-jobdefinition-containerproperties-mountpoints@@ -137,7 +135,7 @@ bjdcpUser = lens _batchJobDefinitionContainerPropertiesUser (\s a -> s { _batchJobDefinitionContainerPropertiesUser = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-containerproperties.html#cfn-batch-jobdefinition-containerproperties-vcpus-bjdcpVcpus :: Lens' BatchJobDefinitionContainerProperties (Val Integer)+bjdcpVcpus :: Lens' BatchJobDefinitionContainerProperties (Maybe (Val Integer)) bjdcpVcpus = lens _batchJobDefinitionContainerPropertiesVcpus (\s a -> s { _batchJobDefinitionContainerPropertiesVcpus = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-containerproperties.html#cfn-batch-jobdefinition-containerproperties-volumes

+ library-gen/Stratosphere/ResourceProperties/EC2EC2FleetCapacityReservationOptionsRequest.hs view

@@ -0,0 +1,40 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-capacityreservationoptionsrequest.html++module Stratosphere.ResourceProperties.EC2EC2FleetCapacityReservationOptionsRequest where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- EC2EC2FleetCapacityReservationOptionsRequest. See+-- 'ec2EC2FleetCapacityReservationOptionsRequest' for a more convenient+-- constructor.+data EC2EC2FleetCapacityReservationOptionsRequest =+  EC2EC2FleetCapacityReservationOptionsRequest+  { _eC2EC2FleetCapacityReservationOptionsRequestUsageStrategy :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON EC2EC2FleetCapacityReservationOptionsRequest where+  toJSON EC2EC2FleetCapacityReservationOptionsRequest{..} =+    object $+    catMaybes+    [ fmap (("UsageStrategy",) . toJSON) _eC2EC2FleetCapacityReservationOptionsRequestUsageStrategy+    ]++-- | Constructor for 'EC2EC2FleetCapacityReservationOptionsRequest' containing+-- required fields as arguments.+ec2EC2FleetCapacityReservationOptionsRequest+  :: EC2EC2FleetCapacityReservationOptionsRequest+ec2EC2FleetCapacityReservationOptionsRequest  =+  EC2EC2FleetCapacityReservationOptionsRequest+  { _eC2EC2FleetCapacityReservationOptionsRequestUsageStrategy = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-capacityreservationoptionsrequest.html#cfn-ec2-ec2fleet-capacityreservationoptionsrequest-usagestrategy+ececfcrorUsageStrategy :: Lens' EC2EC2FleetCapacityReservationOptionsRequest (Maybe (Val Text))+ececfcrorUsageStrategy = lens _eC2EC2FleetCapacityReservationOptionsRequestUsageStrategy (\s a -> s { _eC2EC2FleetCapacityReservationOptionsRequestUsageStrategy = a })

library-gen/Stratosphere/ResourceProperties/EC2EC2FleetFleetLaunchTemplateOverridesRequest.hs view

@@ -8,7 +8,7 @@ module Stratosphere.ResourceProperties.EC2EC2FleetFleetLaunchTemplateOverridesRequest where  import Stratosphere.ResourceImports-+import Stratosphere.ResourceProperties.EC2EC2FleetPlacement  -- | Full data type definition for -- EC2EC2FleetFleetLaunchTemplateOverridesRequest. See@@ -19,6 +19,7 @@   { _eC2EC2FleetFleetLaunchTemplateOverridesRequestAvailabilityZone :: Maybe (Val Text)   , _eC2EC2FleetFleetLaunchTemplateOverridesRequestInstanceType :: Maybe (Val Text)   , _eC2EC2FleetFleetLaunchTemplateOverridesRequestMaxPrice :: Maybe (Val Text)+  , _eC2EC2FleetFleetLaunchTemplateOverridesRequestPlacement :: Maybe EC2EC2FleetPlacement   , _eC2EC2FleetFleetLaunchTemplateOverridesRequestPriority :: Maybe (Val Double)   , _eC2EC2FleetFleetLaunchTemplateOverridesRequestSubnetId :: Maybe (Val Text)   , _eC2EC2FleetFleetLaunchTemplateOverridesRequestWeightedCapacity :: Maybe (Val Double)@@ -31,6 +32,7 @@     [ fmap (("AvailabilityZone",) . toJSON) _eC2EC2FleetFleetLaunchTemplateOverridesRequestAvailabilityZone     , fmap (("InstanceType",) . toJSON) _eC2EC2FleetFleetLaunchTemplateOverridesRequestInstanceType     , fmap (("MaxPrice",) . toJSON) _eC2EC2FleetFleetLaunchTemplateOverridesRequestMaxPrice+    , fmap (("Placement",) . toJSON) _eC2EC2FleetFleetLaunchTemplateOverridesRequestPlacement     , fmap (("Priority",) . toJSON) _eC2EC2FleetFleetLaunchTemplateOverridesRequestPriority     , fmap (("SubnetId",) . toJSON) _eC2EC2FleetFleetLaunchTemplateOverridesRequestSubnetId     , fmap (("WeightedCapacity",) . toJSON) _eC2EC2FleetFleetLaunchTemplateOverridesRequestWeightedCapacity@@ -45,6 +47,7 @@   { _eC2EC2FleetFleetLaunchTemplateOverridesRequestAvailabilityZone = Nothing   , _eC2EC2FleetFleetLaunchTemplateOverridesRequestInstanceType = Nothing   , _eC2EC2FleetFleetLaunchTemplateOverridesRequestMaxPrice = Nothing+  , _eC2EC2FleetFleetLaunchTemplateOverridesRequestPlacement = Nothing   , _eC2EC2FleetFleetLaunchTemplateOverridesRequestPriority = Nothing   , _eC2EC2FleetFleetLaunchTemplateOverridesRequestSubnetId = Nothing   , _eC2EC2FleetFleetLaunchTemplateOverridesRequestWeightedCapacity = Nothing@@ -61,6 +64,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-fleetlaunchtemplateoverridesrequest.html#cfn-ec2-ec2fleet-fleetlaunchtemplateoverridesrequest-maxprice ececffltorMaxPrice :: Lens' EC2EC2FleetFleetLaunchTemplateOverridesRequest (Maybe (Val Text)) ececffltorMaxPrice = lens _eC2EC2FleetFleetLaunchTemplateOverridesRequestMaxPrice (\s a -> s { _eC2EC2FleetFleetLaunchTemplateOverridesRequestMaxPrice = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-fleetlaunchtemplateoverridesrequest.html#cfn-ec2-ec2fleet-fleetlaunchtemplateoverridesrequest-placement+ececffltorPlacement :: Lens' EC2EC2FleetFleetLaunchTemplateOverridesRequest (Maybe EC2EC2FleetPlacement)+ececffltorPlacement = lens _eC2EC2FleetFleetLaunchTemplateOverridesRequestPlacement (\s a -> s { _eC2EC2FleetFleetLaunchTemplateOverridesRequestPlacement = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-fleetlaunchtemplateoverridesrequest.html#cfn-ec2-ec2fleet-fleetlaunchtemplateoverridesrequest-priority ececffltorPriority :: Lens' EC2EC2FleetFleetLaunchTemplateOverridesRequest (Maybe (Val Double))

library-gen/Stratosphere/ResourceProperties/EC2EC2FleetOnDemandOptionsRequest.hs view

@@ -8,13 +8,18 @@ module Stratosphere.ResourceProperties.EC2EC2FleetOnDemandOptionsRequest where  import Stratosphere.ResourceImports-+import Stratosphere.ResourceProperties.EC2EC2FleetCapacityReservationOptionsRequest  -- | Full data type definition for EC2EC2FleetOnDemandOptionsRequest. See -- 'ec2EC2FleetOnDemandOptionsRequest' for a more convenient constructor. data EC2EC2FleetOnDemandOptionsRequest =   EC2EC2FleetOnDemandOptionsRequest   { _eC2EC2FleetOnDemandOptionsRequestAllocationStrategy :: Maybe (Val Text)+  , _eC2EC2FleetOnDemandOptionsRequestCapacityReservationOptions :: Maybe EC2EC2FleetCapacityReservationOptionsRequest+  , _eC2EC2FleetOnDemandOptionsRequestMaxTotalPrice :: Maybe (Val Text)+  , _eC2EC2FleetOnDemandOptionsRequestMinTargetCapacity :: Maybe (Val Integer)+  , _eC2EC2FleetOnDemandOptionsRequestSingleAvailabilityZone :: Maybe (Val Bool)+  , _eC2EC2FleetOnDemandOptionsRequestSingleInstanceType :: Maybe (Val Bool)   } deriving (Show, Eq)  instance ToJSON EC2EC2FleetOnDemandOptionsRequest where@@ -22,6 +27,11 @@     object $     catMaybes     [ fmap (("AllocationStrategy",) . toJSON) _eC2EC2FleetOnDemandOptionsRequestAllocationStrategy+    , fmap (("CapacityReservationOptions",) . toJSON) _eC2EC2FleetOnDemandOptionsRequestCapacityReservationOptions+    , fmap (("MaxTotalPrice",) . toJSON) _eC2EC2FleetOnDemandOptionsRequestMaxTotalPrice+    , fmap (("MinTargetCapacity",) . toJSON) _eC2EC2FleetOnDemandOptionsRequestMinTargetCapacity+    , fmap (("SingleAvailabilityZone",) . toJSON) _eC2EC2FleetOnDemandOptionsRequestSingleAvailabilityZone+    , fmap (("SingleInstanceType",) . toJSON) _eC2EC2FleetOnDemandOptionsRequestSingleInstanceType     ]  -- | Constructor for 'EC2EC2FleetOnDemandOptionsRequest' containing required@@ -31,8 +41,33 @@ ec2EC2FleetOnDemandOptionsRequest  =   EC2EC2FleetOnDemandOptionsRequest   { _eC2EC2FleetOnDemandOptionsRequestAllocationStrategy = Nothing+  , _eC2EC2FleetOnDemandOptionsRequestCapacityReservationOptions = Nothing+  , _eC2EC2FleetOnDemandOptionsRequestMaxTotalPrice = Nothing+  , _eC2EC2FleetOnDemandOptionsRequestMinTargetCapacity = Nothing+  , _eC2EC2FleetOnDemandOptionsRequestSingleAvailabilityZone = Nothing+  , _eC2EC2FleetOnDemandOptionsRequestSingleInstanceType = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-ondemandoptionsrequest.html#cfn-ec2-ec2fleet-ondemandoptionsrequest-allocationstrategy ececfodorAllocationStrategy :: Lens' EC2EC2FleetOnDemandOptionsRequest (Maybe (Val Text)) ececfodorAllocationStrategy = lens _eC2EC2FleetOnDemandOptionsRequestAllocationStrategy (\s a -> s { _eC2EC2FleetOnDemandOptionsRequestAllocationStrategy = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-ondemandoptionsrequest.html#cfn-ec2-ec2fleet-ondemandoptionsrequest-capacityreservationoptions+ececfodorCapacityReservationOptions :: Lens' EC2EC2FleetOnDemandOptionsRequest (Maybe EC2EC2FleetCapacityReservationOptionsRequest)+ececfodorCapacityReservationOptions = lens _eC2EC2FleetOnDemandOptionsRequestCapacityReservationOptions (\s a -> s { _eC2EC2FleetOnDemandOptionsRequestCapacityReservationOptions = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-ondemandoptionsrequest.html#cfn-ec2-ec2fleet-ondemandoptionsrequest-maxtotalprice+ececfodorMaxTotalPrice :: Lens' EC2EC2FleetOnDemandOptionsRequest (Maybe (Val Text))+ececfodorMaxTotalPrice = lens _eC2EC2FleetOnDemandOptionsRequestMaxTotalPrice (\s a -> s { _eC2EC2FleetOnDemandOptionsRequestMaxTotalPrice = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-ondemandoptionsrequest.html#cfn-ec2-ec2fleet-ondemandoptionsrequest-mintargetcapacity+ececfodorMinTargetCapacity :: Lens' EC2EC2FleetOnDemandOptionsRequest (Maybe (Val Integer))+ececfodorMinTargetCapacity = lens _eC2EC2FleetOnDemandOptionsRequestMinTargetCapacity (\s a -> s { _eC2EC2FleetOnDemandOptionsRequestMinTargetCapacity = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-ondemandoptionsrequest.html#cfn-ec2-ec2fleet-ondemandoptionsrequest-singleavailabilityzone+ececfodorSingleAvailabilityZone :: Lens' EC2EC2FleetOnDemandOptionsRequest (Maybe (Val Bool))+ececfodorSingleAvailabilityZone = lens _eC2EC2FleetOnDemandOptionsRequestSingleAvailabilityZone (\s a -> s { _eC2EC2FleetOnDemandOptionsRequestSingleAvailabilityZone = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-ondemandoptionsrequest.html#cfn-ec2-ec2fleet-ondemandoptionsrequest-singleinstancetype+ececfodorSingleInstanceType :: Lens' EC2EC2FleetOnDemandOptionsRequest (Maybe (Val Bool))+ececfodorSingleInstanceType = lens _eC2EC2FleetOnDemandOptionsRequestSingleInstanceType (\s a -> s { _eC2EC2FleetOnDemandOptionsRequestSingleInstanceType = a })

+ library-gen/Stratosphere/ResourceProperties/EC2EC2FleetPlacement.hs view

@@ -0,0 +1,87 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-placement.html++module Stratosphere.ResourceProperties.EC2EC2FleetPlacement where++import Stratosphere.ResourceImports+++-- | Full data type definition for EC2EC2FleetPlacement. See+-- 'ec2EC2FleetPlacement' for a more convenient constructor.+data EC2EC2FleetPlacement =+  EC2EC2FleetPlacement+  { _eC2EC2FleetPlacementAffinity :: Maybe (Val Text)+  , _eC2EC2FleetPlacementAvailabilityZone :: Maybe (Val Text)+  , _eC2EC2FleetPlacementGroupName :: Maybe (Val Text)+  , _eC2EC2FleetPlacementHostId :: Maybe (Val Text)+  , _eC2EC2FleetPlacementHostResourceGroupArn :: Maybe (Val Text)+  , _eC2EC2FleetPlacementPartitionNumber :: Maybe (Val Integer)+  , _eC2EC2FleetPlacementSpreadDomain :: Maybe (Val Text)+  , _eC2EC2FleetPlacementTenancy :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON EC2EC2FleetPlacement where+  toJSON EC2EC2FleetPlacement{..} =+    object $+    catMaybes+    [ fmap (("Affinity",) . toJSON) _eC2EC2FleetPlacementAffinity+    , fmap (("AvailabilityZone",) . toJSON) _eC2EC2FleetPlacementAvailabilityZone+    , fmap (("GroupName",) . toJSON) _eC2EC2FleetPlacementGroupName+    , fmap (("HostId",) . toJSON) _eC2EC2FleetPlacementHostId+    , fmap (("HostResourceGroupArn",) . toJSON) _eC2EC2FleetPlacementHostResourceGroupArn+    , fmap (("PartitionNumber",) . toJSON) _eC2EC2FleetPlacementPartitionNumber+    , fmap (("SpreadDomain",) . toJSON) _eC2EC2FleetPlacementSpreadDomain+    , fmap (("Tenancy",) . toJSON) _eC2EC2FleetPlacementTenancy+    ]++-- | Constructor for 'EC2EC2FleetPlacement' containing required fields as+-- arguments.+ec2EC2FleetPlacement+  :: EC2EC2FleetPlacement+ec2EC2FleetPlacement  =+  EC2EC2FleetPlacement+  { _eC2EC2FleetPlacementAffinity = Nothing+  , _eC2EC2FleetPlacementAvailabilityZone = Nothing+  , _eC2EC2FleetPlacementGroupName = Nothing+  , _eC2EC2FleetPlacementHostId = Nothing+  , _eC2EC2FleetPlacementHostResourceGroupArn = Nothing+  , _eC2EC2FleetPlacementPartitionNumber = Nothing+  , _eC2EC2FleetPlacementSpreadDomain = Nothing+  , _eC2EC2FleetPlacementTenancy = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-placement.html#cfn-ec2-ec2fleet-placement-affinity+ececfpAffinity :: Lens' EC2EC2FleetPlacement (Maybe (Val Text))+ececfpAffinity = lens _eC2EC2FleetPlacementAffinity (\s a -> s { _eC2EC2FleetPlacementAffinity = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-placement.html#cfn-ec2-ec2fleet-placement-availabilityzone+ececfpAvailabilityZone :: Lens' EC2EC2FleetPlacement (Maybe (Val Text))+ececfpAvailabilityZone = lens _eC2EC2FleetPlacementAvailabilityZone (\s a -> s { _eC2EC2FleetPlacementAvailabilityZone = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-placement.html#cfn-ec2-ec2fleet-placement-groupname+ececfpGroupName :: Lens' EC2EC2FleetPlacement (Maybe (Val Text))+ececfpGroupName = lens _eC2EC2FleetPlacementGroupName (\s a -> s { _eC2EC2FleetPlacementGroupName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-placement.html#cfn-ec2-ec2fleet-placement-hostid+ececfpHostId :: Lens' EC2EC2FleetPlacement (Maybe (Val Text))+ececfpHostId = lens _eC2EC2FleetPlacementHostId (\s a -> s { _eC2EC2FleetPlacementHostId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-placement.html#cfn-ec2-ec2fleet-placement-hostresourcegrouparn+ececfpHostResourceGroupArn :: Lens' EC2EC2FleetPlacement (Maybe (Val Text))+ececfpHostResourceGroupArn = lens _eC2EC2FleetPlacementHostResourceGroupArn (\s a -> s { _eC2EC2FleetPlacementHostResourceGroupArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-placement.html#cfn-ec2-ec2fleet-placement-partitionnumber+ececfpPartitionNumber :: Lens' EC2EC2FleetPlacement (Maybe (Val Integer))+ececfpPartitionNumber = lens _eC2EC2FleetPlacementPartitionNumber (\s a -> s { _eC2EC2FleetPlacementPartitionNumber = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-placement.html#cfn-ec2-ec2fleet-placement-spreaddomain+ececfpSpreadDomain :: Lens' EC2EC2FleetPlacement (Maybe (Val Text))+ececfpSpreadDomain = lens _eC2EC2FleetPlacementSpreadDomain (\s a -> s { _eC2EC2FleetPlacementSpreadDomain = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-placement.html#cfn-ec2-ec2fleet-placement-tenancy+ececfpTenancy :: Lens' EC2EC2FleetPlacement (Maybe (Val Text))+ececfpTenancy = lens _eC2EC2FleetPlacementTenancy (\s a -> s { _eC2EC2FleetPlacementTenancy = a })

library-gen/Stratosphere/ResourceProperties/EC2EC2FleetSpotOptionsRequest.hs view

@@ -17,6 +17,10 @@   { _eC2EC2FleetSpotOptionsRequestAllocationStrategy :: Maybe (Val Text)   , _eC2EC2FleetSpotOptionsRequestInstanceInterruptionBehavior :: Maybe (Val Text)   , _eC2EC2FleetSpotOptionsRequestInstancePoolsToUseCount :: Maybe (Val Integer)+  , _eC2EC2FleetSpotOptionsRequestMaxTotalPrice :: Maybe (Val Text)+  , _eC2EC2FleetSpotOptionsRequestMinTargetCapacity :: Maybe (Val Integer)+  , _eC2EC2FleetSpotOptionsRequestSingleAvailabilityZone :: Maybe (Val Bool)+  , _eC2EC2FleetSpotOptionsRequestSingleInstanceType :: Maybe (Val Bool)   } deriving (Show, Eq)  instance ToJSON EC2EC2FleetSpotOptionsRequest where@@ -26,6 +30,10 @@     [ fmap (("AllocationStrategy",) . toJSON) _eC2EC2FleetSpotOptionsRequestAllocationStrategy     , fmap (("InstanceInterruptionBehavior",) . toJSON) _eC2EC2FleetSpotOptionsRequestInstanceInterruptionBehavior     , fmap (("InstancePoolsToUseCount",) . toJSON) _eC2EC2FleetSpotOptionsRequestInstancePoolsToUseCount+    , fmap (("MaxTotalPrice",) . toJSON) _eC2EC2FleetSpotOptionsRequestMaxTotalPrice+    , fmap (("MinTargetCapacity",) . toJSON) _eC2EC2FleetSpotOptionsRequestMinTargetCapacity+    , fmap (("SingleAvailabilityZone",) . toJSON) _eC2EC2FleetSpotOptionsRequestSingleAvailabilityZone+    , fmap (("SingleInstanceType",) . toJSON) _eC2EC2FleetSpotOptionsRequestSingleInstanceType     ]  -- | Constructor for 'EC2EC2FleetSpotOptionsRequest' containing required@@ -37,6 +45,10 @@   { _eC2EC2FleetSpotOptionsRequestAllocationStrategy = Nothing   , _eC2EC2FleetSpotOptionsRequestInstanceInterruptionBehavior = Nothing   , _eC2EC2FleetSpotOptionsRequestInstancePoolsToUseCount = Nothing+  , _eC2EC2FleetSpotOptionsRequestMaxTotalPrice = Nothing+  , _eC2EC2FleetSpotOptionsRequestMinTargetCapacity = Nothing+  , _eC2EC2FleetSpotOptionsRequestSingleAvailabilityZone = Nothing+  , _eC2EC2FleetSpotOptionsRequestSingleInstanceType = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-spotoptionsrequest.html#cfn-ec2-ec2fleet-spotoptionsrequest-allocationstrategy@@ -50,3 +62,19 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-spotoptionsrequest.html#cfn-ec2-ec2fleet-spotoptionsrequest-instancepoolstousecount ececfsorInstancePoolsToUseCount :: Lens' EC2EC2FleetSpotOptionsRequest (Maybe (Val Integer)) ececfsorInstancePoolsToUseCount = lens _eC2EC2FleetSpotOptionsRequestInstancePoolsToUseCount (\s a -> s { _eC2EC2FleetSpotOptionsRequestInstancePoolsToUseCount = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-spotoptionsrequest.html#cfn-ec2-ec2fleet-spotoptionsrequest-maxtotalprice+ececfsorMaxTotalPrice :: Lens' EC2EC2FleetSpotOptionsRequest (Maybe (Val Text))+ececfsorMaxTotalPrice = lens _eC2EC2FleetSpotOptionsRequestMaxTotalPrice (\s a -> s { _eC2EC2FleetSpotOptionsRequestMaxTotalPrice = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-spotoptionsrequest.html#cfn-ec2-ec2fleet-spotoptionsrequest-mintargetcapacity+ececfsorMinTargetCapacity :: Lens' EC2EC2FleetSpotOptionsRequest (Maybe (Val Integer))+ececfsorMinTargetCapacity = lens _eC2EC2FleetSpotOptionsRequestMinTargetCapacity (\s a -> s { _eC2EC2FleetSpotOptionsRequestMinTargetCapacity = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-spotoptionsrequest.html#cfn-ec2-ec2fleet-spotoptionsrequest-singleavailabilityzone+ececfsorSingleAvailabilityZone :: Lens' EC2EC2FleetSpotOptionsRequest (Maybe (Val Bool))+ececfsorSingleAvailabilityZone = lens _eC2EC2FleetSpotOptionsRequestSingleAvailabilityZone (\s a -> s { _eC2EC2FleetSpotOptionsRequestSingleAvailabilityZone = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-spotoptionsrequest.html#cfn-ec2-ec2fleet-spotoptionsrequest-singleinstancetype+ececfsorSingleInstanceType :: Lens' EC2EC2FleetSpotOptionsRequest (Maybe (Val Bool))+ececfsorSingleInstanceType = lens _eC2EC2FleetSpotOptionsRequestSingleInstanceType (\s a -> s { _eC2EC2FleetSpotOptionsRequestSingleInstanceType = a })

− library-gen/Stratosphere/ResourceProperties/EC2EC2FleetTagRequest.hs

@@ -1,45 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE StrictData #-}-{-# LANGUAGE TupleSections #-}---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-tagrequest.html--module Stratosphere.ResourceProperties.EC2EC2FleetTagRequest where--import Stratosphere.ResourceImports----- | Full data type definition for EC2EC2FleetTagRequest. See--- 'ec2EC2FleetTagRequest' for a more convenient constructor.-data EC2EC2FleetTagRequest =-  EC2EC2FleetTagRequest-  { _eC2EC2FleetTagRequestKey :: Maybe (Val Text)-  , _eC2EC2FleetTagRequestValue :: Maybe (Val Text)-  } deriving (Show, Eq)--instance ToJSON EC2EC2FleetTagRequest where-  toJSON EC2EC2FleetTagRequest{..} =-    object $-    catMaybes-    [ fmap (("Key",) . toJSON) _eC2EC2FleetTagRequestKey-    , fmap (("Value",) . toJSON) _eC2EC2FleetTagRequestValue-    ]---- | Constructor for 'EC2EC2FleetTagRequest' containing required fields as--- arguments.-ec2EC2FleetTagRequest-  :: EC2EC2FleetTagRequest-ec2EC2FleetTagRequest  =-  EC2EC2FleetTagRequest-  { _eC2EC2FleetTagRequestKey = Nothing-  , _eC2EC2FleetTagRequestValue = Nothing-  }---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-tagrequest.html#cfn-ec2-ec2fleet-tagrequest-key-ececftrKey :: Lens' EC2EC2FleetTagRequest (Maybe (Val Text))-ececftrKey = lens _eC2EC2FleetTagRequestKey (\s a -> s { _eC2EC2FleetTagRequestKey = a })---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-tagrequest.html#cfn-ec2-ec2fleet-tagrequest-value-ececftrValue :: Lens' EC2EC2FleetTagRequest (Maybe (Val Text))-ececftrValue = lens _eC2EC2FleetTagRequestValue (\s a -> s { _eC2EC2FleetTagRequestValue = a })

library-gen/Stratosphere/ResourceProperties/EC2EC2FleetTagSpecification.hs view

@@ -8,14 +8,14 @@ module Stratosphere.ResourceProperties.EC2EC2FleetTagSpecification where  import Stratosphere.ResourceImports-import Stratosphere.ResourceProperties.EC2EC2FleetTagRequest+import Stratosphere.ResourceProperties.Tag  -- | Full data type definition for EC2EC2FleetTagSpecification. See -- 'ec2EC2FleetTagSpecification' for a more convenient constructor. data EC2EC2FleetTagSpecification =   EC2EC2FleetTagSpecification   { _eC2EC2FleetTagSpecificationResourceType :: Maybe (Val Text)-  , _eC2EC2FleetTagSpecificationTags :: Maybe [EC2EC2FleetTagRequest]+  , _eC2EC2FleetTagSpecificationTags :: Maybe [Tag]   } deriving (Show, Eq)  instance ToJSON EC2EC2FleetTagSpecification where@@ -41,5 +41,5 @@ ececftsResourceType = lens _eC2EC2FleetTagSpecificationResourceType (\s a -> s { _eC2EC2FleetTagSpecificationResourceType = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-tagspecification.html#cfn-ec2-ec2fleet-tagspecification-tags-ececftsTags :: Lens' EC2EC2FleetTagSpecification (Maybe [EC2EC2FleetTagRequest])+ececftsTags :: Lens' EC2EC2FleetTagSpecification (Maybe [Tag]) ececftsTags = lens _eC2EC2FleetTagSpecificationTags (\s a -> s { _eC2EC2FleetTagSpecificationTags = a })

+ library-gen/Stratosphere/ResourceProperties/ImageBuilderDistributionConfigurationDistribution.hs view

@@ -0,0 +1,54 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-distributionconfiguration-distribution.html++module Stratosphere.ResourceProperties.ImageBuilderDistributionConfigurationDistribution where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- ImageBuilderDistributionConfigurationDistribution. See+-- 'imageBuilderDistributionConfigurationDistribution' for a more convenient+-- constructor.+data ImageBuilderDistributionConfigurationDistribution =+  ImageBuilderDistributionConfigurationDistribution+  { _imageBuilderDistributionConfigurationDistributionAmiDistributionConfiguration :: Maybe Object+  , _imageBuilderDistributionConfigurationDistributionLicenseConfigurationArns :: Maybe (ValList Text)+  , _imageBuilderDistributionConfigurationDistributionRegion :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON ImageBuilderDistributionConfigurationDistribution where+  toJSON ImageBuilderDistributionConfigurationDistribution{..} =+    object $+    catMaybes+    [ fmap (("AmiDistributionConfiguration",) . toJSON) _imageBuilderDistributionConfigurationDistributionAmiDistributionConfiguration+    , fmap (("LicenseConfigurationArns",) . toJSON) _imageBuilderDistributionConfigurationDistributionLicenseConfigurationArns+    , fmap (("Region",) . toJSON) _imageBuilderDistributionConfigurationDistributionRegion+    ]++-- | Constructor for 'ImageBuilderDistributionConfigurationDistribution'+-- containing required fields as arguments.+imageBuilderDistributionConfigurationDistribution+  :: ImageBuilderDistributionConfigurationDistribution+imageBuilderDistributionConfigurationDistribution  =+  ImageBuilderDistributionConfigurationDistribution+  { _imageBuilderDistributionConfigurationDistributionAmiDistributionConfiguration = Nothing+  , _imageBuilderDistributionConfigurationDistributionLicenseConfigurationArns = Nothing+  , _imageBuilderDistributionConfigurationDistributionRegion = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-distributionconfiguration-distribution.html#cfn-imagebuilder-distributionconfiguration-distribution-amidistributionconfiguration+ibdcdAmiDistributionConfiguration :: Lens' ImageBuilderDistributionConfigurationDistribution (Maybe Object)+ibdcdAmiDistributionConfiguration = lens _imageBuilderDistributionConfigurationDistributionAmiDistributionConfiguration (\s a -> s { _imageBuilderDistributionConfigurationDistributionAmiDistributionConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-distributionconfiguration-distribution.html#cfn-imagebuilder-distributionconfiguration-distribution-licenseconfigurationarns+ibdcdLicenseConfigurationArns :: Lens' ImageBuilderDistributionConfigurationDistribution (Maybe (ValList Text))+ibdcdLicenseConfigurationArns = lens _imageBuilderDistributionConfigurationDistributionLicenseConfigurationArns (\s a -> s { _imageBuilderDistributionConfigurationDistributionLicenseConfigurationArns = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-distributionconfiguration-distribution.html#cfn-imagebuilder-distributionconfiguration-distribution-region+ibdcdRegion :: Lens' ImageBuilderDistributionConfigurationDistribution (Maybe (Val Text))+ibdcdRegion = lens _imageBuilderDistributionConfigurationDistributionRegion (\s a -> s { _imageBuilderDistributionConfigurationDistributionRegion = a })

+ library-gen/Stratosphere/ResourceProperties/ImageBuilderImagePipelineImageTestsConfiguration.hs view

@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagepipeline-imagetestsconfiguration.html++module Stratosphere.ResourceProperties.ImageBuilderImagePipelineImageTestsConfiguration where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- ImageBuilderImagePipelineImageTestsConfiguration. See+-- 'imageBuilderImagePipelineImageTestsConfiguration' for a more convenient+-- constructor.+data ImageBuilderImagePipelineImageTestsConfiguration =+  ImageBuilderImagePipelineImageTestsConfiguration+  { _imageBuilderImagePipelineImageTestsConfigurationImageTestsEnabled :: Maybe (Val Bool)+  , _imageBuilderImagePipelineImageTestsConfigurationTimeoutMinutes :: Maybe (Val Integer)+  } deriving (Show, Eq)++instance ToJSON ImageBuilderImagePipelineImageTestsConfiguration where+  toJSON ImageBuilderImagePipelineImageTestsConfiguration{..} =+    object $+    catMaybes+    [ fmap (("ImageTestsEnabled",) . toJSON) _imageBuilderImagePipelineImageTestsConfigurationImageTestsEnabled+    , fmap (("TimeoutMinutes",) . toJSON) _imageBuilderImagePipelineImageTestsConfigurationTimeoutMinutes+    ]++-- | Constructor for 'ImageBuilderImagePipelineImageTestsConfiguration'+-- containing required fields as arguments.+imageBuilderImagePipelineImageTestsConfiguration+  :: ImageBuilderImagePipelineImageTestsConfiguration+imageBuilderImagePipelineImageTestsConfiguration  =+  ImageBuilderImagePipelineImageTestsConfiguration+  { _imageBuilderImagePipelineImageTestsConfigurationImageTestsEnabled = Nothing+  , _imageBuilderImagePipelineImageTestsConfigurationTimeoutMinutes = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagepipeline-imagetestsconfiguration.html#cfn-imagebuilder-imagepipeline-imagetestsconfiguration-imagetestsenabled+ibipitcImageTestsEnabled :: Lens' ImageBuilderImagePipelineImageTestsConfiguration (Maybe (Val Bool))+ibipitcImageTestsEnabled = lens _imageBuilderImagePipelineImageTestsConfigurationImageTestsEnabled (\s a -> s { _imageBuilderImagePipelineImageTestsConfigurationImageTestsEnabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagepipeline-imagetestsconfiguration.html#cfn-imagebuilder-imagepipeline-imagetestsconfiguration-timeoutminutes+ibipitcTimeoutMinutes :: Lens' ImageBuilderImagePipelineImageTestsConfiguration (Maybe (Val Integer))+ibipitcTimeoutMinutes = lens _imageBuilderImagePipelineImageTestsConfigurationTimeoutMinutes (\s a -> s { _imageBuilderImagePipelineImageTestsConfigurationTimeoutMinutes = a })

+ library-gen/Stratosphere/ResourceProperties/ImageBuilderImagePipelineSchedule.hs view

@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagepipeline-schedule.html++module Stratosphere.ResourceProperties.ImageBuilderImagePipelineSchedule where++import Stratosphere.ResourceImports+++-- | Full data type definition for ImageBuilderImagePipelineSchedule. See+-- 'imageBuilderImagePipelineSchedule' for a more convenient constructor.+data ImageBuilderImagePipelineSchedule =+  ImageBuilderImagePipelineSchedule+  { _imageBuilderImagePipelineSchedulePipelineExecutionStartCondition :: Maybe (Val Text)+  , _imageBuilderImagePipelineScheduleScheduleExpression :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON ImageBuilderImagePipelineSchedule where+  toJSON ImageBuilderImagePipelineSchedule{..} =+    object $+    catMaybes+    [ fmap (("PipelineExecutionStartCondition",) . toJSON) _imageBuilderImagePipelineSchedulePipelineExecutionStartCondition+    , fmap (("ScheduleExpression",) . toJSON) _imageBuilderImagePipelineScheduleScheduleExpression+    ]++-- | Constructor for 'ImageBuilderImagePipelineSchedule' containing required+-- fields as arguments.+imageBuilderImagePipelineSchedule+  :: ImageBuilderImagePipelineSchedule+imageBuilderImagePipelineSchedule  =+  ImageBuilderImagePipelineSchedule+  { _imageBuilderImagePipelineSchedulePipelineExecutionStartCondition = Nothing+  , _imageBuilderImagePipelineScheduleScheduleExpression = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagepipeline-schedule.html#cfn-imagebuilder-imagepipeline-schedule-pipelineexecutionstartcondition+ibipsPipelineExecutionStartCondition :: Lens' ImageBuilderImagePipelineSchedule (Maybe (Val Text))+ibipsPipelineExecutionStartCondition = lens _imageBuilderImagePipelineSchedulePipelineExecutionStartCondition (\s a -> s { _imageBuilderImagePipelineSchedulePipelineExecutionStartCondition = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagepipeline-schedule.html#cfn-imagebuilder-imagepipeline-schedule-scheduleexpression+ibipsScheduleExpression :: Lens' ImageBuilderImagePipelineSchedule (Maybe (Val Text))+ibipsScheduleExpression = lens _imageBuilderImagePipelineScheduleScheduleExpression (\s a -> s { _imageBuilderImagePipelineScheduleScheduleExpression = a })

+ library-gen/Stratosphere/ResourceProperties/ImageBuilderImageRecipeComponentConfiguration.hs view

@@ -0,0 +1,40 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagerecipe-componentconfiguration.html++module Stratosphere.ResourceProperties.ImageBuilderImageRecipeComponentConfiguration where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- ImageBuilderImageRecipeComponentConfiguration. See+-- 'imageBuilderImageRecipeComponentConfiguration' for a more convenient+-- constructor.+data ImageBuilderImageRecipeComponentConfiguration =+  ImageBuilderImageRecipeComponentConfiguration+  { _imageBuilderImageRecipeComponentConfigurationComponentArn :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON ImageBuilderImageRecipeComponentConfiguration where+  toJSON ImageBuilderImageRecipeComponentConfiguration{..} =+    object $+    catMaybes+    [ fmap (("ComponentArn",) . toJSON) _imageBuilderImageRecipeComponentConfigurationComponentArn+    ]++-- | Constructor for 'ImageBuilderImageRecipeComponentConfiguration'+-- containing required fields as arguments.+imageBuilderImageRecipeComponentConfiguration+  :: ImageBuilderImageRecipeComponentConfiguration+imageBuilderImageRecipeComponentConfiguration  =+  ImageBuilderImageRecipeComponentConfiguration+  { _imageBuilderImageRecipeComponentConfigurationComponentArn = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagerecipe-componentconfiguration.html#cfn-imagebuilder-imagerecipe-componentconfiguration-componentarn+ibirccComponentArn :: Lens' ImageBuilderImageRecipeComponentConfiguration (Maybe (Val Text))+ibirccComponentArn = lens _imageBuilderImageRecipeComponentConfigurationComponentArn (\s a -> s { _imageBuilderImageRecipeComponentConfigurationComponentArn = a })

+ library-gen/Stratosphere/ResourceProperties/ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification.hs view

@@ -0,0 +1,83 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagerecipe-ebsinstanceblockdevicespecification.html++module Stratosphere.ResourceProperties.ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification. See+-- 'imageBuilderImageRecipeEbsInstanceBlockDeviceSpecification' for a more+-- convenient constructor.+data ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification =+  ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification+  { _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationDeleteOnTermination :: Maybe (Val Bool)+  , _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationEncrypted :: Maybe (Val Bool)+  , _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationIops :: Maybe (Val Integer)+  , _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationKmsKeyId :: Maybe (Val Text)+  , _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationSnapshotId :: Maybe (Val Text)+  , _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationVolumeSize :: Maybe (Val Integer)+  , _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationVolumeType :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification where+  toJSON ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification{..} =+    object $+    catMaybes+    [ fmap (("DeleteOnTermination",) . toJSON) _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationDeleteOnTermination+    , fmap (("Encrypted",) . toJSON) _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationEncrypted+    , fmap (("Iops",) . toJSON) _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationIops+    , fmap (("KmsKeyId",) . toJSON) _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationKmsKeyId+    , fmap (("SnapshotId",) . toJSON) _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationSnapshotId+    , fmap (("VolumeSize",) . toJSON) _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationVolumeSize+    , fmap (("VolumeType",) . toJSON) _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationVolumeType+    ]++-- | Constructor for+-- 'ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification' containing+-- required fields as arguments.+imageBuilderImageRecipeEbsInstanceBlockDeviceSpecification+  :: ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification+imageBuilderImageRecipeEbsInstanceBlockDeviceSpecification  =+  ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification+  { _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationDeleteOnTermination = Nothing+  , _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationEncrypted = Nothing+  , _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationIops = Nothing+  , _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationKmsKeyId = Nothing+  , _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationSnapshotId = Nothing+  , _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationVolumeSize = Nothing+  , _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationVolumeType = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagerecipe-ebsinstanceblockdevicespecification.html#cfn-imagebuilder-imagerecipe-ebsinstanceblockdevicespecification-deleteontermination+ibireibdsDeleteOnTermination :: Lens' ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification (Maybe (Val Bool))+ibireibdsDeleteOnTermination = lens _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationDeleteOnTermination (\s a -> s { _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationDeleteOnTermination = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagerecipe-ebsinstanceblockdevicespecification.html#cfn-imagebuilder-imagerecipe-ebsinstanceblockdevicespecification-encrypted+ibireibdsEncrypted :: Lens' ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification (Maybe (Val Bool))+ibireibdsEncrypted = lens _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationEncrypted (\s a -> s { _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationEncrypted = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagerecipe-ebsinstanceblockdevicespecification.html#cfn-imagebuilder-imagerecipe-ebsinstanceblockdevicespecification-iops+ibireibdsIops :: Lens' ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification (Maybe (Val Integer))+ibireibdsIops = lens _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationIops (\s a -> s { _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationIops = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagerecipe-ebsinstanceblockdevicespecification.html#cfn-imagebuilder-imagerecipe-ebsinstanceblockdevicespecification-kmskeyid+ibireibdsKmsKeyId :: Lens' ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification (Maybe (Val Text))+ibireibdsKmsKeyId = lens _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationKmsKeyId (\s a -> s { _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationKmsKeyId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagerecipe-ebsinstanceblockdevicespecification.html#cfn-imagebuilder-imagerecipe-ebsinstanceblockdevicespecification-snapshotid+ibireibdsSnapshotId :: Lens' ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification (Maybe (Val Text))+ibireibdsSnapshotId = lens _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationSnapshotId (\s a -> s { _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationSnapshotId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagerecipe-ebsinstanceblockdevicespecification.html#cfn-imagebuilder-imagerecipe-ebsinstanceblockdevicespecification-volumesize+ibireibdsVolumeSize :: Lens' ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification (Maybe (Val Integer))+ibireibdsVolumeSize = lens _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationVolumeSize (\s a -> s { _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationVolumeSize = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagerecipe-ebsinstanceblockdevicespecification.html#cfn-imagebuilder-imagerecipe-ebsinstanceblockdevicespecification-volumetype+ibireibdsVolumeType :: Lens' ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification (Maybe (Val Text))+ibireibdsVolumeType = lens _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationVolumeType (\s a -> s { _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationVolumeType = a })

+ library-gen/Stratosphere/ResourceProperties/ImageBuilderImageRecipeInstanceBlockDeviceMapping.hs view

@@ -0,0 +1,61 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagerecipe-instanceblockdevicemapping.html++module Stratosphere.ResourceProperties.ImageBuilderImageRecipeInstanceBlockDeviceMapping where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification++-- | Full data type definition for+-- ImageBuilderImageRecipeInstanceBlockDeviceMapping. See+-- 'imageBuilderImageRecipeInstanceBlockDeviceMapping' for a more convenient+-- constructor.+data ImageBuilderImageRecipeInstanceBlockDeviceMapping =+  ImageBuilderImageRecipeInstanceBlockDeviceMapping+  { _imageBuilderImageRecipeInstanceBlockDeviceMappingDeviceName :: Maybe (Val Text)+  , _imageBuilderImageRecipeInstanceBlockDeviceMappingEbs :: Maybe ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification+  , _imageBuilderImageRecipeInstanceBlockDeviceMappingNoDevice :: Maybe (Val Text)+  , _imageBuilderImageRecipeInstanceBlockDeviceMappingVirtualName :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON ImageBuilderImageRecipeInstanceBlockDeviceMapping where+  toJSON ImageBuilderImageRecipeInstanceBlockDeviceMapping{..} =+    object $+    catMaybes+    [ fmap (("DeviceName",) . toJSON) _imageBuilderImageRecipeInstanceBlockDeviceMappingDeviceName+    , fmap (("Ebs",) . toJSON) _imageBuilderImageRecipeInstanceBlockDeviceMappingEbs+    , fmap (("NoDevice",) . toJSON) _imageBuilderImageRecipeInstanceBlockDeviceMappingNoDevice+    , fmap (("VirtualName",) . toJSON) _imageBuilderImageRecipeInstanceBlockDeviceMappingVirtualName+    ]++-- | Constructor for 'ImageBuilderImageRecipeInstanceBlockDeviceMapping'+-- containing required fields as arguments.+imageBuilderImageRecipeInstanceBlockDeviceMapping+  :: ImageBuilderImageRecipeInstanceBlockDeviceMapping+imageBuilderImageRecipeInstanceBlockDeviceMapping  =+  ImageBuilderImageRecipeInstanceBlockDeviceMapping+  { _imageBuilderImageRecipeInstanceBlockDeviceMappingDeviceName = Nothing+  , _imageBuilderImageRecipeInstanceBlockDeviceMappingEbs = Nothing+  , _imageBuilderImageRecipeInstanceBlockDeviceMappingNoDevice = Nothing+  , _imageBuilderImageRecipeInstanceBlockDeviceMappingVirtualName = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagerecipe-instanceblockdevicemapping.html#cfn-imagebuilder-imagerecipe-instanceblockdevicemapping-devicename+ibiribdmDeviceName :: Lens' ImageBuilderImageRecipeInstanceBlockDeviceMapping (Maybe (Val Text))+ibiribdmDeviceName = lens _imageBuilderImageRecipeInstanceBlockDeviceMappingDeviceName (\s a -> s { _imageBuilderImageRecipeInstanceBlockDeviceMappingDeviceName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagerecipe-instanceblockdevicemapping.html#cfn-imagebuilder-imagerecipe-instanceblockdevicemapping-ebs+ibiribdmEbs :: Lens' ImageBuilderImageRecipeInstanceBlockDeviceMapping (Maybe ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification)+ibiribdmEbs = lens _imageBuilderImageRecipeInstanceBlockDeviceMappingEbs (\s a -> s { _imageBuilderImageRecipeInstanceBlockDeviceMappingEbs = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagerecipe-instanceblockdevicemapping.html#cfn-imagebuilder-imagerecipe-instanceblockdevicemapping-nodevice+ibiribdmNoDevice :: Lens' ImageBuilderImageRecipeInstanceBlockDeviceMapping (Maybe (Val Text))+ibiribdmNoDevice = lens _imageBuilderImageRecipeInstanceBlockDeviceMappingNoDevice (\s a -> s { _imageBuilderImageRecipeInstanceBlockDeviceMappingNoDevice = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagerecipe-instanceblockdevicemapping.html#cfn-imagebuilder-imagerecipe-instanceblockdevicemapping-virtualname+ibiribdmVirtualName :: Lens' ImageBuilderImageRecipeInstanceBlockDeviceMapping (Maybe (Val Text))+ibiribdmVirtualName = lens _imageBuilderImageRecipeInstanceBlockDeviceMappingVirtualName (\s a -> s { _imageBuilderImageRecipeInstanceBlockDeviceMappingVirtualName = a })

+ library-gen/Stratosphere/ResourceProperties/ImageBuilderInfrastructureConfigurationLogging.hs view

@@ -0,0 +1,40 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-infrastructureconfiguration-logging.html++module Stratosphere.ResourceProperties.ImageBuilderInfrastructureConfigurationLogging where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.ImageBuilderInfrastructureConfigurationS3Logs++-- | Full data type definition for+-- ImageBuilderInfrastructureConfigurationLogging. See+-- 'imageBuilderInfrastructureConfigurationLogging' for a more convenient+-- constructor.+data ImageBuilderInfrastructureConfigurationLogging =+  ImageBuilderInfrastructureConfigurationLogging+  { _imageBuilderInfrastructureConfigurationLoggingS3Logs :: Maybe ImageBuilderInfrastructureConfigurationS3Logs+  } deriving (Show, Eq)++instance ToJSON ImageBuilderInfrastructureConfigurationLogging where+  toJSON ImageBuilderInfrastructureConfigurationLogging{..} =+    object $+    catMaybes+    [ fmap (("S3Logs",) . toJSON) _imageBuilderInfrastructureConfigurationLoggingS3Logs+    ]++-- | Constructor for 'ImageBuilderInfrastructureConfigurationLogging'+-- containing required fields as arguments.+imageBuilderInfrastructureConfigurationLogging+  :: ImageBuilderInfrastructureConfigurationLogging+imageBuilderInfrastructureConfigurationLogging  =+  ImageBuilderInfrastructureConfigurationLogging+  { _imageBuilderInfrastructureConfigurationLoggingS3Logs = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-infrastructureconfiguration-logging.html#cfn-imagebuilder-infrastructureconfiguration-logging-s3logs+ibiclS3Logs :: Lens' ImageBuilderInfrastructureConfigurationLogging (Maybe ImageBuilderInfrastructureConfigurationS3Logs)+ibiclS3Logs = lens _imageBuilderInfrastructureConfigurationLoggingS3Logs (\s a -> s { _imageBuilderInfrastructureConfigurationLoggingS3Logs = a })

+ library-gen/Stratosphere/ResourceProperties/ImageBuilderInfrastructureConfigurationS3Logs.hs view

@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-infrastructureconfiguration-s3logs.html++module Stratosphere.ResourceProperties.ImageBuilderInfrastructureConfigurationS3Logs where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- ImageBuilderInfrastructureConfigurationS3Logs. See+-- 'imageBuilderInfrastructureConfigurationS3Logs' for a more convenient+-- constructor.+data ImageBuilderInfrastructureConfigurationS3Logs =+  ImageBuilderInfrastructureConfigurationS3Logs+  { _imageBuilderInfrastructureConfigurationS3LogsS3BucketName :: Maybe (Val Text)+  , _imageBuilderInfrastructureConfigurationS3LogsS3KeyPrefix :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON ImageBuilderInfrastructureConfigurationS3Logs where+  toJSON ImageBuilderInfrastructureConfigurationS3Logs{..} =+    object $+    catMaybes+    [ fmap (("S3BucketName",) . toJSON) _imageBuilderInfrastructureConfigurationS3LogsS3BucketName+    , fmap (("S3KeyPrefix",) . toJSON) _imageBuilderInfrastructureConfigurationS3LogsS3KeyPrefix+    ]++-- | Constructor for 'ImageBuilderInfrastructureConfigurationS3Logs'+-- containing required fields as arguments.+imageBuilderInfrastructureConfigurationS3Logs+  :: ImageBuilderInfrastructureConfigurationS3Logs+imageBuilderInfrastructureConfigurationS3Logs  =+  ImageBuilderInfrastructureConfigurationS3Logs+  { _imageBuilderInfrastructureConfigurationS3LogsS3BucketName = Nothing+  , _imageBuilderInfrastructureConfigurationS3LogsS3KeyPrefix = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-infrastructureconfiguration-s3logs.html#cfn-imagebuilder-infrastructureconfiguration-s3logs-s3bucketname+ibicslS3BucketName :: Lens' ImageBuilderInfrastructureConfigurationS3Logs (Maybe (Val Text))+ibicslS3BucketName = lens _imageBuilderInfrastructureConfigurationS3LogsS3BucketName (\s a -> s { _imageBuilderInfrastructureConfigurationS3LogsS3BucketName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-infrastructureconfiguration-s3logs.html#cfn-imagebuilder-infrastructureconfiguration-s3logs-s3keyprefix+ibicslS3KeyPrefix :: Lens' ImageBuilderInfrastructureConfigurationS3Logs (Maybe (Val Text))+ibicslS3KeyPrefix = lens _imageBuilderInfrastructureConfigurationS3LogsS3KeyPrefix (\s a -> s { _imageBuilderInfrastructureConfigurationS3LogsS3KeyPrefix = a })

library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelSetTimer.hs view

@@ -14,7 +14,8 @@ -- 'ioTEventsDetectorModelSetTimer' for a more convenient constructor. data IoTEventsDetectorModelSetTimer =   IoTEventsDetectorModelSetTimer-  { _ioTEventsDetectorModelSetTimerSeconds :: Maybe (Val Integer)+  { _ioTEventsDetectorModelSetTimerDurationExpression :: Maybe (Val Text)+  , _ioTEventsDetectorModelSetTimerSeconds :: Maybe (Val Integer)   , _ioTEventsDetectorModelSetTimerTimerName :: Maybe (Val Text)   } deriving (Show, Eq) @@ -22,7 +23,8 @@   toJSON IoTEventsDetectorModelSetTimer{..} =     object $     catMaybes-    [ fmap (("Seconds",) . toJSON) _ioTEventsDetectorModelSetTimerSeconds+    [ fmap (("DurationExpression",) . toJSON) _ioTEventsDetectorModelSetTimerDurationExpression+    , fmap (("Seconds",) . toJSON) _ioTEventsDetectorModelSetTimerSeconds     , fmap (("TimerName",) . toJSON) _ioTEventsDetectorModelSetTimerTimerName     ] @@ -32,9 +34,14 @@   :: IoTEventsDetectorModelSetTimer ioTEventsDetectorModelSetTimer  =   IoTEventsDetectorModelSetTimer-  { _ioTEventsDetectorModelSetTimerSeconds = Nothing+  { _ioTEventsDetectorModelSetTimerDurationExpression = Nothing+  , _ioTEventsDetectorModelSetTimerSeconds = Nothing   , _ioTEventsDetectorModelSetTimerTimerName = Nothing   }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-settimer.html#cfn-iotevents-detectormodel-settimer-durationexpression+itedmstDurationExpression :: Lens' IoTEventsDetectorModelSetTimer (Maybe (Val Text))+itedmstDurationExpression = lens _ioTEventsDetectorModelSetTimerDurationExpression (\s a -> s { _ioTEventsDetectorModelSetTimerDurationExpression = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-settimer.html#cfn-iotevents-detectormodel-settimer-seconds itedmstSeconds :: Lens' IoTEventsDetectorModelSetTimer (Maybe (Val Integer))

library-gen/Stratosphere/ResourceProperties/IoTTopicRuleAction.hs view

@@ -14,7 +14,10 @@ import Stratosphere.ResourceProperties.IoTTopicRuleDynamoDBV2Action import Stratosphere.ResourceProperties.IoTTopicRuleElasticsearchAction import Stratosphere.ResourceProperties.IoTTopicRuleFirehoseAction+import Stratosphere.ResourceProperties.IoTTopicRuleHttpAction import Stratosphere.ResourceProperties.IoTTopicRuleIotAnalyticsAction+import Stratosphere.ResourceProperties.IoTTopicRuleIotEventsAction+import Stratosphere.ResourceProperties.IoTTopicRuleIotSiteWiseAction import Stratosphere.ResourceProperties.IoTTopicRuleKinesisAction import Stratosphere.ResourceProperties.IoTTopicRuleLambdaAction import Stratosphere.ResourceProperties.IoTTopicRuleRepublishAction@@ -33,7 +36,10 @@   , _ioTTopicRuleActionDynamoDBv2 :: Maybe IoTTopicRuleDynamoDBV2Action   , _ioTTopicRuleActionElasticsearch :: Maybe IoTTopicRuleElasticsearchAction   , _ioTTopicRuleActionFirehose :: Maybe IoTTopicRuleFirehoseAction+  , _ioTTopicRuleActionHttp :: Maybe IoTTopicRuleHttpAction   , _ioTTopicRuleActionIotAnalytics :: Maybe IoTTopicRuleIotAnalyticsAction+  , _ioTTopicRuleActionIotEvents :: Maybe IoTTopicRuleIotEventsAction+  , _ioTTopicRuleActionIotSiteWise :: Maybe IoTTopicRuleIotSiteWiseAction   , _ioTTopicRuleActionKinesis :: Maybe IoTTopicRuleKinesisAction   , _ioTTopicRuleActionLambda :: Maybe IoTTopicRuleLambdaAction   , _ioTTopicRuleActionRepublish :: Maybe IoTTopicRuleRepublishAction@@ -53,7 +59,10 @@     , fmap (("DynamoDBv2",) . toJSON) _ioTTopicRuleActionDynamoDBv2     , fmap (("Elasticsearch",) . toJSON) _ioTTopicRuleActionElasticsearch     , fmap (("Firehose",) . toJSON) _ioTTopicRuleActionFirehose+    , fmap (("Http",) . toJSON) _ioTTopicRuleActionHttp     , fmap (("IotAnalytics",) . toJSON) _ioTTopicRuleActionIotAnalytics+    , fmap (("IotEvents",) . toJSON) _ioTTopicRuleActionIotEvents+    , fmap (("IotSiteWise",) . toJSON) _ioTTopicRuleActionIotSiteWise     , fmap (("Kinesis",) . toJSON) _ioTTopicRuleActionKinesis     , fmap (("Lambda",) . toJSON) _ioTTopicRuleActionLambda     , fmap (("Republish",) . toJSON) _ioTTopicRuleActionRepublish@@ -75,7 +84,10 @@   , _ioTTopicRuleActionDynamoDBv2 = Nothing   , _ioTTopicRuleActionElasticsearch = Nothing   , _ioTTopicRuleActionFirehose = Nothing+  , _ioTTopicRuleActionHttp = Nothing   , _ioTTopicRuleActionIotAnalytics = Nothing+  , _ioTTopicRuleActionIotEvents = Nothing+  , _ioTTopicRuleActionIotSiteWise = Nothing   , _ioTTopicRuleActionKinesis = Nothing   , _ioTTopicRuleActionLambda = Nothing   , _ioTTopicRuleActionRepublish = Nothing@@ -109,9 +121,21 @@ ittraFirehose :: Lens' IoTTopicRuleAction (Maybe IoTTopicRuleFirehoseAction) ittraFirehose = lens _ioTTopicRuleActionFirehose (\s a -> s { _ioTTopicRuleActionFirehose = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-action.html#cfn-iot-topicrule-action-http+ittraHttp :: Lens' IoTTopicRuleAction (Maybe IoTTopicRuleHttpAction)+ittraHttp = lens _ioTTopicRuleActionHttp (\s a -> s { _ioTTopicRuleActionHttp = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-action.html#cfn-iot-topicrule-action-iotanalytics ittraIotAnalytics :: Lens' IoTTopicRuleAction (Maybe IoTTopicRuleIotAnalyticsAction) ittraIotAnalytics = lens _ioTTopicRuleActionIotAnalytics (\s a -> s { _ioTTopicRuleActionIotAnalytics = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-action.html#cfn-iot-topicrule-action-iotevents+ittraIotEvents :: Lens' IoTTopicRuleAction (Maybe IoTTopicRuleIotEventsAction)+ittraIotEvents = lens _ioTTopicRuleActionIotEvents (\s a -> s { _ioTTopicRuleActionIotEvents = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-action.html#cfn-iot-topicrule-action-iotsitewise+ittraIotSiteWise :: Lens' IoTTopicRuleAction (Maybe IoTTopicRuleIotSiteWiseAction)+ittraIotSiteWise = lens _ioTTopicRuleActionIotSiteWise (\s a -> s { _ioTTopicRuleActionIotSiteWise = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-action.html#cfn-iot-topicrule-action-kinesis ittraKinesis :: Lens' IoTTopicRuleAction (Maybe IoTTopicRuleKinesisAction)

+ library-gen/Stratosphere/ResourceProperties/IoTTopicRuleAssetPropertyTimestamp.hs view

@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-assetpropertytimestamp.html++module Stratosphere.ResourceProperties.IoTTopicRuleAssetPropertyTimestamp where++import Stratosphere.ResourceImports+++-- | Full data type definition for IoTTopicRuleAssetPropertyTimestamp. See+-- 'ioTTopicRuleAssetPropertyTimestamp' for a more convenient constructor.+data IoTTopicRuleAssetPropertyTimestamp =+  IoTTopicRuleAssetPropertyTimestamp+  { _ioTTopicRuleAssetPropertyTimestampOffsetInNanos :: Maybe (Val Text)+  , _ioTTopicRuleAssetPropertyTimestampTimeInSeconds :: Val Text+  } deriving (Show, Eq)++instance ToJSON IoTTopicRuleAssetPropertyTimestamp where+  toJSON IoTTopicRuleAssetPropertyTimestamp{..} =+    object $+    catMaybes+    [ fmap (("OffsetInNanos",) . toJSON) _ioTTopicRuleAssetPropertyTimestampOffsetInNanos+    , (Just . ("TimeInSeconds",) . toJSON) _ioTTopicRuleAssetPropertyTimestampTimeInSeconds+    ]++-- | Constructor for 'IoTTopicRuleAssetPropertyTimestamp' containing required+-- fields as arguments.+ioTTopicRuleAssetPropertyTimestamp+  :: Val Text -- ^ 'ittraptTimeInSeconds'+  -> IoTTopicRuleAssetPropertyTimestamp+ioTTopicRuleAssetPropertyTimestamp timeInSecondsarg =+  IoTTopicRuleAssetPropertyTimestamp+  { _ioTTopicRuleAssetPropertyTimestampOffsetInNanos = Nothing+  , _ioTTopicRuleAssetPropertyTimestampTimeInSeconds = timeInSecondsarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-assetpropertytimestamp.html#cfn-iot-topicrule-assetpropertytimestamp-offsetinnanos+ittraptOffsetInNanos :: Lens' IoTTopicRuleAssetPropertyTimestamp (Maybe (Val Text))+ittraptOffsetInNanos = lens _ioTTopicRuleAssetPropertyTimestampOffsetInNanos (\s a -> s { _ioTTopicRuleAssetPropertyTimestampOffsetInNanos = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-assetpropertytimestamp.html#cfn-iot-topicrule-assetpropertytimestamp-timeinseconds+ittraptTimeInSeconds :: Lens' IoTTopicRuleAssetPropertyTimestamp (Val Text)+ittraptTimeInSeconds = lens _ioTTopicRuleAssetPropertyTimestampTimeInSeconds (\s a -> s { _ioTTopicRuleAssetPropertyTimestampTimeInSeconds = a })

+ library-gen/Stratosphere/ResourceProperties/IoTTopicRuleAssetPropertyValue.hs view

@@ -0,0 +1,55 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-assetpropertyvalue.html++module Stratosphere.ResourceProperties.IoTTopicRuleAssetPropertyValue where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.IoTTopicRuleAssetPropertyTimestamp+import Stratosphere.ResourceProperties.IoTTopicRuleAssetPropertyVariant++-- | Full data type definition for IoTTopicRuleAssetPropertyValue. See+-- 'ioTTopicRuleAssetPropertyValue' for a more convenient constructor.+data IoTTopicRuleAssetPropertyValue =+  IoTTopicRuleAssetPropertyValue+  { _ioTTopicRuleAssetPropertyValueQuality :: Maybe (Val Text)+  , _ioTTopicRuleAssetPropertyValueTimestamp :: IoTTopicRuleAssetPropertyTimestamp+  , _ioTTopicRuleAssetPropertyValueValue :: IoTTopicRuleAssetPropertyVariant+  } deriving (Show, Eq)++instance ToJSON IoTTopicRuleAssetPropertyValue where+  toJSON IoTTopicRuleAssetPropertyValue{..} =+    object $+    catMaybes+    [ fmap (("Quality",) . toJSON) _ioTTopicRuleAssetPropertyValueQuality+    , (Just . ("Timestamp",) . toJSON) _ioTTopicRuleAssetPropertyValueTimestamp+    , (Just . ("Value",) . toJSON) _ioTTopicRuleAssetPropertyValueValue+    ]++-- | Constructor for 'IoTTopicRuleAssetPropertyValue' containing required+-- fields as arguments.+ioTTopicRuleAssetPropertyValue+  :: IoTTopicRuleAssetPropertyTimestamp -- ^ 'ittrapvTimestamp'+  -> IoTTopicRuleAssetPropertyVariant -- ^ 'ittrapvValue'+  -> IoTTopicRuleAssetPropertyValue+ioTTopicRuleAssetPropertyValue timestamparg valuearg =+  IoTTopicRuleAssetPropertyValue+  { _ioTTopicRuleAssetPropertyValueQuality = Nothing+  , _ioTTopicRuleAssetPropertyValueTimestamp = timestamparg+  , _ioTTopicRuleAssetPropertyValueValue = valuearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-assetpropertyvalue.html#cfn-iot-topicrule-assetpropertyvalue-quality+ittrapvQuality :: Lens' IoTTopicRuleAssetPropertyValue (Maybe (Val Text))+ittrapvQuality = lens _ioTTopicRuleAssetPropertyValueQuality (\s a -> s { _ioTTopicRuleAssetPropertyValueQuality = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-assetpropertyvalue.html#cfn-iot-topicrule-assetpropertyvalue-timestamp+ittrapvTimestamp :: Lens' IoTTopicRuleAssetPropertyValue IoTTopicRuleAssetPropertyTimestamp+ittrapvTimestamp = lens _ioTTopicRuleAssetPropertyValueTimestamp (\s a -> s { _ioTTopicRuleAssetPropertyValueTimestamp = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-assetpropertyvalue.html#cfn-iot-topicrule-assetpropertyvalue-value+ittrapvValue :: Lens' IoTTopicRuleAssetPropertyValue IoTTopicRuleAssetPropertyVariant+ittrapvValue = lens _ioTTopicRuleAssetPropertyValueValue (\s a -> s { _ioTTopicRuleAssetPropertyValueValue = a })

+ library-gen/Stratosphere/ResourceProperties/IoTTopicRuleAssetPropertyVariant.hs view

@@ -0,0 +1,59 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-assetpropertyvariant.html++module Stratosphere.ResourceProperties.IoTTopicRuleAssetPropertyVariant where++import Stratosphere.ResourceImports+++-- | Full data type definition for IoTTopicRuleAssetPropertyVariant. See+-- 'ioTTopicRuleAssetPropertyVariant' for a more convenient constructor.+data IoTTopicRuleAssetPropertyVariant =+  IoTTopicRuleAssetPropertyVariant+  { _ioTTopicRuleAssetPropertyVariantBooleanValue :: Maybe (Val Text)+  , _ioTTopicRuleAssetPropertyVariantDoubleValue :: Maybe (Val Text)+  , _ioTTopicRuleAssetPropertyVariantIntegerValue :: Maybe (Val Text)+  , _ioTTopicRuleAssetPropertyVariantStringValue :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON IoTTopicRuleAssetPropertyVariant where+  toJSON IoTTopicRuleAssetPropertyVariant{..} =+    object $+    catMaybes+    [ fmap (("BooleanValue",) . toJSON) _ioTTopicRuleAssetPropertyVariantBooleanValue+    , fmap (("DoubleValue",) . toJSON) _ioTTopicRuleAssetPropertyVariantDoubleValue+    , fmap (("IntegerValue",) . toJSON) _ioTTopicRuleAssetPropertyVariantIntegerValue+    , fmap (("StringValue",) . toJSON) _ioTTopicRuleAssetPropertyVariantStringValue+    ]++-- | Constructor for 'IoTTopicRuleAssetPropertyVariant' containing required+-- fields as arguments.+ioTTopicRuleAssetPropertyVariant+  :: IoTTopicRuleAssetPropertyVariant+ioTTopicRuleAssetPropertyVariant  =+  IoTTopicRuleAssetPropertyVariant+  { _ioTTopicRuleAssetPropertyVariantBooleanValue = Nothing+  , _ioTTopicRuleAssetPropertyVariantDoubleValue = Nothing+  , _ioTTopicRuleAssetPropertyVariantIntegerValue = Nothing+  , _ioTTopicRuleAssetPropertyVariantStringValue = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-assetpropertyvariant.html#cfn-iot-topicrule-assetpropertyvariant-booleanvalue+ittrapvBooleanValue :: Lens' IoTTopicRuleAssetPropertyVariant (Maybe (Val Text))+ittrapvBooleanValue = lens _ioTTopicRuleAssetPropertyVariantBooleanValue (\s a -> s { _ioTTopicRuleAssetPropertyVariantBooleanValue = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-assetpropertyvariant.html#cfn-iot-topicrule-assetpropertyvariant-doublevalue+ittrapvDoubleValue :: Lens' IoTTopicRuleAssetPropertyVariant (Maybe (Val Text))+ittrapvDoubleValue = lens _ioTTopicRuleAssetPropertyVariantDoubleValue (\s a -> s { _ioTTopicRuleAssetPropertyVariantDoubleValue = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-assetpropertyvariant.html#cfn-iot-topicrule-assetpropertyvariant-integervalue+ittrapvIntegerValue :: Lens' IoTTopicRuleAssetPropertyVariant (Maybe (Val Text))+ittrapvIntegerValue = lens _ioTTopicRuleAssetPropertyVariantIntegerValue (\s a -> s { _ioTTopicRuleAssetPropertyVariantIntegerValue = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-assetpropertyvariant.html#cfn-iot-topicrule-assetpropertyvariant-stringvalue+ittrapvStringValue :: Lens' IoTTopicRuleAssetPropertyVariant (Maybe (Val Text))+ittrapvStringValue = lens _ioTTopicRuleAssetPropertyVariantStringValue (\s a -> s { _ioTTopicRuleAssetPropertyVariantStringValue = a })

+ library-gen/Stratosphere/ResourceProperties/IoTTopicRuleHttpAction.hs view

@@ -0,0 +1,61 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-httpaction.html++module Stratosphere.ResourceProperties.IoTTopicRuleHttpAction where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.IoTTopicRuleHttpAuthorization+import Stratosphere.ResourceProperties.IoTTopicRuleHttpActionHeader++-- | Full data type definition for IoTTopicRuleHttpAction. See+-- 'ioTTopicRuleHttpAction' for a more convenient constructor.+data IoTTopicRuleHttpAction =+  IoTTopicRuleHttpAction+  { _ioTTopicRuleHttpActionAuth :: Maybe IoTTopicRuleHttpAuthorization+  , _ioTTopicRuleHttpActionConfirmationUrl :: Maybe (Val Text)+  , _ioTTopicRuleHttpActionHeaders :: Maybe [IoTTopicRuleHttpActionHeader]+  , _ioTTopicRuleHttpActionUrl :: Val Text+  } deriving (Show, Eq)++instance ToJSON IoTTopicRuleHttpAction where+  toJSON IoTTopicRuleHttpAction{..} =+    object $+    catMaybes+    [ fmap (("Auth",) . toJSON) _ioTTopicRuleHttpActionAuth+    , fmap (("ConfirmationUrl",) . toJSON) _ioTTopicRuleHttpActionConfirmationUrl+    , fmap (("Headers",) . toJSON) _ioTTopicRuleHttpActionHeaders+    , (Just . ("Url",) . toJSON) _ioTTopicRuleHttpActionUrl+    ]++-- | Constructor for 'IoTTopicRuleHttpAction' containing required fields as+-- arguments.+ioTTopicRuleHttpAction+  :: Val Text -- ^ 'ittrhaUrl'+  -> IoTTopicRuleHttpAction+ioTTopicRuleHttpAction urlarg =+  IoTTopicRuleHttpAction+  { _ioTTopicRuleHttpActionAuth = Nothing+  , _ioTTopicRuleHttpActionConfirmationUrl = Nothing+  , _ioTTopicRuleHttpActionHeaders = Nothing+  , _ioTTopicRuleHttpActionUrl = urlarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-httpaction.html#cfn-iot-topicrule-httpaction-auth+ittrhaAuth :: Lens' IoTTopicRuleHttpAction (Maybe IoTTopicRuleHttpAuthorization)+ittrhaAuth = lens _ioTTopicRuleHttpActionAuth (\s a -> s { _ioTTopicRuleHttpActionAuth = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-httpaction.html#cfn-iot-topicrule-httpaction-confirmationurl+ittrhaConfirmationUrl :: Lens' IoTTopicRuleHttpAction (Maybe (Val Text))+ittrhaConfirmationUrl = lens _ioTTopicRuleHttpActionConfirmationUrl (\s a -> s { _ioTTopicRuleHttpActionConfirmationUrl = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-httpaction.html#cfn-iot-topicrule-httpaction-headers+ittrhaHeaders :: Lens' IoTTopicRuleHttpAction (Maybe [IoTTopicRuleHttpActionHeader])+ittrhaHeaders = lens _ioTTopicRuleHttpActionHeaders (\s a -> s { _ioTTopicRuleHttpActionHeaders = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-httpaction.html#cfn-iot-topicrule-httpaction-url+ittrhaUrl :: Lens' IoTTopicRuleHttpAction (Val Text)+ittrhaUrl = lens _ioTTopicRuleHttpActionUrl (\s a -> s { _ioTTopicRuleHttpActionUrl = a })

+ library-gen/Stratosphere/ResourceProperties/IoTTopicRuleHttpActionHeader.hs view

@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-httpactionheader.html++module Stratosphere.ResourceProperties.IoTTopicRuleHttpActionHeader where++import Stratosphere.ResourceImports+++-- | Full data type definition for IoTTopicRuleHttpActionHeader. See+-- 'ioTTopicRuleHttpActionHeader' for a more convenient constructor.+data IoTTopicRuleHttpActionHeader =+  IoTTopicRuleHttpActionHeader+  { _ioTTopicRuleHttpActionHeaderKey :: Val Text+  , _ioTTopicRuleHttpActionHeaderValue :: Val Text+  } deriving (Show, Eq)++instance ToJSON IoTTopicRuleHttpActionHeader where+  toJSON IoTTopicRuleHttpActionHeader{..} =+    object $+    catMaybes+    [ (Just . ("Key",) . toJSON) _ioTTopicRuleHttpActionHeaderKey+    , (Just . ("Value",) . toJSON) _ioTTopicRuleHttpActionHeaderValue+    ]++-- | Constructor for 'IoTTopicRuleHttpActionHeader' containing required fields+-- as arguments.+ioTTopicRuleHttpActionHeader+  :: Val Text -- ^ 'ittrhahKey'+  -> Val Text -- ^ 'ittrhahValue'+  -> IoTTopicRuleHttpActionHeader+ioTTopicRuleHttpActionHeader keyarg valuearg =+  IoTTopicRuleHttpActionHeader+  { _ioTTopicRuleHttpActionHeaderKey = keyarg+  , _ioTTopicRuleHttpActionHeaderValue = valuearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-httpactionheader.html#cfn-iot-topicrule-httpactionheader-key+ittrhahKey :: Lens' IoTTopicRuleHttpActionHeader (Val Text)+ittrhahKey = lens _ioTTopicRuleHttpActionHeaderKey (\s a -> s { _ioTTopicRuleHttpActionHeaderKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-httpactionheader.html#cfn-iot-topicrule-httpactionheader-value+ittrhahValue :: Lens' IoTTopicRuleHttpActionHeader (Val Text)+ittrhahValue = lens _ioTTopicRuleHttpActionHeaderValue (\s a -> s { _ioTTopicRuleHttpActionHeaderValue = a })

+ library-gen/Stratosphere/ResourceProperties/IoTTopicRuleHttpAuthorization.hs view

@@ -0,0 +1,38 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-httpauthorization.html++module Stratosphere.ResourceProperties.IoTTopicRuleHttpAuthorization where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.IoTTopicRuleSigV4Authorization++-- | Full data type definition for IoTTopicRuleHttpAuthorization. See+-- 'ioTTopicRuleHttpAuthorization' for a more convenient constructor.+data IoTTopicRuleHttpAuthorization =+  IoTTopicRuleHttpAuthorization+  { _ioTTopicRuleHttpAuthorizationSigv4 :: Maybe IoTTopicRuleSigV4Authorization+  } deriving (Show, Eq)++instance ToJSON IoTTopicRuleHttpAuthorization where+  toJSON IoTTopicRuleHttpAuthorization{..} =+    object $+    catMaybes+    [ fmap (("Sigv4",) . toJSON) _ioTTopicRuleHttpAuthorizationSigv4+    ]++-- | Constructor for 'IoTTopicRuleHttpAuthorization' containing required+-- fields as arguments.+ioTTopicRuleHttpAuthorization+  :: IoTTopicRuleHttpAuthorization+ioTTopicRuleHttpAuthorization  =+  IoTTopicRuleHttpAuthorization+  { _ioTTopicRuleHttpAuthorizationSigv4 = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-httpauthorization.html#cfn-iot-topicrule-httpauthorization-sigv4+ittrhaSigv4 :: Lens' IoTTopicRuleHttpAuthorization (Maybe IoTTopicRuleSigV4Authorization)+ittrhaSigv4 = lens _ioTTopicRuleHttpAuthorizationSigv4 (\s a -> s { _ioTTopicRuleHttpAuthorizationSigv4 = a })

+ library-gen/Stratosphere/ResourceProperties/IoTTopicRuleIotEventsAction.hs view

@@ -0,0 +1,54 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-ioteventsaction.html++module Stratosphere.ResourceProperties.IoTTopicRuleIotEventsAction where++import Stratosphere.ResourceImports+++-- | Full data type definition for IoTTopicRuleIotEventsAction. See+-- 'ioTTopicRuleIotEventsAction' for a more convenient constructor.+data IoTTopicRuleIotEventsAction =+  IoTTopicRuleIotEventsAction+  { _ioTTopicRuleIotEventsActionInputName :: Val Text+  , _ioTTopicRuleIotEventsActionMessageId :: Maybe (Val Text)+  , _ioTTopicRuleIotEventsActionRoleArn :: Val Text+  } deriving (Show, Eq)++instance ToJSON IoTTopicRuleIotEventsAction where+  toJSON IoTTopicRuleIotEventsAction{..} =+    object $+    catMaybes+    [ (Just . ("InputName",) . toJSON) _ioTTopicRuleIotEventsActionInputName+    , fmap (("MessageId",) . toJSON) _ioTTopicRuleIotEventsActionMessageId+    , (Just . ("RoleArn",) . toJSON) _ioTTopicRuleIotEventsActionRoleArn+    ]++-- | Constructor for 'IoTTopicRuleIotEventsAction' containing required fields+-- as arguments.+ioTTopicRuleIotEventsAction+  :: Val Text -- ^ 'ittrieaInputName'+  -> Val Text -- ^ 'ittrieaRoleArn'+  -> IoTTopicRuleIotEventsAction+ioTTopicRuleIotEventsAction inputNamearg roleArnarg =+  IoTTopicRuleIotEventsAction+  { _ioTTopicRuleIotEventsActionInputName = inputNamearg+  , _ioTTopicRuleIotEventsActionMessageId = Nothing+  , _ioTTopicRuleIotEventsActionRoleArn = roleArnarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-ioteventsaction.html#cfn-iot-topicrule-ioteventsaction-inputname+ittrieaInputName :: Lens' IoTTopicRuleIotEventsAction (Val Text)+ittrieaInputName = lens _ioTTopicRuleIotEventsActionInputName (\s a -> s { _ioTTopicRuleIotEventsActionInputName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-ioteventsaction.html#cfn-iot-topicrule-ioteventsaction-messageid+ittrieaMessageId :: Lens' IoTTopicRuleIotEventsAction (Maybe (Val Text))+ittrieaMessageId = lens _ioTTopicRuleIotEventsActionMessageId (\s a -> s { _ioTTopicRuleIotEventsActionMessageId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-ioteventsaction.html#cfn-iot-topicrule-ioteventsaction-rolearn+ittrieaRoleArn :: Lens' IoTTopicRuleIotEventsAction (Val Text)+ittrieaRoleArn = lens _ioTTopicRuleIotEventsActionRoleArn (\s a -> s { _ioTTopicRuleIotEventsActionRoleArn = a })

+ library-gen/Stratosphere/ResourceProperties/IoTTopicRuleIotSiteWiseAction.hs view

@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-iotsitewiseaction.html++module Stratosphere.ResourceProperties.IoTTopicRuleIotSiteWiseAction where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.IoTTopicRulePutAssetPropertyValueEntry++-- | Full data type definition for IoTTopicRuleIotSiteWiseAction. See+-- 'ioTTopicRuleIotSiteWiseAction' for a more convenient constructor.+data IoTTopicRuleIotSiteWiseAction =+  IoTTopicRuleIotSiteWiseAction+  { _ioTTopicRuleIotSiteWiseActionPutAssetPropertyValueEntries :: [IoTTopicRulePutAssetPropertyValueEntry]+  , _ioTTopicRuleIotSiteWiseActionRoleArn :: Val Text+  } deriving (Show, Eq)++instance ToJSON IoTTopicRuleIotSiteWiseAction where+  toJSON IoTTopicRuleIotSiteWiseAction{..} =+    object $+    catMaybes+    [ (Just . ("PutAssetPropertyValueEntries",) . toJSON) _ioTTopicRuleIotSiteWiseActionPutAssetPropertyValueEntries+    , (Just . ("RoleArn",) . toJSON) _ioTTopicRuleIotSiteWiseActionRoleArn+    ]++-- | Constructor for 'IoTTopicRuleIotSiteWiseAction' containing required+-- fields as arguments.+ioTTopicRuleIotSiteWiseAction+  :: [IoTTopicRulePutAssetPropertyValueEntry] -- ^ 'ittriswaPutAssetPropertyValueEntries'+  -> Val Text -- ^ 'ittriswaRoleArn'+  -> IoTTopicRuleIotSiteWiseAction+ioTTopicRuleIotSiteWiseAction putAssetPropertyValueEntriesarg roleArnarg =+  IoTTopicRuleIotSiteWiseAction+  { _ioTTopicRuleIotSiteWiseActionPutAssetPropertyValueEntries = putAssetPropertyValueEntriesarg+  , _ioTTopicRuleIotSiteWiseActionRoleArn = roleArnarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-iotsitewiseaction.html#cfn-iot-topicrule-iotsitewiseaction-putassetpropertyvalueentries+ittriswaPutAssetPropertyValueEntries :: Lens' IoTTopicRuleIotSiteWiseAction [IoTTopicRulePutAssetPropertyValueEntry]+ittriswaPutAssetPropertyValueEntries = lens _ioTTopicRuleIotSiteWiseActionPutAssetPropertyValueEntries (\s a -> s { _ioTTopicRuleIotSiteWiseActionPutAssetPropertyValueEntries = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-iotsitewiseaction.html#cfn-iot-topicrule-iotsitewiseaction-rolearn+ittriswaRoleArn :: Lens' IoTTopicRuleIotSiteWiseAction (Val Text)+ittriswaRoleArn = lens _ioTTopicRuleIotSiteWiseActionRoleArn (\s a -> s { _ioTTopicRuleIotSiteWiseActionRoleArn = a })

+ library-gen/Stratosphere/ResourceProperties/IoTTopicRulePutAssetPropertyValueEntry.hs view

@@ -0,0 +1,68 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-putassetpropertyvalueentry.html++module Stratosphere.ResourceProperties.IoTTopicRulePutAssetPropertyValueEntry where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.IoTTopicRuleAssetPropertyValue++-- | Full data type definition for IoTTopicRulePutAssetPropertyValueEntry. See+-- 'ioTTopicRulePutAssetPropertyValueEntry' for a more convenient+-- constructor.+data IoTTopicRulePutAssetPropertyValueEntry =+  IoTTopicRulePutAssetPropertyValueEntry+  { _ioTTopicRulePutAssetPropertyValueEntryAssetId :: Maybe (Val Text)+  , _ioTTopicRulePutAssetPropertyValueEntryEntryId :: Maybe (Val Text)+  , _ioTTopicRulePutAssetPropertyValueEntryPropertyAlias :: Maybe (Val Text)+  , _ioTTopicRulePutAssetPropertyValueEntryPropertyId :: Maybe (Val Text)+  , _ioTTopicRulePutAssetPropertyValueEntryPropertyValues :: [IoTTopicRuleAssetPropertyValue]+  } deriving (Show, Eq)++instance ToJSON IoTTopicRulePutAssetPropertyValueEntry where+  toJSON IoTTopicRulePutAssetPropertyValueEntry{..} =+    object $+    catMaybes+    [ fmap (("AssetId",) . toJSON) _ioTTopicRulePutAssetPropertyValueEntryAssetId+    , fmap (("EntryId",) . toJSON) _ioTTopicRulePutAssetPropertyValueEntryEntryId+    , fmap (("PropertyAlias",) . toJSON) _ioTTopicRulePutAssetPropertyValueEntryPropertyAlias+    , fmap (("PropertyId",) . toJSON) _ioTTopicRulePutAssetPropertyValueEntryPropertyId+    , (Just . ("PropertyValues",) . toJSON) _ioTTopicRulePutAssetPropertyValueEntryPropertyValues+    ]++-- | Constructor for 'IoTTopicRulePutAssetPropertyValueEntry' containing+-- required fields as arguments.+ioTTopicRulePutAssetPropertyValueEntry+  :: [IoTTopicRuleAssetPropertyValue] -- ^ 'ittrpapvePropertyValues'+  -> IoTTopicRulePutAssetPropertyValueEntry+ioTTopicRulePutAssetPropertyValueEntry propertyValuesarg =+  IoTTopicRulePutAssetPropertyValueEntry+  { _ioTTopicRulePutAssetPropertyValueEntryAssetId = Nothing+  , _ioTTopicRulePutAssetPropertyValueEntryEntryId = Nothing+  , _ioTTopicRulePutAssetPropertyValueEntryPropertyAlias = Nothing+  , _ioTTopicRulePutAssetPropertyValueEntryPropertyId = Nothing+  , _ioTTopicRulePutAssetPropertyValueEntryPropertyValues = propertyValuesarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-putassetpropertyvalueentry.html#cfn-iot-topicrule-putassetpropertyvalueentry-assetid+ittrpapveAssetId :: Lens' IoTTopicRulePutAssetPropertyValueEntry (Maybe (Val Text))+ittrpapveAssetId = lens _ioTTopicRulePutAssetPropertyValueEntryAssetId (\s a -> s { _ioTTopicRulePutAssetPropertyValueEntryAssetId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-putassetpropertyvalueentry.html#cfn-iot-topicrule-putassetpropertyvalueentry-entryid+ittrpapveEntryId :: Lens' IoTTopicRulePutAssetPropertyValueEntry (Maybe (Val Text))+ittrpapveEntryId = lens _ioTTopicRulePutAssetPropertyValueEntryEntryId (\s a -> s { _ioTTopicRulePutAssetPropertyValueEntryEntryId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-putassetpropertyvalueentry.html#cfn-iot-topicrule-putassetpropertyvalueentry-propertyalias+ittrpapvePropertyAlias :: Lens' IoTTopicRulePutAssetPropertyValueEntry (Maybe (Val Text))+ittrpapvePropertyAlias = lens _ioTTopicRulePutAssetPropertyValueEntryPropertyAlias (\s a -> s { _ioTTopicRulePutAssetPropertyValueEntryPropertyAlias = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-putassetpropertyvalueentry.html#cfn-iot-topicrule-putassetpropertyvalueentry-propertyid+ittrpapvePropertyId :: Lens' IoTTopicRulePutAssetPropertyValueEntry (Maybe (Val Text))+ittrpapvePropertyId = lens _ioTTopicRulePutAssetPropertyValueEntryPropertyId (\s a -> s { _ioTTopicRulePutAssetPropertyValueEntryPropertyId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-putassetpropertyvalueentry.html#cfn-iot-topicrule-putassetpropertyvalueentry-propertyvalues+ittrpapvePropertyValues :: Lens' IoTTopicRulePutAssetPropertyValueEntry [IoTTopicRuleAssetPropertyValue]+ittrpapvePropertyValues = lens _ioTTopicRulePutAssetPropertyValueEntryPropertyValues (\s a -> s { _ioTTopicRulePutAssetPropertyValueEntryPropertyValues = a })

library-gen/Stratosphere/ResourceProperties/IoTTopicRuleRepublishAction.hs view

@@ -14,7 +14,8 @@ -- 'ioTTopicRuleRepublishAction' for a more convenient constructor. data IoTTopicRuleRepublishAction =   IoTTopicRuleRepublishAction-  { _ioTTopicRuleRepublishActionRoleArn :: Val Text+  { _ioTTopicRuleRepublishActionQos :: Maybe (Val Integer)+  , _ioTTopicRuleRepublishActionRoleArn :: Val Text   , _ioTTopicRuleRepublishActionTopic :: Val Text   } deriving (Show, Eq) @@ -22,7 +23,8 @@   toJSON IoTTopicRuleRepublishAction{..} =     object $     catMaybes-    [ (Just . ("RoleArn",) . toJSON) _ioTTopicRuleRepublishActionRoleArn+    [ fmap (("Qos",) . toJSON) _ioTTopicRuleRepublishActionQos+    , (Just . ("RoleArn",) . toJSON) _ioTTopicRuleRepublishActionRoleArn     , (Just . ("Topic",) . toJSON) _ioTTopicRuleRepublishActionTopic     ] @@ -34,9 +36,14 @@   -> IoTTopicRuleRepublishAction ioTTopicRuleRepublishAction roleArnarg topicarg =   IoTTopicRuleRepublishAction-  { _ioTTopicRuleRepublishActionRoleArn = roleArnarg+  { _ioTTopicRuleRepublishActionQos = Nothing+  , _ioTTopicRuleRepublishActionRoleArn = roleArnarg   , _ioTTopicRuleRepublishActionTopic = topicarg   }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-republishaction.html#cfn-iot-topicrule-republishaction-qos+ittrraQos :: Lens' IoTTopicRuleRepublishAction (Maybe (Val Integer))+ittrraQos = lens _ioTTopicRuleRepublishActionQos (\s a -> s { _ioTTopicRuleRepublishActionQos = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-republishaction.html#cfn-iot-topicrule-republishaction-rolearn ittrraRoleArn :: Lens' IoTTopicRuleRepublishAction (Val Text)

+ library-gen/Stratosphere/ResourceProperties/IoTTopicRuleSigV4Authorization.hs view

@@ -0,0 +1,55 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-sigv4authorization.html++module Stratosphere.ResourceProperties.IoTTopicRuleSigV4Authorization where++import Stratosphere.ResourceImports+++-- | Full data type definition for IoTTopicRuleSigV4Authorization. See+-- 'ioTTopicRuleSigV4Authorization' for a more convenient constructor.+data IoTTopicRuleSigV4Authorization =+  IoTTopicRuleSigV4Authorization+  { _ioTTopicRuleSigV4AuthorizationRoleArn :: Val Text+  , _ioTTopicRuleSigV4AuthorizationServiceName :: Val Text+  , _ioTTopicRuleSigV4AuthorizationSigningRegion :: Val Text+  } deriving (Show, Eq)++instance ToJSON IoTTopicRuleSigV4Authorization where+  toJSON IoTTopicRuleSigV4Authorization{..} =+    object $+    catMaybes+    [ (Just . ("RoleArn",) . toJSON) _ioTTopicRuleSigV4AuthorizationRoleArn+    , (Just . ("ServiceName",) . toJSON) _ioTTopicRuleSigV4AuthorizationServiceName+    , (Just . ("SigningRegion",) . toJSON) _ioTTopicRuleSigV4AuthorizationSigningRegion+    ]++-- | Constructor for 'IoTTopicRuleSigV4Authorization' containing required+-- fields as arguments.+ioTTopicRuleSigV4Authorization+  :: Val Text -- ^ 'ittrsvaRoleArn'+  -> Val Text -- ^ 'ittrsvaServiceName'+  -> Val Text -- ^ 'ittrsvaSigningRegion'+  -> IoTTopicRuleSigV4Authorization+ioTTopicRuleSigV4Authorization roleArnarg serviceNamearg signingRegionarg =+  IoTTopicRuleSigV4Authorization+  { _ioTTopicRuleSigV4AuthorizationRoleArn = roleArnarg+  , _ioTTopicRuleSigV4AuthorizationServiceName = serviceNamearg+  , _ioTTopicRuleSigV4AuthorizationSigningRegion = signingRegionarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-sigv4authorization.html#cfn-iot-topicrule-sigv4authorization-rolearn+ittrsvaRoleArn :: Lens' IoTTopicRuleSigV4Authorization (Val Text)+ittrsvaRoleArn = lens _ioTTopicRuleSigV4AuthorizationRoleArn (\s a -> s { _ioTTopicRuleSigV4AuthorizationRoleArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-sigv4authorization.html#cfn-iot-topicrule-sigv4authorization-servicename+ittrsvaServiceName :: Lens' IoTTopicRuleSigV4Authorization (Val Text)+ittrsvaServiceName = lens _ioTTopicRuleSigV4AuthorizationServiceName (\s a -> s { _ioTTopicRuleSigV4AuthorizationServiceName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-sigv4authorization.html#cfn-iot-topicrule-sigv4authorization-signingregion+ittrsvaSigningRegion :: Lens' IoTTopicRuleSigV4Authorization (Val Text)+ittrsvaSigningRegion = lens _ioTTopicRuleSigV4AuthorizationSigningRegion (\s a -> s { _ioTTopicRuleSigV4AuthorizationSigningRegion = a })

+ library-gen/Stratosphere/ResourceProperties/StepFunctionsStateMachineTracingConfiguration.hs view

@@ -0,0 +1,41 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-stepfunctions-statemachine-tracingconfiguration.html++module Stratosphere.ResourceProperties.StepFunctionsStateMachineTracingConfiguration where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- StepFunctionsStateMachineTracingConfiguration. See+-- 'stepFunctionsStateMachineTracingConfiguration' for a more convenient+-- constructor.+data StepFunctionsStateMachineTracingConfiguration =+  StepFunctionsStateMachineTracingConfiguration+  { _stepFunctionsStateMachineTracingConfigurationEnabled :: Val Bool+  } deriving (Show, Eq)++instance ToJSON StepFunctionsStateMachineTracingConfiguration where+  toJSON StepFunctionsStateMachineTracingConfiguration{..} =+    object $+    catMaybes+    [ (Just . ("Enabled",) . toJSON) _stepFunctionsStateMachineTracingConfigurationEnabled+    ]++-- | Constructor for 'StepFunctionsStateMachineTracingConfiguration'+-- containing required fields as arguments.+stepFunctionsStateMachineTracingConfiguration+  :: Val Bool -- ^ 'sfsmtcEnabled'+  -> StepFunctionsStateMachineTracingConfiguration+stepFunctionsStateMachineTracingConfiguration enabledarg =+  StepFunctionsStateMachineTracingConfiguration+  { _stepFunctionsStateMachineTracingConfigurationEnabled = enabledarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-stepfunctions-statemachine-tracingconfiguration.html#cfn-stepfunctions-statemachine-tracingconfiguration-enabled+sfsmtcEnabled :: Lens' StepFunctionsStateMachineTracingConfiguration (Val Bool)+sfsmtcEnabled = lens _stepFunctionsStateMachineTracingConfigurationEnabled (\s a -> s { _stepFunctionsStateMachineTracingConfigurationEnabled = a })

library-gen/Stratosphere/Resources.hs view

@@ -190,6 +190,8 @@ import Stratosphere.Resources.DMSReplicationSubnetGroup as X import Stratosphere.Resources.DMSReplicationTask as X import Stratosphere.Resources.DataPipelinePipeline as X+import Stratosphere.Resources.DetectiveGraph as X+import Stratosphere.Resources.DetectiveMemberInvitation as X import Stratosphere.Resources.DirectoryServiceMicrosoftAD as X import Stratosphere.Resources.DirectoryServiceSimpleAD as X import Stratosphere.Resources.DocDBDBCluster as X@@ -350,6 +352,11 @@ import Stratosphere.Resources.IAMServiceLinkedRole as X import Stratosphere.Resources.IAMUser as X import Stratosphere.Resources.IAMUserToGroupAddition as X+import Stratosphere.Resources.ImageBuilderComponent as X+import Stratosphere.Resources.ImageBuilderDistributionConfiguration as X+import Stratosphere.Resources.ImageBuilderImagePipeline as X+import Stratosphere.Resources.ImageBuilderImageRecipe as X+import Stratosphere.Resources.ImageBuilderInfrastructureConfiguration as X import Stratosphere.Resources.InspectorAssessmentTarget as X import Stratosphere.Resources.InspectorAssessmentTemplate as X import Stratosphere.Resources.InspectorResourceGroup as X@@ -956,12 +963,13 @@ import Stratosphere.ResourceProperties.EC2ClientVpnEndpointConnectionLogOptions as X import Stratosphere.ResourceProperties.EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest as X import Stratosphere.ResourceProperties.EC2ClientVpnEndpointTagSpecification as X+import Stratosphere.ResourceProperties.EC2EC2FleetCapacityReservationOptionsRequest as X import Stratosphere.ResourceProperties.EC2EC2FleetFleetLaunchTemplateConfigRequest as X import Stratosphere.ResourceProperties.EC2EC2FleetFleetLaunchTemplateOverridesRequest as X import Stratosphere.ResourceProperties.EC2EC2FleetFleetLaunchTemplateSpecificationRequest as X import Stratosphere.ResourceProperties.EC2EC2FleetOnDemandOptionsRequest as X+import Stratosphere.ResourceProperties.EC2EC2FleetPlacement as X import Stratosphere.ResourceProperties.EC2EC2FleetSpotOptionsRequest as X-import Stratosphere.ResourceProperties.EC2EC2FleetTagRequest as X import Stratosphere.ResourceProperties.EC2EC2FleetTagSpecification as X import Stratosphere.ResourceProperties.EC2EC2FleetTargetCapacitySpecificationRequest as X import Stratosphere.ResourceProperties.EC2InstanceAssociationParameter as X@@ -1316,22 +1324,40 @@ import Stratosphere.ResourceProperties.IAMRolePolicy as X import Stratosphere.ResourceProperties.IAMUserLoginProfile as X import Stratosphere.ResourceProperties.IAMUserPolicy as X+import Stratosphere.ResourceProperties.ImageBuilderDistributionConfigurationDistribution as X+import Stratosphere.ResourceProperties.ImageBuilderImagePipelineImageTestsConfiguration as X+import Stratosphere.ResourceProperties.ImageBuilderImagePipelineSchedule as X+import Stratosphere.ResourceProperties.ImageBuilderImageRecipeComponentConfiguration as X+import Stratosphere.ResourceProperties.ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification as X+import Stratosphere.ResourceProperties.ImageBuilderImageRecipeInstanceBlockDeviceMapping as X+import Stratosphere.ResourceProperties.ImageBuilderInfrastructureConfigurationLogging as X+import Stratosphere.ResourceProperties.ImageBuilderInfrastructureConfigurationS3Logs 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.IoTTopicRuleAssetPropertyTimestamp as X+import Stratosphere.ResourceProperties.IoTTopicRuleAssetPropertyValue as X+import Stratosphere.ResourceProperties.IoTTopicRuleAssetPropertyVariant as X import Stratosphere.ResourceProperties.IoTTopicRuleCloudwatchAlarmAction as X import Stratosphere.ResourceProperties.IoTTopicRuleCloudwatchMetricAction as X import Stratosphere.ResourceProperties.IoTTopicRuleDynamoDBAction as X import Stratosphere.ResourceProperties.IoTTopicRuleDynamoDBV2Action as X import Stratosphere.ResourceProperties.IoTTopicRuleElasticsearchAction as X import Stratosphere.ResourceProperties.IoTTopicRuleFirehoseAction as X+import Stratosphere.ResourceProperties.IoTTopicRuleHttpAction as X+import Stratosphere.ResourceProperties.IoTTopicRuleHttpActionHeader as X+import Stratosphere.ResourceProperties.IoTTopicRuleHttpAuthorization as X import Stratosphere.ResourceProperties.IoTTopicRuleIotAnalyticsAction as X+import Stratosphere.ResourceProperties.IoTTopicRuleIotEventsAction as X+import Stratosphere.ResourceProperties.IoTTopicRuleIotSiteWiseAction as X import Stratosphere.ResourceProperties.IoTTopicRuleKinesisAction as X import Stratosphere.ResourceProperties.IoTTopicRuleLambdaAction as X+import Stratosphere.ResourceProperties.IoTTopicRulePutAssetPropertyValueEntry as X import Stratosphere.ResourceProperties.IoTTopicRulePutItemInput as X import Stratosphere.ResourceProperties.IoTTopicRuleRepublishAction as X import Stratosphere.ResourceProperties.IoTTopicRuleS3Action as X+import Stratosphere.ResourceProperties.IoTTopicRuleSigV4Authorization as X import Stratosphere.ResourceProperties.IoTTopicRuleSnsAction as X import Stratosphere.ResourceProperties.IoTTopicRuleSqsAction as X import Stratosphere.ResourceProperties.IoTTopicRuleStepFunctionsAction as X@@ -1772,6 +1798,7 @@ import Stratosphere.ResourceProperties.StepFunctionsStateMachineLogDestination as X import Stratosphere.ResourceProperties.StepFunctionsStateMachineLoggingConfiguration as X import Stratosphere.ResourceProperties.StepFunctionsStateMachineTagsEntry as X+import Stratosphere.ResourceProperties.StepFunctionsStateMachineTracingConfiguration as X import Stratosphere.ResourceProperties.TransferServerEndpointDetails as X import Stratosphere.ResourceProperties.TransferServerIdentityProviderDetails as X import Stratosphere.ResourceProperties.TransferUserHomeDirectoryMapEntry as X

library-gen/Stratosphere/Resources/ApiGatewayV2Integration.hs view

@@ -15,6 +15,7 @@ data ApiGatewayV2Integration =   ApiGatewayV2Integration   { _apiGatewayV2IntegrationApiId :: Val Text+  , _apiGatewayV2IntegrationConnectionId :: Maybe (Val Text)   , _apiGatewayV2IntegrationConnectionType :: Maybe (Val Text)   , _apiGatewayV2IntegrationContentHandlingStrategy :: Maybe (Val Text)   , _apiGatewayV2IntegrationCredentialsArn :: Maybe (Val Text)@@ -38,6 +39,7 @@     , resourcePropertiesProperties =         hashMapFromList $ catMaybes         [ (Just . ("ApiId",) . toJSON) _apiGatewayV2IntegrationApiId+        , fmap (("ConnectionId",) . toJSON) _apiGatewayV2IntegrationConnectionId         , fmap (("ConnectionType",) . toJSON) _apiGatewayV2IntegrationConnectionType         , fmap (("ContentHandlingStrategy",) . toJSON) _apiGatewayV2IntegrationContentHandlingStrategy         , fmap (("CredentialsArn",) . toJSON) _apiGatewayV2IntegrationCredentialsArn@@ -64,6 +66,7 @@ apiGatewayV2Integration apiIdarg integrationTypearg =   ApiGatewayV2Integration   { _apiGatewayV2IntegrationApiId = apiIdarg+  , _apiGatewayV2IntegrationConnectionId = Nothing   , _apiGatewayV2IntegrationConnectionType = Nothing   , _apiGatewayV2IntegrationContentHandlingStrategy = Nothing   , _apiGatewayV2IntegrationCredentialsArn = Nothing@@ -83,6 +86,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html#cfn-apigatewayv2-integration-apiid agviApiId :: Lens' ApiGatewayV2Integration (Val Text) agviApiId = lens _apiGatewayV2IntegrationApiId (\s a -> s { _apiGatewayV2IntegrationApiId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html#cfn-apigatewayv2-integration-connectionid+agviConnectionId :: Lens' ApiGatewayV2Integration (Maybe (Val Text))+agviConnectionId = lens _apiGatewayV2IntegrationConnectionId (\s a -> s { _apiGatewayV2IntegrationConnectionId = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html#cfn-apigatewayv2-integration-connectiontype agviConnectionType :: Lens' ApiGatewayV2Integration (Maybe (Val Text))

library-gen/Stratosphere/Resources/AutoScalingAutoScalingGroup.hs view

@@ -30,6 +30,7 @@   , _autoScalingAutoScalingGroupLaunchTemplate :: Maybe AutoScalingAutoScalingGroupLaunchTemplateSpecification   , _autoScalingAutoScalingGroupLifecycleHookSpecificationList :: Maybe [AutoScalingAutoScalingGroupLifecycleHookSpecification]   , _autoScalingAutoScalingGroupLoadBalancerNames :: Maybe (ValList Text)+  , _autoScalingAutoScalingGroupMaxInstanceLifetime :: Maybe (Val Integer)   , _autoScalingAutoScalingGroupMaxSize :: Val Text   , _autoScalingAutoScalingGroupMetricsCollection :: Maybe [AutoScalingAutoScalingGroupMetricsCollection]   , _autoScalingAutoScalingGroupMinSize :: Val Text@@ -60,6 +61,7 @@         , fmap (("LaunchTemplate",) . toJSON) _autoScalingAutoScalingGroupLaunchTemplate         , fmap (("LifecycleHookSpecificationList",) . toJSON) _autoScalingAutoScalingGroupLifecycleHookSpecificationList         , fmap (("LoadBalancerNames",) . toJSON) _autoScalingAutoScalingGroupLoadBalancerNames+        , fmap (("MaxInstanceLifetime",) . toJSON) _autoScalingAutoScalingGroupMaxInstanceLifetime         , (Just . ("MaxSize",) . toJSON) _autoScalingAutoScalingGroupMaxSize         , fmap (("MetricsCollection",) . toJSON) _autoScalingAutoScalingGroupMetricsCollection         , (Just . ("MinSize",) . toJSON) _autoScalingAutoScalingGroupMinSize@@ -93,6 +95,7 @@   , _autoScalingAutoScalingGroupLaunchTemplate = Nothing   , _autoScalingAutoScalingGroupLifecycleHookSpecificationList = Nothing   , _autoScalingAutoScalingGroupLoadBalancerNames = Nothing+  , _autoScalingAutoScalingGroupMaxInstanceLifetime = Nothing   , _autoScalingAutoScalingGroupMaxSize = maxSizearg   , _autoScalingAutoScalingGroupMetricsCollection = Nothing   , _autoScalingAutoScalingGroupMinSize = minSizearg@@ -149,6 +152,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-loadbalancernames asasgLoadBalancerNames :: Lens' AutoScalingAutoScalingGroup (Maybe (ValList Text)) asasgLoadBalancerNames = lens _autoScalingAutoScalingGroupLoadBalancerNames (\s a -> s { _autoScalingAutoScalingGroupLoadBalancerNames = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-maxinstancelifetime+asasgMaxInstanceLifetime :: Lens' AutoScalingAutoScalingGroup (Maybe (Val Integer))+asasgMaxInstanceLifetime = lens _autoScalingAutoScalingGroupMaxInstanceLifetime (\s a -> s { _autoScalingAutoScalingGroupMaxInstanceLifetime = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-maxsize asasgMaxSize :: Lens' AutoScalingAutoScalingGroup (Val Text)

library-gen/Stratosphere/Resources/CloudWatchInsightRule.hs view

@@ -8,7 +8,7 @@ module Stratosphere.Resources.CloudWatchInsightRule where  import Stratosphere.ResourceImports-+import Stratosphere.ResourceProperties.Tag  -- | Full data type definition for CloudWatchInsightRule. See -- 'cloudWatchInsightRule' for a more convenient constructor.@@ -17,6 +17,7 @@   { _cloudWatchInsightRuleRuleBody :: Val Text   , _cloudWatchInsightRuleRuleName :: Val Text   , _cloudWatchInsightRuleRuleState :: Val Text+  , _cloudWatchInsightRuleTags :: Maybe [Tag]   } deriving (Show, Eq)  instance ToResourceProperties CloudWatchInsightRule where@@ -28,6 +29,7 @@         [ (Just . ("RuleBody",) . toJSON) _cloudWatchInsightRuleRuleBody         , (Just . ("RuleName",) . toJSON) _cloudWatchInsightRuleRuleName         , (Just . ("RuleState",) . toJSON) _cloudWatchInsightRuleRuleState+        , fmap (("Tags",) . toJSON) _cloudWatchInsightRuleTags         ]     } @@ -43,6 +45,7 @@   { _cloudWatchInsightRuleRuleBody = ruleBodyarg   , _cloudWatchInsightRuleRuleName = ruleNamearg   , _cloudWatchInsightRuleRuleState = ruleStatearg+  , _cloudWatchInsightRuleTags = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudwatch-insightrule.html#cfn-cloudwatch-insightrule-rulebody@@ -56,3 +59,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudwatch-insightrule.html#cfn-cloudwatch-insightrule-rulestate cwirRuleState :: Lens' CloudWatchInsightRule (Val Text) cwirRuleState = lens _cloudWatchInsightRuleRuleState (\s a -> s { _cloudWatchInsightRuleRuleState = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudwatch-insightrule.html#cfn-cloudwatch-insightrule-tags+cwirTags :: Lens' CloudWatchInsightRule (Maybe [Tag])+cwirTags = lens _cloudWatchInsightRuleTags (\s a -> s { _cloudWatchInsightRuleTags = a })

library-gen/Stratosphere/Resources/CodeBuildReportGroup.hs view

@@ -9,6 +9,7 @@  import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.CodeBuildReportGroupReportExportConfig+import Stratosphere.ResourceProperties.Tag  -- | Full data type definition for CodeBuildReportGroup. See -- 'codeBuildReportGroup' for a more convenient constructor.@@ -16,6 +17,7 @@   CodeBuildReportGroup   { _codeBuildReportGroupExportConfig :: CodeBuildReportGroupReportExportConfig   , _codeBuildReportGroupName :: Maybe (Val Text)+  , _codeBuildReportGroupTags :: Maybe [Tag]   , _codeBuildReportGroupType :: Val Text   } deriving (Show, Eq) @@ -27,6 +29,7 @@         hashMapFromList $ catMaybes         [ (Just . ("ExportConfig",) . toJSON) _codeBuildReportGroupExportConfig         , fmap (("Name",) . toJSON) _codeBuildReportGroupName+        , fmap (("Tags",) . toJSON) _codeBuildReportGroupTags         , (Just . ("Type",) . toJSON) _codeBuildReportGroupType         ]     }@@ -41,6 +44,7 @@   CodeBuildReportGroup   { _codeBuildReportGroupExportConfig = exportConfigarg   , _codeBuildReportGroupName = Nothing+  , _codeBuildReportGroupTags = Nothing   , _codeBuildReportGroupType = typearg   } @@ -51,6 +55,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-reportgroup.html#cfn-codebuild-reportgroup-name cbrgName :: Lens' CodeBuildReportGroup (Maybe (Val Text)) cbrgName = lens _codeBuildReportGroupName (\s a -> s { _codeBuildReportGroupName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-reportgroup.html#cfn-codebuild-reportgroup-tags+cbrgTags :: Lens' CodeBuildReportGroup (Maybe [Tag])+cbrgTags = lens _codeBuildReportGroupTags (\s a -> s { _codeBuildReportGroupTags = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-reportgroup.html#cfn-codebuild-reportgroup-type cbrgType :: Lens' CodeBuildReportGroup (Val Text)

+ library-gen/Stratosphere/Resources/DetectiveGraph.hs view

@@ -0,0 +1,35 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-detective-graph.html++module Stratosphere.Resources.DetectiveGraph where++import Stratosphere.ResourceImports+++-- | Full data type definition for DetectiveGraph. See 'detectiveGraph' for a+-- more convenient constructor.+data DetectiveGraph =+  DetectiveGraph+  { +  } deriving (Show, Eq)++instance ToResourceProperties DetectiveGraph where+  toResourceProperties _ =+    ResourceProperties+    { resourcePropertiesType = "AWS::Detective::Graph"+    , resourcePropertiesProperties = hashMapEmpty+    }++-- | Constructor for 'DetectiveGraph' containing required fields as arguments.+detectiveGraph+  :: DetectiveGraph+detectiveGraph  =+  DetectiveGraph+  { +  }++

+ library-gen/Stratosphere/Resources/DetectiveMemberInvitation.hs view

@@ -0,0 +1,65 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-detective-memberinvitation.html++module Stratosphere.Resources.DetectiveMemberInvitation where++import Stratosphere.ResourceImports+++-- | Full data type definition for DetectiveMemberInvitation. See+-- 'detectiveMemberInvitation' for a more convenient constructor.+data DetectiveMemberInvitation =+  DetectiveMemberInvitation+  { _detectiveMemberInvitationGraphArn :: Val Text+  , _detectiveMemberInvitationMemberEmailAddress :: Val Text+  , _detectiveMemberInvitationMemberId :: Val Text+  , _detectiveMemberInvitationMessage :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToResourceProperties DetectiveMemberInvitation where+  toResourceProperties DetectiveMemberInvitation{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::Detective::MemberInvitation"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("GraphArn",) . toJSON) _detectiveMemberInvitationGraphArn+        , (Just . ("MemberEmailAddress",) . toJSON) _detectiveMemberInvitationMemberEmailAddress+        , (Just . ("MemberId",) . toJSON) _detectiveMemberInvitationMemberId+        , fmap (("Message",) . toJSON) _detectiveMemberInvitationMessage+        ]+    }++-- | Constructor for 'DetectiveMemberInvitation' containing required fields as+-- arguments.+detectiveMemberInvitation+  :: Val Text -- ^ 'dmiGraphArn'+  -> Val Text -- ^ 'dmiMemberEmailAddress'+  -> Val Text -- ^ 'dmiMemberId'+  -> DetectiveMemberInvitation+detectiveMemberInvitation graphArnarg memberEmailAddressarg memberIdarg =+  DetectiveMemberInvitation+  { _detectiveMemberInvitationGraphArn = graphArnarg+  , _detectiveMemberInvitationMemberEmailAddress = memberEmailAddressarg+  , _detectiveMemberInvitationMemberId = memberIdarg+  , _detectiveMemberInvitationMessage = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-detective-memberinvitation.html#cfn-detective-memberinvitation-grapharn+dmiGraphArn :: Lens' DetectiveMemberInvitation (Val Text)+dmiGraphArn = lens _detectiveMemberInvitationGraphArn (\s a -> s { _detectiveMemberInvitationGraphArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-detective-memberinvitation.html#cfn-detective-memberinvitation-memberemailaddress+dmiMemberEmailAddress :: Lens' DetectiveMemberInvitation (Val Text)+dmiMemberEmailAddress = lens _detectiveMemberInvitationMemberEmailAddress (\s a -> s { _detectiveMemberInvitationMemberEmailAddress = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-detective-memberinvitation.html#cfn-detective-memberinvitation-memberid+dmiMemberId :: Lens' DetectiveMemberInvitation (Val Text)+dmiMemberId = lens _detectiveMemberInvitationMemberId (\s a -> s { _detectiveMemberInvitationMemberId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-detective-memberinvitation.html#cfn-detective-memberinvitation-message+dmiMessage :: Lens' DetectiveMemberInvitation (Maybe (Val Text))+dmiMessage = lens _detectiveMemberInvitationMessage (\s a -> s { _detectiveMemberInvitationMessage = a })

library-gen/Stratosphere/Resources/EC2Volume.hs view

@@ -19,6 +19,7 @@   , _eC2VolumeEncrypted :: Maybe (Val Bool)   , _eC2VolumeIops :: Maybe (Val Integer)   , _eC2VolumeKmsKeyId :: Maybe (Val Text)+  , _eC2VolumeMultiAttachEnabled :: Maybe (Val Bool)   , _eC2VolumeSize :: Maybe (Val Integer)   , _eC2VolumeSnapshotId :: Maybe (Val Text)   , _eC2VolumeTags :: Maybe [Tag]@@ -36,6 +37,7 @@         , fmap (("Encrypted",) . toJSON) _eC2VolumeEncrypted         , fmap (("Iops",) . toJSON) _eC2VolumeIops         , fmap (("KmsKeyId",) . toJSON) _eC2VolumeKmsKeyId+        , fmap (("MultiAttachEnabled",) . toJSON) _eC2VolumeMultiAttachEnabled         , fmap (("Size",) . toJSON) _eC2VolumeSize         , fmap (("SnapshotId",) . toJSON) _eC2VolumeSnapshotId         , fmap (("Tags",) . toJSON) _eC2VolumeTags@@ -54,6 +56,7 @@   , _eC2VolumeEncrypted = Nothing   , _eC2VolumeIops = Nothing   , _eC2VolumeKmsKeyId = Nothing+  , _eC2VolumeMultiAttachEnabled = Nothing   , _eC2VolumeSize = Nothing   , _eC2VolumeSnapshotId = Nothing   , _eC2VolumeTags = Nothing@@ -79,6 +82,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ebs-volume.html#cfn-ec2-ebs-volume-kmskeyid ecvKmsKeyId :: Lens' EC2Volume (Maybe (Val Text)) ecvKmsKeyId = lens _eC2VolumeKmsKeyId (\s a -> s { _eC2VolumeKmsKeyId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ebs-volume.html#cfn-ec2-ebs-volume-multiattachenabled+ecvMultiAttachEnabled :: Lens' EC2Volume (Maybe (Val Bool))+ecvMultiAttachEnabled = lens _eC2VolumeMultiAttachEnabled (\s a -> s { _eC2VolumeMultiAttachEnabled = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ebs-volume.html#cfn-ec2-ebs-volume-size ecvSize :: Lens' EC2Volume (Maybe (Val Integer))

library-gen/Stratosphere/Resources/FSxFileSystem.hs view

@@ -22,6 +22,7 @@   , _fSxFileSystemLustreConfiguration :: Maybe FSxFileSystemLustreConfiguration   , _fSxFileSystemSecurityGroupIds :: Maybe (ValList Text)   , _fSxFileSystemStorageCapacity :: Maybe (Val Integer)+  , _fSxFileSystemStorageType :: Maybe (Val Text)   , _fSxFileSystemSubnetIds :: ValList Text   , _fSxFileSystemTags :: Maybe [Tag]   , _fSxFileSystemWindowsConfiguration :: Maybe FSxFileSystemWindowsConfiguration@@ -39,6 +40,7 @@         , fmap (("LustreConfiguration",) . toJSON) _fSxFileSystemLustreConfiguration         , fmap (("SecurityGroupIds",) . toJSON) _fSxFileSystemSecurityGroupIds         , fmap (("StorageCapacity",) . toJSON) _fSxFileSystemStorageCapacity+        , fmap (("StorageType",) . toJSON) _fSxFileSystemStorageType         , (Just . ("SubnetIds",) . toJSON) _fSxFileSystemSubnetIds         , fmap (("Tags",) . toJSON) _fSxFileSystemTags         , fmap (("WindowsConfiguration",) . toJSON) _fSxFileSystemWindowsConfiguration@@ -58,6 +60,7 @@   , _fSxFileSystemLustreConfiguration = Nothing   , _fSxFileSystemSecurityGroupIds = Nothing   , _fSxFileSystemStorageCapacity = Nothing+  , _fSxFileSystemStorageType = Nothing   , _fSxFileSystemSubnetIds = subnetIdsarg   , _fSxFileSystemTags = Nothing   , _fSxFileSystemWindowsConfiguration = Nothing@@ -86,6 +89,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fsx-filesystem.html#cfn-fsx-filesystem-storagecapacity fsfsStorageCapacity :: Lens' FSxFileSystem (Maybe (Val Integer)) fsfsStorageCapacity = lens _fSxFileSystemStorageCapacity (\s a -> s { _fSxFileSystemStorageCapacity = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fsx-filesystem.html#cfn-fsx-filesystem-storagetype+fsfsStorageType :: Lens' FSxFileSystem (Maybe (Val Text))+fsfsStorageType = lens _fSxFileSystemStorageType (\s a -> s { _fSxFileSystemStorageType = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fsx-filesystem.html#cfn-fsx-filesystem-subnetids fsfsSubnetIds :: Lens' FSxFileSystem (ValList Text)

library-gen/Stratosphere/Resources/GlueDevEndpoint.hs view

@@ -22,6 +22,7 @@   , _glueDevEndpointNumberOfNodes :: Maybe (Val Integer)   , _glueDevEndpointNumberOfWorkers :: Maybe (Val Integer)   , _glueDevEndpointPublicKey :: Maybe (Val Text)+  , _glueDevEndpointPublicKeys :: Maybe (ValList Text)   , _glueDevEndpointRoleArn :: Val Text   , _glueDevEndpointSecurityConfiguration :: Maybe (Val Text)   , _glueDevEndpointSecurityGroupIds :: Maybe (ValList Text)@@ -44,6 +45,7 @@         , fmap (("NumberOfNodes",) . toJSON) _glueDevEndpointNumberOfNodes         , fmap (("NumberOfWorkers",) . toJSON) _glueDevEndpointNumberOfWorkers         , fmap (("PublicKey",) . toJSON) _glueDevEndpointPublicKey+        , fmap (("PublicKeys",) . toJSON) _glueDevEndpointPublicKeys         , (Just . ("RoleArn",) . toJSON) _glueDevEndpointRoleArn         , fmap (("SecurityConfiguration",) . toJSON) _glueDevEndpointSecurityConfiguration         , fmap (("SecurityGroupIds",) . toJSON) _glueDevEndpointSecurityGroupIds@@ -68,6 +70,7 @@   , _glueDevEndpointNumberOfNodes = Nothing   , _glueDevEndpointNumberOfWorkers = Nothing   , _glueDevEndpointPublicKey = Nothing+  , _glueDevEndpointPublicKeys = Nothing   , _glueDevEndpointRoleArn = roleArnarg   , _glueDevEndpointSecurityConfiguration = Nothing   , _glueDevEndpointSecurityGroupIds = Nothing@@ -107,6 +110,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html#cfn-glue-devendpoint-publickey gdePublicKey :: Lens' GlueDevEndpoint (Maybe (Val Text)) gdePublicKey = lens _glueDevEndpointPublicKey (\s a -> s { _glueDevEndpointPublicKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html#cfn-glue-devendpoint-publickeys+gdePublicKeys :: Lens' GlueDevEndpoint (Maybe (ValList Text))+gdePublicKeys = lens _glueDevEndpointPublicKeys (\s a -> s { _glueDevEndpointPublicKeys = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html#cfn-glue-devendpoint-rolearn gdeRoleArn :: Lens' GlueDevEndpoint (Val Text)

library-gen/Stratosphere/Resources/GlueMLTransform.hs view

@@ -23,6 +23,7 @@   , _glueMLTransformName :: Maybe (Val Text)   , _glueMLTransformNumberOfWorkers :: Maybe (Val Integer)   , _glueMLTransformRole :: Val Text+  , _glueMLTransformTags :: Maybe Object   , _glueMLTransformTimeout :: Maybe (Val Integer)   , _glueMLTransformTransformParameters :: GlueMLTransformTransformParameters   , _glueMLTransformWorkerType :: Maybe (Val Text)@@ -42,6 +43,7 @@         , fmap (("Name",) . toJSON) _glueMLTransformName         , fmap (("NumberOfWorkers",) . toJSON) _glueMLTransformNumberOfWorkers         , (Just . ("Role",) . toJSON) _glueMLTransformRole+        , fmap (("Tags",) . toJSON) _glueMLTransformTags         , fmap (("Timeout",) . toJSON) _glueMLTransformTimeout         , (Just . ("TransformParameters",) . toJSON) _glueMLTransformTransformParameters         , fmap (("WorkerType",) . toJSON) _glueMLTransformWorkerType@@ -65,6 +67,7 @@   , _glueMLTransformName = Nothing   , _glueMLTransformNumberOfWorkers = Nothing   , _glueMLTransformRole = rolearg+  , _glueMLTransformTags = Nothing   , _glueMLTransformTimeout = Nothing   , _glueMLTransformTransformParameters = transformParametersarg   , _glueMLTransformWorkerType = Nothing@@ -101,6 +104,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-mltransform.html#cfn-glue-mltransform-role gmltRole :: Lens' GlueMLTransform (Val Text) gmltRole = lens _glueMLTransformRole (\s a -> s { _glueMLTransformRole = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-mltransform.html#cfn-glue-mltransform-tags+gmltTags :: Lens' GlueMLTransform (Maybe Object)+gmltTags = lens _glueMLTransformTags (\s a -> s { _glueMLTransformTags = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-mltransform.html#cfn-glue-mltransform-timeout gmltTimeout :: Lens' GlueMLTransform (Maybe (Val Integer))

+ library-gen/Stratosphere/Resources/ImageBuilderComponent.hs view

@@ -0,0 +1,100 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-component.html++module Stratosphere.Resources.ImageBuilderComponent where++import Stratosphere.ResourceImports+++-- | Full data type definition for ImageBuilderComponent. See+-- 'imageBuilderComponent' for a more convenient constructor.+data ImageBuilderComponent =+  ImageBuilderComponent+  { _imageBuilderComponentChangeDescription :: Maybe (Val Text)+  , _imageBuilderComponentData :: Maybe (Val Text)+  , _imageBuilderComponentDescription :: Maybe (Val Text)+  , _imageBuilderComponentKmsKeyId :: Maybe (Val Text)+  , _imageBuilderComponentName :: Val Text+  , _imageBuilderComponentPlatform :: Val Text+  , _imageBuilderComponentTags :: Maybe Object+  , _imageBuilderComponentUri :: Maybe (Val Text)+  , _imageBuilderComponentVersion :: Val Text+  } deriving (Show, Eq)++instance ToResourceProperties ImageBuilderComponent where+  toResourceProperties ImageBuilderComponent{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::ImageBuilder::Component"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("ChangeDescription",) . toJSON) _imageBuilderComponentChangeDescription+        , fmap (("Data",) . toJSON) _imageBuilderComponentData+        , fmap (("Description",) . toJSON) _imageBuilderComponentDescription+        , fmap (("KmsKeyId",) . toJSON) _imageBuilderComponentKmsKeyId+        , (Just . ("Name",) . toJSON) _imageBuilderComponentName+        , (Just . ("Platform",) . toJSON) _imageBuilderComponentPlatform+        , fmap (("Tags",) . toJSON) _imageBuilderComponentTags+        , fmap (("Uri",) . toJSON) _imageBuilderComponentUri+        , (Just . ("Version",) . toJSON) _imageBuilderComponentVersion+        ]+    }++-- | Constructor for 'ImageBuilderComponent' containing required fields as+-- arguments.+imageBuilderComponent+  :: Val Text -- ^ 'ibcName'+  -> Val Text -- ^ 'ibcPlatform'+  -> Val Text -- ^ 'ibcVersion'+  -> ImageBuilderComponent+imageBuilderComponent namearg platformarg versionarg =+  ImageBuilderComponent+  { _imageBuilderComponentChangeDescription = Nothing+  , _imageBuilderComponentData = Nothing+  , _imageBuilderComponentDescription = Nothing+  , _imageBuilderComponentKmsKeyId = Nothing+  , _imageBuilderComponentName = namearg+  , _imageBuilderComponentPlatform = platformarg+  , _imageBuilderComponentTags = Nothing+  , _imageBuilderComponentUri = Nothing+  , _imageBuilderComponentVersion = versionarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-component.html#cfn-imagebuilder-component-changedescription+ibcChangeDescription :: Lens' ImageBuilderComponent (Maybe (Val Text))+ibcChangeDescription = lens _imageBuilderComponentChangeDescription (\s a -> s { _imageBuilderComponentChangeDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-component.html#cfn-imagebuilder-component-data+ibcData :: Lens' ImageBuilderComponent (Maybe (Val Text))+ibcData = lens _imageBuilderComponentData (\s a -> s { _imageBuilderComponentData = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-component.html#cfn-imagebuilder-component-description+ibcDescription :: Lens' ImageBuilderComponent (Maybe (Val Text))+ibcDescription = lens _imageBuilderComponentDescription (\s a -> s { _imageBuilderComponentDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-component.html#cfn-imagebuilder-component-kmskeyid+ibcKmsKeyId :: Lens' ImageBuilderComponent (Maybe (Val Text))+ibcKmsKeyId = lens _imageBuilderComponentKmsKeyId (\s a -> s { _imageBuilderComponentKmsKeyId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-component.html#cfn-imagebuilder-component-name+ibcName :: Lens' ImageBuilderComponent (Val Text)+ibcName = lens _imageBuilderComponentName (\s a -> s { _imageBuilderComponentName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-component.html#cfn-imagebuilder-component-platform+ibcPlatform :: Lens' ImageBuilderComponent (Val Text)+ibcPlatform = lens _imageBuilderComponentPlatform (\s a -> s { _imageBuilderComponentPlatform = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-component.html#cfn-imagebuilder-component-tags+ibcTags :: Lens' ImageBuilderComponent (Maybe Object)+ibcTags = lens _imageBuilderComponentTags (\s a -> s { _imageBuilderComponentTags = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-component.html#cfn-imagebuilder-component-uri+ibcUri :: Lens' ImageBuilderComponent (Maybe (Val Text))+ibcUri = lens _imageBuilderComponentUri (\s a -> s { _imageBuilderComponentUri = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-component.html#cfn-imagebuilder-component-version+ibcVersion :: Lens' ImageBuilderComponent (Val Text)+ibcVersion = lens _imageBuilderComponentVersion (\s a -> s { _imageBuilderComponentVersion = a })

+ library-gen/Stratosphere/Resources/ImageBuilderDistributionConfiguration.hs view

@@ -0,0 +1,65 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-distributionconfiguration.html++module Stratosphere.Resources.ImageBuilderDistributionConfiguration where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.ImageBuilderDistributionConfigurationDistribution++-- | Full data type definition for ImageBuilderDistributionConfiguration. See+-- 'imageBuilderDistributionConfiguration' for a more convenient+-- constructor.+data ImageBuilderDistributionConfiguration =+  ImageBuilderDistributionConfiguration+  { _imageBuilderDistributionConfigurationDescription :: Maybe (Val Text)+  , _imageBuilderDistributionConfigurationDistributions :: [ImageBuilderDistributionConfigurationDistribution]+  , _imageBuilderDistributionConfigurationName :: Val Text+  , _imageBuilderDistributionConfigurationTags :: Maybe Object+  } deriving (Show, Eq)++instance ToResourceProperties ImageBuilderDistributionConfiguration where+  toResourceProperties ImageBuilderDistributionConfiguration{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::ImageBuilder::DistributionConfiguration"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("Description",) . toJSON) _imageBuilderDistributionConfigurationDescription+        , (Just . ("Distributions",) . toJSON) _imageBuilderDistributionConfigurationDistributions+        , (Just . ("Name",) . toJSON) _imageBuilderDistributionConfigurationName+        , fmap (("Tags",) . toJSON) _imageBuilderDistributionConfigurationTags+        ]+    }++-- | Constructor for 'ImageBuilderDistributionConfiguration' containing+-- required fields as arguments.+imageBuilderDistributionConfiguration+  :: [ImageBuilderDistributionConfigurationDistribution] -- ^ 'ibdcDistributions'+  -> Val Text -- ^ 'ibdcName'+  -> ImageBuilderDistributionConfiguration+imageBuilderDistributionConfiguration distributionsarg namearg =+  ImageBuilderDistributionConfiguration+  { _imageBuilderDistributionConfigurationDescription = Nothing+  , _imageBuilderDistributionConfigurationDistributions = distributionsarg+  , _imageBuilderDistributionConfigurationName = namearg+  , _imageBuilderDistributionConfigurationTags = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-distributionconfiguration.html#cfn-imagebuilder-distributionconfiguration-description+ibdcDescription :: Lens' ImageBuilderDistributionConfiguration (Maybe (Val Text))+ibdcDescription = lens _imageBuilderDistributionConfigurationDescription (\s a -> s { _imageBuilderDistributionConfigurationDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-distributionconfiguration.html#cfn-imagebuilder-distributionconfiguration-distributions+ibdcDistributions :: Lens' ImageBuilderDistributionConfiguration [ImageBuilderDistributionConfigurationDistribution]+ibdcDistributions = lens _imageBuilderDistributionConfigurationDistributions (\s a -> s { _imageBuilderDistributionConfigurationDistributions = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-distributionconfiguration.html#cfn-imagebuilder-distributionconfiguration-name+ibdcName :: Lens' ImageBuilderDistributionConfiguration (Val Text)+ibdcName = lens _imageBuilderDistributionConfigurationName (\s a -> s { _imageBuilderDistributionConfigurationName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-distributionconfiguration.html#cfn-imagebuilder-distributionconfiguration-tags+ibdcTags :: Lens' ImageBuilderDistributionConfiguration (Maybe Object)+ibdcTags = lens _imageBuilderDistributionConfigurationTags (\s a -> s { _imageBuilderDistributionConfigurationTags = a })

+ library-gen/Stratosphere/Resources/ImageBuilderImagePipeline.hs view

@@ -0,0 +1,101 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagepipeline.html++module Stratosphere.Resources.ImageBuilderImagePipeline where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.ImageBuilderImagePipelineImageTestsConfiguration+import Stratosphere.ResourceProperties.ImageBuilderImagePipelineSchedule++-- | Full data type definition for ImageBuilderImagePipeline. See+-- 'imageBuilderImagePipeline' for a more convenient constructor.+data ImageBuilderImagePipeline =+  ImageBuilderImagePipeline+  { _imageBuilderImagePipelineDescription :: Maybe (Val Text)+  , _imageBuilderImagePipelineDistributionConfigurationArn :: Maybe (Val Text)+  , _imageBuilderImagePipelineImageRecipeArn :: Val Text+  , _imageBuilderImagePipelineImageTestsConfiguration :: Maybe ImageBuilderImagePipelineImageTestsConfiguration+  , _imageBuilderImagePipelineInfrastructureConfigurationArn :: Val Text+  , _imageBuilderImagePipelineName :: Val Text+  , _imageBuilderImagePipelineSchedule :: Maybe ImageBuilderImagePipelineSchedule+  , _imageBuilderImagePipelineStatus :: Maybe (Val Text)+  , _imageBuilderImagePipelineTags :: Maybe Object+  } deriving (Show, Eq)++instance ToResourceProperties ImageBuilderImagePipeline where+  toResourceProperties ImageBuilderImagePipeline{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::ImageBuilder::ImagePipeline"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("Description",) . toJSON) _imageBuilderImagePipelineDescription+        , fmap (("DistributionConfigurationArn",) . toJSON) _imageBuilderImagePipelineDistributionConfigurationArn+        , (Just . ("ImageRecipeArn",) . toJSON) _imageBuilderImagePipelineImageRecipeArn+        , fmap (("ImageTestsConfiguration",) . toJSON) _imageBuilderImagePipelineImageTestsConfiguration+        , (Just . ("InfrastructureConfigurationArn",) . toJSON) _imageBuilderImagePipelineInfrastructureConfigurationArn+        , (Just . ("Name",) . toJSON) _imageBuilderImagePipelineName+        , fmap (("Schedule",) . toJSON) _imageBuilderImagePipelineSchedule+        , fmap (("Status",) . toJSON) _imageBuilderImagePipelineStatus+        , fmap (("Tags",) . toJSON) _imageBuilderImagePipelineTags+        ]+    }++-- | Constructor for 'ImageBuilderImagePipeline' containing required fields as+-- arguments.+imageBuilderImagePipeline+  :: Val Text -- ^ 'ibipImageRecipeArn'+  -> Val Text -- ^ 'ibipInfrastructureConfigurationArn'+  -> Val Text -- ^ 'ibipName'+  -> ImageBuilderImagePipeline+imageBuilderImagePipeline imageRecipeArnarg infrastructureConfigurationArnarg namearg =+  ImageBuilderImagePipeline+  { _imageBuilderImagePipelineDescription = Nothing+  , _imageBuilderImagePipelineDistributionConfigurationArn = Nothing+  , _imageBuilderImagePipelineImageRecipeArn = imageRecipeArnarg+  , _imageBuilderImagePipelineImageTestsConfiguration = Nothing+  , _imageBuilderImagePipelineInfrastructureConfigurationArn = infrastructureConfigurationArnarg+  , _imageBuilderImagePipelineName = namearg+  , _imageBuilderImagePipelineSchedule = Nothing+  , _imageBuilderImagePipelineStatus = Nothing+  , _imageBuilderImagePipelineTags = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagepipeline.html#cfn-imagebuilder-imagepipeline-description+ibipDescription :: Lens' ImageBuilderImagePipeline (Maybe (Val Text))+ibipDescription = lens _imageBuilderImagePipelineDescription (\s a -> s { _imageBuilderImagePipelineDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagepipeline.html#cfn-imagebuilder-imagepipeline-distributionconfigurationarn+ibipDistributionConfigurationArn :: Lens' ImageBuilderImagePipeline (Maybe (Val Text))+ibipDistributionConfigurationArn = lens _imageBuilderImagePipelineDistributionConfigurationArn (\s a -> s { _imageBuilderImagePipelineDistributionConfigurationArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagepipeline.html#cfn-imagebuilder-imagepipeline-imagerecipearn+ibipImageRecipeArn :: Lens' ImageBuilderImagePipeline (Val Text)+ibipImageRecipeArn = lens _imageBuilderImagePipelineImageRecipeArn (\s a -> s { _imageBuilderImagePipelineImageRecipeArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagepipeline.html#cfn-imagebuilder-imagepipeline-imagetestsconfiguration+ibipImageTestsConfiguration :: Lens' ImageBuilderImagePipeline (Maybe ImageBuilderImagePipelineImageTestsConfiguration)+ibipImageTestsConfiguration = lens _imageBuilderImagePipelineImageTestsConfiguration (\s a -> s { _imageBuilderImagePipelineImageTestsConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagepipeline.html#cfn-imagebuilder-imagepipeline-infrastructureconfigurationarn+ibipInfrastructureConfigurationArn :: Lens' ImageBuilderImagePipeline (Val Text)+ibipInfrastructureConfigurationArn = lens _imageBuilderImagePipelineInfrastructureConfigurationArn (\s a -> s { _imageBuilderImagePipelineInfrastructureConfigurationArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagepipeline.html#cfn-imagebuilder-imagepipeline-name+ibipName :: Lens' ImageBuilderImagePipeline (Val Text)+ibipName = lens _imageBuilderImagePipelineName (\s a -> s { _imageBuilderImagePipelineName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagepipeline.html#cfn-imagebuilder-imagepipeline-schedule+ibipSchedule :: Lens' ImageBuilderImagePipeline (Maybe ImageBuilderImagePipelineSchedule)+ibipSchedule = lens _imageBuilderImagePipelineSchedule (\s a -> s { _imageBuilderImagePipelineSchedule = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagepipeline.html#cfn-imagebuilder-imagepipeline-status+ibipStatus :: Lens' ImageBuilderImagePipeline (Maybe (Val Text))+ibipStatus = lens _imageBuilderImagePipelineStatus (\s a -> s { _imageBuilderImagePipelineStatus = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagepipeline.html#cfn-imagebuilder-imagepipeline-tags+ibipTags :: Lens' ImageBuilderImagePipeline (Maybe Object)+ibipTags = lens _imageBuilderImagePipelineTags (\s a -> s { _imageBuilderImagePipelineTags = a })

+ library-gen/Stratosphere/Resources/ImageBuilderImageRecipe.hs view

@@ -0,0 +1,88 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagerecipe.html++module Stratosphere.Resources.ImageBuilderImageRecipe where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.ImageBuilderImageRecipeInstanceBlockDeviceMapping+import Stratosphere.ResourceProperties.ImageBuilderImageRecipeComponentConfiguration++-- | Full data type definition for ImageBuilderImageRecipe. See+-- 'imageBuilderImageRecipe' for a more convenient constructor.+data ImageBuilderImageRecipe =+  ImageBuilderImageRecipe+  { _imageBuilderImageRecipeBlockDeviceMappings :: Maybe [ImageBuilderImageRecipeInstanceBlockDeviceMapping]+  , _imageBuilderImageRecipeComponents :: [ImageBuilderImageRecipeComponentConfiguration]+  , _imageBuilderImageRecipeDescription :: Maybe (Val Text)+  , _imageBuilderImageRecipeName :: Val Text+  , _imageBuilderImageRecipeParentImage :: Val Text+  , _imageBuilderImageRecipeTags :: Maybe Object+  , _imageBuilderImageRecipeVersion :: Val Text+  } deriving (Show, Eq)++instance ToResourceProperties ImageBuilderImageRecipe where+  toResourceProperties ImageBuilderImageRecipe{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::ImageBuilder::ImageRecipe"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("BlockDeviceMappings",) . toJSON) _imageBuilderImageRecipeBlockDeviceMappings+        , (Just . ("Components",) . toJSON) _imageBuilderImageRecipeComponents+        , fmap (("Description",) . toJSON) _imageBuilderImageRecipeDescription+        , (Just . ("Name",) . toJSON) _imageBuilderImageRecipeName+        , (Just . ("ParentImage",) . toJSON) _imageBuilderImageRecipeParentImage+        , fmap (("Tags",) . toJSON) _imageBuilderImageRecipeTags+        , (Just . ("Version",) . toJSON) _imageBuilderImageRecipeVersion+        ]+    }++-- | Constructor for 'ImageBuilderImageRecipe' containing required fields as+-- arguments.+imageBuilderImageRecipe+  :: [ImageBuilderImageRecipeComponentConfiguration] -- ^ 'ibirComponents'+  -> Val Text -- ^ 'ibirName'+  -> Val Text -- ^ 'ibirParentImage'+  -> Val Text -- ^ 'ibirVersion'+  -> ImageBuilderImageRecipe+imageBuilderImageRecipe componentsarg namearg parentImagearg versionarg =+  ImageBuilderImageRecipe+  { _imageBuilderImageRecipeBlockDeviceMappings = Nothing+  , _imageBuilderImageRecipeComponents = componentsarg+  , _imageBuilderImageRecipeDescription = Nothing+  , _imageBuilderImageRecipeName = namearg+  , _imageBuilderImageRecipeParentImage = parentImagearg+  , _imageBuilderImageRecipeTags = Nothing+  , _imageBuilderImageRecipeVersion = versionarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagerecipe.html#cfn-imagebuilder-imagerecipe-blockdevicemappings+ibirBlockDeviceMappings :: Lens' ImageBuilderImageRecipe (Maybe [ImageBuilderImageRecipeInstanceBlockDeviceMapping])+ibirBlockDeviceMappings = lens _imageBuilderImageRecipeBlockDeviceMappings (\s a -> s { _imageBuilderImageRecipeBlockDeviceMappings = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagerecipe.html#cfn-imagebuilder-imagerecipe-components+ibirComponents :: Lens' ImageBuilderImageRecipe [ImageBuilderImageRecipeComponentConfiguration]+ibirComponents = lens _imageBuilderImageRecipeComponents (\s a -> s { _imageBuilderImageRecipeComponents = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagerecipe.html#cfn-imagebuilder-imagerecipe-description+ibirDescription :: Lens' ImageBuilderImageRecipe (Maybe (Val Text))+ibirDescription = lens _imageBuilderImageRecipeDescription (\s a -> s { _imageBuilderImageRecipeDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagerecipe.html#cfn-imagebuilder-imagerecipe-name+ibirName :: Lens' ImageBuilderImageRecipe (Val Text)+ibirName = lens _imageBuilderImageRecipeName (\s a -> s { _imageBuilderImageRecipeName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagerecipe.html#cfn-imagebuilder-imagerecipe-parentimage+ibirParentImage :: Lens' ImageBuilderImageRecipe (Val Text)+ibirParentImage = lens _imageBuilderImageRecipeParentImage (\s a -> s { _imageBuilderImageRecipeParentImage = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagerecipe.html#cfn-imagebuilder-imagerecipe-tags+ibirTags :: Lens' ImageBuilderImageRecipe (Maybe Object)+ibirTags = lens _imageBuilderImageRecipeTags (\s a -> s { _imageBuilderImageRecipeTags = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagerecipe.html#cfn-imagebuilder-imagerecipe-version+ibirVersion :: Lens' ImageBuilderImageRecipe (Val Text)+ibirVersion = lens _imageBuilderImageRecipeVersion (\s a -> s { _imageBuilderImageRecipeVersion = a })

+ library-gen/Stratosphere/Resources/ImageBuilderInfrastructureConfiguration.hs view

@@ -0,0 +1,114 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html++module Stratosphere.Resources.ImageBuilderInfrastructureConfiguration where++import Stratosphere.ResourceImports+++-- | Full data type definition for ImageBuilderInfrastructureConfiguration.+-- See 'imageBuilderInfrastructureConfiguration' for a more convenient+-- constructor.+data ImageBuilderInfrastructureConfiguration =+  ImageBuilderInfrastructureConfiguration+  { _imageBuilderInfrastructureConfigurationDescription :: Maybe (Val Text)+  , _imageBuilderInfrastructureConfigurationInstanceProfileName :: Val Text+  , _imageBuilderInfrastructureConfigurationInstanceTypes :: Maybe (ValList Text)+  , _imageBuilderInfrastructureConfigurationKeyPair :: Maybe (Val Text)+  , _imageBuilderInfrastructureConfigurationLogging :: Maybe Object+  , _imageBuilderInfrastructureConfigurationName :: Val Text+  , _imageBuilderInfrastructureConfigurationSecurityGroupIds :: Maybe (ValList Text)+  , _imageBuilderInfrastructureConfigurationSnsTopicArn :: Maybe (Val Text)+  , _imageBuilderInfrastructureConfigurationSubnetId :: Maybe (Val Text)+  , _imageBuilderInfrastructureConfigurationTags :: Maybe Object+  , _imageBuilderInfrastructureConfigurationTerminateInstanceOnFailure :: Maybe (Val Bool)+  } deriving (Show, Eq)++instance ToResourceProperties ImageBuilderInfrastructureConfiguration where+  toResourceProperties ImageBuilderInfrastructureConfiguration{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::ImageBuilder::InfrastructureConfiguration"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("Description",) . toJSON) _imageBuilderInfrastructureConfigurationDescription+        , (Just . ("InstanceProfileName",) . toJSON) _imageBuilderInfrastructureConfigurationInstanceProfileName+        , fmap (("InstanceTypes",) . toJSON) _imageBuilderInfrastructureConfigurationInstanceTypes+        , fmap (("KeyPair",) . toJSON) _imageBuilderInfrastructureConfigurationKeyPair+        , fmap (("Logging",) . toJSON) _imageBuilderInfrastructureConfigurationLogging+        , (Just . ("Name",) . toJSON) _imageBuilderInfrastructureConfigurationName+        , fmap (("SecurityGroupIds",) . toJSON) _imageBuilderInfrastructureConfigurationSecurityGroupIds+        , fmap (("SnsTopicArn",) . toJSON) _imageBuilderInfrastructureConfigurationSnsTopicArn+        , fmap (("SubnetId",) . toJSON) _imageBuilderInfrastructureConfigurationSubnetId+        , fmap (("Tags",) . toJSON) _imageBuilderInfrastructureConfigurationTags+        , fmap (("TerminateInstanceOnFailure",) . toJSON) _imageBuilderInfrastructureConfigurationTerminateInstanceOnFailure+        ]+    }++-- | Constructor for 'ImageBuilderInfrastructureConfiguration' containing+-- required fields as arguments.+imageBuilderInfrastructureConfiguration+  :: Val Text -- ^ 'ibicInstanceProfileName'+  -> Val Text -- ^ 'ibicName'+  -> ImageBuilderInfrastructureConfiguration+imageBuilderInfrastructureConfiguration instanceProfileNamearg namearg =+  ImageBuilderInfrastructureConfiguration+  { _imageBuilderInfrastructureConfigurationDescription = Nothing+  , _imageBuilderInfrastructureConfigurationInstanceProfileName = instanceProfileNamearg+  , _imageBuilderInfrastructureConfigurationInstanceTypes = Nothing+  , _imageBuilderInfrastructureConfigurationKeyPair = Nothing+  , _imageBuilderInfrastructureConfigurationLogging = Nothing+  , _imageBuilderInfrastructureConfigurationName = namearg+  , _imageBuilderInfrastructureConfigurationSecurityGroupIds = Nothing+  , _imageBuilderInfrastructureConfigurationSnsTopicArn = Nothing+  , _imageBuilderInfrastructureConfigurationSubnetId = Nothing+  , _imageBuilderInfrastructureConfigurationTags = Nothing+  , _imageBuilderInfrastructureConfigurationTerminateInstanceOnFailure = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-description+ibicDescription :: Lens' ImageBuilderInfrastructureConfiguration (Maybe (Val Text))+ibicDescription = lens _imageBuilderInfrastructureConfigurationDescription (\s a -> s { _imageBuilderInfrastructureConfigurationDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-instanceprofilename+ibicInstanceProfileName :: Lens' ImageBuilderInfrastructureConfiguration (Val Text)+ibicInstanceProfileName = lens _imageBuilderInfrastructureConfigurationInstanceProfileName (\s a -> s { _imageBuilderInfrastructureConfigurationInstanceProfileName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-instancetypes+ibicInstanceTypes :: Lens' ImageBuilderInfrastructureConfiguration (Maybe (ValList Text))+ibicInstanceTypes = lens _imageBuilderInfrastructureConfigurationInstanceTypes (\s a -> s { _imageBuilderInfrastructureConfigurationInstanceTypes = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-keypair+ibicKeyPair :: Lens' ImageBuilderInfrastructureConfiguration (Maybe (Val Text))+ibicKeyPair = lens _imageBuilderInfrastructureConfigurationKeyPair (\s a -> s { _imageBuilderInfrastructureConfigurationKeyPair = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-logging+ibicLogging :: Lens' ImageBuilderInfrastructureConfiguration (Maybe Object)+ibicLogging = lens _imageBuilderInfrastructureConfigurationLogging (\s a -> s { _imageBuilderInfrastructureConfigurationLogging = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-name+ibicName :: Lens' ImageBuilderInfrastructureConfiguration (Val Text)+ibicName = lens _imageBuilderInfrastructureConfigurationName (\s a -> s { _imageBuilderInfrastructureConfigurationName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-securitygroupids+ibicSecurityGroupIds :: Lens' ImageBuilderInfrastructureConfiguration (Maybe (ValList Text))+ibicSecurityGroupIds = lens _imageBuilderInfrastructureConfigurationSecurityGroupIds (\s a -> s { _imageBuilderInfrastructureConfigurationSecurityGroupIds = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-snstopicarn+ibicSnsTopicArn :: Lens' ImageBuilderInfrastructureConfiguration (Maybe (Val Text))+ibicSnsTopicArn = lens _imageBuilderInfrastructureConfigurationSnsTopicArn (\s a -> s { _imageBuilderInfrastructureConfigurationSnsTopicArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-subnetid+ibicSubnetId :: Lens' ImageBuilderInfrastructureConfiguration (Maybe (Val Text))+ibicSubnetId = lens _imageBuilderInfrastructureConfigurationSubnetId (\s a -> s { _imageBuilderInfrastructureConfigurationSubnetId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-tags+ibicTags :: Lens' ImageBuilderInfrastructureConfiguration (Maybe Object)+ibicTags = lens _imageBuilderInfrastructureConfigurationTags (\s a -> s { _imageBuilderInfrastructureConfigurationTags = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-terminateinstanceonfailure+ibicTerminateInstanceOnFailure :: Lens' ImageBuilderInfrastructureConfiguration (Maybe (Val Bool))+ibicTerminateInstanceOnFailure = lens _imageBuilderInfrastructureConfigurationTerminateInstanceOnFailure (\s a -> s { _imageBuilderInfrastructureConfigurationTerminateInstanceOnFailure = a })

library-gen/Stratosphere/Resources/KinesisAnalyticsV2Application.hs view

@@ -9,6 +9,7 @@  import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationApplicationConfiguration+import Stratosphere.ResourceProperties.Tag  -- | Full data type definition for KinesisAnalyticsV2Application. See -- 'kinesisAnalyticsV2Application' for a more convenient constructor.@@ -19,6 +20,7 @@   , _kinesisAnalyticsV2ApplicationApplicationName :: Maybe (Val Text)   , _kinesisAnalyticsV2ApplicationRuntimeEnvironment :: Val Text   , _kinesisAnalyticsV2ApplicationServiceExecutionRole :: Val Text+  , _kinesisAnalyticsV2ApplicationTags :: Maybe [Tag]   } deriving (Show, Eq)  instance ToResourceProperties KinesisAnalyticsV2Application where@@ -32,6 +34,7 @@         , fmap (("ApplicationName",) . toJSON) _kinesisAnalyticsV2ApplicationApplicationName         , (Just . ("RuntimeEnvironment",) . toJSON) _kinesisAnalyticsV2ApplicationRuntimeEnvironment         , (Just . ("ServiceExecutionRole",) . toJSON) _kinesisAnalyticsV2ApplicationServiceExecutionRole+        , fmap (("Tags",) . toJSON) _kinesisAnalyticsV2ApplicationTags         ]     } @@ -48,6 +51,7 @@   , _kinesisAnalyticsV2ApplicationApplicationName = Nothing   , _kinesisAnalyticsV2ApplicationRuntimeEnvironment = runtimeEnvironmentarg   , _kinesisAnalyticsV2ApplicationServiceExecutionRole = serviceExecutionRolearg+  , _kinesisAnalyticsV2ApplicationTags = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalyticsv2-application.html#cfn-kinesisanalyticsv2-application-applicationconfiguration@@ -69,3 +73,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalyticsv2-application.html#cfn-kinesisanalyticsv2-application-serviceexecutionrole kavaServiceExecutionRole :: Lens' KinesisAnalyticsV2Application (Val Text) kavaServiceExecutionRole = lens _kinesisAnalyticsV2ApplicationServiceExecutionRole (\s a -> s { _kinesisAnalyticsV2ApplicationServiceExecutionRole = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalyticsv2-application.html#cfn-kinesisanalyticsv2-application-tags+kavaTags :: Lens' KinesisAnalyticsV2Application (Maybe [Tag])+kavaTags = lens _kinesisAnalyticsV2ApplicationTags (\s a -> s { _kinesisAnalyticsV2ApplicationTags = a })

library-gen/Stratosphere/Resources/StepFunctionsStateMachine.hs view

@@ -10,6 +10,7 @@ import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.StepFunctionsStateMachineLoggingConfiguration import Stratosphere.ResourceProperties.StepFunctionsStateMachineTagsEntry+import Stratosphere.ResourceProperties.StepFunctionsStateMachineTracingConfiguration  -- | Full data type definition for StepFunctionsStateMachine. See -- 'stepFunctionsStateMachine' for a more convenient constructor.@@ -21,6 +22,7 @@   , _stepFunctionsStateMachineStateMachineName :: Maybe (Val Text)   , _stepFunctionsStateMachineStateMachineType :: Maybe (Val Text)   , _stepFunctionsStateMachineTags :: Maybe [StepFunctionsStateMachineTagsEntry]+  , _stepFunctionsStateMachineTracingConfiguration :: Maybe StepFunctionsStateMachineTracingConfiguration   } deriving (Show, Eq)  instance ToResourceProperties StepFunctionsStateMachine where@@ -35,6 +37,7 @@         , fmap (("StateMachineName",) . toJSON) _stepFunctionsStateMachineStateMachineName         , fmap (("StateMachineType",) . toJSON) _stepFunctionsStateMachineStateMachineType         , fmap (("Tags",) . toJSON) _stepFunctionsStateMachineTags+        , fmap (("TracingConfiguration",) . toJSON) _stepFunctionsStateMachineTracingConfiguration         ]     } @@ -52,6 +55,7 @@   , _stepFunctionsStateMachineStateMachineName = Nothing   , _stepFunctionsStateMachineStateMachineType = Nothing   , _stepFunctionsStateMachineTags = Nothing+  , _stepFunctionsStateMachineTracingConfiguration = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-stepfunctions-statemachine.html#cfn-stepfunctions-statemachine-definitionstring@@ -77,3 +81,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-stepfunctions-statemachine.html#cfn-stepfunctions-statemachine-tags sfsmTags :: Lens' StepFunctionsStateMachine (Maybe [StepFunctionsStateMachineTagsEntry]) sfsmTags = lens _stepFunctionsStateMachineTags (\s a -> s { _stepFunctionsStateMachineTags = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-stepfunctions-statemachine.html#cfn-stepfunctions-statemachine-tracingconfiguration+sfsmTracingConfiguration :: Lens' StepFunctionsStateMachine (Maybe StepFunctionsStateMachineTracingConfiguration)+sfsmTracingConfiguration = lens _stepFunctionsStateMachineTracingConfiguration (\s a -> s { _stepFunctionsStateMachineTracingConfiguration = a })

stratosphere.cabal view

@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 9be75cdd17dace140468de699b0e2c48dc74cc00f31ad255104034da133f584c+-- hash: d225bcf7b46ec58f804e082961a133e48b9dab8163d2040355a1ce961b621ea5  name:           stratosphere-version:        0.51.0+version:        0.52.0 synopsis:       EDSL for AWS CloudFormation description:    EDSL for AWS CloudFormation category:       AWS, Cloud@@ -446,12 +446,13 @@       Stratosphere.ResourceProperties.EC2ClientVpnEndpointConnectionLogOptions       Stratosphere.ResourceProperties.EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest       Stratosphere.ResourceProperties.EC2ClientVpnEndpointTagSpecification+      Stratosphere.ResourceProperties.EC2EC2FleetCapacityReservationOptionsRequest       Stratosphere.ResourceProperties.EC2EC2FleetFleetLaunchTemplateConfigRequest       Stratosphere.ResourceProperties.EC2EC2FleetFleetLaunchTemplateOverridesRequest       Stratosphere.ResourceProperties.EC2EC2FleetFleetLaunchTemplateSpecificationRequest       Stratosphere.ResourceProperties.EC2EC2FleetOnDemandOptionsRequest+      Stratosphere.ResourceProperties.EC2EC2FleetPlacement       Stratosphere.ResourceProperties.EC2EC2FleetSpotOptionsRequest-      Stratosphere.ResourceProperties.EC2EC2FleetTagRequest       Stratosphere.ResourceProperties.EC2EC2FleetTagSpecification       Stratosphere.ResourceProperties.EC2EC2FleetTargetCapacitySpecificationRequest       Stratosphere.ResourceProperties.EC2InstanceAssociationParameter@@ -806,6 +807,14 @@       Stratosphere.ResourceProperties.IAMRolePolicy       Stratosphere.ResourceProperties.IAMUserLoginProfile       Stratosphere.ResourceProperties.IAMUserPolicy+      Stratosphere.ResourceProperties.ImageBuilderDistributionConfigurationDistribution+      Stratosphere.ResourceProperties.ImageBuilderImagePipelineImageTestsConfiguration+      Stratosphere.ResourceProperties.ImageBuilderImagePipelineSchedule+      Stratosphere.ResourceProperties.ImageBuilderImageRecipeComponentConfiguration+      Stratosphere.ResourceProperties.ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification+      Stratosphere.ResourceProperties.ImageBuilderImageRecipeInstanceBlockDeviceMapping+      Stratosphere.ResourceProperties.ImageBuilderInfrastructureConfigurationLogging+      Stratosphere.ResourceProperties.ImageBuilderInfrastructureConfigurationS3Logs       Stratosphere.ResourceProperties.IoT1ClickProjectDeviceTemplate       Stratosphere.ResourceProperties.IoT1ClickProjectPlacementTemplate       Stratosphere.ResourceProperties.IoTAnalyticsChannelChannelStorage@@ -869,18 +878,28 @@       Stratosphere.ResourceProperties.IoTThingAttributePayload       Stratosphere.ResourceProperties.IoTThingsGraphFlowTemplateDefinitionDocument       Stratosphere.ResourceProperties.IoTTopicRuleAction+      Stratosphere.ResourceProperties.IoTTopicRuleAssetPropertyTimestamp+      Stratosphere.ResourceProperties.IoTTopicRuleAssetPropertyValue+      Stratosphere.ResourceProperties.IoTTopicRuleAssetPropertyVariant       Stratosphere.ResourceProperties.IoTTopicRuleCloudwatchAlarmAction       Stratosphere.ResourceProperties.IoTTopicRuleCloudwatchMetricAction       Stratosphere.ResourceProperties.IoTTopicRuleDynamoDBAction       Stratosphere.ResourceProperties.IoTTopicRuleDynamoDBV2Action       Stratosphere.ResourceProperties.IoTTopicRuleElasticsearchAction       Stratosphere.ResourceProperties.IoTTopicRuleFirehoseAction+      Stratosphere.ResourceProperties.IoTTopicRuleHttpAction+      Stratosphere.ResourceProperties.IoTTopicRuleHttpActionHeader+      Stratosphere.ResourceProperties.IoTTopicRuleHttpAuthorization       Stratosphere.ResourceProperties.IoTTopicRuleIotAnalyticsAction+      Stratosphere.ResourceProperties.IoTTopicRuleIotEventsAction+      Stratosphere.ResourceProperties.IoTTopicRuleIotSiteWiseAction       Stratosphere.ResourceProperties.IoTTopicRuleKinesisAction       Stratosphere.ResourceProperties.IoTTopicRuleLambdaAction+      Stratosphere.ResourceProperties.IoTTopicRulePutAssetPropertyValueEntry       Stratosphere.ResourceProperties.IoTTopicRulePutItemInput       Stratosphere.ResourceProperties.IoTTopicRuleRepublishAction       Stratosphere.ResourceProperties.IoTTopicRuleS3Action+      Stratosphere.ResourceProperties.IoTTopicRuleSigV4Authorization       Stratosphere.ResourceProperties.IoTTopicRuleSnsAction       Stratosphere.ResourceProperties.IoTTopicRuleSqsAction       Stratosphere.ResourceProperties.IoTTopicRuleStepFunctionsAction@@ -1262,6 +1281,7 @@       Stratosphere.ResourceProperties.StepFunctionsStateMachineLogDestination       Stratosphere.ResourceProperties.StepFunctionsStateMachineLoggingConfiguration       Stratosphere.ResourceProperties.StepFunctionsStateMachineTagsEntry+      Stratosphere.ResourceProperties.StepFunctionsStateMachineTracingConfiguration       Stratosphere.ResourceProperties.Tag       Stratosphere.ResourceProperties.TransferServerEndpointDetails       Stratosphere.ResourceProperties.TransferServerIdentityProviderDetails@@ -1485,6 +1505,8 @@       Stratosphere.Resources.DAXCluster       Stratosphere.Resources.DAXParameterGroup       Stratosphere.Resources.DAXSubnetGroup+      Stratosphere.Resources.DetectiveGraph+      Stratosphere.Resources.DetectiveMemberInvitation       Stratosphere.Resources.DirectoryServiceMicrosoftAD       Stratosphere.Resources.DirectoryServiceSimpleAD       Stratosphere.Resources.DLMLifecyclePolicy@@ -1652,6 +1674,11 @@       Stratosphere.Resources.IAMServiceLinkedRole       Stratosphere.Resources.IAMUser       Stratosphere.Resources.IAMUserToGroupAddition+      Stratosphere.Resources.ImageBuilderComponent+      Stratosphere.Resources.ImageBuilderDistributionConfiguration+      Stratosphere.Resources.ImageBuilderImagePipeline+      Stratosphere.Resources.ImageBuilderImageRecipe+      Stratosphere.Resources.ImageBuilderInfrastructureConfiguration       Stratosphere.Resources.InspectorAssessmentTarget       Stratosphere.Resources.InspectorAssessmentTemplate       Stratosphere.Resources.InspectorResourceGroup