stratosphere 0.50.0 → 0.51.0

raw patch · 48 files changed

+1940/−9 lines, 48 files

Files

• CHANGELOG.md +4/−0
• library-gen/Stratosphere/ResourceProperties/ApiGatewayV2IntegrationTlsConfig.hs +38/−0
• library-gen/Stratosphere/ResourceProperties/CassandraTableBillingMode.hs +46/−0
• library-gen/Stratosphere/ResourceProperties/CassandraTableClusteringKeyColumn.hs +46/−0
• library-gen/Stratosphere/ResourceProperties/CassandraTableColumn.hs +47/−0
• library-gen/Stratosphere/ResourceProperties/CassandraTableProvisionedThroughput.hs +47/−0
• library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionDistributionConfig.hs +8/−0
• library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionLambdaFunctionAssociation.hs +7/−0
• library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionOriginGroup.hs +56/−0
• library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionOriginGroupFailoverCriteria.hs +41/−0
• library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionOriginGroupMember.hs +40/−0
• library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionOriginGroupMembers.hs +48/−0
• library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionOriginGroups.hs +46/−0
• library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionStatusCodes.hs +47/−0
• library-gen/Stratosphere/ResourceProperties/DMSEndpointKafkaSettings.hs +45/−0
• library-gen/Stratosphere/ResourceProperties/MSKClusterBrokerLogs.hs +54/−0
• library-gen/Stratosphere/ResourceProperties/MSKClusterCloudWatchLogs.hs +46/−0
• library-gen/Stratosphere/ResourceProperties/MSKClusterFirehose.hs +46/−0
• library-gen/Stratosphere/ResourceProperties/MSKClusterLoggingInfo.hs +39/−0
• library-gen/Stratosphere/ResourceProperties/MSKClusterS3.hs +52/−0
• library-gen/Stratosphere/ResourceProperties/NetworkManagerDeviceLocation.hs +52/−0
• library-gen/Stratosphere/ResourceProperties/NetworkManagerLinkBandwidth.hs +45/−0
• library-gen/Stratosphere/ResourceProperties/NetworkManagerSiteLocation.hs +52/−0
• library-gen/Stratosphere/ResourceProperties/ResourceGroupsGroupQuery.hs +52/−0
• library-gen/Stratosphere/ResourceProperties/ResourceGroupsGroupResourceQuery.hs +45/−0
• library-gen/Stratosphere/ResourceProperties/ResourceGroupsGroupTagFilter.hs +45/−0
• library-gen/Stratosphere/Resources.hs +34/−0
• library-gen/Stratosphere/Resources/ApiGatewayV2Integration.hs +8/−1
• library-gen/Stratosphere/Resources/AppMeshRoute.hs +7/−0
• library-gen/Stratosphere/Resources/AppMeshVirtualNode.hs +7/−0
• library-gen/Stratosphere/Resources/AppMeshVirtualRouter.hs +7/−0
• library-gen/Stratosphere/Resources/AppMeshVirtualService.hs +7/−0
• library-gen/Stratosphere/Resources/CassandraKeyspace.hs +41/−0
• library-gen/Stratosphere/Resources/CassandraTable.hs +79/−0
• library-gen/Stratosphere/Resources/CodeGuruProfilerProfilingGroup.hs +42/−0
• library-gen/Stratosphere/Resources/DMSEndpoint.hs +8/−0
• library-gen/Stratosphere/Resources/EC2ClientVpnEndpoint.hs +14/−0
• library-gen/Stratosphere/Resources/MSKCluster.hs +8/−0
• library-gen/Stratosphere/Resources/NetworkManagerCustomerGatewayAssociation.hs +66/−0
• library-gen/Stratosphere/Resources/NetworkManagerDevice.hs +99/−0
• library-gen/Stratosphere/Resources/NetworkManagerGlobalNetwork.hs +48/−0
• library-gen/Stratosphere/Resources/NetworkManagerLink.hs +87/−0
• library-gen/Stratosphere/Resources/NetworkManagerLinkAssociation.hs +58/−0
• library-gen/Stratosphere/Resources/NetworkManagerSite.hs +64/−0
• library-gen/Stratosphere/Resources/NetworkManagerTransitGatewayRegistration.hs +51/−0
• library-gen/Stratosphere/Resources/ResourceGroupsGroup.hs +63/−0
• library-gen/Stratosphere/Resources/ServiceCatalogLaunchRoleConstraint.hs +12/−6
• stratosphere.cabal +36/−2

@@ -1,5 +1,9 @@ # Change Log +## 0.51.0++* Update resource specification document to version 11.6.0+ ## 0.50.0  * Update resource specification document to version 11.4.0

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

@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-billingmode.html++module Stratosphere.ResourceProperties.CassandraTableBillingMode where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.CassandraTableProvisionedThroughput++-- | Full data type definition for CassandraTableBillingMode. See+-- 'cassandraTableBillingMode' for a more convenient constructor.+data CassandraTableBillingMode =+  CassandraTableBillingMode+  { _cassandraTableBillingModeMode :: Val Text+  , _cassandraTableBillingModeProvisionedThroughput :: Maybe CassandraTableProvisionedThroughput+  } deriving (Show, Eq)++instance ToJSON CassandraTableBillingMode where+  toJSON CassandraTableBillingMode{..} =+    object $+    catMaybes+    [ (Just . ("Mode",) . toJSON) _cassandraTableBillingModeMode+    , fmap (("ProvisionedThroughput",) . toJSON) _cassandraTableBillingModeProvisionedThroughput+    ]++-- | Constructor for 'CassandraTableBillingMode' containing required fields as+-- arguments.+cassandraTableBillingMode+  :: Val Text -- ^ 'ctbmMode'+  -> CassandraTableBillingMode+cassandraTableBillingMode modearg =+  CassandraTableBillingMode+  { _cassandraTableBillingModeMode = modearg+  , _cassandraTableBillingModeProvisionedThroughput = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-billingmode.html#cfn-cassandra-table-billingmode-mode+ctbmMode :: Lens' CassandraTableBillingMode (Val Text)+ctbmMode = lens _cassandraTableBillingModeMode (\s a -> s { _cassandraTableBillingModeMode = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-billingmode.html#cfn-cassandra-table-billingmode-provisionedthroughput+ctbmProvisionedThroughput :: Lens' CassandraTableBillingMode (Maybe CassandraTableProvisionedThroughput)+ctbmProvisionedThroughput = lens _cassandraTableBillingModeProvisionedThroughput (\s a -> s { _cassandraTableBillingModeProvisionedThroughput = a })

@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-clusteringkeycolumn.html++module Stratosphere.ResourceProperties.CassandraTableClusteringKeyColumn where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.CassandraTableColumn++-- | Full data type definition for CassandraTableClusteringKeyColumn. See+-- 'cassandraTableClusteringKeyColumn' for a more convenient constructor.+data CassandraTableClusteringKeyColumn =+  CassandraTableClusteringKeyColumn+  { _cassandraTableClusteringKeyColumnColumn :: CassandraTableColumn+  , _cassandraTableClusteringKeyColumnOrderBy :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON CassandraTableClusteringKeyColumn where+  toJSON CassandraTableClusteringKeyColumn{..} =+    object $+    catMaybes+    [ (Just . ("Column",) . toJSON) _cassandraTableClusteringKeyColumnColumn+    , fmap (("OrderBy",) . toJSON) _cassandraTableClusteringKeyColumnOrderBy+    ]++-- | Constructor for 'CassandraTableClusteringKeyColumn' containing required+-- fields as arguments.+cassandraTableClusteringKeyColumn+  :: CassandraTableColumn -- ^ 'ctckcColumn'+  -> CassandraTableClusteringKeyColumn+cassandraTableClusteringKeyColumn columnarg =+  CassandraTableClusteringKeyColumn+  { _cassandraTableClusteringKeyColumnColumn = columnarg+  , _cassandraTableClusteringKeyColumnOrderBy = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-clusteringkeycolumn.html#cfn-cassandra-table-clusteringkeycolumn-column+ctckcColumn :: Lens' CassandraTableClusteringKeyColumn CassandraTableColumn+ctckcColumn = lens _cassandraTableClusteringKeyColumnColumn (\s a -> s { _cassandraTableClusteringKeyColumnColumn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-clusteringkeycolumn.html#cfn-cassandra-table-clusteringkeycolumn-orderby+ctckcOrderBy :: Lens' CassandraTableClusteringKeyColumn (Maybe (Val Text))+ctckcOrderBy = lens _cassandraTableClusteringKeyColumnOrderBy (\s a -> s { _cassandraTableClusteringKeyColumnOrderBy = a })

@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-column.html++module Stratosphere.ResourceProperties.CassandraTableColumn where++import Stratosphere.ResourceImports+++-- | Full data type definition for CassandraTableColumn. See+-- 'cassandraTableColumn' for a more convenient constructor.+data CassandraTableColumn =+  CassandraTableColumn+  { _cassandraTableColumnColumnName :: Val Text+  , _cassandraTableColumnColumnType :: Val Text+  } deriving (Show, Eq)++instance ToJSON CassandraTableColumn where+  toJSON CassandraTableColumn{..} =+    object $+    catMaybes+    [ (Just . ("ColumnName",) . toJSON) _cassandraTableColumnColumnName+    , (Just . ("ColumnType",) . toJSON) _cassandraTableColumnColumnType+    ]++-- | Constructor for 'CassandraTableColumn' containing required fields as+-- arguments.+cassandraTableColumn+  :: Val Text -- ^ 'ctcColumnName'+  -> Val Text -- ^ 'ctcColumnType'+  -> CassandraTableColumn+cassandraTableColumn columnNamearg columnTypearg =+  CassandraTableColumn+  { _cassandraTableColumnColumnName = columnNamearg+  , _cassandraTableColumnColumnType = columnTypearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-column.html#cfn-cassandra-table-column-columnname+ctcColumnName :: Lens' CassandraTableColumn (Val Text)+ctcColumnName = lens _cassandraTableColumnColumnName (\s a -> s { _cassandraTableColumnColumnName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-column.html#cfn-cassandra-table-column-columntype+ctcColumnType :: Lens' CassandraTableColumn (Val Text)+ctcColumnType = lens _cassandraTableColumnColumnType (\s a -> s { _cassandraTableColumnColumnType = a })

@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-provisionedthroughput.html++module Stratosphere.ResourceProperties.CassandraTableProvisionedThroughput where++import Stratosphere.ResourceImports+++-- | Full data type definition for CassandraTableProvisionedThroughput. See+-- 'cassandraTableProvisionedThroughput' for a more convenient constructor.+data CassandraTableProvisionedThroughput =+  CassandraTableProvisionedThroughput+  { _cassandraTableProvisionedThroughputReadCapacityUnits :: Val Integer+  , _cassandraTableProvisionedThroughputWriteCapacityUnits :: Val Integer+  } deriving (Show, Eq)++instance ToJSON CassandraTableProvisionedThroughput where+  toJSON CassandraTableProvisionedThroughput{..} =+    object $+    catMaybes+    [ (Just . ("ReadCapacityUnits",) . toJSON) _cassandraTableProvisionedThroughputReadCapacityUnits+    , (Just . ("WriteCapacityUnits",) . toJSON) _cassandraTableProvisionedThroughputWriteCapacityUnits+    ]++-- | Constructor for 'CassandraTableProvisionedThroughput' containing required+-- fields as arguments.+cassandraTableProvisionedThroughput+  :: Val Integer -- ^ 'ctptReadCapacityUnits'+  -> Val Integer -- ^ 'ctptWriteCapacityUnits'+  -> CassandraTableProvisionedThroughput+cassandraTableProvisionedThroughput readCapacityUnitsarg writeCapacityUnitsarg =+  CassandraTableProvisionedThroughput+  { _cassandraTableProvisionedThroughputReadCapacityUnits = readCapacityUnitsarg+  , _cassandraTableProvisionedThroughputWriteCapacityUnits = writeCapacityUnitsarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-provisionedthroughput.html#cfn-cassandra-table-provisionedthroughput-readcapacityunits+ctptReadCapacityUnits :: Lens' CassandraTableProvisionedThroughput (Val Integer)+ctptReadCapacityUnits = lens _cassandraTableProvisionedThroughputReadCapacityUnits (\s a -> s { _cassandraTableProvisionedThroughputReadCapacityUnits = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-provisionedthroughput.html#cfn-cassandra-table-provisionedthroughput-writecapacityunits+ctptWriteCapacityUnits :: Lens' CassandraTableProvisionedThroughput (Val Integer)+ctptWriteCapacityUnits = lens _cassandraTableProvisionedThroughputWriteCapacityUnits (\s a -> s { _cassandraTableProvisionedThroughputWriteCapacityUnits = a })

@@ -12,6 +12,7 @@ import Stratosphere.ResourceProperties.CloudFrontDistributionCustomErrorResponse import Stratosphere.ResourceProperties.CloudFrontDistributionDefaultCacheBehavior import Stratosphere.ResourceProperties.CloudFrontDistributionLogging+import Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroups import Stratosphere.ResourceProperties.CloudFrontDistributionOrigin import Stratosphere.ResourceProperties.CloudFrontDistributionRestrictions import Stratosphere.ResourceProperties.CloudFrontDistributionViewerCertificate@@ -31,6 +32,7 @@   , _cloudFrontDistributionDistributionConfigHttpVersion :: Maybe (Val Text)   , _cloudFrontDistributionDistributionConfigIPV6Enabled :: Maybe (Val Bool)   , _cloudFrontDistributionDistributionConfigLogging :: Maybe CloudFrontDistributionLogging+  , _cloudFrontDistributionDistributionConfigOriginGroups :: Maybe CloudFrontDistributionOriginGroups   , _cloudFrontDistributionDistributionConfigOrigins :: Maybe [CloudFrontDistributionOrigin]   , _cloudFrontDistributionDistributionConfigPriceClass :: Maybe (Val Text)   , _cloudFrontDistributionDistributionConfigRestrictions :: Maybe CloudFrontDistributionRestrictions@@ -52,6 +54,7 @@     , fmap (("HttpVersion",) . toJSON) _cloudFrontDistributionDistributionConfigHttpVersion     , fmap (("IPV6Enabled",) . toJSON) _cloudFrontDistributionDistributionConfigIPV6Enabled     , fmap (("Logging",) . toJSON) _cloudFrontDistributionDistributionConfigLogging+    , fmap (("OriginGroups",) . toJSON) _cloudFrontDistributionDistributionConfigOriginGroups     , fmap (("Origins",) . toJSON) _cloudFrontDistributionDistributionConfigOrigins     , fmap (("PriceClass",) . toJSON) _cloudFrontDistributionDistributionConfigPriceClass     , fmap (("Restrictions",) . toJSON) _cloudFrontDistributionDistributionConfigRestrictions@@ -76,6 +79,7 @@   , _cloudFrontDistributionDistributionConfigHttpVersion = Nothing   , _cloudFrontDistributionDistributionConfigIPV6Enabled = Nothing   , _cloudFrontDistributionDistributionConfigLogging = Nothing+  , _cloudFrontDistributionDistributionConfigOriginGroups = Nothing   , _cloudFrontDistributionDistributionConfigOrigins = Nothing   , _cloudFrontDistributionDistributionConfigPriceClass = Nothing   , _cloudFrontDistributionDistributionConfigRestrictions = Nothing@@ -122,6 +126,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-logging cfddcLogging :: Lens' CloudFrontDistributionDistributionConfig (Maybe CloudFrontDistributionLogging) cfddcLogging = lens _cloudFrontDistributionDistributionConfigLogging (\s a -> s { _cloudFrontDistributionDistributionConfigLogging = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-origingroups+cfddcOriginGroups :: Lens' CloudFrontDistributionDistributionConfig (Maybe CloudFrontDistributionOriginGroups)+cfddcOriginGroups = lens _cloudFrontDistributionDistributionConfigOriginGroups (\s a -> s { _cloudFrontDistributionDistributionConfigOriginGroups = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-origins cfddcOrigins :: Lens' CloudFrontDistributionDistributionConfig (Maybe [CloudFrontDistributionOrigin])

@@ -17,6 +17,7 @@ data CloudFrontDistributionLambdaFunctionAssociation =   CloudFrontDistributionLambdaFunctionAssociation   { _cloudFrontDistributionLambdaFunctionAssociationEventType :: Maybe (Val Text)+  , _cloudFrontDistributionLambdaFunctionAssociationIncludeBody :: Maybe (Val Bool)   , _cloudFrontDistributionLambdaFunctionAssociationLambdaFunctionARN :: Maybe (Val Text)   } deriving (Show, Eq) @@ -25,6 +26,7 @@     object $     catMaybes     [ fmap (("EventType",) . toJSON) _cloudFrontDistributionLambdaFunctionAssociationEventType+    , fmap (("IncludeBody",) . toJSON) _cloudFrontDistributionLambdaFunctionAssociationIncludeBody     , fmap (("LambdaFunctionARN",) . toJSON) _cloudFrontDistributionLambdaFunctionAssociationLambdaFunctionARN     ] @@ -35,12 +37,17 @@ cloudFrontDistributionLambdaFunctionAssociation  =   CloudFrontDistributionLambdaFunctionAssociation   { _cloudFrontDistributionLambdaFunctionAssociationEventType = Nothing+  , _cloudFrontDistributionLambdaFunctionAssociationIncludeBody = Nothing   , _cloudFrontDistributionLambdaFunctionAssociationLambdaFunctionARN = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-lambdafunctionassociation.html#cfn-cloudfront-distribution-lambdafunctionassociation-eventtype cfdlfaEventType :: Lens' CloudFrontDistributionLambdaFunctionAssociation (Maybe (Val Text)) cfdlfaEventType = lens _cloudFrontDistributionLambdaFunctionAssociationEventType (\s a -> s { _cloudFrontDistributionLambdaFunctionAssociationEventType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-lambdafunctionassociation.html#cfn-cloudfront-distribution-lambdafunctionassociation-includebody+cfdlfaIncludeBody :: Lens' CloudFrontDistributionLambdaFunctionAssociation (Maybe (Val Bool))+cfdlfaIncludeBody = lens _cloudFrontDistributionLambdaFunctionAssociationIncludeBody (\s a -> s { _cloudFrontDistributionLambdaFunctionAssociationIncludeBody = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-lambdafunctionassociation.html#cfn-cloudfront-distribution-lambdafunctionassociation-lambdafunctionarn cfdlfaLambdaFunctionARN :: Lens' CloudFrontDistributionLambdaFunctionAssociation (Maybe (Val Text))

@@ -0,0 +1,56 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origingroup.html++module Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroup where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroupFailoverCriteria+import Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroupMembers++-- | Full data type definition for CloudFrontDistributionOriginGroup. See+-- 'cloudFrontDistributionOriginGroup' for a more convenient constructor.+data CloudFrontDistributionOriginGroup =+  CloudFrontDistributionOriginGroup+  { _cloudFrontDistributionOriginGroupFailoverCriteria :: CloudFrontDistributionOriginGroupFailoverCriteria+  , _cloudFrontDistributionOriginGroupId :: Val Text+  , _cloudFrontDistributionOriginGroupMembers :: CloudFrontDistributionOriginGroupMembers+  } deriving (Show, Eq)++instance ToJSON CloudFrontDistributionOriginGroup where+  toJSON CloudFrontDistributionOriginGroup{..} =+    object $+    catMaybes+    [ (Just . ("FailoverCriteria",) . toJSON) _cloudFrontDistributionOriginGroupFailoverCriteria+    , (Just . ("Id",) . toJSON) _cloudFrontDistributionOriginGroupId+    , (Just . ("Members",) . toJSON) _cloudFrontDistributionOriginGroupMembers+    ]++-- | Constructor for 'CloudFrontDistributionOriginGroup' containing required+-- fields as arguments.+cloudFrontDistributionOriginGroup+  :: CloudFrontDistributionOriginGroupFailoverCriteria -- ^ 'cfdogFailoverCriteria'+  -> Val Text -- ^ 'cfdogId'+  -> CloudFrontDistributionOriginGroupMembers -- ^ 'cfdogMembers'+  -> CloudFrontDistributionOriginGroup+cloudFrontDistributionOriginGroup failoverCriteriaarg idarg membersarg =+  CloudFrontDistributionOriginGroup+  { _cloudFrontDistributionOriginGroupFailoverCriteria = failoverCriteriaarg+  , _cloudFrontDistributionOriginGroupId = idarg+  , _cloudFrontDistributionOriginGroupMembers = membersarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origingroup.html#cfn-cloudfront-distribution-origingroup-failovercriteria+cfdogFailoverCriteria :: Lens' CloudFrontDistributionOriginGroup CloudFrontDistributionOriginGroupFailoverCriteria+cfdogFailoverCriteria = lens _cloudFrontDistributionOriginGroupFailoverCriteria (\s a -> s { _cloudFrontDistributionOriginGroupFailoverCriteria = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origingroup.html#cfn-cloudfront-distribution-origingroup-id+cfdogId :: Lens' CloudFrontDistributionOriginGroup (Val Text)+cfdogId = lens _cloudFrontDistributionOriginGroupId (\s a -> s { _cloudFrontDistributionOriginGroupId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origingroup.html#cfn-cloudfront-distribution-origingroup-members+cfdogMembers :: Lens' CloudFrontDistributionOriginGroup CloudFrontDistributionOriginGroupMembers+cfdogMembers = lens _cloudFrontDistributionOriginGroupMembers (\s a -> s { _cloudFrontDistributionOriginGroupMembers = a })

@@ -0,0 +1,41 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origingroupfailovercriteria.html++module Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroupFailoverCriteria where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.CloudFrontDistributionStatusCodes++-- | Full data type definition for+-- CloudFrontDistributionOriginGroupFailoverCriteria. See+-- 'cloudFrontDistributionOriginGroupFailoverCriteria' for a more convenient+-- constructor.+data CloudFrontDistributionOriginGroupFailoverCriteria =+  CloudFrontDistributionOriginGroupFailoverCriteria+  { _cloudFrontDistributionOriginGroupFailoverCriteriaStatusCodes :: CloudFrontDistributionStatusCodes+  } deriving (Show, Eq)++instance ToJSON CloudFrontDistributionOriginGroupFailoverCriteria where+  toJSON CloudFrontDistributionOriginGroupFailoverCriteria{..} =+    object $+    catMaybes+    [ (Just . ("StatusCodes",) . toJSON) _cloudFrontDistributionOriginGroupFailoverCriteriaStatusCodes+    ]++-- | Constructor for 'CloudFrontDistributionOriginGroupFailoverCriteria'+-- containing required fields as arguments.+cloudFrontDistributionOriginGroupFailoverCriteria+  :: CloudFrontDistributionStatusCodes -- ^ 'cfdogfcStatusCodes'+  -> CloudFrontDistributionOriginGroupFailoverCriteria+cloudFrontDistributionOriginGroupFailoverCriteria statusCodesarg =+  CloudFrontDistributionOriginGroupFailoverCriteria+  { _cloudFrontDistributionOriginGroupFailoverCriteriaStatusCodes = statusCodesarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origingroupfailovercriteria.html#cfn-cloudfront-distribution-origingroupfailovercriteria-statuscodes+cfdogfcStatusCodes :: Lens' CloudFrontDistributionOriginGroupFailoverCriteria CloudFrontDistributionStatusCodes+cfdogfcStatusCodes = lens _cloudFrontDistributionOriginGroupFailoverCriteriaStatusCodes (\s a -> s { _cloudFrontDistributionOriginGroupFailoverCriteriaStatusCodes = a })

@@ -0,0 +1,40 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origingroupmember.html++module Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroupMember where++import Stratosphere.ResourceImports+++-- | Full data type definition for CloudFrontDistributionOriginGroupMember.+-- See 'cloudFrontDistributionOriginGroupMember' for a more convenient+-- constructor.+data CloudFrontDistributionOriginGroupMember =+  CloudFrontDistributionOriginGroupMember+  { _cloudFrontDistributionOriginGroupMemberOriginId :: Val Text+  } deriving (Show, Eq)++instance ToJSON CloudFrontDistributionOriginGroupMember where+  toJSON CloudFrontDistributionOriginGroupMember{..} =+    object $+    catMaybes+    [ (Just . ("OriginId",) . toJSON) _cloudFrontDistributionOriginGroupMemberOriginId+    ]++-- | Constructor for 'CloudFrontDistributionOriginGroupMember' containing+-- required fields as arguments.+cloudFrontDistributionOriginGroupMember+  :: Val Text -- ^ 'cfdogmOriginId'+  -> CloudFrontDistributionOriginGroupMember+cloudFrontDistributionOriginGroupMember originIdarg =+  CloudFrontDistributionOriginGroupMember+  { _cloudFrontDistributionOriginGroupMemberOriginId = originIdarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origingroupmember.html#cfn-cloudfront-distribution-origingroupmember-originid+cfdogmOriginId :: Lens' CloudFrontDistributionOriginGroupMember (Val Text)+cfdogmOriginId = lens _cloudFrontDistributionOriginGroupMemberOriginId (\s a -> s { _cloudFrontDistributionOriginGroupMemberOriginId = a })

@@ -0,0 +1,48 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origingroupmembers.html++module Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroupMembers where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroupMember++-- | Full data type definition for CloudFrontDistributionOriginGroupMembers.+-- See 'cloudFrontDistributionOriginGroupMembers' for a more convenient+-- constructor.+data CloudFrontDistributionOriginGroupMembers =+  CloudFrontDistributionOriginGroupMembers+  { _cloudFrontDistributionOriginGroupMembersItems :: [CloudFrontDistributionOriginGroupMember]+  , _cloudFrontDistributionOriginGroupMembersQuantity :: Val Integer+  } deriving (Show, Eq)++instance ToJSON CloudFrontDistributionOriginGroupMembers where+  toJSON CloudFrontDistributionOriginGroupMembers{..} =+    object $+    catMaybes+    [ (Just . ("Items",) . toJSON) _cloudFrontDistributionOriginGroupMembersItems+    , (Just . ("Quantity",) . toJSON) _cloudFrontDistributionOriginGroupMembersQuantity+    ]++-- | Constructor for 'CloudFrontDistributionOriginGroupMembers' containing+-- required fields as arguments.+cloudFrontDistributionOriginGroupMembers+  :: [CloudFrontDistributionOriginGroupMember] -- ^ 'cfdogmItems'+  -> Val Integer -- ^ 'cfdogmQuantity'+  -> CloudFrontDistributionOriginGroupMembers+cloudFrontDistributionOriginGroupMembers itemsarg quantityarg =+  CloudFrontDistributionOriginGroupMembers+  { _cloudFrontDistributionOriginGroupMembersItems = itemsarg+  , _cloudFrontDistributionOriginGroupMembersQuantity = quantityarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origingroupmembers.html#cfn-cloudfront-distribution-origingroupmembers-items+cfdogmItems :: Lens' CloudFrontDistributionOriginGroupMembers [CloudFrontDistributionOriginGroupMember]+cfdogmItems = lens _cloudFrontDistributionOriginGroupMembersItems (\s a -> s { _cloudFrontDistributionOriginGroupMembersItems = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origingroupmembers.html#cfn-cloudfront-distribution-origingroupmembers-quantity+cfdogmQuantity :: Lens' CloudFrontDistributionOriginGroupMembers (Val Integer)+cfdogmQuantity = lens _cloudFrontDistributionOriginGroupMembersQuantity (\s a -> s { _cloudFrontDistributionOriginGroupMembersQuantity = a })

@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origingroups.html++module Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroups where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroup++-- | Full data type definition for CloudFrontDistributionOriginGroups. See+-- 'cloudFrontDistributionOriginGroups' for a more convenient constructor.+data CloudFrontDistributionOriginGroups =+  CloudFrontDistributionOriginGroups+  { _cloudFrontDistributionOriginGroupsItems :: Maybe [CloudFrontDistributionOriginGroup]+  , _cloudFrontDistributionOriginGroupsQuantity :: Val Integer+  } deriving (Show, Eq)++instance ToJSON CloudFrontDistributionOriginGroups where+  toJSON CloudFrontDistributionOriginGroups{..} =+    object $+    catMaybes+    [ fmap (("Items",) . toJSON) _cloudFrontDistributionOriginGroupsItems+    , (Just . ("Quantity",) . toJSON) _cloudFrontDistributionOriginGroupsQuantity+    ]++-- | Constructor for 'CloudFrontDistributionOriginGroups' containing required+-- fields as arguments.+cloudFrontDistributionOriginGroups+  :: Val Integer -- ^ 'cfdogQuantity'+  -> CloudFrontDistributionOriginGroups+cloudFrontDistributionOriginGroups quantityarg =+  CloudFrontDistributionOriginGroups+  { _cloudFrontDistributionOriginGroupsItems = Nothing+  , _cloudFrontDistributionOriginGroupsQuantity = quantityarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origingroups.html#cfn-cloudfront-distribution-origingroups-items+cfdogItems :: Lens' CloudFrontDistributionOriginGroups (Maybe [CloudFrontDistributionOriginGroup])+cfdogItems = lens _cloudFrontDistributionOriginGroupsItems (\s a -> s { _cloudFrontDistributionOriginGroupsItems = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origingroups.html#cfn-cloudfront-distribution-origingroups-quantity+cfdogQuantity :: Lens' CloudFrontDistributionOriginGroups (Val Integer)+cfdogQuantity = lens _cloudFrontDistributionOriginGroupsQuantity (\s a -> s { _cloudFrontDistributionOriginGroupsQuantity = a })

@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-statuscodes.html++module Stratosphere.ResourceProperties.CloudFrontDistributionStatusCodes where++import Stratosphere.ResourceImports+++-- | Full data type definition for CloudFrontDistributionStatusCodes. See+-- 'cloudFrontDistributionStatusCodes' for a more convenient constructor.+data CloudFrontDistributionStatusCodes =+  CloudFrontDistributionStatusCodes+  { _cloudFrontDistributionStatusCodesItems :: ValList Integer+  , _cloudFrontDistributionStatusCodesQuantity :: Val Integer+  } deriving (Show, Eq)++instance ToJSON CloudFrontDistributionStatusCodes where+  toJSON CloudFrontDistributionStatusCodes{..} =+    object $+    catMaybes+    [ (Just . ("Items",) . toJSON) _cloudFrontDistributionStatusCodesItems+    , (Just . ("Quantity",) . toJSON) _cloudFrontDistributionStatusCodesQuantity+    ]++-- | Constructor for 'CloudFrontDistributionStatusCodes' containing required+-- fields as arguments.+cloudFrontDistributionStatusCodes+  :: ValList Integer -- ^ 'cfdscItems'+  -> Val Integer -- ^ 'cfdscQuantity'+  -> CloudFrontDistributionStatusCodes+cloudFrontDistributionStatusCodes itemsarg quantityarg =+  CloudFrontDistributionStatusCodes+  { _cloudFrontDistributionStatusCodesItems = itemsarg+  , _cloudFrontDistributionStatusCodesQuantity = quantityarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-statuscodes.html#cfn-cloudfront-distribution-statuscodes-items+cfdscItems :: Lens' CloudFrontDistributionStatusCodes (ValList Integer)+cfdscItems = lens _cloudFrontDistributionStatusCodesItems (\s a -> s { _cloudFrontDistributionStatusCodesItems = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-statuscodes.html#cfn-cloudfront-distribution-statuscodes-quantity+cfdscQuantity :: Lens' CloudFrontDistributionStatusCodes (Val Integer)+cfdscQuantity = lens _cloudFrontDistributionStatusCodesQuantity (\s a -> s { _cloudFrontDistributionStatusCodesQuantity = a })

@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-kafkasettings.html++module Stratosphere.ResourceProperties.DMSEndpointKafkaSettings where++import Stratosphere.ResourceImports+++-- | Full data type definition for DMSEndpointKafkaSettings. See+-- 'dmsEndpointKafkaSettings' for a more convenient constructor.+data DMSEndpointKafkaSettings =+  DMSEndpointKafkaSettings+  { _dMSEndpointKafkaSettingsBroker :: Maybe (Val Text)+  , _dMSEndpointKafkaSettingsTopic :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON DMSEndpointKafkaSettings where+  toJSON DMSEndpointKafkaSettings{..} =+    object $+    catMaybes+    [ fmap (("Broker",) . toJSON) _dMSEndpointKafkaSettingsBroker+    , fmap (("Topic",) . toJSON) _dMSEndpointKafkaSettingsTopic+    ]++-- | Constructor for 'DMSEndpointKafkaSettings' containing required fields as+-- arguments.+dmsEndpointKafkaSettings+  :: DMSEndpointKafkaSettings+dmsEndpointKafkaSettings  =+  DMSEndpointKafkaSettings+  { _dMSEndpointKafkaSettingsBroker = Nothing+  , _dMSEndpointKafkaSettingsTopic = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-kafkasettings.html#cfn-dms-endpoint-kafkasettings-broker+dmseksBroker :: Lens' DMSEndpointKafkaSettings (Maybe (Val Text))+dmseksBroker = lens _dMSEndpointKafkaSettingsBroker (\s a -> s { _dMSEndpointKafkaSettingsBroker = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-kafkasettings.html#cfn-dms-endpoint-kafkasettings-topic+dmseksTopic :: Lens' DMSEndpointKafkaSettings (Maybe (Val Text))+dmseksTopic = lens _dMSEndpointKafkaSettingsTopic (\s a -> s { _dMSEndpointKafkaSettingsTopic = a })

@@ -0,0 +1,54 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-brokerlogs.html++module Stratosphere.ResourceProperties.MSKClusterBrokerLogs where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.MSKClusterCloudWatchLogs+import Stratosphere.ResourceProperties.MSKClusterFirehose+import Stratosphere.ResourceProperties.MSKClusterS3++-- | Full data type definition for MSKClusterBrokerLogs. See+-- 'mskClusterBrokerLogs' for a more convenient constructor.+data MSKClusterBrokerLogs =+  MSKClusterBrokerLogs+  { _mSKClusterBrokerLogsCloudWatchLogs :: Maybe MSKClusterCloudWatchLogs+  , _mSKClusterBrokerLogsFirehose :: Maybe MSKClusterFirehose+  , _mSKClusterBrokerLogsS3 :: Maybe MSKClusterS3+  } deriving (Show, Eq)++instance ToJSON MSKClusterBrokerLogs where+  toJSON MSKClusterBrokerLogs{..} =+    object $+    catMaybes+    [ fmap (("CloudWatchLogs",) . toJSON) _mSKClusterBrokerLogsCloudWatchLogs+    , fmap (("Firehose",) . toJSON) _mSKClusterBrokerLogsFirehose+    , fmap (("S3",) . toJSON) _mSKClusterBrokerLogsS3+    ]++-- | Constructor for 'MSKClusterBrokerLogs' containing required fields as+-- arguments.+mskClusterBrokerLogs+  :: MSKClusterBrokerLogs+mskClusterBrokerLogs  =+  MSKClusterBrokerLogs+  { _mSKClusterBrokerLogsCloudWatchLogs = Nothing+  , _mSKClusterBrokerLogsFirehose = Nothing+  , _mSKClusterBrokerLogsS3 = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-brokerlogs.html#cfn-msk-cluster-brokerlogs-cloudwatchlogs+mskcblCloudWatchLogs :: Lens' MSKClusterBrokerLogs (Maybe MSKClusterCloudWatchLogs)+mskcblCloudWatchLogs = lens _mSKClusterBrokerLogsCloudWatchLogs (\s a -> s { _mSKClusterBrokerLogsCloudWatchLogs = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-brokerlogs.html#cfn-msk-cluster-brokerlogs-firehose+mskcblFirehose :: Lens' MSKClusterBrokerLogs (Maybe MSKClusterFirehose)+mskcblFirehose = lens _mSKClusterBrokerLogsFirehose (\s a -> s { _mSKClusterBrokerLogsFirehose = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-brokerlogs.html#cfn-msk-cluster-brokerlogs-s3+mskcblS3 :: Lens' MSKClusterBrokerLogs (Maybe MSKClusterS3)+mskcblS3 = lens _mSKClusterBrokerLogsS3 (\s a -> s { _mSKClusterBrokerLogsS3 = a })

@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-cloudwatchlogs.html++module Stratosphere.ResourceProperties.MSKClusterCloudWatchLogs where++import Stratosphere.ResourceImports+++-- | Full data type definition for MSKClusterCloudWatchLogs. See+-- 'mskClusterCloudWatchLogs' for a more convenient constructor.+data MSKClusterCloudWatchLogs =+  MSKClusterCloudWatchLogs+  { _mSKClusterCloudWatchLogsEnabled :: Val Bool+  , _mSKClusterCloudWatchLogsLogGroup :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON MSKClusterCloudWatchLogs where+  toJSON MSKClusterCloudWatchLogs{..} =+    object $+    catMaybes+    [ (Just . ("Enabled",) . toJSON) _mSKClusterCloudWatchLogsEnabled+    , fmap (("LogGroup",) . toJSON) _mSKClusterCloudWatchLogsLogGroup+    ]++-- | Constructor for 'MSKClusterCloudWatchLogs' containing required fields as+-- arguments.+mskClusterCloudWatchLogs+  :: Val Bool -- ^ 'mskccwlEnabled'+  -> MSKClusterCloudWatchLogs+mskClusterCloudWatchLogs enabledarg =+  MSKClusterCloudWatchLogs+  { _mSKClusterCloudWatchLogsEnabled = enabledarg+  , _mSKClusterCloudWatchLogsLogGroup = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-cloudwatchlogs.html#cfn-msk-cluster-cloudwatchlogs-enabled+mskccwlEnabled :: Lens' MSKClusterCloudWatchLogs (Val Bool)+mskccwlEnabled = lens _mSKClusterCloudWatchLogsEnabled (\s a -> s { _mSKClusterCloudWatchLogsEnabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-cloudwatchlogs.html#cfn-msk-cluster-cloudwatchlogs-loggroup+mskccwlLogGroup :: Lens' MSKClusterCloudWatchLogs (Maybe (Val Text))+mskccwlLogGroup = lens _mSKClusterCloudWatchLogsLogGroup (\s a -> s { _mSKClusterCloudWatchLogsLogGroup = a })

@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-firehose.html++module Stratosphere.ResourceProperties.MSKClusterFirehose where++import Stratosphere.ResourceImports+++-- | Full data type definition for MSKClusterFirehose. See+-- 'mskClusterFirehose' for a more convenient constructor.+data MSKClusterFirehose =+  MSKClusterFirehose+  { _mSKClusterFirehoseDeliveryStream :: Maybe (Val Text)+  , _mSKClusterFirehoseEnabled :: Val Bool+  } deriving (Show, Eq)++instance ToJSON MSKClusterFirehose where+  toJSON MSKClusterFirehose{..} =+    object $+    catMaybes+    [ fmap (("DeliveryStream",) . toJSON) _mSKClusterFirehoseDeliveryStream+    , (Just . ("Enabled",) . toJSON) _mSKClusterFirehoseEnabled+    ]++-- | Constructor for 'MSKClusterFirehose' containing required fields as+-- arguments.+mskClusterFirehose+  :: Val Bool -- ^ 'mskcfEnabled'+  -> MSKClusterFirehose+mskClusterFirehose enabledarg =+  MSKClusterFirehose+  { _mSKClusterFirehoseDeliveryStream = Nothing+  , _mSKClusterFirehoseEnabled = enabledarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-firehose.html#cfn-msk-cluster-firehose-deliverystream+mskcfDeliveryStream :: Lens' MSKClusterFirehose (Maybe (Val Text))+mskcfDeliveryStream = lens _mSKClusterFirehoseDeliveryStream (\s a -> s { _mSKClusterFirehoseDeliveryStream = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-firehose.html#cfn-msk-cluster-firehose-enabled+mskcfEnabled :: Lens' MSKClusterFirehose (Val Bool)+mskcfEnabled = lens _mSKClusterFirehoseEnabled (\s a -> s { _mSKClusterFirehoseEnabled = a })

@@ -0,0 +1,39 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-logginginfo.html++module Stratosphere.ResourceProperties.MSKClusterLoggingInfo where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.MSKClusterBrokerLogs++-- | Full data type definition for MSKClusterLoggingInfo. See+-- 'mskClusterLoggingInfo' for a more convenient constructor.+data MSKClusterLoggingInfo =+  MSKClusterLoggingInfo+  { _mSKClusterLoggingInfoBrokerLogs :: MSKClusterBrokerLogs+  } deriving (Show, Eq)++instance ToJSON MSKClusterLoggingInfo where+  toJSON MSKClusterLoggingInfo{..} =+    object $+    catMaybes+    [ (Just . ("BrokerLogs",) . toJSON) _mSKClusterLoggingInfoBrokerLogs+    ]++-- | Constructor for 'MSKClusterLoggingInfo' containing required fields as+-- arguments.+mskClusterLoggingInfo+  :: MSKClusterBrokerLogs -- ^ 'mskcliBrokerLogs'+  -> MSKClusterLoggingInfo+mskClusterLoggingInfo brokerLogsarg =+  MSKClusterLoggingInfo+  { _mSKClusterLoggingInfoBrokerLogs = brokerLogsarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-logginginfo.html#cfn-msk-cluster-logginginfo-brokerlogs+mskcliBrokerLogs :: Lens' MSKClusterLoggingInfo MSKClusterBrokerLogs+mskcliBrokerLogs = lens _mSKClusterLoggingInfoBrokerLogs (\s a -> s { _mSKClusterLoggingInfoBrokerLogs = a })

@@ -0,0 +1,52 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-s3.html++module Stratosphere.ResourceProperties.MSKClusterS3 where++import Stratosphere.ResourceImports+++-- | Full data type definition for MSKClusterS3. See 'mskClusterS3' for a more+-- convenient constructor.+data MSKClusterS3 =+  MSKClusterS3+  { _mSKClusterS3Bucket :: Maybe (Val Text)+  , _mSKClusterS3Enabled :: Val Bool+  , _mSKClusterS3Prefix :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON MSKClusterS3 where+  toJSON MSKClusterS3{..} =+    object $+    catMaybes+    [ fmap (("Bucket",) . toJSON) _mSKClusterS3Bucket+    , (Just . ("Enabled",) . toJSON) _mSKClusterS3Enabled+    , fmap (("Prefix",) . toJSON) _mSKClusterS3Prefix+    ]++-- | Constructor for 'MSKClusterS3' containing required fields as arguments.+mskClusterS3+  :: Val Bool -- ^ 'mskcsEnabled'+  -> MSKClusterS3+mskClusterS3 enabledarg =+  MSKClusterS3+  { _mSKClusterS3Bucket = Nothing+  , _mSKClusterS3Enabled = enabledarg+  , _mSKClusterS3Prefix = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-s3.html#cfn-msk-cluster-s3-bucket+mskcsBucket :: Lens' MSKClusterS3 (Maybe (Val Text))+mskcsBucket = lens _mSKClusterS3Bucket (\s a -> s { _mSKClusterS3Bucket = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-s3.html#cfn-msk-cluster-s3-enabled+mskcsEnabled :: Lens' MSKClusterS3 (Val Bool)+mskcsEnabled = lens _mSKClusterS3Enabled (\s a -> s { _mSKClusterS3Enabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-s3.html#cfn-msk-cluster-s3-prefix+mskcsPrefix :: Lens' MSKClusterS3 (Maybe (Val Text))+mskcsPrefix = lens _mSKClusterS3Prefix (\s a -> s { _mSKClusterS3Prefix = a })

@@ -0,0 +1,52 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-networkmanager-device-location.html++module Stratosphere.ResourceProperties.NetworkManagerDeviceLocation where++import Stratosphere.ResourceImports+++-- | Full data type definition for NetworkManagerDeviceLocation. See+-- 'networkManagerDeviceLocation' for a more convenient constructor.+data NetworkManagerDeviceLocation =+  NetworkManagerDeviceLocation+  { _networkManagerDeviceLocationAddress :: Maybe (Val Text)+  , _networkManagerDeviceLocationLatitude :: Maybe (Val Text)+  , _networkManagerDeviceLocationLongitude :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON NetworkManagerDeviceLocation where+  toJSON NetworkManagerDeviceLocation{..} =+    object $+    catMaybes+    [ fmap (("Address",) . toJSON) _networkManagerDeviceLocationAddress+    , fmap (("Latitude",) . toJSON) _networkManagerDeviceLocationLatitude+    , fmap (("Longitude",) . toJSON) _networkManagerDeviceLocationLongitude+    ]++-- | Constructor for 'NetworkManagerDeviceLocation' containing required fields+-- as arguments.+networkManagerDeviceLocation+  :: NetworkManagerDeviceLocation+networkManagerDeviceLocation  =+  NetworkManagerDeviceLocation+  { _networkManagerDeviceLocationAddress = Nothing+  , _networkManagerDeviceLocationLatitude = Nothing+  , _networkManagerDeviceLocationLongitude = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-networkmanager-device-location.html#cfn-networkmanager-device-location-address+nmdlAddress :: Lens' NetworkManagerDeviceLocation (Maybe (Val Text))+nmdlAddress = lens _networkManagerDeviceLocationAddress (\s a -> s { _networkManagerDeviceLocationAddress = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-networkmanager-device-location.html#cfn-networkmanager-device-location-latitude+nmdlLatitude :: Lens' NetworkManagerDeviceLocation (Maybe (Val Text))+nmdlLatitude = lens _networkManagerDeviceLocationLatitude (\s a -> s { _networkManagerDeviceLocationLatitude = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-networkmanager-device-location.html#cfn-networkmanager-device-location-longitude+nmdlLongitude :: Lens' NetworkManagerDeviceLocation (Maybe (Val Text))+nmdlLongitude = lens _networkManagerDeviceLocationLongitude (\s a -> s { _networkManagerDeviceLocationLongitude = a })

@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-networkmanager-link-bandwidth.html++module Stratosphere.ResourceProperties.NetworkManagerLinkBandwidth where++import Stratosphere.ResourceImports+++-- | Full data type definition for NetworkManagerLinkBandwidth. See+-- 'networkManagerLinkBandwidth' for a more convenient constructor.+data NetworkManagerLinkBandwidth =+  NetworkManagerLinkBandwidth+  { _networkManagerLinkBandwidthDownloadSpeed :: Maybe (Val Integer)+  , _networkManagerLinkBandwidthUploadSpeed :: Maybe (Val Integer)+  } deriving (Show, Eq)++instance ToJSON NetworkManagerLinkBandwidth where+  toJSON NetworkManagerLinkBandwidth{..} =+    object $+    catMaybes+    [ fmap (("DownloadSpeed",) . toJSON) _networkManagerLinkBandwidthDownloadSpeed+    , fmap (("UploadSpeed",) . toJSON) _networkManagerLinkBandwidthUploadSpeed+    ]++-- | Constructor for 'NetworkManagerLinkBandwidth' containing required fields+-- as arguments.+networkManagerLinkBandwidth+  :: NetworkManagerLinkBandwidth+networkManagerLinkBandwidth  =+  NetworkManagerLinkBandwidth+  { _networkManagerLinkBandwidthDownloadSpeed = Nothing+  , _networkManagerLinkBandwidthUploadSpeed = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-networkmanager-link-bandwidth.html#cfn-networkmanager-link-bandwidth-downloadspeed+nmlbDownloadSpeed :: Lens' NetworkManagerLinkBandwidth (Maybe (Val Integer))+nmlbDownloadSpeed = lens _networkManagerLinkBandwidthDownloadSpeed (\s a -> s { _networkManagerLinkBandwidthDownloadSpeed = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-networkmanager-link-bandwidth.html#cfn-networkmanager-link-bandwidth-uploadspeed+nmlbUploadSpeed :: Lens' NetworkManagerLinkBandwidth (Maybe (Val Integer))+nmlbUploadSpeed = lens _networkManagerLinkBandwidthUploadSpeed (\s a -> s { _networkManagerLinkBandwidthUploadSpeed = a })

@@ -0,0 +1,52 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-networkmanager-site-location.html++module Stratosphere.ResourceProperties.NetworkManagerSiteLocation where++import Stratosphere.ResourceImports+++-- | Full data type definition for NetworkManagerSiteLocation. See+-- 'networkManagerSiteLocation' for a more convenient constructor.+data NetworkManagerSiteLocation =+  NetworkManagerSiteLocation+  { _networkManagerSiteLocationAddress :: Maybe (Val Text)+  , _networkManagerSiteLocationLatitude :: Maybe (Val Text)+  , _networkManagerSiteLocationLongitude :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON NetworkManagerSiteLocation where+  toJSON NetworkManagerSiteLocation{..} =+    object $+    catMaybes+    [ fmap (("Address",) . toJSON) _networkManagerSiteLocationAddress+    , fmap (("Latitude",) . toJSON) _networkManagerSiteLocationLatitude+    , fmap (("Longitude",) . toJSON) _networkManagerSiteLocationLongitude+    ]++-- | Constructor for 'NetworkManagerSiteLocation' containing required fields+-- as arguments.+networkManagerSiteLocation+  :: NetworkManagerSiteLocation+networkManagerSiteLocation  =+  NetworkManagerSiteLocation+  { _networkManagerSiteLocationAddress = Nothing+  , _networkManagerSiteLocationLatitude = Nothing+  , _networkManagerSiteLocationLongitude = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-networkmanager-site-location.html#cfn-networkmanager-site-location-address+nmslAddress :: Lens' NetworkManagerSiteLocation (Maybe (Val Text))+nmslAddress = lens _networkManagerSiteLocationAddress (\s a -> s { _networkManagerSiteLocationAddress = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-networkmanager-site-location.html#cfn-networkmanager-site-location-latitude+nmslLatitude :: Lens' NetworkManagerSiteLocation (Maybe (Val Text))+nmslLatitude = lens _networkManagerSiteLocationLatitude (\s a -> s { _networkManagerSiteLocationLatitude = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-networkmanager-site-location.html#cfn-networkmanager-site-location-longitude+nmslLongitude :: Lens' NetworkManagerSiteLocation (Maybe (Val Text))+nmslLongitude = lens _networkManagerSiteLocationLongitude (\s a -> s { _networkManagerSiteLocationLongitude = a })

@@ -0,0 +1,52 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-resourcegroups-group-query.html++module Stratosphere.ResourceProperties.ResourceGroupsGroupQuery where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.ResourceGroupsGroupTagFilter++-- | Full data type definition for ResourceGroupsGroupQuery. See+-- 'resourceGroupsGroupQuery' for a more convenient constructor.+data ResourceGroupsGroupQuery =+  ResourceGroupsGroupQuery+  { _resourceGroupsGroupQueryResourceTypeFilters :: Maybe (ValList Text)+  , _resourceGroupsGroupQueryStackIdentifier :: Maybe (Val Text)+  , _resourceGroupsGroupQueryTagFilters :: Maybe [ResourceGroupsGroupTagFilter]+  } deriving (Show, Eq)++instance ToJSON ResourceGroupsGroupQuery where+  toJSON ResourceGroupsGroupQuery{..} =+    object $+    catMaybes+    [ fmap (("ResourceTypeFilters",) . toJSON) _resourceGroupsGroupQueryResourceTypeFilters+    , fmap (("StackIdentifier",) . toJSON) _resourceGroupsGroupQueryStackIdentifier+    , fmap (("TagFilters",) . toJSON) _resourceGroupsGroupQueryTagFilters+    ]++-- | Constructor for 'ResourceGroupsGroupQuery' containing required fields as+-- arguments.+resourceGroupsGroupQuery+  :: ResourceGroupsGroupQuery+resourceGroupsGroupQuery  =+  ResourceGroupsGroupQuery+  { _resourceGroupsGroupQueryResourceTypeFilters = Nothing+  , _resourceGroupsGroupQueryStackIdentifier = Nothing+  , _resourceGroupsGroupQueryTagFilters = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-resourcegroups-group-query.html#cfn-resourcegroups-group-query-resourcetypefilters+rggqResourceTypeFilters :: Lens' ResourceGroupsGroupQuery (Maybe (ValList Text))+rggqResourceTypeFilters = lens _resourceGroupsGroupQueryResourceTypeFilters (\s a -> s { _resourceGroupsGroupQueryResourceTypeFilters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-resourcegroups-group-query.html#cfn-resourcegroups-group-query-stackidentifier+rggqStackIdentifier :: Lens' ResourceGroupsGroupQuery (Maybe (Val Text))+rggqStackIdentifier = lens _resourceGroupsGroupQueryStackIdentifier (\s a -> s { _resourceGroupsGroupQueryStackIdentifier = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-resourcegroups-group-query.html#cfn-resourcegroups-group-query-tagfilters+rggqTagFilters :: Lens' ResourceGroupsGroupQuery (Maybe [ResourceGroupsGroupTagFilter])+rggqTagFilters = lens _resourceGroupsGroupQueryTagFilters (\s a -> s { _resourceGroupsGroupQueryTagFilters = a })

@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-resourcegroups-group-resourcequery.html++module Stratosphere.ResourceProperties.ResourceGroupsGroupResourceQuery where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.ResourceGroupsGroupQuery++-- | Full data type definition for ResourceGroupsGroupResourceQuery. See+-- 'resourceGroupsGroupResourceQuery' for a more convenient constructor.+data ResourceGroupsGroupResourceQuery =+  ResourceGroupsGroupResourceQuery+  { _resourceGroupsGroupResourceQueryQuery :: Maybe ResourceGroupsGroupQuery+  , _resourceGroupsGroupResourceQueryType :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON ResourceGroupsGroupResourceQuery where+  toJSON ResourceGroupsGroupResourceQuery{..} =+    object $+    catMaybes+    [ fmap (("Query",) . toJSON) _resourceGroupsGroupResourceQueryQuery+    , fmap (("Type",) . toJSON) _resourceGroupsGroupResourceQueryType+    ]++-- | Constructor for 'ResourceGroupsGroupResourceQuery' containing required+-- fields as arguments.+resourceGroupsGroupResourceQuery+  :: ResourceGroupsGroupResourceQuery+resourceGroupsGroupResourceQuery  =+  ResourceGroupsGroupResourceQuery+  { _resourceGroupsGroupResourceQueryQuery = Nothing+  , _resourceGroupsGroupResourceQueryType = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-resourcegroups-group-resourcequery.html#cfn-resourcegroups-group-resourcequery-query+rggrqQuery :: Lens' ResourceGroupsGroupResourceQuery (Maybe ResourceGroupsGroupQuery)+rggrqQuery = lens _resourceGroupsGroupResourceQueryQuery (\s a -> s { _resourceGroupsGroupResourceQueryQuery = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-resourcegroups-group-resourcequery.html#cfn-resourcegroups-group-resourcequery-type+rggrqType :: Lens' ResourceGroupsGroupResourceQuery (Maybe (Val Text))+rggrqType = lens _resourceGroupsGroupResourceQueryType (\s a -> s { _resourceGroupsGroupResourceQueryType = a })

@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-resourcegroups-group-tagfilter.html++module Stratosphere.ResourceProperties.ResourceGroupsGroupTagFilter where++import Stratosphere.ResourceImports+++-- | Full data type definition for ResourceGroupsGroupTagFilter. See+-- 'resourceGroupsGroupTagFilter' for a more convenient constructor.+data ResourceGroupsGroupTagFilter =+  ResourceGroupsGroupTagFilter+  { _resourceGroupsGroupTagFilterKey :: Maybe (Val Text)+  , _resourceGroupsGroupTagFilterValues :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON ResourceGroupsGroupTagFilter where+  toJSON ResourceGroupsGroupTagFilter{..} =+    object $+    catMaybes+    [ fmap (("Key",) . toJSON) _resourceGroupsGroupTagFilterKey+    , fmap (("Values",) . toJSON) _resourceGroupsGroupTagFilterValues+    ]++-- | Constructor for 'ResourceGroupsGroupTagFilter' containing required fields+-- as arguments.+resourceGroupsGroupTagFilter+  :: ResourceGroupsGroupTagFilter+resourceGroupsGroupTagFilter  =+  ResourceGroupsGroupTagFilter+  { _resourceGroupsGroupTagFilterKey = Nothing+  , _resourceGroupsGroupTagFilterValues = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-resourcegroups-group-tagfilter.html#cfn-resourcegroups-group-tagfilter-key+rggtfKey :: Lens' ResourceGroupsGroupTagFilter (Maybe (Val Text))+rggtfKey = lens _resourceGroupsGroupTagFilterKey (\s a -> s { _resourceGroupsGroupTagFilterKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-resourcegroups-group-tagfilter.html#cfn-resourcegroups-group-tagfilter-values+rggtfValues :: Lens' ResourceGroupsGroupTagFilter (Maybe (ValList Text))+rggtfValues = lens _resourceGroupsGroupTagFilterValues (\s a -> s { _resourceGroupsGroupTagFilterValues = a })

@@ -125,6 +125,8 @@ import Stratosphere.Resources.BatchJobDefinition as X import Stratosphere.Resources.BatchJobQueue as X import Stratosphere.Resources.BudgetsBudget as X+import Stratosphere.Resources.CassandraKeyspace as X+import Stratosphere.Resources.CassandraTable as X import Stratosphere.Resources.CertificateManagerCertificate as X import Stratosphere.Resources.ChatbotSlackChannelConfiguration as X import Stratosphere.Resources.Cloud9EnvironmentEC2 as X@@ -149,6 +151,7 @@ import Stratosphere.Resources.CodeDeployApplication as X import Stratosphere.Resources.CodeDeployDeploymentConfig as X import Stratosphere.Resources.CodeDeployDeploymentGroup as X+import Stratosphere.Resources.CodeGuruProfilerProfilingGroup as X import Stratosphere.Resources.CodePipelineCustomActionType as X import Stratosphere.Resources.CodePipelinePipeline as X import Stratosphere.Resources.CodePipelineWebhook as X@@ -409,6 +412,13 @@ import Stratosphere.Resources.NeptuneDBInstance as X import Stratosphere.Resources.NeptuneDBParameterGroup as X import Stratosphere.Resources.NeptuneDBSubnetGroup as X+import Stratosphere.Resources.NetworkManagerCustomerGatewayAssociation as X+import Stratosphere.Resources.NetworkManagerDevice as X+import Stratosphere.Resources.NetworkManagerGlobalNetwork as X+import Stratosphere.Resources.NetworkManagerLink as X+import Stratosphere.Resources.NetworkManagerLinkAssociation as X+import Stratosphere.Resources.NetworkManagerSite as X+import Stratosphere.Resources.NetworkManagerTransitGatewayRegistration as X import Stratosphere.Resources.OpsWorksApp as X import Stratosphere.Resources.OpsWorksElasticLoadBalancerAttachment as X import Stratosphere.Resources.OpsWorksInstance as X@@ -455,6 +465,7 @@ import Stratosphere.Resources.RedshiftClusterSecurityGroup as X import Stratosphere.Resources.RedshiftClusterSecurityGroupIngress as X import Stratosphere.Resources.RedshiftClusterSubnetGroup as X+import Stratosphere.Resources.ResourceGroupsGroup as X import Stratosphere.Resources.RoboMakerFleet as X import Stratosphere.Resources.RoboMakerRobot as X import Stratosphere.Resources.RoboMakerRobotApplication as X@@ -595,6 +606,7 @@ import Stratosphere.ResourceProperties.ApiGatewayV2ApiCors as X import Stratosphere.ResourceProperties.ApiGatewayV2AuthorizerJWTConfiguration as X import Stratosphere.ResourceProperties.ApiGatewayV2DomainNameDomainNameConfiguration as X+import Stratosphere.ResourceProperties.ApiGatewayV2IntegrationTlsConfig as X import Stratosphere.ResourceProperties.ApiGatewayV2RouteParameterConstraints as X import Stratosphere.ResourceProperties.ApiGatewayV2RouteResponseParameterConstraints as X import Stratosphere.ResourceProperties.ApiGatewayV2StageAccessLogSettings as X@@ -756,6 +768,10 @@ import Stratosphere.ResourceProperties.BudgetsBudgetSpend as X import Stratosphere.ResourceProperties.BudgetsBudgetSubscriber as X import Stratosphere.ResourceProperties.BudgetsBudgetTimePeriod as X+import Stratosphere.ResourceProperties.CassandraTableBillingMode as X+import Stratosphere.ResourceProperties.CassandraTableClusteringKeyColumn as X+import Stratosphere.ResourceProperties.CassandraTableColumn as X+import Stratosphere.ResourceProperties.CassandraTableProvisionedThroughput as X import Stratosphere.ResourceProperties.CertificateManagerCertificateDomainValidationOption as X import Stratosphere.ResourceProperties.Cloud9EnvironmentEC2Repository as X import Stratosphere.ResourceProperties.CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig as X@@ -771,8 +787,14 @@ import Stratosphere.ResourceProperties.CloudFrontDistributionLogging as X import Stratosphere.ResourceProperties.CloudFrontDistributionOrigin as X import Stratosphere.ResourceProperties.CloudFrontDistributionOriginCustomHeader as X+import Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroup as X+import Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroupFailoverCriteria as X+import Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroupMember as X+import Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroupMembers as X+import Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroups as X import Stratosphere.ResourceProperties.CloudFrontDistributionRestrictions as X import Stratosphere.ResourceProperties.CloudFrontDistributionS3OriginConfig as X+import Stratosphere.ResourceProperties.CloudFrontDistributionStatusCodes as X import Stratosphere.ResourceProperties.CloudFrontDistributionViewerCertificate as X import Stratosphere.ResourceProperties.CloudFrontStreamingDistributionLogging as X import Stratosphere.ResourceProperties.CloudFrontStreamingDistributionS3Origin as X@@ -906,6 +928,7 @@ import Stratosphere.ResourceProperties.DLMLifecyclePolicySchedule as X import Stratosphere.ResourceProperties.DMSEndpointDynamoDbSettings as X import Stratosphere.ResourceProperties.DMSEndpointElasticsearchSettings as X+import Stratosphere.ResourceProperties.DMSEndpointKafkaSettings as X import Stratosphere.ResourceProperties.DMSEndpointKinesisSettings as X import Stratosphere.ResourceProperties.DMSEndpointMongoDbSettings as X import Stratosphere.ResourceProperties.DMSEndpointS3Settings as X@@ -1484,17 +1507,22 @@ import Stratosphere.ResourceProperties.LambdaLayerVersionContent as X import Stratosphere.ResourceProperties.LambdaVersionProvisionedConcurrencyConfiguration as X import Stratosphere.ResourceProperties.LogsMetricFilterMetricTransformation as X+import Stratosphere.ResourceProperties.MSKClusterBrokerLogs as X import Stratosphere.ResourceProperties.MSKClusterBrokerNodeGroupInfo as X import Stratosphere.ResourceProperties.MSKClusterClientAuthentication as X+import Stratosphere.ResourceProperties.MSKClusterCloudWatchLogs as X import Stratosphere.ResourceProperties.MSKClusterConfigurationInfo as X import Stratosphere.ResourceProperties.MSKClusterEBSStorageInfo as X import Stratosphere.ResourceProperties.MSKClusterEncryptionAtRest as X import Stratosphere.ResourceProperties.MSKClusterEncryptionInTransit as X import Stratosphere.ResourceProperties.MSKClusterEncryptionInfo as X+import Stratosphere.ResourceProperties.MSKClusterFirehose as X import Stratosphere.ResourceProperties.MSKClusterJmxExporter as X+import Stratosphere.ResourceProperties.MSKClusterLoggingInfo as X import Stratosphere.ResourceProperties.MSKClusterNodeExporter as X import Stratosphere.ResourceProperties.MSKClusterOpenMonitoring as X import Stratosphere.ResourceProperties.MSKClusterPrometheus as X+import Stratosphere.ResourceProperties.MSKClusterS3 as X import Stratosphere.ResourceProperties.MSKClusterStorageInfo as X import Stratosphere.ResourceProperties.MSKClusterTls as X import Stratosphere.ResourceProperties.ManagedBlockchainMemberApprovalThresholdPolicy as X@@ -1538,6 +1566,9 @@ import Stratosphere.ResourceProperties.MediaLiveInputMediaConnectFlowRequest as X import Stratosphere.ResourceProperties.MediaLiveInputSecurityGroupInputWhitelistRuleCidr as X import Stratosphere.ResourceProperties.MediaStoreContainerCorsRule as X+import Stratosphere.ResourceProperties.NetworkManagerDeviceLocation as X+import Stratosphere.ResourceProperties.NetworkManagerLinkBandwidth as X+import Stratosphere.ResourceProperties.NetworkManagerSiteLocation as X import Stratosphere.ResourceProperties.OpsWorksAppDataSource as X import Stratosphere.ResourceProperties.OpsWorksAppEnvironmentVariable as X import Stratosphere.ResourceProperties.OpsWorksAppSource as X@@ -1612,6 +1643,9 @@ import Stratosphere.ResourceProperties.RDSOptionGroupOptionSetting as X import Stratosphere.ResourceProperties.RedshiftClusterLoggingProperties as X import Stratosphere.ResourceProperties.RedshiftClusterParameterGroupParameter as X+import Stratosphere.ResourceProperties.ResourceGroupsGroupQuery as X+import Stratosphere.ResourceProperties.ResourceGroupsGroupResourceQuery as X+import Stratosphere.ResourceProperties.ResourceGroupsGroupTagFilter as X import Stratosphere.ResourceProperties.RoboMakerRobotApplicationRobotSoftwareSuite as X import Stratosphere.ResourceProperties.RoboMakerRobotApplicationSourceConfig as X import Stratosphere.ResourceProperties.RoboMakerSimulationApplicationRenderingEngine as X

@@ -8,7 +8,7 @@ module Stratosphere.Resources.ApiGatewayV2Integration where  import Stratosphere.ResourceImports-+import Stratosphere.ResourceProperties.ApiGatewayV2IntegrationTlsConfig  -- | Full data type definition for ApiGatewayV2Integration. See -- 'apiGatewayV2Integration' for a more convenient constructor.@@ -28,6 +28,7 @@   , _apiGatewayV2IntegrationRequestTemplates :: Maybe Object   , _apiGatewayV2IntegrationTemplateSelectionExpression :: Maybe (Val Text)   , _apiGatewayV2IntegrationTimeoutInMillis :: Maybe (Val Integer)+  , _apiGatewayV2IntegrationTlsConfig :: Maybe ApiGatewayV2IntegrationTlsConfig   } deriving (Show, Eq)  instance ToResourceProperties ApiGatewayV2Integration where@@ -50,6 +51,7 @@         , fmap (("RequestTemplates",) . toJSON) _apiGatewayV2IntegrationRequestTemplates         , fmap (("TemplateSelectionExpression",) . toJSON) _apiGatewayV2IntegrationTemplateSelectionExpression         , fmap (("TimeoutInMillis",) . toJSON) _apiGatewayV2IntegrationTimeoutInMillis+        , fmap (("TlsConfig",) . toJSON) _apiGatewayV2IntegrationTlsConfig         ]     } @@ -75,6 +77,7 @@   , _apiGatewayV2IntegrationRequestTemplates = Nothing   , _apiGatewayV2IntegrationTemplateSelectionExpression = Nothing   , _apiGatewayV2IntegrationTimeoutInMillis = Nothing+  , _apiGatewayV2IntegrationTlsConfig = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html#cfn-apigatewayv2-integration-apiid@@ -132,3 +135,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html#cfn-apigatewayv2-integration-timeoutinmillis agviTimeoutInMillis :: Lens' ApiGatewayV2Integration (Maybe (Val Integer)) agviTimeoutInMillis = lens _apiGatewayV2IntegrationTimeoutInMillis (\s a -> s { _apiGatewayV2IntegrationTimeoutInMillis = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html#cfn-apigatewayv2-integration-tlsconfig+agviTlsConfig :: Lens' ApiGatewayV2Integration (Maybe ApiGatewayV2IntegrationTlsConfig)+agviTlsConfig = lens _apiGatewayV2IntegrationTlsConfig (\s a -> s { _apiGatewayV2IntegrationTlsConfig = a })

@@ -16,6 +16,7 @@ data AppMeshRoute =   AppMeshRoute   { _appMeshRouteMeshName :: Val Text+  , _appMeshRouteMeshOwner :: Maybe (Val Text)   , _appMeshRouteRouteName :: Val Text   , _appMeshRouteSpec :: AppMeshRouteRouteSpec   , _appMeshRouteTags :: Maybe [Tag]@@ -29,6 +30,7 @@     , resourcePropertiesProperties =         hashMapFromList $ catMaybes         [ (Just . ("MeshName",) . toJSON) _appMeshRouteMeshName+        , fmap (("MeshOwner",) . toJSON) _appMeshRouteMeshOwner         , (Just . ("RouteName",) . toJSON) _appMeshRouteRouteName         , (Just . ("Spec",) . toJSON) _appMeshRouteSpec         , fmap (("Tags",) . toJSON) _appMeshRouteTags@@ -46,6 +48,7 @@ appMeshRoute meshNamearg routeNamearg specarg virtualRouterNamearg =   AppMeshRoute   { _appMeshRouteMeshName = meshNamearg+  , _appMeshRouteMeshOwner = Nothing   , _appMeshRouteRouteName = routeNamearg   , _appMeshRouteSpec = specarg   , _appMeshRouteTags = Nothing@@ -55,6 +58,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-route.html#cfn-appmesh-route-meshname amrMeshName :: Lens' AppMeshRoute (Val Text) amrMeshName = lens _appMeshRouteMeshName (\s a -> s { _appMeshRouteMeshName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-route.html#cfn-appmesh-route-meshowner+amrMeshOwner :: Lens' AppMeshRoute (Maybe (Val Text))+amrMeshOwner = lens _appMeshRouteMeshOwner (\s a -> s { _appMeshRouteMeshOwner = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-route.html#cfn-appmesh-route-routename amrRouteName :: Lens' AppMeshRoute (Val Text)

@@ -16,6 +16,7 @@ data AppMeshVirtualNode =   AppMeshVirtualNode   { _appMeshVirtualNodeMeshName :: Val Text+  , _appMeshVirtualNodeMeshOwner :: Maybe (Val Text)   , _appMeshVirtualNodeSpec :: AppMeshVirtualNodeVirtualNodeSpec   , _appMeshVirtualNodeTags :: Maybe [Tag]   , _appMeshVirtualNodeVirtualNodeName :: Val Text@@ -28,6 +29,7 @@     , resourcePropertiesProperties =         hashMapFromList $ catMaybes         [ (Just . ("MeshName",) . toJSON) _appMeshVirtualNodeMeshName+        , fmap (("MeshOwner",) . toJSON) _appMeshVirtualNodeMeshOwner         , (Just . ("Spec",) . toJSON) _appMeshVirtualNodeSpec         , fmap (("Tags",) . toJSON) _appMeshVirtualNodeTags         , (Just . ("VirtualNodeName",) . toJSON) _appMeshVirtualNodeVirtualNodeName@@ -44,6 +46,7 @@ appMeshVirtualNode meshNamearg specarg virtualNodeNamearg =   AppMeshVirtualNode   { _appMeshVirtualNodeMeshName = meshNamearg+  , _appMeshVirtualNodeMeshOwner = Nothing   , _appMeshVirtualNodeSpec = specarg   , _appMeshVirtualNodeTags = Nothing   , _appMeshVirtualNodeVirtualNodeName = virtualNodeNamearg@@ -52,6 +55,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualnode.html#cfn-appmesh-virtualnode-meshname amvnMeshName :: Lens' AppMeshVirtualNode (Val Text) amvnMeshName = lens _appMeshVirtualNodeMeshName (\s a -> s { _appMeshVirtualNodeMeshName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualnode.html#cfn-appmesh-virtualnode-meshowner+amvnMeshOwner :: Lens' AppMeshVirtualNode (Maybe (Val Text))+amvnMeshOwner = lens _appMeshVirtualNodeMeshOwner (\s a -> s { _appMeshVirtualNodeMeshOwner = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualnode.html#cfn-appmesh-virtualnode-spec amvnSpec :: Lens' AppMeshVirtualNode AppMeshVirtualNodeVirtualNodeSpec

@@ -16,6 +16,7 @@ data AppMeshVirtualRouter =   AppMeshVirtualRouter   { _appMeshVirtualRouterMeshName :: Val Text+  , _appMeshVirtualRouterMeshOwner :: Maybe (Val Text)   , _appMeshVirtualRouterSpec :: AppMeshVirtualRouterVirtualRouterSpec   , _appMeshVirtualRouterTags :: Maybe [Tag]   , _appMeshVirtualRouterVirtualRouterName :: Val Text@@ -28,6 +29,7 @@     , resourcePropertiesProperties =         hashMapFromList $ catMaybes         [ (Just . ("MeshName",) . toJSON) _appMeshVirtualRouterMeshName+        , fmap (("MeshOwner",) . toJSON) _appMeshVirtualRouterMeshOwner         , (Just . ("Spec",) . toJSON) _appMeshVirtualRouterSpec         , fmap (("Tags",) . toJSON) _appMeshVirtualRouterTags         , (Just . ("VirtualRouterName",) . toJSON) _appMeshVirtualRouterVirtualRouterName@@ -44,6 +46,7 @@ appMeshVirtualRouter meshNamearg specarg virtualRouterNamearg =   AppMeshVirtualRouter   { _appMeshVirtualRouterMeshName = meshNamearg+  , _appMeshVirtualRouterMeshOwner = Nothing   , _appMeshVirtualRouterSpec = specarg   , _appMeshVirtualRouterTags = Nothing   , _appMeshVirtualRouterVirtualRouterName = virtualRouterNamearg@@ -52,6 +55,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualrouter.html#cfn-appmesh-virtualrouter-meshname amvrMeshName :: Lens' AppMeshVirtualRouter (Val Text) amvrMeshName = lens _appMeshVirtualRouterMeshName (\s a -> s { _appMeshVirtualRouterMeshName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualrouter.html#cfn-appmesh-virtualrouter-meshowner+amvrMeshOwner :: Lens' AppMeshVirtualRouter (Maybe (Val Text))+amvrMeshOwner = lens _appMeshVirtualRouterMeshOwner (\s a -> s { _appMeshVirtualRouterMeshOwner = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualrouter.html#cfn-appmesh-virtualrouter-spec amvrSpec :: Lens' AppMeshVirtualRouter AppMeshVirtualRouterVirtualRouterSpec

@@ -16,6 +16,7 @@ data AppMeshVirtualService =   AppMeshVirtualService   { _appMeshVirtualServiceMeshName :: Val Text+  , _appMeshVirtualServiceMeshOwner :: Maybe (Val Text)   , _appMeshVirtualServiceSpec :: AppMeshVirtualServiceVirtualServiceSpec   , _appMeshVirtualServiceTags :: Maybe [Tag]   , _appMeshVirtualServiceVirtualServiceName :: Val Text@@ -28,6 +29,7 @@     , resourcePropertiesProperties =         hashMapFromList $ catMaybes         [ (Just . ("MeshName",) . toJSON) _appMeshVirtualServiceMeshName+        , fmap (("MeshOwner",) . toJSON) _appMeshVirtualServiceMeshOwner         , (Just . ("Spec",) . toJSON) _appMeshVirtualServiceSpec         , fmap (("Tags",) . toJSON) _appMeshVirtualServiceTags         , (Just . ("VirtualServiceName",) . toJSON) _appMeshVirtualServiceVirtualServiceName@@ -44,6 +46,7 @@ appMeshVirtualService meshNamearg specarg virtualServiceNamearg =   AppMeshVirtualService   { _appMeshVirtualServiceMeshName = meshNamearg+  , _appMeshVirtualServiceMeshOwner = Nothing   , _appMeshVirtualServiceSpec = specarg   , _appMeshVirtualServiceTags = Nothing   , _appMeshVirtualServiceVirtualServiceName = virtualServiceNamearg@@ -52,6 +55,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualservice.html#cfn-appmesh-virtualservice-meshname amvsMeshName :: Lens' AppMeshVirtualService (Val Text) amvsMeshName = lens _appMeshVirtualServiceMeshName (\s a -> s { _appMeshVirtualServiceMeshName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualservice.html#cfn-appmesh-virtualservice-meshowner+amvsMeshOwner :: Lens' AppMeshVirtualService (Maybe (Val Text))+amvsMeshOwner = lens _appMeshVirtualServiceMeshOwner (\s a -> s { _appMeshVirtualServiceMeshOwner = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualservice.html#cfn-appmesh-virtualservice-spec amvsSpec :: Lens' AppMeshVirtualService AppMeshVirtualServiceVirtualServiceSpec

@@ -0,0 +1,41 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-keyspace.html++module Stratosphere.Resources.CassandraKeyspace where++import Stratosphere.ResourceImports+++-- | Full data type definition for CassandraKeyspace. See 'cassandraKeyspace'+-- for a more convenient constructor.+data CassandraKeyspace =+  CassandraKeyspace+  { _cassandraKeyspaceKeyspaceName :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToResourceProperties CassandraKeyspace where+  toResourceProperties CassandraKeyspace{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::Cassandra::Keyspace"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("KeyspaceName",) . toJSON) _cassandraKeyspaceKeyspaceName+        ]+    }++-- | Constructor for 'CassandraKeyspace' containing required fields as+-- arguments.+cassandraKeyspace+  :: CassandraKeyspace+cassandraKeyspace  =+  CassandraKeyspace+  { _cassandraKeyspaceKeyspaceName = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-keyspace.html#cfn-cassandra-keyspace-keyspacename+ckKeyspaceName :: Lens' CassandraKeyspace (Maybe (Val Text))+ckKeyspaceName = lens _cassandraKeyspaceKeyspaceName (\s a -> s { _cassandraKeyspaceKeyspaceName = a })

@@ -0,0 +1,79 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-table.html++module Stratosphere.Resources.CassandraTable where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.CassandraTableBillingMode+import Stratosphere.ResourceProperties.CassandraTableClusteringKeyColumn+import Stratosphere.ResourceProperties.CassandraTableColumn++-- | Full data type definition for CassandraTable. See 'cassandraTable' for a+-- more convenient constructor.+data CassandraTable =+  CassandraTable+  { _cassandraTableBillingMode :: Maybe CassandraTableBillingMode+  , _cassandraTableClusteringKeyColumns :: Maybe [CassandraTableClusteringKeyColumn]+  , _cassandraTableKeyspaceName :: Val Text+  , _cassandraTablePartitionKeyColumns :: [CassandraTableColumn]+  , _cassandraTableRegularColumns :: Maybe [CassandraTableColumn]+  , _cassandraTableTableName :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToResourceProperties CassandraTable where+  toResourceProperties CassandraTable{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::Cassandra::Table"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("BillingMode",) . toJSON) _cassandraTableBillingMode+        , fmap (("ClusteringKeyColumns",) . toJSON) _cassandraTableClusteringKeyColumns+        , (Just . ("KeyspaceName",) . toJSON) _cassandraTableKeyspaceName+        , (Just . ("PartitionKeyColumns",) . toJSON) _cassandraTablePartitionKeyColumns+        , fmap (("RegularColumns",) . toJSON) _cassandraTableRegularColumns+        , fmap (("TableName",) . toJSON) _cassandraTableTableName+        ]+    }++-- | Constructor for 'CassandraTable' containing required fields as arguments.+cassandraTable+  :: Val Text -- ^ 'ctKeyspaceName'+  -> [CassandraTableColumn] -- ^ 'ctPartitionKeyColumns'+  -> CassandraTable+cassandraTable keyspaceNamearg partitionKeyColumnsarg =+  CassandraTable+  { _cassandraTableBillingMode = Nothing+  , _cassandraTableClusteringKeyColumns = Nothing+  , _cassandraTableKeyspaceName = keyspaceNamearg+  , _cassandraTablePartitionKeyColumns = partitionKeyColumnsarg+  , _cassandraTableRegularColumns = Nothing+  , _cassandraTableTableName = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-table.html#cfn-cassandra-table-billingmode+ctBillingMode :: Lens' CassandraTable (Maybe CassandraTableBillingMode)+ctBillingMode = lens _cassandraTableBillingMode (\s a -> s { _cassandraTableBillingMode = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-table.html#cfn-cassandra-table-clusteringkeycolumns+ctClusteringKeyColumns :: Lens' CassandraTable (Maybe [CassandraTableClusteringKeyColumn])+ctClusteringKeyColumns = lens _cassandraTableClusteringKeyColumns (\s a -> s { _cassandraTableClusteringKeyColumns = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-table.html#cfn-cassandra-table-keyspacename+ctKeyspaceName :: Lens' CassandraTable (Val Text)+ctKeyspaceName = lens _cassandraTableKeyspaceName (\s a -> s { _cassandraTableKeyspaceName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-table.html#cfn-cassandra-table-partitionkeycolumns+ctPartitionKeyColumns :: Lens' CassandraTable [CassandraTableColumn]+ctPartitionKeyColumns = lens _cassandraTablePartitionKeyColumns (\s a -> s { _cassandraTablePartitionKeyColumns = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-table.html#cfn-cassandra-table-regularcolumns+ctRegularColumns :: Lens' CassandraTable (Maybe [CassandraTableColumn])+ctRegularColumns = lens _cassandraTableRegularColumns (\s a -> s { _cassandraTableRegularColumns = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-table.html#cfn-cassandra-table-tablename+ctTableName :: Lens' CassandraTable (Maybe (Val Text))+ctTableName = lens _cassandraTableTableName (\s a -> s { _cassandraTableTableName = a })

@@ -0,0 +1,42 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codeguruprofiler-profilinggroup.html++module Stratosphere.Resources.CodeGuruProfilerProfilingGroup where++import Stratosphere.ResourceImports+++-- | Full data type definition for CodeGuruProfilerProfilingGroup. See+-- 'codeGuruProfilerProfilingGroup' for a more convenient constructor.+data CodeGuruProfilerProfilingGroup =+  CodeGuruProfilerProfilingGroup+  { _codeGuruProfilerProfilingGroupProfilingGroupName :: Val Text+  } deriving (Show, Eq)++instance ToResourceProperties CodeGuruProfilerProfilingGroup where+  toResourceProperties CodeGuruProfilerProfilingGroup{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::CodeGuruProfiler::ProfilingGroup"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("ProfilingGroupName",) . toJSON) _codeGuruProfilerProfilingGroupProfilingGroupName+        ]+    }++-- | Constructor for 'CodeGuruProfilerProfilingGroup' containing required+-- fields as arguments.+codeGuruProfilerProfilingGroup+  :: Val Text -- ^ 'cgppgProfilingGroupName'+  -> CodeGuruProfilerProfilingGroup+codeGuruProfilerProfilingGroup profilingGroupNamearg =+  CodeGuruProfilerProfilingGroup+  { _codeGuruProfilerProfilingGroupProfilingGroupName = profilingGroupNamearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codeguruprofiler-profilinggroup.html#cfn-codeguruprofiler-profilinggroup-profilinggroupname+cgppgProfilingGroupName :: Lens' CodeGuruProfilerProfilingGroup (Val Text)+cgppgProfilingGroupName = lens _codeGuruProfilerProfilingGroupProfilingGroupName (\s a -> s { _codeGuruProfilerProfilingGroupProfilingGroupName = a })

@@ -10,6 +10,7 @@ import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.DMSEndpointDynamoDbSettings import Stratosphere.ResourceProperties.DMSEndpointElasticsearchSettings+import Stratosphere.ResourceProperties.DMSEndpointKafkaSettings import Stratosphere.ResourceProperties.DMSEndpointKinesisSettings import Stratosphere.ResourceProperties.DMSEndpointMongoDbSettings import Stratosphere.ResourceProperties.DMSEndpointS3Settings@@ -27,6 +28,7 @@   , _dMSEndpointEndpointType :: Val Text   , _dMSEndpointEngineName :: Val Text   , _dMSEndpointExtraConnectionAttributes :: Maybe (Val Text)+  , _dMSEndpointKafkaSettings :: Maybe DMSEndpointKafkaSettings   , _dMSEndpointKinesisSettings :: Maybe DMSEndpointKinesisSettings   , _dMSEndpointKmsKeyId :: Maybe (Val Text)   , _dMSEndpointMongoDbSettings :: Maybe DMSEndpointMongoDbSettings@@ -53,6 +55,7 @@         , (Just . ("EndpointType",) . toJSON) _dMSEndpointEndpointType         , (Just . ("EngineName",) . toJSON) _dMSEndpointEngineName         , fmap (("ExtraConnectionAttributes",) . toJSON) _dMSEndpointExtraConnectionAttributes+        , fmap (("KafkaSettings",) . toJSON) _dMSEndpointKafkaSettings         , fmap (("KinesisSettings",) . toJSON) _dMSEndpointKinesisSettings         , fmap (("KmsKeyId",) . toJSON) _dMSEndpointKmsKeyId         , fmap (("MongoDbSettings",) . toJSON) _dMSEndpointMongoDbSettings@@ -81,6 +84,7 @@   , _dMSEndpointEndpointType = endpointTypearg   , _dMSEndpointEngineName = engineNamearg   , _dMSEndpointExtraConnectionAttributes = Nothing+  , _dMSEndpointKafkaSettings = Nothing   , _dMSEndpointKinesisSettings = Nothing   , _dMSEndpointKmsKeyId = Nothing   , _dMSEndpointMongoDbSettings = Nothing@@ -124,6 +128,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-endpoint.html#cfn-dms-endpoint-extraconnectionattributes dmseExtraConnectionAttributes :: Lens' DMSEndpoint (Maybe (Val Text)) dmseExtraConnectionAttributes = lens _dMSEndpointExtraConnectionAttributes (\s a -> s { _dMSEndpointExtraConnectionAttributes = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-endpoint.html#cfn-dms-endpoint-kafkasettings+dmseKafkaSettings :: Lens' DMSEndpoint (Maybe DMSEndpointKafkaSettings)+dmseKafkaSettings = lens _dMSEndpointKafkaSettings (\s a -> s { _dMSEndpointKafkaSettings = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-endpoint.html#cfn-dms-endpoint-kinesissettings dmseKinesisSettings :: Lens' DMSEndpoint (Maybe DMSEndpointKinesisSettings)

@@ -21,10 +21,12 @@   , _eC2ClientVpnEndpointConnectionLogOptions :: EC2ClientVpnEndpointConnectionLogOptions   , _eC2ClientVpnEndpointDescription :: Maybe (Val Text)   , _eC2ClientVpnEndpointDnsServers :: Maybe (ValList Text)+  , _eC2ClientVpnEndpointSecurityGroupIds :: Maybe (ValList Text)   , _eC2ClientVpnEndpointServerCertificateArn :: Val Text   , _eC2ClientVpnEndpointSplitTunnel :: Maybe (Val Bool)   , _eC2ClientVpnEndpointTagSpecifications :: Maybe [EC2ClientVpnEndpointTagSpecification]   , _eC2ClientVpnEndpointTransportProtocol :: Maybe (Val Text)+  , _eC2ClientVpnEndpointVpcId :: Maybe (Val Text)   , _eC2ClientVpnEndpointVpnPort :: Maybe (Val Integer)   } deriving (Show, Eq) @@ -39,10 +41,12 @@         , (Just . ("ConnectionLogOptions",) . toJSON) _eC2ClientVpnEndpointConnectionLogOptions         , fmap (("Description",) . toJSON) _eC2ClientVpnEndpointDescription         , fmap (("DnsServers",) . toJSON) _eC2ClientVpnEndpointDnsServers+        , fmap (("SecurityGroupIds",) . toJSON) _eC2ClientVpnEndpointSecurityGroupIds         , (Just . ("ServerCertificateArn",) . toJSON) _eC2ClientVpnEndpointServerCertificateArn         , fmap (("SplitTunnel",) . toJSON) _eC2ClientVpnEndpointSplitTunnel         , fmap (("TagSpecifications",) . toJSON) _eC2ClientVpnEndpointTagSpecifications         , fmap (("TransportProtocol",) . toJSON) _eC2ClientVpnEndpointTransportProtocol+        , fmap (("VpcId",) . toJSON) _eC2ClientVpnEndpointVpcId         , fmap (("VpnPort",) . toJSON) _eC2ClientVpnEndpointVpnPort         ]     }@@ -62,10 +66,12 @@   , _eC2ClientVpnEndpointConnectionLogOptions = connectionLogOptionsarg   , _eC2ClientVpnEndpointDescription = Nothing   , _eC2ClientVpnEndpointDnsServers = Nothing+  , _eC2ClientVpnEndpointSecurityGroupIds = Nothing   , _eC2ClientVpnEndpointServerCertificateArn = serverCertificateArnarg   , _eC2ClientVpnEndpointSplitTunnel = Nothing   , _eC2ClientVpnEndpointTagSpecifications = Nothing   , _eC2ClientVpnEndpointTransportProtocol = Nothing+  , _eC2ClientVpnEndpointVpcId = Nothing   , _eC2ClientVpnEndpointVpnPort = Nothing   } @@ -89,6 +95,10 @@ eccveDnsServers :: Lens' EC2ClientVpnEndpoint (Maybe (ValList Text)) eccveDnsServers = lens _eC2ClientVpnEndpointDnsServers (\s a -> s { _eC2ClientVpnEndpointDnsServers = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnendpoint.html#cfn-ec2-clientvpnendpoint-securitygroupids+eccveSecurityGroupIds :: Lens' EC2ClientVpnEndpoint (Maybe (ValList Text))+eccveSecurityGroupIds = lens _eC2ClientVpnEndpointSecurityGroupIds (\s a -> s { _eC2ClientVpnEndpointSecurityGroupIds = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnendpoint.html#cfn-ec2-clientvpnendpoint-servercertificatearn eccveServerCertificateArn :: Lens' EC2ClientVpnEndpoint (Val Text) eccveServerCertificateArn = lens _eC2ClientVpnEndpointServerCertificateArn (\s a -> s { _eC2ClientVpnEndpointServerCertificateArn = a })@@ -104,6 +114,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnendpoint.html#cfn-ec2-clientvpnendpoint-transportprotocol eccveTransportProtocol :: Lens' EC2ClientVpnEndpoint (Maybe (Val Text)) eccveTransportProtocol = lens _eC2ClientVpnEndpointTransportProtocol (\s a -> s { _eC2ClientVpnEndpointTransportProtocol = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnendpoint.html#cfn-ec2-clientvpnendpoint-vpcid+eccveVpcId :: Lens' EC2ClientVpnEndpoint (Maybe (Val Text))+eccveVpcId = lens _eC2ClientVpnEndpointVpcId (\s a -> s { _eC2ClientVpnEndpointVpcId = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnendpoint.html#cfn-ec2-clientvpnendpoint-vpnport eccveVpnPort :: Lens' EC2ClientVpnEndpoint (Maybe (Val Integer))

@@ -12,6 +12,7 @@ import Stratosphere.ResourceProperties.MSKClusterClientAuthentication import Stratosphere.ResourceProperties.MSKClusterConfigurationInfo import Stratosphere.ResourceProperties.MSKClusterEncryptionInfo+import Stratosphere.ResourceProperties.MSKClusterLoggingInfo import Stratosphere.ResourceProperties.MSKClusterOpenMonitoring  -- | Full data type definition for MSKCluster. See 'mskCluster' for a more@@ -25,6 +26,7 @@   , _mSKClusterEncryptionInfo :: Maybe MSKClusterEncryptionInfo   , _mSKClusterEnhancedMonitoring :: Maybe (Val Text)   , _mSKClusterKafkaVersion :: Val Text+  , _mSKClusterLoggingInfo :: Maybe MSKClusterLoggingInfo   , _mSKClusterNumberOfBrokerNodes :: Val Integer   , _mSKClusterOpenMonitoring :: Maybe MSKClusterOpenMonitoring   , _mSKClusterTags :: Maybe Object@@ -43,6 +45,7 @@         , fmap (("EncryptionInfo",) . toJSON) _mSKClusterEncryptionInfo         , fmap (("EnhancedMonitoring",) . toJSON) _mSKClusterEnhancedMonitoring         , (Just . ("KafkaVersion",) . toJSON) _mSKClusterKafkaVersion+        , fmap (("LoggingInfo",) . toJSON) _mSKClusterLoggingInfo         , (Just . ("NumberOfBrokerNodes",) . toJSON) _mSKClusterNumberOfBrokerNodes         , fmap (("OpenMonitoring",) . toJSON) _mSKClusterOpenMonitoring         , fmap (("Tags",) . toJSON) _mSKClusterTags@@ -65,6 +68,7 @@   , _mSKClusterEncryptionInfo = Nothing   , _mSKClusterEnhancedMonitoring = Nothing   , _mSKClusterKafkaVersion = kafkaVersionarg+  , _mSKClusterLoggingInfo = Nothing   , _mSKClusterNumberOfBrokerNodes = numberOfBrokerNodesarg   , _mSKClusterOpenMonitoring = Nothing   , _mSKClusterTags = Nothing@@ -97,6 +101,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-msk-cluster.html#cfn-msk-cluster-kafkaversion mskcKafkaVersion :: Lens' MSKCluster (Val Text) mskcKafkaVersion = lens _mSKClusterKafkaVersion (\s a -> s { _mSKClusterKafkaVersion = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-msk-cluster.html#cfn-msk-cluster-logginginfo+mskcLoggingInfo :: Lens' MSKCluster (Maybe MSKClusterLoggingInfo)+mskcLoggingInfo = lens _mSKClusterLoggingInfo (\s a -> s { _mSKClusterLoggingInfo = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-msk-cluster.html#cfn-msk-cluster-numberofbrokernodes mskcNumberOfBrokerNodes :: Lens' MSKCluster (Val Integer)

@@ -0,0 +1,66 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-customergatewayassociation.html++module Stratosphere.Resources.NetworkManagerCustomerGatewayAssociation where++import Stratosphere.ResourceImports+++-- | Full data type definition for NetworkManagerCustomerGatewayAssociation.+-- See 'networkManagerCustomerGatewayAssociation' for a more convenient+-- constructor.+data NetworkManagerCustomerGatewayAssociation =+  NetworkManagerCustomerGatewayAssociation+  { _networkManagerCustomerGatewayAssociationCustomerGatewayArn :: Val Text+  , _networkManagerCustomerGatewayAssociationDeviceId :: Val Text+  , _networkManagerCustomerGatewayAssociationGlobalNetworkId :: Val Text+  , _networkManagerCustomerGatewayAssociationLinkId :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToResourceProperties NetworkManagerCustomerGatewayAssociation where+  toResourceProperties NetworkManagerCustomerGatewayAssociation{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::NetworkManager::CustomerGatewayAssociation"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("CustomerGatewayArn",) . toJSON) _networkManagerCustomerGatewayAssociationCustomerGatewayArn+        , (Just . ("DeviceId",) . toJSON) _networkManagerCustomerGatewayAssociationDeviceId+        , (Just . ("GlobalNetworkId",) . toJSON) _networkManagerCustomerGatewayAssociationGlobalNetworkId+        , fmap (("LinkId",) . toJSON) _networkManagerCustomerGatewayAssociationLinkId+        ]+    }++-- | Constructor for 'NetworkManagerCustomerGatewayAssociation' containing+-- required fields as arguments.+networkManagerCustomerGatewayAssociation+  :: Val Text -- ^ 'nmcgaCustomerGatewayArn'+  -> Val Text -- ^ 'nmcgaDeviceId'+  -> Val Text -- ^ 'nmcgaGlobalNetworkId'+  -> NetworkManagerCustomerGatewayAssociation+networkManagerCustomerGatewayAssociation customerGatewayArnarg deviceIdarg globalNetworkIdarg =+  NetworkManagerCustomerGatewayAssociation+  { _networkManagerCustomerGatewayAssociationCustomerGatewayArn = customerGatewayArnarg+  , _networkManagerCustomerGatewayAssociationDeviceId = deviceIdarg+  , _networkManagerCustomerGatewayAssociationGlobalNetworkId = globalNetworkIdarg+  , _networkManagerCustomerGatewayAssociationLinkId = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-customergatewayassociation.html#cfn-networkmanager-customergatewayassociation-customergatewayarn+nmcgaCustomerGatewayArn :: Lens' NetworkManagerCustomerGatewayAssociation (Val Text)+nmcgaCustomerGatewayArn = lens _networkManagerCustomerGatewayAssociationCustomerGatewayArn (\s a -> s { _networkManagerCustomerGatewayAssociationCustomerGatewayArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-customergatewayassociation.html#cfn-networkmanager-customergatewayassociation-deviceid+nmcgaDeviceId :: Lens' NetworkManagerCustomerGatewayAssociation (Val Text)+nmcgaDeviceId = lens _networkManagerCustomerGatewayAssociationDeviceId (\s a -> s { _networkManagerCustomerGatewayAssociationDeviceId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-customergatewayassociation.html#cfn-networkmanager-customergatewayassociation-globalnetworkid+nmcgaGlobalNetworkId :: Lens' NetworkManagerCustomerGatewayAssociation (Val Text)+nmcgaGlobalNetworkId = lens _networkManagerCustomerGatewayAssociationGlobalNetworkId (\s a -> s { _networkManagerCustomerGatewayAssociationGlobalNetworkId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-customergatewayassociation.html#cfn-networkmanager-customergatewayassociation-linkid+nmcgaLinkId :: Lens' NetworkManagerCustomerGatewayAssociation (Maybe (Val Text))+nmcgaLinkId = lens _networkManagerCustomerGatewayAssociationLinkId (\s a -> s { _networkManagerCustomerGatewayAssociationLinkId = a })

@@ -0,0 +1,99 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-device.html++module Stratosphere.Resources.NetworkManagerDevice where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.NetworkManagerDeviceLocation+import Stratosphere.ResourceProperties.Tag++-- | Full data type definition for NetworkManagerDevice. See+-- 'networkManagerDevice' for a more convenient constructor.+data NetworkManagerDevice =+  NetworkManagerDevice+  { _networkManagerDeviceDescription :: Maybe (Val Text)+  , _networkManagerDeviceGlobalNetworkId :: Val Text+  , _networkManagerDeviceLocation :: Maybe NetworkManagerDeviceLocation+  , _networkManagerDeviceModel :: Maybe (Val Text)+  , _networkManagerDeviceSerialNumber :: Maybe (Val Text)+  , _networkManagerDeviceSiteId :: Maybe (Val Text)+  , _networkManagerDeviceTags :: Maybe [Tag]+  , _networkManagerDeviceType :: Maybe (Val Text)+  , _networkManagerDeviceVendor :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToResourceProperties NetworkManagerDevice where+  toResourceProperties NetworkManagerDevice{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::NetworkManager::Device"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("Description",) . toJSON) _networkManagerDeviceDescription+        , (Just . ("GlobalNetworkId",) . toJSON) _networkManagerDeviceGlobalNetworkId+        , fmap (("Location",) . toJSON) _networkManagerDeviceLocation+        , fmap (("Model",) . toJSON) _networkManagerDeviceModel+        , fmap (("SerialNumber",) . toJSON) _networkManagerDeviceSerialNumber+        , fmap (("SiteId",) . toJSON) _networkManagerDeviceSiteId+        , fmap (("Tags",) . toJSON) _networkManagerDeviceTags+        , fmap (("Type",) . toJSON) _networkManagerDeviceType+        , fmap (("Vendor",) . toJSON) _networkManagerDeviceVendor+        ]+    }++-- | Constructor for 'NetworkManagerDevice' containing required fields as+-- arguments.+networkManagerDevice+  :: Val Text -- ^ 'nmdGlobalNetworkId'+  -> NetworkManagerDevice+networkManagerDevice globalNetworkIdarg =+  NetworkManagerDevice+  { _networkManagerDeviceDescription = Nothing+  , _networkManagerDeviceGlobalNetworkId = globalNetworkIdarg+  , _networkManagerDeviceLocation = Nothing+  , _networkManagerDeviceModel = Nothing+  , _networkManagerDeviceSerialNumber = Nothing+  , _networkManagerDeviceSiteId = Nothing+  , _networkManagerDeviceTags = Nothing+  , _networkManagerDeviceType = Nothing+  , _networkManagerDeviceVendor = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-device.html#cfn-networkmanager-device-description+nmdDescription :: Lens' NetworkManagerDevice (Maybe (Val Text))+nmdDescription = lens _networkManagerDeviceDescription (\s a -> s { _networkManagerDeviceDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-device.html#cfn-networkmanager-device-globalnetworkid+nmdGlobalNetworkId :: Lens' NetworkManagerDevice (Val Text)+nmdGlobalNetworkId = lens _networkManagerDeviceGlobalNetworkId (\s a -> s { _networkManagerDeviceGlobalNetworkId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-device.html#cfn-networkmanager-device-location+nmdLocation :: Lens' NetworkManagerDevice (Maybe NetworkManagerDeviceLocation)+nmdLocation = lens _networkManagerDeviceLocation (\s a -> s { _networkManagerDeviceLocation = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-device.html#cfn-networkmanager-device-model+nmdModel :: Lens' NetworkManagerDevice (Maybe (Val Text))+nmdModel = lens _networkManagerDeviceModel (\s a -> s { _networkManagerDeviceModel = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-device.html#cfn-networkmanager-device-serialnumber+nmdSerialNumber :: Lens' NetworkManagerDevice (Maybe (Val Text))+nmdSerialNumber = lens _networkManagerDeviceSerialNumber (\s a -> s { _networkManagerDeviceSerialNumber = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-device.html#cfn-networkmanager-device-siteid+nmdSiteId :: Lens' NetworkManagerDevice (Maybe (Val Text))+nmdSiteId = lens _networkManagerDeviceSiteId (\s a -> s { _networkManagerDeviceSiteId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-device.html#cfn-networkmanager-device-tags+nmdTags :: Lens' NetworkManagerDevice (Maybe [Tag])+nmdTags = lens _networkManagerDeviceTags (\s a -> s { _networkManagerDeviceTags = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-device.html#cfn-networkmanager-device-type+nmdType :: Lens' NetworkManagerDevice (Maybe (Val Text))+nmdType = lens _networkManagerDeviceType (\s a -> s { _networkManagerDeviceType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-device.html#cfn-networkmanager-device-vendor+nmdVendor :: Lens' NetworkManagerDevice (Maybe (Val Text))+nmdVendor = lens _networkManagerDeviceVendor (\s a -> s { _networkManagerDeviceVendor = a })

@@ -0,0 +1,48 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-globalnetwork.html++module Stratosphere.Resources.NetworkManagerGlobalNetwork where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.Tag++-- | Full data type definition for NetworkManagerGlobalNetwork. See+-- 'networkManagerGlobalNetwork' for a more convenient constructor.+data NetworkManagerGlobalNetwork =+  NetworkManagerGlobalNetwork+  { _networkManagerGlobalNetworkDescription :: Maybe (Val Text)+  , _networkManagerGlobalNetworkTags :: Maybe [Tag]+  } deriving (Show, Eq)++instance ToResourceProperties NetworkManagerGlobalNetwork where+  toResourceProperties NetworkManagerGlobalNetwork{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::NetworkManager::GlobalNetwork"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("Description",) . toJSON) _networkManagerGlobalNetworkDescription+        , fmap (("Tags",) . toJSON) _networkManagerGlobalNetworkTags+        ]+    }++-- | Constructor for 'NetworkManagerGlobalNetwork' containing required fields+-- as arguments.+networkManagerGlobalNetwork+  :: NetworkManagerGlobalNetwork+networkManagerGlobalNetwork  =+  NetworkManagerGlobalNetwork+  { _networkManagerGlobalNetworkDescription = Nothing+  , _networkManagerGlobalNetworkTags = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-globalnetwork.html#cfn-networkmanager-globalnetwork-description+nmgnDescription :: Lens' NetworkManagerGlobalNetwork (Maybe (Val Text))+nmgnDescription = lens _networkManagerGlobalNetworkDescription (\s a -> s { _networkManagerGlobalNetworkDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-globalnetwork.html#cfn-networkmanager-globalnetwork-tags+nmgnTags :: Lens' NetworkManagerGlobalNetwork (Maybe [Tag])+nmgnTags = lens _networkManagerGlobalNetworkTags (\s a -> s { _networkManagerGlobalNetworkTags = a })

@@ -0,0 +1,87 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-link.html++module Stratosphere.Resources.NetworkManagerLink where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.NetworkManagerLinkBandwidth+import Stratosphere.ResourceProperties.Tag++-- | Full data type definition for NetworkManagerLink. See+-- 'networkManagerLink' for a more convenient constructor.+data NetworkManagerLink =+  NetworkManagerLink+  { _networkManagerLinkBandwidth :: NetworkManagerLinkBandwidth+  , _networkManagerLinkDescription :: Maybe (Val Text)+  , _networkManagerLinkGlobalNetworkId :: Val Text+  , _networkManagerLinkProvider :: Maybe (Val Text)+  , _networkManagerLinkSiteId :: Val Text+  , _networkManagerLinkTags :: Maybe [Tag]+  , _networkManagerLinkType :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToResourceProperties NetworkManagerLink where+  toResourceProperties NetworkManagerLink{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::NetworkManager::Link"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("Bandwidth",) . toJSON) _networkManagerLinkBandwidth+        , fmap (("Description",) . toJSON) _networkManagerLinkDescription+        , (Just . ("GlobalNetworkId",) . toJSON) _networkManagerLinkGlobalNetworkId+        , fmap (("Provider",) . toJSON) _networkManagerLinkProvider+        , (Just . ("SiteId",) . toJSON) _networkManagerLinkSiteId+        , fmap (("Tags",) . toJSON) _networkManagerLinkTags+        , fmap (("Type",) . toJSON) _networkManagerLinkType+        ]+    }++-- | Constructor for 'NetworkManagerLink' containing required fields as+-- arguments.+networkManagerLink+  :: NetworkManagerLinkBandwidth -- ^ 'nmlBandwidth'+  -> Val Text -- ^ 'nmlGlobalNetworkId'+  -> Val Text -- ^ 'nmlSiteId'+  -> NetworkManagerLink+networkManagerLink bandwidtharg globalNetworkIdarg siteIdarg =+  NetworkManagerLink+  { _networkManagerLinkBandwidth = bandwidtharg+  , _networkManagerLinkDescription = Nothing+  , _networkManagerLinkGlobalNetworkId = globalNetworkIdarg+  , _networkManagerLinkProvider = Nothing+  , _networkManagerLinkSiteId = siteIdarg+  , _networkManagerLinkTags = Nothing+  , _networkManagerLinkType = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-link.html#cfn-networkmanager-link-bandwidth+nmlBandwidth :: Lens' NetworkManagerLink NetworkManagerLinkBandwidth+nmlBandwidth = lens _networkManagerLinkBandwidth (\s a -> s { _networkManagerLinkBandwidth = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-link.html#cfn-networkmanager-link-description+nmlDescription :: Lens' NetworkManagerLink (Maybe (Val Text))+nmlDescription = lens _networkManagerLinkDescription (\s a -> s { _networkManagerLinkDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-link.html#cfn-networkmanager-link-globalnetworkid+nmlGlobalNetworkId :: Lens' NetworkManagerLink (Val Text)+nmlGlobalNetworkId = lens _networkManagerLinkGlobalNetworkId (\s a -> s { _networkManagerLinkGlobalNetworkId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-link.html#cfn-networkmanager-link-provider+nmlProvider :: Lens' NetworkManagerLink (Maybe (Val Text))+nmlProvider = lens _networkManagerLinkProvider (\s a -> s { _networkManagerLinkProvider = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-link.html#cfn-networkmanager-link-siteid+nmlSiteId :: Lens' NetworkManagerLink (Val Text)+nmlSiteId = lens _networkManagerLinkSiteId (\s a -> s { _networkManagerLinkSiteId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-link.html#cfn-networkmanager-link-tags+nmlTags :: Lens' NetworkManagerLink (Maybe [Tag])+nmlTags = lens _networkManagerLinkTags (\s a -> s { _networkManagerLinkTags = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-link.html#cfn-networkmanager-link-type+nmlType :: Lens' NetworkManagerLink (Maybe (Val Text))+nmlType = lens _networkManagerLinkType (\s a -> s { _networkManagerLinkType = a })

@@ -0,0 +1,58 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-linkassociation.html++module Stratosphere.Resources.NetworkManagerLinkAssociation where++import Stratosphere.ResourceImports+++-- | Full data type definition for NetworkManagerLinkAssociation. See+-- 'networkManagerLinkAssociation' for a more convenient constructor.+data NetworkManagerLinkAssociation =+  NetworkManagerLinkAssociation+  { _networkManagerLinkAssociationDeviceId :: Val Text+  , _networkManagerLinkAssociationGlobalNetworkId :: Val Text+  , _networkManagerLinkAssociationLinkId :: Val Text+  } deriving (Show, Eq)++instance ToResourceProperties NetworkManagerLinkAssociation where+  toResourceProperties NetworkManagerLinkAssociation{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::NetworkManager::LinkAssociation"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("DeviceId",) . toJSON) _networkManagerLinkAssociationDeviceId+        , (Just . ("GlobalNetworkId",) . toJSON) _networkManagerLinkAssociationGlobalNetworkId+        , (Just . ("LinkId",) . toJSON) _networkManagerLinkAssociationLinkId+        ]+    }++-- | Constructor for 'NetworkManagerLinkAssociation' containing required+-- fields as arguments.+networkManagerLinkAssociation+  :: Val Text -- ^ 'nmlaDeviceId'+  -> Val Text -- ^ 'nmlaGlobalNetworkId'+  -> Val Text -- ^ 'nmlaLinkId'+  -> NetworkManagerLinkAssociation+networkManagerLinkAssociation deviceIdarg globalNetworkIdarg linkIdarg =+  NetworkManagerLinkAssociation+  { _networkManagerLinkAssociationDeviceId = deviceIdarg+  , _networkManagerLinkAssociationGlobalNetworkId = globalNetworkIdarg+  , _networkManagerLinkAssociationLinkId = linkIdarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-linkassociation.html#cfn-networkmanager-linkassociation-deviceid+nmlaDeviceId :: Lens' NetworkManagerLinkAssociation (Val Text)+nmlaDeviceId = lens _networkManagerLinkAssociationDeviceId (\s a -> s { _networkManagerLinkAssociationDeviceId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-linkassociation.html#cfn-networkmanager-linkassociation-globalnetworkid+nmlaGlobalNetworkId :: Lens' NetworkManagerLinkAssociation (Val Text)+nmlaGlobalNetworkId = lens _networkManagerLinkAssociationGlobalNetworkId (\s a -> s { _networkManagerLinkAssociationGlobalNetworkId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-linkassociation.html#cfn-networkmanager-linkassociation-linkid+nmlaLinkId :: Lens' NetworkManagerLinkAssociation (Val Text)+nmlaLinkId = lens _networkManagerLinkAssociationLinkId (\s a -> s { _networkManagerLinkAssociationLinkId = a })

@@ -0,0 +1,64 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-site.html++module Stratosphere.Resources.NetworkManagerSite where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.NetworkManagerSiteLocation+import Stratosphere.ResourceProperties.Tag++-- | Full data type definition for NetworkManagerSite. See+-- 'networkManagerSite' for a more convenient constructor.+data NetworkManagerSite =+  NetworkManagerSite+  { _networkManagerSiteDescription :: Maybe (Val Text)+  , _networkManagerSiteGlobalNetworkId :: Val Text+  , _networkManagerSiteLocation :: Maybe NetworkManagerSiteLocation+  , _networkManagerSiteTags :: Maybe [Tag]+  } deriving (Show, Eq)++instance ToResourceProperties NetworkManagerSite where+  toResourceProperties NetworkManagerSite{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::NetworkManager::Site"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("Description",) . toJSON) _networkManagerSiteDescription+        , (Just . ("GlobalNetworkId",) . toJSON) _networkManagerSiteGlobalNetworkId+        , fmap (("Location",) . toJSON) _networkManagerSiteLocation+        , fmap (("Tags",) . toJSON) _networkManagerSiteTags+        ]+    }++-- | Constructor for 'NetworkManagerSite' containing required fields as+-- arguments.+networkManagerSite+  :: Val Text -- ^ 'nmsGlobalNetworkId'+  -> NetworkManagerSite+networkManagerSite globalNetworkIdarg =+  NetworkManagerSite+  { _networkManagerSiteDescription = Nothing+  , _networkManagerSiteGlobalNetworkId = globalNetworkIdarg+  , _networkManagerSiteLocation = Nothing+  , _networkManagerSiteTags = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-site.html#cfn-networkmanager-site-description+nmsDescription :: Lens' NetworkManagerSite (Maybe (Val Text))+nmsDescription = lens _networkManagerSiteDescription (\s a -> s { _networkManagerSiteDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-site.html#cfn-networkmanager-site-globalnetworkid+nmsGlobalNetworkId :: Lens' NetworkManagerSite (Val Text)+nmsGlobalNetworkId = lens _networkManagerSiteGlobalNetworkId (\s a -> s { _networkManagerSiteGlobalNetworkId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-site.html#cfn-networkmanager-site-location+nmsLocation :: Lens' NetworkManagerSite (Maybe NetworkManagerSiteLocation)+nmsLocation = lens _networkManagerSiteLocation (\s a -> s { _networkManagerSiteLocation = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-site.html#cfn-networkmanager-site-tags+nmsTags :: Lens' NetworkManagerSite (Maybe [Tag])+nmsTags = lens _networkManagerSiteTags (\s a -> s { _networkManagerSiteTags = a })

@@ -0,0 +1,51 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-transitgatewayregistration.html++module Stratosphere.Resources.NetworkManagerTransitGatewayRegistration where++import Stratosphere.ResourceImports+++-- | Full data type definition for NetworkManagerTransitGatewayRegistration.+-- See 'networkManagerTransitGatewayRegistration' for a more convenient+-- constructor.+data NetworkManagerTransitGatewayRegistration =+  NetworkManagerTransitGatewayRegistration+  { _networkManagerTransitGatewayRegistrationGlobalNetworkId :: Val Text+  , _networkManagerTransitGatewayRegistrationTransitGatewayArn :: Val Text+  } deriving (Show, Eq)++instance ToResourceProperties NetworkManagerTransitGatewayRegistration where+  toResourceProperties NetworkManagerTransitGatewayRegistration{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::NetworkManager::TransitGatewayRegistration"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("GlobalNetworkId",) . toJSON) _networkManagerTransitGatewayRegistrationGlobalNetworkId+        , (Just . ("TransitGatewayArn",) . toJSON) _networkManagerTransitGatewayRegistrationTransitGatewayArn+        ]+    }++-- | Constructor for 'NetworkManagerTransitGatewayRegistration' containing+-- required fields as arguments.+networkManagerTransitGatewayRegistration+  :: Val Text -- ^ 'nmtgrGlobalNetworkId'+  -> Val Text -- ^ 'nmtgrTransitGatewayArn'+  -> NetworkManagerTransitGatewayRegistration+networkManagerTransitGatewayRegistration globalNetworkIdarg transitGatewayArnarg =+  NetworkManagerTransitGatewayRegistration+  { _networkManagerTransitGatewayRegistrationGlobalNetworkId = globalNetworkIdarg+  , _networkManagerTransitGatewayRegistrationTransitGatewayArn = transitGatewayArnarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-transitgatewayregistration.html#cfn-networkmanager-transitgatewayregistration-globalnetworkid+nmtgrGlobalNetworkId :: Lens' NetworkManagerTransitGatewayRegistration (Val Text)+nmtgrGlobalNetworkId = lens _networkManagerTransitGatewayRegistrationGlobalNetworkId (\s a -> s { _networkManagerTransitGatewayRegistrationGlobalNetworkId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-transitgatewayregistration.html#cfn-networkmanager-transitgatewayregistration-transitgatewayarn+nmtgrTransitGatewayArn :: Lens' NetworkManagerTransitGatewayRegistration (Val Text)+nmtgrTransitGatewayArn = lens _networkManagerTransitGatewayRegistrationTransitGatewayArn (\s a -> s { _networkManagerTransitGatewayRegistrationTransitGatewayArn = a })

@@ -0,0 +1,63 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-resourcegroups-group.html++module Stratosphere.Resources.ResourceGroupsGroup where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.ResourceGroupsGroupResourceQuery++-- | Full data type definition for ResourceGroupsGroup. See+-- 'resourceGroupsGroup' for a more convenient constructor.+data ResourceGroupsGroup =+  ResourceGroupsGroup+  { _resourceGroupsGroupDescription :: Maybe (Val Text)+  , _resourceGroupsGroupName :: Val Text+  , _resourceGroupsGroupResourceQuery :: Maybe ResourceGroupsGroupResourceQuery+  , _resourceGroupsGroupTags :: Maybe [Object]+  } deriving (Show, Eq)++instance ToResourceProperties ResourceGroupsGroup where+  toResourceProperties ResourceGroupsGroup{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::ResourceGroups::Group"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("Description",) . toJSON) _resourceGroupsGroupDescription+        , (Just . ("Name",) . toJSON) _resourceGroupsGroupName+        , fmap (("ResourceQuery",) . toJSON) _resourceGroupsGroupResourceQuery+        , fmap (("Tags",) . toJSON) _resourceGroupsGroupTags+        ]+    }++-- | Constructor for 'ResourceGroupsGroup' containing required fields as+-- arguments.+resourceGroupsGroup+  :: Val Text -- ^ 'rggName'+  -> ResourceGroupsGroup+resourceGroupsGroup namearg =+  ResourceGroupsGroup+  { _resourceGroupsGroupDescription = Nothing+  , _resourceGroupsGroupName = namearg+  , _resourceGroupsGroupResourceQuery = Nothing+  , _resourceGroupsGroupTags = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-resourcegroups-group.html#cfn-resourcegroups-group-description+rggDescription :: Lens' ResourceGroupsGroup (Maybe (Val Text))+rggDescription = lens _resourceGroupsGroupDescription (\s a -> s { _resourceGroupsGroupDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-resourcegroups-group.html#cfn-resourcegroups-group-name+rggName :: Lens' ResourceGroupsGroup (Val Text)+rggName = lens _resourceGroupsGroupName (\s a -> s { _resourceGroupsGroupName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-resourcegroups-group.html#cfn-resourcegroups-group-resourcequery+rggResourceQuery :: Lens' ResourceGroupsGroup (Maybe ResourceGroupsGroupResourceQuery)+rggResourceQuery = lens _resourceGroupsGroupResourceQuery (\s a -> s { _resourceGroupsGroupResourceQuery = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-resourcegroups-group.html#cfn-resourcegroups-group-tags+rggTags :: Lens' ResourceGroupsGroup (Maybe [Object])+rggTags = lens _resourceGroupsGroupTags (\s a -> s { _resourceGroupsGroupTags = a })

@@ -16,9 +16,10 @@   ServiceCatalogLaunchRoleConstraint   { _serviceCatalogLaunchRoleConstraintAcceptLanguage :: Maybe (Val Text)   , _serviceCatalogLaunchRoleConstraintDescription :: Maybe (Val Text)+  , _serviceCatalogLaunchRoleConstraintLocalRoleName :: Maybe (Val Text)   , _serviceCatalogLaunchRoleConstraintPortfolioId :: Val Text   , _serviceCatalogLaunchRoleConstraintProductId :: Val Text-  , _serviceCatalogLaunchRoleConstraintRoleArn :: Val Text+  , _serviceCatalogLaunchRoleConstraintRoleArn :: Maybe (Val Text)   } deriving (Show, Eq)  instance ToResourceProperties ServiceCatalogLaunchRoleConstraint where@@ -29,9 +30,10 @@         hashMapFromList $ catMaybes         [ fmap (("AcceptLanguage",) . toJSON) _serviceCatalogLaunchRoleConstraintAcceptLanguage         , fmap (("Description",) . toJSON) _serviceCatalogLaunchRoleConstraintDescription+        , fmap (("LocalRoleName",) . toJSON) _serviceCatalogLaunchRoleConstraintLocalRoleName         , (Just . ("PortfolioId",) . toJSON) _serviceCatalogLaunchRoleConstraintPortfolioId         , (Just . ("ProductId",) . toJSON) _serviceCatalogLaunchRoleConstraintProductId-        , (Just . ("RoleArn",) . toJSON) _serviceCatalogLaunchRoleConstraintRoleArn+        , fmap (("RoleArn",) . toJSON) _serviceCatalogLaunchRoleConstraintRoleArn         ]     } @@ -40,15 +42,15 @@ serviceCatalogLaunchRoleConstraint   :: Val Text -- ^ 'sclrcPortfolioId'   -> Val Text -- ^ 'sclrcProductId'-  -> Val Text -- ^ 'sclrcRoleArn'   -> ServiceCatalogLaunchRoleConstraint-serviceCatalogLaunchRoleConstraint portfolioIdarg productIdarg roleArnarg =+serviceCatalogLaunchRoleConstraint portfolioIdarg productIdarg =   ServiceCatalogLaunchRoleConstraint   { _serviceCatalogLaunchRoleConstraintAcceptLanguage = Nothing   , _serviceCatalogLaunchRoleConstraintDescription = Nothing+  , _serviceCatalogLaunchRoleConstraintLocalRoleName = Nothing   , _serviceCatalogLaunchRoleConstraintPortfolioId = portfolioIdarg   , _serviceCatalogLaunchRoleConstraintProductId = productIdarg-  , _serviceCatalogLaunchRoleConstraintRoleArn = roleArnarg+  , _serviceCatalogLaunchRoleConstraintRoleArn = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-launchroleconstraint.html#cfn-servicecatalog-launchroleconstraint-acceptlanguage@@ -59,6 +61,10 @@ sclrcDescription :: Lens' ServiceCatalogLaunchRoleConstraint (Maybe (Val Text)) sclrcDescription = lens _serviceCatalogLaunchRoleConstraintDescription (\s a -> s { _serviceCatalogLaunchRoleConstraintDescription = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-launchroleconstraint.html#cfn-servicecatalog-launchroleconstraint-localrolename+sclrcLocalRoleName :: Lens' ServiceCatalogLaunchRoleConstraint (Maybe (Val Text))+sclrcLocalRoleName = lens _serviceCatalogLaunchRoleConstraintLocalRoleName (\s a -> s { _serviceCatalogLaunchRoleConstraintLocalRoleName = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-launchroleconstraint.html#cfn-servicecatalog-launchroleconstraint-portfolioid sclrcPortfolioId :: Lens' ServiceCatalogLaunchRoleConstraint (Val Text) sclrcPortfolioId = lens _serviceCatalogLaunchRoleConstraintPortfolioId (\s a -> s { _serviceCatalogLaunchRoleConstraintPortfolioId = a })@@ -68,5 +74,5 @@ sclrcProductId = lens _serviceCatalogLaunchRoleConstraintProductId (\s a -> s { _serviceCatalogLaunchRoleConstraintProductId = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-launchroleconstraint.html#cfn-servicecatalog-launchroleconstraint-rolearn-sclrcRoleArn :: Lens' ServiceCatalogLaunchRoleConstraint (Val Text)+sclrcRoleArn :: Lens' ServiceCatalogLaunchRoleConstraint (Maybe (Val Text)) sclrcRoleArn = lens _serviceCatalogLaunchRoleConstraintRoleArn (\s a -> s { _serviceCatalogLaunchRoleConstraintRoleArn = a })

@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: ee57ccca1e9a4f1356e456333df8d21a6fff47a4909fb4e4f029bfbe0316e85e+-- hash: 9be75cdd17dace140468de699b0e2c48dc74cc00f31ad255104034da133f584c  name:           stratosphere-version:        0.50.0+version:        0.51.0 synopsis:       EDSL for AWS CloudFormation description:    EDSL for AWS CloudFormation category:       AWS, Cloud@@ -93,6 +93,7 @@       Stratosphere.ResourceProperties.ApiGatewayV2ApiCors       Stratosphere.ResourceProperties.ApiGatewayV2AuthorizerJWTConfiguration       Stratosphere.ResourceProperties.ApiGatewayV2DomainNameDomainNameConfiguration+      Stratosphere.ResourceProperties.ApiGatewayV2IntegrationTlsConfig       Stratosphere.ResourceProperties.ApiGatewayV2RouteParameterConstraints       Stratosphere.ResourceProperties.ApiGatewayV2RouteResponseParameterConstraints       Stratosphere.ResourceProperties.ApiGatewayV2StageAccessLogSettings@@ -257,6 +258,10 @@       Stratosphere.ResourceProperties.BudgetsBudgetSpend       Stratosphere.ResourceProperties.BudgetsBudgetSubscriber       Stratosphere.ResourceProperties.BudgetsBudgetTimePeriod+      Stratosphere.ResourceProperties.CassandraTableBillingMode+      Stratosphere.ResourceProperties.CassandraTableClusteringKeyColumn+      Stratosphere.ResourceProperties.CassandraTableColumn+      Stratosphere.ResourceProperties.CassandraTableProvisionedThroughput       Stratosphere.ResourceProperties.CertificateManagerCertificateDomainValidationOption       Stratosphere.ResourceProperties.Cloud9EnvironmentEC2Repository       Stratosphere.ResourceProperties.CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig@@ -272,8 +277,14 @@       Stratosphere.ResourceProperties.CloudFrontDistributionLogging       Stratosphere.ResourceProperties.CloudFrontDistributionOrigin       Stratosphere.ResourceProperties.CloudFrontDistributionOriginCustomHeader+      Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroup+      Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroupFailoverCriteria+      Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroupMember+      Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroupMembers+      Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroups       Stratosphere.ResourceProperties.CloudFrontDistributionRestrictions       Stratosphere.ResourceProperties.CloudFrontDistributionS3OriginConfig+      Stratosphere.ResourceProperties.CloudFrontDistributionStatusCodes       Stratosphere.ResourceProperties.CloudFrontDistributionViewerCertificate       Stratosphere.ResourceProperties.CloudFrontStreamingDistributionLogging       Stratosphere.ResourceProperties.CloudFrontStreamingDistributionS3Origin@@ -415,6 +426,7 @@       Stratosphere.ResourceProperties.DLMLifecyclePolicySchedule       Stratosphere.ResourceProperties.DMSEndpointDynamoDbSettings       Stratosphere.ResourceProperties.DMSEndpointElasticsearchSettings+      Stratosphere.ResourceProperties.DMSEndpointKafkaSettings       Stratosphere.ResourceProperties.DMSEndpointKinesisSettings       Stratosphere.ResourceProperties.DMSEndpointMongoDbSettings       Stratosphere.ResourceProperties.DMSEndpointS3Settings@@ -1026,19 +1038,27 @@       Stratosphere.ResourceProperties.MediaLiveInputMediaConnectFlowRequest       Stratosphere.ResourceProperties.MediaLiveInputSecurityGroupInputWhitelistRuleCidr       Stratosphere.ResourceProperties.MediaStoreContainerCorsRule+      Stratosphere.ResourceProperties.MSKClusterBrokerLogs       Stratosphere.ResourceProperties.MSKClusterBrokerNodeGroupInfo       Stratosphere.ResourceProperties.MSKClusterClientAuthentication+      Stratosphere.ResourceProperties.MSKClusterCloudWatchLogs       Stratosphere.ResourceProperties.MSKClusterConfigurationInfo       Stratosphere.ResourceProperties.MSKClusterEBSStorageInfo       Stratosphere.ResourceProperties.MSKClusterEncryptionAtRest       Stratosphere.ResourceProperties.MSKClusterEncryptionInfo       Stratosphere.ResourceProperties.MSKClusterEncryptionInTransit+      Stratosphere.ResourceProperties.MSKClusterFirehose       Stratosphere.ResourceProperties.MSKClusterJmxExporter+      Stratosphere.ResourceProperties.MSKClusterLoggingInfo       Stratosphere.ResourceProperties.MSKClusterNodeExporter       Stratosphere.ResourceProperties.MSKClusterOpenMonitoring       Stratosphere.ResourceProperties.MSKClusterPrometheus+      Stratosphere.ResourceProperties.MSKClusterS3       Stratosphere.ResourceProperties.MSKClusterStorageInfo       Stratosphere.ResourceProperties.MSKClusterTls+      Stratosphere.ResourceProperties.NetworkManagerDeviceLocation+      Stratosphere.ResourceProperties.NetworkManagerLinkBandwidth+      Stratosphere.ResourceProperties.NetworkManagerSiteLocation       Stratosphere.ResourceProperties.OpsWorksAppDataSource       Stratosphere.ResourceProperties.OpsWorksAppEnvironmentVariable       Stratosphere.ResourceProperties.OpsWorksAppSource@@ -1113,6 +1133,9 @@       Stratosphere.ResourceProperties.RDSOptionGroupOptionSetting       Stratosphere.ResourceProperties.RedshiftClusterLoggingProperties       Stratosphere.ResourceProperties.RedshiftClusterParameterGroupParameter+      Stratosphere.ResourceProperties.ResourceGroupsGroupQuery+      Stratosphere.ResourceProperties.ResourceGroupsGroupResourceQuery+      Stratosphere.ResourceProperties.ResourceGroupsGroupTagFilter       Stratosphere.ResourceProperties.RoboMakerRobotApplicationRobotSoftwareSuite       Stratosphere.ResourceProperties.RoboMakerRobotApplicationSourceConfig       Stratosphere.ResourceProperties.RoboMakerSimulationApplicationRenderingEngine@@ -1404,6 +1427,8 @@       Stratosphere.Resources.BatchJobDefinition       Stratosphere.Resources.BatchJobQueue       Stratosphere.Resources.BudgetsBudget+      Stratosphere.Resources.CassandraKeyspace+      Stratosphere.Resources.CassandraTable       Stratosphere.Resources.CertificateManagerCertificate       Stratosphere.Resources.ChatbotSlackChannelConfiguration       Stratosphere.Resources.Cloud9EnvironmentEC2@@ -1428,6 +1453,7 @@       Stratosphere.Resources.CodeDeployApplication       Stratosphere.Resources.CodeDeployDeploymentConfig       Stratosphere.Resources.CodeDeployDeploymentGroup+      Stratosphere.Resources.CodeGuruProfilerProfilingGroup       Stratosphere.Resources.CodePipelineCustomActionType       Stratosphere.Resources.CodePipelinePipeline       Stratosphere.Resources.CodePipelineWebhook@@ -1688,6 +1714,13 @@       Stratosphere.Resources.NeptuneDBInstance       Stratosphere.Resources.NeptuneDBParameterGroup       Stratosphere.Resources.NeptuneDBSubnetGroup+      Stratosphere.Resources.NetworkManagerCustomerGatewayAssociation+      Stratosphere.Resources.NetworkManagerDevice+      Stratosphere.Resources.NetworkManagerGlobalNetwork+      Stratosphere.Resources.NetworkManagerLink+      Stratosphere.Resources.NetworkManagerLinkAssociation+      Stratosphere.Resources.NetworkManagerSite+      Stratosphere.Resources.NetworkManagerTransitGatewayRegistration       Stratosphere.Resources.OpsWorksApp       Stratosphere.Resources.OpsWorksCMServer       Stratosphere.Resources.OpsWorksElasticLoadBalancerAttachment@@ -1734,6 +1767,7 @@       Stratosphere.Resources.RedshiftClusterSecurityGroup       Stratosphere.Resources.RedshiftClusterSecurityGroupIngress       Stratosphere.Resources.RedshiftClusterSubnetGroup+      Stratosphere.Resources.ResourceGroupsGroup       Stratosphere.Resources.RoboMakerFleet       Stratosphere.Resources.RoboMakerRobot       Stratosphere.Resources.RoboMakerRobotApplication