stratosphere 0.42.0 → 0.43.0

raw patch · 50 files changed

+2030/−27 lines, 50 files

Files

CHANGELOG.md +4/−0
library-gen/Stratosphere/ResourceProperties/AppMeshRouteDuration.hs +47/−0
library-gen/Stratosphere/ResourceProperties/AppMeshRouteHttpRetryPolicy.hs +61/−0
library-gen/Stratosphere/ResourceProperties/AppMeshRouteHttpRoute.hs +8/−0
library-gen/Stratosphere/ResourceProperties/BudgetsBudgetBudgetData.hs +7/−0
library-gen/Stratosphere/ResourceProperties/CodeBuildProjectProjectTriggers.hs +4/−11
library-gen/Stratosphere/ResourceProperties/CognitoUserPoolDomainCustomDomainConfigType.hs +40/−0
library-gen/Stratosphere/ResourceProperties/CognitoUserPoolResourceServerResourceServerScopeType.hs +49/−0
library-gen/Stratosphere/ResourceProperties/CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType.hs +50/−0
library-gen/Stratosphere/ResourceProperties/CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType.hs +55/−0
library-gen/Stratosphere/ResourceProperties/CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType.hs +51/−0
library-gen/Stratosphere/ResourceProperties/CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType.hs +43/−0
library-gen/Stratosphere/ResourceProperties/CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType.hs +50/−0
library-gen/Stratosphere/ResourceProperties/CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType.hs +77/−0
library-gen/Stratosphere/ResourceProperties/CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType.hs +56/−0
library-gen/Stratosphere/ResourceProperties/CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType.hs +49/−0
library-gen/Stratosphere/ResourceProperties/ConfigRemediationConfigurationExecutionControls.hs +40/−0
library-gen/Stratosphere/ResourceProperties/ConfigRemediationConfigurationSsmControls.hs +46/−0
library-gen/Stratosphere/ResourceProperties/EC2TrafficMirrorFilterRuleTrafficMirrorPortRangeRequest.hs +49/−0
library-gen/Stratosphere/ResourceProperties/GlueJobNotificationProperty.hs +38/−0
library-gen/Stratosphere/ResourceProperties/GlueTriggerAction.hs +22/−1
library-gen/Stratosphere/ResourceProperties/GlueTriggerCondition.hs +17/−3
library-gen/Stratosphere/ResourceProperties/GlueTriggerNotificationProperty.hs +38/−0
library-gen/Stratosphere/ResourceProperties/SageMakerCodeRepositoryGitConfig.hs +53/−0
library-gen/Stratosphere/ResourceProperties/Tag.hs +3/−3
library-gen/Stratosphere/Resources.hs +31/−0
library-gen/Stratosphere/Resources/CognitoUserPool.hs +7/−0
library-gen/Stratosphere/Resources/CognitoUserPoolDomain.hs +57/−0
library-gen/Stratosphere/Resources/CognitoUserPoolIdentityProvider.hs +79/−0
library-gen/Stratosphere/Resources/CognitoUserPoolResourceServer.hs +65/−0
library-gen/Stratosphere/Resources/CognitoUserPoolRiskConfigurationAttachment.hs +74/−0
library-gen/Stratosphere/Resources/CognitoUserPoolUICustomizationAttachment.hs +58/−0
library-gen/Stratosphere/Resources/ConfigRemediationConfiguration.hs +32/−4
library-gen/Stratosphere/Resources/DocDBDBCluster.hs +7/−0
library-gen/Stratosphere/Resources/EC2TrafficMirrorFilter.hs +55/−0
library-gen/Stratosphere/Resources/EC2TrafficMirrorFilterRule.hs +110/−0
library-gen/Stratosphere/Resources/EC2TrafficMirrorSession.hs +94/−0
library-gen/Stratosphere/Resources/EC2TrafficMirrorTarget.hs +62/−0
library-gen/Stratosphere/Resources/EC2VPCEndpointService.hs +49/−0
library-gen/Stratosphere/Resources/EventsEventBusPolicy.hs +7/−0
library-gen/Stratosphere/Resources/GlueDevEndpoint.hs +31/−3
library-gen/Stratosphere/Resources/GlueJob.hs +15/−0
library-gen/Stratosphere/Resources/GlueTrigger.hs +14/−0
library-gen/Stratosphere/Resources/GlueWorkflow.hs +61/−0
library-gen/Stratosphere/Resources/PinpointApp.hs +7/−0
library-gen/Stratosphere/Resources/PinpointCampaign.hs +7/−0
library-gen/Stratosphere/Resources/PinpointSegment.hs +7/−0
library-gen/Stratosphere/Resources/QLDBLedger.hs +62/−0
library-gen/Stratosphere/Resources/SageMakerCodeRepository.hs +49/−0
stratosphere.cabal +33/−2

CHANGELOG.md view

@@ -1,5 +1,9 @@ # Change Log +## 0.43.0++* Update resource specification document to version 6.3.0+ ## 0.42.0  * Update resource specification document to version 6.0.0

+ library-gen/Stratosphere/ResourceProperties/AppMeshRouteDuration.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-duration.html++module Stratosphere.ResourceProperties.AppMeshRouteDuration where++import Stratosphere.ResourceImports+++-- | Full data type definition for AppMeshRouteDuration. See+-- 'appMeshRouteDuration' for a more convenient constructor.+data AppMeshRouteDuration =+  AppMeshRouteDuration+  { _appMeshRouteDurationUnit :: Val Text+  , _appMeshRouteDurationValue :: Val Integer+  } deriving (Show, Eq)++instance ToJSON AppMeshRouteDuration where+  toJSON AppMeshRouteDuration{..} =+    object $+    catMaybes+    [ (Just . ("Unit",) . toJSON) _appMeshRouteDurationUnit+    , (Just . ("Value",) . toJSON) _appMeshRouteDurationValue+    ]++-- | Constructor for 'AppMeshRouteDuration' containing required fields as+-- arguments.+appMeshRouteDuration+  :: Val Text -- ^ 'amrdUnit'+  -> Val Integer -- ^ 'amrdValue'+  -> AppMeshRouteDuration+appMeshRouteDuration unitarg valuearg =+  AppMeshRouteDuration+  { _appMeshRouteDurationUnit = unitarg+  , _appMeshRouteDurationValue = valuearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-duration.html#cfn-appmesh-route-duration-unit+amrdUnit :: Lens' AppMeshRouteDuration (Val Text)+amrdUnit = lens _appMeshRouteDurationUnit (\s a -> s { _appMeshRouteDurationUnit = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-duration.html#cfn-appmesh-route-duration-value+amrdValue :: Lens' AppMeshRouteDuration (Val Integer)+amrdValue = lens _appMeshRouteDurationValue (\s a -> s { _appMeshRouteDurationValue = a })

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

@@ -0,0 +1,61 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httpretrypolicy.html++module Stratosphere.ResourceProperties.AppMeshRouteHttpRetryPolicy where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshRouteDuration++-- | Full data type definition for AppMeshRouteHttpRetryPolicy. See+-- 'appMeshRouteHttpRetryPolicy' for a more convenient constructor.+data AppMeshRouteHttpRetryPolicy =+  AppMeshRouteHttpRetryPolicy+  { _appMeshRouteHttpRetryPolicyHttpRetryEvents :: Maybe (ValList Text)+  , _appMeshRouteHttpRetryPolicyMaxRetries :: Val Integer+  , _appMeshRouteHttpRetryPolicyPerRetryTimeout :: AppMeshRouteDuration+  , _appMeshRouteHttpRetryPolicyTcpRetryEvents :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON AppMeshRouteHttpRetryPolicy where+  toJSON AppMeshRouteHttpRetryPolicy{..} =+    object $+    catMaybes+    [ fmap (("HttpRetryEvents",) . toJSON) _appMeshRouteHttpRetryPolicyHttpRetryEvents+    , (Just . ("MaxRetries",) . toJSON) _appMeshRouteHttpRetryPolicyMaxRetries+    , (Just . ("PerRetryTimeout",) . toJSON) _appMeshRouteHttpRetryPolicyPerRetryTimeout+    , fmap (("TcpRetryEvents",) . toJSON) _appMeshRouteHttpRetryPolicyTcpRetryEvents+    ]++-- | Constructor for 'AppMeshRouteHttpRetryPolicy' containing required fields+-- as arguments.+appMeshRouteHttpRetryPolicy+  :: Val Integer -- ^ 'amrhrpMaxRetries'+  -> AppMeshRouteDuration -- ^ 'amrhrpPerRetryTimeout'+  -> AppMeshRouteHttpRetryPolicy+appMeshRouteHttpRetryPolicy maxRetriesarg perRetryTimeoutarg =+  AppMeshRouteHttpRetryPolicy+  { _appMeshRouteHttpRetryPolicyHttpRetryEvents = Nothing+  , _appMeshRouteHttpRetryPolicyMaxRetries = maxRetriesarg+  , _appMeshRouteHttpRetryPolicyPerRetryTimeout = perRetryTimeoutarg+  , _appMeshRouteHttpRetryPolicyTcpRetryEvents = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httpretrypolicy.html#cfn-appmesh-route-httpretrypolicy-httpretryevents+amrhrpHttpRetryEvents :: Lens' AppMeshRouteHttpRetryPolicy (Maybe (ValList Text))+amrhrpHttpRetryEvents = lens _appMeshRouteHttpRetryPolicyHttpRetryEvents (\s a -> s { _appMeshRouteHttpRetryPolicyHttpRetryEvents = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httpretrypolicy.html#cfn-appmesh-route-httpretrypolicy-maxretries+amrhrpMaxRetries :: Lens' AppMeshRouteHttpRetryPolicy (Val Integer)+amrhrpMaxRetries = lens _appMeshRouteHttpRetryPolicyMaxRetries (\s a -> s { _appMeshRouteHttpRetryPolicyMaxRetries = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httpretrypolicy.html#cfn-appmesh-route-httpretrypolicy-perretrytimeout+amrhrpPerRetryTimeout :: Lens' AppMeshRouteHttpRetryPolicy AppMeshRouteDuration+amrhrpPerRetryTimeout = lens _appMeshRouteHttpRetryPolicyPerRetryTimeout (\s a -> s { _appMeshRouteHttpRetryPolicyPerRetryTimeout = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httpretrypolicy.html#cfn-appmesh-route-httpretrypolicy-tcpretryevents+amrhrpTcpRetryEvents :: Lens' AppMeshRouteHttpRetryPolicy (Maybe (ValList Text))+amrhrpTcpRetryEvents = lens _appMeshRouteHttpRetryPolicyTcpRetryEvents (\s a -> s { _appMeshRouteHttpRetryPolicyTcpRetryEvents = a })

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

@@ -10,6 +10,7 @@ import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.AppMeshRouteHttpRouteAction import Stratosphere.ResourceProperties.AppMeshRouteHttpRouteMatch+import Stratosphere.ResourceProperties.AppMeshRouteHttpRetryPolicy  -- | Full data type definition for AppMeshRouteHttpRoute. See -- 'appMeshRouteHttpRoute' for a more convenient constructor.@@ -17,6 +18,7 @@   AppMeshRouteHttpRoute   { _appMeshRouteHttpRouteAction :: AppMeshRouteHttpRouteAction   , _appMeshRouteHttpRouteMatch :: AppMeshRouteHttpRouteMatch+  , _appMeshRouteHttpRouteRetryPolicy :: Maybe AppMeshRouteHttpRetryPolicy   } deriving (Show, Eq)  instance ToJSON AppMeshRouteHttpRoute where@@ -25,6 +27,7 @@     catMaybes     [ (Just . ("Action",) . toJSON) _appMeshRouteHttpRouteAction     , (Just . ("Match",) . toJSON) _appMeshRouteHttpRouteMatch+    , fmap (("RetryPolicy",) . toJSON) _appMeshRouteHttpRouteRetryPolicy     ]  -- | Constructor for 'AppMeshRouteHttpRoute' containing required fields as@@ -37,6 +40,7 @@   AppMeshRouteHttpRoute   { _appMeshRouteHttpRouteAction = actionarg   , _appMeshRouteHttpRouteMatch = matcharg+  , _appMeshRouteHttpRouteRetryPolicy = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httproute.html#cfn-appmesh-route-httproute-action@@ -46,3 +50,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httproute.html#cfn-appmesh-route-httproute-match amrhrMatch :: Lens' AppMeshRouteHttpRoute AppMeshRouteHttpRouteMatch amrhrMatch = lens _appMeshRouteHttpRouteMatch (\s a -> s { _appMeshRouteHttpRouteMatch = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httproute.html#cfn-appmesh-route-httproute-retrypolicy+amrhrRetryPolicy :: Lens' AppMeshRouteHttpRoute (Maybe AppMeshRouteHttpRetryPolicy)+amrhrRetryPolicy = lens _appMeshRouteHttpRouteRetryPolicy (\s a -> s { _appMeshRouteHttpRouteRetryPolicy = a })

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

@@ -21,6 +21,7 @@   , _budgetsBudgetBudgetDataBudgetType :: Val Text   , _budgetsBudgetBudgetDataCostFilters :: Maybe Object   , _budgetsBudgetBudgetDataCostTypes :: Maybe BudgetsBudgetCostTypes+  , _budgetsBudgetBudgetDataPlannedBudgetLimits :: Maybe Object   , _budgetsBudgetBudgetDataTimePeriod :: Maybe BudgetsBudgetTimePeriod   , _budgetsBudgetBudgetDataTimeUnit :: Val Text   } deriving (Show, Eq)@@ -34,6 +35,7 @@     , (Just . ("BudgetType",) . toJSON) _budgetsBudgetBudgetDataBudgetType     , fmap (("CostFilters",) . toJSON) _budgetsBudgetBudgetDataCostFilters     , fmap (("CostTypes",) . toJSON) _budgetsBudgetBudgetDataCostTypes+    , fmap (("PlannedBudgetLimits",) . toJSON) _budgetsBudgetBudgetDataPlannedBudgetLimits     , fmap (("TimePeriod",) . toJSON) _budgetsBudgetBudgetDataTimePeriod     , (Just . ("TimeUnit",) . toJSON) _budgetsBudgetBudgetDataTimeUnit     ]@@ -51,6 +53,7 @@   , _budgetsBudgetBudgetDataBudgetType = budgetTypearg   , _budgetsBudgetBudgetDataCostFilters = Nothing   , _budgetsBudgetBudgetDataCostTypes = Nothing+  , _budgetsBudgetBudgetDataPlannedBudgetLimits = Nothing   , _budgetsBudgetBudgetDataTimePeriod = Nothing   , _budgetsBudgetBudgetDataTimeUnit = timeUnitarg   }@@ -74,6 +77,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-budgetdata.html#cfn-budgets-budget-budgetdata-costtypes bbbdCostTypes :: Lens' BudgetsBudgetBudgetData (Maybe BudgetsBudgetCostTypes) bbbdCostTypes = lens _budgetsBudgetBudgetDataCostTypes (\s a -> s { _budgetsBudgetBudgetDataCostTypes = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-budgetdata.html#cfn-budgets-budget-budgetdata-plannedbudgetlimits+bbbdPlannedBudgetLimits :: Lens' BudgetsBudgetBudgetData (Maybe Object)+bbbdPlannedBudgetLimits = lens _budgetsBudgetBudgetDataPlannedBudgetLimits (\s a -> s { _budgetsBudgetBudgetDataPlannedBudgetLimits = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-budgetdata.html#cfn-budgets-budget-budgetdata-timeperiod bbbdTimePeriod :: Lens' BudgetsBudgetBudgetData (Maybe BudgetsBudgetTimePeriod)

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

@@ -8,22 +8,20 @@ module Stratosphere.ResourceProperties.CodeBuildProjectProjectTriggers where  import Stratosphere.ResourceImports-import Stratosphere.ResourceProperties.CodeBuildProjectWebhookFilter + -- | Full data type definition for CodeBuildProjectProjectTriggers. See -- 'codeBuildProjectProjectTriggers' for a more convenient constructor. data CodeBuildProjectProjectTriggers =   CodeBuildProjectProjectTriggers-  { _codeBuildProjectProjectTriggersFilterGroups :: Maybe [CodeBuildProjectWebhookFilter]-  , _codeBuildProjectProjectTriggersWebhook :: Maybe (Val Bool)+  { _codeBuildProjectProjectTriggersWebhook :: Maybe (Val Bool)   } deriving (Show, Eq)  instance ToJSON CodeBuildProjectProjectTriggers where   toJSON CodeBuildProjectProjectTriggers{..} =     object $     catMaybes-    [ fmap (("FilterGroups",) . toJSON) _codeBuildProjectProjectTriggersFilterGroups-    , fmap (("Webhook",) . toJSON) _codeBuildProjectProjectTriggersWebhook+    [ fmap (("Webhook",) . toJSON) _codeBuildProjectProjectTriggersWebhook     ]  -- | Constructor for 'CodeBuildProjectProjectTriggers' containing required@@ -32,13 +30,8 @@   :: CodeBuildProjectProjectTriggers codeBuildProjectProjectTriggers  =   CodeBuildProjectProjectTriggers-  { _codeBuildProjectProjectTriggersFilterGroups = Nothing-  , _codeBuildProjectProjectTriggersWebhook = Nothing+  { _codeBuildProjectProjectTriggersWebhook = Nothing   }---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-projecttriggers.html#cfn-codebuild-project-projecttriggers-filtergroups-cbpptFilterGroups :: Lens' CodeBuildProjectProjectTriggers (Maybe [CodeBuildProjectWebhookFilter])-cbpptFilterGroups = lens _codeBuildProjectProjectTriggersFilterGroups (\s a -> s { _codeBuildProjectProjectTriggersFilterGroups = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-projecttriggers.html#cfn-codebuild-project-projecttriggers-webhook cbpptWebhook :: Lens' CodeBuildProjectProjectTriggers (Maybe (Val Bool))

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

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

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

@@ -0,0 +1,49 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolresourceserver-resourceserverscopetype.html++module Stratosphere.ResourceProperties.CognitoUserPoolResourceServerResourceServerScopeType where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- CognitoUserPoolResourceServerResourceServerScopeType. See+-- 'cognitoUserPoolResourceServerResourceServerScopeType' for a more+-- convenient constructor.+data CognitoUserPoolResourceServerResourceServerScopeType =+  CognitoUserPoolResourceServerResourceServerScopeType+  { _cognitoUserPoolResourceServerResourceServerScopeTypeScopeDescription :: Val Text+  , _cognitoUserPoolResourceServerResourceServerScopeTypeScopeName :: Val Text+  } deriving (Show, Eq)++instance ToJSON CognitoUserPoolResourceServerResourceServerScopeType where+  toJSON CognitoUserPoolResourceServerResourceServerScopeType{..} =+    object $+    catMaybes+    [ (Just . ("ScopeDescription",) . toJSON) _cognitoUserPoolResourceServerResourceServerScopeTypeScopeDescription+    , (Just . ("ScopeName",) . toJSON) _cognitoUserPoolResourceServerResourceServerScopeTypeScopeName+    ]++-- | Constructor for 'CognitoUserPoolResourceServerResourceServerScopeType'+-- containing required fields as arguments.+cognitoUserPoolResourceServerResourceServerScopeType+  :: Val Text -- ^ 'cuprsrsstScopeDescription'+  -> Val Text -- ^ 'cuprsrsstScopeName'+  -> CognitoUserPoolResourceServerResourceServerScopeType+cognitoUserPoolResourceServerResourceServerScopeType scopeDescriptionarg scopeNamearg =+  CognitoUserPoolResourceServerResourceServerScopeType+  { _cognitoUserPoolResourceServerResourceServerScopeTypeScopeDescription = scopeDescriptionarg+  , _cognitoUserPoolResourceServerResourceServerScopeTypeScopeName = scopeNamearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolresourceserver-resourceserverscopetype.html#cfn-cognito-userpoolresourceserver-resourceserverscopetype-scopedescription+cuprsrsstScopeDescription :: Lens' CognitoUserPoolResourceServerResourceServerScopeType (Val Text)+cuprsrsstScopeDescription = lens _cognitoUserPoolResourceServerResourceServerScopeTypeScopeDescription (\s a -> s { _cognitoUserPoolResourceServerResourceServerScopeTypeScopeDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolresourceserver-resourceserverscopetype.html#cfn-cognito-userpoolresourceserver-resourceserverscopetype-scopename+cuprsrsstScopeName :: Lens' CognitoUserPoolResourceServerResourceServerScopeType (Val Text)+cuprsrsstScopeName = lens _cognitoUserPoolResourceServerResourceServerScopeTypeScopeName (\s a -> s { _cognitoUserPoolResourceServerResourceServerScopeTypeScopeName = a })

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

@@ -0,0 +1,50 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-accounttakeoveractiontype.html++module Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType. See+-- 'cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType' for+-- a more convenient constructor.+data CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType =+  CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType+  { _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionTypeEventAction :: Val Text+  , _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionTypeNotify :: Val Bool+  } deriving (Show, Eq)++instance ToJSON CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType where+  toJSON CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType{..} =+    object $+    catMaybes+    [ (Just . ("EventAction",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionTypeEventAction+    , (Just . ("Notify",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionTypeNotify+    ]++-- | Constructor for+-- 'CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType'+-- containing required fields as arguments.+cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType+  :: Val Text -- ^ 'cuprcaatatEventAction'+  -> Val Bool -- ^ 'cuprcaatatNotify'+  -> CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType+cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType eventActionarg notifyarg =+  CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType+  { _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionTypeEventAction = eventActionarg+  , _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionTypeNotify = notifyarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-accounttakeoveractiontype.html#cfn-cognito-userpoolriskconfigurationattachment-accounttakeoveractiontype-eventaction+cuprcaatatEventAction :: Lens' CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType (Val Text)+cuprcaatatEventAction = lens _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionTypeEventAction (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionTypeEventAction = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-accounttakeoveractiontype.html#cfn-cognito-userpoolriskconfigurationattachment-accounttakeoveractiontype-notify+cuprcaatatNotify :: Lens' CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType (Val Bool)+cuprcaatatNotify = lens _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionTypeNotify (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionTypeNotify = a })

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

@@ -0,0 +1,55 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-accounttakeoveractionstype.html++module Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType++-- | Full data type definition for+-- CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType. See+-- 'cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType'+-- for a more convenient constructor.+data CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType =+  CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType+  { _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsTypeHighAction :: Maybe CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType+  , _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsTypeLowAction :: Maybe CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType+  , _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsTypeMediumAction :: Maybe CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType+  } deriving (Show, Eq)++instance ToJSON CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType where+  toJSON CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType{..} =+    object $+    catMaybes+    [ fmap (("HighAction",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsTypeHighAction+    , fmap (("LowAction",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsTypeLowAction+    , fmap (("MediumAction",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsTypeMediumAction+    ]++-- | Constructor for+-- 'CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType'+-- containing required fields as arguments.+cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType+  :: CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType+cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType  =+  CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType+  { _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsTypeHighAction = Nothing+  , _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsTypeLowAction = Nothing+  , _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsTypeMediumAction = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-accounttakeoveractionstype.html#cfn-cognito-userpoolriskconfigurationattachment-accounttakeoveractionstype-highaction+cuprcaatatHighAction :: Lens' CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType (Maybe CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType)+cuprcaatatHighAction = lens _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsTypeHighAction (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsTypeHighAction = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-accounttakeoveractionstype.html#cfn-cognito-userpoolriskconfigurationattachment-accounttakeoveractionstype-lowaction+cuprcaatatLowAction :: Lens' CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType (Maybe CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType)+cuprcaatatLowAction = lens _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsTypeLowAction (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsTypeLowAction = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-accounttakeoveractionstype.html#cfn-cognito-userpoolriskconfigurationattachment-accounttakeoveractionstype-mediumaction+cuprcaatatMediumAction :: Lens' CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType (Maybe CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType)+cuprcaatatMediumAction = lens _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsTypeMediumAction (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsTypeMediumAction = a })

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

@@ -0,0 +1,51 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-accounttakeoverriskconfigurationtype.html++module Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType+import Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType++-- | Full data type definition for+-- CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType.+-- See+-- 'cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType'+-- for a more convenient constructor.+data CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType =+  CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType+  { _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationTypeActions :: CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType+  , _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationTypeNotifyConfiguration :: Maybe CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType+  } deriving (Show, Eq)++instance ToJSON CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType where+  toJSON CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType{..} =+    object $+    catMaybes+    [ (Just . ("Actions",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationTypeActions+    , fmap (("NotifyConfiguration",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationTypeNotifyConfiguration+    ]++-- | Constructor for+-- 'CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType'+-- containing required fields as arguments.+cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType+  :: CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType -- ^ 'cuprcaatrctActions'+  -> CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType+cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType actionsarg =+  CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType+  { _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationTypeActions = actionsarg+  , _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationTypeNotifyConfiguration = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-accounttakeoverriskconfigurationtype.html#cfn-cognito-userpoolriskconfigurationattachment-accounttakeoverriskconfigurationtype-actions+cuprcaatrctActions :: Lens' CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType+cuprcaatrctActions = lens _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationTypeActions (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationTypeActions = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-accounttakeoverriskconfigurationtype.html#cfn-cognito-userpoolriskconfigurationattachment-accounttakeoverriskconfigurationtype-notifyconfiguration+cuprcaatrctNotifyConfiguration :: Lens' CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType (Maybe CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType)+cuprcaatrctNotifyConfiguration = lens _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationTypeNotifyConfiguration (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationTypeNotifyConfiguration = a })

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

@@ -0,0 +1,43 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-compromisedcredentialsactionstype.html++module Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType.+-- See+-- 'cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType'+-- for a more convenient constructor.+data CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType =+  CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType+  { _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsTypeEventAction :: Val Text+  } deriving (Show, Eq)++instance ToJSON CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType where+  toJSON CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType{..} =+    object $+    catMaybes+    [ (Just . ("EventAction",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsTypeEventAction+    ]++-- | Constructor for+-- 'CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType'+-- containing required fields as arguments.+cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType+  :: Val Text -- ^ 'cuprcaccatEventAction'+  -> CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType+cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType eventActionarg =+  CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType+  { _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsTypeEventAction = eventActionarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-compromisedcredentialsactionstype.html#cfn-cognito-userpoolriskconfigurationattachment-compromisedcredentialsactionstype-eventaction+cuprcaccatEventAction :: Lens' CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType (Val Text)+cuprcaccatEventAction = lens _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsTypeEventAction (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsTypeEventAction = a })

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

@@ -0,0 +1,50 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-compromisedcredentialsriskconfigurationtype.html++module Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType++-- | Full data type definition for+-- CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType.+-- See+-- 'cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType'+-- for a more convenient constructor.+data CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType =+  CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType+  { _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationTypeActions :: CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType+  , _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationTypeEventFilter :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType where+  toJSON CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType{..} =+    object $+    catMaybes+    [ (Just . ("Actions",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationTypeActions+    , fmap (("EventFilter",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationTypeEventFilter+    ]++-- | Constructor for+-- 'CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType'+-- containing required fields as arguments.+cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType+  :: CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType -- ^ 'cuprcaccrctActions'+  -> CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType+cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType actionsarg =+  CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType+  { _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationTypeActions = actionsarg+  , _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationTypeEventFilter = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-compromisedcredentialsriskconfigurationtype.html#cfn-cognito-userpoolriskconfigurationattachment-compromisedcredentialsriskconfigurationtype-actions+cuprcaccrctActions :: Lens' CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType+cuprcaccrctActions = lens _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationTypeActions (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationTypeActions = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-compromisedcredentialsriskconfigurationtype.html#cfn-cognito-userpoolriskconfigurationattachment-compromisedcredentialsriskconfigurationtype-eventfilter+cuprcaccrctEventFilter :: Lens' CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType (Maybe (ValList Text))+cuprcaccrctEventFilter = lens _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationTypeEventFilter (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationTypeEventFilter = a })

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

@@ -0,0 +1,77 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-notifyconfigurationtype.html++module Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType++-- | Full data type definition for+-- CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType. See+-- 'cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType' for a+-- more convenient constructor.+data CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType =+  CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType+  { _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeBlockEmail :: Maybe CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType+  , _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeFrom :: Maybe (Val Text)+  , _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeMfaEmail :: Maybe CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType+  , _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeNoActionEmail :: Maybe CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType+  , _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeReplyTo :: Maybe (Val Text)+  , _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeSourceArn :: Val Text+  } deriving (Show, Eq)++instance ToJSON CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType where+  toJSON CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType{..} =+    object $+    catMaybes+    [ fmap (("BlockEmail",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeBlockEmail+    , fmap (("From",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeFrom+    , fmap (("MfaEmail",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeMfaEmail+    , fmap (("NoActionEmail",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeNoActionEmail+    , fmap (("ReplyTo",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeReplyTo+    , (Just . ("SourceArn",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeSourceArn+    ]++-- | Constructor for+-- 'CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType'+-- containing required fields as arguments.+cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType+  :: Val Text -- ^ 'cuprcanctSourceArn'+  -> CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType+cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType sourceArnarg =+  CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType+  { _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeBlockEmail = Nothing+  , _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeFrom = Nothing+  , _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeMfaEmail = Nothing+  , _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeNoActionEmail = Nothing+  , _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeReplyTo = Nothing+  , _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeSourceArn = sourceArnarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-notifyconfigurationtype.html#cfn-cognito-userpoolriskconfigurationattachment-notifyconfigurationtype-blockemail+cuprcanctBlockEmail :: Lens' CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType (Maybe CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType)+cuprcanctBlockEmail = lens _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeBlockEmail (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeBlockEmail = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-notifyconfigurationtype.html#cfn-cognito-userpoolriskconfigurationattachment-notifyconfigurationtype-from+cuprcanctFrom :: Lens' CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType (Maybe (Val Text))+cuprcanctFrom = lens _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeFrom (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeFrom = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-notifyconfigurationtype.html#cfn-cognito-userpoolriskconfigurationattachment-notifyconfigurationtype-mfaemail+cuprcanctMfaEmail :: Lens' CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType (Maybe CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType)+cuprcanctMfaEmail = lens _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeMfaEmail (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeMfaEmail = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-notifyconfigurationtype.html#cfn-cognito-userpoolriskconfigurationattachment-notifyconfigurationtype-noactionemail+cuprcanctNoActionEmail :: Lens' CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType (Maybe CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType)+cuprcanctNoActionEmail = lens _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeNoActionEmail (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeNoActionEmail = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-notifyconfigurationtype.html#cfn-cognito-userpoolriskconfigurationattachment-notifyconfigurationtype-replyto+cuprcanctReplyTo :: Lens' CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType (Maybe (Val Text))+cuprcanctReplyTo = lens _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeReplyTo (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeReplyTo = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-notifyconfigurationtype.html#cfn-cognito-userpoolriskconfigurationattachment-notifyconfigurationtype-sourcearn+cuprcanctSourceArn :: Lens' CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType (Val Text)+cuprcanctSourceArn = lens _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeSourceArn (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeSourceArn = a })

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

@@ -0,0 +1,56 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-notifyemailtype.html++module Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType. See+-- 'cognitoUserPoolRiskConfigurationAttachmentNotifyEmailType' for a more+-- convenient constructor.+data CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType =+  CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType+  { _cognitoUserPoolRiskConfigurationAttachmentNotifyEmailTypeHtmlBody :: Maybe (Val Text)+  , _cognitoUserPoolRiskConfigurationAttachmentNotifyEmailTypeSubject :: Val Text+  , _cognitoUserPoolRiskConfigurationAttachmentNotifyEmailTypeTextBody :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType where+  toJSON CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType{..} =+    object $+    catMaybes+    [ fmap (("HtmlBody",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentNotifyEmailTypeHtmlBody+    , (Just . ("Subject",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentNotifyEmailTypeSubject+    , fmap (("TextBody",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentNotifyEmailTypeTextBody+    ]++-- | Constructor for+-- 'CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType' containing+-- required fields as arguments.+cognitoUserPoolRiskConfigurationAttachmentNotifyEmailType+  :: Val Text -- ^ 'cuprcanetSubject'+  -> CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType+cognitoUserPoolRiskConfigurationAttachmentNotifyEmailType subjectarg =+  CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType+  { _cognitoUserPoolRiskConfigurationAttachmentNotifyEmailTypeHtmlBody = Nothing+  , _cognitoUserPoolRiskConfigurationAttachmentNotifyEmailTypeSubject = subjectarg+  , _cognitoUserPoolRiskConfigurationAttachmentNotifyEmailTypeTextBody = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-notifyemailtype.html#cfn-cognito-userpoolriskconfigurationattachment-notifyemailtype-htmlbody+cuprcanetHtmlBody :: Lens' CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType (Maybe (Val Text))+cuprcanetHtmlBody = lens _cognitoUserPoolRiskConfigurationAttachmentNotifyEmailTypeHtmlBody (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentNotifyEmailTypeHtmlBody = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-notifyemailtype.html#cfn-cognito-userpoolriskconfigurationattachment-notifyemailtype-subject+cuprcanetSubject :: Lens' CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType (Val Text)+cuprcanetSubject = lens _cognitoUserPoolRiskConfigurationAttachmentNotifyEmailTypeSubject (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentNotifyEmailTypeSubject = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-notifyemailtype.html#cfn-cognito-userpoolriskconfigurationattachment-notifyemailtype-textbody+cuprcanetTextBody :: Lens' CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType (Maybe (Val Text))+cuprcanetTextBody = lens _cognitoUserPoolRiskConfigurationAttachmentNotifyEmailTypeTextBody (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentNotifyEmailTypeTextBody = a })

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

@@ -0,0 +1,49 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-riskexceptionconfigurationtype.html++module Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType.+-- See+-- 'cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType'+-- for a more convenient constructor.+data CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType =+  CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType+  { _cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationTypeBlockedIPRangeList :: Maybe (ValList Text)+  , _cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationTypeSkippedIPRangeList :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType where+  toJSON CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType{..} =+    object $+    catMaybes+    [ fmap (("BlockedIPRangeList",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationTypeBlockedIPRangeList+    , fmap (("SkippedIPRangeList",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationTypeSkippedIPRangeList+    ]++-- | Constructor for+-- 'CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType'+-- containing required fields as arguments.+cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType+  :: CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType+cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType  =+  CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType+  { _cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationTypeBlockedIPRangeList = Nothing+  , _cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationTypeSkippedIPRangeList = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-riskexceptionconfigurationtype.html#cfn-cognito-userpoolriskconfigurationattachment-riskexceptionconfigurationtype-blockediprangelist+cuprcarectBlockedIPRangeList :: Lens' CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType (Maybe (ValList Text))+cuprcarectBlockedIPRangeList = lens _cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationTypeBlockedIPRangeList (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationTypeBlockedIPRangeList = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-riskexceptionconfigurationtype.html#cfn-cognito-userpoolriskconfigurationattachment-riskexceptionconfigurationtype-skippediprangelist+cuprcarectSkippedIPRangeList :: Lens' CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType (Maybe (ValList Text))+cuprcarectSkippedIPRangeList = lens _cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationTypeSkippedIPRangeList (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationTypeSkippedIPRangeList = a })

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

@@ -0,0 +1,40 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-remediationconfiguration-executioncontrols.html++module Stratosphere.ResourceProperties.ConfigRemediationConfigurationExecutionControls where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.ConfigRemediationConfigurationSsmControls++-- | Full data type definition for+-- ConfigRemediationConfigurationExecutionControls. See+-- 'configRemediationConfigurationExecutionControls' for a more convenient+-- constructor.+data ConfigRemediationConfigurationExecutionControls =+  ConfigRemediationConfigurationExecutionControls+  { _configRemediationConfigurationExecutionControlsSsmControls :: Maybe ConfigRemediationConfigurationSsmControls+  } deriving (Show, Eq)++instance ToJSON ConfigRemediationConfigurationExecutionControls where+  toJSON ConfigRemediationConfigurationExecutionControls{..} =+    object $+    catMaybes+    [ fmap (("SsmControls",) . toJSON) _configRemediationConfigurationExecutionControlsSsmControls+    ]++-- | Constructor for 'ConfigRemediationConfigurationExecutionControls'+-- containing required fields as arguments.+configRemediationConfigurationExecutionControls+  :: ConfigRemediationConfigurationExecutionControls+configRemediationConfigurationExecutionControls  =+  ConfigRemediationConfigurationExecutionControls+  { _configRemediationConfigurationExecutionControlsSsmControls = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-remediationconfiguration-executioncontrols.html#cfn-config-remediationconfiguration-executioncontrols-ssmcontrols+crcecSsmControls :: Lens' ConfigRemediationConfigurationExecutionControls (Maybe ConfigRemediationConfigurationSsmControls)+crcecSsmControls = lens _configRemediationConfigurationExecutionControlsSsmControls (\s a -> s { _configRemediationConfigurationExecutionControlsSsmControls = a })

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

@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-remediationconfiguration-ssmcontrols.html++module Stratosphere.ResourceProperties.ConfigRemediationConfigurationSsmControls where++import Stratosphere.ResourceImports+++-- | Full data type definition for ConfigRemediationConfigurationSsmControls.+-- See 'configRemediationConfigurationSsmControls' for a more convenient+-- constructor.+data ConfigRemediationConfigurationSsmControls =+  ConfigRemediationConfigurationSsmControls+  { _configRemediationConfigurationSsmControlsConcurrentExecutionRatePercentage :: Maybe (Val Integer)+  , _configRemediationConfigurationSsmControlsErrorPercentage :: Maybe (Val Integer)+  } deriving (Show, Eq)++instance ToJSON ConfigRemediationConfigurationSsmControls where+  toJSON ConfigRemediationConfigurationSsmControls{..} =+    object $+    catMaybes+    [ fmap (("ConcurrentExecutionRatePercentage",) . toJSON) _configRemediationConfigurationSsmControlsConcurrentExecutionRatePercentage+    , fmap (("ErrorPercentage",) . toJSON) _configRemediationConfigurationSsmControlsErrorPercentage+    ]++-- | Constructor for 'ConfigRemediationConfigurationSsmControls' containing+-- required fields as arguments.+configRemediationConfigurationSsmControls+  :: ConfigRemediationConfigurationSsmControls+configRemediationConfigurationSsmControls  =+  ConfigRemediationConfigurationSsmControls+  { _configRemediationConfigurationSsmControlsConcurrentExecutionRatePercentage = Nothing+  , _configRemediationConfigurationSsmControlsErrorPercentage = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-remediationconfiguration-ssmcontrols.html#cfn-config-remediationconfiguration-ssmcontrols-concurrentexecutionratepercentage+crcscConcurrentExecutionRatePercentage :: Lens' ConfigRemediationConfigurationSsmControls (Maybe (Val Integer))+crcscConcurrentExecutionRatePercentage = lens _configRemediationConfigurationSsmControlsConcurrentExecutionRatePercentage (\s a -> s { _configRemediationConfigurationSsmControlsConcurrentExecutionRatePercentage = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-remediationconfiguration-ssmcontrols.html#cfn-config-remediationconfiguration-ssmcontrols-errorpercentage+crcscErrorPercentage :: Lens' ConfigRemediationConfigurationSsmControls (Maybe (Val Integer))+crcscErrorPercentage = lens _configRemediationConfigurationSsmControlsErrorPercentage (\s a -> s { _configRemediationConfigurationSsmControlsErrorPercentage = a })

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

@@ -0,0 +1,49 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-trafficmirrorfilterrule-trafficmirrorportrangerequest.html++module Stratosphere.ResourceProperties.EC2TrafficMirrorFilterRuleTrafficMirrorPortRangeRequest where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- EC2TrafficMirrorFilterRuleTrafficMirrorPortRangeRequest. See+-- 'ec2TrafficMirrorFilterRuleTrafficMirrorPortRangeRequest' for a more+-- convenient constructor.+data EC2TrafficMirrorFilterRuleTrafficMirrorPortRangeRequest =+  EC2TrafficMirrorFilterRuleTrafficMirrorPortRangeRequest+  { _eC2TrafficMirrorFilterRuleTrafficMirrorPortRangeRequestFromPort :: Val Integer+  , _eC2TrafficMirrorFilterRuleTrafficMirrorPortRangeRequestToPort :: Val Integer+  } deriving (Show, Eq)++instance ToJSON EC2TrafficMirrorFilterRuleTrafficMirrorPortRangeRequest where+  toJSON EC2TrafficMirrorFilterRuleTrafficMirrorPortRangeRequest{..} =+    object $+    catMaybes+    [ (Just . ("FromPort",) . toJSON) _eC2TrafficMirrorFilterRuleTrafficMirrorPortRangeRequestFromPort+    , (Just . ("ToPort",) . toJSON) _eC2TrafficMirrorFilterRuleTrafficMirrorPortRangeRequestToPort+    ]++-- | Constructor for 'EC2TrafficMirrorFilterRuleTrafficMirrorPortRangeRequest'+-- containing required fields as arguments.+ec2TrafficMirrorFilterRuleTrafficMirrorPortRangeRequest+  :: Val Integer -- ^ 'ectmfrtmprrFromPort'+  -> Val Integer -- ^ 'ectmfrtmprrToPort'+  -> EC2TrafficMirrorFilterRuleTrafficMirrorPortRangeRequest+ec2TrafficMirrorFilterRuleTrafficMirrorPortRangeRequest fromPortarg toPortarg =+  EC2TrafficMirrorFilterRuleTrafficMirrorPortRangeRequest+  { _eC2TrafficMirrorFilterRuleTrafficMirrorPortRangeRequestFromPort = fromPortarg+  , _eC2TrafficMirrorFilterRuleTrafficMirrorPortRangeRequestToPort = toPortarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-trafficmirrorfilterrule-trafficmirrorportrangerequest.html#cfn-ec2-trafficmirrorfilterrule-trafficmirrorportrangerequest-fromport+ectmfrtmprrFromPort :: Lens' EC2TrafficMirrorFilterRuleTrafficMirrorPortRangeRequest (Val Integer)+ectmfrtmprrFromPort = lens _eC2TrafficMirrorFilterRuleTrafficMirrorPortRangeRequestFromPort (\s a -> s { _eC2TrafficMirrorFilterRuleTrafficMirrorPortRangeRequestFromPort = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-trafficmirrorfilterrule-trafficmirrorportrangerequest.html#cfn-ec2-trafficmirrorfilterrule-trafficmirrorportrangerequest-toport+ectmfrtmprrToPort :: Lens' EC2TrafficMirrorFilterRuleTrafficMirrorPortRangeRequest (Val Integer)+ectmfrtmprrToPort = lens _eC2TrafficMirrorFilterRuleTrafficMirrorPortRangeRequestToPort (\s a -> s { _eC2TrafficMirrorFilterRuleTrafficMirrorPortRangeRequestToPort = a })

+ library-gen/Stratosphere/ResourceProperties/GlueJobNotificationProperty.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-job-notificationproperty.html++module Stratosphere.ResourceProperties.GlueJobNotificationProperty where++import Stratosphere.ResourceImports+++-- | Full data type definition for GlueJobNotificationProperty. See+-- 'glueJobNotificationProperty' for a more convenient constructor.+data GlueJobNotificationProperty =+  GlueJobNotificationProperty+  { _glueJobNotificationPropertyNotifyDelayAfter :: Maybe (Val Integer)+  } deriving (Show, Eq)++instance ToJSON GlueJobNotificationProperty where+  toJSON GlueJobNotificationProperty{..} =+    object $+    catMaybes+    [ fmap (("NotifyDelayAfter",) . toJSON) _glueJobNotificationPropertyNotifyDelayAfter+    ]++-- | Constructor for 'GlueJobNotificationProperty' containing required fields+-- as arguments.+glueJobNotificationProperty+  :: GlueJobNotificationProperty+glueJobNotificationProperty  =+  GlueJobNotificationProperty+  { _glueJobNotificationPropertyNotifyDelayAfter = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-job-notificationproperty.html#cfn-glue-job-notificationproperty-notifydelayafter+gjnpNotifyDelayAfter :: Lens' GlueJobNotificationProperty (Maybe (Val Integer))+gjnpNotifyDelayAfter = lens _glueJobNotificationPropertyNotifyDelayAfter (\s a -> s { _glueJobNotificationPropertyNotifyDelayAfter = a })

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

@@ -8,15 +8,18 @@ module Stratosphere.ResourceProperties.GlueTriggerAction where  import Stratosphere.ResourceImports-+import Stratosphere.ResourceProperties.GlueTriggerNotificationProperty  -- | Full data type definition for GlueTriggerAction. See 'glueTriggerAction' -- for a more convenient constructor. data GlueTriggerAction =   GlueTriggerAction   { _glueTriggerActionArguments :: Maybe Object+  , _glueTriggerActionCrawlerName :: Maybe (Val Text)   , _glueTriggerActionJobName :: Maybe (Val Text)+  , _glueTriggerActionNotificationProperty :: Maybe GlueTriggerNotificationProperty   , _glueTriggerActionSecurityConfiguration :: Maybe (Val Text)+  , _glueTriggerActionTimeout :: Maybe (Val Integer)   } deriving (Show, Eq)  instance ToJSON GlueTriggerAction where@@ -24,8 +27,11 @@     object $     catMaybes     [ fmap (("Arguments",) . toJSON) _glueTriggerActionArguments+    , fmap (("CrawlerName",) . toJSON) _glueTriggerActionCrawlerName     , fmap (("JobName",) . toJSON) _glueTriggerActionJobName+    , fmap (("NotificationProperty",) . toJSON) _glueTriggerActionNotificationProperty     , fmap (("SecurityConfiguration",) . toJSON) _glueTriggerActionSecurityConfiguration+    , fmap (("Timeout",) . toJSON) _glueTriggerActionTimeout     ]  -- | Constructor for 'GlueTriggerAction' containing required fields as@@ -35,18 +41,33 @@ glueTriggerAction  =   GlueTriggerAction   { _glueTriggerActionArguments = Nothing+  , _glueTriggerActionCrawlerName = Nothing   , _glueTriggerActionJobName = Nothing+  , _glueTriggerActionNotificationProperty = Nothing   , _glueTriggerActionSecurityConfiguration = Nothing+  , _glueTriggerActionTimeout = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-action.html#cfn-glue-trigger-action-arguments gtaArguments :: Lens' GlueTriggerAction (Maybe Object) gtaArguments = lens _glueTriggerActionArguments (\s a -> s { _glueTriggerActionArguments = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-action.html#cfn-glue-trigger-action-crawlername+gtaCrawlerName :: Lens' GlueTriggerAction (Maybe (Val Text))+gtaCrawlerName = lens _glueTriggerActionCrawlerName (\s a -> s { _glueTriggerActionCrawlerName = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-action.html#cfn-glue-trigger-action-jobname gtaJobName :: Lens' GlueTriggerAction (Maybe (Val Text)) gtaJobName = lens _glueTriggerActionJobName (\s a -> s { _glueTriggerActionJobName = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-action.html#cfn-glue-trigger-action-notificationproperty+gtaNotificationProperty :: Lens' GlueTriggerAction (Maybe GlueTriggerNotificationProperty)+gtaNotificationProperty = lens _glueTriggerActionNotificationProperty (\s a -> s { _glueTriggerActionNotificationProperty = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-action.html#cfn-glue-trigger-action-securityconfiguration gtaSecurityConfiguration :: Lens' GlueTriggerAction (Maybe (Val Text)) gtaSecurityConfiguration = lens _glueTriggerActionSecurityConfiguration (\s a -> s { _glueTriggerActionSecurityConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-action.html#cfn-glue-trigger-action-timeout+gtaTimeout :: Lens' GlueTriggerAction (Maybe (Val Integer))+gtaTimeout = lens _glueTriggerActionTimeout (\s a -> s { _glueTriggerActionTimeout = a })

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

@@ -14,7 +14,9 @@ -- 'glueTriggerCondition' for a more convenient constructor. data GlueTriggerCondition =   GlueTriggerCondition-  { _glueTriggerConditionJobName :: Maybe (Val Text)+  { _glueTriggerConditionCrawlState :: Maybe (Val Text)+  , _glueTriggerConditionCrawlerName :: Maybe (Val Text)+  , _glueTriggerConditionJobName :: Maybe (Val Text)   , _glueTriggerConditionLogicalOperator :: Maybe (Val Text)   , _glueTriggerConditionState :: Maybe (Val Text)   } deriving (Show, Eq)@@ -23,7 +25,9 @@   toJSON GlueTriggerCondition{..} =     object $     catMaybes-    [ fmap (("JobName",) . toJSON) _glueTriggerConditionJobName+    [ fmap (("CrawlState",) . toJSON) _glueTriggerConditionCrawlState+    , fmap (("CrawlerName",) . toJSON) _glueTriggerConditionCrawlerName+    , fmap (("JobName",) . toJSON) _glueTriggerConditionJobName     , fmap (("LogicalOperator",) . toJSON) _glueTriggerConditionLogicalOperator     , fmap (("State",) . toJSON) _glueTriggerConditionState     ]@@ -34,10 +38,20 @@   :: GlueTriggerCondition glueTriggerCondition  =   GlueTriggerCondition-  { _glueTriggerConditionJobName = Nothing+  { _glueTriggerConditionCrawlState = Nothing+  , _glueTriggerConditionCrawlerName = Nothing+  , _glueTriggerConditionJobName = Nothing   , _glueTriggerConditionLogicalOperator = Nothing   , _glueTriggerConditionState = Nothing   }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-condition.html#cfn-glue-trigger-condition-crawlstate+gtcCrawlState :: Lens' GlueTriggerCondition (Maybe (Val Text))+gtcCrawlState = lens _glueTriggerConditionCrawlState (\s a -> s { _glueTriggerConditionCrawlState = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-condition.html#cfn-glue-trigger-condition-crawlername+gtcCrawlerName :: Lens' GlueTriggerCondition (Maybe (Val Text))+gtcCrawlerName = lens _glueTriggerConditionCrawlerName (\s a -> s { _glueTriggerConditionCrawlerName = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-condition.html#cfn-glue-trigger-condition-jobname gtcJobName :: Lens' GlueTriggerCondition (Maybe (Val Text))

+ library-gen/Stratosphere/ResourceProperties/GlueTriggerNotificationProperty.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-trigger-notificationproperty.html++module Stratosphere.ResourceProperties.GlueTriggerNotificationProperty where++import Stratosphere.ResourceImports+++-- | Full data type definition for GlueTriggerNotificationProperty. See+-- 'glueTriggerNotificationProperty' for a more convenient constructor.+data GlueTriggerNotificationProperty =+  GlueTriggerNotificationProperty+  { _glueTriggerNotificationPropertyNotifyDelayAfter :: Maybe (Val Integer)+  } deriving (Show, Eq)++instance ToJSON GlueTriggerNotificationProperty where+  toJSON GlueTriggerNotificationProperty{..} =+    object $+    catMaybes+    [ fmap (("NotifyDelayAfter",) . toJSON) _glueTriggerNotificationPropertyNotifyDelayAfter+    ]++-- | Constructor for 'GlueTriggerNotificationProperty' containing required+-- fields as arguments.+glueTriggerNotificationProperty+  :: GlueTriggerNotificationProperty+glueTriggerNotificationProperty  =+  GlueTriggerNotificationProperty+  { _glueTriggerNotificationPropertyNotifyDelayAfter = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-notificationproperty.html#cfn-glue-trigger-notificationproperty-notifydelayafter+gtnpNotifyDelayAfter :: Lens' GlueTriggerNotificationProperty (Maybe (Val Integer))+gtnpNotifyDelayAfter = lens _glueTriggerNotificationPropertyNotifyDelayAfter (\s a -> s { _glueTriggerNotificationPropertyNotifyDelayAfter = a })

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

@@ -0,0 +1,53 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-coderepository-gitconfig.html++module Stratosphere.ResourceProperties.SageMakerCodeRepositoryGitConfig where++import Stratosphere.ResourceImports+++-- | Full data type definition for SageMakerCodeRepositoryGitConfig. See+-- 'sageMakerCodeRepositoryGitConfig' for a more convenient constructor.+data SageMakerCodeRepositoryGitConfig =+  SageMakerCodeRepositoryGitConfig+  { _sageMakerCodeRepositoryGitConfigBranch :: Maybe (Val Text)+  , _sageMakerCodeRepositoryGitConfigRepositoryUrl :: Val Text+  , _sageMakerCodeRepositoryGitConfigSecretArn :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON SageMakerCodeRepositoryGitConfig where+  toJSON SageMakerCodeRepositoryGitConfig{..} =+    object $+    catMaybes+    [ fmap (("Branch",) . toJSON) _sageMakerCodeRepositoryGitConfigBranch+    , (Just . ("RepositoryUrl",) . toJSON) _sageMakerCodeRepositoryGitConfigRepositoryUrl+    , fmap (("SecretArn",) . toJSON) _sageMakerCodeRepositoryGitConfigSecretArn+    ]++-- | Constructor for 'SageMakerCodeRepositoryGitConfig' containing required+-- fields as arguments.+sageMakerCodeRepositoryGitConfig+  :: Val Text -- ^ 'smcrgcRepositoryUrl'+  -> SageMakerCodeRepositoryGitConfig+sageMakerCodeRepositoryGitConfig repositoryUrlarg =+  SageMakerCodeRepositoryGitConfig+  { _sageMakerCodeRepositoryGitConfigBranch = Nothing+  , _sageMakerCodeRepositoryGitConfigRepositoryUrl = repositoryUrlarg+  , _sageMakerCodeRepositoryGitConfigSecretArn = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-coderepository-gitconfig.html#cfn-sagemaker-coderepository-gitconfig-branch+smcrgcBranch :: Lens' SageMakerCodeRepositoryGitConfig (Maybe (Val Text))+smcrgcBranch = lens _sageMakerCodeRepositoryGitConfigBranch (\s a -> s { _sageMakerCodeRepositoryGitConfigBranch = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-coderepository-gitconfig.html#cfn-sagemaker-coderepository-gitconfig-repositoryurl+smcrgcRepositoryUrl :: Lens' SageMakerCodeRepositoryGitConfig (Val Text)+smcrgcRepositoryUrl = lens _sageMakerCodeRepositoryGitConfigRepositoryUrl (\s a -> s { _sageMakerCodeRepositoryGitConfigRepositoryUrl = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-coderepository-gitconfig.html#cfn-sagemaker-coderepository-gitconfig-secretarn+smcrgcSecretArn :: Lens' SageMakerCodeRepositoryGitConfig (Maybe (Val Text))+smcrgcSecretArn = lens _sageMakerCodeRepositoryGitConfigSecretArn (\s a -> s { _sageMakerCodeRepositoryGitConfigSecretArn = 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-iotevents-input-tag.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-resource-tags.html  module Stratosphere.ResourceProperties.Tag where @@ -37,10 +37,10 @@   , _tagValue = valuearg   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-input-tag.html#cfn-iotevents-input-tag-key+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-resource-tags.html#cfn-resource-tags-key tagKey :: Lens' Tag (Val Text) tagKey = lens _tagKey (\s a -> s { _tagKey = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-input-tag.html#cfn-iotevents-input-tag-value+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-resource-tags.html#cfn-resource-tags-value tagValue :: Lens' Tag (Val Text) tagValue = lens _tagValue (\s a -> s { _tagValue = a })

library-gen/Stratosphere/Resources.hs view

@@ -142,7 +142,12 @@ import Stratosphere.Resources.CognitoIdentityPoolRoleAttachment as X import Stratosphere.Resources.CognitoUserPool as X import Stratosphere.Resources.CognitoUserPoolClient as X+import Stratosphere.Resources.CognitoUserPoolDomain as X import Stratosphere.Resources.CognitoUserPoolGroup as X+import Stratosphere.Resources.CognitoUserPoolIdentityProvider as X+import Stratosphere.Resources.CognitoUserPoolResourceServer as X+import Stratosphere.Resources.CognitoUserPoolRiskConfigurationAttachment as X+import Stratosphere.Resources.CognitoUserPoolUICustomizationAttachment as X import Stratosphere.Resources.CognitoUserPoolUser as X import Stratosphere.Resources.CognitoUserPoolUserToGroupAttachment as X import Stratosphere.Resources.ConfigAggregationAuthorization as X@@ -203,6 +208,10 @@ import Stratosphere.Resources.EC2SubnetCidrBlock as X import Stratosphere.Resources.EC2SubnetNetworkAclAssociation as X import Stratosphere.Resources.EC2SubnetRouteTableAssociation as X+import Stratosphere.Resources.EC2TrafficMirrorFilter as X+import Stratosphere.Resources.EC2TrafficMirrorFilterRule as X+import Stratosphere.Resources.EC2TrafficMirrorSession as X+import Stratosphere.Resources.EC2TrafficMirrorTarget as X import Stratosphere.Resources.EC2TransitGateway as X import Stratosphere.Resources.EC2TransitGatewayAttachment as X import Stratosphere.Resources.EC2TransitGatewayRoute as X@@ -214,6 +223,7 @@ import Stratosphere.Resources.EC2VPCDHCPOptionsAssociation as X import Stratosphere.Resources.EC2VPCEndpoint as X import Stratosphere.Resources.EC2VPCEndpointConnectionNotification as X+import Stratosphere.Resources.EC2VPCEndpointService as X import Stratosphere.Resources.EC2VPCEndpointServicePermissions as X import Stratosphere.Resources.EC2VPCGatewayAttachment as X import Stratosphere.Resources.EC2VPCPeeringConnection as X@@ -270,6 +280,7 @@ import Stratosphere.Resources.GlueSecurityConfiguration as X import Stratosphere.Resources.GlueTable as X import Stratosphere.Resources.GlueTrigger as X+import Stratosphere.Resources.GlueWorkflow as X import Stratosphere.Resources.GreengrassConnectorDefinition as X import Stratosphere.Resources.GreengrassConnectorDefinitionVersion as X import Stratosphere.Resources.GreengrassCoreDefinition as X@@ -386,6 +397,7 @@ import Stratosphere.Resources.PinpointEmailConfigurationSetEventDestination as X import Stratosphere.Resources.PinpointEmailDedicatedIpPool as X import Stratosphere.Resources.PinpointEmailIdentity as X+import Stratosphere.Resources.QLDBLedger as X import Stratosphere.Resources.RAMResourceShare as X import Stratosphere.Resources.RDSDBCluster as X import Stratosphere.Resources.RDSDBClusterParameterGroup as X@@ -436,6 +448,7 @@ import Stratosphere.Resources.SSMParameter as X import Stratosphere.Resources.SSMPatchBaseline as X import Stratosphere.Resources.SSMResourceDataSync as X+import Stratosphere.Resources.SageMakerCodeRepository as X import Stratosphere.Resources.SageMakerEndpoint as X import Stratosphere.Resources.SageMakerEndpointConfig as X import Stratosphere.Resources.SageMakerModel as X@@ -531,7 +544,9 @@ import Stratosphere.ResourceProperties.ApiGatewayV2StageRouteSettings as X import Stratosphere.ResourceProperties.AppMeshMeshEgressFilter as X import Stratosphere.ResourceProperties.AppMeshMeshMeshSpec as X+import Stratosphere.ResourceProperties.AppMeshRouteDuration as X import Stratosphere.ResourceProperties.AppMeshRouteHeaderMatchMethod as X+import Stratosphere.ResourceProperties.AppMeshRouteHttpRetryPolicy as X import Stratosphere.ResourceProperties.AppMeshRouteHttpRoute as X import Stratosphere.ResourceProperties.AppMeshRouteHttpRouteAction as X import Stratosphere.ResourceProperties.AppMeshRouteHttpRouteHeader as X@@ -752,6 +767,16 @@ import Stratosphere.ResourceProperties.CognitoUserPoolUserPoolAddOns as X import Stratosphere.ResourceProperties.CognitoUserPoolVerificationMessageTemplate as X import Stratosphere.ResourceProperties.CognitoUserPoolClientAnalyticsConfiguration as X+import Stratosphere.ResourceProperties.CognitoUserPoolDomainCustomDomainConfigType as X+import Stratosphere.ResourceProperties.CognitoUserPoolResourceServerResourceServerScopeType as X+import Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType as X+import Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType as X+import Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType as X+import Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType as X+import Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType as X+import Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType as X+import Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType as X+import Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType as X import Stratosphere.ResourceProperties.CognitoUserPoolUserAttributeType as X import Stratosphere.ResourceProperties.ConfigConfigRuleScope as X import Stratosphere.ResourceProperties.ConfigConfigRuleSource as X@@ -762,8 +787,10 @@ import Stratosphere.ResourceProperties.ConfigDeliveryChannelConfigSnapshotDeliveryProperties as X import Stratosphere.ResourceProperties.ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata as X import Stratosphere.ResourceProperties.ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata as X+import Stratosphere.ResourceProperties.ConfigRemediationConfigurationExecutionControls as X import Stratosphere.ResourceProperties.ConfigRemediationConfigurationRemediationParameterValue as X import Stratosphere.ResourceProperties.ConfigRemediationConfigurationResourceValue as X+import Stratosphere.ResourceProperties.ConfigRemediationConfigurationSsmControls as X import Stratosphere.ResourceProperties.ConfigRemediationConfigurationStaticValue as X import Stratosphere.ResourceProperties.DAXClusterSSESpecification as X import Stratosphere.ResourceProperties.DLMLifecyclePolicyCreateRule as X@@ -869,6 +896,7 @@ import Stratosphere.ResourceProperties.EC2SpotFleetSpotPlacement as X import Stratosphere.ResourceProperties.EC2SpotFleetTargetGroup as X import Stratosphere.ResourceProperties.EC2SpotFleetTargetGroupsConfig as X+import Stratosphere.ResourceProperties.EC2TrafficMirrorFilterRuleTrafficMirrorPortRangeRequest as X import Stratosphere.ResourceProperties.EC2VPNConnectionVpnTunnelOptionsSpecification as X import Stratosphere.ResourceProperties.ECRRepositoryLifecyclePolicy as X import Stratosphere.ResourceProperties.ECSServiceAwsVpcConfiguration as X@@ -1034,6 +1062,7 @@ import Stratosphere.ResourceProperties.GlueJobConnectionsList as X import Stratosphere.ResourceProperties.GlueJobExecutionProperty as X import Stratosphere.ResourceProperties.GlueJobJobCommand as X+import Stratosphere.ResourceProperties.GlueJobNotificationProperty as X import Stratosphere.ResourceProperties.GlueMLTransformFindMatchesParameters as X import Stratosphere.ResourceProperties.GlueMLTransformGlueTables as X import Stratosphere.ResourceProperties.GlueMLTransformInputRecordTables as X@@ -1056,6 +1085,7 @@ import Stratosphere.ResourceProperties.GlueTableTableInput as X import Stratosphere.ResourceProperties.GlueTriggerAction as X import Stratosphere.ResourceProperties.GlueTriggerCondition as X+import Stratosphere.ResourceProperties.GlueTriggerNotificationProperty as X import Stratosphere.ResourceProperties.GlueTriggerPredicate as X import Stratosphere.ResourceProperties.GreengrassConnectorDefinitionConnector as X import Stratosphere.ResourceProperties.GreengrassConnectorDefinitionConnectorDefinitionVersion as X@@ -1512,6 +1542,7 @@ import Stratosphere.ResourceProperties.SSMPatchBaselinePatchSource as X import Stratosphere.ResourceProperties.SSMPatchBaselineRule as X import Stratosphere.ResourceProperties.SSMPatchBaselineRuleGroup as X+import Stratosphere.ResourceProperties.SageMakerCodeRepositoryGitConfig as X import Stratosphere.ResourceProperties.SageMakerEndpointConfigProductionVariant as X import Stratosphere.ResourceProperties.SageMakerModelContainerDefinition as X import Stratosphere.ResourceProperties.SageMakerModelVpcConfig as X

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

@@ -29,6 +29,7 @@   , _cognitoUserPoolEmailConfiguration :: Maybe CognitoUserPoolEmailConfiguration   , _cognitoUserPoolEmailVerificationMessage :: Maybe (Val Text)   , _cognitoUserPoolEmailVerificationSubject :: Maybe (Val Text)+  , _cognitoUserPoolEnabledMfas :: Maybe (ValList Text)   , _cognitoUserPoolLambdaConfig :: Maybe CognitoUserPoolLambdaConfig   , _cognitoUserPoolMfaConfiguration :: Maybe (Val Text)   , _cognitoUserPoolPolicies :: Maybe CognitoUserPoolPolicies@@ -56,6 +57,7 @@         , fmap (("EmailConfiguration",) . toJSON) _cognitoUserPoolEmailConfiguration         , fmap (("EmailVerificationMessage",) . toJSON) _cognitoUserPoolEmailVerificationMessage         , fmap (("EmailVerificationSubject",) . toJSON) _cognitoUserPoolEmailVerificationSubject+        , fmap (("EnabledMfas",) . toJSON) _cognitoUserPoolEnabledMfas         , fmap (("LambdaConfig",) . toJSON) _cognitoUserPoolLambdaConfig         , fmap (("MfaConfiguration",) . toJSON) _cognitoUserPoolMfaConfiguration         , fmap (("Policies",) . toJSON) _cognitoUserPoolPolicies@@ -84,6 +86,7 @@   , _cognitoUserPoolEmailConfiguration = Nothing   , _cognitoUserPoolEmailVerificationMessage = Nothing   , _cognitoUserPoolEmailVerificationSubject = Nothing+  , _cognitoUserPoolEnabledMfas = Nothing   , _cognitoUserPoolLambdaConfig = Nothing   , _cognitoUserPoolMfaConfiguration = Nothing   , _cognitoUserPoolPolicies = Nothing@@ -125,6 +128,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpool.html#cfn-cognito-userpool-emailverificationsubject cupEmailVerificationSubject :: Lens' CognitoUserPool (Maybe (Val Text)) cupEmailVerificationSubject = lens _cognitoUserPoolEmailVerificationSubject (\s a -> s { _cognitoUserPoolEmailVerificationSubject = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpool.html#cfn-cognito-userpool-enabledmfas+cupEnabledMfas :: Lens' CognitoUserPool (Maybe (ValList Text))+cupEnabledMfas = lens _cognitoUserPoolEnabledMfas (\s a -> s { _cognitoUserPoolEnabledMfas = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpool.html#cfn-cognito-userpool-lambdaconfig cupLambdaConfig :: Lens' CognitoUserPool (Maybe CognitoUserPoolLambdaConfig)

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

@@ -0,0 +1,57 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpooldomain.html++module Stratosphere.Resources.CognitoUserPoolDomain where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.CognitoUserPoolDomainCustomDomainConfigType++-- | Full data type definition for CognitoUserPoolDomain. See+-- 'cognitoUserPoolDomain' for a more convenient constructor.+data CognitoUserPoolDomain =+  CognitoUserPoolDomain+  { _cognitoUserPoolDomainCustomDomainConfig :: Maybe CognitoUserPoolDomainCustomDomainConfigType+  , _cognitoUserPoolDomainDomain :: Val Text+  , _cognitoUserPoolDomainUserPoolId :: Val Text+  } deriving (Show, Eq)++instance ToResourceProperties CognitoUserPoolDomain where+  toResourceProperties CognitoUserPoolDomain{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::Cognito::UserPoolDomain"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("CustomDomainConfig",) . toJSON) _cognitoUserPoolDomainCustomDomainConfig+        , (Just . ("Domain",) . toJSON) _cognitoUserPoolDomainDomain+        , (Just . ("UserPoolId",) . toJSON) _cognitoUserPoolDomainUserPoolId+        ]+    }++-- | Constructor for 'CognitoUserPoolDomain' containing required fields as+-- arguments.+cognitoUserPoolDomain+  :: Val Text -- ^ 'cupdDomain'+  -> Val Text -- ^ 'cupdUserPoolId'+  -> CognitoUserPoolDomain+cognitoUserPoolDomain domainarg userPoolIdarg =+  CognitoUserPoolDomain+  { _cognitoUserPoolDomainCustomDomainConfig = Nothing+  , _cognitoUserPoolDomainDomain = domainarg+  , _cognitoUserPoolDomainUserPoolId = userPoolIdarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpooldomain.html#cfn-cognito-userpooldomain-customdomainconfig+cupdCustomDomainConfig :: Lens' CognitoUserPoolDomain (Maybe CognitoUserPoolDomainCustomDomainConfigType)+cupdCustomDomainConfig = lens _cognitoUserPoolDomainCustomDomainConfig (\s a -> s { _cognitoUserPoolDomainCustomDomainConfig = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpooldomain.html#cfn-cognito-userpooldomain-domain+cupdDomain :: Lens' CognitoUserPoolDomain (Val Text)+cupdDomain = lens _cognitoUserPoolDomainDomain (\s a -> s { _cognitoUserPoolDomainDomain = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpooldomain.html#cfn-cognito-userpooldomain-userpoolid+cupdUserPoolId :: Lens' CognitoUserPoolDomain (Val Text)+cupdUserPoolId = lens _cognitoUserPoolDomainUserPoolId (\s a -> s { _cognitoUserPoolDomainUserPoolId = a })

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

@@ -0,0 +1,79 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolidentityprovider.html++module Stratosphere.Resources.CognitoUserPoolIdentityProvider where++import Stratosphere.ResourceImports+++-- | Full data type definition for CognitoUserPoolIdentityProvider. See+-- 'cognitoUserPoolIdentityProvider' for a more convenient constructor.+data CognitoUserPoolIdentityProvider =+  CognitoUserPoolIdentityProvider+  { _cognitoUserPoolIdentityProviderAttributeMapping :: Maybe Object+  , _cognitoUserPoolIdentityProviderIdpIdentifiers :: Maybe (ValList Text)+  , _cognitoUserPoolIdentityProviderProviderDetails :: Maybe Object+  , _cognitoUserPoolIdentityProviderProviderName :: Val Text+  , _cognitoUserPoolIdentityProviderProviderType :: Val Text+  , _cognitoUserPoolIdentityProviderUserPoolId :: Val Text+  } deriving (Show, Eq)++instance ToResourceProperties CognitoUserPoolIdentityProvider where+  toResourceProperties CognitoUserPoolIdentityProvider{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::Cognito::UserPoolIdentityProvider"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("AttributeMapping",) . toJSON) _cognitoUserPoolIdentityProviderAttributeMapping+        , fmap (("IdpIdentifiers",) . toJSON) _cognitoUserPoolIdentityProviderIdpIdentifiers+        , fmap (("ProviderDetails",) . toJSON) _cognitoUserPoolIdentityProviderProviderDetails+        , (Just . ("ProviderName",) . toJSON) _cognitoUserPoolIdentityProviderProviderName+        , (Just . ("ProviderType",) . toJSON) _cognitoUserPoolIdentityProviderProviderType+        , (Just . ("UserPoolId",) . toJSON) _cognitoUserPoolIdentityProviderUserPoolId+        ]+    }++-- | Constructor for 'CognitoUserPoolIdentityProvider' containing required+-- fields as arguments.+cognitoUserPoolIdentityProvider+  :: Val Text -- ^ 'cupipProviderName'+  -> Val Text -- ^ 'cupipProviderType'+  -> Val Text -- ^ 'cupipUserPoolId'+  -> CognitoUserPoolIdentityProvider+cognitoUserPoolIdentityProvider providerNamearg providerTypearg userPoolIdarg =+  CognitoUserPoolIdentityProvider+  { _cognitoUserPoolIdentityProviderAttributeMapping = Nothing+  , _cognitoUserPoolIdentityProviderIdpIdentifiers = Nothing+  , _cognitoUserPoolIdentityProviderProviderDetails = Nothing+  , _cognitoUserPoolIdentityProviderProviderName = providerNamearg+  , _cognitoUserPoolIdentityProviderProviderType = providerTypearg+  , _cognitoUserPoolIdentityProviderUserPoolId = userPoolIdarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolidentityprovider.html#cfn-cognito-userpoolidentityprovider-attributemapping+cupipAttributeMapping :: Lens' CognitoUserPoolIdentityProvider (Maybe Object)+cupipAttributeMapping = lens _cognitoUserPoolIdentityProviderAttributeMapping (\s a -> s { _cognitoUserPoolIdentityProviderAttributeMapping = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolidentityprovider.html#cfn-cognito-userpoolidentityprovider-idpidentifiers+cupipIdpIdentifiers :: Lens' CognitoUserPoolIdentityProvider (Maybe (ValList Text))+cupipIdpIdentifiers = lens _cognitoUserPoolIdentityProviderIdpIdentifiers (\s a -> s { _cognitoUserPoolIdentityProviderIdpIdentifiers = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolidentityprovider.html#cfn-cognito-userpoolidentityprovider-providerdetails+cupipProviderDetails :: Lens' CognitoUserPoolIdentityProvider (Maybe Object)+cupipProviderDetails = lens _cognitoUserPoolIdentityProviderProviderDetails (\s a -> s { _cognitoUserPoolIdentityProviderProviderDetails = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolidentityprovider.html#cfn-cognito-userpoolidentityprovider-providername+cupipProviderName :: Lens' CognitoUserPoolIdentityProvider (Val Text)+cupipProviderName = lens _cognitoUserPoolIdentityProviderProviderName (\s a -> s { _cognitoUserPoolIdentityProviderProviderName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolidentityprovider.html#cfn-cognito-userpoolidentityprovider-providertype+cupipProviderType :: Lens' CognitoUserPoolIdentityProvider (Val Text)+cupipProviderType = lens _cognitoUserPoolIdentityProviderProviderType (\s a -> s { _cognitoUserPoolIdentityProviderProviderType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolidentityprovider.html#cfn-cognito-userpoolidentityprovider-userpoolid+cupipUserPoolId :: Lens' CognitoUserPoolIdentityProvider (Val Text)+cupipUserPoolId = lens _cognitoUserPoolIdentityProviderUserPoolId (\s a -> s { _cognitoUserPoolIdentityProviderUserPoolId = a })

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

@@ -0,0 +1,65 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolresourceserver.html++module Stratosphere.Resources.CognitoUserPoolResourceServer where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.CognitoUserPoolResourceServerResourceServerScopeType++-- | Full data type definition for CognitoUserPoolResourceServer. See+-- 'cognitoUserPoolResourceServer' for a more convenient constructor.+data CognitoUserPoolResourceServer =+  CognitoUserPoolResourceServer+  { _cognitoUserPoolResourceServerIdentifier :: Val Text+  , _cognitoUserPoolResourceServerName :: Val Text+  , _cognitoUserPoolResourceServerScopes :: Maybe [CognitoUserPoolResourceServerResourceServerScopeType]+  , _cognitoUserPoolResourceServerUserPoolId :: Val Text+  } deriving (Show, Eq)++instance ToResourceProperties CognitoUserPoolResourceServer where+  toResourceProperties CognitoUserPoolResourceServer{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::Cognito::UserPoolResourceServer"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("Identifier",) . toJSON) _cognitoUserPoolResourceServerIdentifier+        , (Just . ("Name",) . toJSON) _cognitoUserPoolResourceServerName+        , fmap (("Scopes",) . toJSON) _cognitoUserPoolResourceServerScopes+        , (Just . ("UserPoolId",) . toJSON) _cognitoUserPoolResourceServerUserPoolId+        ]+    }++-- | Constructor for 'CognitoUserPoolResourceServer' containing required+-- fields as arguments.+cognitoUserPoolResourceServer+  :: Val Text -- ^ 'cuprsIdentifier'+  -> Val Text -- ^ 'cuprsName'+  -> Val Text -- ^ 'cuprsUserPoolId'+  -> CognitoUserPoolResourceServer+cognitoUserPoolResourceServer identifierarg namearg userPoolIdarg =+  CognitoUserPoolResourceServer+  { _cognitoUserPoolResourceServerIdentifier = identifierarg+  , _cognitoUserPoolResourceServerName = namearg+  , _cognitoUserPoolResourceServerScopes = Nothing+  , _cognitoUserPoolResourceServerUserPoolId = userPoolIdarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolresourceserver.html#cfn-cognito-userpoolresourceserver-identifier+cuprsIdentifier :: Lens' CognitoUserPoolResourceServer (Val Text)+cuprsIdentifier = lens _cognitoUserPoolResourceServerIdentifier (\s a -> s { _cognitoUserPoolResourceServerIdentifier = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolresourceserver.html#cfn-cognito-userpoolresourceserver-name+cuprsName :: Lens' CognitoUserPoolResourceServer (Val Text)+cuprsName = lens _cognitoUserPoolResourceServerName (\s a -> s { _cognitoUserPoolResourceServerName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolresourceserver.html#cfn-cognito-userpoolresourceserver-scopes+cuprsScopes :: Lens' CognitoUserPoolResourceServer (Maybe [CognitoUserPoolResourceServerResourceServerScopeType])+cuprsScopes = lens _cognitoUserPoolResourceServerScopes (\s a -> s { _cognitoUserPoolResourceServerScopes = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolresourceserver.html#cfn-cognito-userpoolresourceserver-userpoolid+cuprsUserPoolId :: Lens' CognitoUserPoolResourceServer (Val Text)+cuprsUserPoolId = lens _cognitoUserPoolResourceServerUserPoolId (\s a -> s { _cognitoUserPoolResourceServerUserPoolId = a })

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

@@ -0,0 +1,74 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolriskconfigurationattachment.html++module Stratosphere.Resources.CognitoUserPoolRiskConfigurationAttachment where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType+import Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType+import Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType++-- | Full data type definition for CognitoUserPoolRiskConfigurationAttachment.+-- See 'cognitoUserPoolRiskConfigurationAttachment' for a more convenient+-- constructor.+data CognitoUserPoolRiskConfigurationAttachment =+  CognitoUserPoolRiskConfigurationAttachment+  { _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfiguration :: Maybe CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType+  , _cognitoUserPoolRiskConfigurationAttachmentClientId :: Val Text+  , _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfiguration :: Maybe CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType+  , _cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfiguration :: Maybe CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType+  , _cognitoUserPoolRiskConfigurationAttachmentUserPoolId :: Val Text+  } deriving (Show, Eq)++instance ToResourceProperties CognitoUserPoolRiskConfigurationAttachment where+  toResourceProperties CognitoUserPoolRiskConfigurationAttachment{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::Cognito::UserPoolRiskConfigurationAttachment"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("AccountTakeoverRiskConfiguration",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfiguration+        , (Just . ("ClientId",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentClientId+        , fmap (("CompromisedCredentialsRiskConfiguration",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfiguration+        , fmap (("RiskExceptionConfiguration",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfiguration+        , (Just . ("UserPoolId",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentUserPoolId+        ]+    }++-- | Constructor for 'CognitoUserPoolRiskConfigurationAttachment' containing+-- required fields as arguments.+cognitoUserPoolRiskConfigurationAttachment+  :: Val Text -- ^ 'cuprcaClientId'+  -> Val Text -- ^ 'cuprcaUserPoolId'+  -> CognitoUserPoolRiskConfigurationAttachment+cognitoUserPoolRiskConfigurationAttachment clientIdarg userPoolIdarg =+  CognitoUserPoolRiskConfigurationAttachment+  { _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfiguration = Nothing+  , _cognitoUserPoolRiskConfigurationAttachmentClientId = clientIdarg+  , _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfiguration = Nothing+  , _cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfiguration = Nothing+  , _cognitoUserPoolRiskConfigurationAttachmentUserPoolId = userPoolIdarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolriskconfigurationattachment.html#cfn-cognito-userpoolriskconfigurationattachment-accounttakeoverriskconfiguration+cuprcaAccountTakeoverRiskConfiguration :: Lens' CognitoUserPoolRiskConfigurationAttachment (Maybe CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType)+cuprcaAccountTakeoverRiskConfiguration = lens _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfiguration (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolriskconfigurationattachment.html#cfn-cognito-userpoolriskconfigurationattachment-clientid+cuprcaClientId :: Lens' CognitoUserPoolRiskConfigurationAttachment (Val Text)+cuprcaClientId = lens _cognitoUserPoolRiskConfigurationAttachmentClientId (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentClientId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolriskconfigurationattachment.html#cfn-cognito-userpoolriskconfigurationattachment-compromisedcredentialsriskconfiguration+cuprcaCompromisedCredentialsRiskConfiguration :: Lens' CognitoUserPoolRiskConfigurationAttachment (Maybe CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType)+cuprcaCompromisedCredentialsRiskConfiguration = lens _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfiguration (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolriskconfigurationattachment.html#cfn-cognito-userpoolriskconfigurationattachment-riskexceptionconfiguration+cuprcaRiskExceptionConfiguration :: Lens' CognitoUserPoolRiskConfigurationAttachment (Maybe CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType)+cuprcaRiskExceptionConfiguration = lens _cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfiguration (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolriskconfigurationattachment.html#cfn-cognito-userpoolriskconfigurationattachment-userpoolid+cuprcaUserPoolId :: Lens' CognitoUserPoolRiskConfigurationAttachment (Val Text)+cuprcaUserPoolId = lens _cognitoUserPoolRiskConfigurationAttachmentUserPoolId (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentUserPoolId = a })

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

@@ -0,0 +1,58 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpooluicustomizationattachment.html++module Stratosphere.Resources.CognitoUserPoolUICustomizationAttachment where++import Stratosphere.ResourceImports+++-- | Full data type definition for CognitoUserPoolUICustomizationAttachment.+-- See 'cognitoUserPoolUICustomizationAttachment' for a more convenient+-- constructor.+data CognitoUserPoolUICustomizationAttachment =+  CognitoUserPoolUICustomizationAttachment+  { _cognitoUserPoolUICustomizationAttachmentCSS :: Maybe (Val Text)+  , _cognitoUserPoolUICustomizationAttachmentClientId :: Val Text+  , _cognitoUserPoolUICustomizationAttachmentUserPoolId :: Val Text+  } deriving (Show, Eq)++instance ToResourceProperties CognitoUserPoolUICustomizationAttachment where+  toResourceProperties CognitoUserPoolUICustomizationAttachment{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::Cognito::UserPoolUICustomizationAttachment"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("CSS",) . toJSON) _cognitoUserPoolUICustomizationAttachmentCSS+        , (Just . ("ClientId",) . toJSON) _cognitoUserPoolUICustomizationAttachmentClientId+        , (Just . ("UserPoolId",) . toJSON) _cognitoUserPoolUICustomizationAttachmentUserPoolId+        ]+    }++-- | Constructor for 'CognitoUserPoolUICustomizationAttachment' containing+-- required fields as arguments.+cognitoUserPoolUICustomizationAttachment+  :: Val Text -- ^ 'cupuicaClientId'+  -> Val Text -- ^ 'cupuicaUserPoolId'+  -> CognitoUserPoolUICustomizationAttachment+cognitoUserPoolUICustomizationAttachment clientIdarg userPoolIdarg =+  CognitoUserPoolUICustomizationAttachment+  { _cognitoUserPoolUICustomizationAttachmentCSS = Nothing+  , _cognitoUserPoolUICustomizationAttachmentClientId = clientIdarg+  , _cognitoUserPoolUICustomizationAttachmentUserPoolId = userPoolIdarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpooluicustomizationattachment.html#cfn-cognito-userpooluicustomizationattachment-css+cupuicaCSS :: Lens' CognitoUserPoolUICustomizationAttachment (Maybe (Val Text))+cupuicaCSS = lens _cognitoUserPoolUICustomizationAttachmentCSS (\s a -> s { _cognitoUserPoolUICustomizationAttachmentCSS = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpooluicustomizationattachment.html#cfn-cognito-userpooluicustomizationattachment-clientid+cupuicaClientId :: Lens' CognitoUserPoolUICustomizationAttachment (Val Text)+cupuicaClientId = lens _cognitoUserPoolUICustomizationAttachmentClientId (\s a -> s { _cognitoUserPoolUICustomizationAttachmentClientId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpooluicustomizationattachment.html#cfn-cognito-userpooluicustomizationattachment-userpoolid+cupuicaUserPoolId :: Lens' CognitoUserPoolUICustomizationAttachment (Val Text)+cupuicaUserPoolId = lens _cognitoUserPoolUICustomizationAttachmentUserPoolId (\s a -> s { _cognitoUserPoolUICustomizationAttachmentUserPoolId = a })

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

@@ -8,15 +8,19 @@ module Stratosphere.Resources.ConfigRemediationConfiguration where  import Stratosphere.ResourceImports-+import Stratosphere.ResourceProperties.ConfigRemediationConfigurationExecutionControls  -- | Full data type definition for ConfigRemediationConfiguration. See -- 'configRemediationConfiguration' for a more convenient constructor. data ConfigRemediationConfiguration =   ConfigRemediationConfiguration-  { _configRemediationConfigurationConfigRuleName :: Val Text+  { _configRemediationConfigurationAutomatic :: Maybe (Val Bool)+  , _configRemediationConfigurationConfigRuleName :: Val Text+  , _configRemediationConfigurationExecutionControls :: Maybe ConfigRemediationConfigurationExecutionControls+  , _configRemediationConfigurationMaximumAutomaticAttempts :: Maybe (Val Integer)   , _configRemediationConfigurationParameters :: Maybe Object   , _configRemediationConfigurationResourceType :: Maybe (Val Text)+  , _configRemediationConfigurationRetryAttemptSeconds :: Maybe (Val Integer)   , _configRemediationConfigurationTargetId :: Val Text   , _configRemediationConfigurationTargetType :: Val Text   , _configRemediationConfigurationTargetVersion :: Maybe (Val Text)@@ -28,9 +32,13 @@     { resourcePropertiesType = "AWS::Config::RemediationConfiguration"     , resourcePropertiesProperties =         hashMapFromList $ catMaybes-        [ (Just . ("ConfigRuleName",) . toJSON) _configRemediationConfigurationConfigRuleName+        [ fmap (("Automatic",) . toJSON) _configRemediationConfigurationAutomatic+        , (Just . ("ConfigRuleName",) . toJSON) _configRemediationConfigurationConfigRuleName+        , fmap (("ExecutionControls",) . toJSON) _configRemediationConfigurationExecutionControls+        , fmap (("MaximumAutomaticAttempts",) . toJSON) _configRemediationConfigurationMaximumAutomaticAttempts         , fmap (("Parameters",) . toJSON) _configRemediationConfigurationParameters         , fmap (("ResourceType",) . toJSON) _configRemediationConfigurationResourceType+        , fmap (("RetryAttemptSeconds",) . toJSON) _configRemediationConfigurationRetryAttemptSeconds         , (Just . ("TargetId",) . toJSON) _configRemediationConfigurationTargetId         , (Just . ("TargetType",) . toJSON) _configRemediationConfigurationTargetType         , fmap (("TargetVersion",) . toJSON) _configRemediationConfigurationTargetVersion@@ -46,18 +54,34 @@   -> ConfigRemediationConfiguration configRemediationConfiguration configRuleNamearg targetIdarg targetTypearg =   ConfigRemediationConfiguration-  { _configRemediationConfigurationConfigRuleName = configRuleNamearg+  { _configRemediationConfigurationAutomatic = Nothing+  , _configRemediationConfigurationConfigRuleName = configRuleNamearg+  , _configRemediationConfigurationExecutionControls = Nothing+  , _configRemediationConfigurationMaximumAutomaticAttempts = Nothing   , _configRemediationConfigurationParameters = Nothing   , _configRemediationConfigurationResourceType = Nothing+  , _configRemediationConfigurationRetryAttemptSeconds = Nothing   , _configRemediationConfigurationTargetId = targetIdarg   , _configRemediationConfigurationTargetType = targetTypearg   , _configRemediationConfigurationTargetVersion = Nothing   } +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-remediationconfiguration.html#cfn-config-remediationconfiguration-automatic+crcAutomatic :: Lens' ConfigRemediationConfiguration (Maybe (Val Bool))+crcAutomatic = lens _configRemediationConfigurationAutomatic (\s a -> s { _configRemediationConfigurationAutomatic = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-remediationconfiguration.html#cfn-config-remediationconfiguration-configrulename crcConfigRuleName :: Lens' ConfigRemediationConfiguration (Val Text) crcConfigRuleName = lens _configRemediationConfigurationConfigRuleName (\s a -> s { _configRemediationConfigurationConfigRuleName = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-remediationconfiguration.html#cfn-config-remediationconfiguration-executioncontrols+crcExecutionControls :: Lens' ConfigRemediationConfiguration (Maybe ConfigRemediationConfigurationExecutionControls)+crcExecutionControls = lens _configRemediationConfigurationExecutionControls (\s a -> s { _configRemediationConfigurationExecutionControls = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-remediationconfiguration.html#cfn-config-remediationconfiguration-maximumautomaticattempts+crcMaximumAutomaticAttempts :: Lens' ConfigRemediationConfiguration (Maybe (Val Integer))+crcMaximumAutomaticAttempts = lens _configRemediationConfigurationMaximumAutomaticAttempts (\s a -> s { _configRemediationConfigurationMaximumAutomaticAttempts = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-remediationconfiguration.html#cfn-config-remediationconfiguration-parameters crcParameters :: Lens' ConfigRemediationConfiguration (Maybe Object) crcParameters = lens _configRemediationConfigurationParameters (\s a -> s { _configRemediationConfigurationParameters = a })@@ -65,6 +89,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-remediationconfiguration.html#cfn-config-remediationconfiguration-resourcetype crcResourceType :: Lens' ConfigRemediationConfiguration (Maybe (Val Text)) crcResourceType = lens _configRemediationConfigurationResourceType (\s a -> s { _configRemediationConfigurationResourceType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-remediationconfiguration.html#cfn-config-remediationconfiguration-retryattemptseconds+crcRetryAttemptSeconds :: Lens' ConfigRemediationConfiguration (Maybe (Val Integer))+crcRetryAttemptSeconds = lens _configRemediationConfigurationRetryAttemptSeconds (\s a -> s { _configRemediationConfigurationRetryAttemptSeconds = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-remediationconfiguration.html#cfn-config-remediationconfiguration-targetid crcTargetId :: Lens' ConfigRemediationConfiguration (Val Text)

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

@@ -19,6 +19,7 @@   , _docDBDBClusterDBClusterIdentifier :: Maybe (Val Text)   , _docDBDBClusterDBClusterParameterGroupName :: Maybe (Val Text)   , _docDBDBClusterDBSubnetGroupName :: Maybe (Val Text)+  , _docDBDBClusterEnableCloudwatchLogsExports :: Maybe (ValList Text)   , _docDBDBClusterEngineVersion :: Maybe (Val Text)   , _docDBDBClusterKmsKeyId :: Maybe (Val Text)   , _docDBDBClusterMasterUserPassword :: Maybe (Val Text)@@ -43,6 +44,7 @@         , fmap (("DBClusterIdentifier",) . toJSON) _docDBDBClusterDBClusterIdentifier         , fmap (("DBClusterParameterGroupName",) . toJSON) _docDBDBClusterDBClusterParameterGroupName         , fmap (("DBSubnetGroupName",) . toJSON) _docDBDBClusterDBSubnetGroupName+        , fmap (("EnableCloudwatchLogsExports",) . toJSON) _docDBDBClusterEnableCloudwatchLogsExports         , fmap (("EngineVersion",) . toJSON) _docDBDBClusterEngineVersion         , fmap (("KmsKeyId",) . toJSON) _docDBDBClusterKmsKeyId         , fmap (("MasterUserPassword",) . toJSON) _docDBDBClusterMasterUserPassword@@ -67,6 +69,7 @@   , _docDBDBClusterDBClusterIdentifier = Nothing   , _docDBDBClusterDBClusterParameterGroupName = Nothing   , _docDBDBClusterDBSubnetGroupName = Nothing+  , _docDBDBClusterEnableCloudwatchLogsExports = Nothing   , _docDBDBClusterEngineVersion = Nothing   , _docDBDBClusterKmsKeyId = Nothing   , _docDBDBClusterMasterUserPassword = Nothing@@ -99,6 +102,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbcluster.html#cfn-docdb-dbcluster-dbsubnetgroupname ddbdbcDBSubnetGroupName :: Lens' DocDBDBCluster (Maybe (Val Text)) ddbdbcDBSubnetGroupName = lens _docDBDBClusterDBSubnetGroupName (\s a -> s { _docDBDBClusterDBSubnetGroupName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbcluster.html#cfn-docdb-dbcluster-enablecloudwatchlogsexports+ddbdbcEnableCloudwatchLogsExports :: Lens' DocDBDBCluster (Maybe (ValList Text))+ddbdbcEnableCloudwatchLogsExports = lens _docDBDBClusterEnableCloudwatchLogsExports (\s a -> s { _docDBDBClusterEnableCloudwatchLogsExports = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbcluster.html#cfn-docdb-dbcluster-engineversion ddbdbcEngineVersion :: Lens' DocDBDBCluster (Maybe (Val Text))

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

@@ -0,0 +1,55 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorfilter.html++module Stratosphere.Resources.EC2TrafficMirrorFilter where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.Tag++-- | Full data type definition for EC2TrafficMirrorFilter. See+-- 'ec2TrafficMirrorFilter' for a more convenient constructor.+data EC2TrafficMirrorFilter =+  EC2TrafficMirrorFilter+  { _eC2TrafficMirrorFilterDescription :: Maybe (Val Text)+  , _eC2TrafficMirrorFilterNetworkServices :: Maybe (ValList Text)+  , _eC2TrafficMirrorFilterTags :: Maybe [Tag]+  } deriving (Show, Eq)++instance ToResourceProperties EC2TrafficMirrorFilter where+  toResourceProperties EC2TrafficMirrorFilter{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::EC2::TrafficMirrorFilter"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("Description",) . toJSON) _eC2TrafficMirrorFilterDescription+        , fmap (("NetworkServices",) . toJSON) _eC2TrafficMirrorFilterNetworkServices+        , fmap (("Tags",) . toJSON) _eC2TrafficMirrorFilterTags+        ]+    }++-- | Constructor for 'EC2TrafficMirrorFilter' containing required fields as+-- arguments.+ec2TrafficMirrorFilter+  :: EC2TrafficMirrorFilter+ec2TrafficMirrorFilter  =+  EC2TrafficMirrorFilter+  { _eC2TrafficMirrorFilterDescription = Nothing+  , _eC2TrafficMirrorFilterNetworkServices = Nothing+  , _eC2TrafficMirrorFilterTags = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorfilter.html#cfn-ec2-trafficmirrorfilter-description+ectmfDescription :: Lens' EC2TrafficMirrorFilter (Maybe (Val Text))+ectmfDescription = lens _eC2TrafficMirrorFilterDescription (\s a -> s { _eC2TrafficMirrorFilterDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorfilter.html#cfn-ec2-trafficmirrorfilter-networkservices+ectmfNetworkServices :: Lens' EC2TrafficMirrorFilter (Maybe (ValList Text))+ectmfNetworkServices = lens _eC2TrafficMirrorFilterNetworkServices (\s a -> s { _eC2TrafficMirrorFilterNetworkServices = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorfilter.html#cfn-ec2-trafficmirrorfilter-tags+ectmfTags :: Lens' EC2TrafficMirrorFilter (Maybe [Tag])+ectmfTags = lens _eC2TrafficMirrorFilterTags (\s a -> s { _eC2TrafficMirrorFilterTags = a })

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

@@ -0,0 +1,110 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorfilterrule.html++module Stratosphere.Resources.EC2TrafficMirrorFilterRule where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.EC2TrafficMirrorFilterRuleTrafficMirrorPortRangeRequest++-- | Full data type definition for EC2TrafficMirrorFilterRule. See+-- 'ec2TrafficMirrorFilterRule' for a more convenient constructor.+data EC2TrafficMirrorFilterRule =+  EC2TrafficMirrorFilterRule+  { _eC2TrafficMirrorFilterRuleDescription :: Maybe (Val Text)+  , _eC2TrafficMirrorFilterRuleDestinationCidrBlock :: Val Text+  , _eC2TrafficMirrorFilterRuleDestinationPortRange :: Maybe EC2TrafficMirrorFilterRuleTrafficMirrorPortRangeRequest+  , _eC2TrafficMirrorFilterRuleProtocol :: Maybe (Val Integer)+  , _eC2TrafficMirrorFilterRuleRuleAction :: Val Text+  , _eC2TrafficMirrorFilterRuleRuleNumber :: Val Integer+  , _eC2TrafficMirrorFilterRuleSourceCidrBlock :: Val Text+  , _eC2TrafficMirrorFilterRuleSourcePortRange :: Maybe EC2TrafficMirrorFilterRuleTrafficMirrorPortRangeRequest+  , _eC2TrafficMirrorFilterRuleTrafficDirection :: Val Text+  , _eC2TrafficMirrorFilterRuleTrafficMirrorFilterId :: Val Text+  } deriving (Show, Eq)++instance ToResourceProperties EC2TrafficMirrorFilterRule where+  toResourceProperties EC2TrafficMirrorFilterRule{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::EC2::TrafficMirrorFilterRule"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("Description",) . toJSON) _eC2TrafficMirrorFilterRuleDescription+        , (Just . ("DestinationCidrBlock",) . toJSON) _eC2TrafficMirrorFilterRuleDestinationCidrBlock+        , fmap (("DestinationPortRange",) . toJSON) _eC2TrafficMirrorFilterRuleDestinationPortRange+        , fmap (("Protocol",) . toJSON) _eC2TrafficMirrorFilterRuleProtocol+        , (Just . ("RuleAction",) . toJSON) _eC2TrafficMirrorFilterRuleRuleAction+        , (Just . ("RuleNumber",) . toJSON) _eC2TrafficMirrorFilterRuleRuleNumber+        , (Just . ("SourceCidrBlock",) . toJSON) _eC2TrafficMirrorFilterRuleSourceCidrBlock+        , fmap (("SourcePortRange",) . toJSON) _eC2TrafficMirrorFilterRuleSourcePortRange+        , (Just . ("TrafficDirection",) . toJSON) _eC2TrafficMirrorFilterRuleTrafficDirection+        , (Just . ("TrafficMirrorFilterId",) . toJSON) _eC2TrafficMirrorFilterRuleTrafficMirrorFilterId+        ]+    }++-- | Constructor for 'EC2TrafficMirrorFilterRule' containing required fields+-- as arguments.+ec2TrafficMirrorFilterRule+  :: Val Text -- ^ 'ectmfrDestinationCidrBlock'+  -> Val Text -- ^ 'ectmfrRuleAction'+  -> Val Integer -- ^ 'ectmfrRuleNumber'+  -> Val Text -- ^ 'ectmfrSourceCidrBlock'+  -> Val Text -- ^ 'ectmfrTrafficDirection'+  -> Val Text -- ^ 'ectmfrTrafficMirrorFilterId'+  -> EC2TrafficMirrorFilterRule+ec2TrafficMirrorFilterRule destinationCidrBlockarg ruleActionarg ruleNumberarg sourceCidrBlockarg trafficDirectionarg trafficMirrorFilterIdarg =+  EC2TrafficMirrorFilterRule+  { _eC2TrafficMirrorFilterRuleDescription = Nothing+  , _eC2TrafficMirrorFilterRuleDestinationCidrBlock = destinationCidrBlockarg+  , _eC2TrafficMirrorFilterRuleDestinationPortRange = Nothing+  , _eC2TrafficMirrorFilterRuleProtocol = Nothing+  , _eC2TrafficMirrorFilterRuleRuleAction = ruleActionarg+  , _eC2TrafficMirrorFilterRuleRuleNumber = ruleNumberarg+  , _eC2TrafficMirrorFilterRuleSourceCidrBlock = sourceCidrBlockarg+  , _eC2TrafficMirrorFilterRuleSourcePortRange = Nothing+  , _eC2TrafficMirrorFilterRuleTrafficDirection = trafficDirectionarg+  , _eC2TrafficMirrorFilterRuleTrafficMirrorFilterId = trafficMirrorFilterIdarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorfilterrule.html#cfn-ec2-trafficmirrorfilterrule-description+ectmfrDescription :: Lens' EC2TrafficMirrorFilterRule (Maybe (Val Text))+ectmfrDescription = lens _eC2TrafficMirrorFilterRuleDescription (\s a -> s { _eC2TrafficMirrorFilterRuleDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorfilterrule.html#cfn-ec2-trafficmirrorfilterrule-destinationcidrblock+ectmfrDestinationCidrBlock :: Lens' EC2TrafficMirrorFilterRule (Val Text)+ectmfrDestinationCidrBlock = lens _eC2TrafficMirrorFilterRuleDestinationCidrBlock (\s a -> s { _eC2TrafficMirrorFilterRuleDestinationCidrBlock = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorfilterrule.html#cfn-ec2-trafficmirrorfilterrule-destinationportrange+ectmfrDestinationPortRange :: Lens' EC2TrafficMirrorFilterRule (Maybe EC2TrafficMirrorFilterRuleTrafficMirrorPortRangeRequest)+ectmfrDestinationPortRange = lens _eC2TrafficMirrorFilterRuleDestinationPortRange (\s a -> s { _eC2TrafficMirrorFilterRuleDestinationPortRange = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorfilterrule.html#cfn-ec2-trafficmirrorfilterrule-protocol+ectmfrProtocol :: Lens' EC2TrafficMirrorFilterRule (Maybe (Val Integer))+ectmfrProtocol = lens _eC2TrafficMirrorFilterRuleProtocol (\s a -> s { _eC2TrafficMirrorFilterRuleProtocol = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorfilterrule.html#cfn-ec2-trafficmirrorfilterrule-ruleaction+ectmfrRuleAction :: Lens' EC2TrafficMirrorFilterRule (Val Text)+ectmfrRuleAction = lens _eC2TrafficMirrorFilterRuleRuleAction (\s a -> s { _eC2TrafficMirrorFilterRuleRuleAction = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorfilterrule.html#cfn-ec2-trafficmirrorfilterrule-rulenumber+ectmfrRuleNumber :: Lens' EC2TrafficMirrorFilterRule (Val Integer)+ectmfrRuleNumber = lens _eC2TrafficMirrorFilterRuleRuleNumber (\s a -> s { _eC2TrafficMirrorFilterRuleRuleNumber = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorfilterrule.html#cfn-ec2-trafficmirrorfilterrule-sourcecidrblock+ectmfrSourceCidrBlock :: Lens' EC2TrafficMirrorFilterRule (Val Text)+ectmfrSourceCidrBlock = lens _eC2TrafficMirrorFilterRuleSourceCidrBlock (\s a -> s { _eC2TrafficMirrorFilterRuleSourceCidrBlock = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorfilterrule.html#cfn-ec2-trafficmirrorfilterrule-sourceportrange+ectmfrSourcePortRange :: Lens' EC2TrafficMirrorFilterRule (Maybe EC2TrafficMirrorFilterRuleTrafficMirrorPortRangeRequest)+ectmfrSourcePortRange = lens _eC2TrafficMirrorFilterRuleSourcePortRange (\s a -> s { _eC2TrafficMirrorFilterRuleSourcePortRange = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorfilterrule.html#cfn-ec2-trafficmirrorfilterrule-trafficdirection+ectmfrTrafficDirection :: Lens' EC2TrafficMirrorFilterRule (Val Text)+ectmfrTrafficDirection = lens _eC2TrafficMirrorFilterRuleTrafficDirection (\s a -> s { _eC2TrafficMirrorFilterRuleTrafficDirection = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorfilterrule.html#cfn-ec2-trafficmirrorfilterrule-trafficmirrorfilterid+ectmfrTrafficMirrorFilterId :: Lens' EC2TrafficMirrorFilterRule (Val Text)+ectmfrTrafficMirrorFilterId = lens _eC2TrafficMirrorFilterRuleTrafficMirrorFilterId (\s a -> s { _eC2TrafficMirrorFilterRuleTrafficMirrorFilterId = a })

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

@@ -0,0 +1,94 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorsession.html++module Stratosphere.Resources.EC2TrafficMirrorSession where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.Tag++-- | Full data type definition for EC2TrafficMirrorSession. See+-- 'ec2TrafficMirrorSession' for a more convenient constructor.+data EC2TrafficMirrorSession =+  EC2TrafficMirrorSession+  { _eC2TrafficMirrorSessionDescription :: Maybe (Val Text)+  , _eC2TrafficMirrorSessionNetworkInterfaceId :: Val Text+  , _eC2TrafficMirrorSessionPacketLength :: Maybe (Val Integer)+  , _eC2TrafficMirrorSessionSessionNumber :: Val Integer+  , _eC2TrafficMirrorSessionTags :: Maybe [Tag]+  , _eC2TrafficMirrorSessionTrafficMirrorFilterId :: Val Text+  , _eC2TrafficMirrorSessionTrafficMirrorTargetId :: Val Text+  , _eC2TrafficMirrorSessionVirtualNetworkId :: Maybe (Val Integer)+  } deriving (Show, Eq)++instance ToResourceProperties EC2TrafficMirrorSession where+  toResourceProperties EC2TrafficMirrorSession{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::EC2::TrafficMirrorSession"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("Description",) . toJSON) _eC2TrafficMirrorSessionDescription+        , (Just . ("NetworkInterfaceId",) . toJSON) _eC2TrafficMirrorSessionNetworkInterfaceId+        , fmap (("PacketLength",) . toJSON) _eC2TrafficMirrorSessionPacketLength+        , (Just . ("SessionNumber",) . toJSON) _eC2TrafficMirrorSessionSessionNumber+        , fmap (("Tags",) . toJSON) _eC2TrafficMirrorSessionTags+        , (Just . ("TrafficMirrorFilterId",) . toJSON) _eC2TrafficMirrorSessionTrafficMirrorFilterId+        , (Just . ("TrafficMirrorTargetId",) . toJSON) _eC2TrafficMirrorSessionTrafficMirrorTargetId+        , fmap (("VirtualNetworkId",) . toJSON) _eC2TrafficMirrorSessionVirtualNetworkId+        ]+    }++-- | Constructor for 'EC2TrafficMirrorSession' containing required fields as+-- arguments.+ec2TrafficMirrorSession+  :: Val Text -- ^ 'ectmsNetworkInterfaceId'+  -> Val Integer -- ^ 'ectmsSessionNumber'+  -> Val Text -- ^ 'ectmsTrafficMirrorFilterId'+  -> Val Text -- ^ 'ectmsTrafficMirrorTargetId'+  -> EC2TrafficMirrorSession+ec2TrafficMirrorSession networkInterfaceIdarg sessionNumberarg trafficMirrorFilterIdarg trafficMirrorTargetIdarg =+  EC2TrafficMirrorSession+  { _eC2TrafficMirrorSessionDescription = Nothing+  , _eC2TrafficMirrorSessionNetworkInterfaceId = networkInterfaceIdarg+  , _eC2TrafficMirrorSessionPacketLength = Nothing+  , _eC2TrafficMirrorSessionSessionNumber = sessionNumberarg+  , _eC2TrafficMirrorSessionTags = Nothing+  , _eC2TrafficMirrorSessionTrafficMirrorFilterId = trafficMirrorFilterIdarg+  , _eC2TrafficMirrorSessionTrafficMirrorTargetId = trafficMirrorTargetIdarg+  , _eC2TrafficMirrorSessionVirtualNetworkId = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorsession.html#cfn-ec2-trafficmirrorsession-description+ectmsDescription :: Lens' EC2TrafficMirrorSession (Maybe (Val Text))+ectmsDescription = lens _eC2TrafficMirrorSessionDescription (\s a -> s { _eC2TrafficMirrorSessionDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorsession.html#cfn-ec2-trafficmirrorsession-networkinterfaceid+ectmsNetworkInterfaceId :: Lens' EC2TrafficMirrorSession (Val Text)+ectmsNetworkInterfaceId = lens _eC2TrafficMirrorSessionNetworkInterfaceId (\s a -> s { _eC2TrafficMirrorSessionNetworkInterfaceId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorsession.html#cfn-ec2-trafficmirrorsession-packetlength+ectmsPacketLength :: Lens' EC2TrafficMirrorSession (Maybe (Val Integer))+ectmsPacketLength = lens _eC2TrafficMirrorSessionPacketLength (\s a -> s { _eC2TrafficMirrorSessionPacketLength = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorsession.html#cfn-ec2-trafficmirrorsession-sessionnumber+ectmsSessionNumber :: Lens' EC2TrafficMirrorSession (Val Integer)+ectmsSessionNumber = lens _eC2TrafficMirrorSessionSessionNumber (\s a -> s { _eC2TrafficMirrorSessionSessionNumber = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorsession.html#cfn-ec2-trafficmirrorsession-tags+ectmsTags :: Lens' EC2TrafficMirrorSession (Maybe [Tag])+ectmsTags = lens _eC2TrafficMirrorSessionTags (\s a -> s { _eC2TrafficMirrorSessionTags = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorsession.html#cfn-ec2-trafficmirrorsession-trafficmirrorfilterid+ectmsTrafficMirrorFilterId :: Lens' EC2TrafficMirrorSession (Val Text)+ectmsTrafficMirrorFilterId = lens _eC2TrafficMirrorSessionTrafficMirrorFilterId (\s a -> s { _eC2TrafficMirrorSessionTrafficMirrorFilterId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorsession.html#cfn-ec2-trafficmirrorsession-trafficmirrortargetid+ectmsTrafficMirrorTargetId :: Lens' EC2TrafficMirrorSession (Val Text)+ectmsTrafficMirrorTargetId = lens _eC2TrafficMirrorSessionTrafficMirrorTargetId (\s a -> s { _eC2TrafficMirrorSessionTrafficMirrorTargetId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorsession.html#cfn-ec2-trafficmirrorsession-virtualnetworkid+ectmsVirtualNetworkId :: Lens' EC2TrafficMirrorSession (Maybe (Val Integer))+ectmsVirtualNetworkId = lens _eC2TrafficMirrorSessionVirtualNetworkId (\s a -> s { _eC2TrafficMirrorSessionVirtualNetworkId = a })

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

@@ -0,0 +1,62 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrortarget.html++module Stratosphere.Resources.EC2TrafficMirrorTarget where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.Tag++-- | Full data type definition for EC2TrafficMirrorTarget. See+-- 'ec2TrafficMirrorTarget' for a more convenient constructor.+data EC2TrafficMirrorTarget =+  EC2TrafficMirrorTarget+  { _eC2TrafficMirrorTargetDescription :: Maybe (Val Text)+  , _eC2TrafficMirrorTargetNetworkInterfaceId :: Maybe (Val Text)+  , _eC2TrafficMirrorTargetNetworkLoadBalancerArn :: Maybe (Val Text)+  , _eC2TrafficMirrorTargetTags :: Maybe [Tag]+  } deriving (Show, Eq)++instance ToResourceProperties EC2TrafficMirrorTarget where+  toResourceProperties EC2TrafficMirrorTarget{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::EC2::TrafficMirrorTarget"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("Description",) . toJSON) _eC2TrafficMirrorTargetDescription+        , fmap (("NetworkInterfaceId",) . toJSON) _eC2TrafficMirrorTargetNetworkInterfaceId+        , fmap (("NetworkLoadBalancerArn",) . toJSON) _eC2TrafficMirrorTargetNetworkLoadBalancerArn+        , fmap (("Tags",) . toJSON) _eC2TrafficMirrorTargetTags+        ]+    }++-- | Constructor for 'EC2TrafficMirrorTarget' containing required fields as+-- arguments.+ec2TrafficMirrorTarget+  :: EC2TrafficMirrorTarget+ec2TrafficMirrorTarget  =+  EC2TrafficMirrorTarget+  { _eC2TrafficMirrorTargetDescription = Nothing+  , _eC2TrafficMirrorTargetNetworkInterfaceId = Nothing+  , _eC2TrafficMirrorTargetNetworkLoadBalancerArn = Nothing+  , _eC2TrafficMirrorTargetTags = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrortarget.html#cfn-ec2-trafficmirrortarget-description+ectmtDescription :: Lens' EC2TrafficMirrorTarget (Maybe (Val Text))+ectmtDescription = lens _eC2TrafficMirrorTargetDescription (\s a -> s { _eC2TrafficMirrorTargetDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrortarget.html#cfn-ec2-trafficmirrortarget-networkinterfaceid+ectmtNetworkInterfaceId :: Lens' EC2TrafficMirrorTarget (Maybe (Val Text))+ectmtNetworkInterfaceId = lens _eC2TrafficMirrorTargetNetworkInterfaceId (\s a -> s { _eC2TrafficMirrorTargetNetworkInterfaceId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrortarget.html#cfn-ec2-trafficmirrortarget-networkloadbalancerarn+ectmtNetworkLoadBalancerArn :: Lens' EC2TrafficMirrorTarget (Maybe (Val Text))+ectmtNetworkLoadBalancerArn = lens _eC2TrafficMirrorTargetNetworkLoadBalancerArn (\s a -> s { _eC2TrafficMirrorTargetNetworkLoadBalancerArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrortarget.html#cfn-ec2-trafficmirrortarget-tags+ectmtTags :: Lens' EC2TrafficMirrorTarget (Maybe [Tag])+ectmtTags = lens _eC2TrafficMirrorTargetTags (\s a -> s { _eC2TrafficMirrorTargetTags = a })

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

@@ -0,0 +1,49 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcendpointservice.html++module Stratosphere.Resources.EC2VPCEndpointService where++import Stratosphere.ResourceImports+++-- | Full data type definition for EC2VPCEndpointService. See+-- 'ec2VPCEndpointService' for a more convenient constructor.+data EC2VPCEndpointService =+  EC2VPCEndpointService+  { _eC2VPCEndpointServiceAcceptanceRequired :: Maybe (Val Bool)+  , _eC2VPCEndpointServiceNetworkLoadBalancerArns :: ValList Text+  } deriving (Show, Eq)++instance ToResourceProperties EC2VPCEndpointService where+  toResourceProperties EC2VPCEndpointService{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::EC2::VPCEndpointService"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("AcceptanceRequired",) . toJSON) _eC2VPCEndpointServiceAcceptanceRequired+        , (Just . ("NetworkLoadBalancerArns",) . toJSON) _eC2VPCEndpointServiceNetworkLoadBalancerArns+        ]+    }++-- | Constructor for 'EC2VPCEndpointService' containing required fields as+-- arguments.+ec2VPCEndpointService+  :: ValList Text -- ^ 'ecvpcesNetworkLoadBalancerArns'+  -> EC2VPCEndpointService+ec2VPCEndpointService networkLoadBalancerArnsarg =+  EC2VPCEndpointService+  { _eC2VPCEndpointServiceAcceptanceRequired = Nothing+  , _eC2VPCEndpointServiceNetworkLoadBalancerArns = networkLoadBalancerArnsarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcendpointservice.html#cfn-ec2-vpcendpointservice-acceptancerequired+ecvpcesAcceptanceRequired :: Lens' EC2VPCEndpointService (Maybe (Val Bool))+ecvpcesAcceptanceRequired = lens _eC2VPCEndpointServiceAcceptanceRequired (\s a -> s { _eC2VPCEndpointServiceAcceptanceRequired = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcendpointservice.html#cfn-ec2-vpcendpointservice-networkloadbalancerarns+ecvpcesNetworkLoadBalancerArns :: Lens' EC2VPCEndpointService (ValList Text)+ecvpcesNetworkLoadBalancerArns = lens _eC2VPCEndpointServiceNetworkLoadBalancerArns (\s a -> s { _eC2VPCEndpointServiceNetworkLoadBalancerArns = a })

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

@@ -16,6 +16,7 @@   EventsEventBusPolicy   { _eventsEventBusPolicyAction :: Val Text   , _eventsEventBusPolicyCondition :: Maybe EventsEventBusPolicyCondition+  , _eventsEventBusPolicyEventBusName :: Maybe (Val Text)   , _eventsEventBusPolicyPrincipal :: Val Text   , _eventsEventBusPolicyStatementId :: Val Text   } deriving (Show, Eq)@@ -28,6 +29,7 @@         hashMapFromList $ catMaybes         [ (Just . ("Action",) . toJSON) _eventsEventBusPolicyAction         , fmap (("Condition",) . toJSON) _eventsEventBusPolicyCondition+        , fmap (("EventBusName",) . toJSON) _eventsEventBusPolicyEventBusName         , (Just . ("Principal",) . toJSON) _eventsEventBusPolicyPrincipal         , (Just . ("StatementId",) . toJSON) _eventsEventBusPolicyStatementId         ]@@ -44,6 +46,7 @@   EventsEventBusPolicy   { _eventsEventBusPolicyAction = actionarg   , _eventsEventBusPolicyCondition = Nothing+  , _eventsEventBusPolicyEventBusName = Nothing   , _eventsEventBusPolicyPrincipal = principalarg   , _eventsEventBusPolicyStatementId = statementIdarg   }@@ -55,6 +58,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-eventbuspolicy.html#cfn-events-eventbuspolicy-condition eebpCondition :: Lens' EventsEventBusPolicy (Maybe EventsEventBusPolicyCondition) eebpCondition = lens _eventsEventBusPolicyCondition (\s a -> s { _eventsEventBusPolicyCondition = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-eventbuspolicy.html#cfn-events-eventbuspolicy-eventbusname+eebpEventBusName :: Lens' EventsEventBusPolicy (Maybe (Val Text))+eebpEventBusName = lens _eventsEventBusPolicyEventBusName (\s a -> s { _eventsEventBusPolicyEventBusName = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-eventbuspolicy.html#cfn-events-eventbuspolicy-principal eebpPrincipal :: Lens' EventsEventBusPolicy (Val Text)

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

@@ -14,16 +14,20 @@ -- a more convenient constructor. data GlueDevEndpoint =   GlueDevEndpoint-  { _glueDevEndpointEndpointName :: Maybe (Val Text)+  { _glueDevEndpointArguments :: Maybe Object+  , _glueDevEndpointEndpointName :: Maybe (Val Text)   , _glueDevEndpointExtraJarsS3Path :: Maybe (Val Text)   , _glueDevEndpointExtraPythonLibsS3Path :: Maybe (Val Text)+  , _glueDevEndpointGlueVersion :: Maybe (Val Text)   , _glueDevEndpointNumberOfNodes :: Maybe (Val Integer)+  , _glueDevEndpointNumberOfWorkers :: Maybe (Val Integer)   , _glueDevEndpointPublicKey :: Maybe (Val Text)   , _glueDevEndpointRoleArn :: Val Text   , _glueDevEndpointSecurityConfiguration :: Maybe (Val Text)   , _glueDevEndpointSecurityGroupIds :: Maybe (ValList Text)   , _glueDevEndpointSubnetId :: Maybe (Val Text)   , _glueDevEndpointTags :: Maybe Object+  , _glueDevEndpointWorkerType :: Maybe (Val Text)   } deriving (Show, Eq)  instance ToResourceProperties GlueDevEndpoint where@@ -32,16 +36,20 @@     { resourcePropertiesType = "AWS::Glue::DevEndpoint"     , resourcePropertiesProperties =         hashMapFromList $ catMaybes-        [ fmap (("EndpointName",) . toJSON) _glueDevEndpointEndpointName+        [ fmap (("Arguments",) . toJSON) _glueDevEndpointArguments+        , fmap (("EndpointName",) . toJSON) _glueDevEndpointEndpointName         , fmap (("ExtraJarsS3Path",) . toJSON) _glueDevEndpointExtraJarsS3Path         , fmap (("ExtraPythonLibsS3Path",) . toJSON) _glueDevEndpointExtraPythonLibsS3Path+        , fmap (("GlueVersion",) . toJSON) _glueDevEndpointGlueVersion         , fmap (("NumberOfNodes",) . toJSON) _glueDevEndpointNumberOfNodes+        , fmap (("NumberOfWorkers",) . toJSON) _glueDevEndpointNumberOfWorkers         , fmap (("PublicKey",) . toJSON) _glueDevEndpointPublicKey         , (Just . ("RoleArn",) . toJSON) _glueDevEndpointRoleArn         , fmap (("SecurityConfiguration",) . toJSON) _glueDevEndpointSecurityConfiguration         , fmap (("SecurityGroupIds",) . toJSON) _glueDevEndpointSecurityGroupIds         , fmap (("SubnetId",) . toJSON) _glueDevEndpointSubnetId         , fmap (("Tags",) . toJSON) _glueDevEndpointTags+        , fmap (("WorkerType",) . toJSON) _glueDevEndpointWorkerType         ]     } @@ -52,18 +60,26 @@   -> GlueDevEndpoint glueDevEndpoint roleArnarg =   GlueDevEndpoint-  { _glueDevEndpointEndpointName = Nothing+  { _glueDevEndpointArguments = Nothing+  , _glueDevEndpointEndpointName = Nothing   , _glueDevEndpointExtraJarsS3Path = Nothing   , _glueDevEndpointExtraPythonLibsS3Path = Nothing+  , _glueDevEndpointGlueVersion = Nothing   , _glueDevEndpointNumberOfNodes = Nothing+  , _glueDevEndpointNumberOfWorkers = Nothing   , _glueDevEndpointPublicKey = Nothing   , _glueDevEndpointRoleArn = roleArnarg   , _glueDevEndpointSecurityConfiguration = Nothing   , _glueDevEndpointSecurityGroupIds = Nothing   , _glueDevEndpointSubnetId = Nothing   , _glueDevEndpointTags = Nothing+  , _glueDevEndpointWorkerType = Nothing   } +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html#cfn-glue-devendpoint-arguments+gdeArguments :: Lens' GlueDevEndpoint (Maybe Object)+gdeArguments = lens _glueDevEndpointArguments (\s a -> s { _glueDevEndpointArguments = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html#cfn-glue-devendpoint-endpointname gdeEndpointName :: Lens' GlueDevEndpoint (Maybe (Val Text)) gdeEndpointName = lens _glueDevEndpointEndpointName (\s a -> s { _glueDevEndpointEndpointName = a })@@ -76,10 +92,18 @@ gdeExtraPythonLibsS3Path :: Lens' GlueDevEndpoint (Maybe (Val Text)) gdeExtraPythonLibsS3Path = lens _glueDevEndpointExtraPythonLibsS3Path (\s a -> s { _glueDevEndpointExtraPythonLibsS3Path = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html#cfn-glue-devendpoint-glueversion+gdeGlueVersion :: Lens' GlueDevEndpoint (Maybe (Val Text))+gdeGlueVersion = lens _glueDevEndpointGlueVersion (\s a -> s { _glueDevEndpointGlueVersion = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html#cfn-glue-devendpoint-numberofnodes gdeNumberOfNodes :: Lens' GlueDevEndpoint (Maybe (Val Integer)) gdeNumberOfNodes = lens _glueDevEndpointNumberOfNodes (\s a -> s { _glueDevEndpointNumberOfNodes = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html#cfn-glue-devendpoint-numberofworkers+gdeNumberOfWorkers :: Lens' GlueDevEndpoint (Maybe (Val Integer))+gdeNumberOfWorkers = lens _glueDevEndpointNumberOfWorkers (\s a -> s { _glueDevEndpointNumberOfWorkers = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html#cfn-glue-devendpoint-publickey gdePublicKey :: Lens' GlueDevEndpoint (Maybe (Val Text)) gdePublicKey = lens _glueDevEndpointPublicKey (\s a -> s { _glueDevEndpointPublicKey = a })@@ -103,3 +127,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html#cfn-glue-devendpoint-tags gdeTags :: Lens' GlueDevEndpoint (Maybe Object) gdeTags = lens _glueDevEndpointTags (\s a -> s { _glueDevEndpointTags = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html#cfn-glue-devendpoint-workertype+gdeWorkerType :: Lens' GlueDevEndpoint (Maybe (Val Text))+gdeWorkerType = lens _glueDevEndpointWorkerType (\s a -> s { _glueDevEndpointWorkerType = a })

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

@@ -11,6 +11,7 @@ import Stratosphere.ResourceProperties.GlueJobJobCommand import Stratosphere.ResourceProperties.GlueJobConnectionsList import Stratosphere.ResourceProperties.GlueJobExecutionProperty+import Stratosphere.ResourceProperties.GlueJobNotificationProperty  -- | Full data type definition for GlueJob. See 'glueJob' for a more -- convenient constructor.@@ -27,10 +28,12 @@   , _glueJobMaxCapacity :: Maybe (Val Double)   , _glueJobMaxRetries :: Maybe (Val Double)   , _glueJobName :: Maybe (Val Text)+  , _glueJobNotificationProperty :: Maybe GlueJobNotificationProperty   , _glueJobNumberOfWorkers :: Maybe (Val Integer)   , _glueJobRole :: Val Text   , _glueJobSecurityConfiguration :: Maybe (Val Text)   , _glueJobTags :: Maybe Object+  , _glueJobTimeout :: Maybe (Val Integer)   , _glueJobWorkerType :: Maybe (Val Text)   } deriving (Show, Eq) @@ -51,10 +54,12 @@         , fmap (("MaxCapacity",) . toJSON) _glueJobMaxCapacity         , fmap (("MaxRetries",) . toJSON) _glueJobMaxRetries         , fmap (("Name",) . toJSON) _glueJobName+        , fmap (("NotificationProperty",) . toJSON) _glueJobNotificationProperty         , fmap (("NumberOfWorkers",) . toJSON) _glueJobNumberOfWorkers         , (Just . ("Role",) . toJSON) _glueJobRole         , fmap (("SecurityConfiguration",) . toJSON) _glueJobSecurityConfiguration         , fmap (("Tags",) . toJSON) _glueJobTags+        , fmap (("Timeout",) . toJSON) _glueJobTimeout         , fmap (("WorkerType",) . toJSON) _glueJobWorkerType         ]     }@@ -77,10 +82,12 @@   , _glueJobMaxCapacity = Nothing   , _glueJobMaxRetries = Nothing   , _glueJobName = Nothing+  , _glueJobNotificationProperty = Nothing   , _glueJobNumberOfWorkers = Nothing   , _glueJobRole = rolearg   , _glueJobSecurityConfiguration = Nothing   , _glueJobTags = Nothing+  , _glueJobTimeout = Nothing   , _glueJobWorkerType = Nothing   } @@ -128,6 +135,10 @@ gjName :: Lens' GlueJob (Maybe (Val Text)) gjName = lens _glueJobName (\s a -> s { _glueJobName = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-job.html#cfn-glue-job-notificationproperty+gjNotificationProperty :: Lens' GlueJob (Maybe GlueJobNotificationProperty)+gjNotificationProperty = lens _glueJobNotificationProperty (\s a -> s { _glueJobNotificationProperty = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-job.html#cfn-glue-job-numberofworkers gjNumberOfWorkers :: Lens' GlueJob (Maybe (Val Integer)) gjNumberOfWorkers = lens _glueJobNumberOfWorkers (\s a -> s { _glueJobNumberOfWorkers = a })@@ -143,6 +154,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-job.html#cfn-glue-job-tags gjTags :: Lens' GlueJob (Maybe Object) gjTags = lens _glueJobTags (\s a -> s { _glueJobTags = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-job.html#cfn-glue-job-timeout+gjTimeout :: Lens' GlueJob (Maybe (Val Integer))+gjTimeout = lens _glueJobTimeout (\s a -> s { _glueJobTimeout = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-job.html#cfn-glue-job-workertype gjWorkerType :: Lens' GlueJob (Maybe (Val Text))

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

@@ -20,8 +20,10 @@   , _glueTriggerName :: Maybe (Val Text)   , _glueTriggerPredicate :: Maybe GlueTriggerPredicate   , _glueTriggerSchedule :: Maybe (Val Text)+  , _glueTriggerStartOnCreation :: Maybe (Val Bool)   , _glueTriggerTags :: Maybe Object   , _glueTriggerType :: Val Text+  , _glueTriggerWorkflowName :: Maybe (Val Text)   } deriving (Show, Eq)  instance ToResourceProperties GlueTrigger where@@ -35,8 +37,10 @@         , fmap (("Name",) . toJSON) _glueTriggerName         , fmap (("Predicate",) . toJSON) _glueTriggerPredicate         , fmap (("Schedule",) . toJSON) _glueTriggerSchedule+        , fmap (("StartOnCreation",) . toJSON) _glueTriggerStartOnCreation         , fmap (("Tags",) . toJSON) _glueTriggerTags         , (Just . ("Type",) . toJSON) _glueTriggerType+        , fmap (("WorkflowName",) . toJSON) _glueTriggerWorkflowName         ]     } @@ -52,8 +56,10 @@   , _glueTriggerName = Nothing   , _glueTriggerPredicate = Nothing   , _glueTriggerSchedule = Nothing+  , _glueTriggerStartOnCreation = Nothing   , _glueTriggerTags = Nothing   , _glueTriggerType = typearg+  , _glueTriggerWorkflowName = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-trigger.html#cfn-glue-trigger-actions@@ -76,6 +82,10 @@ gtSchedule :: Lens' GlueTrigger (Maybe (Val Text)) gtSchedule = lens _glueTriggerSchedule (\s a -> s { _glueTriggerSchedule = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-trigger.html#cfn-glue-trigger-startoncreation+gtStartOnCreation :: Lens' GlueTrigger (Maybe (Val Bool))+gtStartOnCreation = lens _glueTriggerStartOnCreation (\s a -> s { _glueTriggerStartOnCreation = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-trigger.html#cfn-glue-trigger-tags gtTags :: Lens' GlueTrigger (Maybe Object) gtTags = lens _glueTriggerTags (\s a -> s { _glueTriggerTags = a })@@ -83,3 +93,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-trigger.html#cfn-glue-trigger-type gtType :: Lens' GlueTrigger (Val Text) gtType = lens _glueTriggerType (\s a -> s { _glueTriggerType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-trigger.html#cfn-glue-trigger-workflowname+gtWorkflowName :: Lens' GlueTrigger (Maybe (Val Text))+gtWorkflowName = lens _glueTriggerWorkflowName (\s a -> s { _glueTriggerWorkflowName = a })

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

@@ -0,0 +1,61 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-workflow.html++module Stratosphere.Resources.GlueWorkflow where++import Stratosphere.ResourceImports+++-- | Full data type definition for GlueWorkflow. See 'glueWorkflow' for a more+-- convenient constructor.+data GlueWorkflow =+  GlueWorkflow+  { _glueWorkflowDefaultRunProperties :: Maybe Object+  , _glueWorkflowDescription :: Maybe (Val Text)+  , _glueWorkflowName :: Maybe (Val Text)+  , _glueWorkflowTags :: Maybe Object+  } deriving (Show, Eq)++instance ToResourceProperties GlueWorkflow where+  toResourceProperties GlueWorkflow{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::Glue::Workflow"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("DefaultRunProperties",) . toJSON) _glueWorkflowDefaultRunProperties+        , fmap (("Description",) . toJSON) _glueWorkflowDescription+        , fmap (("Name",) . toJSON) _glueWorkflowName+        , fmap (("Tags",) . toJSON) _glueWorkflowTags+        ]+    }++-- | Constructor for 'GlueWorkflow' containing required fields as arguments.+glueWorkflow+  :: GlueWorkflow+glueWorkflow  =+  GlueWorkflow+  { _glueWorkflowDefaultRunProperties = Nothing+  , _glueWorkflowDescription = Nothing+  , _glueWorkflowName = Nothing+  , _glueWorkflowTags = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-workflow.html#cfn-glue-workflow-defaultrunproperties+gwDefaultRunProperties :: Lens' GlueWorkflow (Maybe Object)+gwDefaultRunProperties = lens _glueWorkflowDefaultRunProperties (\s a -> s { _glueWorkflowDefaultRunProperties = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-workflow.html#cfn-glue-workflow-description+gwDescription :: Lens' GlueWorkflow (Maybe (Val Text))+gwDescription = lens _glueWorkflowDescription (\s a -> s { _glueWorkflowDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-workflow.html#cfn-glue-workflow-name+gwName :: Lens' GlueWorkflow (Maybe (Val Text))+gwName = lens _glueWorkflowName (\s a -> s { _glueWorkflowName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-workflow.html#cfn-glue-workflow-tags+gwTags :: Lens' GlueWorkflow (Maybe Object)+gwTags = lens _glueWorkflowTags (\s a -> s { _glueWorkflowTags = a })

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

@@ -15,6 +15,7 @@ data PinpointApp =   PinpointApp   { _pinpointAppName :: Val Text+  , _pinpointAppTags :: Maybe Object   } deriving (Show, Eq)  instance ToResourceProperties PinpointApp where@@ -24,6 +25,7 @@     , resourcePropertiesProperties =         hashMapFromList $ catMaybes         [ (Just . ("Name",) . toJSON) _pinpointAppName+        , fmap (("Tags",) . toJSON) _pinpointAppTags         ]     } @@ -34,8 +36,13 @@ pinpointApp namearg =   PinpointApp   { _pinpointAppName = namearg+  , _pinpointAppTags = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-app.html#cfn-pinpoint-app-name paName :: Lens' PinpointApp (Val Text) paName = lens _pinpointAppName (\s a -> s { _pinpointAppName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-app.html#cfn-pinpoint-app-tags+paTags :: Lens' PinpointApp (Maybe Object)+paTags = lens _pinpointAppTags (\s a -> s { _pinpointAppTags = a })

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

@@ -30,6 +30,7 @@   , _pinpointCampaignSchedule :: PinpointCampaignSchedule   , _pinpointCampaignSegmentId :: Val Text   , _pinpointCampaignSegmentVersion :: Maybe (Val Integer)+  , _pinpointCampaignTags :: Maybe Object   , _pinpointCampaignTreatmentDescription :: Maybe (Val Text)   , _pinpointCampaignTreatmentName :: Maybe (Val Text)   } deriving (Show, Eq)@@ -52,6 +53,7 @@         , (Just . ("Schedule",) . toJSON) _pinpointCampaignSchedule         , (Just . ("SegmentId",) . toJSON) _pinpointCampaignSegmentId         , fmap (("SegmentVersion",) . toJSON) _pinpointCampaignSegmentVersion+        , fmap (("Tags",) . toJSON) _pinpointCampaignTags         , fmap (("TreatmentDescription",) . toJSON) _pinpointCampaignTreatmentDescription         , fmap (("TreatmentName",) . toJSON) _pinpointCampaignTreatmentName         ]@@ -80,6 +82,7 @@   , _pinpointCampaignSchedule = schedulearg   , _pinpointCampaignSegmentId = segmentIdarg   , _pinpointCampaignSegmentVersion = Nothing+  , _pinpointCampaignTags = Nothing   , _pinpointCampaignTreatmentDescription = Nothing   , _pinpointCampaignTreatmentName = Nothing   }@@ -131,6 +134,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-campaign.html#cfn-pinpoint-campaign-segmentversion pcSegmentVersion :: Lens' PinpointCampaign (Maybe (Val Integer)) pcSegmentVersion = lens _pinpointCampaignSegmentVersion (\s a -> s { _pinpointCampaignSegmentVersion = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-campaign.html#cfn-pinpoint-campaign-tags+pcTags :: Lens' PinpointCampaign (Maybe Object)+pcTags = lens _pinpointCampaignTags (\s a -> s { _pinpointCampaignTags = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-campaign.html#cfn-pinpoint-campaign-treatmentdescription pcTreatmentDescription :: Lens' PinpointCampaign (Maybe (Val Text))

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

@@ -19,6 +19,7 @@   , _pinpointSegmentDimensions :: Maybe PinpointSegmentSegmentDimensions   , _pinpointSegmentName :: Val Text   , _pinpointSegmentSegmentGroups :: Maybe PinpointSegmentSegmentGroups+  , _pinpointSegmentTags :: Maybe Object   } deriving (Show, Eq)  instance ToResourceProperties PinpointSegment where@@ -31,6 +32,7 @@         , fmap (("Dimensions",) . toJSON) _pinpointSegmentDimensions         , (Just . ("Name",) . toJSON) _pinpointSegmentName         , fmap (("SegmentGroups",) . toJSON) _pinpointSegmentSegmentGroups+        , fmap (("Tags",) . toJSON) _pinpointSegmentTags         ]     } @@ -46,6 +48,7 @@   , _pinpointSegmentDimensions = Nothing   , _pinpointSegmentName = namearg   , _pinpointSegmentSegmentGroups = Nothing+  , _pinpointSegmentTags = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-segment.html#cfn-pinpoint-segment-applicationid@@ -63,3 +66,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-segment.html#cfn-pinpoint-segment-segmentgroups psSegmentGroups :: Lens' PinpointSegment (Maybe PinpointSegmentSegmentGroups) psSegmentGroups = lens _pinpointSegmentSegmentGroups (\s a -> s { _pinpointSegmentSegmentGroups = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-segment.html#cfn-pinpoint-segment-tags+psTags :: Lens' PinpointSegment (Maybe Object)+psTags = lens _pinpointSegmentTags (\s a -> s { _pinpointSegmentTags = a })

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

@@ -0,0 +1,62 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-qldb-ledger.html++module Stratosphere.Resources.QLDBLedger where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.Tag++-- | Full data type definition for QLDBLedger. See 'qldbLedger' for a more+-- convenient constructor.+data QLDBLedger =+  QLDBLedger+  { _qLDBLedgerDeletionProtection :: Maybe (Val Bool)+  , _qLDBLedgerName :: Maybe (Val Text)+  , _qLDBLedgerPermissionsMode :: Val Text+  , _qLDBLedgerTags :: Maybe [Tag]+  } deriving (Show, Eq)++instance ToResourceProperties QLDBLedger where+  toResourceProperties QLDBLedger{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::QLDB::Ledger"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("DeletionProtection",) . toJSON) _qLDBLedgerDeletionProtection+        , fmap (("Name",) . toJSON) _qLDBLedgerName+        , (Just . ("PermissionsMode",) . toJSON) _qLDBLedgerPermissionsMode+        , fmap (("Tags",) . toJSON) _qLDBLedgerTags+        ]+    }++-- | Constructor for 'QLDBLedger' containing required fields as arguments.+qldbLedger+  :: Val Text -- ^ 'qldblPermissionsMode'+  -> QLDBLedger+qldbLedger permissionsModearg =+  QLDBLedger+  { _qLDBLedgerDeletionProtection = Nothing+  , _qLDBLedgerName = Nothing+  , _qLDBLedgerPermissionsMode = permissionsModearg+  , _qLDBLedgerTags = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-qldb-ledger.html#cfn-qldb-ledger-deletionprotection+qldblDeletionProtection :: Lens' QLDBLedger (Maybe (Val Bool))+qldblDeletionProtection = lens _qLDBLedgerDeletionProtection (\s a -> s { _qLDBLedgerDeletionProtection = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-qldb-ledger.html#cfn-qldb-ledger-name+qldblName :: Lens' QLDBLedger (Maybe (Val Text))+qldblName = lens _qLDBLedgerName (\s a -> s { _qLDBLedgerName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-qldb-ledger.html#cfn-qldb-ledger-permissionsmode+qldblPermissionsMode :: Lens' QLDBLedger (Val Text)+qldblPermissionsMode = lens _qLDBLedgerPermissionsMode (\s a -> s { _qLDBLedgerPermissionsMode = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-qldb-ledger.html#cfn-qldb-ledger-tags+qldblTags :: Lens' QLDBLedger (Maybe [Tag])+qldblTags = lens _qLDBLedgerTags (\s a -> s { _qLDBLedgerTags = a })

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

@@ -0,0 +1,49 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-coderepository.html++module Stratosphere.Resources.SageMakerCodeRepository where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.SageMakerCodeRepositoryGitConfig++-- | Full data type definition for SageMakerCodeRepository. See+-- 'sageMakerCodeRepository' for a more convenient constructor.+data SageMakerCodeRepository =+  SageMakerCodeRepository+  { _sageMakerCodeRepositoryCodeRepositoryName :: Maybe (Val Text)+  , _sageMakerCodeRepositoryGitConfig :: SageMakerCodeRepositoryGitConfig+  } deriving (Show, Eq)++instance ToResourceProperties SageMakerCodeRepository where+  toResourceProperties SageMakerCodeRepository{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::SageMaker::CodeRepository"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("CodeRepositoryName",) . toJSON) _sageMakerCodeRepositoryCodeRepositoryName+        , (Just . ("GitConfig",) . toJSON) _sageMakerCodeRepositoryGitConfig+        ]+    }++-- | Constructor for 'SageMakerCodeRepository' containing required fields as+-- arguments.+sageMakerCodeRepository+  :: SageMakerCodeRepositoryGitConfig -- ^ 'smcrGitConfig'+  -> SageMakerCodeRepository+sageMakerCodeRepository gitConfigarg =+  SageMakerCodeRepository+  { _sageMakerCodeRepositoryCodeRepositoryName = Nothing+  , _sageMakerCodeRepositoryGitConfig = gitConfigarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-coderepository.html#cfn-sagemaker-coderepository-coderepositoryname+smcrCodeRepositoryName :: Lens' SageMakerCodeRepository (Maybe (Val Text))+smcrCodeRepositoryName = lens _sageMakerCodeRepositoryCodeRepositoryName (\s a -> s { _sageMakerCodeRepositoryCodeRepositoryName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-coderepository.html#cfn-sagemaker-coderepository-gitconfig+smcrGitConfig :: Lens' SageMakerCodeRepository SageMakerCodeRepositoryGitConfig+smcrGitConfig = lens _sageMakerCodeRepositoryGitConfig (\s a -> s { _sageMakerCodeRepositoryGitConfig = a })

stratosphere.cabal view

@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 1606963785245719214201305a4f76ad0a306da9a90b9bbc6b6f0354957e0a34+-- hash: b89ba1d51ed9f3bef39bacb071f3e73413e48cc04ed8cd8017fee32b674908c1  name:           stratosphere-version:        0.42.0+version:        0.43.0 synopsis:       EDSL for AWS CloudFormation description:    EDSL for AWS CloudFormation category:       AWS, Cloud@@ -99,7 +99,9 @@       Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration       Stratosphere.ResourceProperties.AppMeshMeshEgressFilter       Stratosphere.ResourceProperties.AppMeshMeshMeshSpec+      Stratosphere.ResourceProperties.AppMeshRouteDuration       Stratosphere.ResourceProperties.AppMeshRouteHeaderMatchMethod+      Stratosphere.ResourceProperties.AppMeshRouteHttpRetryPolicy       Stratosphere.ResourceProperties.AppMeshRouteHttpRoute       Stratosphere.ResourceProperties.AppMeshRouteHttpRouteAction       Stratosphere.ResourceProperties.AppMeshRouteHttpRouteHeader@@ -303,12 +305,22 @@       Stratosphere.ResourceProperties.CognitoUserPoolAdminCreateUserConfig       Stratosphere.ResourceProperties.CognitoUserPoolClientAnalyticsConfiguration       Stratosphere.ResourceProperties.CognitoUserPoolDeviceConfiguration+      Stratosphere.ResourceProperties.CognitoUserPoolDomainCustomDomainConfigType       Stratosphere.ResourceProperties.CognitoUserPoolEmailConfiguration       Stratosphere.ResourceProperties.CognitoUserPoolInviteMessageTemplate       Stratosphere.ResourceProperties.CognitoUserPoolLambdaConfig       Stratosphere.ResourceProperties.CognitoUserPoolNumberAttributeConstraints       Stratosphere.ResourceProperties.CognitoUserPoolPasswordPolicy       Stratosphere.ResourceProperties.CognitoUserPoolPolicies+      Stratosphere.ResourceProperties.CognitoUserPoolResourceServerResourceServerScopeType+      Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType+      Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType+      Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType+      Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType+      Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType+      Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType+      Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType+      Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType       Stratosphere.ResourceProperties.CognitoUserPoolSchemaAttribute       Stratosphere.ResourceProperties.CognitoUserPoolSmsConfiguration       Stratosphere.ResourceProperties.CognitoUserPoolStringAttributeConstraints@@ -324,8 +336,10 @@       Stratosphere.ResourceProperties.ConfigDeliveryChannelConfigSnapshotDeliveryProperties       Stratosphere.ResourceProperties.ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata       Stratosphere.ResourceProperties.ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata+      Stratosphere.ResourceProperties.ConfigRemediationConfigurationExecutionControls       Stratosphere.ResourceProperties.ConfigRemediationConfigurationRemediationParameterValue       Stratosphere.ResourceProperties.ConfigRemediationConfigurationResourceValue+      Stratosphere.ResourceProperties.ConfigRemediationConfigurationSsmControls       Stratosphere.ResourceProperties.ConfigRemediationConfigurationStaticValue       Stratosphere.ResourceProperties.DataPipelinePipelineField       Stratosphere.ResourceProperties.DataPipelinePipelineParameterAttribute@@ -431,6 +445,7 @@       Stratosphere.ResourceProperties.EC2SpotFleetSpotPlacement       Stratosphere.ResourceProperties.EC2SpotFleetTargetGroup       Stratosphere.ResourceProperties.EC2SpotFleetTargetGroupsConfig+      Stratosphere.ResourceProperties.EC2TrafficMirrorFilterRuleTrafficMirrorPortRangeRequest       Stratosphere.ResourceProperties.EC2VPNConnectionVpnTunnelOptionsSpecification       Stratosphere.ResourceProperties.ECRRepositoryLifecyclePolicy       Stratosphere.ResourceProperties.ECSServiceAwsVpcConfiguration@@ -596,6 +611,7 @@       Stratosphere.ResourceProperties.GlueJobConnectionsList       Stratosphere.ResourceProperties.GlueJobExecutionProperty       Stratosphere.ResourceProperties.GlueJobJobCommand+      Stratosphere.ResourceProperties.GlueJobNotificationProperty       Stratosphere.ResourceProperties.GlueMLTransformFindMatchesParameters       Stratosphere.ResourceProperties.GlueMLTransformGlueTables       Stratosphere.ResourceProperties.GlueMLTransformInputRecordTables@@ -618,6 +634,7 @@       Stratosphere.ResourceProperties.GlueTableTableInput       Stratosphere.ResourceProperties.GlueTriggerAction       Stratosphere.ResourceProperties.GlueTriggerCondition+      Stratosphere.ResourceProperties.GlueTriggerNotificationProperty       Stratosphere.ResourceProperties.GlueTriggerPredicate       Stratosphere.ResourceProperties.GreengrassConnectorDefinitionConnector       Stratosphere.ResourceProperties.GreengrassConnectorDefinitionConnectorDefinitionVersion@@ -1039,6 +1056,7 @@       Stratosphere.ResourceProperties.S3BucketTransition       Stratosphere.ResourceProperties.S3BucketVersioningConfiguration       Stratosphere.ResourceProperties.S3BucketWebsiteConfiguration+      Stratosphere.ResourceProperties.SageMakerCodeRepositoryGitConfig       Stratosphere.ResourceProperties.SageMakerEndpointConfigProductionVariant       Stratosphere.ResourceProperties.SageMakerModelContainerDefinition       Stratosphere.ResourceProperties.SageMakerModelVpcConfig@@ -1222,7 +1240,12 @@       Stratosphere.Resources.CognitoIdentityPoolRoleAttachment       Stratosphere.Resources.CognitoUserPool       Stratosphere.Resources.CognitoUserPoolClient+      Stratosphere.Resources.CognitoUserPoolDomain       Stratosphere.Resources.CognitoUserPoolGroup+      Stratosphere.Resources.CognitoUserPoolIdentityProvider+      Stratosphere.Resources.CognitoUserPoolResourceServer+      Stratosphere.Resources.CognitoUserPoolRiskConfigurationAttachment+      Stratosphere.Resources.CognitoUserPoolUICustomizationAttachment       Stratosphere.Resources.CognitoUserPoolUser       Stratosphere.Resources.CognitoUserPoolUserToGroupAttachment       Stratosphere.Resources.ConfigAggregationAuthorization@@ -1283,6 +1306,10 @@       Stratosphere.Resources.EC2SubnetCidrBlock       Stratosphere.Resources.EC2SubnetNetworkAclAssociation       Stratosphere.Resources.EC2SubnetRouteTableAssociation+      Stratosphere.Resources.EC2TrafficMirrorFilter+      Stratosphere.Resources.EC2TrafficMirrorFilterRule+      Stratosphere.Resources.EC2TrafficMirrorSession+      Stratosphere.Resources.EC2TrafficMirrorTarget       Stratosphere.Resources.EC2TransitGateway       Stratosphere.Resources.EC2TransitGatewayAttachment       Stratosphere.Resources.EC2TransitGatewayRoute@@ -1296,6 +1323,7 @@       Stratosphere.Resources.EC2VPCDHCPOptionsAssociation       Stratosphere.Resources.EC2VPCEndpoint       Stratosphere.Resources.EC2VPCEndpointConnectionNotification+      Stratosphere.Resources.EC2VPCEndpointService       Stratosphere.Resources.EC2VPCEndpointServicePermissions       Stratosphere.Resources.EC2VPCGatewayAttachment       Stratosphere.Resources.EC2VPCPeeringConnection@@ -1350,6 +1378,7 @@       Stratosphere.Resources.GlueSecurityConfiguration       Stratosphere.Resources.GlueTable       Stratosphere.Resources.GlueTrigger+      Stratosphere.Resources.GlueWorkflow       Stratosphere.Resources.GreengrassConnectorDefinition       Stratosphere.Resources.GreengrassConnectorDefinitionVersion       Stratosphere.Resources.GreengrassCoreDefinition@@ -1466,6 +1495,7 @@       Stratosphere.Resources.PinpointSegment       Stratosphere.Resources.PinpointSMSChannel       Stratosphere.Resources.PinpointVoiceChannel+      Stratosphere.Resources.QLDBLedger       Stratosphere.Resources.RAMResourceShare       Stratosphere.Resources.RDSDBCluster       Stratosphere.Resources.RDSDBClusterParameterGroup@@ -1496,6 +1526,7 @@       Stratosphere.Resources.Route53ResolverResolverRuleAssociation       Stratosphere.Resources.S3Bucket       Stratosphere.Resources.S3BucketPolicy+      Stratosphere.Resources.SageMakerCodeRepository       Stratosphere.Resources.SageMakerEndpoint       Stratosphere.Resources.SageMakerEndpointConfig       Stratosphere.Resources.SageMakerModel