stratosphere 0.11.0 → 0.12.0
raw patch · 4 files changed
+26/−14 lines, 4 files
Files
- CHANGELOG.md +4/−0
- library-gen/Stratosphere/Resources/AutoScalingAutoScalingGroup.hs +12/−12
- library-gen/Stratosphere/Resources/StepFunctionsStateMachine.hs +9/−1
- stratosphere.cabal +1/−1
CHANGELOG.md view
@@ -1,5 +1,9 @@ # Change Log +## 0.12.0++* Update resource specification document to version 1.10.0+ ## 0.11.0 * Update resource specification document to version 1.8.0
library-gen/Stratosphere/Resources/AutoScalingAutoScalingGroup.hs view
@@ -13,17 +13,16 @@ import Data.Text import Stratosphere.Values-import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupTagProperty import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupLifecycleHookSpecification import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupMetricsCollection import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupNotificationConfiguration+import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupTagProperty -- | Full data type definition for AutoScalingAutoScalingGroup. See -- 'autoScalingAutoScalingGroup' for a more convenient constructor. data AutoScalingAutoScalingGroup = AutoScalingAutoScalingGroup- { _autoScalingAutoScalingGroupAsTags :: Maybe [AutoScalingAutoScalingGroupTagProperty]- , _autoScalingAutoScalingGroupAvailabilityZones :: Maybe (ValList Text)+ { _autoScalingAutoScalingGroupAvailabilityZones :: Maybe (ValList Text) , _autoScalingAutoScalingGroupCooldown :: Maybe (Val Text) , _autoScalingAutoScalingGroupDesiredCapacity :: Maybe (Val Text) , _autoScalingAutoScalingGroupHealthCheckGracePeriod :: Maybe (Val Integer)@@ -37,6 +36,7 @@ , _autoScalingAutoScalingGroupMinSize :: Val Text , _autoScalingAutoScalingGroupNotificationConfigurations :: Maybe [AutoScalingAutoScalingGroupNotificationConfiguration] , _autoScalingAutoScalingGroupPlacementGroup :: Maybe (Val Text)+ , _autoScalingAutoScalingGroupTags :: Maybe [AutoScalingAutoScalingGroupTagProperty] , _autoScalingAutoScalingGroupTargetGroupARNs :: Maybe (ValList Text) , _autoScalingAutoScalingGroupTerminationPolicies :: Maybe (ValList Text) , _autoScalingAutoScalingGroupVPCZoneIdentifier :: Maybe (ValList Text)@@ -46,8 +46,7 @@ toJSON AutoScalingAutoScalingGroup{..} = object $ catMaybes- [ fmap (("AsTags",) . toJSON) _autoScalingAutoScalingGroupAsTags- , fmap (("AvailabilityZones",) . toJSON) _autoScalingAutoScalingGroupAvailabilityZones+ [ fmap (("AvailabilityZones",) . toJSON) _autoScalingAutoScalingGroupAvailabilityZones , fmap (("Cooldown",) . toJSON) _autoScalingAutoScalingGroupCooldown , fmap (("DesiredCapacity",) . toJSON) _autoScalingAutoScalingGroupDesiredCapacity , fmap (("HealthCheckGracePeriod",) . toJSON . fmap Integer') _autoScalingAutoScalingGroupHealthCheckGracePeriod@@ -61,6 +60,7 @@ , (Just . ("MinSize",) . toJSON) _autoScalingAutoScalingGroupMinSize , fmap (("NotificationConfigurations",) . toJSON) _autoScalingAutoScalingGroupNotificationConfigurations , fmap (("PlacementGroup",) . toJSON) _autoScalingAutoScalingGroupPlacementGroup+ , fmap (("Tags",) . toJSON) _autoScalingAutoScalingGroupTags , fmap (("TargetGroupARNs",) . toJSON) _autoScalingAutoScalingGroupTargetGroupARNs , fmap (("TerminationPolicies",) . toJSON) _autoScalingAutoScalingGroupTerminationPolicies , fmap (("VPCZoneIdentifier",) . toJSON) _autoScalingAutoScalingGroupVPCZoneIdentifier@@ -69,7 +69,6 @@ instance FromJSON AutoScalingAutoScalingGroup where parseJSON (Object obj) = AutoScalingAutoScalingGroup <$>- (obj .:? "AsTags") <*> (obj .:? "AvailabilityZones") <*> (obj .:? "Cooldown") <*> (obj .:? "DesiredCapacity") <*>@@ -84,6 +83,7 @@ (obj .: "MinSize") <*> (obj .:? "NotificationConfigurations") <*> (obj .:? "PlacementGroup") <*>+ (obj .:? "Tags") <*> (obj .:? "TargetGroupARNs") <*> (obj .:? "TerminationPolicies") <*> (obj .:? "VPCZoneIdentifier")@@ -97,8 +97,7 @@ -> AutoScalingAutoScalingGroup autoScalingAutoScalingGroup maxSizearg minSizearg = AutoScalingAutoScalingGroup- { _autoScalingAutoScalingGroupAsTags = Nothing- , _autoScalingAutoScalingGroupAvailabilityZones = Nothing+ { _autoScalingAutoScalingGroupAvailabilityZones = Nothing , _autoScalingAutoScalingGroupCooldown = Nothing , _autoScalingAutoScalingGroupDesiredCapacity = Nothing , _autoScalingAutoScalingGroupHealthCheckGracePeriod = Nothing@@ -112,15 +111,12 @@ , _autoScalingAutoScalingGroupMinSize = minSizearg , _autoScalingAutoScalingGroupNotificationConfigurations = Nothing , _autoScalingAutoScalingGroupPlacementGroup = Nothing+ , _autoScalingAutoScalingGroupTags = Nothing , _autoScalingAutoScalingGroupTargetGroupARNs = Nothing , _autoScalingAutoScalingGroupTerminationPolicies = Nothing , _autoScalingAutoScalingGroupVPCZoneIdentifier = Nothing } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-tags-asasgAsTags :: Lens' AutoScalingAutoScalingGroup (Maybe [AutoScalingAutoScalingGroupTagProperty])-asasgAsTags = lens _autoScalingAutoScalingGroupAsTags (\s a -> s { _autoScalingAutoScalingGroupAsTags = a })- -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-availabilityzones asasgAvailabilityZones :: Lens' AutoScalingAutoScalingGroup (Maybe (ValList Text)) asasgAvailabilityZones = lens _autoScalingAutoScalingGroupAvailabilityZones (\s a -> s { _autoScalingAutoScalingGroupAvailabilityZones = a })@@ -176,6 +172,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-placementgroup asasgPlacementGroup :: Lens' AutoScalingAutoScalingGroup (Maybe (Val Text)) asasgPlacementGroup = lens _autoScalingAutoScalingGroupPlacementGroup (\s a -> s { _autoScalingAutoScalingGroupPlacementGroup = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-tags+asasgTags :: Lens' AutoScalingAutoScalingGroup (Maybe [AutoScalingAutoScalingGroupTagProperty])+asasgTags = lens _autoScalingAutoScalingGroupTags (\s a -> s { _autoScalingAutoScalingGroupTags = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-targetgrouparns asasgTargetGroupARNs :: Lens' AutoScalingAutoScalingGroup (Maybe (ValList Text))
library-gen/Stratosphere/Resources/StepFunctionsStateMachine.hs view
@@ -21,6 +21,7 @@ StepFunctionsStateMachine { _stepFunctionsStateMachineDefinitionString :: Val Text , _stepFunctionsStateMachineRoleArn :: Val Text+ , _stepFunctionsStateMachineStateMachineName :: Maybe (Val Text) } deriving (Show, Eq) instance ToJSON StepFunctionsStateMachine where@@ -29,13 +30,15 @@ catMaybes [ (Just . ("DefinitionString",) . toJSON) _stepFunctionsStateMachineDefinitionString , (Just . ("RoleArn",) . toJSON) _stepFunctionsStateMachineRoleArn+ , fmap (("StateMachineName",) . toJSON) _stepFunctionsStateMachineStateMachineName ] instance FromJSON StepFunctionsStateMachine where parseJSON (Object obj) = StepFunctionsStateMachine <$> (obj .: "DefinitionString") <*>- (obj .: "RoleArn")+ (obj .: "RoleArn") <*>+ (obj .:? "StateMachineName") parseJSON _ = mempty -- | Constructor for 'StepFunctionsStateMachine' containing required fields as@@ -48,6 +51,7 @@ StepFunctionsStateMachine { _stepFunctionsStateMachineDefinitionString = definitionStringarg , _stepFunctionsStateMachineRoleArn = roleArnarg+ , _stepFunctionsStateMachineStateMachineName = Nothing } -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-stepfunctions-statemachine.html#cfn-stepfunctions-statemachine-definitionstring@@ -57,3 +61,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-stepfunctions-statemachine.html#cfn-stepfunctions-statemachine-rolearn sfsmRoleArn :: Lens' StepFunctionsStateMachine (Val Text) sfsmRoleArn = lens _stepFunctionsStateMachineRoleArn (\s a -> s { _stepFunctionsStateMachineRoleArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-stepfunctions-statemachine.html#cfn-stepfunctions-statemachine-statemachinename+sfsmStateMachineName :: Lens' StepFunctionsStateMachine (Maybe (Val Text))+sfsmStateMachineName = lens _stepFunctionsStateMachineStateMachineName (\s a -> s { _stepFunctionsStateMachineStateMachineName = a })
stratosphere.cabal view
@@ -3,7 +3,7 @@ -- see: https://github.com/sol/hpack name: stratosphere-version: 0.11.0+version: 0.12.0 synopsis: EDSL for AWS CloudFormation description: EDSL for AWS CloudFormation category: AWS, Cloud