packages feed

stratosphere 0.30.1 → 0.31.0

raw patch · 97 files changed

+5580/−84 lines, 97 files

Files

CHANGELOG.md view
@@ -1,5 +1,10 @@ # Change Log +## 0.31.0++* Update resource specification document to version 2.25.0+* Added `Condition` field to resources+ ## 0.30.1  * Update resource specification document to version 2.21.0
+ library-gen/Stratosphere/ResourceProperties/ApiGatewayV2RouteParameterConstraints.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-route-parameterconstraints.html++module Stratosphere.ResourceProperties.ApiGatewayV2RouteParameterConstraints where++import Stratosphere.ResourceImports+++-- | Full data type definition for ApiGatewayV2RouteParameterConstraints. See+-- 'apiGatewayV2RouteParameterConstraints' for a more convenient+-- constructor.+data ApiGatewayV2RouteParameterConstraints =+  ApiGatewayV2RouteParameterConstraints+  { _apiGatewayV2RouteParameterConstraintsRequired :: Val Bool+  } deriving (Show, Eq)++instance ToJSON ApiGatewayV2RouteParameterConstraints where+  toJSON ApiGatewayV2RouteParameterConstraints{..} =+    object $+    catMaybes+    [ (Just . ("Required",) . toJSON . fmap Bool') _apiGatewayV2RouteParameterConstraintsRequired+    ]++instance FromJSON ApiGatewayV2RouteParameterConstraints where+  parseJSON (Object obj) =+    ApiGatewayV2RouteParameterConstraints <$>+      fmap (fmap unBool') (obj .: "Required")+  parseJSON _ = mempty++-- | Constructor for 'ApiGatewayV2RouteParameterConstraints' containing+-- required fields as arguments.+apiGatewayV2RouteParameterConstraints+  :: Val Bool -- ^ 'agvrpcRequired'+  -> ApiGatewayV2RouteParameterConstraints+apiGatewayV2RouteParameterConstraints requiredarg =+  ApiGatewayV2RouteParameterConstraints+  { _apiGatewayV2RouteParameterConstraintsRequired = requiredarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-route-parameterconstraints.html#cfn-apigatewayv2-route-parameterconstraints-required+agvrpcRequired :: Lens' ApiGatewayV2RouteParameterConstraints (Val Bool)+agvrpcRequired = lens _apiGatewayV2RouteParameterConstraintsRequired (\s a -> s { _apiGatewayV2RouteParameterConstraintsRequired = a })
+ library-gen/Stratosphere/ResourceProperties/ApiGatewayV2RouteResponseParameterConstraints.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-routeresponse-parameterconstraints.html++module Stratosphere.ResourceProperties.ApiGatewayV2RouteResponseParameterConstraints where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- ApiGatewayV2RouteResponseParameterConstraints. See+-- 'apiGatewayV2RouteResponseParameterConstraints' for a more convenient+-- constructor.+data ApiGatewayV2RouteResponseParameterConstraints =+  ApiGatewayV2RouteResponseParameterConstraints+  { _apiGatewayV2RouteResponseParameterConstraintsRequired :: Val Bool+  } deriving (Show, Eq)++instance ToJSON ApiGatewayV2RouteResponseParameterConstraints where+  toJSON ApiGatewayV2RouteResponseParameterConstraints{..} =+    object $+    catMaybes+    [ (Just . ("Required",) . toJSON . fmap Bool') _apiGatewayV2RouteResponseParameterConstraintsRequired+    ]++instance FromJSON ApiGatewayV2RouteResponseParameterConstraints where+  parseJSON (Object obj) =+    ApiGatewayV2RouteResponseParameterConstraints <$>+      fmap (fmap unBool') (obj .: "Required")+  parseJSON _ = mempty++-- | Constructor for 'ApiGatewayV2RouteResponseParameterConstraints'+-- containing required fields as arguments.+apiGatewayV2RouteResponseParameterConstraints+  :: Val Bool -- ^ 'agvrrpcRequired'+  -> ApiGatewayV2RouteResponseParameterConstraints+apiGatewayV2RouteResponseParameterConstraints requiredarg =+  ApiGatewayV2RouteResponseParameterConstraints+  { _apiGatewayV2RouteResponseParameterConstraintsRequired = requiredarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-routeresponse-parameterconstraints.html#cfn-apigatewayv2-routeresponse-parameterconstraints-required+agvrrpcRequired :: Lens' ApiGatewayV2RouteResponseParameterConstraints (Val Bool)+agvrrpcRequired = lens _apiGatewayV2RouteResponseParameterConstraintsRequired (\s a -> s { _apiGatewayV2RouteResponseParameterConstraintsRequired = a })
+ library-gen/Stratosphere/ResourceProperties/ApiGatewayV2StageAccessLogSettings.hs view
@@ -0,0 +1,51 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-stage-accesslogsettings.html++module Stratosphere.ResourceProperties.ApiGatewayV2StageAccessLogSettings where++import Stratosphere.ResourceImports+++-- | Full data type definition for ApiGatewayV2StageAccessLogSettings. See+-- 'apiGatewayV2StageAccessLogSettings' for a more convenient constructor.+data ApiGatewayV2StageAccessLogSettings =+  ApiGatewayV2StageAccessLogSettings+  { _apiGatewayV2StageAccessLogSettingsDestinationArn :: Maybe (Val Text)+  , _apiGatewayV2StageAccessLogSettingsFormat :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON ApiGatewayV2StageAccessLogSettings where+  toJSON ApiGatewayV2StageAccessLogSettings{..} =+    object $+    catMaybes+    [ fmap (("DestinationArn",) . toJSON) _apiGatewayV2StageAccessLogSettingsDestinationArn+    , fmap (("Format",) . toJSON) _apiGatewayV2StageAccessLogSettingsFormat+    ]++instance FromJSON ApiGatewayV2StageAccessLogSettings where+  parseJSON (Object obj) =+    ApiGatewayV2StageAccessLogSettings <$>+      (obj .:? "DestinationArn") <*>+      (obj .:? "Format")+  parseJSON _ = mempty++-- | Constructor for 'ApiGatewayV2StageAccessLogSettings' containing required+-- fields as arguments.+apiGatewayV2StageAccessLogSettings+  :: ApiGatewayV2StageAccessLogSettings+apiGatewayV2StageAccessLogSettings  =+  ApiGatewayV2StageAccessLogSettings+  { _apiGatewayV2StageAccessLogSettingsDestinationArn = Nothing+  , _apiGatewayV2StageAccessLogSettingsFormat = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-stage-accesslogsettings.html#cfn-apigatewayv2-stage-accesslogsettings-destinationarn+agvsalsDestinationArn :: Lens' ApiGatewayV2StageAccessLogSettings (Maybe (Val Text))+agvsalsDestinationArn = lens _apiGatewayV2StageAccessLogSettingsDestinationArn (\s a -> s { _apiGatewayV2StageAccessLogSettingsDestinationArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-stage-accesslogsettings.html#cfn-apigatewayv2-stage-accesslogsettings-format+agvsalsFormat :: Lens' ApiGatewayV2StageAccessLogSettings (Maybe (Val Text))+agvsalsFormat = lens _apiGatewayV2StageAccessLogSettingsFormat (\s a -> s { _apiGatewayV2StageAccessLogSettingsFormat = a })
+ library-gen/Stratosphere/ResourceProperties/ApiGatewayV2StageRouteSettings.hs view
@@ -0,0 +1,75 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-stage-routesettings.html++module Stratosphere.ResourceProperties.ApiGatewayV2StageRouteSettings where++import Stratosphere.ResourceImports+import Stratosphere.Types++-- | Full data type definition for ApiGatewayV2StageRouteSettings. See+-- 'apiGatewayV2StageRouteSettings' for a more convenient constructor.+data ApiGatewayV2StageRouteSettings =+  ApiGatewayV2StageRouteSettings+  { _apiGatewayV2StageRouteSettingsDataTraceEnabled :: Maybe (Val Bool)+  , _apiGatewayV2StageRouteSettingsDetailedMetricsEnabled :: Maybe (Val Bool)+  , _apiGatewayV2StageRouteSettingsLoggingLevel :: Maybe (Val LoggingLevel)+  , _apiGatewayV2StageRouteSettingsThrottlingBurstLimit :: Maybe (Val Integer)+  , _apiGatewayV2StageRouteSettingsThrottlingRateLimit :: Maybe (Val Double)+  } deriving (Show, Eq)++instance ToJSON ApiGatewayV2StageRouteSettings where+  toJSON ApiGatewayV2StageRouteSettings{..} =+    object $+    catMaybes+    [ fmap (("DataTraceEnabled",) . toJSON . fmap Bool') _apiGatewayV2StageRouteSettingsDataTraceEnabled+    , fmap (("DetailedMetricsEnabled",) . toJSON . fmap Bool') _apiGatewayV2StageRouteSettingsDetailedMetricsEnabled+    , fmap (("LoggingLevel",) . toJSON) _apiGatewayV2StageRouteSettingsLoggingLevel+    , fmap (("ThrottlingBurstLimit",) . toJSON . fmap Integer') _apiGatewayV2StageRouteSettingsThrottlingBurstLimit+    , fmap (("ThrottlingRateLimit",) . toJSON . fmap Double') _apiGatewayV2StageRouteSettingsThrottlingRateLimit+    ]++instance FromJSON ApiGatewayV2StageRouteSettings where+  parseJSON (Object obj) =+    ApiGatewayV2StageRouteSettings <$>+      fmap (fmap (fmap unBool')) (obj .:? "DataTraceEnabled") <*>+      fmap (fmap (fmap unBool')) (obj .:? "DetailedMetricsEnabled") <*>+      (obj .:? "LoggingLevel") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "ThrottlingBurstLimit") <*>+      fmap (fmap (fmap unDouble')) (obj .:? "ThrottlingRateLimit")+  parseJSON _ = mempty++-- | Constructor for 'ApiGatewayV2StageRouteSettings' containing required+-- fields as arguments.+apiGatewayV2StageRouteSettings+  :: ApiGatewayV2StageRouteSettings+apiGatewayV2StageRouteSettings  =+  ApiGatewayV2StageRouteSettings+  { _apiGatewayV2StageRouteSettingsDataTraceEnabled = Nothing+  , _apiGatewayV2StageRouteSettingsDetailedMetricsEnabled = Nothing+  , _apiGatewayV2StageRouteSettingsLoggingLevel = Nothing+  , _apiGatewayV2StageRouteSettingsThrottlingBurstLimit = Nothing+  , _apiGatewayV2StageRouteSettingsThrottlingRateLimit = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-stage-routesettings.html#cfn-apigatewayv2-stage-routesettings-datatraceenabled+agvsrsDataTraceEnabled :: Lens' ApiGatewayV2StageRouteSettings (Maybe (Val Bool))+agvsrsDataTraceEnabled = lens _apiGatewayV2StageRouteSettingsDataTraceEnabled (\s a -> s { _apiGatewayV2StageRouteSettingsDataTraceEnabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-stage-routesettings.html#cfn-apigatewayv2-stage-routesettings-detailedmetricsenabled+agvsrsDetailedMetricsEnabled :: Lens' ApiGatewayV2StageRouteSettings (Maybe (Val Bool))+agvsrsDetailedMetricsEnabled = lens _apiGatewayV2StageRouteSettingsDetailedMetricsEnabled (\s a -> s { _apiGatewayV2StageRouteSettingsDetailedMetricsEnabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-stage-routesettings.html#cfn-apigatewayv2-stage-routesettings-logginglevel+agvsrsLoggingLevel :: Lens' ApiGatewayV2StageRouteSettings (Maybe (Val LoggingLevel))+agvsrsLoggingLevel = lens _apiGatewayV2StageRouteSettingsLoggingLevel (\s a -> s { _apiGatewayV2StageRouteSettingsLoggingLevel = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-stage-routesettings.html#cfn-apigatewayv2-stage-routesettings-throttlingburstlimit+agvsrsThrottlingBurstLimit :: Lens' ApiGatewayV2StageRouteSettings (Maybe (Val Integer))+agvsrsThrottlingBurstLimit = lens _apiGatewayV2StageRouteSettingsThrottlingBurstLimit (\s a -> s { _apiGatewayV2StageRouteSettingsThrottlingBurstLimit = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-stage-routesettings.html#cfn-apigatewayv2-stage-routesettings-throttlingratelimit+agvsrsThrottlingRateLimit :: Lens' ApiGatewayV2StageRouteSettings (Maybe (Val Double))+agvsrsThrottlingRateLimit = lens _apiGatewayV2StageRouteSettingsThrottlingRateLimit (\s a -> s { _apiGatewayV2StageRouteSettingsThrottlingRateLimit = a })
+ library-gen/Stratosphere/ResourceProperties/CloudWatchAlarmMetric.hs view
@@ -0,0 +1,59 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-alarm-metric.html++module Stratosphere.ResourceProperties.CloudWatchAlarmMetric where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.CloudWatchAlarmDimension++-- | Full data type definition for CloudWatchAlarmMetric. See+-- 'cloudWatchAlarmMetric' for a more convenient constructor.+data CloudWatchAlarmMetric =+  CloudWatchAlarmMetric+  { _cloudWatchAlarmMetricDimensions :: Maybe [CloudWatchAlarmDimension]+  , _cloudWatchAlarmMetricMetricName :: Maybe (Val Text)+  , _cloudWatchAlarmMetricNamespace :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON CloudWatchAlarmMetric where+  toJSON CloudWatchAlarmMetric{..} =+    object $+    catMaybes+    [ fmap (("Dimensions",) . toJSON) _cloudWatchAlarmMetricDimensions+    , fmap (("MetricName",) . toJSON) _cloudWatchAlarmMetricMetricName+    , fmap (("Namespace",) . toJSON) _cloudWatchAlarmMetricNamespace+    ]++instance FromJSON CloudWatchAlarmMetric where+  parseJSON (Object obj) =+    CloudWatchAlarmMetric <$>+      (obj .:? "Dimensions") <*>+      (obj .:? "MetricName") <*>+      (obj .:? "Namespace")+  parseJSON _ = mempty++-- | Constructor for 'CloudWatchAlarmMetric' containing required fields as+-- arguments.+cloudWatchAlarmMetric+  :: CloudWatchAlarmMetric+cloudWatchAlarmMetric  =+  CloudWatchAlarmMetric+  { _cloudWatchAlarmMetricDimensions = Nothing+  , _cloudWatchAlarmMetricMetricName = Nothing+  , _cloudWatchAlarmMetricNamespace = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-alarm-metric.html#cfn-cloudwatch-alarm-metric-dimensions+cwamDimensions :: Lens' CloudWatchAlarmMetric (Maybe [CloudWatchAlarmDimension])+cwamDimensions = lens _cloudWatchAlarmMetricDimensions (\s a -> s { _cloudWatchAlarmMetricDimensions = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-alarm-metric.html#cfn-cloudwatch-alarm-metric-metricname+cwamMetricName :: Lens' CloudWatchAlarmMetric (Maybe (Val Text))+cwamMetricName = lens _cloudWatchAlarmMetricMetricName (\s a -> s { _cloudWatchAlarmMetricMetricName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-alarm-metric.html#cfn-cloudwatch-alarm-metric-namespace+cwamNamespace :: Lens' CloudWatchAlarmMetric (Maybe (Val Text))+cwamNamespace = lens _cloudWatchAlarmMetricNamespace (\s a -> s { _cloudWatchAlarmMetricNamespace = a })
+ library-gen/Stratosphere/ResourceProperties/CloudWatchAlarmMetricDataQuery.hs view
@@ -0,0 +1,76 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-alarm-metricdataquery.html++module Stratosphere.ResourceProperties.CloudWatchAlarmMetricDataQuery where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.CloudWatchAlarmMetricStat++-- | Full data type definition for CloudWatchAlarmMetricDataQuery. See+-- 'cloudWatchAlarmMetricDataQuery' for a more convenient constructor.+data CloudWatchAlarmMetricDataQuery =+  CloudWatchAlarmMetricDataQuery+  { _cloudWatchAlarmMetricDataQueryExpression :: Maybe (Val Text)+  , _cloudWatchAlarmMetricDataQueryId :: Val Text+  , _cloudWatchAlarmMetricDataQueryLabel :: Maybe (Val Text)+  , _cloudWatchAlarmMetricDataQueryMetricStat :: Maybe CloudWatchAlarmMetricStat+  , _cloudWatchAlarmMetricDataQueryReturnData :: Maybe (Val Bool)+  } deriving (Show, Eq)++instance ToJSON CloudWatchAlarmMetricDataQuery where+  toJSON CloudWatchAlarmMetricDataQuery{..} =+    object $+    catMaybes+    [ fmap (("Expression",) . toJSON) _cloudWatchAlarmMetricDataQueryExpression+    , (Just . ("Id",) . toJSON) _cloudWatchAlarmMetricDataQueryId+    , fmap (("Label",) . toJSON) _cloudWatchAlarmMetricDataQueryLabel+    , fmap (("MetricStat",) . toJSON) _cloudWatchAlarmMetricDataQueryMetricStat+    , fmap (("ReturnData",) . toJSON . fmap Bool') _cloudWatchAlarmMetricDataQueryReturnData+    ]++instance FromJSON CloudWatchAlarmMetricDataQuery where+  parseJSON (Object obj) =+    CloudWatchAlarmMetricDataQuery <$>+      (obj .:? "Expression") <*>+      (obj .: "Id") <*>+      (obj .:? "Label") <*>+      (obj .:? "MetricStat") <*>+      fmap (fmap (fmap unBool')) (obj .:? "ReturnData")+  parseJSON _ = mempty++-- | Constructor for 'CloudWatchAlarmMetricDataQuery' containing required+-- fields as arguments.+cloudWatchAlarmMetricDataQuery+  :: Val Text -- ^ 'cwamdqId'+  -> CloudWatchAlarmMetricDataQuery+cloudWatchAlarmMetricDataQuery idarg =+  CloudWatchAlarmMetricDataQuery+  { _cloudWatchAlarmMetricDataQueryExpression = Nothing+  , _cloudWatchAlarmMetricDataQueryId = idarg+  , _cloudWatchAlarmMetricDataQueryLabel = Nothing+  , _cloudWatchAlarmMetricDataQueryMetricStat = Nothing+  , _cloudWatchAlarmMetricDataQueryReturnData = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-alarm-metricdataquery.html#cfn-cloudwatch-alarm-metricdataquery-expression+cwamdqExpression :: Lens' CloudWatchAlarmMetricDataQuery (Maybe (Val Text))+cwamdqExpression = lens _cloudWatchAlarmMetricDataQueryExpression (\s a -> s { _cloudWatchAlarmMetricDataQueryExpression = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-alarm-metricdataquery.html#cfn-cloudwatch-alarm-metricdataquery-id+cwamdqId :: Lens' CloudWatchAlarmMetricDataQuery (Val Text)+cwamdqId = lens _cloudWatchAlarmMetricDataQueryId (\s a -> s { _cloudWatchAlarmMetricDataQueryId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-alarm-metricdataquery.html#cfn-cloudwatch-alarm-metricdataquery-label+cwamdqLabel :: Lens' CloudWatchAlarmMetricDataQuery (Maybe (Val Text))+cwamdqLabel = lens _cloudWatchAlarmMetricDataQueryLabel (\s a -> s { _cloudWatchAlarmMetricDataQueryLabel = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-alarm-metricdataquery.html#cfn-cloudwatch-alarm-metricdataquery-metricstat+cwamdqMetricStat :: Lens' CloudWatchAlarmMetricDataQuery (Maybe CloudWatchAlarmMetricStat)+cwamdqMetricStat = lens _cloudWatchAlarmMetricDataQueryMetricStat (\s a -> s { _cloudWatchAlarmMetricDataQueryMetricStat = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-alarm-metricdataquery.html#cfn-cloudwatch-alarm-metricdataquery-returndata+cwamdqReturnData :: Lens' CloudWatchAlarmMetricDataQuery (Maybe (Val Bool))+cwamdqReturnData = lens _cloudWatchAlarmMetricDataQueryReturnData (\s a -> s { _cloudWatchAlarmMetricDataQueryReturnData = a })
+ library-gen/Stratosphere/ResourceProperties/CloudWatchAlarmMetricStat.hs view
@@ -0,0 +1,70 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-alarm-metricstat.html++module Stratosphere.ResourceProperties.CloudWatchAlarmMetricStat where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.CloudWatchAlarmMetric++-- | Full data type definition for CloudWatchAlarmMetricStat. See+-- 'cloudWatchAlarmMetricStat' for a more convenient constructor.+data CloudWatchAlarmMetricStat =+  CloudWatchAlarmMetricStat+  { _cloudWatchAlarmMetricStatMetric :: CloudWatchAlarmMetric+  , _cloudWatchAlarmMetricStatPeriod :: Val Integer+  , _cloudWatchAlarmMetricStatStat :: Val Text+  , _cloudWatchAlarmMetricStatUnit :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON CloudWatchAlarmMetricStat where+  toJSON CloudWatchAlarmMetricStat{..} =+    object $+    catMaybes+    [ (Just . ("Metric",) . toJSON) _cloudWatchAlarmMetricStatMetric+    , (Just . ("Period",) . toJSON . fmap Integer') _cloudWatchAlarmMetricStatPeriod+    , (Just . ("Stat",) . toJSON) _cloudWatchAlarmMetricStatStat+    , fmap (("Unit",) . toJSON) _cloudWatchAlarmMetricStatUnit+    ]++instance FromJSON CloudWatchAlarmMetricStat where+  parseJSON (Object obj) =+    CloudWatchAlarmMetricStat <$>+      (obj .: "Metric") <*>+      fmap (fmap unInteger') (obj .: "Period") <*>+      (obj .: "Stat") <*>+      (obj .:? "Unit")+  parseJSON _ = mempty++-- | Constructor for 'CloudWatchAlarmMetricStat' containing required fields as+-- arguments.+cloudWatchAlarmMetricStat+  :: CloudWatchAlarmMetric -- ^ 'cwamsMetric'+  -> Val Integer -- ^ 'cwamsPeriod'+  -> Val Text -- ^ 'cwamsStat'+  -> CloudWatchAlarmMetricStat+cloudWatchAlarmMetricStat metricarg periodarg statarg =+  CloudWatchAlarmMetricStat+  { _cloudWatchAlarmMetricStatMetric = metricarg+  , _cloudWatchAlarmMetricStatPeriod = periodarg+  , _cloudWatchAlarmMetricStatStat = statarg+  , _cloudWatchAlarmMetricStatUnit = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-alarm-metricstat.html#cfn-cloudwatch-alarm-metricstat-metric+cwamsMetric :: Lens' CloudWatchAlarmMetricStat CloudWatchAlarmMetric+cwamsMetric = lens _cloudWatchAlarmMetricStatMetric (\s a -> s { _cloudWatchAlarmMetricStatMetric = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-alarm-metricstat.html#cfn-cloudwatch-alarm-metricstat-period+cwamsPeriod :: Lens' CloudWatchAlarmMetricStat (Val Integer)+cwamsPeriod = lens _cloudWatchAlarmMetricStatPeriod (\s a -> s { _cloudWatchAlarmMetricStatPeriod = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-alarm-metricstat.html#cfn-cloudwatch-alarm-metricstat-stat+cwamsStat :: Lens' CloudWatchAlarmMetricStat (Val Text)+cwamsStat = lens _cloudWatchAlarmMetricStatStat (\s a -> s { _cloudWatchAlarmMetricStatStat = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-alarm-metricstat.html#cfn-cloudwatch-alarm-metricstat-unit+cwamsUnit :: Lens' CloudWatchAlarmMetricStat (Maybe (Val Text))+cwamsUnit = lens _cloudWatchAlarmMetricStatUnit (\s a -> s { _cloudWatchAlarmMetricStatUnit = a })
library-gen/Stratosphere/ResourceProperties/CodeBuildProjectProjectCache.hs view
@@ -14,6 +14,7 @@ data CodeBuildProjectProjectCache =   CodeBuildProjectProjectCache   { _codeBuildProjectProjectCacheLocation :: Maybe (Val Text)+  , _codeBuildProjectProjectCacheModes :: Maybe (ValList Text)   , _codeBuildProjectProjectCacheType :: Val Text   } deriving (Show, Eq) @@ -22,6 +23,7 @@     object $     catMaybes     [ fmap (("Location",) . toJSON) _codeBuildProjectProjectCacheLocation+    , fmap (("Modes",) . toJSON) _codeBuildProjectProjectCacheModes     , (Just . ("Type",) . toJSON) _codeBuildProjectProjectCacheType     ] @@ -29,6 +31,7 @@   parseJSON (Object obj) =     CodeBuildProjectProjectCache <$>       (obj .:? "Location") <*>+      (obj .:? "Modes") <*>       (obj .: "Type")   parseJSON _ = mempty @@ -40,12 +43,17 @@ codeBuildProjectProjectCache typearg =   CodeBuildProjectProjectCache   { _codeBuildProjectProjectCacheLocation = Nothing+  , _codeBuildProjectProjectCacheModes = Nothing   , _codeBuildProjectProjectCacheType = typearg   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-projectcache.html#cfn-codebuild-project-projectcache-location cbppcLocation :: Lens' CodeBuildProjectProjectCache (Maybe (Val Text)) cbppcLocation = lens _codeBuildProjectProjectCacheLocation (\s a -> s { _codeBuildProjectProjectCacheLocation = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-projectcache.html#cfn-codebuild-project-projectcache-modes+cbppcModes :: Lens' CodeBuildProjectProjectCache (Maybe (ValList Text))+cbppcModes = lens _codeBuildProjectProjectCacheModes (\s a -> s { _codeBuildProjectProjectCacheModes = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-projectcache.html#cfn-codebuild-project-projectcache-type cbppcType :: Lens' CodeBuildProjectProjectCache (Val Text)
+ library-gen/Stratosphere/ResourceProperties/CodeBuildProjectWebhookFilter.hs view
@@ -0,0 +1,61 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-webhookfilter.html++module Stratosphere.ResourceProperties.CodeBuildProjectWebhookFilter where++import Stratosphere.ResourceImports+++-- | Full data type definition for CodeBuildProjectWebhookFilter. See+-- 'codeBuildProjectWebhookFilter' for a more convenient constructor.+data CodeBuildProjectWebhookFilter =+  CodeBuildProjectWebhookFilter+  { _codeBuildProjectWebhookFilterExcludeMatchedPattern :: Maybe (Val Bool)+  , _codeBuildProjectWebhookFilterPattern :: Val Text+  , _codeBuildProjectWebhookFilterType :: Val Text+  } deriving (Show, Eq)++instance ToJSON CodeBuildProjectWebhookFilter where+  toJSON CodeBuildProjectWebhookFilter{..} =+    object $+    catMaybes+    [ fmap (("ExcludeMatchedPattern",) . toJSON . fmap Bool') _codeBuildProjectWebhookFilterExcludeMatchedPattern+    , (Just . ("Pattern",) . toJSON) _codeBuildProjectWebhookFilterPattern+    , (Just . ("Type",) . toJSON) _codeBuildProjectWebhookFilterType+    ]++instance FromJSON CodeBuildProjectWebhookFilter where+  parseJSON (Object obj) =+    CodeBuildProjectWebhookFilter <$>+      fmap (fmap (fmap unBool')) (obj .:? "ExcludeMatchedPattern") <*>+      (obj .: "Pattern") <*>+      (obj .: "Type")+  parseJSON _ = mempty++-- | Constructor for 'CodeBuildProjectWebhookFilter' containing required+-- fields as arguments.+codeBuildProjectWebhookFilter+  :: Val Text -- ^ 'cbpwfPattern'+  -> Val Text -- ^ 'cbpwfType'+  -> CodeBuildProjectWebhookFilter+codeBuildProjectWebhookFilter patternarg typearg =+  CodeBuildProjectWebhookFilter+  { _codeBuildProjectWebhookFilterExcludeMatchedPattern = Nothing+  , _codeBuildProjectWebhookFilterPattern = patternarg+  , _codeBuildProjectWebhookFilterType = typearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-webhookfilter.html#cfn-codebuild-project-webhookfilter-excludematchedpattern+cbpwfExcludeMatchedPattern :: Lens' CodeBuildProjectWebhookFilter (Maybe (Val Bool))+cbpwfExcludeMatchedPattern = lens _codeBuildProjectWebhookFilterExcludeMatchedPattern (\s a -> s { _codeBuildProjectWebhookFilterExcludeMatchedPattern = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-webhookfilter.html#cfn-codebuild-project-webhookfilter-pattern+cbpwfPattern :: Lens' CodeBuildProjectWebhookFilter (Val Text)+cbpwfPattern = lens _codeBuildProjectWebhookFilterPattern (\s a -> s { _codeBuildProjectWebhookFilterPattern = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-webhookfilter.html#cfn-codebuild-project-webhookfilter-type+cbpwfType :: Lens' CodeBuildProjectWebhookFilter (Val Text)+cbpwfType = lens _codeBuildProjectWebhookFilterType (\s a -> s { _codeBuildProjectWebhookFilterType = a })
+ library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateCapacityReservationSpecification.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-capacityreservationspecification.html++module Stratosphere.ResourceProperties.EC2LaunchTemplateCapacityReservationSpecification where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.EC2LaunchTemplateCapacityReservationTarget++-- | Full data type definition for+-- EC2LaunchTemplateCapacityReservationSpecification. See+-- 'ec2LaunchTemplateCapacityReservationSpecification' for a more convenient+-- constructor.+data EC2LaunchTemplateCapacityReservationSpecification =+  EC2LaunchTemplateCapacityReservationSpecification+  { _eC2LaunchTemplateCapacityReservationSpecificationCapacityReservationTarget :: Maybe EC2LaunchTemplateCapacityReservationTarget+  } deriving (Show, Eq)++instance ToJSON EC2LaunchTemplateCapacityReservationSpecification where+  toJSON EC2LaunchTemplateCapacityReservationSpecification{..} =+    object $+    catMaybes+    [ fmap (("CapacityReservationTarget",) . toJSON) _eC2LaunchTemplateCapacityReservationSpecificationCapacityReservationTarget+    ]++instance FromJSON EC2LaunchTemplateCapacityReservationSpecification where+  parseJSON (Object obj) =+    EC2LaunchTemplateCapacityReservationSpecification <$>+      (obj .:? "CapacityReservationTarget")+  parseJSON _ = mempty++-- | Constructor for 'EC2LaunchTemplateCapacityReservationSpecification'+-- containing required fields as arguments.+ec2LaunchTemplateCapacityReservationSpecification+  :: EC2LaunchTemplateCapacityReservationSpecification+ec2LaunchTemplateCapacityReservationSpecification  =+  EC2LaunchTemplateCapacityReservationSpecification+  { _eC2LaunchTemplateCapacityReservationSpecificationCapacityReservationTarget = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-capacityreservationspecification.html#cfn-ec2-launchtemplate-launchtemplatedata-capacityreservationspecification-capacityreservationtarget+ecltcrsCapacityReservationTarget :: Lens' EC2LaunchTemplateCapacityReservationSpecification (Maybe EC2LaunchTemplateCapacityReservationTarget)+ecltcrsCapacityReservationTarget = lens _eC2LaunchTemplateCapacityReservationSpecificationCapacityReservationTarget (\s a -> s { _eC2LaunchTemplateCapacityReservationSpecificationCapacityReservationTarget = a })
+ library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateCapacityReservationTarget.hs view
@@ -0,0 +1,44 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-capacityreservationtarget.html++module Stratosphere.ResourceProperties.EC2LaunchTemplateCapacityReservationTarget where++import Stratosphere.ResourceImports+++-- | Full data type definition for EC2LaunchTemplateCapacityReservationTarget.+-- See 'ec2LaunchTemplateCapacityReservationTarget' for a more convenient+-- constructor.+data EC2LaunchTemplateCapacityReservationTarget =+  EC2LaunchTemplateCapacityReservationTarget+  { _eC2LaunchTemplateCapacityReservationTargetCapacityReservationId :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON EC2LaunchTemplateCapacityReservationTarget where+  toJSON EC2LaunchTemplateCapacityReservationTarget{..} =+    object $+    catMaybes+    [ fmap (("CapacityReservationId",) . toJSON) _eC2LaunchTemplateCapacityReservationTargetCapacityReservationId+    ]++instance FromJSON EC2LaunchTemplateCapacityReservationTarget where+  parseJSON (Object obj) =+    EC2LaunchTemplateCapacityReservationTarget <$>+      (obj .:? "CapacityReservationId")+  parseJSON _ = mempty++-- | Constructor for 'EC2LaunchTemplateCapacityReservationTarget' containing+-- required fields as arguments.+ec2LaunchTemplateCapacityReservationTarget+  :: EC2LaunchTemplateCapacityReservationTarget+ec2LaunchTemplateCapacityReservationTarget  =+  EC2LaunchTemplateCapacityReservationTarget+  { _eC2LaunchTemplateCapacityReservationTargetCapacityReservationId = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-capacityreservationtarget.html#cfn-ec2-launchtemplate-capacityreservationtarget-capacityreservationid+ecltcrtCapacityReservationId :: Lens' EC2LaunchTemplateCapacityReservationTarget (Maybe (Val Text))+ecltcrtCapacityReservationId = lens _eC2LaunchTemplateCapacityReservationTargetCapacityReservationId (\s a -> s { _eC2LaunchTemplateCapacityReservationTargetCapacityReservationId = a })
+ library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateCpuOptions.hs view
@@ -0,0 +1,51 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-cpuoptions.html++module Stratosphere.ResourceProperties.EC2LaunchTemplateCpuOptions where++import Stratosphere.ResourceImports+++-- | Full data type definition for EC2LaunchTemplateCpuOptions. See+-- 'ec2LaunchTemplateCpuOptions' for a more convenient constructor.+data EC2LaunchTemplateCpuOptions =+  EC2LaunchTemplateCpuOptions+  { _eC2LaunchTemplateCpuOptionsCoreCount :: Maybe (Val Integer)+  , _eC2LaunchTemplateCpuOptionsThreadsPerCore :: Maybe (Val Integer)+  } deriving (Show, Eq)++instance ToJSON EC2LaunchTemplateCpuOptions where+  toJSON EC2LaunchTemplateCpuOptions{..} =+    object $+    catMaybes+    [ fmap (("CoreCount",) . toJSON . fmap Integer') _eC2LaunchTemplateCpuOptionsCoreCount+    , fmap (("ThreadsPerCore",) . toJSON . fmap Integer') _eC2LaunchTemplateCpuOptionsThreadsPerCore+    ]++instance FromJSON EC2LaunchTemplateCpuOptions where+  parseJSON (Object obj) =+    EC2LaunchTemplateCpuOptions <$>+      fmap (fmap (fmap unInteger')) (obj .:? "CoreCount") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "ThreadsPerCore")+  parseJSON _ = mempty++-- | Constructor for 'EC2LaunchTemplateCpuOptions' containing required fields+-- as arguments.+ec2LaunchTemplateCpuOptions+  :: EC2LaunchTemplateCpuOptions+ec2LaunchTemplateCpuOptions  =+  EC2LaunchTemplateCpuOptions+  { _eC2LaunchTemplateCpuOptionsCoreCount = Nothing+  , _eC2LaunchTemplateCpuOptionsThreadsPerCore = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-cpuoptions.html#cfn-ec2-launchtemplate-launchtemplatedata-cpuoptions-corecount+ecltcoCoreCount :: Lens' EC2LaunchTemplateCpuOptions (Maybe (Val Integer))+ecltcoCoreCount = lens _eC2LaunchTemplateCpuOptionsCoreCount (\s a -> s { _eC2LaunchTemplateCpuOptionsCoreCount = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-cpuoptions.html#cfn-ec2-launchtemplate-launchtemplatedata-cpuoptions-threadspercore+ecltcoThreadsPerCore :: Lens' EC2LaunchTemplateCpuOptions (Maybe (Val Integer))+ecltcoThreadsPerCore = lens _eC2LaunchTemplateCpuOptionsThreadsPerCore (\s a -> s { _eC2LaunchTemplateCpuOptionsThreadsPerCore = a })
+ library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateHibernationOptions.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-hibernationoptions.html++module Stratosphere.ResourceProperties.EC2LaunchTemplateHibernationOptions where++import Stratosphere.ResourceImports+++-- | Full data type definition for EC2LaunchTemplateHibernationOptions. See+-- 'ec2LaunchTemplateHibernationOptions' for a more convenient constructor.+data EC2LaunchTemplateHibernationOptions =+  EC2LaunchTemplateHibernationOptions+  { _eC2LaunchTemplateHibernationOptionsConfigured :: Maybe (Val Bool)+  } deriving (Show, Eq)++instance ToJSON EC2LaunchTemplateHibernationOptions where+  toJSON EC2LaunchTemplateHibernationOptions{..} =+    object $+    catMaybes+    [ fmap (("Configured",) . toJSON . fmap Bool') _eC2LaunchTemplateHibernationOptionsConfigured+    ]++instance FromJSON EC2LaunchTemplateHibernationOptions where+  parseJSON (Object obj) =+    EC2LaunchTemplateHibernationOptions <$>+      fmap (fmap (fmap unBool')) (obj .:? "Configured")+  parseJSON _ = mempty++-- | Constructor for 'EC2LaunchTemplateHibernationOptions' containing required+-- fields as arguments.+ec2LaunchTemplateHibernationOptions+  :: EC2LaunchTemplateHibernationOptions+ec2LaunchTemplateHibernationOptions  =+  EC2LaunchTemplateHibernationOptions+  { _eC2LaunchTemplateHibernationOptionsConfigured = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-hibernationoptions.html#cfn-ec2-launchtemplate-launchtemplatedata-hibernationoptions-configured+eclthoConfigured :: Lens' EC2LaunchTemplateHibernationOptions (Maybe (Val Bool))+eclthoConfigured = lens _eC2LaunchTemplateHibernationOptionsConfigured (\s a -> s { _eC2LaunchTemplateHibernationOptionsConfigured = a })
library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateLaunchTemplateData.hs view
@@ -8,10 +8,15 @@  import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.EC2LaunchTemplateBlockDeviceMapping+import Stratosphere.ResourceProperties.EC2LaunchTemplateCapacityReservationSpecification+import Stratosphere.ResourceProperties.EC2LaunchTemplateCpuOptions import Stratosphere.ResourceProperties.EC2LaunchTemplateCreditSpecification import Stratosphere.ResourceProperties.EC2LaunchTemplateElasticGpuSpecification+import Stratosphere.ResourceProperties.EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator+import Stratosphere.ResourceProperties.EC2LaunchTemplateHibernationOptions import Stratosphere.ResourceProperties.EC2LaunchTemplateIamInstanceProfile import Stratosphere.ResourceProperties.EC2LaunchTemplateInstanceMarketOptions+import Stratosphere.ResourceProperties.EC2LaunchTemplateLicenseSpecification import Stratosphere.ResourceProperties.EC2LaunchTemplateMonitoring import Stratosphere.ResourceProperties.EC2LaunchTemplateNetworkInterface import Stratosphere.ResourceProperties.EC2LaunchTemplatePlacement@@ -22,10 +27,14 @@ data EC2LaunchTemplateLaunchTemplateData =   EC2LaunchTemplateLaunchTemplateData   { _eC2LaunchTemplateLaunchTemplateDataBlockDeviceMappings :: Maybe [EC2LaunchTemplateBlockDeviceMapping]+  , _eC2LaunchTemplateLaunchTemplateDataCapacityReservationSpecification :: Maybe EC2LaunchTemplateCapacityReservationSpecification+  , _eC2LaunchTemplateLaunchTemplateDataCpuOptions :: Maybe EC2LaunchTemplateCpuOptions   , _eC2LaunchTemplateLaunchTemplateDataCreditSpecification :: Maybe EC2LaunchTemplateCreditSpecification   , _eC2LaunchTemplateLaunchTemplateDataDisableApiTermination :: Maybe (Val Bool)   , _eC2LaunchTemplateLaunchTemplateDataEbsOptimized :: Maybe (Val Bool)   , _eC2LaunchTemplateLaunchTemplateDataElasticGpuSpecifications :: Maybe [EC2LaunchTemplateElasticGpuSpecification]+  , _eC2LaunchTemplateLaunchTemplateDataElasticInferenceAccelerators :: Maybe [EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator]+  , _eC2LaunchTemplateLaunchTemplateDataHibernationOptions :: Maybe EC2LaunchTemplateHibernationOptions   , _eC2LaunchTemplateLaunchTemplateDataIamInstanceProfile :: Maybe EC2LaunchTemplateIamInstanceProfile   , _eC2LaunchTemplateLaunchTemplateDataImageId :: Maybe (Val Text)   , _eC2LaunchTemplateLaunchTemplateDataInstanceInitiatedShutdownBehavior :: Maybe (Val Text)@@ -33,6 +42,7 @@   , _eC2LaunchTemplateLaunchTemplateDataInstanceType :: Maybe (Val Text)   , _eC2LaunchTemplateLaunchTemplateDataKernelId :: Maybe (Val Text)   , _eC2LaunchTemplateLaunchTemplateDataKeyName :: Maybe (Val Text)+  , _eC2LaunchTemplateLaunchTemplateDataLicenseSpecifications :: Maybe [EC2LaunchTemplateLicenseSpecification]   , _eC2LaunchTemplateLaunchTemplateDataMonitoring :: Maybe EC2LaunchTemplateMonitoring   , _eC2LaunchTemplateLaunchTemplateDataNetworkInterfaces :: Maybe [EC2LaunchTemplateNetworkInterface]   , _eC2LaunchTemplateLaunchTemplateDataPlacement :: Maybe EC2LaunchTemplatePlacement@@ -48,10 +58,14 @@     object $     catMaybes     [ fmap (("BlockDeviceMappings",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataBlockDeviceMappings+    , fmap (("CapacityReservationSpecification",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataCapacityReservationSpecification+    , fmap (("CpuOptions",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataCpuOptions     , fmap (("CreditSpecification",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataCreditSpecification     , fmap (("DisableApiTermination",) . toJSON . fmap Bool') _eC2LaunchTemplateLaunchTemplateDataDisableApiTermination     , fmap (("EbsOptimized",) . toJSON . fmap Bool') _eC2LaunchTemplateLaunchTemplateDataEbsOptimized     , fmap (("ElasticGpuSpecifications",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataElasticGpuSpecifications+    , fmap (("ElasticInferenceAccelerators",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataElasticInferenceAccelerators+    , fmap (("HibernationOptions",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataHibernationOptions     , fmap (("IamInstanceProfile",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataIamInstanceProfile     , fmap (("ImageId",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataImageId     , fmap (("InstanceInitiatedShutdownBehavior",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataInstanceInitiatedShutdownBehavior@@ -59,6 +73,7 @@     , fmap (("InstanceType",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataInstanceType     , fmap (("KernelId",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataKernelId     , fmap (("KeyName",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataKeyName+    , fmap (("LicenseSpecifications",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataLicenseSpecifications     , fmap (("Monitoring",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataMonitoring     , fmap (("NetworkInterfaces",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataNetworkInterfaces     , fmap (("Placement",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataPlacement@@ -73,10 +88,14 @@   parseJSON (Object obj) =     EC2LaunchTemplateLaunchTemplateData <$>       (obj .:? "BlockDeviceMappings") <*>+      (obj .:? "CapacityReservationSpecification") <*>+      (obj .:? "CpuOptions") <*>       (obj .:? "CreditSpecification") <*>       fmap (fmap (fmap unBool')) (obj .:? "DisableApiTermination") <*>       fmap (fmap (fmap unBool')) (obj .:? "EbsOptimized") <*>       (obj .:? "ElasticGpuSpecifications") <*>+      (obj .:? "ElasticInferenceAccelerators") <*>+      (obj .:? "HibernationOptions") <*>       (obj .:? "IamInstanceProfile") <*>       (obj .:? "ImageId") <*>       (obj .:? "InstanceInitiatedShutdownBehavior") <*>@@ -84,6 +103,7 @@       (obj .:? "InstanceType") <*>       (obj .:? "KernelId") <*>       (obj .:? "KeyName") <*>+      (obj .:? "LicenseSpecifications") <*>       (obj .:? "Monitoring") <*>       (obj .:? "NetworkInterfaces") <*>       (obj .:? "Placement") <*>@@ -101,10 +121,14 @@ ec2LaunchTemplateLaunchTemplateData  =   EC2LaunchTemplateLaunchTemplateData   { _eC2LaunchTemplateLaunchTemplateDataBlockDeviceMappings = Nothing+  , _eC2LaunchTemplateLaunchTemplateDataCapacityReservationSpecification = Nothing+  , _eC2LaunchTemplateLaunchTemplateDataCpuOptions = Nothing   , _eC2LaunchTemplateLaunchTemplateDataCreditSpecification = Nothing   , _eC2LaunchTemplateLaunchTemplateDataDisableApiTermination = Nothing   , _eC2LaunchTemplateLaunchTemplateDataEbsOptimized = Nothing   , _eC2LaunchTemplateLaunchTemplateDataElasticGpuSpecifications = Nothing+  , _eC2LaunchTemplateLaunchTemplateDataElasticInferenceAccelerators = Nothing+  , _eC2LaunchTemplateLaunchTemplateDataHibernationOptions = Nothing   , _eC2LaunchTemplateLaunchTemplateDataIamInstanceProfile = Nothing   , _eC2LaunchTemplateLaunchTemplateDataImageId = Nothing   , _eC2LaunchTemplateLaunchTemplateDataInstanceInitiatedShutdownBehavior = Nothing@@ -112,6 +136,7 @@   , _eC2LaunchTemplateLaunchTemplateDataInstanceType = Nothing   , _eC2LaunchTemplateLaunchTemplateDataKernelId = Nothing   , _eC2LaunchTemplateLaunchTemplateDataKeyName = Nothing+  , _eC2LaunchTemplateLaunchTemplateDataLicenseSpecifications = Nothing   , _eC2LaunchTemplateLaunchTemplateDataMonitoring = Nothing   , _eC2LaunchTemplateLaunchTemplateDataNetworkInterfaces = Nothing   , _eC2LaunchTemplateLaunchTemplateDataPlacement = Nothing@@ -126,6 +151,14 @@ ecltltdBlockDeviceMappings :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe [EC2LaunchTemplateBlockDeviceMapping]) ecltltdBlockDeviceMappings = lens _eC2LaunchTemplateLaunchTemplateDataBlockDeviceMappings (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataBlockDeviceMappings = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html#cfn-ec2-launchtemplate-launchtemplatedata-capacityreservationspecification+ecltltdCapacityReservationSpecification :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe EC2LaunchTemplateCapacityReservationSpecification)+ecltltdCapacityReservationSpecification = lens _eC2LaunchTemplateLaunchTemplateDataCapacityReservationSpecification (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataCapacityReservationSpecification = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html#cfn-ec2-launchtemplate-launchtemplatedata-cpuoptions+ecltltdCpuOptions :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe EC2LaunchTemplateCpuOptions)+ecltltdCpuOptions = lens _eC2LaunchTemplateLaunchTemplateDataCpuOptions (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataCpuOptions = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html#cfn-ec2-launchtemplate-launchtemplatedata-creditspecification ecltltdCreditSpecification :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe EC2LaunchTemplateCreditSpecification) ecltltdCreditSpecification = lens _eC2LaunchTemplateLaunchTemplateDataCreditSpecification (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataCreditSpecification = a })@@ -142,6 +175,14 @@ ecltltdElasticGpuSpecifications :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe [EC2LaunchTemplateElasticGpuSpecification]) ecltltdElasticGpuSpecifications = lens _eC2LaunchTemplateLaunchTemplateDataElasticGpuSpecifications (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataElasticGpuSpecifications = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html#cfn-ec2-launchtemplate-launchtemplatedata-elasticinferenceaccelerators+ecltltdElasticInferenceAccelerators :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe [EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator])+ecltltdElasticInferenceAccelerators = lens _eC2LaunchTemplateLaunchTemplateDataElasticInferenceAccelerators (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataElasticInferenceAccelerators = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html#cfn-ec2-launchtemplate-launchtemplatedata-hibernationoptions+ecltltdHibernationOptions :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe EC2LaunchTemplateHibernationOptions)+ecltltdHibernationOptions = lens _eC2LaunchTemplateLaunchTemplateDataHibernationOptions (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataHibernationOptions = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html#cfn-ec2-launchtemplate-launchtemplatedata-iaminstanceprofile ecltltdIamInstanceProfile :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe EC2LaunchTemplateIamInstanceProfile) ecltltdIamInstanceProfile = lens _eC2LaunchTemplateLaunchTemplateDataIamInstanceProfile (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataIamInstanceProfile = a })@@ -169,6 +210,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html#cfn-ec2-launchtemplate-launchtemplatedata-keyname ecltltdKeyName :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe (Val Text)) ecltltdKeyName = lens _eC2LaunchTemplateLaunchTemplateDataKeyName (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataKeyName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html#cfn-ec2-launchtemplate-launchtemplatedata-licensespecifications+ecltltdLicenseSpecifications :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe [EC2LaunchTemplateLicenseSpecification])+ecltltdLicenseSpecifications = lens _eC2LaunchTemplateLaunchTemplateDataLicenseSpecifications (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataLicenseSpecifications = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html#cfn-ec2-launchtemplate-launchtemplatedata-monitoring ecltltdMonitoring :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe EC2LaunchTemplateMonitoring)
+ library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplateelasticinferenceaccelerator.html++module Stratosphere.ResourceProperties.EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator. See+-- 'ec2LaunchTemplateLaunchTemplateElasticInferenceAccelerator' for a more+-- convenient constructor.+data EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator =+  EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator+  { _eC2LaunchTemplateLaunchTemplateElasticInferenceAcceleratorType :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator where+  toJSON EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator{..} =+    object $+    catMaybes+    [ fmap (("Type",) . toJSON) _eC2LaunchTemplateLaunchTemplateElasticInferenceAcceleratorType+    ]++instance FromJSON EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator where+  parseJSON (Object obj) =+    EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator <$>+      (obj .:? "Type")+  parseJSON _ = mempty++-- | Constructor for+-- 'EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator' containing+-- required fields as arguments.+ec2LaunchTemplateLaunchTemplateElasticInferenceAccelerator+  :: EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator+ec2LaunchTemplateLaunchTemplateElasticInferenceAccelerator  =+  EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator+  { _eC2LaunchTemplateLaunchTemplateElasticInferenceAcceleratorType = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplateelasticinferenceaccelerator.html#cfn-ec2-launchtemplate-launchtemplateelasticinferenceaccelerator-type+ecltlteiaType :: Lens' EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator (Maybe (Val Text))+ecltlteiaType = lens _eC2LaunchTemplateLaunchTemplateElasticInferenceAcceleratorType (\s a -> s { _eC2LaunchTemplateLaunchTemplateElasticInferenceAcceleratorType = a })
+ library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateLicenseSpecification.hs view
@@ -0,0 +1,44 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-licensespecification.html++module Stratosphere.ResourceProperties.EC2LaunchTemplateLicenseSpecification where++import Stratosphere.ResourceImports+++-- | Full data type definition for EC2LaunchTemplateLicenseSpecification. See+-- 'ec2LaunchTemplateLicenseSpecification' for a more convenient+-- constructor.+data EC2LaunchTemplateLicenseSpecification =+  EC2LaunchTemplateLicenseSpecification+  { _eC2LaunchTemplateLicenseSpecificationLicenseConfigurationArn :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON EC2LaunchTemplateLicenseSpecification where+  toJSON EC2LaunchTemplateLicenseSpecification{..} =+    object $+    catMaybes+    [ fmap (("LicenseConfigurationArn",) . toJSON) _eC2LaunchTemplateLicenseSpecificationLicenseConfigurationArn+    ]++instance FromJSON EC2LaunchTemplateLicenseSpecification where+  parseJSON (Object obj) =+    EC2LaunchTemplateLicenseSpecification <$>+      (obj .:? "LicenseConfigurationArn")+  parseJSON _ = mempty++-- | Constructor for 'EC2LaunchTemplateLicenseSpecification' containing+-- required fields as arguments.+ec2LaunchTemplateLicenseSpecification+  :: EC2LaunchTemplateLicenseSpecification+ec2LaunchTemplateLicenseSpecification  =+  EC2LaunchTemplateLicenseSpecification+  { _eC2LaunchTemplateLicenseSpecificationLicenseConfigurationArn = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-licensespecification.html#cfn-ec2-launchtemplate-licensespecification-licenseconfigurationarn+ecltlsLicenseConfigurationArn :: Lens' EC2LaunchTemplateLicenseSpecification (Maybe (Val Text))+ecltlsLicenseConfigurationArn = lens _eC2LaunchTemplateLicenseSpecificationLicenseConfigurationArn (\s a -> s { _eC2LaunchTemplateLicenseSpecificationLicenseConfigurationArn = a })
+ library-gen/Stratosphere/ResourceProperties/FSxFileSystemLustreConfiguration.hs view
@@ -0,0 +1,67 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-lustreconfiguration.html++module Stratosphere.ResourceProperties.FSxFileSystemLustreConfiguration where++import Stratosphere.ResourceImports+++-- | Full data type definition for FSxFileSystemLustreConfiguration. See+-- 'fSxFileSystemLustreConfiguration' for a more convenient constructor.+data FSxFileSystemLustreConfiguration =+  FSxFileSystemLustreConfiguration+  { _fSxFileSystemLustreConfigurationExportPath :: Maybe (Val Text)+  , _fSxFileSystemLustreConfigurationImportPath :: Maybe (Val Text)+  , _fSxFileSystemLustreConfigurationImportedFileChunkSize :: Maybe (Val Integer)+  , _fSxFileSystemLustreConfigurationWeeklyMaintenanceStartTime :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON FSxFileSystemLustreConfiguration where+  toJSON FSxFileSystemLustreConfiguration{..} =+    object $+    catMaybes+    [ fmap (("ExportPath",) . toJSON) _fSxFileSystemLustreConfigurationExportPath+    , fmap (("ImportPath",) . toJSON) _fSxFileSystemLustreConfigurationImportPath+    , fmap (("ImportedFileChunkSize",) . toJSON . fmap Integer') _fSxFileSystemLustreConfigurationImportedFileChunkSize+    , fmap (("WeeklyMaintenanceStartTime",) . toJSON) _fSxFileSystemLustreConfigurationWeeklyMaintenanceStartTime+    ]++instance FromJSON FSxFileSystemLustreConfiguration where+  parseJSON (Object obj) =+    FSxFileSystemLustreConfiguration <$>+      (obj .:? "ExportPath") <*>+      (obj .:? "ImportPath") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "ImportedFileChunkSize") <*>+      (obj .:? "WeeklyMaintenanceStartTime")+  parseJSON _ = mempty++-- | Constructor for 'FSxFileSystemLustreConfiguration' containing required+-- fields as arguments.+fSxFileSystemLustreConfiguration+  :: FSxFileSystemLustreConfiguration+fSxFileSystemLustreConfiguration  =+  FSxFileSystemLustreConfiguration+  { _fSxFileSystemLustreConfigurationExportPath = Nothing+  , _fSxFileSystemLustreConfigurationImportPath = Nothing+  , _fSxFileSystemLustreConfigurationImportedFileChunkSize = Nothing+  , _fSxFileSystemLustreConfigurationWeeklyMaintenanceStartTime = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-lustreconfiguration.html#cfn-fsx-filesystem-lustreconfiguration-exportpath+fsfslcExportPath :: Lens' FSxFileSystemLustreConfiguration (Maybe (Val Text))+fsfslcExportPath = lens _fSxFileSystemLustreConfigurationExportPath (\s a -> s { _fSxFileSystemLustreConfigurationExportPath = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-lustreconfiguration.html#cfn-fsx-filesystem-lustreconfiguration-importpath+fsfslcImportPath :: Lens' FSxFileSystemLustreConfiguration (Maybe (Val Text))+fsfslcImportPath = lens _fSxFileSystemLustreConfigurationImportPath (\s a -> s { _fSxFileSystemLustreConfigurationImportPath = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-lustreconfiguration.html#cfn-fsx-filesystem-lustreconfiguration-importedfilechunksize+fsfslcImportedFileChunkSize :: Lens' FSxFileSystemLustreConfiguration (Maybe (Val Integer))+fsfslcImportedFileChunkSize = lens _fSxFileSystemLustreConfigurationImportedFileChunkSize (\s a -> s { _fSxFileSystemLustreConfigurationImportedFileChunkSize = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-lustreconfiguration.html#cfn-fsx-filesystem-lustreconfiguration-weeklymaintenancestarttime+fsfslcWeeklyMaintenanceStartTime :: Lens' FSxFileSystemLustreConfiguration (Maybe (Val Text))+fsfslcWeeklyMaintenanceStartTime = lens _fSxFileSystemLustreConfigurationWeeklyMaintenanceStartTime (\s a -> s { _fSxFileSystemLustreConfigurationWeeklyMaintenanceStartTime = a })
+ library-gen/Stratosphere/ResourceProperties/FSxFileSystemTagEntry.hs view
@@ -0,0 +1,53 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-tagentry.html++module Stratosphere.ResourceProperties.FSxFileSystemTagEntry where++import Stratosphere.ResourceImports+++-- | Full data type definition for FSxFileSystemTagEntry. See+-- 'fSxFileSystemTagEntry' for a more convenient constructor.+data FSxFileSystemTagEntry =+  FSxFileSystemTagEntry+  { _fSxFileSystemTagEntryKey :: Val Text+  , _fSxFileSystemTagEntryValue :: Val Text+  } deriving (Show, Eq)++instance ToJSON FSxFileSystemTagEntry where+  toJSON FSxFileSystemTagEntry{..} =+    object $+    catMaybes+    [ (Just . ("Key",) . toJSON) _fSxFileSystemTagEntryKey+    , (Just . ("Value",) . toJSON) _fSxFileSystemTagEntryValue+    ]++instance FromJSON FSxFileSystemTagEntry where+  parseJSON (Object obj) =+    FSxFileSystemTagEntry <$>+      (obj .: "Key") <*>+      (obj .: "Value")+  parseJSON _ = mempty++-- | Constructor for 'FSxFileSystemTagEntry' containing required fields as+-- arguments.+fSxFileSystemTagEntry+  :: Val Text -- ^ 'fsfsteKey'+  -> Val Text -- ^ 'fsfsteValue'+  -> FSxFileSystemTagEntry+fSxFileSystemTagEntry keyarg valuearg =+  FSxFileSystemTagEntry+  { _fSxFileSystemTagEntryKey = keyarg+  , _fSxFileSystemTagEntryValue = valuearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-tagentry.html#cfn-fsx-filesystem-tagentry-key+fsfsteKey :: Lens' FSxFileSystemTagEntry (Val Text)+fsfsteKey = lens _fSxFileSystemTagEntryKey (\s a -> s { _fSxFileSystemTagEntryKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-tagentry.html#cfn-fsx-filesystem-tagentry-value+fsfsteValue :: Lens' FSxFileSystemTagEntry (Val Text)+fsfsteValue = lens _fSxFileSystemTagEntryValue (\s a -> s { _fSxFileSystemTagEntryValue = a })
+ library-gen/Stratosphere/ResourceProperties/FSxFileSystemWindowsConfiguration.hs view
@@ -0,0 +1,83 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-windowsconfiguration.html++module Stratosphere.ResourceProperties.FSxFileSystemWindowsConfiguration where++import Stratosphere.ResourceImports+++-- | Full data type definition for FSxFileSystemWindowsConfiguration. See+-- 'fSxFileSystemWindowsConfiguration' for a more convenient constructor.+data FSxFileSystemWindowsConfiguration =+  FSxFileSystemWindowsConfiguration+  { _fSxFileSystemWindowsConfigurationActiveDirectoryId :: Maybe (Val Text)+  , _fSxFileSystemWindowsConfigurationAutomaticBackupRetentionDays :: Maybe (Val Integer)+  , _fSxFileSystemWindowsConfigurationCopyTagsToBackups :: Maybe (Val Bool)+  , _fSxFileSystemWindowsConfigurationDailyAutomaticBackupStartTime :: Maybe (Val Text)+  , _fSxFileSystemWindowsConfigurationThroughputCapacity :: Maybe (Val Integer)+  , _fSxFileSystemWindowsConfigurationWeeklyMaintenanceStartTime :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON FSxFileSystemWindowsConfiguration where+  toJSON FSxFileSystemWindowsConfiguration{..} =+    object $+    catMaybes+    [ fmap (("ActiveDirectoryId",) . toJSON) _fSxFileSystemWindowsConfigurationActiveDirectoryId+    , fmap (("AutomaticBackupRetentionDays",) . toJSON . fmap Integer') _fSxFileSystemWindowsConfigurationAutomaticBackupRetentionDays+    , fmap (("CopyTagsToBackups",) . toJSON . fmap Bool') _fSxFileSystemWindowsConfigurationCopyTagsToBackups+    , fmap (("DailyAutomaticBackupStartTime",) . toJSON) _fSxFileSystemWindowsConfigurationDailyAutomaticBackupStartTime+    , fmap (("ThroughputCapacity",) . toJSON . fmap Integer') _fSxFileSystemWindowsConfigurationThroughputCapacity+    , fmap (("WeeklyMaintenanceStartTime",) . toJSON) _fSxFileSystemWindowsConfigurationWeeklyMaintenanceStartTime+    ]++instance FromJSON FSxFileSystemWindowsConfiguration where+  parseJSON (Object obj) =+    FSxFileSystemWindowsConfiguration <$>+      (obj .:? "ActiveDirectoryId") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "AutomaticBackupRetentionDays") <*>+      fmap (fmap (fmap unBool')) (obj .:? "CopyTagsToBackups") <*>+      (obj .:? "DailyAutomaticBackupStartTime") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "ThroughputCapacity") <*>+      (obj .:? "WeeklyMaintenanceStartTime")+  parseJSON _ = mempty++-- | Constructor for 'FSxFileSystemWindowsConfiguration' containing required+-- fields as arguments.+fSxFileSystemWindowsConfiguration+  :: FSxFileSystemWindowsConfiguration+fSxFileSystemWindowsConfiguration  =+  FSxFileSystemWindowsConfiguration+  { _fSxFileSystemWindowsConfigurationActiveDirectoryId = Nothing+  , _fSxFileSystemWindowsConfigurationAutomaticBackupRetentionDays = Nothing+  , _fSxFileSystemWindowsConfigurationCopyTagsToBackups = Nothing+  , _fSxFileSystemWindowsConfigurationDailyAutomaticBackupStartTime = Nothing+  , _fSxFileSystemWindowsConfigurationThroughputCapacity = Nothing+  , _fSxFileSystemWindowsConfigurationWeeklyMaintenanceStartTime = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-windowsconfiguration.html#cfn-fsx-filesystem-windowsconfiguration-activedirectoryid+fsfswcActiveDirectoryId :: Lens' FSxFileSystemWindowsConfiguration (Maybe (Val Text))+fsfswcActiveDirectoryId = lens _fSxFileSystemWindowsConfigurationActiveDirectoryId (\s a -> s { _fSxFileSystemWindowsConfigurationActiveDirectoryId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-windowsconfiguration.html#cfn-fsx-filesystem-windowsconfiguration-automaticbackupretentiondays+fsfswcAutomaticBackupRetentionDays :: Lens' FSxFileSystemWindowsConfiguration (Maybe (Val Integer))+fsfswcAutomaticBackupRetentionDays = lens _fSxFileSystemWindowsConfigurationAutomaticBackupRetentionDays (\s a -> s { _fSxFileSystemWindowsConfigurationAutomaticBackupRetentionDays = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-windowsconfiguration.html#cfn-fsx-filesystem-windowsconfiguration-copytagstobackups+fsfswcCopyTagsToBackups :: Lens' FSxFileSystemWindowsConfiguration (Maybe (Val Bool))+fsfswcCopyTagsToBackups = lens _fSxFileSystemWindowsConfigurationCopyTagsToBackups (\s a -> s { _fSxFileSystemWindowsConfigurationCopyTagsToBackups = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-windowsconfiguration.html#cfn-fsx-filesystem-windowsconfiguration-dailyautomaticbackupstarttime+fsfswcDailyAutomaticBackupStartTime :: Lens' FSxFileSystemWindowsConfiguration (Maybe (Val Text))+fsfswcDailyAutomaticBackupStartTime = lens _fSxFileSystemWindowsConfigurationDailyAutomaticBackupStartTime (\s a -> s { _fSxFileSystemWindowsConfigurationDailyAutomaticBackupStartTime = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-windowsconfiguration.html#cfn-fsx-filesystem-windowsconfiguration-throughputcapacity+fsfswcThroughputCapacity :: Lens' FSxFileSystemWindowsConfiguration (Maybe (Val Integer))+fsfswcThroughputCapacity = lens _fSxFileSystemWindowsConfigurationThroughputCapacity (\s a -> s { _fSxFileSystemWindowsConfigurationThroughputCapacity = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-windowsconfiguration.html#cfn-fsx-filesystem-windowsconfiguration-weeklymaintenancestarttime+fsfswcWeeklyMaintenanceStartTime :: Lens' FSxFileSystemWindowsConfiguration (Maybe (Val Text))+fsfswcWeeklyMaintenanceStartTime = lens _fSxFileSystemWindowsConfigurationWeeklyMaintenanceStartTime (\s a -> s { _fSxFileSystemWindowsConfigurationWeeklyMaintenanceStartTime = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationApplicationCodeConfiguration.hs view
@@ -0,0 +1,56 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-applicationcodeconfiguration.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationApplicationCodeConfiguration where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationCodeContent++-- | Full data type definition for+-- KinesisAnalyticsV2ApplicationApplicationCodeConfiguration. See+-- 'kinesisAnalyticsV2ApplicationApplicationCodeConfiguration' for a more+-- convenient constructor.+data KinesisAnalyticsV2ApplicationApplicationCodeConfiguration =+  KinesisAnalyticsV2ApplicationApplicationCodeConfiguration+  { _kinesisAnalyticsV2ApplicationApplicationCodeConfigurationCodeContent :: KinesisAnalyticsV2ApplicationCodeContent+  , _kinesisAnalyticsV2ApplicationApplicationCodeConfigurationCodeContentType :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationApplicationCodeConfiguration where+  toJSON KinesisAnalyticsV2ApplicationApplicationCodeConfiguration{..} =+    object $+    catMaybes+    [ (Just . ("CodeContent",) . toJSON) _kinesisAnalyticsV2ApplicationApplicationCodeConfigurationCodeContent+    , (Just . ("CodeContentType",) . toJSON) _kinesisAnalyticsV2ApplicationApplicationCodeConfigurationCodeContentType+    ]++instance FromJSON KinesisAnalyticsV2ApplicationApplicationCodeConfiguration where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationApplicationCodeConfiguration <$>+      (obj .: "CodeContent") <*>+      (obj .: "CodeContentType")+  parseJSON _ = mempty++-- | Constructor for+-- 'KinesisAnalyticsV2ApplicationApplicationCodeConfiguration' containing+-- required fields as arguments.+kinesisAnalyticsV2ApplicationApplicationCodeConfiguration+  :: KinesisAnalyticsV2ApplicationCodeContent -- ^ 'kavaaccCodeContent'+  -> Val Text -- ^ 'kavaaccCodeContentType'+  -> KinesisAnalyticsV2ApplicationApplicationCodeConfiguration+kinesisAnalyticsV2ApplicationApplicationCodeConfiguration codeContentarg codeContentTypearg =+  KinesisAnalyticsV2ApplicationApplicationCodeConfiguration+  { _kinesisAnalyticsV2ApplicationApplicationCodeConfigurationCodeContent = codeContentarg+  , _kinesisAnalyticsV2ApplicationApplicationCodeConfigurationCodeContentType = codeContentTypearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-applicationcodeconfiguration.html#cfn-kinesisanalyticsv2-application-applicationcodeconfiguration-codecontent+kavaaccCodeContent :: Lens' KinesisAnalyticsV2ApplicationApplicationCodeConfiguration KinesisAnalyticsV2ApplicationCodeContent+kavaaccCodeContent = lens _kinesisAnalyticsV2ApplicationApplicationCodeConfigurationCodeContent (\s a -> s { _kinesisAnalyticsV2ApplicationApplicationCodeConfigurationCodeContent = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-applicationcodeconfiguration.html#cfn-kinesisanalyticsv2-application-applicationcodeconfiguration-codecontenttype+kavaaccCodeContentType :: Lens' KinesisAnalyticsV2ApplicationApplicationCodeConfiguration (Val Text)+kavaaccCodeContentType = lens _kinesisAnalyticsV2ApplicationApplicationCodeConfigurationCodeContentType (\s a -> s { _kinesisAnalyticsV2ApplicationApplicationCodeConfigurationCodeContentType = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationApplicationConfiguration.hs view
@@ -0,0 +1,81 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-applicationconfiguration.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationApplicationConfiguration where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationApplicationCodeConfiguration+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationEnvironmentProperties+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationSqlApplicationConfiguration++-- | Full data type definition for+-- KinesisAnalyticsV2ApplicationApplicationConfiguration. See+-- 'kinesisAnalyticsV2ApplicationApplicationConfiguration' for a more+-- convenient constructor.+data KinesisAnalyticsV2ApplicationApplicationConfiguration =+  KinesisAnalyticsV2ApplicationApplicationConfiguration+  { _kinesisAnalyticsV2ApplicationApplicationConfigurationApplicationCodeConfiguration :: Maybe KinesisAnalyticsV2ApplicationApplicationCodeConfiguration+  , _kinesisAnalyticsV2ApplicationApplicationConfigurationApplicationSnapshotConfiguration :: Maybe KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration+  , _kinesisAnalyticsV2ApplicationApplicationConfigurationEnvironmentProperties :: Maybe KinesisAnalyticsV2ApplicationEnvironmentProperties+  , _kinesisAnalyticsV2ApplicationApplicationConfigurationFlinkApplicationConfiguration :: Maybe KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration+  , _kinesisAnalyticsV2ApplicationApplicationConfigurationSqlApplicationConfiguration :: Maybe KinesisAnalyticsV2ApplicationSqlApplicationConfiguration+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationApplicationConfiguration where+  toJSON KinesisAnalyticsV2ApplicationApplicationConfiguration{..} =+    object $+    catMaybes+    [ fmap (("ApplicationCodeConfiguration",) . toJSON) _kinesisAnalyticsV2ApplicationApplicationConfigurationApplicationCodeConfiguration+    , fmap (("ApplicationSnapshotConfiguration",) . toJSON) _kinesisAnalyticsV2ApplicationApplicationConfigurationApplicationSnapshotConfiguration+    , fmap (("EnvironmentProperties",) . toJSON) _kinesisAnalyticsV2ApplicationApplicationConfigurationEnvironmentProperties+    , fmap (("FlinkApplicationConfiguration",) . toJSON) _kinesisAnalyticsV2ApplicationApplicationConfigurationFlinkApplicationConfiguration+    , fmap (("SqlApplicationConfiguration",) . toJSON) _kinesisAnalyticsV2ApplicationApplicationConfigurationSqlApplicationConfiguration+    ]++instance FromJSON KinesisAnalyticsV2ApplicationApplicationConfiguration where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationApplicationConfiguration <$>+      (obj .:? "ApplicationCodeConfiguration") <*>+      (obj .:? "ApplicationSnapshotConfiguration") <*>+      (obj .:? "EnvironmentProperties") <*>+      (obj .:? "FlinkApplicationConfiguration") <*>+      (obj .:? "SqlApplicationConfiguration")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsV2ApplicationApplicationConfiguration'+-- containing required fields as arguments.+kinesisAnalyticsV2ApplicationApplicationConfiguration+  :: KinesisAnalyticsV2ApplicationApplicationConfiguration+kinesisAnalyticsV2ApplicationApplicationConfiguration  =+  KinesisAnalyticsV2ApplicationApplicationConfiguration+  { _kinesisAnalyticsV2ApplicationApplicationConfigurationApplicationCodeConfiguration = Nothing+  , _kinesisAnalyticsV2ApplicationApplicationConfigurationApplicationSnapshotConfiguration = Nothing+  , _kinesisAnalyticsV2ApplicationApplicationConfigurationEnvironmentProperties = Nothing+  , _kinesisAnalyticsV2ApplicationApplicationConfigurationFlinkApplicationConfiguration = Nothing+  , _kinesisAnalyticsV2ApplicationApplicationConfigurationSqlApplicationConfiguration = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-applicationconfiguration.html#cfn-kinesisanalyticsv2-application-applicationconfiguration-applicationcodeconfiguration+kavaacApplicationCodeConfiguration :: Lens' KinesisAnalyticsV2ApplicationApplicationConfiguration (Maybe KinesisAnalyticsV2ApplicationApplicationCodeConfiguration)+kavaacApplicationCodeConfiguration = lens _kinesisAnalyticsV2ApplicationApplicationConfigurationApplicationCodeConfiguration (\s a -> s { _kinesisAnalyticsV2ApplicationApplicationConfigurationApplicationCodeConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-applicationconfiguration.html#cfn-kinesisanalyticsv2-application-applicationconfiguration-applicationsnapshotconfiguration+kavaacApplicationSnapshotConfiguration :: Lens' KinesisAnalyticsV2ApplicationApplicationConfiguration (Maybe KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration)+kavaacApplicationSnapshotConfiguration = lens _kinesisAnalyticsV2ApplicationApplicationConfigurationApplicationSnapshotConfiguration (\s a -> s { _kinesisAnalyticsV2ApplicationApplicationConfigurationApplicationSnapshotConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-applicationconfiguration.html#cfn-kinesisanalyticsv2-application-applicationconfiguration-environmentproperties+kavaacEnvironmentProperties :: Lens' KinesisAnalyticsV2ApplicationApplicationConfiguration (Maybe KinesisAnalyticsV2ApplicationEnvironmentProperties)+kavaacEnvironmentProperties = lens _kinesisAnalyticsV2ApplicationApplicationConfigurationEnvironmentProperties (\s a -> s { _kinesisAnalyticsV2ApplicationApplicationConfigurationEnvironmentProperties = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-applicationconfiguration.html#cfn-kinesisanalyticsv2-application-applicationconfiguration-flinkapplicationconfiguration+kavaacFlinkApplicationConfiguration :: Lens' KinesisAnalyticsV2ApplicationApplicationConfiguration (Maybe KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration)+kavaacFlinkApplicationConfiguration = lens _kinesisAnalyticsV2ApplicationApplicationConfigurationFlinkApplicationConfiguration (\s a -> s { _kinesisAnalyticsV2ApplicationApplicationConfigurationFlinkApplicationConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-applicationconfiguration.html#cfn-kinesisanalyticsv2-application-applicationconfiguration-sqlapplicationconfiguration+kavaacSqlApplicationConfiguration :: Lens' KinesisAnalyticsV2ApplicationApplicationConfiguration (Maybe KinesisAnalyticsV2ApplicationSqlApplicationConfiguration)+kavaacSqlApplicationConfiguration = lens _kinesisAnalyticsV2ApplicationApplicationConfigurationSqlApplicationConfiguration (\s a -> s { _kinesisAnalyticsV2ApplicationApplicationConfigurationSqlApplicationConfiguration = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-applicationsnapshotconfiguration.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration. See+-- 'kinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration' for a+-- more convenient constructor.+data KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration =+  KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration+  { _kinesisAnalyticsV2ApplicationApplicationSnapshotConfigurationSnapshotsEnabled :: Val Bool+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration where+  toJSON KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration{..} =+    object $+    catMaybes+    [ (Just . ("SnapshotsEnabled",) . toJSON . fmap Bool') _kinesisAnalyticsV2ApplicationApplicationSnapshotConfigurationSnapshotsEnabled+    ]++instance FromJSON KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration <$>+      fmap (fmap unBool') (obj .: "SnapshotsEnabled")+  parseJSON _ = mempty++-- | Constructor for+-- 'KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration'+-- containing required fields as arguments.+kinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration+  :: Val Bool -- ^ 'kavaascSnapshotsEnabled'+  -> KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration+kinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration snapshotsEnabledarg =+  KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration+  { _kinesisAnalyticsV2ApplicationApplicationSnapshotConfigurationSnapshotsEnabled = snapshotsEnabledarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-applicationsnapshotconfiguration.html#cfn-kinesisanalyticsv2-application-applicationsnapshotconfiguration-snapshotsenabled+kavaascSnapshotsEnabled :: Lens' KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration (Val Bool)+kavaascSnapshotsEnabled = lens _kinesisAnalyticsV2ApplicationApplicationSnapshotConfigurationSnapshotsEnabled (\s a -> s { _kinesisAnalyticsV2ApplicationApplicationSnapshotConfigurationSnapshotsEnabled = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationCSVMappingParameters.hs view
@@ -0,0 +1,55 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-csvmappingparameters.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationCSVMappingParameters where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- KinesisAnalyticsV2ApplicationCSVMappingParameters. See+-- 'kinesisAnalyticsV2ApplicationCSVMappingParameters' for a more convenient+-- constructor.+data KinesisAnalyticsV2ApplicationCSVMappingParameters =+  KinesisAnalyticsV2ApplicationCSVMappingParameters+  { _kinesisAnalyticsV2ApplicationCSVMappingParametersRecordColumnDelimiter :: Val Text+  , _kinesisAnalyticsV2ApplicationCSVMappingParametersRecordRowDelimiter :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationCSVMappingParameters where+  toJSON KinesisAnalyticsV2ApplicationCSVMappingParameters{..} =+    object $+    catMaybes+    [ (Just . ("RecordColumnDelimiter",) . toJSON) _kinesisAnalyticsV2ApplicationCSVMappingParametersRecordColumnDelimiter+    , (Just . ("RecordRowDelimiter",) . toJSON) _kinesisAnalyticsV2ApplicationCSVMappingParametersRecordRowDelimiter+    ]++instance FromJSON KinesisAnalyticsV2ApplicationCSVMappingParameters where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationCSVMappingParameters <$>+      (obj .: "RecordColumnDelimiter") <*>+      (obj .: "RecordRowDelimiter")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsV2ApplicationCSVMappingParameters'+-- containing required fields as arguments.+kinesisAnalyticsV2ApplicationCSVMappingParameters+  :: Val Text -- ^ 'kavacsvmpRecordColumnDelimiter'+  -> Val Text -- ^ 'kavacsvmpRecordRowDelimiter'+  -> KinesisAnalyticsV2ApplicationCSVMappingParameters+kinesisAnalyticsV2ApplicationCSVMappingParameters recordColumnDelimiterarg recordRowDelimiterarg =+  KinesisAnalyticsV2ApplicationCSVMappingParameters+  { _kinesisAnalyticsV2ApplicationCSVMappingParametersRecordColumnDelimiter = recordColumnDelimiterarg+  , _kinesisAnalyticsV2ApplicationCSVMappingParametersRecordRowDelimiter = recordRowDelimiterarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-csvmappingparameters.html#cfn-kinesisanalyticsv2-application-csvmappingparameters-recordcolumndelimiter+kavacsvmpRecordColumnDelimiter :: Lens' KinesisAnalyticsV2ApplicationCSVMappingParameters (Val Text)+kavacsvmpRecordColumnDelimiter = lens _kinesisAnalyticsV2ApplicationCSVMappingParametersRecordColumnDelimiter (\s a -> s { _kinesisAnalyticsV2ApplicationCSVMappingParametersRecordColumnDelimiter = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-csvmappingparameters.html#cfn-kinesisanalyticsv2-application-csvmappingparameters-recordrowdelimiter+kavacsvmpRecordRowDelimiter :: Lens' KinesisAnalyticsV2ApplicationCSVMappingParameters (Val Text)+kavacsvmpRecordRowDelimiter = lens _kinesisAnalyticsV2ApplicationCSVMappingParametersRecordRowDelimiter (\s a -> s { _kinesisAnalyticsV2ApplicationCSVMappingParametersRecordRowDelimiter = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationCheckpointConfiguration.hs view
@@ -0,0 +1,70 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-checkpointconfiguration.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationCheckpointConfiguration where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- KinesisAnalyticsV2ApplicationCheckpointConfiguration. See+-- 'kinesisAnalyticsV2ApplicationCheckpointConfiguration' for a more+-- convenient constructor.+data KinesisAnalyticsV2ApplicationCheckpointConfiguration =+  KinesisAnalyticsV2ApplicationCheckpointConfiguration+  { _kinesisAnalyticsV2ApplicationCheckpointConfigurationCheckpointInterval :: Maybe (Val Integer)+  , _kinesisAnalyticsV2ApplicationCheckpointConfigurationCheckpointingEnabled :: Maybe (Val Bool)+  , _kinesisAnalyticsV2ApplicationCheckpointConfigurationConfigurationType :: Val Text+  , _kinesisAnalyticsV2ApplicationCheckpointConfigurationMinPauseBetweenCheckpoints :: Maybe (Val Integer)+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationCheckpointConfiguration where+  toJSON KinesisAnalyticsV2ApplicationCheckpointConfiguration{..} =+    object $+    catMaybes+    [ fmap (("CheckpointInterval",) . toJSON . fmap Integer') _kinesisAnalyticsV2ApplicationCheckpointConfigurationCheckpointInterval+    , fmap (("CheckpointingEnabled",) . toJSON . fmap Bool') _kinesisAnalyticsV2ApplicationCheckpointConfigurationCheckpointingEnabled+    , (Just . ("ConfigurationType",) . toJSON) _kinesisAnalyticsV2ApplicationCheckpointConfigurationConfigurationType+    , fmap (("MinPauseBetweenCheckpoints",) . toJSON . fmap Integer') _kinesisAnalyticsV2ApplicationCheckpointConfigurationMinPauseBetweenCheckpoints+    ]++instance FromJSON KinesisAnalyticsV2ApplicationCheckpointConfiguration where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationCheckpointConfiguration <$>+      fmap (fmap (fmap unInteger')) (obj .:? "CheckpointInterval") <*>+      fmap (fmap (fmap unBool')) (obj .:? "CheckpointingEnabled") <*>+      (obj .: "ConfigurationType") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "MinPauseBetweenCheckpoints")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsV2ApplicationCheckpointConfiguration'+-- containing required fields as arguments.+kinesisAnalyticsV2ApplicationCheckpointConfiguration+  :: Val Text -- ^ 'kavaccConfigurationType'+  -> KinesisAnalyticsV2ApplicationCheckpointConfiguration+kinesisAnalyticsV2ApplicationCheckpointConfiguration configurationTypearg =+  KinesisAnalyticsV2ApplicationCheckpointConfiguration+  { _kinesisAnalyticsV2ApplicationCheckpointConfigurationCheckpointInterval = Nothing+  , _kinesisAnalyticsV2ApplicationCheckpointConfigurationCheckpointingEnabled = Nothing+  , _kinesisAnalyticsV2ApplicationCheckpointConfigurationConfigurationType = configurationTypearg+  , _kinesisAnalyticsV2ApplicationCheckpointConfigurationMinPauseBetweenCheckpoints = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-checkpointconfiguration.html#cfn-kinesisanalyticsv2-application-checkpointconfiguration-checkpointinterval+kavaccCheckpointInterval :: Lens' KinesisAnalyticsV2ApplicationCheckpointConfiguration (Maybe (Val Integer))+kavaccCheckpointInterval = lens _kinesisAnalyticsV2ApplicationCheckpointConfigurationCheckpointInterval (\s a -> s { _kinesisAnalyticsV2ApplicationCheckpointConfigurationCheckpointInterval = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-checkpointconfiguration.html#cfn-kinesisanalyticsv2-application-checkpointconfiguration-checkpointingenabled+kavaccCheckpointingEnabled :: Lens' KinesisAnalyticsV2ApplicationCheckpointConfiguration (Maybe (Val Bool))+kavaccCheckpointingEnabled = lens _kinesisAnalyticsV2ApplicationCheckpointConfigurationCheckpointingEnabled (\s a -> s { _kinesisAnalyticsV2ApplicationCheckpointConfigurationCheckpointingEnabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-checkpointconfiguration.html#cfn-kinesisanalyticsv2-application-checkpointconfiguration-configurationtype+kavaccConfigurationType :: Lens' KinesisAnalyticsV2ApplicationCheckpointConfiguration (Val Text)+kavaccConfigurationType = lens _kinesisAnalyticsV2ApplicationCheckpointConfigurationConfigurationType (\s a -> s { _kinesisAnalyticsV2ApplicationCheckpointConfigurationConfigurationType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-checkpointconfiguration.html#cfn-kinesisanalyticsv2-application-checkpointconfiguration-minpausebetweencheckpoints+kavaccMinPauseBetweenCheckpoints :: Lens' KinesisAnalyticsV2ApplicationCheckpointConfiguration (Maybe (Val Integer))+kavaccMinPauseBetweenCheckpoints = lens _kinesisAnalyticsV2ApplicationCheckpointConfigurationMinPauseBetweenCheckpoints (\s a -> s { _kinesisAnalyticsV2ApplicationCheckpointConfigurationMinPauseBetweenCheckpoints = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption.hs view
@@ -0,0 +1,48 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationcloudwatchloggingoption-cloudwatchloggingoption.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption.+-- See+-- 'kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption'+-- for a more convenient constructor.+data KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption =+  KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption+  { _kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOptionLogStreamARN :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption where+  toJSON KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption{..} =+    object $+    catMaybes+    [ (Just . ("LogStreamARN",) . toJSON) _kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOptionLogStreamARN+    ]++instance FromJSON KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption <$>+      (obj .: "LogStreamARN")+  parseJSON _ = mempty++-- | Constructor for+-- 'KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption'+-- containing required fields as arguments.+kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption+  :: Val Text -- ^ 'kavacwlocwloLogStreamARN'+  -> KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption+kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption logStreamARNarg =+  KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption+  { _kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOptionLogStreamARN = logStreamARNarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationcloudwatchloggingoption-cloudwatchloggingoption.html#cfn-kinesisanalyticsv2-applicationcloudwatchloggingoption-cloudwatchloggingoption-logstreamarn+kavacwlocwloLogStreamARN :: Lens' KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption (Val Text)+kavacwlocwloLogStreamARN = lens _kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOptionLogStreamARN (\s a -> s { _kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOptionLogStreamARN = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationCodeContent.hs view
@@ -0,0 +1,60 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-codecontent.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationCodeContent where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationS3ContentLocation++-- | Full data type definition for KinesisAnalyticsV2ApplicationCodeContent.+-- See 'kinesisAnalyticsV2ApplicationCodeContent' for a more convenient+-- constructor.+data KinesisAnalyticsV2ApplicationCodeContent =+  KinesisAnalyticsV2ApplicationCodeContent+  { _kinesisAnalyticsV2ApplicationCodeContentS3ContentLocation :: Maybe KinesisAnalyticsV2ApplicationS3ContentLocation+  , _kinesisAnalyticsV2ApplicationCodeContentTextContent :: Maybe (Val Text)+  , _kinesisAnalyticsV2ApplicationCodeContentZipFileContent :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationCodeContent where+  toJSON KinesisAnalyticsV2ApplicationCodeContent{..} =+    object $+    catMaybes+    [ fmap (("S3ContentLocation",) . toJSON) _kinesisAnalyticsV2ApplicationCodeContentS3ContentLocation+    , fmap (("TextContent",) . toJSON) _kinesisAnalyticsV2ApplicationCodeContentTextContent+    , fmap (("ZipFileContent",) . toJSON) _kinesisAnalyticsV2ApplicationCodeContentZipFileContent+    ]++instance FromJSON KinesisAnalyticsV2ApplicationCodeContent where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationCodeContent <$>+      (obj .:? "S3ContentLocation") <*>+      (obj .:? "TextContent") <*>+      (obj .:? "ZipFileContent")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsV2ApplicationCodeContent' containing+-- required fields as arguments.+kinesisAnalyticsV2ApplicationCodeContent+  :: KinesisAnalyticsV2ApplicationCodeContent+kinesisAnalyticsV2ApplicationCodeContent  =+  KinesisAnalyticsV2ApplicationCodeContent+  { _kinesisAnalyticsV2ApplicationCodeContentS3ContentLocation = Nothing+  , _kinesisAnalyticsV2ApplicationCodeContentTextContent = Nothing+  , _kinesisAnalyticsV2ApplicationCodeContentZipFileContent = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-codecontent.html#cfn-kinesisanalyticsv2-application-codecontent-s3contentlocation+kavaccS3ContentLocation :: Lens' KinesisAnalyticsV2ApplicationCodeContent (Maybe KinesisAnalyticsV2ApplicationS3ContentLocation)+kavaccS3ContentLocation = lens _kinesisAnalyticsV2ApplicationCodeContentS3ContentLocation (\s a -> s { _kinesisAnalyticsV2ApplicationCodeContentS3ContentLocation = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-codecontent.html#cfn-kinesisanalyticsv2-application-codecontent-textcontent+kavaccTextContent :: Lens' KinesisAnalyticsV2ApplicationCodeContent (Maybe (Val Text))+kavaccTextContent = lens _kinesisAnalyticsV2ApplicationCodeContentTextContent (\s a -> s { _kinesisAnalyticsV2ApplicationCodeContentTextContent = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-codecontent.html#cfn-kinesisanalyticsv2-application-codecontent-zipfilecontent+kavaccZipFileContent :: Lens' KinesisAnalyticsV2ApplicationCodeContent (Maybe (Val Text))+kavaccZipFileContent = lens _kinesisAnalyticsV2ApplicationCodeContentZipFileContent (\s a -> s { _kinesisAnalyticsV2ApplicationCodeContentZipFileContent = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationEnvironmentProperties.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-environmentproperties.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationEnvironmentProperties where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationPropertyGroup++-- | Full data type definition for+-- KinesisAnalyticsV2ApplicationEnvironmentProperties. See+-- 'kinesisAnalyticsV2ApplicationEnvironmentProperties' for a more+-- convenient constructor.+data KinesisAnalyticsV2ApplicationEnvironmentProperties =+  KinesisAnalyticsV2ApplicationEnvironmentProperties+  { _kinesisAnalyticsV2ApplicationEnvironmentPropertiesPropertyGroups :: Maybe [KinesisAnalyticsV2ApplicationPropertyGroup]+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationEnvironmentProperties where+  toJSON KinesisAnalyticsV2ApplicationEnvironmentProperties{..} =+    object $+    catMaybes+    [ fmap (("PropertyGroups",) . toJSON) _kinesisAnalyticsV2ApplicationEnvironmentPropertiesPropertyGroups+    ]++instance FromJSON KinesisAnalyticsV2ApplicationEnvironmentProperties where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationEnvironmentProperties <$>+      (obj .:? "PropertyGroups")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsV2ApplicationEnvironmentProperties'+-- containing required fields as arguments.+kinesisAnalyticsV2ApplicationEnvironmentProperties+  :: KinesisAnalyticsV2ApplicationEnvironmentProperties+kinesisAnalyticsV2ApplicationEnvironmentProperties  =+  KinesisAnalyticsV2ApplicationEnvironmentProperties+  { _kinesisAnalyticsV2ApplicationEnvironmentPropertiesPropertyGroups = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-environmentproperties.html#cfn-kinesisanalyticsv2-application-environmentproperties-propertygroups+kavaepPropertyGroups :: Lens' KinesisAnalyticsV2ApplicationEnvironmentProperties (Maybe [KinesisAnalyticsV2ApplicationPropertyGroup])+kavaepPropertyGroups = lens _kinesisAnalyticsV2ApplicationEnvironmentPropertiesPropertyGroups (\s a -> s { _kinesisAnalyticsV2ApplicationEnvironmentPropertiesPropertyGroups = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration.hs view
@@ -0,0 +1,64 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-flinkapplicationconfiguration.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationCheckpointConfiguration+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationMonitoringConfiguration+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationParallelismConfiguration++-- | Full data type definition for+-- KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration. See+-- 'kinesisAnalyticsV2ApplicationFlinkApplicationConfiguration' for a more+-- convenient constructor.+data KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration =+  KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration+  { _kinesisAnalyticsV2ApplicationFlinkApplicationConfigurationCheckpointConfiguration :: Maybe KinesisAnalyticsV2ApplicationCheckpointConfiguration+  , _kinesisAnalyticsV2ApplicationFlinkApplicationConfigurationMonitoringConfiguration :: Maybe KinesisAnalyticsV2ApplicationMonitoringConfiguration+  , _kinesisAnalyticsV2ApplicationFlinkApplicationConfigurationParallelismConfiguration :: Maybe KinesisAnalyticsV2ApplicationParallelismConfiguration+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration where+  toJSON KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration{..} =+    object $+    catMaybes+    [ fmap (("CheckpointConfiguration",) . toJSON) _kinesisAnalyticsV2ApplicationFlinkApplicationConfigurationCheckpointConfiguration+    , fmap (("MonitoringConfiguration",) . toJSON) _kinesisAnalyticsV2ApplicationFlinkApplicationConfigurationMonitoringConfiguration+    , fmap (("ParallelismConfiguration",) . toJSON) _kinesisAnalyticsV2ApplicationFlinkApplicationConfigurationParallelismConfiguration+    ]++instance FromJSON KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration <$>+      (obj .:? "CheckpointConfiguration") <*>+      (obj .:? "MonitoringConfiguration") <*>+      (obj .:? "ParallelismConfiguration")+  parseJSON _ = mempty++-- | Constructor for+-- 'KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration' containing+-- required fields as arguments.+kinesisAnalyticsV2ApplicationFlinkApplicationConfiguration+  :: KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration+kinesisAnalyticsV2ApplicationFlinkApplicationConfiguration  =+  KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration+  { _kinesisAnalyticsV2ApplicationFlinkApplicationConfigurationCheckpointConfiguration = Nothing+  , _kinesisAnalyticsV2ApplicationFlinkApplicationConfigurationMonitoringConfiguration = Nothing+  , _kinesisAnalyticsV2ApplicationFlinkApplicationConfigurationParallelismConfiguration = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-flinkapplicationconfiguration.html#cfn-kinesisanalyticsv2-application-flinkapplicationconfiguration-checkpointconfiguration+kavafacCheckpointConfiguration :: Lens' KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration (Maybe KinesisAnalyticsV2ApplicationCheckpointConfiguration)+kavafacCheckpointConfiguration = lens _kinesisAnalyticsV2ApplicationFlinkApplicationConfigurationCheckpointConfiguration (\s a -> s { _kinesisAnalyticsV2ApplicationFlinkApplicationConfigurationCheckpointConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-flinkapplicationconfiguration.html#cfn-kinesisanalyticsv2-application-flinkapplicationconfiguration-monitoringconfiguration+kavafacMonitoringConfiguration :: Lens' KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration (Maybe KinesisAnalyticsV2ApplicationMonitoringConfiguration)+kavafacMonitoringConfiguration = lens _kinesisAnalyticsV2ApplicationFlinkApplicationConfigurationMonitoringConfiguration (\s a -> s { _kinesisAnalyticsV2ApplicationFlinkApplicationConfigurationMonitoringConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-flinkapplicationconfiguration.html#cfn-kinesisanalyticsv2-application-flinkapplicationconfiguration-parallelismconfiguration+kavafacParallelismConfiguration :: Lens' KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration (Maybe KinesisAnalyticsV2ApplicationParallelismConfiguration)+kavafacParallelismConfiguration = lens _kinesisAnalyticsV2ApplicationFlinkApplicationConfigurationParallelismConfiguration (\s a -> s { _kinesisAnalyticsV2ApplicationFlinkApplicationConfigurationParallelismConfiguration = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationInput.hs view
@@ -0,0 +1,89 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-input.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInput where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInputParallelism+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInputProcessingConfiguration+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInputSchema+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationKinesisFirehoseInput+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationKinesisStreamsInput++-- | Full data type definition for KinesisAnalyticsV2ApplicationInput. See+-- 'kinesisAnalyticsV2ApplicationInput' for a more convenient constructor.+data KinesisAnalyticsV2ApplicationInput =+  KinesisAnalyticsV2ApplicationInput+  { _kinesisAnalyticsV2ApplicationInputInputParallelism :: Maybe KinesisAnalyticsV2ApplicationInputParallelism+  , _kinesisAnalyticsV2ApplicationInputInputProcessingConfiguration :: Maybe KinesisAnalyticsV2ApplicationInputProcessingConfiguration+  , _kinesisAnalyticsV2ApplicationInputInputSchema :: KinesisAnalyticsV2ApplicationInputSchema+  , _kinesisAnalyticsV2ApplicationInputKinesisFirehoseInput :: Maybe KinesisAnalyticsV2ApplicationKinesisFirehoseInput+  , _kinesisAnalyticsV2ApplicationInputKinesisStreamsInput :: Maybe KinesisAnalyticsV2ApplicationKinesisStreamsInput+  , _kinesisAnalyticsV2ApplicationInputNamePrefix :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationInput where+  toJSON KinesisAnalyticsV2ApplicationInput{..} =+    object $+    catMaybes+    [ fmap (("InputParallelism",) . toJSON) _kinesisAnalyticsV2ApplicationInputInputParallelism+    , fmap (("InputProcessingConfiguration",) . toJSON) _kinesisAnalyticsV2ApplicationInputInputProcessingConfiguration+    , (Just . ("InputSchema",) . toJSON) _kinesisAnalyticsV2ApplicationInputInputSchema+    , fmap (("KinesisFirehoseInput",) . toJSON) _kinesisAnalyticsV2ApplicationInputKinesisFirehoseInput+    , fmap (("KinesisStreamsInput",) . toJSON) _kinesisAnalyticsV2ApplicationInputKinesisStreamsInput+    , (Just . ("NamePrefix",) . toJSON) _kinesisAnalyticsV2ApplicationInputNamePrefix+    ]++instance FromJSON KinesisAnalyticsV2ApplicationInput where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationInput <$>+      (obj .:? "InputParallelism") <*>+      (obj .:? "InputProcessingConfiguration") <*>+      (obj .: "InputSchema") <*>+      (obj .:? "KinesisFirehoseInput") <*>+      (obj .:? "KinesisStreamsInput") <*>+      (obj .: "NamePrefix")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsV2ApplicationInput' containing required+-- fields as arguments.+kinesisAnalyticsV2ApplicationInput+  :: KinesisAnalyticsV2ApplicationInputSchema -- ^ 'kavaiInputSchema'+  -> Val Text -- ^ 'kavaiNamePrefix'+  -> KinesisAnalyticsV2ApplicationInput+kinesisAnalyticsV2ApplicationInput inputSchemaarg namePrefixarg =+  KinesisAnalyticsV2ApplicationInput+  { _kinesisAnalyticsV2ApplicationInputInputParallelism = Nothing+  , _kinesisAnalyticsV2ApplicationInputInputProcessingConfiguration = Nothing+  , _kinesisAnalyticsV2ApplicationInputInputSchema = inputSchemaarg+  , _kinesisAnalyticsV2ApplicationInputKinesisFirehoseInput = Nothing+  , _kinesisAnalyticsV2ApplicationInputKinesisStreamsInput = Nothing+  , _kinesisAnalyticsV2ApplicationInputNamePrefix = namePrefixarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-input.html#cfn-kinesisanalyticsv2-application-input-inputparallelism+kavaiInputParallelism :: Lens' KinesisAnalyticsV2ApplicationInput (Maybe KinesisAnalyticsV2ApplicationInputParallelism)+kavaiInputParallelism = lens _kinesisAnalyticsV2ApplicationInputInputParallelism (\s a -> s { _kinesisAnalyticsV2ApplicationInputInputParallelism = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-input.html#cfn-kinesisanalyticsv2-application-input-inputprocessingconfiguration+kavaiInputProcessingConfiguration :: Lens' KinesisAnalyticsV2ApplicationInput (Maybe KinesisAnalyticsV2ApplicationInputProcessingConfiguration)+kavaiInputProcessingConfiguration = lens _kinesisAnalyticsV2ApplicationInputInputProcessingConfiguration (\s a -> s { _kinesisAnalyticsV2ApplicationInputInputProcessingConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-input.html#cfn-kinesisanalyticsv2-application-input-inputschema+kavaiInputSchema :: Lens' KinesisAnalyticsV2ApplicationInput KinesisAnalyticsV2ApplicationInputSchema+kavaiInputSchema = lens _kinesisAnalyticsV2ApplicationInputInputSchema (\s a -> s { _kinesisAnalyticsV2ApplicationInputInputSchema = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-input.html#cfn-kinesisanalyticsv2-application-input-kinesisfirehoseinput+kavaiKinesisFirehoseInput :: Lens' KinesisAnalyticsV2ApplicationInput (Maybe KinesisAnalyticsV2ApplicationKinesisFirehoseInput)+kavaiKinesisFirehoseInput = lens _kinesisAnalyticsV2ApplicationInputKinesisFirehoseInput (\s a -> s { _kinesisAnalyticsV2ApplicationInputKinesisFirehoseInput = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-input.html#cfn-kinesisanalyticsv2-application-input-kinesisstreamsinput+kavaiKinesisStreamsInput :: Lens' KinesisAnalyticsV2ApplicationInput (Maybe KinesisAnalyticsV2ApplicationKinesisStreamsInput)+kavaiKinesisStreamsInput = lens _kinesisAnalyticsV2ApplicationInputKinesisStreamsInput (\s a -> s { _kinesisAnalyticsV2ApplicationInputKinesisStreamsInput = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-input.html#cfn-kinesisanalyticsv2-application-input-nameprefix+kavaiNamePrefix :: Lens' KinesisAnalyticsV2ApplicationInput (Val Text)+kavaiNamePrefix = lens _kinesisAnalyticsV2ApplicationInputNamePrefix (\s a -> s { _kinesisAnalyticsV2ApplicationInputNamePrefix = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationInputLambdaProcessor.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-inputlambdaprocessor.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInputLambdaProcessor where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- KinesisAnalyticsV2ApplicationInputLambdaProcessor. See+-- 'kinesisAnalyticsV2ApplicationInputLambdaProcessor' for a more convenient+-- constructor.+data KinesisAnalyticsV2ApplicationInputLambdaProcessor =+  KinesisAnalyticsV2ApplicationInputLambdaProcessor+  { _kinesisAnalyticsV2ApplicationInputLambdaProcessorResourceARN :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationInputLambdaProcessor where+  toJSON KinesisAnalyticsV2ApplicationInputLambdaProcessor{..} =+    object $+    catMaybes+    [ (Just . ("ResourceARN",) . toJSON) _kinesisAnalyticsV2ApplicationInputLambdaProcessorResourceARN+    ]++instance FromJSON KinesisAnalyticsV2ApplicationInputLambdaProcessor where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationInputLambdaProcessor <$>+      (obj .: "ResourceARN")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsV2ApplicationInputLambdaProcessor'+-- containing required fields as arguments.+kinesisAnalyticsV2ApplicationInputLambdaProcessor+  :: Val Text -- ^ 'kavailpResourceARN'+  -> KinesisAnalyticsV2ApplicationInputLambdaProcessor+kinesisAnalyticsV2ApplicationInputLambdaProcessor resourceARNarg =+  KinesisAnalyticsV2ApplicationInputLambdaProcessor+  { _kinesisAnalyticsV2ApplicationInputLambdaProcessorResourceARN = resourceARNarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-inputlambdaprocessor.html#cfn-kinesisanalyticsv2-application-inputlambdaprocessor-resourcearn+kavailpResourceARN :: Lens' KinesisAnalyticsV2ApplicationInputLambdaProcessor (Val Text)+kavailpResourceARN = lens _kinesisAnalyticsV2ApplicationInputLambdaProcessorResourceARN (\s a -> s { _kinesisAnalyticsV2ApplicationInputLambdaProcessorResourceARN = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationInputParallelism.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-inputparallelism.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInputParallelism where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- KinesisAnalyticsV2ApplicationInputParallelism. See+-- 'kinesisAnalyticsV2ApplicationInputParallelism' for a more convenient+-- constructor.+data KinesisAnalyticsV2ApplicationInputParallelism =+  KinesisAnalyticsV2ApplicationInputParallelism+  { _kinesisAnalyticsV2ApplicationInputParallelismCount :: Maybe (Val Integer)+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationInputParallelism where+  toJSON KinesisAnalyticsV2ApplicationInputParallelism{..} =+    object $+    catMaybes+    [ fmap (("Count",) . toJSON . fmap Integer') _kinesisAnalyticsV2ApplicationInputParallelismCount+    ]++instance FromJSON KinesisAnalyticsV2ApplicationInputParallelism where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationInputParallelism <$>+      fmap (fmap (fmap unInteger')) (obj .:? "Count")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsV2ApplicationInputParallelism'+-- containing required fields as arguments.+kinesisAnalyticsV2ApplicationInputParallelism+  :: KinesisAnalyticsV2ApplicationInputParallelism+kinesisAnalyticsV2ApplicationInputParallelism  =+  KinesisAnalyticsV2ApplicationInputParallelism+  { _kinesisAnalyticsV2ApplicationInputParallelismCount = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-inputparallelism.html#cfn-kinesisanalyticsv2-application-inputparallelism-count+kavaipCount :: Lens' KinesisAnalyticsV2ApplicationInputParallelism (Maybe (Val Integer))+kavaipCount = lens _kinesisAnalyticsV2ApplicationInputParallelismCount (\s a -> s { _kinesisAnalyticsV2ApplicationInputParallelismCount = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationInputProcessingConfiguration.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-inputprocessingconfiguration.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInputProcessingConfiguration where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInputLambdaProcessor++-- | Full data type definition for+-- KinesisAnalyticsV2ApplicationInputProcessingConfiguration. See+-- 'kinesisAnalyticsV2ApplicationInputProcessingConfiguration' for a more+-- convenient constructor.+data KinesisAnalyticsV2ApplicationInputProcessingConfiguration =+  KinesisAnalyticsV2ApplicationInputProcessingConfiguration+  { _kinesisAnalyticsV2ApplicationInputProcessingConfigurationInputLambdaProcessor :: Maybe KinesisAnalyticsV2ApplicationInputLambdaProcessor+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationInputProcessingConfiguration where+  toJSON KinesisAnalyticsV2ApplicationInputProcessingConfiguration{..} =+    object $+    catMaybes+    [ fmap (("InputLambdaProcessor",) . toJSON) _kinesisAnalyticsV2ApplicationInputProcessingConfigurationInputLambdaProcessor+    ]++instance FromJSON KinesisAnalyticsV2ApplicationInputProcessingConfiguration where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationInputProcessingConfiguration <$>+      (obj .:? "InputLambdaProcessor")+  parseJSON _ = mempty++-- | Constructor for+-- 'KinesisAnalyticsV2ApplicationInputProcessingConfiguration' containing+-- required fields as arguments.+kinesisAnalyticsV2ApplicationInputProcessingConfiguration+  :: KinesisAnalyticsV2ApplicationInputProcessingConfiguration+kinesisAnalyticsV2ApplicationInputProcessingConfiguration  =+  KinesisAnalyticsV2ApplicationInputProcessingConfiguration+  { _kinesisAnalyticsV2ApplicationInputProcessingConfigurationInputLambdaProcessor = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-inputprocessingconfiguration.html#cfn-kinesisanalyticsv2-application-inputprocessingconfiguration-inputlambdaprocessor+kavaipcInputLambdaProcessor :: Lens' KinesisAnalyticsV2ApplicationInputProcessingConfiguration (Maybe KinesisAnalyticsV2ApplicationInputLambdaProcessor)+kavaipcInputLambdaProcessor = lens _kinesisAnalyticsV2ApplicationInputProcessingConfigurationInputLambdaProcessor (\s a -> s { _kinesisAnalyticsV2ApplicationInputProcessingConfigurationInputLambdaProcessor = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationInputSchema.hs view
@@ -0,0 +1,63 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-inputschema.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInputSchema where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationRecordColumn+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationRecordFormat++-- | Full data type definition for KinesisAnalyticsV2ApplicationInputSchema.+-- See 'kinesisAnalyticsV2ApplicationInputSchema' for a more convenient+-- constructor.+data KinesisAnalyticsV2ApplicationInputSchema =+  KinesisAnalyticsV2ApplicationInputSchema+  { _kinesisAnalyticsV2ApplicationInputSchemaRecordColumns :: [KinesisAnalyticsV2ApplicationRecordColumn]+  , _kinesisAnalyticsV2ApplicationInputSchemaRecordEncoding :: Maybe (Val Text)+  , _kinesisAnalyticsV2ApplicationInputSchemaRecordFormat :: KinesisAnalyticsV2ApplicationRecordFormat+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationInputSchema where+  toJSON KinesisAnalyticsV2ApplicationInputSchema{..} =+    object $+    catMaybes+    [ (Just . ("RecordColumns",) . toJSON) _kinesisAnalyticsV2ApplicationInputSchemaRecordColumns+    , fmap (("RecordEncoding",) . toJSON) _kinesisAnalyticsV2ApplicationInputSchemaRecordEncoding+    , (Just . ("RecordFormat",) . toJSON) _kinesisAnalyticsV2ApplicationInputSchemaRecordFormat+    ]++instance FromJSON KinesisAnalyticsV2ApplicationInputSchema where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationInputSchema <$>+      (obj .: "RecordColumns") <*>+      (obj .:? "RecordEncoding") <*>+      (obj .: "RecordFormat")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsV2ApplicationInputSchema' containing+-- required fields as arguments.+kinesisAnalyticsV2ApplicationInputSchema+  :: [KinesisAnalyticsV2ApplicationRecordColumn] -- ^ 'kavaisRecordColumns'+  -> KinesisAnalyticsV2ApplicationRecordFormat -- ^ 'kavaisRecordFormat'+  -> KinesisAnalyticsV2ApplicationInputSchema+kinesisAnalyticsV2ApplicationInputSchema recordColumnsarg recordFormatarg =+  KinesisAnalyticsV2ApplicationInputSchema+  { _kinesisAnalyticsV2ApplicationInputSchemaRecordColumns = recordColumnsarg+  , _kinesisAnalyticsV2ApplicationInputSchemaRecordEncoding = Nothing+  , _kinesisAnalyticsV2ApplicationInputSchemaRecordFormat = recordFormatarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-inputschema.html#cfn-kinesisanalyticsv2-application-inputschema-recordcolumns+kavaisRecordColumns :: Lens' KinesisAnalyticsV2ApplicationInputSchema [KinesisAnalyticsV2ApplicationRecordColumn]+kavaisRecordColumns = lens _kinesisAnalyticsV2ApplicationInputSchemaRecordColumns (\s a -> s { _kinesisAnalyticsV2ApplicationInputSchemaRecordColumns = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-inputschema.html#cfn-kinesisanalyticsv2-application-inputschema-recordencoding+kavaisRecordEncoding :: Lens' KinesisAnalyticsV2ApplicationInputSchema (Maybe (Val Text))+kavaisRecordEncoding = lens _kinesisAnalyticsV2ApplicationInputSchemaRecordEncoding (\s a -> s { _kinesisAnalyticsV2ApplicationInputSchemaRecordEncoding = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-inputschema.html#cfn-kinesisanalyticsv2-application-inputschema-recordformat+kavaisRecordFormat :: Lens' KinesisAnalyticsV2ApplicationInputSchema KinesisAnalyticsV2ApplicationRecordFormat+kavaisRecordFormat = lens _kinesisAnalyticsV2ApplicationInputSchemaRecordFormat (\s a -> s { _kinesisAnalyticsV2ApplicationInputSchemaRecordFormat = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationJSONMappingParameters.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-jsonmappingparameters.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationJSONMappingParameters where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- KinesisAnalyticsV2ApplicationJSONMappingParameters. See+-- 'kinesisAnalyticsV2ApplicationJSONMappingParameters' for a more+-- convenient constructor.+data KinesisAnalyticsV2ApplicationJSONMappingParameters =+  KinesisAnalyticsV2ApplicationJSONMappingParameters+  { _kinesisAnalyticsV2ApplicationJSONMappingParametersRecordRowPath :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationJSONMappingParameters where+  toJSON KinesisAnalyticsV2ApplicationJSONMappingParameters{..} =+    object $+    catMaybes+    [ (Just . ("RecordRowPath",) . toJSON) _kinesisAnalyticsV2ApplicationJSONMappingParametersRecordRowPath+    ]++instance FromJSON KinesisAnalyticsV2ApplicationJSONMappingParameters where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationJSONMappingParameters <$>+      (obj .: "RecordRowPath")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsV2ApplicationJSONMappingParameters'+-- containing required fields as arguments.+kinesisAnalyticsV2ApplicationJSONMappingParameters+  :: Val Text -- ^ 'kavajsonmpRecordRowPath'+  -> KinesisAnalyticsV2ApplicationJSONMappingParameters+kinesisAnalyticsV2ApplicationJSONMappingParameters recordRowPatharg =+  KinesisAnalyticsV2ApplicationJSONMappingParameters+  { _kinesisAnalyticsV2ApplicationJSONMappingParametersRecordRowPath = recordRowPatharg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-jsonmappingparameters.html#cfn-kinesisanalyticsv2-application-jsonmappingparameters-recordrowpath+kavajsonmpRecordRowPath :: Lens' KinesisAnalyticsV2ApplicationJSONMappingParameters (Val Text)+kavajsonmpRecordRowPath = lens _kinesisAnalyticsV2ApplicationJSONMappingParametersRecordRowPath (\s a -> s { _kinesisAnalyticsV2ApplicationJSONMappingParametersRecordRowPath = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationKinesisFirehoseInput.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-kinesisfirehoseinput.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationKinesisFirehoseInput where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- KinesisAnalyticsV2ApplicationKinesisFirehoseInput. See+-- 'kinesisAnalyticsV2ApplicationKinesisFirehoseInput' for a more convenient+-- constructor.+data KinesisAnalyticsV2ApplicationKinesisFirehoseInput =+  KinesisAnalyticsV2ApplicationKinesisFirehoseInput+  { _kinesisAnalyticsV2ApplicationKinesisFirehoseInputResourceARN :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationKinesisFirehoseInput where+  toJSON KinesisAnalyticsV2ApplicationKinesisFirehoseInput{..} =+    object $+    catMaybes+    [ (Just . ("ResourceARN",) . toJSON) _kinesisAnalyticsV2ApplicationKinesisFirehoseInputResourceARN+    ]++instance FromJSON KinesisAnalyticsV2ApplicationKinesisFirehoseInput where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationKinesisFirehoseInput <$>+      (obj .: "ResourceARN")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsV2ApplicationKinesisFirehoseInput'+-- containing required fields as arguments.+kinesisAnalyticsV2ApplicationKinesisFirehoseInput+  :: Val Text -- ^ 'kavakfiResourceARN'+  -> KinesisAnalyticsV2ApplicationKinesisFirehoseInput+kinesisAnalyticsV2ApplicationKinesisFirehoseInput resourceARNarg =+  KinesisAnalyticsV2ApplicationKinesisFirehoseInput+  { _kinesisAnalyticsV2ApplicationKinesisFirehoseInputResourceARN = resourceARNarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-kinesisfirehoseinput.html#cfn-kinesisanalyticsv2-application-kinesisfirehoseinput-resourcearn+kavakfiResourceARN :: Lens' KinesisAnalyticsV2ApplicationKinesisFirehoseInput (Val Text)+kavakfiResourceARN = lens _kinesisAnalyticsV2ApplicationKinesisFirehoseInputResourceARN (\s a -> s { _kinesisAnalyticsV2ApplicationKinesisFirehoseInputResourceARN = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationKinesisStreamsInput.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-kinesisstreamsinput.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationKinesisStreamsInput where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- KinesisAnalyticsV2ApplicationKinesisStreamsInput. See+-- 'kinesisAnalyticsV2ApplicationKinesisStreamsInput' for a more convenient+-- constructor.+data KinesisAnalyticsV2ApplicationKinesisStreamsInput =+  KinesisAnalyticsV2ApplicationKinesisStreamsInput+  { _kinesisAnalyticsV2ApplicationKinesisStreamsInputResourceARN :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationKinesisStreamsInput where+  toJSON KinesisAnalyticsV2ApplicationKinesisStreamsInput{..} =+    object $+    catMaybes+    [ (Just . ("ResourceARN",) . toJSON) _kinesisAnalyticsV2ApplicationKinesisStreamsInputResourceARN+    ]++instance FromJSON KinesisAnalyticsV2ApplicationKinesisStreamsInput where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationKinesisStreamsInput <$>+      (obj .: "ResourceARN")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsV2ApplicationKinesisStreamsInput'+-- containing required fields as arguments.+kinesisAnalyticsV2ApplicationKinesisStreamsInput+  :: Val Text -- ^ 'kavaksiResourceARN'+  -> KinesisAnalyticsV2ApplicationKinesisStreamsInput+kinesisAnalyticsV2ApplicationKinesisStreamsInput resourceARNarg =+  KinesisAnalyticsV2ApplicationKinesisStreamsInput+  { _kinesisAnalyticsV2ApplicationKinesisStreamsInputResourceARN = resourceARNarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-kinesisstreamsinput.html#cfn-kinesisanalyticsv2-application-kinesisstreamsinput-resourcearn+kavaksiResourceARN :: Lens' KinesisAnalyticsV2ApplicationKinesisStreamsInput (Val Text)+kavaksiResourceARN = lens _kinesisAnalyticsV2ApplicationKinesisStreamsInputResourceARN (\s a -> s { _kinesisAnalyticsV2ApplicationKinesisStreamsInputResourceARN = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationMappingParameters.hs view
@@ -0,0 +1,54 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-mappingparameters.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationMappingParameters where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationCSVMappingParameters+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationJSONMappingParameters++-- | Full data type definition for+-- KinesisAnalyticsV2ApplicationMappingParameters. See+-- 'kinesisAnalyticsV2ApplicationMappingParameters' for a more convenient+-- constructor.+data KinesisAnalyticsV2ApplicationMappingParameters =+  KinesisAnalyticsV2ApplicationMappingParameters+  { _kinesisAnalyticsV2ApplicationMappingParametersCSVMappingParameters :: Maybe KinesisAnalyticsV2ApplicationCSVMappingParameters+  , _kinesisAnalyticsV2ApplicationMappingParametersJSONMappingParameters :: Maybe KinesisAnalyticsV2ApplicationJSONMappingParameters+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationMappingParameters where+  toJSON KinesisAnalyticsV2ApplicationMappingParameters{..} =+    object $+    catMaybes+    [ fmap (("CSVMappingParameters",) . toJSON) _kinesisAnalyticsV2ApplicationMappingParametersCSVMappingParameters+    , fmap (("JSONMappingParameters",) . toJSON) _kinesisAnalyticsV2ApplicationMappingParametersJSONMappingParameters+    ]++instance FromJSON KinesisAnalyticsV2ApplicationMappingParameters where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationMappingParameters <$>+      (obj .:? "CSVMappingParameters") <*>+      (obj .:? "JSONMappingParameters")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsV2ApplicationMappingParameters'+-- containing required fields as arguments.+kinesisAnalyticsV2ApplicationMappingParameters+  :: KinesisAnalyticsV2ApplicationMappingParameters+kinesisAnalyticsV2ApplicationMappingParameters  =+  KinesisAnalyticsV2ApplicationMappingParameters+  { _kinesisAnalyticsV2ApplicationMappingParametersCSVMappingParameters = Nothing+  , _kinesisAnalyticsV2ApplicationMappingParametersJSONMappingParameters = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-mappingparameters.html#cfn-kinesisanalyticsv2-application-mappingparameters-csvmappingparameters+kavampCSVMappingParameters :: Lens' KinesisAnalyticsV2ApplicationMappingParameters (Maybe KinesisAnalyticsV2ApplicationCSVMappingParameters)+kavampCSVMappingParameters = lens _kinesisAnalyticsV2ApplicationMappingParametersCSVMappingParameters (\s a -> s { _kinesisAnalyticsV2ApplicationMappingParametersCSVMappingParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-mappingparameters.html#cfn-kinesisanalyticsv2-application-mappingparameters-jsonmappingparameters+kavampJSONMappingParameters :: Lens' KinesisAnalyticsV2ApplicationMappingParameters (Maybe KinesisAnalyticsV2ApplicationJSONMappingParameters)+kavampJSONMappingParameters = lens _kinesisAnalyticsV2ApplicationMappingParametersJSONMappingParameters (\s a -> s { _kinesisAnalyticsV2ApplicationMappingParametersJSONMappingParameters = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationMonitoringConfiguration.hs view
@@ -0,0 +1,62 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-monitoringconfiguration.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationMonitoringConfiguration where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- KinesisAnalyticsV2ApplicationMonitoringConfiguration. See+-- 'kinesisAnalyticsV2ApplicationMonitoringConfiguration' for a more+-- convenient constructor.+data KinesisAnalyticsV2ApplicationMonitoringConfiguration =+  KinesisAnalyticsV2ApplicationMonitoringConfiguration+  { _kinesisAnalyticsV2ApplicationMonitoringConfigurationConfigurationType :: Val Text+  , _kinesisAnalyticsV2ApplicationMonitoringConfigurationLogLevel :: Maybe (Val Text)+  , _kinesisAnalyticsV2ApplicationMonitoringConfigurationMetricsLevel :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationMonitoringConfiguration where+  toJSON KinesisAnalyticsV2ApplicationMonitoringConfiguration{..} =+    object $+    catMaybes+    [ (Just . ("ConfigurationType",) . toJSON) _kinesisAnalyticsV2ApplicationMonitoringConfigurationConfigurationType+    , fmap (("LogLevel",) . toJSON) _kinesisAnalyticsV2ApplicationMonitoringConfigurationLogLevel+    , fmap (("MetricsLevel",) . toJSON) _kinesisAnalyticsV2ApplicationMonitoringConfigurationMetricsLevel+    ]++instance FromJSON KinesisAnalyticsV2ApplicationMonitoringConfiguration where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationMonitoringConfiguration <$>+      (obj .: "ConfigurationType") <*>+      (obj .:? "LogLevel") <*>+      (obj .:? "MetricsLevel")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsV2ApplicationMonitoringConfiguration'+-- containing required fields as arguments.+kinesisAnalyticsV2ApplicationMonitoringConfiguration+  :: Val Text -- ^ 'kavamcConfigurationType'+  -> KinesisAnalyticsV2ApplicationMonitoringConfiguration+kinesisAnalyticsV2ApplicationMonitoringConfiguration configurationTypearg =+  KinesisAnalyticsV2ApplicationMonitoringConfiguration+  { _kinesisAnalyticsV2ApplicationMonitoringConfigurationConfigurationType = configurationTypearg+  , _kinesisAnalyticsV2ApplicationMonitoringConfigurationLogLevel = Nothing+  , _kinesisAnalyticsV2ApplicationMonitoringConfigurationMetricsLevel = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-monitoringconfiguration.html#cfn-kinesisanalyticsv2-application-monitoringconfiguration-configurationtype+kavamcConfigurationType :: Lens' KinesisAnalyticsV2ApplicationMonitoringConfiguration (Val Text)+kavamcConfigurationType = lens _kinesisAnalyticsV2ApplicationMonitoringConfigurationConfigurationType (\s a -> s { _kinesisAnalyticsV2ApplicationMonitoringConfigurationConfigurationType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-monitoringconfiguration.html#cfn-kinesisanalyticsv2-application-monitoringconfiguration-loglevel+kavamcLogLevel :: Lens' KinesisAnalyticsV2ApplicationMonitoringConfiguration (Maybe (Val Text))+kavamcLogLevel = lens _kinesisAnalyticsV2ApplicationMonitoringConfigurationLogLevel (\s a -> s { _kinesisAnalyticsV2ApplicationMonitoringConfigurationLogLevel = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-monitoringconfiguration.html#cfn-kinesisanalyticsv2-application-monitoringconfiguration-metricslevel+kavamcMetricsLevel :: Lens' KinesisAnalyticsV2ApplicationMonitoringConfiguration (Maybe (Val Text))+kavamcMetricsLevel = lens _kinesisAnalyticsV2ApplicationMonitoringConfigurationMetricsLevel (\s a -> s { _kinesisAnalyticsV2ApplicationMonitoringConfigurationMetricsLevel = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationOutputDestinationSchema.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationoutput-destinationschema.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputDestinationSchema where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- KinesisAnalyticsV2ApplicationOutputDestinationSchema. See+-- 'kinesisAnalyticsV2ApplicationOutputDestinationSchema' for a more+-- convenient constructor.+data KinesisAnalyticsV2ApplicationOutputDestinationSchema =+  KinesisAnalyticsV2ApplicationOutputDestinationSchema+  { _kinesisAnalyticsV2ApplicationOutputDestinationSchemaRecordFormatType :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationOutputDestinationSchema where+  toJSON KinesisAnalyticsV2ApplicationOutputDestinationSchema{..} =+    object $+    catMaybes+    [ fmap (("RecordFormatType",) . toJSON) _kinesisAnalyticsV2ApplicationOutputDestinationSchemaRecordFormatType+    ]++instance FromJSON KinesisAnalyticsV2ApplicationOutputDestinationSchema where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationOutputDestinationSchema <$>+      (obj .:? "RecordFormatType")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsV2ApplicationOutputDestinationSchema'+-- containing required fields as arguments.+kinesisAnalyticsV2ApplicationOutputDestinationSchema+  :: KinesisAnalyticsV2ApplicationOutputDestinationSchema+kinesisAnalyticsV2ApplicationOutputDestinationSchema  =+  KinesisAnalyticsV2ApplicationOutputDestinationSchema+  { _kinesisAnalyticsV2ApplicationOutputDestinationSchemaRecordFormatType = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationoutput-destinationschema.html#cfn-kinesisanalyticsv2-applicationoutput-destinationschema-recordformattype+kavaodsRecordFormatType :: Lens' KinesisAnalyticsV2ApplicationOutputDestinationSchema (Maybe (Val Text))+kavaodsRecordFormatType = lens _kinesisAnalyticsV2ApplicationOutputDestinationSchemaRecordFormatType (\s a -> s { _kinesisAnalyticsV2ApplicationOutputDestinationSchemaRecordFormatType = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationoutput-kinesisfirehoseoutput.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput. See+-- 'kinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput' for a more+-- convenient constructor.+data KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput =+  KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput+  { _kinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutputResourceARN :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput where+  toJSON KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput{..} =+    object $+    catMaybes+    [ (Just . ("ResourceARN",) . toJSON) _kinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutputResourceARN+    ]++instance FromJSON KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput <$>+      (obj .: "ResourceARN")+  parseJSON _ = mempty++-- | Constructor for+-- 'KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput' containing+-- required fields as arguments.+kinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput+  :: Val Text -- ^ 'kavaokfoResourceARN'+  -> KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput+kinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput resourceARNarg =+  KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput+  { _kinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutputResourceARN = resourceARNarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationoutput-kinesisfirehoseoutput.html#cfn-kinesisanalyticsv2-applicationoutput-kinesisfirehoseoutput-resourcearn+kavaokfoResourceARN :: Lens' KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput (Val Text)+kavaokfoResourceARN = lens _kinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutputResourceARN (\s a -> s { _kinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutputResourceARN = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationoutput-kinesisstreamsoutput.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput. See+-- 'kinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput' for a more+-- convenient constructor.+data KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput =+  KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput+  { _kinesisAnalyticsV2ApplicationOutputKinesisStreamsOutputResourceARN :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput where+  toJSON KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput{..} =+    object $+    catMaybes+    [ (Just . ("ResourceARN",) . toJSON) _kinesisAnalyticsV2ApplicationOutputKinesisStreamsOutputResourceARN+    ]++instance FromJSON KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput <$>+      (obj .: "ResourceARN")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput'+-- containing required fields as arguments.+kinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput+  :: Val Text -- ^ 'kavaoksoResourceARN'+  -> KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput+kinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput resourceARNarg =+  KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput+  { _kinesisAnalyticsV2ApplicationOutputKinesisStreamsOutputResourceARN = resourceARNarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationoutput-kinesisstreamsoutput.html#cfn-kinesisanalyticsv2-applicationoutput-kinesisstreamsoutput-resourcearn+kavaoksoResourceARN :: Lens' KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput (Val Text)+kavaoksoResourceARN = lens _kinesisAnalyticsV2ApplicationOutputKinesisStreamsOutputResourceARN (\s a -> s { _kinesisAnalyticsV2ApplicationOutputKinesisStreamsOutputResourceARN = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationOutputLambdaOutput.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationoutput-lambdaoutput.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputLambdaOutput where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- KinesisAnalyticsV2ApplicationOutputLambdaOutput. See+-- 'kinesisAnalyticsV2ApplicationOutputLambdaOutput' for a more convenient+-- constructor.+data KinesisAnalyticsV2ApplicationOutputLambdaOutput =+  KinesisAnalyticsV2ApplicationOutputLambdaOutput+  { _kinesisAnalyticsV2ApplicationOutputLambdaOutputResourceARN :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationOutputLambdaOutput where+  toJSON KinesisAnalyticsV2ApplicationOutputLambdaOutput{..} =+    object $+    catMaybes+    [ (Just . ("ResourceARN",) . toJSON) _kinesisAnalyticsV2ApplicationOutputLambdaOutputResourceARN+    ]++instance FromJSON KinesisAnalyticsV2ApplicationOutputLambdaOutput where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationOutputLambdaOutput <$>+      (obj .: "ResourceARN")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsV2ApplicationOutputLambdaOutput'+-- containing required fields as arguments.+kinesisAnalyticsV2ApplicationOutputLambdaOutput+  :: Val Text -- ^ 'kavaoloResourceARN'+  -> KinesisAnalyticsV2ApplicationOutputLambdaOutput+kinesisAnalyticsV2ApplicationOutputLambdaOutput resourceARNarg =+  KinesisAnalyticsV2ApplicationOutputLambdaOutput+  { _kinesisAnalyticsV2ApplicationOutputLambdaOutputResourceARN = resourceARNarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationoutput-lambdaoutput.html#cfn-kinesisanalyticsv2-applicationoutput-lambdaoutput-resourcearn+kavaoloResourceARN :: Lens' KinesisAnalyticsV2ApplicationOutputLambdaOutput (Val Text)+kavaoloResourceARN = lens _kinesisAnalyticsV2ApplicationOutputLambdaOutputResourceARN (\s a -> s { _kinesisAnalyticsV2ApplicationOutputLambdaOutputResourceARN = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationOutputOutput.hs view
@@ -0,0 +1,80 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationoutput-output.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputOutput where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputDestinationSchema+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputLambdaOutput++-- | Full data type definition for KinesisAnalyticsV2ApplicationOutputOutput.+-- See 'kinesisAnalyticsV2ApplicationOutputOutput' for a more convenient+-- constructor.+data KinesisAnalyticsV2ApplicationOutputOutput =+  KinesisAnalyticsV2ApplicationOutputOutput+  { _kinesisAnalyticsV2ApplicationOutputOutputDestinationSchema :: KinesisAnalyticsV2ApplicationOutputDestinationSchema+  , _kinesisAnalyticsV2ApplicationOutputOutputKinesisFirehoseOutput :: Maybe KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput+  , _kinesisAnalyticsV2ApplicationOutputOutputKinesisStreamsOutput :: Maybe KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput+  , _kinesisAnalyticsV2ApplicationOutputOutputLambdaOutput :: Maybe KinesisAnalyticsV2ApplicationOutputLambdaOutput+  , _kinesisAnalyticsV2ApplicationOutputOutputName :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationOutputOutput where+  toJSON KinesisAnalyticsV2ApplicationOutputOutput{..} =+    object $+    catMaybes+    [ (Just . ("DestinationSchema",) . toJSON) _kinesisAnalyticsV2ApplicationOutputOutputDestinationSchema+    , fmap (("KinesisFirehoseOutput",) . toJSON) _kinesisAnalyticsV2ApplicationOutputOutputKinesisFirehoseOutput+    , fmap (("KinesisStreamsOutput",) . toJSON) _kinesisAnalyticsV2ApplicationOutputOutputKinesisStreamsOutput+    , fmap (("LambdaOutput",) . toJSON) _kinesisAnalyticsV2ApplicationOutputOutputLambdaOutput+    , fmap (("Name",) . toJSON) _kinesisAnalyticsV2ApplicationOutputOutputName+    ]++instance FromJSON KinesisAnalyticsV2ApplicationOutputOutput where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationOutputOutput <$>+      (obj .: "DestinationSchema") <*>+      (obj .:? "KinesisFirehoseOutput") <*>+      (obj .:? "KinesisStreamsOutput") <*>+      (obj .:? "LambdaOutput") <*>+      (obj .:? "Name")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsV2ApplicationOutputOutput' containing+-- required fields as arguments.+kinesisAnalyticsV2ApplicationOutputOutput+  :: KinesisAnalyticsV2ApplicationOutputDestinationSchema -- ^ 'kavaooDestinationSchema'+  -> KinesisAnalyticsV2ApplicationOutputOutput+kinesisAnalyticsV2ApplicationOutputOutput destinationSchemaarg =+  KinesisAnalyticsV2ApplicationOutputOutput+  { _kinesisAnalyticsV2ApplicationOutputOutputDestinationSchema = destinationSchemaarg+  , _kinesisAnalyticsV2ApplicationOutputOutputKinesisFirehoseOutput = Nothing+  , _kinesisAnalyticsV2ApplicationOutputOutputKinesisStreamsOutput = Nothing+  , _kinesisAnalyticsV2ApplicationOutputOutputLambdaOutput = Nothing+  , _kinesisAnalyticsV2ApplicationOutputOutputName = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationoutput-output.html#cfn-kinesisanalyticsv2-applicationoutput-output-destinationschema+kavaooDestinationSchema :: Lens' KinesisAnalyticsV2ApplicationOutputOutput KinesisAnalyticsV2ApplicationOutputDestinationSchema+kavaooDestinationSchema = lens _kinesisAnalyticsV2ApplicationOutputOutputDestinationSchema (\s a -> s { _kinesisAnalyticsV2ApplicationOutputOutputDestinationSchema = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationoutput-output.html#cfn-kinesisanalyticsv2-applicationoutput-output-kinesisfirehoseoutput+kavaooKinesisFirehoseOutput :: Lens' KinesisAnalyticsV2ApplicationOutputOutput (Maybe KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput)+kavaooKinesisFirehoseOutput = lens _kinesisAnalyticsV2ApplicationOutputOutputKinesisFirehoseOutput (\s a -> s { _kinesisAnalyticsV2ApplicationOutputOutputKinesisFirehoseOutput = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationoutput-output.html#cfn-kinesisanalyticsv2-applicationoutput-output-kinesisstreamsoutput+kavaooKinesisStreamsOutput :: Lens' KinesisAnalyticsV2ApplicationOutputOutput (Maybe KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput)+kavaooKinesisStreamsOutput = lens _kinesisAnalyticsV2ApplicationOutputOutputKinesisStreamsOutput (\s a -> s { _kinesisAnalyticsV2ApplicationOutputOutputKinesisStreamsOutput = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationoutput-output.html#cfn-kinesisanalyticsv2-applicationoutput-output-lambdaoutput+kavaooLambdaOutput :: Lens' KinesisAnalyticsV2ApplicationOutputOutput (Maybe KinesisAnalyticsV2ApplicationOutputLambdaOutput)+kavaooLambdaOutput = lens _kinesisAnalyticsV2ApplicationOutputOutputLambdaOutput (\s a -> s { _kinesisAnalyticsV2ApplicationOutputOutputLambdaOutput = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationoutput-output.html#cfn-kinesisanalyticsv2-applicationoutput-output-name+kavaooName :: Lens' KinesisAnalyticsV2ApplicationOutputOutput (Maybe (Val Text))+kavaooName = lens _kinesisAnalyticsV2ApplicationOutputOutputName (\s a -> s { _kinesisAnalyticsV2ApplicationOutputOutputName = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationParallelismConfiguration.hs view
@@ -0,0 +1,70 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-parallelismconfiguration.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationParallelismConfiguration where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- KinesisAnalyticsV2ApplicationParallelismConfiguration. See+-- 'kinesisAnalyticsV2ApplicationParallelismConfiguration' for a more+-- convenient constructor.+data KinesisAnalyticsV2ApplicationParallelismConfiguration =+  KinesisAnalyticsV2ApplicationParallelismConfiguration+  { _kinesisAnalyticsV2ApplicationParallelismConfigurationAutoScalingEnabled :: Maybe (Val Bool)+  , _kinesisAnalyticsV2ApplicationParallelismConfigurationConfigurationType :: Val Text+  , _kinesisAnalyticsV2ApplicationParallelismConfigurationParallelism :: Maybe (Val Integer)+  , _kinesisAnalyticsV2ApplicationParallelismConfigurationParallelismPerKPU :: Maybe (Val Integer)+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationParallelismConfiguration where+  toJSON KinesisAnalyticsV2ApplicationParallelismConfiguration{..} =+    object $+    catMaybes+    [ fmap (("AutoScalingEnabled",) . toJSON . fmap Bool') _kinesisAnalyticsV2ApplicationParallelismConfigurationAutoScalingEnabled+    , (Just . ("ConfigurationType",) . toJSON) _kinesisAnalyticsV2ApplicationParallelismConfigurationConfigurationType+    , fmap (("Parallelism",) . toJSON . fmap Integer') _kinesisAnalyticsV2ApplicationParallelismConfigurationParallelism+    , fmap (("ParallelismPerKPU",) . toJSON . fmap Integer') _kinesisAnalyticsV2ApplicationParallelismConfigurationParallelismPerKPU+    ]++instance FromJSON KinesisAnalyticsV2ApplicationParallelismConfiguration where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationParallelismConfiguration <$>+      fmap (fmap (fmap unBool')) (obj .:? "AutoScalingEnabled") <*>+      (obj .: "ConfigurationType") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "Parallelism") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "ParallelismPerKPU")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsV2ApplicationParallelismConfiguration'+-- containing required fields as arguments.+kinesisAnalyticsV2ApplicationParallelismConfiguration+  :: Val Text -- ^ 'kavapcConfigurationType'+  -> KinesisAnalyticsV2ApplicationParallelismConfiguration+kinesisAnalyticsV2ApplicationParallelismConfiguration configurationTypearg =+  KinesisAnalyticsV2ApplicationParallelismConfiguration+  { _kinesisAnalyticsV2ApplicationParallelismConfigurationAutoScalingEnabled = Nothing+  , _kinesisAnalyticsV2ApplicationParallelismConfigurationConfigurationType = configurationTypearg+  , _kinesisAnalyticsV2ApplicationParallelismConfigurationParallelism = Nothing+  , _kinesisAnalyticsV2ApplicationParallelismConfigurationParallelismPerKPU = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-parallelismconfiguration.html#cfn-kinesisanalyticsv2-application-parallelismconfiguration-autoscalingenabled+kavapcAutoScalingEnabled :: Lens' KinesisAnalyticsV2ApplicationParallelismConfiguration (Maybe (Val Bool))+kavapcAutoScalingEnabled = lens _kinesisAnalyticsV2ApplicationParallelismConfigurationAutoScalingEnabled (\s a -> s { _kinesisAnalyticsV2ApplicationParallelismConfigurationAutoScalingEnabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-parallelismconfiguration.html#cfn-kinesisanalyticsv2-application-parallelismconfiguration-configurationtype+kavapcConfigurationType :: Lens' KinesisAnalyticsV2ApplicationParallelismConfiguration (Val Text)+kavapcConfigurationType = lens _kinesisAnalyticsV2ApplicationParallelismConfigurationConfigurationType (\s a -> s { _kinesisAnalyticsV2ApplicationParallelismConfigurationConfigurationType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-parallelismconfiguration.html#cfn-kinesisanalyticsv2-application-parallelismconfiguration-parallelism+kavapcParallelism :: Lens' KinesisAnalyticsV2ApplicationParallelismConfiguration (Maybe (Val Integer))+kavapcParallelism = lens _kinesisAnalyticsV2ApplicationParallelismConfigurationParallelism (\s a -> s { _kinesisAnalyticsV2ApplicationParallelismConfigurationParallelism = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-parallelismconfiguration.html#cfn-kinesisanalyticsv2-application-parallelismconfiguration-parallelismperkpu+kavapcParallelismPerKPU :: Lens' KinesisAnalyticsV2ApplicationParallelismConfiguration (Maybe (Val Integer))+kavapcParallelismPerKPU = lens _kinesisAnalyticsV2ApplicationParallelismConfigurationParallelismPerKPU (\s a -> s { _kinesisAnalyticsV2ApplicationParallelismConfigurationParallelismPerKPU = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationPropertyGroup.hs view
@@ -0,0 +1,52 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-propertygroup.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationPropertyGroup where++import Stratosphere.ResourceImports+++-- | Full data type definition for KinesisAnalyticsV2ApplicationPropertyGroup.+-- See 'kinesisAnalyticsV2ApplicationPropertyGroup' for a more convenient+-- constructor.+data KinesisAnalyticsV2ApplicationPropertyGroup =+  KinesisAnalyticsV2ApplicationPropertyGroup+  { _kinesisAnalyticsV2ApplicationPropertyGroupPropertyGroupId :: Maybe (Val Text)+  , _kinesisAnalyticsV2ApplicationPropertyGroupPropertyMap :: Maybe Object+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationPropertyGroup where+  toJSON KinesisAnalyticsV2ApplicationPropertyGroup{..} =+    object $+    catMaybes+    [ fmap (("PropertyGroupId",) . toJSON) _kinesisAnalyticsV2ApplicationPropertyGroupPropertyGroupId+    , fmap (("PropertyMap",) . toJSON) _kinesisAnalyticsV2ApplicationPropertyGroupPropertyMap+    ]++instance FromJSON KinesisAnalyticsV2ApplicationPropertyGroup where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationPropertyGroup <$>+      (obj .:? "PropertyGroupId") <*>+      (obj .:? "PropertyMap")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsV2ApplicationPropertyGroup' containing+-- required fields as arguments.+kinesisAnalyticsV2ApplicationPropertyGroup+  :: KinesisAnalyticsV2ApplicationPropertyGroup+kinesisAnalyticsV2ApplicationPropertyGroup  =+  KinesisAnalyticsV2ApplicationPropertyGroup+  { _kinesisAnalyticsV2ApplicationPropertyGroupPropertyGroupId = Nothing+  , _kinesisAnalyticsV2ApplicationPropertyGroupPropertyMap = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-propertygroup.html#cfn-kinesisanalyticsv2-application-propertygroup-propertygroupid+kavapgPropertyGroupId :: Lens' KinesisAnalyticsV2ApplicationPropertyGroup (Maybe (Val Text))+kavapgPropertyGroupId = lens _kinesisAnalyticsV2ApplicationPropertyGroupPropertyGroupId (\s a -> s { _kinesisAnalyticsV2ApplicationPropertyGroupPropertyGroupId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-propertygroup.html#cfn-kinesisanalyticsv2-application-propertygroup-propertymap+kavapgPropertyMap :: Lens' KinesisAnalyticsV2ApplicationPropertyGroup (Maybe Object)+kavapgPropertyMap = lens _kinesisAnalyticsV2ApplicationPropertyGroupPropertyMap (\s a -> s { _kinesisAnalyticsV2ApplicationPropertyGroupPropertyMap = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationRecordColumn.hs view
@@ -0,0 +1,62 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-recordcolumn.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationRecordColumn where++import Stratosphere.ResourceImports+++-- | Full data type definition for KinesisAnalyticsV2ApplicationRecordColumn.+-- See 'kinesisAnalyticsV2ApplicationRecordColumn' for a more convenient+-- constructor.+data KinesisAnalyticsV2ApplicationRecordColumn =+  KinesisAnalyticsV2ApplicationRecordColumn+  { _kinesisAnalyticsV2ApplicationRecordColumnMapping :: Maybe (Val Text)+  , _kinesisAnalyticsV2ApplicationRecordColumnName :: Val Text+  , _kinesisAnalyticsV2ApplicationRecordColumnSqlType :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationRecordColumn where+  toJSON KinesisAnalyticsV2ApplicationRecordColumn{..} =+    object $+    catMaybes+    [ fmap (("Mapping",) . toJSON) _kinesisAnalyticsV2ApplicationRecordColumnMapping+    , (Just . ("Name",) . toJSON) _kinesisAnalyticsV2ApplicationRecordColumnName+    , (Just . ("SqlType",) . toJSON) _kinesisAnalyticsV2ApplicationRecordColumnSqlType+    ]++instance FromJSON KinesisAnalyticsV2ApplicationRecordColumn where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationRecordColumn <$>+      (obj .:? "Mapping") <*>+      (obj .: "Name") <*>+      (obj .: "SqlType")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsV2ApplicationRecordColumn' containing+-- required fields as arguments.+kinesisAnalyticsV2ApplicationRecordColumn+  :: Val Text -- ^ 'kavarcName'+  -> Val Text -- ^ 'kavarcSqlType'+  -> KinesisAnalyticsV2ApplicationRecordColumn+kinesisAnalyticsV2ApplicationRecordColumn namearg sqlTypearg =+  KinesisAnalyticsV2ApplicationRecordColumn+  { _kinesisAnalyticsV2ApplicationRecordColumnMapping = Nothing+  , _kinesisAnalyticsV2ApplicationRecordColumnName = namearg+  , _kinesisAnalyticsV2ApplicationRecordColumnSqlType = sqlTypearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-recordcolumn.html#cfn-kinesisanalyticsv2-application-recordcolumn-mapping+kavarcMapping :: Lens' KinesisAnalyticsV2ApplicationRecordColumn (Maybe (Val Text))+kavarcMapping = lens _kinesisAnalyticsV2ApplicationRecordColumnMapping (\s a -> s { _kinesisAnalyticsV2ApplicationRecordColumnMapping = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-recordcolumn.html#cfn-kinesisanalyticsv2-application-recordcolumn-name+kavarcName :: Lens' KinesisAnalyticsV2ApplicationRecordColumn (Val Text)+kavarcName = lens _kinesisAnalyticsV2ApplicationRecordColumnName (\s a -> s { _kinesisAnalyticsV2ApplicationRecordColumnName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-recordcolumn.html#cfn-kinesisanalyticsv2-application-recordcolumn-sqltype+kavarcSqlType :: Lens' KinesisAnalyticsV2ApplicationRecordColumn (Val Text)+kavarcSqlType = lens _kinesisAnalyticsV2ApplicationRecordColumnSqlType (\s a -> s { _kinesisAnalyticsV2ApplicationRecordColumnSqlType = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationRecordFormat.hs view
@@ -0,0 +1,53 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-recordformat.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationRecordFormat where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationMappingParameters++-- | Full data type definition for KinesisAnalyticsV2ApplicationRecordFormat.+-- See 'kinesisAnalyticsV2ApplicationRecordFormat' for a more convenient+-- constructor.+data KinesisAnalyticsV2ApplicationRecordFormat =+  KinesisAnalyticsV2ApplicationRecordFormat+  { _kinesisAnalyticsV2ApplicationRecordFormatMappingParameters :: Maybe KinesisAnalyticsV2ApplicationMappingParameters+  , _kinesisAnalyticsV2ApplicationRecordFormatRecordFormatType :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationRecordFormat where+  toJSON KinesisAnalyticsV2ApplicationRecordFormat{..} =+    object $+    catMaybes+    [ fmap (("MappingParameters",) . toJSON) _kinesisAnalyticsV2ApplicationRecordFormatMappingParameters+    , (Just . ("RecordFormatType",) . toJSON) _kinesisAnalyticsV2ApplicationRecordFormatRecordFormatType+    ]++instance FromJSON KinesisAnalyticsV2ApplicationRecordFormat where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationRecordFormat <$>+      (obj .:? "MappingParameters") <*>+      (obj .: "RecordFormatType")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsV2ApplicationRecordFormat' containing+-- required fields as arguments.+kinesisAnalyticsV2ApplicationRecordFormat+  :: Val Text -- ^ 'kavarfRecordFormatType'+  -> KinesisAnalyticsV2ApplicationRecordFormat+kinesisAnalyticsV2ApplicationRecordFormat recordFormatTypearg =+  KinesisAnalyticsV2ApplicationRecordFormat+  { _kinesisAnalyticsV2ApplicationRecordFormatMappingParameters = Nothing+  , _kinesisAnalyticsV2ApplicationRecordFormatRecordFormatType = recordFormatTypearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-recordformat.html#cfn-kinesisanalyticsv2-application-recordformat-mappingparameters+kavarfMappingParameters :: Lens' KinesisAnalyticsV2ApplicationRecordFormat (Maybe KinesisAnalyticsV2ApplicationMappingParameters)+kavarfMappingParameters = lens _kinesisAnalyticsV2ApplicationRecordFormatMappingParameters (\s a -> s { _kinesisAnalyticsV2ApplicationRecordFormatMappingParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-recordformat.html#cfn-kinesisanalyticsv2-application-recordformat-recordformattype+kavarfRecordFormatType :: Lens' KinesisAnalyticsV2ApplicationRecordFormat (Val Text)+kavarfRecordFormatType = lens _kinesisAnalyticsV2ApplicationRecordFormatRecordFormatType (\s a -> s { _kinesisAnalyticsV2ApplicationRecordFormatRecordFormatType = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters.hs view
@@ -0,0 +1,56 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-csvmappingparameters.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters. See+-- 'kinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters'+-- for a more convenient constructor.+data KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters =+  KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters+  { _kinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParametersRecordColumnDelimiter :: Val Text+  , _kinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParametersRecordRowDelimiter :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters where+  toJSON KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters{..} =+    object $+    catMaybes+    [ (Just . ("RecordColumnDelimiter",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParametersRecordColumnDelimiter+    , (Just . ("RecordRowDelimiter",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParametersRecordRowDelimiter+    ]++instance FromJSON KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters <$>+      (obj .: "RecordColumnDelimiter") <*>+      (obj .: "RecordRowDelimiter")+  parseJSON _ = mempty++-- | Constructor for+-- 'KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters'+-- containing required fields as arguments.+kinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters+  :: Val Text -- ^ 'kavardscsvmpRecordColumnDelimiter'+  -> Val Text -- ^ 'kavardscsvmpRecordRowDelimiter'+  -> KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters+kinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters recordColumnDelimiterarg recordRowDelimiterarg =+  KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters+  { _kinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParametersRecordColumnDelimiter = recordColumnDelimiterarg+  , _kinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParametersRecordRowDelimiter = recordRowDelimiterarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-csvmappingparameters.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-csvmappingparameters-recordcolumndelimiter+kavardscsvmpRecordColumnDelimiter :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters (Val Text)+kavardscsvmpRecordColumnDelimiter = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParametersRecordColumnDelimiter (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParametersRecordColumnDelimiter = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-csvmappingparameters.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-csvmappingparameters-recordrowdelimiter+kavardscsvmpRecordRowDelimiter :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters (Val Text)+kavardscsvmpRecordRowDelimiter = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParametersRecordRowDelimiter (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParametersRecordRowDelimiter = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters.hs view
@@ -0,0 +1,48 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-jsonmappingparameters.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters.+-- See+-- 'kinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters'+-- for a more convenient constructor.+data KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters =+  KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters+  { _kinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParametersRecordRowPath :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters where+  toJSON KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters{..} =+    object $+    catMaybes+    [ (Just . ("RecordRowPath",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParametersRecordRowPath+    ]++instance FromJSON KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters <$>+      (obj .: "RecordRowPath")+  parseJSON _ = mempty++-- | Constructor for+-- 'KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters'+-- containing required fields as arguments.+kinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters+  :: Val Text -- ^ 'kavardsjsonmpRecordRowPath'+  -> KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters+kinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters recordRowPatharg =+  KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters+  { _kinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParametersRecordRowPath = recordRowPatharg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-jsonmappingparameters.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-jsonmappingparameters-recordrowpath+kavardsjsonmpRecordRowPath :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters (Val Text)+kavardsjsonmpRecordRowPath = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParametersRecordRowPath (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParametersRecordRowPath = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters.hs view
@@ -0,0 +1,55 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-mappingparameters.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters++-- | Full data type definition for+-- KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters. See+-- 'kinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters' for a+-- more convenient constructor.+data KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters =+  KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters+  { _kinesisAnalyticsV2ApplicationReferenceDataSourceMappingParametersCSVMappingParameters :: Maybe KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters+  , _kinesisAnalyticsV2ApplicationReferenceDataSourceMappingParametersJSONMappingParameters :: Maybe KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters where+  toJSON KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters{..} =+    object $+    catMaybes+    [ fmap (("CSVMappingParameters",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceMappingParametersCSVMappingParameters+    , fmap (("JSONMappingParameters",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceMappingParametersJSONMappingParameters+    ]++instance FromJSON KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters <$>+      (obj .:? "CSVMappingParameters") <*>+      (obj .:? "JSONMappingParameters")+  parseJSON _ = mempty++-- | Constructor for+-- 'KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters'+-- containing required fields as arguments.+kinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters+  :: KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters+kinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters  =+  KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters+  { _kinesisAnalyticsV2ApplicationReferenceDataSourceMappingParametersCSVMappingParameters = Nothing+  , _kinesisAnalyticsV2ApplicationReferenceDataSourceMappingParametersJSONMappingParameters = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-mappingparameters.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-mappingparameters-csvmappingparameters+kavardsmpCSVMappingParameters :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters (Maybe KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters)+kavardsmpCSVMappingParameters = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceMappingParametersCSVMappingParameters (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceMappingParametersCSVMappingParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-mappingparameters.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-mappingparameters-jsonmappingparameters+kavardsmpJSONMappingParameters :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters (Maybe KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters)+kavardsmpJSONMappingParameters = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceMappingParametersJSONMappingParameters (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceMappingParametersJSONMappingParameters = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn.hs view
@@ -0,0 +1,64 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-recordcolumn.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn. See+-- 'kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn' for a more+-- convenient constructor.+data KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn =+  KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn+  { _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumnMapping :: Maybe (Val Text)+  , _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumnName :: Val Text+  , _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumnSqlType :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn where+  toJSON KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn{..} =+    object $+    catMaybes+    [ fmap (("Mapping",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumnMapping+    , (Just . ("Name",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumnName+    , (Just . ("SqlType",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumnSqlType+    ]++instance FromJSON KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn <$>+      (obj .:? "Mapping") <*>+      (obj .: "Name") <*>+      (obj .: "SqlType")+  parseJSON _ = mempty++-- | Constructor for+-- 'KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn' containing+-- required fields as arguments.+kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn+  :: Val Text -- ^ 'kavardsrcName'+  -> Val Text -- ^ 'kavardsrcSqlType'+  -> KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn+kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn namearg sqlTypearg =+  KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn+  { _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumnMapping = Nothing+  , _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumnName = namearg+  , _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumnSqlType = sqlTypearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-recordcolumn.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-recordcolumn-mapping+kavardsrcMapping :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn (Maybe (Val Text))+kavardsrcMapping = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumnMapping (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumnMapping = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-recordcolumn.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-recordcolumn-name+kavardsrcName :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn (Val Text)+kavardsrcName = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumnName (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumnName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-recordcolumn.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-recordcolumn-sqltype+kavardsrcSqlType :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn (Val Text)+kavardsrcSqlType = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumnSqlType (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumnSqlType = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat.hs view
@@ -0,0 +1,55 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-recordformat.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters++-- | Full data type definition for+-- KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat. See+-- 'kinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat' for a more+-- convenient constructor.+data KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat =+  KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat+  { _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormatMappingParameters :: Maybe KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters+  , _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormatRecordFormatType :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat where+  toJSON KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat{..} =+    object $+    catMaybes+    [ fmap (("MappingParameters",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormatMappingParameters+    , (Just . ("RecordFormatType",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormatRecordFormatType+    ]++instance FromJSON KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat <$>+      (obj .:? "MappingParameters") <*>+      (obj .: "RecordFormatType")+  parseJSON _ = mempty++-- | Constructor for+-- 'KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat' containing+-- required fields as arguments.+kinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat+  :: Val Text -- ^ 'kavardsrfRecordFormatType'+  -> KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat+kinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat recordFormatTypearg =+  KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat+  { _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormatMappingParameters = Nothing+  , _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormatRecordFormatType = recordFormatTypearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-recordformat.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-recordformat-mappingparameters+kavardsrfMappingParameters :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat (Maybe KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters)+kavardsrfMappingParameters = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormatMappingParameters (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormatMappingParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-recordformat.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-recordformat-recordformattype+kavardsrfRecordFormatType :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat (Val Text)+kavardsrfRecordFormatType = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormatRecordFormatType (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormatRecordFormatType = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource.hs view
@@ -0,0 +1,64 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-referencedatasource.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource++-- | Full data type definition for+-- KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource. See+-- 'kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource' for+-- a more convenient constructor.+data KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource =+  KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource+  { _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSourceReferenceSchema :: KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema+  , _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSourceS3ReferenceDataSource :: Maybe KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource+  , _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSourceTableName :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource where+  toJSON KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource{..} =+    object $+    catMaybes+    [ (Just . ("ReferenceSchema",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSourceReferenceSchema+    , fmap (("S3ReferenceDataSource",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSourceS3ReferenceDataSource+    , fmap (("TableName",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSourceTableName+    ]++instance FromJSON KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource <$>+      (obj .: "ReferenceSchema") <*>+      (obj .:? "S3ReferenceDataSource") <*>+      (obj .:? "TableName")+  parseJSON _ = mempty++-- | Constructor for+-- 'KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource'+-- containing required fields as arguments.+kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource+  :: KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema -- ^ 'kavardsrdsReferenceSchema'+  -> KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource+kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource referenceSchemaarg =+  KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource+  { _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSourceReferenceSchema = referenceSchemaarg+  , _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSourceS3ReferenceDataSource = Nothing+  , _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSourceTableName = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-referencedatasource.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-referencedatasource-referenceschema+kavardsrdsReferenceSchema :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema+kavardsrdsReferenceSchema = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSourceReferenceSchema (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSourceReferenceSchema = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-referencedatasource.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-referencedatasource-s3referencedatasource+kavardsrdsS3ReferenceDataSource :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource (Maybe KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource)+kavardsrdsS3ReferenceDataSource = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSourceS3ReferenceDataSource (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSourceS3ReferenceDataSource = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-referencedatasource.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-referencedatasource-tablename+kavardsrdsTableName :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource (Maybe (Val Text))+kavardsrdsTableName = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSourceTableName (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSourceTableName = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema.hs view
@@ -0,0 +1,65 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-referenceschema.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat++-- | Full data type definition for+-- KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema. See+-- 'kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema' for a+-- more convenient constructor.+data KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema =+  KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema+  { _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchemaRecordColumns :: [KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn]+  , _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchemaRecordEncoding :: Maybe (Val Text)+  , _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchemaRecordFormat :: KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema where+  toJSON KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema{..} =+    object $+    catMaybes+    [ (Just . ("RecordColumns",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchemaRecordColumns+    , fmap (("RecordEncoding",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchemaRecordEncoding+    , (Just . ("RecordFormat",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchemaRecordFormat+    ]++instance FromJSON KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema <$>+      (obj .: "RecordColumns") <*>+      (obj .:? "RecordEncoding") <*>+      (obj .: "RecordFormat")+  parseJSON _ = mempty++-- | Constructor for+-- 'KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema'+-- containing required fields as arguments.+kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema+  :: [KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn] -- ^ 'kavardsrsRecordColumns'+  -> KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat -- ^ 'kavardsrsRecordFormat'+  -> KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema+kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema recordColumnsarg recordFormatarg =+  KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema+  { _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchemaRecordColumns = recordColumnsarg+  , _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchemaRecordEncoding = Nothing+  , _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchemaRecordFormat = recordFormatarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-referenceschema.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-referenceschema-recordcolumns+kavardsrsRecordColumns :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema [KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn]+kavardsrsRecordColumns = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchemaRecordColumns (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchemaRecordColumns = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-referenceschema.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-referenceschema-recordencoding+kavardsrsRecordEncoding :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema (Maybe (Val Text))+kavardsrsRecordEncoding = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchemaRecordEncoding (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchemaRecordEncoding = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-referenceschema.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-referenceschema-recordformat+kavardsrsRecordFormat :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat+kavardsrsRecordFormat = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchemaRecordFormat (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchemaRecordFormat = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource.hs view
@@ -0,0 +1,57 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-s3referencedatasource.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource.+-- See+-- 'kinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource'+-- for a more convenient constructor.+data KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource =+  KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource+  { _kinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSourceBucketARN :: Val Text+  , _kinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSourceFileKey :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource where+  toJSON KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource{..} =+    object $+    catMaybes+    [ (Just . ("BucketARN",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSourceBucketARN+    , (Just . ("FileKey",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSourceFileKey+    ]++instance FromJSON KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource <$>+      (obj .: "BucketARN") <*>+      (obj .: "FileKey")+  parseJSON _ = mempty++-- | Constructor for+-- 'KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource'+-- containing required fields as arguments.+kinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource+  :: Val Text -- ^ 'kavardssrdsBucketARN'+  -> Val Text -- ^ 'kavardssrdsFileKey'+  -> KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource+kinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource bucketARNarg fileKeyarg =+  KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource+  { _kinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSourceBucketARN = bucketARNarg+  , _kinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSourceFileKey = fileKeyarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-s3referencedatasource.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-s3referencedatasource-bucketarn+kavardssrdsBucketARN :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource (Val Text)+kavardssrdsBucketARN = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSourceBucketARN (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSourceBucketARN = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-s3referencedatasource.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-s3referencedatasource-filekey+kavardssrdsFileKey :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource (Val Text)+kavardssrdsFileKey = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSourceFileKey (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSourceFileKey = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationS3ContentLocation.hs view
@@ -0,0 +1,61 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-s3contentlocation.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationS3ContentLocation where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- KinesisAnalyticsV2ApplicationS3ContentLocation. See+-- 'kinesisAnalyticsV2ApplicationS3ContentLocation' for a more convenient+-- constructor.+data KinesisAnalyticsV2ApplicationS3ContentLocation =+  KinesisAnalyticsV2ApplicationS3ContentLocation+  { _kinesisAnalyticsV2ApplicationS3ContentLocationBucketARN :: Maybe (Val Text)+  , _kinesisAnalyticsV2ApplicationS3ContentLocationFileKey :: Maybe (Val Text)+  , _kinesisAnalyticsV2ApplicationS3ContentLocationObjectVersion :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationS3ContentLocation where+  toJSON KinesisAnalyticsV2ApplicationS3ContentLocation{..} =+    object $+    catMaybes+    [ fmap (("BucketARN",) . toJSON) _kinesisAnalyticsV2ApplicationS3ContentLocationBucketARN+    , fmap (("FileKey",) . toJSON) _kinesisAnalyticsV2ApplicationS3ContentLocationFileKey+    , fmap (("ObjectVersion",) . toJSON) _kinesisAnalyticsV2ApplicationS3ContentLocationObjectVersion+    ]++instance FromJSON KinesisAnalyticsV2ApplicationS3ContentLocation where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationS3ContentLocation <$>+      (obj .:? "BucketARN") <*>+      (obj .:? "FileKey") <*>+      (obj .:? "ObjectVersion")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsV2ApplicationS3ContentLocation'+-- containing required fields as arguments.+kinesisAnalyticsV2ApplicationS3ContentLocation+  :: KinesisAnalyticsV2ApplicationS3ContentLocation+kinesisAnalyticsV2ApplicationS3ContentLocation  =+  KinesisAnalyticsV2ApplicationS3ContentLocation+  { _kinesisAnalyticsV2ApplicationS3ContentLocationBucketARN = Nothing+  , _kinesisAnalyticsV2ApplicationS3ContentLocationFileKey = Nothing+  , _kinesisAnalyticsV2ApplicationS3ContentLocationObjectVersion = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-s3contentlocation.html#cfn-kinesisanalyticsv2-application-s3contentlocation-bucketarn+kavasclBucketARN :: Lens' KinesisAnalyticsV2ApplicationS3ContentLocation (Maybe (Val Text))+kavasclBucketARN = lens _kinesisAnalyticsV2ApplicationS3ContentLocationBucketARN (\s a -> s { _kinesisAnalyticsV2ApplicationS3ContentLocationBucketARN = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-s3contentlocation.html#cfn-kinesisanalyticsv2-application-s3contentlocation-filekey+kavasclFileKey :: Lens' KinesisAnalyticsV2ApplicationS3ContentLocation (Maybe (Val Text))+kavasclFileKey = lens _kinesisAnalyticsV2ApplicationS3ContentLocationFileKey (\s a -> s { _kinesisAnalyticsV2ApplicationS3ContentLocationFileKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-s3contentlocation.html#cfn-kinesisanalyticsv2-application-s3contentlocation-objectversion+kavasclObjectVersion :: Lens' KinesisAnalyticsV2ApplicationS3ContentLocation (Maybe (Val Text))+kavasclObjectVersion = lens _kinesisAnalyticsV2ApplicationS3ContentLocationObjectVersion (\s a -> s { _kinesisAnalyticsV2ApplicationS3ContentLocationObjectVersion = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationSqlApplicationConfiguration.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-sqlapplicationconfiguration.html++module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationSqlApplicationConfiguration where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInput++-- | Full data type definition for+-- KinesisAnalyticsV2ApplicationSqlApplicationConfiguration. See+-- 'kinesisAnalyticsV2ApplicationSqlApplicationConfiguration' for a more+-- convenient constructor.+data KinesisAnalyticsV2ApplicationSqlApplicationConfiguration =+  KinesisAnalyticsV2ApplicationSqlApplicationConfiguration+  { _kinesisAnalyticsV2ApplicationSqlApplicationConfigurationInputs :: Maybe [KinesisAnalyticsV2ApplicationInput]+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationSqlApplicationConfiguration where+  toJSON KinesisAnalyticsV2ApplicationSqlApplicationConfiguration{..} =+    object $+    catMaybes+    [ fmap (("Inputs",) . toJSON) _kinesisAnalyticsV2ApplicationSqlApplicationConfigurationInputs+    ]++instance FromJSON KinesisAnalyticsV2ApplicationSqlApplicationConfiguration where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationSqlApplicationConfiguration <$>+      (obj .:? "Inputs")+  parseJSON _ = mempty++-- | Constructor for+-- 'KinesisAnalyticsV2ApplicationSqlApplicationConfiguration' containing+-- required fields as arguments.+kinesisAnalyticsV2ApplicationSqlApplicationConfiguration+  :: KinesisAnalyticsV2ApplicationSqlApplicationConfiguration+kinesisAnalyticsV2ApplicationSqlApplicationConfiguration  =+  KinesisAnalyticsV2ApplicationSqlApplicationConfiguration+  { _kinesisAnalyticsV2ApplicationSqlApplicationConfigurationInputs = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-sqlapplicationconfiguration.html#cfn-kinesisanalyticsv2-application-sqlapplicationconfiguration-inputs+kavasacInputs :: Lens' KinesisAnalyticsV2ApplicationSqlApplicationConfiguration (Maybe [KinesisAnalyticsV2ApplicationInput])+kavasacInputs = lens _kinesisAnalyticsV2ApplicationSqlApplicationConfigurationInputs (\s a -> s { _kinesisAnalyticsV2ApplicationSqlApplicationConfigurationInputs = a })
+ library-gen/Stratosphere/ResourceProperties/RoboMakerRobotApplicationRobotSoftwareSuite.hs view
@@ -0,0 +1,55 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-robotapplication-robotsoftwaresuite.html++module Stratosphere.ResourceProperties.RoboMakerRobotApplicationRobotSoftwareSuite where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- RoboMakerRobotApplicationRobotSoftwareSuite. See+-- 'roboMakerRobotApplicationRobotSoftwareSuite' for a more convenient+-- constructor.+data RoboMakerRobotApplicationRobotSoftwareSuite =+  RoboMakerRobotApplicationRobotSoftwareSuite+  { _roboMakerRobotApplicationRobotSoftwareSuiteName :: Val Text+  , _roboMakerRobotApplicationRobotSoftwareSuiteVersion :: Val Text+  } deriving (Show, Eq)++instance ToJSON RoboMakerRobotApplicationRobotSoftwareSuite where+  toJSON RoboMakerRobotApplicationRobotSoftwareSuite{..} =+    object $+    catMaybes+    [ (Just . ("Name",) . toJSON) _roboMakerRobotApplicationRobotSoftwareSuiteName+    , (Just . ("Version",) . toJSON) _roboMakerRobotApplicationRobotSoftwareSuiteVersion+    ]++instance FromJSON RoboMakerRobotApplicationRobotSoftwareSuite where+  parseJSON (Object obj) =+    RoboMakerRobotApplicationRobotSoftwareSuite <$>+      (obj .: "Name") <*>+      (obj .: "Version")+  parseJSON _ = mempty++-- | Constructor for 'RoboMakerRobotApplicationRobotSoftwareSuite' containing+-- required fields as arguments.+roboMakerRobotApplicationRobotSoftwareSuite+  :: Val Text -- ^ 'rmrarssName'+  -> Val Text -- ^ 'rmrarssVersion'+  -> RoboMakerRobotApplicationRobotSoftwareSuite+roboMakerRobotApplicationRobotSoftwareSuite namearg versionarg =+  RoboMakerRobotApplicationRobotSoftwareSuite+  { _roboMakerRobotApplicationRobotSoftwareSuiteName = namearg+  , _roboMakerRobotApplicationRobotSoftwareSuiteVersion = versionarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-robotapplication-robotsoftwaresuite.html#cfn-robomaker-robotapplication-robotsoftwaresuite-name+rmrarssName :: Lens' RoboMakerRobotApplicationRobotSoftwareSuite (Val Text)+rmrarssName = lens _roboMakerRobotApplicationRobotSoftwareSuiteName (\s a -> s { _roboMakerRobotApplicationRobotSoftwareSuiteName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-robotapplication-robotsoftwaresuite.html#cfn-robomaker-robotapplication-robotsoftwaresuite-version+rmrarssVersion :: Lens' RoboMakerRobotApplicationRobotSoftwareSuite (Val Text)+rmrarssVersion = lens _roboMakerRobotApplicationRobotSoftwareSuiteVersion (\s a -> s { _roboMakerRobotApplicationRobotSoftwareSuiteVersion = a })
+ library-gen/Stratosphere/ResourceProperties/RoboMakerRobotApplicationSourceConfig.hs view
@@ -0,0 +1,63 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-robotapplication-sourceconfig.html++module Stratosphere.ResourceProperties.RoboMakerRobotApplicationSourceConfig where++import Stratosphere.ResourceImports+++-- | Full data type definition for RoboMakerRobotApplicationSourceConfig. See+-- 'roboMakerRobotApplicationSourceConfig' for a more convenient+-- constructor.+data RoboMakerRobotApplicationSourceConfig =+  RoboMakerRobotApplicationSourceConfig+  { _roboMakerRobotApplicationSourceConfigArchitecture :: Val Text+  , _roboMakerRobotApplicationSourceConfigS3Bucket :: Val Text+  , _roboMakerRobotApplicationSourceConfigS3Key :: Val Text+  } deriving (Show, Eq)++instance ToJSON RoboMakerRobotApplicationSourceConfig where+  toJSON RoboMakerRobotApplicationSourceConfig{..} =+    object $+    catMaybes+    [ (Just . ("Architecture",) . toJSON) _roboMakerRobotApplicationSourceConfigArchitecture+    , (Just . ("S3Bucket",) . toJSON) _roboMakerRobotApplicationSourceConfigS3Bucket+    , (Just . ("S3Key",) . toJSON) _roboMakerRobotApplicationSourceConfigS3Key+    ]++instance FromJSON RoboMakerRobotApplicationSourceConfig where+  parseJSON (Object obj) =+    RoboMakerRobotApplicationSourceConfig <$>+      (obj .: "Architecture") <*>+      (obj .: "S3Bucket") <*>+      (obj .: "S3Key")+  parseJSON _ = mempty++-- | Constructor for 'RoboMakerRobotApplicationSourceConfig' containing+-- required fields as arguments.+roboMakerRobotApplicationSourceConfig+  :: Val Text -- ^ 'rmrascArchitecture'+  -> Val Text -- ^ 'rmrascS3Bucket'+  -> Val Text -- ^ 'rmrascS3Key'+  -> RoboMakerRobotApplicationSourceConfig+roboMakerRobotApplicationSourceConfig architecturearg s3Bucketarg s3Keyarg =+  RoboMakerRobotApplicationSourceConfig+  { _roboMakerRobotApplicationSourceConfigArchitecture = architecturearg+  , _roboMakerRobotApplicationSourceConfigS3Bucket = s3Bucketarg+  , _roboMakerRobotApplicationSourceConfigS3Key = s3Keyarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-robotapplication-sourceconfig.html#cfn-robomaker-robotapplication-sourceconfig-architecture+rmrascArchitecture :: Lens' RoboMakerRobotApplicationSourceConfig (Val Text)+rmrascArchitecture = lens _roboMakerRobotApplicationSourceConfigArchitecture (\s a -> s { _roboMakerRobotApplicationSourceConfigArchitecture = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-robotapplication-sourceconfig.html#cfn-robomaker-robotapplication-sourceconfig-s3bucket+rmrascS3Bucket :: Lens' RoboMakerRobotApplicationSourceConfig (Val Text)+rmrascS3Bucket = lens _roboMakerRobotApplicationSourceConfigS3Bucket (\s a -> s { _roboMakerRobotApplicationSourceConfigS3Bucket = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-robotapplication-sourceconfig.html#cfn-robomaker-robotapplication-sourceconfig-s3key+rmrascS3Key :: Lens' RoboMakerRobotApplicationSourceConfig (Val Text)+rmrascS3Key = lens _roboMakerRobotApplicationSourceConfigS3Key (\s a -> s { _roboMakerRobotApplicationSourceConfigS3Key = a })
+ library-gen/Stratosphere/ResourceProperties/RoboMakerSimulationApplicationRenderingEngine.hs view
@@ -0,0 +1,55 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-simulationapplication-renderingengine.html++module Stratosphere.ResourceProperties.RoboMakerSimulationApplicationRenderingEngine where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- RoboMakerSimulationApplicationRenderingEngine. See+-- 'roboMakerSimulationApplicationRenderingEngine' for a more convenient+-- constructor.+data RoboMakerSimulationApplicationRenderingEngine =+  RoboMakerSimulationApplicationRenderingEngine+  { _roboMakerSimulationApplicationRenderingEngineName :: Val Text+  , _roboMakerSimulationApplicationRenderingEngineVersion :: Val Text+  } deriving (Show, Eq)++instance ToJSON RoboMakerSimulationApplicationRenderingEngine where+  toJSON RoboMakerSimulationApplicationRenderingEngine{..} =+    object $+    catMaybes+    [ (Just . ("Name",) . toJSON) _roboMakerSimulationApplicationRenderingEngineName+    , (Just . ("Version",) . toJSON) _roboMakerSimulationApplicationRenderingEngineVersion+    ]++instance FromJSON RoboMakerSimulationApplicationRenderingEngine where+  parseJSON (Object obj) =+    RoboMakerSimulationApplicationRenderingEngine <$>+      (obj .: "Name") <*>+      (obj .: "Version")+  parseJSON _ = mempty++-- | Constructor for 'RoboMakerSimulationApplicationRenderingEngine'+-- containing required fields as arguments.+roboMakerSimulationApplicationRenderingEngine+  :: Val Text -- ^ 'rmsareName'+  -> Val Text -- ^ 'rmsareVersion'+  -> RoboMakerSimulationApplicationRenderingEngine+roboMakerSimulationApplicationRenderingEngine namearg versionarg =+  RoboMakerSimulationApplicationRenderingEngine+  { _roboMakerSimulationApplicationRenderingEngineName = namearg+  , _roboMakerSimulationApplicationRenderingEngineVersion = versionarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-simulationapplication-renderingengine.html#cfn-robomaker-simulationapplication-renderingengine-name+rmsareName :: Lens' RoboMakerSimulationApplicationRenderingEngine (Val Text)+rmsareName = lens _roboMakerSimulationApplicationRenderingEngineName (\s a -> s { _roboMakerSimulationApplicationRenderingEngineName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-simulationapplication-renderingengine.html#cfn-robomaker-simulationapplication-renderingengine-version+rmsareVersion :: Lens' RoboMakerSimulationApplicationRenderingEngine (Val Text)+rmsareVersion = lens _roboMakerSimulationApplicationRenderingEngineVersion (\s a -> s { _roboMakerSimulationApplicationRenderingEngineVersion = a })
+ library-gen/Stratosphere/ResourceProperties/RoboMakerSimulationApplicationRobotSoftwareSuite.hs view
@@ -0,0 +1,55 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-simulationapplication-robotsoftwaresuite.html++module Stratosphere.ResourceProperties.RoboMakerSimulationApplicationRobotSoftwareSuite where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- RoboMakerSimulationApplicationRobotSoftwareSuite. See+-- 'roboMakerSimulationApplicationRobotSoftwareSuite' for a more convenient+-- constructor.+data RoboMakerSimulationApplicationRobotSoftwareSuite =+  RoboMakerSimulationApplicationRobotSoftwareSuite+  { _roboMakerSimulationApplicationRobotSoftwareSuiteName :: Val Text+  , _roboMakerSimulationApplicationRobotSoftwareSuiteVersion :: Val Text+  } deriving (Show, Eq)++instance ToJSON RoboMakerSimulationApplicationRobotSoftwareSuite where+  toJSON RoboMakerSimulationApplicationRobotSoftwareSuite{..} =+    object $+    catMaybes+    [ (Just . ("Name",) . toJSON) _roboMakerSimulationApplicationRobotSoftwareSuiteName+    , (Just . ("Version",) . toJSON) _roboMakerSimulationApplicationRobotSoftwareSuiteVersion+    ]++instance FromJSON RoboMakerSimulationApplicationRobotSoftwareSuite where+  parseJSON (Object obj) =+    RoboMakerSimulationApplicationRobotSoftwareSuite <$>+      (obj .: "Name") <*>+      (obj .: "Version")+  parseJSON _ = mempty++-- | Constructor for 'RoboMakerSimulationApplicationRobotSoftwareSuite'+-- containing required fields as arguments.+roboMakerSimulationApplicationRobotSoftwareSuite+  :: Val Text -- ^ 'rmsarssName'+  -> Val Text -- ^ 'rmsarssVersion'+  -> RoboMakerSimulationApplicationRobotSoftwareSuite+roboMakerSimulationApplicationRobotSoftwareSuite namearg versionarg =+  RoboMakerSimulationApplicationRobotSoftwareSuite+  { _roboMakerSimulationApplicationRobotSoftwareSuiteName = namearg+  , _roboMakerSimulationApplicationRobotSoftwareSuiteVersion = versionarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-simulationapplication-robotsoftwaresuite.html#cfn-robomaker-simulationapplication-robotsoftwaresuite-name+rmsarssName :: Lens' RoboMakerSimulationApplicationRobotSoftwareSuite (Val Text)+rmsarssName = lens _roboMakerSimulationApplicationRobotSoftwareSuiteName (\s a -> s { _roboMakerSimulationApplicationRobotSoftwareSuiteName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-simulationapplication-robotsoftwaresuite.html#cfn-robomaker-simulationapplication-robotsoftwaresuite-version+rmsarssVersion :: Lens' RoboMakerSimulationApplicationRobotSoftwareSuite (Val Text)+rmsarssVersion = lens _roboMakerSimulationApplicationRobotSoftwareSuiteVersion (\s a -> s { _roboMakerSimulationApplicationRobotSoftwareSuiteVersion = a })
+ library-gen/Stratosphere/ResourceProperties/RoboMakerSimulationApplicationSimulationSoftwareSuite.hs view
@@ -0,0 +1,55 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-simulationapplication-simulationsoftwaresuite.html++module Stratosphere.ResourceProperties.RoboMakerSimulationApplicationSimulationSoftwareSuite where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- RoboMakerSimulationApplicationSimulationSoftwareSuite. See+-- 'roboMakerSimulationApplicationSimulationSoftwareSuite' for a more+-- convenient constructor.+data RoboMakerSimulationApplicationSimulationSoftwareSuite =+  RoboMakerSimulationApplicationSimulationSoftwareSuite+  { _roboMakerSimulationApplicationSimulationSoftwareSuiteName :: Val Text+  , _roboMakerSimulationApplicationSimulationSoftwareSuiteVersion :: Val Text+  } deriving (Show, Eq)++instance ToJSON RoboMakerSimulationApplicationSimulationSoftwareSuite where+  toJSON RoboMakerSimulationApplicationSimulationSoftwareSuite{..} =+    object $+    catMaybes+    [ (Just . ("Name",) . toJSON) _roboMakerSimulationApplicationSimulationSoftwareSuiteName+    , (Just . ("Version",) . toJSON) _roboMakerSimulationApplicationSimulationSoftwareSuiteVersion+    ]++instance FromJSON RoboMakerSimulationApplicationSimulationSoftwareSuite where+  parseJSON (Object obj) =+    RoboMakerSimulationApplicationSimulationSoftwareSuite <$>+      (obj .: "Name") <*>+      (obj .: "Version")+  parseJSON _ = mempty++-- | Constructor for 'RoboMakerSimulationApplicationSimulationSoftwareSuite'+-- containing required fields as arguments.+roboMakerSimulationApplicationSimulationSoftwareSuite+  :: Val Text -- ^ 'rmsasssName'+  -> Val Text -- ^ 'rmsasssVersion'+  -> RoboMakerSimulationApplicationSimulationSoftwareSuite+roboMakerSimulationApplicationSimulationSoftwareSuite namearg versionarg =+  RoboMakerSimulationApplicationSimulationSoftwareSuite+  { _roboMakerSimulationApplicationSimulationSoftwareSuiteName = namearg+  , _roboMakerSimulationApplicationSimulationSoftwareSuiteVersion = versionarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-simulationapplication-simulationsoftwaresuite.html#cfn-robomaker-simulationapplication-simulationsoftwaresuite-name+rmsasssName :: Lens' RoboMakerSimulationApplicationSimulationSoftwareSuite (Val Text)+rmsasssName = lens _roboMakerSimulationApplicationSimulationSoftwareSuiteName (\s a -> s { _roboMakerSimulationApplicationSimulationSoftwareSuiteName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-simulationapplication-simulationsoftwaresuite.html#cfn-robomaker-simulationapplication-simulationsoftwaresuite-version+rmsasssVersion :: Lens' RoboMakerSimulationApplicationSimulationSoftwareSuite (Val Text)+rmsasssVersion = lens _roboMakerSimulationApplicationSimulationSoftwareSuiteVersion (\s a -> s { _roboMakerSimulationApplicationSimulationSoftwareSuiteVersion = a })
+ library-gen/Stratosphere/ResourceProperties/RoboMakerSimulationApplicationSourceConfig.hs view
@@ -0,0 +1,63 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-simulationapplication-sourceconfig.html++module Stratosphere.ResourceProperties.RoboMakerSimulationApplicationSourceConfig where++import Stratosphere.ResourceImports+++-- | Full data type definition for RoboMakerSimulationApplicationSourceConfig.+-- See 'roboMakerSimulationApplicationSourceConfig' for a more convenient+-- constructor.+data RoboMakerSimulationApplicationSourceConfig =+  RoboMakerSimulationApplicationSourceConfig+  { _roboMakerSimulationApplicationSourceConfigArchitecture :: Val Text+  , _roboMakerSimulationApplicationSourceConfigS3Bucket :: Val Text+  , _roboMakerSimulationApplicationSourceConfigS3Key :: Val Text+  } deriving (Show, Eq)++instance ToJSON RoboMakerSimulationApplicationSourceConfig where+  toJSON RoboMakerSimulationApplicationSourceConfig{..} =+    object $+    catMaybes+    [ (Just . ("Architecture",) . toJSON) _roboMakerSimulationApplicationSourceConfigArchitecture+    , (Just . ("S3Bucket",) . toJSON) _roboMakerSimulationApplicationSourceConfigS3Bucket+    , (Just . ("S3Key",) . toJSON) _roboMakerSimulationApplicationSourceConfigS3Key+    ]++instance FromJSON RoboMakerSimulationApplicationSourceConfig where+  parseJSON (Object obj) =+    RoboMakerSimulationApplicationSourceConfig <$>+      (obj .: "Architecture") <*>+      (obj .: "S3Bucket") <*>+      (obj .: "S3Key")+  parseJSON _ = mempty++-- | Constructor for 'RoboMakerSimulationApplicationSourceConfig' containing+-- required fields as arguments.+roboMakerSimulationApplicationSourceConfig+  :: Val Text -- ^ 'rmsascArchitecture'+  -> Val Text -- ^ 'rmsascS3Bucket'+  -> Val Text -- ^ 'rmsascS3Key'+  -> RoboMakerSimulationApplicationSourceConfig+roboMakerSimulationApplicationSourceConfig architecturearg s3Bucketarg s3Keyarg =+  RoboMakerSimulationApplicationSourceConfig+  { _roboMakerSimulationApplicationSourceConfigArchitecture = architecturearg+  , _roboMakerSimulationApplicationSourceConfigS3Bucket = s3Bucketarg+  , _roboMakerSimulationApplicationSourceConfigS3Key = s3Keyarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-simulationapplication-sourceconfig.html#cfn-robomaker-simulationapplication-sourceconfig-architecture+rmsascArchitecture :: Lens' RoboMakerSimulationApplicationSourceConfig (Val Text)+rmsascArchitecture = lens _roboMakerSimulationApplicationSourceConfigArchitecture (\s a -> s { _roboMakerSimulationApplicationSourceConfigArchitecture = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-simulationapplication-sourceconfig.html#cfn-robomaker-simulationapplication-sourceconfig-s3bucket+rmsascS3Bucket :: Lens' RoboMakerSimulationApplicationSourceConfig (Val Text)+rmsascS3Bucket = lens _roboMakerSimulationApplicationSourceConfigS3Bucket (\s a -> s { _roboMakerSimulationApplicationSourceConfigS3Bucket = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-simulationapplication-sourceconfig.html#cfn-robomaker-simulationapplication-sourceconfig-s3key+rmsascS3Key :: Lens' RoboMakerSimulationApplicationSourceConfig (Val Text)+rmsascS3Key = lens _roboMakerSimulationApplicationSourceConfigS3Key (\s a -> s { _roboMakerSimulationApplicationSourceConfigS3Key = a })
library-gen/Stratosphere/Resources.hs view
@@ -33,6 +33,7 @@   , resourceUpdatePolicy   , resourceDependsOn   , resourceMetadata+  , resourceCondition   , ResourceProperties (..)   , DeletionPolicy (..)   , Resources (..)@@ -69,6 +70,15 @@ import Stratosphere.Resources.ApiGatewayUsagePlan as X import Stratosphere.Resources.ApiGatewayUsagePlanKey as X import Stratosphere.Resources.ApiGatewayVpcLink as X+import Stratosphere.Resources.ApiGatewayV2Api as X+import Stratosphere.Resources.ApiGatewayV2Authorizer as X+import Stratosphere.Resources.ApiGatewayV2Deployment as X+import Stratosphere.Resources.ApiGatewayV2Integration as X+import Stratosphere.Resources.ApiGatewayV2IntegrationResponse as X+import Stratosphere.Resources.ApiGatewayV2Model as X+import Stratosphere.Resources.ApiGatewayV2Route as X+import Stratosphere.Resources.ApiGatewayV2RouteResponse as X+import Stratosphere.Resources.ApiGatewayV2Stage as X import Stratosphere.Resources.AppStreamDirectoryConfig as X import Stratosphere.Resources.AppStreamFleet as X import Stratosphere.Resources.AppStreamImageBuilder as X@@ -226,6 +236,7 @@ import Stratosphere.Resources.ElasticsearchDomain as X import Stratosphere.Resources.EventsEventBusPolicy as X import Stratosphere.Resources.EventsRule as X+import Stratosphere.Resources.FSxFileSystem as X import Stratosphere.Resources.GameLiftAlias as X import Stratosphere.Resources.GameLiftBuild as X import Stratosphere.Resources.GameLiftFleet as X@@ -276,6 +287,10 @@ import Stratosphere.Resources.KinesisAnalyticsApplication as X import Stratosphere.Resources.KinesisAnalyticsApplicationOutput as X import Stratosphere.Resources.KinesisAnalyticsApplicationReferenceDataSource as X+import Stratosphere.Resources.KinesisAnalyticsV2Application as X+import Stratosphere.Resources.KinesisAnalyticsV2ApplicationCloudWatchLoggingOption as X+import Stratosphere.Resources.KinesisAnalyticsV2ApplicationOutput as X+import Stratosphere.Resources.KinesisAnalyticsV2ApplicationReferenceDataSource as X import Stratosphere.Resources.KinesisFirehoseDeliveryStream as X import Stratosphere.Resources.LambdaAlias as X import Stratosphere.Resources.LambdaEventSourceMapping as X@@ -302,6 +317,7 @@ import Stratosphere.Resources.OpsWorksUserProfile as X import Stratosphere.Resources.OpsWorksVolume as X import Stratosphere.Resources.OpsWorksCMServer as X+import Stratosphere.Resources.RAMResourceShare as X import Stratosphere.Resources.RDSDBCluster as X import Stratosphere.Resources.RDSDBClusterParameterGroup as X import Stratosphere.Resources.RDSDBInstance as X@@ -316,6 +332,12 @@ import Stratosphere.Resources.RedshiftClusterSecurityGroup as X import Stratosphere.Resources.RedshiftClusterSecurityGroupIngress as X import Stratosphere.Resources.RedshiftClusterSubnetGroup as X+import Stratosphere.Resources.RoboMakerFleet as X+import Stratosphere.Resources.RoboMakerRobot as X+import Stratosphere.Resources.RoboMakerRobotApplication as X+import Stratosphere.Resources.RoboMakerRobotApplicationVersion as X+import Stratosphere.Resources.RoboMakerSimulationApplication as X+import Stratosphere.Resources.RoboMakerSimulationApplicationVersion as X import Stratosphere.Resources.Route53HealthCheck as X import Stratosphere.Resources.Route53HostedZone as X import Stratosphere.Resources.Route53RecordSet as X@@ -415,6 +437,10 @@ import Stratosphere.ResourceProperties.ApiGatewayUsagePlanApiStage as X import Stratosphere.ResourceProperties.ApiGatewayUsagePlanQuotaSettings as X import Stratosphere.ResourceProperties.ApiGatewayUsagePlanThrottleSettings as X+import Stratosphere.ResourceProperties.ApiGatewayV2RouteParameterConstraints as X+import Stratosphere.ResourceProperties.ApiGatewayV2RouteResponseParameterConstraints as X+import Stratosphere.ResourceProperties.ApiGatewayV2StageAccessLogSettings as X+import Stratosphere.ResourceProperties.ApiGatewayV2StageRouteSettings as X import Stratosphere.ResourceProperties.AppStreamDirectoryConfigServiceAccountCredentials as X import Stratosphere.ResourceProperties.AppStreamFleetComputeCapacity as X import Stratosphere.ResourceProperties.AppStreamFleetDomainJoinInfo as X@@ -514,6 +540,9 @@ import Stratosphere.ResourceProperties.CloudTrailTrailDataResource as X import Stratosphere.ResourceProperties.CloudTrailTrailEventSelector as X import Stratosphere.ResourceProperties.CloudWatchAlarmDimension as X+import Stratosphere.ResourceProperties.CloudWatchAlarmMetric as X+import Stratosphere.ResourceProperties.CloudWatchAlarmMetricDataQuery as X+import Stratosphere.ResourceProperties.CloudWatchAlarmMetricStat as X import Stratosphere.ResourceProperties.CodeBuildProjectArtifacts as X import Stratosphere.ResourceProperties.CodeBuildProjectCloudWatchLogsConfig as X import Stratosphere.ResourceProperties.CodeBuildProjectEnvironment as X@@ -526,6 +555,7 @@ import Stratosphere.ResourceProperties.CodeBuildProjectSource as X import Stratosphere.ResourceProperties.CodeBuildProjectSourceAuth as X import Stratosphere.ResourceProperties.CodeBuildProjectVpcConfig as X+import Stratosphere.ResourceProperties.CodeBuildProjectWebhookFilter as X import Stratosphere.ResourceProperties.CodeCommitRepositoryRepositoryTrigger as X import Stratosphere.ResourceProperties.CodeDeployDeploymentConfigMinimumHealthyHosts as X import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupAlarm as X@@ -637,13 +667,19 @@ import Stratosphere.ResourceProperties.EC2InstanceSsmAssociation as X import Stratosphere.ResourceProperties.EC2InstanceVolume as X import Stratosphere.ResourceProperties.EC2LaunchTemplateBlockDeviceMapping as X+import Stratosphere.ResourceProperties.EC2LaunchTemplateCapacityReservationSpecification as X+import Stratosphere.ResourceProperties.EC2LaunchTemplateCapacityReservationTarget as X+import Stratosphere.ResourceProperties.EC2LaunchTemplateCpuOptions as X import Stratosphere.ResourceProperties.EC2LaunchTemplateCreditSpecification as X import Stratosphere.ResourceProperties.EC2LaunchTemplateEbs as X import Stratosphere.ResourceProperties.EC2LaunchTemplateElasticGpuSpecification as X+import Stratosphere.ResourceProperties.EC2LaunchTemplateHibernationOptions as X import Stratosphere.ResourceProperties.EC2LaunchTemplateIamInstanceProfile as X import Stratosphere.ResourceProperties.EC2LaunchTemplateInstanceMarketOptions as X import Stratosphere.ResourceProperties.EC2LaunchTemplateIpv6Add as X import Stratosphere.ResourceProperties.EC2LaunchTemplateLaunchTemplateData as X+import Stratosphere.ResourceProperties.EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator as X+import Stratosphere.ResourceProperties.EC2LaunchTemplateLicenseSpecification as X import Stratosphere.ResourceProperties.EC2LaunchTemplateMonitoring as X import Stratosphere.ResourceProperties.EC2LaunchTemplateNetworkInterface as X import Stratosphere.ResourceProperties.EC2LaunchTemplatePlacement as X@@ -802,6 +838,9 @@ import Stratosphere.ResourceProperties.EventsRuleRunCommandTarget as X import Stratosphere.ResourceProperties.EventsRuleSqsParameters as X import Stratosphere.ResourceProperties.EventsRuleTarget as X+import Stratosphere.ResourceProperties.FSxFileSystemLustreConfiguration as X+import Stratosphere.ResourceProperties.FSxFileSystemTagEntry as X+import Stratosphere.ResourceProperties.FSxFileSystemWindowsConfiguration as X import Stratosphere.ResourceProperties.GameLiftAliasRoutingStrategy as X import Stratosphere.ResourceProperties.GameLiftBuildS3Location as X import Stratosphere.ResourceProperties.GameLiftFleetIpPermission as X@@ -912,6 +951,44 @@ import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource as X import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema as X import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationApplicationCodeConfiguration as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationApplicationConfiguration as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationCSVMappingParameters as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationCheckpointConfiguration as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationCodeContent as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationEnvironmentProperties as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInput as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInputLambdaProcessor as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInputParallelism as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInputProcessingConfiguration as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInputSchema as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationJSONMappingParameters as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationKinesisFirehoseInput as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationKinesisStreamsInput as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationMappingParameters as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationMonitoringConfiguration as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationParallelismConfiguration as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationPropertyGroup as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationRecordColumn as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationRecordFormat as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationS3ContentLocation as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationSqlApplicationConfiguration as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputDestinationSchema as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputLambdaOutput as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputOutput as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema as X+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamBufferingHints as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamCopyCommand as X@@ -964,6 +1041,12 @@ import Stratosphere.ResourceProperties.RDSOptionGroupOptionSetting as X import Stratosphere.ResourceProperties.RedshiftClusterLoggingProperties as X import Stratosphere.ResourceProperties.RedshiftClusterParameterGroupParameter as X+import Stratosphere.ResourceProperties.RoboMakerRobotApplicationRobotSoftwareSuite as X+import Stratosphere.ResourceProperties.RoboMakerRobotApplicationSourceConfig as X+import Stratosphere.ResourceProperties.RoboMakerSimulationApplicationRenderingEngine as X+import Stratosphere.ResourceProperties.RoboMakerSimulationApplicationRobotSoftwareSuite as X+import Stratosphere.ResourceProperties.RoboMakerSimulationApplicationSimulationSoftwareSuite as X+import Stratosphere.ResourceProperties.RoboMakerSimulationApplicationSourceConfig as X import Stratosphere.ResourceProperties.Route53HealthCheckAlarmIdentifier as X import Stratosphere.ResourceProperties.Route53HealthCheckHealthCheckConfig as X import Stratosphere.ResourceProperties.Route53HealthCheckHealthCheckTag as X@@ -1126,6 +1209,15 @@   | ApiGatewayUsagePlanProperties ApiGatewayUsagePlan   | ApiGatewayUsagePlanKeyProperties ApiGatewayUsagePlanKey   | ApiGatewayVpcLinkProperties ApiGatewayVpcLink+  | ApiGatewayV2ApiProperties ApiGatewayV2Api+  | ApiGatewayV2AuthorizerProperties ApiGatewayV2Authorizer+  | ApiGatewayV2DeploymentProperties ApiGatewayV2Deployment+  | ApiGatewayV2IntegrationProperties ApiGatewayV2Integration+  | ApiGatewayV2IntegrationResponseProperties ApiGatewayV2IntegrationResponse+  | ApiGatewayV2ModelProperties ApiGatewayV2Model+  | ApiGatewayV2RouteProperties ApiGatewayV2Route+  | ApiGatewayV2RouteResponseProperties ApiGatewayV2RouteResponse+  | ApiGatewayV2StageProperties ApiGatewayV2Stage   | AppStreamDirectoryConfigProperties AppStreamDirectoryConfig   | AppStreamFleetProperties AppStreamFleet   | AppStreamImageBuilderProperties AppStreamImageBuilder@@ -1283,6 +1375,7 @@   | ElasticsearchDomainProperties ElasticsearchDomain   | EventsEventBusPolicyProperties EventsEventBusPolicy   | EventsRuleProperties EventsRule+  | FSxFileSystemProperties FSxFileSystem   | GameLiftAliasProperties GameLiftAlias   | GameLiftBuildProperties GameLiftBuild   | GameLiftFleetProperties GameLiftFleet@@ -1333,6 +1426,10 @@   | KinesisAnalyticsApplicationProperties KinesisAnalyticsApplication   | KinesisAnalyticsApplicationOutputProperties KinesisAnalyticsApplicationOutput   | KinesisAnalyticsApplicationReferenceDataSourceProperties KinesisAnalyticsApplicationReferenceDataSource+  | KinesisAnalyticsV2ApplicationProperties KinesisAnalyticsV2Application+  | KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionProperties KinesisAnalyticsV2ApplicationCloudWatchLoggingOption+  | KinesisAnalyticsV2ApplicationOutputProperties KinesisAnalyticsV2ApplicationOutput+  | KinesisAnalyticsV2ApplicationReferenceDataSourceProperties KinesisAnalyticsV2ApplicationReferenceDataSource   | KinesisFirehoseDeliveryStreamProperties KinesisFirehoseDeliveryStream   | LambdaAliasProperties LambdaAlias   | LambdaEventSourceMappingProperties LambdaEventSourceMapping@@ -1359,6 +1456,7 @@   | OpsWorksUserProfileProperties OpsWorksUserProfile   | OpsWorksVolumeProperties OpsWorksVolume   | OpsWorksCMServerProperties OpsWorksCMServer+  | RAMResourceShareProperties RAMResourceShare   | RDSDBClusterProperties RDSDBCluster   | RDSDBClusterParameterGroupProperties RDSDBClusterParameterGroup   | RDSDBInstanceProperties RDSDBInstance@@ -1373,6 +1471,12 @@   | RedshiftClusterSecurityGroupProperties RedshiftClusterSecurityGroup   | RedshiftClusterSecurityGroupIngressProperties RedshiftClusterSecurityGroupIngress   | RedshiftClusterSubnetGroupProperties RedshiftClusterSubnetGroup+  | RoboMakerFleetProperties RoboMakerFleet+  | RoboMakerRobotProperties RoboMakerRobot+  | RoboMakerRobotApplicationProperties RoboMakerRobotApplication+  | RoboMakerRobotApplicationVersionProperties RoboMakerRobotApplicationVersion+  | RoboMakerSimulationApplicationProperties RoboMakerSimulationApplication+  | RoboMakerSimulationApplicationVersionProperties RoboMakerSimulationApplicationVersion   | Route53HealthCheckProperties Route53HealthCheck   | Route53HostedZoneProperties Route53HostedZone   | Route53RecordSetProperties Route53RecordSet@@ -1467,6 +1571,7 @@   , _resourceUpdatePolicy :: Maybe UpdatePolicy   , _resourceDependsOn :: Maybe [T.Text]   , _resourceMetadata :: Maybe Object+  , _resourceCondition :: Maybe T.Text   } deriving (Show, Eq)  instance ToRef Resource b where@@ -1486,18 +1591,20 @@   , _resourceUpdatePolicy = Nothing   , _resourceDependsOn = Nothing   , _resourceMetadata = Nothing+  , _resourceCondition = Nothing   }  $(makeLenses ''Resource)  resourceToJSON :: Resource -> Value-resourceToJSON (Resource _ props dp cp up deps meta) =+resourceToJSON (Resource _ props dp cp up deps meta cond) =     object $ resourcePropertiesJSON props ++ catMaybes     [ maybeField "DeletionPolicy" dp     , maybeField "CreationPolicy" cp     , maybeField "UpdatePolicy" up     , maybeField "DependsOn" deps     , maybeField "Metadata" meta+    , maybeField "Condition" cond     ]  resourcePropertiesJSON :: ResourceProperties -> [Pair]@@ -1545,6 +1652,24 @@   [ "Type" .= ("AWS::ApiGateway::UsagePlanKey" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (ApiGatewayVpcLinkProperties x) =   [ "Type" .= ("AWS::ApiGateway::VpcLink" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (ApiGatewayV2ApiProperties x) =+  [ "Type" .= ("AWS::ApiGatewayV2::Api" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (ApiGatewayV2AuthorizerProperties x) =+  [ "Type" .= ("AWS::ApiGatewayV2::Authorizer" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (ApiGatewayV2DeploymentProperties x) =+  [ "Type" .= ("AWS::ApiGatewayV2::Deployment" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (ApiGatewayV2IntegrationProperties x) =+  [ "Type" .= ("AWS::ApiGatewayV2::Integration" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (ApiGatewayV2IntegrationResponseProperties x) =+  [ "Type" .= ("AWS::ApiGatewayV2::IntegrationResponse" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (ApiGatewayV2ModelProperties x) =+  [ "Type" .= ("AWS::ApiGatewayV2::Model" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (ApiGatewayV2RouteProperties x) =+  [ "Type" .= ("AWS::ApiGatewayV2::Route" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (ApiGatewayV2RouteResponseProperties x) =+  [ "Type" .= ("AWS::ApiGatewayV2::RouteResponse" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (ApiGatewayV2StageProperties x) =+  [ "Type" .= ("AWS::ApiGatewayV2::Stage" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (AppStreamDirectoryConfigProperties x) =   [ "Type" .= ("AWS::AppStream::DirectoryConfig" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (AppStreamFleetProperties x) =@@ -1859,6 +1984,8 @@   [ "Type" .= ("AWS::Events::EventBusPolicy" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (EventsRuleProperties x) =   [ "Type" .= ("AWS::Events::Rule" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (FSxFileSystemProperties x) =+  [ "Type" .= ("AWS::FSx::FileSystem" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (GameLiftAliasProperties x) =   [ "Type" .= ("AWS::GameLift::Alias" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (GameLiftBuildProperties x) =@@ -1959,6 +2086,14 @@   [ "Type" .= ("AWS::KinesisAnalytics::ApplicationOutput" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (KinesisAnalyticsApplicationReferenceDataSourceProperties x) =   [ "Type" .= ("AWS::KinesisAnalytics::ApplicationReferenceDataSource" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (KinesisAnalyticsV2ApplicationProperties x) =+  [ "Type" .= ("AWS::KinesisAnalyticsV2::Application" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionProperties x) =+  [ "Type" .= ("AWS::KinesisAnalyticsV2::ApplicationCloudWatchLoggingOption" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (KinesisAnalyticsV2ApplicationOutputProperties x) =+  [ "Type" .= ("AWS::KinesisAnalyticsV2::ApplicationOutput" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (KinesisAnalyticsV2ApplicationReferenceDataSourceProperties x) =+  [ "Type" .= ("AWS::KinesisAnalyticsV2::ApplicationReferenceDataSource" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (KinesisFirehoseDeliveryStreamProperties x) =   [ "Type" .= ("AWS::KinesisFirehose::DeliveryStream" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (LambdaAliasProperties x) =@@ -2011,6 +2146,8 @@   [ "Type" .= ("AWS::OpsWorks::Volume" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (OpsWorksCMServerProperties x) =   [ "Type" .= ("AWS::OpsWorksCM::Server" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (RAMResourceShareProperties x) =+  [ "Type" .= ("AWS::RAM::ResourceShare" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (RDSDBClusterProperties x) =   [ "Type" .= ("AWS::RDS::DBCluster" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (RDSDBClusterParameterGroupProperties x) =@@ -2039,6 +2176,18 @@   [ "Type" .= ("AWS::Redshift::ClusterSecurityGroupIngress" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (RedshiftClusterSubnetGroupProperties x) =   [ "Type" .= ("AWS::Redshift::ClusterSubnetGroup" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (RoboMakerFleetProperties x) =+  [ "Type" .= ("AWS::RoboMaker::Fleet" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (RoboMakerRobotProperties x) =+  [ "Type" .= ("AWS::RoboMaker::Robot" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (RoboMakerRobotApplicationProperties x) =+  [ "Type" .= ("AWS::RoboMaker::RobotApplication" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (RoboMakerRobotApplicationVersionProperties x) =+  [ "Type" .= ("AWS::RoboMaker::RobotApplicationVersion" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (RoboMakerSimulationApplicationProperties x) =+  [ "Type" .= ("AWS::RoboMaker::SimulationApplication" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (RoboMakerSimulationApplicationVersionProperties x) =+  [ "Type" .= ("AWS::RoboMaker::SimulationApplicationVersion" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (Route53HealthCheckProperties x) =   [ "Type" .= ("AWS::Route53::HealthCheck" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (Route53HostedZoneProperties x) =@@ -2213,6 +2362,15 @@          "AWS::ApiGateway::UsagePlan" -> ApiGatewayUsagePlanProperties <$> (o .: "Properties")          "AWS::ApiGateway::UsagePlanKey" -> ApiGatewayUsagePlanKeyProperties <$> (o .: "Properties")          "AWS::ApiGateway::VpcLink" -> ApiGatewayVpcLinkProperties <$> (o .: "Properties")+         "AWS::ApiGatewayV2::Api" -> ApiGatewayV2ApiProperties <$> (o .: "Properties")+         "AWS::ApiGatewayV2::Authorizer" -> ApiGatewayV2AuthorizerProperties <$> (o .: "Properties")+         "AWS::ApiGatewayV2::Deployment" -> ApiGatewayV2DeploymentProperties <$> (o .: "Properties")+         "AWS::ApiGatewayV2::Integration" -> ApiGatewayV2IntegrationProperties <$> (o .: "Properties")+         "AWS::ApiGatewayV2::IntegrationResponse" -> ApiGatewayV2IntegrationResponseProperties <$> (o .: "Properties")+         "AWS::ApiGatewayV2::Model" -> ApiGatewayV2ModelProperties <$> (o .: "Properties")+         "AWS::ApiGatewayV2::Route" -> ApiGatewayV2RouteProperties <$> (o .: "Properties")+         "AWS::ApiGatewayV2::RouteResponse" -> ApiGatewayV2RouteResponseProperties <$> (o .: "Properties")+         "AWS::ApiGatewayV2::Stage" -> ApiGatewayV2StageProperties <$> (o .: "Properties")          "AWS::AppStream::DirectoryConfig" -> AppStreamDirectoryConfigProperties <$> (o .: "Properties")          "AWS::AppStream::Fleet" -> AppStreamFleetProperties <$> (o .: "Properties")          "AWS::AppStream::ImageBuilder" -> AppStreamImageBuilderProperties <$> (o .: "Properties")@@ -2370,6 +2528,7 @@          "AWS::Elasticsearch::Domain" -> ElasticsearchDomainProperties <$> (o .: "Properties")          "AWS::Events::EventBusPolicy" -> EventsEventBusPolicyProperties <$> (o .: "Properties")          "AWS::Events::Rule" -> EventsRuleProperties <$> (o .: "Properties")+         "AWS::FSx::FileSystem" -> FSxFileSystemProperties <$> (o .: "Properties")          "AWS::GameLift::Alias" -> GameLiftAliasProperties <$> (o .: "Properties")          "AWS::GameLift::Build" -> GameLiftBuildProperties <$> (o .: "Properties")          "AWS::GameLift::Fleet" -> GameLiftFleetProperties <$> (o .: "Properties")@@ -2420,6 +2579,10 @@          "AWS::KinesisAnalytics::Application" -> KinesisAnalyticsApplicationProperties <$> (o .: "Properties")          "AWS::KinesisAnalytics::ApplicationOutput" -> KinesisAnalyticsApplicationOutputProperties <$> (o .: "Properties")          "AWS::KinesisAnalytics::ApplicationReferenceDataSource" -> KinesisAnalyticsApplicationReferenceDataSourceProperties <$> (o .: "Properties")+         "AWS::KinesisAnalyticsV2::Application" -> KinesisAnalyticsV2ApplicationProperties <$> (o .: "Properties")+         "AWS::KinesisAnalyticsV2::ApplicationCloudWatchLoggingOption" -> KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionProperties <$> (o .: "Properties")+         "AWS::KinesisAnalyticsV2::ApplicationOutput" -> KinesisAnalyticsV2ApplicationOutputProperties <$> (o .: "Properties")+         "AWS::KinesisAnalyticsV2::ApplicationReferenceDataSource" -> KinesisAnalyticsV2ApplicationReferenceDataSourceProperties <$> (o .: "Properties")          "AWS::KinesisFirehose::DeliveryStream" -> KinesisFirehoseDeliveryStreamProperties <$> (o .: "Properties")          "AWS::Lambda::Alias" -> LambdaAliasProperties <$> (o .: "Properties")          "AWS::Lambda::EventSourceMapping" -> LambdaEventSourceMappingProperties <$> (o .: "Properties")@@ -2446,6 +2609,7 @@          "AWS::OpsWorks::UserProfile" -> OpsWorksUserProfileProperties <$> (o .: "Properties")          "AWS::OpsWorks::Volume" -> OpsWorksVolumeProperties <$> (o .: "Properties")          "AWS::OpsWorksCM::Server" -> OpsWorksCMServerProperties <$> (o .: "Properties")+         "AWS::RAM::ResourceShare" -> RAMResourceShareProperties <$> (o .: "Properties")          "AWS::RDS::DBCluster" -> RDSDBClusterProperties <$> (o .: "Properties")          "AWS::RDS::DBClusterParameterGroup" -> RDSDBClusterParameterGroupProperties <$> (o .: "Properties")          "AWS::RDS::DBInstance" -> RDSDBInstanceProperties <$> (o .: "Properties")@@ -2460,6 +2624,12 @@          "AWS::Redshift::ClusterSecurityGroup" -> RedshiftClusterSecurityGroupProperties <$> (o .: "Properties")          "AWS::Redshift::ClusterSecurityGroupIngress" -> RedshiftClusterSecurityGroupIngressProperties <$> (o .: "Properties")          "AWS::Redshift::ClusterSubnetGroup" -> RedshiftClusterSubnetGroupProperties <$> (o .: "Properties")+         "AWS::RoboMaker::Fleet" -> RoboMakerFleetProperties <$> (o .: "Properties")+         "AWS::RoboMaker::Robot" -> RoboMakerRobotProperties <$> (o .: "Properties")+         "AWS::RoboMaker::RobotApplication" -> RoboMakerRobotApplicationProperties <$> (o .: "Properties")+         "AWS::RoboMaker::RobotApplicationVersion" -> RoboMakerRobotApplicationVersionProperties <$> (o .: "Properties")+         "AWS::RoboMaker::SimulationApplication" -> RoboMakerSimulationApplicationProperties <$> (o .: "Properties")+         "AWS::RoboMaker::SimulationApplicationVersion" -> RoboMakerSimulationApplicationVersionProperties <$> (o .: "Properties")          "AWS::Route53::HealthCheck" -> Route53HealthCheckProperties <$> (o .: "Properties")          "AWS::Route53::HostedZone" -> Route53HostedZoneProperties <$> (o .: "Properties")          "AWS::Route53::RecordSet" -> Route53RecordSetProperties <$> (o .: "Properties")@@ -2540,7 +2710,8 @@        up <- o .:? "UpdatePolicy"        deps <- o .:? "DependsOn"        meta <- o .:? "Metadata"-       return $ Resource n props dp cp up deps meta+       cond <- o .:? "Condition"+       return $ Resource n props dp cp up deps meta cond  -- | Wrapper around a list of 'Resources's to we can modify the aeson -- instances.
library-gen/Stratosphere/Resources/ApiGatewayAuthorizer.hs view
@@ -22,7 +22,7 @@   , _apiGatewayAuthorizerName :: Maybe (Val Text)   , _apiGatewayAuthorizerProviderARNs :: Maybe (ValList Text)   , _apiGatewayAuthorizerRestApiId :: Val Text-  , _apiGatewayAuthorizerType :: Maybe (Val AuthorizerType)+  , _apiGatewayAuthorizerType :: Val AuthorizerType   } deriving (Show, Eq)  instance ToJSON ApiGatewayAuthorizer where@@ -38,7 +38,7 @@     , fmap (("Name",) . toJSON) _apiGatewayAuthorizerName     , fmap (("ProviderARNs",) . toJSON) _apiGatewayAuthorizerProviderARNs     , (Just . ("RestApiId",) . toJSON) _apiGatewayAuthorizerRestApiId-    , fmap (("Type",) . toJSON) _apiGatewayAuthorizerType+    , (Just . ("Type",) . toJSON) _apiGatewayAuthorizerType     ]  instance FromJSON ApiGatewayAuthorizer where@@ -53,15 +53,16 @@       (obj .:? "Name") <*>       (obj .:? "ProviderARNs") <*>       (obj .: "RestApiId") <*>-      (obj .:? "Type")+      (obj .: "Type")   parseJSON _ = mempty  -- | Constructor for 'ApiGatewayAuthorizer' containing required fields as -- arguments. apiGatewayAuthorizer   :: Val Text -- ^ 'agaRestApiId'+  -> Val AuthorizerType -- ^ 'agaType'   -> ApiGatewayAuthorizer-apiGatewayAuthorizer restApiIdarg =+apiGatewayAuthorizer restApiIdarg typearg =   ApiGatewayAuthorizer   { _apiGatewayAuthorizerAuthType = Nothing   , _apiGatewayAuthorizerAuthorizerCredentials = Nothing@@ -72,7 +73,7 @@   , _apiGatewayAuthorizerName = Nothing   , _apiGatewayAuthorizerProviderARNs = Nothing   , _apiGatewayAuthorizerRestApiId = restApiIdarg-  , _apiGatewayAuthorizerType = Nothing+  , _apiGatewayAuthorizerType = typearg   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-authorizer.html#cfn-apigateway-authorizer-authtype@@ -112,5 +113,5 @@ agaRestApiId = lens _apiGatewayAuthorizerRestApiId (\s a -> s { _apiGatewayAuthorizerRestApiId = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-authorizer.html#cfn-apigateway-authorizer-type-agaType :: Lens' ApiGatewayAuthorizer (Maybe (Val AuthorizerType))+agaType :: Lens' ApiGatewayAuthorizer (Val AuthorizerType) agaType = lens _apiGatewayAuthorizerType (\s a -> s { _apiGatewayAuthorizerType = a })
+ library-gen/Stratosphere/Resources/ApiGatewayV2Api.hs view
@@ -0,0 +1,94 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-api.html++module Stratosphere.Resources.ApiGatewayV2Api where++import Stratosphere.ResourceImports+++-- | Full data type definition for ApiGatewayV2Api. See 'apiGatewayV2Api' for+-- a more convenient constructor.+data ApiGatewayV2Api =+  ApiGatewayV2Api+  { _apiGatewayV2ApiApiKeySelectionExpression :: Maybe (Val Text)+  , _apiGatewayV2ApiDescription :: Maybe (Val Text)+  , _apiGatewayV2ApiDisableSchemaValidation :: Maybe (Val Bool)+  , _apiGatewayV2ApiName :: Val Text+  , _apiGatewayV2ApiProtocolType :: Val Text+  , _apiGatewayV2ApiRouteSelectionExpression :: Val Text+  , _apiGatewayV2ApiVersion :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON ApiGatewayV2Api where+  toJSON ApiGatewayV2Api{..} =+    object $+    catMaybes+    [ fmap (("ApiKeySelectionExpression",) . toJSON) _apiGatewayV2ApiApiKeySelectionExpression+    , fmap (("Description",) . toJSON) _apiGatewayV2ApiDescription+    , fmap (("DisableSchemaValidation",) . toJSON . fmap Bool') _apiGatewayV2ApiDisableSchemaValidation+    , (Just . ("Name",) . toJSON) _apiGatewayV2ApiName+    , (Just . ("ProtocolType",) . toJSON) _apiGatewayV2ApiProtocolType+    , (Just . ("RouteSelectionExpression",) . toJSON) _apiGatewayV2ApiRouteSelectionExpression+    , fmap (("Version",) . toJSON) _apiGatewayV2ApiVersion+    ]++instance FromJSON ApiGatewayV2Api where+  parseJSON (Object obj) =+    ApiGatewayV2Api <$>+      (obj .:? "ApiKeySelectionExpression") <*>+      (obj .:? "Description") <*>+      fmap (fmap (fmap unBool')) (obj .:? "DisableSchemaValidation") <*>+      (obj .: "Name") <*>+      (obj .: "ProtocolType") <*>+      (obj .: "RouteSelectionExpression") <*>+      (obj .:? "Version")+  parseJSON _ = mempty++-- | Constructor for 'ApiGatewayV2Api' containing required fields as+-- arguments.+apiGatewayV2Api+  :: Val Text -- ^ 'agvapName'+  -> Val Text -- ^ 'agvapProtocolType'+  -> Val Text -- ^ 'agvapRouteSelectionExpression'+  -> ApiGatewayV2Api+apiGatewayV2Api namearg protocolTypearg routeSelectionExpressionarg =+  ApiGatewayV2Api+  { _apiGatewayV2ApiApiKeySelectionExpression = Nothing+  , _apiGatewayV2ApiDescription = Nothing+  , _apiGatewayV2ApiDisableSchemaValidation = Nothing+  , _apiGatewayV2ApiName = namearg+  , _apiGatewayV2ApiProtocolType = protocolTypearg+  , _apiGatewayV2ApiRouteSelectionExpression = routeSelectionExpressionarg+  , _apiGatewayV2ApiVersion = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-api.html#cfn-apigatewayv2-api-apikeyselectionexpression+agvapApiKeySelectionExpression :: Lens' ApiGatewayV2Api (Maybe (Val Text))+agvapApiKeySelectionExpression = lens _apiGatewayV2ApiApiKeySelectionExpression (\s a -> s { _apiGatewayV2ApiApiKeySelectionExpression = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-api.html#cfn-apigatewayv2-api-description+agvapDescription :: Lens' ApiGatewayV2Api (Maybe (Val Text))+agvapDescription = lens _apiGatewayV2ApiDescription (\s a -> s { _apiGatewayV2ApiDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-api.html#cfn-apigatewayv2-api-disableschemavalidation+agvapDisableSchemaValidation :: Lens' ApiGatewayV2Api (Maybe (Val Bool))+agvapDisableSchemaValidation = lens _apiGatewayV2ApiDisableSchemaValidation (\s a -> s { _apiGatewayV2ApiDisableSchemaValidation = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-api.html#cfn-apigatewayv2-api-name+agvapName :: Lens' ApiGatewayV2Api (Val Text)+agvapName = lens _apiGatewayV2ApiName (\s a -> s { _apiGatewayV2ApiName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-api.html#cfn-apigatewayv2-api-protocoltype+agvapProtocolType :: Lens' ApiGatewayV2Api (Val Text)+agvapProtocolType = lens _apiGatewayV2ApiProtocolType (\s a -> s { _apiGatewayV2ApiProtocolType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-api.html#cfn-apigatewayv2-api-routeselectionexpression+agvapRouteSelectionExpression :: Lens' ApiGatewayV2Api (Val Text)+agvapRouteSelectionExpression = lens _apiGatewayV2ApiRouteSelectionExpression (\s a -> s { _apiGatewayV2ApiRouteSelectionExpression = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-api.html#cfn-apigatewayv2-api-version+agvapVersion :: Lens' ApiGatewayV2Api (Maybe (Val Text))+agvapVersion = lens _apiGatewayV2ApiVersion (\s a -> s { _apiGatewayV2ApiVersion = a })
+ library-gen/Stratosphere/Resources/ApiGatewayV2Authorizer.hs view
@@ -0,0 +1,104 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-authorizer.html++module Stratosphere.Resources.ApiGatewayV2Authorizer where++import Stratosphere.ResourceImports+++-- | Full data type definition for ApiGatewayV2Authorizer. See+-- 'apiGatewayV2Authorizer' for a more convenient constructor.+data ApiGatewayV2Authorizer =+  ApiGatewayV2Authorizer+  { _apiGatewayV2AuthorizerApiId :: Val Text+  , _apiGatewayV2AuthorizerAuthorizerCredentialsArn :: Maybe (Val Text)+  , _apiGatewayV2AuthorizerAuthorizerResultTtlInSeconds :: Maybe (Val Integer)+  , _apiGatewayV2AuthorizerAuthorizerType :: Val Text+  , _apiGatewayV2AuthorizerAuthorizerUri :: Val Text+  , _apiGatewayV2AuthorizerIdentitySource :: ValList Text+  , _apiGatewayV2AuthorizerIdentityValidationExpression :: Maybe (Val Text)+  , _apiGatewayV2AuthorizerName :: Val Text+  } deriving (Show, Eq)++instance ToJSON ApiGatewayV2Authorizer where+  toJSON ApiGatewayV2Authorizer{..} =+    object $+    catMaybes+    [ (Just . ("ApiId",) . toJSON) _apiGatewayV2AuthorizerApiId+    , fmap (("AuthorizerCredentialsArn",) . toJSON) _apiGatewayV2AuthorizerAuthorizerCredentialsArn+    , fmap (("AuthorizerResultTtlInSeconds",) . toJSON . fmap Integer') _apiGatewayV2AuthorizerAuthorizerResultTtlInSeconds+    , (Just . ("AuthorizerType",) . toJSON) _apiGatewayV2AuthorizerAuthorizerType+    , (Just . ("AuthorizerUri",) . toJSON) _apiGatewayV2AuthorizerAuthorizerUri+    , (Just . ("IdentitySource",) . toJSON) _apiGatewayV2AuthorizerIdentitySource+    , fmap (("IdentityValidationExpression",) . toJSON) _apiGatewayV2AuthorizerIdentityValidationExpression+    , (Just . ("Name",) . toJSON) _apiGatewayV2AuthorizerName+    ]++instance FromJSON ApiGatewayV2Authorizer where+  parseJSON (Object obj) =+    ApiGatewayV2Authorizer <$>+      (obj .: "ApiId") <*>+      (obj .:? "AuthorizerCredentialsArn") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "AuthorizerResultTtlInSeconds") <*>+      (obj .: "AuthorizerType") <*>+      (obj .: "AuthorizerUri") <*>+      (obj .: "IdentitySource") <*>+      (obj .:? "IdentityValidationExpression") <*>+      (obj .: "Name")+  parseJSON _ = mempty++-- | Constructor for 'ApiGatewayV2Authorizer' containing required fields as+-- arguments.+apiGatewayV2Authorizer+  :: Val Text -- ^ 'agvauApiId'+  -> Val Text -- ^ 'agvauAuthorizerType'+  -> Val Text -- ^ 'agvauAuthorizerUri'+  -> ValList Text -- ^ 'agvauIdentitySource'+  -> Val Text -- ^ 'agvauName'+  -> ApiGatewayV2Authorizer+apiGatewayV2Authorizer apiIdarg authorizerTypearg authorizerUriarg identitySourcearg namearg =+  ApiGatewayV2Authorizer+  { _apiGatewayV2AuthorizerApiId = apiIdarg+  , _apiGatewayV2AuthorizerAuthorizerCredentialsArn = Nothing+  , _apiGatewayV2AuthorizerAuthorizerResultTtlInSeconds = Nothing+  , _apiGatewayV2AuthorizerAuthorizerType = authorizerTypearg+  , _apiGatewayV2AuthorizerAuthorizerUri = authorizerUriarg+  , _apiGatewayV2AuthorizerIdentitySource = identitySourcearg+  , _apiGatewayV2AuthorizerIdentityValidationExpression = Nothing+  , _apiGatewayV2AuthorizerName = namearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-authorizer.html#cfn-apigatewayv2-authorizer-apiid+agvauApiId :: Lens' ApiGatewayV2Authorizer (Val Text)+agvauApiId = lens _apiGatewayV2AuthorizerApiId (\s a -> s { _apiGatewayV2AuthorizerApiId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-authorizer.html#cfn-apigatewayv2-authorizer-authorizercredentialsarn+agvauAuthorizerCredentialsArn :: Lens' ApiGatewayV2Authorizer (Maybe (Val Text))+agvauAuthorizerCredentialsArn = lens _apiGatewayV2AuthorizerAuthorizerCredentialsArn (\s a -> s { _apiGatewayV2AuthorizerAuthorizerCredentialsArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-authorizer.html#cfn-apigatewayv2-authorizer-authorizerresultttlinseconds+agvauAuthorizerResultTtlInSeconds :: Lens' ApiGatewayV2Authorizer (Maybe (Val Integer))+agvauAuthorizerResultTtlInSeconds = lens _apiGatewayV2AuthorizerAuthorizerResultTtlInSeconds (\s a -> s { _apiGatewayV2AuthorizerAuthorizerResultTtlInSeconds = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-authorizer.html#cfn-apigatewayv2-authorizer-authorizertype+agvauAuthorizerType :: Lens' ApiGatewayV2Authorizer (Val Text)+agvauAuthorizerType = lens _apiGatewayV2AuthorizerAuthorizerType (\s a -> s { _apiGatewayV2AuthorizerAuthorizerType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-authorizer.html#cfn-apigatewayv2-authorizer-authorizeruri+agvauAuthorizerUri :: Lens' ApiGatewayV2Authorizer (Val Text)+agvauAuthorizerUri = lens _apiGatewayV2AuthorizerAuthorizerUri (\s a -> s { _apiGatewayV2AuthorizerAuthorizerUri = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-authorizer.html#cfn-apigatewayv2-authorizer-identitysource+agvauIdentitySource :: Lens' ApiGatewayV2Authorizer (ValList Text)+agvauIdentitySource = lens _apiGatewayV2AuthorizerIdentitySource (\s a -> s { _apiGatewayV2AuthorizerIdentitySource = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-authorizer.html#cfn-apigatewayv2-authorizer-identityvalidationexpression+agvauIdentityValidationExpression :: Lens' ApiGatewayV2Authorizer (Maybe (Val Text))+agvauIdentityValidationExpression = lens _apiGatewayV2AuthorizerIdentityValidationExpression (\s a -> s { _apiGatewayV2AuthorizerIdentityValidationExpression = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-authorizer.html#cfn-apigatewayv2-authorizer-name+agvauName :: Lens' ApiGatewayV2Authorizer (Val Text)+agvauName = lens _apiGatewayV2AuthorizerName (\s a -> s { _apiGatewayV2AuthorizerName = a })
+ library-gen/Stratosphere/Resources/ApiGatewayV2Deployment.hs view
@@ -0,0 +1,60 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-deployment.html++module Stratosphere.Resources.ApiGatewayV2Deployment where++import Stratosphere.ResourceImports+++-- | Full data type definition for ApiGatewayV2Deployment. See+-- 'apiGatewayV2Deployment' for a more convenient constructor.+data ApiGatewayV2Deployment =+  ApiGatewayV2Deployment+  { _apiGatewayV2DeploymentApiId :: Val Text+  , _apiGatewayV2DeploymentDescription :: Maybe (Val Text)+  , _apiGatewayV2DeploymentStageName :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON ApiGatewayV2Deployment where+  toJSON ApiGatewayV2Deployment{..} =+    object $+    catMaybes+    [ (Just . ("ApiId",) . toJSON) _apiGatewayV2DeploymentApiId+    , fmap (("Description",) . toJSON) _apiGatewayV2DeploymentDescription+    , fmap (("StageName",) . toJSON) _apiGatewayV2DeploymentStageName+    ]++instance FromJSON ApiGatewayV2Deployment where+  parseJSON (Object obj) =+    ApiGatewayV2Deployment <$>+      (obj .: "ApiId") <*>+      (obj .:? "Description") <*>+      (obj .:? "StageName")+  parseJSON _ = mempty++-- | Constructor for 'ApiGatewayV2Deployment' containing required fields as+-- arguments.+apiGatewayV2Deployment+  :: Val Text -- ^ 'agvdApiId'+  -> ApiGatewayV2Deployment+apiGatewayV2Deployment apiIdarg =+  ApiGatewayV2Deployment+  { _apiGatewayV2DeploymentApiId = apiIdarg+  , _apiGatewayV2DeploymentDescription = Nothing+  , _apiGatewayV2DeploymentStageName = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-deployment.html#cfn-apigatewayv2-deployment-apiid+agvdApiId :: Lens' ApiGatewayV2Deployment (Val Text)+agvdApiId = lens _apiGatewayV2DeploymentApiId (\s a -> s { _apiGatewayV2DeploymentApiId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-deployment.html#cfn-apigatewayv2-deployment-description+agvdDescription :: Lens' ApiGatewayV2Deployment (Maybe (Val Text))+agvdDescription = lens _apiGatewayV2DeploymentDescription (\s a -> s { _apiGatewayV2DeploymentDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-deployment.html#cfn-apigatewayv2-deployment-stagename+agvdStageName :: Lens' ApiGatewayV2Deployment (Maybe (Val Text))+agvdStageName = lens _apiGatewayV2DeploymentStageName (\s a -> s { _apiGatewayV2DeploymentStageName = a })
+ library-gen/Stratosphere/Resources/ApiGatewayV2Integration.hs view
@@ -0,0 +1,141 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html++module Stratosphere.Resources.ApiGatewayV2Integration where++import Stratosphere.ResourceImports+++-- | Full data type definition for ApiGatewayV2Integration. See+-- 'apiGatewayV2Integration' for a more convenient constructor.+data ApiGatewayV2Integration =+  ApiGatewayV2Integration+  { _apiGatewayV2IntegrationApiId :: Val Text+  , _apiGatewayV2IntegrationConnectionType :: Maybe (Val Text)+  , _apiGatewayV2IntegrationContentHandlingStrategy :: Maybe (Val Text)+  , _apiGatewayV2IntegrationCredentialsArn :: Maybe (Val Text)+  , _apiGatewayV2IntegrationDescription :: Maybe (Val Text)+  , _apiGatewayV2IntegrationIntegrationMethod :: Maybe (Val Text)+  , _apiGatewayV2IntegrationIntegrationType :: Val Text+  , _apiGatewayV2IntegrationIntegrationUri :: Maybe (Val Text)+  , _apiGatewayV2IntegrationPassthroughBehavior :: Maybe (Val Text)+  , _apiGatewayV2IntegrationRequestParameters :: Maybe Object+  , _apiGatewayV2IntegrationRequestTemplates :: Maybe Object+  , _apiGatewayV2IntegrationTemplateSelectionExpression :: Maybe (Val Text)+  , _apiGatewayV2IntegrationTimeoutInMillis :: Maybe (Val Integer)+  } deriving (Show, Eq)++instance ToJSON ApiGatewayV2Integration where+  toJSON ApiGatewayV2Integration{..} =+    object $+    catMaybes+    [ (Just . ("ApiId",) . toJSON) _apiGatewayV2IntegrationApiId+    , fmap (("ConnectionType",) . toJSON) _apiGatewayV2IntegrationConnectionType+    , fmap (("ContentHandlingStrategy",) . toJSON) _apiGatewayV2IntegrationContentHandlingStrategy+    , fmap (("CredentialsArn",) . toJSON) _apiGatewayV2IntegrationCredentialsArn+    , fmap (("Description",) . toJSON) _apiGatewayV2IntegrationDescription+    , fmap (("IntegrationMethod",) . toJSON) _apiGatewayV2IntegrationIntegrationMethod+    , (Just . ("IntegrationType",) . toJSON) _apiGatewayV2IntegrationIntegrationType+    , fmap (("IntegrationUri",) . toJSON) _apiGatewayV2IntegrationIntegrationUri+    , fmap (("PassthroughBehavior",) . toJSON) _apiGatewayV2IntegrationPassthroughBehavior+    , fmap (("RequestParameters",) . toJSON) _apiGatewayV2IntegrationRequestParameters+    , fmap (("RequestTemplates",) . toJSON) _apiGatewayV2IntegrationRequestTemplates+    , fmap (("TemplateSelectionExpression",) . toJSON) _apiGatewayV2IntegrationTemplateSelectionExpression+    , fmap (("TimeoutInMillis",) . toJSON . fmap Integer') _apiGatewayV2IntegrationTimeoutInMillis+    ]++instance FromJSON ApiGatewayV2Integration where+  parseJSON (Object obj) =+    ApiGatewayV2Integration <$>+      (obj .: "ApiId") <*>+      (obj .:? "ConnectionType") <*>+      (obj .:? "ContentHandlingStrategy") <*>+      (obj .:? "CredentialsArn") <*>+      (obj .:? "Description") <*>+      (obj .:? "IntegrationMethod") <*>+      (obj .: "IntegrationType") <*>+      (obj .:? "IntegrationUri") <*>+      (obj .:? "PassthroughBehavior") <*>+      (obj .:? "RequestParameters") <*>+      (obj .:? "RequestTemplates") <*>+      (obj .:? "TemplateSelectionExpression") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "TimeoutInMillis")+  parseJSON _ = mempty++-- | Constructor for 'ApiGatewayV2Integration' containing required fields as+-- arguments.+apiGatewayV2Integration+  :: Val Text -- ^ 'agviApiId'+  -> Val Text -- ^ 'agviIntegrationType'+  -> ApiGatewayV2Integration+apiGatewayV2Integration apiIdarg integrationTypearg =+  ApiGatewayV2Integration+  { _apiGatewayV2IntegrationApiId = apiIdarg+  , _apiGatewayV2IntegrationConnectionType = Nothing+  , _apiGatewayV2IntegrationContentHandlingStrategy = Nothing+  , _apiGatewayV2IntegrationCredentialsArn = Nothing+  , _apiGatewayV2IntegrationDescription = Nothing+  , _apiGatewayV2IntegrationIntegrationMethod = Nothing+  , _apiGatewayV2IntegrationIntegrationType = integrationTypearg+  , _apiGatewayV2IntegrationIntegrationUri = Nothing+  , _apiGatewayV2IntegrationPassthroughBehavior = Nothing+  , _apiGatewayV2IntegrationRequestParameters = Nothing+  , _apiGatewayV2IntegrationRequestTemplates = Nothing+  , _apiGatewayV2IntegrationTemplateSelectionExpression = Nothing+  , _apiGatewayV2IntegrationTimeoutInMillis = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html#cfn-apigatewayv2-integration-apiid+agviApiId :: Lens' ApiGatewayV2Integration (Val Text)+agviApiId = lens _apiGatewayV2IntegrationApiId (\s a -> s { _apiGatewayV2IntegrationApiId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html#cfn-apigatewayv2-integration-connectiontype+agviConnectionType :: Lens' ApiGatewayV2Integration (Maybe (Val Text))+agviConnectionType = lens _apiGatewayV2IntegrationConnectionType (\s a -> s { _apiGatewayV2IntegrationConnectionType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html#cfn-apigatewayv2-integration-contenthandlingstrategy+agviContentHandlingStrategy :: Lens' ApiGatewayV2Integration (Maybe (Val Text))+agviContentHandlingStrategy = lens _apiGatewayV2IntegrationContentHandlingStrategy (\s a -> s { _apiGatewayV2IntegrationContentHandlingStrategy = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html#cfn-apigatewayv2-integration-credentialsarn+agviCredentialsArn :: Lens' ApiGatewayV2Integration (Maybe (Val Text))+agviCredentialsArn = lens _apiGatewayV2IntegrationCredentialsArn (\s a -> s { _apiGatewayV2IntegrationCredentialsArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html#cfn-apigatewayv2-integration-description+agviDescription :: Lens' ApiGatewayV2Integration (Maybe (Val Text))+agviDescription = lens _apiGatewayV2IntegrationDescription (\s a -> s { _apiGatewayV2IntegrationDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html#cfn-apigatewayv2-integration-integrationmethod+agviIntegrationMethod :: Lens' ApiGatewayV2Integration (Maybe (Val Text))+agviIntegrationMethod = lens _apiGatewayV2IntegrationIntegrationMethod (\s a -> s { _apiGatewayV2IntegrationIntegrationMethod = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html#cfn-apigatewayv2-integration-integrationtype+agviIntegrationType :: Lens' ApiGatewayV2Integration (Val Text)+agviIntegrationType = lens _apiGatewayV2IntegrationIntegrationType (\s a -> s { _apiGatewayV2IntegrationIntegrationType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html#cfn-apigatewayv2-integration-integrationuri+agviIntegrationUri :: Lens' ApiGatewayV2Integration (Maybe (Val Text))+agviIntegrationUri = lens _apiGatewayV2IntegrationIntegrationUri (\s a -> s { _apiGatewayV2IntegrationIntegrationUri = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html#cfn-apigatewayv2-integration-passthroughbehavior+agviPassthroughBehavior :: Lens' ApiGatewayV2Integration (Maybe (Val Text))+agviPassthroughBehavior = lens _apiGatewayV2IntegrationPassthroughBehavior (\s a -> s { _apiGatewayV2IntegrationPassthroughBehavior = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html#cfn-apigatewayv2-integration-requestparameters+agviRequestParameters :: Lens' ApiGatewayV2Integration (Maybe Object)+agviRequestParameters = lens _apiGatewayV2IntegrationRequestParameters (\s a -> s { _apiGatewayV2IntegrationRequestParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html#cfn-apigatewayv2-integration-requesttemplates+agviRequestTemplates :: Lens' ApiGatewayV2Integration (Maybe Object)+agviRequestTemplates = lens _apiGatewayV2IntegrationRequestTemplates (\s a -> s { _apiGatewayV2IntegrationRequestTemplates = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html#cfn-apigatewayv2-integration-templateselectionexpression+agviTemplateSelectionExpression :: Lens' ApiGatewayV2Integration (Maybe (Val Text))+agviTemplateSelectionExpression = lens _apiGatewayV2IntegrationTemplateSelectionExpression (\s a -> s { _apiGatewayV2IntegrationTemplateSelectionExpression = a })++-- | 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 })
+ library-gen/Stratosphere/Resources/ApiGatewayV2IntegrationResponse.hs view
@@ -0,0 +1,94 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integrationresponse.html++module Stratosphere.Resources.ApiGatewayV2IntegrationResponse where++import Stratosphere.ResourceImports+++-- | Full data type definition for ApiGatewayV2IntegrationResponse. See+-- 'apiGatewayV2IntegrationResponse' for a more convenient constructor.+data ApiGatewayV2IntegrationResponse =+  ApiGatewayV2IntegrationResponse+  { _apiGatewayV2IntegrationResponseApiId :: Val Text+  , _apiGatewayV2IntegrationResponseContentHandlingStrategy :: Maybe (Val Text)+  , _apiGatewayV2IntegrationResponseIntegrationId :: Val Text+  , _apiGatewayV2IntegrationResponseIntegrationResponseKey :: Val Text+  , _apiGatewayV2IntegrationResponseResponseParameters :: Maybe Object+  , _apiGatewayV2IntegrationResponseResponseTemplates :: Maybe Object+  , _apiGatewayV2IntegrationResponseTemplateSelectionExpression :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON ApiGatewayV2IntegrationResponse where+  toJSON ApiGatewayV2IntegrationResponse{..} =+    object $+    catMaybes+    [ (Just . ("ApiId",) . toJSON) _apiGatewayV2IntegrationResponseApiId+    , fmap (("ContentHandlingStrategy",) . toJSON) _apiGatewayV2IntegrationResponseContentHandlingStrategy+    , (Just . ("IntegrationId",) . toJSON) _apiGatewayV2IntegrationResponseIntegrationId+    , (Just . ("IntegrationResponseKey",) . toJSON) _apiGatewayV2IntegrationResponseIntegrationResponseKey+    , fmap (("ResponseParameters",) . toJSON) _apiGatewayV2IntegrationResponseResponseParameters+    , fmap (("ResponseTemplates",) . toJSON) _apiGatewayV2IntegrationResponseResponseTemplates+    , fmap (("TemplateSelectionExpression",) . toJSON) _apiGatewayV2IntegrationResponseTemplateSelectionExpression+    ]++instance FromJSON ApiGatewayV2IntegrationResponse where+  parseJSON (Object obj) =+    ApiGatewayV2IntegrationResponse <$>+      (obj .: "ApiId") <*>+      (obj .:? "ContentHandlingStrategy") <*>+      (obj .: "IntegrationId") <*>+      (obj .: "IntegrationResponseKey") <*>+      (obj .:? "ResponseParameters") <*>+      (obj .:? "ResponseTemplates") <*>+      (obj .:? "TemplateSelectionExpression")+  parseJSON _ = mempty++-- | Constructor for 'ApiGatewayV2IntegrationResponse' containing required+-- fields as arguments.+apiGatewayV2IntegrationResponse+  :: Val Text -- ^ 'agvirApiId'+  -> Val Text -- ^ 'agvirIntegrationId'+  -> Val Text -- ^ 'agvirIntegrationResponseKey'+  -> ApiGatewayV2IntegrationResponse+apiGatewayV2IntegrationResponse apiIdarg integrationIdarg integrationResponseKeyarg =+  ApiGatewayV2IntegrationResponse+  { _apiGatewayV2IntegrationResponseApiId = apiIdarg+  , _apiGatewayV2IntegrationResponseContentHandlingStrategy = Nothing+  , _apiGatewayV2IntegrationResponseIntegrationId = integrationIdarg+  , _apiGatewayV2IntegrationResponseIntegrationResponseKey = integrationResponseKeyarg+  , _apiGatewayV2IntegrationResponseResponseParameters = Nothing+  , _apiGatewayV2IntegrationResponseResponseTemplates = Nothing+  , _apiGatewayV2IntegrationResponseTemplateSelectionExpression = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integrationresponse.html#cfn-apigatewayv2-integrationresponse-apiid+agvirApiId :: Lens' ApiGatewayV2IntegrationResponse (Val Text)+agvirApiId = lens _apiGatewayV2IntegrationResponseApiId (\s a -> s { _apiGatewayV2IntegrationResponseApiId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integrationresponse.html#cfn-apigatewayv2-integrationresponse-contenthandlingstrategy+agvirContentHandlingStrategy :: Lens' ApiGatewayV2IntegrationResponse (Maybe (Val Text))+agvirContentHandlingStrategy = lens _apiGatewayV2IntegrationResponseContentHandlingStrategy (\s a -> s { _apiGatewayV2IntegrationResponseContentHandlingStrategy = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integrationresponse.html#cfn-apigatewayv2-integrationresponse-integrationid+agvirIntegrationId :: Lens' ApiGatewayV2IntegrationResponse (Val Text)+agvirIntegrationId = lens _apiGatewayV2IntegrationResponseIntegrationId (\s a -> s { _apiGatewayV2IntegrationResponseIntegrationId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integrationresponse.html#cfn-apigatewayv2-integrationresponse-integrationresponsekey+agvirIntegrationResponseKey :: Lens' ApiGatewayV2IntegrationResponse (Val Text)+agvirIntegrationResponseKey = lens _apiGatewayV2IntegrationResponseIntegrationResponseKey (\s a -> s { _apiGatewayV2IntegrationResponseIntegrationResponseKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integrationresponse.html#cfn-apigatewayv2-integrationresponse-responseparameters+agvirResponseParameters :: Lens' ApiGatewayV2IntegrationResponse (Maybe Object)+agvirResponseParameters = lens _apiGatewayV2IntegrationResponseResponseParameters (\s a -> s { _apiGatewayV2IntegrationResponseResponseParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integrationresponse.html#cfn-apigatewayv2-integrationresponse-responsetemplates+agvirResponseTemplates :: Lens' ApiGatewayV2IntegrationResponse (Maybe Object)+agvirResponseTemplates = lens _apiGatewayV2IntegrationResponseResponseTemplates (\s a -> s { _apiGatewayV2IntegrationResponseResponseTemplates = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integrationresponse.html#cfn-apigatewayv2-integrationresponse-templateselectionexpression+agvirTemplateSelectionExpression :: Lens' ApiGatewayV2IntegrationResponse (Maybe (Val Text))+agvirTemplateSelectionExpression = lens _apiGatewayV2IntegrationResponseTemplateSelectionExpression (\s a -> s { _apiGatewayV2IntegrationResponseTemplateSelectionExpression = a })
+ library-gen/Stratosphere/Resources/ApiGatewayV2Model.hs view
@@ -0,0 +1,78 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-model.html++module Stratosphere.Resources.ApiGatewayV2Model where++import Stratosphere.ResourceImports+++-- | Full data type definition for ApiGatewayV2Model. See 'apiGatewayV2Model'+-- for a more convenient constructor.+data ApiGatewayV2Model =+  ApiGatewayV2Model+  { _apiGatewayV2ModelApiId :: Val Text+  , _apiGatewayV2ModelContentType :: Maybe (Val Text)+  , _apiGatewayV2ModelDescription :: Maybe (Val Text)+  , _apiGatewayV2ModelName :: Val Text+  , _apiGatewayV2ModelSchema :: Object+  } deriving (Show, Eq)++instance ToJSON ApiGatewayV2Model where+  toJSON ApiGatewayV2Model{..} =+    object $+    catMaybes+    [ (Just . ("ApiId",) . toJSON) _apiGatewayV2ModelApiId+    , fmap (("ContentType",) . toJSON) _apiGatewayV2ModelContentType+    , fmap (("Description",) . toJSON) _apiGatewayV2ModelDescription+    , (Just . ("Name",) . toJSON) _apiGatewayV2ModelName+    , (Just . ("Schema",) . toJSON) _apiGatewayV2ModelSchema+    ]++instance FromJSON ApiGatewayV2Model where+  parseJSON (Object obj) =+    ApiGatewayV2Model <$>+      (obj .: "ApiId") <*>+      (obj .:? "ContentType") <*>+      (obj .:? "Description") <*>+      (obj .: "Name") <*>+      (obj .: "Schema")+  parseJSON _ = mempty++-- | Constructor for 'ApiGatewayV2Model' containing required fields as+-- arguments.+apiGatewayV2Model+  :: Val Text -- ^ 'agvmApiId'+  -> Val Text -- ^ 'agvmName'+  -> Object -- ^ 'agvmSchema'+  -> ApiGatewayV2Model+apiGatewayV2Model apiIdarg namearg schemaarg =+  ApiGatewayV2Model+  { _apiGatewayV2ModelApiId = apiIdarg+  , _apiGatewayV2ModelContentType = Nothing+  , _apiGatewayV2ModelDescription = Nothing+  , _apiGatewayV2ModelName = namearg+  , _apiGatewayV2ModelSchema = schemaarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-model.html#cfn-apigatewayv2-model-apiid+agvmApiId :: Lens' ApiGatewayV2Model (Val Text)+agvmApiId = lens _apiGatewayV2ModelApiId (\s a -> s { _apiGatewayV2ModelApiId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-model.html#cfn-apigatewayv2-model-contenttype+agvmContentType :: Lens' ApiGatewayV2Model (Maybe (Val Text))+agvmContentType = lens _apiGatewayV2ModelContentType (\s a -> s { _apiGatewayV2ModelContentType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-model.html#cfn-apigatewayv2-model-description+agvmDescription :: Lens' ApiGatewayV2Model (Maybe (Val Text))+agvmDescription = lens _apiGatewayV2ModelDescription (\s a -> s { _apiGatewayV2ModelDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-model.html#cfn-apigatewayv2-model-name+agvmName :: Lens' ApiGatewayV2Model (Val Text)+agvmName = lens _apiGatewayV2ModelName (\s a -> s { _apiGatewayV2ModelName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-model.html#cfn-apigatewayv2-model-schema+agvmSchema :: Lens' ApiGatewayV2Model Object+agvmSchema = lens _apiGatewayV2ModelSchema (\s a -> s { _apiGatewayV2ModelSchema = a })
+ library-gen/Stratosphere/Resources/ApiGatewayV2Route.hs view
@@ -0,0 +1,133 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-route.html++module Stratosphere.Resources.ApiGatewayV2Route where++import Stratosphere.ResourceImports+++-- | Full data type definition for ApiGatewayV2Route. See 'apiGatewayV2Route'+-- for a more convenient constructor.+data ApiGatewayV2Route =+  ApiGatewayV2Route+  { _apiGatewayV2RouteApiId :: Val Text+  , _apiGatewayV2RouteApiKeyRequired :: Maybe (Val Bool)+  , _apiGatewayV2RouteAuthorizationScopes :: Maybe (ValList Text)+  , _apiGatewayV2RouteAuthorizationType :: Maybe (Val Text)+  , _apiGatewayV2RouteAuthorizerId :: Maybe (Val Text)+  , _apiGatewayV2RouteModelSelectionExpression :: Maybe (Val Text)+  , _apiGatewayV2RouteOperationName :: Maybe (Val Text)+  , _apiGatewayV2RouteRequestModels :: Maybe Object+  , _apiGatewayV2RouteRequestParameters :: Maybe Object+  , _apiGatewayV2RouteRouteKey :: Val Text+  , _apiGatewayV2RouteRouteResponseSelectionExpression :: Maybe (Val Text)+  , _apiGatewayV2RouteTarget :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON ApiGatewayV2Route where+  toJSON ApiGatewayV2Route{..} =+    object $+    catMaybes+    [ (Just . ("ApiId",) . toJSON) _apiGatewayV2RouteApiId+    , fmap (("ApiKeyRequired",) . toJSON . fmap Bool') _apiGatewayV2RouteApiKeyRequired+    , fmap (("AuthorizationScopes",) . toJSON) _apiGatewayV2RouteAuthorizationScopes+    , fmap (("AuthorizationType",) . toJSON) _apiGatewayV2RouteAuthorizationType+    , fmap (("AuthorizerId",) . toJSON) _apiGatewayV2RouteAuthorizerId+    , fmap (("ModelSelectionExpression",) . toJSON) _apiGatewayV2RouteModelSelectionExpression+    , fmap (("OperationName",) . toJSON) _apiGatewayV2RouteOperationName+    , fmap (("RequestModels",) . toJSON) _apiGatewayV2RouteRequestModels+    , fmap (("RequestParameters",) . toJSON) _apiGatewayV2RouteRequestParameters+    , (Just . ("RouteKey",) . toJSON) _apiGatewayV2RouteRouteKey+    , fmap (("RouteResponseSelectionExpression",) . toJSON) _apiGatewayV2RouteRouteResponseSelectionExpression+    , fmap (("Target",) . toJSON) _apiGatewayV2RouteTarget+    ]++instance FromJSON ApiGatewayV2Route where+  parseJSON (Object obj) =+    ApiGatewayV2Route <$>+      (obj .: "ApiId") <*>+      fmap (fmap (fmap unBool')) (obj .:? "ApiKeyRequired") <*>+      (obj .:? "AuthorizationScopes") <*>+      (obj .:? "AuthorizationType") <*>+      (obj .:? "AuthorizerId") <*>+      (obj .:? "ModelSelectionExpression") <*>+      (obj .:? "OperationName") <*>+      (obj .:? "RequestModels") <*>+      (obj .:? "RequestParameters") <*>+      (obj .: "RouteKey") <*>+      (obj .:? "RouteResponseSelectionExpression") <*>+      (obj .:? "Target")+  parseJSON _ = mempty++-- | Constructor for 'ApiGatewayV2Route' containing required fields as+-- arguments.+apiGatewayV2Route+  :: Val Text -- ^ 'agvrApiId'+  -> Val Text -- ^ 'agvrRouteKey'+  -> ApiGatewayV2Route+apiGatewayV2Route apiIdarg routeKeyarg =+  ApiGatewayV2Route+  { _apiGatewayV2RouteApiId = apiIdarg+  , _apiGatewayV2RouteApiKeyRequired = Nothing+  , _apiGatewayV2RouteAuthorizationScopes = Nothing+  , _apiGatewayV2RouteAuthorizationType = Nothing+  , _apiGatewayV2RouteAuthorizerId = Nothing+  , _apiGatewayV2RouteModelSelectionExpression = Nothing+  , _apiGatewayV2RouteOperationName = Nothing+  , _apiGatewayV2RouteRequestModels = Nothing+  , _apiGatewayV2RouteRequestParameters = Nothing+  , _apiGatewayV2RouteRouteKey = routeKeyarg+  , _apiGatewayV2RouteRouteResponseSelectionExpression = Nothing+  , _apiGatewayV2RouteTarget = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-route.html#cfn-apigatewayv2-route-apiid+agvrApiId :: Lens' ApiGatewayV2Route (Val Text)+agvrApiId = lens _apiGatewayV2RouteApiId (\s a -> s { _apiGatewayV2RouteApiId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-route.html#cfn-apigatewayv2-route-apikeyrequired+agvrApiKeyRequired :: Lens' ApiGatewayV2Route (Maybe (Val Bool))+agvrApiKeyRequired = lens _apiGatewayV2RouteApiKeyRequired (\s a -> s { _apiGatewayV2RouteApiKeyRequired = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-route.html#cfn-apigatewayv2-route-authorizationscopes+agvrAuthorizationScopes :: Lens' ApiGatewayV2Route (Maybe (ValList Text))+agvrAuthorizationScopes = lens _apiGatewayV2RouteAuthorizationScopes (\s a -> s { _apiGatewayV2RouteAuthorizationScopes = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-route.html#cfn-apigatewayv2-route-authorizationtype+agvrAuthorizationType :: Lens' ApiGatewayV2Route (Maybe (Val Text))+agvrAuthorizationType = lens _apiGatewayV2RouteAuthorizationType (\s a -> s { _apiGatewayV2RouteAuthorizationType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-route.html#cfn-apigatewayv2-route-authorizerid+agvrAuthorizerId :: Lens' ApiGatewayV2Route (Maybe (Val Text))+agvrAuthorizerId = lens _apiGatewayV2RouteAuthorizerId (\s a -> s { _apiGatewayV2RouteAuthorizerId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-route.html#cfn-apigatewayv2-route-modelselectionexpression+agvrModelSelectionExpression :: Lens' ApiGatewayV2Route (Maybe (Val Text))+agvrModelSelectionExpression = lens _apiGatewayV2RouteModelSelectionExpression (\s a -> s { _apiGatewayV2RouteModelSelectionExpression = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-route.html#cfn-apigatewayv2-route-operationname+agvrOperationName :: Lens' ApiGatewayV2Route (Maybe (Val Text))+agvrOperationName = lens _apiGatewayV2RouteOperationName (\s a -> s { _apiGatewayV2RouteOperationName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-route.html#cfn-apigatewayv2-route-requestmodels+agvrRequestModels :: Lens' ApiGatewayV2Route (Maybe Object)+agvrRequestModels = lens _apiGatewayV2RouteRequestModels (\s a -> s { _apiGatewayV2RouteRequestModels = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-route.html#cfn-apigatewayv2-route-requestparameters+agvrRequestParameters :: Lens' ApiGatewayV2Route (Maybe Object)+agvrRequestParameters = lens _apiGatewayV2RouteRequestParameters (\s a -> s { _apiGatewayV2RouteRequestParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-route.html#cfn-apigatewayv2-route-routekey+agvrRouteKey :: Lens' ApiGatewayV2Route (Val Text)+agvrRouteKey = lens _apiGatewayV2RouteRouteKey (\s a -> s { _apiGatewayV2RouteRouteKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-route.html#cfn-apigatewayv2-route-routeresponseselectionexpression+agvrRouteResponseSelectionExpression :: Lens' ApiGatewayV2Route (Maybe (Val Text))+agvrRouteResponseSelectionExpression = lens _apiGatewayV2RouteRouteResponseSelectionExpression (\s a -> s { _apiGatewayV2RouteRouteResponseSelectionExpression = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-route.html#cfn-apigatewayv2-route-target+agvrTarget :: Lens' ApiGatewayV2Route (Maybe (Val Text))+agvrTarget = lens _apiGatewayV2RouteTarget (\s a -> s { _apiGatewayV2RouteTarget = a })
+ library-gen/Stratosphere/Resources/ApiGatewayV2RouteResponse.hs view
@@ -0,0 +1,86 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-routeresponse.html++module Stratosphere.Resources.ApiGatewayV2RouteResponse where++import Stratosphere.ResourceImports+++-- | Full data type definition for ApiGatewayV2RouteResponse. See+-- 'apiGatewayV2RouteResponse' for a more convenient constructor.+data ApiGatewayV2RouteResponse =+  ApiGatewayV2RouteResponse+  { _apiGatewayV2RouteResponseApiId :: Val Text+  , _apiGatewayV2RouteResponseModelSelectionExpression :: Maybe (Val Text)+  , _apiGatewayV2RouteResponseResponseModels :: Maybe Object+  , _apiGatewayV2RouteResponseResponseParameters :: Maybe Object+  , _apiGatewayV2RouteResponseRouteId :: Val Text+  , _apiGatewayV2RouteResponseRouteResponseKey :: Val Text+  } deriving (Show, Eq)++instance ToJSON ApiGatewayV2RouteResponse where+  toJSON ApiGatewayV2RouteResponse{..} =+    object $+    catMaybes+    [ (Just . ("ApiId",) . toJSON) _apiGatewayV2RouteResponseApiId+    , fmap (("ModelSelectionExpression",) . toJSON) _apiGatewayV2RouteResponseModelSelectionExpression+    , fmap (("ResponseModels",) . toJSON) _apiGatewayV2RouteResponseResponseModels+    , fmap (("ResponseParameters",) . toJSON) _apiGatewayV2RouteResponseResponseParameters+    , (Just . ("RouteId",) . toJSON) _apiGatewayV2RouteResponseRouteId+    , (Just . ("RouteResponseKey",) . toJSON) _apiGatewayV2RouteResponseRouteResponseKey+    ]++instance FromJSON ApiGatewayV2RouteResponse where+  parseJSON (Object obj) =+    ApiGatewayV2RouteResponse <$>+      (obj .: "ApiId") <*>+      (obj .:? "ModelSelectionExpression") <*>+      (obj .:? "ResponseModels") <*>+      (obj .:? "ResponseParameters") <*>+      (obj .: "RouteId") <*>+      (obj .: "RouteResponseKey")+  parseJSON _ = mempty++-- | Constructor for 'ApiGatewayV2RouteResponse' containing required fields as+-- arguments.+apiGatewayV2RouteResponse+  :: Val Text -- ^ 'agvrrApiId'+  -> Val Text -- ^ 'agvrrRouteId'+  -> Val Text -- ^ 'agvrrRouteResponseKey'+  -> ApiGatewayV2RouteResponse+apiGatewayV2RouteResponse apiIdarg routeIdarg routeResponseKeyarg =+  ApiGatewayV2RouteResponse+  { _apiGatewayV2RouteResponseApiId = apiIdarg+  , _apiGatewayV2RouteResponseModelSelectionExpression = Nothing+  , _apiGatewayV2RouteResponseResponseModels = Nothing+  , _apiGatewayV2RouteResponseResponseParameters = Nothing+  , _apiGatewayV2RouteResponseRouteId = routeIdarg+  , _apiGatewayV2RouteResponseRouteResponseKey = routeResponseKeyarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-routeresponse.html#cfn-apigatewayv2-routeresponse-apiid+agvrrApiId :: Lens' ApiGatewayV2RouteResponse (Val Text)+agvrrApiId = lens _apiGatewayV2RouteResponseApiId (\s a -> s { _apiGatewayV2RouteResponseApiId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-routeresponse.html#cfn-apigatewayv2-routeresponse-modelselectionexpression+agvrrModelSelectionExpression :: Lens' ApiGatewayV2RouteResponse (Maybe (Val Text))+agvrrModelSelectionExpression = lens _apiGatewayV2RouteResponseModelSelectionExpression (\s a -> s { _apiGatewayV2RouteResponseModelSelectionExpression = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-routeresponse.html#cfn-apigatewayv2-routeresponse-responsemodels+agvrrResponseModels :: Lens' ApiGatewayV2RouteResponse (Maybe Object)+agvrrResponseModels = lens _apiGatewayV2RouteResponseResponseModels (\s a -> s { _apiGatewayV2RouteResponseResponseModels = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-routeresponse.html#cfn-apigatewayv2-routeresponse-responseparameters+agvrrResponseParameters :: Lens' ApiGatewayV2RouteResponse (Maybe Object)+agvrrResponseParameters = lens _apiGatewayV2RouteResponseResponseParameters (\s a -> s { _apiGatewayV2RouteResponseResponseParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-routeresponse.html#cfn-apigatewayv2-routeresponse-routeid+agvrrRouteId :: Lens' ApiGatewayV2RouteResponse (Val Text)+agvrrRouteId = lens _apiGatewayV2RouteResponseRouteId (\s a -> s { _apiGatewayV2RouteResponseRouteId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-routeresponse.html#cfn-apigatewayv2-routeresponse-routeresponsekey+agvrrRouteResponseKey :: Lens' ApiGatewayV2RouteResponse (Val Text)+agvrrRouteResponseKey = lens _apiGatewayV2RouteResponseRouteResponseKey (\s a -> s { _apiGatewayV2RouteResponseRouteResponseKey = a })
+ library-gen/Stratosphere/Resources/ApiGatewayV2Stage.hs view
@@ -0,0 +1,111 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-stage.html++module Stratosphere.Resources.ApiGatewayV2Stage where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.ApiGatewayV2StageAccessLogSettings+import Stratosphere.ResourceProperties.ApiGatewayV2StageRouteSettings++-- | Full data type definition for ApiGatewayV2Stage. See 'apiGatewayV2Stage'+-- for a more convenient constructor.+data ApiGatewayV2Stage =+  ApiGatewayV2Stage+  { _apiGatewayV2StageAccessLogSettings :: Maybe ApiGatewayV2StageAccessLogSettings+  , _apiGatewayV2StageApiId :: Val Text+  , _apiGatewayV2StageClientCertificateId :: Maybe (Val Text)+  , _apiGatewayV2StageDefaultRouteSettings :: Maybe ApiGatewayV2StageRouteSettings+  , _apiGatewayV2StageDeploymentId :: Val Text+  , _apiGatewayV2StageDescription :: Maybe (Val Text)+  , _apiGatewayV2StageRouteSettings :: Maybe Object+  , _apiGatewayV2StageStageName :: Val Text+  , _apiGatewayV2StageStageVariables :: Maybe Object+  } deriving (Show, Eq)++instance ToJSON ApiGatewayV2Stage where+  toJSON ApiGatewayV2Stage{..} =+    object $+    catMaybes+    [ fmap (("AccessLogSettings",) . toJSON) _apiGatewayV2StageAccessLogSettings+    , (Just . ("ApiId",) . toJSON) _apiGatewayV2StageApiId+    , fmap (("ClientCertificateId",) . toJSON) _apiGatewayV2StageClientCertificateId+    , fmap (("DefaultRouteSettings",) . toJSON) _apiGatewayV2StageDefaultRouteSettings+    , (Just . ("DeploymentId",) . toJSON) _apiGatewayV2StageDeploymentId+    , fmap (("Description",) . toJSON) _apiGatewayV2StageDescription+    , fmap (("RouteSettings",) . toJSON) _apiGatewayV2StageRouteSettings+    , (Just . ("StageName",) . toJSON) _apiGatewayV2StageStageName+    , fmap (("StageVariables",) . toJSON) _apiGatewayV2StageStageVariables+    ]++instance FromJSON ApiGatewayV2Stage where+  parseJSON (Object obj) =+    ApiGatewayV2Stage <$>+      (obj .:? "AccessLogSettings") <*>+      (obj .: "ApiId") <*>+      (obj .:? "ClientCertificateId") <*>+      (obj .:? "DefaultRouteSettings") <*>+      (obj .: "DeploymentId") <*>+      (obj .:? "Description") <*>+      (obj .:? "RouteSettings") <*>+      (obj .: "StageName") <*>+      (obj .:? "StageVariables")+  parseJSON _ = mempty++-- | Constructor for 'ApiGatewayV2Stage' containing required fields as+-- arguments.+apiGatewayV2Stage+  :: Val Text -- ^ 'agvsApiId'+  -> Val Text -- ^ 'agvsDeploymentId'+  -> Val Text -- ^ 'agvsStageName'+  -> ApiGatewayV2Stage+apiGatewayV2Stage apiIdarg deploymentIdarg stageNamearg =+  ApiGatewayV2Stage+  { _apiGatewayV2StageAccessLogSettings = Nothing+  , _apiGatewayV2StageApiId = apiIdarg+  , _apiGatewayV2StageClientCertificateId = Nothing+  , _apiGatewayV2StageDefaultRouteSettings = Nothing+  , _apiGatewayV2StageDeploymentId = deploymentIdarg+  , _apiGatewayV2StageDescription = Nothing+  , _apiGatewayV2StageRouteSettings = Nothing+  , _apiGatewayV2StageStageName = stageNamearg+  , _apiGatewayV2StageStageVariables = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-stage.html#cfn-apigatewayv2-stage-accesslogsettings+agvsAccessLogSettings :: Lens' ApiGatewayV2Stage (Maybe ApiGatewayV2StageAccessLogSettings)+agvsAccessLogSettings = lens _apiGatewayV2StageAccessLogSettings (\s a -> s { _apiGatewayV2StageAccessLogSettings = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-stage.html#cfn-apigatewayv2-stage-apiid+agvsApiId :: Lens' ApiGatewayV2Stage (Val Text)+agvsApiId = lens _apiGatewayV2StageApiId (\s a -> s { _apiGatewayV2StageApiId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-stage.html#cfn-apigatewayv2-stage-clientcertificateid+agvsClientCertificateId :: Lens' ApiGatewayV2Stage (Maybe (Val Text))+agvsClientCertificateId = lens _apiGatewayV2StageClientCertificateId (\s a -> s { _apiGatewayV2StageClientCertificateId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-stage.html#cfn-apigatewayv2-stage-defaultroutesettings+agvsDefaultRouteSettings :: Lens' ApiGatewayV2Stage (Maybe ApiGatewayV2StageRouteSettings)+agvsDefaultRouteSettings = lens _apiGatewayV2StageDefaultRouteSettings (\s a -> s { _apiGatewayV2StageDefaultRouteSettings = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-stage.html#cfn-apigatewayv2-stage-deploymentid+agvsDeploymentId :: Lens' ApiGatewayV2Stage (Val Text)+agvsDeploymentId = lens _apiGatewayV2StageDeploymentId (\s a -> s { _apiGatewayV2StageDeploymentId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-stage.html#cfn-apigatewayv2-stage-description+agvsDescription :: Lens' ApiGatewayV2Stage (Maybe (Val Text))+agvsDescription = lens _apiGatewayV2StageDescription (\s a -> s { _apiGatewayV2StageDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-stage.html#cfn-apigatewayv2-stage-routesettings+agvsRouteSettings :: Lens' ApiGatewayV2Stage (Maybe Object)+agvsRouteSettings = lens _apiGatewayV2StageRouteSettings (\s a -> s { _apiGatewayV2StageRouteSettings = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-stage.html#cfn-apigatewayv2-stage-stagename+agvsStageName :: Lens' ApiGatewayV2Stage (Val Text)+agvsStageName = lens _apiGatewayV2StageStageName (\s a -> s { _apiGatewayV2StageStageName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-stage.html#cfn-apigatewayv2-stage-stagevariables+agvsStageVariables :: Lens' ApiGatewayV2Stage (Maybe Object)+agvsStageVariables = lens _apiGatewayV2StageStageVariables (\s a -> s { _apiGatewayV2StageStageVariables = a })
library-gen/Stratosphere/Resources/CloudWatchAlarm.hs view
@@ -8,6 +8,7 @@  import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.CloudWatchAlarmDimension+import Stratosphere.ResourceProperties.CloudWatchAlarmMetricDataQuery  -- | Full data type definition for CloudWatchAlarm. See 'cloudWatchAlarm' for -- a more convenient constructor.@@ -25,6 +26,7 @@   , _cloudWatchAlarmExtendedStatistic :: Maybe (Val Text)   , _cloudWatchAlarmInsufficientDataActions :: Maybe (ValList Text)   , _cloudWatchAlarmMetricName :: Maybe (Val Text)+  , _cloudWatchAlarmMetrics :: Maybe [CloudWatchAlarmMetricDataQuery]   , _cloudWatchAlarmNamespace :: Maybe (Val Text)   , _cloudWatchAlarmOKActions :: Maybe (ValList Text)   , _cloudWatchAlarmPeriod :: Maybe (Val Integer)@@ -50,6 +52,7 @@     , fmap (("ExtendedStatistic",) . toJSON) _cloudWatchAlarmExtendedStatistic     , fmap (("InsufficientDataActions",) . toJSON) _cloudWatchAlarmInsufficientDataActions     , fmap (("MetricName",) . toJSON) _cloudWatchAlarmMetricName+    , fmap (("Metrics",) . toJSON) _cloudWatchAlarmMetrics     , fmap (("Namespace",) . toJSON) _cloudWatchAlarmNamespace     , fmap (("OKActions",) . toJSON) _cloudWatchAlarmOKActions     , fmap (("Period",) . toJSON . fmap Integer') _cloudWatchAlarmPeriod@@ -74,6 +77,7 @@       (obj .:? "ExtendedStatistic") <*>       (obj .:? "InsufficientDataActions") <*>       (obj .:? "MetricName") <*>+      (obj .:? "Metrics") <*>       (obj .:? "Namespace") <*>       (obj .:? "OKActions") <*>       fmap (fmap (fmap unInteger')) (obj .:? "Period") <*>@@ -104,6 +108,7 @@   , _cloudWatchAlarmExtendedStatistic = Nothing   , _cloudWatchAlarmInsufficientDataActions = Nothing   , _cloudWatchAlarmMetricName = Nothing+  , _cloudWatchAlarmMetrics = Nothing   , _cloudWatchAlarmNamespace = Nothing   , _cloudWatchAlarmOKActions = Nothing   , _cloudWatchAlarmPeriod = Nothing@@ -160,6 +165,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cw-alarm.html#cfn-cloudwatch-alarms-metricname cwaMetricName :: Lens' CloudWatchAlarm (Maybe (Val Text)) cwaMetricName = lens _cloudWatchAlarmMetricName (\s a -> s { _cloudWatchAlarmMetricName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cw-alarm.html#cfn-cloudwatch-alarm-metrics+cwaMetrics :: Lens' CloudWatchAlarm (Maybe [CloudWatchAlarmMetricDataQuery])+cwaMetrics = lens _cloudWatchAlarmMetrics (\s a -> s { _cloudWatchAlarmMetrics = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cw-alarm.html#cfn-cloudwatch-alarms-namespace cwaNamespace :: Lens' CloudWatchAlarm (Maybe (Val Text))
library-gen/Stratosphere/Resources/EC2VPCEndpoint.hs view
@@ -19,7 +19,7 @@   , _eC2VPCEndpointSecurityGroupIds :: Maybe (ValList Text)   , _eC2VPCEndpointServiceName :: Val Text   , _eC2VPCEndpointSubnetIds :: Maybe (ValList Text)-  , _eC2VPCEndpointVPCEndpointType :: Maybe (Val Text)+  , _eC2VPCEndpointVpcEndpointType :: Maybe (Val Text)   , _eC2VPCEndpointVpcId :: Val Text   } deriving (Show, Eq) @@ -33,7 +33,7 @@     , fmap (("SecurityGroupIds",) . toJSON) _eC2VPCEndpointSecurityGroupIds     , (Just . ("ServiceName",) . toJSON) _eC2VPCEndpointServiceName     , fmap (("SubnetIds",) . toJSON) _eC2VPCEndpointSubnetIds-    , fmap (("VPCEndpointType",) . toJSON) _eC2VPCEndpointVPCEndpointType+    , fmap (("VpcEndpointType",) . toJSON) _eC2VPCEndpointVpcEndpointType     , (Just . ("VpcId",) . toJSON) _eC2VPCEndpointVpcId     ] @@ -46,7 +46,7 @@       (obj .:? "SecurityGroupIds") <*>       (obj .: "ServiceName") <*>       (obj .:? "SubnetIds") <*>-      (obj .:? "VPCEndpointType") <*>+      (obj .:? "VpcEndpointType") <*>       (obj .: "VpcId")   parseJSON _ = mempty @@ -63,7 +63,7 @@   , _eC2VPCEndpointSecurityGroupIds = Nothing   , _eC2VPCEndpointServiceName = serviceNamearg   , _eC2VPCEndpointSubnetIds = Nothing-  , _eC2VPCEndpointVPCEndpointType = Nothing+  , _eC2VPCEndpointVpcEndpointType = Nothing   , _eC2VPCEndpointVpcId = vpcIdarg   } @@ -92,8 +92,8 @@ ecvpceSubnetIds = lens _eC2VPCEndpointSubnetIds (\s a -> s { _eC2VPCEndpointSubnetIds = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcendpoint.html#cfn-ec2-vpcendpoint-vpcendpointtype-ecvpceVPCEndpointType :: Lens' EC2VPCEndpoint (Maybe (Val Text))-ecvpceVPCEndpointType = lens _eC2VPCEndpointVPCEndpointType (\s a -> s { _eC2VPCEndpointVPCEndpointType = a })+ecvpceVpcEndpointType :: Lens' EC2VPCEndpoint (Maybe (Val Text))+ecvpceVpcEndpointType = lens _eC2VPCEndpointVpcEndpointType (\s a -> s { _eC2VPCEndpointVpcEndpointType = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcendpoint.html#cfn-ec2-vpcendpoint-vpcid ecvpceVpcId :: Lens' EC2VPCEndpoint (Val Text)
library-gen/Stratosphere/Resources/ECSCluster.hs view
@@ -7,14 +7,13 @@ module Stratosphere.Resources.ECSCluster where  import Stratosphere.ResourceImports-import Stratosphere.ResourceProperties.Tag + -- | Full data type definition for ECSCluster. See 'ecsCluster' for a more -- convenient constructor. data ECSCluster =   ECSCluster   { _eCSClusterClusterName :: Maybe (Val Text)-  , _eCSClusterTags :: Maybe [Tag]   } deriving (Show, Eq)  instance ToJSON ECSCluster where@@ -22,14 +21,12 @@     object $     catMaybes     [ fmap (("ClusterName",) . toJSON) _eCSClusterClusterName-    , fmap (("Tags",) . toJSON) _eCSClusterTags     ]  instance FromJSON ECSCluster where   parseJSON (Object obj) =     ECSCluster <$>-      (obj .:? "ClusterName") <*>-      (obj .:? "Tags")+      (obj .:? "ClusterName")   parseJSON _ = mempty  -- | Constructor for 'ECSCluster' containing required fields as arguments.@@ -38,13 +35,8 @@ ecsCluster  =   ECSCluster   { _eCSClusterClusterName = Nothing-  , _eCSClusterTags = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-cluster.html#cfn-ecs-cluster-clustername ecscClusterName :: Lens' ECSCluster (Maybe (Val Text)) ecscClusterName = lens _eCSClusterClusterName (\s a -> s { _eCSClusterClusterName = a })---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-cluster.html#cfn-ecs-cluster-tags-ecscTags :: Lens' ECSCluster (Maybe [Tag])-ecscTags = lens _eCSClusterTags (\s a -> s { _eCSClusterTags = a })
library-gen/Stratosphere/Resources/ECSService.hs view
@@ -13,7 +13,6 @@ import Stratosphere.ResourceProperties.ECSServicePlacementConstraint import Stratosphere.ResourceProperties.ECSServicePlacementStrategy import Stratosphere.ResourceProperties.ECSServiceServiceRegistry-import Stratosphere.ResourceProperties.Tag  -- | Full data type definition for ECSService. See 'ecsService' for a more -- convenient constructor.@@ -33,7 +32,6 @@   , _eCSServiceSchedulingStrategy :: Maybe (Val Text)   , _eCSServiceServiceName :: Maybe (Val Text)   , _eCSServiceServiceRegistries :: Maybe [ECSServiceServiceRegistry]-  , _eCSServiceTags :: Maybe [Tag]   , _eCSServiceTaskDefinition :: Val Text   } deriving (Show, Eq) @@ -55,7 +53,6 @@     , fmap (("SchedulingStrategy",) . toJSON) _eCSServiceSchedulingStrategy     , fmap (("ServiceName",) . toJSON) _eCSServiceServiceName     , fmap (("ServiceRegistries",) . toJSON) _eCSServiceServiceRegistries-    , fmap (("Tags",) . toJSON) _eCSServiceTags     , (Just . ("TaskDefinition",) . toJSON) _eCSServiceTaskDefinition     ] @@ -76,7 +73,6 @@       (obj .:? "SchedulingStrategy") <*>       (obj .:? "ServiceName") <*>       (obj .:? "ServiceRegistries") <*>-      (obj .:? "Tags") <*>       (obj .: "TaskDefinition")   parseJSON _ = mempty @@ -100,7 +96,6 @@   , _eCSServiceSchedulingStrategy = Nothing   , _eCSServiceServiceName = Nothing   , _eCSServiceServiceRegistries = Nothing-  , _eCSServiceTags = Nothing   , _eCSServiceTaskDefinition = taskDefinitionarg   } @@ -159,10 +154,6 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-serviceregistries ecssServiceRegistries :: Lens' ECSService (Maybe [ECSServiceServiceRegistry]) ecssServiceRegistries = lens _eCSServiceServiceRegistries (\s a -> s { _eCSServiceServiceRegistries = a })---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-tags-ecssTags :: Lens' ECSService (Maybe [Tag])-ecssTags = lens _eCSServiceTags (\s a -> s { _eCSServiceTags = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-taskdefinition ecssTaskDefinition :: Lens' ECSService (Val Text)
library-gen/Stratosphere/Resources/ECSTaskDefinition.hs view
@@ -9,7 +9,6 @@ import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.ECSTaskDefinitionContainerDefinition import Stratosphere.ResourceProperties.ECSTaskDefinitionTaskDefinitionPlacementConstraint-import Stratosphere.ResourceProperties.Tag import Stratosphere.ResourceProperties.ECSTaskDefinitionVolume  -- | Full data type definition for ECSTaskDefinition. See 'ecsTaskDefinition'@@ -24,7 +23,6 @@   , _eCSTaskDefinitionNetworkMode :: Maybe (Val Text)   , _eCSTaskDefinitionPlacementConstraints :: Maybe [ECSTaskDefinitionTaskDefinitionPlacementConstraint]   , _eCSTaskDefinitionRequiresCompatibilities :: Maybe (ValList Text)-  , _eCSTaskDefinitionTags :: Maybe [Tag]   , _eCSTaskDefinitionTaskRoleArn :: Maybe (Val Text)   , _eCSTaskDefinitionVolumes :: Maybe [ECSTaskDefinitionVolume]   } deriving (Show, Eq)@@ -41,7 +39,6 @@     , fmap (("NetworkMode",) . toJSON) _eCSTaskDefinitionNetworkMode     , fmap (("PlacementConstraints",) . toJSON) _eCSTaskDefinitionPlacementConstraints     , fmap (("RequiresCompatibilities",) . toJSON) _eCSTaskDefinitionRequiresCompatibilities-    , fmap (("Tags",) . toJSON) _eCSTaskDefinitionTags     , fmap (("TaskRoleArn",) . toJSON) _eCSTaskDefinitionTaskRoleArn     , fmap (("Volumes",) . toJSON) _eCSTaskDefinitionVolumes     ]@@ -57,7 +54,6 @@       (obj .:? "NetworkMode") <*>       (obj .:? "PlacementConstraints") <*>       (obj .:? "RequiresCompatibilities") <*>-      (obj .:? "Tags") <*>       (obj .:? "TaskRoleArn") <*>       (obj .:? "Volumes")   parseJSON _ = mempty@@ -76,7 +72,6 @@   , _eCSTaskDefinitionNetworkMode = Nothing   , _eCSTaskDefinitionPlacementConstraints = Nothing   , _eCSTaskDefinitionRequiresCompatibilities = Nothing-  , _eCSTaskDefinitionTags = Nothing   , _eCSTaskDefinitionTaskRoleArn = Nothing   , _eCSTaskDefinitionVolumes = Nothing   }@@ -112,10 +107,6 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-requirescompatibilities ecstdRequiresCompatibilities :: Lens' ECSTaskDefinition (Maybe (ValList Text)) ecstdRequiresCompatibilities = lens _eCSTaskDefinitionRequiresCompatibilities (\s a -> s { _eCSTaskDefinitionRequiresCompatibilities = a })---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-tags-ecstdTags :: Lens' ECSTaskDefinition (Maybe [Tag])-ecstdTags = lens _eCSTaskDefinitionTags (\s a -> s { _eCSTaskDefinitionTags = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-taskrolearn ecstdTaskRoleArn :: Lens' ECSTaskDefinition (Maybe (Val Text))
library-gen/Stratosphere/Resources/ElasticLoadBalancingV2TargetGroup.hs view
@@ -16,7 +16,8 @@ -- 'elasticLoadBalancingV2TargetGroup' for a more convenient constructor. data ElasticLoadBalancingV2TargetGroup =   ElasticLoadBalancingV2TargetGroup-  { _elasticLoadBalancingV2TargetGroupHealthCheckIntervalSeconds :: Maybe (Val Integer)+  { _elasticLoadBalancingV2TargetGroupHealthCheckEnabled :: Maybe (Val Bool)+  , _elasticLoadBalancingV2TargetGroupHealthCheckIntervalSeconds :: Maybe (Val Integer)   , _elasticLoadBalancingV2TargetGroupHealthCheckPath :: Maybe (Val Text)   , _elasticLoadBalancingV2TargetGroupHealthCheckPort :: Maybe (Val Text)   , _elasticLoadBalancingV2TargetGroupHealthCheckProtocol :: Maybe (Val Text)@@ -24,21 +25,22 @@   , _elasticLoadBalancingV2TargetGroupHealthyThresholdCount :: Maybe (Val Integer)   , _elasticLoadBalancingV2TargetGroupMatcher :: Maybe ElasticLoadBalancingV2TargetGroupMatcher   , _elasticLoadBalancingV2TargetGroupName :: Maybe (Val Text)-  , _elasticLoadBalancingV2TargetGroupPort :: Val Integer-  , _elasticLoadBalancingV2TargetGroupProtocol :: Val Text+  , _elasticLoadBalancingV2TargetGroupPort :: Maybe (Val Integer)+  , _elasticLoadBalancingV2TargetGroupProtocol :: Maybe (Val Text)   , _elasticLoadBalancingV2TargetGroupTags :: Maybe [Tag]   , _elasticLoadBalancingV2TargetGroupTargetGroupAttributes :: Maybe [ElasticLoadBalancingV2TargetGroupTargetGroupAttribute]   , _elasticLoadBalancingV2TargetGroupTargetType :: Maybe (Val Text)   , _elasticLoadBalancingV2TargetGroupTargets :: Maybe [ElasticLoadBalancingV2TargetGroupTargetDescription]   , _elasticLoadBalancingV2TargetGroupUnhealthyThresholdCount :: Maybe (Val Integer)-  , _elasticLoadBalancingV2TargetGroupVpcId :: Val Text+  , _elasticLoadBalancingV2TargetGroupVpcId :: Maybe (Val Text)   } deriving (Show, Eq)  instance ToJSON ElasticLoadBalancingV2TargetGroup where   toJSON ElasticLoadBalancingV2TargetGroup{..} =     object $     catMaybes-    [ fmap (("HealthCheckIntervalSeconds",) . toJSON . fmap Integer') _elasticLoadBalancingV2TargetGroupHealthCheckIntervalSeconds+    [ fmap (("HealthCheckEnabled",) . toJSON . fmap Bool') _elasticLoadBalancingV2TargetGroupHealthCheckEnabled+    , fmap (("HealthCheckIntervalSeconds",) . toJSON . fmap Integer') _elasticLoadBalancingV2TargetGroupHealthCheckIntervalSeconds     , fmap (("HealthCheckPath",) . toJSON) _elasticLoadBalancingV2TargetGroupHealthCheckPath     , fmap (("HealthCheckPort",) . toJSON) _elasticLoadBalancingV2TargetGroupHealthCheckPort     , fmap (("HealthCheckProtocol",) . toJSON) _elasticLoadBalancingV2TargetGroupHealthCheckProtocol@@ -46,19 +48,20 @@     , fmap (("HealthyThresholdCount",) . toJSON . fmap Integer') _elasticLoadBalancingV2TargetGroupHealthyThresholdCount     , fmap (("Matcher",) . toJSON) _elasticLoadBalancingV2TargetGroupMatcher     , fmap (("Name",) . toJSON) _elasticLoadBalancingV2TargetGroupName-    , (Just . ("Port",) . toJSON . fmap Integer') _elasticLoadBalancingV2TargetGroupPort-    , (Just . ("Protocol",) . toJSON) _elasticLoadBalancingV2TargetGroupProtocol+    , fmap (("Port",) . toJSON . fmap Integer') _elasticLoadBalancingV2TargetGroupPort+    , fmap (("Protocol",) . toJSON) _elasticLoadBalancingV2TargetGroupProtocol     , fmap (("Tags",) . toJSON) _elasticLoadBalancingV2TargetGroupTags     , fmap (("TargetGroupAttributes",) . toJSON) _elasticLoadBalancingV2TargetGroupTargetGroupAttributes     , fmap (("TargetType",) . toJSON) _elasticLoadBalancingV2TargetGroupTargetType     , fmap (("Targets",) . toJSON) _elasticLoadBalancingV2TargetGroupTargets     , fmap (("UnhealthyThresholdCount",) . toJSON . fmap Integer') _elasticLoadBalancingV2TargetGroupUnhealthyThresholdCount-    , (Just . ("VpcId",) . toJSON) _elasticLoadBalancingV2TargetGroupVpcId+    , fmap (("VpcId",) . toJSON) _elasticLoadBalancingV2TargetGroupVpcId     ]  instance FromJSON ElasticLoadBalancingV2TargetGroup where   parseJSON (Object obj) =     ElasticLoadBalancingV2TargetGroup <$>+      fmap (fmap (fmap unBool')) (obj .:? "HealthCheckEnabled") <*>       fmap (fmap (fmap unInteger')) (obj .:? "HealthCheckIntervalSeconds") <*>       (obj .:? "HealthCheckPath") <*>       (obj .:? "HealthCheckPort") <*>@@ -67,26 +70,24 @@       fmap (fmap (fmap unInteger')) (obj .:? "HealthyThresholdCount") <*>       (obj .:? "Matcher") <*>       (obj .:? "Name") <*>-      fmap (fmap unInteger') (obj .: "Port") <*>-      (obj .: "Protocol") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "Port") <*>+      (obj .:? "Protocol") <*>       (obj .:? "Tags") <*>       (obj .:? "TargetGroupAttributes") <*>       (obj .:? "TargetType") <*>       (obj .:? "Targets") <*>       fmap (fmap (fmap unInteger')) (obj .:? "UnhealthyThresholdCount") <*>-      (obj .: "VpcId")+      (obj .:? "VpcId")   parseJSON _ = mempty  -- | Constructor for 'ElasticLoadBalancingV2TargetGroup' containing required -- fields as arguments. elasticLoadBalancingV2TargetGroup-  :: Val Integer -- ^ 'elbvtgPort'-  -> Val Text -- ^ 'elbvtgProtocol'-  -> Val Text -- ^ 'elbvtgVpcId'-  -> ElasticLoadBalancingV2TargetGroup-elasticLoadBalancingV2TargetGroup portarg protocolarg vpcIdarg =+  :: ElasticLoadBalancingV2TargetGroup+elasticLoadBalancingV2TargetGroup  =   ElasticLoadBalancingV2TargetGroup-  { _elasticLoadBalancingV2TargetGroupHealthCheckIntervalSeconds = Nothing+  { _elasticLoadBalancingV2TargetGroupHealthCheckEnabled = Nothing+  , _elasticLoadBalancingV2TargetGroupHealthCheckIntervalSeconds = Nothing   , _elasticLoadBalancingV2TargetGroupHealthCheckPath = Nothing   , _elasticLoadBalancingV2TargetGroupHealthCheckPort = Nothing   , _elasticLoadBalancingV2TargetGroupHealthCheckProtocol = Nothing@@ -94,16 +95,20 @@   , _elasticLoadBalancingV2TargetGroupHealthyThresholdCount = Nothing   , _elasticLoadBalancingV2TargetGroupMatcher = Nothing   , _elasticLoadBalancingV2TargetGroupName = Nothing-  , _elasticLoadBalancingV2TargetGroupPort = portarg-  , _elasticLoadBalancingV2TargetGroupProtocol = protocolarg+  , _elasticLoadBalancingV2TargetGroupPort = Nothing+  , _elasticLoadBalancingV2TargetGroupProtocol = Nothing   , _elasticLoadBalancingV2TargetGroupTags = Nothing   , _elasticLoadBalancingV2TargetGroupTargetGroupAttributes = Nothing   , _elasticLoadBalancingV2TargetGroupTargetType = Nothing   , _elasticLoadBalancingV2TargetGroupTargets = Nothing   , _elasticLoadBalancingV2TargetGroupUnhealthyThresholdCount = Nothing-  , _elasticLoadBalancingV2TargetGroupVpcId = vpcIdarg+  , _elasticLoadBalancingV2TargetGroupVpcId = Nothing   } +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-targetgroup.html#cfn-elasticloadbalancingv2-targetgroup-healthcheckenabled+elbvtgHealthCheckEnabled :: Lens' ElasticLoadBalancingV2TargetGroup (Maybe (Val Bool))+elbvtgHealthCheckEnabled = lens _elasticLoadBalancingV2TargetGroupHealthCheckEnabled (\s a -> s { _elasticLoadBalancingV2TargetGroupHealthCheckEnabled = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-targetgroup.html#cfn-elasticloadbalancingv2-targetgroup-healthcheckintervalseconds elbvtgHealthCheckIntervalSeconds :: Lens' ElasticLoadBalancingV2TargetGroup (Maybe (Val Integer)) elbvtgHealthCheckIntervalSeconds = lens _elasticLoadBalancingV2TargetGroupHealthCheckIntervalSeconds (\s a -> s { _elasticLoadBalancingV2TargetGroupHealthCheckIntervalSeconds = a })@@ -137,11 +142,11 @@ elbvtgName = lens _elasticLoadBalancingV2TargetGroupName (\s a -> s { _elasticLoadBalancingV2TargetGroupName = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-targetgroup.html#cfn-elasticloadbalancingv2-targetgroup-port-elbvtgPort :: Lens' ElasticLoadBalancingV2TargetGroup (Val Integer)+elbvtgPort :: Lens' ElasticLoadBalancingV2TargetGroup (Maybe (Val Integer)) elbvtgPort = lens _elasticLoadBalancingV2TargetGroupPort (\s a -> s { _elasticLoadBalancingV2TargetGroupPort = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-targetgroup.html#cfn-elasticloadbalancingv2-targetgroup-protocol-elbvtgProtocol :: Lens' ElasticLoadBalancingV2TargetGroup (Val Text)+elbvtgProtocol :: Lens' ElasticLoadBalancingV2TargetGroup (Maybe (Val Text)) elbvtgProtocol = lens _elasticLoadBalancingV2TargetGroupProtocol (\s a -> s { _elasticLoadBalancingV2TargetGroupProtocol = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-targetgroup.html#cfn-elasticloadbalancingv2-targetgroup-tags@@ -165,5 +170,5 @@ elbvtgUnhealthyThresholdCount = lens _elasticLoadBalancingV2TargetGroupUnhealthyThresholdCount (\s a -> s { _elasticLoadBalancingV2TargetGroupUnhealthyThresholdCount = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-targetgroup.html#cfn-elasticloadbalancingv2-targetgroup-vpcid-elbvtgVpcId :: Lens' ElasticLoadBalancingV2TargetGroup (Val Text)+elbvtgVpcId :: Lens' ElasticLoadBalancingV2TargetGroup (Maybe (Val Text)) elbvtgVpcId = lens _elasticLoadBalancingV2TargetGroupVpcId (\s a -> s { _elasticLoadBalancingV2TargetGroupVpcId = a })
+ library-gen/Stratosphere/Resources/FSxFileSystem.hs view
@@ -0,0 +1,108 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fsx-filesystem.html++module Stratosphere.Resources.FSxFileSystem where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.FSxFileSystemLustreConfiguration+import Stratosphere.ResourceProperties.FSxFileSystemTagEntry+import Stratosphere.ResourceProperties.FSxFileSystemWindowsConfiguration++-- | Full data type definition for FSxFileSystem. See 'fSxFileSystem' for a+-- more convenient constructor.+data FSxFileSystem =+  FSxFileSystem+  { _fSxFileSystemBackupId :: Maybe (Val Text)+  , _fSxFileSystemFileSystemType :: Maybe (Val Text)+  , _fSxFileSystemKmsKeyId :: Maybe (Val Text)+  , _fSxFileSystemLustreConfiguration :: Maybe FSxFileSystemLustreConfiguration+  , _fSxFileSystemSecurityGroupIds :: Maybe (ValList Text)+  , _fSxFileSystemStorageCapacity :: Maybe (Val Integer)+  , _fSxFileSystemSubnetIds :: Maybe (ValList Text)+  , _fSxFileSystemTags :: Maybe [FSxFileSystemTagEntry]+  , _fSxFileSystemWindowsConfiguration :: Maybe FSxFileSystemWindowsConfiguration+  } deriving (Show, Eq)++instance ToJSON FSxFileSystem where+  toJSON FSxFileSystem{..} =+    object $+    catMaybes+    [ fmap (("BackupId",) . toJSON) _fSxFileSystemBackupId+    , fmap (("FileSystemType",) . toJSON) _fSxFileSystemFileSystemType+    , fmap (("KmsKeyId",) . toJSON) _fSxFileSystemKmsKeyId+    , fmap (("LustreConfiguration",) . toJSON) _fSxFileSystemLustreConfiguration+    , fmap (("SecurityGroupIds",) . toJSON) _fSxFileSystemSecurityGroupIds+    , fmap (("StorageCapacity",) . toJSON . fmap Integer') _fSxFileSystemStorageCapacity+    , fmap (("SubnetIds",) . toJSON) _fSxFileSystemSubnetIds+    , fmap (("Tags",) . toJSON) _fSxFileSystemTags+    , fmap (("WindowsConfiguration",) . toJSON) _fSxFileSystemWindowsConfiguration+    ]++instance FromJSON FSxFileSystem where+  parseJSON (Object obj) =+    FSxFileSystem <$>+      (obj .:? "BackupId") <*>+      (obj .:? "FileSystemType") <*>+      (obj .:? "KmsKeyId") <*>+      (obj .:? "LustreConfiguration") <*>+      (obj .:? "SecurityGroupIds") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "StorageCapacity") <*>+      (obj .:? "SubnetIds") <*>+      (obj .:? "Tags") <*>+      (obj .:? "WindowsConfiguration")+  parseJSON _ = mempty++-- | Constructor for 'FSxFileSystem' containing required fields as arguments.+fSxFileSystem+  :: FSxFileSystem+fSxFileSystem  =+  FSxFileSystem+  { _fSxFileSystemBackupId = Nothing+  , _fSxFileSystemFileSystemType = Nothing+  , _fSxFileSystemKmsKeyId = Nothing+  , _fSxFileSystemLustreConfiguration = Nothing+  , _fSxFileSystemSecurityGroupIds = Nothing+  , _fSxFileSystemStorageCapacity = Nothing+  , _fSxFileSystemSubnetIds = Nothing+  , _fSxFileSystemTags = Nothing+  , _fSxFileSystemWindowsConfiguration = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fsx-filesystem.html#cfn-fsx-filesystem-backupid+fsfsBackupId :: Lens' FSxFileSystem (Maybe (Val Text))+fsfsBackupId = lens _fSxFileSystemBackupId (\s a -> s { _fSxFileSystemBackupId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fsx-filesystem.html#cfn-fsx-filesystem-filesystemtype+fsfsFileSystemType :: Lens' FSxFileSystem (Maybe (Val Text))+fsfsFileSystemType = lens _fSxFileSystemFileSystemType (\s a -> s { _fSxFileSystemFileSystemType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fsx-filesystem.html#cfn-fsx-filesystem-kmskeyid+fsfsKmsKeyId :: Lens' FSxFileSystem (Maybe (Val Text))+fsfsKmsKeyId = lens _fSxFileSystemKmsKeyId (\s a -> s { _fSxFileSystemKmsKeyId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fsx-filesystem.html#cfn-fsx-filesystem-lustreconfiguration+fsfsLustreConfiguration :: Lens' FSxFileSystem (Maybe FSxFileSystemLustreConfiguration)+fsfsLustreConfiguration = lens _fSxFileSystemLustreConfiguration (\s a -> s { _fSxFileSystemLustreConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fsx-filesystem.html#cfn-fsx-filesystem-securitygroupids+fsfsSecurityGroupIds :: Lens' FSxFileSystem (Maybe (ValList Text))+fsfsSecurityGroupIds = lens _fSxFileSystemSecurityGroupIds (\s a -> s { _fSxFileSystemSecurityGroupIds = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fsx-filesystem.html#cfn-fsx-filesystem-storagecapacity+fsfsStorageCapacity :: Lens' FSxFileSystem (Maybe (Val Integer))+fsfsStorageCapacity = lens _fSxFileSystemStorageCapacity (\s a -> s { _fSxFileSystemStorageCapacity = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fsx-filesystem.html#cfn-fsx-filesystem-subnetids+fsfsSubnetIds :: Lens' FSxFileSystem (Maybe (ValList Text))+fsfsSubnetIds = lens _fSxFileSystemSubnetIds (\s a -> s { _fSxFileSystemSubnetIds = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fsx-filesystem.html#cfn-fsx-filesystem-tags+fsfsTags :: Lens' FSxFileSystem (Maybe [FSxFileSystemTagEntry])+fsfsTags = lens _fSxFileSystemTags (\s a -> s { _fSxFileSystemTags = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fsx-filesystem.html#cfn-fsx-filesystem-windowsconfiguration+fsfsWindowsConfiguration :: Lens' FSxFileSystem (Maybe FSxFileSystemWindowsConfiguration)+fsfsWindowsConfiguration = lens _fSxFileSystemWindowsConfiguration (\s a -> s { _fSxFileSystemWindowsConfiguration = a })
+ library-gen/Stratosphere/Resources/KinesisAnalyticsV2Application.hs view
@@ -0,0 +1,77 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalyticsv2-application.html++module Stratosphere.Resources.KinesisAnalyticsV2Application where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationApplicationConfiguration++-- | Full data type definition for KinesisAnalyticsV2Application. See+-- 'kinesisAnalyticsV2Application' for a more convenient constructor.+data KinesisAnalyticsV2Application =+  KinesisAnalyticsV2Application+  { _kinesisAnalyticsV2ApplicationApplicationConfiguration :: Maybe KinesisAnalyticsV2ApplicationApplicationConfiguration+  , _kinesisAnalyticsV2ApplicationApplicationDescription :: Maybe (Val Text)+  , _kinesisAnalyticsV2ApplicationApplicationName :: Maybe (Val Text)+  , _kinesisAnalyticsV2ApplicationRuntimeEnvironment :: Val Text+  , _kinesisAnalyticsV2ApplicationServiceExecutionRole :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2Application where+  toJSON KinesisAnalyticsV2Application{..} =+    object $+    catMaybes+    [ fmap (("ApplicationConfiguration",) . toJSON) _kinesisAnalyticsV2ApplicationApplicationConfiguration+    , fmap (("ApplicationDescription",) . toJSON) _kinesisAnalyticsV2ApplicationApplicationDescription+    , fmap (("ApplicationName",) . toJSON) _kinesisAnalyticsV2ApplicationApplicationName+    , (Just . ("RuntimeEnvironment",) . toJSON) _kinesisAnalyticsV2ApplicationRuntimeEnvironment+    , (Just . ("ServiceExecutionRole",) . toJSON) _kinesisAnalyticsV2ApplicationServiceExecutionRole+    ]++instance FromJSON KinesisAnalyticsV2Application where+  parseJSON (Object obj) =+    KinesisAnalyticsV2Application <$>+      (obj .:? "ApplicationConfiguration") <*>+      (obj .:? "ApplicationDescription") <*>+      (obj .:? "ApplicationName") <*>+      (obj .: "RuntimeEnvironment") <*>+      (obj .: "ServiceExecutionRole")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsV2Application' containing required+-- fields as arguments.+kinesisAnalyticsV2Application+  :: Val Text -- ^ 'kavaRuntimeEnvironment'+  -> Val Text -- ^ 'kavaServiceExecutionRole'+  -> KinesisAnalyticsV2Application+kinesisAnalyticsV2Application runtimeEnvironmentarg serviceExecutionRolearg =+  KinesisAnalyticsV2Application+  { _kinesisAnalyticsV2ApplicationApplicationConfiguration = Nothing+  , _kinesisAnalyticsV2ApplicationApplicationDescription = Nothing+  , _kinesisAnalyticsV2ApplicationApplicationName = Nothing+  , _kinesisAnalyticsV2ApplicationRuntimeEnvironment = runtimeEnvironmentarg+  , _kinesisAnalyticsV2ApplicationServiceExecutionRole = serviceExecutionRolearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalyticsv2-application.html#cfn-kinesisanalyticsv2-application-applicationconfiguration+kavaApplicationConfiguration :: Lens' KinesisAnalyticsV2Application (Maybe KinesisAnalyticsV2ApplicationApplicationConfiguration)+kavaApplicationConfiguration = lens _kinesisAnalyticsV2ApplicationApplicationConfiguration (\s a -> s { _kinesisAnalyticsV2ApplicationApplicationConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalyticsv2-application.html#cfn-kinesisanalyticsv2-application-applicationdescription+kavaApplicationDescription :: Lens' KinesisAnalyticsV2Application (Maybe (Val Text))+kavaApplicationDescription = lens _kinesisAnalyticsV2ApplicationApplicationDescription (\s a -> s { _kinesisAnalyticsV2ApplicationApplicationDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalyticsv2-application.html#cfn-kinesisanalyticsv2-application-applicationname+kavaApplicationName :: Lens' KinesisAnalyticsV2Application (Maybe (Val Text))+kavaApplicationName = lens _kinesisAnalyticsV2ApplicationApplicationName (\s a -> s { _kinesisAnalyticsV2ApplicationApplicationName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalyticsv2-application.html#cfn-kinesisanalyticsv2-application-runtimeenvironment+kavaRuntimeEnvironment :: Lens' KinesisAnalyticsV2Application (Val Text)+kavaRuntimeEnvironment = lens _kinesisAnalyticsV2ApplicationRuntimeEnvironment (\s a -> s { _kinesisAnalyticsV2ApplicationRuntimeEnvironment = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalyticsv2-application.html#cfn-kinesisanalyticsv2-application-serviceexecutionrole+kavaServiceExecutionRole :: Lens' KinesisAnalyticsV2Application (Val Text)+kavaServiceExecutionRole = lens _kinesisAnalyticsV2ApplicationServiceExecutionRole (\s a -> s { _kinesisAnalyticsV2ApplicationServiceExecutionRole = a })
+ library-gen/Stratosphere/Resources/KinesisAnalyticsV2ApplicationCloudWatchLoggingOption.hs view
@@ -0,0 +1,55 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalyticsv2-applicationcloudwatchloggingoption.html++module Stratosphere.Resources.KinesisAnalyticsV2ApplicationCloudWatchLoggingOption where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption++-- | Full data type definition for+-- KinesisAnalyticsV2ApplicationCloudWatchLoggingOption. See+-- 'kinesisAnalyticsV2ApplicationCloudWatchLoggingOption' for a more+-- convenient constructor.+data KinesisAnalyticsV2ApplicationCloudWatchLoggingOption =+  KinesisAnalyticsV2ApplicationCloudWatchLoggingOption+  { _kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionApplicationName :: Val Text+  , _kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption :: KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationCloudWatchLoggingOption where+  toJSON KinesisAnalyticsV2ApplicationCloudWatchLoggingOption{..} =+    object $+    catMaybes+    [ (Just . ("ApplicationName",) . toJSON) _kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionApplicationName+    , (Just . ("CloudWatchLoggingOption",) . toJSON) _kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption+    ]++instance FromJSON KinesisAnalyticsV2ApplicationCloudWatchLoggingOption where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationCloudWatchLoggingOption <$>+      (obj .: "ApplicationName") <*>+      (obj .: "CloudWatchLoggingOption")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsV2ApplicationCloudWatchLoggingOption'+-- containing required fields as arguments.+kinesisAnalyticsV2ApplicationCloudWatchLoggingOption+  :: Val Text -- ^ 'kavacwloApplicationName'+  -> KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption -- ^ 'kavacwloCloudWatchLoggingOption'+  -> KinesisAnalyticsV2ApplicationCloudWatchLoggingOption+kinesisAnalyticsV2ApplicationCloudWatchLoggingOption applicationNamearg cloudWatchLoggingOptionarg =+  KinesisAnalyticsV2ApplicationCloudWatchLoggingOption+  { _kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionApplicationName = applicationNamearg+  , _kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption = cloudWatchLoggingOptionarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalyticsv2-applicationcloudwatchloggingoption.html#cfn-kinesisanalyticsv2-applicationcloudwatchloggingoption-applicationname+kavacwloApplicationName :: Lens' KinesisAnalyticsV2ApplicationCloudWatchLoggingOption (Val Text)+kavacwloApplicationName = lens _kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionApplicationName (\s a -> s { _kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionApplicationName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalyticsv2-applicationcloudwatchloggingoption.html#cfn-kinesisanalyticsv2-applicationcloudwatchloggingoption-cloudwatchloggingoption+kavacwloCloudWatchLoggingOption :: Lens' KinesisAnalyticsV2ApplicationCloudWatchLoggingOption KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption+kavacwloCloudWatchLoggingOption = lens _kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption (\s a -> s { _kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption = a })
+ library-gen/Stratosphere/Resources/KinesisAnalyticsV2ApplicationOutput.hs view
@@ -0,0 +1,53 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalyticsv2-applicationoutput.html++module Stratosphere.Resources.KinesisAnalyticsV2ApplicationOutput where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputOutput++-- | Full data type definition for KinesisAnalyticsV2ApplicationOutput. See+-- 'kinesisAnalyticsV2ApplicationOutput' for a more convenient constructor.+data KinesisAnalyticsV2ApplicationOutput =+  KinesisAnalyticsV2ApplicationOutput+  { _kinesisAnalyticsV2ApplicationOutputApplicationName :: Val Text+  , _kinesisAnalyticsV2ApplicationOutputOutput :: KinesisAnalyticsV2ApplicationOutputOutput+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationOutput where+  toJSON KinesisAnalyticsV2ApplicationOutput{..} =+    object $+    catMaybes+    [ (Just . ("ApplicationName",) . toJSON) _kinesisAnalyticsV2ApplicationOutputApplicationName+    , (Just . ("Output",) . toJSON) _kinesisAnalyticsV2ApplicationOutputOutput+    ]++instance FromJSON KinesisAnalyticsV2ApplicationOutput where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationOutput <$>+      (obj .: "ApplicationName") <*>+      (obj .: "Output")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsV2ApplicationOutput' containing required+-- fields as arguments.+kinesisAnalyticsV2ApplicationOutput+  :: Val Text -- ^ 'kavaoApplicationName'+  -> KinesisAnalyticsV2ApplicationOutputOutput -- ^ 'kavaoOutput'+  -> KinesisAnalyticsV2ApplicationOutput+kinesisAnalyticsV2ApplicationOutput applicationNamearg outputarg =+  KinesisAnalyticsV2ApplicationOutput+  { _kinesisAnalyticsV2ApplicationOutputApplicationName = applicationNamearg+  , _kinesisAnalyticsV2ApplicationOutputOutput = outputarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalyticsv2-applicationoutput.html#cfn-kinesisanalyticsv2-applicationoutput-applicationname+kavaoApplicationName :: Lens' KinesisAnalyticsV2ApplicationOutput (Val Text)+kavaoApplicationName = lens _kinesisAnalyticsV2ApplicationOutputApplicationName (\s a -> s { _kinesisAnalyticsV2ApplicationOutputApplicationName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalyticsv2-applicationoutput.html#cfn-kinesisanalyticsv2-applicationoutput-output+kavaoOutput :: Lens' KinesisAnalyticsV2ApplicationOutput KinesisAnalyticsV2ApplicationOutputOutput+kavaoOutput = lens _kinesisAnalyticsV2ApplicationOutputOutput (\s a -> s { _kinesisAnalyticsV2ApplicationOutputOutput = a })
+ library-gen/Stratosphere/Resources/KinesisAnalyticsV2ApplicationReferenceDataSource.hs view
@@ -0,0 +1,55 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalyticsv2-applicationreferencedatasource.html++module Stratosphere.Resources.KinesisAnalyticsV2ApplicationReferenceDataSource where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource++-- | Full data type definition for+-- KinesisAnalyticsV2ApplicationReferenceDataSource. See+-- 'kinesisAnalyticsV2ApplicationReferenceDataSource' for a more convenient+-- constructor.+data KinesisAnalyticsV2ApplicationReferenceDataSource =+  KinesisAnalyticsV2ApplicationReferenceDataSource+  { _kinesisAnalyticsV2ApplicationReferenceDataSourceApplicationName :: Val Text+  , _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource :: KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsV2ApplicationReferenceDataSource where+  toJSON KinesisAnalyticsV2ApplicationReferenceDataSource{..} =+    object $+    catMaybes+    [ (Just . ("ApplicationName",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceApplicationName+    , (Just . ("ReferenceDataSource",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource+    ]++instance FromJSON KinesisAnalyticsV2ApplicationReferenceDataSource where+  parseJSON (Object obj) =+    KinesisAnalyticsV2ApplicationReferenceDataSource <$>+      (obj .: "ApplicationName") <*>+      (obj .: "ReferenceDataSource")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsV2ApplicationReferenceDataSource'+-- containing required fields as arguments.+kinesisAnalyticsV2ApplicationReferenceDataSource+  :: Val Text -- ^ 'kavardsApplicationName'+  -> KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource -- ^ 'kavardsReferenceDataSource'+  -> KinesisAnalyticsV2ApplicationReferenceDataSource+kinesisAnalyticsV2ApplicationReferenceDataSource applicationNamearg referenceDataSourcearg =+  KinesisAnalyticsV2ApplicationReferenceDataSource+  { _kinesisAnalyticsV2ApplicationReferenceDataSourceApplicationName = applicationNamearg+  , _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource = referenceDataSourcearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalyticsv2-applicationreferencedatasource.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-applicationname+kavardsApplicationName :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSource (Val Text)+kavardsApplicationName = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceApplicationName (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceApplicationName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalyticsv2-applicationreferencedatasource.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-referencedatasource+kavardsReferenceDataSource :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSource KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource+kavardsReferenceDataSource = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource = a })
library-gen/Stratosphere/Resources/OpsWorksCMServer.hs view
@@ -13,7 +13,8 @@ -- for a more convenient constructor. data OpsWorksCMServer =   OpsWorksCMServer-  { _opsWorksCMServerBackupId :: Maybe (Val Text)+  { _opsWorksCMServerAssociatePublicIpAddress :: Maybe (Val Bool)+  , _opsWorksCMServerBackupId :: Maybe (Val Text)   , _opsWorksCMServerBackupRetentionCount :: Maybe (Val Integer)   , _opsWorksCMServerDisableAutomatedBackup :: Maybe (Val Bool)   , _opsWorksCMServerEngine :: Maybe (Val Text)@@ -35,7 +36,8 @@   toJSON OpsWorksCMServer{..} =     object $     catMaybes-    [ fmap (("BackupId",) . toJSON) _opsWorksCMServerBackupId+    [ fmap (("AssociatePublicIpAddress",) . toJSON . fmap Bool') _opsWorksCMServerAssociatePublicIpAddress+    , fmap (("BackupId",) . toJSON) _opsWorksCMServerBackupId     , fmap (("BackupRetentionCount",) . toJSON . fmap Integer') _opsWorksCMServerBackupRetentionCount     , fmap (("DisableAutomatedBackup",) . toJSON . fmap Bool') _opsWorksCMServerDisableAutomatedBackup     , fmap (("Engine",) . toJSON) _opsWorksCMServerEngine@@ -56,6 +58,7 @@ instance FromJSON OpsWorksCMServer where   parseJSON (Object obj) =     OpsWorksCMServer <$>+      fmap (fmap (fmap unBool')) (obj .:? "AssociatePublicIpAddress") <*>       (obj .:? "BackupId") <*>       fmap (fmap (fmap unInteger')) (obj .:? "BackupRetentionCount") <*>       fmap (fmap (fmap unBool')) (obj .:? "DisableAutomatedBackup") <*>@@ -83,7 +86,8 @@   -> OpsWorksCMServer opsWorksCMServer instanceProfileArnarg instanceTypearg serviceRoleArnarg =   OpsWorksCMServer-  { _opsWorksCMServerBackupId = Nothing+  { _opsWorksCMServerAssociatePublicIpAddress = Nothing+  , _opsWorksCMServerBackupId = Nothing   , _opsWorksCMServerBackupRetentionCount = Nothing   , _opsWorksCMServerDisableAutomatedBackup = Nothing   , _opsWorksCMServerEngine = Nothing@@ -100,6 +104,10 @@   , _opsWorksCMServerServiceRoleArn = serviceRoleArnarg   , _opsWorksCMServerSubnetIds = Nothing   }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworkscm-server.html#cfn-opsworkscm-server-associatepublicipaddress+owcmsAssociatePublicIpAddress :: Lens' OpsWorksCMServer (Maybe (Val Bool))+owcmsAssociatePublicIpAddress = lens _opsWorksCMServerAssociatePublicIpAddress (\s a -> s { _opsWorksCMServerAssociatePublicIpAddress = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworkscm-server.html#cfn-opsworkscm-server-backupid owcmsBackupId :: Lens' OpsWorksCMServer (Maybe (Val Text))
+ library-gen/Stratosphere/Resources/RAMResourceShare.hs view
@@ -0,0 +1,76 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ram-resourceshare.html++module Stratosphere.Resources.RAMResourceShare where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.Tag++-- | Full data type definition for RAMResourceShare. See 'ramResourceShare'+-- for a more convenient constructor.+data RAMResourceShare =+  RAMResourceShare+  { _rAMResourceShareAllowExternalPrincipals :: Maybe (Val Bool)+  , _rAMResourceShareName :: Val Text+  , _rAMResourceSharePrincipals :: Maybe (ValList Text)+  , _rAMResourceShareResourceArns :: Maybe (ValList Text)+  , _rAMResourceShareTags :: Maybe [Tag]+  } deriving (Show, Eq)++instance ToJSON RAMResourceShare where+  toJSON RAMResourceShare{..} =+    object $+    catMaybes+    [ fmap (("AllowExternalPrincipals",) . toJSON . fmap Bool') _rAMResourceShareAllowExternalPrincipals+    , (Just . ("Name",) . toJSON) _rAMResourceShareName+    , fmap (("Principals",) . toJSON) _rAMResourceSharePrincipals+    , fmap (("ResourceArns",) . toJSON) _rAMResourceShareResourceArns+    , fmap (("Tags",) . toJSON) _rAMResourceShareTags+    ]++instance FromJSON RAMResourceShare where+  parseJSON (Object obj) =+    RAMResourceShare <$>+      fmap (fmap (fmap unBool')) (obj .:? "AllowExternalPrincipals") <*>+      (obj .: "Name") <*>+      (obj .:? "Principals") <*>+      (obj .:? "ResourceArns") <*>+      (obj .:? "Tags")+  parseJSON _ = mempty++-- | Constructor for 'RAMResourceShare' containing required fields as+-- arguments.+ramResourceShare+  :: Val Text -- ^ 'ramrsName'+  -> RAMResourceShare+ramResourceShare namearg =+  RAMResourceShare+  { _rAMResourceShareAllowExternalPrincipals = Nothing+  , _rAMResourceShareName = namearg+  , _rAMResourceSharePrincipals = Nothing+  , _rAMResourceShareResourceArns = Nothing+  , _rAMResourceShareTags = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ram-resourceshare.html#cfn-ram-resourceshare-allowexternalprincipals+ramrsAllowExternalPrincipals :: Lens' RAMResourceShare (Maybe (Val Bool))+ramrsAllowExternalPrincipals = lens _rAMResourceShareAllowExternalPrincipals (\s a -> s { _rAMResourceShareAllowExternalPrincipals = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ram-resourceshare.html#cfn-ram-resourceshare-name+ramrsName :: Lens' RAMResourceShare (Val Text)+ramrsName = lens _rAMResourceShareName (\s a -> s { _rAMResourceShareName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ram-resourceshare.html#cfn-ram-resourceshare-principals+ramrsPrincipals :: Lens' RAMResourceShare (Maybe (ValList Text))+ramrsPrincipals = lens _rAMResourceSharePrincipals (\s a -> s { _rAMResourceSharePrincipals = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ram-resourceshare.html#cfn-ram-resourceshare-resourcearns+ramrsResourceArns :: Lens' RAMResourceShare (Maybe (ValList Text))+ramrsResourceArns = lens _rAMResourceShareResourceArns (\s a -> s { _rAMResourceShareResourceArns = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ram-resourceshare.html#cfn-ram-resourceshare-tags+ramrsTags :: Lens' RAMResourceShare (Maybe [Tag])+ramrsTags = lens _rAMResourceShareTags (\s a -> s { _rAMResourceShareTags = a })
+ library-gen/Stratosphere/Resources/RoboMakerFleet.hs view
@@ -0,0 +1,50 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-fleet.html++module Stratosphere.Resources.RoboMakerFleet where++import Stratosphere.ResourceImports+++-- | Full data type definition for RoboMakerFleet. See 'roboMakerFleet' for a+-- more convenient constructor.+data RoboMakerFleet =+  RoboMakerFleet+  { _roboMakerFleetName :: Maybe (Val Text)+  , _roboMakerFleetTags :: Maybe Object+  } deriving (Show, Eq)++instance ToJSON RoboMakerFleet where+  toJSON RoboMakerFleet{..} =+    object $+    catMaybes+    [ fmap (("Name",) . toJSON) _roboMakerFleetName+    , fmap (("Tags",) . toJSON) _roboMakerFleetTags+    ]++instance FromJSON RoboMakerFleet where+  parseJSON (Object obj) =+    RoboMakerFleet <$>+      (obj .:? "Name") <*>+      (obj .:? "Tags")+  parseJSON _ = mempty++-- | Constructor for 'RoboMakerFleet' containing required fields as arguments.+roboMakerFleet+  :: RoboMakerFleet+roboMakerFleet  =+  RoboMakerFleet+  { _roboMakerFleetName = Nothing+  , _roboMakerFleetTags = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-fleet.html#cfn-robomaker-fleet-name+rmfName :: Lens' RoboMakerFleet (Maybe (Val Text))+rmfName = lens _roboMakerFleetName (\s a -> s { _roboMakerFleetName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-fleet.html#cfn-robomaker-fleet-tags+rmfTags :: Lens' RoboMakerFleet (Maybe Object)+rmfTags = lens _roboMakerFleetTags (\s a -> s { _roboMakerFleetTags = a })
+ library-gen/Stratosphere/Resources/RoboMakerRobot.hs view
@@ -0,0 +1,76 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-robot.html++module Stratosphere.Resources.RoboMakerRobot where++import Stratosphere.ResourceImports+++-- | Full data type definition for RoboMakerRobot. See 'roboMakerRobot' for a+-- more convenient constructor.+data RoboMakerRobot =+  RoboMakerRobot+  { _roboMakerRobotArchitecture :: Val Text+  , _roboMakerRobotFleet :: Maybe (Val Text)+  , _roboMakerRobotGreengrassGroupId :: Val Text+  , _roboMakerRobotName :: Maybe (Val Text)+  , _roboMakerRobotTags :: Maybe Object+  } deriving (Show, Eq)++instance ToJSON RoboMakerRobot where+  toJSON RoboMakerRobot{..} =+    object $+    catMaybes+    [ (Just . ("Architecture",) . toJSON) _roboMakerRobotArchitecture+    , fmap (("Fleet",) . toJSON) _roboMakerRobotFleet+    , (Just . ("GreengrassGroupId",) . toJSON) _roboMakerRobotGreengrassGroupId+    , fmap (("Name",) . toJSON) _roboMakerRobotName+    , fmap (("Tags",) . toJSON) _roboMakerRobotTags+    ]++instance FromJSON RoboMakerRobot where+  parseJSON (Object obj) =+    RoboMakerRobot <$>+      (obj .: "Architecture") <*>+      (obj .:? "Fleet") <*>+      (obj .: "GreengrassGroupId") <*>+      (obj .:? "Name") <*>+      (obj .:? "Tags")+  parseJSON _ = mempty++-- | Constructor for 'RoboMakerRobot' containing required fields as arguments.+roboMakerRobot+  :: Val Text -- ^ 'rmrArchitecture'+  -> Val Text -- ^ 'rmrGreengrassGroupId'+  -> RoboMakerRobot+roboMakerRobot architecturearg greengrassGroupIdarg =+  RoboMakerRobot+  { _roboMakerRobotArchitecture = architecturearg+  , _roboMakerRobotFleet = Nothing+  , _roboMakerRobotGreengrassGroupId = greengrassGroupIdarg+  , _roboMakerRobotName = Nothing+  , _roboMakerRobotTags = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-robot.html#cfn-robomaker-robot-architecture+rmrArchitecture :: Lens' RoboMakerRobot (Val Text)+rmrArchitecture = lens _roboMakerRobotArchitecture (\s a -> s { _roboMakerRobotArchitecture = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-robot.html#cfn-robomaker-robot-fleet+rmrFleet :: Lens' RoboMakerRobot (Maybe (Val Text))+rmrFleet = lens _roboMakerRobotFleet (\s a -> s { _roboMakerRobotFleet = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-robot.html#cfn-robomaker-robot-greengrassgroupid+rmrGreengrassGroupId :: Lens' RoboMakerRobot (Val Text)+rmrGreengrassGroupId = lens _roboMakerRobotGreengrassGroupId (\s a -> s { _roboMakerRobotGreengrassGroupId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-robot.html#cfn-robomaker-robot-name+rmrName :: Lens' RoboMakerRobot (Maybe (Val Text))+rmrName = lens _roboMakerRobotName (\s a -> s { _roboMakerRobotName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-robot.html#cfn-robomaker-robot-tags+rmrTags :: Lens' RoboMakerRobot (Maybe Object)+rmrTags = lens _roboMakerRobotTags (\s a -> s { _roboMakerRobotTags = a })
+ library-gen/Stratosphere/Resources/RoboMakerRobotApplication.hs view
@@ -0,0 +1,78 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-robotapplication.html++module Stratosphere.Resources.RoboMakerRobotApplication where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.RoboMakerRobotApplicationRobotSoftwareSuite+import Stratosphere.ResourceProperties.RoboMakerRobotApplicationSourceConfig++-- | Full data type definition for RoboMakerRobotApplication. See+-- 'roboMakerRobotApplication' for a more convenient constructor.+data RoboMakerRobotApplication =+  RoboMakerRobotApplication+  { _roboMakerRobotApplicationCurrentRevisionId :: Maybe (Val Text)+  , _roboMakerRobotApplicationName :: Maybe (Val Text)+  , _roboMakerRobotApplicationRobotSoftwareSuite :: RoboMakerRobotApplicationRobotSoftwareSuite+  , _roboMakerRobotApplicationSources :: [RoboMakerRobotApplicationSourceConfig]+  , _roboMakerRobotApplicationTags :: Maybe Object+  } deriving (Show, Eq)++instance ToJSON RoboMakerRobotApplication where+  toJSON RoboMakerRobotApplication{..} =+    object $+    catMaybes+    [ fmap (("CurrentRevisionId",) . toJSON) _roboMakerRobotApplicationCurrentRevisionId+    , fmap (("Name",) . toJSON) _roboMakerRobotApplicationName+    , (Just . ("RobotSoftwareSuite",) . toJSON) _roboMakerRobotApplicationRobotSoftwareSuite+    , (Just . ("Sources",) . toJSON) _roboMakerRobotApplicationSources+    , fmap (("Tags",) . toJSON) _roboMakerRobotApplicationTags+    ]++instance FromJSON RoboMakerRobotApplication where+  parseJSON (Object obj) =+    RoboMakerRobotApplication <$>+      (obj .:? "CurrentRevisionId") <*>+      (obj .:? "Name") <*>+      (obj .: "RobotSoftwareSuite") <*>+      (obj .: "Sources") <*>+      (obj .:? "Tags")+  parseJSON _ = mempty++-- | Constructor for 'RoboMakerRobotApplication' containing required fields as+-- arguments.+roboMakerRobotApplication+  :: RoboMakerRobotApplicationRobotSoftwareSuite -- ^ 'rmraRobotSoftwareSuite'+  -> [RoboMakerRobotApplicationSourceConfig] -- ^ 'rmraSources'+  -> RoboMakerRobotApplication+roboMakerRobotApplication robotSoftwareSuitearg sourcesarg =+  RoboMakerRobotApplication+  { _roboMakerRobotApplicationCurrentRevisionId = Nothing+  , _roboMakerRobotApplicationName = Nothing+  , _roboMakerRobotApplicationRobotSoftwareSuite = robotSoftwareSuitearg+  , _roboMakerRobotApplicationSources = sourcesarg+  , _roboMakerRobotApplicationTags = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-robotapplication.html#cfn-robomaker-robotapplication-currentrevisionid+rmraCurrentRevisionId :: Lens' RoboMakerRobotApplication (Maybe (Val Text))+rmraCurrentRevisionId = lens _roboMakerRobotApplicationCurrentRevisionId (\s a -> s { _roboMakerRobotApplicationCurrentRevisionId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-robotapplication.html#cfn-robomaker-robotapplication-name+rmraName :: Lens' RoboMakerRobotApplication (Maybe (Val Text))+rmraName = lens _roboMakerRobotApplicationName (\s a -> s { _roboMakerRobotApplicationName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-robotapplication.html#cfn-robomaker-robotapplication-robotsoftwaresuite+rmraRobotSoftwareSuite :: Lens' RoboMakerRobotApplication RoboMakerRobotApplicationRobotSoftwareSuite+rmraRobotSoftwareSuite = lens _roboMakerRobotApplicationRobotSoftwareSuite (\s a -> s { _roboMakerRobotApplicationRobotSoftwareSuite = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-robotapplication.html#cfn-robomaker-robotapplication-sources+rmraSources :: Lens' RoboMakerRobotApplication [RoboMakerRobotApplicationSourceConfig]+rmraSources = lens _roboMakerRobotApplicationSources (\s a -> s { _roboMakerRobotApplicationSources = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-robotapplication.html#cfn-robomaker-robotapplication-tags+rmraTags :: Lens' RoboMakerRobotApplication (Maybe Object)+rmraTags = lens _roboMakerRobotApplicationTags (\s a -> s { _roboMakerRobotApplicationTags = a })
+ library-gen/Stratosphere/Resources/RoboMakerRobotApplicationVersion.hs view
@@ -0,0 +1,52 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-robotapplicationversion.html++module Stratosphere.Resources.RoboMakerRobotApplicationVersion where++import Stratosphere.ResourceImports+++-- | Full data type definition for RoboMakerRobotApplicationVersion. See+-- 'roboMakerRobotApplicationVersion' for a more convenient constructor.+data RoboMakerRobotApplicationVersion =+  RoboMakerRobotApplicationVersion+  { _roboMakerRobotApplicationVersionApplication :: Val Text+  , _roboMakerRobotApplicationVersionCurrentRevisionId :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON RoboMakerRobotApplicationVersion where+  toJSON RoboMakerRobotApplicationVersion{..} =+    object $+    catMaybes+    [ (Just . ("Application",) . toJSON) _roboMakerRobotApplicationVersionApplication+    , fmap (("CurrentRevisionId",) . toJSON) _roboMakerRobotApplicationVersionCurrentRevisionId+    ]++instance FromJSON RoboMakerRobotApplicationVersion where+  parseJSON (Object obj) =+    RoboMakerRobotApplicationVersion <$>+      (obj .: "Application") <*>+      (obj .:? "CurrentRevisionId")+  parseJSON _ = mempty++-- | Constructor for 'RoboMakerRobotApplicationVersion' containing required+-- fields as arguments.+roboMakerRobotApplicationVersion+  :: Val Text -- ^ 'rmravApplication'+  -> RoboMakerRobotApplicationVersion+roboMakerRobotApplicationVersion applicationarg =+  RoboMakerRobotApplicationVersion+  { _roboMakerRobotApplicationVersionApplication = applicationarg+  , _roboMakerRobotApplicationVersionCurrentRevisionId = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-robotapplicationversion.html#cfn-robomaker-robotapplicationversion-application+rmravApplication :: Lens' RoboMakerRobotApplicationVersion (Val Text)+rmravApplication = lens _roboMakerRobotApplicationVersionApplication (\s a -> s { _roboMakerRobotApplicationVersionApplication = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-robotapplicationversion.html#cfn-robomaker-robotapplicationversion-currentrevisionid+rmravCurrentRevisionId :: Lens' RoboMakerRobotApplicationVersion (Maybe (Val Text))+rmravCurrentRevisionId = lens _roboMakerRobotApplicationVersionCurrentRevisionId (\s a -> s { _roboMakerRobotApplicationVersionCurrentRevisionId = a })
+ library-gen/Stratosphere/Resources/RoboMakerSimulationApplication.hs view
@@ -0,0 +1,98 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-simulationapplication.html++module Stratosphere.Resources.RoboMakerSimulationApplication where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.RoboMakerSimulationApplicationRenderingEngine+import Stratosphere.ResourceProperties.RoboMakerSimulationApplicationRobotSoftwareSuite+import Stratosphere.ResourceProperties.RoboMakerSimulationApplicationSimulationSoftwareSuite+import Stratosphere.ResourceProperties.RoboMakerSimulationApplicationSourceConfig++-- | Full data type definition for RoboMakerSimulationApplication. See+-- 'roboMakerSimulationApplication' for a more convenient constructor.+data RoboMakerSimulationApplication =+  RoboMakerSimulationApplication+  { _roboMakerSimulationApplicationCurrentRevisionId :: Maybe (Val Text)+  , _roboMakerSimulationApplicationName :: Maybe (Val Text)+  , _roboMakerSimulationApplicationRenderingEngine :: RoboMakerSimulationApplicationRenderingEngine+  , _roboMakerSimulationApplicationRobotSoftwareSuite :: RoboMakerSimulationApplicationRobotSoftwareSuite+  , _roboMakerSimulationApplicationSimulationSoftwareSuite :: RoboMakerSimulationApplicationSimulationSoftwareSuite+  , _roboMakerSimulationApplicationSources :: [RoboMakerSimulationApplicationSourceConfig]+  , _roboMakerSimulationApplicationTags :: Maybe Object+  } deriving (Show, Eq)++instance ToJSON RoboMakerSimulationApplication where+  toJSON RoboMakerSimulationApplication{..} =+    object $+    catMaybes+    [ fmap (("CurrentRevisionId",) . toJSON) _roboMakerSimulationApplicationCurrentRevisionId+    , fmap (("Name",) . toJSON) _roboMakerSimulationApplicationName+    , (Just . ("RenderingEngine",) . toJSON) _roboMakerSimulationApplicationRenderingEngine+    , (Just . ("RobotSoftwareSuite",) . toJSON) _roboMakerSimulationApplicationRobotSoftwareSuite+    , (Just . ("SimulationSoftwareSuite",) . toJSON) _roboMakerSimulationApplicationSimulationSoftwareSuite+    , (Just . ("Sources",) . toJSON) _roboMakerSimulationApplicationSources+    , fmap (("Tags",) . toJSON) _roboMakerSimulationApplicationTags+    ]++instance FromJSON RoboMakerSimulationApplication where+  parseJSON (Object obj) =+    RoboMakerSimulationApplication <$>+      (obj .:? "CurrentRevisionId") <*>+      (obj .:? "Name") <*>+      (obj .: "RenderingEngine") <*>+      (obj .: "RobotSoftwareSuite") <*>+      (obj .: "SimulationSoftwareSuite") <*>+      (obj .: "Sources") <*>+      (obj .:? "Tags")+  parseJSON _ = mempty++-- | Constructor for 'RoboMakerSimulationApplication' containing required+-- fields as arguments.+roboMakerSimulationApplication+  :: RoboMakerSimulationApplicationRenderingEngine -- ^ 'rmsaRenderingEngine'+  -> RoboMakerSimulationApplicationRobotSoftwareSuite -- ^ 'rmsaRobotSoftwareSuite'+  -> RoboMakerSimulationApplicationSimulationSoftwareSuite -- ^ 'rmsaSimulationSoftwareSuite'+  -> [RoboMakerSimulationApplicationSourceConfig] -- ^ 'rmsaSources'+  -> RoboMakerSimulationApplication+roboMakerSimulationApplication renderingEnginearg robotSoftwareSuitearg simulationSoftwareSuitearg sourcesarg =+  RoboMakerSimulationApplication+  { _roboMakerSimulationApplicationCurrentRevisionId = Nothing+  , _roboMakerSimulationApplicationName = Nothing+  , _roboMakerSimulationApplicationRenderingEngine = renderingEnginearg+  , _roboMakerSimulationApplicationRobotSoftwareSuite = robotSoftwareSuitearg+  , _roboMakerSimulationApplicationSimulationSoftwareSuite = simulationSoftwareSuitearg+  , _roboMakerSimulationApplicationSources = sourcesarg+  , _roboMakerSimulationApplicationTags = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-simulationapplication.html#cfn-robomaker-simulationapplication-currentrevisionid+rmsaCurrentRevisionId :: Lens' RoboMakerSimulationApplication (Maybe (Val Text))+rmsaCurrentRevisionId = lens _roboMakerSimulationApplicationCurrentRevisionId (\s a -> s { _roboMakerSimulationApplicationCurrentRevisionId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-simulationapplication.html#cfn-robomaker-simulationapplication-name+rmsaName :: Lens' RoboMakerSimulationApplication (Maybe (Val Text))+rmsaName = lens _roboMakerSimulationApplicationName (\s a -> s { _roboMakerSimulationApplicationName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-simulationapplication.html#cfn-robomaker-simulationapplication-renderingengine+rmsaRenderingEngine :: Lens' RoboMakerSimulationApplication RoboMakerSimulationApplicationRenderingEngine+rmsaRenderingEngine = lens _roboMakerSimulationApplicationRenderingEngine (\s a -> s { _roboMakerSimulationApplicationRenderingEngine = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-simulationapplication.html#cfn-robomaker-simulationapplication-robotsoftwaresuite+rmsaRobotSoftwareSuite :: Lens' RoboMakerSimulationApplication RoboMakerSimulationApplicationRobotSoftwareSuite+rmsaRobotSoftwareSuite = lens _roboMakerSimulationApplicationRobotSoftwareSuite (\s a -> s { _roboMakerSimulationApplicationRobotSoftwareSuite = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-simulationapplication.html#cfn-robomaker-simulationapplication-simulationsoftwaresuite+rmsaSimulationSoftwareSuite :: Lens' RoboMakerSimulationApplication RoboMakerSimulationApplicationSimulationSoftwareSuite+rmsaSimulationSoftwareSuite = lens _roboMakerSimulationApplicationSimulationSoftwareSuite (\s a -> s { _roboMakerSimulationApplicationSimulationSoftwareSuite = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-simulationapplication.html#cfn-robomaker-simulationapplication-sources+rmsaSources :: Lens' RoboMakerSimulationApplication [RoboMakerSimulationApplicationSourceConfig]+rmsaSources = lens _roboMakerSimulationApplicationSources (\s a -> s { _roboMakerSimulationApplicationSources = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-simulationapplication.html#cfn-robomaker-simulationapplication-tags+rmsaTags :: Lens' RoboMakerSimulationApplication (Maybe Object)+rmsaTags = lens _roboMakerSimulationApplicationTags (\s a -> s { _roboMakerSimulationApplicationTags = a })
+ library-gen/Stratosphere/Resources/RoboMakerSimulationApplicationVersion.hs view
@@ -0,0 +1,53 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-simulationapplicationversion.html++module Stratosphere.Resources.RoboMakerSimulationApplicationVersion where++import Stratosphere.ResourceImports+++-- | Full data type definition for RoboMakerSimulationApplicationVersion. See+-- 'roboMakerSimulationApplicationVersion' for a more convenient+-- constructor.+data RoboMakerSimulationApplicationVersion =+  RoboMakerSimulationApplicationVersion+  { _roboMakerSimulationApplicationVersionApplication :: Val Text+  , _roboMakerSimulationApplicationVersionCurrentRevisionId :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON RoboMakerSimulationApplicationVersion where+  toJSON RoboMakerSimulationApplicationVersion{..} =+    object $+    catMaybes+    [ (Just . ("Application",) . toJSON) _roboMakerSimulationApplicationVersionApplication+    , fmap (("CurrentRevisionId",) . toJSON) _roboMakerSimulationApplicationVersionCurrentRevisionId+    ]++instance FromJSON RoboMakerSimulationApplicationVersion where+  parseJSON (Object obj) =+    RoboMakerSimulationApplicationVersion <$>+      (obj .: "Application") <*>+      (obj .:? "CurrentRevisionId")+  parseJSON _ = mempty++-- | Constructor for 'RoboMakerSimulationApplicationVersion' containing+-- required fields as arguments.+roboMakerSimulationApplicationVersion+  :: Val Text -- ^ 'rmsavApplication'+  -> RoboMakerSimulationApplicationVersion+roboMakerSimulationApplicationVersion applicationarg =+  RoboMakerSimulationApplicationVersion+  { _roboMakerSimulationApplicationVersionApplication = applicationarg+  , _roboMakerSimulationApplicationVersionCurrentRevisionId = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-simulationapplicationversion.html#cfn-robomaker-simulationapplicationversion-application+rmsavApplication :: Lens' RoboMakerSimulationApplicationVersion (Val Text)+rmsavApplication = lens _roboMakerSimulationApplicationVersionApplication (\s a -> s { _roboMakerSimulationApplicationVersionApplication = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-simulationapplicationversion.html#cfn-robomaker-simulationapplicationversion-currentrevisionid+rmsavCurrentRevisionId :: Lens' RoboMakerSimulationApplicationVersion (Maybe (Val Text))+rmsavCurrentRevisionId = lens _roboMakerSimulationApplicationVersionCurrentRevisionId (\s a -> s { _roboMakerSimulationApplicationVersionCurrentRevisionId = a })
library-gen/Stratosphere/Resources/SNSSubscription.hs view
@@ -16,10 +16,10 @@   { _sNSSubscriptionDeliveryPolicy :: Maybe Object   , _sNSSubscriptionEndpoint :: Maybe (Val Text)   , _sNSSubscriptionFilterPolicy :: Maybe Object-  , _sNSSubscriptionProtocol :: Maybe (Val SNSProtocol)+  , _sNSSubscriptionProtocol :: Val SNSProtocol   , _sNSSubscriptionRawMessageDelivery :: Maybe (Val Bool)   , _sNSSubscriptionRegion :: Maybe (Val Text)-  , _sNSSubscriptionTopicArn :: Maybe (Val Text)+  , _sNSSubscriptionTopicArn :: Val Text   } deriving (Show, Eq)  instance ToJSON SNSSubscription where@@ -29,10 +29,10 @@     [ fmap (("DeliveryPolicy",) . toJSON) _sNSSubscriptionDeliveryPolicy     , fmap (("Endpoint",) . toJSON) _sNSSubscriptionEndpoint     , fmap (("FilterPolicy",) . toJSON) _sNSSubscriptionFilterPolicy-    , fmap (("Protocol",) . toJSON) _sNSSubscriptionProtocol+    , (Just . ("Protocol",) . toJSON) _sNSSubscriptionProtocol     , fmap (("RawMessageDelivery",) . toJSON . fmap Bool') _sNSSubscriptionRawMessageDelivery     , fmap (("Region",) . toJSON) _sNSSubscriptionRegion-    , fmap (("TopicArn",) . toJSON) _sNSSubscriptionTopicArn+    , (Just . ("TopicArn",) . toJSON) _sNSSubscriptionTopicArn     ]  instance FromJSON SNSSubscription where@@ -41,25 +41,27 @@       (obj .:? "DeliveryPolicy") <*>       (obj .:? "Endpoint") <*>       (obj .:? "FilterPolicy") <*>-      (obj .:? "Protocol") <*>+      (obj .: "Protocol") <*>       fmap (fmap (fmap unBool')) (obj .:? "RawMessageDelivery") <*>       (obj .:? "Region") <*>-      (obj .:? "TopicArn")+      (obj .: "TopicArn")   parseJSON _ = mempty  -- | Constructor for 'SNSSubscription' containing required fields as -- arguments. snsSubscription-  :: SNSSubscription-snsSubscription  =+  :: Val SNSProtocol -- ^ 'snssProtocol'+  -> Val Text -- ^ 'snssTopicArn'+  -> SNSSubscription+snsSubscription protocolarg topicArnarg =   SNSSubscription   { _sNSSubscriptionDeliveryPolicy = Nothing   , _sNSSubscriptionEndpoint = Nothing   , _sNSSubscriptionFilterPolicy = Nothing-  , _sNSSubscriptionProtocol = Nothing+  , _sNSSubscriptionProtocol = protocolarg   , _sNSSubscriptionRawMessageDelivery = Nothing   , _sNSSubscriptionRegion = Nothing-  , _sNSSubscriptionTopicArn = Nothing+  , _sNSSubscriptionTopicArn = topicArnarg   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sns-subscription.html#cfn-sns-subscription-deliverypolicy@@ -75,7 +77,7 @@ snssFilterPolicy = lens _sNSSubscriptionFilterPolicy (\s a -> s { _sNSSubscriptionFilterPolicy = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sns-subscription.html#cfn-sns-protocol-snssProtocol :: Lens' SNSSubscription (Maybe (Val SNSProtocol))+snssProtocol :: Lens' SNSSubscription (Val SNSProtocol) snssProtocol = lens _sNSSubscriptionProtocol (\s a -> s { _sNSSubscriptionProtocol = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sns-subscription.html#cfn-sns-subscription-rawmessagedelivery@@ -87,5 +89,5 @@ snssRegion = lens _sNSSubscriptionRegion (\s a -> s { _sNSSubscriptionRegion = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sns-subscription.html#topicarn-snssTopicArn :: Lens' SNSSubscription (Maybe (Val Text))+snssTopicArn :: Lens' SNSSubscription (Val Text) snssTopicArn = lens _sNSSubscriptionTopicArn (\s a -> s { _sNSSubscriptionTopicArn = a })
library-gen/Stratosphere/Resources/SSMMaintenanceWindow.hs view
@@ -7,7 +7,7 @@ module Stratosphere.Resources.SSMMaintenanceWindow where  import Stratosphere.ResourceImports-+import Stratosphere.ResourceProperties.Tag  -- | Full data type definition for SSMMaintenanceWindow. See -- 'ssmMaintenanceWindow' for a more convenient constructor.@@ -22,6 +22,7 @@   , _sSMMaintenanceWindowSchedule :: Val Text   , _sSMMaintenanceWindowScheduleTimezone :: Maybe (Val Text)   , _sSMMaintenanceWindowStartDate :: Maybe (Val Text)+  , _sSMMaintenanceWindowTags :: Maybe [Tag]   } deriving (Show, Eq)  instance ToJSON SSMMaintenanceWindow where@@ -37,6 +38,7 @@     , (Just . ("Schedule",) . toJSON) _sSMMaintenanceWindowSchedule     , fmap (("ScheduleTimezone",) . toJSON) _sSMMaintenanceWindowScheduleTimezone     , fmap (("StartDate",) . toJSON) _sSMMaintenanceWindowStartDate+    , fmap (("Tags",) . toJSON) _sSMMaintenanceWindowTags     ]  instance FromJSON SSMMaintenanceWindow where@@ -50,7 +52,8 @@       (obj .: "Name") <*>       (obj .: "Schedule") <*>       (obj .:? "ScheduleTimezone") <*>-      (obj .:? "StartDate")+      (obj .:? "StartDate") <*>+      (obj .:? "Tags")   parseJSON _ = mempty  -- | Constructor for 'SSMMaintenanceWindow' containing required fields as@@ -73,6 +76,7 @@   , _sSMMaintenanceWindowSchedule = schedulearg   , _sSMMaintenanceWindowScheduleTimezone = Nothing   , _sSMMaintenanceWindowStartDate = Nothing+  , _sSMMaintenanceWindowTags = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindow.html#cfn-ssm-maintenancewindow-allowunassociatedtargets@@ -110,3 +114,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindow.html#cfn-ssm-maintenancewindow-startdate ssmmwStartDate :: Lens' SSMMaintenanceWindow (Maybe (Val Text)) ssmmwStartDate = lens _sSMMaintenanceWindowStartDate (\s a -> s { _sSMMaintenanceWindowStartDate = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindow.html#cfn-ssm-maintenancewindow-tags+ssmmwTags :: Lens' SSMMaintenanceWindow (Maybe [Tag])+ssmmwTags = lens _sSMMaintenanceWindowTags (\s a -> s { _sSMMaintenanceWindowTags = a })
stratosphere.cabal view
@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: e95cff19c73e1cabc2aa2df35a2af67996c3163bbe98fc87d625943bb0bb0279+-- hash: 1b39c35a049bf62220d11130ca8043229817186cc4af03e3f7be35aeb3519779  name:           stratosphere-version:        0.30.1+version:        0.31.0 synopsis:       EDSL for AWS CloudFormation description:    EDSL for AWS CloudFormation category:       AWS, Cloud@@ -74,6 +74,10 @@       Stratosphere.ResourceProperties.ApiGatewayUsagePlanApiStage       Stratosphere.ResourceProperties.ApiGatewayUsagePlanQuotaSettings       Stratosphere.ResourceProperties.ApiGatewayUsagePlanThrottleSettings+      Stratosphere.ResourceProperties.ApiGatewayV2RouteParameterConstraints+      Stratosphere.ResourceProperties.ApiGatewayV2RouteResponseParameterConstraints+      Stratosphere.ResourceProperties.ApiGatewayV2StageAccessLogSettings+      Stratosphere.ResourceProperties.ApiGatewayV2StageRouteSettings       Stratosphere.ResourceProperties.ApplicationAutoScalingScalableTargetScalableTargetAction       Stratosphere.ResourceProperties.ApplicationAutoScalingScalableTargetScheduledAction       Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyCustomizedMetricSpecification@@ -176,6 +180,9 @@       Stratosphere.ResourceProperties.CloudTrailTrailDataResource       Stratosphere.ResourceProperties.CloudTrailTrailEventSelector       Stratosphere.ResourceProperties.CloudWatchAlarmDimension+      Stratosphere.ResourceProperties.CloudWatchAlarmMetric+      Stratosphere.ResourceProperties.CloudWatchAlarmMetricDataQuery+      Stratosphere.ResourceProperties.CloudWatchAlarmMetricStat       Stratosphere.ResourceProperties.CodeBuildProjectArtifacts       Stratosphere.ResourceProperties.CodeBuildProjectCloudWatchLogsConfig       Stratosphere.ResourceProperties.CodeBuildProjectEnvironment@@ -188,6 +195,7 @@       Stratosphere.ResourceProperties.CodeBuildProjectSource       Stratosphere.ResourceProperties.CodeBuildProjectSourceAuth       Stratosphere.ResourceProperties.CodeBuildProjectVpcConfig+      Stratosphere.ResourceProperties.CodeBuildProjectWebhookFilter       Stratosphere.ResourceProperties.CodeCommitRepositoryRepositoryTrigger       Stratosphere.ResourceProperties.CodeDeployDeploymentConfigMinimumHealthyHosts       Stratosphere.ResourceProperties.CodeDeployDeploymentGroupAlarm@@ -299,13 +307,19 @@       Stratosphere.ResourceProperties.EC2InstanceSsmAssociation       Stratosphere.ResourceProperties.EC2InstanceVolume       Stratosphere.ResourceProperties.EC2LaunchTemplateBlockDeviceMapping+      Stratosphere.ResourceProperties.EC2LaunchTemplateCapacityReservationSpecification+      Stratosphere.ResourceProperties.EC2LaunchTemplateCapacityReservationTarget+      Stratosphere.ResourceProperties.EC2LaunchTemplateCpuOptions       Stratosphere.ResourceProperties.EC2LaunchTemplateCreditSpecification       Stratosphere.ResourceProperties.EC2LaunchTemplateEbs       Stratosphere.ResourceProperties.EC2LaunchTemplateElasticGpuSpecification+      Stratosphere.ResourceProperties.EC2LaunchTemplateHibernationOptions       Stratosphere.ResourceProperties.EC2LaunchTemplateIamInstanceProfile       Stratosphere.ResourceProperties.EC2LaunchTemplateInstanceMarketOptions       Stratosphere.ResourceProperties.EC2LaunchTemplateIpv6Add       Stratosphere.ResourceProperties.EC2LaunchTemplateLaunchTemplateData+      Stratosphere.ResourceProperties.EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator+      Stratosphere.ResourceProperties.EC2LaunchTemplateLicenseSpecification       Stratosphere.ResourceProperties.EC2LaunchTemplateMonitoring       Stratosphere.ResourceProperties.EC2LaunchTemplateNetworkInterface       Stratosphere.ResourceProperties.EC2LaunchTemplatePlacement@@ -464,6 +478,9 @@       Stratosphere.ResourceProperties.EventsRuleRunCommandTarget       Stratosphere.ResourceProperties.EventsRuleSqsParameters       Stratosphere.ResourceProperties.EventsRuleTarget+      Stratosphere.ResourceProperties.FSxFileSystemLustreConfiguration+      Stratosphere.ResourceProperties.FSxFileSystemTagEntry+      Stratosphere.ResourceProperties.FSxFileSystemWindowsConfiguration       Stratosphere.ResourceProperties.GameLiftAliasRoutingStrategy       Stratosphere.ResourceProperties.GameLiftBuildS3Location       Stratosphere.ResourceProperties.GameLiftFleetIpPermission@@ -573,6 +590,44 @@       Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource       Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema       Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationApplicationCodeConfiguration+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationApplicationConfiguration+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationCheckpointConfiguration+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationCodeContent+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationCSVMappingParameters+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationEnvironmentProperties+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInput+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInputLambdaProcessor+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInputParallelism+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInputProcessingConfiguration+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInputSchema+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationJSONMappingParameters+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationKinesisFirehoseInput+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationKinesisStreamsInput+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationMappingParameters+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationMonitoringConfiguration+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputDestinationSchema+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputLambdaOutput+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputOutput+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationParallelismConfiguration+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationPropertyGroup+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationRecordColumn+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationRecordFormat+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationS3ContentLocation+      Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationSqlApplicationConfiguration       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamBufferingHints       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamCopyCommand@@ -626,6 +681,12 @@       Stratosphere.ResourceProperties.RDSOptionGroupOptionSetting       Stratosphere.ResourceProperties.RedshiftClusterLoggingProperties       Stratosphere.ResourceProperties.RedshiftClusterParameterGroupParameter+      Stratosphere.ResourceProperties.RoboMakerRobotApplicationRobotSoftwareSuite+      Stratosphere.ResourceProperties.RoboMakerRobotApplicationSourceConfig+      Stratosphere.ResourceProperties.RoboMakerSimulationApplicationRenderingEngine+      Stratosphere.ResourceProperties.RoboMakerSimulationApplicationRobotSoftwareSuite+      Stratosphere.ResourceProperties.RoboMakerSimulationApplicationSimulationSoftwareSuite+      Stratosphere.ResourceProperties.RoboMakerSimulationApplicationSourceConfig       Stratosphere.ResourceProperties.Route53HealthCheckAlarmIdentifier       Stratosphere.ResourceProperties.Route53HealthCheckHealthCheckConfig       Stratosphere.ResourceProperties.Route53HealthCheckHealthCheckTag@@ -774,6 +835,15 @@       Stratosphere.Resources.ApiGatewayStage       Stratosphere.Resources.ApiGatewayUsagePlan       Stratosphere.Resources.ApiGatewayUsagePlanKey+      Stratosphere.Resources.ApiGatewayV2Api+      Stratosphere.Resources.ApiGatewayV2Authorizer+      Stratosphere.Resources.ApiGatewayV2Deployment+      Stratosphere.Resources.ApiGatewayV2Integration+      Stratosphere.Resources.ApiGatewayV2IntegrationResponse+      Stratosphere.Resources.ApiGatewayV2Model+      Stratosphere.Resources.ApiGatewayV2Route+      Stratosphere.Resources.ApiGatewayV2RouteResponse+      Stratosphere.Resources.ApiGatewayV2Stage       Stratosphere.Resources.ApiGatewayVpcLink       Stratosphere.Resources.ApplicationAutoScalingScalableTarget       Stratosphere.Resources.ApplicationAutoScalingScalingPolicy@@ -933,6 +1003,7 @@       Stratosphere.Resources.EMRStep       Stratosphere.Resources.EventsEventBusPolicy       Stratosphere.Resources.EventsRule+      Stratosphere.Resources.FSxFileSystem       Stratosphere.Resources.GameLiftAlias       Stratosphere.Resources.GameLiftBuild       Stratosphere.Resources.GameLiftFleet@@ -979,6 +1050,10 @@       Stratosphere.Resources.KinesisAnalyticsApplication       Stratosphere.Resources.KinesisAnalyticsApplicationOutput       Stratosphere.Resources.KinesisAnalyticsApplicationReferenceDataSource+      Stratosphere.Resources.KinesisAnalyticsV2Application+      Stratosphere.Resources.KinesisAnalyticsV2ApplicationCloudWatchLoggingOption+      Stratosphere.Resources.KinesisAnalyticsV2ApplicationOutput+      Stratosphere.Resources.KinesisAnalyticsV2ApplicationReferenceDataSource       Stratosphere.Resources.KinesisFirehoseDeliveryStream       Stratosphere.Resources.KinesisStream       Stratosphere.Resources.KinesisStreamConsumer@@ -1009,6 +1084,7 @@       Stratosphere.Resources.OpsWorksStack       Stratosphere.Resources.OpsWorksUserProfile       Stratosphere.Resources.OpsWorksVolume+      Stratosphere.Resources.RAMResourceShare       Stratosphere.Resources.RDSDBCluster       Stratosphere.Resources.RDSDBClusterParameterGroup       Stratosphere.Resources.RDSDBInstance@@ -1023,6 +1099,12 @@       Stratosphere.Resources.RedshiftClusterSecurityGroup       Stratosphere.Resources.RedshiftClusterSecurityGroupIngress       Stratosphere.Resources.RedshiftClusterSubnetGroup+      Stratosphere.Resources.RoboMakerFleet+      Stratosphere.Resources.RoboMakerRobot+      Stratosphere.Resources.RoboMakerRobotApplication+      Stratosphere.Resources.RoboMakerRobotApplicationVersion+      Stratosphere.Resources.RoboMakerSimulationApplication+      Stratosphere.Resources.RoboMakerSimulationApplicationVersion       Stratosphere.Resources.Route53HealthCheck       Stratosphere.Resources.Route53HostedZone       Stratosphere.Resources.Route53RecordSet