packages feed

stratosphere 0.41.0 → 0.42.0

raw patch · 85 files changed

+2944/−90 lines, 85 files

Files

CHANGELOG.md view
@@ -1,5 +1,9 @@ # Change Log +## 0.42.0++* Update resource specification document to version 6.0.0+ ## 0.41.0  * Update resource specification document to version 5.0.0
+ library-gen/Stratosphere/ResourceProperties/AppMeshRouteHeaderMatchMethod.hs view
@@ -0,0 +1,66 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-headermatchmethod.html++module Stratosphere.ResourceProperties.AppMeshRouteHeaderMatchMethod where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshRouteMatchRange++-- | Full data type definition for AppMeshRouteHeaderMatchMethod. See+-- 'appMeshRouteHeaderMatchMethod' for a more convenient constructor.+data AppMeshRouteHeaderMatchMethod =+  AppMeshRouteHeaderMatchMethod+  { _appMeshRouteHeaderMatchMethodExact :: Maybe (Val Text)+  , _appMeshRouteHeaderMatchMethodPrefix :: Maybe (Val Text)+  , _appMeshRouteHeaderMatchMethodRange :: Maybe AppMeshRouteMatchRange+  , _appMeshRouteHeaderMatchMethodRegex :: Maybe (Val Text)+  , _appMeshRouteHeaderMatchMethodSuffix :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON AppMeshRouteHeaderMatchMethod where+  toJSON AppMeshRouteHeaderMatchMethod{..} =+    object $+    catMaybes+    [ fmap (("Exact",) . toJSON) _appMeshRouteHeaderMatchMethodExact+    , fmap (("Prefix",) . toJSON) _appMeshRouteHeaderMatchMethodPrefix+    , fmap (("Range",) . toJSON) _appMeshRouteHeaderMatchMethodRange+    , fmap (("Regex",) . toJSON) _appMeshRouteHeaderMatchMethodRegex+    , fmap (("Suffix",) . toJSON) _appMeshRouteHeaderMatchMethodSuffix+    ]++-- | Constructor for 'AppMeshRouteHeaderMatchMethod' containing required+-- fields as arguments.+appMeshRouteHeaderMatchMethod+  :: AppMeshRouteHeaderMatchMethod+appMeshRouteHeaderMatchMethod  =+  AppMeshRouteHeaderMatchMethod+  { _appMeshRouteHeaderMatchMethodExact = Nothing+  , _appMeshRouteHeaderMatchMethodPrefix = Nothing+  , _appMeshRouteHeaderMatchMethodRange = Nothing+  , _appMeshRouteHeaderMatchMethodRegex = Nothing+  , _appMeshRouteHeaderMatchMethodSuffix = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-headermatchmethod.html#cfn-appmesh-route-headermatchmethod-exact+amrhmmExact :: Lens' AppMeshRouteHeaderMatchMethod (Maybe (Val Text))+amrhmmExact = lens _appMeshRouteHeaderMatchMethodExact (\s a -> s { _appMeshRouteHeaderMatchMethodExact = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-headermatchmethod.html#cfn-appmesh-route-headermatchmethod-prefix+amrhmmPrefix :: Lens' AppMeshRouteHeaderMatchMethod (Maybe (Val Text))+amrhmmPrefix = lens _appMeshRouteHeaderMatchMethodPrefix (\s a -> s { _appMeshRouteHeaderMatchMethodPrefix = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-headermatchmethod.html#cfn-appmesh-route-headermatchmethod-range+amrhmmRange :: Lens' AppMeshRouteHeaderMatchMethod (Maybe AppMeshRouteMatchRange)+amrhmmRange = lens _appMeshRouteHeaderMatchMethodRange (\s a -> s { _appMeshRouteHeaderMatchMethodRange = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-headermatchmethod.html#cfn-appmesh-route-headermatchmethod-regex+amrhmmRegex :: Lens' AppMeshRouteHeaderMatchMethod (Maybe (Val Text))+amrhmmRegex = lens _appMeshRouteHeaderMatchMethodRegex (\s a -> s { _appMeshRouteHeaderMatchMethodRegex = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-headermatchmethod.html#cfn-appmesh-route-headermatchmethod-suffix+amrhmmSuffix :: Lens' AppMeshRouteHeaderMatchMethod (Maybe (Val Text))+amrhmmSuffix = lens _appMeshRouteHeaderMatchMethodSuffix (\s a -> s { _appMeshRouteHeaderMatchMethodSuffix = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshRouteHttpRouteHeader.hs view
@@ -0,0 +1,53 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httprouteheader.html++module Stratosphere.ResourceProperties.AppMeshRouteHttpRouteHeader where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshRouteHeaderMatchMethod++-- | Full data type definition for AppMeshRouteHttpRouteHeader. See+-- 'appMeshRouteHttpRouteHeader' for a more convenient constructor.+data AppMeshRouteHttpRouteHeader =+  AppMeshRouteHttpRouteHeader+  { _appMeshRouteHttpRouteHeaderInvert :: Maybe (Val Bool)+  , _appMeshRouteHttpRouteHeaderMatch :: Maybe AppMeshRouteHeaderMatchMethod+  , _appMeshRouteHttpRouteHeaderName :: Val Text+  } deriving (Show, Eq)++instance ToJSON AppMeshRouteHttpRouteHeader where+  toJSON AppMeshRouteHttpRouteHeader{..} =+    object $+    catMaybes+    [ fmap (("Invert",) . toJSON) _appMeshRouteHttpRouteHeaderInvert+    , fmap (("Match",) . toJSON) _appMeshRouteHttpRouteHeaderMatch+    , (Just . ("Name",) . toJSON) _appMeshRouteHttpRouteHeaderName+    ]++-- | Constructor for 'AppMeshRouteHttpRouteHeader' containing required fields+-- as arguments.+appMeshRouteHttpRouteHeader+  :: Val Text -- ^ 'amrhrhName'+  -> AppMeshRouteHttpRouteHeader+appMeshRouteHttpRouteHeader namearg =+  AppMeshRouteHttpRouteHeader+  { _appMeshRouteHttpRouteHeaderInvert = Nothing+  , _appMeshRouteHttpRouteHeaderMatch = Nothing+  , _appMeshRouteHttpRouteHeaderName = namearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httprouteheader.html#cfn-appmesh-route-httprouteheader-invert+amrhrhInvert :: Lens' AppMeshRouteHttpRouteHeader (Maybe (Val Bool))+amrhrhInvert = lens _appMeshRouteHttpRouteHeaderInvert (\s a -> s { _appMeshRouteHttpRouteHeaderInvert = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httprouteheader.html#cfn-appmesh-route-httprouteheader-match+amrhrhMatch :: Lens' AppMeshRouteHttpRouteHeader (Maybe AppMeshRouteHeaderMatchMethod)+amrhrhMatch = lens _appMeshRouteHttpRouteHeaderMatch (\s a -> s { _appMeshRouteHttpRouteHeaderMatch = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httprouteheader.html#cfn-appmesh-route-httprouteheader-name+amrhrhName :: Lens' AppMeshRouteHttpRouteHeader (Val Text)+amrhrhName = lens _appMeshRouteHttpRouteHeaderName (\s a -> s { _appMeshRouteHttpRouteHeaderName = a })
library-gen/Stratosphere/ResourceProperties/AppMeshRouteHttpRouteMatch.hs view
@@ -8,20 +8,26 @@ module Stratosphere.ResourceProperties.AppMeshRouteHttpRouteMatch where  import Stratosphere.ResourceImports-+import Stratosphere.ResourceProperties.AppMeshRouteHttpRouteHeader  -- | Full data type definition for AppMeshRouteHttpRouteMatch. See -- 'appMeshRouteHttpRouteMatch' for a more convenient constructor. data AppMeshRouteHttpRouteMatch =   AppMeshRouteHttpRouteMatch-  { _appMeshRouteHttpRouteMatchPrefix :: Val Text+  { _appMeshRouteHttpRouteMatchHeaders :: Maybe [AppMeshRouteHttpRouteHeader]+  , _appMeshRouteHttpRouteMatchMethod :: Maybe (Val Text)+  , _appMeshRouteHttpRouteMatchPrefix :: Val Text+  , _appMeshRouteHttpRouteMatchScheme :: Maybe (Val Text)   } deriving (Show, Eq)  instance ToJSON AppMeshRouteHttpRouteMatch where   toJSON AppMeshRouteHttpRouteMatch{..} =     object $     catMaybes-    [ (Just . ("Prefix",) . toJSON) _appMeshRouteHttpRouteMatchPrefix+    [ fmap (("Headers",) . toJSON) _appMeshRouteHttpRouteMatchHeaders+    , fmap (("Method",) . toJSON) _appMeshRouteHttpRouteMatchMethod+    , (Just . ("Prefix",) . toJSON) _appMeshRouteHttpRouteMatchPrefix+    , fmap (("Scheme",) . toJSON) _appMeshRouteHttpRouteMatchScheme     ]  -- | Constructor for 'AppMeshRouteHttpRouteMatch' containing required fields@@ -31,9 +37,24 @@   -> AppMeshRouteHttpRouteMatch appMeshRouteHttpRouteMatch prefixarg =   AppMeshRouteHttpRouteMatch-  { _appMeshRouteHttpRouteMatchPrefix = prefixarg+  { _appMeshRouteHttpRouteMatchHeaders = Nothing+  , _appMeshRouteHttpRouteMatchMethod = Nothing+  , _appMeshRouteHttpRouteMatchPrefix = prefixarg+  , _appMeshRouteHttpRouteMatchScheme = Nothing   } +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httproutematch.html#cfn-appmesh-route-httproutematch-headers+amrhrmHeaders :: Lens' AppMeshRouteHttpRouteMatch (Maybe [AppMeshRouteHttpRouteHeader])+amrhrmHeaders = lens _appMeshRouteHttpRouteMatchHeaders (\s a -> s { _appMeshRouteHttpRouteMatchHeaders = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httproutematch.html#cfn-appmesh-route-httproutematch-method+amrhrmMethod :: Lens' AppMeshRouteHttpRouteMatch (Maybe (Val Text))+amrhrmMethod = lens _appMeshRouteHttpRouteMatchMethod (\s a -> s { _appMeshRouteHttpRouteMatchMethod = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httproutematch.html#cfn-appmesh-route-httproutematch-prefix amrhrmPrefix :: Lens' AppMeshRouteHttpRouteMatch (Val Text) amrhrmPrefix = lens _appMeshRouteHttpRouteMatchPrefix (\s a -> s { _appMeshRouteHttpRouteMatchPrefix = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httproutematch.html#cfn-appmesh-route-httproutematch-scheme+amrhrmScheme :: Lens' AppMeshRouteHttpRouteMatch (Maybe (Val Text))+amrhrmScheme = lens _appMeshRouteHttpRouteMatchScheme (\s a -> s { _appMeshRouteHttpRouteMatchScheme = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshRouteMatchRange.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-matchrange.html++module Stratosphere.ResourceProperties.AppMeshRouteMatchRange where++import Stratosphere.ResourceImports+++-- | Full data type definition for AppMeshRouteMatchRange. See+-- 'appMeshRouteMatchRange' for a more convenient constructor.+data AppMeshRouteMatchRange =+  AppMeshRouteMatchRange+  { _appMeshRouteMatchRangeEnd :: Val Integer+  , _appMeshRouteMatchRangeStart :: Val Integer+  } deriving (Show, Eq)++instance ToJSON AppMeshRouteMatchRange where+  toJSON AppMeshRouteMatchRange{..} =+    object $+    catMaybes+    [ (Just . ("End",) . toJSON) _appMeshRouteMatchRangeEnd+    , (Just . ("Start",) . toJSON) _appMeshRouteMatchRangeStart+    ]++-- | Constructor for 'AppMeshRouteMatchRange' containing required fields as+-- arguments.+appMeshRouteMatchRange+  :: Val Integer -- ^ 'amrmrEnd'+  -> Val Integer -- ^ 'amrmrStart'+  -> AppMeshRouteMatchRange+appMeshRouteMatchRange endarg startarg =+  AppMeshRouteMatchRange+  { _appMeshRouteMatchRangeEnd = endarg+  , _appMeshRouteMatchRangeStart = startarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-matchrange.html#cfn-appmesh-route-matchrange-end+amrmrEnd :: Lens' AppMeshRouteMatchRange (Val Integer)+amrmrEnd = lens _appMeshRouteMatchRangeEnd (\s a -> s { _appMeshRouteMatchRangeEnd = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-matchrange.html#cfn-appmesh-route-matchrange-start+amrmrStart :: Lens' AppMeshRouteMatchRange (Val Integer)+amrmrStart = lens _appMeshRouteMatchRangeStart (\s a -> s { _appMeshRouteMatchRangeStart = a })
library-gen/Stratosphere/ResourceProperties/AppMeshRouteRouteSpec.hs view
@@ -16,6 +16,7 @@ data AppMeshRouteRouteSpec =   AppMeshRouteRouteSpec   { _appMeshRouteRouteSpecHttpRoute :: Maybe AppMeshRouteHttpRoute+  , _appMeshRouteRouteSpecPriority :: Maybe (Val Integer)   , _appMeshRouteRouteSpecTcpRoute :: Maybe AppMeshRouteTcpRoute   } deriving (Show, Eq) @@ -24,6 +25,7 @@     object $     catMaybes     [ fmap (("HttpRoute",) . toJSON) _appMeshRouteRouteSpecHttpRoute+    , fmap (("Priority",) . toJSON) _appMeshRouteRouteSpecPriority     , fmap (("TcpRoute",) . toJSON) _appMeshRouteRouteSpecTcpRoute     ] @@ -34,12 +36,17 @@ appMeshRouteRouteSpec  =   AppMeshRouteRouteSpec   { _appMeshRouteRouteSpecHttpRoute = Nothing+  , _appMeshRouteRouteSpecPriority = Nothing   , _appMeshRouteRouteSpecTcpRoute = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-routespec.html#cfn-appmesh-route-routespec-httproute amrrsHttpRoute :: Lens' AppMeshRouteRouteSpec (Maybe AppMeshRouteHttpRoute) amrrsHttpRoute = lens _appMeshRouteRouteSpecHttpRoute (\s a -> s { _appMeshRouteRouteSpecHttpRoute = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-routespec.html#cfn-appmesh-route-routespec-priority+amrrsPriority :: Lens' AppMeshRouteRouteSpec (Maybe (Val Integer))+amrrsPriority = lens _appMeshRouteRouteSpecPriority (\s a -> s { _appMeshRouteRouteSpecPriority = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-routespec.html#cfn-appmesh-route-routespec-tcproute amrrsTcpRoute :: Lens' AppMeshRouteRouteSpec (Maybe AppMeshRouteTcpRoute)
library-gen/Stratosphere/ResourceProperties/AppSyncGraphQLApiLogConfig.hs view
@@ -15,6 +15,7 @@ data AppSyncGraphQLApiLogConfig =   AppSyncGraphQLApiLogConfig   { _appSyncGraphQLApiLogConfigCloudWatchLogsRoleArn :: Maybe (Val Text)+  , _appSyncGraphQLApiLogConfigExcludeVerboseContent :: Maybe (Val Bool)   , _appSyncGraphQLApiLogConfigFieldLogLevel :: Maybe (Val Text)   } deriving (Show, Eq) @@ -23,6 +24,7 @@     object $     catMaybes     [ fmap (("CloudWatchLogsRoleArn",) . toJSON) _appSyncGraphQLApiLogConfigCloudWatchLogsRoleArn+    , fmap (("ExcludeVerboseContent",) . toJSON) _appSyncGraphQLApiLogConfigExcludeVerboseContent     , fmap (("FieldLogLevel",) . toJSON) _appSyncGraphQLApiLogConfigFieldLogLevel     ] @@ -33,12 +35,17 @@ appSyncGraphQLApiLogConfig  =   AppSyncGraphQLApiLogConfig   { _appSyncGraphQLApiLogConfigCloudWatchLogsRoleArn = Nothing+  , _appSyncGraphQLApiLogConfigExcludeVerboseContent = Nothing   , _appSyncGraphQLApiLogConfigFieldLogLevel = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-graphqlapi-logconfig.html#cfn-appsync-graphqlapi-logconfig-cloudwatchlogsrolearn asgqlalcCloudWatchLogsRoleArn :: Lens' AppSyncGraphQLApiLogConfig (Maybe (Val Text)) asgqlalcCloudWatchLogsRoleArn = lens _appSyncGraphQLApiLogConfigCloudWatchLogsRoleArn (\s a -> s { _appSyncGraphQLApiLogConfigCloudWatchLogsRoleArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-graphqlapi-logconfig.html#cfn-appsync-graphqlapi-logconfig-excludeverbosecontent+asgqlalcExcludeVerboseContent :: Lens' AppSyncGraphQLApiLogConfig (Maybe (Val Bool))+asgqlalcExcludeVerboseContent = lens _appSyncGraphQLApiLogConfigExcludeVerboseContent (\s a -> s { _appSyncGraphQLApiLogConfigExcludeVerboseContent = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-graphqlapi-logconfig.html#cfn-appsync-graphqlapi-logconfig-fieldloglevel asgqlalcFieldLogLevel :: Lens' AppSyncGraphQLApiLogConfig (Maybe (Val Text))
+ library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalableTargetSuspendedState.hs view
@@ -0,0 +1,54 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalabletarget-suspendedstate.html++module Stratosphere.ResourceProperties.ApplicationAutoScalingScalableTargetSuspendedState where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- ApplicationAutoScalingScalableTargetSuspendedState. See+-- 'applicationAutoScalingScalableTargetSuspendedState' for a more+-- convenient constructor.+data ApplicationAutoScalingScalableTargetSuspendedState =+  ApplicationAutoScalingScalableTargetSuspendedState+  { _applicationAutoScalingScalableTargetSuspendedStateDynamicScalingInSuspended :: Maybe (Val Bool)+  , _applicationAutoScalingScalableTargetSuspendedStateDynamicScalingOutSuspended :: Maybe (Val Bool)+  , _applicationAutoScalingScalableTargetSuspendedStateScheduledScalingSuspended :: Maybe (Val Bool)+  } deriving (Show, Eq)++instance ToJSON ApplicationAutoScalingScalableTargetSuspendedState where+  toJSON ApplicationAutoScalingScalableTargetSuspendedState{..} =+    object $+    catMaybes+    [ fmap (("DynamicScalingInSuspended",) . toJSON) _applicationAutoScalingScalableTargetSuspendedStateDynamicScalingInSuspended+    , fmap (("DynamicScalingOutSuspended",) . toJSON) _applicationAutoScalingScalableTargetSuspendedStateDynamicScalingOutSuspended+    , fmap (("ScheduledScalingSuspended",) . toJSON) _applicationAutoScalingScalableTargetSuspendedStateScheduledScalingSuspended+    ]++-- | Constructor for 'ApplicationAutoScalingScalableTargetSuspendedState'+-- containing required fields as arguments.+applicationAutoScalingScalableTargetSuspendedState+  :: ApplicationAutoScalingScalableTargetSuspendedState+applicationAutoScalingScalableTargetSuspendedState  =+  ApplicationAutoScalingScalableTargetSuspendedState+  { _applicationAutoScalingScalableTargetSuspendedStateDynamicScalingInSuspended = Nothing+  , _applicationAutoScalingScalableTargetSuspendedStateDynamicScalingOutSuspended = Nothing+  , _applicationAutoScalingScalableTargetSuspendedStateScheduledScalingSuspended = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalabletarget-suspendedstate.html#cfn-applicationautoscaling-scalabletarget-suspendedstate-dynamicscalinginsuspended+aasstssDynamicScalingInSuspended :: Lens' ApplicationAutoScalingScalableTargetSuspendedState (Maybe (Val Bool))+aasstssDynamicScalingInSuspended = lens _applicationAutoScalingScalableTargetSuspendedStateDynamicScalingInSuspended (\s a -> s { _applicationAutoScalingScalableTargetSuspendedStateDynamicScalingInSuspended = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalabletarget-suspendedstate.html#cfn-applicationautoscaling-scalabletarget-suspendedstate-dynamicscalingoutsuspended+aasstssDynamicScalingOutSuspended :: Lens' ApplicationAutoScalingScalableTargetSuspendedState (Maybe (Val Bool))+aasstssDynamicScalingOutSuspended = lens _applicationAutoScalingScalableTargetSuspendedStateDynamicScalingOutSuspended (\s a -> s { _applicationAutoScalingScalableTargetSuspendedStateDynamicScalingOutSuspended = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalabletarget-suspendedstate.html#cfn-applicationautoscaling-scalabletarget-suspendedstate-scheduledscalingsuspended+aasstssScheduledScalingSuspended :: Lens' ApplicationAutoScalingScalableTargetSuspendedState (Maybe (Val Bool))+aasstssScheduledScalingSuspended = lens _applicationAutoScalingScalableTargetSuspendedStateScheduledScalingSuspended (\s a -> s { _applicationAutoScalingScalableTargetSuspendedStateScheduledScalingSuspended = a })
library-gen/Stratosphere/ResourceProperties/CognitoUserPoolAdminCreateUserConfig.hs view
@@ -16,7 +16,7 @@   CognitoUserPoolAdminCreateUserConfig   { _cognitoUserPoolAdminCreateUserConfigAllowAdminCreateUserOnly :: Maybe (Val Bool)   , _cognitoUserPoolAdminCreateUserConfigInviteMessageTemplate :: Maybe CognitoUserPoolInviteMessageTemplate-  , _cognitoUserPoolAdminCreateUserConfigUnusedAccountValidityDays :: Maybe (Val Double)+  , _cognitoUserPoolAdminCreateUserConfigUnusedAccountValidityDays :: Maybe (Val Integer)   } deriving (Show, Eq)  instance ToJSON CognitoUserPoolAdminCreateUserConfig where@@ -48,5 +48,5 @@ cupacucInviteMessageTemplate = lens _cognitoUserPoolAdminCreateUserConfigInviteMessageTemplate (\s a -> s { _cognitoUserPoolAdminCreateUserConfigInviteMessageTemplate = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-admincreateuserconfig.html#cfn-cognito-userpool-admincreateuserconfig-unusedaccountvaliditydays-cupacucUnusedAccountValidityDays :: Lens' CognitoUserPoolAdminCreateUserConfig (Maybe (Val Double))+cupacucUnusedAccountValidityDays :: Lens' CognitoUserPoolAdminCreateUserConfig (Maybe (Val Integer)) cupacucUnusedAccountValidityDays = lens _cognitoUserPoolAdminCreateUserConfigUnusedAccountValidityDays (\s a -> s { _cognitoUserPoolAdminCreateUserConfigUnusedAccountValidityDays = a })
library-gen/Stratosphere/ResourceProperties/CognitoUserPoolPasswordPolicy.hs view
@@ -19,7 +19,7 @@   , _cognitoUserPoolPasswordPolicyRequireNumbers :: Maybe (Val Bool)   , _cognitoUserPoolPasswordPolicyRequireSymbols :: Maybe (Val Bool)   , _cognitoUserPoolPasswordPolicyRequireUppercase :: Maybe (Val Bool)-  , _cognitoUserPoolPasswordPolicyTemporaryPasswordValidityDays :: Maybe (Val Double)+  , _cognitoUserPoolPasswordPolicyTemporaryPasswordValidityDays :: Maybe (Val Integer)   } deriving (Show, Eq)  instance ToJSON CognitoUserPoolPasswordPolicy where@@ -69,5 +69,5 @@ cupppRequireUppercase = lens _cognitoUserPoolPasswordPolicyRequireUppercase (\s a -> s { _cognitoUserPoolPasswordPolicyRequireUppercase = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-passwordpolicy.html#cfn-cognito-userpool-passwordpolicy-temporarypasswordvaliditydays-cupppTemporaryPasswordValidityDays :: Lens' CognitoUserPoolPasswordPolicy (Maybe (Val Double))+cupppTemporaryPasswordValidityDays :: Lens' CognitoUserPoolPasswordPolicy (Maybe (Val Integer)) cupppTemporaryPasswordValidityDays = lens _cognitoUserPoolPasswordPolicyTemporaryPasswordValidityDays (\s a -> s { _cognitoUserPoolPasswordPolicyTemporaryPasswordValidityDays = a })
+ library-gen/Stratosphere/ResourceProperties/ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata.hs view
@@ -0,0 +1,99 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationcustomrulemetadata.html++module Stratosphere.ResourceProperties.ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata. See+-- 'configOrganizationConfigRuleOrganizationCustomRuleMetadata' for a more+-- convenient constructor.+data ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata =+  ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata+  { _configOrganizationConfigRuleOrganizationCustomRuleMetadataDescription :: Maybe (Val Text)+  , _configOrganizationConfigRuleOrganizationCustomRuleMetadataInputParameters :: Maybe (Val Text)+  , _configOrganizationConfigRuleOrganizationCustomRuleMetadataLambdaFunctionArn :: Val Text+  , _configOrganizationConfigRuleOrganizationCustomRuleMetadataMaximumExecutionFrequency :: Maybe (Val Text)+  , _configOrganizationConfigRuleOrganizationCustomRuleMetadataOrganizationConfigRuleTriggerTypes :: ValList Text+  , _configOrganizationConfigRuleOrganizationCustomRuleMetadataResourceIdScope :: Maybe (Val Text)+  , _configOrganizationConfigRuleOrganizationCustomRuleMetadataResourceTypesScope :: Maybe (ValList Text)+  , _configOrganizationConfigRuleOrganizationCustomRuleMetadataTagKeyScope :: Maybe (Val Text)+  , _configOrganizationConfigRuleOrganizationCustomRuleMetadataTagValueScope :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata where+  toJSON ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata{..} =+    object $+    catMaybes+    [ fmap (("Description",) . toJSON) _configOrganizationConfigRuleOrganizationCustomRuleMetadataDescription+    , fmap (("InputParameters",) . toJSON) _configOrganizationConfigRuleOrganizationCustomRuleMetadataInputParameters+    , (Just . ("LambdaFunctionArn",) . toJSON) _configOrganizationConfigRuleOrganizationCustomRuleMetadataLambdaFunctionArn+    , fmap (("MaximumExecutionFrequency",) . toJSON) _configOrganizationConfigRuleOrganizationCustomRuleMetadataMaximumExecutionFrequency+    , (Just . ("OrganizationConfigRuleTriggerTypes",) . toJSON) _configOrganizationConfigRuleOrganizationCustomRuleMetadataOrganizationConfigRuleTriggerTypes+    , fmap (("ResourceIdScope",) . toJSON) _configOrganizationConfigRuleOrganizationCustomRuleMetadataResourceIdScope+    , fmap (("ResourceTypesScope",) . toJSON) _configOrganizationConfigRuleOrganizationCustomRuleMetadataResourceTypesScope+    , fmap (("TagKeyScope",) . toJSON) _configOrganizationConfigRuleOrganizationCustomRuleMetadataTagKeyScope+    , fmap (("TagValueScope",) . toJSON) _configOrganizationConfigRuleOrganizationCustomRuleMetadataTagValueScope+    ]++-- | Constructor for+-- 'ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata' containing+-- required fields as arguments.+configOrganizationConfigRuleOrganizationCustomRuleMetadata+  :: Val Text -- ^ 'cocrocrmLambdaFunctionArn'+  -> ValList Text -- ^ 'cocrocrmOrganizationConfigRuleTriggerTypes'+  -> ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata+configOrganizationConfigRuleOrganizationCustomRuleMetadata lambdaFunctionArnarg organizationConfigRuleTriggerTypesarg =+  ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata+  { _configOrganizationConfigRuleOrganizationCustomRuleMetadataDescription = Nothing+  , _configOrganizationConfigRuleOrganizationCustomRuleMetadataInputParameters = Nothing+  , _configOrganizationConfigRuleOrganizationCustomRuleMetadataLambdaFunctionArn = lambdaFunctionArnarg+  , _configOrganizationConfigRuleOrganizationCustomRuleMetadataMaximumExecutionFrequency = Nothing+  , _configOrganizationConfigRuleOrganizationCustomRuleMetadataOrganizationConfigRuleTriggerTypes = organizationConfigRuleTriggerTypesarg+  , _configOrganizationConfigRuleOrganizationCustomRuleMetadataResourceIdScope = Nothing+  , _configOrganizationConfigRuleOrganizationCustomRuleMetadataResourceTypesScope = Nothing+  , _configOrganizationConfigRuleOrganizationCustomRuleMetadataTagKeyScope = Nothing+  , _configOrganizationConfigRuleOrganizationCustomRuleMetadataTagValueScope = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationcustomrulemetadata.html#cfn-config-organizationconfigrule-organizationcustomrulemetadata-description+cocrocrmDescription :: Lens' ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata (Maybe (Val Text))+cocrocrmDescription = lens _configOrganizationConfigRuleOrganizationCustomRuleMetadataDescription (\s a -> s { _configOrganizationConfigRuleOrganizationCustomRuleMetadataDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationcustomrulemetadata.html#cfn-config-organizationconfigrule-organizationcustomrulemetadata-inputparameters+cocrocrmInputParameters :: Lens' ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata (Maybe (Val Text))+cocrocrmInputParameters = lens _configOrganizationConfigRuleOrganizationCustomRuleMetadataInputParameters (\s a -> s { _configOrganizationConfigRuleOrganizationCustomRuleMetadataInputParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationcustomrulemetadata.html#cfn-config-organizationconfigrule-organizationcustomrulemetadata-lambdafunctionarn+cocrocrmLambdaFunctionArn :: Lens' ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata (Val Text)+cocrocrmLambdaFunctionArn = lens _configOrganizationConfigRuleOrganizationCustomRuleMetadataLambdaFunctionArn (\s a -> s { _configOrganizationConfigRuleOrganizationCustomRuleMetadataLambdaFunctionArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationcustomrulemetadata.html#cfn-config-organizationconfigrule-organizationcustomrulemetadata-maximumexecutionfrequency+cocrocrmMaximumExecutionFrequency :: Lens' ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata (Maybe (Val Text))+cocrocrmMaximumExecutionFrequency = lens _configOrganizationConfigRuleOrganizationCustomRuleMetadataMaximumExecutionFrequency (\s a -> s { _configOrganizationConfigRuleOrganizationCustomRuleMetadataMaximumExecutionFrequency = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationcustomrulemetadata.html#cfn-config-organizationconfigrule-organizationcustomrulemetadata-organizationconfigruletriggertypes+cocrocrmOrganizationConfigRuleTriggerTypes :: Lens' ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata (ValList Text)+cocrocrmOrganizationConfigRuleTriggerTypes = lens _configOrganizationConfigRuleOrganizationCustomRuleMetadataOrganizationConfigRuleTriggerTypes (\s a -> s { _configOrganizationConfigRuleOrganizationCustomRuleMetadataOrganizationConfigRuleTriggerTypes = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationcustomrulemetadata.html#cfn-config-organizationconfigrule-organizationcustomrulemetadata-resourceidscope+cocrocrmResourceIdScope :: Lens' ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata (Maybe (Val Text))+cocrocrmResourceIdScope = lens _configOrganizationConfigRuleOrganizationCustomRuleMetadataResourceIdScope (\s a -> s { _configOrganizationConfigRuleOrganizationCustomRuleMetadataResourceIdScope = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationcustomrulemetadata.html#cfn-config-organizationconfigrule-organizationcustomrulemetadata-resourcetypesscope+cocrocrmResourceTypesScope :: Lens' ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata (Maybe (ValList Text))+cocrocrmResourceTypesScope = lens _configOrganizationConfigRuleOrganizationCustomRuleMetadataResourceTypesScope (\s a -> s { _configOrganizationConfigRuleOrganizationCustomRuleMetadataResourceTypesScope = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationcustomrulemetadata.html#cfn-config-organizationconfigrule-organizationcustomrulemetadata-tagkeyscope+cocrocrmTagKeyScope :: Lens' ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata (Maybe (Val Text))+cocrocrmTagKeyScope = lens _configOrganizationConfigRuleOrganizationCustomRuleMetadataTagKeyScope (\s a -> s { _configOrganizationConfigRuleOrganizationCustomRuleMetadataTagKeyScope = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationcustomrulemetadata.html#cfn-config-organizationconfigrule-organizationcustomrulemetadata-tagvaluescope+cocrocrmTagValueScope :: Lens' ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata (Maybe (Val Text))+cocrocrmTagValueScope = lens _configOrganizationConfigRuleOrganizationCustomRuleMetadataTagValueScope (\s a -> s { _configOrganizationConfigRuleOrganizationCustomRuleMetadataTagValueScope = a })
+ library-gen/Stratosphere/ResourceProperties/ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata.hs view
@@ -0,0 +1,91 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationmanagedrulemetadata.html++module Stratosphere.ResourceProperties.ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata. See+-- 'configOrganizationConfigRuleOrganizationManagedRuleMetadata' for a more+-- convenient constructor.+data ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata =+  ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata+  { _configOrganizationConfigRuleOrganizationManagedRuleMetadataDescription :: Maybe (Val Text)+  , _configOrganizationConfigRuleOrganizationManagedRuleMetadataInputParameters :: Maybe (Val Text)+  , _configOrganizationConfigRuleOrganizationManagedRuleMetadataMaximumExecutionFrequency :: Maybe (Val Text)+  , _configOrganizationConfigRuleOrganizationManagedRuleMetadataResourceIdScope :: Maybe (Val Text)+  , _configOrganizationConfigRuleOrganizationManagedRuleMetadataResourceTypesScope :: Maybe (ValList Text)+  , _configOrganizationConfigRuleOrganizationManagedRuleMetadataRuleIdentifier :: Val Text+  , _configOrganizationConfigRuleOrganizationManagedRuleMetadataTagKeyScope :: Maybe (Val Text)+  , _configOrganizationConfigRuleOrganizationManagedRuleMetadataTagValueScope :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata where+  toJSON ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata{..} =+    object $+    catMaybes+    [ fmap (("Description",) . toJSON) _configOrganizationConfigRuleOrganizationManagedRuleMetadataDescription+    , fmap (("InputParameters",) . toJSON) _configOrganizationConfigRuleOrganizationManagedRuleMetadataInputParameters+    , fmap (("MaximumExecutionFrequency",) . toJSON) _configOrganizationConfigRuleOrganizationManagedRuleMetadataMaximumExecutionFrequency+    , fmap (("ResourceIdScope",) . toJSON) _configOrganizationConfigRuleOrganizationManagedRuleMetadataResourceIdScope+    , fmap (("ResourceTypesScope",) . toJSON) _configOrganizationConfigRuleOrganizationManagedRuleMetadataResourceTypesScope+    , (Just . ("RuleIdentifier",) . toJSON) _configOrganizationConfigRuleOrganizationManagedRuleMetadataRuleIdentifier+    , fmap (("TagKeyScope",) . toJSON) _configOrganizationConfigRuleOrganizationManagedRuleMetadataTagKeyScope+    , fmap (("TagValueScope",) . toJSON) _configOrganizationConfigRuleOrganizationManagedRuleMetadataTagValueScope+    ]++-- | Constructor for+-- 'ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata' containing+-- required fields as arguments.+configOrganizationConfigRuleOrganizationManagedRuleMetadata+  :: Val Text -- ^ 'cocromrmRuleIdentifier'+  -> ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata+configOrganizationConfigRuleOrganizationManagedRuleMetadata ruleIdentifierarg =+  ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata+  { _configOrganizationConfigRuleOrganizationManagedRuleMetadataDescription = Nothing+  , _configOrganizationConfigRuleOrganizationManagedRuleMetadataInputParameters = Nothing+  , _configOrganizationConfigRuleOrganizationManagedRuleMetadataMaximumExecutionFrequency = Nothing+  , _configOrganizationConfigRuleOrganizationManagedRuleMetadataResourceIdScope = Nothing+  , _configOrganizationConfigRuleOrganizationManagedRuleMetadataResourceTypesScope = Nothing+  , _configOrganizationConfigRuleOrganizationManagedRuleMetadataRuleIdentifier = ruleIdentifierarg+  , _configOrganizationConfigRuleOrganizationManagedRuleMetadataTagKeyScope = Nothing+  , _configOrganizationConfigRuleOrganizationManagedRuleMetadataTagValueScope = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationmanagedrulemetadata.html#cfn-config-organizationconfigrule-organizationmanagedrulemetadata-description+cocromrmDescription :: Lens' ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata (Maybe (Val Text))+cocromrmDescription = lens _configOrganizationConfigRuleOrganizationManagedRuleMetadataDescription (\s a -> s { _configOrganizationConfigRuleOrganizationManagedRuleMetadataDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationmanagedrulemetadata.html#cfn-config-organizationconfigrule-organizationmanagedrulemetadata-inputparameters+cocromrmInputParameters :: Lens' ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata (Maybe (Val Text))+cocromrmInputParameters = lens _configOrganizationConfigRuleOrganizationManagedRuleMetadataInputParameters (\s a -> s { _configOrganizationConfigRuleOrganizationManagedRuleMetadataInputParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationmanagedrulemetadata.html#cfn-config-organizationconfigrule-organizationmanagedrulemetadata-maximumexecutionfrequency+cocromrmMaximumExecutionFrequency :: Lens' ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata (Maybe (Val Text))+cocromrmMaximumExecutionFrequency = lens _configOrganizationConfigRuleOrganizationManagedRuleMetadataMaximumExecutionFrequency (\s a -> s { _configOrganizationConfigRuleOrganizationManagedRuleMetadataMaximumExecutionFrequency = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationmanagedrulemetadata.html#cfn-config-organizationconfigrule-organizationmanagedrulemetadata-resourceidscope+cocromrmResourceIdScope :: Lens' ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata (Maybe (Val Text))+cocromrmResourceIdScope = lens _configOrganizationConfigRuleOrganizationManagedRuleMetadataResourceIdScope (\s a -> s { _configOrganizationConfigRuleOrganizationManagedRuleMetadataResourceIdScope = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationmanagedrulemetadata.html#cfn-config-organizationconfigrule-organizationmanagedrulemetadata-resourcetypesscope+cocromrmResourceTypesScope :: Lens' ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata (Maybe (ValList Text))+cocromrmResourceTypesScope = lens _configOrganizationConfigRuleOrganizationManagedRuleMetadataResourceTypesScope (\s a -> s { _configOrganizationConfigRuleOrganizationManagedRuleMetadataResourceTypesScope = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationmanagedrulemetadata.html#cfn-config-organizationconfigrule-organizationmanagedrulemetadata-ruleidentifier+cocromrmRuleIdentifier :: Lens' ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata (Val Text)+cocromrmRuleIdentifier = lens _configOrganizationConfigRuleOrganizationManagedRuleMetadataRuleIdentifier (\s a -> s { _configOrganizationConfigRuleOrganizationManagedRuleMetadataRuleIdentifier = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationmanagedrulemetadata.html#cfn-config-organizationconfigrule-organizationmanagedrulemetadata-tagkeyscope+cocromrmTagKeyScope :: Lens' ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata (Maybe (Val Text))+cocromrmTagKeyScope = lens _configOrganizationConfigRuleOrganizationManagedRuleMetadataTagKeyScope (\s a -> s { _configOrganizationConfigRuleOrganizationManagedRuleMetadataTagKeyScope = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationmanagedrulemetadata.html#cfn-config-organizationconfigrule-organizationmanagedrulemetadata-tagvaluescope+cocromrmTagValueScope :: Lens' ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata (Maybe (Val Text))+cocromrmTagValueScope = lens _configOrganizationConfigRuleOrganizationManagedRuleMetadataTagValueScope (\s a -> s { _configOrganizationConfigRuleOrganizationManagedRuleMetadataTagValueScope = a })
library-gen/Stratosphere/ResourceProperties/DynamoDBTableSSESpecification.hs view
@@ -14,14 +14,18 @@ -- 'dynamoDBTableSSESpecification' for a more convenient constructor. data DynamoDBTableSSESpecification =   DynamoDBTableSSESpecification-  { _dynamoDBTableSSESpecificationSSEEnabled :: Val Bool+  { _dynamoDBTableSSESpecificationKMSMasterKeyId :: Maybe (Val Text)+  , _dynamoDBTableSSESpecificationSSEEnabled :: Val Bool+  , _dynamoDBTableSSESpecificationSSEType :: Maybe (Val Text)   } deriving (Show, Eq)  instance ToJSON DynamoDBTableSSESpecification where   toJSON DynamoDBTableSSESpecification{..} =     object $     catMaybes-    [ (Just . ("SSEEnabled",) . toJSON) _dynamoDBTableSSESpecificationSSEEnabled+    [ fmap (("KMSMasterKeyId",) . toJSON) _dynamoDBTableSSESpecificationKMSMasterKeyId+    , (Just . ("SSEEnabled",) . toJSON) _dynamoDBTableSSESpecificationSSEEnabled+    , fmap (("SSEType",) . toJSON) _dynamoDBTableSSESpecificationSSEType     ]  -- | Constructor for 'DynamoDBTableSSESpecification' containing required@@ -31,9 +35,19 @@   -> DynamoDBTableSSESpecification dynamoDBTableSSESpecification sSEEnabledarg =   DynamoDBTableSSESpecification-  { _dynamoDBTableSSESpecificationSSEEnabled = sSEEnabledarg+  { _dynamoDBTableSSESpecificationKMSMasterKeyId = Nothing+  , _dynamoDBTableSSESpecificationSSEEnabled = sSEEnabledarg+  , _dynamoDBTableSSESpecificationSSEType = Nothing   } +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-table-ssespecification.html#cfn-dynamodb-table-ssespecification-kmsmasterkeyid+ddbtssesKMSMasterKeyId :: Lens' DynamoDBTableSSESpecification (Maybe (Val Text))+ddbtssesKMSMasterKeyId = lens _dynamoDBTableSSESpecificationKMSMasterKeyId (\s a -> s { _dynamoDBTableSSESpecificationKMSMasterKeyId = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-table-ssespecification.html#cfn-dynamodb-table-ssespecification-sseenabled ddbtssesSSEEnabled :: Lens' DynamoDBTableSSESpecification (Val Bool) ddbtssesSSEEnabled = lens _dynamoDBTableSSESpecificationSSEEnabled (\s a -> s { _dynamoDBTableSSESpecificationSSEEnabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-table-ssespecification.html#cfn-dynamodb-table-ssespecification-ssetype+ddbtssesSSEType :: Lens' DynamoDBTableSSESpecification (Maybe (Val Text))+ddbtssesSSEType = lens _dynamoDBTableSSESpecificationSSEType (\s a -> s { _dynamoDBTableSSESpecificationSSEType = a })
library-gen/Stratosphere/ResourceProperties/EC2ClientVpnEndpointTagSpecification.hs view
@@ -14,32 +14,34 @@ -- 'ec2ClientVpnEndpointTagSpecification' for a more convenient constructor. data EC2ClientVpnEndpointTagSpecification =   EC2ClientVpnEndpointTagSpecification-  { _eC2ClientVpnEndpointTagSpecificationResourceType :: Maybe (Val Text)-  , _eC2ClientVpnEndpointTagSpecificationTags :: Maybe [Tag]+  { _eC2ClientVpnEndpointTagSpecificationResourceType :: Val Text+  , _eC2ClientVpnEndpointTagSpecificationTags :: [Tag]   } deriving (Show, Eq)  instance ToJSON EC2ClientVpnEndpointTagSpecification where   toJSON EC2ClientVpnEndpointTagSpecification{..} =     object $     catMaybes-    [ fmap (("ResourceType",) . toJSON) _eC2ClientVpnEndpointTagSpecificationResourceType-    , fmap (("Tags",) . toJSON) _eC2ClientVpnEndpointTagSpecificationTags+    [ (Just . ("ResourceType",) . toJSON) _eC2ClientVpnEndpointTagSpecificationResourceType+    , (Just . ("Tags",) . toJSON) _eC2ClientVpnEndpointTagSpecificationTags     ]  -- | Constructor for 'EC2ClientVpnEndpointTagSpecification' containing -- required fields as arguments. ec2ClientVpnEndpointTagSpecification-  :: EC2ClientVpnEndpointTagSpecification-ec2ClientVpnEndpointTagSpecification  =+  :: Val Text -- ^ 'eccvetsResourceType'+  -> [Tag] -- ^ 'eccvetsTags'+  -> EC2ClientVpnEndpointTagSpecification+ec2ClientVpnEndpointTagSpecification resourceTypearg tagsarg =   EC2ClientVpnEndpointTagSpecification-  { _eC2ClientVpnEndpointTagSpecificationResourceType = Nothing-  , _eC2ClientVpnEndpointTagSpecificationTags = Nothing+  { _eC2ClientVpnEndpointTagSpecificationResourceType = resourceTypearg+  , _eC2ClientVpnEndpointTagSpecificationTags = tagsarg   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-clientvpnendpoint-tagspecification.html#cfn-ec2-clientvpnendpoint-tagspecification-resourcetype-eccvetsResourceType :: Lens' EC2ClientVpnEndpointTagSpecification (Maybe (Val Text))+eccvetsResourceType :: Lens' EC2ClientVpnEndpointTagSpecification (Val Text) eccvetsResourceType = lens _eC2ClientVpnEndpointTagSpecificationResourceType (\s a -> s { _eC2ClientVpnEndpointTagSpecificationResourceType = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-clientvpnendpoint-tagspecification.html#cfn-ec2-clientvpnendpoint-tagspecification-tags-eccvetsTags :: Lens' EC2ClientVpnEndpointTagSpecification (Maybe [Tag])+eccvetsTags :: Lens' EC2ClientVpnEndpointTagSpecification [Tag] eccvetsTags = lens _eC2ClientVpnEndpointTagSpecificationTags (\s a -> s { _eC2ClientVpnEndpointTagSpecificationTags = a })
+ library-gen/Stratosphere/ResourceProperties/EC2InstanceCpuOptions.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance-cpuoptions.html++module Stratosphere.ResourceProperties.EC2InstanceCpuOptions where++import Stratosphere.ResourceImports+++-- | Full data type definition for EC2InstanceCpuOptions. See+-- 'ec2InstanceCpuOptions' for a more convenient constructor.+data EC2InstanceCpuOptions =+  EC2InstanceCpuOptions+  { _eC2InstanceCpuOptionsCoreCount :: Maybe (Val Integer)+  , _eC2InstanceCpuOptionsThreadsPerCore :: Maybe (Val Integer)+  } deriving (Show, Eq)++instance ToJSON EC2InstanceCpuOptions where+  toJSON EC2InstanceCpuOptions{..} =+    object $+    catMaybes+    [ fmap (("CoreCount",) . toJSON) _eC2InstanceCpuOptionsCoreCount+    , fmap (("ThreadsPerCore",) . toJSON) _eC2InstanceCpuOptionsThreadsPerCore+    ]++-- | Constructor for 'EC2InstanceCpuOptions' containing required fields as+-- arguments.+ec2InstanceCpuOptions+  :: EC2InstanceCpuOptions+ec2InstanceCpuOptions  =+  EC2InstanceCpuOptions+  { _eC2InstanceCpuOptionsCoreCount = Nothing+  , _eC2InstanceCpuOptionsThreadsPerCore = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance-cpuoptions.html#cfn-ec2-instance-cpuoptions-corecount+ecicoCoreCount :: Lens' EC2InstanceCpuOptions (Maybe (Val Integer))+ecicoCoreCount = lens _eC2InstanceCpuOptionsCoreCount (\s a -> s { _eC2InstanceCpuOptionsCoreCount = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance-cpuoptions.html#cfn-ec2-instance-cpuoptions-threadspercore+ecicoThreadsPerCore :: Lens' EC2InstanceCpuOptions (Maybe (Val Integer))+ecicoThreadsPerCore = lens _eC2InstanceCpuOptionsThreadsPerCore (\s a -> s { _eC2InstanceCpuOptionsThreadsPerCore = a })
library-gen/Stratosphere/ResourceProperties/EC2InstanceEbs.hs view
@@ -17,6 +17,7 @@   { _eC2InstanceEbsDeleteOnTermination :: Maybe (Val Bool)   , _eC2InstanceEbsEncrypted :: Maybe (Val Bool)   , _eC2InstanceEbsIops :: Maybe (Val Integer)+  , _eC2InstanceEbsKmsKeyId :: Maybe (Val Text)   , _eC2InstanceEbsSnapshotId :: Maybe (Val Text)   , _eC2InstanceEbsVolumeSize :: Maybe (Val Integer)   , _eC2InstanceEbsVolumeType :: Maybe (Val Text)@@ -29,6 +30,7 @@     [ fmap (("DeleteOnTermination",) . toJSON) _eC2InstanceEbsDeleteOnTermination     , fmap (("Encrypted",) . toJSON) _eC2InstanceEbsEncrypted     , fmap (("Iops",) . toJSON) _eC2InstanceEbsIops+    , fmap (("KmsKeyId",) . toJSON) _eC2InstanceEbsKmsKeyId     , fmap (("SnapshotId",) . toJSON) _eC2InstanceEbsSnapshotId     , fmap (("VolumeSize",) . toJSON) _eC2InstanceEbsVolumeSize     , fmap (("VolumeType",) . toJSON) _eC2InstanceEbsVolumeType@@ -42,6 +44,7 @@   { _eC2InstanceEbsDeleteOnTermination = Nothing   , _eC2InstanceEbsEncrypted = Nothing   , _eC2InstanceEbsIops = Nothing+  , _eC2InstanceEbsKmsKeyId = Nothing   , _eC2InstanceEbsSnapshotId = Nothing   , _eC2InstanceEbsVolumeSize = Nothing   , _eC2InstanceEbsVolumeType = Nothing@@ -58,6 +61,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-blockdev-template.html#cfn-ec2-blockdev-template-iops ecieIops :: Lens' EC2InstanceEbs (Maybe (Val Integer)) ecieIops = lens _eC2InstanceEbsIops (\s a -> s { _eC2InstanceEbsIops = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-blockdev-template.html#cfn-ec2-instance-ebs-kmskeyid+ecieKmsKeyId :: Lens' EC2InstanceEbs (Maybe (Val Text))+ecieKmsKeyId = lens _eC2InstanceEbsKmsKeyId (\s a -> s { _eC2InstanceEbsKmsKeyId = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-blockdev-template.html#cfn-ec2-blockdev-template-snapshotid ecieSnapshotId :: Lens' EC2InstanceEbs (Maybe (Val Text))
library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionContainerDefinition.hs view
@@ -19,6 +19,7 @@ import Stratosphere.ResourceProperties.ECSTaskDefinitionRepositoryCredentials import Stratosphere.ResourceProperties.ECSTaskDefinitionResourceRequirement import Stratosphere.ResourceProperties.ECSTaskDefinitionSecret+import Stratosphere.ResourceProperties.ECSTaskDefinitionSystemControl import Stratosphere.ResourceProperties.ECSTaskDefinitionUlimit import Stratosphere.ResourceProperties.ECSTaskDefinitionVolumeFrom @@ -41,6 +42,7 @@   , _eCSTaskDefinitionContainerDefinitionHealthCheck :: Maybe ECSTaskDefinitionHealthCheck   , _eCSTaskDefinitionContainerDefinitionHostname :: Maybe (Val Text)   , _eCSTaskDefinitionContainerDefinitionImage :: Val Text+  , _eCSTaskDefinitionContainerDefinitionInteractive :: Maybe (Val Bool)   , _eCSTaskDefinitionContainerDefinitionLinks :: Maybe (ValList Text)   , _eCSTaskDefinitionContainerDefinitionLinuxParameters :: Maybe ECSTaskDefinitionLinuxParameters   , _eCSTaskDefinitionContainerDefinitionLogConfiguration :: Maybe ECSTaskDefinitionLogConfiguration@@ -50,12 +52,14 @@   , _eCSTaskDefinitionContainerDefinitionName :: Val Text   , _eCSTaskDefinitionContainerDefinitionPortMappings :: Maybe [ECSTaskDefinitionPortMapping]   , _eCSTaskDefinitionContainerDefinitionPrivileged :: Maybe (Val Bool)+  , _eCSTaskDefinitionContainerDefinitionPseudoTerminal :: Maybe (Val Bool)   , _eCSTaskDefinitionContainerDefinitionReadonlyRootFilesystem :: Maybe (Val Bool)   , _eCSTaskDefinitionContainerDefinitionRepositoryCredentials :: Maybe ECSTaskDefinitionRepositoryCredentials   , _eCSTaskDefinitionContainerDefinitionResourceRequirements :: Maybe [ECSTaskDefinitionResourceRequirement]   , _eCSTaskDefinitionContainerDefinitionSecrets :: Maybe [ECSTaskDefinitionSecret]   , _eCSTaskDefinitionContainerDefinitionStartTimeout :: Maybe (Val Integer)   , _eCSTaskDefinitionContainerDefinitionStopTimeout :: Maybe (Val Integer)+  , _eCSTaskDefinitionContainerDefinitionSystemControls :: Maybe [ECSTaskDefinitionSystemControl]   , _eCSTaskDefinitionContainerDefinitionUlimits :: Maybe [ECSTaskDefinitionUlimit]   , _eCSTaskDefinitionContainerDefinitionUser :: Maybe (Val Text)   , _eCSTaskDefinitionContainerDefinitionVolumesFrom :: Maybe [ECSTaskDefinitionVolumeFrom]@@ -81,6 +85,7 @@     , fmap (("HealthCheck",) . toJSON) _eCSTaskDefinitionContainerDefinitionHealthCheck     , fmap (("Hostname",) . toJSON) _eCSTaskDefinitionContainerDefinitionHostname     , (Just . ("Image",) . toJSON) _eCSTaskDefinitionContainerDefinitionImage+    , fmap (("Interactive",) . toJSON) _eCSTaskDefinitionContainerDefinitionInteractive     , fmap (("Links",) . toJSON) _eCSTaskDefinitionContainerDefinitionLinks     , fmap (("LinuxParameters",) . toJSON) _eCSTaskDefinitionContainerDefinitionLinuxParameters     , fmap (("LogConfiguration",) . toJSON) _eCSTaskDefinitionContainerDefinitionLogConfiguration@@ -90,12 +95,14 @@     , (Just . ("Name",) . toJSON) _eCSTaskDefinitionContainerDefinitionName     , fmap (("PortMappings",) . toJSON) _eCSTaskDefinitionContainerDefinitionPortMappings     , fmap (("Privileged",) . toJSON) _eCSTaskDefinitionContainerDefinitionPrivileged+    , fmap (("PseudoTerminal",) . toJSON) _eCSTaskDefinitionContainerDefinitionPseudoTerminal     , fmap (("ReadonlyRootFilesystem",) . toJSON) _eCSTaskDefinitionContainerDefinitionReadonlyRootFilesystem     , fmap (("RepositoryCredentials",) . toJSON) _eCSTaskDefinitionContainerDefinitionRepositoryCredentials     , fmap (("ResourceRequirements",) . toJSON) _eCSTaskDefinitionContainerDefinitionResourceRequirements     , fmap (("Secrets",) . toJSON) _eCSTaskDefinitionContainerDefinitionSecrets     , fmap (("StartTimeout",) . toJSON) _eCSTaskDefinitionContainerDefinitionStartTimeout     , fmap (("StopTimeout",) . toJSON) _eCSTaskDefinitionContainerDefinitionStopTimeout+    , fmap (("SystemControls",) . toJSON) _eCSTaskDefinitionContainerDefinitionSystemControls     , fmap (("Ulimits",) . toJSON) _eCSTaskDefinitionContainerDefinitionUlimits     , fmap (("User",) . toJSON) _eCSTaskDefinitionContainerDefinitionUser     , fmap (("VolumesFrom",) . toJSON) _eCSTaskDefinitionContainerDefinitionVolumesFrom@@ -125,6 +132,7 @@   , _eCSTaskDefinitionContainerDefinitionHealthCheck = Nothing   , _eCSTaskDefinitionContainerDefinitionHostname = Nothing   , _eCSTaskDefinitionContainerDefinitionImage = imagearg+  , _eCSTaskDefinitionContainerDefinitionInteractive = Nothing   , _eCSTaskDefinitionContainerDefinitionLinks = Nothing   , _eCSTaskDefinitionContainerDefinitionLinuxParameters = Nothing   , _eCSTaskDefinitionContainerDefinitionLogConfiguration = Nothing@@ -134,12 +142,14 @@   , _eCSTaskDefinitionContainerDefinitionName = namearg   , _eCSTaskDefinitionContainerDefinitionPortMappings = Nothing   , _eCSTaskDefinitionContainerDefinitionPrivileged = Nothing+  , _eCSTaskDefinitionContainerDefinitionPseudoTerminal = Nothing   , _eCSTaskDefinitionContainerDefinitionReadonlyRootFilesystem = Nothing   , _eCSTaskDefinitionContainerDefinitionRepositoryCredentials = Nothing   , _eCSTaskDefinitionContainerDefinitionResourceRequirements = Nothing   , _eCSTaskDefinitionContainerDefinitionSecrets = Nothing   , _eCSTaskDefinitionContainerDefinitionStartTimeout = Nothing   , _eCSTaskDefinitionContainerDefinitionStopTimeout = Nothing+  , _eCSTaskDefinitionContainerDefinitionSystemControls = Nothing   , _eCSTaskDefinitionContainerDefinitionUlimits = Nothing   , _eCSTaskDefinitionContainerDefinitionUser = Nothing   , _eCSTaskDefinitionContainerDefinitionVolumesFrom = Nothing@@ -206,6 +216,10 @@ ecstdcdImage :: Lens' ECSTaskDefinitionContainerDefinition (Val Text) ecstdcdImage = lens _eCSTaskDefinitionContainerDefinitionImage (\s a -> s { _eCSTaskDefinitionContainerDefinitionImage = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-interactive+ecstdcdInteractive :: Lens' ECSTaskDefinitionContainerDefinition (Maybe (Val Bool))+ecstdcdInteractive = lens _eCSTaskDefinitionContainerDefinitionInteractive (\s a -> s { _eCSTaskDefinitionContainerDefinitionInteractive = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-links ecstdcdLinks :: Lens' ECSTaskDefinitionContainerDefinition (Maybe (ValList Text)) ecstdcdLinks = lens _eCSTaskDefinitionContainerDefinitionLinks (\s a -> s { _eCSTaskDefinitionContainerDefinitionLinks = a })@@ -242,6 +256,10 @@ ecstdcdPrivileged :: Lens' ECSTaskDefinitionContainerDefinition (Maybe (Val Bool)) ecstdcdPrivileged = lens _eCSTaskDefinitionContainerDefinitionPrivileged (\s a -> s { _eCSTaskDefinitionContainerDefinitionPrivileged = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-pseudoterminal+ecstdcdPseudoTerminal :: Lens' ECSTaskDefinitionContainerDefinition (Maybe (Val Bool))+ecstdcdPseudoTerminal = lens _eCSTaskDefinitionContainerDefinitionPseudoTerminal (\s a -> s { _eCSTaskDefinitionContainerDefinitionPseudoTerminal = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-readonlyrootfilesystem ecstdcdReadonlyRootFilesystem :: Lens' ECSTaskDefinitionContainerDefinition (Maybe (Val Bool)) ecstdcdReadonlyRootFilesystem = lens _eCSTaskDefinitionContainerDefinitionReadonlyRootFilesystem (\s a -> s { _eCSTaskDefinitionContainerDefinitionReadonlyRootFilesystem = a })@@ -265,6 +283,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-stoptimeout ecstdcdStopTimeout :: Lens' ECSTaskDefinitionContainerDefinition (Maybe (Val Integer)) ecstdcdStopTimeout = lens _eCSTaskDefinitionContainerDefinitionStopTimeout (\s a -> s { _eCSTaskDefinitionContainerDefinitionStopTimeout = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-systemcontrols+ecstdcdSystemControls :: Lens' ECSTaskDefinitionContainerDefinition (Maybe [ECSTaskDefinitionSystemControl])+ecstdcdSystemControls = lens _eCSTaskDefinitionContainerDefinitionSystemControls (\s a -> s { _eCSTaskDefinitionContainerDefinitionSystemControls = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-ulimits ecstdcdUlimits :: Lens' ECSTaskDefinitionContainerDefinition (Maybe [ECSTaskDefinitionUlimit])
library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionLogConfiguration.hs view
@@ -8,7 +8,7 @@ module Stratosphere.ResourceProperties.ECSTaskDefinitionLogConfiguration where  import Stratosphere.ResourceImports-+import Stratosphere.ResourceProperties.ECSTaskDefinitionSecret  -- | Full data type definition for ECSTaskDefinitionLogConfiguration. See -- 'ecsTaskDefinitionLogConfiguration' for a more convenient constructor.@@ -16,6 +16,7 @@   ECSTaskDefinitionLogConfiguration   { _eCSTaskDefinitionLogConfigurationLogDriver :: Val Text   , _eCSTaskDefinitionLogConfigurationOptions :: Maybe Object+  , _eCSTaskDefinitionLogConfigurationSecretOptions :: Maybe [ECSTaskDefinitionSecret]   } deriving (Show, Eq)  instance ToJSON ECSTaskDefinitionLogConfiguration where@@ -24,6 +25,7 @@     catMaybes     [ (Just . ("LogDriver",) . toJSON) _eCSTaskDefinitionLogConfigurationLogDriver     , fmap (("Options",) . toJSON) _eCSTaskDefinitionLogConfigurationOptions+    , fmap (("SecretOptions",) . toJSON) _eCSTaskDefinitionLogConfigurationSecretOptions     ]  -- | Constructor for 'ECSTaskDefinitionLogConfiguration' containing required@@ -35,6 +37,7 @@   ECSTaskDefinitionLogConfiguration   { _eCSTaskDefinitionLogConfigurationLogDriver = logDriverarg   , _eCSTaskDefinitionLogConfigurationOptions = Nothing+  , _eCSTaskDefinitionLogConfigurationSecretOptions = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions-logconfiguration.html#cfn-ecs-taskdefinition-containerdefinition-logconfiguration-logdriver@@ -44,3 +47,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions-logconfiguration.html#cfn-ecs-taskdefinition-containerdefinition-logconfiguration-options ecstdlcOptions :: Lens' ECSTaskDefinitionLogConfiguration (Maybe Object) ecstdlcOptions = lens _eCSTaskDefinitionLogConfigurationOptions (\s a -> s { _eCSTaskDefinitionLogConfigurationOptions = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions-logconfiguration.html#cfn-ecs-taskdefinition-logconfiguration-secretoptions+ecstdlcSecretOptions :: Lens' ECSTaskDefinitionLogConfiguration (Maybe [ECSTaskDefinitionSecret])+ecstdlcSecretOptions = lens _eCSTaskDefinitionLogConfigurationSecretOptions (\s a -> s { _eCSTaskDefinitionLogConfigurationSecretOptions = a })
+ library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionSystemControl.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-systemcontrol.html++module Stratosphere.ResourceProperties.ECSTaskDefinitionSystemControl where++import Stratosphere.ResourceImports+++-- | Full data type definition for ECSTaskDefinitionSystemControl. See+-- 'ecsTaskDefinitionSystemControl' for a more convenient constructor.+data ECSTaskDefinitionSystemControl =+  ECSTaskDefinitionSystemControl+  { _eCSTaskDefinitionSystemControlNamespace :: Val Text+  , _eCSTaskDefinitionSystemControlValue :: Val Text+  } deriving (Show, Eq)++instance ToJSON ECSTaskDefinitionSystemControl where+  toJSON ECSTaskDefinitionSystemControl{..} =+    object $+    catMaybes+    [ (Just . ("Namespace",) . toJSON) _eCSTaskDefinitionSystemControlNamespace+    , (Just . ("Value",) . toJSON) _eCSTaskDefinitionSystemControlValue+    ]++-- | Constructor for 'ECSTaskDefinitionSystemControl' containing required+-- fields as arguments.+ecsTaskDefinitionSystemControl+  :: Val Text -- ^ 'ecstdscNamespace'+  -> Val Text -- ^ 'ecstdscValue'+  -> ECSTaskDefinitionSystemControl+ecsTaskDefinitionSystemControl namespacearg valuearg =+  ECSTaskDefinitionSystemControl+  { _eCSTaskDefinitionSystemControlNamespace = namespacearg+  , _eCSTaskDefinitionSystemControlValue = valuearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-systemcontrol.html#cfn-ecs-taskdefinition-systemcontrol-namespace+ecstdscNamespace :: Lens' ECSTaskDefinitionSystemControl (Val Text)+ecstdscNamespace = lens _eCSTaskDefinitionSystemControlNamespace (\s a -> s { _eCSTaskDefinitionSystemControlNamespace = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-systemcontrol.html#cfn-ecs-taskdefinition-systemcontrol-value+ecstdscValue :: Lens' ECSTaskDefinitionSystemControl (Val Text)+ecstdscValue = lens _eCSTaskDefinitionSystemControlValue (\s a -> s { _eCSTaskDefinitionSystemControlValue = a })
library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionTmpfs.hs view
@@ -16,7 +16,7 @@   ECSTaskDefinitionTmpfs   { _eCSTaskDefinitionTmpfsContainerPath :: Maybe (Val Text)   , _eCSTaskDefinitionTmpfsMountOptions :: Maybe (ValList Text)-  , _eCSTaskDefinitionTmpfsSize :: Maybe (Val Integer)+  , _eCSTaskDefinitionTmpfsSize :: Val Integer   } deriving (Show, Eq)  instance ToJSON ECSTaskDefinitionTmpfs where@@ -25,18 +25,19 @@     catMaybes     [ fmap (("ContainerPath",) . toJSON) _eCSTaskDefinitionTmpfsContainerPath     , fmap (("MountOptions",) . toJSON) _eCSTaskDefinitionTmpfsMountOptions-    , fmap (("Size",) . toJSON) _eCSTaskDefinitionTmpfsSize+    , (Just . ("Size",) . toJSON) _eCSTaskDefinitionTmpfsSize     ]  -- | Constructor for 'ECSTaskDefinitionTmpfs' containing required fields as -- arguments. ecsTaskDefinitionTmpfs-  :: ECSTaskDefinitionTmpfs-ecsTaskDefinitionTmpfs  =+  :: Val Integer -- ^ 'ecstdtSize'+  -> ECSTaskDefinitionTmpfs+ecsTaskDefinitionTmpfs sizearg =   ECSTaskDefinitionTmpfs   { _eCSTaskDefinitionTmpfsContainerPath = Nothing   , _eCSTaskDefinitionTmpfsMountOptions = Nothing-  , _eCSTaskDefinitionTmpfsSize = Nothing+  , _eCSTaskDefinitionTmpfsSize = sizearg   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-tmpfs.html#cfn-ecs-taskdefinition-tmpfs-containerpath@@ -48,5 +49,5 @@ ecstdtMountOptions = lens _eCSTaskDefinitionTmpfsMountOptions (\s a -> s { _eCSTaskDefinitionTmpfsMountOptions = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-tmpfs.html#cfn-ecs-taskdefinition-tmpfs-size-ecstdtSize :: Lens' ECSTaskDefinitionTmpfs (Maybe (Val Integer))+ecstdtSize :: Lens' ECSTaskDefinitionTmpfs (Val Integer) ecstdtSize = lens _eCSTaskDefinitionTmpfsSize (\s a -> s { _eCSTaskDefinitionTmpfsSize = a })
library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainElasticsearchClusterConfig.hs view
@@ -8,7 +8,7 @@ module Stratosphere.ResourceProperties.ElasticsearchDomainElasticsearchClusterConfig where  import Stratosphere.ResourceImports-+import Stratosphere.ResourceProperties.ElasticsearchDomainZoneAwarenessConfig  -- | Full data type definition for -- ElasticsearchDomainElasticsearchClusterConfig. See@@ -21,6 +21,7 @@   , _elasticsearchDomainElasticsearchClusterConfigDedicatedMasterType :: Maybe (Val Text)   , _elasticsearchDomainElasticsearchClusterConfigInstanceCount :: Maybe (Val Integer)   , _elasticsearchDomainElasticsearchClusterConfigInstanceType :: Maybe (Val Text)+  , _elasticsearchDomainElasticsearchClusterConfigZoneAwarenessConfig :: Maybe ElasticsearchDomainZoneAwarenessConfig   , _elasticsearchDomainElasticsearchClusterConfigZoneAwarenessEnabled :: Maybe (Val Bool)   } deriving (Show, Eq) @@ -33,6 +34,7 @@     , fmap (("DedicatedMasterType",) . toJSON) _elasticsearchDomainElasticsearchClusterConfigDedicatedMasterType     , fmap (("InstanceCount",) . toJSON) _elasticsearchDomainElasticsearchClusterConfigInstanceCount     , fmap (("InstanceType",) . toJSON) _elasticsearchDomainElasticsearchClusterConfigInstanceType+    , fmap (("ZoneAwarenessConfig",) . toJSON) _elasticsearchDomainElasticsearchClusterConfigZoneAwarenessConfig     , fmap (("ZoneAwarenessEnabled",) . toJSON) _elasticsearchDomainElasticsearchClusterConfigZoneAwarenessEnabled     ] @@ -47,6 +49,7 @@   , _elasticsearchDomainElasticsearchClusterConfigDedicatedMasterType = Nothing   , _elasticsearchDomainElasticsearchClusterConfigInstanceCount = Nothing   , _elasticsearchDomainElasticsearchClusterConfigInstanceType = Nothing+  , _elasticsearchDomainElasticsearchClusterConfigZoneAwarenessConfig = Nothing   , _elasticsearchDomainElasticsearchClusterConfigZoneAwarenessEnabled = Nothing   } @@ -69,6 +72,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-elasticsearchclusterconfig.html#cfn-elasticsearch-domain-elasticseachclusterconfig-instnacetype edeccInstanceType :: Lens' ElasticsearchDomainElasticsearchClusterConfig (Maybe (Val Text)) edeccInstanceType = lens _elasticsearchDomainElasticsearchClusterConfigInstanceType (\s a -> s { _elasticsearchDomainElasticsearchClusterConfigInstanceType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-elasticsearchclusterconfig.html#cfn-elasticsearch-domain-elasticsearchclusterconfig-zoneawarenessconfig+edeccZoneAwarenessConfig :: Lens' ElasticsearchDomainElasticsearchClusterConfig (Maybe ElasticsearchDomainZoneAwarenessConfig)+edeccZoneAwarenessConfig = lens _elasticsearchDomainElasticsearchClusterConfigZoneAwarenessConfig (\s a -> s { _elasticsearchDomainElasticsearchClusterConfigZoneAwarenessConfig = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-elasticsearchclusterconfig.html#cfn-elasticsearch-domain-elasticseachclusterconfig-zoneawarenessenabled edeccZoneAwarenessEnabled :: Lens' ElasticsearchDomainElasticsearchClusterConfig (Maybe (Val Bool))
+ library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainZoneAwarenessConfig.hs view
@@ -0,0 +1,39 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-zoneawarenessconfig.html++module Stratosphere.ResourceProperties.ElasticsearchDomainZoneAwarenessConfig where++import Stratosphere.ResourceImports+++-- | Full data type definition for ElasticsearchDomainZoneAwarenessConfig. See+-- 'elasticsearchDomainZoneAwarenessConfig' for a more convenient+-- constructor.+data ElasticsearchDomainZoneAwarenessConfig =+  ElasticsearchDomainZoneAwarenessConfig+  { _elasticsearchDomainZoneAwarenessConfigAvailabilityZoneCount :: Maybe (Val Integer)+  } deriving (Show, Eq)++instance ToJSON ElasticsearchDomainZoneAwarenessConfig where+  toJSON ElasticsearchDomainZoneAwarenessConfig{..} =+    object $+    catMaybes+    [ fmap (("AvailabilityZoneCount",) . toJSON) _elasticsearchDomainZoneAwarenessConfigAvailabilityZoneCount+    ]++-- | Constructor for 'ElasticsearchDomainZoneAwarenessConfig' containing+-- required fields as arguments.+elasticsearchDomainZoneAwarenessConfig+  :: ElasticsearchDomainZoneAwarenessConfig+elasticsearchDomainZoneAwarenessConfig  =+  ElasticsearchDomainZoneAwarenessConfig+  { _elasticsearchDomainZoneAwarenessConfigAvailabilityZoneCount = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-zoneawarenessconfig.html#cfn-elasticsearch-domain-zoneawarenessconfig-availabilityzonecount+edzacAvailabilityZoneCount :: Lens' ElasticsearchDomainZoneAwarenessConfig (Maybe (Val Integer))+edzacAvailabilityZoneCount = lens _elasticsearchDomainZoneAwarenessConfigAvailabilityZoneCount (\s a -> s { _elasticsearchDomainZoneAwarenessConfigAvailabilityZoneCount = a })
+ library-gen/Stratosphere/ResourceProperties/EventsRuleAwsVpcConfiguration.hs view
@@ -0,0 +1,53 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-awsvpcconfiguration.html++module Stratosphere.ResourceProperties.EventsRuleAwsVpcConfiguration where++import Stratosphere.ResourceImports+++-- | Full data type definition for EventsRuleAwsVpcConfiguration. See+-- 'eventsRuleAwsVpcConfiguration' for a more convenient constructor.+data EventsRuleAwsVpcConfiguration =+  EventsRuleAwsVpcConfiguration+  { _eventsRuleAwsVpcConfigurationAssignPublicIp :: Maybe (Val Text)+  , _eventsRuleAwsVpcConfigurationSecurityGroups :: Maybe (ValList Text)+  , _eventsRuleAwsVpcConfigurationSubnets :: ValList Text+  } deriving (Show, Eq)++instance ToJSON EventsRuleAwsVpcConfiguration where+  toJSON EventsRuleAwsVpcConfiguration{..} =+    object $+    catMaybes+    [ fmap (("AssignPublicIp",) . toJSON) _eventsRuleAwsVpcConfigurationAssignPublicIp+    , fmap (("SecurityGroups",) . toJSON) _eventsRuleAwsVpcConfigurationSecurityGroups+    , (Just . ("Subnets",) . toJSON) _eventsRuleAwsVpcConfigurationSubnets+    ]++-- | Constructor for 'EventsRuleAwsVpcConfiguration' containing required+-- fields as arguments.+eventsRuleAwsVpcConfiguration+  :: ValList Text -- ^ 'eravcSubnets'+  -> EventsRuleAwsVpcConfiguration+eventsRuleAwsVpcConfiguration subnetsarg =+  EventsRuleAwsVpcConfiguration+  { _eventsRuleAwsVpcConfigurationAssignPublicIp = Nothing+  , _eventsRuleAwsVpcConfigurationSecurityGroups = Nothing+  , _eventsRuleAwsVpcConfigurationSubnets = subnetsarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-awsvpcconfiguration.html#cfn-events-rule-awsvpcconfiguration-assignpublicip+eravcAssignPublicIp :: Lens' EventsRuleAwsVpcConfiguration (Maybe (Val Text))+eravcAssignPublicIp = lens _eventsRuleAwsVpcConfigurationAssignPublicIp (\s a -> s { _eventsRuleAwsVpcConfigurationAssignPublicIp = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-awsvpcconfiguration.html#cfn-events-rule-awsvpcconfiguration-securitygroups+eravcSecurityGroups :: Lens' EventsRuleAwsVpcConfiguration (Maybe (ValList Text))+eravcSecurityGroups = lens _eventsRuleAwsVpcConfigurationSecurityGroups (\s a -> s { _eventsRuleAwsVpcConfigurationSecurityGroups = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-awsvpcconfiguration.html#cfn-events-rule-awsvpcconfiguration-subnets+eravcSubnets :: Lens' EventsRuleAwsVpcConfiguration (ValList Text)+eravcSubnets = lens _eventsRuleAwsVpcConfigurationSubnets (\s a -> s { _eventsRuleAwsVpcConfigurationSubnets = a })
library-gen/Stratosphere/ResourceProperties/EventsRuleEcsParameters.hs view
@@ -8,13 +8,17 @@ module Stratosphere.ResourceProperties.EventsRuleEcsParameters where  import Stratosphere.ResourceImports-+import Stratosphere.ResourceProperties.EventsRuleNetworkConfiguration  -- | Full data type definition for EventsRuleEcsParameters. See -- 'eventsRuleEcsParameters' for a more convenient constructor. data EventsRuleEcsParameters =   EventsRuleEcsParameters-  { _eventsRuleEcsParametersTaskCount :: Maybe (Val Integer)+  { _eventsRuleEcsParametersGroup :: Maybe (Val Text)+  , _eventsRuleEcsParametersLaunchType :: Maybe (Val Text)+  , _eventsRuleEcsParametersNetworkConfiguration :: Maybe EventsRuleNetworkConfiguration+  , _eventsRuleEcsParametersPlatformVersion :: Maybe (Val Text)+  , _eventsRuleEcsParametersTaskCount :: Maybe (Val Integer)   , _eventsRuleEcsParametersTaskDefinitionArn :: Val Text   } deriving (Show, Eq) @@ -22,7 +26,11 @@   toJSON EventsRuleEcsParameters{..} =     object $     catMaybes-    [ fmap (("TaskCount",) . toJSON) _eventsRuleEcsParametersTaskCount+    [ fmap (("Group",) . toJSON) _eventsRuleEcsParametersGroup+    , fmap (("LaunchType",) . toJSON) _eventsRuleEcsParametersLaunchType+    , fmap (("NetworkConfiguration",) . toJSON) _eventsRuleEcsParametersNetworkConfiguration+    , fmap (("PlatformVersion",) . toJSON) _eventsRuleEcsParametersPlatformVersion+    , fmap (("TaskCount",) . toJSON) _eventsRuleEcsParametersTaskCount     , (Just . ("TaskDefinitionArn",) . toJSON) _eventsRuleEcsParametersTaskDefinitionArn     ] @@ -33,9 +41,29 @@   -> EventsRuleEcsParameters eventsRuleEcsParameters taskDefinitionArnarg =   EventsRuleEcsParameters-  { _eventsRuleEcsParametersTaskCount = Nothing+  { _eventsRuleEcsParametersGroup = Nothing+  , _eventsRuleEcsParametersLaunchType = Nothing+  , _eventsRuleEcsParametersNetworkConfiguration = Nothing+  , _eventsRuleEcsParametersPlatformVersion = Nothing+  , _eventsRuleEcsParametersTaskCount = Nothing   , _eventsRuleEcsParametersTaskDefinitionArn = taskDefinitionArnarg   }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-ecsparameters.html#cfn-events-rule-ecsparameters-group+erepGroup :: Lens' EventsRuleEcsParameters (Maybe (Val Text))+erepGroup = lens _eventsRuleEcsParametersGroup (\s a -> s { _eventsRuleEcsParametersGroup = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-ecsparameters.html#cfn-events-rule-ecsparameters-launchtype+erepLaunchType :: Lens' EventsRuleEcsParameters (Maybe (Val Text))+erepLaunchType = lens _eventsRuleEcsParametersLaunchType (\s a -> s { _eventsRuleEcsParametersLaunchType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-ecsparameters.html#cfn-events-rule-ecsparameters-networkconfiguration+erepNetworkConfiguration :: Lens' EventsRuleEcsParameters (Maybe EventsRuleNetworkConfiguration)+erepNetworkConfiguration = lens _eventsRuleEcsParametersNetworkConfiguration (\s a -> s { _eventsRuleEcsParametersNetworkConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-ecsparameters.html#cfn-events-rule-ecsparameters-platformversion+erepPlatformVersion :: Lens' EventsRuleEcsParameters (Maybe (Val Text))+erepPlatformVersion = lens _eventsRuleEcsParametersPlatformVersion (\s a -> s { _eventsRuleEcsParametersPlatformVersion = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-ecsparameters.html#cfn-events-rule-ecsparameters-taskcount erepTaskCount :: Lens' EventsRuleEcsParameters (Maybe (Val Integer))
+ library-gen/Stratosphere/ResourceProperties/EventsRuleNetworkConfiguration.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-networkconfiguration.html++module Stratosphere.ResourceProperties.EventsRuleNetworkConfiguration where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.EventsRuleAwsVpcConfiguration++-- | Full data type definition for EventsRuleNetworkConfiguration. See+-- 'eventsRuleNetworkConfiguration' for a more convenient constructor.+data EventsRuleNetworkConfiguration =+  EventsRuleNetworkConfiguration+  { _eventsRuleNetworkConfigurationAwsVpcConfiguration :: Maybe EventsRuleAwsVpcConfiguration+  } deriving (Show, Eq)++instance ToJSON EventsRuleNetworkConfiguration where+  toJSON EventsRuleNetworkConfiguration{..} =+    object $+    catMaybes+    [ fmap (("AwsVpcConfiguration",) . toJSON) _eventsRuleNetworkConfigurationAwsVpcConfiguration+    ]++-- | Constructor for 'EventsRuleNetworkConfiguration' containing required+-- fields as arguments.+eventsRuleNetworkConfiguration+  :: EventsRuleNetworkConfiguration+eventsRuleNetworkConfiguration  =+  EventsRuleNetworkConfiguration+  { _eventsRuleNetworkConfigurationAwsVpcConfiguration = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-networkconfiguration.html#cfn-events-rule-networkconfiguration-awsvpcconfiguration+erncAwsVpcConfiguration :: Lens' EventsRuleNetworkConfiguration (Maybe EventsRuleAwsVpcConfiguration)+erncAwsVpcConfiguration = lens _eventsRuleNetworkConfigurationAwsVpcConfiguration (\s a -> s { _eventsRuleNetworkConfigurationAwsVpcConfiguration = a })
+ library-gen/Stratosphere/ResourceProperties/GlueMLTransformFindMatchesParameters.hs view
@@ -0,0 +1,60 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-mltransform-transformparameters-findmatchesparameters.html++module Stratosphere.ResourceProperties.GlueMLTransformFindMatchesParameters where++import Stratosphere.ResourceImports+++-- | Full data type definition for GlueMLTransformFindMatchesParameters. See+-- 'glueMLTransformFindMatchesParameters' for a more convenient constructor.+data GlueMLTransformFindMatchesParameters =+  GlueMLTransformFindMatchesParameters+  { _glueMLTransformFindMatchesParametersAccuracyCostTradeoff :: Maybe (Val Double)+  , _glueMLTransformFindMatchesParametersEnforceProvidedLabels :: Maybe (Val Bool)+  , _glueMLTransformFindMatchesParametersPrecisionRecallTradeoff :: Maybe (Val Double)+  , _glueMLTransformFindMatchesParametersPrimaryKeyColumnName :: Val Text+  } deriving (Show, Eq)++instance ToJSON GlueMLTransformFindMatchesParameters where+  toJSON GlueMLTransformFindMatchesParameters{..} =+    object $+    catMaybes+    [ fmap (("AccuracyCostTradeoff",) . toJSON) _glueMLTransformFindMatchesParametersAccuracyCostTradeoff+    , fmap (("EnforceProvidedLabels",) . toJSON) _glueMLTransformFindMatchesParametersEnforceProvidedLabels+    , fmap (("PrecisionRecallTradeoff",) . toJSON) _glueMLTransformFindMatchesParametersPrecisionRecallTradeoff+    , (Just . ("PrimaryKeyColumnName",) . toJSON) _glueMLTransformFindMatchesParametersPrimaryKeyColumnName+    ]++-- | Constructor for 'GlueMLTransformFindMatchesParameters' containing+-- required fields as arguments.+glueMLTransformFindMatchesParameters+  :: Val Text -- ^ 'gmltfmpPrimaryKeyColumnName'+  -> GlueMLTransformFindMatchesParameters+glueMLTransformFindMatchesParameters primaryKeyColumnNamearg =+  GlueMLTransformFindMatchesParameters+  { _glueMLTransformFindMatchesParametersAccuracyCostTradeoff = Nothing+  , _glueMLTransformFindMatchesParametersEnforceProvidedLabels = Nothing+  , _glueMLTransformFindMatchesParametersPrecisionRecallTradeoff = Nothing+  , _glueMLTransformFindMatchesParametersPrimaryKeyColumnName = primaryKeyColumnNamearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-mltransform-transformparameters-findmatchesparameters.html#cfn-glue-mltransform-transformparameters-findmatchesparameters-accuracycosttradeoff+gmltfmpAccuracyCostTradeoff :: Lens' GlueMLTransformFindMatchesParameters (Maybe (Val Double))+gmltfmpAccuracyCostTradeoff = lens _glueMLTransformFindMatchesParametersAccuracyCostTradeoff (\s a -> s { _glueMLTransformFindMatchesParametersAccuracyCostTradeoff = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-mltransform-transformparameters-findmatchesparameters.html#cfn-glue-mltransform-transformparameters-findmatchesparameters-enforceprovidedlabels+gmltfmpEnforceProvidedLabels :: Lens' GlueMLTransformFindMatchesParameters (Maybe (Val Bool))+gmltfmpEnforceProvidedLabels = lens _glueMLTransformFindMatchesParametersEnforceProvidedLabels (\s a -> s { _glueMLTransformFindMatchesParametersEnforceProvidedLabels = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-mltransform-transformparameters-findmatchesparameters.html#cfn-glue-mltransform-transformparameters-findmatchesparameters-precisionrecalltradeoff+gmltfmpPrecisionRecallTradeoff :: Lens' GlueMLTransformFindMatchesParameters (Maybe (Val Double))+gmltfmpPrecisionRecallTradeoff = lens _glueMLTransformFindMatchesParametersPrecisionRecallTradeoff (\s a -> s { _glueMLTransformFindMatchesParametersPrecisionRecallTradeoff = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-mltransform-transformparameters-findmatchesparameters.html#cfn-glue-mltransform-transformparameters-findmatchesparameters-primarykeycolumnname+gmltfmpPrimaryKeyColumnName :: Lens' GlueMLTransformFindMatchesParameters (Val Text)+gmltfmpPrimaryKeyColumnName = lens _glueMLTransformFindMatchesParametersPrimaryKeyColumnName (\s a -> s { _glueMLTransformFindMatchesParametersPrimaryKeyColumnName = a })
+ library-gen/Stratosphere/ResourceProperties/GlueMLTransformGlueTables.hs view
@@ -0,0 +1,61 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-mltransform-inputrecordtables-gluetables.html++module Stratosphere.ResourceProperties.GlueMLTransformGlueTables where++import Stratosphere.ResourceImports+++-- | Full data type definition for GlueMLTransformGlueTables. See+-- 'glueMLTransformGlueTables' for a more convenient constructor.+data GlueMLTransformGlueTables =+  GlueMLTransformGlueTables+  { _glueMLTransformGlueTablesCatalogId :: Maybe (Val Text)+  , _glueMLTransformGlueTablesConnectionName :: Maybe (Val Text)+  , _glueMLTransformGlueTablesDatabaseName :: Val Text+  , _glueMLTransformGlueTablesTableName :: Val Text+  } deriving (Show, Eq)++instance ToJSON GlueMLTransformGlueTables where+  toJSON GlueMLTransformGlueTables{..} =+    object $+    catMaybes+    [ fmap (("CatalogId",) . toJSON) _glueMLTransformGlueTablesCatalogId+    , fmap (("ConnectionName",) . toJSON) _glueMLTransformGlueTablesConnectionName+    , (Just . ("DatabaseName",) . toJSON) _glueMLTransformGlueTablesDatabaseName+    , (Just . ("TableName",) . toJSON) _glueMLTransformGlueTablesTableName+    ]++-- | Constructor for 'GlueMLTransformGlueTables' containing required fields as+-- arguments.+glueMLTransformGlueTables+  :: Val Text -- ^ 'gmltgtDatabaseName'+  -> Val Text -- ^ 'gmltgtTableName'+  -> GlueMLTransformGlueTables+glueMLTransformGlueTables databaseNamearg tableNamearg =+  GlueMLTransformGlueTables+  { _glueMLTransformGlueTablesCatalogId = Nothing+  , _glueMLTransformGlueTablesConnectionName = Nothing+  , _glueMLTransformGlueTablesDatabaseName = databaseNamearg+  , _glueMLTransformGlueTablesTableName = tableNamearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-mltransform-inputrecordtables-gluetables.html#cfn-glue-mltransform-inputrecordtables-gluetables-catalogid+gmltgtCatalogId :: Lens' GlueMLTransformGlueTables (Maybe (Val Text))+gmltgtCatalogId = lens _glueMLTransformGlueTablesCatalogId (\s a -> s { _glueMLTransformGlueTablesCatalogId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-mltransform-inputrecordtables-gluetables.html#cfn-glue-mltransform-inputrecordtables-gluetables-connectionname+gmltgtConnectionName :: Lens' GlueMLTransformGlueTables (Maybe (Val Text))+gmltgtConnectionName = lens _glueMLTransformGlueTablesConnectionName (\s a -> s { _glueMLTransformGlueTablesConnectionName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-mltransform-inputrecordtables-gluetables.html#cfn-glue-mltransform-inputrecordtables-gluetables-databasename+gmltgtDatabaseName :: Lens' GlueMLTransformGlueTables (Val Text)+gmltgtDatabaseName = lens _glueMLTransformGlueTablesDatabaseName (\s a -> s { _glueMLTransformGlueTablesDatabaseName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-mltransform-inputrecordtables-gluetables.html#cfn-glue-mltransform-inputrecordtables-gluetables-tablename+gmltgtTableName :: Lens' GlueMLTransformGlueTables (Val Text)+gmltgtTableName = lens _glueMLTransformGlueTablesTableName (\s a -> s { _glueMLTransformGlueTablesTableName = a })
+ library-gen/Stratosphere/ResourceProperties/GlueMLTransformInputRecordTables.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-mltransform-inputrecordtables.html++module Stratosphere.ResourceProperties.GlueMLTransformInputRecordTables where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.GlueMLTransformGlueTables++-- | Full data type definition for GlueMLTransformInputRecordTables. See+-- 'glueMLTransformInputRecordTables' for a more convenient constructor.+data GlueMLTransformInputRecordTables =+  GlueMLTransformInputRecordTables+  { _glueMLTransformInputRecordTablesGlueTables :: Maybe [GlueMLTransformGlueTables]+  } deriving (Show, Eq)++instance ToJSON GlueMLTransformInputRecordTables where+  toJSON GlueMLTransformInputRecordTables{..} =+    object $+    catMaybes+    [ fmap (("GlueTables",) . toJSON) _glueMLTransformInputRecordTablesGlueTables+    ]++-- | Constructor for 'GlueMLTransformInputRecordTables' containing required+-- fields as arguments.+glueMLTransformInputRecordTables+  :: GlueMLTransformInputRecordTables+glueMLTransformInputRecordTables  =+  GlueMLTransformInputRecordTables+  { _glueMLTransformInputRecordTablesGlueTables = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-mltransform-inputrecordtables.html#cfn-glue-mltransform-inputrecordtables-gluetables+gmltirtGlueTables :: Lens' GlueMLTransformInputRecordTables (Maybe [GlueMLTransformGlueTables])+gmltirtGlueTables = lens _glueMLTransformInputRecordTablesGlueTables (\s a -> s { _glueMLTransformInputRecordTablesGlueTables = a })
+ library-gen/Stratosphere/ResourceProperties/GlueMLTransformTransformParameters.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-mltransform-transformparameters.html++module Stratosphere.ResourceProperties.GlueMLTransformTransformParameters where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.GlueMLTransformFindMatchesParameters++-- | Full data type definition for GlueMLTransformTransformParameters. See+-- 'glueMLTransformTransformParameters' for a more convenient constructor.+data GlueMLTransformTransformParameters =+  GlueMLTransformTransformParameters+  { _glueMLTransformTransformParametersFindMatchesParameters :: Maybe GlueMLTransformFindMatchesParameters+  , _glueMLTransformTransformParametersTransformType :: Val Text+  } deriving (Show, Eq)++instance ToJSON GlueMLTransformTransformParameters where+  toJSON GlueMLTransformTransformParameters{..} =+    object $+    catMaybes+    [ fmap (("FindMatchesParameters",) . toJSON) _glueMLTransformTransformParametersFindMatchesParameters+    , (Just . ("TransformType",) . toJSON) _glueMLTransformTransformParametersTransformType+    ]++-- | Constructor for 'GlueMLTransformTransformParameters' containing required+-- fields as arguments.+glueMLTransformTransformParameters+  :: Val Text -- ^ 'gmlttpTransformType'+  -> GlueMLTransformTransformParameters+glueMLTransformTransformParameters transformTypearg =+  GlueMLTransformTransformParameters+  { _glueMLTransformTransformParametersFindMatchesParameters = Nothing+  , _glueMLTransformTransformParametersTransformType = transformTypearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-mltransform-transformparameters.html#cfn-glue-mltransform-transformparameters-findmatchesparameters+gmlttpFindMatchesParameters :: Lens' GlueMLTransformTransformParameters (Maybe GlueMLTransformFindMatchesParameters)+gmlttpFindMatchesParameters = lens _glueMLTransformTransformParametersFindMatchesParameters (\s a -> s { _glueMLTransformTransformParametersFindMatchesParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-mltransform-transformparameters.html#cfn-glue-mltransform-transformparameters-transformtype+gmlttpTransformType :: Lens' GlueMLTransformTransformParameters (Val Text)+gmlttpTransformType = lens _glueMLTransformTransformParametersTransformType (\s a -> s { _glueMLTransformTransformParametersTransformType = a })
+ library-gen/Stratosphere/ResourceProperties/LakeFormationDataLakeSettingsDataLakePrincipal.hs view
@@ -0,0 +1,40 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lakeformation-datalakesettings-datalakeprincipal.html++module Stratosphere.ResourceProperties.LakeFormationDataLakeSettingsDataLakePrincipal where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- LakeFormationDataLakeSettingsDataLakePrincipal. See+-- 'lakeFormationDataLakeSettingsDataLakePrincipal' for a more convenient+-- constructor.+data LakeFormationDataLakeSettingsDataLakePrincipal =+  LakeFormationDataLakeSettingsDataLakePrincipal+  { _lakeFormationDataLakeSettingsDataLakePrincipalDataLakePrincipalIdentifier :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON LakeFormationDataLakeSettingsDataLakePrincipal where+  toJSON LakeFormationDataLakeSettingsDataLakePrincipal{..} =+    object $+    catMaybes+    [ fmap (("DataLakePrincipalIdentifier",) . toJSON) _lakeFormationDataLakeSettingsDataLakePrincipalDataLakePrincipalIdentifier+    ]++-- | Constructor for 'LakeFormationDataLakeSettingsDataLakePrincipal'+-- containing required fields as arguments.+lakeFormationDataLakeSettingsDataLakePrincipal+  :: LakeFormationDataLakeSettingsDataLakePrincipal+lakeFormationDataLakeSettingsDataLakePrincipal  =+  LakeFormationDataLakeSettingsDataLakePrincipal+  { _lakeFormationDataLakeSettingsDataLakePrincipalDataLakePrincipalIdentifier = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lakeformation-datalakesettings-datalakeprincipal.html#cfn-lakeformation-datalakesettings-datalakeprincipal-datalakeprincipalidentifier+lfdlsdlpDataLakePrincipalIdentifier :: Lens' LakeFormationDataLakeSettingsDataLakePrincipal (Maybe (Val Text))+lfdlsdlpDataLakePrincipalIdentifier = lens _lakeFormationDataLakeSettingsDataLakePrincipalDataLakePrincipalIdentifier (\s a -> s { _lakeFormationDataLakeSettingsDataLakePrincipalDataLakePrincipalIdentifier = a })
+ library-gen/Stratosphere/ResourceProperties/LakeFormationPermissionsDataLakePrincipal.hs view
@@ -0,0 +1,39 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lakeformation-permissions-datalakeprincipal.html++module Stratosphere.ResourceProperties.LakeFormationPermissionsDataLakePrincipal where++import Stratosphere.ResourceImports+++-- | Full data type definition for LakeFormationPermissionsDataLakePrincipal.+-- See 'lakeFormationPermissionsDataLakePrincipal' for a more convenient+-- constructor.+data LakeFormationPermissionsDataLakePrincipal =+  LakeFormationPermissionsDataLakePrincipal+  { _lakeFormationPermissionsDataLakePrincipalDataLakePrincipalIdentifier :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON LakeFormationPermissionsDataLakePrincipal where+  toJSON LakeFormationPermissionsDataLakePrincipal{..} =+    object $+    catMaybes+    [ fmap (("DataLakePrincipalIdentifier",) . toJSON) _lakeFormationPermissionsDataLakePrincipalDataLakePrincipalIdentifier+    ]++-- | Constructor for 'LakeFormationPermissionsDataLakePrincipal' containing+-- required fields as arguments.+lakeFormationPermissionsDataLakePrincipal+  :: LakeFormationPermissionsDataLakePrincipal+lakeFormationPermissionsDataLakePrincipal  =+  LakeFormationPermissionsDataLakePrincipal+  { _lakeFormationPermissionsDataLakePrincipalDataLakePrincipalIdentifier = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lakeformation-permissions-datalakeprincipal.html#cfn-lakeformation-permissions-datalakeprincipal-datalakeprincipalidentifier+lfpdlpDataLakePrincipalIdentifier :: Lens' LakeFormationPermissionsDataLakePrincipal (Maybe (Val Text))+lfpdlpDataLakePrincipalIdentifier = lens _lakeFormationPermissionsDataLakePrincipalDataLakePrincipalIdentifier (\s a -> s { _lakeFormationPermissionsDataLakePrincipalDataLakePrincipalIdentifier = a })
+ library-gen/Stratosphere/ResourceProperties/LakeFormationPermissionsDatabaseResource.hs view
@@ -0,0 +1,39 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lakeformation-permissions-databaseresource.html++module Stratosphere.ResourceProperties.LakeFormationPermissionsDatabaseResource where++import Stratosphere.ResourceImports+++-- | Full data type definition for LakeFormationPermissionsDatabaseResource.+-- See 'lakeFormationPermissionsDatabaseResource' for a more convenient+-- constructor.+data LakeFormationPermissionsDatabaseResource =+  LakeFormationPermissionsDatabaseResource+  { _lakeFormationPermissionsDatabaseResourceName :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON LakeFormationPermissionsDatabaseResource where+  toJSON LakeFormationPermissionsDatabaseResource{..} =+    object $+    catMaybes+    [ fmap (("Name",) . toJSON) _lakeFormationPermissionsDatabaseResourceName+    ]++-- | Constructor for 'LakeFormationPermissionsDatabaseResource' containing+-- required fields as arguments.+lakeFormationPermissionsDatabaseResource+  :: LakeFormationPermissionsDatabaseResource+lakeFormationPermissionsDatabaseResource  =+  LakeFormationPermissionsDatabaseResource+  { _lakeFormationPermissionsDatabaseResourceName = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lakeformation-permissions-databaseresource.html#cfn-lakeformation-permissions-databaseresource-name+lfpdrName :: Lens' LakeFormationPermissionsDatabaseResource (Maybe (Val Text))+lfpdrName = lens _lakeFormationPermissionsDatabaseResourceName (\s a -> s { _lakeFormationPermissionsDatabaseResourceName = a })
+ library-gen/Stratosphere/ResourceProperties/LakeFormationPermissionsResource.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lakeformation-permissions-resource.html++module Stratosphere.ResourceProperties.LakeFormationPermissionsResource where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.LakeFormationPermissionsDatabaseResource+import Stratosphere.ResourceProperties.LakeFormationPermissionsTableResource++-- | Full data type definition for LakeFormationPermissionsResource. See+-- 'lakeFormationPermissionsResource' for a more convenient constructor.+data LakeFormationPermissionsResource =+  LakeFormationPermissionsResource+  { _lakeFormationPermissionsResourceDatabaseResource :: Maybe LakeFormationPermissionsDatabaseResource+  , _lakeFormationPermissionsResourceTableResource :: Maybe LakeFormationPermissionsTableResource+  } deriving (Show, Eq)++instance ToJSON LakeFormationPermissionsResource where+  toJSON LakeFormationPermissionsResource{..} =+    object $+    catMaybes+    [ fmap (("DatabaseResource",) . toJSON) _lakeFormationPermissionsResourceDatabaseResource+    , fmap (("TableResource",) . toJSON) _lakeFormationPermissionsResourceTableResource+    ]++-- | Constructor for 'LakeFormationPermissionsResource' containing required+-- fields as arguments.+lakeFormationPermissionsResource+  :: LakeFormationPermissionsResource+lakeFormationPermissionsResource  =+  LakeFormationPermissionsResource+  { _lakeFormationPermissionsResourceDatabaseResource = Nothing+  , _lakeFormationPermissionsResourceTableResource = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lakeformation-permissions-resource.html#cfn-lakeformation-permissions-resource-databaseresource+lfprDatabaseResource :: Lens' LakeFormationPermissionsResource (Maybe LakeFormationPermissionsDatabaseResource)+lfprDatabaseResource = lens _lakeFormationPermissionsResourceDatabaseResource (\s a -> s { _lakeFormationPermissionsResourceDatabaseResource = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lakeformation-permissions-resource.html#cfn-lakeformation-permissions-resource-tableresource+lfprTableResource :: Lens' LakeFormationPermissionsResource (Maybe LakeFormationPermissionsTableResource)+lfprTableResource = lens _lakeFormationPermissionsResourceTableResource (\s a -> s { _lakeFormationPermissionsResourceTableResource = a })
+ library-gen/Stratosphere/ResourceProperties/LakeFormationPermissionsTableResource.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lakeformation-permissions-tableresource.html++module Stratosphere.ResourceProperties.LakeFormationPermissionsTableResource where++import Stratosphere.ResourceImports+++-- | Full data type definition for LakeFormationPermissionsTableResource. See+-- 'lakeFormationPermissionsTableResource' for a more convenient+-- constructor.+data LakeFormationPermissionsTableResource =+  LakeFormationPermissionsTableResource+  { _lakeFormationPermissionsTableResourceDatabaseName :: Maybe (Val Text)+  , _lakeFormationPermissionsTableResourceName :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON LakeFormationPermissionsTableResource where+  toJSON LakeFormationPermissionsTableResource{..} =+    object $+    catMaybes+    [ fmap (("DatabaseName",) . toJSON) _lakeFormationPermissionsTableResourceDatabaseName+    , fmap (("Name",) . toJSON) _lakeFormationPermissionsTableResourceName+    ]++-- | Constructor for 'LakeFormationPermissionsTableResource' containing+-- required fields as arguments.+lakeFormationPermissionsTableResource+  :: LakeFormationPermissionsTableResource+lakeFormationPermissionsTableResource  =+  LakeFormationPermissionsTableResource+  { _lakeFormationPermissionsTableResourceDatabaseName = Nothing+  , _lakeFormationPermissionsTableResourceName = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lakeformation-permissions-tableresource.html#cfn-lakeformation-permissions-tableresource-databasename+lfptrDatabaseName :: Lens' LakeFormationPermissionsTableResource (Maybe (Val Text))+lfptrDatabaseName = lens _lakeFormationPermissionsTableResourceDatabaseName (\s a -> s { _lakeFormationPermissionsTableResourceDatabaseName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lakeformation-permissions-tableresource.html#cfn-lakeformation-permissions-tableresource-name+lfptrName :: Lens' LakeFormationPermissionsTableResource (Maybe (Val Text))+lfptrName = lens _lakeFormationPermissionsTableResourceName (\s a -> s { _lakeFormationPermissionsTableResourceName = a })
+ library-gen/Stratosphere/ResourceProperties/ManagedBlockchainMemberApprovalThresholdPolicy.hs view
@@ -0,0 +1,54 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-approvalthresholdpolicy.html++module Stratosphere.ResourceProperties.ManagedBlockchainMemberApprovalThresholdPolicy where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- ManagedBlockchainMemberApprovalThresholdPolicy. See+-- 'managedBlockchainMemberApprovalThresholdPolicy' for a more convenient+-- constructor.+data ManagedBlockchainMemberApprovalThresholdPolicy =+  ManagedBlockchainMemberApprovalThresholdPolicy+  { _managedBlockchainMemberApprovalThresholdPolicyProposalDurationInHours :: Maybe (Val Integer)+  , _managedBlockchainMemberApprovalThresholdPolicyThresholdComparator :: Maybe (Val Text)+  , _managedBlockchainMemberApprovalThresholdPolicyThresholdPercentage :: Maybe (Val Integer)+  } deriving (Show, Eq)++instance ToJSON ManagedBlockchainMemberApprovalThresholdPolicy where+  toJSON ManagedBlockchainMemberApprovalThresholdPolicy{..} =+    object $+    catMaybes+    [ fmap (("ProposalDurationInHours",) . toJSON) _managedBlockchainMemberApprovalThresholdPolicyProposalDurationInHours+    , fmap (("ThresholdComparator",) . toJSON) _managedBlockchainMemberApprovalThresholdPolicyThresholdComparator+    , fmap (("ThresholdPercentage",) . toJSON) _managedBlockchainMemberApprovalThresholdPolicyThresholdPercentage+    ]++-- | Constructor for 'ManagedBlockchainMemberApprovalThresholdPolicy'+-- containing required fields as arguments.+managedBlockchainMemberApprovalThresholdPolicy+  :: ManagedBlockchainMemberApprovalThresholdPolicy+managedBlockchainMemberApprovalThresholdPolicy  =+  ManagedBlockchainMemberApprovalThresholdPolicy+  { _managedBlockchainMemberApprovalThresholdPolicyProposalDurationInHours = Nothing+  , _managedBlockchainMemberApprovalThresholdPolicyThresholdComparator = Nothing+  , _managedBlockchainMemberApprovalThresholdPolicyThresholdPercentage = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-approvalthresholdpolicy.html#cfn-managedblockchain-member-approvalthresholdpolicy-proposaldurationinhours+mbmatpProposalDurationInHours :: Lens' ManagedBlockchainMemberApprovalThresholdPolicy (Maybe (Val Integer))+mbmatpProposalDurationInHours = lens _managedBlockchainMemberApprovalThresholdPolicyProposalDurationInHours (\s a -> s { _managedBlockchainMemberApprovalThresholdPolicyProposalDurationInHours = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-approvalthresholdpolicy.html#cfn-managedblockchain-member-approvalthresholdpolicy-thresholdcomparator+mbmatpThresholdComparator :: Lens' ManagedBlockchainMemberApprovalThresholdPolicy (Maybe (Val Text))+mbmatpThresholdComparator = lens _managedBlockchainMemberApprovalThresholdPolicyThresholdComparator (\s a -> s { _managedBlockchainMemberApprovalThresholdPolicyThresholdComparator = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-approvalthresholdpolicy.html#cfn-managedblockchain-member-approvalthresholdpolicy-thresholdpercentage+mbmatpThresholdPercentage :: Lens' ManagedBlockchainMemberApprovalThresholdPolicy (Maybe (Val Integer))+mbmatpThresholdPercentage = lens _managedBlockchainMemberApprovalThresholdPolicyThresholdPercentage (\s a -> s { _managedBlockchainMemberApprovalThresholdPolicyThresholdPercentage = a })
+ library-gen/Stratosphere/ResourceProperties/ManagedBlockchainMemberMemberConfiguration.hs view
@@ -0,0 +1,54 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-memberconfiguration.html++module Stratosphere.ResourceProperties.ManagedBlockchainMemberMemberConfiguration where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.ManagedBlockchainMemberMemberFrameworkConfiguration++-- | Full data type definition for ManagedBlockchainMemberMemberConfiguration.+-- See 'managedBlockchainMemberMemberConfiguration' for a more convenient+-- constructor.+data ManagedBlockchainMemberMemberConfiguration =+  ManagedBlockchainMemberMemberConfiguration+  { _managedBlockchainMemberMemberConfigurationDescription :: Maybe (Val Text)+  , _managedBlockchainMemberMemberConfigurationMemberFrameworkConfiguration :: Maybe ManagedBlockchainMemberMemberFrameworkConfiguration+  , _managedBlockchainMemberMemberConfigurationName :: Val Text+  } deriving (Show, Eq)++instance ToJSON ManagedBlockchainMemberMemberConfiguration where+  toJSON ManagedBlockchainMemberMemberConfiguration{..} =+    object $+    catMaybes+    [ fmap (("Description",) . toJSON) _managedBlockchainMemberMemberConfigurationDescription+    , fmap (("MemberFrameworkConfiguration",) . toJSON) _managedBlockchainMemberMemberConfigurationMemberFrameworkConfiguration+    , (Just . ("Name",) . toJSON) _managedBlockchainMemberMemberConfigurationName+    ]++-- | Constructor for 'ManagedBlockchainMemberMemberConfiguration' containing+-- required fields as arguments.+managedBlockchainMemberMemberConfiguration+  :: Val Text -- ^ 'mbmmcName'+  -> ManagedBlockchainMemberMemberConfiguration+managedBlockchainMemberMemberConfiguration namearg =+  ManagedBlockchainMemberMemberConfiguration+  { _managedBlockchainMemberMemberConfigurationDescription = Nothing+  , _managedBlockchainMemberMemberConfigurationMemberFrameworkConfiguration = Nothing+  , _managedBlockchainMemberMemberConfigurationName = namearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-memberconfiguration.html#cfn-managedblockchain-member-memberconfiguration-description+mbmmcDescription :: Lens' ManagedBlockchainMemberMemberConfiguration (Maybe (Val Text))+mbmmcDescription = lens _managedBlockchainMemberMemberConfigurationDescription (\s a -> s { _managedBlockchainMemberMemberConfigurationDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-memberconfiguration.html#cfn-managedblockchain-member-memberconfiguration-memberframeworkconfiguration+mbmmcMemberFrameworkConfiguration :: Lens' ManagedBlockchainMemberMemberConfiguration (Maybe ManagedBlockchainMemberMemberFrameworkConfiguration)+mbmmcMemberFrameworkConfiguration = lens _managedBlockchainMemberMemberConfigurationMemberFrameworkConfiguration (\s a -> s { _managedBlockchainMemberMemberConfigurationMemberFrameworkConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-memberconfiguration.html#cfn-managedblockchain-member-memberconfiguration-name+mbmmcName :: Lens' ManagedBlockchainMemberMemberConfiguration (Val Text)+mbmmcName = lens _managedBlockchainMemberMemberConfigurationName (\s a -> s { _managedBlockchainMemberMemberConfigurationName = a })
+ library-gen/Stratosphere/ResourceProperties/ManagedBlockchainMemberMemberFabricConfiguration.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-memberfabricconfiguration.html++module Stratosphere.ResourceProperties.ManagedBlockchainMemberMemberFabricConfiguration where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- ManagedBlockchainMemberMemberFabricConfiguration. See+-- 'managedBlockchainMemberMemberFabricConfiguration' for a more convenient+-- constructor.+data ManagedBlockchainMemberMemberFabricConfiguration =+  ManagedBlockchainMemberMemberFabricConfiguration+  { _managedBlockchainMemberMemberFabricConfigurationAdminPassword :: Val Text+  , _managedBlockchainMemberMemberFabricConfigurationAdminUsername :: Val Text+  } deriving (Show, Eq)++instance ToJSON ManagedBlockchainMemberMemberFabricConfiguration where+  toJSON ManagedBlockchainMemberMemberFabricConfiguration{..} =+    object $+    catMaybes+    [ (Just . ("AdminPassword",) . toJSON) _managedBlockchainMemberMemberFabricConfigurationAdminPassword+    , (Just . ("AdminUsername",) . toJSON) _managedBlockchainMemberMemberFabricConfigurationAdminUsername+    ]++-- | Constructor for 'ManagedBlockchainMemberMemberFabricConfiguration'+-- containing required fields as arguments.+managedBlockchainMemberMemberFabricConfiguration+  :: Val Text -- ^ 'mbmmfcAdminPassword'+  -> Val Text -- ^ 'mbmmfcAdminUsername'+  -> ManagedBlockchainMemberMemberFabricConfiguration+managedBlockchainMemberMemberFabricConfiguration adminPasswordarg adminUsernamearg =+  ManagedBlockchainMemberMemberFabricConfiguration+  { _managedBlockchainMemberMemberFabricConfigurationAdminPassword = adminPasswordarg+  , _managedBlockchainMemberMemberFabricConfigurationAdminUsername = adminUsernamearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-memberfabricconfiguration.html#cfn-managedblockchain-member-memberfabricconfiguration-adminpassword+mbmmfcAdminPassword :: Lens' ManagedBlockchainMemberMemberFabricConfiguration (Val Text)+mbmmfcAdminPassword = lens _managedBlockchainMemberMemberFabricConfigurationAdminPassword (\s a -> s { _managedBlockchainMemberMemberFabricConfigurationAdminPassword = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-memberfabricconfiguration.html#cfn-managedblockchain-member-memberfabricconfiguration-adminusername+mbmmfcAdminUsername :: Lens' ManagedBlockchainMemberMemberFabricConfiguration (Val Text)+mbmmfcAdminUsername = lens _managedBlockchainMemberMemberFabricConfigurationAdminUsername (\s a -> s { _managedBlockchainMemberMemberFabricConfigurationAdminUsername = a })
+ library-gen/Stratosphere/ResourceProperties/ManagedBlockchainMemberMemberFrameworkConfiguration.hs view
@@ -0,0 +1,40 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-memberframeworkconfiguration.html++module Stratosphere.ResourceProperties.ManagedBlockchainMemberMemberFrameworkConfiguration where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.ManagedBlockchainMemberMemberFabricConfiguration++-- | Full data type definition for+-- ManagedBlockchainMemberMemberFrameworkConfiguration. See+-- 'managedBlockchainMemberMemberFrameworkConfiguration' for a more+-- convenient constructor.+data ManagedBlockchainMemberMemberFrameworkConfiguration =+  ManagedBlockchainMemberMemberFrameworkConfiguration+  { _managedBlockchainMemberMemberFrameworkConfigurationMemberFabricConfiguration :: Maybe ManagedBlockchainMemberMemberFabricConfiguration+  } deriving (Show, Eq)++instance ToJSON ManagedBlockchainMemberMemberFrameworkConfiguration where+  toJSON ManagedBlockchainMemberMemberFrameworkConfiguration{..} =+    object $+    catMaybes+    [ fmap (("MemberFabricConfiguration",) . toJSON) _managedBlockchainMemberMemberFrameworkConfigurationMemberFabricConfiguration+    ]++-- | Constructor for 'ManagedBlockchainMemberMemberFrameworkConfiguration'+-- containing required fields as arguments.+managedBlockchainMemberMemberFrameworkConfiguration+  :: ManagedBlockchainMemberMemberFrameworkConfiguration+managedBlockchainMemberMemberFrameworkConfiguration  =+  ManagedBlockchainMemberMemberFrameworkConfiguration+  { _managedBlockchainMemberMemberFrameworkConfigurationMemberFabricConfiguration = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-memberframeworkconfiguration.html#cfn-managedblockchain-member-memberframeworkconfiguration-memberfabricconfiguration+mbmmfcMemberFabricConfiguration :: Lens' ManagedBlockchainMemberMemberFrameworkConfiguration (Maybe ManagedBlockchainMemberMemberFabricConfiguration)+mbmmfcMemberFabricConfiguration = lens _managedBlockchainMemberMemberFrameworkConfigurationMemberFabricConfiguration (\s a -> s { _managedBlockchainMemberMemberFrameworkConfigurationMemberFabricConfiguration = a })
+ library-gen/Stratosphere/ResourceProperties/ManagedBlockchainMemberNetworkConfiguration.hs view
@@ -0,0 +1,80 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-networkconfiguration.html++module Stratosphere.ResourceProperties.ManagedBlockchainMemberNetworkConfiguration where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.ManagedBlockchainMemberNetworkFrameworkConfiguration+import Stratosphere.ResourceProperties.ManagedBlockchainMemberVotingPolicy++-- | Full data type definition for+-- ManagedBlockchainMemberNetworkConfiguration. See+-- 'managedBlockchainMemberNetworkConfiguration' for a more convenient+-- constructor.+data ManagedBlockchainMemberNetworkConfiguration =+  ManagedBlockchainMemberNetworkConfiguration+  { _managedBlockchainMemberNetworkConfigurationDescription :: Maybe (Val Text)+  , _managedBlockchainMemberNetworkConfigurationFramework :: Val Text+  , _managedBlockchainMemberNetworkConfigurationFrameworkVersion :: Val Text+  , _managedBlockchainMemberNetworkConfigurationName :: Val Text+  , _managedBlockchainMemberNetworkConfigurationNetworkFrameworkConfiguration :: Maybe ManagedBlockchainMemberNetworkFrameworkConfiguration+  , _managedBlockchainMemberNetworkConfigurationVotingPolicy :: ManagedBlockchainMemberVotingPolicy+  } deriving (Show, Eq)++instance ToJSON ManagedBlockchainMemberNetworkConfiguration where+  toJSON ManagedBlockchainMemberNetworkConfiguration{..} =+    object $+    catMaybes+    [ fmap (("Description",) . toJSON) _managedBlockchainMemberNetworkConfigurationDescription+    , (Just . ("Framework",) . toJSON) _managedBlockchainMemberNetworkConfigurationFramework+    , (Just . ("FrameworkVersion",) . toJSON) _managedBlockchainMemberNetworkConfigurationFrameworkVersion+    , (Just . ("Name",) . toJSON) _managedBlockchainMemberNetworkConfigurationName+    , fmap (("NetworkFrameworkConfiguration",) . toJSON) _managedBlockchainMemberNetworkConfigurationNetworkFrameworkConfiguration+    , (Just . ("VotingPolicy",) . toJSON) _managedBlockchainMemberNetworkConfigurationVotingPolicy+    ]++-- | Constructor for 'ManagedBlockchainMemberNetworkConfiguration' containing+-- required fields as arguments.+managedBlockchainMemberNetworkConfiguration+  :: Val Text -- ^ 'mbmncFramework'+  -> Val Text -- ^ 'mbmncFrameworkVersion'+  -> Val Text -- ^ 'mbmncName'+  -> ManagedBlockchainMemberVotingPolicy -- ^ 'mbmncVotingPolicy'+  -> ManagedBlockchainMemberNetworkConfiguration+managedBlockchainMemberNetworkConfiguration frameworkarg frameworkVersionarg namearg votingPolicyarg =+  ManagedBlockchainMemberNetworkConfiguration+  { _managedBlockchainMemberNetworkConfigurationDescription = Nothing+  , _managedBlockchainMemberNetworkConfigurationFramework = frameworkarg+  , _managedBlockchainMemberNetworkConfigurationFrameworkVersion = frameworkVersionarg+  , _managedBlockchainMemberNetworkConfigurationName = namearg+  , _managedBlockchainMemberNetworkConfigurationNetworkFrameworkConfiguration = Nothing+  , _managedBlockchainMemberNetworkConfigurationVotingPolicy = votingPolicyarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-networkconfiguration.html#cfn-managedblockchain-member-networkconfiguration-description+mbmncDescription :: Lens' ManagedBlockchainMemberNetworkConfiguration (Maybe (Val Text))+mbmncDescription = lens _managedBlockchainMemberNetworkConfigurationDescription (\s a -> s { _managedBlockchainMemberNetworkConfigurationDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-networkconfiguration.html#cfn-managedblockchain-member-networkconfiguration-framework+mbmncFramework :: Lens' ManagedBlockchainMemberNetworkConfiguration (Val Text)+mbmncFramework = lens _managedBlockchainMemberNetworkConfigurationFramework (\s a -> s { _managedBlockchainMemberNetworkConfigurationFramework = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-networkconfiguration.html#cfn-managedblockchain-member-networkconfiguration-frameworkversion+mbmncFrameworkVersion :: Lens' ManagedBlockchainMemberNetworkConfiguration (Val Text)+mbmncFrameworkVersion = lens _managedBlockchainMemberNetworkConfigurationFrameworkVersion (\s a -> s { _managedBlockchainMemberNetworkConfigurationFrameworkVersion = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-networkconfiguration.html#cfn-managedblockchain-member-networkconfiguration-name+mbmncName :: Lens' ManagedBlockchainMemberNetworkConfiguration (Val Text)+mbmncName = lens _managedBlockchainMemberNetworkConfigurationName (\s a -> s { _managedBlockchainMemberNetworkConfigurationName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-networkconfiguration.html#cfn-managedblockchain-member-networkconfiguration-networkframeworkconfiguration+mbmncNetworkFrameworkConfiguration :: Lens' ManagedBlockchainMemberNetworkConfiguration (Maybe ManagedBlockchainMemberNetworkFrameworkConfiguration)+mbmncNetworkFrameworkConfiguration = lens _managedBlockchainMemberNetworkConfigurationNetworkFrameworkConfiguration (\s a -> s { _managedBlockchainMemberNetworkConfigurationNetworkFrameworkConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-networkconfiguration.html#cfn-managedblockchain-member-networkconfiguration-votingpolicy+mbmncVotingPolicy :: Lens' ManagedBlockchainMemberNetworkConfiguration ManagedBlockchainMemberVotingPolicy+mbmncVotingPolicy = lens _managedBlockchainMemberNetworkConfigurationVotingPolicy (\s a -> s { _managedBlockchainMemberNetworkConfigurationVotingPolicy = a })
+ library-gen/Stratosphere/ResourceProperties/ManagedBlockchainMemberNetworkFabricConfiguration.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-networkfabricconfiguration.html++module Stratosphere.ResourceProperties.ManagedBlockchainMemberNetworkFabricConfiguration where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- ManagedBlockchainMemberNetworkFabricConfiguration. See+-- 'managedBlockchainMemberNetworkFabricConfiguration' for a more convenient+-- constructor.+data ManagedBlockchainMemberNetworkFabricConfiguration =+  ManagedBlockchainMemberNetworkFabricConfiguration+  { _managedBlockchainMemberNetworkFabricConfigurationEdition :: Val Text+  } deriving (Show, Eq)++instance ToJSON ManagedBlockchainMemberNetworkFabricConfiguration where+  toJSON ManagedBlockchainMemberNetworkFabricConfiguration{..} =+    object $+    catMaybes+    [ (Just . ("Edition",) . toJSON) _managedBlockchainMemberNetworkFabricConfigurationEdition+    ]++-- | Constructor for 'ManagedBlockchainMemberNetworkFabricConfiguration'+-- containing required fields as arguments.+managedBlockchainMemberNetworkFabricConfiguration+  :: Val Text -- ^ 'mbmnfcEdition'+  -> ManagedBlockchainMemberNetworkFabricConfiguration+managedBlockchainMemberNetworkFabricConfiguration editionarg =+  ManagedBlockchainMemberNetworkFabricConfiguration+  { _managedBlockchainMemberNetworkFabricConfigurationEdition = editionarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-networkfabricconfiguration.html#cfn-managedblockchain-member-networkfabricconfiguration-edition+mbmnfcEdition :: Lens' ManagedBlockchainMemberNetworkFabricConfiguration (Val Text)+mbmnfcEdition = lens _managedBlockchainMemberNetworkFabricConfigurationEdition (\s a -> s { _managedBlockchainMemberNetworkFabricConfigurationEdition = a })
+ library-gen/Stratosphere/ResourceProperties/ManagedBlockchainMemberNetworkFrameworkConfiguration.hs view
@@ -0,0 +1,40 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-networkframeworkconfiguration.html++module Stratosphere.ResourceProperties.ManagedBlockchainMemberNetworkFrameworkConfiguration where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.ManagedBlockchainMemberNetworkFabricConfiguration++-- | Full data type definition for+-- ManagedBlockchainMemberNetworkFrameworkConfiguration. See+-- 'managedBlockchainMemberNetworkFrameworkConfiguration' for a more+-- convenient constructor.+data ManagedBlockchainMemberNetworkFrameworkConfiguration =+  ManagedBlockchainMemberNetworkFrameworkConfiguration+  { _managedBlockchainMemberNetworkFrameworkConfigurationNetworkFabricConfiguration :: Maybe ManagedBlockchainMemberNetworkFabricConfiguration+  } deriving (Show, Eq)++instance ToJSON ManagedBlockchainMemberNetworkFrameworkConfiguration where+  toJSON ManagedBlockchainMemberNetworkFrameworkConfiguration{..} =+    object $+    catMaybes+    [ fmap (("NetworkFabricConfiguration",) . toJSON) _managedBlockchainMemberNetworkFrameworkConfigurationNetworkFabricConfiguration+    ]++-- | Constructor for 'ManagedBlockchainMemberNetworkFrameworkConfiguration'+-- containing required fields as arguments.+managedBlockchainMemberNetworkFrameworkConfiguration+  :: ManagedBlockchainMemberNetworkFrameworkConfiguration+managedBlockchainMemberNetworkFrameworkConfiguration  =+  ManagedBlockchainMemberNetworkFrameworkConfiguration+  { _managedBlockchainMemberNetworkFrameworkConfigurationNetworkFabricConfiguration = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-networkframeworkconfiguration.html#cfn-managedblockchain-member-networkframeworkconfiguration-networkfabricconfiguration+mbmnfcNetworkFabricConfiguration :: Lens' ManagedBlockchainMemberNetworkFrameworkConfiguration (Maybe ManagedBlockchainMemberNetworkFabricConfiguration)+mbmnfcNetworkFabricConfiguration = lens _managedBlockchainMemberNetworkFrameworkConfigurationNetworkFabricConfiguration (\s a -> s { _managedBlockchainMemberNetworkFrameworkConfigurationNetworkFabricConfiguration = a })
+ library-gen/Stratosphere/ResourceProperties/ManagedBlockchainMemberVotingPolicy.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-votingpolicy.html++module Stratosphere.ResourceProperties.ManagedBlockchainMemberVotingPolicy where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.ManagedBlockchainMemberApprovalThresholdPolicy++-- | Full data type definition for ManagedBlockchainMemberVotingPolicy. See+-- 'managedBlockchainMemberVotingPolicy' for a more convenient constructor.+data ManagedBlockchainMemberVotingPolicy =+  ManagedBlockchainMemberVotingPolicy+  { _managedBlockchainMemberVotingPolicyApprovalThresholdPolicy :: Maybe ManagedBlockchainMemberApprovalThresholdPolicy+  } deriving (Show, Eq)++instance ToJSON ManagedBlockchainMemberVotingPolicy where+  toJSON ManagedBlockchainMemberVotingPolicy{..} =+    object $+    catMaybes+    [ fmap (("ApprovalThresholdPolicy",) . toJSON) _managedBlockchainMemberVotingPolicyApprovalThresholdPolicy+    ]++-- | Constructor for 'ManagedBlockchainMemberVotingPolicy' containing required+-- fields as arguments.+managedBlockchainMemberVotingPolicy+  :: ManagedBlockchainMemberVotingPolicy+managedBlockchainMemberVotingPolicy  =+  ManagedBlockchainMemberVotingPolicy+  { _managedBlockchainMemberVotingPolicyApprovalThresholdPolicy = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-votingpolicy.html#cfn-managedblockchain-member-votingpolicy-approvalthresholdpolicy+mbmvpApprovalThresholdPolicy :: Lens' ManagedBlockchainMemberVotingPolicy (Maybe ManagedBlockchainMemberApprovalThresholdPolicy)+mbmvpApprovalThresholdPolicy = lens _managedBlockchainMemberVotingPolicyApprovalThresholdPolicy (\s a -> s { _managedBlockchainMemberVotingPolicyApprovalThresholdPolicy = a })
+ library-gen/Stratosphere/ResourceProperties/ManagedBlockchainNodeNodeConfiguration.hs view
@@ -0,0 +1,48 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-node-nodeconfiguration.html++module Stratosphere.ResourceProperties.ManagedBlockchainNodeNodeConfiguration where++import Stratosphere.ResourceImports+++-- | Full data type definition for ManagedBlockchainNodeNodeConfiguration. See+-- 'managedBlockchainNodeNodeConfiguration' for a more convenient+-- constructor.+data ManagedBlockchainNodeNodeConfiguration =+  ManagedBlockchainNodeNodeConfiguration+  { _managedBlockchainNodeNodeConfigurationAvailabilityZone :: Val Text+  , _managedBlockchainNodeNodeConfigurationInstanceType :: Val Text+  } deriving (Show, Eq)++instance ToJSON ManagedBlockchainNodeNodeConfiguration where+  toJSON ManagedBlockchainNodeNodeConfiguration{..} =+    object $+    catMaybes+    [ (Just . ("AvailabilityZone",) . toJSON) _managedBlockchainNodeNodeConfigurationAvailabilityZone+    , (Just . ("InstanceType",) . toJSON) _managedBlockchainNodeNodeConfigurationInstanceType+    ]++-- | Constructor for 'ManagedBlockchainNodeNodeConfiguration' containing+-- required fields as arguments.+managedBlockchainNodeNodeConfiguration+  :: Val Text -- ^ 'mbnncAvailabilityZone'+  -> Val Text -- ^ 'mbnncInstanceType'+  -> ManagedBlockchainNodeNodeConfiguration+managedBlockchainNodeNodeConfiguration availabilityZonearg instanceTypearg =+  ManagedBlockchainNodeNodeConfiguration+  { _managedBlockchainNodeNodeConfigurationAvailabilityZone = availabilityZonearg+  , _managedBlockchainNodeNodeConfigurationInstanceType = instanceTypearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-node-nodeconfiguration.html#cfn-managedblockchain-node-nodeconfiguration-availabilityzone+mbnncAvailabilityZone :: Lens' ManagedBlockchainNodeNodeConfiguration (Val Text)+mbnncAvailabilityZone = lens _managedBlockchainNodeNodeConfigurationAvailabilityZone (\s a -> s { _managedBlockchainNodeNodeConfigurationAvailabilityZone = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-node-nodeconfiguration.html#cfn-managedblockchain-node-nodeconfiguration-instancetype+mbnncInstanceType :: Lens' ManagedBlockchainNodeNodeConfiguration (Val Text)+mbnncInstanceType = lens _managedBlockchainNodeNodeConfigurationInstanceType (\s a -> s { _managedBlockchainNodeNodeConfigurationInstanceType = a })
+ library-gen/Stratosphere/ResourceProperties/RDSDBClusterDBClusterRole.hs view
@@ -0,0 +1,53 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbcluster-dbclusterrole.html++module Stratosphere.ResourceProperties.RDSDBClusterDBClusterRole where++import Stratosphere.ResourceImports+++-- | Full data type definition for RDSDBClusterDBClusterRole. See+-- 'rdsdbClusterDBClusterRole' for a more convenient constructor.+data RDSDBClusterDBClusterRole =+  RDSDBClusterDBClusterRole+  { _rDSDBClusterDBClusterRoleFeatureName :: Maybe (Val Text)+  , _rDSDBClusterDBClusterRoleRoleArn :: Val Text+  , _rDSDBClusterDBClusterRoleStatus :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON RDSDBClusterDBClusterRole where+  toJSON RDSDBClusterDBClusterRole{..} =+    object $+    catMaybes+    [ fmap (("FeatureName",) . toJSON) _rDSDBClusterDBClusterRoleFeatureName+    , (Just . ("RoleArn",) . toJSON) _rDSDBClusterDBClusterRoleRoleArn+    , fmap (("Status",) . toJSON) _rDSDBClusterDBClusterRoleStatus+    ]++-- | Constructor for 'RDSDBClusterDBClusterRole' containing required fields as+-- arguments.+rdsdbClusterDBClusterRole+  :: Val Text -- ^ 'rdsdbcdbcrRoleArn'+  -> RDSDBClusterDBClusterRole+rdsdbClusterDBClusterRole roleArnarg =+  RDSDBClusterDBClusterRole+  { _rDSDBClusterDBClusterRoleFeatureName = Nothing+  , _rDSDBClusterDBClusterRoleRoleArn = roleArnarg+  , _rDSDBClusterDBClusterRoleStatus = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbcluster-dbclusterrole.html#cfn-rds-dbcluster-dbclusterrole-featurename+rdsdbcdbcrFeatureName :: Lens' RDSDBClusterDBClusterRole (Maybe (Val Text))+rdsdbcdbcrFeatureName = lens _rDSDBClusterDBClusterRoleFeatureName (\s a -> s { _rDSDBClusterDBClusterRoleFeatureName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbcluster-dbclusterrole.html#cfn-rds-dbcluster-dbclusterrole-rolearn+rdsdbcdbcrRoleArn :: Lens' RDSDBClusterDBClusterRole (Val Text)+rdsdbcdbcrRoleArn = lens _rDSDBClusterDBClusterRoleRoleArn (\s a -> s { _rDSDBClusterDBClusterRoleRoleArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbcluster-dbclusterrole.html#cfn-rds-dbcluster-dbclusterrole-status+rdsdbcdbcrStatus :: Lens' RDSDBClusterDBClusterRole (Maybe (Val Text))+rdsdbcdbcrStatus = lens _rDSDBClusterDBClusterRoleStatus (\s a -> s { _rDSDBClusterDBClusterRoleStatus = a })
+ library-gen/Stratosphere/ResourceProperties/RDSDBInstanceDBInstanceRole.hs view
@@ -0,0 +1,54 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbinstance-dbinstancerole.html++module Stratosphere.ResourceProperties.RDSDBInstanceDBInstanceRole where++import Stratosphere.ResourceImports+++-- | Full data type definition for RDSDBInstanceDBInstanceRole. See+-- 'rdsdbInstanceDBInstanceRole' for a more convenient constructor.+data RDSDBInstanceDBInstanceRole =+  RDSDBInstanceDBInstanceRole+  { _rDSDBInstanceDBInstanceRoleFeatureName :: Val Text+  , _rDSDBInstanceDBInstanceRoleRoleArn :: Val Text+  , _rDSDBInstanceDBInstanceRoleStatus :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON RDSDBInstanceDBInstanceRole where+  toJSON RDSDBInstanceDBInstanceRole{..} =+    object $+    catMaybes+    [ (Just . ("FeatureName",) . toJSON) _rDSDBInstanceDBInstanceRoleFeatureName+    , (Just . ("RoleArn",) . toJSON) _rDSDBInstanceDBInstanceRoleRoleArn+    , fmap (("Status",) . toJSON) _rDSDBInstanceDBInstanceRoleStatus+    ]++-- | Constructor for 'RDSDBInstanceDBInstanceRole' containing required fields+-- as arguments.+rdsdbInstanceDBInstanceRole+  :: Val Text -- ^ 'rdsdbidbirFeatureName'+  -> Val Text -- ^ 'rdsdbidbirRoleArn'+  -> RDSDBInstanceDBInstanceRole+rdsdbInstanceDBInstanceRole featureNamearg roleArnarg =+  RDSDBInstanceDBInstanceRole+  { _rDSDBInstanceDBInstanceRoleFeatureName = featureNamearg+  , _rDSDBInstanceDBInstanceRoleRoleArn = roleArnarg+  , _rDSDBInstanceDBInstanceRoleStatus = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbinstance-dbinstancerole.html#cfn-rds-dbinstance-dbinstancerole-featurename+rdsdbidbirFeatureName :: Lens' RDSDBInstanceDBInstanceRole (Val Text)+rdsdbidbirFeatureName = lens _rDSDBInstanceDBInstanceRoleFeatureName (\s a -> s { _rDSDBInstanceDBInstanceRoleFeatureName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbinstance-dbinstancerole.html#cfn-rds-dbinstance-dbinstancerole-rolearn+rdsdbidbirRoleArn :: Lens' RDSDBInstanceDBInstanceRole (Val Text)+rdsdbidbirRoleArn = lens _rDSDBInstanceDBInstanceRoleRoleArn (\s a -> s { _rDSDBInstanceDBInstanceRoleRoleArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbinstance-dbinstancerole.html#cfn-rds-dbinstance-dbinstancerole-status+rdsdbidbirStatus :: Lens' RDSDBInstanceDBInstanceRole (Maybe (Val Text))+rdsdbidbirStatus = lens _rDSDBInstanceDBInstanceRoleStatus (\s a -> s { _rDSDBInstanceDBInstanceRoleStatus = a })
+ library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTargetTargets.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtarget-targets.html++module Stratosphere.ResourceProperties.SSMMaintenanceWindowTargetTargets where++import Stratosphere.ResourceImports+++-- | Full data type definition for SSMMaintenanceWindowTargetTargets. See+-- 'ssmMaintenanceWindowTargetTargets' for a more convenient constructor.+data SSMMaintenanceWindowTargetTargets =+  SSMMaintenanceWindowTargetTargets+  { _sSMMaintenanceWindowTargetTargetsKey :: Val Text+  , _sSMMaintenanceWindowTargetTargetsValues :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON SSMMaintenanceWindowTargetTargets where+  toJSON SSMMaintenanceWindowTargetTargets{..} =+    object $+    catMaybes+    [ (Just . ("Key",) . toJSON) _sSMMaintenanceWindowTargetTargetsKey+    , fmap (("Values",) . toJSON) _sSMMaintenanceWindowTargetTargetsValues+    ]++-- | Constructor for 'SSMMaintenanceWindowTargetTargets' containing required+-- fields as arguments.+ssmMaintenanceWindowTargetTargets+  :: Val Text -- ^ 'ssmmwtartKey'+  -> SSMMaintenanceWindowTargetTargets+ssmMaintenanceWindowTargetTargets keyarg =+  SSMMaintenanceWindowTargetTargets+  { _sSMMaintenanceWindowTargetTargetsKey = keyarg+  , _sSMMaintenanceWindowTargetTargetsValues = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtarget-targets.html#cfn-ssm-maintenancewindowtarget-targets-key+ssmmwtartKey :: Lens' SSMMaintenanceWindowTargetTargets (Val Text)+ssmmwtartKey = lens _sSMMaintenanceWindowTargetTargetsKey (\s a -> s { _sSMMaintenanceWindowTargetTargetsKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtarget-targets.html#cfn-ssm-maintenancewindowtarget-targets-values+ssmmwtartValues :: Lens' SSMMaintenanceWindowTargetTargets (Maybe (ValList Text))+ssmmwtartValues = lens _sSMMaintenanceWindowTargetTargetsValues (\s a -> s { _sSMMaintenanceWindowTargetTargetsValues = a })
library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskTarget.hs view
@@ -29,7 +29,7 @@ -- | Constructor for 'SSMMaintenanceWindowTaskTarget' containing required -- fields as arguments. ssmMaintenanceWindowTaskTarget-  :: Val Text -- ^ 'ssmmwttKey'+  :: Val Text -- ^ 'ssmmwtastKey'   -> SSMMaintenanceWindowTaskTarget ssmMaintenanceWindowTaskTarget keyarg =   SSMMaintenanceWindowTaskTarget@@ -38,9 +38,9 @@   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-target.html#cfn-ssm-maintenancewindowtask-target-key-ssmmwttKey :: Lens' SSMMaintenanceWindowTaskTarget (Val Text)-ssmmwttKey = lens _sSMMaintenanceWindowTaskTargetKey (\s a -> s { _sSMMaintenanceWindowTaskTargetKey = a })+ssmmwtastKey :: Lens' SSMMaintenanceWindowTaskTarget (Val Text)+ssmmwtastKey = lens _sSMMaintenanceWindowTaskTargetKey (\s a -> s { _sSMMaintenanceWindowTaskTargetKey = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-target.html#cfn-ssm-maintenancewindowtask-target-values-ssmmwttValues :: Lens' SSMMaintenanceWindowTaskTarget (Maybe (ValList Text))-ssmmwttValues = lens _sSMMaintenanceWindowTaskTargetValues (\s a -> s { _sSMMaintenanceWindowTaskTargetValues = a })+ssmmwtastValues :: Lens' SSMMaintenanceWindowTaskTarget (Maybe (ValList Text))+ssmmwtastValues = lens _sSMMaintenanceWindowTaskTargetValues (\s a -> s { _sSMMaintenanceWindowTaskTargetValues = a })
+ library-gen/Stratosphere/ResourceProperties/SageMakerWorkteamCognitoMemberDefinition.hs view
@@ -0,0 +1,56 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-workteam-cognitomemberdefinition.html++module Stratosphere.ResourceProperties.SageMakerWorkteamCognitoMemberDefinition where++import Stratosphere.ResourceImports+++-- | Full data type definition for SageMakerWorkteamCognitoMemberDefinition.+-- See 'sageMakerWorkteamCognitoMemberDefinition' for a more convenient+-- constructor.+data SageMakerWorkteamCognitoMemberDefinition =+  SageMakerWorkteamCognitoMemberDefinition+  { _sageMakerWorkteamCognitoMemberDefinitionCognitoClientId :: Val Text+  , _sageMakerWorkteamCognitoMemberDefinitionCognitoUserGroup :: Val Text+  , _sageMakerWorkteamCognitoMemberDefinitionCognitoUserPool :: Val Text+  } deriving (Show, Eq)++instance ToJSON SageMakerWorkteamCognitoMemberDefinition where+  toJSON SageMakerWorkteamCognitoMemberDefinition{..} =+    object $+    catMaybes+    [ (Just . ("CognitoClientId",) . toJSON) _sageMakerWorkteamCognitoMemberDefinitionCognitoClientId+    , (Just . ("CognitoUserGroup",) . toJSON) _sageMakerWorkteamCognitoMemberDefinitionCognitoUserGroup+    , (Just . ("CognitoUserPool",) . toJSON) _sageMakerWorkteamCognitoMemberDefinitionCognitoUserPool+    ]++-- | Constructor for 'SageMakerWorkteamCognitoMemberDefinition' containing+-- required fields as arguments.+sageMakerWorkteamCognitoMemberDefinition+  :: Val Text -- ^ 'smwcmdCognitoClientId'+  -> Val Text -- ^ 'smwcmdCognitoUserGroup'+  -> Val Text -- ^ 'smwcmdCognitoUserPool'+  -> SageMakerWorkteamCognitoMemberDefinition+sageMakerWorkteamCognitoMemberDefinition cognitoClientIdarg cognitoUserGrouparg cognitoUserPoolarg =+  SageMakerWorkteamCognitoMemberDefinition+  { _sageMakerWorkteamCognitoMemberDefinitionCognitoClientId = cognitoClientIdarg+  , _sageMakerWorkteamCognitoMemberDefinitionCognitoUserGroup = cognitoUserGrouparg+  , _sageMakerWorkteamCognitoMemberDefinitionCognitoUserPool = cognitoUserPoolarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-workteam-cognitomemberdefinition.html#cfn-sagemaker-workteam-cognitomemberdefinition-cognitoclientid+smwcmdCognitoClientId :: Lens' SageMakerWorkteamCognitoMemberDefinition (Val Text)+smwcmdCognitoClientId = lens _sageMakerWorkteamCognitoMemberDefinitionCognitoClientId (\s a -> s { _sageMakerWorkteamCognitoMemberDefinitionCognitoClientId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-workteam-cognitomemberdefinition.html#cfn-sagemaker-workteam-cognitomemberdefinition-cognitousergroup+smwcmdCognitoUserGroup :: Lens' SageMakerWorkteamCognitoMemberDefinition (Val Text)+smwcmdCognitoUserGroup = lens _sageMakerWorkteamCognitoMemberDefinitionCognitoUserGroup (\s a -> s { _sageMakerWorkteamCognitoMemberDefinitionCognitoUserGroup = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-workteam-cognitomemberdefinition.html#cfn-sagemaker-workteam-cognitomemberdefinition-cognitouserpool+smwcmdCognitoUserPool :: Lens' SageMakerWorkteamCognitoMemberDefinition (Val Text)+smwcmdCognitoUserPool = lens _sageMakerWorkteamCognitoMemberDefinitionCognitoUserPool (\s a -> s { _sageMakerWorkteamCognitoMemberDefinitionCognitoUserPool = a })
+ library-gen/Stratosphere/ResourceProperties/SageMakerWorkteamMemberDefinition.hs view
@@ -0,0 +1,39 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-workteam-memberdefinition.html++module Stratosphere.ResourceProperties.SageMakerWorkteamMemberDefinition where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.SageMakerWorkteamCognitoMemberDefinition++-- | Full data type definition for SageMakerWorkteamMemberDefinition. See+-- 'sageMakerWorkteamMemberDefinition' for a more convenient constructor.+data SageMakerWorkteamMemberDefinition =+  SageMakerWorkteamMemberDefinition+  { _sageMakerWorkteamMemberDefinitionCognitoMemberDefinition :: SageMakerWorkteamCognitoMemberDefinition+  } deriving (Show, Eq)++instance ToJSON SageMakerWorkteamMemberDefinition where+  toJSON SageMakerWorkteamMemberDefinition{..} =+    object $+    catMaybes+    [ (Just . ("CognitoMemberDefinition",) . toJSON) _sageMakerWorkteamMemberDefinitionCognitoMemberDefinition+    ]++-- | Constructor for 'SageMakerWorkteamMemberDefinition' containing required+-- fields as arguments.+sageMakerWorkteamMemberDefinition+  :: SageMakerWorkteamCognitoMemberDefinition -- ^ 'smwmdCognitoMemberDefinition'+  -> SageMakerWorkteamMemberDefinition+sageMakerWorkteamMemberDefinition cognitoMemberDefinitionarg =+  SageMakerWorkteamMemberDefinition+  { _sageMakerWorkteamMemberDefinitionCognitoMemberDefinition = cognitoMemberDefinitionarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-workteam-memberdefinition.html#cfn-sagemaker-workteam-memberdefinition-cognitomemberdefinition+smwmdCognitoMemberDefinition :: Lens' SageMakerWorkteamMemberDefinition SageMakerWorkteamCognitoMemberDefinition+smwmdCognitoMemberDefinition = lens _sageMakerWorkteamMemberDefinitionCognitoMemberDefinition (\s a -> s { _sageMakerWorkteamMemberDefinitionCognitoMemberDefinition = a })
+ library-gen/Stratosphere/ResourceProperties/SageMakerWorkteamNotificationConfiguration.hs view
@@ -0,0 +1,40 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-workteam-notificationconfiguration.html++module Stratosphere.ResourceProperties.SageMakerWorkteamNotificationConfiguration where++import Stratosphere.ResourceImports+++-- | Full data type definition for SageMakerWorkteamNotificationConfiguration.+-- See 'sageMakerWorkteamNotificationConfiguration' for a more convenient+-- constructor.+data SageMakerWorkteamNotificationConfiguration =+  SageMakerWorkteamNotificationConfiguration+  { _sageMakerWorkteamNotificationConfigurationNotificationTopicArn :: Val Text+  } deriving (Show, Eq)++instance ToJSON SageMakerWorkteamNotificationConfiguration where+  toJSON SageMakerWorkteamNotificationConfiguration{..} =+    object $+    catMaybes+    [ (Just . ("NotificationTopicArn",) . toJSON) _sageMakerWorkteamNotificationConfigurationNotificationTopicArn+    ]++-- | Constructor for 'SageMakerWorkteamNotificationConfiguration' containing+-- required fields as arguments.+sageMakerWorkteamNotificationConfiguration+  :: Val Text -- ^ 'smwncNotificationTopicArn'+  -> SageMakerWorkteamNotificationConfiguration+sageMakerWorkteamNotificationConfiguration notificationTopicArnarg =+  SageMakerWorkteamNotificationConfiguration+  { _sageMakerWorkteamNotificationConfigurationNotificationTopicArn = notificationTopicArnarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-workteam-notificationconfiguration.html#cfn-sagemaker-workteam-notificationconfiguration-notificationtopicarn+smwncNotificationTopicArn :: Lens' SageMakerWorkteamNotificationConfiguration (Val Text)+smwncNotificationTopicArn = lens _sageMakerWorkteamNotificationConfigurationNotificationTopicArn (\s a -> s { _sageMakerWorkteamNotificationConfigurationNotificationTopicArn = a })
library-gen/Stratosphere/ResourceProperties/Tag.hs view
@@ -3,7 +3,7 @@ {-# LANGUAGE StrictData #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-resource-tags.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-input-tag.html  module Stratosphere.ResourceProperties.Tag where @@ -37,10 +37,10 @@   , _tagValue = valuearg   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-resource-tags.html#cfn-resource-tags-key+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-input-tag.html#cfn-iotevents-input-tag-key tagKey :: Lens' Tag (Val Text) tagKey = lens _tagKey (\s a -> s { _tagKey = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-resource-tags.html#cfn-resource-tags-value+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-input-tag.html#cfn-iotevents-input-tag-value tagValue :: Lens' Tag (Val Text) tagValue = lens _tagValue (\s a -> s { _tagValue = a })
library-gen/Stratosphere/Resources.hs view
@@ -129,6 +129,7 @@ import Stratosphere.Resources.CloudWatchAnomalyDetector as X import Stratosphere.Resources.CloudWatchDashboard as X import Stratosphere.Resources.CodeBuildProject as X+import Stratosphere.Resources.CodeBuildSourceCredential as X import Stratosphere.Resources.CodeCommitRepository as X import Stratosphere.Resources.CodeDeployApplication as X import Stratosphere.Resources.CodeDeployDeploymentConfig as X@@ -149,6 +150,7 @@ import Stratosphere.Resources.ConfigConfigurationAggregator as X import Stratosphere.Resources.ConfigConfigurationRecorder as X import Stratosphere.Resources.ConfigDeliveryChannel as X+import Stratosphere.Resources.ConfigOrganizationConfigRule as X import Stratosphere.Resources.ConfigRemediationConfiguration as X import Stratosphere.Resources.DAXCluster as X import Stratosphere.Resources.DAXParameterGroup as X@@ -263,6 +265,7 @@ import Stratosphere.Resources.GlueDatabase as X import Stratosphere.Resources.GlueDevEndpoint as X import Stratosphere.Resources.GlueJob as X+import Stratosphere.Resources.GlueMLTransform as X import Stratosphere.Resources.GluePartition as X import Stratosphere.Resources.GlueSecurityConfiguration as X import Stratosphere.Resources.GlueTable as X@@ -329,6 +332,9 @@ import Stratosphere.Resources.KinesisAnalyticsV2ApplicationOutput as X import Stratosphere.Resources.KinesisAnalyticsV2ApplicationReferenceDataSource as X import Stratosphere.Resources.KinesisFirehoseDeliveryStream as X+import Stratosphere.Resources.LakeFormationDataLakeSettings as X+import Stratosphere.Resources.LakeFormationPermissions as X+import Stratosphere.Resources.LakeFormationResource as X import Stratosphere.Resources.LambdaAlias as X import Stratosphere.Resources.LambdaEventSourceMapping as X import Stratosphere.Resources.LambdaFunction as X@@ -342,6 +348,8 @@ import Stratosphere.Resources.LogsMetricFilter as X import Stratosphere.Resources.LogsSubscriptionFilter as X import Stratosphere.Resources.MSKCluster as X+import Stratosphere.Resources.ManagedBlockchainMember as X+import Stratosphere.Resources.ManagedBlockchainNode as X import Stratosphere.Resources.MediaLiveChannel as X import Stratosphere.Resources.MediaLiveInput as X import Stratosphere.Resources.MediaLiveInputSecurityGroup as X@@ -423,6 +431,7 @@ import Stratosphere.Resources.SSMAssociation as X import Stratosphere.Resources.SSMDocument as X import Stratosphere.Resources.SSMMaintenanceWindow as X+import Stratosphere.Resources.SSMMaintenanceWindowTarget as X import Stratosphere.Resources.SSMMaintenanceWindowTask as X import Stratosphere.Resources.SSMParameter as X import Stratosphere.Resources.SSMPatchBaseline as X@@ -432,6 +441,7 @@ import Stratosphere.Resources.SageMakerModel as X import Stratosphere.Resources.SageMakerNotebookInstance as X import Stratosphere.Resources.SageMakerNotebookInstanceLifecycleConfig as X+import Stratosphere.Resources.SageMakerWorkteam as X import Stratosphere.Resources.SecretsManagerResourcePolicy as X import Stratosphere.Resources.SecretsManagerRotationSchedule as X import Stratosphere.Resources.SecretsManagerSecret as X@@ -521,9 +531,12 @@ import Stratosphere.ResourceProperties.ApiGatewayV2StageRouteSettings as X import Stratosphere.ResourceProperties.AppMeshMeshEgressFilter as X import Stratosphere.ResourceProperties.AppMeshMeshMeshSpec as X+import Stratosphere.ResourceProperties.AppMeshRouteHeaderMatchMethod as X import Stratosphere.ResourceProperties.AppMeshRouteHttpRoute as X import Stratosphere.ResourceProperties.AppMeshRouteHttpRouteAction as X+import Stratosphere.ResourceProperties.AppMeshRouteHttpRouteHeader as X import Stratosphere.ResourceProperties.AppMeshRouteHttpRouteMatch as X+import Stratosphere.ResourceProperties.AppMeshRouteMatchRange as X import Stratosphere.ResourceProperties.AppMeshRouteRouteSpec as X import Stratosphere.ResourceProperties.AppMeshRouteTcpRoute as X import Stratosphere.ResourceProperties.AppMeshRouteTcpRouteAction as X@@ -573,6 +586,7 @@ import Stratosphere.ResourceProperties.AppSyncResolverPipelineConfig as X import Stratosphere.ResourceProperties.ApplicationAutoScalingScalableTargetScalableTargetAction as X import Stratosphere.ResourceProperties.ApplicationAutoScalingScalableTargetScheduledAction as X+import Stratosphere.ResourceProperties.ApplicationAutoScalingScalableTargetSuspendedState as X import Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyCustomizedMetricSpecification as X import Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyMetricDimension as X import Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyPredefinedMetricSpecification as X@@ -746,6 +760,8 @@ import Stratosphere.ResourceProperties.ConfigConfigurationAggregatorOrganizationAggregationSource as X import Stratosphere.ResourceProperties.ConfigConfigurationRecorderRecordingGroup as X import Stratosphere.ResourceProperties.ConfigDeliveryChannelConfigSnapshotDeliveryProperties as X+import Stratosphere.ResourceProperties.ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata as X+import Stratosphere.ResourceProperties.ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata as X import Stratosphere.ResourceProperties.ConfigRemediationConfigurationRemediationParameterValue as X import Stratosphere.ResourceProperties.ConfigRemediationConfigurationResourceValue as X import Stratosphere.ResourceProperties.ConfigRemediationConfigurationStaticValue as X@@ -794,6 +810,7 @@ import Stratosphere.ResourceProperties.EC2EC2FleetTargetCapacitySpecificationRequest as X import Stratosphere.ResourceProperties.EC2InstanceAssociationParameter as X import Stratosphere.ResourceProperties.EC2InstanceBlockDeviceMapping as X+import Stratosphere.ResourceProperties.EC2InstanceCpuOptions as X import Stratosphere.ResourceProperties.EC2InstanceCreditSpecification as X import Stratosphere.ResourceProperties.EC2InstanceEbs as X import Stratosphere.ResourceProperties.EC2InstanceElasticGpuSpecification as X@@ -878,6 +895,7 @@ import Stratosphere.ResourceProperties.ECSTaskDefinitionRepositoryCredentials as X import Stratosphere.ResourceProperties.ECSTaskDefinitionResourceRequirement as X import Stratosphere.ResourceProperties.ECSTaskDefinitionSecret as X+import Stratosphere.ResourceProperties.ECSTaskDefinitionSystemControl as X import Stratosphere.ResourceProperties.ECSTaskDefinitionTaskDefinitionPlacementConstraint as X import Stratosphere.ResourceProperties.ECSTaskDefinitionTmpfs as X import Stratosphere.ResourceProperties.ECSTaskDefinitionUlimit as X@@ -982,10 +1000,13 @@ import Stratosphere.ResourceProperties.ElasticsearchDomainNodeToNodeEncryptionOptions as X import Stratosphere.ResourceProperties.ElasticsearchDomainSnapshotOptions as X import Stratosphere.ResourceProperties.ElasticsearchDomainVPCOptions as X+import Stratosphere.ResourceProperties.ElasticsearchDomainZoneAwarenessConfig as X import Stratosphere.ResourceProperties.EventsEventBusPolicyCondition as X+import Stratosphere.ResourceProperties.EventsRuleAwsVpcConfiguration as X import Stratosphere.ResourceProperties.EventsRuleEcsParameters as X import Stratosphere.ResourceProperties.EventsRuleInputTransformer as X import Stratosphere.ResourceProperties.EventsRuleKinesisParameters as X+import Stratosphere.ResourceProperties.EventsRuleNetworkConfiguration as X import Stratosphere.ResourceProperties.EventsRuleRunCommandParameters as X import Stratosphere.ResourceProperties.EventsRuleRunCommandTarget as X import Stratosphere.ResourceProperties.EventsRuleSqsParameters as X@@ -1013,6 +1034,10 @@ import Stratosphere.ResourceProperties.GlueJobConnectionsList as X import Stratosphere.ResourceProperties.GlueJobExecutionProperty as X import Stratosphere.ResourceProperties.GlueJobJobCommand as X+import Stratosphere.ResourceProperties.GlueMLTransformFindMatchesParameters as X+import Stratosphere.ResourceProperties.GlueMLTransformGlueTables as X+import Stratosphere.ResourceProperties.GlueMLTransformInputRecordTables as X+import Stratosphere.ResourceProperties.GlueMLTransformTransformParameters as X import Stratosphere.ResourceProperties.GluePartitionColumn as X import Stratosphere.ResourceProperties.GluePartitionOrder as X import Stratosphere.ResourceProperties.GluePartitionPartitionInput as X@@ -1256,6 +1281,11 @@ import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamSerializer as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamSplunkDestinationConfiguration as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamSplunkRetryOptions as X+import Stratosphere.ResourceProperties.LakeFormationDataLakeSettingsDataLakePrincipal as X+import Stratosphere.ResourceProperties.LakeFormationPermissionsDataLakePrincipal as X+import Stratosphere.ResourceProperties.LakeFormationPermissionsDatabaseResource as X+import Stratosphere.ResourceProperties.LakeFormationPermissionsResource as X+import Stratosphere.ResourceProperties.LakeFormationPermissionsTableResource as X import Stratosphere.ResourceProperties.LambdaAliasAliasRoutingConfiguration as X import Stratosphere.ResourceProperties.LambdaAliasVersionWeight as X import Stratosphere.ResourceProperties.LambdaFunctionCode as X@@ -1274,6 +1304,15 @@ import Stratosphere.ResourceProperties.MSKClusterEncryptionInfo as X import Stratosphere.ResourceProperties.MSKClusterStorageInfo as X import Stratosphere.ResourceProperties.MSKClusterTls as X+import Stratosphere.ResourceProperties.ManagedBlockchainMemberApprovalThresholdPolicy as X+import Stratosphere.ResourceProperties.ManagedBlockchainMemberMemberConfiguration as X+import Stratosphere.ResourceProperties.ManagedBlockchainMemberMemberFabricConfiguration as X+import Stratosphere.ResourceProperties.ManagedBlockchainMemberMemberFrameworkConfiguration as X+import Stratosphere.ResourceProperties.ManagedBlockchainMemberNetworkConfiguration as X+import Stratosphere.ResourceProperties.ManagedBlockchainMemberNetworkFabricConfiguration as X+import Stratosphere.ResourceProperties.ManagedBlockchainMemberNetworkFrameworkConfiguration as X+import Stratosphere.ResourceProperties.ManagedBlockchainMemberVotingPolicy as X+import Stratosphere.ResourceProperties.ManagedBlockchainNodeNodeConfiguration as X import Stratosphere.ResourceProperties.MediaLiveChannelAribSourceSettings as X import Stratosphere.ResourceProperties.MediaLiveChannelAudioLanguageSelection as X import Stratosphere.ResourceProperties.MediaLiveChannelAudioPidSelection as X@@ -1366,7 +1405,9 @@ import Stratosphere.ResourceProperties.PinpointEmailDedicatedIpPoolTags as X import Stratosphere.ResourceProperties.PinpointEmailIdentityMailFromAttributes as X import Stratosphere.ResourceProperties.PinpointEmailIdentityTags as X+import Stratosphere.ResourceProperties.RDSDBClusterDBClusterRole as X import Stratosphere.ResourceProperties.RDSDBClusterScalingConfiguration as X+import Stratosphere.ResourceProperties.RDSDBInstanceDBInstanceRole as X import Stratosphere.ResourceProperties.RDSDBInstanceProcessorFeature as X import Stratosphere.ResourceProperties.RDSDBSecurityGroupIngressProperty as X import Stratosphere.ResourceProperties.RDSOptionGroupOptionConfiguration as X@@ -1457,6 +1498,7 @@ import Stratosphere.ResourceProperties.SSMAssociationParameterValues as X import Stratosphere.ResourceProperties.SSMAssociationS3OutputLocation as X import Stratosphere.ResourceProperties.SSMAssociationTarget as X+import Stratosphere.ResourceProperties.SSMMaintenanceWindowTargetTargets as X import Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskLoggingInfo as X import Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters as X import Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters as X@@ -1474,6 +1516,9 @@ import Stratosphere.ResourceProperties.SageMakerModelContainerDefinition as X import Stratosphere.ResourceProperties.SageMakerModelVpcConfig as X import Stratosphere.ResourceProperties.SageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHook as X+import Stratosphere.ResourceProperties.SageMakerWorkteamCognitoMemberDefinition as X+import Stratosphere.ResourceProperties.SageMakerWorkteamMemberDefinition as X+import Stratosphere.ResourceProperties.SageMakerWorkteamNotificationConfiguration as X import Stratosphere.ResourceProperties.SecretsManagerRotationScheduleRotationRules as X import Stratosphere.ResourceProperties.SecretsManagerSecretGenerateSecretString as X import Stratosphere.ResourceProperties.ServiceCatalogCloudFormationProductProvisioningArtifactProperties as X
library-gen/Stratosphere/Resources/ApplicationAutoScalingScalableTarget.hs view
@@ -9,6 +9,7 @@  import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.ApplicationAutoScalingScalableTargetScheduledAction+import Stratosphere.ResourceProperties.ApplicationAutoScalingScalableTargetSuspendedState  -- | Full data type definition for ApplicationAutoScalingScalableTarget. See -- 'applicationAutoScalingScalableTarget' for a more convenient constructor.@@ -21,6 +22,7 @@   , _applicationAutoScalingScalableTargetScalableDimension :: Val Text   , _applicationAutoScalingScalableTargetScheduledActions :: Maybe [ApplicationAutoScalingScalableTargetScheduledAction]   , _applicationAutoScalingScalableTargetServiceNamespace :: Val Text+  , _applicationAutoScalingScalableTargetSuspendedState :: Maybe ApplicationAutoScalingScalableTargetSuspendedState   } deriving (Show, Eq)  instance ToResourceProperties ApplicationAutoScalingScalableTarget where@@ -36,6 +38,7 @@         , (Just . ("ScalableDimension",) . toJSON) _applicationAutoScalingScalableTargetScalableDimension         , fmap (("ScheduledActions",) . toJSON) _applicationAutoScalingScalableTargetScheduledActions         , (Just . ("ServiceNamespace",) . toJSON) _applicationAutoScalingScalableTargetServiceNamespace+        , fmap (("SuspendedState",) . toJSON) _applicationAutoScalingScalableTargetSuspendedState         ]     } @@ -58,6 +61,7 @@   , _applicationAutoScalingScalableTargetScalableDimension = scalableDimensionarg   , _applicationAutoScalingScalableTargetScheduledActions = Nothing   , _applicationAutoScalingScalableTargetServiceNamespace = serviceNamespacearg+  , _applicationAutoScalingScalableTargetSuspendedState = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-applicationautoscaling-scalabletarget.html#cfn-applicationautoscaling-scalabletarget-maxcapacity@@ -87,3 +91,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-applicationautoscaling-scalabletarget.html#cfn-applicationautoscaling-scalabletarget-servicenamespace aasstServiceNamespace :: Lens' ApplicationAutoScalingScalableTarget (Val Text) aasstServiceNamespace = lens _applicationAutoScalingScalableTargetServiceNamespace (\s a -> s { _applicationAutoScalingScalableTargetServiceNamespace = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-applicationautoscaling-scalabletarget.html#cfn-applicationautoscaling-scalabletarget-suspendedstate+aasstSuspendedState :: Lens' ApplicationAutoScalingScalableTarget (Maybe ApplicationAutoScalingScalableTargetSuspendedState)+aasstSuspendedState = lens _applicationAutoScalingScalableTargetSuspendedState (\s a -> s { _applicationAutoScalingScalableTargetSuspendedState = a })
library-gen/Stratosphere/Resources/CloudWatchAlarm.hs view
@@ -32,7 +32,8 @@   , _cloudWatchAlarmOKActions :: Maybe (ValList Text)   , _cloudWatchAlarmPeriod :: Maybe (Val Integer)   , _cloudWatchAlarmStatistic :: Maybe (Val Text)-  , _cloudWatchAlarmThreshold :: Val Double+  , _cloudWatchAlarmThreshold :: Maybe (Val Double)+  , _cloudWatchAlarmThresholdMetricId :: Maybe (Val Text)   , _cloudWatchAlarmTreatMissingData :: Maybe (Val Text)   , _cloudWatchAlarmUnit :: Maybe (Val Text)   } deriving (Show, Eq)@@ -60,7 +61,8 @@         , fmap (("OKActions",) . toJSON) _cloudWatchAlarmOKActions         , fmap (("Period",) . toJSON) _cloudWatchAlarmPeriod         , fmap (("Statistic",) . toJSON) _cloudWatchAlarmStatistic-        , (Just . ("Threshold",) . toJSON) _cloudWatchAlarmThreshold+        , fmap (("Threshold",) . toJSON) _cloudWatchAlarmThreshold+        , fmap (("ThresholdMetricId",) . toJSON) _cloudWatchAlarmThresholdMetricId         , fmap (("TreatMissingData",) . toJSON) _cloudWatchAlarmTreatMissingData         , fmap (("Unit",) . toJSON) _cloudWatchAlarmUnit         ]@@ -71,9 +73,8 @@ cloudWatchAlarm   :: Val Text -- ^ 'cwaComparisonOperator'   -> Val Integer -- ^ 'cwaEvaluationPeriods'-  -> Val Double -- ^ 'cwaThreshold'   -> CloudWatchAlarm-cloudWatchAlarm comparisonOperatorarg evaluationPeriodsarg thresholdarg =+cloudWatchAlarm comparisonOperatorarg evaluationPeriodsarg =   CloudWatchAlarm   { _cloudWatchAlarmActionsEnabled = Nothing   , _cloudWatchAlarmAlarmActions = Nothing@@ -92,7 +93,8 @@   , _cloudWatchAlarmOKActions = Nothing   , _cloudWatchAlarmPeriod = Nothing   , _cloudWatchAlarmStatistic = Nothing-  , _cloudWatchAlarmThreshold = thresholdarg+  , _cloudWatchAlarmThreshold = Nothing+  , _cloudWatchAlarmThresholdMetricId = Nothing   , _cloudWatchAlarmTreatMissingData = Nothing   , _cloudWatchAlarmUnit = Nothing   }@@ -166,8 +168,12 @@ cwaStatistic = lens _cloudWatchAlarmStatistic (\s a -> s { _cloudWatchAlarmStatistic = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cw-alarm.html#cfn-cloudwatch-alarms-threshold-cwaThreshold :: Lens' CloudWatchAlarm (Val Double)+cwaThreshold :: Lens' CloudWatchAlarm (Maybe (Val Double)) cwaThreshold = lens _cloudWatchAlarmThreshold (\s a -> s { _cloudWatchAlarmThreshold = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cw-alarm.html#cfn-cloudwatch-alarms-dynamic-threshold+cwaThresholdMetricId :: Lens' CloudWatchAlarm (Maybe (Val Text))+cwaThresholdMetricId = lens _cloudWatchAlarmThresholdMetricId (\s a -> s { _cloudWatchAlarmThresholdMetricId = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cw-alarm.html#cfn-cloudwatch-alarms-treatmissingdata cwaTreatMissingData :: Lens' CloudWatchAlarm (Maybe (Val Text))
+ library-gen/Stratosphere/Resources/CodeBuildSourceCredential.hs view
@@ -0,0 +1,65 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-sourcecredential.html++module Stratosphere.Resources.CodeBuildSourceCredential where++import Stratosphere.ResourceImports+++-- | Full data type definition for CodeBuildSourceCredential. See+-- 'codeBuildSourceCredential' for a more convenient constructor.+data CodeBuildSourceCredential =+  CodeBuildSourceCredential+  { _codeBuildSourceCredentialAuthType :: Val Text+  , _codeBuildSourceCredentialServerType :: Val Text+  , _codeBuildSourceCredentialToken :: Val Text+  , _codeBuildSourceCredentialUsername :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToResourceProperties CodeBuildSourceCredential where+  toResourceProperties CodeBuildSourceCredential{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::CodeBuild::SourceCredential"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("AuthType",) . toJSON) _codeBuildSourceCredentialAuthType+        , (Just . ("ServerType",) . toJSON) _codeBuildSourceCredentialServerType+        , (Just . ("Token",) . toJSON) _codeBuildSourceCredentialToken+        , fmap (("Username",) . toJSON) _codeBuildSourceCredentialUsername+        ]+    }++-- | Constructor for 'CodeBuildSourceCredential' containing required fields as+-- arguments.+codeBuildSourceCredential+  :: Val Text -- ^ 'cbscAuthType'+  -> Val Text -- ^ 'cbscServerType'+  -> Val Text -- ^ 'cbscToken'+  -> CodeBuildSourceCredential+codeBuildSourceCredential authTypearg serverTypearg tokenarg =+  CodeBuildSourceCredential+  { _codeBuildSourceCredentialAuthType = authTypearg+  , _codeBuildSourceCredentialServerType = serverTypearg+  , _codeBuildSourceCredentialToken = tokenarg+  , _codeBuildSourceCredentialUsername = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-sourcecredential.html#cfn-codebuild-sourcecredential-authtype+cbscAuthType :: Lens' CodeBuildSourceCredential (Val Text)+cbscAuthType = lens _codeBuildSourceCredentialAuthType (\s a -> s { _codeBuildSourceCredentialAuthType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-sourcecredential.html#cfn-codebuild-sourcecredential-servertype+cbscServerType :: Lens' CodeBuildSourceCredential (Val Text)+cbscServerType = lens _codeBuildSourceCredentialServerType (\s a -> s { _codeBuildSourceCredentialServerType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-sourcecredential.html#cfn-codebuild-sourcecredential-token+cbscToken :: Lens' CodeBuildSourceCredential (Val Text)+cbscToken = lens _codeBuildSourceCredentialToken (\s a -> s { _codeBuildSourceCredentialToken = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-sourcecredential.html#cfn-codebuild-sourcecredential-username+cbscUsername :: Lens' CodeBuildSourceCredential (Maybe (Val Text))+cbscUsername = lens _codeBuildSourceCredentialUsername (\s a -> s { _codeBuildSourceCredentialUsername = a })
library-gen/Stratosphere/Resources/CognitoUserPoolClient.hs view
@@ -25,7 +25,7 @@   , _cognitoUserPoolClientGenerateSecret :: Maybe (Val Bool)   , _cognitoUserPoolClientLogoutURLs :: Maybe (ValList Text)   , _cognitoUserPoolClientReadAttributes :: Maybe (ValList Text)-  , _cognitoUserPoolClientRefreshTokenValidity :: Maybe (Val Double)+  , _cognitoUserPoolClientRefreshTokenValidity :: Maybe (Val Integer)   , _cognitoUserPoolClientSupportedIdentityProviders :: Maybe (ValList Text)   , _cognitoUserPoolClientUserPoolId :: Val Text   , _cognitoUserPoolClientWriteAttributes :: Maybe (ValList Text)@@ -124,7 +124,7 @@ cupcReadAttributes = lens _cognitoUserPoolClientReadAttributes (\s a -> s { _cognitoUserPoolClientReadAttributes = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolclient.html#cfn-cognito-userpoolclient-refreshtokenvalidity-cupcRefreshTokenValidity :: Lens' CognitoUserPoolClient (Maybe (Val Double))+cupcRefreshTokenValidity :: Lens' CognitoUserPoolClient (Maybe (Val Integer)) cupcRefreshTokenValidity = lens _cognitoUserPoolClientRefreshTokenValidity (\s a -> s { _cognitoUserPoolClientRefreshTokenValidity = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolclient.html#cfn-cognito-userpoolclient-supportedidentityproviders
+ library-gen/Stratosphere/Resources/ConfigOrganizationConfigRule.hs view
@@ -0,0 +1,64 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-organizationconfigrule.html++module Stratosphere.Resources.ConfigOrganizationConfigRule where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata+import Stratosphere.ResourceProperties.ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata++-- | Full data type definition for ConfigOrganizationConfigRule. See+-- 'configOrganizationConfigRule' for a more convenient constructor.+data ConfigOrganizationConfigRule =+  ConfigOrganizationConfigRule+  { _configOrganizationConfigRuleExcludedAccounts :: Maybe (ValList Text)+  , _configOrganizationConfigRuleOrganizationConfigRuleName :: Val Text+  , _configOrganizationConfigRuleOrganizationCustomRuleMetadata :: Maybe ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata+  , _configOrganizationConfigRuleOrganizationManagedRuleMetadata :: Maybe ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata+  } deriving (Show, Eq)++instance ToResourceProperties ConfigOrganizationConfigRule where+  toResourceProperties ConfigOrganizationConfigRule{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::Config::OrganizationConfigRule"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("ExcludedAccounts",) . toJSON) _configOrganizationConfigRuleExcludedAccounts+        , (Just . ("OrganizationConfigRuleName",) . toJSON) _configOrganizationConfigRuleOrganizationConfigRuleName+        , fmap (("OrganizationCustomRuleMetadata",) . toJSON) _configOrganizationConfigRuleOrganizationCustomRuleMetadata+        , fmap (("OrganizationManagedRuleMetadata",) . toJSON) _configOrganizationConfigRuleOrganizationManagedRuleMetadata+        ]+    }++-- | Constructor for 'ConfigOrganizationConfigRule' containing required fields+-- as arguments.+configOrganizationConfigRule+  :: Val Text -- ^ 'cocrOrganizationConfigRuleName'+  -> ConfigOrganizationConfigRule+configOrganizationConfigRule organizationConfigRuleNamearg =+  ConfigOrganizationConfigRule+  { _configOrganizationConfigRuleExcludedAccounts = Nothing+  , _configOrganizationConfigRuleOrganizationConfigRuleName = organizationConfigRuleNamearg+  , _configOrganizationConfigRuleOrganizationCustomRuleMetadata = Nothing+  , _configOrganizationConfigRuleOrganizationManagedRuleMetadata = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-organizationconfigrule.html#cfn-config-organizationconfigrule-excludedaccounts+cocrExcludedAccounts :: Lens' ConfigOrganizationConfigRule (Maybe (ValList Text))+cocrExcludedAccounts = lens _configOrganizationConfigRuleExcludedAccounts (\s a -> s { _configOrganizationConfigRuleExcludedAccounts = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-organizationconfigrule.html#cfn-config-organizationconfigrule-organizationconfigrulename+cocrOrganizationConfigRuleName :: Lens' ConfigOrganizationConfigRule (Val Text)+cocrOrganizationConfigRuleName = lens _configOrganizationConfigRuleOrganizationConfigRuleName (\s a -> s { _configOrganizationConfigRuleOrganizationConfigRuleName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-organizationconfigrule.html#cfn-config-organizationconfigrule-organizationcustomrulemetadata+cocrOrganizationCustomRuleMetadata :: Lens' ConfigOrganizationConfigRule (Maybe ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata)+cocrOrganizationCustomRuleMetadata = lens _configOrganizationConfigRuleOrganizationCustomRuleMetadata (\s a -> s { _configOrganizationConfigRuleOrganizationCustomRuleMetadata = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-organizationconfigrule.html#cfn-config-organizationconfigrule-organizationmanagedrulemetadata+cocrOrganizationManagedRuleMetadata :: Lens' ConfigOrganizationConfigRule (Maybe ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata)+cocrOrganizationManagedRuleMetadata = lens _configOrganizationConfigRuleOrganizationManagedRuleMetadata (\s a -> s { _configOrganizationConfigRuleOrganizationManagedRuleMetadata = a })
library-gen/Stratosphere/Resources/DMSReplicationTask.hs view
@@ -14,7 +14,9 @@ -- 'dmsReplicationTask' for a more convenient constructor. data DMSReplicationTask =   DMSReplicationTask-  { _dMSReplicationTaskCdcStartTime :: Maybe (Val Double)+  { _dMSReplicationTaskCdcStartPosition :: Maybe (Val Text)+  , _dMSReplicationTaskCdcStartTime :: Maybe (Val Double)+  , _dMSReplicationTaskCdcStopPosition :: Maybe (Val Text)   , _dMSReplicationTaskMigrationType :: Val Text   , _dMSReplicationTaskReplicationInstanceArn :: Val Text   , _dMSReplicationTaskReplicationTaskIdentifier :: Maybe (Val Text)@@ -31,7 +33,9 @@     { resourcePropertiesType = "AWS::DMS::ReplicationTask"     , resourcePropertiesProperties =         hashMapFromList $ catMaybes-        [ fmap (("CdcStartTime",) . toJSON) _dMSReplicationTaskCdcStartTime+        [ fmap (("CdcStartPosition",) . toJSON) _dMSReplicationTaskCdcStartPosition+        , fmap (("CdcStartTime",) . toJSON) _dMSReplicationTaskCdcStartTime+        , fmap (("CdcStopPosition",) . toJSON) _dMSReplicationTaskCdcStopPosition         , (Just . ("MigrationType",) . toJSON) _dMSReplicationTaskMigrationType         , (Just . ("ReplicationInstanceArn",) . toJSON) _dMSReplicationTaskReplicationInstanceArn         , fmap (("ReplicationTaskIdentifier",) . toJSON) _dMSReplicationTaskReplicationTaskIdentifier@@ -54,7 +58,9 @@   -> DMSReplicationTask dmsReplicationTask migrationTypearg replicationInstanceArnarg sourceEndpointArnarg tableMappingsarg targetEndpointArnarg =   DMSReplicationTask-  { _dMSReplicationTaskCdcStartTime = Nothing+  { _dMSReplicationTaskCdcStartPosition = Nothing+  , _dMSReplicationTaskCdcStartTime = Nothing+  , _dMSReplicationTaskCdcStopPosition = Nothing   , _dMSReplicationTaskMigrationType = migrationTypearg   , _dMSReplicationTaskReplicationInstanceArn = replicationInstanceArnarg   , _dMSReplicationTaskReplicationTaskIdentifier = Nothing@@ -65,9 +71,17 @@   , _dMSReplicationTaskTargetEndpointArn = targetEndpointArnarg   } +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationtask.html#cfn-dms-replicationtask-cdcstartposition+dmsrtCdcStartPosition :: Lens' DMSReplicationTask (Maybe (Val Text))+dmsrtCdcStartPosition = lens _dMSReplicationTaskCdcStartPosition (\s a -> s { _dMSReplicationTaskCdcStartPosition = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationtask.html#cfn-dms-replicationtask-cdcstarttime dmsrtCdcStartTime :: Lens' DMSReplicationTask (Maybe (Val Double)) dmsrtCdcStartTime = lens _dMSReplicationTaskCdcStartTime (\s a -> s { _dMSReplicationTaskCdcStartTime = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationtask.html#cfn-dms-replicationtask-cdcstopposition+dmsrtCdcStopPosition :: Lens' DMSReplicationTask (Maybe (Val Text))+dmsrtCdcStopPosition = lens _dMSReplicationTaskCdcStopPosition (\s a -> s { _dMSReplicationTaskCdcStopPosition = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationtask.html#cfn-dms-replicationtask-migrationtype dmsrtMigrationType :: Lens' DMSReplicationTask (Val Text)
library-gen/Stratosphere/Resources/EC2ClientVpnEndpoint.hs view
@@ -22,6 +22,7 @@   , _eC2ClientVpnEndpointDescription :: Maybe (Val Text)   , _eC2ClientVpnEndpointDnsServers :: Maybe (ValList Text)   , _eC2ClientVpnEndpointServerCertificateArn :: Val Text+  , _eC2ClientVpnEndpointSplitTunnel :: Maybe (Val Bool)   , _eC2ClientVpnEndpointTagSpecifications :: Maybe [EC2ClientVpnEndpointTagSpecification]   , _eC2ClientVpnEndpointTransportProtocol :: Maybe (Val Text)   } deriving (Show, Eq)@@ -38,6 +39,7 @@         , fmap (("Description",) . toJSON) _eC2ClientVpnEndpointDescription         , fmap (("DnsServers",) . toJSON) _eC2ClientVpnEndpointDnsServers         , (Just . ("ServerCertificateArn",) . toJSON) _eC2ClientVpnEndpointServerCertificateArn+        , fmap (("SplitTunnel",) . toJSON) _eC2ClientVpnEndpointSplitTunnel         , fmap (("TagSpecifications",) . toJSON) _eC2ClientVpnEndpointTagSpecifications         , fmap (("TransportProtocol",) . toJSON) _eC2ClientVpnEndpointTransportProtocol         ]@@ -59,6 +61,7 @@   , _eC2ClientVpnEndpointDescription = Nothing   , _eC2ClientVpnEndpointDnsServers = Nothing   , _eC2ClientVpnEndpointServerCertificateArn = serverCertificateArnarg+  , _eC2ClientVpnEndpointSplitTunnel = Nothing   , _eC2ClientVpnEndpointTagSpecifications = Nothing   , _eC2ClientVpnEndpointTransportProtocol = Nothing   }@@ -86,6 +89,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnendpoint.html#cfn-ec2-clientvpnendpoint-servercertificatearn eccveServerCertificateArn :: Lens' EC2ClientVpnEndpoint (Val Text) eccveServerCertificateArn = lens _eC2ClientVpnEndpointServerCertificateArn (\s a -> s { _eC2ClientVpnEndpointServerCertificateArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnendpoint.html#cfn-ec2-clientvpnendpoint-splittunnel+eccveSplitTunnel :: Lens' EC2ClientVpnEndpoint (Maybe (Val Bool))+eccveSplitTunnel = lens _eC2ClientVpnEndpointSplitTunnel (\s a -> s { _eC2ClientVpnEndpointSplitTunnel = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnendpoint.html#cfn-ec2-clientvpnendpoint-tagspecifications eccveTagSpecifications :: Lens' EC2ClientVpnEndpoint (Maybe [EC2ClientVpnEndpointTagSpecification])
library-gen/Stratosphere/Resources/EC2Instance.hs view
@@ -9,6 +9,7 @@  import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.EC2InstanceBlockDeviceMapping+import Stratosphere.ResourceProperties.EC2InstanceCpuOptions import Stratosphere.ResourceProperties.EC2InstanceCreditSpecification import Stratosphere.ResourceProperties.EC2InstanceElasticGpuSpecification import Stratosphere.ResourceProperties.EC2InstanceElasticInferenceAccelerator@@ -28,6 +29,7 @@   , _eC2InstanceAffinity :: Maybe (Val Text)   , _eC2InstanceAvailabilityZone :: Maybe (Val Text)   , _eC2InstanceBlockDeviceMappings :: Maybe [EC2InstanceBlockDeviceMapping]+  , _eC2InstanceCpuOptions :: Maybe EC2InstanceCpuOptions   , _eC2InstanceCreditSpecification :: Maybe EC2InstanceCreditSpecification   , _eC2InstanceDisableApiTermination :: Maybe (Val Bool)   , _eC2InstanceEbsOptimized :: Maybe (Val Bool)@@ -70,6 +72,7 @@         , fmap (("Affinity",) . toJSON) _eC2InstanceAffinity         , fmap (("AvailabilityZone",) . toJSON) _eC2InstanceAvailabilityZone         , fmap (("BlockDeviceMappings",) . toJSON) _eC2InstanceBlockDeviceMappings+        , fmap (("CpuOptions",) . toJSON) _eC2InstanceCpuOptions         , fmap (("CreditSpecification",) . toJSON) _eC2InstanceCreditSpecification         , fmap (("DisableApiTermination",) . toJSON) _eC2InstanceDisableApiTermination         , fmap (("EbsOptimized",) . toJSON) _eC2InstanceEbsOptimized@@ -112,6 +115,7 @@   , _eC2InstanceAffinity = Nothing   , _eC2InstanceAvailabilityZone = Nothing   , _eC2InstanceBlockDeviceMappings = Nothing+  , _eC2InstanceCpuOptions = Nothing   , _eC2InstanceCreditSpecification = Nothing   , _eC2InstanceDisableApiTermination = Nothing   , _eC2InstanceEbsOptimized = Nothing@@ -159,6 +163,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-blockdevicemappings eciBlockDeviceMappings :: Lens' EC2Instance (Maybe [EC2InstanceBlockDeviceMapping]) eciBlockDeviceMappings = lens _eC2InstanceBlockDeviceMappings (\s a -> s { _eC2InstanceBlockDeviceMappings = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-cpuoptions+eciCpuOptions :: Lens' EC2Instance (Maybe EC2InstanceCpuOptions)+eciCpuOptions = lens _eC2InstanceCpuOptions (\s a -> s { _eC2InstanceCpuOptions = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-creditspecification eciCreditSpecification :: Lens' EC2Instance (Maybe EC2InstanceCreditSpecification)
library-gen/Stratosphere/Resources/ECSTaskDefinition.hs view
@@ -22,8 +22,10 @@   , _eCSTaskDefinitionCpu :: Maybe (Val Text)   , _eCSTaskDefinitionExecutionRoleArn :: Maybe (Val Text)   , _eCSTaskDefinitionFamily :: Maybe (Val Text)+  , _eCSTaskDefinitionIpcMode :: Maybe (Val Text)   , _eCSTaskDefinitionMemory :: Maybe (Val Text)   , _eCSTaskDefinitionNetworkMode :: Maybe (Val Text)+  , _eCSTaskDefinitionPidMode :: Maybe (Val Text)   , _eCSTaskDefinitionPlacementConstraints :: Maybe [ECSTaskDefinitionTaskDefinitionPlacementConstraint]   , _eCSTaskDefinitionProxyConfiguration :: Maybe ECSTaskDefinitionProxyConfiguration   , _eCSTaskDefinitionRequiresCompatibilities :: Maybe (ValList Text)@@ -42,8 +44,10 @@         , fmap (("Cpu",) . toJSON) _eCSTaskDefinitionCpu         , fmap (("ExecutionRoleArn",) . toJSON) _eCSTaskDefinitionExecutionRoleArn         , fmap (("Family",) . toJSON) _eCSTaskDefinitionFamily+        , fmap (("IpcMode",) . toJSON) _eCSTaskDefinitionIpcMode         , fmap (("Memory",) . toJSON) _eCSTaskDefinitionMemory         , fmap (("NetworkMode",) . toJSON) _eCSTaskDefinitionNetworkMode+        , fmap (("PidMode",) . toJSON) _eCSTaskDefinitionPidMode         , fmap (("PlacementConstraints",) . toJSON) _eCSTaskDefinitionPlacementConstraints         , fmap (("ProxyConfiguration",) . toJSON) _eCSTaskDefinitionProxyConfiguration         , fmap (("RequiresCompatibilities",) . toJSON) _eCSTaskDefinitionRequiresCompatibilities@@ -63,8 +67,10 @@   , _eCSTaskDefinitionCpu = Nothing   , _eCSTaskDefinitionExecutionRoleArn = Nothing   , _eCSTaskDefinitionFamily = Nothing+  , _eCSTaskDefinitionIpcMode = Nothing   , _eCSTaskDefinitionMemory = Nothing   , _eCSTaskDefinitionNetworkMode = Nothing+  , _eCSTaskDefinitionPidMode = Nothing   , _eCSTaskDefinitionPlacementConstraints = Nothing   , _eCSTaskDefinitionProxyConfiguration = Nothing   , _eCSTaskDefinitionRequiresCompatibilities = Nothing@@ -89,6 +95,10 @@ ecstdFamily :: Lens' ECSTaskDefinition (Maybe (Val Text)) ecstdFamily = lens _eCSTaskDefinitionFamily (\s a -> s { _eCSTaskDefinitionFamily = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-ipcmode+ecstdIpcMode :: Lens' ECSTaskDefinition (Maybe (Val Text))+ecstdIpcMode = lens _eCSTaskDefinitionIpcMode (\s a -> s { _eCSTaskDefinitionIpcMode = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-memory ecstdMemory :: Lens' ECSTaskDefinition (Maybe (Val Text)) ecstdMemory = lens _eCSTaskDefinitionMemory (\s a -> s { _eCSTaskDefinitionMemory = a })@@ -96,6 +106,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-networkmode ecstdNetworkMode :: Lens' ECSTaskDefinition (Maybe (Val Text)) ecstdNetworkMode = lens _eCSTaskDefinitionNetworkMode (\s a -> s { _eCSTaskDefinitionNetworkMode = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-pidmode+ecstdPidMode :: Lens' ECSTaskDefinition (Maybe (Val Text))+ecstdPidMode = lens _eCSTaskDefinitionPidMode (\s a -> s { _eCSTaskDefinitionPidMode = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-placementconstraints ecstdPlacementConstraints :: Lens' ECSTaskDefinition (Maybe [ECSTaskDefinitionTaskDefinitionPlacementConstraint])
library-gen/Stratosphere/Resources/ElastiCacheReplicationGroup.hs view
@@ -25,6 +25,7 @@   , _elastiCacheReplicationGroupCacheSubnetGroupName :: Maybe (Val Text)   , _elastiCacheReplicationGroupEngine :: Maybe (Val Text)   , _elastiCacheReplicationGroupEngineVersion :: Maybe (Val Text)+  , _elastiCacheReplicationGroupKmsKeyId :: Maybe (Val Text)   , _elastiCacheReplicationGroupNodeGroupConfiguration :: Maybe [ElastiCacheReplicationGroupNodeGroupConfiguration]   , _elastiCacheReplicationGroupNotificationTopicArn :: Maybe (Val Text)   , _elastiCacheReplicationGroupNumCacheClusters :: Maybe (Val Integer)@@ -62,6 +63,7 @@         , fmap (("CacheSubnetGroupName",) . toJSON) _elastiCacheReplicationGroupCacheSubnetGroupName         , fmap (("Engine",) . toJSON) _elastiCacheReplicationGroupEngine         , fmap (("EngineVersion",) . toJSON) _elastiCacheReplicationGroupEngineVersion+        , fmap (("KmsKeyId",) . toJSON) _elastiCacheReplicationGroupKmsKeyId         , fmap (("NodeGroupConfiguration",) . toJSON) _elastiCacheReplicationGroupNodeGroupConfiguration         , fmap (("NotificationTopicArn",) . toJSON) _elastiCacheReplicationGroupNotificationTopicArn         , fmap (("NumCacheClusters",) . toJSON) _elastiCacheReplicationGroupNumCacheClusters@@ -101,6 +103,7 @@   , _elastiCacheReplicationGroupCacheSubnetGroupName = Nothing   , _elastiCacheReplicationGroupEngine = Nothing   , _elastiCacheReplicationGroupEngineVersion = Nothing+  , _elastiCacheReplicationGroupKmsKeyId = Nothing   , _elastiCacheReplicationGroupNodeGroupConfiguration = Nothing   , _elastiCacheReplicationGroupNotificationTopicArn = Nothing   , _elastiCacheReplicationGroupNumCacheClusters = Nothing@@ -161,6 +164,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-engineversion ecrgEngineVersion :: Lens' ElastiCacheReplicationGroup (Maybe (Val Text)) ecrgEngineVersion = lens _elastiCacheReplicationGroupEngineVersion (\s a -> s { _elastiCacheReplicationGroupEngineVersion = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-kmskeyid+ecrgKmsKeyId :: Lens' ElastiCacheReplicationGroup (Maybe (Val Text))+ecrgKmsKeyId = lens _elastiCacheReplicationGroupKmsKeyId (\s a -> s { _elastiCacheReplicationGroupKmsKeyId = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-nodegroupconfiguration ecrgNodeGroupConfiguration :: Lens' ElastiCacheReplicationGroup (Maybe [ElastiCacheReplicationGroupNodeGroupConfiguration])
+ library-gen/Stratosphere/Resources/GlueMLTransform.hs view
@@ -0,0 +1,108 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-mltransform.html++module Stratosphere.Resources.GlueMLTransform where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.GlueMLTransformInputRecordTables+import Stratosphere.ResourceProperties.GlueMLTransformTransformParameters++-- | Full data type definition for GlueMLTransform. See 'glueMLTransform' for+-- a more convenient constructor.+data GlueMLTransform =+  GlueMLTransform+  { _glueMLTransformDescription :: Maybe (Val Text)+  , _glueMLTransformInputRecordTables :: GlueMLTransformInputRecordTables+  , _glueMLTransformMaxCapacity :: Maybe (Val Double)+  , _glueMLTransformMaxRetries :: Maybe (Val Integer)+  , _glueMLTransformName :: Maybe (Val Text)+  , _glueMLTransformNumberOfWorkers :: Maybe (Val Integer)+  , _glueMLTransformRole :: Val Text+  , _glueMLTransformTimeout :: Maybe (Val Integer)+  , _glueMLTransformTransformParameters :: GlueMLTransformTransformParameters+  , _glueMLTransformWorkerType :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToResourceProperties GlueMLTransform where+  toResourceProperties GlueMLTransform{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::Glue::MLTransform"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("Description",) . toJSON) _glueMLTransformDescription+        , (Just . ("InputRecordTables",) . toJSON) _glueMLTransformInputRecordTables+        , fmap (("MaxCapacity",) . toJSON) _glueMLTransformMaxCapacity+        , fmap (("MaxRetries",) . toJSON) _glueMLTransformMaxRetries+        , fmap (("Name",) . toJSON) _glueMLTransformName+        , fmap (("NumberOfWorkers",) . toJSON) _glueMLTransformNumberOfWorkers+        , (Just . ("Role",) . toJSON) _glueMLTransformRole+        , fmap (("Timeout",) . toJSON) _glueMLTransformTimeout+        , (Just . ("TransformParameters",) . toJSON) _glueMLTransformTransformParameters+        , fmap (("WorkerType",) . toJSON) _glueMLTransformWorkerType+        ]+    }++-- | Constructor for 'GlueMLTransform' containing required fields as+-- arguments.+glueMLTransform+  :: GlueMLTransformInputRecordTables -- ^ 'gmltInputRecordTables'+  -> Val Text -- ^ 'gmltRole'+  -> GlueMLTransformTransformParameters -- ^ 'gmltTransformParameters'+  -> GlueMLTransform+glueMLTransform inputRecordTablesarg rolearg transformParametersarg =+  GlueMLTransform+  { _glueMLTransformDescription = Nothing+  , _glueMLTransformInputRecordTables = inputRecordTablesarg+  , _glueMLTransformMaxCapacity = Nothing+  , _glueMLTransformMaxRetries = Nothing+  , _glueMLTransformName = Nothing+  , _glueMLTransformNumberOfWorkers = Nothing+  , _glueMLTransformRole = rolearg+  , _glueMLTransformTimeout = Nothing+  , _glueMLTransformTransformParameters = transformParametersarg+  , _glueMLTransformWorkerType = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-mltransform.html#cfn-glue-mltransform-description+gmltDescription :: Lens' GlueMLTransform (Maybe (Val Text))+gmltDescription = lens _glueMLTransformDescription (\s a -> s { _glueMLTransformDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-mltransform.html#cfn-glue-mltransform-inputrecordtables+gmltInputRecordTables :: Lens' GlueMLTransform GlueMLTransformInputRecordTables+gmltInputRecordTables = lens _glueMLTransformInputRecordTables (\s a -> s { _glueMLTransformInputRecordTables = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-mltransform.html#cfn-glue-mltransform-maxcapacity+gmltMaxCapacity :: Lens' GlueMLTransform (Maybe (Val Double))+gmltMaxCapacity = lens _glueMLTransformMaxCapacity (\s a -> s { _glueMLTransformMaxCapacity = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-mltransform.html#cfn-glue-mltransform-maxretries+gmltMaxRetries :: Lens' GlueMLTransform (Maybe (Val Integer))+gmltMaxRetries = lens _glueMLTransformMaxRetries (\s a -> s { _glueMLTransformMaxRetries = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-mltransform.html#cfn-glue-mltransform-name+gmltName :: Lens' GlueMLTransform (Maybe (Val Text))+gmltName = lens _glueMLTransformName (\s a -> s { _glueMLTransformName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-mltransform.html#cfn-glue-mltransform-numberofworkers+gmltNumberOfWorkers :: Lens' GlueMLTransform (Maybe (Val Integer))+gmltNumberOfWorkers = lens _glueMLTransformNumberOfWorkers (\s a -> s { _glueMLTransformNumberOfWorkers = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-mltransform.html#cfn-glue-mltransform-role+gmltRole :: Lens' GlueMLTransform (Val Text)+gmltRole = lens _glueMLTransformRole (\s a -> s { _glueMLTransformRole = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-mltransform.html#cfn-glue-mltransform-timeout+gmltTimeout :: Lens' GlueMLTransform (Maybe (Val Integer))+gmltTimeout = lens _glueMLTransformTimeout (\s a -> s { _glueMLTransformTimeout = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-mltransform.html#cfn-glue-mltransform-transformparameters+gmltTransformParameters :: Lens' GlueMLTransform GlueMLTransformTransformParameters+gmltTransformParameters = lens _glueMLTransformTransformParameters (\s a -> s { _glueMLTransformTransformParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-mltransform.html#cfn-glue-mltransform-workertype+gmltWorkerType :: Lens' GlueMLTransform (Maybe (Val Text))+gmltWorkerType = lens _glueMLTransformWorkerType (\s a -> s { _glueMLTransformWorkerType = a })
library-gen/Stratosphere/Resources/GreengrassConnectorDefinition.hs view
@@ -16,6 +16,7 @@   GreengrassConnectorDefinition   { _greengrassConnectorDefinitionInitialVersion :: Maybe GreengrassConnectorDefinitionConnectorDefinitionVersion   , _greengrassConnectorDefinitionName :: Val Text+  , _greengrassConnectorDefinitionTags :: Maybe Object   } deriving (Show, Eq)  instance ToResourceProperties GreengrassConnectorDefinition where@@ -26,6 +27,7 @@         hashMapFromList $ catMaybes         [ fmap (("InitialVersion",) . toJSON) _greengrassConnectorDefinitionInitialVersion         , (Just . ("Name",) . toJSON) _greengrassConnectorDefinitionName+        , fmap (("Tags",) . toJSON) _greengrassConnectorDefinitionTags         ]     } @@ -38,6 +40,7 @@   GreengrassConnectorDefinition   { _greengrassConnectorDefinitionInitialVersion = Nothing   , _greengrassConnectorDefinitionName = namearg+  , _greengrassConnectorDefinitionTags = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-connectordefinition.html#cfn-greengrass-connectordefinition-initialversion@@ -47,3 +50,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-connectordefinition.html#cfn-greengrass-connectordefinition-name gcdnName :: Lens' GreengrassConnectorDefinition (Val Text) gcdnName = lens _greengrassConnectorDefinitionName (\s a -> s { _greengrassConnectorDefinitionName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-connectordefinition.html#cfn-greengrass-connectordefinition-tags+gcdnTags :: Lens' GreengrassConnectorDefinition (Maybe Object)+gcdnTags = lens _greengrassConnectorDefinitionTags (\s a -> s { _greengrassConnectorDefinitionTags = a })
library-gen/Stratosphere/Resources/GreengrassCoreDefinition.hs view
@@ -16,6 +16,7 @@   GreengrassCoreDefinition   { _greengrassCoreDefinitionInitialVersion :: Maybe GreengrassCoreDefinitionCoreDefinitionVersion   , _greengrassCoreDefinitionName :: Val Text+  , _greengrassCoreDefinitionTags :: Maybe Object   } deriving (Show, Eq)  instance ToResourceProperties GreengrassCoreDefinition where@@ -26,6 +27,7 @@         hashMapFromList $ catMaybes         [ fmap (("InitialVersion",) . toJSON) _greengrassCoreDefinitionInitialVersion         , (Just . ("Name",) . toJSON) _greengrassCoreDefinitionName+        , fmap (("Tags",) . toJSON) _greengrassCoreDefinitionTags         ]     } @@ -38,6 +40,7 @@   GreengrassCoreDefinition   { _greengrassCoreDefinitionInitialVersion = Nothing   , _greengrassCoreDefinitionName = namearg+  , _greengrassCoreDefinitionTags = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-coredefinition.html#cfn-greengrass-coredefinition-initialversion@@ -47,3 +50,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-coredefinition.html#cfn-greengrass-coredefinition-name gcdrName :: Lens' GreengrassCoreDefinition (Val Text) gcdrName = lens _greengrassCoreDefinitionName (\s a -> s { _greengrassCoreDefinitionName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-coredefinition.html#cfn-greengrass-coredefinition-tags+gcdrTags :: Lens' GreengrassCoreDefinition (Maybe Object)+gcdrTags = lens _greengrassCoreDefinitionTags (\s a -> s { _greengrassCoreDefinitionTags = a })
library-gen/Stratosphere/Resources/GreengrassDeviceDefinition.hs view
@@ -16,6 +16,7 @@   GreengrassDeviceDefinition   { _greengrassDeviceDefinitionInitialVersion :: Maybe GreengrassDeviceDefinitionDeviceDefinitionVersion   , _greengrassDeviceDefinitionName :: Val Text+  , _greengrassDeviceDefinitionTags :: Maybe Object   } deriving (Show, Eq)  instance ToResourceProperties GreengrassDeviceDefinition where@@ -26,6 +27,7 @@         hashMapFromList $ catMaybes         [ fmap (("InitialVersion",) . toJSON) _greengrassDeviceDefinitionInitialVersion         , (Just . ("Name",) . toJSON) _greengrassDeviceDefinitionName+        , fmap (("Tags",) . toJSON) _greengrassDeviceDefinitionTags         ]     } @@ -38,6 +40,7 @@   GreengrassDeviceDefinition   { _greengrassDeviceDefinitionInitialVersion = Nothing   , _greengrassDeviceDefinitionName = namearg+  , _greengrassDeviceDefinitionTags = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-devicedefinition.html#cfn-greengrass-devicedefinition-initialversion@@ -47,3 +50,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-devicedefinition.html#cfn-greengrass-devicedefinition-name gddName :: Lens' GreengrassDeviceDefinition (Val Text) gddName = lens _greengrassDeviceDefinitionName (\s a -> s { _greengrassDeviceDefinitionName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-devicedefinition.html#cfn-greengrass-devicedefinition-tags+gddTags :: Lens' GreengrassDeviceDefinition (Maybe Object)+gddTags = lens _greengrassDeviceDefinitionTags (\s a -> s { _greengrassDeviceDefinitionTags = a })
library-gen/Stratosphere/Resources/GreengrassFunctionDefinition.hs view
@@ -16,6 +16,7 @@   GreengrassFunctionDefinition   { _greengrassFunctionDefinitionInitialVersion :: Maybe GreengrassFunctionDefinitionFunctionDefinitionVersion   , _greengrassFunctionDefinitionName :: Val Text+  , _greengrassFunctionDefinitionTags :: Maybe Object   } deriving (Show, Eq)  instance ToResourceProperties GreengrassFunctionDefinition where@@ -26,6 +27,7 @@         hashMapFromList $ catMaybes         [ fmap (("InitialVersion",) . toJSON) _greengrassFunctionDefinitionInitialVersion         , (Just . ("Name",) . toJSON) _greengrassFunctionDefinitionName+        , fmap (("Tags",) . toJSON) _greengrassFunctionDefinitionTags         ]     } @@ -38,6 +40,7 @@   GreengrassFunctionDefinition   { _greengrassFunctionDefinitionInitialVersion = Nothing   , _greengrassFunctionDefinitionName = namearg+  , _greengrassFunctionDefinitionTags = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-functiondefinition.html#cfn-greengrass-functiondefinition-initialversion@@ -47,3 +50,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-functiondefinition.html#cfn-greengrass-functiondefinition-name gfdName :: Lens' GreengrassFunctionDefinition (Val Text) gfdName = lens _greengrassFunctionDefinitionName (\s a -> s { _greengrassFunctionDefinitionName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-functiondefinition.html#cfn-greengrass-functiondefinition-tags+gfdTags :: Lens' GreengrassFunctionDefinition (Maybe Object)+gfdTags = lens _greengrassFunctionDefinitionTags (\s a -> s { _greengrassFunctionDefinitionTags = a })
library-gen/Stratosphere/Resources/GreengrassGroup.hs view
@@ -17,6 +17,7 @@   { _greengrassGroupInitialVersion :: Maybe GreengrassGroupGroupVersion   , _greengrassGroupName :: Val Text   , _greengrassGroupRoleArn :: Maybe (Val Text)+  , _greengrassGroupTags :: Maybe Object   } deriving (Show, Eq)  instance ToResourceProperties GreengrassGroup where@@ -28,6 +29,7 @@         [ fmap (("InitialVersion",) . toJSON) _greengrassGroupInitialVersion         , (Just . ("Name",) . toJSON) _greengrassGroupName         , fmap (("RoleArn",) . toJSON) _greengrassGroupRoleArn+        , fmap (("Tags",) . toJSON) _greengrassGroupTags         ]     } @@ -41,6 +43,7 @@   { _greengrassGroupInitialVersion = Nothing   , _greengrassGroupName = namearg   , _greengrassGroupRoleArn = Nothing+  , _greengrassGroupTags = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-group.html#cfn-greengrass-group-initialversion@@ -54,3 +57,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-group.html#cfn-greengrass-group-rolearn ggRoleArn :: Lens' GreengrassGroup (Maybe (Val Text)) ggRoleArn = lens _greengrassGroupRoleArn (\s a -> s { _greengrassGroupRoleArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-group.html#cfn-greengrass-group-tags+ggTags :: Lens' GreengrassGroup (Maybe Object)+ggTags = lens _greengrassGroupTags (\s a -> s { _greengrassGroupTags = a })
library-gen/Stratosphere/Resources/GreengrassLoggerDefinition.hs view
@@ -16,6 +16,7 @@   GreengrassLoggerDefinition   { _greengrassLoggerDefinitionInitialVersion :: Maybe GreengrassLoggerDefinitionLoggerDefinitionVersion   , _greengrassLoggerDefinitionName :: Val Text+  , _greengrassLoggerDefinitionTags :: Maybe Object   } deriving (Show, Eq)  instance ToResourceProperties GreengrassLoggerDefinition where@@ -26,6 +27,7 @@         hashMapFromList $ catMaybes         [ fmap (("InitialVersion",) . toJSON) _greengrassLoggerDefinitionInitialVersion         , (Just . ("Name",) . toJSON) _greengrassLoggerDefinitionName+        , fmap (("Tags",) . toJSON) _greengrassLoggerDefinitionTags         ]     } @@ -38,6 +40,7 @@   GreengrassLoggerDefinition   { _greengrassLoggerDefinitionInitialVersion = Nothing   , _greengrassLoggerDefinitionName = namearg+  , _greengrassLoggerDefinitionTags = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-loggerdefinition.html#cfn-greengrass-loggerdefinition-initialversion@@ -47,3 +50,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-loggerdefinition.html#cfn-greengrass-loggerdefinition-name gldName :: Lens' GreengrassLoggerDefinition (Val Text) gldName = lens _greengrassLoggerDefinitionName (\s a -> s { _greengrassLoggerDefinitionName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-loggerdefinition.html#cfn-greengrass-loggerdefinition-tags+gldTags :: Lens' GreengrassLoggerDefinition (Maybe Object)+gldTags = lens _greengrassLoggerDefinitionTags (\s a -> s { _greengrassLoggerDefinitionTags = a })
library-gen/Stratosphere/Resources/GreengrassResourceDefinition.hs view
@@ -16,6 +16,7 @@   GreengrassResourceDefinition   { _greengrassResourceDefinitionInitialVersion :: Maybe GreengrassResourceDefinitionResourceDefinitionVersion   , _greengrassResourceDefinitionName :: Val Text+  , _greengrassResourceDefinitionTags :: Maybe Object   } deriving (Show, Eq)  instance ToResourceProperties GreengrassResourceDefinition where@@ -26,6 +27,7 @@         hashMapFromList $ catMaybes         [ fmap (("InitialVersion",) . toJSON) _greengrassResourceDefinitionInitialVersion         , (Just . ("Name",) . toJSON) _greengrassResourceDefinitionName+        , fmap (("Tags",) . toJSON) _greengrassResourceDefinitionTags         ]     } @@ -38,6 +40,7 @@   GreengrassResourceDefinition   { _greengrassResourceDefinitionInitialVersion = Nothing   , _greengrassResourceDefinitionName = namearg+  , _greengrassResourceDefinitionTags = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-resourcedefinition.html#cfn-greengrass-resourcedefinition-initialversion@@ -47,3 +50,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-resourcedefinition.html#cfn-greengrass-resourcedefinition-name grdName :: Lens' GreengrassResourceDefinition (Val Text) grdName = lens _greengrassResourceDefinitionName (\s a -> s { _greengrassResourceDefinitionName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-resourcedefinition.html#cfn-greengrass-resourcedefinition-tags+grdTags :: Lens' GreengrassResourceDefinition (Maybe Object)+grdTags = lens _greengrassResourceDefinitionTags (\s a -> s { _greengrassResourceDefinitionTags = a })
library-gen/Stratosphere/Resources/GreengrassSubscriptionDefinition.hs view
@@ -16,6 +16,7 @@   GreengrassSubscriptionDefinition   { _greengrassSubscriptionDefinitionInitialVersion :: Maybe GreengrassSubscriptionDefinitionSubscriptionDefinitionVersion   , _greengrassSubscriptionDefinitionName :: Val Text+  , _greengrassSubscriptionDefinitionTags :: Maybe Object   } deriving (Show, Eq)  instance ToResourceProperties GreengrassSubscriptionDefinition where@@ -26,6 +27,7 @@         hashMapFromList $ catMaybes         [ fmap (("InitialVersion",) . toJSON) _greengrassSubscriptionDefinitionInitialVersion         , (Just . ("Name",) . toJSON) _greengrassSubscriptionDefinitionName+        , fmap (("Tags",) . toJSON) _greengrassSubscriptionDefinitionTags         ]     } @@ -38,6 +40,7 @@   GreengrassSubscriptionDefinition   { _greengrassSubscriptionDefinitionInitialVersion = Nothing   , _greengrassSubscriptionDefinitionName = namearg+  , _greengrassSubscriptionDefinitionTags = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-subscriptiondefinition.html#cfn-greengrass-subscriptiondefinition-initialversion@@ -47,3 +50,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-subscriptiondefinition.html#cfn-greengrass-subscriptiondefinition-name gsdName :: Lens' GreengrassSubscriptionDefinition (Val Text) gsdName = lens _greengrassSubscriptionDefinitionName (\s a -> s { _greengrassSubscriptionDefinitionName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-subscriptiondefinition.html#cfn-greengrass-subscriptiondefinition-tags+gsdTags :: Lens' GreengrassSubscriptionDefinition (Maybe Object)+gsdTags = lens _greengrassSubscriptionDefinitionTags (\s a -> s { _greengrassSubscriptionDefinitionTags = a })
library-gen/Stratosphere/Resources/IAMRole.hs view
@@ -9,18 +9,21 @@  import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.IAMRolePolicy+import Stratosphere.ResourceProperties.Tag  -- | Full data type definition for IAMRole. See 'iamRole' for a more -- convenient constructor. data IAMRole =   IAMRole   { _iAMRoleAssumeRolePolicyDocument :: Object+  , _iAMRoleDescription :: Maybe (Val Text)   , _iAMRoleManagedPolicyArns :: Maybe (ValList Text)   , _iAMRoleMaxSessionDuration :: Maybe (Val Integer)   , _iAMRolePath :: Maybe (Val Text)   , _iAMRolePermissionsBoundary :: Maybe (Val Text)   , _iAMRolePolicies :: Maybe [IAMRolePolicy]   , _iAMRoleRoleName :: Maybe (Val Text)+  , _iAMRoleTags :: Maybe [Tag]   } deriving (Show, Eq)  instance ToResourceProperties IAMRole where@@ -30,12 +33,14 @@     , resourcePropertiesProperties =         hashMapFromList $ catMaybes         [ (Just . ("AssumeRolePolicyDocument",) . toJSON) _iAMRoleAssumeRolePolicyDocument+        , fmap (("Description",) . toJSON) _iAMRoleDescription         , fmap (("ManagedPolicyArns",) . toJSON) _iAMRoleManagedPolicyArns         , fmap (("MaxSessionDuration",) . toJSON) _iAMRoleMaxSessionDuration         , fmap (("Path",) . toJSON) _iAMRolePath         , fmap (("PermissionsBoundary",) . toJSON) _iAMRolePermissionsBoundary         , fmap (("Policies",) . toJSON) _iAMRolePolicies         , fmap (("RoleName",) . toJSON) _iAMRoleRoleName+        , fmap (("Tags",) . toJSON) _iAMRoleTags         ]     } @@ -46,18 +51,24 @@ iamRole assumeRolePolicyDocumentarg =   IAMRole   { _iAMRoleAssumeRolePolicyDocument = assumeRolePolicyDocumentarg+  , _iAMRoleDescription = Nothing   , _iAMRoleManagedPolicyArns = Nothing   , _iAMRoleMaxSessionDuration = Nothing   , _iAMRolePath = Nothing   , _iAMRolePermissionsBoundary = Nothing   , _iAMRolePolicies = Nothing   , _iAMRoleRoleName = Nothing+  , _iAMRoleTags = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-role.html#cfn-iam-role-assumerolepolicydocument iamrAssumeRolePolicyDocument :: Lens' IAMRole Object iamrAssumeRolePolicyDocument = lens _iAMRoleAssumeRolePolicyDocument (\s a -> s { _iAMRoleAssumeRolePolicyDocument = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-role.html#cfn-iam-role-description+iamrDescription :: Lens' IAMRole (Maybe (Val Text))+iamrDescription = lens _iAMRoleDescription (\s a -> s { _iAMRoleDescription = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-role.html#cfn-iam-role-managepolicyarns iamrManagedPolicyArns :: Lens' IAMRole (Maybe (ValList Text)) iamrManagedPolicyArns = lens _iAMRoleManagedPolicyArns (\s a -> s { _iAMRoleManagedPolicyArns = a })@@ -81,3 +92,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-role.html#cfn-iam-role-rolename iamrRoleName :: Lens' IAMRole (Maybe (Val Text)) iamrRoleName = lens _iAMRoleRoleName (\s a -> s { _iAMRoleRoleName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-role.html#cfn-iam-role-tags+iamrTags :: Lens' IAMRole (Maybe [Tag])+iamrTags = lens _iAMRoleTags (\s a -> s { _iAMRoleTags = a })
+ library-gen/Stratosphere/Resources/LakeFormationDataLakeSettings.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lakeformation-datalakesettings.html++module Stratosphere.Resources.LakeFormationDataLakeSettings where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.LakeFormationDataLakeSettingsDataLakePrincipal++-- | Full data type definition for LakeFormationDataLakeSettings. See+-- 'lakeFormationDataLakeSettings' for a more convenient constructor.+data LakeFormationDataLakeSettings =+  LakeFormationDataLakeSettings+  { _lakeFormationDataLakeSettingsAdmins :: Maybe [LakeFormationDataLakeSettingsDataLakePrincipal]+  } deriving (Show, Eq)++instance ToResourceProperties LakeFormationDataLakeSettings where+  toResourceProperties LakeFormationDataLakeSettings{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::LakeFormation::DataLakeSettings"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("Admins",) . toJSON) _lakeFormationDataLakeSettingsAdmins+        ]+    }++-- | Constructor for 'LakeFormationDataLakeSettings' containing required+-- fields as arguments.+lakeFormationDataLakeSettings+  :: LakeFormationDataLakeSettings+lakeFormationDataLakeSettings  =+  LakeFormationDataLakeSettings+  { _lakeFormationDataLakeSettingsAdmins = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lakeformation-datalakesettings.html#cfn-lakeformation-datalakesettings-admins+lfdlsAdmins :: Lens' LakeFormationDataLakeSettings (Maybe [LakeFormationDataLakeSettingsDataLakePrincipal])+lfdlsAdmins = lens _lakeFormationDataLakeSettingsAdmins (\s a -> s { _lakeFormationDataLakeSettingsAdmins = a })
+ library-gen/Stratosphere/Resources/LakeFormationPermissions.hs view
@@ -0,0 +1,65 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lakeformation-permissions.html++module Stratosphere.Resources.LakeFormationPermissions where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.LakeFormationPermissionsDataLakePrincipal+import Stratosphere.ResourceProperties.LakeFormationPermissionsResource++-- | Full data type definition for LakeFormationPermissions. See+-- 'lakeFormationPermissions' for a more convenient constructor.+data LakeFormationPermissions =+  LakeFormationPermissions+  { _lakeFormationPermissionsDataLakePrincipal :: LakeFormationPermissionsDataLakePrincipal+  , _lakeFormationPermissionsPermissions :: Maybe (ValList Text)+  , _lakeFormationPermissionsPermissionsWithGrantOption :: Maybe (ValList Text)+  , _lakeFormationPermissionsResource :: LakeFormationPermissionsResource+  } deriving (Show, Eq)++instance ToResourceProperties LakeFormationPermissions where+  toResourceProperties LakeFormationPermissions{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::LakeFormation::Permissions"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("DataLakePrincipal",) . toJSON) _lakeFormationPermissionsDataLakePrincipal+        , fmap (("Permissions",) . toJSON) _lakeFormationPermissionsPermissions+        , fmap (("PermissionsWithGrantOption",) . toJSON) _lakeFormationPermissionsPermissionsWithGrantOption+        , (Just . ("Resource",) . toJSON) _lakeFormationPermissionsResource+        ]+    }++-- | Constructor for 'LakeFormationPermissions' containing required fields as+-- arguments.+lakeFormationPermissions+  :: LakeFormationPermissionsDataLakePrincipal -- ^ 'lfpDataLakePrincipal'+  -> LakeFormationPermissionsResource -- ^ 'lfpResource'+  -> LakeFormationPermissions+lakeFormationPermissions dataLakePrincipalarg resourcearg =+  LakeFormationPermissions+  { _lakeFormationPermissionsDataLakePrincipal = dataLakePrincipalarg+  , _lakeFormationPermissionsPermissions = Nothing+  , _lakeFormationPermissionsPermissionsWithGrantOption = Nothing+  , _lakeFormationPermissionsResource = resourcearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lakeformation-permissions.html#cfn-lakeformation-permissions-datalakeprincipal+lfpDataLakePrincipal :: Lens' LakeFormationPermissions LakeFormationPermissionsDataLakePrincipal+lfpDataLakePrincipal = lens _lakeFormationPermissionsDataLakePrincipal (\s a -> s { _lakeFormationPermissionsDataLakePrincipal = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lakeformation-permissions.html#cfn-lakeformation-permissions-permissions+lfpPermissions :: Lens' LakeFormationPermissions (Maybe (ValList Text))+lfpPermissions = lens _lakeFormationPermissionsPermissions (\s a -> s { _lakeFormationPermissionsPermissions = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lakeformation-permissions.html#cfn-lakeformation-permissions-permissionswithgrantoption+lfpPermissionsWithGrantOption :: Lens' LakeFormationPermissions (Maybe (ValList Text))+lfpPermissionsWithGrantOption = lens _lakeFormationPermissionsPermissionsWithGrantOption (\s a -> s { _lakeFormationPermissionsPermissionsWithGrantOption = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lakeformation-permissions.html#cfn-lakeformation-permissions-resource+lfpResource :: Lens' LakeFormationPermissions LakeFormationPermissionsResource+lfpResource = lens _lakeFormationPermissionsResource (\s a -> s { _lakeFormationPermissionsResource = a })
+ library-gen/Stratosphere/Resources/LakeFormationResource.hs view
@@ -0,0 +1,57 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lakeformation-resource.html++module Stratosphere.Resources.LakeFormationResource where++import Stratosphere.ResourceImports+++-- | Full data type definition for LakeFormationResource. See+-- 'lakeFormationResource' for a more convenient constructor.+data LakeFormationResource =+  LakeFormationResource+  { _lakeFormationResourceResourceArn :: Val Text+  , _lakeFormationResourceRoleArn :: Maybe (Val Text)+  , _lakeFormationResourceUseServiceLinkedRole :: Val Bool+  } deriving (Show, Eq)++instance ToResourceProperties LakeFormationResource where+  toResourceProperties LakeFormationResource{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::LakeFormation::Resource"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("ResourceArn",) . toJSON) _lakeFormationResourceResourceArn+        , fmap (("RoleArn",) . toJSON) _lakeFormationResourceRoleArn+        , (Just . ("UseServiceLinkedRole",) . toJSON) _lakeFormationResourceUseServiceLinkedRole+        ]+    }++-- | Constructor for 'LakeFormationResource' containing required fields as+-- arguments.+lakeFormationResource+  :: Val Text -- ^ 'lfrResourceArn'+  -> Val Bool -- ^ 'lfrUseServiceLinkedRole'+  -> LakeFormationResource+lakeFormationResource resourceArnarg useServiceLinkedRolearg =+  LakeFormationResource+  { _lakeFormationResourceResourceArn = resourceArnarg+  , _lakeFormationResourceRoleArn = Nothing+  , _lakeFormationResourceUseServiceLinkedRole = useServiceLinkedRolearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lakeformation-resource.html#cfn-lakeformation-resource-resourcearn+lfrResourceArn :: Lens' LakeFormationResource (Val Text)+lfrResourceArn = lens _lakeFormationResourceResourceArn (\s a -> s { _lakeFormationResourceResourceArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lakeformation-resource.html#cfn-lakeformation-resource-rolearn+lfrRoleArn :: Lens' LakeFormationResource (Maybe (Val Text))+lfrRoleArn = lens _lakeFormationResourceRoleArn (\s a -> s { _lakeFormationResourceRoleArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lakeformation-resource.html#cfn-lakeformation-resource-useservicelinkedrole+lfrUseServiceLinkedRole :: Lens' LakeFormationResource (Val Bool)+lfrUseServiceLinkedRole = lens _lakeFormationResourceUseServiceLinkedRole (\s a -> s { _lakeFormationResourceUseServiceLinkedRole = a })
library-gen/Stratosphere/Resources/LambdaEventSourceMapping.hs view
@@ -18,6 +18,7 @@   , _lambdaEventSourceMappingEnabled :: Maybe (Val Bool)   , _lambdaEventSourceMappingEventSourceArn :: Val Text   , _lambdaEventSourceMappingFunctionName :: Val Text+  , _lambdaEventSourceMappingMaximumBatchingWindowInSeconds :: Maybe (Val Integer)   , _lambdaEventSourceMappingStartingPosition :: Maybe (Val Text)   } deriving (Show, Eq) @@ -31,6 +32,7 @@         , fmap (("Enabled",) . toJSON) _lambdaEventSourceMappingEnabled         , (Just . ("EventSourceArn",) . toJSON) _lambdaEventSourceMappingEventSourceArn         , (Just . ("FunctionName",) . toJSON) _lambdaEventSourceMappingFunctionName+        , fmap (("MaximumBatchingWindowInSeconds",) . toJSON) _lambdaEventSourceMappingMaximumBatchingWindowInSeconds         , fmap (("StartingPosition",) . toJSON) _lambdaEventSourceMappingStartingPosition         ]     }@@ -47,6 +49,7 @@   , _lambdaEventSourceMappingEnabled = Nothing   , _lambdaEventSourceMappingEventSourceArn = eventSourceArnarg   , _lambdaEventSourceMappingFunctionName = functionNamearg+  , _lambdaEventSourceMappingMaximumBatchingWindowInSeconds = Nothing   , _lambdaEventSourceMappingStartingPosition = Nothing   } @@ -65,6 +68,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-eventsourcemapping.html#cfn-lambda-eventsourcemapping-functionname lesmFunctionName :: Lens' LambdaEventSourceMapping (Val Text) lesmFunctionName = lens _lambdaEventSourceMappingFunctionName (\s a -> s { _lambdaEventSourceMappingFunctionName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-eventsourcemapping.html#cfn-lambda-eventsourcemapping-maximumbatchingwindowinseconds+lesmMaximumBatchingWindowInSeconds :: Lens' LambdaEventSourceMapping (Maybe (Val Integer))+lesmMaximumBatchingWindowInSeconds = lens _lambdaEventSourceMappingMaximumBatchingWindowInSeconds (\s a -> s { _lambdaEventSourceMappingMaximumBatchingWindowInSeconds = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-eventsourcemapping.html#cfn-lambda-eventsourcemapping-startingposition lesmStartingPosition :: Lens' LambdaEventSourceMapping (Maybe (Val Text))
+ library-gen/Stratosphere/Resources/ManagedBlockchainMember.hs view
@@ -0,0 +1,64 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-managedblockchain-member.html++module Stratosphere.Resources.ManagedBlockchainMember where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.ManagedBlockchainMemberMemberConfiguration+import Stratosphere.ResourceProperties.ManagedBlockchainMemberNetworkConfiguration++-- | Full data type definition for ManagedBlockchainMember. See+-- 'managedBlockchainMember' for a more convenient constructor.+data ManagedBlockchainMember =+  ManagedBlockchainMember+  { _managedBlockchainMemberInvitationId :: Maybe (Val Text)+  , _managedBlockchainMemberMemberConfiguration :: ManagedBlockchainMemberMemberConfiguration+  , _managedBlockchainMemberNetworkConfiguration :: Maybe ManagedBlockchainMemberNetworkConfiguration+  , _managedBlockchainMemberNetworkId :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToResourceProperties ManagedBlockchainMember where+  toResourceProperties ManagedBlockchainMember{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::ManagedBlockchain::Member"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("InvitationId",) . toJSON) _managedBlockchainMemberInvitationId+        , (Just . ("MemberConfiguration",) . toJSON) _managedBlockchainMemberMemberConfiguration+        , fmap (("NetworkConfiguration",) . toJSON) _managedBlockchainMemberNetworkConfiguration+        , fmap (("NetworkId",) . toJSON) _managedBlockchainMemberNetworkId+        ]+    }++-- | Constructor for 'ManagedBlockchainMember' containing required fields as+-- arguments.+managedBlockchainMember+  :: ManagedBlockchainMemberMemberConfiguration -- ^ 'mbmMemberConfiguration'+  -> ManagedBlockchainMember+managedBlockchainMember memberConfigurationarg =+  ManagedBlockchainMember+  { _managedBlockchainMemberInvitationId = Nothing+  , _managedBlockchainMemberMemberConfiguration = memberConfigurationarg+  , _managedBlockchainMemberNetworkConfiguration = Nothing+  , _managedBlockchainMemberNetworkId = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-managedblockchain-member.html#cfn-managedblockchain-member-invitationid+mbmInvitationId :: Lens' ManagedBlockchainMember (Maybe (Val Text))+mbmInvitationId = lens _managedBlockchainMemberInvitationId (\s a -> s { _managedBlockchainMemberInvitationId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-managedblockchain-member.html#cfn-managedblockchain-member-memberconfiguration+mbmMemberConfiguration :: Lens' ManagedBlockchainMember ManagedBlockchainMemberMemberConfiguration+mbmMemberConfiguration = lens _managedBlockchainMemberMemberConfiguration (\s a -> s { _managedBlockchainMemberMemberConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-managedblockchain-member.html#cfn-managedblockchain-member-networkconfiguration+mbmNetworkConfiguration :: Lens' ManagedBlockchainMember (Maybe ManagedBlockchainMemberNetworkConfiguration)+mbmNetworkConfiguration = lens _managedBlockchainMemberNetworkConfiguration (\s a -> s { _managedBlockchainMemberNetworkConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-managedblockchain-member.html#cfn-managedblockchain-member-networkid+mbmNetworkId :: Lens' ManagedBlockchainMember (Maybe (Val Text))+mbmNetworkId = lens _managedBlockchainMemberNetworkId (\s a -> s { _managedBlockchainMemberNetworkId = a })
+ library-gen/Stratosphere/Resources/ManagedBlockchainNode.hs view
@@ -0,0 +1,58 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-managedblockchain-node.html++module Stratosphere.Resources.ManagedBlockchainNode where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.ManagedBlockchainNodeNodeConfiguration++-- | Full data type definition for ManagedBlockchainNode. See+-- 'managedBlockchainNode' for a more convenient constructor.+data ManagedBlockchainNode =+  ManagedBlockchainNode+  { _managedBlockchainNodeMemberId :: Val Text+  , _managedBlockchainNodeNetworkId :: Val Text+  , _managedBlockchainNodeNodeConfiguration :: ManagedBlockchainNodeNodeConfiguration+  } deriving (Show, Eq)++instance ToResourceProperties ManagedBlockchainNode where+  toResourceProperties ManagedBlockchainNode{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::ManagedBlockchain::Node"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("MemberId",) . toJSON) _managedBlockchainNodeMemberId+        , (Just . ("NetworkId",) . toJSON) _managedBlockchainNodeNetworkId+        , (Just . ("NodeConfiguration",) . toJSON) _managedBlockchainNodeNodeConfiguration+        ]+    }++-- | Constructor for 'ManagedBlockchainNode' containing required fields as+-- arguments.+managedBlockchainNode+  :: Val Text -- ^ 'mbnMemberId'+  -> Val Text -- ^ 'mbnNetworkId'+  -> ManagedBlockchainNodeNodeConfiguration -- ^ 'mbnNodeConfiguration'+  -> ManagedBlockchainNode+managedBlockchainNode memberIdarg networkIdarg nodeConfigurationarg =+  ManagedBlockchainNode+  { _managedBlockchainNodeMemberId = memberIdarg+  , _managedBlockchainNodeNetworkId = networkIdarg+  , _managedBlockchainNodeNodeConfiguration = nodeConfigurationarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-managedblockchain-node.html#cfn-managedblockchain-node-memberid+mbnMemberId :: Lens' ManagedBlockchainNode (Val Text)+mbnMemberId = lens _managedBlockchainNodeMemberId (\s a -> s { _managedBlockchainNodeMemberId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-managedblockchain-node.html#cfn-managedblockchain-node-networkid+mbnNetworkId :: Lens' ManagedBlockchainNode (Val Text)+mbnNetworkId = lens _managedBlockchainNodeNetworkId (\s a -> s { _managedBlockchainNodeNetworkId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-managedblockchain-node.html#cfn-managedblockchain-node-nodeconfiguration+mbnNodeConfiguration :: Lens' ManagedBlockchainNode ManagedBlockchainNodeNodeConfiguration+mbnNodeConfiguration = lens _managedBlockchainNodeNodeConfiguration (\s a -> s { _managedBlockchainNodeNodeConfiguration = a })
library-gen/Stratosphere/Resources/NeptuneDBCluster.hs view
@@ -19,6 +19,7 @@   , _neptuneDBClusterDBClusterIdentifier :: Maybe (Val Text)   , _neptuneDBClusterDBClusterParameterGroupName :: Maybe (Val Text)   , _neptuneDBClusterDBSubnetGroupName :: Maybe (Val Text)+  , _neptuneDBClusterEnableCloudwatchLogsExports :: Maybe (ValList Text)   , _neptuneDBClusterIamAuthEnabled :: Maybe (Val Bool)   , _neptuneDBClusterKmsKeyId :: Maybe (Val Text)   , _neptuneDBClusterPort :: Maybe (Val Integer)@@ -41,6 +42,7 @@         , fmap (("DBClusterIdentifier",) . toJSON) _neptuneDBClusterDBClusterIdentifier         , fmap (("DBClusterParameterGroupName",) . toJSON) _neptuneDBClusterDBClusterParameterGroupName         , fmap (("DBSubnetGroupName",) . toJSON) _neptuneDBClusterDBSubnetGroupName+        , fmap (("EnableCloudwatchLogsExports",) . toJSON) _neptuneDBClusterEnableCloudwatchLogsExports         , fmap (("IamAuthEnabled",) . toJSON) _neptuneDBClusterIamAuthEnabled         , fmap (("KmsKeyId",) . toJSON) _neptuneDBClusterKmsKeyId         , fmap (("Port",) . toJSON) _neptuneDBClusterPort@@ -64,6 +66,7 @@   , _neptuneDBClusterDBClusterIdentifier = Nothing   , _neptuneDBClusterDBClusterParameterGroupName = Nothing   , _neptuneDBClusterDBSubnetGroupName = Nothing+  , _neptuneDBClusterEnableCloudwatchLogsExports = Nothing   , _neptuneDBClusterIamAuthEnabled = Nothing   , _neptuneDBClusterKmsKeyId = Nothing   , _neptuneDBClusterPort = Nothing@@ -94,6 +97,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-dbsubnetgroupname ndbcDBSubnetGroupName :: Lens' NeptuneDBCluster (Maybe (Val Text)) ndbcDBSubnetGroupName = lens _neptuneDBClusterDBSubnetGroupName (\s a -> s { _neptuneDBClusterDBSubnetGroupName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-enablecloudwatchlogsexports+ndbcEnableCloudwatchLogsExports :: Lens' NeptuneDBCluster (Maybe (ValList Text))+ndbcEnableCloudwatchLogsExports = lens _neptuneDBClusterEnableCloudwatchLogsExports (\s a -> s { _neptuneDBClusterEnableCloudwatchLogsExports = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-iamauthenabled ndbcIamAuthEnabled :: Lens' NeptuneDBCluster (Maybe (Val Bool))
library-gen/Stratosphere/Resources/RDSDBCluster.hs view
@@ -8,6 +8,7 @@ module Stratosphere.Resources.RDSDBCluster where  import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.RDSDBClusterDBClusterRole import Stratosphere.ResourceProperties.RDSDBClusterScalingConfiguration import Stratosphere.ResourceProperties.Tag @@ -15,7 +16,8 @@ -- convenient constructor. data RDSDBCluster =   RDSDBCluster-  { _rDSDBClusterAvailabilityZones :: Maybe (ValList Text)+  { _rDSDBClusterAssociatedRoles :: Maybe [RDSDBClusterDBClusterRole]+  , _rDSDBClusterAvailabilityZones :: Maybe (ValList Text)   , _rDSDBClusterBacktrackWindow :: Maybe (Val Integer)   , _rDSDBClusterBackupRetentionPeriod :: Maybe (Val Integer)   , _rDSDBClusterDBClusterIdentifier :: Maybe (Val Text)@@ -35,11 +37,14 @@   , _rDSDBClusterPreferredBackupWindow :: Maybe (Val Text)   , _rDSDBClusterPreferredMaintenanceWindow :: Maybe (Val Text)   , _rDSDBClusterReplicationSourceIdentifier :: Maybe (Val Text)+  , _rDSDBClusterRestoreType :: Maybe (Val Text)   , _rDSDBClusterScalingConfiguration :: Maybe RDSDBClusterScalingConfiguration   , _rDSDBClusterSnapshotIdentifier :: Maybe (Val Text)+  , _rDSDBClusterSourceDBClusterIdentifier :: Maybe (Val Text)   , _rDSDBClusterSourceRegion :: Maybe (Val Text)   , _rDSDBClusterStorageEncrypted :: Maybe (Val Bool)   , _rDSDBClusterTags :: Maybe [Tag]+  , _rDSDBClusterUseLatestRestorableTime :: Maybe (Val Bool)   , _rDSDBClusterVpcSecurityGroupIds :: Maybe (ValList Text)   } deriving (Show, Eq) @@ -49,7 +54,8 @@     { resourcePropertiesType = "AWS::RDS::DBCluster"     , resourcePropertiesProperties =         hashMapFromList $ catMaybes-        [ fmap (("AvailabilityZones",) . toJSON) _rDSDBClusterAvailabilityZones+        [ fmap (("AssociatedRoles",) . toJSON) _rDSDBClusterAssociatedRoles+        , fmap (("AvailabilityZones",) . toJSON) _rDSDBClusterAvailabilityZones         , fmap (("BacktrackWindow",) . toJSON) _rDSDBClusterBacktrackWindow         , fmap (("BackupRetentionPeriod",) . toJSON) _rDSDBClusterBackupRetentionPeriod         , fmap (("DBClusterIdentifier",) . toJSON) _rDSDBClusterDBClusterIdentifier@@ -69,11 +75,14 @@         , fmap (("PreferredBackupWindow",) . toJSON) _rDSDBClusterPreferredBackupWindow         , fmap (("PreferredMaintenanceWindow",) . toJSON) _rDSDBClusterPreferredMaintenanceWindow         , fmap (("ReplicationSourceIdentifier",) . toJSON) _rDSDBClusterReplicationSourceIdentifier+        , fmap (("RestoreType",) . toJSON) _rDSDBClusterRestoreType         , fmap (("ScalingConfiguration",) . toJSON) _rDSDBClusterScalingConfiguration         , fmap (("SnapshotIdentifier",) . toJSON) _rDSDBClusterSnapshotIdentifier+        , fmap (("SourceDBClusterIdentifier",) . toJSON) _rDSDBClusterSourceDBClusterIdentifier         , fmap (("SourceRegion",) . toJSON) _rDSDBClusterSourceRegion         , fmap (("StorageEncrypted",) . toJSON) _rDSDBClusterStorageEncrypted         , fmap (("Tags",) . toJSON) _rDSDBClusterTags+        , fmap (("UseLatestRestorableTime",) . toJSON) _rDSDBClusterUseLatestRestorableTime         , fmap (("VpcSecurityGroupIds",) . toJSON) _rDSDBClusterVpcSecurityGroupIds         ]     }@@ -84,7 +93,8 @@   -> RDSDBCluster rdsdbCluster enginearg =   RDSDBCluster-  { _rDSDBClusterAvailabilityZones = Nothing+  { _rDSDBClusterAssociatedRoles = Nothing+  , _rDSDBClusterAvailabilityZones = Nothing   , _rDSDBClusterBacktrackWindow = Nothing   , _rDSDBClusterBackupRetentionPeriod = Nothing   , _rDSDBClusterDBClusterIdentifier = Nothing@@ -104,14 +114,21 @@   , _rDSDBClusterPreferredBackupWindow = Nothing   , _rDSDBClusterPreferredMaintenanceWindow = Nothing   , _rDSDBClusterReplicationSourceIdentifier = Nothing+  , _rDSDBClusterRestoreType = Nothing   , _rDSDBClusterScalingConfiguration = Nothing   , _rDSDBClusterSnapshotIdentifier = Nothing+  , _rDSDBClusterSourceDBClusterIdentifier = Nothing   , _rDSDBClusterSourceRegion = Nothing   , _rDSDBClusterStorageEncrypted = Nothing   , _rDSDBClusterTags = Nothing+  , _rDSDBClusterUseLatestRestorableTime = Nothing   , _rDSDBClusterVpcSecurityGroupIds = Nothing   } +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-associatedroles+rdsdbcAssociatedRoles :: Lens' RDSDBCluster (Maybe [RDSDBClusterDBClusterRole])+rdsdbcAssociatedRoles = lens _rDSDBClusterAssociatedRoles (\s a -> s { _rDSDBClusterAssociatedRoles = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-availabilityzones rdsdbcAvailabilityZones :: Lens' RDSDBCluster (Maybe (ValList Text)) rdsdbcAvailabilityZones = lens _rDSDBClusterAvailabilityZones (\s a -> s { _rDSDBClusterAvailabilityZones = a })@@ -192,6 +209,10 @@ rdsdbcReplicationSourceIdentifier :: Lens' RDSDBCluster (Maybe (Val Text)) rdsdbcReplicationSourceIdentifier = lens _rDSDBClusterReplicationSourceIdentifier (\s a -> s { _rDSDBClusterReplicationSourceIdentifier = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-restoretype+rdsdbcRestoreType :: Lens' RDSDBCluster (Maybe (Val Text))+rdsdbcRestoreType = lens _rDSDBClusterRestoreType (\s a -> s { _rDSDBClusterRestoreType = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-scalingconfiguration rdsdbcScalingConfiguration :: Lens' RDSDBCluster (Maybe RDSDBClusterScalingConfiguration) rdsdbcScalingConfiguration = lens _rDSDBClusterScalingConfiguration (\s a -> s { _rDSDBClusterScalingConfiguration = a })@@ -200,6 +221,10 @@ rdsdbcSnapshotIdentifier :: Lens' RDSDBCluster (Maybe (Val Text)) rdsdbcSnapshotIdentifier = lens _rDSDBClusterSnapshotIdentifier (\s a -> s { _rDSDBClusterSnapshotIdentifier = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-sourcedbclusteridentifier+rdsdbcSourceDBClusterIdentifier :: Lens' RDSDBCluster (Maybe (Val Text))+rdsdbcSourceDBClusterIdentifier = lens _rDSDBClusterSourceDBClusterIdentifier (\s a -> s { _rDSDBClusterSourceDBClusterIdentifier = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-sourceregion rdsdbcSourceRegion :: Lens' RDSDBCluster (Maybe (Val Text)) rdsdbcSourceRegion = lens _rDSDBClusterSourceRegion (\s a -> s { _rDSDBClusterSourceRegion = a })@@ -211,6 +236,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-tags rdsdbcTags :: Lens' RDSDBCluster (Maybe [Tag]) rdsdbcTags = lens _rDSDBClusterTags (\s a -> s { _rDSDBClusterTags = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-uselatestrestorabletime+rdsdbcUseLatestRestorableTime :: Lens' RDSDBCluster (Maybe (Val Bool))+rdsdbcUseLatestRestorableTime = lens _rDSDBClusterUseLatestRestorableTime (\s a -> s { _rDSDBClusterUseLatestRestorableTime = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-vpcsecuritygroupids rdsdbcVpcSecurityGroupIds :: Lens' RDSDBCluster (Maybe (ValList Text))
library-gen/Stratosphere/Resources/RDSDBInstance.hs view
@@ -8,6 +8,7 @@ module Stratosphere.Resources.RDSDBInstance where  import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.RDSDBInstanceDBInstanceRole import Stratosphere.ResourceProperties.RDSDBInstanceProcessorFeature import Stratosphere.ResourceProperties.Tag @@ -17,6 +18,7 @@   RDSDBInstance   { _rDSDBInstanceAllocatedStorage :: Maybe (Val Text)   , _rDSDBInstanceAllowMajorVersionUpgrade :: Maybe (Val Bool)+  , _rDSDBInstanceAssociatedRoles :: Maybe [RDSDBInstanceDBInstanceRole]   , _rDSDBInstanceAutoMinorVersionUpgrade :: Maybe (Val Bool)   , _rDSDBInstanceAvailabilityZone :: Maybe (Val Text)   , _rDSDBInstanceBackupRetentionPeriod :: Maybe (Val Integer)@@ -74,6 +76,7 @@         hashMapFromList $ catMaybes         [ fmap (("AllocatedStorage",) . toJSON) _rDSDBInstanceAllocatedStorage         , fmap (("AllowMajorVersionUpgrade",) . toJSON) _rDSDBInstanceAllowMajorVersionUpgrade+        , fmap (("AssociatedRoles",) . toJSON) _rDSDBInstanceAssociatedRoles         , fmap (("AutoMinorVersionUpgrade",) . toJSON) _rDSDBInstanceAutoMinorVersionUpgrade         , fmap (("AvailabilityZone",) . toJSON) _rDSDBInstanceAvailabilityZone         , fmap (("BackupRetentionPeriod",) . toJSON) _rDSDBInstanceBackupRetentionPeriod@@ -132,6 +135,7 @@   RDSDBInstance   { _rDSDBInstanceAllocatedStorage = Nothing   , _rDSDBInstanceAllowMajorVersionUpgrade = Nothing+  , _rDSDBInstanceAssociatedRoles = Nothing   , _rDSDBInstanceAutoMinorVersionUpgrade = Nothing   , _rDSDBInstanceAvailabilityZone = Nothing   , _rDSDBInstanceBackupRetentionPeriod = Nothing@@ -188,6 +192,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-allowmajorversionupgrade rdsdbiAllowMajorVersionUpgrade :: Lens' RDSDBInstance (Maybe (Val Bool)) rdsdbiAllowMajorVersionUpgrade = lens _rDSDBInstanceAllowMajorVersionUpgrade (\s a -> s { _rDSDBInstanceAllowMajorVersionUpgrade = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-associatedroles+rdsdbiAssociatedRoles :: Lens' RDSDBInstance (Maybe [RDSDBInstanceDBInstanceRole])+rdsdbiAssociatedRoles = lens _rDSDBInstanceAssociatedRoles (\s a -> s { _rDSDBInstanceAssociatedRoles = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-autominorversionupgrade rdsdbiAutoMinorVersionUpgrade :: Lens' RDSDBInstance (Maybe (Val Bool))
+ library-gen/Stratosphere/Resources/SSMMaintenanceWindowTarget.hs view
@@ -0,0 +1,79 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtarget.html++module Stratosphere.Resources.SSMMaintenanceWindowTarget where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.SSMMaintenanceWindowTargetTargets++-- | Full data type definition for SSMMaintenanceWindowTarget. See+-- 'ssmMaintenanceWindowTarget' for a more convenient constructor.+data SSMMaintenanceWindowTarget =+  SSMMaintenanceWindowTarget+  { _sSMMaintenanceWindowTargetDescription :: Maybe (Val Text)+  , _sSMMaintenanceWindowTargetName :: Maybe (Val Text)+  , _sSMMaintenanceWindowTargetOwnerInformation :: Maybe (Val Text)+  , _sSMMaintenanceWindowTargetResourceType :: Val Text+  , _sSMMaintenanceWindowTargetTargets :: [SSMMaintenanceWindowTargetTargets]+  , _sSMMaintenanceWindowTargetWindowId :: Val Text+  } deriving (Show, Eq)++instance ToResourceProperties SSMMaintenanceWindowTarget where+  toResourceProperties SSMMaintenanceWindowTarget{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::SSM::MaintenanceWindowTarget"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("Description",) . toJSON) _sSMMaintenanceWindowTargetDescription+        , fmap (("Name",) . toJSON) _sSMMaintenanceWindowTargetName+        , fmap (("OwnerInformation",) . toJSON) _sSMMaintenanceWindowTargetOwnerInformation+        , (Just . ("ResourceType",) . toJSON) _sSMMaintenanceWindowTargetResourceType+        , (Just . ("Targets",) . toJSON) _sSMMaintenanceWindowTargetTargets+        , (Just . ("WindowId",) . toJSON) _sSMMaintenanceWindowTargetWindowId+        ]+    }++-- | Constructor for 'SSMMaintenanceWindowTarget' containing required fields+-- as arguments.+ssmMaintenanceWindowTarget+  :: Val Text -- ^ 'ssmmwtarResourceType'+  -> [SSMMaintenanceWindowTargetTargets] -- ^ 'ssmmwtarTargets'+  -> Val Text -- ^ 'ssmmwtarWindowId'+  -> SSMMaintenanceWindowTarget+ssmMaintenanceWindowTarget resourceTypearg targetsarg windowIdarg =+  SSMMaintenanceWindowTarget+  { _sSMMaintenanceWindowTargetDescription = Nothing+  , _sSMMaintenanceWindowTargetName = Nothing+  , _sSMMaintenanceWindowTargetOwnerInformation = Nothing+  , _sSMMaintenanceWindowTargetResourceType = resourceTypearg+  , _sSMMaintenanceWindowTargetTargets = targetsarg+  , _sSMMaintenanceWindowTargetWindowId = windowIdarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtarget.html#cfn-ssm-maintenancewindowtarget-description+ssmmwtarDescription :: Lens' SSMMaintenanceWindowTarget (Maybe (Val Text))+ssmmwtarDescription = lens _sSMMaintenanceWindowTargetDescription (\s a -> s { _sSMMaintenanceWindowTargetDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtarget.html#cfn-ssm-maintenancewindowtarget-name+ssmmwtarName :: Lens' SSMMaintenanceWindowTarget (Maybe (Val Text))+ssmmwtarName = lens _sSMMaintenanceWindowTargetName (\s a -> s { _sSMMaintenanceWindowTargetName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtarget.html#cfn-ssm-maintenancewindowtarget-ownerinformation+ssmmwtarOwnerInformation :: Lens' SSMMaintenanceWindowTarget (Maybe (Val Text))+ssmmwtarOwnerInformation = lens _sSMMaintenanceWindowTargetOwnerInformation (\s a -> s { _sSMMaintenanceWindowTargetOwnerInformation = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtarget.html#cfn-ssm-maintenancewindowtarget-resourcetype+ssmmwtarResourceType :: Lens' SSMMaintenanceWindowTarget (Val Text)+ssmmwtarResourceType = lens _sSMMaintenanceWindowTargetResourceType (\s a -> s { _sSMMaintenanceWindowTargetResourceType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtarget.html#cfn-ssm-maintenancewindowtarget-targets+ssmmwtarTargets :: Lens' SSMMaintenanceWindowTarget [SSMMaintenanceWindowTargetTargets]+ssmmwtarTargets = lens _sSMMaintenanceWindowTargetTargets (\s a -> s { _sSMMaintenanceWindowTargetTargets = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtarget.html#cfn-ssm-maintenancewindowtarget-windowid+ssmmwtarWindowId :: Lens' SSMMaintenanceWindowTarget (Val Text)+ssmmwtarWindowId = lens _sSMMaintenanceWindowTargetWindowId (\s a -> s { _sSMMaintenanceWindowTargetWindowId = a })
library-gen/Stratosphere/Resources/SSMMaintenanceWindowTask.hs view
@@ -56,13 +56,13 @@ -- | Constructor for 'SSMMaintenanceWindowTask' containing required fields as -- arguments. ssmMaintenanceWindowTask-  :: Val Text -- ^ 'ssmmwtMaxConcurrency'-  -> Val Text -- ^ 'ssmmwtMaxErrors'-  -> Val Integer -- ^ 'ssmmwtPriority'-  -> [SSMMaintenanceWindowTaskTarget] -- ^ 'ssmmwtTargets'-  -> Val Text -- ^ 'ssmmwtTaskArn'-  -> Val Text -- ^ 'ssmmwtTaskType'-  -> Val Text -- ^ 'ssmmwtWindowId'+  :: Val Text -- ^ 'ssmmwtasMaxConcurrency'+  -> Val Text -- ^ 'ssmmwtasMaxErrors'+  -> Val Integer -- ^ 'ssmmwtasPriority'+  -> [SSMMaintenanceWindowTaskTarget] -- ^ 'ssmmwtasTargets'+  -> Val Text -- ^ 'ssmmwtasTaskArn'+  -> Val Text -- ^ 'ssmmwtasTaskType'+  -> Val Text -- ^ 'ssmmwtasWindowId'   -> SSMMaintenanceWindowTask ssmMaintenanceWindowTask maxConcurrencyarg maxErrorsarg priorityarg targetsarg taskArnarg taskTypearg windowIdarg =   SSMMaintenanceWindowTask@@ -82,53 +82,53 @@   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-description-ssmmwtDescription :: Lens' SSMMaintenanceWindowTask (Maybe (Val Text))-ssmmwtDescription = lens _sSMMaintenanceWindowTaskDescription (\s a -> s { _sSMMaintenanceWindowTaskDescription = a })+ssmmwtasDescription :: Lens' SSMMaintenanceWindowTask (Maybe (Val Text))+ssmmwtasDescription = lens _sSMMaintenanceWindowTaskDescription (\s a -> s { _sSMMaintenanceWindowTaskDescription = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-logginginfo-ssmmwtLoggingInfo :: Lens' SSMMaintenanceWindowTask (Maybe SSMMaintenanceWindowTaskLoggingInfo)-ssmmwtLoggingInfo = lens _sSMMaintenanceWindowTaskLoggingInfo (\s a -> s { _sSMMaintenanceWindowTaskLoggingInfo = a })+ssmmwtasLoggingInfo :: Lens' SSMMaintenanceWindowTask (Maybe SSMMaintenanceWindowTaskLoggingInfo)+ssmmwtasLoggingInfo = lens _sSMMaintenanceWindowTaskLoggingInfo (\s a -> s { _sSMMaintenanceWindowTaskLoggingInfo = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-maxconcurrency-ssmmwtMaxConcurrency :: Lens' SSMMaintenanceWindowTask (Val Text)-ssmmwtMaxConcurrency = lens _sSMMaintenanceWindowTaskMaxConcurrency (\s a -> s { _sSMMaintenanceWindowTaskMaxConcurrency = a })+ssmmwtasMaxConcurrency :: Lens' SSMMaintenanceWindowTask (Val Text)+ssmmwtasMaxConcurrency = lens _sSMMaintenanceWindowTaskMaxConcurrency (\s a -> s { _sSMMaintenanceWindowTaskMaxConcurrency = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-maxerrors-ssmmwtMaxErrors :: Lens' SSMMaintenanceWindowTask (Val Text)-ssmmwtMaxErrors = lens _sSMMaintenanceWindowTaskMaxErrors (\s a -> s { _sSMMaintenanceWindowTaskMaxErrors = a })+ssmmwtasMaxErrors :: Lens' SSMMaintenanceWindowTask (Val Text)+ssmmwtasMaxErrors = lens _sSMMaintenanceWindowTaskMaxErrors (\s a -> s { _sSMMaintenanceWindowTaskMaxErrors = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-name-ssmmwtName :: Lens' SSMMaintenanceWindowTask (Maybe (Val Text))-ssmmwtName = lens _sSMMaintenanceWindowTaskName (\s a -> s { _sSMMaintenanceWindowTaskName = a })+ssmmwtasName :: Lens' SSMMaintenanceWindowTask (Maybe (Val Text))+ssmmwtasName = lens _sSMMaintenanceWindowTaskName (\s a -> s { _sSMMaintenanceWindowTaskName = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-priority-ssmmwtPriority :: Lens' SSMMaintenanceWindowTask (Val Integer)-ssmmwtPriority = lens _sSMMaintenanceWindowTaskPriority (\s a -> s { _sSMMaintenanceWindowTaskPriority = a })+ssmmwtasPriority :: Lens' SSMMaintenanceWindowTask (Val Integer)+ssmmwtasPriority = lens _sSMMaintenanceWindowTaskPriority (\s a -> s { _sSMMaintenanceWindowTaskPriority = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-servicerolearn-ssmmwtServiceRoleArn :: Lens' SSMMaintenanceWindowTask (Maybe (Val Text))-ssmmwtServiceRoleArn = lens _sSMMaintenanceWindowTaskServiceRoleArn (\s a -> s { _sSMMaintenanceWindowTaskServiceRoleArn = a })+ssmmwtasServiceRoleArn :: Lens' SSMMaintenanceWindowTask (Maybe (Val Text))+ssmmwtasServiceRoleArn = lens _sSMMaintenanceWindowTaskServiceRoleArn (\s a -> s { _sSMMaintenanceWindowTaskServiceRoleArn = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-targets-ssmmwtTargets :: Lens' SSMMaintenanceWindowTask [SSMMaintenanceWindowTaskTarget]-ssmmwtTargets = lens _sSMMaintenanceWindowTaskTargets (\s a -> s { _sSMMaintenanceWindowTaskTargets = a })+ssmmwtasTargets :: Lens' SSMMaintenanceWindowTask [SSMMaintenanceWindowTaskTarget]+ssmmwtasTargets = lens _sSMMaintenanceWindowTaskTargets (\s a -> s { _sSMMaintenanceWindowTaskTargets = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-taskarn-ssmmwtTaskArn :: Lens' SSMMaintenanceWindowTask (Val Text)-ssmmwtTaskArn = lens _sSMMaintenanceWindowTaskTaskArn (\s a -> s { _sSMMaintenanceWindowTaskTaskArn = a })+ssmmwtasTaskArn :: Lens' SSMMaintenanceWindowTask (Val Text)+ssmmwtasTaskArn = lens _sSMMaintenanceWindowTaskTaskArn (\s a -> s { _sSMMaintenanceWindowTaskTaskArn = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-taskinvocationparameters-ssmmwtTaskInvocationParameters :: Lens' SSMMaintenanceWindowTask (Maybe SSMMaintenanceWindowTaskTaskInvocationParameters)-ssmmwtTaskInvocationParameters = lens _sSMMaintenanceWindowTaskTaskInvocationParameters (\s a -> s { _sSMMaintenanceWindowTaskTaskInvocationParameters = a })+ssmmwtasTaskInvocationParameters :: Lens' SSMMaintenanceWindowTask (Maybe SSMMaintenanceWindowTaskTaskInvocationParameters)+ssmmwtasTaskInvocationParameters = lens _sSMMaintenanceWindowTaskTaskInvocationParameters (\s a -> s { _sSMMaintenanceWindowTaskTaskInvocationParameters = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-taskparameters-ssmmwtTaskParameters :: Lens' SSMMaintenanceWindowTask (Maybe Object)-ssmmwtTaskParameters = lens _sSMMaintenanceWindowTaskTaskParameters (\s a -> s { _sSMMaintenanceWindowTaskTaskParameters = a })+ssmmwtasTaskParameters :: Lens' SSMMaintenanceWindowTask (Maybe Object)+ssmmwtasTaskParameters = lens _sSMMaintenanceWindowTaskTaskParameters (\s a -> s { _sSMMaintenanceWindowTaskTaskParameters = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-tasktype-ssmmwtTaskType :: Lens' SSMMaintenanceWindowTask (Val Text)-ssmmwtTaskType = lens _sSMMaintenanceWindowTaskTaskType (\s a -> s { _sSMMaintenanceWindowTaskTaskType = a })+ssmmwtasTaskType :: Lens' SSMMaintenanceWindowTask (Val Text)+ssmmwtasTaskType = lens _sSMMaintenanceWindowTaskTaskType (\s a -> s { _sSMMaintenanceWindowTaskTaskType = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-windowid-ssmmwtWindowId :: Lens' SSMMaintenanceWindowTask (Val Text)-ssmmwtWindowId = lens _sSMMaintenanceWindowTaskWindowId (\s a -> s { _sSMMaintenanceWindowTaskWindowId = a })+ssmmwtasWindowId :: Lens' SSMMaintenanceWindowTask (Val Text)+ssmmwtasWindowId = lens _sSMMaintenanceWindowTaskWindowId (\s a -> s { _sSMMaintenanceWindowTaskWindowId = a })
+ library-gen/Stratosphere/Resources/SageMakerWorkteam.hs view
@@ -0,0 +1,71 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-workteam.html++module Stratosphere.Resources.SageMakerWorkteam where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.SageMakerWorkteamMemberDefinition+import Stratosphere.ResourceProperties.SageMakerWorkteamNotificationConfiguration+import Stratosphere.ResourceProperties.Tag++-- | Full data type definition for SageMakerWorkteam. See 'sageMakerWorkteam'+-- for a more convenient constructor.+data SageMakerWorkteam =+  SageMakerWorkteam+  { _sageMakerWorkteamDescription :: Maybe (Val Text)+  , _sageMakerWorkteamMemberDefinitions :: Maybe [SageMakerWorkteamMemberDefinition]+  , _sageMakerWorkteamNotificationConfiguration :: Maybe SageMakerWorkteamNotificationConfiguration+  , _sageMakerWorkteamTags :: Maybe [Tag]+  , _sageMakerWorkteamWorkteamName :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToResourceProperties SageMakerWorkteam where+  toResourceProperties SageMakerWorkteam{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::SageMaker::Workteam"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("Description",) . toJSON) _sageMakerWorkteamDescription+        , fmap (("MemberDefinitions",) . toJSON) _sageMakerWorkteamMemberDefinitions+        , fmap (("NotificationConfiguration",) . toJSON) _sageMakerWorkteamNotificationConfiguration+        , fmap (("Tags",) . toJSON) _sageMakerWorkteamTags+        , fmap (("WorkteamName",) . toJSON) _sageMakerWorkteamWorkteamName+        ]+    }++-- | Constructor for 'SageMakerWorkteam' containing required fields as+-- arguments.+sageMakerWorkteam+  :: SageMakerWorkteam+sageMakerWorkteam  =+  SageMakerWorkteam+  { _sageMakerWorkteamDescription = Nothing+  , _sageMakerWorkteamMemberDefinitions = Nothing+  , _sageMakerWorkteamNotificationConfiguration = Nothing+  , _sageMakerWorkteamTags = Nothing+  , _sageMakerWorkteamWorkteamName = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-workteam.html#cfn-sagemaker-workteam-description+smwDescription :: Lens' SageMakerWorkteam (Maybe (Val Text))+smwDescription = lens _sageMakerWorkteamDescription (\s a -> s { _sageMakerWorkteamDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-workteam.html#cfn-sagemaker-workteam-memberdefinitions+smwMemberDefinitions :: Lens' SageMakerWorkteam (Maybe [SageMakerWorkteamMemberDefinition])+smwMemberDefinitions = lens _sageMakerWorkteamMemberDefinitions (\s a -> s { _sageMakerWorkteamMemberDefinitions = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-workteam.html#cfn-sagemaker-workteam-notificationconfiguration+smwNotificationConfiguration :: Lens' SageMakerWorkteam (Maybe SageMakerWorkteamNotificationConfiguration)+smwNotificationConfiguration = lens _sageMakerWorkteamNotificationConfiguration (\s a -> s { _sageMakerWorkteamNotificationConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-workteam.html#cfn-sagemaker-workteam-tags+smwTags :: Lens' SageMakerWorkteam (Maybe [Tag])+smwTags = lens _sageMakerWorkteamTags (\s a -> s { _sageMakerWorkteamTags = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-workteam.html#cfn-sagemaker-workteam-workteamname+smwWorkteamName :: Lens' SageMakerWorkteam (Maybe (Val Text))+smwWorkteamName = lens _sageMakerWorkteamWorkteamName (\s a -> s { _sageMakerWorkteamWorkteamName = a })
stratosphere.cabal view
@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 1f9d709cc2f81ad485e72f12767b16e5407f66ad229475d57e062894885807e2+-- hash: 1606963785245719214201305a4f76ad0a306da9a90b9bbc6b6f0354957e0a34  name:           stratosphere-version:        0.41.0+version:        0.42.0 synopsis:       EDSL for AWS CloudFormation description:    EDSL for AWS CloudFormation category:       AWS, Cloud@@ -90,6 +90,7 @@       Stratosphere.ResourceProperties.ApiGatewayV2StageRouteSettings       Stratosphere.ResourceProperties.ApplicationAutoScalingScalableTargetScalableTargetAction       Stratosphere.ResourceProperties.ApplicationAutoScalingScalableTargetScheduledAction+      Stratosphere.ResourceProperties.ApplicationAutoScalingScalableTargetSuspendedState       Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyCustomizedMetricSpecification       Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyMetricDimension       Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyPredefinedMetricSpecification@@ -98,9 +99,12 @@       Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration       Stratosphere.ResourceProperties.AppMeshMeshEgressFilter       Stratosphere.ResourceProperties.AppMeshMeshMeshSpec+      Stratosphere.ResourceProperties.AppMeshRouteHeaderMatchMethod       Stratosphere.ResourceProperties.AppMeshRouteHttpRoute       Stratosphere.ResourceProperties.AppMeshRouteHttpRouteAction+      Stratosphere.ResourceProperties.AppMeshRouteHttpRouteHeader       Stratosphere.ResourceProperties.AppMeshRouteHttpRouteMatch+      Stratosphere.ResourceProperties.AppMeshRouteMatchRange       Stratosphere.ResourceProperties.AppMeshRouteRouteSpec       Stratosphere.ResourceProperties.AppMeshRouteTcpRoute       Stratosphere.ResourceProperties.AppMeshRouteTcpRouteAction@@ -318,6 +322,8 @@       Stratosphere.ResourceProperties.ConfigConfigurationAggregatorOrganizationAggregationSource       Stratosphere.ResourceProperties.ConfigConfigurationRecorderRecordingGroup       Stratosphere.ResourceProperties.ConfigDeliveryChannelConfigSnapshotDeliveryProperties+      Stratosphere.ResourceProperties.ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata+      Stratosphere.ResourceProperties.ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata       Stratosphere.ResourceProperties.ConfigRemediationConfigurationRemediationParameterValue       Stratosphere.ResourceProperties.ConfigRemediationConfigurationResourceValue       Stratosphere.ResourceProperties.ConfigRemediationConfigurationStaticValue@@ -366,6 +372,7 @@       Stratosphere.ResourceProperties.EC2EC2FleetTargetCapacitySpecificationRequest       Stratosphere.ResourceProperties.EC2InstanceAssociationParameter       Stratosphere.ResourceProperties.EC2InstanceBlockDeviceMapping+      Stratosphere.ResourceProperties.EC2InstanceCpuOptions       Stratosphere.ResourceProperties.EC2InstanceCreditSpecification       Stratosphere.ResourceProperties.EC2InstanceEbs       Stratosphere.ResourceProperties.EC2InstanceElasticGpuSpecification@@ -450,6 +457,7 @@       Stratosphere.ResourceProperties.ECSTaskDefinitionRepositoryCredentials       Stratosphere.ResourceProperties.ECSTaskDefinitionResourceRequirement       Stratosphere.ResourceProperties.ECSTaskDefinitionSecret+      Stratosphere.ResourceProperties.ECSTaskDefinitionSystemControl       Stratosphere.ResourceProperties.ECSTaskDefinitionTaskDefinitionPlacementConstraint       Stratosphere.ResourceProperties.ECSTaskDefinitionTmpfs       Stratosphere.ResourceProperties.ECSTaskDefinitionUlimit@@ -507,6 +515,7 @@       Stratosphere.ResourceProperties.ElasticsearchDomainNodeToNodeEncryptionOptions       Stratosphere.ResourceProperties.ElasticsearchDomainSnapshotOptions       Stratosphere.ResourceProperties.ElasticsearchDomainVPCOptions+      Stratosphere.ResourceProperties.ElasticsearchDomainZoneAwarenessConfig       Stratosphere.ResourceProperties.EMRClusterApplication       Stratosphere.ResourceProperties.EMRClusterAutoScalingPolicy       Stratosphere.ResourceProperties.EMRClusterBootstrapActionConfig@@ -555,9 +564,11 @@       Stratosphere.ResourceProperties.EMRStepHadoopJarStepConfig       Stratosphere.ResourceProperties.EMRStepKeyValue       Stratosphere.ResourceProperties.EventsEventBusPolicyCondition+      Stratosphere.ResourceProperties.EventsRuleAwsVpcConfiguration       Stratosphere.ResourceProperties.EventsRuleEcsParameters       Stratosphere.ResourceProperties.EventsRuleInputTransformer       Stratosphere.ResourceProperties.EventsRuleKinesisParameters+      Stratosphere.ResourceProperties.EventsRuleNetworkConfiguration       Stratosphere.ResourceProperties.EventsRuleRunCommandParameters       Stratosphere.ResourceProperties.EventsRuleRunCommandTarget       Stratosphere.ResourceProperties.EventsRuleSqsParameters@@ -585,6 +596,10 @@       Stratosphere.ResourceProperties.GlueJobConnectionsList       Stratosphere.ResourceProperties.GlueJobExecutionProperty       Stratosphere.ResourceProperties.GlueJobJobCommand+      Stratosphere.ResourceProperties.GlueMLTransformFindMatchesParameters+      Stratosphere.ResourceProperties.GlueMLTransformGlueTables+      Stratosphere.ResourceProperties.GlueMLTransformInputRecordTables+      Stratosphere.ResourceProperties.GlueMLTransformTransformParameters       Stratosphere.ResourceProperties.GluePartitionColumn       Stratosphere.ResourceProperties.GluePartitionOrder       Stratosphere.ResourceProperties.GluePartitionPartitionInput@@ -828,6 +843,11 @@       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamSplunkDestinationConfiguration       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamSplunkRetryOptions       Stratosphere.ResourceProperties.KinesisStreamStreamEncryption+      Stratosphere.ResourceProperties.LakeFormationDataLakeSettingsDataLakePrincipal+      Stratosphere.ResourceProperties.LakeFormationPermissionsDatabaseResource+      Stratosphere.ResourceProperties.LakeFormationPermissionsDataLakePrincipal+      Stratosphere.ResourceProperties.LakeFormationPermissionsResource+      Stratosphere.ResourceProperties.LakeFormationPermissionsTableResource       Stratosphere.ResourceProperties.LambdaAliasAliasRoutingConfiguration       Stratosphere.ResourceProperties.LambdaAliasVersionWeight       Stratosphere.ResourceProperties.LambdaFunctionCode@@ -837,6 +857,15 @@       Stratosphere.ResourceProperties.LambdaFunctionVpcConfig       Stratosphere.ResourceProperties.LambdaLayerVersionContent       Stratosphere.ResourceProperties.LogsMetricFilterMetricTransformation+      Stratosphere.ResourceProperties.ManagedBlockchainMemberApprovalThresholdPolicy+      Stratosphere.ResourceProperties.ManagedBlockchainMemberMemberConfiguration+      Stratosphere.ResourceProperties.ManagedBlockchainMemberMemberFabricConfiguration+      Stratosphere.ResourceProperties.ManagedBlockchainMemberMemberFrameworkConfiguration+      Stratosphere.ResourceProperties.ManagedBlockchainMemberNetworkConfiguration+      Stratosphere.ResourceProperties.ManagedBlockchainMemberNetworkFabricConfiguration+      Stratosphere.ResourceProperties.ManagedBlockchainMemberNetworkFrameworkConfiguration+      Stratosphere.ResourceProperties.ManagedBlockchainMemberVotingPolicy+      Stratosphere.ResourceProperties.ManagedBlockchainNodeNodeConfiguration       Stratosphere.ResourceProperties.MediaLiveChannelAribSourceSettings       Stratosphere.ResourceProperties.MediaLiveChannelAudioLanguageSelection       Stratosphere.ResourceProperties.MediaLiveChannelAudioPidSelection@@ -938,7 +967,9 @@       Stratosphere.ResourceProperties.PinpointSegmentSegmentGroups       Stratosphere.ResourceProperties.PinpointSegmentSetDimension       Stratosphere.ResourceProperties.PinpointSegmentSourceSegments+      Stratosphere.ResourceProperties.RDSDBClusterDBClusterRole       Stratosphere.ResourceProperties.RDSDBClusterScalingConfiguration+      Stratosphere.ResourceProperties.RDSDBInstanceDBInstanceRole       Stratosphere.ResourceProperties.RDSDBInstanceProcessorFeature       Stratosphere.ResourceProperties.RDSDBSecurityGroupIngressProperty       Stratosphere.ResourceProperties.RDSOptionGroupOptionConfiguration@@ -1012,6 +1043,9 @@       Stratosphere.ResourceProperties.SageMakerModelContainerDefinition       Stratosphere.ResourceProperties.SageMakerModelVpcConfig       Stratosphere.ResourceProperties.SageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHook+      Stratosphere.ResourceProperties.SageMakerWorkteamCognitoMemberDefinition+      Stratosphere.ResourceProperties.SageMakerWorkteamMemberDefinition+      Stratosphere.ResourceProperties.SageMakerWorkteamNotificationConfiguration       Stratosphere.ResourceProperties.SecretsManagerRotationScheduleRotationRules       Stratosphere.ResourceProperties.SecretsManagerSecretGenerateSecretString       Stratosphere.ResourceProperties.ServiceCatalogCloudFormationProductProvisioningArtifactProperties@@ -1042,6 +1076,7 @@       Stratosphere.ResourceProperties.SSMAssociationParameterValues       Stratosphere.ResourceProperties.SSMAssociationS3OutputLocation       Stratosphere.ResourceProperties.SSMAssociationTarget+      Stratosphere.ResourceProperties.SSMMaintenanceWindowTargetTargets       Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskLoggingInfo       Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters       Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters@@ -1174,6 +1209,7 @@       Stratosphere.Resources.CloudWatchAnomalyDetector       Stratosphere.Resources.CloudWatchDashboard       Stratosphere.Resources.CodeBuildProject+      Stratosphere.Resources.CodeBuildSourceCredential       Stratosphere.Resources.CodeCommitRepository       Stratosphere.Resources.CodeDeployApplication       Stratosphere.Resources.CodeDeployDeploymentConfig@@ -1194,6 +1230,7 @@       Stratosphere.Resources.ConfigConfigurationAggregator       Stratosphere.Resources.ConfigConfigurationRecorder       Stratosphere.Resources.ConfigDeliveryChannel+      Stratosphere.Resources.ConfigOrganizationConfigRule       Stratosphere.Resources.ConfigRemediationConfiguration       Stratosphere.Resources.DataPipelinePipeline       Stratosphere.Resources.DAXCluster@@ -1308,6 +1345,7 @@       Stratosphere.Resources.GlueDataCatalogEncryptionSettings       Stratosphere.Resources.GlueDevEndpoint       Stratosphere.Resources.GlueJob+      Stratosphere.Resources.GlueMLTransform       Stratosphere.Resources.GluePartition       Stratosphere.Resources.GlueSecurityConfiguration       Stratosphere.Resources.GlueTable@@ -1374,6 +1412,9 @@       Stratosphere.Resources.KinesisStreamConsumer       Stratosphere.Resources.KMSAlias       Stratosphere.Resources.KMSKey+      Stratosphere.Resources.LakeFormationDataLakeSettings+      Stratosphere.Resources.LakeFormationPermissions+      Stratosphere.Resources.LakeFormationResource       Stratosphere.Resources.LambdaAlias       Stratosphere.Resources.LambdaEventSourceMapping       Stratosphere.Resources.LambdaFunction@@ -1386,6 +1427,8 @@       Stratosphere.Resources.LogsLogStream       Stratosphere.Resources.LogsMetricFilter       Stratosphere.Resources.LogsSubscriptionFilter+      Stratosphere.Resources.ManagedBlockchainMember+      Stratosphere.Resources.ManagedBlockchainNode       Stratosphere.Resources.MediaLiveChannel       Stratosphere.Resources.MediaLiveInput       Stratosphere.Resources.MediaLiveInputSecurityGroup@@ -1458,6 +1501,7 @@       Stratosphere.Resources.SageMakerModel       Stratosphere.Resources.SageMakerNotebookInstance       Stratosphere.Resources.SageMakerNotebookInstanceLifecycleConfig+      Stratosphere.Resources.SageMakerWorkteam       Stratosphere.Resources.SDBDomain       Stratosphere.Resources.SecretsManagerResourcePolicy       Stratosphere.Resources.SecretsManagerRotationSchedule@@ -1497,6 +1541,7 @@       Stratosphere.Resources.SSMAssociation       Stratosphere.Resources.SSMDocument       Stratosphere.Resources.SSMMaintenanceWindow+      Stratosphere.Resources.SSMMaintenanceWindowTarget       Stratosphere.Resources.SSMMaintenanceWindowTask       Stratosphere.Resources.SSMParameter       Stratosphere.Resources.SSMPatchBaseline