stratosphere 0.26.2 → 0.27.0

raw patch · 42 files changed

+1613/−38 lines, 42 files

Files

• CHANGELOG.md +4/−0
• library-gen/Stratosphere/ResourceProperties/ApiGatewayDeploymentStageDescription.hs +8/−0
• library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification.hs +81/−0
• library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification.hs +55/−0
• library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanScalingInstruction.hs +69/−3
• library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicyCreateRule.hs +61/−0
• library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicyPolicyDetails.hs +60/−0
• library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicyRetainRule.hs +44/−0
• library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicySchedule.hs +77/−0
• library-gen/Stratosphere/ResourceProperties/EC2SecurityGroupIngressProperty.hs +8/−0
• library-gen/Stratosphere/ResourceProperties/EC2SpotFleetSpotFleetTagSpecification.hs +10/−2
• library-gen/Stratosphere/ResourceProperties/IoTTopicRuleAction.hs +19/−1
• library-gen/Stratosphere/ResourceProperties/IoTTopicRuleIotAnalyticsAction.hs +53/−0
• library-gen/Stratosphere/ResourceProperties/IoTTopicRuleStepFunctionsAction.hs +61/−0
• library-gen/Stratosphere/ResourceProperties/IoTTopicRuleTopicRulePayload.hs +8/−0
• library-gen/Stratosphere/ResourceProperties/OpsWorksLayerVolumeConfiguration.hs +11/−3
• library-gen/Stratosphere/ResourceProperties/RDSDBClusterScalingConfiguration.hs +7/−7
• library-gen/Stratosphere/ResourceProperties/RDSDBInstanceProcessorFeature.hs +51/−0
• library-gen/Stratosphere/ResourceProperties/Route53RecordSetGroupRecordSet.hs +8/−0
• library-gen/Stratosphere/ResourceProperties/SecretsManagerRotationScheduleRotationRules.hs +45/−0
• library-gen/Stratosphere/ResourceProperties/SecretsManagerSecretGenerateSecretString.hs +116/−0
• library-gen/Stratosphere/ResourceProperties/WorkSpacesWorkspaceWorkspaceProperties.hs +76/−0
• library-gen/Stratosphere/Resources.hs +43/−1
• library-gen/Stratosphere/Resources/ApiGatewayStage.hs +8/−0
• library-gen/Stratosphere/Resources/CloudFormationWaitCondition.hs +12/−14
• library-gen/Stratosphere/Resources/CloudWatchAlarm.hs +8/−0
• library-gen/Stratosphere/Resources/DLMLifecyclePolicy.hs +67/−0
• library-gen/Stratosphere/Resources/EC2SecurityGroupIngress.hs +8/−0
• library-gen/Stratosphere/Resources/IAMRole.hs +8/−0
• library-gen/Stratosphere/Resources/IAMUser.hs +8/−0
• library-gen/Stratosphere/Resources/KMSKey.hs +8/−0
• library-gen/Stratosphere/Resources/RDSDBCluster.hs +24/−0
• library-gen/Stratosphere/Resources/RDSDBInstance.hs +57/−0
• library-gen/Stratosphere/Resources/Route53RecordSet.hs +8/−0
• library-gen/Stratosphere/Resources/SSMMaintenanceWindow.hs +112/−0
• library-gen/Stratosphere/Resources/SageMakerNotebookInstance.hs +9/−1
• library-gen/Stratosphere/Resources/SecretsManagerResourcePolicy.hs +53/−0
• library-gen/Stratosphere/Resources/SecretsManagerRotationSchedule.hs +60/−0
• library-gen/Stratosphere/Resources/SecretsManagerSecret.hs +84/−0
• library-gen/Stratosphere/Resources/SecretsManagerSecretTargetAttachment.hs +62/−0
• library-gen/Stratosphere/Resources/WorkSpacesWorkspace.hs +19/−2
• stratosphere.cabal +23/−4

@@ -1,5 +1,9 @@ # Change Log +## 0.27.0++* Update resource specification document to version 2.12.0+ ## 0.26.2  * Update resource specification document to version 2.10.0

@@ -32,6 +32,7 @@   , _apiGatewayDeploymentStageDescriptionMetricsEnabled :: Maybe (Val Bool)   , _apiGatewayDeploymentStageDescriptionThrottlingBurstLimit :: Maybe (Val Integer)   , _apiGatewayDeploymentStageDescriptionThrottlingRateLimit :: Maybe (Val Double)+  , _apiGatewayDeploymentStageDescriptionTracingEnabled :: Maybe (Val Bool)   , _apiGatewayDeploymentStageDescriptionVariables :: Maybe Object   } deriving (Show, Eq) @@ -55,6 +56,7 @@     , fmap (("MetricsEnabled",) . toJSON . fmap Bool') _apiGatewayDeploymentStageDescriptionMetricsEnabled     , fmap (("ThrottlingBurstLimit",) . toJSON . fmap Integer') _apiGatewayDeploymentStageDescriptionThrottlingBurstLimit     , fmap (("ThrottlingRateLimit",) . toJSON . fmap Double') _apiGatewayDeploymentStageDescriptionThrottlingRateLimit+    , fmap (("TracingEnabled",) . toJSON . fmap Bool') _apiGatewayDeploymentStageDescriptionTracingEnabled     , fmap (("Variables",) . toJSON) _apiGatewayDeploymentStageDescriptionVariables     ] @@ -77,6 +79,7 @@       fmap (fmap (fmap unBool')) (obj .:? "MetricsEnabled") <*>       fmap (fmap (fmap unInteger')) (obj .:? "ThrottlingBurstLimit") <*>       fmap (fmap (fmap unDouble')) (obj .:? "ThrottlingRateLimit") <*>+      fmap (fmap (fmap unBool')) (obj .:? "TracingEnabled") <*>       (obj .:? "Variables")   parseJSON _ = mempty @@ -102,6 +105,7 @@   , _apiGatewayDeploymentStageDescriptionMetricsEnabled = Nothing   , _apiGatewayDeploymentStageDescriptionThrottlingBurstLimit = Nothing   , _apiGatewayDeploymentStageDescriptionThrottlingRateLimit = Nothing+  , _apiGatewayDeploymentStageDescriptionTracingEnabled = Nothing   , _apiGatewayDeploymentStageDescriptionVariables = Nothing   } @@ -168,6 +172,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-throttlingratelimit agdsdThrottlingRateLimit :: Lens' ApiGatewayDeploymentStageDescription (Maybe (Val Double)) agdsdThrottlingRateLimit = lens _apiGatewayDeploymentStageDescriptionThrottlingRateLimit (\s a -> s { _apiGatewayDeploymentStageDescriptionThrottlingRateLimit = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-tracingenabled+agdsdTracingEnabled :: Lens' ApiGatewayDeploymentStageDescription (Maybe (Val Bool))+agdsdTracingEnabled = lens _apiGatewayDeploymentStageDescriptionTracingEnabled (\s a -> s { _apiGatewayDeploymentStageDescriptionTracingEnabled = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-variables agdsdVariables :: Lens' ApiGatewayDeploymentStageDescription (Maybe Object)

@@ -0,0 +1,81 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-customizedloadmetricspecification.html++module Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanMetricDimension++-- | Full data type definition for+-- AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification. See+-- 'autoScalingPlansScalingPlanCustomizedLoadMetricSpecification' for a more+-- convenient constructor.+data AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification =+  AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification+  { _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationDimensions :: Maybe [AutoScalingPlansScalingPlanMetricDimension]+  , _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationMetricName :: Val Text+  , _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationNamespace :: Val Text+  , _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationStatistic :: Val Text+  , _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationUnit :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification where+  toJSON AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification{..} =+    object $+    catMaybes+    [ fmap (("Dimensions",) . toJSON) _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationDimensions+    , (Just . ("MetricName",) . toJSON) _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationMetricName+    , (Just . ("Namespace",) . toJSON) _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationNamespace+    , (Just . ("Statistic",) . toJSON) _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationStatistic+    , fmap (("Unit",) . toJSON) _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationUnit+    ]++instance FromJSON AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification where+  parseJSON (Object obj) =+    AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification <$>+      (obj .:? "Dimensions") <*>+      (obj .: "MetricName") <*>+      (obj .: "Namespace") <*>+      (obj .: "Statistic") <*>+      (obj .:? "Unit")+  parseJSON _ = mempty++-- | Constructor for+-- 'AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification' containing+-- required fields as arguments.+autoScalingPlansScalingPlanCustomizedLoadMetricSpecification+  :: Val Text -- ^ 'aspspclmsMetricName'+  -> Val Text -- ^ 'aspspclmsNamespace'+  -> Val Text -- ^ 'aspspclmsStatistic'+  -> AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification+autoScalingPlansScalingPlanCustomizedLoadMetricSpecification metricNamearg namespacearg statisticarg =+  AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification+  { _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationDimensions = Nothing+  , _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationMetricName = metricNamearg+  , _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationNamespace = namespacearg+  , _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationStatistic = statisticarg+  , _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationUnit = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-customizedloadmetricspecification.html#cfn-autoscalingplans-scalingplan-customizedloadmetricspecification-dimensions+aspspclmsDimensions :: Lens' AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification (Maybe [AutoScalingPlansScalingPlanMetricDimension])+aspspclmsDimensions = lens _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationDimensions (\s a -> s { _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationDimensions = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-customizedloadmetricspecification.html#cfn-autoscalingplans-scalingplan-customizedloadmetricspecification-metricname+aspspclmsMetricName :: Lens' AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification (Val Text)+aspspclmsMetricName = lens _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationMetricName (\s a -> s { _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationMetricName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-customizedloadmetricspecification.html#cfn-autoscalingplans-scalingplan-customizedloadmetricspecification-namespace+aspspclmsNamespace :: Lens' AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification (Val Text)+aspspclmsNamespace = lens _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationNamespace (\s a -> s { _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationNamespace = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-customizedloadmetricspecification.html#cfn-autoscalingplans-scalingplan-customizedloadmetricspecification-statistic+aspspclmsStatistic :: Lens' AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification (Val Text)+aspspclmsStatistic = lens _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationStatistic (\s a -> s { _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationStatistic = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-customizedloadmetricspecification.html#cfn-autoscalingplans-scalingplan-customizedloadmetricspecification-unit+aspspclmsUnit :: Lens' AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification (Maybe (Val Text))+aspspclmsUnit = lens _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationUnit (\s a -> s { _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationUnit = a })

@@ -0,0 +1,55 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-predefinedloadmetricspecification.html++module Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification. See+-- 'autoScalingPlansScalingPlanPredefinedLoadMetricSpecification' for a more+-- convenient constructor.+data AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification =+  AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification+  { _autoScalingPlansScalingPlanPredefinedLoadMetricSpecificationPredefinedLoadMetricType :: Val Text+  , _autoScalingPlansScalingPlanPredefinedLoadMetricSpecificationResourceLabel :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification where+  toJSON AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification{..} =+    object $+    catMaybes+    [ (Just . ("PredefinedLoadMetricType",) . toJSON) _autoScalingPlansScalingPlanPredefinedLoadMetricSpecificationPredefinedLoadMetricType+    , fmap (("ResourceLabel",) . toJSON) _autoScalingPlansScalingPlanPredefinedLoadMetricSpecificationResourceLabel+    ]++instance FromJSON AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification where+  parseJSON (Object obj) =+    AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification <$>+      (obj .: "PredefinedLoadMetricType") <*>+      (obj .:? "ResourceLabel")+  parseJSON _ = mempty++-- | Constructor for+-- 'AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification' containing+-- required fields as arguments.+autoScalingPlansScalingPlanPredefinedLoadMetricSpecification+  :: Val Text -- ^ 'aspspplmsPredefinedLoadMetricType'+  -> AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification+autoScalingPlansScalingPlanPredefinedLoadMetricSpecification predefinedLoadMetricTypearg =+  AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification+  { _autoScalingPlansScalingPlanPredefinedLoadMetricSpecificationPredefinedLoadMetricType = predefinedLoadMetricTypearg+  , _autoScalingPlansScalingPlanPredefinedLoadMetricSpecificationResourceLabel = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-predefinedloadmetricspecification.html#cfn-autoscalingplans-scalingplan-predefinedloadmetricspecification-predefinedloadmetrictype+aspspplmsPredefinedLoadMetricType :: Lens' AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification (Val Text)+aspspplmsPredefinedLoadMetricType = lens _autoScalingPlansScalingPlanPredefinedLoadMetricSpecificationPredefinedLoadMetricType (\s a -> s { _autoScalingPlansScalingPlanPredefinedLoadMetricSpecificationPredefinedLoadMetricType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-predefinedloadmetricspecification.html#cfn-autoscalingplans-scalingplan-predefinedloadmetricspecification-resourcelabel+aspspplmsResourceLabel :: Lens' AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification (Maybe (Val Text))+aspspplmsResourceLabel = lens _autoScalingPlansScalingPlanPredefinedLoadMetricSpecificationResourceLabel (\s a -> s { _autoScalingPlansScalingPlanPredefinedLoadMetricSpecificationResourceLabel = a })

@@ -7,6 +7,8 @@ module Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanScalingInstruction where  import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification+import Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification import Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanTargetTrackingConfiguration  -- | Full data type definition for@@ -15,10 +17,18 @@ -- constructor. data AutoScalingPlansScalingPlanScalingInstruction =   AutoScalingPlansScalingPlanScalingInstruction-  { _autoScalingPlansScalingPlanScalingInstructionMaxCapacity :: Val Integer+  { _autoScalingPlansScalingPlanScalingInstructionCustomizedLoadMetricSpecification :: Maybe AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification+  , _autoScalingPlansScalingPlanScalingInstructionDisableDynamicScaling :: Maybe (Val Bool)+  , _autoScalingPlansScalingPlanScalingInstructionMaxCapacity :: Val Integer   , _autoScalingPlansScalingPlanScalingInstructionMinCapacity :: Val Integer+  , _autoScalingPlansScalingPlanScalingInstructionPredefinedLoadMetricSpecification :: Maybe AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification+  , _autoScalingPlansScalingPlanScalingInstructionPredictiveScalingMaxCapacityBehavior :: Maybe (Val Text)+  , _autoScalingPlansScalingPlanScalingInstructionPredictiveScalingMaxCapacityBuffer :: Maybe (Val Integer)+  , _autoScalingPlansScalingPlanScalingInstructionPredictiveScalingMode :: Maybe (Val Text)   , _autoScalingPlansScalingPlanScalingInstructionResourceId :: Val Text   , _autoScalingPlansScalingPlanScalingInstructionScalableDimension :: Val Text+  , _autoScalingPlansScalingPlanScalingInstructionScalingPolicyUpdateBehavior :: Maybe (Val Text)+  , _autoScalingPlansScalingPlanScalingInstructionScheduledActionBufferTime :: Maybe (Val Integer)   , _autoScalingPlansScalingPlanScalingInstructionServiceNamespace :: Val Text   , _autoScalingPlansScalingPlanScalingInstructionTargetTrackingConfigurations :: [AutoScalingPlansScalingPlanTargetTrackingConfiguration]   } deriving (Show, Eq)@@ -27,10 +37,18 @@   toJSON AutoScalingPlansScalingPlanScalingInstruction{..} =     object $     catMaybes-    [ (Just . ("MaxCapacity",) . toJSON . fmap Integer') _autoScalingPlansScalingPlanScalingInstructionMaxCapacity+    [ fmap (("CustomizedLoadMetricSpecification",) . toJSON) _autoScalingPlansScalingPlanScalingInstructionCustomizedLoadMetricSpecification+    , fmap (("DisableDynamicScaling",) . toJSON . fmap Bool') _autoScalingPlansScalingPlanScalingInstructionDisableDynamicScaling+    , (Just . ("MaxCapacity",) . toJSON . fmap Integer') _autoScalingPlansScalingPlanScalingInstructionMaxCapacity     , (Just . ("MinCapacity",) . toJSON . fmap Integer') _autoScalingPlansScalingPlanScalingInstructionMinCapacity+    , fmap (("PredefinedLoadMetricSpecification",) . toJSON) _autoScalingPlansScalingPlanScalingInstructionPredefinedLoadMetricSpecification+    , fmap (("PredictiveScalingMaxCapacityBehavior",) . toJSON) _autoScalingPlansScalingPlanScalingInstructionPredictiveScalingMaxCapacityBehavior+    , fmap (("PredictiveScalingMaxCapacityBuffer",) . toJSON . fmap Integer') _autoScalingPlansScalingPlanScalingInstructionPredictiveScalingMaxCapacityBuffer+    , fmap (("PredictiveScalingMode",) . toJSON) _autoScalingPlansScalingPlanScalingInstructionPredictiveScalingMode     , (Just . ("ResourceId",) . toJSON) _autoScalingPlansScalingPlanScalingInstructionResourceId     , (Just . ("ScalableDimension",) . toJSON) _autoScalingPlansScalingPlanScalingInstructionScalableDimension+    , fmap (("ScalingPolicyUpdateBehavior",) . toJSON) _autoScalingPlansScalingPlanScalingInstructionScalingPolicyUpdateBehavior+    , fmap (("ScheduledActionBufferTime",) . toJSON . fmap Integer') _autoScalingPlansScalingPlanScalingInstructionScheduledActionBufferTime     , (Just . ("ServiceNamespace",) . toJSON) _autoScalingPlansScalingPlanScalingInstructionServiceNamespace     , (Just . ("TargetTrackingConfigurations",) . toJSON) _autoScalingPlansScalingPlanScalingInstructionTargetTrackingConfigurations     ]@@ -38,10 +56,18 @@ instance FromJSON AutoScalingPlansScalingPlanScalingInstruction where   parseJSON (Object obj) =     AutoScalingPlansScalingPlanScalingInstruction <$>+      (obj .:? "CustomizedLoadMetricSpecification") <*>+      fmap (fmap (fmap unBool')) (obj .:? "DisableDynamicScaling") <*>       fmap (fmap unInteger') (obj .: "MaxCapacity") <*>       fmap (fmap unInteger') (obj .: "MinCapacity") <*>+      (obj .:? "PredefinedLoadMetricSpecification") <*>+      (obj .:? "PredictiveScalingMaxCapacityBehavior") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "PredictiveScalingMaxCapacityBuffer") <*>+      (obj .:? "PredictiveScalingMode") <*>       (obj .: "ResourceId") <*>       (obj .: "ScalableDimension") <*>+      (obj .:? "ScalingPolicyUpdateBehavior") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "ScheduledActionBufferTime") <*>       (obj .: "ServiceNamespace") <*>       (obj .: "TargetTrackingConfigurations")   parseJSON _ = mempty@@ -58,14 +84,30 @@   -> AutoScalingPlansScalingPlanScalingInstruction autoScalingPlansScalingPlanScalingInstruction maxCapacityarg minCapacityarg resourceIdarg scalableDimensionarg serviceNamespacearg targetTrackingConfigurationsarg =   AutoScalingPlansScalingPlanScalingInstruction-  { _autoScalingPlansScalingPlanScalingInstructionMaxCapacity = maxCapacityarg+  { _autoScalingPlansScalingPlanScalingInstructionCustomizedLoadMetricSpecification = Nothing+  , _autoScalingPlansScalingPlanScalingInstructionDisableDynamicScaling = Nothing+  , _autoScalingPlansScalingPlanScalingInstructionMaxCapacity = maxCapacityarg   , _autoScalingPlansScalingPlanScalingInstructionMinCapacity = minCapacityarg+  , _autoScalingPlansScalingPlanScalingInstructionPredefinedLoadMetricSpecification = Nothing+  , _autoScalingPlansScalingPlanScalingInstructionPredictiveScalingMaxCapacityBehavior = Nothing+  , _autoScalingPlansScalingPlanScalingInstructionPredictiveScalingMaxCapacityBuffer = Nothing+  , _autoScalingPlansScalingPlanScalingInstructionPredictiveScalingMode = Nothing   , _autoScalingPlansScalingPlanScalingInstructionResourceId = resourceIdarg   , _autoScalingPlansScalingPlanScalingInstructionScalableDimension = scalableDimensionarg+  , _autoScalingPlansScalingPlanScalingInstructionScalingPolicyUpdateBehavior = Nothing+  , _autoScalingPlansScalingPlanScalingInstructionScheduledActionBufferTime = Nothing   , _autoScalingPlansScalingPlanScalingInstructionServiceNamespace = serviceNamespacearg   , _autoScalingPlansScalingPlanScalingInstructionTargetTrackingConfigurations = targetTrackingConfigurationsarg   } +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-scalinginstruction.html#cfn-autoscalingplans-scalingplan-scalinginstruction-customizedloadmetricspecification+aspspsiCustomizedLoadMetricSpecification :: Lens' AutoScalingPlansScalingPlanScalingInstruction (Maybe AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification)+aspspsiCustomizedLoadMetricSpecification = lens _autoScalingPlansScalingPlanScalingInstructionCustomizedLoadMetricSpecification (\s a -> s { _autoScalingPlansScalingPlanScalingInstructionCustomizedLoadMetricSpecification = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-scalinginstruction.html#cfn-autoscalingplans-scalingplan-scalinginstruction-disabledynamicscaling+aspspsiDisableDynamicScaling :: Lens' AutoScalingPlansScalingPlanScalingInstruction (Maybe (Val Bool))+aspspsiDisableDynamicScaling = lens _autoScalingPlansScalingPlanScalingInstructionDisableDynamicScaling (\s a -> s { _autoScalingPlansScalingPlanScalingInstructionDisableDynamicScaling = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-scalinginstruction.html#cfn-autoscalingplans-scalingplan-scalinginstruction-maxcapacity aspspsiMaxCapacity :: Lens' AutoScalingPlansScalingPlanScalingInstruction (Val Integer) aspspsiMaxCapacity = lens _autoScalingPlansScalingPlanScalingInstructionMaxCapacity (\s a -> s { _autoScalingPlansScalingPlanScalingInstructionMaxCapacity = a })@@ -74,6 +116,22 @@ aspspsiMinCapacity :: Lens' AutoScalingPlansScalingPlanScalingInstruction (Val Integer) aspspsiMinCapacity = lens _autoScalingPlansScalingPlanScalingInstructionMinCapacity (\s a -> s { _autoScalingPlansScalingPlanScalingInstructionMinCapacity = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-scalinginstruction.html#cfn-autoscalingplans-scalingplan-scalinginstruction-predefinedloadmetricspecification+aspspsiPredefinedLoadMetricSpecification :: Lens' AutoScalingPlansScalingPlanScalingInstruction (Maybe AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification)+aspspsiPredefinedLoadMetricSpecification = lens _autoScalingPlansScalingPlanScalingInstructionPredefinedLoadMetricSpecification (\s a -> s { _autoScalingPlansScalingPlanScalingInstructionPredefinedLoadMetricSpecification = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-scalinginstruction.html#cfn-autoscalingplans-scalingplan-scalinginstruction-predictivescalingmaxcapacitybehavior+aspspsiPredictiveScalingMaxCapacityBehavior :: Lens' AutoScalingPlansScalingPlanScalingInstruction (Maybe (Val Text))+aspspsiPredictiveScalingMaxCapacityBehavior = lens _autoScalingPlansScalingPlanScalingInstructionPredictiveScalingMaxCapacityBehavior (\s a -> s { _autoScalingPlansScalingPlanScalingInstructionPredictiveScalingMaxCapacityBehavior = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-scalinginstruction.html#cfn-autoscalingplans-scalingplan-scalinginstruction-predictivescalingmaxcapacitybuffer+aspspsiPredictiveScalingMaxCapacityBuffer :: Lens' AutoScalingPlansScalingPlanScalingInstruction (Maybe (Val Integer))+aspspsiPredictiveScalingMaxCapacityBuffer = lens _autoScalingPlansScalingPlanScalingInstructionPredictiveScalingMaxCapacityBuffer (\s a -> s { _autoScalingPlansScalingPlanScalingInstructionPredictiveScalingMaxCapacityBuffer = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-scalinginstruction.html#cfn-autoscalingplans-scalingplan-scalinginstruction-predictivescalingmode+aspspsiPredictiveScalingMode :: Lens' AutoScalingPlansScalingPlanScalingInstruction (Maybe (Val Text))+aspspsiPredictiveScalingMode = lens _autoScalingPlansScalingPlanScalingInstructionPredictiveScalingMode (\s a -> s { _autoScalingPlansScalingPlanScalingInstructionPredictiveScalingMode = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-scalinginstruction.html#cfn-autoscalingplans-scalingplan-scalinginstruction-resourceid aspspsiResourceId :: Lens' AutoScalingPlansScalingPlanScalingInstruction (Val Text) aspspsiResourceId = lens _autoScalingPlansScalingPlanScalingInstructionResourceId (\s a -> s { _autoScalingPlansScalingPlanScalingInstructionResourceId = a })@@ -81,6 +139,14 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-scalinginstruction.html#cfn-autoscalingplans-scalingplan-scalinginstruction-scalabledimension aspspsiScalableDimension :: Lens' AutoScalingPlansScalingPlanScalingInstruction (Val Text) aspspsiScalableDimension = lens _autoScalingPlansScalingPlanScalingInstructionScalableDimension (\s a -> s { _autoScalingPlansScalingPlanScalingInstructionScalableDimension = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-scalinginstruction.html#cfn-autoscalingplans-scalingplan-scalinginstruction-scalingpolicyupdatebehavior+aspspsiScalingPolicyUpdateBehavior :: Lens' AutoScalingPlansScalingPlanScalingInstruction (Maybe (Val Text))+aspspsiScalingPolicyUpdateBehavior = lens _autoScalingPlansScalingPlanScalingInstructionScalingPolicyUpdateBehavior (\s a -> s { _autoScalingPlansScalingPlanScalingInstructionScalingPolicyUpdateBehavior = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-scalinginstruction.html#cfn-autoscalingplans-scalingplan-scalinginstruction-scheduledactionbuffertime+aspspsiScheduledActionBufferTime :: Lens' AutoScalingPlansScalingPlanScalingInstruction (Maybe (Val Integer))+aspspsiScheduledActionBufferTime = lens _autoScalingPlansScalingPlanScalingInstructionScheduledActionBufferTime (\s a -> s { _autoScalingPlansScalingPlanScalingInstructionScheduledActionBufferTime = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-scalinginstruction.html#cfn-autoscalingplans-scalingplan-scalinginstruction-servicenamespace aspspsiServiceNamespace :: Lens' AutoScalingPlansScalingPlanScalingInstruction (Val Text)

@@ -0,0 +1,61 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-createrule.html++module Stratosphere.ResourceProperties.DLMLifecyclePolicyCreateRule where++import Stratosphere.ResourceImports+++-- | Full data type definition for DLMLifecyclePolicyCreateRule. See+-- 'dlmLifecyclePolicyCreateRule' for a more convenient constructor.+data DLMLifecyclePolicyCreateRule =+  DLMLifecyclePolicyCreateRule+  { _dLMLifecyclePolicyCreateRuleInterval :: Val Integer+  , _dLMLifecyclePolicyCreateRuleIntervalUnit :: Val Text+  , _dLMLifecyclePolicyCreateRuleTimes :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON DLMLifecyclePolicyCreateRule where+  toJSON DLMLifecyclePolicyCreateRule{..} =+    object $+    catMaybes+    [ (Just . ("Interval",) . toJSON . fmap Integer') _dLMLifecyclePolicyCreateRuleInterval+    , (Just . ("IntervalUnit",) . toJSON) _dLMLifecyclePolicyCreateRuleIntervalUnit+    , fmap (("Times",) . toJSON) _dLMLifecyclePolicyCreateRuleTimes+    ]++instance FromJSON DLMLifecyclePolicyCreateRule where+  parseJSON (Object obj) =+    DLMLifecyclePolicyCreateRule <$>+      fmap (fmap unInteger') (obj .: "Interval") <*>+      (obj .: "IntervalUnit") <*>+      (obj .:? "Times")+  parseJSON _ = mempty++-- | Constructor for 'DLMLifecyclePolicyCreateRule' containing required fields+-- as arguments.+dlmLifecyclePolicyCreateRule+  :: Val Integer -- ^ 'dlmlpcrInterval'+  -> Val Text -- ^ 'dlmlpcrIntervalUnit'+  -> DLMLifecyclePolicyCreateRule+dlmLifecyclePolicyCreateRule intervalarg intervalUnitarg =+  DLMLifecyclePolicyCreateRule+  { _dLMLifecyclePolicyCreateRuleInterval = intervalarg+  , _dLMLifecyclePolicyCreateRuleIntervalUnit = intervalUnitarg+  , _dLMLifecyclePolicyCreateRuleTimes = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-createrule.html#cfn-dlm-lifecyclepolicy-createrule-interval+dlmlpcrInterval :: Lens' DLMLifecyclePolicyCreateRule (Val Integer)+dlmlpcrInterval = lens _dLMLifecyclePolicyCreateRuleInterval (\s a -> s { _dLMLifecyclePolicyCreateRuleInterval = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-createrule.html#cfn-dlm-lifecyclepolicy-createrule-intervalunit+dlmlpcrIntervalUnit :: Lens' DLMLifecyclePolicyCreateRule (Val Text)+dlmlpcrIntervalUnit = lens _dLMLifecyclePolicyCreateRuleIntervalUnit (\s a -> s { _dLMLifecyclePolicyCreateRuleIntervalUnit = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-createrule.html#cfn-dlm-lifecyclepolicy-createrule-times+dlmlpcrTimes :: Lens' DLMLifecyclePolicyCreateRule (Maybe (ValList Text))+dlmlpcrTimes = lens _dLMLifecyclePolicyCreateRuleTimes (\s a -> s { _dLMLifecyclePolicyCreateRuleTimes = a })

@@ -0,0 +1,60 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-policydetails.html++module Stratosphere.ResourceProperties.DLMLifecyclePolicyPolicyDetails where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.DLMLifecyclePolicySchedule+import Stratosphere.ResourceProperties.Tag++-- | Full data type definition for DLMLifecyclePolicyPolicyDetails. See+-- 'dlmLifecyclePolicyPolicyDetails' for a more convenient constructor.+data DLMLifecyclePolicyPolicyDetails =+  DLMLifecyclePolicyPolicyDetails+  { _dLMLifecyclePolicyPolicyDetailsResourceTypes :: Maybe (ValList Text)+  , _dLMLifecyclePolicyPolicyDetailsSchedules :: Maybe [DLMLifecyclePolicySchedule]+  , _dLMLifecyclePolicyPolicyDetailsTargetTags :: Maybe [Tag]+  } deriving (Show, Eq)++instance ToJSON DLMLifecyclePolicyPolicyDetails where+  toJSON DLMLifecyclePolicyPolicyDetails{..} =+    object $+    catMaybes+    [ fmap (("ResourceTypes",) . toJSON) _dLMLifecyclePolicyPolicyDetailsResourceTypes+    , fmap (("Schedules",) . toJSON) _dLMLifecyclePolicyPolicyDetailsSchedules+    , fmap (("TargetTags",) . toJSON) _dLMLifecyclePolicyPolicyDetailsTargetTags+    ]++instance FromJSON DLMLifecyclePolicyPolicyDetails where+  parseJSON (Object obj) =+    DLMLifecyclePolicyPolicyDetails <$>+      (obj .:? "ResourceTypes") <*>+      (obj .:? "Schedules") <*>+      (obj .:? "TargetTags")+  parseJSON _ = mempty++-- | Constructor for 'DLMLifecyclePolicyPolicyDetails' containing required+-- fields as arguments.+dlmLifecyclePolicyPolicyDetails+  :: DLMLifecyclePolicyPolicyDetails+dlmLifecyclePolicyPolicyDetails  =+  DLMLifecyclePolicyPolicyDetails+  { _dLMLifecyclePolicyPolicyDetailsResourceTypes = Nothing+  , _dLMLifecyclePolicyPolicyDetailsSchedules = Nothing+  , _dLMLifecyclePolicyPolicyDetailsTargetTags = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-policydetails.html#cfn-dlm-lifecyclepolicy-policydetails-resourcetypes+dlmlppdResourceTypes :: Lens' DLMLifecyclePolicyPolicyDetails (Maybe (ValList Text))+dlmlppdResourceTypes = lens _dLMLifecyclePolicyPolicyDetailsResourceTypes (\s a -> s { _dLMLifecyclePolicyPolicyDetailsResourceTypes = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-policydetails.html#cfn-dlm-lifecyclepolicy-policydetails-schedules+dlmlppdSchedules :: Lens' DLMLifecyclePolicyPolicyDetails (Maybe [DLMLifecyclePolicySchedule])+dlmlppdSchedules = lens _dLMLifecyclePolicyPolicyDetailsSchedules (\s a -> s { _dLMLifecyclePolicyPolicyDetailsSchedules = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-policydetails.html#cfn-dlm-lifecyclepolicy-policydetails-targettags+dlmlppdTargetTags :: Lens' DLMLifecyclePolicyPolicyDetails (Maybe [Tag])+dlmlppdTargetTags = lens _dLMLifecyclePolicyPolicyDetailsTargetTags (\s a -> s { _dLMLifecyclePolicyPolicyDetailsTargetTags = a })

@@ -0,0 +1,44 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-retainrule.html++module Stratosphere.ResourceProperties.DLMLifecyclePolicyRetainRule where++import Stratosphere.ResourceImports+++-- | Full data type definition for DLMLifecyclePolicyRetainRule. See+-- 'dlmLifecyclePolicyRetainRule' for a more convenient constructor.+data DLMLifecyclePolicyRetainRule =+  DLMLifecyclePolicyRetainRule+  { _dLMLifecyclePolicyRetainRuleCount :: Val Integer+  } deriving (Show, Eq)++instance ToJSON DLMLifecyclePolicyRetainRule where+  toJSON DLMLifecyclePolicyRetainRule{..} =+    object $+    catMaybes+    [ (Just . ("Count",) . toJSON . fmap Integer') _dLMLifecyclePolicyRetainRuleCount+    ]++instance FromJSON DLMLifecyclePolicyRetainRule where+  parseJSON (Object obj) =+    DLMLifecyclePolicyRetainRule <$>+      fmap (fmap unInteger') (obj .: "Count")+  parseJSON _ = mempty++-- | Constructor for 'DLMLifecyclePolicyRetainRule' containing required fields+-- as arguments.+dlmLifecyclePolicyRetainRule+  :: Val Integer -- ^ 'dlmlprrCount'+  -> DLMLifecyclePolicyRetainRule+dlmLifecyclePolicyRetainRule countarg =+  DLMLifecyclePolicyRetainRule+  { _dLMLifecyclePolicyRetainRuleCount = countarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-retainrule.html#cfn-dlm-lifecyclepolicy-retainrule-count+dlmlprrCount :: Lens' DLMLifecyclePolicyRetainRule (Val Integer)+dlmlprrCount = lens _dLMLifecyclePolicyRetainRuleCount (\s a -> s { _dLMLifecyclePolicyRetainRuleCount = a })

@@ -0,0 +1,77 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-schedule.html++module Stratosphere.ResourceProperties.DLMLifecyclePolicySchedule where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.DLMLifecyclePolicyCreateRule+import Stratosphere.ResourceProperties.DLMLifecyclePolicyRetainRule+import Stratosphere.ResourceProperties.Tag++-- | Full data type definition for DLMLifecyclePolicySchedule. See+-- 'dlmLifecyclePolicySchedule' for a more convenient constructor.+data DLMLifecyclePolicySchedule =+  DLMLifecyclePolicySchedule+  { _dLMLifecyclePolicyScheduleCopyTags :: Maybe (Val Bool)+  , _dLMLifecyclePolicyScheduleCreateRule :: Maybe DLMLifecyclePolicyCreateRule+  , _dLMLifecyclePolicyScheduleName :: Maybe (Val Text)+  , _dLMLifecyclePolicyScheduleRetainRule :: Maybe DLMLifecyclePolicyRetainRule+  , _dLMLifecyclePolicyScheduleTagsToAdd :: Maybe [Tag]+  } deriving (Show, Eq)++instance ToJSON DLMLifecyclePolicySchedule where+  toJSON DLMLifecyclePolicySchedule{..} =+    object $+    catMaybes+    [ fmap (("CopyTags",) . toJSON . fmap Bool') _dLMLifecyclePolicyScheduleCopyTags+    , fmap (("CreateRule",) . toJSON) _dLMLifecyclePolicyScheduleCreateRule+    , fmap (("Name",) . toJSON) _dLMLifecyclePolicyScheduleName+    , fmap (("RetainRule",) . toJSON) _dLMLifecyclePolicyScheduleRetainRule+    , fmap (("TagsToAdd",) . toJSON) _dLMLifecyclePolicyScheduleTagsToAdd+    ]++instance FromJSON DLMLifecyclePolicySchedule where+  parseJSON (Object obj) =+    DLMLifecyclePolicySchedule <$>+      fmap (fmap (fmap unBool')) (obj .:? "CopyTags") <*>+      (obj .:? "CreateRule") <*>+      (obj .:? "Name") <*>+      (obj .:? "RetainRule") <*>+      (obj .:? "TagsToAdd")+  parseJSON _ = mempty++-- | Constructor for 'DLMLifecyclePolicySchedule' containing required fields+-- as arguments.+dlmLifecyclePolicySchedule+  :: DLMLifecyclePolicySchedule+dlmLifecyclePolicySchedule  =+  DLMLifecyclePolicySchedule+  { _dLMLifecyclePolicyScheduleCopyTags = Nothing+  , _dLMLifecyclePolicyScheduleCreateRule = Nothing+  , _dLMLifecyclePolicyScheduleName = Nothing+  , _dLMLifecyclePolicyScheduleRetainRule = Nothing+  , _dLMLifecyclePolicyScheduleTagsToAdd = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-schedule.html#cfn-dlm-lifecyclepolicy-schedule-copytags+dlmlpsCopyTags :: Lens' DLMLifecyclePolicySchedule (Maybe (Val Bool))+dlmlpsCopyTags = lens _dLMLifecyclePolicyScheduleCopyTags (\s a -> s { _dLMLifecyclePolicyScheduleCopyTags = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-schedule.html#cfn-dlm-lifecyclepolicy-schedule-createrule+dlmlpsCreateRule :: Lens' DLMLifecyclePolicySchedule (Maybe DLMLifecyclePolicyCreateRule)+dlmlpsCreateRule = lens _dLMLifecyclePolicyScheduleCreateRule (\s a -> s { _dLMLifecyclePolicyScheduleCreateRule = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-schedule.html#cfn-dlm-lifecyclepolicy-schedule-name+dlmlpsName :: Lens' DLMLifecyclePolicySchedule (Maybe (Val Text))+dlmlpsName = lens _dLMLifecyclePolicyScheduleName (\s a -> s { _dLMLifecyclePolicyScheduleName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-schedule.html#cfn-dlm-lifecyclepolicy-schedule-retainrule+dlmlpsRetainRule :: Lens' DLMLifecyclePolicySchedule (Maybe DLMLifecyclePolicyRetainRule)+dlmlpsRetainRule = lens _dLMLifecyclePolicyScheduleRetainRule (\s a -> s { _dLMLifecyclePolicyScheduleRetainRule = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-schedule.html#cfn-dlm-lifecyclepolicy-schedule-tagstoadd+dlmlpsTagsToAdd :: Lens' DLMLifecyclePolicySchedule (Maybe [Tag])+dlmlpsTagsToAdd = lens _dLMLifecyclePolicyScheduleTagsToAdd (\s a -> s { _dLMLifecyclePolicyScheduleTagsToAdd = a })

@@ -18,6 +18,7 @@   , _eC2SecurityGroupIngressPropertyDescription :: Maybe (Val Text)   , _eC2SecurityGroupIngressPropertyFromPort :: Maybe (Val Integer)   , _eC2SecurityGroupIngressPropertyIpProtocol :: Val Text+  , _eC2SecurityGroupIngressPropertySourcePrefixListId :: Maybe (Val Text)   , _eC2SecurityGroupIngressPropertySourceSecurityGroupId :: Maybe (Val Text)   , _eC2SecurityGroupIngressPropertySourceSecurityGroupName :: Maybe (Val Text)   , _eC2SecurityGroupIngressPropertySourceSecurityGroupOwnerId :: Maybe (Val Text)@@ -33,6 +34,7 @@     , fmap (("Description",) . toJSON) _eC2SecurityGroupIngressPropertyDescription     , fmap (("FromPort",) . toJSON . fmap Integer') _eC2SecurityGroupIngressPropertyFromPort     , (Just . ("IpProtocol",) . toJSON) _eC2SecurityGroupIngressPropertyIpProtocol+    , fmap (("SourcePrefixListId",) . toJSON) _eC2SecurityGroupIngressPropertySourcePrefixListId     , fmap (("SourceSecurityGroupId",) . toJSON) _eC2SecurityGroupIngressPropertySourceSecurityGroupId     , fmap (("SourceSecurityGroupName",) . toJSON) _eC2SecurityGroupIngressPropertySourceSecurityGroupName     , fmap (("SourceSecurityGroupOwnerId",) . toJSON) _eC2SecurityGroupIngressPropertySourceSecurityGroupOwnerId@@ -47,6 +49,7 @@       (obj .:? "Description") <*>       fmap (fmap (fmap unInteger')) (obj .:? "FromPort") <*>       (obj .: "IpProtocol") <*>+      (obj .:? "SourcePrefixListId") <*>       (obj .:? "SourceSecurityGroupId") <*>       (obj .:? "SourceSecurityGroupName") <*>       (obj .:? "SourceSecurityGroupOwnerId") <*>@@ -65,6 +68,7 @@   , _eC2SecurityGroupIngressPropertyDescription = Nothing   , _eC2SecurityGroupIngressPropertyFromPort = Nothing   , _eC2SecurityGroupIngressPropertyIpProtocol = ipProtocolarg+  , _eC2SecurityGroupIngressPropertySourcePrefixListId = Nothing   , _eC2SecurityGroupIngressPropertySourceSecurityGroupId = Nothing   , _eC2SecurityGroupIngressPropertySourceSecurityGroupName = Nothing   , _eC2SecurityGroupIngressPropertySourceSecurityGroupOwnerId = Nothing@@ -90,6 +94,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-rule.html#cfn-ec2-security-group-rule-ipprotocol ecsgipIpProtocol :: Lens' EC2SecurityGroupIngressProperty (Val Text) ecsgipIpProtocol = lens _eC2SecurityGroupIngressPropertyIpProtocol (\s a -> s { _eC2SecurityGroupIngressPropertyIpProtocol = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-rule.html#cfn-ec2-securitygroup-ingress-sourceprefixlistid+ecsgipSourcePrefixListId :: Lens' EC2SecurityGroupIngressProperty (Maybe (Val Text))+ecsgipSourcePrefixListId = lens _eC2SecurityGroupIngressPropertySourcePrefixListId (\s a -> s { _eC2SecurityGroupIngressPropertySourcePrefixListId = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-rule.html#cfn-ec2-security-group-rule-sourcesecuritygroupid ecsgipSourceSecurityGroupId :: Lens' EC2SecurityGroupIngressProperty (Maybe (Val Text))

@@ -7,7 +7,7 @@ module Stratosphere.ResourceProperties.EC2SpotFleetSpotFleetTagSpecification where  import Stratosphere.ResourceImports-+import Stratosphere.ResourceProperties.Tag  -- | Full data type definition for EC2SpotFleetSpotFleetTagSpecification. See -- 'ec2SpotFleetSpotFleetTagSpecification' for a more convenient@@ -15,6 +15,7 @@ data EC2SpotFleetSpotFleetTagSpecification =   EC2SpotFleetSpotFleetTagSpecification   { _eC2SpotFleetSpotFleetTagSpecificationResourceType :: Maybe (Val Text)+  , _eC2SpotFleetSpotFleetTagSpecificationTags :: Maybe [Tag]   } deriving (Show, Eq)  instance ToJSON EC2SpotFleetSpotFleetTagSpecification where@@ -22,12 +23,14 @@     object $     catMaybes     [ fmap (("ResourceType",) . toJSON) _eC2SpotFleetSpotFleetTagSpecificationResourceType+    , fmap (("Tags",) . toJSON) _eC2SpotFleetSpotFleetTagSpecificationTags     ]  instance FromJSON EC2SpotFleetSpotFleetTagSpecification where   parseJSON (Object obj) =     EC2SpotFleetSpotFleetTagSpecification <$>-      (obj .:? "ResourceType")+      (obj .:? "ResourceType") <*>+      (obj .:? "Tags")   parseJSON _ = mempty  -- | Constructor for 'EC2SpotFleetSpotFleetTagSpecification' containing@@ -37,8 +40,13 @@ ec2SpotFleetSpotFleetTagSpecification  =   EC2SpotFleetSpotFleetTagSpecification   { _eC2SpotFleetSpotFleetTagSpecificationResourceType = Nothing+  , _eC2SpotFleetSpotFleetTagSpecificationTags = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-tagspecifications.html#cfn-ec2-spotfleet-spotfleettagspecification-resourcetype ecsfsftsResourceType :: Lens' EC2SpotFleetSpotFleetTagSpecification (Maybe (Val Text)) ecsfsftsResourceType = lens _eC2SpotFleetSpotFleetTagSpecificationResourceType (\s a -> s { _eC2SpotFleetSpotFleetTagSpecificationResourceType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-tagspecifications.html#cfn-ec2-spotfleet-tags+ecsfsftsTags :: Lens' EC2SpotFleetSpotFleetTagSpecification (Maybe [Tag])+ecsfsftsTags = lens _eC2SpotFleetSpotFleetTagSpecificationTags (\s a -> s { _eC2SpotFleetSpotFleetTagSpecificationTags = a })

@@ -13,12 +13,14 @@ import Stratosphere.ResourceProperties.IoTTopicRuleDynamoDBV2Action import Stratosphere.ResourceProperties.IoTTopicRuleElasticsearchAction import Stratosphere.ResourceProperties.IoTTopicRuleFirehoseAction+import Stratosphere.ResourceProperties.IoTTopicRuleIotAnalyticsAction import Stratosphere.ResourceProperties.IoTTopicRuleKinesisAction import Stratosphere.ResourceProperties.IoTTopicRuleLambdaAction import Stratosphere.ResourceProperties.IoTTopicRuleRepublishAction import Stratosphere.ResourceProperties.IoTTopicRuleS3Action import Stratosphere.ResourceProperties.IoTTopicRuleSnsAction import Stratosphere.ResourceProperties.IoTTopicRuleSqsAction+import Stratosphere.ResourceProperties.IoTTopicRuleStepFunctionsAction  -- | Full data type definition for IoTTopicRuleAction. See -- 'ioTTopicRuleAction' for a more convenient constructor.@@ -30,12 +32,14 @@   , _ioTTopicRuleActionDynamoDBv2 :: Maybe IoTTopicRuleDynamoDBV2Action   , _ioTTopicRuleActionElasticsearch :: Maybe IoTTopicRuleElasticsearchAction   , _ioTTopicRuleActionFirehose :: Maybe IoTTopicRuleFirehoseAction+  , _ioTTopicRuleActionIotAnalytics :: Maybe IoTTopicRuleIotAnalyticsAction   , _ioTTopicRuleActionKinesis :: Maybe IoTTopicRuleKinesisAction   , _ioTTopicRuleActionLambda :: Maybe IoTTopicRuleLambdaAction   , _ioTTopicRuleActionRepublish :: Maybe IoTTopicRuleRepublishAction   , _ioTTopicRuleActionS3 :: Maybe IoTTopicRuleS3Action   , _ioTTopicRuleActionSns :: Maybe IoTTopicRuleSnsAction   , _ioTTopicRuleActionSqs :: Maybe IoTTopicRuleSqsAction+  , _ioTTopicRuleActionStepFunctions :: Maybe IoTTopicRuleStepFunctionsAction   } deriving (Show, Eq)  instance ToJSON IoTTopicRuleAction where@@ -48,12 +52,14 @@     , fmap (("DynamoDBv2",) . toJSON) _ioTTopicRuleActionDynamoDBv2     , fmap (("Elasticsearch",) . toJSON) _ioTTopicRuleActionElasticsearch     , fmap (("Firehose",) . toJSON) _ioTTopicRuleActionFirehose+    , fmap (("IotAnalytics",) . toJSON) _ioTTopicRuleActionIotAnalytics     , fmap (("Kinesis",) . toJSON) _ioTTopicRuleActionKinesis     , fmap (("Lambda",) . toJSON) _ioTTopicRuleActionLambda     , fmap (("Republish",) . toJSON) _ioTTopicRuleActionRepublish     , fmap (("S3",) . toJSON) _ioTTopicRuleActionS3     , fmap (("Sns",) . toJSON) _ioTTopicRuleActionSns     , fmap (("Sqs",) . toJSON) _ioTTopicRuleActionSqs+    , fmap (("StepFunctions",) . toJSON) _ioTTopicRuleActionStepFunctions     ]  instance FromJSON IoTTopicRuleAction where@@ -65,12 +71,14 @@       (obj .:? "DynamoDBv2") <*>       (obj .:? "Elasticsearch") <*>       (obj .:? "Firehose") <*>+      (obj .:? "IotAnalytics") <*>       (obj .:? "Kinesis") <*>       (obj .:? "Lambda") <*>       (obj .:? "Republish") <*>       (obj .:? "S3") <*>       (obj .:? "Sns") <*>-      (obj .:? "Sqs")+      (obj .:? "Sqs") <*>+      (obj .:? "StepFunctions")   parseJSON _ = mempty  -- | Constructor for 'IoTTopicRuleAction' containing required fields as@@ -85,12 +93,14 @@   , _ioTTopicRuleActionDynamoDBv2 = Nothing   , _ioTTopicRuleActionElasticsearch = Nothing   , _ioTTopicRuleActionFirehose = Nothing+  , _ioTTopicRuleActionIotAnalytics = Nothing   , _ioTTopicRuleActionKinesis = Nothing   , _ioTTopicRuleActionLambda = Nothing   , _ioTTopicRuleActionRepublish = Nothing   , _ioTTopicRuleActionS3 = Nothing   , _ioTTopicRuleActionSns = Nothing   , _ioTTopicRuleActionSqs = Nothing+  , _ioTTopicRuleActionStepFunctions = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-action.html#cfn-iot-topicrule-action-cloudwatchalarm@@ -117,6 +127,10 @@ 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-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-kinesis ittraKinesis :: Lens' IoTTopicRuleAction (Maybe IoTTopicRuleKinesisAction) ittraKinesis = lens _ioTTopicRuleActionKinesis (\s a -> s { _ioTTopicRuleActionKinesis = a })@@ -140,3 +154,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-action.html#cfn-iot-topicrule-action-sqs ittraSqs :: Lens' IoTTopicRuleAction (Maybe IoTTopicRuleSqsAction) ittraSqs = lens _ioTTopicRuleActionSqs (\s a -> s { _ioTTopicRuleActionSqs = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-action.html#cfn-iot-topicrule-action-stepfunctions+ittraStepFunctions :: Lens' IoTTopicRuleAction (Maybe IoTTopicRuleStepFunctionsAction)+ittraStepFunctions = lens _ioTTopicRuleActionStepFunctions (\s a -> s { _ioTTopicRuleActionStepFunctions = a })

@@ -0,0 +1,53 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-iotanalyticsaction.html++module Stratosphere.ResourceProperties.IoTTopicRuleIotAnalyticsAction where++import Stratosphere.ResourceImports+++-- | Full data type definition for IoTTopicRuleIotAnalyticsAction. See+-- 'ioTTopicRuleIotAnalyticsAction' for a more convenient constructor.+data IoTTopicRuleIotAnalyticsAction =+  IoTTopicRuleIotAnalyticsAction+  { _ioTTopicRuleIotAnalyticsActionChannelName :: Val Text+  , _ioTTopicRuleIotAnalyticsActionRoleArn :: Val Text+  } deriving (Show, Eq)++instance ToJSON IoTTopicRuleIotAnalyticsAction where+  toJSON IoTTopicRuleIotAnalyticsAction{..} =+    object $+    catMaybes+    [ (Just . ("ChannelName",) . toJSON) _ioTTopicRuleIotAnalyticsActionChannelName+    , (Just . ("RoleArn",) . toJSON) _ioTTopicRuleIotAnalyticsActionRoleArn+    ]++instance FromJSON IoTTopicRuleIotAnalyticsAction where+  parseJSON (Object obj) =+    IoTTopicRuleIotAnalyticsAction <$>+      (obj .: "ChannelName") <*>+      (obj .: "RoleArn")+  parseJSON _ = mempty++-- | Constructor for 'IoTTopicRuleIotAnalyticsAction' containing required+-- fields as arguments.+ioTTopicRuleIotAnalyticsAction+  :: Val Text -- ^ 'ittriaaChannelName'+  -> Val Text -- ^ 'ittriaaRoleArn'+  -> IoTTopicRuleIotAnalyticsAction+ioTTopicRuleIotAnalyticsAction channelNamearg roleArnarg =+  IoTTopicRuleIotAnalyticsAction+  { _ioTTopicRuleIotAnalyticsActionChannelName = channelNamearg+  , _ioTTopicRuleIotAnalyticsActionRoleArn = roleArnarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-iotanalyticsaction.html#cfn-iot-topicrule-iotanalyticsaction-channelname+ittriaaChannelName :: Lens' IoTTopicRuleIotAnalyticsAction (Val Text)+ittriaaChannelName = lens _ioTTopicRuleIotAnalyticsActionChannelName (\s a -> s { _ioTTopicRuleIotAnalyticsActionChannelName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-iotanalyticsaction.html#cfn-iot-topicrule-iotanalyticsaction-rolearn+ittriaaRoleArn :: Lens' IoTTopicRuleIotAnalyticsAction (Val Text)+ittriaaRoleArn = lens _ioTTopicRuleIotAnalyticsActionRoleArn (\s a -> s { _ioTTopicRuleIotAnalyticsActionRoleArn = a })

@@ -0,0 +1,61 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-stepfunctionsaction.html++module Stratosphere.ResourceProperties.IoTTopicRuleStepFunctionsAction where++import Stratosphere.ResourceImports+++-- | Full data type definition for IoTTopicRuleStepFunctionsAction. See+-- 'ioTTopicRuleStepFunctionsAction' for a more convenient constructor.+data IoTTopicRuleStepFunctionsAction =+  IoTTopicRuleStepFunctionsAction+  { _ioTTopicRuleStepFunctionsActionExecutionNamePrefix :: Maybe (Val Text)+  , _ioTTopicRuleStepFunctionsActionRoleArn :: Val Text+  , _ioTTopicRuleStepFunctionsActionStateMachineName :: Val Text+  } deriving (Show, Eq)++instance ToJSON IoTTopicRuleStepFunctionsAction where+  toJSON IoTTopicRuleStepFunctionsAction{..} =+    object $+    catMaybes+    [ fmap (("ExecutionNamePrefix",) . toJSON) _ioTTopicRuleStepFunctionsActionExecutionNamePrefix+    , (Just . ("RoleArn",) . toJSON) _ioTTopicRuleStepFunctionsActionRoleArn+    , (Just . ("StateMachineName",) . toJSON) _ioTTopicRuleStepFunctionsActionStateMachineName+    ]++instance FromJSON IoTTopicRuleStepFunctionsAction where+  parseJSON (Object obj) =+    IoTTopicRuleStepFunctionsAction <$>+      (obj .:? "ExecutionNamePrefix") <*>+      (obj .: "RoleArn") <*>+      (obj .: "StateMachineName")+  parseJSON _ = mempty++-- | Constructor for 'IoTTopicRuleStepFunctionsAction' containing required+-- fields as arguments.+ioTTopicRuleStepFunctionsAction+  :: Val Text -- ^ 'ittrsfaRoleArn'+  -> Val Text -- ^ 'ittrsfaStateMachineName'+  -> IoTTopicRuleStepFunctionsAction+ioTTopicRuleStepFunctionsAction roleArnarg stateMachineNamearg =+  IoTTopicRuleStepFunctionsAction+  { _ioTTopicRuleStepFunctionsActionExecutionNamePrefix = Nothing+  , _ioTTopicRuleStepFunctionsActionRoleArn = roleArnarg+  , _ioTTopicRuleStepFunctionsActionStateMachineName = stateMachineNamearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-stepfunctionsaction.html#cfn-iot-topicrule-stepfunctionsaction-executionnameprefix+ittrsfaExecutionNamePrefix :: Lens' IoTTopicRuleStepFunctionsAction (Maybe (Val Text))+ittrsfaExecutionNamePrefix = lens _ioTTopicRuleStepFunctionsActionExecutionNamePrefix (\s a -> s { _ioTTopicRuleStepFunctionsActionExecutionNamePrefix = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-stepfunctionsaction.html#cfn-iot-topicrule-stepfunctionsaction-rolearn+ittrsfaRoleArn :: Lens' IoTTopicRuleStepFunctionsAction (Val Text)+ittrsfaRoleArn = lens _ioTTopicRuleStepFunctionsActionRoleArn (\s a -> s { _ioTTopicRuleStepFunctionsActionRoleArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-stepfunctionsaction.html#cfn-iot-topicrule-stepfunctionsaction-statemachinename+ittrsfaStateMachineName :: Lens' IoTTopicRuleStepFunctionsAction (Val Text)+ittrsfaStateMachineName = lens _ioTTopicRuleStepFunctionsActionStateMachineName (\s a -> s { _ioTTopicRuleStepFunctionsActionStateMachineName = a })

@@ -16,6 +16,7 @@   { _ioTTopicRuleTopicRulePayloadActions :: [IoTTopicRuleAction]   , _ioTTopicRuleTopicRulePayloadAwsIotSqlVersion :: Maybe (Val Text)   , _ioTTopicRuleTopicRulePayloadDescription :: Maybe (Val Text)+  , _ioTTopicRuleTopicRulePayloadErrorAction :: Maybe IoTTopicRuleAction   , _ioTTopicRuleTopicRulePayloadRuleDisabled :: Val Bool   , _ioTTopicRuleTopicRulePayloadSql :: Val Text   } deriving (Show, Eq)@@ -27,6 +28,7 @@     [ (Just . ("Actions",) . toJSON) _ioTTopicRuleTopicRulePayloadActions     , fmap (("AwsIotSqlVersion",) . toJSON) _ioTTopicRuleTopicRulePayloadAwsIotSqlVersion     , fmap (("Description",) . toJSON) _ioTTopicRuleTopicRulePayloadDescription+    , fmap (("ErrorAction",) . toJSON) _ioTTopicRuleTopicRulePayloadErrorAction     , (Just . ("RuleDisabled",) . toJSON . fmap Bool') _ioTTopicRuleTopicRulePayloadRuleDisabled     , (Just . ("Sql",) . toJSON) _ioTTopicRuleTopicRulePayloadSql     ]@@ -37,6 +39,7 @@       (obj .: "Actions") <*>       (obj .:? "AwsIotSqlVersion") <*>       (obj .:? "Description") <*>+      (obj .:? "ErrorAction") <*>       fmap (fmap unBool') (obj .: "RuleDisabled") <*>       (obj .: "Sql")   parseJSON _ = mempty@@ -53,6 +56,7 @@   { _ioTTopicRuleTopicRulePayloadActions = actionsarg   , _ioTTopicRuleTopicRulePayloadAwsIotSqlVersion = Nothing   , _ioTTopicRuleTopicRulePayloadDescription = Nothing+  , _ioTTopicRuleTopicRulePayloadErrorAction = Nothing   , _ioTTopicRuleTopicRulePayloadRuleDisabled = ruleDisabledarg   , _ioTTopicRuleTopicRulePayloadSql = sqlarg   }@@ -68,6 +72,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-topicrulepayload.html#cfn-iot-topicrule-topicrulepayload-description ittrtrpDescription :: Lens' IoTTopicRuleTopicRulePayload (Maybe (Val Text)) ittrtrpDescription = lens _ioTTopicRuleTopicRulePayloadDescription (\s a -> s { _ioTTopicRuleTopicRulePayloadDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-topicrulepayload.html#cfn-iot-topicrule-topicrulepayload-erroraction+ittrtrpErrorAction :: Lens' IoTTopicRuleTopicRulePayload (Maybe IoTTopicRuleAction)+ittrtrpErrorAction = lens _ioTTopicRuleTopicRulePayloadErrorAction (\s a -> s { _ioTTopicRuleTopicRulePayloadErrorAction = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-topicrulepayload.html#cfn-iot-topicrule-topicrulepayload-ruledisabled ittrtrpRuleDisabled :: Lens' IoTTopicRuleTopicRulePayload (Val Bool)

@@ -13,7 +13,8 @@ -- 'opsWorksLayerVolumeConfiguration' for a more convenient constructor. data OpsWorksLayerVolumeConfiguration =   OpsWorksLayerVolumeConfiguration-  { _opsWorksLayerVolumeConfigurationIops :: Maybe (Val Integer)+  { _opsWorksLayerVolumeConfigurationEncrypted :: Maybe (Val Bool)+  , _opsWorksLayerVolumeConfigurationIops :: Maybe (Val Integer)   , _opsWorksLayerVolumeConfigurationMountPoint :: Maybe (Val Text)   , _opsWorksLayerVolumeConfigurationNumberOfDisks :: Maybe (Val Integer)   , _opsWorksLayerVolumeConfigurationRaidLevel :: Maybe (Val Integer)@@ -25,7 +26,8 @@   toJSON OpsWorksLayerVolumeConfiguration{..} =     object $     catMaybes-    [ fmap (("Iops",) . toJSON . fmap Integer') _opsWorksLayerVolumeConfigurationIops+    [ fmap (("Encrypted",) . toJSON . fmap Bool') _opsWorksLayerVolumeConfigurationEncrypted+    , fmap (("Iops",) . toJSON . fmap Integer') _opsWorksLayerVolumeConfigurationIops     , fmap (("MountPoint",) . toJSON) _opsWorksLayerVolumeConfigurationMountPoint     , fmap (("NumberOfDisks",) . toJSON . fmap Integer') _opsWorksLayerVolumeConfigurationNumberOfDisks     , fmap (("RaidLevel",) . toJSON . fmap Integer') _opsWorksLayerVolumeConfigurationRaidLevel@@ -36,6 +38,7 @@ instance FromJSON OpsWorksLayerVolumeConfiguration where   parseJSON (Object obj) =     OpsWorksLayerVolumeConfiguration <$>+      fmap (fmap (fmap unBool')) (obj .:? "Encrypted") <*>       fmap (fmap (fmap unInteger')) (obj .:? "Iops") <*>       (obj .:? "MountPoint") <*>       fmap (fmap (fmap unInteger')) (obj .:? "NumberOfDisks") <*>@@ -50,13 +53,18 @@   :: OpsWorksLayerVolumeConfiguration opsWorksLayerVolumeConfiguration  =   OpsWorksLayerVolumeConfiguration-  { _opsWorksLayerVolumeConfigurationIops = Nothing+  { _opsWorksLayerVolumeConfigurationEncrypted = Nothing+  , _opsWorksLayerVolumeConfigurationIops = Nothing   , _opsWorksLayerVolumeConfigurationMountPoint = Nothing   , _opsWorksLayerVolumeConfigurationNumberOfDisks = Nothing   , _opsWorksLayerVolumeConfigurationRaidLevel = Nothing   , _opsWorksLayerVolumeConfigurationSize = Nothing   , _opsWorksLayerVolumeConfigurationVolumeType = Nothing   }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-layer-volumeconfiguration.html#cfn-opsworks-layer-volumeconfiguration-encrypted+owlvcEncrypted :: Lens' OpsWorksLayerVolumeConfiguration (Maybe (Val Bool))+owlvcEncrypted = lens _opsWorksLayerVolumeConfigurationEncrypted (\s a -> s { _opsWorksLayerVolumeConfigurationEncrypted = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-layer-volumeconfiguration.html#cfn-opsworks-layer-volconfig-iops owlvcIops :: Lens' OpsWorksLayerVolumeConfiguration (Maybe (Val Integer))

@@ -16,7 +16,7 @@   { _rDSDBClusterScalingConfigurationAutoPause :: Maybe (Val Bool)   , _rDSDBClusterScalingConfigurationMaxCapacity :: Maybe (Val Integer)   , _rDSDBClusterScalingConfigurationMinCapacity :: Maybe (Val Integer)-  , _rDSDBClusterScalingConfigurationSecondsBeforeAutoPause :: Maybe (Val Integer)+  , _rDSDBClusterScalingConfigurationSecondsUntilAutoPause :: Maybe (Val Integer)   } deriving (Show, Eq)  instance ToJSON RDSDBClusterScalingConfiguration where@@ -26,7 +26,7 @@     [ fmap (("AutoPause",) . toJSON . fmap Bool') _rDSDBClusterScalingConfigurationAutoPause     , fmap (("MaxCapacity",) . toJSON . fmap Integer') _rDSDBClusterScalingConfigurationMaxCapacity     , fmap (("MinCapacity",) . toJSON . fmap Integer') _rDSDBClusterScalingConfigurationMinCapacity-    , fmap (("SecondsBeforeAutoPause",) . toJSON . fmap Integer') _rDSDBClusterScalingConfigurationSecondsBeforeAutoPause+    , fmap (("SecondsUntilAutoPause",) . toJSON . fmap Integer') _rDSDBClusterScalingConfigurationSecondsUntilAutoPause     ]  instance FromJSON RDSDBClusterScalingConfiguration where@@ -35,7 +35,7 @@       fmap (fmap (fmap unBool')) (obj .:? "AutoPause") <*>       fmap (fmap (fmap unInteger')) (obj .:? "MaxCapacity") <*>       fmap (fmap (fmap unInteger')) (obj .:? "MinCapacity") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "SecondsBeforeAutoPause")+      fmap (fmap (fmap unInteger')) (obj .:? "SecondsUntilAutoPause")   parseJSON _ = mempty  -- | Constructor for 'RDSDBClusterScalingConfiguration' containing required@@ -47,7 +47,7 @@   { _rDSDBClusterScalingConfigurationAutoPause = Nothing   , _rDSDBClusterScalingConfigurationMaxCapacity = Nothing   , _rDSDBClusterScalingConfigurationMinCapacity = Nothing-  , _rDSDBClusterScalingConfigurationSecondsBeforeAutoPause = Nothing+  , _rDSDBClusterScalingConfigurationSecondsUntilAutoPause = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbcluster-scalingconfiguration.html#cfn-rds-dbcluster-scalingconfiguration-autopause@@ -62,6 +62,6 @@ rdsdbcscMinCapacity :: Lens' RDSDBClusterScalingConfiguration (Maybe (Val Integer)) rdsdbcscMinCapacity = lens _rDSDBClusterScalingConfigurationMinCapacity (\s a -> s { _rDSDBClusterScalingConfigurationMinCapacity = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbcluster-scalingconfiguration.html#cfn-rds-dbcluster-scalingconfiguration-secondsbeforeautopause-rdsdbcscSecondsBeforeAutoPause :: Lens' RDSDBClusterScalingConfiguration (Maybe (Val Integer))-rdsdbcscSecondsBeforeAutoPause = lens _rDSDBClusterScalingConfigurationSecondsBeforeAutoPause (\s a -> s { _rDSDBClusterScalingConfigurationSecondsBeforeAutoPause = a })+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbcluster-scalingconfiguration.html#cfn-rds-dbcluster-scalingconfiguration-secondsuntilautopause+rdsdbcscSecondsUntilAutoPause :: Lens' RDSDBClusterScalingConfiguration (Maybe (Val Integer))+rdsdbcscSecondsUntilAutoPause = lens _rDSDBClusterScalingConfigurationSecondsUntilAutoPause (\s a -> s { _rDSDBClusterScalingConfigurationSecondsUntilAutoPause = a })

@@ -0,0 +1,51 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbinstance-processorfeature.html++module Stratosphere.ResourceProperties.RDSDBInstanceProcessorFeature where++import Stratosphere.ResourceImports+++-- | Full data type definition for RDSDBInstanceProcessorFeature. See+-- 'rdsdbInstanceProcessorFeature' for a more convenient constructor.+data RDSDBInstanceProcessorFeature =+  RDSDBInstanceProcessorFeature+  { _rDSDBInstanceProcessorFeatureName :: Maybe (Val Text)+  , _rDSDBInstanceProcessorFeatureValue :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON RDSDBInstanceProcessorFeature where+  toJSON RDSDBInstanceProcessorFeature{..} =+    object $+    catMaybes+    [ fmap (("Name",) . toJSON) _rDSDBInstanceProcessorFeatureName+    , fmap (("Value",) . toJSON) _rDSDBInstanceProcessorFeatureValue+    ]++instance FromJSON RDSDBInstanceProcessorFeature where+  parseJSON (Object obj) =+    RDSDBInstanceProcessorFeature <$>+      (obj .:? "Name") <*>+      (obj .:? "Value")+  parseJSON _ = mempty++-- | Constructor for 'RDSDBInstanceProcessorFeature' containing required+-- fields as arguments.+rdsdbInstanceProcessorFeature+  :: RDSDBInstanceProcessorFeature+rdsdbInstanceProcessorFeature  =+  RDSDBInstanceProcessorFeature+  { _rDSDBInstanceProcessorFeatureName = Nothing+  , _rDSDBInstanceProcessorFeatureValue = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbinstance-processorfeature.html#cfn-rds-dbinstance-processorfeature-name+rdsdbipfName :: Lens' RDSDBInstanceProcessorFeature (Maybe (Val Text))+rdsdbipfName = lens _rDSDBInstanceProcessorFeatureName (\s a -> s { _rDSDBInstanceProcessorFeatureName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbinstance-processorfeature.html#cfn-rds-dbinstance-processorfeature-value+rdsdbipfValue :: Lens' RDSDBInstanceProcessorFeature (Maybe (Val Text))+rdsdbipfValue = lens _rDSDBInstanceProcessorFeatureValue (\s a -> s { _rDSDBInstanceProcessorFeatureValue = a })

@@ -21,6 +21,7 @@   , _route53RecordSetGroupRecordSetHealthCheckId :: Maybe (Val Text)   , _route53RecordSetGroupRecordSetHostedZoneId :: Maybe (Val Text)   , _route53RecordSetGroupRecordSetHostedZoneName :: Maybe (Val Text)+  , _route53RecordSetGroupRecordSetMultiValueAnswer :: Maybe (Val Bool)   , _route53RecordSetGroupRecordSetName :: Val Text   , _route53RecordSetGroupRecordSetRegion :: Maybe (Val Text)   , _route53RecordSetGroupRecordSetResourceRecords :: Maybe (ValList Text)@@ -41,6 +42,7 @@     , fmap (("HealthCheckId",) . toJSON) _route53RecordSetGroupRecordSetHealthCheckId     , fmap (("HostedZoneId",) . toJSON) _route53RecordSetGroupRecordSetHostedZoneId     , fmap (("HostedZoneName",) . toJSON) _route53RecordSetGroupRecordSetHostedZoneName+    , fmap (("MultiValueAnswer",) . toJSON . fmap Bool') _route53RecordSetGroupRecordSetMultiValueAnswer     , (Just . ("Name",) . toJSON) _route53RecordSetGroupRecordSetName     , fmap (("Region",) . toJSON) _route53RecordSetGroupRecordSetRegion     , fmap (("ResourceRecords",) . toJSON) _route53RecordSetGroupRecordSetResourceRecords@@ -60,6 +62,7 @@       (obj .:? "HealthCheckId") <*>       (obj .:? "HostedZoneId") <*>       (obj .:? "HostedZoneName") <*>+      fmap (fmap (fmap unBool')) (obj .:? "MultiValueAnswer") <*>       (obj .: "Name") <*>       (obj .:? "Region") <*>       (obj .:? "ResourceRecords") <*>@@ -84,6 +87,7 @@   , _route53RecordSetGroupRecordSetHealthCheckId = Nothing   , _route53RecordSetGroupRecordSetHostedZoneId = Nothing   , _route53RecordSetGroupRecordSetHostedZoneName = Nothing+  , _route53RecordSetGroupRecordSetMultiValueAnswer = Nothing   , _route53RecordSetGroupRecordSetName = namearg   , _route53RecordSetGroupRecordSetRegion = Nothing   , _route53RecordSetGroupRecordSetResourceRecords = Nothing@@ -120,6 +124,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-hostedzonename rrsgrsHostedZoneName :: Lens' Route53RecordSetGroupRecordSet (Maybe (Val Text)) rrsgrsHostedZoneName = lens _route53RecordSetGroupRecordSetHostedZoneName (\s a -> s { _route53RecordSetGroupRecordSetHostedZoneName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-multivalueanswer+rrsgrsMultiValueAnswer :: Lens' Route53RecordSetGroupRecordSet (Maybe (Val Bool))+rrsgrsMultiValueAnswer = lens _route53RecordSetGroupRecordSetMultiValueAnswer (\s a -> s { _route53RecordSetGroupRecordSetMultiValueAnswer = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-name rrsgrsName :: Lens' Route53RecordSetGroupRecordSet (Val Text)

@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-rotationschedule-rotationrules.html++module Stratosphere.ResourceProperties.SecretsManagerRotationScheduleRotationRules where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- SecretsManagerRotationScheduleRotationRules. See+-- 'secretsManagerRotationScheduleRotationRules' for a more convenient+-- constructor.+data SecretsManagerRotationScheduleRotationRules =+  SecretsManagerRotationScheduleRotationRules+  { _secretsManagerRotationScheduleRotationRulesAutomaticallyAfterDays :: Maybe (Val Integer)+  } deriving (Show, Eq)++instance ToJSON SecretsManagerRotationScheduleRotationRules where+  toJSON SecretsManagerRotationScheduleRotationRules{..} =+    object $+    catMaybes+    [ fmap (("AutomaticallyAfterDays",) . toJSON . fmap Integer') _secretsManagerRotationScheduleRotationRulesAutomaticallyAfterDays+    ]++instance FromJSON SecretsManagerRotationScheduleRotationRules where+  parseJSON (Object obj) =+    SecretsManagerRotationScheduleRotationRules <$>+      fmap (fmap (fmap unInteger')) (obj .:? "AutomaticallyAfterDays")+  parseJSON _ = mempty++-- | Constructor for 'SecretsManagerRotationScheduleRotationRules' containing+-- required fields as arguments.+secretsManagerRotationScheduleRotationRules+  :: SecretsManagerRotationScheduleRotationRules+secretsManagerRotationScheduleRotationRules  =+  SecretsManagerRotationScheduleRotationRules+  { _secretsManagerRotationScheduleRotationRulesAutomaticallyAfterDays = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-rotationschedule-rotationrules.html#cfn-secretsmanager-rotationschedule-rotationrules-automaticallyafterdays+smrsrrAutomaticallyAfterDays :: Lens' SecretsManagerRotationScheduleRotationRules (Maybe (Val Integer))+smrsrrAutomaticallyAfterDays = lens _secretsManagerRotationScheduleRotationRulesAutomaticallyAfterDays (\s a -> s { _secretsManagerRotationScheduleRotationRulesAutomaticallyAfterDays = a })

@@ -0,0 +1,116 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-secret-generatesecretstring.html++module Stratosphere.ResourceProperties.SecretsManagerSecretGenerateSecretString where++import Stratosphere.ResourceImports+++-- | Full data type definition for SecretsManagerSecretGenerateSecretString.+-- See 'secretsManagerSecretGenerateSecretString' for a more convenient+-- constructor.+data SecretsManagerSecretGenerateSecretString =+  SecretsManagerSecretGenerateSecretString+  { _secretsManagerSecretGenerateSecretStringExcludeCharacters :: Maybe (Val Text)+  , _secretsManagerSecretGenerateSecretStringExcludeLowercase :: Maybe (Val Bool)+  , _secretsManagerSecretGenerateSecretStringExcludeNumbers :: Maybe (Val Bool)+  , _secretsManagerSecretGenerateSecretStringExcludePunctuation :: Maybe (Val Bool)+  , _secretsManagerSecretGenerateSecretStringExcludeUppercase :: Maybe (Val Bool)+  , _secretsManagerSecretGenerateSecretStringGenerateStringKey :: Maybe (Val Text)+  , _secretsManagerSecretGenerateSecretStringIncludeSpace :: Maybe (Val Bool)+  , _secretsManagerSecretGenerateSecretStringPasswordLength :: Maybe (Val Integer)+  , _secretsManagerSecretGenerateSecretStringRequireEachIncludedType :: Maybe (Val Bool)+  , _secretsManagerSecretGenerateSecretStringSecretStringTemplate :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON SecretsManagerSecretGenerateSecretString where+  toJSON SecretsManagerSecretGenerateSecretString{..} =+    object $+    catMaybes+    [ fmap (("ExcludeCharacters",) . toJSON) _secretsManagerSecretGenerateSecretStringExcludeCharacters+    , fmap (("ExcludeLowercase",) . toJSON . fmap Bool') _secretsManagerSecretGenerateSecretStringExcludeLowercase+    , fmap (("ExcludeNumbers",) . toJSON . fmap Bool') _secretsManagerSecretGenerateSecretStringExcludeNumbers+    , fmap (("ExcludePunctuation",) . toJSON . fmap Bool') _secretsManagerSecretGenerateSecretStringExcludePunctuation+    , fmap (("ExcludeUppercase",) . toJSON . fmap Bool') _secretsManagerSecretGenerateSecretStringExcludeUppercase+    , fmap (("GenerateStringKey",) . toJSON) _secretsManagerSecretGenerateSecretStringGenerateStringKey+    , fmap (("IncludeSpace",) . toJSON . fmap Bool') _secretsManagerSecretGenerateSecretStringIncludeSpace+    , fmap (("PasswordLength",) . toJSON . fmap Integer') _secretsManagerSecretGenerateSecretStringPasswordLength+    , fmap (("RequireEachIncludedType",) . toJSON . fmap Bool') _secretsManagerSecretGenerateSecretStringRequireEachIncludedType+    , fmap (("SecretStringTemplate",) . toJSON) _secretsManagerSecretGenerateSecretStringSecretStringTemplate+    ]++instance FromJSON SecretsManagerSecretGenerateSecretString where+  parseJSON (Object obj) =+    SecretsManagerSecretGenerateSecretString <$>+      (obj .:? "ExcludeCharacters") <*>+      fmap (fmap (fmap unBool')) (obj .:? "ExcludeLowercase") <*>+      fmap (fmap (fmap unBool')) (obj .:? "ExcludeNumbers") <*>+      fmap (fmap (fmap unBool')) (obj .:? "ExcludePunctuation") <*>+      fmap (fmap (fmap unBool')) (obj .:? "ExcludeUppercase") <*>+      (obj .:? "GenerateStringKey") <*>+      fmap (fmap (fmap unBool')) (obj .:? "IncludeSpace") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "PasswordLength") <*>+      fmap (fmap (fmap unBool')) (obj .:? "RequireEachIncludedType") <*>+      (obj .:? "SecretStringTemplate")+  parseJSON _ = mempty++-- | Constructor for 'SecretsManagerSecretGenerateSecretString' containing+-- required fields as arguments.+secretsManagerSecretGenerateSecretString+  :: SecretsManagerSecretGenerateSecretString+secretsManagerSecretGenerateSecretString  =+  SecretsManagerSecretGenerateSecretString+  { _secretsManagerSecretGenerateSecretStringExcludeCharacters = Nothing+  , _secretsManagerSecretGenerateSecretStringExcludeLowercase = Nothing+  , _secretsManagerSecretGenerateSecretStringExcludeNumbers = Nothing+  , _secretsManagerSecretGenerateSecretStringExcludePunctuation = Nothing+  , _secretsManagerSecretGenerateSecretStringExcludeUppercase = Nothing+  , _secretsManagerSecretGenerateSecretStringGenerateStringKey = Nothing+  , _secretsManagerSecretGenerateSecretStringIncludeSpace = Nothing+  , _secretsManagerSecretGenerateSecretStringPasswordLength = Nothing+  , _secretsManagerSecretGenerateSecretStringRequireEachIncludedType = Nothing+  , _secretsManagerSecretGenerateSecretStringSecretStringTemplate = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-secret-generatesecretstring.html#cfn-secretsmanager-secret-generatesecretstring-excludecharacters+smsgssExcludeCharacters :: Lens' SecretsManagerSecretGenerateSecretString (Maybe (Val Text))+smsgssExcludeCharacters = lens _secretsManagerSecretGenerateSecretStringExcludeCharacters (\s a -> s { _secretsManagerSecretGenerateSecretStringExcludeCharacters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-secret-generatesecretstring.html#cfn-secretsmanager-secret-generatesecretstring-excludelowercase+smsgssExcludeLowercase :: Lens' SecretsManagerSecretGenerateSecretString (Maybe (Val Bool))+smsgssExcludeLowercase = lens _secretsManagerSecretGenerateSecretStringExcludeLowercase (\s a -> s { _secretsManagerSecretGenerateSecretStringExcludeLowercase = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-secret-generatesecretstring.html#cfn-secretsmanager-secret-generatesecretstring-excludenumbers+smsgssExcludeNumbers :: Lens' SecretsManagerSecretGenerateSecretString (Maybe (Val Bool))+smsgssExcludeNumbers = lens _secretsManagerSecretGenerateSecretStringExcludeNumbers (\s a -> s { _secretsManagerSecretGenerateSecretStringExcludeNumbers = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-secret-generatesecretstring.html#cfn-secretsmanager-secret-generatesecretstring-excludepunctuation+smsgssExcludePunctuation :: Lens' SecretsManagerSecretGenerateSecretString (Maybe (Val Bool))+smsgssExcludePunctuation = lens _secretsManagerSecretGenerateSecretStringExcludePunctuation (\s a -> s { _secretsManagerSecretGenerateSecretStringExcludePunctuation = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-secret-generatesecretstring.html#cfn-secretsmanager-secret-generatesecretstring-excludeuppercase+smsgssExcludeUppercase :: Lens' SecretsManagerSecretGenerateSecretString (Maybe (Val Bool))+smsgssExcludeUppercase = lens _secretsManagerSecretGenerateSecretStringExcludeUppercase (\s a -> s { _secretsManagerSecretGenerateSecretStringExcludeUppercase = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-secret-generatesecretstring.html#cfn-secretsmanager-secret-generatesecretstring-generatestringkey+smsgssGenerateStringKey :: Lens' SecretsManagerSecretGenerateSecretString (Maybe (Val Text))+smsgssGenerateStringKey = lens _secretsManagerSecretGenerateSecretStringGenerateStringKey (\s a -> s { _secretsManagerSecretGenerateSecretStringGenerateStringKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-secret-generatesecretstring.html#cfn-secretsmanager-secret-generatesecretstring-includespace+smsgssIncludeSpace :: Lens' SecretsManagerSecretGenerateSecretString (Maybe (Val Bool))+smsgssIncludeSpace = lens _secretsManagerSecretGenerateSecretStringIncludeSpace (\s a -> s { _secretsManagerSecretGenerateSecretStringIncludeSpace = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-secret-generatesecretstring.html#cfn-secretsmanager-secret-generatesecretstring-passwordlength+smsgssPasswordLength :: Lens' SecretsManagerSecretGenerateSecretString (Maybe (Val Integer))+smsgssPasswordLength = lens _secretsManagerSecretGenerateSecretStringPasswordLength (\s a -> s { _secretsManagerSecretGenerateSecretStringPasswordLength = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-secret-generatesecretstring.html#cfn-secretsmanager-secret-generatesecretstring-requireeachincludedtype+smsgssRequireEachIncludedType :: Lens' SecretsManagerSecretGenerateSecretString (Maybe (Val Bool))+smsgssRequireEachIncludedType = lens _secretsManagerSecretGenerateSecretStringRequireEachIncludedType (\s a -> s { _secretsManagerSecretGenerateSecretStringRequireEachIncludedType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-secret-generatesecretstring.html#cfn-secretsmanager-secret-generatesecretstring-secretstringtemplate+smsgssSecretStringTemplate :: Lens' SecretsManagerSecretGenerateSecretString (Maybe (Val Text))+smsgssSecretStringTemplate = lens _secretsManagerSecretGenerateSecretStringSecretStringTemplate (\s a -> s { _secretsManagerSecretGenerateSecretStringSecretStringTemplate = a })

@@ -0,0 +1,76 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-workspaces-workspace-workspaceproperties.html++module Stratosphere.ResourceProperties.WorkSpacesWorkspaceWorkspaceProperties where++import Stratosphere.ResourceImports+++-- | Full data type definition for WorkSpacesWorkspaceWorkspaceProperties. See+-- 'workSpacesWorkspaceWorkspaceProperties' for a more convenient+-- constructor.+data WorkSpacesWorkspaceWorkspaceProperties =+  WorkSpacesWorkspaceWorkspaceProperties+  { _workSpacesWorkspaceWorkspacePropertiesComputeTypeName :: Maybe (Val Text)+  , _workSpacesWorkspaceWorkspacePropertiesRootVolumeSizeGib :: Maybe (Val Integer)+  , _workSpacesWorkspaceWorkspacePropertiesRunningMode :: Maybe (Val Text)+  , _workSpacesWorkspaceWorkspacePropertiesRunningModeAutoStopTimeoutInMinutes :: Maybe (Val Integer)+  , _workSpacesWorkspaceWorkspacePropertiesUserVolumeSizeGib :: Maybe (Val Integer)+  } deriving (Show, Eq)++instance ToJSON WorkSpacesWorkspaceWorkspaceProperties where+  toJSON WorkSpacesWorkspaceWorkspaceProperties{..} =+    object $+    catMaybes+    [ fmap (("ComputeTypeName",) . toJSON) _workSpacesWorkspaceWorkspacePropertiesComputeTypeName+    , fmap (("RootVolumeSizeGib",) . toJSON . fmap Integer') _workSpacesWorkspaceWorkspacePropertiesRootVolumeSizeGib+    , fmap (("RunningMode",) . toJSON) _workSpacesWorkspaceWorkspacePropertiesRunningMode+    , fmap (("RunningModeAutoStopTimeoutInMinutes",) . toJSON . fmap Integer') _workSpacesWorkspaceWorkspacePropertiesRunningModeAutoStopTimeoutInMinutes+    , fmap (("UserVolumeSizeGib",) . toJSON . fmap Integer') _workSpacesWorkspaceWorkspacePropertiesUserVolumeSizeGib+    ]++instance FromJSON WorkSpacesWorkspaceWorkspaceProperties where+  parseJSON (Object obj) =+    WorkSpacesWorkspaceWorkspaceProperties <$>+      (obj .:? "ComputeTypeName") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "RootVolumeSizeGib") <*>+      (obj .:? "RunningMode") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "RunningModeAutoStopTimeoutInMinutes") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "UserVolumeSizeGib")+  parseJSON _ = mempty++-- | Constructor for 'WorkSpacesWorkspaceWorkspaceProperties' containing+-- required fields as arguments.+workSpacesWorkspaceWorkspaceProperties+  :: WorkSpacesWorkspaceWorkspaceProperties+workSpacesWorkspaceWorkspaceProperties  =+  WorkSpacesWorkspaceWorkspaceProperties+  { _workSpacesWorkspaceWorkspacePropertiesComputeTypeName = Nothing+  , _workSpacesWorkspaceWorkspacePropertiesRootVolumeSizeGib = Nothing+  , _workSpacesWorkspaceWorkspacePropertiesRunningMode = Nothing+  , _workSpacesWorkspaceWorkspacePropertiesRunningModeAutoStopTimeoutInMinutes = Nothing+  , _workSpacesWorkspaceWorkspacePropertiesUserVolumeSizeGib = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-workspaces-workspace-workspaceproperties.html#cfn-workspaces-workspace-workspaceproperties-computetypename+wswwpComputeTypeName :: Lens' WorkSpacesWorkspaceWorkspaceProperties (Maybe (Val Text))+wswwpComputeTypeName = lens _workSpacesWorkspaceWorkspacePropertiesComputeTypeName (\s a -> s { _workSpacesWorkspaceWorkspacePropertiesComputeTypeName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-workspaces-workspace-workspaceproperties.html#cfn-workspaces-workspace-workspaceproperties-rootvolumesizegib+wswwpRootVolumeSizeGib :: Lens' WorkSpacesWorkspaceWorkspaceProperties (Maybe (Val Integer))+wswwpRootVolumeSizeGib = lens _workSpacesWorkspaceWorkspacePropertiesRootVolumeSizeGib (\s a -> s { _workSpacesWorkspaceWorkspacePropertiesRootVolumeSizeGib = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-workspaces-workspace-workspaceproperties.html#cfn-workspaces-workspace-workspaceproperties-runningmode+wswwpRunningMode :: Lens' WorkSpacesWorkspaceWorkspaceProperties (Maybe (Val Text))+wswwpRunningMode = lens _workSpacesWorkspaceWorkspacePropertiesRunningMode (\s a -> s { _workSpacesWorkspaceWorkspacePropertiesRunningMode = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-workspaces-workspace-workspaceproperties.html#cfn-workspaces-workspace-workspaceproperties-runningmodeautostoptimeoutinminutes+wswwpRunningModeAutoStopTimeoutInMinutes :: Lens' WorkSpacesWorkspaceWorkspaceProperties (Maybe (Val Integer))+wswwpRunningModeAutoStopTimeoutInMinutes = lens _workSpacesWorkspaceWorkspacePropertiesRunningModeAutoStopTimeoutInMinutes (\s a -> s { _workSpacesWorkspaceWorkspacePropertiesRunningModeAutoStopTimeoutInMinutes = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-workspaces-workspace-workspaceproperties.html#cfn-workspaces-workspace-workspaceproperties-uservolumesizegib+wswwpUserVolumeSizeGib :: Lens' WorkSpacesWorkspaceWorkspaceProperties (Maybe (Val Integer))+wswwpUserVolumeSizeGib = lens _workSpacesWorkspaceWorkspacePropertiesUserVolumeSizeGib (\s a -> s { _workSpacesWorkspaceWorkspacePropertiesUserVolumeSizeGib = a })

@@ -10,7 +10,7 @@ {-# LANGUAGE TypeFamilies #-}  #if MIN_VERSION_GLASGOW_HASKELL(8,0,1,0)-{-# OPTIONS_GHC -fmax-pmcheck-iterations=30000000 #-}+{-# OPTIONS_GHC -fmax-pmcheck-iterations=40000000 #-} #endif  -- | See:@@ -128,6 +128,7 @@ import Stratosphere.Resources.DAXCluster as X import Stratosphere.Resources.DAXParameterGroup as X import Stratosphere.Resources.DAXSubnetGroup as X+import Stratosphere.Resources.DLMLifecyclePolicy as X import Stratosphere.Resources.DMSCertificate as X import Stratosphere.Resources.DMSEndpoint as X import Stratosphere.Resources.DMSEventSubscription as X@@ -313,6 +314,7 @@ import Stratosphere.Resources.SQSQueuePolicy as X import Stratosphere.Resources.SSMAssociation as X import Stratosphere.Resources.SSMDocument as X+import Stratosphere.Resources.SSMMaintenanceWindow as X import Stratosphere.Resources.SSMMaintenanceWindowTask as X import Stratosphere.Resources.SSMParameter as X import Stratosphere.Resources.SSMPatchBaseline as X@@ -322,6 +324,10 @@ import Stratosphere.Resources.SageMakerModel as X import Stratosphere.Resources.SageMakerNotebookInstance as X import Stratosphere.Resources.SageMakerNotebookInstanceLifecycleConfig as X+import Stratosphere.Resources.SecretsManagerResourcePolicy as X+import Stratosphere.Resources.SecretsManagerRotationSchedule as X+import Stratosphere.Resources.SecretsManagerSecret as X+import Stratosphere.Resources.SecretsManagerSecretTargetAttachment as X import Stratosphere.Resources.ServiceCatalogAcceptedPortfolioShare as X import Stratosphere.Resources.ServiceCatalogCloudFormationProduct as X import Stratosphere.Resources.ServiceCatalogCloudFormationProvisionedProduct as X@@ -416,8 +422,10 @@ import Stratosphere.ResourceProperties.AutoScalingScalingPolicyStepAdjustment as X import Stratosphere.ResourceProperties.AutoScalingScalingPolicyTargetTrackingConfiguration as X import Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanApplicationSource as X+import Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification as X import Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanCustomizedScalingMetricSpecification as X import Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanMetricDimension as X+import Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification as X import Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanPredefinedScalingMetricSpecification as X import Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanScalingInstruction as X import Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanTagFilter as X@@ -535,6 +543,10 @@ import Stratosphere.ResourceProperties.ConfigConfigurationRecorderRecordingGroup as X import Stratosphere.ResourceProperties.ConfigDeliveryChannelConfigSnapshotDeliveryProperties as X import Stratosphere.ResourceProperties.DAXClusterSSESpecification as X+import Stratosphere.ResourceProperties.DLMLifecyclePolicyCreateRule as X+import Stratosphere.ResourceProperties.DLMLifecyclePolicyPolicyDetails as X+import Stratosphere.ResourceProperties.DLMLifecyclePolicyRetainRule as X+import Stratosphere.ResourceProperties.DLMLifecyclePolicySchedule as X import Stratosphere.ResourceProperties.DMSEndpointDynamoDbSettings as X import Stratosphere.ResourceProperties.DMSEndpointMongoDbSettings as X import Stratosphere.ResourceProperties.DMSEndpointS3Settings as X@@ -770,6 +782,7 @@ import Stratosphere.ResourceProperties.IoTTopicRuleDynamoDBV2Action as X import Stratosphere.ResourceProperties.IoTTopicRuleElasticsearchAction as X import Stratosphere.ResourceProperties.IoTTopicRuleFirehoseAction as X+import Stratosphere.ResourceProperties.IoTTopicRuleIotAnalyticsAction as X import Stratosphere.ResourceProperties.IoTTopicRuleKinesisAction as X import Stratosphere.ResourceProperties.IoTTopicRuleLambdaAction as X import Stratosphere.ResourceProperties.IoTTopicRulePutItemInput as X@@ -777,6 +790,7 @@ import Stratosphere.ResourceProperties.IoTTopicRuleS3Action as X import Stratosphere.ResourceProperties.IoTTopicRuleSnsAction as X import Stratosphere.ResourceProperties.IoTTopicRuleSqsAction as X+import Stratosphere.ResourceProperties.IoTTopicRuleStepFunctionsAction as X import Stratosphere.ResourceProperties.IoTTopicRuleTopicRulePayload as X import Stratosphere.ResourceProperties.KinesisStreamStreamEncryption as X import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationCSVMappingParameters as X@@ -848,6 +862,7 @@ import Stratosphere.ResourceProperties.OpsWorksStackSource as X import Stratosphere.ResourceProperties.OpsWorksStackStackConfigurationManager as X import Stratosphere.ResourceProperties.RDSDBClusterScalingConfiguration as X+import Stratosphere.ResourceProperties.RDSDBInstanceProcessorFeature as X import Stratosphere.ResourceProperties.RDSDBSecurityGroupIngressProperty as X import Stratosphere.ResourceProperties.RDSOptionGroupOptionConfiguration as X import Stratosphere.ResourceProperties.RDSOptionGroupOptionSetting as X@@ -942,6 +957,8 @@ import Stratosphere.ResourceProperties.SageMakerModelContainerDefinition as X import Stratosphere.ResourceProperties.SageMakerModelVpcConfig as X import Stratosphere.ResourceProperties.SageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHook as X+import Stratosphere.ResourceProperties.SecretsManagerRotationScheduleRotationRules as X+import Stratosphere.ResourceProperties.SecretsManagerSecretGenerateSecretString as X import Stratosphere.ResourceProperties.ServiceCatalogCloudFormationProductProvisioningArtifactProperties as X import Stratosphere.ResourceProperties.ServiceCatalogCloudFormationProvisionedProductProvisioningParameter as X import Stratosphere.ResourceProperties.ServiceDiscoveryServiceDnsConfig as X@@ -972,6 +989,7 @@ import Stratosphere.ResourceProperties.WAFRegionalWebACLRule as X import Stratosphere.ResourceProperties.WAFRegionalXssMatchSetFieldToMatch as X import Stratosphere.ResourceProperties.WAFRegionalXssMatchSetXssMatchTuple as X+import Stratosphere.ResourceProperties.WorkSpacesWorkspaceWorkspaceProperties as X import Stratosphere.ResourceProperties.Tag as X  import Stratosphere.ResourceAttributes.AutoScalingReplacingUpdatePolicy as X@@ -1065,6 +1083,7 @@   | DAXClusterProperties DAXCluster   | DAXParameterGroupProperties DAXParameterGroup   | DAXSubnetGroupProperties DAXSubnetGroup+  | DLMLifecyclePolicyProperties DLMLifecyclePolicy   | DMSCertificateProperties DMSCertificate   | DMSEndpointProperties DMSEndpoint   | DMSEventSubscriptionProperties DMSEventSubscription@@ -1250,6 +1269,7 @@   | SQSQueuePolicyProperties SQSQueuePolicy   | SSMAssociationProperties SSMAssociation   | SSMDocumentProperties SSMDocument+  | SSMMaintenanceWindowProperties SSMMaintenanceWindow   | SSMMaintenanceWindowTaskProperties SSMMaintenanceWindowTask   | SSMParameterProperties SSMParameter   | SSMPatchBaselineProperties SSMPatchBaseline@@ -1259,6 +1279,10 @@   | SageMakerModelProperties SageMakerModel   | SageMakerNotebookInstanceProperties SageMakerNotebookInstance   | SageMakerNotebookInstanceLifecycleConfigProperties SageMakerNotebookInstanceLifecycleConfig+  | SecretsManagerResourcePolicyProperties SecretsManagerResourcePolicy+  | SecretsManagerRotationScheduleProperties SecretsManagerRotationSchedule+  | SecretsManagerSecretProperties SecretsManagerSecret+  | SecretsManagerSecretTargetAttachmentProperties SecretsManagerSecretTargetAttachment   | ServiceCatalogAcceptedPortfolioShareProperties ServiceCatalogAcceptedPortfolioShare   | ServiceCatalogCloudFormationProductProperties ServiceCatalogCloudFormationProduct   | ServiceCatalogCloudFormationProvisionedProductProperties ServiceCatalogCloudFormationProvisionedProduct@@ -1510,6 +1534,8 @@   [ "Type" .= ("AWS::DAX::ParameterGroup" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (DAXSubnetGroupProperties x) =   [ "Type" .= ("AWS::DAX::SubnetGroup" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (DLMLifecyclePolicyProperties x) =+  [ "Type" .= ("AWS::DLM::LifecyclePolicy" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (DMSCertificateProperties x) =   [ "Type" .= ("AWS::DMS::Certificate" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (DMSEndpointProperties x) =@@ -1880,6 +1906,8 @@   [ "Type" .= ("AWS::SSM::Association" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (SSMDocumentProperties x) =   [ "Type" .= ("AWS::SSM::Document" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (SSMMaintenanceWindowProperties x) =+  [ "Type" .= ("AWS::SSM::MaintenanceWindow" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (SSMMaintenanceWindowTaskProperties x) =   [ "Type" .= ("AWS::SSM::MaintenanceWindowTask" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (SSMParameterProperties x) =@@ -1898,6 +1926,14 @@   [ "Type" .= ("AWS::SageMaker::NotebookInstance" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (SageMakerNotebookInstanceLifecycleConfigProperties x) =   [ "Type" .= ("AWS::SageMaker::NotebookInstanceLifecycleConfig" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (SecretsManagerResourcePolicyProperties x) =+  [ "Type" .= ("AWS::SecretsManager::ResourcePolicy" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (SecretsManagerRotationScheduleProperties x) =+  [ "Type" .= ("AWS::SecretsManager::RotationSchedule" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (SecretsManagerSecretProperties x) =+  [ "Type" .= ("AWS::SecretsManager::Secret" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (SecretsManagerSecretTargetAttachmentProperties x) =+  [ "Type" .= ("AWS::SecretsManager::SecretTargetAttachment" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (ServiceCatalogAcceptedPortfolioShareProperties x) =   [ "Type" .= ("AWS::ServiceCatalog::AcceptedPortfolioShare" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (ServiceCatalogCloudFormationProductProperties x) =@@ -2053,6 +2089,7 @@          "AWS::DAX::Cluster" -> DAXClusterProperties <$> (o .: "Properties")          "AWS::DAX::ParameterGroup" -> DAXParameterGroupProperties <$> (o .: "Properties")          "AWS::DAX::SubnetGroup" -> DAXSubnetGroupProperties <$> (o .: "Properties")+         "AWS::DLM::LifecyclePolicy" -> DLMLifecyclePolicyProperties <$> (o .: "Properties")          "AWS::DMS::Certificate" -> DMSCertificateProperties <$> (o .: "Properties")          "AWS::DMS::Endpoint" -> DMSEndpointProperties <$> (o .: "Properties")          "AWS::DMS::EventSubscription" -> DMSEventSubscriptionProperties <$> (o .: "Properties")@@ -2238,6 +2275,7 @@          "AWS::SQS::QueuePolicy" -> SQSQueuePolicyProperties <$> (o .: "Properties")          "AWS::SSM::Association" -> SSMAssociationProperties <$> (o .: "Properties")          "AWS::SSM::Document" -> SSMDocumentProperties <$> (o .: "Properties")+         "AWS::SSM::MaintenanceWindow" -> SSMMaintenanceWindowProperties <$> (o .: "Properties")          "AWS::SSM::MaintenanceWindowTask" -> SSMMaintenanceWindowTaskProperties <$> (o .: "Properties")          "AWS::SSM::Parameter" -> SSMParameterProperties <$> (o .: "Properties")          "AWS::SSM::PatchBaseline" -> SSMPatchBaselineProperties <$> (o .: "Properties")@@ -2247,6 +2285,10 @@          "AWS::SageMaker::Model" -> SageMakerModelProperties <$> (o .: "Properties")          "AWS::SageMaker::NotebookInstance" -> SageMakerNotebookInstanceProperties <$> (o .: "Properties")          "AWS::SageMaker::NotebookInstanceLifecycleConfig" -> SageMakerNotebookInstanceLifecycleConfigProperties <$> (o .: "Properties")+         "AWS::SecretsManager::ResourcePolicy" -> SecretsManagerResourcePolicyProperties <$> (o .: "Properties")+         "AWS::SecretsManager::RotationSchedule" -> SecretsManagerRotationScheduleProperties <$> (o .: "Properties")+         "AWS::SecretsManager::Secret" -> SecretsManagerSecretProperties <$> (o .: "Properties")+         "AWS::SecretsManager::SecretTargetAttachment" -> SecretsManagerSecretTargetAttachmentProperties <$> (o .: "Properties")          "AWS::ServiceCatalog::AcceptedPortfolioShare" -> ServiceCatalogAcceptedPortfolioShareProperties <$> (o .: "Properties")          "AWS::ServiceCatalog::CloudFormationProduct" -> ServiceCatalogCloudFormationProductProperties <$> (o .: "Properties")          "AWS::ServiceCatalog::CloudFormationProvisionedProduct" -> ServiceCatalogCloudFormationProvisionedProductProperties <$> (o .: "Properties")

@@ -26,6 +26,7 @@   , _apiGatewayStageMethodSettings :: Maybe [ApiGatewayStageMethodSetting]   , _apiGatewayStageRestApiId :: Val Text   , _apiGatewayStageStageName :: Maybe (Val Text)+  , _apiGatewayStageTracingEnabled :: Maybe (Val Bool)   , _apiGatewayStageVariables :: Maybe Object   } deriving (Show, Eq) @@ -44,6 +45,7 @@     , fmap (("MethodSettings",) . toJSON) _apiGatewayStageMethodSettings     , (Just . ("RestApiId",) . toJSON) _apiGatewayStageRestApiId     , fmap (("StageName",) . toJSON) _apiGatewayStageStageName+    , fmap (("TracingEnabled",) . toJSON . fmap Bool') _apiGatewayStageTracingEnabled     , fmap (("Variables",) . toJSON) _apiGatewayStageVariables     ] @@ -61,6 +63,7 @@       (obj .:? "MethodSettings") <*>       (obj .: "RestApiId") <*>       (obj .:? "StageName") <*>+      fmap (fmap (fmap unBool')) (obj .:? "TracingEnabled") <*>       (obj .:? "Variables")   parseJSON _ = mempty @@ -82,6 +85,7 @@   , _apiGatewayStageMethodSettings = Nothing   , _apiGatewayStageRestApiId = restApiIdarg   , _apiGatewayStageStageName = Nothing+  , _apiGatewayStageTracingEnabled = Nothing   , _apiGatewayStageVariables = Nothing   } @@ -128,6 +132,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-stage.html#cfn-apigateway-stage-stagename agsStageName :: Lens' ApiGatewayStage (Maybe (Val Text)) agsStageName = lens _apiGatewayStageStageName (\s a -> s { _apiGatewayStageStageName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-stage.html#cfn-apigateway-stage-tracingenabled+agsTracingEnabled :: Lens' ApiGatewayStage (Maybe (Val Bool))+agsTracingEnabled = lens _apiGatewayStageTracingEnabled (\s a -> s { _apiGatewayStageTracingEnabled = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-stage.html#cfn-apigateway-stage-variables agsVariables :: Lens' ApiGatewayStage (Maybe Object)

@@ -14,8 +14,8 @@ data CloudFormationWaitCondition =   CloudFormationWaitCondition   { _cloudFormationWaitConditionCount :: Maybe (Val Integer)-  , _cloudFormationWaitConditionHandle :: Val Text-  , _cloudFormationWaitConditionTimeout :: Val Text+  , _cloudFormationWaitConditionHandle :: Maybe (Val Text)+  , _cloudFormationWaitConditionTimeout :: Maybe (Val Text)   } deriving (Show, Eq)  instance ToJSON CloudFormationWaitCondition where@@ -23,29 +23,27 @@     object $     catMaybes     [ fmap (("Count",) . toJSON . fmap Integer') _cloudFormationWaitConditionCount-    , (Just . ("Handle",) . toJSON) _cloudFormationWaitConditionHandle-    , (Just . ("Timeout",) . toJSON) _cloudFormationWaitConditionTimeout+    , fmap (("Handle",) . toJSON) _cloudFormationWaitConditionHandle+    , fmap (("Timeout",) . toJSON) _cloudFormationWaitConditionTimeout     ]  instance FromJSON CloudFormationWaitCondition where   parseJSON (Object obj) =     CloudFormationWaitCondition <$>       fmap (fmap (fmap unInteger')) (obj .:? "Count") <*>-      (obj .: "Handle") <*>-      (obj .: "Timeout")+      (obj .:? "Handle") <*>+      (obj .:? "Timeout")   parseJSON _ = mempty  -- | Constructor for 'CloudFormationWaitCondition' containing required fields -- as arguments. cloudFormationWaitCondition-  :: Val Text -- ^ 'cfwcHandle'-  -> Val Text -- ^ 'cfwcTimeout'-  -> CloudFormationWaitCondition-cloudFormationWaitCondition handlearg timeoutarg =+  :: CloudFormationWaitCondition+cloudFormationWaitCondition  =   CloudFormationWaitCondition   { _cloudFormationWaitConditionCount = Nothing-  , _cloudFormationWaitConditionHandle = handlearg-  , _cloudFormationWaitConditionTimeout = timeoutarg+  , _cloudFormationWaitConditionHandle = Nothing+  , _cloudFormationWaitConditionTimeout = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waitcondition.html#cfn-waitcondition-count@@ -53,9 +51,9 @@ cfwcCount = lens _cloudFormationWaitConditionCount (\s a -> s { _cloudFormationWaitConditionCount = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waitcondition.html#cfn-waitcondition-handle-cfwcHandle :: Lens' CloudFormationWaitCondition (Val Text)+cfwcHandle :: Lens' CloudFormationWaitCondition (Maybe (Val Text)) cfwcHandle = lens _cloudFormationWaitConditionHandle (\s a -> s { _cloudFormationWaitConditionHandle = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waitcondition.html#cfn-waitcondition-timeout-cfwcTimeout :: Lens' CloudFormationWaitCondition (Val Text)+cfwcTimeout :: Lens' CloudFormationWaitCondition (Maybe (Val Text)) cfwcTimeout = lens _cloudFormationWaitConditionTimeout (\s a -> s { _cloudFormationWaitConditionTimeout = a })

@@ -18,6 +18,7 @@   , _cloudWatchAlarmAlarmDescription :: Maybe (Val Text)   , _cloudWatchAlarmAlarmName :: Maybe (Val Text)   , _cloudWatchAlarmComparisonOperator :: Val Text+  , _cloudWatchAlarmDatapointsToAlarm :: Maybe (Val Integer)   , _cloudWatchAlarmDimensions :: Maybe [CloudWatchAlarmDimension]   , _cloudWatchAlarmEvaluateLowSampleCountPercentile :: Maybe (Val Text)   , _cloudWatchAlarmEvaluationPeriods :: Val Integer@@ -42,6 +43,7 @@     , fmap (("AlarmDescription",) . toJSON) _cloudWatchAlarmAlarmDescription     , fmap (("AlarmName",) . toJSON) _cloudWatchAlarmAlarmName     , (Just . ("ComparisonOperator",) . toJSON) _cloudWatchAlarmComparisonOperator+    , fmap (("DatapointsToAlarm",) . toJSON . fmap Integer') _cloudWatchAlarmDatapointsToAlarm     , fmap (("Dimensions",) . toJSON) _cloudWatchAlarmDimensions     , fmap (("EvaluateLowSampleCountPercentile",) . toJSON) _cloudWatchAlarmEvaluateLowSampleCountPercentile     , (Just . ("EvaluationPeriods",) . toJSON . fmap Integer') _cloudWatchAlarmEvaluationPeriods@@ -65,6 +67,7 @@       (obj .:? "AlarmDescription") <*>       (obj .:? "AlarmName") <*>       (obj .: "ComparisonOperator") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "DatapointsToAlarm") <*>       (obj .:? "Dimensions") <*>       (obj .:? "EvaluateLowSampleCountPercentile") <*>       fmap (fmap unInteger') (obj .: "EvaluationPeriods") <*>@@ -97,6 +100,7 @@   , _cloudWatchAlarmAlarmDescription = Nothing   , _cloudWatchAlarmAlarmName = Nothing   , _cloudWatchAlarmComparisonOperator = comparisonOperatorarg+  , _cloudWatchAlarmDatapointsToAlarm = Nothing   , _cloudWatchAlarmDimensions = Nothing   , _cloudWatchAlarmEvaluateLowSampleCountPercentile = Nothing   , _cloudWatchAlarmEvaluationPeriods = evaluationPeriodsarg@@ -131,6 +135,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cw-alarm.html#cfn-cloudwatch-alarms-comparisonoperator cwaComparisonOperator :: Lens' CloudWatchAlarm (Val Text) cwaComparisonOperator = lens _cloudWatchAlarmComparisonOperator (\s a -> s { _cloudWatchAlarmComparisonOperator = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cw-alarm.html#cfn-cloudwatch-alarm-datapointstoalarm+cwaDatapointsToAlarm :: Lens' CloudWatchAlarm (Maybe (Val Integer))+cwaDatapointsToAlarm = lens _cloudWatchAlarmDatapointsToAlarm (\s a -> s { _cloudWatchAlarmDatapointsToAlarm = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cw-alarm.html#cfn-cloudwatch-alarms-dimension cwaDimensions :: Lens' CloudWatchAlarm (Maybe [CloudWatchAlarmDimension])

@@ -0,0 +1,67 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dlm-lifecyclepolicy.html++module Stratosphere.Resources.DLMLifecyclePolicy where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.DLMLifecyclePolicyPolicyDetails++-- | Full data type definition for DLMLifecyclePolicy. See+-- 'dlmLifecyclePolicy' for a more convenient constructor.+data DLMLifecyclePolicy =+  DLMLifecyclePolicy+  { _dLMLifecyclePolicyDescription :: Maybe (Val Text)+  , _dLMLifecyclePolicyExecutionRoleArn :: Maybe (Val Text)+  , _dLMLifecyclePolicyPolicyDetails :: Maybe DLMLifecyclePolicyPolicyDetails+  , _dLMLifecyclePolicyState :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON DLMLifecyclePolicy where+  toJSON DLMLifecyclePolicy{..} =+    object $+    catMaybes+    [ fmap (("Description",) . toJSON) _dLMLifecyclePolicyDescription+    , fmap (("ExecutionRoleArn",) . toJSON) _dLMLifecyclePolicyExecutionRoleArn+    , fmap (("PolicyDetails",) . toJSON) _dLMLifecyclePolicyPolicyDetails+    , fmap (("State",) . toJSON) _dLMLifecyclePolicyState+    ]++instance FromJSON DLMLifecyclePolicy where+  parseJSON (Object obj) =+    DLMLifecyclePolicy <$>+      (obj .:? "Description") <*>+      (obj .:? "ExecutionRoleArn") <*>+      (obj .:? "PolicyDetails") <*>+      (obj .:? "State")+  parseJSON _ = mempty++-- | Constructor for 'DLMLifecyclePolicy' containing required fields as+-- arguments.+dlmLifecyclePolicy+  :: DLMLifecyclePolicy+dlmLifecyclePolicy  =+  DLMLifecyclePolicy+  { _dLMLifecyclePolicyDescription = Nothing+  , _dLMLifecyclePolicyExecutionRoleArn = Nothing+  , _dLMLifecyclePolicyPolicyDetails = Nothing+  , _dLMLifecyclePolicyState = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dlm-lifecyclepolicy.html#cfn-dlm-lifecyclepolicy-description+dlmlpDescription :: Lens' DLMLifecyclePolicy (Maybe (Val Text))+dlmlpDescription = lens _dLMLifecyclePolicyDescription (\s a -> s { _dLMLifecyclePolicyDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dlm-lifecyclepolicy.html#cfn-dlm-lifecyclepolicy-executionrolearn+dlmlpExecutionRoleArn :: Lens' DLMLifecyclePolicy (Maybe (Val Text))+dlmlpExecutionRoleArn = lens _dLMLifecyclePolicyExecutionRoleArn (\s a -> s { _dLMLifecyclePolicyExecutionRoleArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dlm-lifecyclepolicy.html#cfn-dlm-lifecyclepolicy-policydetails+dlmlpPolicyDetails :: Lens' DLMLifecyclePolicy (Maybe DLMLifecyclePolicyPolicyDetails)+dlmlpPolicyDetails = lens _dLMLifecyclePolicyPolicyDetails (\s a -> s { _dLMLifecyclePolicyPolicyDetails = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dlm-lifecyclepolicy.html#cfn-dlm-lifecyclepolicy-state+dlmlpState :: Lens' DLMLifecyclePolicy (Maybe (Val Text))+dlmlpState = lens _dLMLifecyclePolicyState (\s a -> s { _dLMLifecyclePolicyState = a })

@@ -20,6 +20,7 @@   , _eC2SecurityGroupIngressGroupId :: Maybe (Val Text)   , _eC2SecurityGroupIngressGroupName :: Maybe (Val Text)   , _eC2SecurityGroupIngressIpProtocol :: Val Text+  , _eC2SecurityGroupIngressSourcePrefixListId :: Maybe (Val Text)   , _eC2SecurityGroupIngressSourceSecurityGroupId :: Maybe (Val Text)   , _eC2SecurityGroupIngressSourceSecurityGroupName :: Maybe (Val Text)   , _eC2SecurityGroupIngressSourceSecurityGroupOwnerId :: Maybe (Val Text)@@ -37,6 +38,7 @@     , fmap (("GroupId",) . toJSON) _eC2SecurityGroupIngressGroupId     , fmap (("GroupName",) . toJSON) _eC2SecurityGroupIngressGroupName     , (Just . ("IpProtocol",) . toJSON) _eC2SecurityGroupIngressIpProtocol+    , fmap (("SourcePrefixListId",) . toJSON) _eC2SecurityGroupIngressSourcePrefixListId     , fmap (("SourceSecurityGroupId",) . toJSON) _eC2SecurityGroupIngressSourceSecurityGroupId     , fmap (("SourceSecurityGroupName",) . toJSON) _eC2SecurityGroupIngressSourceSecurityGroupName     , fmap (("SourceSecurityGroupOwnerId",) . toJSON) _eC2SecurityGroupIngressSourceSecurityGroupOwnerId@@ -53,6 +55,7 @@       (obj .:? "GroupId") <*>       (obj .:? "GroupName") <*>       (obj .: "IpProtocol") <*>+      (obj .:? "SourcePrefixListId") <*>       (obj .:? "SourceSecurityGroupId") <*>       (obj .:? "SourceSecurityGroupName") <*>       (obj .:? "SourceSecurityGroupOwnerId") <*>@@ -73,6 +76,7 @@   , _eC2SecurityGroupIngressGroupId = Nothing   , _eC2SecurityGroupIngressGroupName = Nothing   , _eC2SecurityGroupIngressIpProtocol = ipProtocolarg+  , _eC2SecurityGroupIngressSourcePrefixListId = Nothing   , _eC2SecurityGroupIngressSourceSecurityGroupId = Nothing   , _eC2SecurityGroupIngressSourceSecurityGroupName = Nothing   , _eC2SecurityGroupIngressSourceSecurityGroupOwnerId = Nothing@@ -106,6 +110,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-ingress.html#cfn-ec2-security-group-ingress-ipprotocol ecsgiIpProtocol :: Lens' EC2SecurityGroupIngress (Val Text) ecsgiIpProtocol = lens _eC2SecurityGroupIngressIpProtocol (\s a -> s { _eC2SecurityGroupIngressIpProtocol = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-ingress.html#cfn-ec2-securitygroupingress-sourceprefixlistid+ecsgiSourcePrefixListId :: Lens' EC2SecurityGroupIngress (Maybe (Val Text))+ecsgiSourcePrefixListId = lens _eC2SecurityGroupIngressSourcePrefixListId (\s a -> s { _eC2SecurityGroupIngressSourcePrefixListId = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-ingress.html#cfn-ec2-security-group-ingress-sourcesecuritygroupid ecsgiSourceSecurityGroupId :: Lens' EC2SecurityGroupIngress (Maybe (Val Text))

@@ -17,6 +17,7 @@   , _iAMRoleManagedPolicyArns :: Maybe (ValList Text)   , _iAMRoleMaxSessionDuration :: Maybe (Val Integer)   , _iAMRolePath :: Maybe (Val Text)+  , _iAMRolePermissionsBoundary :: Maybe (Val Text)   , _iAMRolePolicies :: Maybe [IAMRolePolicy]   , _iAMRoleRoleName :: Maybe (Val Text)   } deriving (Show, Eq)@@ -29,6 +30,7 @@     , fmap (("ManagedPolicyArns",) . toJSON) _iAMRoleManagedPolicyArns     , fmap (("MaxSessionDuration",) . toJSON . fmap Integer') _iAMRoleMaxSessionDuration     , fmap (("Path",) . toJSON) _iAMRolePath+    , fmap (("PermissionsBoundary",) . toJSON) _iAMRolePermissionsBoundary     , fmap (("Policies",) . toJSON) _iAMRolePolicies     , fmap (("RoleName",) . toJSON) _iAMRoleRoleName     ]@@ -40,6 +42,7 @@       (obj .:? "ManagedPolicyArns") <*>       fmap (fmap (fmap unInteger')) (obj .:? "MaxSessionDuration") <*>       (obj .:? "Path") <*>+      (obj .:? "PermissionsBoundary") <*>       (obj .:? "Policies") <*>       (obj .:? "RoleName")   parseJSON _ = mempty@@ -54,6 +57,7 @@   , _iAMRoleManagedPolicyArns = Nothing   , _iAMRoleMaxSessionDuration = Nothing   , _iAMRolePath = Nothing+  , _iAMRolePermissionsBoundary = Nothing   , _iAMRolePolicies = Nothing   , _iAMRoleRoleName = Nothing   }@@ -73,6 +77,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-role.html#cfn-iam-role-path iamrPath :: Lens' IAMRole (Maybe (Val Text)) iamrPath = lens _iAMRolePath (\s a -> s { _iAMRolePath = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-role.html#cfn-iam-role-permissionsboundary+iamrPermissionsBoundary :: Lens' IAMRole (Maybe (Val Text))+iamrPermissionsBoundary = lens _iAMRolePermissionsBoundary (\s a -> s { _iAMRolePermissionsBoundary = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-role.html#cfn-iam-role-policies iamrPolicies :: Lens' IAMRole (Maybe [IAMRolePolicy])

@@ -18,6 +18,7 @@   , _iAMUserLoginProfile :: Maybe IAMUserLoginProfile   , _iAMUserManagedPolicyArns :: Maybe (ValList Text)   , _iAMUserPath :: Maybe (Val Text)+  , _iAMUserPermissionsBoundary :: Maybe (Val Text)   , _iAMUserPolicies :: Maybe [IAMUserPolicy]   , _iAMUserUserName :: Maybe (Val Text)   } deriving (Show, Eq)@@ -30,6 +31,7 @@     , fmap (("LoginProfile",) . toJSON) _iAMUserLoginProfile     , fmap (("ManagedPolicyArns",) . toJSON) _iAMUserManagedPolicyArns     , fmap (("Path",) . toJSON) _iAMUserPath+    , fmap (("PermissionsBoundary",) . toJSON) _iAMUserPermissionsBoundary     , fmap (("Policies",) . toJSON) _iAMUserPolicies     , fmap (("UserName",) . toJSON) _iAMUserUserName     ]@@ -41,6 +43,7 @@       (obj .:? "LoginProfile") <*>       (obj .:? "ManagedPolicyArns") <*>       (obj .:? "Path") <*>+      (obj .:? "PermissionsBoundary") <*>       (obj .:? "Policies") <*>       (obj .:? "UserName")   parseJSON _ = mempty@@ -54,6 +57,7 @@   , _iAMUserLoginProfile = Nothing   , _iAMUserManagedPolicyArns = Nothing   , _iAMUserPath = Nothing+  , _iAMUserPermissionsBoundary = Nothing   , _iAMUserPolicies = Nothing   , _iAMUserUserName = Nothing   }@@ -73,6 +77,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-user.html#cfn-iam-user-path iamuPath :: Lens' IAMUser (Maybe (Val Text)) iamuPath = lens _iAMUserPath (\s a -> s { _iAMUserPath = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-user.html#cfn-iam-user-permissionsboundary+iamuPermissionsBoundary :: Lens' IAMUser (Maybe (Val Text))+iamuPermissionsBoundary = lens _iAMUserPermissionsBoundary (\s a -> s { _iAMUserPermissionsBoundary = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-user.html#cfn-iam-user-policies iamuPolicies :: Lens' IAMUser (Maybe [IAMUserPolicy])

@@ -18,6 +18,7 @@   , _kMSKeyEnabled :: Maybe (Val Bool)   , _kMSKeyKeyPolicy :: Object   , _kMSKeyKeyUsage :: Maybe (Val Text)+  , _kMSKeyPendingWindowInDays :: Maybe (Val Integer)   , _kMSKeyTags :: Maybe [Tag]   } deriving (Show, Eq) @@ -30,6 +31,7 @@     , fmap (("Enabled",) . toJSON . fmap Bool') _kMSKeyEnabled     , (Just . ("KeyPolicy",) . toJSON) _kMSKeyKeyPolicy     , fmap (("KeyUsage",) . toJSON) _kMSKeyKeyUsage+    , fmap (("PendingWindowInDays",) . toJSON . fmap Integer') _kMSKeyPendingWindowInDays     , fmap (("Tags",) . toJSON) _kMSKeyTags     ] @@ -41,6 +43,7 @@       fmap (fmap (fmap unBool')) (obj .:? "Enabled") <*>       (obj .: "KeyPolicy") <*>       (obj .:? "KeyUsage") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "PendingWindowInDays") <*>       (obj .:? "Tags")   parseJSON _ = mempty @@ -55,6 +58,7 @@   , _kMSKeyEnabled = Nothing   , _kMSKeyKeyPolicy = keyPolicyarg   , _kMSKeyKeyUsage = Nothing+  , _kMSKeyPendingWindowInDays = Nothing   , _kMSKeyTags = Nothing   } @@ -77,6 +81,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kms-key.html#cfn-kms-key-keyusage kmskKeyUsage :: Lens' KMSKey (Maybe (Val Text)) kmskKeyUsage = lens _kMSKeyKeyUsage (\s a -> s { _kMSKeyKeyUsage = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kms-key.html#cfn-kms-key-pendingwindowindays+kmskPendingWindowInDays :: Lens' KMSKey (Maybe (Val Integer))+kmskPendingWindowInDays = lens _kMSKeyPendingWindowInDays (\s a -> s { _kMSKeyPendingWindowInDays = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kms-key.html#cfn-kms-key-tags kmskTags :: Lens' KMSKey (Maybe [Tag])

@@ -15,11 +15,14 @@ data RDSDBCluster =   RDSDBCluster   { _rDSDBClusterAvailabilityZones :: Maybe (ValList Text)+  , _rDSDBClusterBacktrackWindow :: Maybe (Val Integer)   , _rDSDBClusterBackupRetentionPeriod :: Maybe (Val Integer)   , _rDSDBClusterDBClusterIdentifier :: Maybe (Val Text)   , _rDSDBClusterDBClusterParameterGroupName :: Maybe (Val Text)   , _rDSDBClusterDBSubnetGroupName :: Maybe (Val Text)   , _rDSDBClusterDatabaseName :: Maybe (Val Text)+  , _rDSDBClusterEnableCloudwatchLogsExports :: Maybe (ValList Text)+  , _rDSDBClusterEnableIAMDatabaseAuthentication :: Maybe (Val Bool)   , _rDSDBClusterEngine :: Val Text   , _rDSDBClusterEngineMode :: Maybe (Val Text)   , _rDSDBClusterEngineVersion :: Maybe (Val Text)@@ -42,11 +45,14 @@     object $     catMaybes     [ fmap (("AvailabilityZones",) . toJSON) _rDSDBClusterAvailabilityZones+    , fmap (("BacktrackWindow",) . toJSON . fmap Integer') _rDSDBClusterBacktrackWindow     , fmap (("BackupRetentionPeriod",) . toJSON . fmap Integer') _rDSDBClusterBackupRetentionPeriod     , fmap (("DBClusterIdentifier",) . toJSON) _rDSDBClusterDBClusterIdentifier     , fmap (("DBClusterParameterGroupName",) . toJSON) _rDSDBClusterDBClusterParameterGroupName     , fmap (("DBSubnetGroupName",) . toJSON) _rDSDBClusterDBSubnetGroupName     , fmap (("DatabaseName",) . toJSON) _rDSDBClusterDatabaseName+    , fmap (("EnableCloudwatchLogsExports",) . toJSON) _rDSDBClusterEnableCloudwatchLogsExports+    , fmap (("EnableIAMDatabaseAuthentication",) . toJSON . fmap Bool') _rDSDBClusterEnableIAMDatabaseAuthentication     , (Just . ("Engine",) . toJSON) _rDSDBClusterEngine     , fmap (("EngineMode",) . toJSON) _rDSDBClusterEngineMode     , fmap (("EngineVersion",) . toJSON) _rDSDBClusterEngineVersion@@ -68,11 +74,14 @@   parseJSON (Object obj) =     RDSDBCluster <$>       (obj .:? "AvailabilityZones") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "BacktrackWindow") <*>       fmap (fmap (fmap unInteger')) (obj .:? "BackupRetentionPeriod") <*>       (obj .:? "DBClusterIdentifier") <*>       (obj .:? "DBClusterParameterGroupName") <*>       (obj .:? "DBSubnetGroupName") <*>       (obj .:? "DatabaseName") <*>+      (obj .:? "EnableCloudwatchLogsExports") <*>+      fmap (fmap (fmap unBool')) (obj .:? "EnableIAMDatabaseAuthentication") <*>       (obj .: "Engine") <*>       (obj .:? "EngineMode") <*>       (obj .:? "EngineVersion") <*>@@ -97,11 +106,14 @@ rdsdbCluster enginearg =   RDSDBCluster   { _rDSDBClusterAvailabilityZones = Nothing+  , _rDSDBClusterBacktrackWindow = Nothing   , _rDSDBClusterBackupRetentionPeriod = Nothing   , _rDSDBClusterDBClusterIdentifier = Nothing   , _rDSDBClusterDBClusterParameterGroupName = Nothing   , _rDSDBClusterDBSubnetGroupName = Nothing   , _rDSDBClusterDatabaseName = Nothing+  , _rDSDBClusterEnableCloudwatchLogsExports = Nothing+  , _rDSDBClusterEnableIAMDatabaseAuthentication = Nothing   , _rDSDBClusterEngine = enginearg   , _rDSDBClusterEngineMode = Nothing   , _rDSDBClusterEngineVersion = Nothing@@ -123,6 +135,10 @@ rdsdbcAvailabilityZones :: Lens' RDSDBCluster (Maybe (ValList Text)) rdsdbcAvailabilityZones = lens _rDSDBClusterAvailabilityZones (\s a -> s { _rDSDBClusterAvailabilityZones = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-backtrackwindow+rdsdbcBacktrackWindow :: Lens' RDSDBCluster (Maybe (Val Integer))+rdsdbcBacktrackWindow = lens _rDSDBClusterBacktrackWindow (\s a -> s { _rDSDBClusterBacktrackWindow = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-backuprententionperiod rdsdbcBackupRetentionPeriod :: Lens' RDSDBCluster (Maybe (Val Integer)) rdsdbcBackupRetentionPeriod = lens _rDSDBClusterBackupRetentionPeriod (\s a -> s { _rDSDBClusterBackupRetentionPeriod = a })@@ -142,6 +158,14 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-databasename rdsdbcDatabaseName :: Lens' RDSDBCluster (Maybe (Val Text)) rdsdbcDatabaseName = lens _rDSDBClusterDatabaseName (\s a -> s { _rDSDBClusterDatabaseName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-enablecloudwatchlogsexports+rdsdbcEnableCloudwatchLogsExports :: Lens' RDSDBCluster (Maybe (ValList Text))+rdsdbcEnableCloudwatchLogsExports = lens _rDSDBClusterEnableCloudwatchLogsExports (\s a -> s { _rDSDBClusterEnableCloudwatchLogsExports = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-enableiamdatabaseauthentication+rdsdbcEnableIAMDatabaseAuthentication :: Lens' RDSDBCluster (Maybe (Val Bool))+rdsdbcEnableIAMDatabaseAuthentication = lens _rDSDBClusterEnableIAMDatabaseAuthentication (\s a -> s { _rDSDBClusterEnableIAMDatabaseAuthentication = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-engine rdsdbcEngine :: Lens' RDSDBCluster (Val Text)

@@ -7,6 +7,7 @@ module Stratosphere.Resources.RDSDBInstance where  import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.RDSDBInstanceProcessorFeature import Stratosphere.ResourceProperties.Tag  -- | Full data type definition for RDSDBInstance. See 'rdsdbInstance' for a@@ -30,6 +31,9 @@   , _rDSDBInstanceDBSubnetGroupName :: Maybe (Val Text)   , _rDSDBInstanceDomain :: Maybe (Val Text)   , _rDSDBInstanceDomainIAMRoleName :: Maybe (Val Text)+  , _rDSDBInstanceEnableCloudwatchLogsExports :: Maybe (ValList Text)+  , _rDSDBInstanceEnableIAMDatabaseAuthentication :: Maybe (Val Bool)+  , _rDSDBInstanceEnablePerformanceInsights :: Maybe (Val Bool)   , _rDSDBInstanceEngine :: Maybe (Val Text)   , _rDSDBInstanceEngineVersion :: Maybe (Val Text)   , _rDSDBInstanceIops :: Maybe (Val Integer)@@ -41,9 +45,13 @@   , _rDSDBInstanceMonitoringRoleArn :: Maybe (Val Text)   , _rDSDBInstanceMultiAZ :: Maybe (Val Bool)   , _rDSDBInstanceOptionGroupName :: Maybe (Val Text)+  , _rDSDBInstancePerformanceInsightsKMSKeyId :: Maybe (Val Text)+  , _rDSDBInstancePerformanceInsightsRetentionPeriod :: Maybe (Val Integer)   , _rDSDBInstancePort :: Maybe (Val Text)   , _rDSDBInstancePreferredBackupWindow :: Maybe (Val Text)   , _rDSDBInstancePreferredMaintenanceWindow :: Maybe (Val Text)+  , _rDSDBInstanceProcessorFeatures :: Maybe [RDSDBInstanceProcessorFeature]+  , _rDSDBInstancePromotionTier :: Maybe (Val Integer)   , _rDSDBInstancePubliclyAccessible :: Maybe (Val Bool)   , _rDSDBInstanceSourceDBInstanceIdentifier :: Maybe (Val Text)   , _rDSDBInstanceSourceRegion :: Maybe (Val Text)@@ -75,6 +83,9 @@     , fmap (("DBSubnetGroupName",) . toJSON) _rDSDBInstanceDBSubnetGroupName     , fmap (("Domain",) . toJSON) _rDSDBInstanceDomain     , fmap (("DomainIAMRoleName",) . toJSON) _rDSDBInstanceDomainIAMRoleName+    , fmap (("EnableCloudwatchLogsExports",) . toJSON) _rDSDBInstanceEnableCloudwatchLogsExports+    , fmap (("EnableIAMDatabaseAuthentication",) . toJSON . fmap Bool') _rDSDBInstanceEnableIAMDatabaseAuthentication+    , fmap (("EnablePerformanceInsights",) . toJSON . fmap Bool') _rDSDBInstanceEnablePerformanceInsights     , fmap (("Engine",) . toJSON) _rDSDBInstanceEngine     , fmap (("EngineVersion",) . toJSON) _rDSDBInstanceEngineVersion     , fmap (("Iops",) . toJSON . fmap Integer') _rDSDBInstanceIops@@ -86,9 +97,13 @@     , fmap (("MonitoringRoleArn",) . toJSON) _rDSDBInstanceMonitoringRoleArn     , fmap (("MultiAZ",) . toJSON . fmap Bool') _rDSDBInstanceMultiAZ     , fmap (("OptionGroupName",) . toJSON) _rDSDBInstanceOptionGroupName+    , fmap (("PerformanceInsightsKMSKeyId",) . toJSON) _rDSDBInstancePerformanceInsightsKMSKeyId+    , fmap (("PerformanceInsightsRetentionPeriod",) . toJSON . fmap Integer') _rDSDBInstancePerformanceInsightsRetentionPeriod     , fmap (("Port",) . toJSON) _rDSDBInstancePort     , fmap (("PreferredBackupWindow",) . toJSON) _rDSDBInstancePreferredBackupWindow     , fmap (("PreferredMaintenanceWindow",) . toJSON) _rDSDBInstancePreferredMaintenanceWindow+    , fmap (("ProcessorFeatures",) . toJSON) _rDSDBInstanceProcessorFeatures+    , fmap (("PromotionTier",) . toJSON . fmap Integer') _rDSDBInstancePromotionTier     , fmap (("PubliclyAccessible",) . toJSON . fmap Bool') _rDSDBInstancePubliclyAccessible     , fmap (("SourceDBInstanceIdentifier",) . toJSON) _rDSDBInstanceSourceDBInstanceIdentifier     , fmap (("SourceRegion",) . toJSON) _rDSDBInstanceSourceRegion@@ -119,6 +134,9 @@       (obj .:? "DBSubnetGroupName") <*>       (obj .:? "Domain") <*>       (obj .:? "DomainIAMRoleName") <*>+      (obj .:? "EnableCloudwatchLogsExports") <*>+      fmap (fmap (fmap unBool')) (obj .:? "EnableIAMDatabaseAuthentication") <*>+      fmap (fmap (fmap unBool')) (obj .:? "EnablePerformanceInsights") <*>       (obj .:? "Engine") <*>       (obj .:? "EngineVersion") <*>       fmap (fmap (fmap unInteger')) (obj .:? "Iops") <*>@@ -130,9 +148,13 @@       (obj .:? "MonitoringRoleArn") <*>       fmap (fmap (fmap unBool')) (obj .:? "MultiAZ") <*>       (obj .:? "OptionGroupName") <*>+      (obj .:? "PerformanceInsightsKMSKeyId") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "PerformanceInsightsRetentionPeriod") <*>       (obj .:? "Port") <*>       (obj .:? "PreferredBackupWindow") <*>       (obj .:? "PreferredMaintenanceWindow") <*>+      (obj .:? "ProcessorFeatures") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "PromotionTier") <*>       fmap (fmap (fmap unBool')) (obj .:? "PubliclyAccessible") <*>       (obj .:? "SourceDBInstanceIdentifier") <*>       (obj .:? "SourceRegion") <*>@@ -166,6 +188,9 @@   , _rDSDBInstanceDBSubnetGroupName = Nothing   , _rDSDBInstanceDomain = Nothing   , _rDSDBInstanceDomainIAMRoleName = Nothing+  , _rDSDBInstanceEnableCloudwatchLogsExports = Nothing+  , _rDSDBInstanceEnableIAMDatabaseAuthentication = Nothing+  , _rDSDBInstanceEnablePerformanceInsights = Nothing   , _rDSDBInstanceEngine = Nothing   , _rDSDBInstanceEngineVersion = Nothing   , _rDSDBInstanceIops = Nothing@@ -177,9 +202,13 @@   , _rDSDBInstanceMonitoringRoleArn = Nothing   , _rDSDBInstanceMultiAZ = Nothing   , _rDSDBInstanceOptionGroupName = Nothing+  , _rDSDBInstancePerformanceInsightsKMSKeyId = Nothing+  , _rDSDBInstancePerformanceInsightsRetentionPeriod = Nothing   , _rDSDBInstancePort = Nothing   , _rDSDBInstancePreferredBackupWindow = Nothing   , _rDSDBInstancePreferredMaintenanceWindow = Nothing+  , _rDSDBInstanceProcessorFeatures = Nothing+  , _rDSDBInstancePromotionTier = Nothing   , _rDSDBInstancePubliclyAccessible = Nothing   , _rDSDBInstanceSourceDBInstanceIdentifier = Nothing   , _rDSDBInstanceSourceRegion = Nothing@@ -258,6 +287,18 @@ rdsdbiDomainIAMRoleName :: Lens' RDSDBInstance (Maybe (Val Text)) rdsdbiDomainIAMRoleName = lens _rDSDBInstanceDomainIAMRoleName (\s a -> s { _rDSDBInstanceDomainIAMRoleName = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-enablecloudwatchlogsexports+rdsdbiEnableCloudwatchLogsExports :: Lens' RDSDBInstance (Maybe (ValList Text))+rdsdbiEnableCloudwatchLogsExports = lens _rDSDBInstanceEnableCloudwatchLogsExports (\s a -> s { _rDSDBInstanceEnableCloudwatchLogsExports = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-enableiamdatabaseauthentication+rdsdbiEnableIAMDatabaseAuthentication :: Lens' RDSDBInstance (Maybe (Val Bool))+rdsdbiEnableIAMDatabaseAuthentication = lens _rDSDBInstanceEnableIAMDatabaseAuthentication (\s a -> s { _rDSDBInstanceEnableIAMDatabaseAuthentication = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-enableperformanceinsights+rdsdbiEnablePerformanceInsights :: Lens' RDSDBInstance (Maybe (Val Bool))+rdsdbiEnablePerformanceInsights = lens _rDSDBInstanceEnablePerformanceInsights (\s a -> s { _rDSDBInstanceEnablePerformanceInsights = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-engine rdsdbiEngine :: Lens' RDSDBInstance (Maybe (Val Text)) rdsdbiEngine = lens _rDSDBInstanceEngine (\s a -> s { _rDSDBInstanceEngine = a })@@ -302,6 +343,14 @@ rdsdbiOptionGroupName :: Lens' RDSDBInstance (Maybe (Val Text)) rdsdbiOptionGroupName = lens _rDSDBInstanceOptionGroupName (\s a -> s { _rDSDBInstanceOptionGroupName = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-performanceinsightskmskeyid+rdsdbiPerformanceInsightsKMSKeyId :: Lens' RDSDBInstance (Maybe (Val Text))+rdsdbiPerformanceInsightsKMSKeyId = lens _rDSDBInstancePerformanceInsightsKMSKeyId (\s a -> s { _rDSDBInstancePerformanceInsightsKMSKeyId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-performanceinsightsretentionperiod+rdsdbiPerformanceInsightsRetentionPeriod :: Lens' RDSDBInstance (Maybe (Val Integer))+rdsdbiPerformanceInsightsRetentionPeriod = lens _rDSDBInstancePerformanceInsightsRetentionPeriod (\s a -> s { _rDSDBInstancePerformanceInsightsRetentionPeriod = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-port rdsdbiPort :: Lens' RDSDBInstance (Maybe (Val Text)) rdsdbiPort = lens _rDSDBInstancePort (\s a -> s { _rDSDBInstancePort = a })@@ -313,6 +362,14 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-preferredmaintenancewindow rdsdbiPreferredMaintenanceWindow :: Lens' RDSDBInstance (Maybe (Val Text)) rdsdbiPreferredMaintenanceWindow = lens _rDSDBInstancePreferredMaintenanceWindow (\s a -> s { _rDSDBInstancePreferredMaintenanceWindow = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-processorfeatures+rdsdbiProcessorFeatures :: Lens' RDSDBInstance (Maybe [RDSDBInstanceProcessorFeature])+rdsdbiProcessorFeatures = lens _rDSDBInstanceProcessorFeatures (\s a -> s { _rDSDBInstanceProcessorFeatures = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-promotiontier+rdsdbiPromotionTier :: Lens' RDSDBInstance (Maybe (Val Integer))+rdsdbiPromotionTier = lens _rDSDBInstancePromotionTier (\s a -> s { _rDSDBInstancePromotionTier = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-publiclyaccessible rdsdbiPubliclyAccessible :: Lens' RDSDBInstance (Maybe (Val Bool))

@@ -21,6 +21,7 @@   , _route53RecordSetHealthCheckId :: Maybe (Val Text)   , _route53RecordSetHostedZoneId :: Maybe (Val Text)   , _route53RecordSetHostedZoneName :: Maybe (Val Text)+  , _route53RecordSetMultiValueAnswer :: Maybe (Val Bool)   , _route53RecordSetName :: Val Text   , _route53RecordSetRegion :: Maybe (Val Text)   , _route53RecordSetResourceRecords :: Maybe (ValList Text)@@ -41,6 +42,7 @@     , fmap (("HealthCheckId",) . toJSON) _route53RecordSetHealthCheckId     , fmap (("HostedZoneId",) . toJSON) _route53RecordSetHostedZoneId     , fmap (("HostedZoneName",) . toJSON) _route53RecordSetHostedZoneName+    , fmap (("MultiValueAnswer",) . toJSON . fmap Bool') _route53RecordSetMultiValueAnswer     , (Just . ("Name",) . toJSON) _route53RecordSetName     , fmap (("Region",) . toJSON) _route53RecordSetRegion     , fmap (("ResourceRecords",) . toJSON) _route53RecordSetResourceRecords@@ -60,6 +62,7 @@       (obj .:? "HealthCheckId") <*>       (obj .:? "HostedZoneId") <*>       (obj .:? "HostedZoneName") <*>+      fmap (fmap (fmap unBool')) (obj .:? "MultiValueAnswer") <*>       (obj .: "Name") <*>       (obj .:? "Region") <*>       (obj .:? "ResourceRecords") <*>@@ -84,6 +87,7 @@   , _route53RecordSetHealthCheckId = Nothing   , _route53RecordSetHostedZoneId = Nothing   , _route53RecordSetHostedZoneName = Nothing+  , _route53RecordSetMultiValueAnswer = Nothing   , _route53RecordSetName = namearg   , _route53RecordSetRegion = Nothing   , _route53RecordSetResourceRecords = Nothing@@ -120,6 +124,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-hostedzonename rrsHostedZoneName :: Lens' Route53RecordSet (Maybe (Val Text)) rrsHostedZoneName = lens _route53RecordSetHostedZoneName (\s a -> s { _route53RecordSetHostedZoneName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-multivalueanswer+rrsMultiValueAnswer :: Lens' Route53RecordSet (Maybe (Val Bool))+rrsMultiValueAnswer = lens _route53RecordSetMultiValueAnswer (\s a -> s { _route53RecordSetMultiValueAnswer = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-name rrsName :: Lens' Route53RecordSet (Val Text)

@@ -0,0 +1,112 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindow.html++module Stratosphere.Resources.SSMMaintenanceWindow where++import Stratosphere.ResourceImports+++-- | Full data type definition for SSMMaintenanceWindow. See+-- 'ssmMaintenanceWindow' for a more convenient constructor.+data SSMMaintenanceWindow =+  SSMMaintenanceWindow+  { _sSMMaintenanceWindowAllowUnassociatedTargets :: Val Bool+  , _sSMMaintenanceWindowCutoff :: Val Integer+  , _sSMMaintenanceWindowDescription :: Maybe (Val Text)+  , _sSMMaintenanceWindowDuration :: Val Integer+  , _sSMMaintenanceWindowEndDate :: Maybe (Val Text)+  , _sSMMaintenanceWindowName :: Val Text+  , _sSMMaintenanceWindowSchedule :: Val Text+  , _sSMMaintenanceWindowScheduleTimezone :: Maybe (Val Text)+  , _sSMMaintenanceWindowStartDate :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON SSMMaintenanceWindow where+  toJSON SSMMaintenanceWindow{..} =+    object $+    catMaybes+    [ (Just . ("AllowUnassociatedTargets",) . toJSON . fmap Bool') _sSMMaintenanceWindowAllowUnassociatedTargets+    , (Just . ("Cutoff",) . toJSON . fmap Integer') _sSMMaintenanceWindowCutoff+    , fmap (("Description",) . toJSON) _sSMMaintenanceWindowDescription+    , (Just . ("Duration",) . toJSON . fmap Integer') _sSMMaintenanceWindowDuration+    , fmap (("EndDate",) . toJSON) _sSMMaintenanceWindowEndDate+    , (Just . ("Name",) . toJSON) _sSMMaintenanceWindowName+    , (Just . ("Schedule",) . toJSON) _sSMMaintenanceWindowSchedule+    , fmap (("ScheduleTimezone",) . toJSON) _sSMMaintenanceWindowScheduleTimezone+    , fmap (("StartDate",) . toJSON) _sSMMaintenanceWindowStartDate+    ]++instance FromJSON SSMMaintenanceWindow where+  parseJSON (Object obj) =+    SSMMaintenanceWindow <$>+      fmap (fmap unBool') (obj .: "AllowUnassociatedTargets") <*>+      fmap (fmap unInteger') (obj .: "Cutoff") <*>+      (obj .:? "Description") <*>+      fmap (fmap unInteger') (obj .: "Duration") <*>+      (obj .:? "EndDate") <*>+      (obj .: "Name") <*>+      (obj .: "Schedule") <*>+      (obj .:? "ScheduleTimezone") <*>+      (obj .:? "StartDate")+  parseJSON _ = mempty++-- | Constructor for 'SSMMaintenanceWindow' containing required fields as+-- arguments.+ssmMaintenanceWindow+  :: Val Bool -- ^ 'ssmmwAllowUnassociatedTargets'+  -> Val Integer -- ^ 'ssmmwCutoff'+  -> Val Integer -- ^ 'ssmmwDuration'+  -> Val Text -- ^ 'ssmmwName'+  -> Val Text -- ^ 'ssmmwSchedule'+  -> SSMMaintenanceWindow+ssmMaintenanceWindow allowUnassociatedTargetsarg cutoffarg durationarg namearg schedulearg =+  SSMMaintenanceWindow+  { _sSMMaintenanceWindowAllowUnassociatedTargets = allowUnassociatedTargetsarg+  , _sSMMaintenanceWindowCutoff = cutoffarg+  , _sSMMaintenanceWindowDescription = Nothing+  , _sSMMaintenanceWindowDuration = durationarg+  , _sSMMaintenanceWindowEndDate = Nothing+  , _sSMMaintenanceWindowName = namearg+  , _sSMMaintenanceWindowSchedule = schedulearg+  , _sSMMaintenanceWindowScheduleTimezone = Nothing+  , _sSMMaintenanceWindowStartDate = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindow.html#cfn-ssm-maintenancewindow-allowunassociatedtargets+ssmmwAllowUnassociatedTargets :: Lens' SSMMaintenanceWindow (Val Bool)+ssmmwAllowUnassociatedTargets = lens _sSMMaintenanceWindowAllowUnassociatedTargets (\s a -> s { _sSMMaintenanceWindowAllowUnassociatedTargets = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindow.html#cfn-ssm-maintenancewindow-cutoff+ssmmwCutoff :: Lens' SSMMaintenanceWindow (Val Integer)+ssmmwCutoff = lens _sSMMaintenanceWindowCutoff (\s a -> s { _sSMMaintenanceWindowCutoff = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindow.html#cfn-ssm-maintenancewindow-description+ssmmwDescription :: Lens' SSMMaintenanceWindow (Maybe (Val Text))+ssmmwDescription = lens _sSMMaintenanceWindowDescription (\s a -> s { _sSMMaintenanceWindowDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindow.html#cfn-ssm-maintenancewindow-duration+ssmmwDuration :: Lens' SSMMaintenanceWindow (Val Integer)+ssmmwDuration = lens _sSMMaintenanceWindowDuration (\s a -> s { _sSMMaintenanceWindowDuration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindow.html#cfn-ssm-maintenancewindow-enddate+ssmmwEndDate :: Lens' SSMMaintenanceWindow (Maybe (Val Text))+ssmmwEndDate = lens _sSMMaintenanceWindowEndDate (\s a -> s { _sSMMaintenanceWindowEndDate = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindow.html#cfn-ssm-maintenancewindow-name+ssmmwName :: Lens' SSMMaintenanceWindow (Val Text)+ssmmwName = lens _sSMMaintenanceWindowName (\s a -> s { _sSMMaintenanceWindowName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindow.html#cfn-ssm-maintenancewindow-schedule+ssmmwSchedule :: Lens' SSMMaintenanceWindow (Val Text)+ssmmwSchedule = lens _sSMMaintenanceWindowSchedule (\s a -> s { _sSMMaintenanceWindowSchedule = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindow.html#cfn-ssm-maintenancewindow-scheduletimezone+ssmmwScheduleTimezone :: Lens' SSMMaintenanceWindow (Maybe (Val Text))+ssmmwScheduleTimezone = lens _sSMMaintenanceWindowScheduleTimezone (\s a -> s { _sSMMaintenanceWindowScheduleTimezone = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindow.html#cfn-ssm-maintenancewindow-startdate+ssmmwStartDate :: Lens' SSMMaintenanceWindow (Maybe (Val Text))+ssmmwStartDate = lens _sSMMaintenanceWindowStartDate (\s a -> s { _sSMMaintenanceWindowStartDate = a })

@@ -22,6 +22,7 @@   , _sageMakerNotebookInstanceSecurityGroupIds :: Maybe (ValList Text)   , _sageMakerNotebookInstanceSubnetId :: Maybe (Val Text)   , _sageMakerNotebookInstanceTags :: Maybe [Tag]+  , _sageMakerNotebookInstanceVolumeSizeInGB :: Maybe (Val Integer)   } deriving (Show, Eq)  instance ToJSON SageMakerNotebookInstance where@@ -37,6 +38,7 @@     , fmap (("SecurityGroupIds",) . toJSON) _sageMakerNotebookInstanceSecurityGroupIds     , fmap (("SubnetId",) . toJSON) _sageMakerNotebookInstanceSubnetId     , fmap (("Tags",) . toJSON) _sageMakerNotebookInstanceTags+    , fmap (("VolumeSizeInGB",) . toJSON . fmap Integer') _sageMakerNotebookInstanceVolumeSizeInGB     ]  instance FromJSON SageMakerNotebookInstance where@@ -50,7 +52,8 @@       (obj .: "RoleArn") <*>       (obj .:? "SecurityGroupIds") <*>       (obj .:? "SubnetId") <*>-      (obj .:? "Tags")+      (obj .:? "Tags") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "VolumeSizeInGB")   parseJSON _ = mempty  -- | Constructor for 'SageMakerNotebookInstance' containing required fields as@@ -70,6 +73,7 @@   , _sageMakerNotebookInstanceSecurityGroupIds = Nothing   , _sageMakerNotebookInstanceSubnetId = Nothing   , _sageMakerNotebookInstanceTags = Nothing+  , _sageMakerNotebookInstanceVolumeSizeInGB = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-notebookinstance.html#cfn-sagemaker-notebookinstance-directinternetaccess@@ -107,3 +111,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-notebookinstance.html#cfn-sagemaker-notebookinstance-tags smniTags :: Lens' SageMakerNotebookInstance (Maybe [Tag]) smniTags = lens _sageMakerNotebookInstanceTags (\s a -> s { _sageMakerNotebookInstanceTags = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-notebookinstance.html#cfn-sagemaker-notebookinstance-volumesizeingb+smniVolumeSizeInGB :: Lens' SageMakerNotebookInstance (Maybe (Val Integer))+smniVolumeSizeInGB = lens _sageMakerNotebookInstanceVolumeSizeInGB (\s a -> s { _sageMakerNotebookInstanceVolumeSizeInGB = a })

@@ -0,0 +1,53 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-resourcepolicy.html++module Stratosphere.Resources.SecretsManagerResourcePolicy where++import Stratosphere.ResourceImports+++-- | Full data type definition for SecretsManagerResourcePolicy. See+-- 'secretsManagerResourcePolicy' for a more convenient constructor.+data SecretsManagerResourcePolicy =+  SecretsManagerResourcePolicy+  { _secretsManagerResourcePolicyResourcePolicy :: Object+  , _secretsManagerResourcePolicySecretId :: Val Text+  } deriving (Show, Eq)++instance ToJSON SecretsManagerResourcePolicy where+  toJSON SecretsManagerResourcePolicy{..} =+    object $+    catMaybes+    [ (Just . ("ResourcePolicy",) . toJSON) _secretsManagerResourcePolicyResourcePolicy+    , (Just . ("SecretId",) . toJSON) _secretsManagerResourcePolicySecretId+    ]++instance FromJSON SecretsManagerResourcePolicy where+  parseJSON (Object obj) =+    SecretsManagerResourcePolicy <$>+      (obj .: "ResourcePolicy") <*>+      (obj .: "SecretId")+  parseJSON _ = mempty++-- | Constructor for 'SecretsManagerResourcePolicy' containing required fields+-- as arguments.+secretsManagerResourcePolicy+  :: Object -- ^ 'smrpResourcePolicy'+  -> Val Text -- ^ 'smrpSecretId'+  -> SecretsManagerResourcePolicy+secretsManagerResourcePolicy resourcePolicyarg secretIdarg =+  SecretsManagerResourcePolicy+  { _secretsManagerResourcePolicyResourcePolicy = resourcePolicyarg+  , _secretsManagerResourcePolicySecretId = secretIdarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-resourcepolicy.html#cfn-secretsmanager-resourcepolicy-resourcepolicy+smrpResourcePolicy :: Lens' SecretsManagerResourcePolicy Object+smrpResourcePolicy = lens _secretsManagerResourcePolicyResourcePolicy (\s a -> s { _secretsManagerResourcePolicyResourcePolicy = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-resourcepolicy.html#cfn-secretsmanager-resourcepolicy-secretid+smrpSecretId :: Lens' SecretsManagerResourcePolicy (Val Text)+smrpSecretId = lens _secretsManagerResourcePolicySecretId (\s a -> s { _secretsManagerResourcePolicySecretId = a })

@@ -0,0 +1,60 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-rotationschedule.html++module Stratosphere.Resources.SecretsManagerRotationSchedule where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.SecretsManagerRotationScheduleRotationRules++-- | Full data type definition for SecretsManagerRotationSchedule. See+-- 'secretsManagerRotationSchedule' for a more convenient constructor.+data SecretsManagerRotationSchedule =+  SecretsManagerRotationSchedule+  { _secretsManagerRotationScheduleRotationLambdaARN :: Maybe (Val Text)+  , _secretsManagerRotationScheduleRotationRules :: Maybe SecretsManagerRotationScheduleRotationRules+  , _secretsManagerRotationScheduleSecretId :: Val Text+  } deriving (Show, Eq)++instance ToJSON SecretsManagerRotationSchedule where+  toJSON SecretsManagerRotationSchedule{..} =+    object $+    catMaybes+    [ fmap (("RotationLambdaARN",) . toJSON) _secretsManagerRotationScheduleRotationLambdaARN+    , fmap (("RotationRules",) . toJSON) _secretsManagerRotationScheduleRotationRules+    , (Just . ("SecretId",) . toJSON) _secretsManagerRotationScheduleSecretId+    ]++instance FromJSON SecretsManagerRotationSchedule where+  parseJSON (Object obj) =+    SecretsManagerRotationSchedule <$>+      (obj .:? "RotationLambdaARN") <*>+      (obj .:? "RotationRules") <*>+      (obj .: "SecretId")+  parseJSON _ = mempty++-- | Constructor for 'SecretsManagerRotationSchedule' containing required+-- fields as arguments.+secretsManagerRotationSchedule+  :: Val Text -- ^ 'smrsSecretId'+  -> SecretsManagerRotationSchedule+secretsManagerRotationSchedule secretIdarg =+  SecretsManagerRotationSchedule+  { _secretsManagerRotationScheduleRotationLambdaARN = Nothing+  , _secretsManagerRotationScheduleRotationRules = Nothing+  , _secretsManagerRotationScheduleSecretId = secretIdarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-rotationschedule.html#cfn-secretsmanager-rotationschedule-rotationlambdaarn+smrsRotationLambdaARN :: Lens' SecretsManagerRotationSchedule (Maybe (Val Text))+smrsRotationLambdaARN = lens _secretsManagerRotationScheduleRotationLambdaARN (\s a -> s { _secretsManagerRotationScheduleRotationLambdaARN = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-rotationschedule.html#cfn-secretsmanager-rotationschedule-rotationrules+smrsRotationRules :: Lens' SecretsManagerRotationSchedule (Maybe SecretsManagerRotationScheduleRotationRules)+smrsRotationRules = lens _secretsManagerRotationScheduleRotationRules (\s a -> s { _secretsManagerRotationScheduleRotationRules = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-rotationschedule.html#cfn-secretsmanager-rotationschedule-secretid+smrsSecretId :: Lens' SecretsManagerRotationSchedule (Val Text)+smrsSecretId = lens _secretsManagerRotationScheduleSecretId (\s a -> s { _secretsManagerRotationScheduleSecretId = a })

@@ -0,0 +1,84 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-secret.html++module Stratosphere.Resources.SecretsManagerSecret where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.SecretsManagerSecretGenerateSecretString+import Stratosphere.ResourceProperties.Tag++-- | Full data type definition for SecretsManagerSecret. See+-- 'secretsManagerSecret' for a more convenient constructor.+data SecretsManagerSecret =+  SecretsManagerSecret+  { _secretsManagerSecretDescription :: Maybe (Val Text)+  , _secretsManagerSecretGenerateSecretString :: Maybe SecretsManagerSecretGenerateSecretString+  , _secretsManagerSecretKmsKeyId :: Maybe (Val Text)+  , _secretsManagerSecretName :: Maybe (Val Text)+  , _secretsManagerSecretSecretString :: Maybe (Val Text)+  , _secretsManagerSecretTags :: Maybe [Tag]+  } deriving (Show, Eq)++instance ToJSON SecretsManagerSecret where+  toJSON SecretsManagerSecret{..} =+    object $+    catMaybes+    [ fmap (("Description",) . toJSON) _secretsManagerSecretDescription+    , fmap (("GenerateSecretString",) . toJSON) _secretsManagerSecretGenerateSecretString+    , fmap (("KmsKeyId",) . toJSON) _secretsManagerSecretKmsKeyId+    , fmap (("Name",) . toJSON) _secretsManagerSecretName+    , fmap (("SecretString",) . toJSON) _secretsManagerSecretSecretString+    , fmap (("Tags",) . toJSON) _secretsManagerSecretTags+    ]++instance FromJSON SecretsManagerSecret where+  parseJSON (Object obj) =+    SecretsManagerSecret <$>+      (obj .:? "Description") <*>+      (obj .:? "GenerateSecretString") <*>+      (obj .:? "KmsKeyId") <*>+      (obj .:? "Name") <*>+      (obj .:? "SecretString") <*>+      (obj .:? "Tags")+  parseJSON _ = mempty++-- | Constructor for 'SecretsManagerSecret' containing required fields as+-- arguments.+secretsManagerSecret+  :: SecretsManagerSecret+secretsManagerSecret  =+  SecretsManagerSecret+  { _secretsManagerSecretDescription = Nothing+  , _secretsManagerSecretGenerateSecretString = Nothing+  , _secretsManagerSecretKmsKeyId = Nothing+  , _secretsManagerSecretName = Nothing+  , _secretsManagerSecretSecretString = Nothing+  , _secretsManagerSecretTags = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-secret.html#cfn-secretsmanager-secret-description+smsDescription :: Lens' SecretsManagerSecret (Maybe (Val Text))+smsDescription = lens _secretsManagerSecretDescription (\s a -> s { _secretsManagerSecretDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-secret.html#cfn-secretsmanager-secret-generatesecretstring+smsGenerateSecretString :: Lens' SecretsManagerSecret (Maybe SecretsManagerSecretGenerateSecretString)+smsGenerateSecretString = lens _secretsManagerSecretGenerateSecretString (\s a -> s { _secretsManagerSecretGenerateSecretString = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-secret.html#cfn-secretsmanager-secret-kmskeyid+smsKmsKeyId :: Lens' SecretsManagerSecret (Maybe (Val Text))+smsKmsKeyId = lens _secretsManagerSecretKmsKeyId (\s a -> s { _secretsManagerSecretKmsKeyId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-secret.html#cfn-secretsmanager-secret-name+smsName :: Lens' SecretsManagerSecret (Maybe (Val Text))+smsName = lens _secretsManagerSecretName (\s a -> s { _secretsManagerSecretName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-secret.html#cfn-secretsmanager-secret-secretstring+smsSecretString :: Lens' SecretsManagerSecret (Maybe (Val Text))+smsSecretString = lens _secretsManagerSecretSecretString (\s a -> s { _secretsManagerSecretSecretString = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-secret.html#cfn-secretsmanager-secret-tags+smsTags :: Lens' SecretsManagerSecret (Maybe [Tag])+smsTags = lens _secretsManagerSecretTags (\s a -> s { _secretsManagerSecretTags = a })

@@ -0,0 +1,62 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-secrettargetattachment.html++module Stratosphere.Resources.SecretsManagerSecretTargetAttachment where++import Stratosphere.ResourceImports+++-- | Full data type definition for SecretsManagerSecretTargetAttachment. See+-- 'secretsManagerSecretTargetAttachment' for a more convenient constructor.+data SecretsManagerSecretTargetAttachment =+  SecretsManagerSecretTargetAttachment+  { _secretsManagerSecretTargetAttachmentSecretId :: Val Text+  , _secretsManagerSecretTargetAttachmentTargetId :: Val Text+  , _secretsManagerSecretTargetAttachmentTargetType :: Val Text+  } deriving (Show, Eq)++instance ToJSON SecretsManagerSecretTargetAttachment where+  toJSON SecretsManagerSecretTargetAttachment{..} =+    object $+    catMaybes+    [ (Just . ("SecretId",) . toJSON) _secretsManagerSecretTargetAttachmentSecretId+    , (Just . ("TargetId",) . toJSON) _secretsManagerSecretTargetAttachmentTargetId+    , (Just . ("TargetType",) . toJSON) _secretsManagerSecretTargetAttachmentTargetType+    ]++instance FromJSON SecretsManagerSecretTargetAttachment where+  parseJSON (Object obj) =+    SecretsManagerSecretTargetAttachment <$>+      (obj .: "SecretId") <*>+      (obj .: "TargetId") <*>+      (obj .: "TargetType")+  parseJSON _ = mempty++-- | Constructor for 'SecretsManagerSecretTargetAttachment' containing+-- required fields as arguments.+secretsManagerSecretTargetAttachment+  :: Val Text -- ^ 'smstaSecretId'+  -> Val Text -- ^ 'smstaTargetId'+  -> Val Text -- ^ 'smstaTargetType'+  -> SecretsManagerSecretTargetAttachment+secretsManagerSecretTargetAttachment secretIdarg targetIdarg targetTypearg =+  SecretsManagerSecretTargetAttachment+  { _secretsManagerSecretTargetAttachmentSecretId = secretIdarg+  , _secretsManagerSecretTargetAttachmentTargetId = targetIdarg+  , _secretsManagerSecretTargetAttachmentTargetType = targetTypearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-secrettargetattachment.html#cfn-secretsmanager-secrettargetattachment-secretid+smstaSecretId :: Lens' SecretsManagerSecretTargetAttachment (Val Text)+smstaSecretId = lens _secretsManagerSecretTargetAttachmentSecretId (\s a -> s { _secretsManagerSecretTargetAttachmentSecretId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-secrettargetattachment.html#cfn-secretsmanager-secrettargetattachment-targetid+smstaTargetId :: Lens' SecretsManagerSecretTargetAttachment (Val Text)+smstaTargetId = lens _secretsManagerSecretTargetAttachmentTargetId (\s a -> s { _secretsManagerSecretTargetAttachmentTargetId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-secrettargetattachment.html#cfn-secretsmanager-secrettargetattachment-targettype+smstaTargetType :: Lens' SecretsManagerSecretTargetAttachment (Val Text)+smstaTargetType = lens _secretsManagerSecretTargetAttachmentTargetType (\s a -> s { _secretsManagerSecretTargetAttachmentTargetType = a })

@@ -7,7 +7,8 @@ module Stratosphere.Resources.WorkSpacesWorkspace where  import Stratosphere.ResourceImports-+import Stratosphere.ResourceProperties.Tag+import Stratosphere.ResourceProperties.WorkSpacesWorkspaceWorkspaceProperties  -- | Full data type definition for WorkSpacesWorkspace. See -- 'workSpacesWorkspace' for a more convenient constructor.@@ -16,9 +17,11 @@   { _workSpacesWorkspaceBundleId :: Val Text   , _workSpacesWorkspaceDirectoryId :: Val Text   , _workSpacesWorkspaceRootVolumeEncryptionEnabled :: Maybe (Val Bool)+  , _workSpacesWorkspaceTags :: Maybe [Tag]   , _workSpacesWorkspaceUserName :: Val Text   , _workSpacesWorkspaceUserVolumeEncryptionEnabled :: Maybe (Val Bool)   , _workSpacesWorkspaceVolumeEncryptionKey :: Maybe (Val Text)+  , _workSpacesWorkspaceWorkspaceProperties :: Maybe WorkSpacesWorkspaceWorkspaceProperties   } deriving (Show, Eq)  instance ToJSON WorkSpacesWorkspace where@@ -28,9 +31,11 @@     [ (Just . ("BundleId",) . toJSON) _workSpacesWorkspaceBundleId     , (Just . ("DirectoryId",) . toJSON) _workSpacesWorkspaceDirectoryId     , fmap (("RootVolumeEncryptionEnabled",) . toJSON . fmap Bool') _workSpacesWorkspaceRootVolumeEncryptionEnabled+    , fmap (("Tags",) . toJSON) _workSpacesWorkspaceTags     , (Just . ("UserName",) . toJSON) _workSpacesWorkspaceUserName     , fmap (("UserVolumeEncryptionEnabled",) . toJSON . fmap Bool') _workSpacesWorkspaceUserVolumeEncryptionEnabled     , fmap (("VolumeEncryptionKey",) . toJSON) _workSpacesWorkspaceVolumeEncryptionKey+    , fmap (("WorkspaceProperties",) . toJSON) _workSpacesWorkspaceWorkspaceProperties     ]  instance FromJSON WorkSpacesWorkspace where@@ -39,9 +44,11 @@       (obj .: "BundleId") <*>       (obj .: "DirectoryId") <*>       fmap (fmap (fmap unBool')) (obj .:? "RootVolumeEncryptionEnabled") <*>+      (obj .:? "Tags") <*>       (obj .: "UserName") <*>       fmap (fmap (fmap unBool')) (obj .:? "UserVolumeEncryptionEnabled") <*>-      (obj .:? "VolumeEncryptionKey")+      (obj .:? "VolumeEncryptionKey") <*>+      (obj .:? "WorkspaceProperties")   parseJSON _ = mempty  -- | Constructor for 'WorkSpacesWorkspace' containing required fields as@@ -56,9 +63,11 @@   { _workSpacesWorkspaceBundleId = bundleIdarg   , _workSpacesWorkspaceDirectoryId = directoryIdarg   , _workSpacesWorkspaceRootVolumeEncryptionEnabled = Nothing+  , _workSpacesWorkspaceTags = Nothing   , _workSpacesWorkspaceUserName = userNamearg   , _workSpacesWorkspaceUserVolumeEncryptionEnabled = Nothing   , _workSpacesWorkspaceVolumeEncryptionKey = Nothing+  , _workSpacesWorkspaceWorkspaceProperties = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-workspaces-workspace.html#cfn-workspaces-workspace-bundleid@@ -73,6 +82,10 @@ wswRootVolumeEncryptionEnabled :: Lens' WorkSpacesWorkspace (Maybe (Val Bool)) wswRootVolumeEncryptionEnabled = lens _workSpacesWorkspaceRootVolumeEncryptionEnabled (\s a -> s { _workSpacesWorkspaceRootVolumeEncryptionEnabled = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-workspaces-workspace.html#cfn-workspaces-workspace-tags+wswTags :: Lens' WorkSpacesWorkspace (Maybe [Tag])+wswTags = lens _workSpacesWorkspaceTags (\s a -> s { _workSpacesWorkspaceTags = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-workspaces-workspace.html#cfn-workspaces-workspace-username wswUserName :: Lens' WorkSpacesWorkspace (Val Text) wswUserName = lens _workSpacesWorkspaceUserName (\s a -> s { _workSpacesWorkspaceUserName = a })@@ -84,3 +97,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-workspaces-workspace.html#cfn-workspaces-workspace-volumeencryptionkey wswVolumeEncryptionKey :: Lens' WorkSpacesWorkspace (Maybe (Val Text)) wswVolumeEncryptionKey = lens _workSpacesWorkspaceVolumeEncryptionKey (\s a -> s { _workSpacesWorkspaceVolumeEncryptionKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-workspaces-workspace.html#cfn-workspaces-workspace-workspaceproperties+wswWorkspaceProperties :: Lens' WorkSpacesWorkspace (Maybe WorkSpacesWorkspaceWorkspaceProperties)+wswWorkspaceProperties = lens _workSpacesWorkspaceWorkspaceProperties (\s a -> s { _workSpacesWorkspaceWorkspaceProperties = a })

@@ -1,11 +1,13 @@--- This file has been generated from package.yaml by hpack version 0.28.2.+cabal-version: 1.12++-- This file has been generated from package.yaml by hpack version 0.31.0. -- -- see: https://github.com/sol/hpack ----- hash: e322b34ff8eb22429d5d71e02048122ef8a857182b1ea5f17cc4d29d7409e165+-- hash: 92866fa270bc8da0e6aa6c55a2cc38a2ba968df82449cb833cdf7a795b14b6e7  name:           stratosphere-version:        0.26.2+version:        0.27.0 synopsis:       EDSL for AWS CloudFormation description:    EDSL for AWS CloudFormation category:       AWS, Cloud@@ -16,7 +18,6 @@ license:        MIT license-file:   LICENSE.md build-type:     Simple-cabal-version:  >= 1.10 extra-source-files:     CHANGELOG.md     README.md@@ -102,8 +103,10 @@       Stratosphere.ResourceProperties.AutoScalingLaunchConfigurationBlockDevice       Stratosphere.ResourceProperties.AutoScalingLaunchConfigurationBlockDeviceMapping       Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanApplicationSource+      Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification       Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanCustomizedScalingMetricSpecification       Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanMetricDimension+      Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification       Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanPredefinedScalingMetricSpecification       Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanScalingInstruction       Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanTagFilter@@ -234,6 +237,10 @@       Stratosphere.ResourceProperties.DAXClusterSSESpecification       Stratosphere.ResourceProperties.DirectoryServiceMicrosoftADVpcSettings       Stratosphere.ResourceProperties.DirectoryServiceSimpleADVpcSettings+      Stratosphere.ResourceProperties.DLMLifecyclePolicyCreateRule+      Stratosphere.ResourceProperties.DLMLifecyclePolicyPolicyDetails+      Stratosphere.ResourceProperties.DLMLifecyclePolicyRetainRule+      Stratosphere.ResourceProperties.DLMLifecyclePolicySchedule       Stratosphere.ResourceProperties.DMSEndpointDynamoDbSettings       Stratosphere.ResourceProperties.DMSEndpointMongoDbSettings       Stratosphere.ResourceProperties.DMSEndpointS3Settings@@ -461,6 +468,7 @@       Stratosphere.ResourceProperties.IoTTopicRuleDynamoDBV2Action       Stratosphere.ResourceProperties.IoTTopicRuleElasticsearchAction       Stratosphere.ResourceProperties.IoTTopicRuleFirehoseAction+      Stratosphere.ResourceProperties.IoTTopicRuleIotAnalyticsAction       Stratosphere.ResourceProperties.IoTTopicRuleKinesisAction       Stratosphere.ResourceProperties.IoTTopicRuleLambdaAction       Stratosphere.ResourceProperties.IoTTopicRulePutItemInput@@ -468,6 +476,7 @@       Stratosphere.ResourceProperties.IoTTopicRuleS3Action       Stratosphere.ResourceProperties.IoTTopicRuleSnsAction       Stratosphere.ResourceProperties.IoTTopicRuleSqsAction+      Stratosphere.ResourceProperties.IoTTopicRuleStepFunctionsAction       Stratosphere.ResourceProperties.IoTTopicRuleTopicRulePayload       Stratosphere.ResourceProperties.KinesisAnalyticsApplicationCSVMappingParameters       Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInput@@ -539,6 +548,7 @@       Stratosphere.ResourceProperties.OpsWorksStackSource       Stratosphere.ResourceProperties.OpsWorksStackStackConfigurationManager       Stratosphere.ResourceProperties.RDSDBClusterScalingConfiguration+      Stratosphere.ResourceProperties.RDSDBInstanceProcessorFeature       Stratosphere.ResourceProperties.RDSDBSecurityGroupIngressProperty       Stratosphere.ResourceProperties.RDSOptionGroupOptionConfiguration       Stratosphere.ResourceProperties.RDSOptionGroupOptionSetting@@ -599,6 +609,8 @@       Stratosphere.ResourceProperties.SageMakerModelContainerDefinition       Stratosphere.ResourceProperties.SageMakerModelVpcConfig       Stratosphere.ResourceProperties.SageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHook+      Stratosphere.ResourceProperties.SecretsManagerRotationScheduleRotationRules+      Stratosphere.ResourceProperties.SecretsManagerSecretGenerateSecretString       Stratosphere.ResourceProperties.ServiceCatalogCloudFormationProductProvisioningArtifactProperties       Stratosphere.ResourceProperties.ServiceCatalogCloudFormationProvisionedProductProvisioningParameter       Stratosphere.ResourceProperties.ServiceDiscoveryServiceDnsConfig@@ -664,6 +676,7 @@       Stratosphere.ResourceProperties.WAFWebACLWafAction       Stratosphere.ResourceProperties.WAFXssMatchSetFieldToMatch       Stratosphere.ResourceProperties.WAFXssMatchSetXssMatchTuple+      Stratosphere.ResourceProperties.WorkSpacesWorkspaceWorkspaceProperties       Stratosphere.Resources       Stratosphere.Resources.AmazonMQBroker       Stratosphere.Resources.AmazonMQConfiguration@@ -749,6 +762,7 @@       Stratosphere.Resources.DAXSubnetGroup       Stratosphere.Resources.DirectoryServiceMicrosoftAD       Stratosphere.Resources.DirectoryServiceSimpleAD+      Stratosphere.Resources.DLMLifecyclePolicy       Stratosphere.Resources.DMSCertificate       Stratosphere.Resources.DMSEndpoint       Stratosphere.Resources.DMSEventSubscription@@ -923,6 +937,10 @@       Stratosphere.Resources.SageMakerNotebookInstance       Stratosphere.Resources.SageMakerNotebookInstanceLifecycleConfig       Stratosphere.Resources.SDBDomain+      Stratosphere.Resources.SecretsManagerResourcePolicy+      Stratosphere.Resources.SecretsManagerRotationSchedule+      Stratosphere.Resources.SecretsManagerSecret+      Stratosphere.Resources.SecretsManagerSecretTargetAttachment       Stratosphere.Resources.ServiceCatalogAcceptedPortfolioShare       Stratosphere.Resources.ServiceCatalogCloudFormationProduct       Stratosphere.Resources.ServiceCatalogCloudFormationProvisionedProduct@@ -952,6 +970,7 @@       Stratosphere.Resources.SQSQueuePolicy       Stratosphere.Resources.SSMAssociation       Stratosphere.Resources.SSMDocument+      Stratosphere.Resources.SSMMaintenanceWindow       Stratosphere.Resources.SSMMaintenanceWindowTask       Stratosphere.Resources.SSMParameter       Stratosphere.Resources.SSMPatchBaseline