stratosphere 0.45.0 → 0.46.0

raw patch · 58 files changed

+2165/−53 lines, 58 files

Files

• CHANGELOG.md +4/−0
• library-gen/Stratosphere/ResourceProperties/AmplifyAppAutoBranchCreationConfig.hs +14/−0
• library-gen/Stratosphere/ResourceProperties/AppMeshRouteGrpcRetryPolicy.hs +68/−0
• library-gen/Stratosphere/ResourceProperties/AppMeshRouteGrpcRoute.hs +56/−0
• library-gen/Stratosphere/ResourceProperties/AppMeshRouteGrpcRouteAction.hs +39/−0
• library-gen/Stratosphere/ResourceProperties/AppMeshRouteGrpcRouteMatch.hs +52/−0
• library-gen/Stratosphere/ResourceProperties/AppMeshRouteGrpcRouteMetadata.hs +53/−0
• library-gen/Stratosphere/ResourceProperties/AppMeshRouteGrpcRouteMetadataMatchMethod.hs +67/−0
• library-gen/Stratosphere/ResourceProperties/AppMeshRouteRouteSpec.hs +18/−3
• library-gen/Stratosphere/ResourceProperties/AppStreamImageBuilderAccessEndpoint.hs +47/−0
• library-gen/Stratosphere/ResourceProperties/AppStreamStackAccessEndpoint.hs +47/−0
• library-gen/Stratosphere/ResourceProperties/CodeStarNotificationsNotificationRuleTarget.hs +47/−0
• library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionInferenceAccelerator.hs +46/−0
• library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainLogPublishingOption.hs +46/−0
• library-gen/Stratosphere/ResourceProperties/EventsRuleBatchArrayProperties.hs +38/−0
• library-gen/Stratosphere/ResourceProperties/EventsRuleBatchParameters.hs +62/−0
• library-gen/Stratosphere/ResourceProperties/EventsRuleBatchRetryStrategy.hs +38/−0
• library-gen/Stratosphere/ResourceProperties/EventsRuleTarget.hs +8/−0
• library-gen/Stratosphere/ResourceProperties/GameLiftBuildS3Location.hs +7/−0
• library-gen/Stratosphere/ResourceProperties/GameLiftFleetCertificateConfiguration.hs +40/−0
• library-gen/Stratosphere/ResourceProperties/GameLiftFleetResourceCreationLimitPolicy.hs +46/−0
• library-gen/Stratosphere/ResourceProperties/GameLiftFleetRuntimeConfiguration.hs +52/−0
• library-gen/Stratosphere/ResourceProperties/GameLiftFleetServerProcess.hs +54/−0
• library-gen/Stratosphere/ResourceProperties/GlueCrawlerCatalogTarget.hs +45/−0
• library-gen/Stratosphere/ResourceProperties/GlueCrawlerDynamoDBTarget.hs +38/−0
• library-gen/Stratosphere/ResourceProperties/GlueCrawlerTargets.hs +19/−3
• library-gen/Stratosphere/ResourceProperties/MediaConvertJobTemplateAccelerationSettings.hs +41/−0
• library-gen/Stratosphere/ResourceProperties/PinpointPushTemplateAPNSPushNotificationTemplate.hs +75/−0
• library-gen/Stratosphere/ResourceProperties/PinpointPushTemplateAndroidPushNotificationTemplate.hs +89/−0
• library-gen/Stratosphere/ResourceProperties/PinpointPushTemplateDefaultPushNotificationTemplate.hs +68/−0
• library-gen/Stratosphere/ResourceProperties/RDSDBClusterDBClusterRole.hs +0/−7
• library-gen/Stratosphere/ResourceProperties/RDSDBInstanceDBInstanceRole.hs +0/−7
• library-gen/Stratosphere/Resources.hs +31/−0
• library-gen/Stratosphere/Resources/AmplifyBranch.hs +14/−0
• library-gen/Stratosphere/Resources/ApiGatewayApiKey.hs +8/−0
• library-gen/Stratosphere/Resources/ApiGatewayClientCertificate.hs +8/−1
• library-gen/Stratosphere/Resources/ApiGatewayDomainName.hs +15/−0
• library-gen/Stratosphere/Resources/ApiGatewayRestApi.hs +8/−0
• library-gen/Stratosphere/Resources/ApiGatewayUsagePlan.hs +8/−0
• library-gen/Stratosphere/Resources/AppStreamImageBuilder.hs +11/−3
• library-gen/Stratosphere/Resources/AppStreamStack.hs +18/−3
• library-gen/Stratosphere/Resources/CodePipelineCustomActionType.hs +8/−0
• library-gen/Stratosphere/Resources/CodePipelinePipeline.hs +8/−0
• library-gen/Stratosphere/Resources/CodeStarNotificationsNotificationRule.hs +89/−0
• library-gen/Stratosphere/Resources/ECSTaskDefinition.hs +8/−0
• library-gen/Stratosphere/Resources/ElasticsearchDomain.hs +8/−0
• library-gen/Stratosphere/Resources/EventsRule.hs +7/−0
• library-gen/Stratosphere/Resources/GameLiftBuild.hs +7/−0
• library-gen/Stratosphere/Resources/GameLiftFleet.hs +87/−17
• library-gen/Stratosphere/Resources/GlueCrawler.hs +6/−7
• library-gen/Stratosphere/Resources/MediaConvertJobTemplate.hs +98/−0
• library-gen/Stratosphere/Resources/MediaConvertPreset.hs +70/−0
• library-gen/Stratosphere/Resources/MediaConvertQueue.hs +69/−0
• library-gen/Stratosphere/Resources/PinpointEmailTemplate.hs +71/−0
• library-gen/Stratosphere/Resources/PinpointPushTemplate.hs +86/−0
• library-gen/Stratosphere/Resources/PinpointSmsTemplate.hs +57/−0
• library-gen/Stratosphere/Resources/SNSTopic.hs +8/−0
• stratosphere.cabal +33/−2

@@ -1,5 +1,9 @@ # Change Log +## 0.46.0++* Update resource specification document to version 8.1.0+ ## 0.45.0  * Update lambda runtimes list

@@ -20,7 +20,9 @@   , _amplifyAppAutoBranchCreationConfigBuildSpec :: Maybe (Val Text)   , _amplifyAppAutoBranchCreationConfigEnableAutoBranchCreation :: Maybe (Val Bool)   , _amplifyAppAutoBranchCreationConfigEnableAutoBuild :: Maybe (Val Bool)+  , _amplifyAppAutoBranchCreationConfigEnablePullRequestPreview :: Maybe (Val Bool)   , _amplifyAppAutoBranchCreationConfigEnvironmentVariables :: Maybe [AmplifyAppEnvironmentVariable]+  , _amplifyAppAutoBranchCreationConfigPullRequestEnvironmentName :: Maybe (Val Text)   , _amplifyAppAutoBranchCreationConfigStage :: Maybe (Val Text)   } deriving (Show, Eq) @@ -33,7 +35,9 @@     , fmap (("BuildSpec",) . toJSON) _amplifyAppAutoBranchCreationConfigBuildSpec     , fmap (("EnableAutoBranchCreation",) . toJSON) _amplifyAppAutoBranchCreationConfigEnableAutoBranchCreation     , fmap (("EnableAutoBuild",) . toJSON) _amplifyAppAutoBranchCreationConfigEnableAutoBuild+    , fmap (("EnablePullRequestPreview",) . toJSON) _amplifyAppAutoBranchCreationConfigEnablePullRequestPreview     , fmap (("EnvironmentVariables",) . toJSON) _amplifyAppAutoBranchCreationConfigEnvironmentVariables+    , fmap (("PullRequestEnvironmentName",) . toJSON) _amplifyAppAutoBranchCreationConfigPullRequestEnvironmentName     , fmap (("Stage",) . toJSON) _amplifyAppAutoBranchCreationConfigStage     ] @@ -48,7 +52,9 @@   , _amplifyAppAutoBranchCreationConfigBuildSpec = Nothing   , _amplifyAppAutoBranchCreationConfigEnableAutoBranchCreation = Nothing   , _amplifyAppAutoBranchCreationConfigEnableAutoBuild = Nothing+  , _amplifyAppAutoBranchCreationConfigEnablePullRequestPreview = Nothing   , _amplifyAppAutoBranchCreationConfigEnvironmentVariables = Nothing+  , _amplifyAppAutoBranchCreationConfigPullRequestEnvironmentName = Nothing   , _amplifyAppAutoBranchCreationConfigStage = Nothing   } @@ -72,9 +78,17 @@ aaabccEnableAutoBuild :: Lens' AmplifyAppAutoBranchCreationConfig (Maybe (Val Bool)) aaabccEnableAutoBuild = lens _amplifyAppAutoBranchCreationConfigEnableAutoBuild (\s a -> s { _amplifyAppAutoBranchCreationConfigEnableAutoBuild = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-autobranchcreationconfig.html#cfn-amplify-app-autobranchcreationconfig-enablepullrequestpreview+aaabccEnablePullRequestPreview :: Lens' AmplifyAppAutoBranchCreationConfig (Maybe (Val Bool))+aaabccEnablePullRequestPreview = lens _amplifyAppAutoBranchCreationConfigEnablePullRequestPreview (\s a -> s { _amplifyAppAutoBranchCreationConfigEnablePullRequestPreview = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-autobranchcreationconfig.html#cfn-amplify-app-autobranchcreationconfig-environmentvariables aaabccEnvironmentVariables :: Lens' AmplifyAppAutoBranchCreationConfig (Maybe [AmplifyAppEnvironmentVariable]) aaabccEnvironmentVariables = lens _amplifyAppAutoBranchCreationConfigEnvironmentVariables (\s a -> s { _amplifyAppAutoBranchCreationConfigEnvironmentVariables = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-autobranchcreationconfig.html#cfn-amplify-app-autobranchcreationconfig-pullrequestenvironmentname+aaabccPullRequestEnvironmentName :: Lens' AmplifyAppAutoBranchCreationConfig (Maybe (Val Text))+aaabccPullRequestEnvironmentName = lens _amplifyAppAutoBranchCreationConfigPullRequestEnvironmentName (\s a -> s { _amplifyAppAutoBranchCreationConfigPullRequestEnvironmentName = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-autobranchcreationconfig.html#cfn-amplify-app-autobranchcreationconfig-stage aaabccStage :: Lens' AmplifyAppAutoBranchCreationConfig (Maybe (Val Text))

@@ -0,0 +1,68 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcretrypolicy.html++module Stratosphere.ResourceProperties.AppMeshRouteGrpcRetryPolicy where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshRouteDuration++-- | Full data type definition for AppMeshRouteGrpcRetryPolicy. See+-- 'appMeshRouteGrpcRetryPolicy' for a more convenient constructor.+data AppMeshRouteGrpcRetryPolicy =+  AppMeshRouteGrpcRetryPolicy+  { _appMeshRouteGrpcRetryPolicyGrpcRetryEvents :: Maybe (ValList Text)+  , _appMeshRouteGrpcRetryPolicyHttpRetryEvents :: Maybe (ValList Text)+  , _appMeshRouteGrpcRetryPolicyMaxRetries :: Val Integer+  , _appMeshRouteGrpcRetryPolicyPerRetryTimeout :: AppMeshRouteDuration+  , _appMeshRouteGrpcRetryPolicyTcpRetryEvents :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON AppMeshRouteGrpcRetryPolicy where+  toJSON AppMeshRouteGrpcRetryPolicy{..} =+    object $+    catMaybes+    [ fmap (("GrpcRetryEvents",) . toJSON) _appMeshRouteGrpcRetryPolicyGrpcRetryEvents+    , fmap (("HttpRetryEvents",) . toJSON) _appMeshRouteGrpcRetryPolicyHttpRetryEvents+    , (Just . ("MaxRetries",) . toJSON) _appMeshRouteGrpcRetryPolicyMaxRetries+    , (Just . ("PerRetryTimeout",) . toJSON) _appMeshRouteGrpcRetryPolicyPerRetryTimeout+    , fmap (("TcpRetryEvents",) . toJSON) _appMeshRouteGrpcRetryPolicyTcpRetryEvents+    ]++-- | Constructor for 'AppMeshRouteGrpcRetryPolicy' containing required fields+-- as arguments.+appMeshRouteGrpcRetryPolicy+  :: Val Integer -- ^ 'amrgrpMaxRetries'+  -> AppMeshRouteDuration -- ^ 'amrgrpPerRetryTimeout'+  -> AppMeshRouteGrpcRetryPolicy+appMeshRouteGrpcRetryPolicy maxRetriesarg perRetryTimeoutarg =+  AppMeshRouteGrpcRetryPolicy+  { _appMeshRouteGrpcRetryPolicyGrpcRetryEvents = Nothing+  , _appMeshRouteGrpcRetryPolicyHttpRetryEvents = Nothing+  , _appMeshRouteGrpcRetryPolicyMaxRetries = maxRetriesarg+  , _appMeshRouteGrpcRetryPolicyPerRetryTimeout = perRetryTimeoutarg+  , _appMeshRouteGrpcRetryPolicyTcpRetryEvents = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcretrypolicy.html#cfn-appmesh-route-grpcretrypolicy-grpcretryevents+amrgrpGrpcRetryEvents :: Lens' AppMeshRouteGrpcRetryPolicy (Maybe (ValList Text))+amrgrpGrpcRetryEvents = lens _appMeshRouteGrpcRetryPolicyGrpcRetryEvents (\s a -> s { _appMeshRouteGrpcRetryPolicyGrpcRetryEvents = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcretrypolicy.html#cfn-appmesh-route-grpcretrypolicy-httpretryevents+amrgrpHttpRetryEvents :: Lens' AppMeshRouteGrpcRetryPolicy (Maybe (ValList Text))+amrgrpHttpRetryEvents = lens _appMeshRouteGrpcRetryPolicyHttpRetryEvents (\s a -> s { _appMeshRouteGrpcRetryPolicyHttpRetryEvents = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcretrypolicy.html#cfn-appmesh-route-grpcretrypolicy-maxretries+amrgrpMaxRetries :: Lens' AppMeshRouteGrpcRetryPolicy (Val Integer)+amrgrpMaxRetries = lens _appMeshRouteGrpcRetryPolicyMaxRetries (\s a -> s { _appMeshRouteGrpcRetryPolicyMaxRetries = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcretrypolicy.html#cfn-appmesh-route-grpcretrypolicy-perretrytimeout+amrgrpPerRetryTimeout :: Lens' AppMeshRouteGrpcRetryPolicy AppMeshRouteDuration+amrgrpPerRetryTimeout = lens _appMeshRouteGrpcRetryPolicyPerRetryTimeout (\s a -> s { _appMeshRouteGrpcRetryPolicyPerRetryTimeout = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcretrypolicy.html#cfn-appmesh-route-grpcretrypolicy-tcpretryevents+amrgrpTcpRetryEvents :: Lens' AppMeshRouteGrpcRetryPolicy (Maybe (ValList Text))+amrgrpTcpRetryEvents = lens _appMeshRouteGrpcRetryPolicyTcpRetryEvents (\s a -> s { _appMeshRouteGrpcRetryPolicyTcpRetryEvents = a })

@@ -0,0 +1,56 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroute.html++module Stratosphere.ResourceProperties.AppMeshRouteGrpcRoute where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteAction+import Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteMatch+import Stratosphere.ResourceProperties.AppMeshRouteGrpcRetryPolicy++-- | Full data type definition for AppMeshRouteGrpcRoute. See+-- 'appMeshRouteGrpcRoute' for a more convenient constructor.+data AppMeshRouteGrpcRoute =+  AppMeshRouteGrpcRoute+  { _appMeshRouteGrpcRouteAction :: AppMeshRouteGrpcRouteAction+  , _appMeshRouteGrpcRouteMatch :: AppMeshRouteGrpcRouteMatch+  , _appMeshRouteGrpcRouteRetryPolicy :: Maybe AppMeshRouteGrpcRetryPolicy+  } deriving (Show, Eq)++instance ToJSON AppMeshRouteGrpcRoute where+  toJSON AppMeshRouteGrpcRoute{..} =+    object $+    catMaybes+    [ (Just . ("Action",) . toJSON) _appMeshRouteGrpcRouteAction+    , (Just . ("Match",) . toJSON) _appMeshRouteGrpcRouteMatch+    , fmap (("RetryPolicy",) . toJSON) _appMeshRouteGrpcRouteRetryPolicy+    ]++-- | Constructor for 'AppMeshRouteGrpcRoute' containing required fields as+-- arguments.+appMeshRouteGrpcRoute+  :: AppMeshRouteGrpcRouteAction -- ^ 'amrgrAction'+  -> AppMeshRouteGrpcRouteMatch -- ^ 'amrgrMatch'+  -> AppMeshRouteGrpcRoute+appMeshRouteGrpcRoute actionarg matcharg =+  AppMeshRouteGrpcRoute+  { _appMeshRouteGrpcRouteAction = actionarg+  , _appMeshRouteGrpcRouteMatch = matcharg+  , _appMeshRouteGrpcRouteRetryPolicy = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroute.html#cfn-appmesh-route-grpcroute-action+amrgrAction :: Lens' AppMeshRouteGrpcRoute AppMeshRouteGrpcRouteAction+amrgrAction = lens _appMeshRouteGrpcRouteAction (\s a -> s { _appMeshRouteGrpcRouteAction = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroute.html#cfn-appmesh-route-grpcroute-match+amrgrMatch :: Lens' AppMeshRouteGrpcRoute AppMeshRouteGrpcRouteMatch+amrgrMatch = lens _appMeshRouteGrpcRouteMatch (\s a -> s { _appMeshRouteGrpcRouteMatch = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroute.html#cfn-appmesh-route-grpcroute-retrypolicy+amrgrRetryPolicy :: Lens' AppMeshRouteGrpcRoute (Maybe AppMeshRouteGrpcRetryPolicy)+amrgrRetryPolicy = lens _appMeshRouteGrpcRouteRetryPolicy (\s a -> s { _appMeshRouteGrpcRouteRetryPolicy = a })

@@ -0,0 +1,39 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcrouteaction.html++module Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteAction where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshRouteWeightedTarget++-- | Full data type definition for AppMeshRouteGrpcRouteAction. See+-- 'appMeshRouteGrpcRouteAction' for a more convenient constructor.+data AppMeshRouteGrpcRouteAction =+  AppMeshRouteGrpcRouteAction+  { _appMeshRouteGrpcRouteActionWeightedTargets :: [AppMeshRouteWeightedTarget]+  } deriving (Show, Eq)++instance ToJSON AppMeshRouteGrpcRouteAction where+  toJSON AppMeshRouteGrpcRouteAction{..} =+    object $+    catMaybes+    [ (Just . ("WeightedTargets",) . toJSON) _appMeshRouteGrpcRouteActionWeightedTargets+    ]++-- | Constructor for 'AppMeshRouteGrpcRouteAction' containing required fields+-- as arguments.+appMeshRouteGrpcRouteAction+  :: [AppMeshRouteWeightedTarget] -- ^ 'amrgraWeightedTargets'+  -> AppMeshRouteGrpcRouteAction+appMeshRouteGrpcRouteAction weightedTargetsarg =+  AppMeshRouteGrpcRouteAction+  { _appMeshRouteGrpcRouteActionWeightedTargets = weightedTargetsarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcrouteaction.html#cfn-appmesh-route-grpcrouteaction-weightedtargets+amrgraWeightedTargets :: Lens' AppMeshRouteGrpcRouteAction [AppMeshRouteWeightedTarget]+amrgraWeightedTargets = lens _appMeshRouteGrpcRouteActionWeightedTargets (\s a -> s { _appMeshRouteGrpcRouteActionWeightedTargets = a })

@@ -0,0 +1,52 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroutematch.html++module Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteMatch where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteMetadata++-- | Full data type definition for AppMeshRouteGrpcRouteMatch. See+-- 'appMeshRouteGrpcRouteMatch' for a more convenient constructor.+data AppMeshRouteGrpcRouteMatch =+  AppMeshRouteGrpcRouteMatch+  { _appMeshRouteGrpcRouteMatchMetadata :: Maybe [AppMeshRouteGrpcRouteMetadata]+  , _appMeshRouteGrpcRouteMatchMethodName :: Maybe (Val Text)+  , _appMeshRouteGrpcRouteMatchServiceName :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON AppMeshRouteGrpcRouteMatch where+  toJSON AppMeshRouteGrpcRouteMatch{..} =+    object $+    catMaybes+    [ fmap (("Metadata",) . toJSON) _appMeshRouteGrpcRouteMatchMetadata+    , fmap (("MethodName",) . toJSON) _appMeshRouteGrpcRouteMatchMethodName+    , fmap (("ServiceName",) . toJSON) _appMeshRouteGrpcRouteMatchServiceName+    ]++-- | Constructor for 'AppMeshRouteGrpcRouteMatch' containing required fields+-- as arguments.+appMeshRouteGrpcRouteMatch+  :: AppMeshRouteGrpcRouteMatch+appMeshRouteGrpcRouteMatch  =+  AppMeshRouteGrpcRouteMatch+  { _appMeshRouteGrpcRouteMatchMetadata = Nothing+  , _appMeshRouteGrpcRouteMatchMethodName = Nothing+  , _appMeshRouteGrpcRouteMatchServiceName = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroutematch.html#cfn-appmesh-route-grpcroutematch-metadata+amrgrmMetadata :: Lens' AppMeshRouteGrpcRouteMatch (Maybe [AppMeshRouteGrpcRouteMetadata])+amrgrmMetadata = lens _appMeshRouteGrpcRouteMatchMetadata (\s a -> s { _appMeshRouteGrpcRouteMatchMetadata = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroutematch.html#cfn-appmesh-route-grpcroutematch-methodname+amrgrmMethodName :: Lens' AppMeshRouteGrpcRouteMatch (Maybe (Val Text))+amrgrmMethodName = lens _appMeshRouteGrpcRouteMatchMethodName (\s a -> s { _appMeshRouteGrpcRouteMatchMethodName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroutematch.html#cfn-appmesh-route-grpcroutematch-servicename+amrgrmServiceName :: Lens' AppMeshRouteGrpcRouteMatch (Maybe (Val Text))+amrgrmServiceName = lens _appMeshRouteGrpcRouteMatchServiceName (\s a -> s { _appMeshRouteGrpcRouteMatchServiceName = a })

@@ -0,0 +1,53 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroutemetadata.html++module Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteMetadata where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteMetadataMatchMethod++-- | Full data type definition for AppMeshRouteGrpcRouteMetadata. See+-- 'appMeshRouteGrpcRouteMetadata' for a more convenient constructor.+data AppMeshRouteGrpcRouteMetadata =+  AppMeshRouteGrpcRouteMetadata+  { _appMeshRouteGrpcRouteMetadataInvert :: Maybe (Val Bool)+  , _appMeshRouteGrpcRouteMetadataMatch :: Maybe AppMeshRouteGrpcRouteMetadataMatchMethod+  , _appMeshRouteGrpcRouteMetadataName :: Val Text+  } deriving (Show, Eq)++instance ToJSON AppMeshRouteGrpcRouteMetadata where+  toJSON AppMeshRouteGrpcRouteMetadata{..} =+    object $+    catMaybes+    [ fmap (("Invert",) . toJSON) _appMeshRouteGrpcRouteMetadataInvert+    , fmap (("Match",) . toJSON) _appMeshRouteGrpcRouteMetadataMatch+    , (Just . ("Name",) . toJSON) _appMeshRouteGrpcRouteMetadataName+    ]++-- | Constructor for 'AppMeshRouteGrpcRouteMetadata' containing required+-- fields as arguments.+appMeshRouteGrpcRouteMetadata+  :: Val Text -- ^ 'amrgrmName'+  -> AppMeshRouteGrpcRouteMetadata+appMeshRouteGrpcRouteMetadata namearg =+  AppMeshRouteGrpcRouteMetadata+  { _appMeshRouteGrpcRouteMetadataInvert = Nothing+  , _appMeshRouteGrpcRouteMetadataMatch = Nothing+  , _appMeshRouteGrpcRouteMetadataName = namearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroutemetadata.html#cfn-appmesh-route-grpcroutemetadata-invert+amrgrmInvert :: Lens' AppMeshRouteGrpcRouteMetadata (Maybe (Val Bool))+amrgrmInvert = lens _appMeshRouteGrpcRouteMetadataInvert (\s a -> s { _appMeshRouteGrpcRouteMetadataInvert = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroutemetadata.html#cfn-appmesh-route-grpcroutemetadata-match+amrgrmMatch :: Lens' AppMeshRouteGrpcRouteMetadata (Maybe AppMeshRouteGrpcRouteMetadataMatchMethod)+amrgrmMatch = lens _appMeshRouteGrpcRouteMetadataMatch (\s a -> s { _appMeshRouteGrpcRouteMetadataMatch = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroutemetadata.html#cfn-appmesh-route-grpcroutemetadata-name+amrgrmName :: Lens' AppMeshRouteGrpcRouteMetadata (Val Text)+amrgrmName = lens _appMeshRouteGrpcRouteMetadataName (\s a -> s { _appMeshRouteGrpcRouteMetadataName = a })

@@ -0,0 +1,67 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroutemetadatamatchmethod.html++module Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteMetadataMatchMethod where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshRouteMatchRange++-- | Full data type definition for AppMeshRouteGrpcRouteMetadataMatchMethod.+-- See 'appMeshRouteGrpcRouteMetadataMatchMethod' for a more convenient+-- constructor.+data AppMeshRouteGrpcRouteMetadataMatchMethod =+  AppMeshRouteGrpcRouteMetadataMatchMethod+  { _appMeshRouteGrpcRouteMetadataMatchMethodExact :: Maybe (Val Text)+  , _appMeshRouteGrpcRouteMetadataMatchMethodPrefix :: Maybe (Val Text)+  , _appMeshRouteGrpcRouteMetadataMatchMethodRange :: Maybe AppMeshRouteMatchRange+  , _appMeshRouteGrpcRouteMetadataMatchMethodRegex :: Maybe (Val Text)+  , _appMeshRouteGrpcRouteMetadataMatchMethodSuffix :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON AppMeshRouteGrpcRouteMetadataMatchMethod where+  toJSON AppMeshRouteGrpcRouteMetadataMatchMethod{..} =+    object $+    catMaybes+    [ fmap (("Exact",) . toJSON) _appMeshRouteGrpcRouteMetadataMatchMethodExact+    , fmap (("Prefix",) . toJSON) _appMeshRouteGrpcRouteMetadataMatchMethodPrefix+    , fmap (("Range",) . toJSON) _appMeshRouteGrpcRouteMetadataMatchMethodRange+    , fmap (("Regex",) . toJSON) _appMeshRouteGrpcRouteMetadataMatchMethodRegex+    , fmap (("Suffix",) . toJSON) _appMeshRouteGrpcRouteMetadataMatchMethodSuffix+    ]++-- | Constructor for 'AppMeshRouteGrpcRouteMetadataMatchMethod' containing+-- required fields as arguments.+appMeshRouteGrpcRouteMetadataMatchMethod+  :: AppMeshRouteGrpcRouteMetadataMatchMethod+appMeshRouteGrpcRouteMetadataMatchMethod  =+  AppMeshRouteGrpcRouteMetadataMatchMethod+  { _appMeshRouteGrpcRouteMetadataMatchMethodExact = Nothing+  , _appMeshRouteGrpcRouteMetadataMatchMethodPrefix = Nothing+  , _appMeshRouteGrpcRouteMetadataMatchMethodRange = Nothing+  , _appMeshRouteGrpcRouteMetadataMatchMethodRegex = Nothing+  , _appMeshRouteGrpcRouteMetadataMatchMethodSuffix = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroutemetadatamatchmethod.html#cfn-appmesh-route-grpcroutemetadatamatchmethod-exact+amrgrmmmExact :: Lens' AppMeshRouteGrpcRouteMetadataMatchMethod (Maybe (Val Text))+amrgrmmmExact = lens _appMeshRouteGrpcRouteMetadataMatchMethodExact (\s a -> s { _appMeshRouteGrpcRouteMetadataMatchMethodExact = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroutemetadatamatchmethod.html#cfn-appmesh-route-grpcroutemetadatamatchmethod-prefix+amrgrmmmPrefix :: Lens' AppMeshRouteGrpcRouteMetadataMatchMethod (Maybe (Val Text))+amrgrmmmPrefix = lens _appMeshRouteGrpcRouteMetadataMatchMethodPrefix (\s a -> s { _appMeshRouteGrpcRouteMetadataMatchMethodPrefix = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroutemetadatamatchmethod.html#cfn-appmesh-route-grpcroutemetadatamatchmethod-range+amrgrmmmRange :: Lens' AppMeshRouteGrpcRouteMetadataMatchMethod (Maybe AppMeshRouteMatchRange)+amrgrmmmRange = lens _appMeshRouteGrpcRouteMetadataMatchMethodRange (\s a -> s { _appMeshRouteGrpcRouteMetadataMatchMethodRange = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroutemetadatamatchmethod.html#cfn-appmesh-route-grpcroutemetadatamatchmethod-regex+amrgrmmmRegex :: Lens' AppMeshRouteGrpcRouteMetadataMatchMethod (Maybe (Val Text))+amrgrmmmRegex = lens _appMeshRouteGrpcRouteMetadataMatchMethodRegex (\s a -> s { _appMeshRouteGrpcRouteMetadataMatchMethodRegex = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroutemetadatamatchmethod.html#cfn-appmesh-route-grpcroutemetadatamatchmethod-suffix+amrgrmmmSuffix :: Lens' AppMeshRouteGrpcRouteMetadataMatchMethod (Maybe (Val Text))+amrgrmmmSuffix = lens _appMeshRouteGrpcRouteMetadataMatchMethodSuffix (\s a -> s { _appMeshRouteGrpcRouteMetadataMatchMethodSuffix = a })

@@ -8,6 +8,7 @@ module Stratosphere.ResourceProperties.AppMeshRouteRouteSpec where  import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshRouteGrpcRoute import Stratosphere.ResourceProperties.AppMeshRouteHttpRoute import Stratosphere.ResourceProperties.AppMeshRouteTcpRoute @@ -15,7 +16,9 @@ -- 'appMeshRouteRouteSpec' for a more convenient constructor. data AppMeshRouteRouteSpec =   AppMeshRouteRouteSpec-  { _appMeshRouteRouteSpecHttpRoute :: Maybe AppMeshRouteHttpRoute+  { _appMeshRouteRouteSpecGrpcRoute :: Maybe AppMeshRouteGrpcRoute+  , _appMeshRouteRouteSpecHttp2Route :: Maybe AppMeshRouteHttpRoute+  , _appMeshRouteRouteSpecHttpRoute :: Maybe AppMeshRouteHttpRoute   , _appMeshRouteRouteSpecPriority :: Maybe (Val Integer)   , _appMeshRouteRouteSpecTcpRoute :: Maybe AppMeshRouteTcpRoute   } deriving (Show, Eq)@@ -24,7 +27,9 @@   toJSON AppMeshRouteRouteSpec{..} =     object $     catMaybes-    [ fmap (("HttpRoute",) . toJSON) _appMeshRouteRouteSpecHttpRoute+    [ fmap (("GrpcRoute",) . toJSON) _appMeshRouteRouteSpecGrpcRoute+    , fmap (("Http2Route",) . toJSON) _appMeshRouteRouteSpecHttp2Route+    , fmap (("HttpRoute",) . toJSON) _appMeshRouteRouteSpecHttpRoute     , fmap (("Priority",) . toJSON) _appMeshRouteRouteSpecPriority     , fmap (("TcpRoute",) . toJSON) _appMeshRouteRouteSpecTcpRoute     ]@@ -35,10 +40,20 @@   :: AppMeshRouteRouteSpec appMeshRouteRouteSpec  =   AppMeshRouteRouteSpec-  { _appMeshRouteRouteSpecHttpRoute = Nothing+  { _appMeshRouteRouteSpecGrpcRoute = Nothing+  , _appMeshRouteRouteSpecHttp2Route = Nothing+  , _appMeshRouteRouteSpecHttpRoute = Nothing   , _appMeshRouteRouteSpecPriority = Nothing   , _appMeshRouteRouteSpecTcpRoute = Nothing   }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-routespec.html#cfn-appmesh-route-routespec-grpcroute+amrrsGrpcRoute :: Lens' AppMeshRouteRouteSpec (Maybe AppMeshRouteGrpcRoute)+amrrsGrpcRoute = lens _appMeshRouteRouteSpecGrpcRoute (\s a -> s { _appMeshRouteRouteSpecGrpcRoute = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-routespec.html#cfn-appmesh-route-routespec-http2route+amrrsHttp2Route :: Lens' AppMeshRouteRouteSpec (Maybe AppMeshRouteHttpRoute)+amrrsHttp2Route = lens _appMeshRouteRouteSpecHttp2Route (\s a -> s { _appMeshRouteRouteSpecHttp2Route = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-routespec.html#cfn-appmesh-route-routespec-httproute amrrsHttpRoute :: Lens' AppMeshRouteRouteSpec (Maybe AppMeshRouteHttpRoute)

@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-imagebuilder-accessendpoint.html++module Stratosphere.ResourceProperties.AppStreamImageBuilderAccessEndpoint where++import Stratosphere.ResourceImports+++-- | Full data type definition for AppStreamImageBuilderAccessEndpoint. See+-- 'appStreamImageBuilderAccessEndpoint' for a more convenient constructor.+data AppStreamImageBuilderAccessEndpoint =+  AppStreamImageBuilderAccessEndpoint+  { _appStreamImageBuilderAccessEndpointEndpointType :: Val Text+  , _appStreamImageBuilderAccessEndpointVpceId :: Val Text+  } deriving (Show, Eq)++instance ToJSON AppStreamImageBuilderAccessEndpoint where+  toJSON AppStreamImageBuilderAccessEndpoint{..} =+    object $+    catMaybes+    [ (Just . ("EndpointType",) . toJSON) _appStreamImageBuilderAccessEndpointEndpointType+    , (Just . ("VpceId",) . toJSON) _appStreamImageBuilderAccessEndpointVpceId+    ]++-- | Constructor for 'AppStreamImageBuilderAccessEndpoint' containing required+-- fields as arguments.+appStreamImageBuilderAccessEndpoint+  :: Val Text -- ^ 'asibaeEndpointType'+  -> Val Text -- ^ 'asibaeVpceId'+  -> AppStreamImageBuilderAccessEndpoint+appStreamImageBuilderAccessEndpoint endpointTypearg vpceIdarg =+  AppStreamImageBuilderAccessEndpoint+  { _appStreamImageBuilderAccessEndpointEndpointType = endpointTypearg+  , _appStreamImageBuilderAccessEndpointVpceId = vpceIdarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-imagebuilder-accessendpoint.html#cfn-appstream-imagebuilder-accessendpoint-endpointtype+asibaeEndpointType :: Lens' AppStreamImageBuilderAccessEndpoint (Val Text)+asibaeEndpointType = lens _appStreamImageBuilderAccessEndpointEndpointType (\s a -> s { _appStreamImageBuilderAccessEndpointEndpointType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-imagebuilder-accessendpoint.html#cfn-appstream-imagebuilder-accessendpoint-vpceid+asibaeVpceId :: Lens' AppStreamImageBuilderAccessEndpoint (Val Text)+asibaeVpceId = lens _appStreamImageBuilderAccessEndpointVpceId (\s a -> s { _appStreamImageBuilderAccessEndpointVpceId = a })

@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-stack-accessendpoint.html++module Stratosphere.ResourceProperties.AppStreamStackAccessEndpoint where++import Stratosphere.ResourceImports+++-- | Full data type definition for AppStreamStackAccessEndpoint. See+-- 'appStreamStackAccessEndpoint' for a more convenient constructor.+data AppStreamStackAccessEndpoint =+  AppStreamStackAccessEndpoint+  { _appStreamStackAccessEndpointEndpointType :: Val Text+  , _appStreamStackAccessEndpointVpceId :: Val Text+  } deriving (Show, Eq)++instance ToJSON AppStreamStackAccessEndpoint where+  toJSON AppStreamStackAccessEndpoint{..} =+    object $+    catMaybes+    [ (Just . ("EndpointType",) . toJSON) _appStreamStackAccessEndpointEndpointType+    , (Just . ("VpceId",) . toJSON) _appStreamStackAccessEndpointVpceId+    ]++-- | Constructor for 'AppStreamStackAccessEndpoint' containing required fields+-- as arguments.+appStreamStackAccessEndpoint+  :: Val Text -- ^ 'assaeEndpointType'+  -> Val Text -- ^ 'assaeVpceId'+  -> AppStreamStackAccessEndpoint+appStreamStackAccessEndpoint endpointTypearg vpceIdarg =+  AppStreamStackAccessEndpoint+  { _appStreamStackAccessEndpointEndpointType = endpointTypearg+  , _appStreamStackAccessEndpointVpceId = vpceIdarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-stack-accessendpoint.html#cfn-appstream-stack-accessendpoint-endpointtype+assaeEndpointType :: Lens' AppStreamStackAccessEndpoint (Val Text)+assaeEndpointType = lens _appStreamStackAccessEndpointEndpointType (\s a -> s { _appStreamStackAccessEndpointEndpointType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-stack-accessendpoint.html#cfn-appstream-stack-accessendpoint-vpceid+assaeVpceId :: Lens' AppStreamStackAccessEndpoint (Val Text)+assaeVpceId = lens _appStreamStackAccessEndpointVpceId (\s a -> s { _appStreamStackAccessEndpointVpceId = a })

@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codestarnotifications-notificationrule-target.html++module Stratosphere.ResourceProperties.CodeStarNotificationsNotificationRuleTarget where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- CodeStarNotificationsNotificationRuleTarget. See+-- 'codeStarNotificationsNotificationRuleTarget' for a more convenient+-- constructor.+data CodeStarNotificationsNotificationRuleTarget =+  CodeStarNotificationsNotificationRuleTarget+  { _codeStarNotificationsNotificationRuleTargetTargetAddress :: Maybe (Val Text)+  , _codeStarNotificationsNotificationRuleTargetTargetType :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON CodeStarNotificationsNotificationRuleTarget where+  toJSON CodeStarNotificationsNotificationRuleTarget{..} =+    object $+    catMaybes+    [ fmap (("TargetAddress",) . toJSON) _codeStarNotificationsNotificationRuleTargetTargetAddress+    , fmap (("TargetType",) . toJSON) _codeStarNotificationsNotificationRuleTargetTargetType+    ]++-- | Constructor for 'CodeStarNotificationsNotificationRuleTarget' containing+-- required fields as arguments.+codeStarNotificationsNotificationRuleTarget+  :: CodeStarNotificationsNotificationRuleTarget+codeStarNotificationsNotificationRuleTarget  =+  CodeStarNotificationsNotificationRuleTarget+  { _codeStarNotificationsNotificationRuleTargetTargetAddress = Nothing+  , _codeStarNotificationsNotificationRuleTargetTargetType = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codestarnotifications-notificationrule-target.html#cfn-codestarnotifications-notificationrule-target-targetaddress+csnnrtTargetAddress :: Lens' CodeStarNotificationsNotificationRuleTarget (Maybe (Val Text))+csnnrtTargetAddress = lens _codeStarNotificationsNotificationRuleTargetTargetAddress (\s a -> s { _codeStarNotificationsNotificationRuleTargetTargetAddress = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codestarnotifications-notificationrule-target.html#cfn-codestarnotifications-notificationrule-target-targettype+csnnrtTargetType :: Lens' CodeStarNotificationsNotificationRuleTarget (Maybe (Val Text))+csnnrtTargetType = lens _codeStarNotificationsNotificationRuleTargetTargetType (\s a -> s { _codeStarNotificationsNotificationRuleTargetTargetType = a })

@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-inferenceaccelerator.html++module Stratosphere.ResourceProperties.ECSTaskDefinitionInferenceAccelerator where++import Stratosphere.ResourceImports+++-- | Full data type definition for ECSTaskDefinitionInferenceAccelerator. See+-- 'ecsTaskDefinitionInferenceAccelerator' for a more convenient+-- constructor.+data ECSTaskDefinitionInferenceAccelerator =+  ECSTaskDefinitionInferenceAccelerator+  { _eCSTaskDefinitionInferenceAcceleratorDeviceName :: Maybe (Val Text)+  , _eCSTaskDefinitionInferenceAcceleratorDeviceType :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON ECSTaskDefinitionInferenceAccelerator where+  toJSON ECSTaskDefinitionInferenceAccelerator{..} =+    object $+    catMaybes+    [ fmap (("DeviceName",) . toJSON) _eCSTaskDefinitionInferenceAcceleratorDeviceName+    , fmap (("DeviceType",) . toJSON) _eCSTaskDefinitionInferenceAcceleratorDeviceType+    ]++-- | Constructor for 'ECSTaskDefinitionInferenceAccelerator' containing+-- required fields as arguments.+ecsTaskDefinitionInferenceAccelerator+  :: ECSTaskDefinitionInferenceAccelerator+ecsTaskDefinitionInferenceAccelerator  =+  ECSTaskDefinitionInferenceAccelerator+  { _eCSTaskDefinitionInferenceAcceleratorDeviceName = Nothing+  , _eCSTaskDefinitionInferenceAcceleratorDeviceType = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-inferenceaccelerator.html#cfn-ecs-taskdefinition-inferenceaccelerator-devicename+ecstdiaDeviceName :: Lens' ECSTaskDefinitionInferenceAccelerator (Maybe (Val Text))+ecstdiaDeviceName = lens _eCSTaskDefinitionInferenceAcceleratorDeviceName (\s a -> s { _eCSTaskDefinitionInferenceAcceleratorDeviceName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-inferenceaccelerator.html#cfn-ecs-taskdefinition-inferenceaccelerator-devicetype+ecstdiaDeviceType :: Lens' ECSTaskDefinitionInferenceAccelerator (Maybe (Val Text))+ecstdiaDeviceType = lens _eCSTaskDefinitionInferenceAcceleratorDeviceType (\s a -> s { _eCSTaskDefinitionInferenceAcceleratorDeviceType = a })

@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-logpublishingoption.html++module Stratosphere.ResourceProperties.ElasticsearchDomainLogPublishingOption where++import Stratosphere.ResourceImports+++-- | Full data type definition for ElasticsearchDomainLogPublishingOption. See+-- 'elasticsearchDomainLogPublishingOption' for a more convenient+-- constructor.+data ElasticsearchDomainLogPublishingOption =+  ElasticsearchDomainLogPublishingOption+  { _elasticsearchDomainLogPublishingOptionCloudWatchLogsLogGroupArn :: Maybe (Val Text)+  , _elasticsearchDomainLogPublishingOptionEnabled :: Maybe (Val Bool)+  } deriving (Show, Eq)++instance ToJSON ElasticsearchDomainLogPublishingOption where+  toJSON ElasticsearchDomainLogPublishingOption{..} =+    object $+    catMaybes+    [ fmap (("CloudWatchLogsLogGroupArn",) . toJSON) _elasticsearchDomainLogPublishingOptionCloudWatchLogsLogGroupArn+    , fmap (("Enabled",) . toJSON) _elasticsearchDomainLogPublishingOptionEnabled+    ]++-- | Constructor for 'ElasticsearchDomainLogPublishingOption' containing+-- required fields as arguments.+elasticsearchDomainLogPublishingOption+  :: ElasticsearchDomainLogPublishingOption+elasticsearchDomainLogPublishingOption  =+  ElasticsearchDomainLogPublishingOption+  { _elasticsearchDomainLogPublishingOptionCloudWatchLogsLogGroupArn = Nothing+  , _elasticsearchDomainLogPublishingOptionEnabled = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-logpublishingoption.html#cfn-elasticsearch-domain-logpublishingoption-cloudwatchlogsloggrouparn+edlpoCloudWatchLogsLogGroupArn :: Lens' ElasticsearchDomainLogPublishingOption (Maybe (Val Text))+edlpoCloudWatchLogsLogGroupArn = lens _elasticsearchDomainLogPublishingOptionCloudWatchLogsLogGroupArn (\s a -> s { _elasticsearchDomainLogPublishingOptionCloudWatchLogsLogGroupArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-logpublishingoption.html#cfn-elasticsearch-domain-logpublishingoption-enabled+edlpoEnabled :: Lens' ElasticsearchDomainLogPublishingOption (Maybe (Val Bool))+edlpoEnabled = lens _elasticsearchDomainLogPublishingOptionEnabled (\s a -> s { _elasticsearchDomainLogPublishingOptionEnabled = a })

@@ -0,0 +1,38 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-batcharrayproperties.html++module Stratosphere.ResourceProperties.EventsRuleBatchArrayProperties where++import Stratosphere.ResourceImports+++-- | Full data type definition for EventsRuleBatchArrayProperties. See+-- 'eventsRuleBatchArrayProperties' for a more convenient constructor.+data EventsRuleBatchArrayProperties =+  EventsRuleBatchArrayProperties+  { _eventsRuleBatchArrayPropertiesSize :: Maybe (Val Integer)+  } deriving (Show, Eq)++instance ToJSON EventsRuleBatchArrayProperties where+  toJSON EventsRuleBatchArrayProperties{..} =+    object $+    catMaybes+    [ fmap (("Size",) . toJSON) _eventsRuleBatchArrayPropertiesSize+    ]++-- | Constructor for 'EventsRuleBatchArrayProperties' containing required+-- fields as arguments.+eventsRuleBatchArrayProperties+  :: EventsRuleBatchArrayProperties+eventsRuleBatchArrayProperties  =+  EventsRuleBatchArrayProperties+  { _eventsRuleBatchArrayPropertiesSize = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-batcharrayproperties.html#cfn-events-rule-batcharrayproperties-size+erbapSize :: Lens' EventsRuleBatchArrayProperties (Maybe (Val Integer))+erbapSize = lens _eventsRuleBatchArrayPropertiesSize (\s a -> s { _eventsRuleBatchArrayPropertiesSize = a })

@@ -0,0 +1,62 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-batchparameters.html++module Stratosphere.ResourceProperties.EventsRuleBatchParameters where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.EventsRuleBatchArrayProperties+import Stratosphere.ResourceProperties.EventsRuleBatchRetryStrategy++-- | Full data type definition for EventsRuleBatchParameters. See+-- 'eventsRuleBatchParameters' for a more convenient constructor.+data EventsRuleBatchParameters =+  EventsRuleBatchParameters+  { _eventsRuleBatchParametersArrayProperties :: Maybe EventsRuleBatchArrayProperties+  , _eventsRuleBatchParametersJobDefinition :: Val Text+  , _eventsRuleBatchParametersJobName :: Val Text+  , _eventsRuleBatchParametersRetryStrategy :: Maybe EventsRuleBatchRetryStrategy+  } deriving (Show, Eq)++instance ToJSON EventsRuleBatchParameters where+  toJSON EventsRuleBatchParameters{..} =+    object $+    catMaybes+    [ fmap (("ArrayProperties",) . toJSON) _eventsRuleBatchParametersArrayProperties+    , (Just . ("JobDefinition",) . toJSON) _eventsRuleBatchParametersJobDefinition+    , (Just . ("JobName",) . toJSON) _eventsRuleBatchParametersJobName+    , fmap (("RetryStrategy",) . toJSON) _eventsRuleBatchParametersRetryStrategy+    ]++-- | Constructor for 'EventsRuleBatchParameters' containing required fields as+-- arguments.+eventsRuleBatchParameters+  :: Val Text -- ^ 'erbpJobDefinition'+  -> Val Text -- ^ 'erbpJobName'+  -> EventsRuleBatchParameters+eventsRuleBatchParameters jobDefinitionarg jobNamearg =+  EventsRuleBatchParameters+  { _eventsRuleBatchParametersArrayProperties = Nothing+  , _eventsRuleBatchParametersJobDefinition = jobDefinitionarg+  , _eventsRuleBatchParametersJobName = jobNamearg+  , _eventsRuleBatchParametersRetryStrategy = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-batchparameters.html#cfn-events-rule-batchparameters-arrayproperties+erbpArrayProperties :: Lens' EventsRuleBatchParameters (Maybe EventsRuleBatchArrayProperties)+erbpArrayProperties = lens _eventsRuleBatchParametersArrayProperties (\s a -> s { _eventsRuleBatchParametersArrayProperties = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-batchparameters.html#cfn-events-rule-batchparameters-jobdefinition+erbpJobDefinition :: Lens' EventsRuleBatchParameters (Val Text)+erbpJobDefinition = lens _eventsRuleBatchParametersJobDefinition (\s a -> s { _eventsRuleBatchParametersJobDefinition = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-batchparameters.html#cfn-events-rule-batchparameters-jobname+erbpJobName :: Lens' EventsRuleBatchParameters (Val Text)+erbpJobName = lens _eventsRuleBatchParametersJobName (\s a -> s { _eventsRuleBatchParametersJobName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-batchparameters.html#cfn-events-rule-batchparameters-retrystrategy+erbpRetryStrategy :: Lens' EventsRuleBatchParameters (Maybe EventsRuleBatchRetryStrategy)+erbpRetryStrategy = lens _eventsRuleBatchParametersRetryStrategy (\s a -> s { _eventsRuleBatchParametersRetryStrategy = a })

@@ -0,0 +1,38 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-batchretrystrategy.html++module Stratosphere.ResourceProperties.EventsRuleBatchRetryStrategy where++import Stratosphere.ResourceImports+++-- | Full data type definition for EventsRuleBatchRetryStrategy. See+-- 'eventsRuleBatchRetryStrategy' for a more convenient constructor.+data EventsRuleBatchRetryStrategy =+  EventsRuleBatchRetryStrategy+  { _eventsRuleBatchRetryStrategyAttempts :: Maybe (Val Integer)+  } deriving (Show, Eq)++instance ToJSON EventsRuleBatchRetryStrategy where+  toJSON EventsRuleBatchRetryStrategy{..} =+    object $+    catMaybes+    [ fmap (("Attempts",) . toJSON) _eventsRuleBatchRetryStrategyAttempts+    ]++-- | Constructor for 'EventsRuleBatchRetryStrategy' containing required fields+-- as arguments.+eventsRuleBatchRetryStrategy+  :: EventsRuleBatchRetryStrategy+eventsRuleBatchRetryStrategy  =+  EventsRuleBatchRetryStrategy+  { _eventsRuleBatchRetryStrategyAttempts = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-batchretrystrategy.html#cfn-events-rule-batchretrystrategy-attempts+erbrsAttempts :: Lens' EventsRuleBatchRetryStrategy (Maybe (Val Integer))+erbrsAttempts = lens _eventsRuleBatchRetryStrategyAttempts (\s a -> s { _eventsRuleBatchRetryStrategyAttempts = a })

@@ -8,6 +8,7 @@ module Stratosphere.ResourceProperties.EventsRuleTarget where  import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.EventsRuleBatchParameters import Stratosphere.ResourceProperties.EventsRuleEcsParameters import Stratosphere.ResourceProperties.EventsRuleInputTransformer import Stratosphere.ResourceProperties.EventsRuleKinesisParameters@@ -19,6 +20,7 @@ data EventsRuleTarget =   EventsRuleTarget   { _eventsRuleTargetArn :: Val Text+  , _eventsRuleTargetBatchParameters :: Maybe EventsRuleBatchParameters   , _eventsRuleTargetEcsParameters :: Maybe EventsRuleEcsParameters   , _eventsRuleTargetId :: Val Text   , _eventsRuleTargetInput :: Maybe (Val Text)@@ -35,6 +37,7 @@     object $     catMaybes     [ (Just . ("Arn",) . toJSON) _eventsRuleTargetArn+    , fmap (("BatchParameters",) . toJSON) _eventsRuleTargetBatchParameters     , fmap (("EcsParameters",) . toJSON) _eventsRuleTargetEcsParameters     , (Just . ("Id",) . toJSON) _eventsRuleTargetId     , fmap (("Input",) . toJSON) _eventsRuleTargetInput@@ -55,6 +58,7 @@ eventsRuleTarget arnarg idarg =   EventsRuleTarget   { _eventsRuleTargetArn = arnarg+  , _eventsRuleTargetBatchParameters = Nothing   , _eventsRuleTargetEcsParameters = Nothing   , _eventsRuleTargetId = idarg   , _eventsRuleTargetInput = Nothing@@ -69,6 +73,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-target.html#cfn-events-rule-target-arn ertArn :: Lens' EventsRuleTarget (Val Text) ertArn = lens _eventsRuleTargetArn (\s a -> s { _eventsRuleTargetArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-target.html#cfn-events-rule-target-batchparameters+ertBatchParameters :: Lens' EventsRuleTarget (Maybe EventsRuleBatchParameters)+ertBatchParameters = lens _eventsRuleTargetBatchParameters (\s a -> s { _eventsRuleTargetBatchParameters = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-target.html#cfn-events-rule-target-ecsparameters ertEcsParameters :: Lens' EventsRuleTarget (Maybe EventsRuleEcsParameters)

@@ -16,6 +16,7 @@   GameLiftBuildS3Location   { _gameLiftBuildS3LocationBucket :: Val Text   , _gameLiftBuildS3LocationKey :: Val Text+  , _gameLiftBuildS3LocationObjectVersion :: Maybe (Val Text)   , _gameLiftBuildS3LocationRoleArn :: Val Text   } deriving (Show, Eq) @@ -25,6 +26,7 @@     catMaybes     [ (Just . ("Bucket",) . toJSON) _gameLiftBuildS3LocationBucket     , (Just . ("Key",) . toJSON) _gameLiftBuildS3LocationKey+    , fmap (("ObjectVersion",) . toJSON) _gameLiftBuildS3LocationObjectVersion     , (Just . ("RoleArn",) . toJSON) _gameLiftBuildS3LocationRoleArn     ] @@ -39,6 +41,7 @@   GameLiftBuildS3Location   { _gameLiftBuildS3LocationBucket = bucketarg   , _gameLiftBuildS3LocationKey = keyarg+  , _gameLiftBuildS3LocationObjectVersion = Nothing   , _gameLiftBuildS3LocationRoleArn = roleArnarg   } @@ -49,6 +52,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-build-storagelocation.html#cfn-gamelift-build-storage-key glbslKey :: Lens' GameLiftBuildS3Location (Val Text) glbslKey = lens _gameLiftBuildS3LocationKey (\s a -> s { _gameLiftBuildS3LocationKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-build-storagelocation.html#cfn-gamelift-build-object-verison+glbslObjectVersion :: Lens' GameLiftBuildS3Location (Maybe (Val Text))+glbslObjectVersion = lens _gameLiftBuildS3LocationObjectVersion (\s a -> s { _gameLiftBuildS3LocationObjectVersion = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-build-storagelocation.html#cfn-gamelift-build-storage-rolearn glbslRoleArn :: Lens' GameLiftBuildS3Location (Val Text)

@@ -0,0 +1,40 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-fleet-certificateconfiguration.html++module Stratosphere.ResourceProperties.GameLiftFleetCertificateConfiguration where++import Stratosphere.ResourceImports+++-- | Full data type definition for GameLiftFleetCertificateConfiguration. See+-- 'gameLiftFleetCertificateConfiguration' for a more convenient+-- constructor.+data GameLiftFleetCertificateConfiguration =+  GameLiftFleetCertificateConfiguration+  { _gameLiftFleetCertificateConfigurationCertificateType :: Val Text+  } deriving (Show, Eq)++instance ToJSON GameLiftFleetCertificateConfiguration where+  toJSON GameLiftFleetCertificateConfiguration{..} =+    object $+    catMaybes+    [ (Just . ("CertificateType",) . toJSON) _gameLiftFleetCertificateConfigurationCertificateType+    ]++-- | Constructor for 'GameLiftFleetCertificateConfiguration' containing+-- required fields as arguments.+gameLiftFleetCertificateConfiguration+  :: Val Text -- ^ 'glfccCertificateType'+  -> GameLiftFleetCertificateConfiguration+gameLiftFleetCertificateConfiguration certificateTypearg =+  GameLiftFleetCertificateConfiguration+  { _gameLiftFleetCertificateConfigurationCertificateType = certificateTypearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-fleet-certificateconfiguration.html#cfn-gamelift-fleet-certificateconfiguration-certificatetype+glfccCertificateType :: Lens' GameLiftFleetCertificateConfiguration (Val Text)+glfccCertificateType = lens _gameLiftFleetCertificateConfigurationCertificateType (\s a -> s { _gameLiftFleetCertificateConfigurationCertificateType = a })

@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-fleet-resourcecreationlimitpolicy.html++module Stratosphere.ResourceProperties.GameLiftFleetResourceCreationLimitPolicy where++import Stratosphere.ResourceImports+++-- | Full data type definition for GameLiftFleetResourceCreationLimitPolicy.+-- See 'gameLiftFleetResourceCreationLimitPolicy' for a more convenient+-- constructor.+data GameLiftFleetResourceCreationLimitPolicy =+  GameLiftFleetResourceCreationLimitPolicy+  { _gameLiftFleetResourceCreationLimitPolicyNewGameSessionsPerCreator :: Maybe (Val Integer)+  , _gameLiftFleetResourceCreationLimitPolicyPolicyPeriodInMinutes :: Maybe (Val Integer)+  } deriving (Show, Eq)++instance ToJSON GameLiftFleetResourceCreationLimitPolicy where+  toJSON GameLiftFleetResourceCreationLimitPolicy{..} =+    object $+    catMaybes+    [ fmap (("NewGameSessionsPerCreator",) . toJSON) _gameLiftFleetResourceCreationLimitPolicyNewGameSessionsPerCreator+    , fmap (("PolicyPeriodInMinutes",) . toJSON) _gameLiftFleetResourceCreationLimitPolicyPolicyPeriodInMinutes+    ]++-- | Constructor for 'GameLiftFleetResourceCreationLimitPolicy' containing+-- required fields as arguments.+gameLiftFleetResourceCreationLimitPolicy+  :: GameLiftFleetResourceCreationLimitPolicy+gameLiftFleetResourceCreationLimitPolicy  =+  GameLiftFleetResourceCreationLimitPolicy+  { _gameLiftFleetResourceCreationLimitPolicyNewGameSessionsPerCreator = Nothing+  , _gameLiftFleetResourceCreationLimitPolicyPolicyPeriodInMinutes = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-fleet-resourcecreationlimitpolicy.html#cfn-gamelift-fleet-resourcecreationlimitpolicy-newgamesessionspercreator+glfrclpNewGameSessionsPerCreator :: Lens' GameLiftFleetResourceCreationLimitPolicy (Maybe (Val Integer))+glfrclpNewGameSessionsPerCreator = lens _gameLiftFleetResourceCreationLimitPolicyNewGameSessionsPerCreator (\s a -> s { _gameLiftFleetResourceCreationLimitPolicyNewGameSessionsPerCreator = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-fleet-resourcecreationlimitpolicy.html#cfn-gamelift-fleet-resourcecreationlimitpolicy-policyperiodinminutes+glfrclpPolicyPeriodInMinutes :: Lens' GameLiftFleetResourceCreationLimitPolicy (Maybe (Val Integer))+glfrclpPolicyPeriodInMinutes = lens _gameLiftFleetResourceCreationLimitPolicyPolicyPeriodInMinutes (\s a -> s { _gameLiftFleetResourceCreationLimitPolicyPolicyPeriodInMinutes = a })

@@ -0,0 +1,52 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-fleet-runtimeconfiguration.html++module Stratosphere.ResourceProperties.GameLiftFleetRuntimeConfiguration where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.GameLiftFleetServerProcess++-- | Full data type definition for GameLiftFleetRuntimeConfiguration. See+-- 'gameLiftFleetRuntimeConfiguration' for a more convenient constructor.+data GameLiftFleetRuntimeConfiguration =+  GameLiftFleetRuntimeConfiguration+  { _gameLiftFleetRuntimeConfigurationGameSessionActivationTimeoutSeconds :: Maybe (Val Integer)+  , _gameLiftFleetRuntimeConfigurationMaxConcurrentGameSessionActivations :: Maybe (Val Integer)+  , _gameLiftFleetRuntimeConfigurationServerProcesses :: Maybe [GameLiftFleetServerProcess]+  } deriving (Show, Eq)++instance ToJSON GameLiftFleetRuntimeConfiguration where+  toJSON GameLiftFleetRuntimeConfiguration{..} =+    object $+    catMaybes+    [ fmap (("GameSessionActivationTimeoutSeconds",) . toJSON) _gameLiftFleetRuntimeConfigurationGameSessionActivationTimeoutSeconds+    , fmap (("MaxConcurrentGameSessionActivations",) . toJSON) _gameLiftFleetRuntimeConfigurationMaxConcurrentGameSessionActivations+    , fmap (("ServerProcesses",) . toJSON) _gameLiftFleetRuntimeConfigurationServerProcesses+    ]++-- | Constructor for 'GameLiftFleetRuntimeConfiguration' containing required+-- fields as arguments.+gameLiftFleetRuntimeConfiguration+  :: GameLiftFleetRuntimeConfiguration+gameLiftFleetRuntimeConfiguration  =+  GameLiftFleetRuntimeConfiguration+  { _gameLiftFleetRuntimeConfigurationGameSessionActivationTimeoutSeconds = Nothing+  , _gameLiftFleetRuntimeConfigurationMaxConcurrentGameSessionActivations = Nothing+  , _gameLiftFleetRuntimeConfigurationServerProcesses = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-fleet-runtimeconfiguration.html#cfn-gamelift-fleet-runtimeconfiguration-gamesessionactivationtimeoutseconds+glfrcGameSessionActivationTimeoutSeconds :: Lens' GameLiftFleetRuntimeConfiguration (Maybe (Val Integer))+glfrcGameSessionActivationTimeoutSeconds = lens _gameLiftFleetRuntimeConfigurationGameSessionActivationTimeoutSeconds (\s a -> s { _gameLiftFleetRuntimeConfigurationGameSessionActivationTimeoutSeconds = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-fleet-runtimeconfiguration.html#cfn-gamelift-fleet-runtimeconfiguration-maxconcurrentgamesessionactivations+glfrcMaxConcurrentGameSessionActivations :: Lens' GameLiftFleetRuntimeConfiguration (Maybe (Val Integer))+glfrcMaxConcurrentGameSessionActivations = lens _gameLiftFleetRuntimeConfigurationMaxConcurrentGameSessionActivations (\s a -> s { _gameLiftFleetRuntimeConfigurationMaxConcurrentGameSessionActivations = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-fleet-runtimeconfiguration.html#cfn-gamelift-fleet-runtimeconfiguration-serverprocesses+glfrcServerProcesses :: Lens' GameLiftFleetRuntimeConfiguration (Maybe [GameLiftFleetServerProcess])+glfrcServerProcesses = lens _gameLiftFleetRuntimeConfigurationServerProcesses (\s a -> s { _gameLiftFleetRuntimeConfigurationServerProcesses = a })

@@ -0,0 +1,54 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-fleet-serverprocess.html++module Stratosphere.ResourceProperties.GameLiftFleetServerProcess where++import Stratosphere.ResourceImports+++-- | Full data type definition for GameLiftFleetServerProcess. See+-- 'gameLiftFleetServerProcess' for a more convenient constructor.+data GameLiftFleetServerProcess =+  GameLiftFleetServerProcess+  { _gameLiftFleetServerProcessConcurrentExecutions :: Val Integer+  , _gameLiftFleetServerProcessLaunchPath :: Val Text+  , _gameLiftFleetServerProcessParameters :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON GameLiftFleetServerProcess where+  toJSON GameLiftFleetServerProcess{..} =+    object $+    catMaybes+    [ (Just . ("ConcurrentExecutions",) . toJSON) _gameLiftFleetServerProcessConcurrentExecutions+    , (Just . ("LaunchPath",) . toJSON) _gameLiftFleetServerProcessLaunchPath+    , fmap (("Parameters",) . toJSON) _gameLiftFleetServerProcessParameters+    ]++-- | Constructor for 'GameLiftFleetServerProcess' containing required fields+-- as arguments.+gameLiftFleetServerProcess+  :: Val Integer -- ^ 'glfspConcurrentExecutions'+  -> Val Text -- ^ 'glfspLaunchPath'+  -> GameLiftFleetServerProcess+gameLiftFleetServerProcess concurrentExecutionsarg launchPatharg =+  GameLiftFleetServerProcess+  { _gameLiftFleetServerProcessConcurrentExecutions = concurrentExecutionsarg+  , _gameLiftFleetServerProcessLaunchPath = launchPatharg+  , _gameLiftFleetServerProcessParameters = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-fleet-serverprocess.html#cfn-gamelift-fleet-serverprocess-concurrentexecutions+glfspConcurrentExecutions :: Lens' GameLiftFleetServerProcess (Val Integer)+glfspConcurrentExecutions = lens _gameLiftFleetServerProcessConcurrentExecutions (\s a -> s { _gameLiftFleetServerProcessConcurrentExecutions = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-fleet-serverprocess.html#cfn-gamelift-fleet-serverprocess-launchpath+glfspLaunchPath :: Lens' GameLiftFleetServerProcess (Val Text)+glfspLaunchPath = lens _gameLiftFleetServerProcessLaunchPath (\s a -> s { _gameLiftFleetServerProcessLaunchPath = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-fleet-serverprocess.html#cfn-gamelift-fleet-serverprocess-parameters+glfspParameters :: Lens' GameLiftFleetServerProcess (Maybe (Val Text))+glfspParameters = lens _gameLiftFleetServerProcessParameters (\s a -> s { _gameLiftFleetServerProcessParameters = a })

@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-catalogtarget.html++module Stratosphere.ResourceProperties.GlueCrawlerCatalogTarget where++import Stratosphere.ResourceImports+++-- | Full data type definition for GlueCrawlerCatalogTarget. See+-- 'glueCrawlerCatalogTarget' for a more convenient constructor.+data GlueCrawlerCatalogTarget =+  GlueCrawlerCatalogTarget+  { _glueCrawlerCatalogTargetDatabaseName :: Maybe (Val Text)+  , _glueCrawlerCatalogTargetTables :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON GlueCrawlerCatalogTarget where+  toJSON GlueCrawlerCatalogTarget{..} =+    object $+    catMaybes+    [ fmap (("DatabaseName",) . toJSON) _glueCrawlerCatalogTargetDatabaseName+    , fmap (("Tables",) . toJSON) _glueCrawlerCatalogTargetTables+    ]++-- | Constructor for 'GlueCrawlerCatalogTarget' containing required fields as+-- arguments.+glueCrawlerCatalogTarget+  :: GlueCrawlerCatalogTarget+glueCrawlerCatalogTarget  =+  GlueCrawlerCatalogTarget+  { _glueCrawlerCatalogTargetDatabaseName = Nothing+  , _glueCrawlerCatalogTargetTables = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-catalogtarget.html#cfn-glue-crawler-catalogtarget-databasename+gcctDatabaseName :: Lens' GlueCrawlerCatalogTarget (Maybe (Val Text))+gcctDatabaseName = lens _glueCrawlerCatalogTargetDatabaseName (\s a -> s { _glueCrawlerCatalogTargetDatabaseName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-catalogtarget.html#cfn-glue-crawler-catalogtarget-tables+gcctTables :: Lens' GlueCrawlerCatalogTarget (Maybe (ValList Text))+gcctTables = lens _glueCrawlerCatalogTargetTables (\s a -> s { _glueCrawlerCatalogTargetTables = a })

@@ -0,0 +1,38 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-dynamodbtarget.html++module Stratosphere.ResourceProperties.GlueCrawlerDynamoDBTarget where++import Stratosphere.ResourceImports+++-- | Full data type definition for GlueCrawlerDynamoDBTarget. See+-- 'glueCrawlerDynamoDBTarget' for a more convenient constructor.+data GlueCrawlerDynamoDBTarget =+  GlueCrawlerDynamoDBTarget+  { _glueCrawlerDynamoDBTargetPath :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON GlueCrawlerDynamoDBTarget where+  toJSON GlueCrawlerDynamoDBTarget{..} =+    object $+    catMaybes+    [ fmap (("Path",) . toJSON) _glueCrawlerDynamoDBTargetPath+    ]++-- | Constructor for 'GlueCrawlerDynamoDBTarget' containing required fields as+-- arguments.+glueCrawlerDynamoDBTarget+  :: GlueCrawlerDynamoDBTarget+glueCrawlerDynamoDBTarget  =+  GlueCrawlerDynamoDBTarget+  { _glueCrawlerDynamoDBTargetPath = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-dynamodbtarget.html#cfn-glue-crawler-dynamodbtarget-path+gcddbtPath :: Lens' GlueCrawlerDynamoDBTarget (Maybe (Val Text))+gcddbtPath = lens _glueCrawlerDynamoDBTargetPath (\s a -> s { _glueCrawlerDynamoDBTargetPath = a })

@@ -8,6 +8,8 @@ module Stratosphere.ResourceProperties.GlueCrawlerTargets where  import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.GlueCrawlerCatalogTarget+import Stratosphere.ResourceProperties.GlueCrawlerDynamoDBTarget import Stratosphere.ResourceProperties.GlueCrawlerJdbcTarget import Stratosphere.ResourceProperties.GlueCrawlerS3Target @@ -15,7 +17,9 @@ -- 'glueCrawlerTargets' for a more convenient constructor. data GlueCrawlerTargets =   GlueCrawlerTargets-  { _glueCrawlerTargetsJdbcTargets :: Maybe [GlueCrawlerJdbcTarget]+  { _glueCrawlerTargetsCatalogTargets :: Maybe [GlueCrawlerCatalogTarget]+  , _glueCrawlerTargetsDynamoDBTargets :: Maybe [GlueCrawlerDynamoDBTarget]+  , _glueCrawlerTargetsJdbcTargets :: Maybe [GlueCrawlerJdbcTarget]   , _glueCrawlerTargetsS3Targets :: Maybe [GlueCrawlerS3Target]   } deriving (Show, Eq) @@ -23,7 +27,9 @@   toJSON GlueCrawlerTargets{..} =     object $     catMaybes-    [ fmap (("JdbcTargets",) . toJSON) _glueCrawlerTargetsJdbcTargets+    [ fmap (("CatalogTargets",) . toJSON) _glueCrawlerTargetsCatalogTargets+    , fmap (("DynamoDBTargets",) . toJSON) _glueCrawlerTargetsDynamoDBTargets+    , fmap (("JdbcTargets",) . toJSON) _glueCrawlerTargetsJdbcTargets     , fmap (("S3Targets",) . toJSON) _glueCrawlerTargetsS3Targets     ] @@ -33,9 +39,19 @@   :: GlueCrawlerTargets glueCrawlerTargets  =   GlueCrawlerTargets-  { _glueCrawlerTargetsJdbcTargets = Nothing+  { _glueCrawlerTargetsCatalogTargets = Nothing+  , _glueCrawlerTargetsDynamoDBTargets = Nothing+  , _glueCrawlerTargetsJdbcTargets = Nothing   , _glueCrawlerTargetsS3Targets = Nothing   }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-targets.html#cfn-glue-crawler-targets-catalogtargets+gctCatalogTargets :: Lens' GlueCrawlerTargets (Maybe [GlueCrawlerCatalogTarget])+gctCatalogTargets = lens _glueCrawlerTargetsCatalogTargets (\s a -> s { _glueCrawlerTargetsCatalogTargets = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-targets.html#cfn-glue-crawler-targets-dynamodbtargets+gctDynamoDBTargets :: Lens' GlueCrawlerTargets (Maybe [GlueCrawlerDynamoDBTarget])+gctDynamoDBTargets = lens _glueCrawlerTargetsDynamoDBTargets (\s a -> s { _glueCrawlerTargetsDynamoDBTargets = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-targets.html#cfn-glue-crawler-targets-jdbctargets gctJdbcTargets :: Lens' GlueCrawlerTargets (Maybe [GlueCrawlerJdbcTarget])

@@ -0,0 +1,41 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mediaconvert-jobtemplate-accelerationsettings.html++module Stratosphere.ResourceProperties.MediaConvertJobTemplateAccelerationSettings where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- MediaConvertJobTemplateAccelerationSettings. See+-- 'mediaConvertJobTemplateAccelerationSettings' for a more convenient+-- constructor.+data MediaConvertJobTemplateAccelerationSettings =+  MediaConvertJobTemplateAccelerationSettings+  { _mediaConvertJobTemplateAccelerationSettingsMode :: Val Text+  } deriving (Show, Eq)++instance ToJSON MediaConvertJobTemplateAccelerationSettings where+  toJSON MediaConvertJobTemplateAccelerationSettings{..} =+    object $+    catMaybes+    [ (Just . ("Mode",) . toJSON) _mediaConvertJobTemplateAccelerationSettingsMode+    ]++-- | Constructor for 'MediaConvertJobTemplateAccelerationSettings' containing+-- required fields as arguments.+mediaConvertJobTemplateAccelerationSettings+  :: Val Text -- ^ 'mcjtasMode'+  -> MediaConvertJobTemplateAccelerationSettings+mediaConvertJobTemplateAccelerationSettings modearg =+  MediaConvertJobTemplateAccelerationSettings+  { _mediaConvertJobTemplateAccelerationSettingsMode = modearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mediaconvert-jobtemplate-accelerationsettings.html#cfn-mediaconvert-jobtemplate-accelerationsettings-mode+mcjtasMode :: Lens' MediaConvertJobTemplateAccelerationSettings (Val Text)+mcjtasMode = lens _mediaConvertJobTemplateAccelerationSettingsMode (\s a -> s { _mediaConvertJobTemplateAccelerationSettingsMode = a })

@@ -0,0 +1,75 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-apnspushnotificationtemplate.html++module Stratosphere.ResourceProperties.PinpointPushTemplateAPNSPushNotificationTemplate where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- PinpointPushTemplateAPNSPushNotificationTemplate. See+-- 'pinpointPushTemplateAPNSPushNotificationTemplate' for a more convenient+-- constructor.+data PinpointPushTemplateAPNSPushNotificationTemplate =+  PinpointPushTemplateAPNSPushNotificationTemplate+  { _pinpointPushTemplateAPNSPushNotificationTemplateAction :: Maybe (Val Text)+  , _pinpointPushTemplateAPNSPushNotificationTemplateBody :: Maybe (Val Text)+  , _pinpointPushTemplateAPNSPushNotificationTemplateMediaUrl :: Maybe (Val Text)+  , _pinpointPushTemplateAPNSPushNotificationTemplateSound :: Maybe (Val Text)+  , _pinpointPushTemplateAPNSPushNotificationTemplateTitle :: Maybe (Val Text)+  , _pinpointPushTemplateAPNSPushNotificationTemplateUrl :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON PinpointPushTemplateAPNSPushNotificationTemplate where+  toJSON PinpointPushTemplateAPNSPushNotificationTemplate{..} =+    object $+    catMaybes+    [ fmap (("Action",) . toJSON) _pinpointPushTemplateAPNSPushNotificationTemplateAction+    , fmap (("Body",) . toJSON) _pinpointPushTemplateAPNSPushNotificationTemplateBody+    , fmap (("MediaUrl",) . toJSON) _pinpointPushTemplateAPNSPushNotificationTemplateMediaUrl+    , fmap (("Sound",) . toJSON) _pinpointPushTemplateAPNSPushNotificationTemplateSound+    , fmap (("Title",) . toJSON) _pinpointPushTemplateAPNSPushNotificationTemplateTitle+    , fmap (("Url",) . toJSON) _pinpointPushTemplateAPNSPushNotificationTemplateUrl+    ]++-- | Constructor for 'PinpointPushTemplateAPNSPushNotificationTemplate'+-- containing required fields as arguments.+pinpointPushTemplateAPNSPushNotificationTemplate+  :: PinpointPushTemplateAPNSPushNotificationTemplate+pinpointPushTemplateAPNSPushNotificationTemplate  =+  PinpointPushTemplateAPNSPushNotificationTemplate+  { _pinpointPushTemplateAPNSPushNotificationTemplateAction = Nothing+  , _pinpointPushTemplateAPNSPushNotificationTemplateBody = Nothing+  , _pinpointPushTemplateAPNSPushNotificationTemplateMediaUrl = Nothing+  , _pinpointPushTemplateAPNSPushNotificationTemplateSound = Nothing+  , _pinpointPushTemplateAPNSPushNotificationTemplateTitle = Nothing+  , _pinpointPushTemplateAPNSPushNotificationTemplateUrl = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-apnspushnotificationtemplate.html#cfn-pinpoint-pushtemplate-apnspushnotificationtemplate-action+pptapnspntAction :: Lens' PinpointPushTemplateAPNSPushNotificationTemplate (Maybe (Val Text))+pptapnspntAction = lens _pinpointPushTemplateAPNSPushNotificationTemplateAction (\s a -> s { _pinpointPushTemplateAPNSPushNotificationTemplateAction = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-apnspushnotificationtemplate.html#cfn-pinpoint-pushtemplate-apnspushnotificationtemplate-body+pptapnspntBody :: Lens' PinpointPushTemplateAPNSPushNotificationTemplate (Maybe (Val Text))+pptapnspntBody = lens _pinpointPushTemplateAPNSPushNotificationTemplateBody (\s a -> s { _pinpointPushTemplateAPNSPushNotificationTemplateBody = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-apnspushnotificationtemplate.html#cfn-pinpoint-pushtemplate-apnspushnotificationtemplate-mediaurl+pptapnspntMediaUrl :: Lens' PinpointPushTemplateAPNSPushNotificationTemplate (Maybe (Val Text))+pptapnspntMediaUrl = lens _pinpointPushTemplateAPNSPushNotificationTemplateMediaUrl (\s a -> s { _pinpointPushTemplateAPNSPushNotificationTemplateMediaUrl = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-apnspushnotificationtemplate.html#cfn-pinpoint-pushtemplate-apnspushnotificationtemplate-sound+pptapnspntSound :: Lens' PinpointPushTemplateAPNSPushNotificationTemplate (Maybe (Val Text))+pptapnspntSound = lens _pinpointPushTemplateAPNSPushNotificationTemplateSound (\s a -> s { _pinpointPushTemplateAPNSPushNotificationTemplateSound = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-apnspushnotificationtemplate.html#cfn-pinpoint-pushtemplate-apnspushnotificationtemplate-title+pptapnspntTitle :: Lens' PinpointPushTemplateAPNSPushNotificationTemplate (Maybe (Val Text))+pptapnspntTitle = lens _pinpointPushTemplateAPNSPushNotificationTemplateTitle (\s a -> s { _pinpointPushTemplateAPNSPushNotificationTemplateTitle = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-apnspushnotificationtemplate.html#cfn-pinpoint-pushtemplate-apnspushnotificationtemplate-url+pptapnspntUrl :: Lens' PinpointPushTemplateAPNSPushNotificationTemplate (Maybe (Val Text))+pptapnspntUrl = lens _pinpointPushTemplateAPNSPushNotificationTemplateUrl (\s a -> s { _pinpointPushTemplateAPNSPushNotificationTemplateUrl = a })

@@ -0,0 +1,89 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-androidpushnotificationtemplate.html++module Stratosphere.ResourceProperties.PinpointPushTemplateAndroidPushNotificationTemplate where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- PinpointPushTemplateAndroidPushNotificationTemplate. See+-- 'pinpointPushTemplateAndroidPushNotificationTemplate' for a more+-- convenient constructor.+data PinpointPushTemplateAndroidPushNotificationTemplate =+  PinpointPushTemplateAndroidPushNotificationTemplate+  { _pinpointPushTemplateAndroidPushNotificationTemplateAction :: Maybe (Val Text)+  , _pinpointPushTemplateAndroidPushNotificationTemplateBody :: Maybe (Val Text)+  , _pinpointPushTemplateAndroidPushNotificationTemplateImageIconUrl :: Maybe (Val Text)+  , _pinpointPushTemplateAndroidPushNotificationTemplateImageUrl :: Maybe (Val Text)+  , _pinpointPushTemplateAndroidPushNotificationTemplateSmallImageIconUrl :: Maybe (Val Text)+  , _pinpointPushTemplateAndroidPushNotificationTemplateSound :: Maybe (Val Text)+  , _pinpointPushTemplateAndroidPushNotificationTemplateTitle :: Maybe (Val Text)+  , _pinpointPushTemplateAndroidPushNotificationTemplateUrl :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON PinpointPushTemplateAndroidPushNotificationTemplate where+  toJSON PinpointPushTemplateAndroidPushNotificationTemplate{..} =+    object $+    catMaybes+    [ fmap (("Action",) . toJSON) _pinpointPushTemplateAndroidPushNotificationTemplateAction+    , fmap (("Body",) . toJSON) _pinpointPushTemplateAndroidPushNotificationTemplateBody+    , fmap (("ImageIconUrl",) . toJSON) _pinpointPushTemplateAndroidPushNotificationTemplateImageIconUrl+    , fmap (("ImageUrl",) . toJSON) _pinpointPushTemplateAndroidPushNotificationTemplateImageUrl+    , fmap (("SmallImageIconUrl",) . toJSON) _pinpointPushTemplateAndroidPushNotificationTemplateSmallImageIconUrl+    , fmap (("Sound",) . toJSON) _pinpointPushTemplateAndroidPushNotificationTemplateSound+    , fmap (("Title",) . toJSON) _pinpointPushTemplateAndroidPushNotificationTemplateTitle+    , fmap (("Url",) . toJSON) _pinpointPushTemplateAndroidPushNotificationTemplateUrl+    ]++-- | Constructor for 'PinpointPushTemplateAndroidPushNotificationTemplate'+-- containing required fields as arguments.+pinpointPushTemplateAndroidPushNotificationTemplate+  :: PinpointPushTemplateAndroidPushNotificationTemplate+pinpointPushTemplateAndroidPushNotificationTemplate  =+  PinpointPushTemplateAndroidPushNotificationTemplate+  { _pinpointPushTemplateAndroidPushNotificationTemplateAction = Nothing+  , _pinpointPushTemplateAndroidPushNotificationTemplateBody = Nothing+  , _pinpointPushTemplateAndroidPushNotificationTemplateImageIconUrl = Nothing+  , _pinpointPushTemplateAndroidPushNotificationTemplateImageUrl = Nothing+  , _pinpointPushTemplateAndroidPushNotificationTemplateSmallImageIconUrl = Nothing+  , _pinpointPushTemplateAndroidPushNotificationTemplateSound = Nothing+  , _pinpointPushTemplateAndroidPushNotificationTemplateTitle = Nothing+  , _pinpointPushTemplateAndroidPushNotificationTemplateUrl = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-androidpushnotificationtemplate.html#cfn-pinpoint-pushtemplate-androidpushnotificationtemplate-action+pptapntAction :: Lens' PinpointPushTemplateAndroidPushNotificationTemplate (Maybe (Val Text))+pptapntAction = lens _pinpointPushTemplateAndroidPushNotificationTemplateAction (\s a -> s { _pinpointPushTemplateAndroidPushNotificationTemplateAction = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-androidpushnotificationtemplate.html#cfn-pinpoint-pushtemplate-androidpushnotificationtemplate-body+pptapntBody :: Lens' PinpointPushTemplateAndroidPushNotificationTemplate (Maybe (Val Text))+pptapntBody = lens _pinpointPushTemplateAndroidPushNotificationTemplateBody (\s a -> s { _pinpointPushTemplateAndroidPushNotificationTemplateBody = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-androidpushnotificationtemplate.html#cfn-pinpoint-pushtemplate-androidpushnotificationtemplate-imageiconurl+pptapntImageIconUrl :: Lens' PinpointPushTemplateAndroidPushNotificationTemplate (Maybe (Val Text))+pptapntImageIconUrl = lens _pinpointPushTemplateAndroidPushNotificationTemplateImageIconUrl (\s a -> s { _pinpointPushTemplateAndroidPushNotificationTemplateImageIconUrl = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-androidpushnotificationtemplate.html#cfn-pinpoint-pushtemplate-androidpushnotificationtemplate-imageurl+pptapntImageUrl :: Lens' PinpointPushTemplateAndroidPushNotificationTemplate (Maybe (Val Text))+pptapntImageUrl = lens _pinpointPushTemplateAndroidPushNotificationTemplateImageUrl (\s a -> s { _pinpointPushTemplateAndroidPushNotificationTemplateImageUrl = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-androidpushnotificationtemplate.html#cfn-pinpoint-pushtemplate-androidpushnotificationtemplate-smallimageiconurl+pptapntSmallImageIconUrl :: Lens' PinpointPushTemplateAndroidPushNotificationTemplate (Maybe (Val Text))+pptapntSmallImageIconUrl = lens _pinpointPushTemplateAndroidPushNotificationTemplateSmallImageIconUrl (\s a -> s { _pinpointPushTemplateAndroidPushNotificationTemplateSmallImageIconUrl = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-androidpushnotificationtemplate.html#cfn-pinpoint-pushtemplate-androidpushnotificationtemplate-sound+pptapntSound :: Lens' PinpointPushTemplateAndroidPushNotificationTemplate (Maybe (Val Text))+pptapntSound = lens _pinpointPushTemplateAndroidPushNotificationTemplateSound (\s a -> s { _pinpointPushTemplateAndroidPushNotificationTemplateSound = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-androidpushnotificationtemplate.html#cfn-pinpoint-pushtemplate-androidpushnotificationtemplate-title+pptapntTitle :: Lens' PinpointPushTemplateAndroidPushNotificationTemplate (Maybe (Val Text))+pptapntTitle = lens _pinpointPushTemplateAndroidPushNotificationTemplateTitle (\s a -> s { _pinpointPushTemplateAndroidPushNotificationTemplateTitle = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-androidpushnotificationtemplate.html#cfn-pinpoint-pushtemplate-androidpushnotificationtemplate-url+pptapntUrl :: Lens' PinpointPushTemplateAndroidPushNotificationTemplate (Maybe (Val Text))+pptapntUrl = lens _pinpointPushTemplateAndroidPushNotificationTemplateUrl (\s a -> s { _pinpointPushTemplateAndroidPushNotificationTemplateUrl = a })

@@ -0,0 +1,68 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-defaultpushnotificationtemplate.html++module Stratosphere.ResourceProperties.PinpointPushTemplateDefaultPushNotificationTemplate where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- PinpointPushTemplateDefaultPushNotificationTemplate. See+-- 'pinpointPushTemplateDefaultPushNotificationTemplate' for a more+-- convenient constructor.+data PinpointPushTemplateDefaultPushNotificationTemplate =+  PinpointPushTemplateDefaultPushNotificationTemplate+  { _pinpointPushTemplateDefaultPushNotificationTemplateAction :: Maybe (Val Text)+  , _pinpointPushTemplateDefaultPushNotificationTemplateBody :: Maybe (Val Text)+  , _pinpointPushTemplateDefaultPushNotificationTemplateSound :: Maybe (Val Text)+  , _pinpointPushTemplateDefaultPushNotificationTemplateTitle :: Maybe (Val Text)+  , _pinpointPushTemplateDefaultPushNotificationTemplateUrl :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON PinpointPushTemplateDefaultPushNotificationTemplate where+  toJSON PinpointPushTemplateDefaultPushNotificationTemplate{..} =+    object $+    catMaybes+    [ fmap (("Action",) . toJSON) _pinpointPushTemplateDefaultPushNotificationTemplateAction+    , fmap (("Body",) . toJSON) _pinpointPushTemplateDefaultPushNotificationTemplateBody+    , fmap (("Sound",) . toJSON) _pinpointPushTemplateDefaultPushNotificationTemplateSound+    , fmap (("Title",) . toJSON) _pinpointPushTemplateDefaultPushNotificationTemplateTitle+    , fmap (("Url",) . toJSON) _pinpointPushTemplateDefaultPushNotificationTemplateUrl+    ]++-- | Constructor for 'PinpointPushTemplateDefaultPushNotificationTemplate'+-- containing required fields as arguments.+pinpointPushTemplateDefaultPushNotificationTemplate+  :: PinpointPushTemplateDefaultPushNotificationTemplate+pinpointPushTemplateDefaultPushNotificationTemplate  =+  PinpointPushTemplateDefaultPushNotificationTemplate+  { _pinpointPushTemplateDefaultPushNotificationTemplateAction = Nothing+  , _pinpointPushTemplateDefaultPushNotificationTemplateBody = Nothing+  , _pinpointPushTemplateDefaultPushNotificationTemplateSound = Nothing+  , _pinpointPushTemplateDefaultPushNotificationTemplateTitle = Nothing+  , _pinpointPushTemplateDefaultPushNotificationTemplateUrl = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-defaultpushnotificationtemplate.html#cfn-pinpoint-pushtemplate-defaultpushnotificationtemplate-action+pptdpntAction :: Lens' PinpointPushTemplateDefaultPushNotificationTemplate (Maybe (Val Text))+pptdpntAction = lens _pinpointPushTemplateDefaultPushNotificationTemplateAction (\s a -> s { _pinpointPushTemplateDefaultPushNotificationTemplateAction = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-defaultpushnotificationtemplate.html#cfn-pinpoint-pushtemplate-defaultpushnotificationtemplate-body+pptdpntBody :: Lens' PinpointPushTemplateDefaultPushNotificationTemplate (Maybe (Val Text))+pptdpntBody = lens _pinpointPushTemplateDefaultPushNotificationTemplateBody (\s a -> s { _pinpointPushTemplateDefaultPushNotificationTemplateBody = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-defaultpushnotificationtemplate.html#cfn-pinpoint-pushtemplate-defaultpushnotificationtemplate-sound+pptdpntSound :: Lens' PinpointPushTemplateDefaultPushNotificationTemplate (Maybe (Val Text))+pptdpntSound = lens _pinpointPushTemplateDefaultPushNotificationTemplateSound (\s a -> s { _pinpointPushTemplateDefaultPushNotificationTemplateSound = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-defaultpushnotificationtemplate.html#cfn-pinpoint-pushtemplate-defaultpushnotificationtemplate-title+pptdpntTitle :: Lens' PinpointPushTemplateDefaultPushNotificationTemplate (Maybe (Val Text))+pptdpntTitle = lens _pinpointPushTemplateDefaultPushNotificationTemplateTitle (\s a -> s { _pinpointPushTemplateDefaultPushNotificationTemplateTitle = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-defaultpushnotificationtemplate.html#cfn-pinpoint-pushtemplate-defaultpushnotificationtemplate-url+pptdpntUrl :: Lens' PinpointPushTemplateDefaultPushNotificationTemplate (Maybe (Val Text))+pptdpntUrl = lens _pinpointPushTemplateDefaultPushNotificationTemplateUrl (\s a -> s { _pinpointPushTemplateDefaultPushNotificationTemplateUrl = a })

@@ -16,7 +16,6 @@   RDSDBClusterDBClusterRole   { _rDSDBClusterDBClusterRoleFeatureName :: Maybe (Val Text)   , _rDSDBClusterDBClusterRoleRoleArn :: Val Text-  , _rDSDBClusterDBClusterRoleStatus :: Maybe (Val Text)   } deriving (Show, Eq)  instance ToJSON RDSDBClusterDBClusterRole where@@ -25,7 +24,6 @@     catMaybes     [ fmap (("FeatureName",) . toJSON) _rDSDBClusterDBClusterRoleFeatureName     , (Just . ("RoleArn",) . toJSON) _rDSDBClusterDBClusterRoleRoleArn-    , fmap (("Status",) . toJSON) _rDSDBClusterDBClusterRoleStatus     ]  -- | Constructor for 'RDSDBClusterDBClusterRole' containing required fields as@@ -37,7 +35,6 @@   RDSDBClusterDBClusterRole   { _rDSDBClusterDBClusterRoleFeatureName = Nothing   , _rDSDBClusterDBClusterRoleRoleArn = roleArnarg-  , _rDSDBClusterDBClusterRoleStatus = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbcluster-dbclusterrole.html#cfn-rds-dbcluster-dbclusterrole-featurename@@ -47,7 +44,3 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbcluster-dbclusterrole.html#cfn-rds-dbcluster-dbclusterrole-rolearn rdsdbcdbcrRoleArn :: Lens' RDSDBClusterDBClusterRole (Val Text) rdsdbcdbcrRoleArn = lens _rDSDBClusterDBClusterRoleRoleArn (\s a -> s { _rDSDBClusterDBClusterRoleRoleArn = a })---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbcluster-dbclusterrole.html#cfn-rds-dbcluster-dbclusterrole-status-rdsdbcdbcrStatus :: Lens' RDSDBClusterDBClusterRole (Maybe (Val Text))-rdsdbcdbcrStatus = lens _rDSDBClusterDBClusterRoleStatus (\s a -> s { _rDSDBClusterDBClusterRoleStatus = a })

@@ -16,7 +16,6 @@   RDSDBInstanceDBInstanceRole   { _rDSDBInstanceDBInstanceRoleFeatureName :: Val Text   , _rDSDBInstanceDBInstanceRoleRoleArn :: Val Text-  , _rDSDBInstanceDBInstanceRoleStatus :: Maybe (Val Text)   } deriving (Show, Eq)  instance ToJSON RDSDBInstanceDBInstanceRole where@@ -25,7 +24,6 @@     catMaybes     [ (Just . ("FeatureName",) . toJSON) _rDSDBInstanceDBInstanceRoleFeatureName     , (Just . ("RoleArn",) . toJSON) _rDSDBInstanceDBInstanceRoleRoleArn-    , fmap (("Status",) . toJSON) _rDSDBInstanceDBInstanceRoleStatus     ]  -- | Constructor for 'RDSDBInstanceDBInstanceRole' containing required fields@@ -38,7 +36,6 @@   RDSDBInstanceDBInstanceRole   { _rDSDBInstanceDBInstanceRoleFeatureName = featureNamearg   , _rDSDBInstanceDBInstanceRoleRoleArn = roleArnarg-  , _rDSDBInstanceDBInstanceRoleStatus = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbinstance-dbinstancerole.html#cfn-rds-dbinstance-dbinstancerole-featurename@@ -48,7 +45,3 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbinstance-dbinstancerole.html#cfn-rds-dbinstance-dbinstancerole-rolearn rdsdbidbirRoleArn :: Lens' RDSDBInstanceDBInstanceRole (Val Text) rdsdbidbirRoleArn = lens _rDSDBInstanceDBInstanceRoleRoleArn (\s a -> s { _rDSDBInstanceDBInstanceRoleRoleArn = a })---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbinstance-dbinstancerole.html#cfn-rds-dbinstance-dbinstancerole-status-rdsdbidbirStatus :: Lens' RDSDBInstanceDBInstanceRole (Maybe (Val Text))-rdsdbidbirStatus = lens _rDSDBInstanceDBInstanceRoleStatus (\s a -> s { _rDSDBInstanceDBInstanceRoleStatus = a })

@@ -138,6 +138,7 @@ import Stratosphere.Resources.CodePipelinePipeline as X import Stratosphere.Resources.CodePipelineWebhook as X import Stratosphere.Resources.CodeStarGitHubRepository as X+import Stratosphere.Resources.CodeStarNotificationsNotificationRule as X import Stratosphere.Resources.CognitoIdentityPool as X import Stratosphere.Resources.CognitoIdentityPoolRoleAttachment as X import Stratosphere.Resources.CognitoUserPool as X@@ -362,6 +363,9 @@ import Stratosphere.Resources.MSKCluster as X import Stratosphere.Resources.ManagedBlockchainMember as X import Stratosphere.Resources.ManagedBlockchainNode as X+import Stratosphere.Resources.MediaConvertJobTemplate as X+import Stratosphere.Resources.MediaConvertPreset as X+import Stratosphere.Resources.MediaConvertQueue as X import Stratosphere.Resources.MediaLiveChannel as X import Stratosphere.Resources.MediaLiveInput as X import Stratosphere.Resources.MediaLiveInputSecurityGroup as X@@ -389,10 +393,13 @@ import Stratosphere.Resources.PinpointBaiduChannel as X import Stratosphere.Resources.PinpointCampaign as X import Stratosphere.Resources.PinpointEmailChannel as X+import Stratosphere.Resources.PinpointEmailTemplate as X import Stratosphere.Resources.PinpointEventStream as X import Stratosphere.Resources.PinpointGCMChannel as X+import Stratosphere.Resources.PinpointPushTemplate as X import Stratosphere.Resources.PinpointSMSChannel as X import Stratosphere.Resources.PinpointSegment as X+import Stratosphere.Resources.PinpointSmsTemplate as X import Stratosphere.Resources.PinpointVoiceChannel as X import Stratosphere.Resources.PinpointEmailConfigurationSet as X import Stratosphere.Resources.PinpointEmailConfigurationSetEventDestination as X@@ -546,6 +553,12 @@ import Stratosphere.ResourceProperties.AppMeshMeshEgressFilter as X import Stratosphere.ResourceProperties.AppMeshMeshMeshSpec as X import Stratosphere.ResourceProperties.AppMeshRouteDuration as X+import Stratosphere.ResourceProperties.AppMeshRouteGrpcRetryPolicy as X+import Stratosphere.ResourceProperties.AppMeshRouteGrpcRoute as X+import Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteAction as X+import Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteMatch as X+import Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteMetadata as X+import Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteMetadataMatchMethod as X import Stratosphere.ResourceProperties.AppMeshRouteHeaderMatchMethod as X import Stratosphere.ResourceProperties.AppMeshRouteHttpRetryPolicy as X import Stratosphere.ResourceProperties.AppMeshRouteHttpRoute as X@@ -581,8 +594,10 @@ import Stratosphere.ResourceProperties.AppStreamFleetComputeCapacity as X import Stratosphere.ResourceProperties.AppStreamFleetDomainJoinInfo as X import Stratosphere.ResourceProperties.AppStreamFleetVpcConfig as X+import Stratosphere.ResourceProperties.AppStreamImageBuilderAccessEndpoint as X import Stratosphere.ResourceProperties.AppStreamImageBuilderDomainJoinInfo as X import Stratosphere.ResourceProperties.AppStreamImageBuilderVpcConfig as X+import Stratosphere.ResourceProperties.AppStreamStackAccessEndpoint as X import Stratosphere.ResourceProperties.AppStreamStackApplicationSettings as X import Stratosphere.ResourceProperties.AppStreamStackStorageConnector as X import Stratosphere.ResourceProperties.AppStreamStackUserSetting as X@@ -748,6 +763,7 @@ import Stratosphere.ResourceProperties.CodePipelineWebhookWebhookFilterRule as X import Stratosphere.ResourceProperties.CodeStarGitHubRepositoryCode as X import Stratosphere.ResourceProperties.CodeStarGitHubRepositoryS3 as X+import Stratosphere.ResourceProperties.CodeStarNotificationsNotificationRuleTarget as X import Stratosphere.ResourceProperties.CognitoIdentityPoolCognitoIdentityProvider as X import Stratosphere.ResourceProperties.CognitoIdentityPoolCognitoStreams as X import Stratosphere.ResourceProperties.CognitoIdentityPoolPushSync as X@@ -914,6 +930,7 @@ import Stratosphere.ResourceProperties.ECSTaskDefinitionHealthCheck as X import Stratosphere.ResourceProperties.ECSTaskDefinitionHostEntry as X import Stratosphere.ResourceProperties.ECSTaskDefinitionHostVolumeProperties as X+import Stratosphere.ResourceProperties.ECSTaskDefinitionInferenceAccelerator as X import Stratosphere.ResourceProperties.ECSTaskDefinitionKernelCapabilities as X import Stratosphere.ResourceProperties.ECSTaskDefinitionKeyValuePair as X import Stratosphere.ResourceProperties.ECSTaskDefinitionLinuxParameters as X@@ -1026,12 +1043,16 @@ import Stratosphere.ResourceProperties.ElasticsearchDomainEBSOptions as X import Stratosphere.ResourceProperties.ElasticsearchDomainElasticsearchClusterConfig as X import Stratosphere.ResourceProperties.ElasticsearchDomainEncryptionAtRestOptions as X+import Stratosphere.ResourceProperties.ElasticsearchDomainLogPublishingOption as X import Stratosphere.ResourceProperties.ElasticsearchDomainNodeToNodeEncryptionOptions as X import Stratosphere.ResourceProperties.ElasticsearchDomainSnapshotOptions as X import Stratosphere.ResourceProperties.ElasticsearchDomainVPCOptions as X import Stratosphere.ResourceProperties.ElasticsearchDomainZoneAwarenessConfig as X import Stratosphere.ResourceProperties.EventsEventBusPolicyCondition as X import Stratosphere.ResourceProperties.EventsRuleAwsVpcConfiguration as X+import Stratosphere.ResourceProperties.EventsRuleBatchArrayProperties as X+import Stratosphere.ResourceProperties.EventsRuleBatchParameters as X+import Stratosphere.ResourceProperties.EventsRuleBatchRetryStrategy as X import Stratosphere.ResourceProperties.EventsRuleEcsParameters as X import Stratosphere.ResourceProperties.EventsRuleInputTransformer as X import Stratosphere.ResourceProperties.EventsRuleKinesisParameters as X@@ -1045,13 +1066,19 @@ import Stratosphere.ResourceProperties.FSxFileSystemWindowsConfiguration as X import Stratosphere.ResourceProperties.GameLiftAliasRoutingStrategy as X import Stratosphere.ResourceProperties.GameLiftBuildS3Location as X+import Stratosphere.ResourceProperties.GameLiftFleetCertificateConfiguration as X import Stratosphere.ResourceProperties.GameLiftFleetIpPermission as X+import Stratosphere.ResourceProperties.GameLiftFleetResourceCreationLimitPolicy as X+import Stratosphere.ResourceProperties.GameLiftFleetRuntimeConfiguration as X+import Stratosphere.ResourceProperties.GameLiftFleetServerProcess as X import Stratosphere.ResourceProperties.GlueClassifierCsvClassifier as X import Stratosphere.ResourceProperties.GlueClassifierGrokClassifier as X import Stratosphere.ResourceProperties.GlueClassifierJsonClassifier as X import Stratosphere.ResourceProperties.GlueClassifierXMLClassifier as X import Stratosphere.ResourceProperties.GlueConnectionConnectionInput as X import Stratosphere.ResourceProperties.GlueConnectionPhysicalConnectionRequirements as X+import Stratosphere.ResourceProperties.GlueCrawlerCatalogTarget as X+import Stratosphere.ResourceProperties.GlueCrawlerDynamoDBTarget as X import Stratosphere.ResourceProperties.GlueCrawlerJdbcTarget as X import Stratosphere.ResourceProperties.GlueCrawlerS3Target as X import Stratosphere.ResourceProperties.GlueCrawlerSchedule as X@@ -1345,6 +1372,7 @@ import Stratosphere.ResourceProperties.ManagedBlockchainMemberNetworkFrameworkConfiguration as X import Stratosphere.ResourceProperties.ManagedBlockchainMemberVotingPolicy as X import Stratosphere.ResourceProperties.ManagedBlockchainNodeNodeConfiguration as X+import Stratosphere.ResourceProperties.MediaConvertJobTemplateAccelerationSettings as X import Stratosphere.ResourceProperties.MediaLiveChannelAribSourceSettings as X import Stratosphere.ResourceProperties.MediaLiveChannelAudioLanguageSelection as X import Stratosphere.ResourceProperties.MediaLiveChannelAudioPidSelection as X@@ -1411,6 +1439,9 @@ import Stratosphere.ResourceProperties.PinpointCampaignSchedule as X import Stratosphere.ResourceProperties.PinpointCampaignSetDimension as X import Stratosphere.ResourceProperties.PinpointCampaignWriteTreatmentResource as X+import Stratosphere.ResourceProperties.PinpointPushTemplateAPNSPushNotificationTemplate as X+import Stratosphere.ResourceProperties.PinpointPushTemplateAndroidPushNotificationTemplate as X+import Stratosphere.ResourceProperties.PinpointPushTemplateDefaultPushNotificationTemplate as X import Stratosphere.ResourceProperties.PinpointSegmentAttributeDimension as X import Stratosphere.ResourceProperties.PinpointSegmentBehavior as X import Stratosphere.ResourceProperties.PinpointSegmentCoordinates as X

@@ -22,7 +22,9 @@   , _amplifyBranchBuildSpec :: Maybe (Val Text)   , _amplifyBranchDescription :: Maybe (Val Text)   , _amplifyBranchEnableAutoBuild :: Maybe (Val Bool)+  , _amplifyBranchEnablePullRequestPreview :: Maybe (Val Bool)   , _amplifyBranchEnvironmentVariables :: Maybe [AmplifyBranchEnvironmentVariable]+  , _amplifyBranchPullRequestEnvironmentName :: Maybe (Val Text)   , _amplifyBranchStage :: Maybe (Val Text)   , _amplifyBranchTags :: Maybe [Tag]   } deriving (Show, Eq)@@ -39,7 +41,9 @@         , fmap (("BuildSpec",) . toJSON) _amplifyBranchBuildSpec         , fmap (("Description",) . toJSON) _amplifyBranchDescription         , fmap (("EnableAutoBuild",) . toJSON) _amplifyBranchEnableAutoBuild+        , fmap (("EnablePullRequestPreview",) . toJSON) _amplifyBranchEnablePullRequestPreview         , fmap (("EnvironmentVariables",) . toJSON) _amplifyBranchEnvironmentVariables+        , fmap (("PullRequestEnvironmentName",) . toJSON) _amplifyBranchPullRequestEnvironmentName         , fmap (("Stage",) . toJSON) _amplifyBranchStage         , fmap (("Tags",) . toJSON) _amplifyBranchTags         ]@@ -58,7 +62,9 @@   , _amplifyBranchBuildSpec = Nothing   , _amplifyBranchDescription = Nothing   , _amplifyBranchEnableAutoBuild = Nothing+  , _amplifyBranchEnablePullRequestPreview = Nothing   , _amplifyBranchEnvironmentVariables = Nothing+  , _amplifyBranchPullRequestEnvironmentName = Nothing   , _amplifyBranchStage = Nothing   , _amplifyBranchTags = Nothing   }@@ -87,9 +93,17 @@ abEnableAutoBuild :: Lens' AmplifyBranch (Maybe (Val Bool)) abEnableAutoBuild = lens _amplifyBranchEnableAutoBuild (\s a -> s { _amplifyBranchEnableAutoBuild = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-branch.html#cfn-amplify-branch-enablepullrequestpreview+abEnablePullRequestPreview :: Lens' AmplifyBranch (Maybe (Val Bool))+abEnablePullRequestPreview = lens _amplifyBranchEnablePullRequestPreview (\s a -> s { _amplifyBranchEnablePullRequestPreview = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-branch.html#cfn-amplify-branch-environmentvariables abEnvironmentVariables :: Lens' AmplifyBranch (Maybe [AmplifyBranchEnvironmentVariable]) abEnvironmentVariables = lens _amplifyBranchEnvironmentVariables (\s a -> s { _amplifyBranchEnvironmentVariables = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-branch.html#cfn-amplify-branch-pullrequestenvironmentname+abPullRequestEnvironmentName :: Lens' AmplifyBranch (Maybe (Val Text))+abPullRequestEnvironmentName = lens _amplifyBranchPullRequestEnvironmentName (\s a -> s { _amplifyBranchPullRequestEnvironmentName = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-branch.html#cfn-amplify-branch-stage abStage :: Lens' AmplifyBranch (Maybe (Val Text))

@@ -9,6 +9,7 @@  import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.ApiGatewayApiKeyStageKey+import Stratosphere.ResourceProperties.Tag  -- | Full data type definition for ApiGatewayApiKey. See 'apiGatewayApiKey' -- for a more convenient constructor.@@ -20,6 +21,7 @@   , _apiGatewayApiKeyGenerateDistinctId :: Maybe (Val Bool)   , _apiGatewayApiKeyName :: Maybe (Val Text)   , _apiGatewayApiKeyStageKeys :: Maybe [ApiGatewayApiKeyStageKey]+  , _apiGatewayApiKeyTags :: Maybe [Tag]   , _apiGatewayApiKeyValue :: Maybe (Val Text)   } deriving (Show, Eq) @@ -35,6 +37,7 @@         , fmap (("GenerateDistinctId",) . toJSON) _apiGatewayApiKeyGenerateDistinctId         , fmap (("Name",) . toJSON) _apiGatewayApiKeyName         , fmap (("StageKeys",) . toJSON) _apiGatewayApiKeyStageKeys+        , fmap (("Tags",) . toJSON) _apiGatewayApiKeyTags         , fmap (("Value",) . toJSON) _apiGatewayApiKeyValue         ]     }@@ -51,6 +54,7 @@   , _apiGatewayApiKeyGenerateDistinctId = Nothing   , _apiGatewayApiKeyName = Nothing   , _apiGatewayApiKeyStageKeys = Nothing+  , _apiGatewayApiKeyTags = Nothing   , _apiGatewayApiKeyValue = Nothing   } @@ -77,6 +81,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-apikey.html#cfn-apigateway-apikey-stagekeys agakStageKeys :: Lens' ApiGatewayApiKey (Maybe [ApiGatewayApiKeyStageKey]) agakStageKeys = lens _apiGatewayApiKeyStageKeys (\s a -> s { _apiGatewayApiKeyStageKeys = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-apikey.html#cfn-apigateway-apikey-tags+agakTags :: Lens' ApiGatewayApiKey (Maybe [Tag])+agakTags = lens _apiGatewayApiKeyTags (\s a -> s { _apiGatewayApiKeyTags = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-apikey.html#cfn-apigateway-apikey-value agakValue :: Lens' ApiGatewayApiKey (Maybe (Val Text))

@@ -8,13 +8,14 @@ module Stratosphere.Resources.ApiGatewayClientCertificate where  import Stratosphere.ResourceImports-+import Stratosphere.ResourceProperties.Tag  -- | Full data type definition for ApiGatewayClientCertificate. See -- 'apiGatewayClientCertificate' for a more convenient constructor. data ApiGatewayClientCertificate =   ApiGatewayClientCertificate   { _apiGatewayClientCertificateDescription :: Maybe (Val Text)+  , _apiGatewayClientCertificateTags :: Maybe [Tag]   } deriving (Show, Eq)  instance ToResourceProperties ApiGatewayClientCertificate where@@ -24,6 +25,7 @@     , resourcePropertiesProperties =         hashMapFromList $ catMaybes         [ fmap (("Description",) . toJSON) _apiGatewayClientCertificateDescription+        , fmap (("Tags",) . toJSON) _apiGatewayClientCertificateTags         ]     } @@ -34,8 +36,13 @@ apiGatewayClientCertificate  =   ApiGatewayClientCertificate   { _apiGatewayClientCertificateDescription = Nothing+  , _apiGatewayClientCertificateTags = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-clientcertificate.html#cfn-apigateway-clientcertificate-description agccDescription :: Lens' ApiGatewayClientCertificate (Maybe (Val Text)) agccDescription = lens _apiGatewayClientCertificateDescription (\s a -> s { _apiGatewayClientCertificateDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-clientcertificate.html#cfn-apigateway-clientcertificate-tags+agccTags :: Lens' ApiGatewayClientCertificate (Maybe [Tag])+agccTags = lens _apiGatewayClientCertificateTags (\s a -> s { _apiGatewayClientCertificateTags = a })

@@ -9,6 +9,7 @@  import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.ApiGatewayDomainNameEndpointConfiguration+import Stratosphere.ResourceProperties.Tag  -- | Full data type definition for ApiGatewayDomainName. See -- 'apiGatewayDomainName' for a more convenient constructor.@@ -18,6 +19,8 @@   , _apiGatewayDomainNameDomainName :: Val Text   , _apiGatewayDomainNameEndpointConfiguration :: Maybe ApiGatewayDomainNameEndpointConfiguration   , _apiGatewayDomainNameRegionalCertificateArn :: Maybe (Val Text)+  , _apiGatewayDomainNameSecurityPolicy :: Maybe (Val Text)+  , _apiGatewayDomainNameTags :: Maybe [Tag]   } deriving (Show, Eq)  instance ToResourceProperties ApiGatewayDomainName where@@ -30,6 +33,8 @@         , (Just . ("DomainName",) . toJSON) _apiGatewayDomainNameDomainName         , fmap (("EndpointConfiguration",) . toJSON) _apiGatewayDomainNameEndpointConfiguration         , fmap (("RegionalCertificateArn",) . toJSON) _apiGatewayDomainNameRegionalCertificateArn+        , fmap (("SecurityPolicy",) . toJSON) _apiGatewayDomainNameSecurityPolicy+        , fmap (("Tags",) . toJSON) _apiGatewayDomainNameTags         ]     } @@ -44,6 +49,8 @@   , _apiGatewayDomainNameDomainName = domainNamearg   , _apiGatewayDomainNameEndpointConfiguration = Nothing   , _apiGatewayDomainNameRegionalCertificateArn = Nothing+  , _apiGatewayDomainNameSecurityPolicy = Nothing+  , _apiGatewayDomainNameTags = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-domainname.html#cfn-apigateway-domainname-certificatearn@@ -61,3 +68,11 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-domainname.html#cfn-apigateway-domainname-regionalcertificatearn agdnRegionalCertificateArn :: Lens' ApiGatewayDomainName (Maybe (Val Text)) agdnRegionalCertificateArn = lens _apiGatewayDomainNameRegionalCertificateArn (\s a -> s { _apiGatewayDomainNameRegionalCertificateArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-domainname.html#cfn-apigateway-domainname-securitypolicy+agdnSecurityPolicy :: Lens' ApiGatewayDomainName (Maybe (Val Text))+agdnSecurityPolicy = lens _apiGatewayDomainNameSecurityPolicy (\s a -> s { _apiGatewayDomainNameSecurityPolicy = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-domainname.html#cfn-apigateway-domainname-tags+agdnTags :: Lens' ApiGatewayDomainName (Maybe [Tag])+agdnTags = lens _apiGatewayDomainNameTags (\s a -> s { _apiGatewayDomainNameTags = a })

@@ -10,6 +10,7 @@ import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.ApiGatewayRestApiS3Location import Stratosphere.ResourceProperties.ApiGatewayRestApiEndpointConfiguration+import Stratosphere.ResourceProperties.Tag  -- | Full data type definition for ApiGatewayRestApi. See 'apiGatewayRestApi' -- for a more convenient constructor.@@ -27,6 +28,7 @@   , _apiGatewayRestApiName :: Maybe (Val Text)   , _apiGatewayRestApiParameters :: Maybe Object   , _apiGatewayRestApiPolicy :: Maybe Object+  , _apiGatewayRestApiTags :: Maybe [Tag]   } deriving (Show, Eq)  instance ToResourceProperties ApiGatewayRestApi where@@ -47,6 +49,7 @@         , fmap (("Name",) . toJSON) _apiGatewayRestApiName         , fmap (("Parameters",) . toJSON) _apiGatewayRestApiParameters         , fmap (("Policy",) . toJSON) _apiGatewayRestApiPolicy+        , fmap (("Tags",) . toJSON) _apiGatewayRestApiTags         ]     } @@ -68,6 +71,7 @@   , _apiGatewayRestApiName = Nothing   , _apiGatewayRestApiParameters = Nothing   , _apiGatewayRestApiPolicy = Nothing+  , _apiGatewayRestApiTags = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-restapi.html#cfn-apigateway-restapi-apikeysourcetype@@ -117,3 +121,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-restapi.html#cfn-apigateway-restapi-policy agraPolicy :: Lens' ApiGatewayRestApi (Maybe Object) agraPolicy = lens _apiGatewayRestApiPolicy (\s a -> s { _apiGatewayRestApiPolicy = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-restapi.html#cfn-apigateway-restapi-tags+agraTags :: Lens' ApiGatewayRestApi (Maybe [Tag])+agraTags = lens _apiGatewayRestApiTags (\s a -> s { _apiGatewayRestApiTags = a })

@@ -10,6 +10,7 @@ import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.ApiGatewayUsagePlanApiStage import Stratosphere.ResourceProperties.ApiGatewayUsagePlanQuotaSettings+import Stratosphere.ResourceProperties.Tag import Stratosphere.ResourceProperties.ApiGatewayUsagePlanThrottleSettings  -- | Full data type definition for ApiGatewayUsagePlan. See@@ -19,6 +20,7 @@   { _apiGatewayUsagePlanApiStages :: Maybe [ApiGatewayUsagePlanApiStage]   , _apiGatewayUsagePlanDescription :: Maybe (Val Text)   , _apiGatewayUsagePlanQuota :: Maybe ApiGatewayUsagePlanQuotaSettings+  , _apiGatewayUsagePlanTags :: Maybe [Tag]   , _apiGatewayUsagePlanThrottle :: Maybe ApiGatewayUsagePlanThrottleSettings   , _apiGatewayUsagePlanUsagePlanName :: Maybe (Val Text)   } deriving (Show, Eq)@@ -32,6 +34,7 @@         [ fmap (("ApiStages",) . toJSON) _apiGatewayUsagePlanApiStages         , fmap (("Description",) . toJSON) _apiGatewayUsagePlanDescription         , fmap (("Quota",) . toJSON) _apiGatewayUsagePlanQuota+        , fmap (("Tags",) . toJSON) _apiGatewayUsagePlanTags         , fmap (("Throttle",) . toJSON) _apiGatewayUsagePlanThrottle         , fmap (("UsagePlanName",) . toJSON) _apiGatewayUsagePlanUsagePlanName         ]@@ -46,6 +49,7 @@   { _apiGatewayUsagePlanApiStages = Nothing   , _apiGatewayUsagePlanDescription = Nothing   , _apiGatewayUsagePlanQuota = Nothing+  , _apiGatewayUsagePlanTags = Nothing   , _apiGatewayUsagePlanThrottle = Nothing   , _apiGatewayUsagePlanUsagePlanName = Nothing   }@@ -61,6 +65,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-usageplan.html#cfn-apigateway-usageplan-quota agupQuota :: Lens' ApiGatewayUsagePlan (Maybe ApiGatewayUsagePlanQuotaSettings) agupQuota = lens _apiGatewayUsagePlanQuota (\s a -> s { _apiGatewayUsagePlanQuota = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-usageplan.html#cfn-apigateway-usageplan-tags+agupTags :: Lens' ApiGatewayUsagePlan (Maybe [Tag])+agupTags = lens _apiGatewayUsagePlanTags (\s a -> s { _apiGatewayUsagePlanTags = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-usageplan.html#cfn-apigateway-usageplan-throttle agupThrottle :: Lens' ApiGatewayUsagePlan (Maybe ApiGatewayUsagePlanThrottleSettings)

@@ -8,6 +8,7 @@ module Stratosphere.Resources.AppStreamImageBuilder where  import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppStreamImageBuilderAccessEndpoint import Stratosphere.ResourceProperties.AppStreamImageBuilderDomainJoinInfo import Stratosphere.ResourceProperties.Tag import Stratosphere.ResourceProperties.AppStreamImageBuilderVpcConfig@@ -16,7 +17,8 @@ -- 'appStreamImageBuilder' for a more convenient constructor. data AppStreamImageBuilder =   AppStreamImageBuilder-  { _appStreamImageBuilderAppstreamAgentVersion :: Maybe (Val Text)+  { _appStreamImageBuilderAccessEndpoints :: Maybe [AppStreamImageBuilderAccessEndpoint]+  , _appStreamImageBuilderAppstreamAgentVersion :: Maybe (Val Text)   , _appStreamImageBuilderDescription :: Maybe (Val Text)   , _appStreamImageBuilderDisplayName :: Maybe (Val Text)   , _appStreamImageBuilderDomainJoinInfo :: Maybe AppStreamImageBuilderDomainJoinInfo@@ -35,7 +37,8 @@     { resourcePropertiesType = "AWS::AppStream::ImageBuilder"     , resourcePropertiesProperties =         hashMapFromList $ catMaybes-        [ fmap (("AppstreamAgentVersion",) . toJSON) _appStreamImageBuilderAppstreamAgentVersion+        [ fmap (("AccessEndpoints",) . toJSON) _appStreamImageBuilderAccessEndpoints+        , fmap (("AppstreamAgentVersion",) . toJSON) _appStreamImageBuilderAppstreamAgentVersion         , fmap (("Description",) . toJSON) _appStreamImageBuilderDescription         , fmap (("DisplayName",) . toJSON) _appStreamImageBuilderDisplayName         , fmap (("DomainJoinInfo",) . toJSON) _appStreamImageBuilderDomainJoinInfo@@ -56,7 +59,8 @@   -> AppStreamImageBuilder appStreamImageBuilder instanceTypearg =   AppStreamImageBuilder-  { _appStreamImageBuilderAppstreamAgentVersion = Nothing+  { _appStreamImageBuilderAccessEndpoints = Nothing+  , _appStreamImageBuilderAppstreamAgentVersion = Nothing   , _appStreamImageBuilderDescription = Nothing   , _appStreamImageBuilderDisplayName = Nothing   , _appStreamImageBuilderDomainJoinInfo = Nothing@@ -68,6 +72,10 @@   , _appStreamImageBuilderTags = Nothing   , _appStreamImageBuilderVpcConfig = Nothing   }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-imagebuilder.html#cfn-appstream-imagebuilder-accessendpoints+asibAccessEndpoints :: Lens' AppStreamImageBuilder (Maybe [AppStreamImageBuilderAccessEndpoint])+asibAccessEndpoints = lens _appStreamImageBuilderAccessEndpoints (\s a -> s { _appStreamImageBuilderAccessEndpoints = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-imagebuilder.html#cfn-appstream-imagebuilder-appstreamagentversion asibAppstreamAgentVersion :: Lens' AppStreamImageBuilder (Maybe (Val Text))

@@ -8,6 +8,7 @@ module Stratosphere.Resources.AppStreamStack where  import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppStreamStackAccessEndpoint import Stratosphere.ResourceProperties.AppStreamStackApplicationSettings import Stratosphere.ResourceProperties.AppStreamStackStorageConnector import Stratosphere.ResourceProperties.Tag@@ -17,11 +18,13 @@ -- more convenient constructor. data AppStreamStack =   AppStreamStack-  { _appStreamStackApplicationSettings :: Maybe AppStreamStackApplicationSettings+  { _appStreamStackAccessEndpoints :: Maybe [AppStreamStackAccessEndpoint]+  , _appStreamStackApplicationSettings :: Maybe AppStreamStackApplicationSettings   , _appStreamStackAttributesToDelete :: Maybe (ValList Text)   , _appStreamStackDeleteStorageConnectors :: Maybe (Val Bool)   , _appStreamStackDescription :: Maybe (Val Text)   , _appStreamStackDisplayName :: Maybe (Val Text)+  , _appStreamStackEmbedHostDomains :: Maybe (ValList Text)   , _appStreamStackFeedbackURL :: Maybe (Val Text)   , _appStreamStackName :: Maybe (Val Text)   , _appStreamStackRedirectURL :: Maybe (Val Text)@@ -36,11 +39,13 @@     { resourcePropertiesType = "AWS::AppStream::Stack"     , resourcePropertiesProperties =         hashMapFromList $ catMaybes-        [ fmap (("ApplicationSettings",) . toJSON) _appStreamStackApplicationSettings+        [ fmap (("AccessEndpoints",) . toJSON) _appStreamStackAccessEndpoints+        , fmap (("ApplicationSettings",) . toJSON) _appStreamStackApplicationSettings         , fmap (("AttributesToDelete",) . toJSON) _appStreamStackAttributesToDelete         , fmap (("DeleteStorageConnectors",) . toJSON) _appStreamStackDeleteStorageConnectors         , fmap (("Description",) . toJSON) _appStreamStackDescription         , fmap (("DisplayName",) . toJSON) _appStreamStackDisplayName+        , fmap (("EmbedHostDomains",) . toJSON) _appStreamStackEmbedHostDomains         , fmap (("FeedbackURL",) . toJSON) _appStreamStackFeedbackURL         , fmap (("Name",) . toJSON) _appStreamStackName         , fmap (("RedirectURL",) . toJSON) _appStreamStackRedirectURL@@ -55,11 +60,13 @@   :: AppStreamStack appStreamStack  =   AppStreamStack-  { _appStreamStackApplicationSettings = Nothing+  { _appStreamStackAccessEndpoints = Nothing+  , _appStreamStackApplicationSettings = Nothing   , _appStreamStackAttributesToDelete = Nothing   , _appStreamStackDeleteStorageConnectors = Nothing   , _appStreamStackDescription = Nothing   , _appStreamStackDisplayName = Nothing+  , _appStreamStackEmbedHostDomains = Nothing   , _appStreamStackFeedbackURL = Nothing   , _appStreamStackName = Nothing   , _appStreamStackRedirectURL = Nothing@@ -68,6 +75,10 @@   , _appStreamStackUserSettings = Nothing   } +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stack.html#cfn-appstream-stack-accessendpoints+assAccessEndpoints :: Lens' AppStreamStack (Maybe [AppStreamStackAccessEndpoint])+assAccessEndpoints = lens _appStreamStackAccessEndpoints (\s a -> s { _appStreamStackAccessEndpoints = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stack.html#cfn-appstream-stack-applicationsettings assApplicationSettings :: Lens' AppStreamStack (Maybe AppStreamStackApplicationSettings) assApplicationSettings = lens _appStreamStackApplicationSettings (\s a -> s { _appStreamStackApplicationSettings = a })@@ -87,6 +98,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stack.html#cfn-appstream-stack-displayname assDisplayName :: Lens' AppStreamStack (Maybe (Val Text)) assDisplayName = lens _appStreamStackDisplayName (\s a -> s { _appStreamStackDisplayName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stack.html#cfn-appstream-stack-embedhostdomains+assEmbedHostDomains :: Lens' AppStreamStack (Maybe (ValList Text))+assEmbedHostDomains = lens _appStreamStackEmbedHostDomains (\s a -> s { _appStreamStackEmbedHostDomains = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stack.html#cfn-appstream-stack-feedbackurl assFeedbackURL :: Lens' AppStreamStack (Maybe (Val Text))

@@ -11,6 +11,7 @@ import Stratosphere.ResourceProperties.CodePipelineCustomActionTypeConfigurationProperties import Stratosphere.ResourceProperties.CodePipelineCustomActionTypeArtifactDetails import Stratosphere.ResourceProperties.CodePipelineCustomActionTypeSettings+import Stratosphere.ResourceProperties.Tag  -- | Full data type definition for CodePipelineCustomActionType. See -- 'codePipelineCustomActionType' for a more convenient constructor.@@ -22,6 +23,7 @@   , _codePipelineCustomActionTypeOutputArtifactDetails :: CodePipelineCustomActionTypeArtifactDetails   , _codePipelineCustomActionTypeProvider :: Val Text   , _codePipelineCustomActionTypeSettings :: Maybe CodePipelineCustomActionTypeSettings+  , _codePipelineCustomActionTypeTags :: Maybe [Tag]   , _codePipelineCustomActionTypeVersion :: Val Text   } deriving (Show, Eq) @@ -37,6 +39,7 @@         , (Just . ("OutputArtifactDetails",) . toJSON) _codePipelineCustomActionTypeOutputArtifactDetails         , (Just . ("Provider",) . toJSON) _codePipelineCustomActionTypeProvider         , fmap (("Settings",) . toJSON) _codePipelineCustomActionTypeSettings+        , fmap (("Tags",) . toJSON) _codePipelineCustomActionTypeTags         , (Just . ("Version",) . toJSON) _codePipelineCustomActionTypeVersion         ]     }@@ -58,6 +61,7 @@   , _codePipelineCustomActionTypeOutputArtifactDetails = outputArtifactDetailsarg   , _codePipelineCustomActionTypeProvider = providerarg   , _codePipelineCustomActionTypeSettings = Nothing+  , _codePipelineCustomActionTypeTags = Nothing   , _codePipelineCustomActionTypeVersion = versionarg   } @@ -84,6 +88,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codepipeline-customactiontype.html#cfn-codepipeline-customactiontype-settings cpcatSettings :: Lens' CodePipelineCustomActionType (Maybe CodePipelineCustomActionTypeSettings) cpcatSettings = lens _codePipelineCustomActionTypeSettings (\s a -> s { _codePipelineCustomActionTypeSettings = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codepipeline-customactiontype.html#cfn-codepipeline-customactiontype-tags+cpcatTags :: Lens' CodePipelineCustomActionType (Maybe [Tag])+cpcatTags = lens _codePipelineCustomActionTypeTags (\s a -> s { _codePipelineCustomActionTypeTags = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codepipeline-customactiontype.html#cfn-codepipeline-customactiontype-version cpcatVersion :: Lens' CodePipelineCustomActionType (Val Text)

@@ -12,6 +12,7 @@ import Stratosphere.ResourceProperties.CodePipelinePipelineArtifactStoreMap import Stratosphere.ResourceProperties.CodePipelinePipelineStageTransition import Stratosphere.ResourceProperties.CodePipelinePipelineStageDeclaration+import Stratosphere.ResourceProperties.Tag  -- | Full data type definition for CodePipelinePipeline. See -- 'codePipelinePipeline' for a more convenient constructor.@@ -24,6 +25,7 @@   , _codePipelinePipelineRestartExecutionOnUpdate :: Maybe (Val Bool)   , _codePipelinePipelineRoleArn :: Val Text   , _codePipelinePipelineStages :: [CodePipelinePipelineStageDeclaration]+  , _codePipelinePipelineTags :: Maybe [Tag]   } deriving (Show, Eq)  instance ToResourceProperties CodePipelinePipeline where@@ -39,6 +41,7 @@         , fmap (("RestartExecutionOnUpdate",) . toJSON) _codePipelinePipelineRestartExecutionOnUpdate         , (Just . ("RoleArn",) . toJSON) _codePipelinePipelineRoleArn         , (Just . ("Stages",) . toJSON) _codePipelinePipelineStages+        , fmap (("Tags",) . toJSON) _codePipelinePipelineTags         ]     } @@ -57,6 +60,7 @@   , _codePipelinePipelineRestartExecutionOnUpdate = Nothing   , _codePipelinePipelineRoleArn = roleArnarg   , _codePipelinePipelineStages = stagesarg+  , _codePipelinePipelineTags = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codepipeline-pipeline.html#cfn-codepipeline-pipeline-artifactstore@@ -86,3 +90,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codepipeline-pipeline.html#cfn-codepipeline-pipeline-stages cppStages :: Lens' CodePipelinePipeline [CodePipelinePipelineStageDeclaration] cppStages = lens _codePipelinePipelineStages (\s a -> s { _codePipelinePipelineStages = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codepipeline-pipeline.html#cfn-codepipeline-pipeline-tags+cppTags :: Lens' CodePipelinePipeline (Maybe [Tag])+cppTags = lens _codePipelinePipelineTags (\s a -> s { _codePipelinePipelineTags = a })

@@ -0,0 +1,89 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestarnotifications-notificationrule.html++module Stratosphere.Resources.CodeStarNotificationsNotificationRule where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.CodeStarNotificationsNotificationRuleTarget++-- | Full data type definition for CodeStarNotificationsNotificationRule. See+-- 'codeStarNotificationsNotificationRule' for a more convenient+-- constructor.+data CodeStarNotificationsNotificationRule =+  CodeStarNotificationsNotificationRule+  { _codeStarNotificationsNotificationRuleDetailType :: Val Text+  , _codeStarNotificationsNotificationRuleEventTypeIds :: ValList Text+  , _codeStarNotificationsNotificationRuleName :: Val Text+  , _codeStarNotificationsNotificationRuleResource :: Val Text+  , _codeStarNotificationsNotificationRuleStatus :: Maybe (Val Text)+  , _codeStarNotificationsNotificationRuleTags :: Maybe Object+  , _codeStarNotificationsNotificationRuleTargets :: [CodeStarNotificationsNotificationRuleTarget]+  } deriving (Show, Eq)++instance ToResourceProperties CodeStarNotificationsNotificationRule where+  toResourceProperties CodeStarNotificationsNotificationRule{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::CodeStarNotifications::NotificationRule"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("DetailType",) . toJSON) _codeStarNotificationsNotificationRuleDetailType+        , (Just . ("EventTypeIds",) . toJSON) _codeStarNotificationsNotificationRuleEventTypeIds+        , (Just . ("Name",) . toJSON) _codeStarNotificationsNotificationRuleName+        , (Just . ("Resource",) . toJSON) _codeStarNotificationsNotificationRuleResource+        , fmap (("Status",) . toJSON) _codeStarNotificationsNotificationRuleStatus+        , fmap (("Tags",) . toJSON) _codeStarNotificationsNotificationRuleTags+        , (Just . ("Targets",) . toJSON) _codeStarNotificationsNotificationRuleTargets+        ]+    }++-- | Constructor for 'CodeStarNotificationsNotificationRule' containing+-- required fields as arguments.+codeStarNotificationsNotificationRule+  :: Val Text -- ^ 'csnnrDetailType'+  -> ValList Text -- ^ 'csnnrEventTypeIds'+  -> Val Text -- ^ 'csnnrName'+  -> Val Text -- ^ 'csnnrResource'+  -> [CodeStarNotificationsNotificationRuleTarget] -- ^ 'csnnrTargets'+  -> CodeStarNotificationsNotificationRule+codeStarNotificationsNotificationRule detailTypearg eventTypeIdsarg namearg resourcearg targetsarg =+  CodeStarNotificationsNotificationRule+  { _codeStarNotificationsNotificationRuleDetailType = detailTypearg+  , _codeStarNotificationsNotificationRuleEventTypeIds = eventTypeIdsarg+  , _codeStarNotificationsNotificationRuleName = namearg+  , _codeStarNotificationsNotificationRuleResource = resourcearg+  , _codeStarNotificationsNotificationRuleStatus = Nothing+  , _codeStarNotificationsNotificationRuleTags = Nothing+  , _codeStarNotificationsNotificationRuleTargets = targetsarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestarnotifications-notificationrule.html#cfn-codestarnotifications-notificationrule-detailtype+csnnrDetailType :: Lens' CodeStarNotificationsNotificationRule (Val Text)+csnnrDetailType = lens _codeStarNotificationsNotificationRuleDetailType (\s a -> s { _codeStarNotificationsNotificationRuleDetailType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestarnotifications-notificationrule.html#cfn-codestarnotifications-notificationrule-eventtypeids+csnnrEventTypeIds :: Lens' CodeStarNotificationsNotificationRule (ValList Text)+csnnrEventTypeIds = lens _codeStarNotificationsNotificationRuleEventTypeIds (\s a -> s { _codeStarNotificationsNotificationRuleEventTypeIds = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestarnotifications-notificationrule.html#cfn-codestarnotifications-notificationrule-name+csnnrName :: Lens' CodeStarNotificationsNotificationRule (Val Text)+csnnrName = lens _codeStarNotificationsNotificationRuleName (\s a -> s { _codeStarNotificationsNotificationRuleName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestarnotifications-notificationrule.html#cfn-codestarnotifications-notificationrule-resource+csnnrResource :: Lens' CodeStarNotificationsNotificationRule (Val Text)+csnnrResource = lens _codeStarNotificationsNotificationRuleResource (\s a -> s { _codeStarNotificationsNotificationRuleResource = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestarnotifications-notificationrule.html#cfn-codestarnotifications-notificationrule-status+csnnrStatus :: Lens' CodeStarNotificationsNotificationRule (Maybe (Val Text))+csnnrStatus = lens _codeStarNotificationsNotificationRuleStatus (\s a -> s { _codeStarNotificationsNotificationRuleStatus = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestarnotifications-notificationrule.html#cfn-codestarnotifications-notificationrule-tags+csnnrTags :: Lens' CodeStarNotificationsNotificationRule (Maybe Object)+csnnrTags = lens _codeStarNotificationsNotificationRuleTags (\s a -> s { _codeStarNotificationsNotificationRuleTags = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestarnotifications-notificationrule.html#cfn-codestarnotifications-notificationrule-targets+csnnrTargets :: Lens' CodeStarNotificationsNotificationRule [CodeStarNotificationsNotificationRuleTarget]+csnnrTargets = lens _codeStarNotificationsNotificationRuleTargets (\s a -> s { _codeStarNotificationsNotificationRuleTargets = a })

@@ -9,6 +9,7 @@  import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.ECSTaskDefinitionContainerDefinition+import Stratosphere.ResourceProperties.ECSTaskDefinitionInferenceAccelerator import Stratosphere.ResourceProperties.ECSTaskDefinitionTaskDefinitionPlacementConstraint import Stratosphere.ResourceProperties.ECSTaskDefinitionProxyConfiguration import Stratosphere.ResourceProperties.Tag@@ -22,6 +23,7 @@   , _eCSTaskDefinitionCpu :: Maybe (Val Text)   , _eCSTaskDefinitionExecutionRoleArn :: Maybe (Val Text)   , _eCSTaskDefinitionFamily :: Maybe (Val Text)+  , _eCSTaskDefinitionInferenceAccelerators :: Maybe [ECSTaskDefinitionInferenceAccelerator]   , _eCSTaskDefinitionIpcMode :: Maybe (Val Text)   , _eCSTaskDefinitionMemory :: Maybe (Val Text)   , _eCSTaskDefinitionNetworkMode :: Maybe (Val Text)@@ -44,6 +46,7 @@         , fmap (("Cpu",) . toJSON) _eCSTaskDefinitionCpu         , fmap (("ExecutionRoleArn",) . toJSON) _eCSTaskDefinitionExecutionRoleArn         , fmap (("Family",) . toJSON) _eCSTaskDefinitionFamily+        , fmap (("InferenceAccelerators",) . toJSON) _eCSTaskDefinitionInferenceAccelerators         , fmap (("IpcMode",) . toJSON) _eCSTaskDefinitionIpcMode         , fmap (("Memory",) . toJSON) _eCSTaskDefinitionMemory         , fmap (("NetworkMode",) . toJSON) _eCSTaskDefinitionNetworkMode@@ -67,6 +70,7 @@   , _eCSTaskDefinitionCpu = Nothing   , _eCSTaskDefinitionExecutionRoleArn = Nothing   , _eCSTaskDefinitionFamily = Nothing+  , _eCSTaskDefinitionInferenceAccelerators = Nothing   , _eCSTaskDefinitionIpcMode = Nothing   , _eCSTaskDefinitionMemory = Nothing   , _eCSTaskDefinitionNetworkMode = Nothing@@ -94,6 +98,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-family ecstdFamily :: Lens' ECSTaskDefinition (Maybe (Val Text)) ecstdFamily = lens _eCSTaskDefinitionFamily (\s a -> s { _eCSTaskDefinitionFamily = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-inferenceaccelerators+ecstdInferenceAccelerators :: Lens' ECSTaskDefinition (Maybe [ECSTaskDefinitionInferenceAccelerator])+ecstdInferenceAccelerators = lens _eCSTaskDefinitionInferenceAccelerators (\s a -> s { _eCSTaskDefinitionInferenceAccelerators = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-ipcmode ecstdIpcMode :: Lens' ECSTaskDefinition (Maybe (Val Text))

@@ -11,6 +11,7 @@ import Stratosphere.ResourceProperties.ElasticsearchDomainEBSOptions import Stratosphere.ResourceProperties.ElasticsearchDomainElasticsearchClusterConfig import Stratosphere.ResourceProperties.ElasticsearchDomainEncryptionAtRestOptions+import Stratosphere.ResourceProperties.ElasticsearchDomainLogPublishingOption import Stratosphere.ResourceProperties.ElasticsearchDomainNodeToNodeEncryptionOptions import Stratosphere.ResourceProperties.ElasticsearchDomainSnapshotOptions import Stratosphere.ResourceProperties.Tag@@ -27,6 +28,7 @@   , _elasticsearchDomainElasticsearchClusterConfig :: Maybe ElasticsearchDomainElasticsearchClusterConfig   , _elasticsearchDomainElasticsearchVersion :: Maybe (Val Text)   , _elasticsearchDomainEncryptionAtRestOptions :: Maybe ElasticsearchDomainEncryptionAtRestOptions+  , _elasticsearchDomainLogPublishingOptions :: Maybe (Map Text ElasticsearchDomainLogPublishingOption)   , _elasticsearchDomainNodeToNodeEncryptionOptions :: Maybe ElasticsearchDomainNodeToNodeEncryptionOptions   , _elasticsearchDomainSnapshotOptions :: Maybe ElasticsearchDomainSnapshotOptions   , _elasticsearchDomainTags :: Maybe [Tag]@@ -46,6 +48,7 @@         , fmap (("ElasticsearchClusterConfig",) . toJSON) _elasticsearchDomainElasticsearchClusterConfig         , fmap (("ElasticsearchVersion",) . toJSON) _elasticsearchDomainElasticsearchVersion         , fmap (("EncryptionAtRestOptions",) . toJSON) _elasticsearchDomainEncryptionAtRestOptions+        , fmap (("LogPublishingOptions",) . toJSON) _elasticsearchDomainLogPublishingOptions         , fmap (("NodeToNodeEncryptionOptions",) . toJSON) _elasticsearchDomainNodeToNodeEncryptionOptions         , fmap (("SnapshotOptions",) . toJSON) _elasticsearchDomainSnapshotOptions         , fmap (("Tags",) . toJSON) _elasticsearchDomainTags@@ -66,6 +69,7 @@   , _elasticsearchDomainElasticsearchClusterConfig = Nothing   , _elasticsearchDomainElasticsearchVersion = Nothing   , _elasticsearchDomainEncryptionAtRestOptions = Nothing+  , _elasticsearchDomainLogPublishingOptions = Nothing   , _elasticsearchDomainNodeToNodeEncryptionOptions = Nothing   , _elasticsearchDomainSnapshotOptions = Nothing   , _elasticsearchDomainTags = Nothing@@ -99,6 +103,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticsearch-domain.html#cfn-elasticsearch-domain-encryptionatrestoptions edEncryptionAtRestOptions :: Lens' ElasticsearchDomain (Maybe ElasticsearchDomainEncryptionAtRestOptions) edEncryptionAtRestOptions = lens _elasticsearchDomainEncryptionAtRestOptions (\s a -> s { _elasticsearchDomainEncryptionAtRestOptions = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticsearch-domain.html#cfn-elasticsearch-domain-logpublishingoptions+edLogPublishingOptions :: Lens' ElasticsearchDomain (Maybe (Map Text ElasticsearchDomainLogPublishingOption))+edLogPublishingOptions = lens _elasticsearchDomainLogPublishingOptions (\s a -> s { _elasticsearchDomainLogPublishingOptions = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticsearch-domain.html#cfn-elasticsearch-domain-nodetonodeencryptionoptions edNodeToNodeEncryptionOptions :: Lens' ElasticsearchDomain (Maybe ElasticsearchDomainNodeToNodeEncryptionOptions)

@@ -16,6 +16,7 @@ data EventsRule =   EventsRule   { _eventsRuleDescription :: Maybe (Val Text)+  , _eventsRuleEventBusName :: Maybe (Val Text)   , _eventsRuleEventPattern :: Maybe Object   , _eventsRuleName :: Maybe (Val Text)   , _eventsRuleRoleArn :: Maybe (Val Text)@@ -31,6 +32,7 @@     , resourcePropertiesProperties =         hashMapFromList $ catMaybes         [ fmap (("Description",) . toJSON) _eventsRuleDescription+        , fmap (("EventBusName",) . toJSON) _eventsRuleEventBusName         , fmap (("EventPattern",) . toJSON) _eventsRuleEventPattern         , fmap (("Name",) . toJSON) _eventsRuleName         , fmap (("RoleArn",) . toJSON) _eventsRuleRoleArn@@ -46,6 +48,7 @@ eventsRule  =   EventsRule   { _eventsRuleDescription = Nothing+  , _eventsRuleEventBusName = Nothing   , _eventsRuleEventPattern = Nothing   , _eventsRuleName = Nothing   , _eventsRuleRoleArn = Nothing@@ -57,6 +60,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-rule.html#cfn-events-rule-description erDescription :: Lens' EventsRule (Maybe (Val Text)) erDescription = lens _eventsRuleDescription (\s a -> s { _eventsRuleDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-rule.html#cfn-events-rule-eventbusname+erEventBusName :: Lens' EventsRule (Maybe (Val Text))+erEventBusName = lens _eventsRuleEventBusName (\s a -> s { _eventsRuleEventBusName = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-rule.html#cfn-events-rule-eventpattern erEventPattern :: Lens' EventsRule (Maybe Object)

@@ -15,6 +15,7 @@ data GameLiftBuild =   GameLiftBuild   { _gameLiftBuildName :: Maybe (Val Text)+  , _gameLiftBuildOperatingSystem :: Maybe (Val Text)   , _gameLiftBuildStorageLocation :: Maybe GameLiftBuildS3Location   , _gameLiftBuildVersion :: Maybe (Val Text)   } deriving (Show, Eq)@@ -26,6 +27,7 @@     , resourcePropertiesProperties =         hashMapFromList $ catMaybes         [ fmap (("Name",) . toJSON) _gameLiftBuildName+        , fmap (("OperatingSystem",) . toJSON) _gameLiftBuildOperatingSystem         , fmap (("StorageLocation",) . toJSON) _gameLiftBuildStorageLocation         , fmap (("Version",) . toJSON) _gameLiftBuildVersion         ]@@ -37,6 +39,7 @@ gameLiftBuild  =   GameLiftBuild   { _gameLiftBuildName = Nothing+  , _gameLiftBuildOperatingSystem = Nothing   , _gameLiftBuildStorageLocation = Nothing   , _gameLiftBuildVersion = Nothing   }@@ -44,6 +47,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-build.html#cfn-gamelift-build-name glbName :: Lens' GameLiftBuild (Maybe (Val Text)) glbName = lens _gameLiftBuildName (\s a -> s { _gameLiftBuildName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-build.html#cfn-gamelift-build-operatingsystem+glbOperatingSystem :: Lens' GameLiftBuild (Maybe (Val Text))+glbOperatingSystem = lens _gameLiftBuildOperatingSystem (\s a -> s { _gameLiftBuildOperatingSystem = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-build.html#cfn-gamelift-build-storagelocation glbStorageLocation :: Lens' GameLiftBuild (Maybe GameLiftBuildS3Location)

@@ -8,23 +8,36 @@ module Stratosphere.Resources.GameLiftFleet where  import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.GameLiftFleetCertificateConfiguration import Stratosphere.ResourceProperties.GameLiftFleetIpPermission+import Stratosphere.ResourceProperties.GameLiftFleetResourceCreationLimitPolicy+import Stratosphere.ResourceProperties.GameLiftFleetRuntimeConfiguration  -- | Full data type definition for GameLiftFleet. See 'gameLiftFleet' for a -- more convenient constructor. data GameLiftFleet =   GameLiftFleet-  { _gameLiftFleetBuildId :: Val Text+  { _gameLiftFleetBuildId :: Maybe (Val Text)+  , _gameLiftFleetCertificateConfiguration :: Maybe GameLiftFleetCertificateConfiguration   , _gameLiftFleetDescription :: Maybe (Val Text)-  , _gameLiftFleetDesiredEC2Instances :: Val Integer+  , _gameLiftFleetDesiredEC2Instances :: Maybe (Val Integer)   , _gameLiftFleetEC2InboundPermissions :: Maybe [GameLiftFleetIpPermission]   , _gameLiftFleetEC2InstanceType :: Val Text+  , _gameLiftFleetFleetType :: Maybe (Val Text)+  , _gameLiftFleetInstanceRoleARN :: Maybe (Val Text)   , _gameLiftFleetLogPaths :: Maybe (ValList Text)   , _gameLiftFleetMaxSize :: Maybe (Val Integer)+  , _gameLiftFleetMetricGroups :: Maybe (ValList Text)   , _gameLiftFleetMinSize :: Maybe (Val Integer)   , _gameLiftFleetName :: Val Text+  , _gameLiftFleetNewGameSessionProtectionPolicy :: Maybe (Val Text)+  , _gameLiftFleetPeerVpcAwsAccountId :: Maybe (Val Text)+  , _gameLiftFleetPeerVpcId :: Maybe (Val Text)+  , _gameLiftFleetResourceCreationLimitPolicy :: Maybe GameLiftFleetResourceCreationLimitPolicy+  , _gameLiftFleetRuntimeConfiguration :: Maybe GameLiftFleetRuntimeConfiguration+  , _gameLiftFleetScriptId :: Maybe (Val Text)   , _gameLiftFleetServerLaunchParameters :: Maybe (Val Text)-  , _gameLiftFleetServerLaunchPath :: Val Text+  , _gameLiftFleetServerLaunchPath :: Maybe (Val Text)   } deriving (Show, Eq)  instance ToResourceProperties GameLiftFleet where@@ -33,53 +46,74 @@     { resourcePropertiesType = "AWS::GameLift::Fleet"     , resourcePropertiesProperties =         hashMapFromList $ catMaybes-        [ (Just . ("BuildId",) . toJSON) _gameLiftFleetBuildId+        [ fmap (("BuildId",) . toJSON) _gameLiftFleetBuildId+        , fmap (("CertificateConfiguration",) . toJSON) _gameLiftFleetCertificateConfiguration         , fmap (("Description",) . toJSON) _gameLiftFleetDescription-        , (Just . ("DesiredEC2Instances",) . toJSON) _gameLiftFleetDesiredEC2Instances+        , fmap (("DesiredEC2Instances",) . toJSON) _gameLiftFleetDesiredEC2Instances         , fmap (("EC2InboundPermissions",) . toJSON) _gameLiftFleetEC2InboundPermissions         , (Just . ("EC2InstanceType",) . toJSON) _gameLiftFleetEC2InstanceType+        , fmap (("FleetType",) . toJSON) _gameLiftFleetFleetType+        , fmap (("InstanceRoleARN",) . toJSON) _gameLiftFleetInstanceRoleARN         , fmap (("LogPaths",) . toJSON) _gameLiftFleetLogPaths         , fmap (("MaxSize",) . toJSON) _gameLiftFleetMaxSize+        , fmap (("MetricGroups",) . toJSON) _gameLiftFleetMetricGroups         , fmap (("MinSize",) . toJSON) _gameLiftFleetMinSize         , (Just . ("Name",) . toJSON) _gameLiftFleetName+        , fmap (("NewGameSessionProtectionPolicy",) . toJSON) _gameLiftFleetNewGameSessionProtectionPolicy+        , fmap (("PeerVpcAwsAccountId",) . toJSON) _gameLiftFleetPeerVpcAwsAccountId+        , fmap (("PeerVpcId",) . toJSON) _gameLiftFleetPeerVpcId+        , fmap (("ResourceCreationLimitPolicy",) . toJSON) _gameLiftFleetResourceCreationLimitPolicy+        , fmap (("RuntimeConfiguration",) . toJSON) _gameLiftFleetRuntimeConfiguration+        , fmap (("ScriptId",) . toJSON) _gameLiftFleetScriptId         , fmap (("ServerLaunchParameters",) . toJSON) _gameLiftFleetServerLaunchParameters-        , (Just . ("ServerLaunchPath",) . toJSON) _gameLiftFleetServerLaunchPath+        , fmap (("ServerLaunchPath",) . toJSON) _gameLiftFleetServerLaunchPath         ]     }  -- | Constructor for 'GameLiftFleet' containing required fields as arguments. gameLiftFleet-  :: Val Text -- ^ 'glfBuildId'-  -> Val Integer -- ^ 'glfDesiredEC2Instances'-  -> Val Text -- ^ 'glfEC2InstanceType'+  :: Val Text -- ^ 'glfEC2InstanceType'   -> Val Text -- ^ 'glfName'-  -> Val Text -- ^ 'glfServerLaunchPath'   -> GameLiftFleet-gameLiftFleet buildIdarg desiredEC2Instancesarg eC2InstanceTypearg namearg serverLaunchPatharg =+gameLiftFleet eC2InstanceTypearg namearg =   GameLiftFleet-  { _gameLiftFleetBuildId = buildIdarg+  { _gameLiftFleetBuildId = Nothing+  , _gameLiftFleetCertificateConfiguration = Nothing   , _gameLiftFleetDescription = Nothing-  , _gameLiftFleetDesiredEC2Instances = desiredEC2Instancesarg+  , _gameLiftFleetDesiredEC2Instances = Nothing   , _gameLiftFleetEC2InboundPermissions = Nothing   , _gameLiftFleetEC2InstanceType = eC2InstanceTypearg+  , _gameLiftFleetFleetType = Nothing+  , _gameLiftFleetInstanceRoleARN = Nothing   , _gameLiftFleetLogPaths = Nothing   , _gameLiftFleetMaxSize = Nothing+  , _gameLiftFleetMetricGroups = Nothing   , _gameLiftFleetMinSize = Nothing   , _gameLiftFleetName = namearg+  , _gameLiftFleetNewGameSessionProtectionPolicy = Nothing+  , _gameLiftFleetPeerVpcAwsAccountId = Nothing+  , _gameLiftFleetPeerVpcId = Nothing+  , _gameLiftFleetResourceCreationLimitPolicy = Nothing+  , _gameLiftFleetRuntimeConfiguration = Nothing+  , _gameLiftFleetScriptId = Nothing   , _gameLiftFleetServerLaunchParameters = Nothing-  , _gameLiftFleetServerLaunchPath = serverLaunchPatharg+  , _gameLiftFleetServerLaunchPath = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-buildid-glfBuildId :: Lens' GameLiftFleet (Val Text)+glfBuildId :: Lens' GameLiftFleet (Maybe (Val Text)) glfBuildId = lens _gameLiftFleetBuildId (\s a -> s { _gameLiftFleetBuildId = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-certificateconfiguration+glfCertificateConfiguration :: Lens' GameLiftFleet (Maybe GameLiftFleetCertificateConfiguration)+glfCertificateConfiguration = lens _gameLiftFleetCertificateConfiguration (\s a -> s { _gameLiftFleetCertificateConfiguration = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-description glfDescription :: Lens' GameLiftFleet (Maybe (Val Text)) glfDescription = lens _gameLiftFleetDescription (\s a -> s { _gameLiftFleetDescription = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-desiredec2instances-glfDesiredEC2Instances :: Lens' GameLiftFleet (Val Integer)+glfDesiredEC2Instances :: Lens' GameLiftFleet (Maybe (Val Integer)) glfDesiredEC2Instances = lens _gameLiftFleetDesiredEC2Instances (\s a -> s { _gameLiftFleetDesiredEC2Instances = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-ec2inboundpermissions@@ -90,6 +124,14 @@ glfEC2InstanceType :: Lens' GameLiftFleet (Val Text) glfEC2InstanceType = lens _gameLiftFleetEC2InstanceType (\s a -> s { _gameLiftFleetEC2InstanceType = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-fleettype+glfFleetType :: Lens' GameLiftFleet (Maybe (Val Text))+glfFleetType = lens _gameLiftFleetFleetType (\s a -> s { _gameLiftFleetFleetType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-instancerolearn+glfInstanceRoleARN :: Lens' GameLiftFleet (Maybe (Val Text))+glfInstanceRoleARN = lens _gameLiftFleetInstanceRoleARN (\s a -> s { _gameLiftFleetInstanceRoleARN = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-logpaths glfLogPaths :: Lens' GameLiftFleet (Maybe (ValList Text)) glfLogPaths = lens _gameLiftFleetLogPaths (\s a -> s { _gameLiftFleetLogPaths = a })@@ -98,6 +140,10 @@ glfMaxSize :: Lens' GameLiftFleet (Maybe (Val Integer)) glfMaxSize = lens _gameLiftFleetMaxSize (\s a -> s { _gameLiftFleetMaxSize = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-metricgroups+glfMetricGroups :: Lens' GameLiftFleet (Maybe (ValList Text))+glfMetricGroups = lens _gameLiftFleetMetricGroups (\s a -> s { _gameLiftFleetMetricGroups = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-minsize glfMinSize :: Lens' GameLiftFleet (Maybe (Val Integer)) glfMinSize = lens _gameLiftFleetMinSize (\s a -> s { _gameLiftFleetMinSize = a })@@ -106,10 +152,34 @@ glfName :: Lens' GameLiftFleet (Val Text) glfName = lens _gameLiftFleetName (\s a -> s { _gameLiftFleetName = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-newgamesessionprotectionpolicy+glfNewGameSessionProtectionPolicy :: Lens' GameLiftFleet (Maybe (Val Text))+glfNewGameSessionProtectionPolicy = lens _gameLiftFleetNewGameSessionProtectionPolicy (\s a -> s { _gameLiftFleetNewGameSessionProtectionPolicy = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-peervpcawsaccountid+glfPeerVpcAwsAccountId :: Lens' GameLiftFleet (Maybe (Val Text))+glfPeerVpcAwsAccountId = lens _gameLiftFleetPeerVpcAwsAccountId (\s a -> s { _gameLiftFleetPeerVpcAwsAccountId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-peervpcid+glfPeerVpcId :: Lens' GameLiftFleet (Maybe (Val Text))+glfPeerVpcId = lens _gameLiftFleetPeerVpcId (\s a -> s { _gameLiftFleetPeerVpcId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-resourcecreationlimitpolicy+glfResourceCreationLimitPolicy :: Lens' GameLiftFleet (Maybe GameLiftFleetResourceCreationLimitPolicy)+glfResourceCreationLimitPolicy = lens _gameLiftFleetResourceCreationLimitPolicy (\s a -> s { _gameLiftFleetResourceCreationLimitPolicy = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-runtimeconfiguration+glfRuntimeConfiguration :: Lens' GameLiftFleet (Maybe GameLiftFleetRuntimeConfiguration)+glfRuntimeConfiguration = lens _gameLiftFleetRuntimeConfiguration (\s a -> s { _gameLiftFleetRuntimeConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-scriptid+glfScriptId :: Lens' GameLiftFleet (Maybe (Val Text))+glfScriptId = lens _gameLiftFleetScriptId (\s a -> s { _gameLiftFleetScriptId = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-serverlaunchparameters glfServerLaunchParameters :: Lens' GameLiftFleet (Maybe (Val Text)) glfServerLaunchParameters = lens _gameLiftFleetServerLaunchParameters (\s a -> s { _gameLiftFleetServerLaunchParameters = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-serverlaunchpath-glfServerLaunchPath :: Lens' GameLiftFleet (Val Text)+glfServerLaunchPath :: Lens' GameLiftFleet (Maybe (Val Text)) glfServerLaunchPath = lens _gameLiftFleetServerLaunchPath (\s a -> s { _gameLiftFleetServerLaunchPath = a })

@@ -19,7 +19,7 @@   { _glueCrawlerClassifiers :: Maybe (ValList Text)   , _glueCrawlerConfiguration :: Maybe (Val Text)   , _glueCrawlerCrawlerSecurityConfiguration :: Maybe (Val Text)-  , _glueCrawlerDatabaseName :: Val Text+  , _glueCrawlerDatabaseName :: Maybe (Val Text)   , _glueCrawlerDescription :: Maybe (Val Text)   , _glueCrawlerName :: Maybe (Val Text)   , _glueCrawlerRole :: Val Text@@ -39,7 +39,7 @@         [ fmap (("Classifiers",) . toJSON) _glueCrawlerClassifiers         , fmap (("Configuration",) . toJSON) _glueCrawlerConfiguration         , fmap (("CrawlerSecurityConfiguration",) . toJSON) _glueCrawlerCrawlerSecurityConfiguration-        , (Just . ("DatabaseName",) . toJSON) _glueCrawlerDatabaseName+        , fmap (("DatabaseName",) . toJSON) _glueCrawlerDatabaseName         , fmap (("Description",) . toJSON) _glueCrawlerDescription         , fmap (("Name",) . toJSON) _glueCrawlerName         , (Just . ("Role",) . toJSON) _glueCrawlerRole@@ -53,16 +53,15 @@  -- | Constructor for 'GlueCrawler' containing required fields as arguments. glueCrawler-  :: Val Text -- ^ 'gcDatabaseName'-  -> Val Text -- ^ 'gcRole'+  :: Val Text -- ^ 'gcRole'   -> GlueCrawlerTargets -- ^ 'gcTargets'   -> GlueCrawler-glueCrawler databaseNamearg rolearg targetsarg =+glueCrawler rolearg targetsarg =   GlueCrawler   { _glueCrawlerClassifiers = Nothing   , _glueCrawlerConfiguration = Nothing   , _glueCrawlerCrawlerSecurityConfiguration = Nothing-  , _glueCrawlerDatabaseName = databaseNamearg+  , _glueCrawlerDatabaseName = Nothing   , _glueCrawlerDescription = Nothing   , _glueCrawlerName = Nothing   , _glueCrawlerRole = rolearg@@ -86,7 +85,7 @@ gcCrawlerSecurityConfiguration = lens _glueCrawlerCrawlerSecurityConfiguration (\s a -> s { _glueCrawlerCrawlerSecurityConfiguration = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-crawler.html#cfn-glue-crawler-databasename-gcDatabaseName :: Lens' GlueCrawler (Val Text)+gcDatabaseName :: Lens' GlueCrawler (Maybe (Val Text)) gcDatabaseName = lens _glueCrawlerDatabaseName (\s a -> s { _glueCrawlerDatabaseName = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-crawler.html#cfn-glue-crawler-description

@@ -0,0 +1,98 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-jobtemplate.html++module Stratosphere.Resources.MediaConvertJobTemplate where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.MediaConvertJobTemplateAccelerationSettings++-- | Full data type definition for MediaConvertJobTemplate. See+-- 'mediaConvertJobTemplate' for a more convenient constructor.+data MediaConvertJobTemplate =+  MediaConvertJobTemplate+  { _mediaConvertJobTemplateAccelerationSettings :: Maybe MediaConvertJobTemplateAccelerationSettings+  , _mediaConvertJobTemplateCategory :: Maybe (Val Text)+  , _mediaConvertJobTemplateDescription :: Maybe (Val Text)+  , _mediaConvertJobTemplateName :: Maybe (Val Text)+  , _mediaConvertJobTemplatePriority :: Maybe (Val Integer)+  , _mediaConvertJobTemplateQueue :: Maybe (Val Text)+  , _mediaConvertJobTemplateSettingsJson :: Object+  , _mediaConvertJobTemplateStatusUpdateInterval :: Maybe (Val Text)+  , _mediaConvertJobTemplateTags :: Maybe Object+  } deriving (Show, Eq)++instance ToResourceProperties MediaConvertJobTemplate where+  toResourceProperties MediaConvertJobTemplate{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::MediaConvert::JobTemplate"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("AccelerationSettings",) . toJSON) _mediaConvertJobTemplateAccelerationSettings+        , fmap (("Category",) . toJSON) _mediaConvertJobTemplateCategory+        , fmap (("Description",) . toJSON) _mediaConvertJobTemplateDescription+        , fmap (("Name",) . toJSON) _mediaConvertJobTemplateName+        , fmap (("Priority",) . toJSON) _mediaConvertJobTemplatePriority+        , fmap (("Queue",) . toJSON) _mediaConvertJobTemplateQueue+        , (Just . ("SettingsJson",) . toJSON) _mediaConvertJobTemplateSettingsJson+        , fmap (("StatusUpdateInterval",) . toJSON) _mediaConvertJobTemplateStatusUpdateInterval+        , fmap (("Tags",) . toJSON) _mediaConvertJobTemplateTags+        ]+    }++-- | Constructor for 'MediaConvertJobTemplate' containing required fields as+-- arguments.+mediaConvertJobTemplate+  :: Object -- ^ 'mcjtSettingsJson'+  -> MediaConvertJobTemplate+mediaConvertJobTemplate settingsJsonarg =+  MediaConvertJobTemplate+  { _mediaConvertJobTemplateAccelerationSettings = Nothing+  , _mediaConvertJobTemplateCategory = Nothing+  , _mediaConvertJobTemplateDescription = Nothing+  , _mediaConvertJobTemplateName = Nothing+  , _mediaConvertJobTemplatePriority = Nothing+  , _mediaConvertJobTemplateQueue = Nothing+  , _mediaConvertJobTemplateSettingsJson = settingsJsonarg+  , _mediaConvertJobTemplateStatusUpdateInterval = Nothing+  , _mediaConvertJobTemplateTags = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-jobtemplate.html#cfn-mediaconvert-jobtemplate-accelerationsettings+mcjtAccelerationSettings :: Lens' MediaConvertJobTemplate (Maybe MediaConvertJobTemplateAccelerationSettings)+mcjtAccelerationSettings = lens _mediaConvertJobTemplateAccelerationSettings (\s a -> s { _mediaConvertJobTemplateAccelerationSettings = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-jobtemplate.html#cfn-mediaconvert-jobtemplate-category+mcjtCategory :: Lens' MediaConvertJobTemplate (Maybe (Val Text))+mcjtCategory = lens _mediaConvertJobTemplateCategory (\s a -> s { _mediaConvertJobTemplateCategory = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-jobtemplate.html#cfn-mediaconvert-jobtemplate-description+mcjtDescription :: Lens' MediaConvertJobTemplate (Maybe (Val Text))+mcjtDescription = lens _mediaConvertJobTemplateDescription (\s a -> s { _mediaConvertJobTemplateDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-jobtemplate.html#cfn-mediaconvert-jobtemplate-name+mcjtName :: Lens' MediaConvertJobTemplate (Maybe (Val Text))+mcjtName = lens _mediaConvertJobTemplateName (\s a -> s { _mediaConvertJobTemplateName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-jobtemplate.html#cfn-mediaconvert-jobtemplate-priority+mcjtPriority :: Lens' MediaConvertJobTemplate (Maybe (Val Integer))+mcjtPriority = lens _mediaConvertJobTemplatePriority (\s a -> s { _mediaConvertJobTemplatePriority = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-jobtemplate.html#cfn-mediaconvert-jobtemplate-queue+mcjtQueue :: Lens' MediaConvertJobTemplate (Maybe (Val Text))+mcjtQueue = lens _mediaConvertJobTemplateQueue (\s a -> s { _mediaConvertJobTemplateQueue = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-jobtemplate.html#cfn-mediaconvert-jobtemplate-settingsjson+mcjtSettingsJson :: Lens' MediaConvertJobTemplate Object+mcjtSettingsJson = lens _mediaConvertJobTemplateSettingsJson (\s a -> s { _mediaConvertJobTemplateSettingsJson = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-jobtemplate.html#cfn-mediaconvert-jobtemplate-statusupdateinterval+mcjtStatusUpdateInterval :: Lens' MediaConvertJobTemplate (Maybe (Val Text))+mcjtStatusUpdateInterval = lens _mediaConvertJobTemplateStatusUpdateInterval (\s a -> s { _mediaConvertJobTemplateStatusUpdateInterval = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-jobtemplate.html#cfn-mediaconvert-jobtemplate-tags+mcjtTags :: Lens' MediaConvertJobTemplate (Maybe Object)+mcjtTags = lens _mediaConvertJobTemplateTags (\s a -> s { _mediaConvertJobTemplateTags = a })

@@ -0,0 +1,70 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-preset.html++module Stratosphere.Resources.MediaConvertPreset where++import Stratosphere.ResourceImports+++-- | Full data type definition for MediaConvertPreset. See+-- 'mediaConvertPreset' for a more convenient constructor.+data MediaConvertPreset =+  MediaConvertPreset+  { _mediaConvertPresetCategory :: Maybe (Val Text)+  , _mediaConvertPresetDescription :: Maybe (Val Text)+  , _mediaConvertPresetName :: Maybe (Val Text)+  , _mediaConvertPresetSettingsJson :: Object+  , _mediaConvertPresetTags :: Maybe Object+  } deriving (Show, Eq)++instance ToResourceProperties MediaConvertPreset where+  toResourceProperties MediaConvertPreset{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::MediaConvert::Preset"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("Category",) . toJSON) _mediaConvertPresetCategory+        , fmap (("Description",) . toJSON) _mediaConvertPresetDescription+        , fmap (("Name",) . toJSON) _mediaConvertPresetName+        , (Just . ("SettingsJson",) . toJSON) _mediaConvertPresetSettingsJson+        , fmap (("Tags",) . toJSON) _mediaConvertPresetTags+        ]+    }++-- | Constructor for 'MediaConvertPreset' containing required fields as+-- arguments.+mediaConvertPreset+  :: Object -- ^ 'mcpSettingsJson'+  -> MediaConvertPreset+mediaConvertPreset settingsJsonarg =+  MediaConvertPreset+  { _mediaConvertPresetCategory = Nothing+  , _mediaConvertPresetDescription = Nothing+  , _mediaConvertPresetName = Nothing+  , _mediaConvertPresetSettingsJson = settingsJsonarg+  , _mediaConvertPresetTags = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-preset.html#cfn-mediaconvert-preset-category+mcpCategory :: Lens' MediaConvertPreset (Maybe (Val Text))+mcpCategory = lens _mediaConvertPresetCategory (\s a -> s { _mediaConvertPresetCategory = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-preset.html#cfn-mediaconvert-preset-description+mcpDescription :: Lens' MediaConvertPreset (Maybe (Val Text))+mcpDescription = lens _mediaConvertPresetDescription (\s a -> s { _mediaConvertPresetDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-preset.html#cfn-mediaconvert-preset-name+mcpName :: Lens' MediaConvertPreset (Maybe (Val Text))+mcpName = lens _mediaConvertPresetName (\s a -> s { _mediaConvertPresetName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-preset.html#cfn-mediaconvert-preset-settingsjson+mcpSettingsJson :: Lens' MediaConvertPreset Object+mcpSettingsJson = lens _mediaConvertPresetSettingsJson (\s a -> s { _mediaConvertPresetSettingsJson = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-preset.html#cfn-mediaconvert-preset-tags+mcpTags :: Lens' MediaConvertPreset (Maybe Object)+mcpTags = lens _mediaConvertPresetTags (\s a -> s { _mediaConvertPresetTags = a })

@@ -0,0 +1,69 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-queue.html++module Stratosphere.Resources.MediaConvertQueue where++import Stratosphere.ResourceImports+++-- | Full data type definition for MediaConvertQueue. See 'mediaConvertQueue'+-- for a more convenient constructor.+data MediaConvertQueue =+  MediaConvertQueue+  { _mediaConvertQueueDescription :: Maybe (Val Text)+  , _mediaConvertQueueName :: Maybe (Val Text)+  , _mediaConvertQueuePricingPlan :: Maybe (Val Text)+  , _mediaConvertQueueStatus :: Maybe (Val Text)+  , _mediaConvertQueueTags :: Maybe Object+  } deriving (Show, Eq)++instance ToResourceProperties MediaConvertQueue where+  toResourceProperties MediaConvertQueue{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::MediaConvert::Queue"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("Description",) . toJSON) _mediaConvertQueueDescription+        , fmap (("Name",) . toJSON) _mediaConvertQueueName+        , fmap (("PricingPlan",) . toJSON) _mediaConvertQueuePricingPlan+        , fmap (("Status",) . toJSON) _mediaConvertQueueStatus+        , fmap (("Tags",) . toJSON) _mediaConvertQueueTags+        ]+    }++-- | Constructor for 'MediaConvertQueue' containing required fields as+-- arguments.+mediaConvertQueue+  :: MediaConvertQueue+mediaConvertQueue  =+  MediaConvertQueue+  { _mediaConvertQueueDescription = Nothing+  , _mediaConvertQueueName = Nothing+  , _mediaConvertQueuePricingPlan = Nothing+  , _mediaConvertQueueStatus = Nothing+  , _mediaConvertQueueTags = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-queue.html#cfn-mediaconvert-queue-description+mcqDescription :: Lens' MediaConvertQueue (Maybe (Val Text))+mcqDescription = lens _mediaConvertQueueDescription (\s a -> s { _mediaConvertQueueDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-queue.html#cfn-mediaconvert-queue-name+mcqName :: Lens' MediaConvertQueue (Maybe (Val Text))+mcqName = lens _mediaConvertQueueName (\s a -> s { _mediaConvertQueueName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-queue.html#cfn-mediaconvert-queue-pricingplan+mcqPricingPlan :: Lens' MediaConvertQueue (Maybe (Val Text))+mcqPricingPlan = lens _mediaConvertQueuePricingPlan (\s a -> s { _mediaConvertQueuePricingPlan = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-queue.html#cfn-mediaconvert-queue-status+mcqStatus :: Lens' MediaConvertQueue (Maybe (Val Text))+mcqStatus = lens _mediaConvertQueueStatus (\s a -> s { _mediaConvertQueueStatus = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-queue.html#cfn-mediaconvert-queue-tags+mcqTags :: Lens' MediaConvertQueue (Maybe Object)+mcqTags = lens _mediaConvertQueueTags (\s a -> s { _mediaConvertQueueTags = a })

@@ -0,0 +1,71 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-emailtemplate.html++module Stratosphere.Resources.PinpointEmailTemplate where++import Stratosphere.ResourceImports+++-- | Full data type definition for PinpointEmailTemplate. See+-- 'pinpointEmailTemplate' for a more convenient constructor.+data PinpointEmailTemplate =+  PinpointEmailTemplate+  { _pinpointEmailTemplateHtmlPart :: Maybe (Val Text)+  , _pinpointEmailTemplateSubject :: Val Text+  , _pinpointEmailTemplateTags :: Maybe Object+  , _pinpointEmailTemplateTemplateName :: Val Text+  , _pinpointEmailTemplateTextPart :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToResourceProperties PinpointEmailTemplate where+  toResourceProperties PinpointEmailTemplate{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::Pinpoint::EmailTemplate"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("HtmlPart",) . toJSON) _pinpointEmailTemplateHtmlPart+        , (Just . ("Subject",) . toJSON) _pinpointEmailTemplateSubject+        , fmap (("Tags",) . toJSON) _pinpointEmailTemplateTags+        , (Just . ("TemplateName",) . toJSON) _pinpointEmailTemplateTemplateName+        , fmap (("TextPart",) . toJSON) _pinpointEmailTemplateTextPart+        ]+    }++-- | Constructor for 'PinpointEmailTemplate' containing required fields as+-- arguments.+pinpointEmailTemplate+  :: Val Text -- ^ 'petSubject'+  -> Val Text -- ^ 'petTemplateName'+  -> PinpointEmailTemplate+pinpointEmailTemplate subjectarg templateNamearg =+  PinpointEmailTemplate+  { _pinpointEmailTemplateHtmlPart = Nothing+  , _pinpointEmailTemplateSubject = subjectarg+  , _pinpointEmailTemplateTags = Nothing+  , _pinpointEmailTemplateTemplateName = templateNamearg+  , _pinpointEmailTemplateTextPart = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-emailtemplate.html#cfn-pinpoint-emailtemplate-htmlpart+petHtmlPart :: Lens' PinpointEmailTemplate (Maybe (Val Text))+petHtmlPart = lens _pinpointEmailTemplateHtmlPart (\s a -> s { _pinpointEmailTemplateHtmlPart = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-emailtemplate.html#cfn-pinpoint-emailtemplate-subject+petSubject :: Lens' PinpointEmailTemplate (Val Text)+petSubject = lens _pinpointEmailTemplateSubject (\s a -> s { _pinpointEmailTemplateSubject = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-emailtemplate.html#cfn-pinpoint-emailtemplate-tags+petTags :: Lens' PinpointEmailTemplate (Maybe Object)+petTags = lens _pinpointEmailTemplateTags (\s a -> s { _pinpointEmailTemplateTags = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-emailtemplate.html#cfn-pinpoint-emailtemplate-templatename+petTemplateName :: Lens' PinpointEmailTemplate (Val Text)+petTemplateName = lens _pinpointEmailTemplateTemplateName (\s a -> s { _pinpointEmailTemplateTemplateName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-emailtemplate.html#cfn-pinpoint-emailtemplate-textpart+petTextPart :: Lens' PinpointEmailTemplate (Maybe (Val Text))+petTextPart = lens _pinpointEmailTemplateTextPart (\s a -> s { _pinpointEmailTemplateTextPart = a })

@@ -0,0 +1,86 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-pushtemplate.html++module Stratosphere.Resources.PinpointPushTemplate where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.PinpointPushTemplateAndroidPushNotificationTemplate+import Stratosphere.ResourceProperties.PinpointPushTemplateAPNSPushNotificationTemplate+import Stratosphere.ResourceProperties.PinpointPushTemplateDefaultPushNotificationTemplate++-- | Full data type definition for PinpointPushTemplate. See+-- 'pinpointPushTemplate' for a more convenient constructor.+data PinpointPushTemplate =+  PinpointPushTemplate+  { _pinpointPushTemplateADM :: Maybe PinpointPushTemplateAndroidPushNotificationTemplate+  , _pinpointPushTemplateAPNS :: Maybe PinpointPushTemplateAPNSPushNotificationTemplate+  , _pinpointPushTemplateBaidu :: Maybe PinpointPushTemplateAndroidPushNotificationTemplate+  , _pinpointPushTemplateDefault :: Maybe PinpointPushTemplateDefaultPushNotificationTemplate+  , _pinpointPushTemplateGCM :: Maybe PinpointPushTemplateAndroidPushNotificationTemplate+  , _pinpointPushTemplateTags :: Maybe Object+  , _pinpointPushTemplateTemplateName :: Val Text+  } deriving (Show, Eq)++instance ToResourceProperties PinpointPushTemplate where+  toResourceProperties PinpointPushTemplate{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::Pinpoint::PushTemplate"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("ADM",) . toJSON) _pinpointPushTemplateADM+        , fmap (("APNS",) . toJSON) _pinpointPushTemplateAPNS+        , fmap (("Baidu",) . toJSON) _pinpointPushTemplateBaidu+        , fmap (("Default",) . toJSON) _pinpointPushTemplateDefault+        , fmap (("GCM",) . toJSON) _pinpointPushTemplateGCM+        , fmap (("Tags",) . toJSON) _pinpointPushTemplateTags+        , (Just . ("TemplateName",) . toJSON) _pinpointPushTemplateTemplateName+        ]+    }++-- | Constructor for 'PinpointPushTemplate' containing required fields as+-- arguments.+pinpointPushTemplate+  :: Val Text -- ^ 'pptTemplateName'+  -> PinpointPushTemplate+pinpointPushTemplate templateNamearg =+  PinpointPushTemplate+  { _pinpointPushTemplateADM = Nothing+  , _pinpointPushTemplateAPNS = Nothing+  , _pinpointPushTemplateBaidu = Nothing+  , _pinpointPushTemplateDefault = Nothing+  , _pinpointPushTemplateGCM = Nothing+  , _pinpointPushTemplateTags = Nothing+  , _pinpointPushTemplateTemplateName = templateNamearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-pushtemplate.html#cfn-pinpoint-pushtemplate-adm+pptADM :: Lens' PinpointPushTemplate (Maybe PinpointPushTemplateAndroidPushNotificationTemplate)+pptADM = lens _pinpointPushTemplateADM (\s a -> s { _pinpointPushTemplateADM = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-pushtemplate.html#cfn-pinpoint-pushtemplate-apns+pptAPNS :: Lens' PinpointPushTemplate (Maybe PinpointPushTemplateAPNSPushNotificationTemplate)+pptAPNS = lens _pinpointPushTemplateAPNS (\s a -> s { _pinpointPushTemplateAPNS = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-pushtemplate.html#cfn-pinpoint-pushtemplate-baidu+pptBaidu :: Lens' PinpointPushTemplate (Maybe PinpointPushTemplateAndroidPushNotificationTemplate)+pptBaidu = lens _pinpointPushTemplateBaidu (\s a -> s { _pinpointPushTemplateBaidu = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-pushtemplate.html#cfn-pinpoint-pushtemplate-default+pptDefault :: Lens' PinpointPushTemplate (Maybe PinpointPushTemplateDefaultPushNotificationTemplate)+pptDefault = lens _pinpointPushTemplateDefault (\s a -> s { _pinpointPushTemplateDefault = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-pushtemplate.html#cfn-pinpoint-pushtemplate-gcm+pptGCM :: Lens' PinpointPushTemplate (Maybe PinpointPushTemplateAndroidPushNotificationTemplate)+pptGCM = lens _pinpointPushTemplateGCM (\s a -> s { _pinpointPushTemplateGCM = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-pushtemplate.html#cfn-pinpoint-pushtemplate-tags+pptTags :: Lens' PinpointPushTemplate (Maybe Object)+pptTags = lens _pinpointPushTemplateTags (\s a -> s { _pinpointPushTemplateTags = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-pushtemplate.html#cfn-pinpoint-pushtemplate-templatename+pptTemplateName :: Lens' PinpointPushTemplate (Val Text)+pptTemplateName = lens _pinpointPushTemplateTemplateName (\s a -> s { _pinpointPushTemplateTemplateName = a })

@@ -0,0 +1,57 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-smstemplate.html++module Stratosphere.Resources.PinpointSmsTemplate where++import Stratosphere.ResourceImports+++-- | Full data type definition for PinpointSmsTemplate. See+-- 'pinpointSmsTemplate' for a more convenient constructor.+data PinpointSmsTemplate =+  PinpointSmsTemplate+  { _pinpointSmsTemplateBody :: Val Text+  , _pinpointSmsTemplateTags :: Maybe Object+  , _pinpointSmsTemplateTemplateName :: Val Text+  } deriving (Show, Eq)++instance ToResourceProperties PinpointSmsTemplate where+  toResourceProperties PinpointSmsTemplate{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::Pinpoint::SmsTemplate"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("Body",) . toJSON) _pinpointSmsTemplateBody+        , fmap (("Tags",) . toJSON) _pinpointSmsTemplateTags+        , (Just . ("TemplateName",) . toJSON) _pinpointSmsTemplateTemplateName+        ]+    }++-- | Constructor for 'PinpointSmsTemplate' containing required fields as+-- arguments.+pinpointSmsTemplate+  :: Val Text -- ^ 'pstBody'+  -> Val Text -- ^ 'pstTemplateName'+  -> PinpointSmsTemplate+pinpointSmsTemplate bodyarg templateNamearg =+  PinpointSmsTemplate+  { _pinpointSmsTemplateBody = bodyarg+  , _pinpointSmsTemplateTags = Nothing+  , _pinpointSmsTemplateTemplateName = templateNamearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-smstemplate.html#cfn-pinpoint-smstemplate-body+pstBody :: Lens' PinpointSmsTemplate (Val Text)+pstBody = lens _pinpointSmsTemplateBody (\s a -> s { _pinpointSmsTemplateBody = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-smstemplate.html#cfn-pinpoint-smstemplate-tags+pstTags :: Lens' PinpointSmsTemplate (Maybe Object)+pstTags = lens _pinpointSmsTemplateTags (\s a -> s { _pinpointSmsTemplateTags = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-smstemplate.html#cfn-pinpoint-smstemplate-templatename+pstTemplateName :: Lens' PinpointSmsTemplate (Val Text)+pstTemplateName = lens _pinpointSmsTemplateTemplateName (\s a -> s { _pinpointSmsTemplateTemplateName = a })

@@ -9,6 +9,7 @@  import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.SNSTopicSubscription+import Stratosphere.ResourceProperties.Tag  -- | Full data type definition for SNSTopic. See 'snsTopic' for a more -- convenient constructor.@@ -17,6 +18,7 @@   { _sNSTopicDisplayName :: Maybe (Val Text)   , _sNSTopicKmsMasterKeyId :: Maybe (Val Text)   , _sNSTopicSubscription :: Maybe [SNSTopicSubscription]+  , _sNSTopicTags :: Maybe [Tag]   , _sNSTopicTopicName :: Maybe (Val Text)   } deriving (Show, Eq) @@ -29,6 +31,7 @@         [ fmap (("DisplayName",) . toJSON) _sNSTopicDisplayName         , fmap (("KmsMasterKeyId",) . toJSON) _sNSTopicKmsMasterKeyId         , fmap (("Subscription",) . toJSON) _sNSTopicSubscription+        , fmap (("Tags",) . toJSON) _sNSTopicTags         , fmap (("TopicName",) . toJSON) _sNSTopicTopicName         ]     }@@ -41,6 +44,7 @@   { _sNSTopicDisplayName = Nothing   , _sNSTopicKmsMasterKeyId = Nothing   , _sNSTopicSubscription = Nothing+  , _sNSTopicTags = Nothing   , _sNSTopicTopicName = Nothing   } @@ -55,6 +59,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sns-topic.html#cfn-sns-topic-subscription snstSubscription :: Lens' SNSTopic (Maybe [SNSTopicSubscription]) snstSubscription = lens _sNSTopicSubscription (\s a -> s { _sNSTopicSubscription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sns-topic.html#cfn-sns-topic-tags+snstTags :: Lens' SNSTopic (Maybe [Tag])+snstTags = lens _sNSTopicTags (\s a -> s { _sNSTopicTags = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sns-topic.html#cfn-sns-topic-topicname snstTopicName :: Lens' SNSTopic (Maybe (Val Text))

@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 8023d73aaa5a0044d0023f825ce207e89bfe021e0216c3c13980c25ecdbcb86c+-- hash: 56dcf6cf3bda0fc247c362600cace943e22ccdf94b84d6780368e981a5dee328  name:           stratosphere-version:        0.45.0+version:        0.46.0 synopsis:       EDSL for AWS CloudFormation description:    EDSL for AWS CloudFormation category:       AWS, Cloud@@ -100,6 +100,12 @@       Stratosphere.ResourceProperties.AppMeshMeshEgressFilter       Stratosphere.ResourceProperties.AppMeshMeshMeshSpec       Stratosphere.ResourceProperties.AppMeshRouteDuration+      Stratosphere.ResourceProperties.AppMeshRouteGrpcRetryPolicy+      Stratosphere.ResourceProperties.AppMeshRouteGrpcRoute+      Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteAction+      Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteMatch+      Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteMetadata+      Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteMetadataMatchMethod       Stratosphere.ResourceProperties.AppMeshRouteHeaderMatchMethod       Stratosphere.ResourceProperties.AppMeshRouteHttpRetryPolicy       Stratosphere.ResourceProperties.AppMeshRouteHttpRoute@@ -135,8 +141,10 @@       Stratosphere.ResourceProperties.AppStreamFleetComputeCapacity       Stratosphere.ResourceProperties.AppStreamFleetDomainJoinInfo       Stratosphere.ResourceProperties.AppStreamFleetVpcConfig+      Stratosphere.ResourceProperties.AppStreamImageBuilderAccessEndpoint       Stratosphere.ResourceProperties.AppStreamImageBuilderDomainJoinInfo       Stratosphere.ResourceProperties.AppStreamImageBuilderVpcConfig+      Stratosphere.ResourceProperties.AppStreamStackAccessEndpoint       Stratosphere.ResourceProperties.AppStreamStackApplicationSettings       Stratosphere.ResourceProperties.AppStreamStackStorageConnector       Stratosphere.ResourceProperties.AppStreamStackUserSetting@@ -296,6 +304,7 @@       Stratosphere.ResourceProperties.CodePipelineWebhookWebhookFilterRule       Stratosphere.ResourceProperties.CodeStarGitHubRepositoryCode       Stratosphere.ResourceProperties.CodeStarGitHubRepositoryS3+      Stratosphere.ResourceProperties.CodeStarNotificationsNotificationRuleTarget       Stratosphere.ResourceProperties.CognitoIdentityPoolCognitoIdentityProvider       Stratosphere.ResourceProperties.CognitoIdentityPoolCognitoStreams       Stratosphere.ResourceProperties.CognitoIdentityPoolPushSync@@ -462,6 +471,7 @@       Stratosphere.ResourceProperties.ECSTaskDefinitionHealthCheck       Stratosphere.ResourceProperties.ECSTaskDefinitionHostEntry       Stratosphere.ResourceProperties.ECSTaskDefinitionHostVolumeProperties+      Stratosphere.ResourceProperties.ECSTaskDefinitionInferenceAccelerator       Stratosphere.ResourceProperties.ECSTaskDefinitionKernelCapabilities       Stratosphere.ResourceProperties.ECSTaskDefinitionKeyValuePair       Stratosphere.ResourceProperties.ECSTaskDefinitionLinuxParameters@@ -527,6 +537,7 @@       Stratosphere.ResourceProperties.ElasticsearchDomainEBSOptions       Stratosphere.ResourceProperties.ElasticsearchDomainElasticsearchClusterConfig       Stratosphere.ResourceProperties.ElasticsearchDomainEncryptionAtRestOptions+      Stratosphere.ResourceProperties.ElasticsearchDomainLogPublishingOption       Stratosphere.ResourceProperties.ElasticsearchDomainNodeToNodeEncryptionOptions       Stratosphere.ResourceProperties.ElasticsearchDomainSnapshotOptions       Stratosphere.ResourceProperties.ElasticsearchDomainVPCOptions@@ -580,6 +591,9 @@       Stratosphere.ResourceProperties.EMRStepKeyValue       Stratosphere.ResourceProperties.EventsEventBusPolicyCondition       Stratosphere.ResourceProperties.EventsRuleAwsVpcConfiguration+      Stratosphere.ResourceProperties.EventsRuleBatchArrayProperties+      Stratosphere.ResourceProperties.EventsRuleBatchParameters+      Stratosphere.ResourceProperties.EventsRuleBatchRetryStrategy       Stratosphere.ResourceProperties.EventsRuleEcsParameters       Stratosphere.ResourceProperties.EventsRuleInputTransformer       Stratosphere.ResourceProperties.EventsRuleKinesisParameters@@ -593,13 +607,19 @@       Stratosphere.ResourceProperties.FSxFileSystemWindowsConfiguration       Stratosphere.ResourceProperties.GameLiftAliasRoutingStrategy       Stratosphere.ResourceProperties.GameLiftBuildS3Location+      Stratosphere.ResourceProperties.GameLiftFleetCertificateConfiguration       Stratosphere.ResourceProperties.GameLiftFleetIpPermission+      Stratosphere.ResourceProperties.GameLiftFleetResourceCreationLimitPolicy+      Stratosphere.ResourceProperties.GameLiftFleetRuntimeConfiguration+      Stratosphere.ResourceProperties.GameLiftFleetServerProcess       Stratosphere.ResourceProperties.GlueClassifierCsvClassifier       Stratosphere.ResourceProperties.GlueClassifierGrokClassifier       Stratosphere.ResourceProperties.GlueClassifierJsonClassifier       Stratosphere.ResourceProperties.GlueClassifierXMLClassifier       Stratosphere.ResourceProperties.GlueConnectionConnectionInput       Stratosphere.ResourceProperties.GlueConnectionPhysicalConnectionRequirements+      Stratosphere.ResourceProperties.GlueCrawlerCatalogTarget+      Stratosphere.ResourceProperties.GlueCrawlerDynamoDBTarget       Stratosphere.ResourceProperties.GlueCrawlerJdbcTarget       Stratosphere.ResourceProperties.GlueCrawlerS3Target       Stratosphere.ResourceProperties.GlueCrawlerSchedule@@ -884,6 +904,7 @@       Stratosphere.ResourceProperties.ManagedBlockchainMemberNetworkFrameworkConfiguration       Stratosphere.ResourceProperties.ManagedBlockchainMemberVotingPolicy       Stratosphere.ResourceProperties.ManagedBlockchainNodeNodeConfiguration+      Stratosphere.ResourceProperties.MediaConvertJobTemplateAccelerationSettings       Stratosphere.ResourceProperties.MediaLiveChannelAribSourceSettings       Stratosphere.ResourceProperties.MediaLiveChannelAudioLanguageSelection       Stratosphere.ResourceProperties.MediaLiveChannelAudioPidSelection@@ -973,6 +994,9 @@       Stratosphere.ResourceProperties.PinpointEmailDedicatedIpPoolTags       Stratosphere.ResourceProperties.PinpointEmailIdentityMailFromAttributes       Stratosphere.ResourceProperties.PinpointEmailIdentityTags+      Stratosphere.ResourceProperties.PinpointPushTemplateAndroidPushNotificationTemplate+      Stratosphere.ResourceProperties.PinpointPushTemplateAPNSPushNotificationTemplate+      Stratosphere.ResourceProperties.PinpointPushTemplateDefaultPushNotificationTemplate       Stratosphere.ResourceProperties.PinpointSegmentAttributeDimension       Stratosphere.ResourceProperties.PinpointSegmentBehavior       Stratosphere.ResourceProperties.PinpointSegmentCoordinates@@ -1237,6 +1261,7 @@       Stratosphere.Resources.CodePipelinePipeline       Stratosphere.Resources.CodePipelineWebhook       Stratosphere.Resources.CodeStarGitHubRepository+      Stratosphere.Resources.CodeStarNotificationsNotificationRule       Stratosphere.Resources.CognitoIdentityPool       Stratosphere.Resources.CognitoIdentityPoolRoleAttachment       Stratosphere.Resources.CognitoUserPool@@ -1460,6 +1485,9 @@       Stratosphere.Resources.LogsSubscriptionFilter       Stratosphere.Resources.ManagedBlockchainMember       Stratosphere.Resources.ManagedBlockchainNode+      Stratosphere.Resources.MediaConvertJobTemplate+      Stratosphere.Resources.MediaConvertPreset+      Stratosphere.Resources.MediaConvertQueue       Stratosphere.Resources.MediaLiveChannel       Stratosphere.Resources.MediaLiveInput       Stratosphere.Resources.MediaLiveInputSecurityGroup@@ -1492,10 +1520,13 @@       Stratosphere.Resources.PinpointEmailConfigurationSetEventDestination       Stratosphere.Resources.PinpointEmailDedicatedIpPool       Stratosphere.Resources.PinpointEmailIdentity+      Stratosphere.Resources.PinpointEmailTemplate       Stratosphere.Resources.PinpointEventStream       Stratosphere.Resources.PinpointGCMChannel+      Stratosphere.Resources.PinpointPushTemplate       Stratosphere.Resources.PinpointSegment       Stratosphere.Resources.PinpointSMSChannel+      Stratosphere.Resources.PinpointSmsTemplate       Stratosphere.Resources.PinpointVoiceChannel       Stratosphere.Resources.QLDBLedger       Stratosphere.Resources.RAMResourceShare