packages feed

stratosphere 0.10.0 → 0.11.0

raw patch · 123 files changed

+5629/−239 lines, 123 files

Files

CHANGELOG.md view
@@ -1,5 +1,9 @@ # Change Log +## 0.11.0++* Update resource specification document to version 1.8.0+ ## 0.10.0  * Update resource specification document to version 1.7.0
library-gen/Stratosphere/ResourceProperties/ApiGatewayDeploymentStageDescription.hs view
@@ -32,7 +32,6 @@   , _apiGatewayDeploymentStageDescriptionLoggingLevel :: Maybe (Val LoggingLevel)   , _apiGatewayDeploymentStageDescriptionMethodSettings :: Maybe [ApiGatewayDeploymentMethodSetting]   , _apiGatewayDeploymentStageDescriptionMetricsEnabled :: Maybe (Val Bool)-  , _apiGatewayDeploymentStageDescriptionStageName :: Maybe (Val Text)   , _apiGatewayDeploymentStageDescriptionThrottlingBurstLimit :: Maybe (Val Integer)   , _apiGatewayDeploymentStageDescriptionThrottlingRateLimit :: Maybe (Val Double)   , _apiGatewayDeploymentStageDescriptionVariables :: Maybe Object@@ -54,7 +53,6 @@     , fmap (("LoggingLevel",) . toJSON) _apiGatewayDeploymentStageDescriptionLoggingLevel     , fmap (("MethodSettings",) . toJSON) _apiGatewayDeploymentStageDescriptionMethodSettings     , fmap (("MetricsEnabled",) . toJSON . fmap Bool') _apiGatewayDeploymentStageDescriptionMetricsEnabled-    , fmap (("StageName",) . toJSON) _apiGatewayDeploymentStageDescriptionStageName     , fmap (("ThrottlingBurstLimit",) . toJSON . fmap Integer') _apiGatewayDeploymentStageDescriptionThrottlingBurstLimit     , fmap (("ThrottlingRateLimit",) . toJSON . fmap Double') _apiGatewayDeploymentStageDescriptionThrottlingRateLimit     , fmap (("Variables",) . toJSON) _apiGatewayDeploymentStageDescriptionVariables@@ -75,7 +73,6 @@       (obj .:? "LoggingLevel") <*>       (obj .:? "MethodSettings") <*>       fmap (fmap (fmap unBool')) (obj .:? "MetricsEnabled") <*>-      (obj .:? "StageName") <*>       fmap (fmap (fmap unInteger')) (obj .:? "ThrottlingBurstLimit") <*>       fmap (fmap (fmap unDouble')) (obj .:? "ThrottlingRateLimit") <*>       (obj .:? "Variables")@@ -99,7 +96,6 @@   , _apiGatewayDeploymentStageDescriptionLoggingLevel = Nothing   , _apiGatewayDeploymentStageDescriptionMethodSettings = Nothing   , _apiGatewayDeploymentStageDescriptionMetricsEnabled = Nothing-  , _apiGatewayDeploymentStageDescriptionStageName = Nothing   , _apiGatewayDeploymentStageDescriptionThrottlingBurstLimit = Nothing   , _apiGatewayDeploymentStageDescriptionThrottlingRateLimit = Nothing   , _apiGatewayDeploymentStageDescriptionVariables = Nothing@@ -152,10 +148,6 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-metricsenabled agdsdMetricsEnabled :: Lens' ApiGatewayDeploymentStageDescription (Maybe (Val Bool)) agdsdMetricsEnabled = lens _apiGatewayDeploymentStageDescriptionMetricsEnabled (\s a -> s { _apiGatewayDeploymentStageDescriptionMetricsEnabled = a })---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-stagename-agdsdStageName :: Lens' ApiGatewayDeploymentStageDescription (Maybe (Val Text))-agdsdStageName = lens _apiGatewayDeploymentStageDescriptionStageName (\s a -> s { _apiGatewayDeploymentStageDescriptionStageName = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-throttlingburstlimit agdsdThrottlingBurstLimit :: Lens' ApiGatewayDeploymentStageDescription (Maybe (Val Integer))
library-gen/Stratosphere/ResourceProperties/ApiGatewayMethodIntegration.hs view
@@ -22,6 +22,7 @@   ApiGatewayMethodIntegration   { _apiGatewayMethodIntegrationCacheKeyParameters :: Maybe (ValList Text)   , _apiGatewayMethodIntegrationCacheNamespace :: Maybe (Val Text)+  , _apiGatewayMethodIntegrationContentHandling :: Maybe (Val Text)   , _apiGatewayMethodIntegrationCredentials :: Maybe (Val Text)   , _apiGatewayMethodIntegrationIntegrationHttpMethod :: Maybe (Val HttpMethod)   , _apiGatewayMethodIntegrationIntegrationResponses :: Maybe [ApiGatewayMethodIntegrationResponse]@@ -38,6 +39,7 @@     catMaybes     [ fmap (("CacheKeyParameters",) . toJSON) _apiGatewayMethodIntegrationCacheKeyParameters     , fmap (("CacheNamespace",) . toJSON) _apiGatewayMethodIntegrationCacheNamespace+    , fmap (("ContentHandling",) . toJSON) _apiGatewayMethodIntegrationContentHandling     , fmap (("Credentials",) . toJSON) _apiGatewayMethodIntegrationCredentials     , fmap (("IntegrationHttpMethod",) . toJSON) _apiGatewayMethodIntegrationIntegrationHttpMethod     , fmap (("IntegrationResponses",) . toJSON) _apiGatewayMethodIntegrationIntegrationResponses@@ -53,6 +55,7 @@     ApiGatewayMethodIntegration <$>       (obj .:? "CacheKeyParameters") <*>       (obj .:? "CacheNamespace") <*>+      (obj .:? "ContentHandling") <*>       (obj .:? "Credentials") <*>       (obj .:? "IntegrationHttpMethod") <*>       (obj .:? "IntegrationResponses") <*>@@ -71,6 +74,7 @@   ApiGatewayMethodIntegration   { _apiGatewayMethodIntegrationCacheKeyParameters = Nothing   , _apiGatewayMethodIntegrationCacheNamespace = Nothing+  , _apiGatewayMethodIntegrationContentHandling = Nothing   , _apiGatewayMethodIntegrationCredentials = Nothing   , _apiGatewayMethodIntegrationIntegrationHttpMethod = Nothing   , _apiGatewayMethodIntegrationIntegrationResponses = Nothing@@ -88,6 +92,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-integration.html#cfn-apigateway-method-integration-cachenamespace agmiCacheNamespace :: Lens' ApiGatewayMethodIntegration (Maybe (Val Text)) agmiCacheNamespace = lens _apiGatewayMethodIntegrationCacheNamespace (\s a -> s { _apiGatewayMethodIntegrationCacheNamespace = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-integration.html#cfn-apigateway-method-integration-contenthandling+agmiContentHandling :: Lens' ApiGatewayMethodIntegration (Maybe (Val Text))+agmiContentHandling = lens _apiGatewayMethodIntegrationContentHandling (\s a -> s { _apiGatewayMethodIntegrationContentHandling = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-integration.html#cfn-apigateway-method-integration-credentials agmiCredentials :: Lens' ApiGatewayMethodIntegration (Maybe (Val Text))
library-gen/Stratosphere/ResourceProperties/ApiGatewayMethodIntegrationResponse.hs view
@@ -19,7 +19,8 @@ -- 'apiGatewayMethodIntegrationResponse' for a more convenient constructor. data ApiGatewayMethodIntegrationResponse =   ApiGatewayMethodIntegrationResponse-  { _apiGatewayMethodIntegrationResponseResponseParameters :: Maybe Object+  { _apiGatewayMethodIntegrationResponseContentHandling :: Maybe (Val Text)+  , _apiGatewayMethodIntegrationResponseResponseParameters :: Maybe Object   , _apiGatewayMethodIntegrationResponseResponseTemplates :: Maybe Object   , _apiGatewayMethodIntegrationResponseSelectionPattern :: Maybe (Val Text)   , _apiGatewayMethodIntegrationResponseStatusCode :: Val Text@@ -29,7 +30,8 @@   toJSON ApiGatewayMethodIntegrationResponse{..} =     object $     catMaybes-    [ fmap (("ResponseParameters",) . toJSON) _apiGatewayMethodIntegrationResponseResponseParameters+    [ fmap (("ContentHandling",) . toJSON) _apiGatewayMethodIntegrationResponseContentHandling+    , fmap (("ResponseParameters",) . toJSON) _apiGatewayMethodIntegrationResponseResponseParameters     , fmap (("ResponseTemplates",) . toJSON) _apiGatewayMethodIntegrationResponseResponseTemplates     , fmap (("SelectionPattern",) . toJSON) _apiGatewayMethodIntegrationResponseSelectionPattern     , (Just . ("StatusCode",) . toJSON) _apiGatewayMethodIntegrationResponseStatusCode@@ -38,6 +40,7 @@ instance FromJSON ApiGatewayMethodIntegrationResponse where   parseJSON (Object obj) =     ApiGatewayMethodIntegrationResponse <$>+      (obj .:? "ContentHandling") <*>       (obj .:? "ResponseParameters") <*>       (obj .:? "ResponseTemplates") <*>       (obj .:? "SelectionPattern") <*>@@ -51,11 +54,16 @@   -> ApiGatewayMethodIntegrationResponse apiGatewayMethodIntegrationResponse statusCodearg =   ApiGatewayMethodIntegrationResponse-  { _apiGatewayMethodIntegrationResponseResponseParameters = Nothing+  { _apiGatewayMethodIntegrationResponseContentHandling = Nothing+  , _apiGatewayMethodIntegrationResponseResponseParameters = Nothing   , _apiGatewayMethodIntegrationResponseResponseTemplates = Nothing   , _apiGatewayMethodIntegrationResponseSelectionPattern = Nothing   , _apiGatewayMethodIntegrationResponseStatusCode = statusCodearg   }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-integration-integrationresponse.html#cfn-apigateway-method-integrationresponse-contenthandling+agmirContentHandling :: Lens' ApiGatewayMethodIntegrationResponse (Maybe (Val Text))+agmirContentHandling = lens _apiGatewayMethodIntegrationResponseContentHandling (\s a -> s { _apiGatewayMethodIntegrationResponseContentHandling = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-integration-integrationresponse.html#cfn-apigateway-method-integration-integrationresponse-responseparameters agmirResponseParameters :: Lens' ApiGatewayMethodIntegrationResponse (Maybe Object)
+ library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupLifecycleHookSpecification.hs view
@@ -0,0 +1,101 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-autoscalinggroup-lifecyclehookspecification.html++module Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupLifecycleHookSpecification where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for+-- AutoScalingAutoScalingGroupLifecycleHookSpecification. See+-- 'autoScalingAutoScalingGroupLifecycleHookSpecification' for a more+-- convenient constructor.+data AutoScalingAutoScalingGroupLifecycleHookSpecification =+  AutoScalingAutoScalingGroupLifecycleHookSpecification+  { _autoScalingAutoScalingGroupLifecycleHookSpecificationDefaultResult :: Maybe (Val Text)+  , _autoScalingAutoScalingGroupLifecycleHookSpecificationHeartbeatTimeout :: Maybe (Val Integer)+  , _autoScalingAutoScalingGroupLifecycleHookSpecificationLifecycleHookName :: Val Text+  , _autoScalingAutoScalingGroupLifecycleHookSpecificationLifecycleTransition :: Val Text+  , _autoScalingAutoScalingGroupLifecycleHookSpecificationNotificationMetadata :: Maybe (Val Text)+  , _autoScalingAutoScalingGroupLifecycleHookSpecificationNotificationTargetARN :: Maybe (Val Text)+  , _autoScalingAutoScalingGroupLifecycleHookSpecificationRoleARN :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON AutoScalingAutoScalingGroupLifecycleHookSpecification where+  toJSON AutoScalingAutoScalingGroupLifecycleHookSpecification{..} =+    object $+    catMaybes+    [ fmap (("DefaultResult",) . toJSON) _autoScalingAutoScalingGroupLifecycleHookSpecificationDefaultResult+    , fmap (("HeartbeatTimeout",) . toJSON . fmap Integer') _autoScalingAutoScalingGroupLifecycleHookSpecificationHeartbeatTimeout+    , (Just . ("LifecycleHookName",) . toJSON) _autoScalingAutoScalingGroupLifecycleHookSpecificationLifecycleHookName+    , (Just . ("LifecycleTransition",) . toJSON) _autoScalingAutoScalingGroupLifecycleHookSpecificationLifecycleTransition+    , fmap (("NotificationMetadata",) . toJSON) _autoScalingAutoScalingGroupLifecycleHookSpecificationNotificationMetadata+    , fmap (("NotificationTargetARN",) . toJSON) _autoScalingAutoScalingGroupLifecycleHookSpecificationNotificationTargetARN+    , fmap (("RoleARN",) . toJSON) _autoScalingAutoScalingGroupLifecycleHookSpecificationRoleARN+    ]++instance FromJSON AutoScalingAutoScalingGroupLifecycleHookSpecification where+  parseJSON (Object obj) =+    AutoScalingAutoScalingGroupLifecycleHookSpecification <$>+      (obj .:? "DefaultResult") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "HeartbeatTimeout") <*>+      (obj .: "LifecycleHookName") <*>+      (obj .: "LifecycleTransition") <*>+      (obj .:? "NotificationMetadata") <*>+      (obj .:? "NotificationTargetARN") <*>+      (obj .:? "RoleARN")+  parseJSON _ = mempty++-- | Constructor for 'AutoScalingAutoScalingGroupLifecycleHookSpecification'+-- containing required fields as arguments.+autoScalingAutoScalingGroupLifecycleHookSpecification+  :: Val Text -- ^ 'asasglhsLifecycleHookName'+  -> Val Text -- ^ 'asasglhsLifecycleTransition'+  -> AutoScalingAutoScalingGroupLifecycleHookSpecification+autoScalingAutoScalingGroupLifecycleHookSpecification lifecycleHookNamearg lifecycleTransitionarg =+  AutoScalingAutoScalingGroupLifecycleHookSpecification+  { _autoScalingAutoScalingGroupLifecycleHookSpecificationDefaultResult = Nothing+  , _autoScalingAutoScalingGroupLifecycleHookSpecificationHeartbeatTimeout = Nothing+  , _autoScalingAutoScalingGroupLifecycleHookSpecificationLifecycleHookName = lifecycleHookNamearg+  , _autoScalingAutoScalingGroupLifecycleHookSpecificationLifecycleTransition = lifecycleTransitionarg+  , _autoScalingAutoScalingGroupLifecycleHookSpecificationNotificationMetadata = Nothing+  , _autoScalingAutoScalingGroupLifecycleHookSpecificationNotificationTargetARN = Nothing+  , _autoScalingAutoScalingGroupLifecycleHookSpecificationRoleARN = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-autoscalinggroup-lifecyclehookspecification.html#cfn-autoscaling-autoscalinggroup-lifecyclehookspecification-defaultresult+asasglhsDefaultResult :: Lens' AutoScalingAutoScalingGroupLifecycleHookSpecification (Maybe (Val Text))+asasglhsDefaultResult = lens _autoScalingAutoScalingGroupLifecycleHookSpecificationDefaultResult (\s a -> s { _autoScalingAutoScalingGroupLifecycleHookSpecificationDefaultResult = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-autoscalinggroup-lifecyclehookspecification.html#cfn-autoscaling-autoscalinggroup-lifecyclehookspecification-heartbeattimeout+asasglhsHeartbeatTimeout :: Lens' AutoScalingAutoScalingGroupLifecycleHookSpecification (Maybe (Val Integer))+asasglhsHeartbeatTimeout = lens _autoScalingAutoScalingGroupLifecycleHookSpecificationHeartbeatTimeout (\s a -> s { _autoScalingAutoScalingGroupLifecycleHookSpecificationHeartbeatTimeout = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-autoscalinggroup-lifecyclehookspecification.html#cfn-autoscaling-autoscalinggroup-lifecyclehookspecification-lifecyclehookname+asasglhsLifecycleHookName :: Lens' AutoScalingAutoScalingGroupLifecycleHookSpecification (Val Text)+asasglhsLifecycleHookName = lens _autoScalingAutoScalingGroupLifecycleHookSpecificationLifecycleHookName (\s a -> s { _autoScalingAutoScalingGroupLifecycleHookSpecificationLifecycleHookName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-autoscalinggroup-lifecyclehookspecification.html#cfn-autoscaling-autoscalinggroup-lifecyclehookspecification-lifecycletransition+asasglhsLifecycleTransition :: Lens' AutoScalingAutoScalingGroupLifecycleHookSpecification (Val Text)+asasglhsLifecycleTransition = lens _autoScalingAutoScalingGroupLifecycleHookSpecificationLifecycleTransition (\s a -> s { _autoScalingAutoScalingGroupLifecycleHookSpecificationLifecycleTransition = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-autoscalinggroup-lifecyclehookspecification.html#cfn-autoscaling-autoscalinggroup-lifecyclehookspecification-notificationmetadata+asasglhsNotificationMetadata :: Lens' AutoScalingAutoScalingGroupLifecycleHookSpecification (Maybe (Val Text))+asasglhsNotificationMetadata = lens _autoScalingAutoScalingGroupLifecycleHookSpecificationNotificationMetadata (\s a -> s { _autoScalingAutoScalingGroupLifecycleHookSpecificationNotificationMetadata = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-autoscalinggroup-lifecyclehookspecification.html#cfn-autoscaling-autoscalinggroup-lifecyclehookspecification-notificationtargetarn+asasglhsNotificationTargetARN :: Lens' AutoScalingAutoScalingGroupLifecycleHookSpecification (Maybe (Val Text))+asasglhsNotificationTargetARN = lens _autoScalingAutoScalingGroupLifecycleHookSpecificationNotificationTargetARN (\s a -> s { _autoScalingAutoScalingGroupLifecycleHookSpecificationNotificationTargetARN = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-autoscalinggroup-lifecyclehookspecification.html#cfn-autoscaling-autoscalinggroup-lifecyclehookspecification-rolearn+asasglhsRoleARN :: Lens' AutoScalingAutoScalingGroupLifecycleHookSpecification (Maybe (Val Text))+asasglhsRoleARN = lens _autoScalingAutoScalingGroupLifecycleHookSpecificationRoleARN (\s a -> s { _autoScalingAutoScalingGroupLifecycleHookSpecificationRoleARN = a })
+ library-gen/Stratosphere/ResourceProperties/CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig.hs view
@@ -0,0 +1,54 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cloudfrontoriginaccessidentity-cloudfrontoriginaccessidentityconfig.html++module Stratosphere.ResourceProperties.CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for+-- CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig.+-- See+-- 'cloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig'+-- for a more convenient constructor.+data CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig =+  CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig+  { _cloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfigComment :: Val Text+  } deriving (Show, Eq)++instance ToJSON CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig where+  toJSON CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig{..} =+    object $+    catMaybes+    [ (Just . ("Comment",) . toJSON) _cloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfigComment+    ]++instance FromJSON CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig where+  parseJSON (Object obj) =+    CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig <$>+      (obj .: "Comment")+  parseJSON _ = mempty++-- | Constructor for+-- 'CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig'+-- containing required fields as arguments.+cloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig+  :: Val Text -- ^ 'cfcfoaicfoaicComment'+  -> CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig+cloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig commentarg =+  CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig+  { _cloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfigComment = commentarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cloudfrontoriginaccessidentity-cloudfrontoriginaccessidentityconfig.html#cfn-cloudfront-cloudfrontoriginaccessidentity-cloudfrontoriginaccessidentityconfig-comment+cfcfoaicfoaicComment :: Lens' CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig (Val Text)+cfcfoaicfoaicComment = lens _cloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfigComment (\s a -> s { _cloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfigComment = a })
library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionCacheBehavior.hs view
@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cachebehavior.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html  module Stratosphere.ResourceProperties.CloudFrontDistributionCacheBehavior where @@ -14,6 +14,7 @@  import Stratosphere.Values import Stratosphere.ResourceProperties.CloudFrontDistributionForwardedValues+import Stratosphere.ResourceProperties.CloudFrontDistributionLambdaFunctionAssociation  -- | Full data type definition for CloudFrontDistributionCacheBehavior. See -- 'cloudFrontDistributionCacheBehavior' for a more convenient constructor.@@ -22,10 +23,11 @@   { _cloudFrontDistributionCacheBehaviorAllowedMethods :: Maybe (ValList Text)   , _cloudFrontDistributionCacheBehaviorCachedMethods :: Maybe (ValList Text)   , _cloudFrontDistributionCacheBehaviorCompress :: Maybe (Val Bool)-  , _cloudFrontDistributionCacheBehaviorDefaultTTL :: Maybe (Val Integer)+  , _cloudFrontDistributionCacheBehaviorDefaultTTL :: Maybe (Val Double)   , _cloudFrontDistributionCacheBehaviorForwardedValues :: CloudFrontDistributionForwardedValues-  , _cloudFrontDistributionCacheBehaviorMaxTTL :: Maybe (Val Integer)-  , _cloudFrontDistributionCacheBehaviorMinTTL :: Maybe (Val Integer)+  , _cloudFrontDistributionCacheBehaviorLambdaFunctionAssociations :: Maybe [CloudFrontDistributionLambdaFunctionAssociation]+  , _cloudFrontDistributionCacheBehaviorMaxTTL :: Maybe (Val Double)+  , _cloudFrontDistributionCacheBehaviorMinTTL :: Maybe (Val Double)   , _cloudFrontDistributionCacheBehaviorPathPattern :: Val Text   , _cloudFrontDistributionCacheBehaviorSmoothStreaming :: Maybe (Val Bool)   , _cloudFrontDistributionCacheBehaviorTargetOriginId :: Val Text@@ -40,10 +42,11 @@     [ fmap (("AllowedMethods",) . toJSON) _cloudFrontDistributionCacheBehaviorAllowedMethods     , fmap (("CachedMethods",) . toJSON) _cloudFrontDistributionCacheBehaviorCachedMethods     , fmap (("Compress",) . toJSON . fmap Bool') _cloudFrontDistributionCacheBehaviorCompress-    , fmap (("DefaultTTL",) . toJSON . fmap Integer') _cloudFrontDistributionCacheBehaviorDefaultTTL+    , fmap (("DefaultTTL",) . toJSON . fmap Double') _cloudFrontDistributionCacheBehaviorDefaultTTL     , (Just . ("ForwardedValues",) . toJSON) _cloudFrontDistributionCacheBehaviorForwardedValues-    , fmap (("MaxTTL",) . toJSON . fmap Integer') _cloudFrontDistributionCacheBehaviorMaxTTL-    , fmap (("MinTTL",) . toJSON . fmap Integer') _cloudFrontDistributionCacheBehaviorMinTTL+    , fmap (("LambdaFunctionAssociations",) . toJSON) _cloudFrontDistributionCacheBehaviorLambdaFunctionAssociations+    , fmap (("MaxTTL",) . toJSON . fmap Double') _cloudFrontDistributionCacheBehaviorMaxTTL+    , fmap (("MinTTL",) . toJSON . fmap Double') _cloudFrontDistributionCacheBehaviorMinTTL     , (Just . ("PathPattern",) . toJSON) _cloudFrontDistributionCacheBehaviorPathPattern     , fmap (("SmoothStreaming",) . toJSON . fmap Bool') _cloudFrontDistributionCacheBehaviorSmoothStreaming     , (Just . ("TargetOriginId",) . toJSON) _cloudFrontDistributionCacheBehaviorTargetOriginId@@ -57,10 +60,11 @@       (obj .:? "AllowedMethods") <*>       (obj .:? "CachedMethods") <*>       fmap (fmap (fmap unBool')) (obj .:? "Compress") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "DefaultTTL") <*>+      fmap (fmap (fmap unDouble')) (obj .:? "DefaultTTL") <*>       (obj .: "ForwardedValues") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "MaxTTL") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "MinTTL") <*>+      (obj .:? "LambdaFunctionAssociations") <*>+      fmap (fmap (fmap unDouble')) (obj .:? "MaxTTL") <*>+      fmap (fmap (fmap unDouble')) (obj .:? "MinTTL") <*>       (obj .: "PathPattern") <*>       fmap (fmap (fmap unBool')) (obj .:? "SmoothStreaming") <*>       (obj .: "TargetOriginId") <*>@@ -83,6 +87,7 @@   , _cloudFrontDistributionCacheBehaviorCompress = Nothing   , _cloudFrontDistributionCacheBehaviorDefaultTTL = Nothing   , _cloudFrontDistributionCacheBehaviorForwardedValues = forwardedValuesarg+  , _cloudFrontDistributionCacheBehaviorLambdaFunctionAssociations = Nothing   , _cloudFrontDistributionCacheBehaviorMaxTTL = Nothing   , _cloudFrontDistributionCacheBehaviorMinTTL = Nothing   , _cloudFrontDistributionCacheBehaviorPathPattern = pathPatternarg@@ -92,50 +97,54 @@   , _cloudFrontDistributionCacheBehaviorViewerProtocolPolicy = viewerProtocolPolicyarg   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cachebehavior.html#cfn-cloudfront-cachebehavior-allowedmethods+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-allowedmethods cfdcbAllowedMethods :: Lens' CloudFrontDistributionCacheBehavior (Maybe (ValList Text)) cfdcbAllowedMethods = lens _cloudFrontDistributionCacheBehaviorAllowedMethods (\s a -> s { _cloudFrontDistributionCacheBehaviorAllowedMethods = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cachebehavior.html#cfn-cloudfront-cachebehavior-cachedmethods+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-cachedmethods cfdcbCachedMethods :: Lens' CloudFrontDistributionCacheBehavior (Maybe (ValList Text)) cfdcbCachedMethods = lens _cloudFrontDistributionCacheBehaviorCachedMethods (\s a -> s { _cloudFrontDistributionCacheBehaviorCachedMethods = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cachebehavior.html#cfn-cloudfront-cachebehavior-compress+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-compress cfdcbCompress :: Lens' CloudFrontDistributionCacheBehavior (Maybe (Val Bool)) cfdcbCompress = lens _cloudFrontDistributionCacheBehaviorCompress (\s a -> s { _cloudFrontDistributionCacheBehaviorCompress = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cachebehavior.html#cfn-cloudfront-cachebehavior-defaultttl-cfdcbDefaultTTL :: Lens' CloudFrontDistributionCacheBehavior (Maybe (Val Integer))+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-defaultttl+cfdcbDefaultTTL :: Lens' CloudFrontDistributionCacheBehavior (Maybe (Val Double)) cfdcbDefaultTTL = lens _cloudFrontDistributionCacheBehaviorDefaultTTL (\s a -> s { _cloudFrontDistributionCacheBehaviorDefaultTTL = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cachebehavior.html#cfn-cloudfront-cachebehavior-forwardedvalues+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-forwardedvalues cfdcbForwardedValues :: Lens' CloudFrontDistributionCacheBehavior CloudFrontDistributionForwardedValues cfdcbForwardedValues = lens _cloudFrontDistributionCacheBehaviorForwardedValues (\s a -> s { _cloudFrontDistributionCacheBehaviorForwardedValues = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cachebehavior.html#cfn-cloudfront-cachebehavior-maxttl-cfdcbMaxTTL :: Lens' CloudFrontDistributionCacheBehavior (Maybe (Val Integer))+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-lambdafunctionassociations+cfdcbLambdaFunctionAssociations :: Lens' CloudFrontDistributionCacheBehavior (Maybe [CloudFrontDistributionLambdaFunctionAssociation])+cfdcbLambdaFunctionAssociations = lens _cloudFrontDistributionCacheBehaviorLambdaFunctionAssociations (\s a -> s { _cloudFrontDistributionCacheBehaviorLambdaFunctionAssociations = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-maxttl+cfdcbMaxTTL :: Lens' CloudFrontDistributionCacheBehavior (Maybe (Val Double)) cfdcbMaxTTL = lens _cloudFrontDistributionCacheBehaviorMaxTTL (\s a -> s { _cloudFrontDistributionCacheBehaviorMaxTTL = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cachebehavior.html#cfn-cloudfront-cachebehavior-minttl-cfdcbMinTTL :: Lens' CloudFrontDistributionCacheBehavior (Maybe (Val Integer))+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-minttl+cfdcbMinTTL :: Lens' CloudFrontDistributionCacheBehavior (Maybe (Val Double)) cfdcbMinTTL = lens _cloudFrontDistributionCacheBehaviorMinTTL (\s a -> s { _cloudFrontDistributionCacheBehaviorMinTTL = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cachebehavior.html#cfn-cloudfront-cachebehavior-pathpattern+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-pathpattern cfdcbPathPattern :: Lens' CloudFrontDistributionCacheBehavior (Val Text) cfdcbPathPattern = lens _cloudFrontDistributionCacheBehaviorPathPattern (\s a -> s { _cloudFrontDistributionCacheBehaviorPathPattern = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cachebehavior.html#cfn-cloudfront-cachebehavior-smoothstreaming+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-smoothstreaming cfdcbSmoothStreaming :: Lens' CloudFrontDistributionCacheBehavior (Maybe (Val Bool)) cfdcbSmoothStreaming = lens _cloudFrontDistributionCacheBehaviorSmoothStreaming (\s a -> s { _cloudFrontDistributionCacheBehaviorSmoothStreaming = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cachebehavior.html#cfn-cloudfront-cachebehavior-targetoriginid+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-targetoriginid cfdcbTargetOriginId :: Lens' CloudFrontDistributionCacheBehavior (Val Text) cfdcbTargetOriginId = lens _cloudFrontDistributionCacheBehaviorTargetOriginId (\s a -> s { _cloudFrontDistributionCacheBehaviorTargetOriginId = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cachebehavior.html#cfn-cloudfront-cachebehavior-trustedsigners+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-trustedsigners cfdcbTrustedSigners :: Lens' CloudFrontDistributionCacheBehavior (Maybe (ValList Text)) cfdcbTrustedSigners = lens _cloudFrontDistributionCacheBehaviorTrustedSigners (\s a -> s { _cloudFrontDistributionCacheBehaviorTrustedSigners = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cachebehavior.html#cfn-cloudfront-cachebehavior-viewerprotocolpolicy+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-viewerprotocolpolicy cfdcbViewerProtocolPolicy :: Lens' CloudFrontDistributionCacheBehavior (Val Text) cfdcbViewerProtocolPolicy = lens _cloudFrontDistributionCacheBehaviorViewerProtocolPolicy (\s a -> s { _cloudFrontDistributionCacheBehaviorViewerProtocolPolicy = a })
library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionCookies.hs view
@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-forwardedvalues-cookies.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cookies.html  module Stratosphere.ResourceProperties.CloudFrontDistributionCookies where @@ -49,10 +49,10 @@   , _cloudFrontDistributionCookiesWhitelistedNames = Nothing   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-forwardedvalues-cookies.html#cfn-cloudfront-forwardedvalues-cookies-forward+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cookies.html#cfn-cloudfront-distribution-cookies-forward cfdcForward :: Lens' CloudFrontDistributionCookies (Val Text) cfdcForward = lens _cloudFrontDistributionCookiesForward (\s a -> s { _cloudFrontDistributionCookiesForward = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-forwardedvalues-cookies.html#cfn-cloudfront-forwardedvalues-cookies-whitelistednames+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cookies.html#cfn-cloudfront-distribution-cookies-whitelistednames cfdcWhitelistedNames :: Lens' CloudFrontDistributionCookies (Maybe (ValList Text)) cfdcWhitelistedNames = lens _cloudFrontDistributionCookiesWhitelistedNames (\s a -> s { _cloudFrontDistributionCookiesWhitelistedNames = a })
library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionCustomErrorResponse.hs view
@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distributionconfig-customerrorresponse.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-customerrorresponse.html  module Stratosphere.ResourceProperties.CloudFrontDistributionCustomErrorResponse where @@ -20,7 +20,7 @@ -- constructor. data CloudFrontDistributionCustomErrorResponse =   CloudFrontDistributionCustomErrorResponse-  { _cloudFrontDistributionCustomErrorResponseErrorCachingMinTTL :: Maybe (Val Integer)+  { _cloudFrontDistributionCustomErrorResponseErrorCachingMinTTL :: Maybe (Val Double)   , _cloudFrontDistributionCustomErrorResponseErrorCode :: Val Integer   , _cloudFrontDistributionCustomErrorResponseResponseCode :: Maybe (Val Integer)   , _cloudFrontDistributionCustomErrorResponseResponsePagePath :: Maybe (Val Text)@@ -30,7 +30,7 @@   toJSON CloudFrontDistributionCustomErrorResponse{..} =     object $     catMaybes-    [ fmap (("ErrorCachingMinTTL",) . toJSON . fmap Integer') _cloudFrontDistributionCustomErrorResponseErrorCachingMinTTL+    [ fmap (("ErrorCachingMinTTL",) . toJSON . fmap Double') _cloudFrontDistributionCustomErrorResponseErrorCachingMinTTL     , (Just . ("ErrorCode",) . toJSON . fmap Integer') _cloudFrontDistributionCustomErrorResponseErrorCode     , fmap (("ResponseCode",) . toJSON . fmap Integer') _cloudFrontDistributionCustomErrorResponseResponseCode     , fmap (("ResponsePagePath",) . toJSON) _cloudFrontDistributionCustomErrorResponseResponsePagePath@@ -39,7 +39,7 @@ instance FromJSON CloudFrontDistributionCustomErrorResponse where   parseJSON (Object obj) =     CloudFrontDistributionCustomErrorResponse <$>-      fmap (fmap (fmap unInteger')) (obj .:? "ErrorCachingMinTTL") <*>+      fmap (fmap (fmap unDouble')) (obj .:? "ErrorCachingMinTTL") <*>       fmap (fmap unInteger') (obj .: "ErrorCode") <*>       fmap (fmap (fmap unInteger')) (obj .:? "ResponseCode") <*>       (obj .:? "ResponsePagePath")@@ -58,18 +58,18 @@   , _cloudFrontDistributionCustomErrorResponseResponsePagePath = Nothing   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distributionconfig-customerrorresponse.html#cfn-cloudfront-distributionconfig-customerrorresponse-errorcachingminttl-cfdcerErrorCachingMinTTL :: Lens' CloudFrontDistributionCustomErrorResponse (Maybe (Val Integer))+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-customerrorresponse.html#cfn-cloudfront-distribution-customerrorresponse-errorcachingminttl+cfdcerErrorCachingMinTTL :: Lens' CloudFrontDistributionCustomErrorResponse (Maybe (Val Double)) cfdcerErrorCachingMinTTL = lens _cloudFrontDistributionCustomErrorResponseErrorCachingMinTTL (\s a -> s { _cloudFrontDistributionCustomErrorResponseErrorCachingMinTTL = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distributionconfig-customerrorresponse.html#cfn-cloudfront-distributionconfig-customerrorresponse-errorcode+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-customerrorresponse.html#cfn-cloudfront-distribution-customerrorresponse-errorcode cfdcerErrorCode :: Lens' CloudFrontDistributionCustomErrorResponse (Val Integer) cfdcerErrorCode = lens _cloudFrontDistributionCustomErrorResponseErrorCode (\s a -> s { _cloudFrontDistributionCustomErrorResponseErrorCode = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distributionconfig-customerrorresponse.html#cfn-cloudfront-distributionconfig-customerrorresponse-responsecode+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-customerrorresponse.html#cfn-cloudfront-distribution-customerrorresponse-responsecode cfdcerResponseCode :: Lens' CloudFrontDistributionCustomErrorResponse (Maybe (Val Integer)) cfdcerResponseCode = lens _cloudFrontDistributionCustomErrorResponseResponseCode (\s a -> s { _cloudFrontDistributionCustomErrorResponseResponseCode = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distributionconfig-customerrorresponse.html#cfn-cloudfront-distributionconfig-customerrorresponse-responsepagepath+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-customerrorresponse.html#cfn-cloudfront-distribution-customerrorresponse-responsepagepath cfdcerResponsePagePath :: Lens' CloudFrontDistributionCustomErrorResponse (Maybe (Val Text)) cfdcerResponsePagePath = lens _cloudFrontDistributionCustomErrorResponseResponsePagePath (\s a -> s { _cloudFrontDistributionCustomErrorResponseResponsePagePath = a })
library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionCustomOriginConfig.hs view
@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-customorigin.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-customoriginconfig.html  module Stratosphere.ResourceProperties.CloudFrontDistributionCustomOriginConfig where @@ -22,7 +22,9 @@   CloudFrontDistributionCustomOriginConfig   { _cloudFrontDistributionCustomOriginConfigHTTPPort :: Maybe (Val Integer)   , _cloudFrontDistributionCustomOriginConfigHTTPSPort :: Maybe (Val Integer)+  , _cloudFrontDistributionCustomOriginConfigOriginKeepaliveTimeout :: Maybe (Val Integer)   , _cloudFrontDistributionCustomOriginConfigOriginProtocolPolicy :: Val Text+  , _cloudFrontDistributionCustomOriginConfigOriginReadTimeout :: Maybe (Val Integer)   , _cloudFrontDistributionCustomOriginConfigOriginSSLProtocols :: Maybe (ValList Text)   } deriving (Show, Eq) @@ -32,7 +34,9 @@     catMaybes     [ fmap (("HTTPPort",) . toJSON . fmap Integer') _cloudFrontDistributionCustomOriginConfigHTTPPort     , fmap (("HTTPSPort",) . toJSON . fmap Integer') _cloudFrontDistributionCustomOriginConfigHTTPSPort+    , fmap (("OriginKeepaliveTimeout",) . toJSON . fmap Integer') _cloudFrontDistributionCustomOriginConfigOriginKeepaliveTimeout     , (Just . ("OriginProtocolPolicy",) . toJSON) _cloudFrontDistributionCustomOriginConfigOriginProtocolPolicy+    , fmap (("OriginReadTimeout",) . toJSON . fmap Integer') _cloudFrontDistributionCustomOriginConfigOriginReadTimeout     , fmap (("OriginSSLProtocols",) . toJSON) _cloudFrontDistributionCustomOriginConfigOriginSSLProtocols     ] @@ -41,7 +45,9 @@     CloudFrontDistributionCustomOriginConfig <$>       fmap (fmap (fmap unInteger')) (obj .:? "HTTPPort") <*>       fmap (fmap (fmap unInteger')) (obj .:? "HTTPSPort") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "OriginKeepaliveTimeout") <*>       (obj .: "OriginProtocolPolicy") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "OriginReadTimeout") <*>       (obj .:? "OriginSSLProtocols")   parseJSON _ = mempty @@ -54,22 +60,32 @@   CloudFrontDistributionCustomOriginConfig   { _cloudFrontDistributionCustomOriginConfigHTTPPort = Nothing   , _cloudFrontDistributionCustomOriginConfigHTTPSPort = Nothing+  , _cloudFrontDistributionCustomOriginConfigOriginKeepaliveTimeout = Nothing   , _cloudFrontDistributionCustomOriginConfigOriginProtocolPolicy = originProtocolPolicyarg+  , _cloudFrontDistributionCustomOriginConfigOriginReadTimeout = Nothing   , _cloudFrontDistributionCustomOriginConfigOriginSSLProtocols = Nothing   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-customorigin.html#cfn-cloudfront-customorigin-httpport+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-customoriginconfig.html#cfn-cloudfront-distribution-customoriginconfig-httpport cfdcocHTTPPort :: Lens' CloudFrontDistributionCustomOriginConfig (Maybe (Val Integer)) cfdcocHTTPPort = lens _cloudFrontDistributionCustomOriginConfigHTTPPort (\s a -> s { _cloudFrontDistributionCustomOriginConfigHTTPPort = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-customorigin.html#cfn-cloudfront-customorigin-httpsport+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-customoriginconfig.html#cfn-cloudfront-distribution-customoriginconfig-httpsport cfdcocHTTPSPort :: Lens' CloudFrontDistributionCustomOriginConfig (Maybe (Val Integer)) cfdcocHTTPSPort = lens _cloudFrontDistributionCustomOriginConfigHTTPSPort (\s a -> s { _cloudFrontDistributionCustomOriginConfigHTTPSPort = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-customorigin.html#cfn-cloudfront-customorigin-originprotocolpolicy+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-customoriginconfig.html#cfn-cloudfront-distribution-customoriginconfig-originkeepalivetimeout+cfdcocOriginKeepaliveTimeout :: Lens' CloudFrontDistributionCustomOriginConfig (Maybe (Val Integer))+cfdcocOriginKeepaliveTimeout = lens _cloudFrontDistributionCustomOriginConfigOriginKeepaliveTimeout (\s a -> s { _cloudFrontDistributionCustomOriginConfigOriginKeepaliveTimeout = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-customoriginconfig.html#cfn-cloudfront-distribution-customoriginconfig-originprotocolpolicy cfdcocOriginProtocolPolicy :: Lens' CloudFrontDistributionCustomOriginConfig (Val Text) cfdcocOriginProtocolPolicy = lens _cloudFrontDistributionCustomOriginConfigOriginProtocolPolicy (\s a -> s { _cloudFrontDistributionCustomOriginConfigOriginProtocolPolicy = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-customorigin.html#cfn-cloudfront-customorigin-originsslprotocols+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-customoriginconfig.html#cfn-cloudfront-distribution-customoriginconfig-originreadtimeout+cfdcocOriginReadTimeout :: Lens' CloudFrontDistributionCustomOriginConfig (Maybe (Val Integer))+cfdcocOriginReadTimeout = lens _cloudFrontDistributionCustomOriginConfigOriginReadTimeout (\s a -> s { _cloudFrontDistributionCustomOriginConfigOriginReadTimeout = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-customoriginconfig.html#cfn-cloudfront-distribution-customoriginconfig-originsslprotocols cfdcocOriginSSLProtocols :: Lens' CloudFrontDistributionCustomOriginConfig (Maybe (ValList Text)) cfdcocOriginSSLProtocols = lens _cloudFrontDistributionCustomOriginConfigOriginSSLProtocols (\s a -> s { _cloudFrontDistributionCustomOriginConfigOriginSSLProtocols = a })
library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionDefaultCacheBehavior.hs view
@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-defaultcachebehavior.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html  module Stratosphere.ResourceProperties.CloudFrontDistributionDefaultCacheBehavior where @@ -14,6 +14,7 @@  import Stratosphere.Values import Stratosphere.ResourceProperties.CloudFrontDistributionForwardedValues+import Stratosphere.ResourceProperties.CloudFrontDistributionLambdaFunctionAssociation  -- | Full data type definition for CloudFrontDistributionDefaultCacheBehavior. -- See 'cloudFrontDistributionDefaultCacheBehavior' for a more convenient@@ -23,10 +24,11 @@   { _cloudFrontDistributionDefaultCacheBehaviorAllowedMethods :: Maybe (ValList Text)   , _cloudFrontDistributionDefaultCacheBehaviorCachedMethods :: Maybe (ValList Text)   , _cloudFrontDistributionDefaultCacheBehaviorCompress :: Maybe (Val Bool)-  , _cloudFrontDistributionDefaultCacheBehaviorDefaultTTL :: Maybe (Val Integer)+  , _cloudFrontDistributionDefaultCacheBehaviorDefaultTTL :: Maybe (Val Double)   , _cloudFrontDistributionDefaultCacheBehaviorForwardedValues :: CloudFrontDistributionForwardedValues-  , _cloudFrontDistributionDefaultCacheBehaviorMaxTTL :: Maybe (Val Integer)-  , _cloudFrontDistributionDefaultCacheBehaviorMinTTL :: Maybe (Val Integer)+  , _cloudFrontDistributionDefaultCacheBehaviorLambdaFunctionAssociations :: Maybe [CloudFrontDistributionLambdaFunctionAssociation]+  , _cloudFrontDistributionDefaultCacheBehaviorMaxTTL :: Maybe (Val Double)+  , _cloudFrontDistributionDefaultCacheBehaviorMinTTL :: Maybe (Val Double)   , _cloudFrontDistributionDefaultCacheBehaviorSmoothStreaming :: Maybe (Val Bool)   , _cloudFrontDistributionDefaultCacheBehaviorTargetOriginId :: Val Text   , _cloudFrontDistributionDefaultCacheBehaviorTrustedSigners :: Maybe (ValList Text)@@ -40,10 +42,11 @@     [ fmap (("AllowedMethods",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorAllowedMethods     , fmap (("CachedMethods",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorCachedMethods     , fmap (("Compress",) . toJSON . fmap Bool') _cloudFrontDistributionDefaultCacheBehaviorCompress-    , fmap (("DefaultTTL",) . toJSON . fmap Integer') _cloudFrontDistributionDefaultCacheBehaviorDefaultTTL+    , fmap (("DefaultTTL",) . toJSON . fmap Double') _cloudFrontDistributionDefaultCacheBehaviorDefaultTTL     , (Just . ("ForwardedValues",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorForwardedValues-    , fmap (("MaxTTL",) . toJSON . fmap Integer') _cloudFrontDistributionDefaultCacheBehaviorMaxTTL-    , fmap (("MinTTL",) . toJSON . fmap Integer') _cloudFrontDistributionDefaultCacheBehaviorMinTTL+    , fmap (("LambdaFunctionAssociations",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorLambdaFunctionAssociations+    , fmap (("MaxTTL",) . toJSON . fmap Double') _cloudFrontDistributionDefaultCacheBehaviorMaxTTL+    , fmap (("MinTTL",) . toJSON . fmap Double') _cloudFrontDistributionDefaultCacheBehaviorMinTTL     , fmap (("SmoothStreaming",) . toJSON . fmap Bool') _cloudFrontDistributionDefaultCacheBehaviorSmoothStreaming     , (Just . ("TargetOriginId",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorTargetOriginId     , fmap (("TrustedSigners",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorTrustedSigners@@ -56,10 +59,11 @@       (obj .:? "AllowedMethods") <*>       (obj .:? "CachedMethods") <*>       fmap (fmap (fmap unBool')) (obj .:? "Compress") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "DefaultTTL") <*>+      fmap (fmap (fmap unDouble')) (obj .:? "DefaultTTL") <*>       (obj .: "ForwardedValues") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "MaxTTL") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "MinTTL") <*>+      (obj .:? "LambdaFunctionAssociations") <*>+      fmap (fmap (fmap unDouble')) (obj .:? "MaxTTL") <*>+      fmap (fmap (fmap unDouble')) (obj .:? "MinTTL") <*>       fmap (fmap (fmap unBool')) (obj .:? "SmoothStreaming") <*>       (obj .: "TargetOriginId") <*>       (obj .:? "TrustedSigners") <*>@@ -80,6 +84,7 @@   , _cloudFrontDistributionDefaultCacheBehaviorCompress = Nothing   , _cloudFrontDistributionDefaultCacheBehaviorDefaultTTL = Nothing   , _cloudFrontDistributionDefaultCacheBehaviorForwardedValues = forwardedValuesarg+  , _cloudFrontDistributionDefaultCacheBehaviorLambdaFunctionAssociations = Nothing   , _cloudFrontDistributionDefaultCacheBehaviorMaxTTL = Nothing   , _cloudFrontDistributionDefaultCacheBehaviorMinTTL = Nothing   , _cloudFrontDistributionDefaultCacheBehaviorSmoothStreaming = Nothing@@ -88,46 +93,50 @@   , _cloudFrontDistributionDefaultCacheBehaviorViewerProtocolPolicy = viewerProtocolPolicyarg   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-defaultcachebehavior.html#cfn-cloudfront-defaultcachebehavior-allowedmethods+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-allowedmethods cfddcbAllowedMethods :: Lens' CloudFrontDistributionDefaultCacheBehavior (Maybe (ValList Text)) cfddcbAllowedMethods = lens _cloudFrontDistributionDefaultCacheBehaviorAllowedMethods (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorAllowedMethods = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-defaultcachebehavior.html#cfn-cloudfront-defaultcachebehavior-cachedmethods+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-cachedmethods cfddcbCachedMethods :: Lens' CloudFrontDistributionDefaultCacheBehavior (Maybe (ValList Text)) cfddcbCachedMethods = lens _cloudFrontDistributionDefaultCacheBehaviorCachedMethods (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorCachedMethods = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-defaultcachebehavior.html#cfn-cloudfront-defaultcachebehavior-compress+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-compress cfddcbCompress :: Lens' CloudFrontDistributionDefaultCacheBehavior (Maybe (Val Bool)) cfddcbCompress = lens _cloudFrontDistributionDefaultCacheBehaviorCompress (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorCompress = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-defaultcachebehavior.html#cfn-cloudfront-defaultcachebehavior-defaultttl-cfddcbDefaultTTL :: Lens' CloudFrontDistributionDefaultCacheBehavior (Maybe (Val Integer))+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-defaultttl+cfddcbDefaultTTL :: Lens' CloudFrontDistributionDefaultCacheBehavior (Maybe (Val Double)) cfddcbDefaultTTL = lens _cloudFrontDistributionDefaultCacheBehaviorDefaultTTL (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorDefaultTTL = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-defaultcachebehavior.html#cfn-cloudfront-defaultcachebehavior-forwardedvalues+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-forwardedvalues cfddcbForwardedValues :: Lens' CloudFrontDistributionDefaultCacheBehavior CloudFrontDistributionForwardedValues cfddcbForwardedValues = lens _cloudFrontDistributionDefaultCacheBehaviorForwardedValues (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorForwardedValues = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-defaultcachebehavior.html#cfn-cloudfront-defaultcachebehavior-maxttl-cfddcbMaxTTL :: Lens' CloudFrontDistributionDefaultCacheBehavior (Maybe (Val Integer))+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-lambdafunctionassociations+cfddcbLambdaFunctionAssociations :: Lens' CloudFrontDistributionDefaultCacheBehavior (Maybe [CloudFrontDistributionLambdaFunctionAssociation])+cfddcbLambdaFunctionAssociations = lens _cloudFrontDistributionDefaultCacheBehaviorLambdaFunctionAssociations (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorLambdaFunctionAssociations = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-maxttl+cfddcbMaxTTL :: Lens' CloudFrontDistributionDefaultCacheBehavior (Maybe (Val Double)) cfddcbMaxTTL = lens _cloudFrontDistributionDefaultCacheBehaviorMaxTTL (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorMaxTTL = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-defaultcachebehavior.html#cfn-cloudfront-defaultcachebehavior-minttl-cfddcbMinTTL :: Lens' CloudFrontDistributionDefaultCacheBehavior (Maybe (Val Integer))+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-minttl+cfddcbMinTTL :: Lens' CloudFrontDistributionDefaultCacheBehavior (Maybe (Val Double)) cfddcbMinTTL = lens _cloudFrontDistributionDefaultCacheBehaviorMinTTL (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorMinTTL = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-defaultcachebehavior.html#cfn-cloudfront-defaultcachebehavior-smoothstreaming+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-smoothstreaming cfddcbSmoothStreaming :: Lens' CloudFrontDistributionDefaultCacheBehavior (Maybe (Val Bool)) cfddcbSmoothStreaming = lens _cloudFrontDistributionDefaultCacheBehaviorSmoothStreaming (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorSmoothStreaming = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-defaultcachebehavior.html#cfn-cloudfront-defaultcachebehavior-targetoriginid+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-targetoriginid cfddcbTargetOriginId :: Lens' CloudFrontDistributionDefaultCacheBehavior (Val Text) cfddcbTargetOriginId = lens _cloudFrontDistributionDefaultCacheBehaviorTargetOriginId (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorTargetOriginId = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-defaultcachebehavior.html#cfn-cloudfront-defaultcachebehavior-trustedsigners+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-trustedsigners cfddcbTrustedSigners :: Lens' CloudFrontDistributionDefaultCacheBehavior (Maybe (ValList Text)) cfddcbTrustedSigners = lens _cloudFrontDistributionDefaultCacheBehaviorTrustedSigners (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorTrustedSigners = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-defaultcachebehavior.html#cfn-cloudfront-defaultcachebehavior-viewerprotocolpolicy+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-viewerprotocolpolicy cfddcbViewerProtocolPolicy :: Lens' CloudFrontDistributionDefaultCacheBehavior (Val Text) cfddcbViewerProtocolPolicy = lens _cloudFrontDistributionDefaultCacheBehaviorViewerProtocolPolicy (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorViewerProtocolPolicy = a })
library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionDistributionConfig.hs view
@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distributionconfig.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html  module Stratosphere.ResourceProperties.CloudFrontDistributionDistributionConfig where @@ -15,10 +15,12 @@ import Stratosphere.Values import Stratosphere.ResourceProperties.CloudFrontDistributionCacheBehavior import Stratosphere.ResourceProperties.CloudFrontDistributionCustomErrorResponse+import Stratosphere.ResourceProperties.CloudFrontDistributionLegacyCustomOrigin import Stratosphere.ResourceProperties.CloudFrontDistributionDefaultCacheBehavior import Stratosphere.ResourceProperties.CloudFrontDistributionLogging import Stratosphere.ResourceProperties.CloudFrontDistributionOrigin import Stratosphere.ResourceProperties.CloudFrontDistributionRestrictions+import Stratosphere.ResourceProperties.CloudFrontDistributionLegacyS3Origin import Stratosphere.ResourceProperties.CloudFrontDistributionViewerCertificate  -- | Full data type definition for CloudFrontDistributionDistributionConfig.@@ -27,17 +29,21 @@ data CloudFrontDistributionDistributionConfig =   CloudFrontDistributionDistributionConfig   { _cloudFrontDistributionDistributionConfigAliases :: Maybe (ValList Text)+  , _cloudFrontDistributionDistributionConfigCNAMEs :: Maybe (ValList Text)   , _cloudFrontDistributionDistributionConfigCacheBehaviors :: Maybe [CloudFrontDistributionCacheBehavior]   , _cloudFrontDistributionDistributionConfigComment :: Maybe (Val Text)   , _cloudFrontDistributionDistributionConfigCustomErrorResponses :: Maybe [CloudFrontDistributionCustomErrorResponse]-  , _cloudFrontDistributionDistributionConfigDefaultCacheBehavior :: CloudFrontDistributionDefaultCacheBehavior+  , _cloudFrontDistributionDistributionConfigCustomOrigin :: Maybe CloudFrontDistributionLegacyCustomOrigin+  , _cloudFrontDistributionDistributionConfigDefaultCacheBehavior :: Maybe CloudFrontDistributionDefaultCacheBehavior   , _cloudFrontDistributionDistributionConfigDefaultRootObject :: Maybe (Val Text)   , _cloudFrontDistributionDistributionConfigEnabled :: Val Bool   , _cloudFrontDistributionDistributionConfigHttpVersion :: Maybe (Val Text)+  , _cloudFrontDistributionDistributionConfigIPV6Enabled :: Maybe (Val Bool)   , _cloudFrontDistributionDistributionConfigLogging :: Maybe CloudFrontDistributionLogging-  , _cloudFrontDistributionDistributionConfigOrigins :: [CloudFrontDistributionOrigin]+  , _cloudFrontDistributionDistributionConfigOrigins :: Maybe [CloudFrontDistributionOrigin]   , _cloudFrontDistributionDistributionConfigPriceClass :: Maybe (Val Text)   , _cloudFrontDistributionDistributionConfigRestrictions :: Maybe CloudFrontDistributionRestrictions+  , _cloudFrontDistributionDistributionConfigS3Origin :: Maybe CloudFrontDistributionLegacyS3Origin   , _cloudFrontDistributionDistributionConfigViewerCertificate :: Maybe CloudFrontDistributionViewerCertificate   , _cloudFrontDistributionDistributionConfigWebACLId :: Maybe (Val Text)   } deriving (Show, Eq)@@ -47,17 +53,21 @@     object $     catMaybes     [ fmap (("Aliases",) . toJSON) _cloudFrontDistributionDistributionConfigAliases+    , fmap (("CNAMEs",) . toJSON) _cloudFrontDistributionDistributionConfigCNAMEs     , fmap (("CacheBehaviors",) . toJSON) _cloudFrontDistributionDistributionConfigCacheBehaviors     , fmap (("Comment",) . toJSON) _cloudFrontDistributionDistributionConfigComment     , fmap (("CustomErrorResponses",) . toJSON) _cloudFrontDistributionDistributionConfigCustomErrorResponses-    , (Just . ("DefaultCacheBehavior",) . toJSON) _cloudFrontDistributionDistributionConfigDefaultCacheBehavior+    , fmap (("CustomOrigin",) . toJSON) _cloudFrontDistributionDistributionConfigCustomOrigin+    , fmap (("DefaultCacheBehavior",) . toJSON) _cloudFrontDistributionDistributionConfigDefaultCacheBehavior     , fmap (("DefaultRootObject",) . toJSON) _cloudFrontDistributionDistributionConfigDefaultRootObject     , (Just . ("Enabled",) . toJSON . fmap Bool') _cloudFrontDistributionDistributionConfigEnabled     , fmap (("HttpVersion",) . toJSON) _cloudFrontDistributionDistributionConfigHttpVersion+    , fmap (("IPV6Enabled",) . toJSON . fmap Bool') _cloudFrontDistributionDistributionConfigIPV6Enabled     , fmap (("Logging",) . toJSON) _cloudFrontDistributionDistributionConfigLogging-    , (Just . ("Origins",) . toJSON) _cloudFrontDistributionDistributionConfigOrigins+    , fmap (("Origins",) . toJSON) _cloudFrontDistributionDistributionConfigOrigins     , fmap (("PriceClass",) . toJSON) _cloudFrontDistributionDistributionConfigPriceClass     , fmap (("Restrictions",) . toJSON) _cloudFrontDistributionDistributionConfigRestrictions+    , fmap (("S3Origin",) . toJSON) _cloudFrontDistributionDistributionConfigS3Origin     , fmap (("ViewerCertificate",) . toJSON) _cloudFrontDistributionDistributionConfigViewerCertificate     , fmap (("WebACLId",) . toJSON) _cloudFrontDistributionDistributionConfigWebACLId     ]@@ -66,17 +76,21 @@   parseJSON (Object obj) =     CloudFrontDistributionDistributionConfig <$>       (obj .:? "Aliases") <*>+      (obj .:? "CNAMEs") <*>       (obj .:? "CacheBehaviors") <*>       (obj .:? "Comment") <*>       (obj .:? "CustomErrorResponses") <*>-      (obj .: "DefaultCacheBehavior") <*>+      (obj .:? "CustomOrigin") <*>+      (obj .:? "DefaultCacheBehavior") <*>       (obj .:? "DefaultRootObject") <*>       fmap (fmap unBool') (obj .: "Enabled") <*>       (obj .:? "HttpVersion") <*>+      fmap (fmap (fmap unBool')) (obj .:? "IPV6Enabled") <*>       (obj .:? "Logging") <*>-      (obj .: "Origins") <*>+      (obj .:? "Origins") <*>       (obj .:? "PriceClass") <*>       (obj .:? "Restrictions") <*>+      (obj .:? "S3Origin") <*>       (obj .:? "ViewerCertificate") <*>       (obj .:? "WebACLId")   parseJSON _ = mempty@@ -84,80 +98,98 @@ -- | Constructor for 'CloudFrontDistributionDistributionConfig' containing -- required fields as arguments. cloudFrontDistributionDistributionConfig-  :: CloudFrontDistributionDefaultCacheBehavior -- ^ 'cfddcDefaultCacheBehavior'-  -> Val Bool -- ^ 'cfddcEnabled'-  -> [CloudFrontDistributionOrigin] -- ^ 'cfddcOrigins'+  :: Val Bool -- ^ 'cfddcEnabled'   -> CloudFrontDistributionDistributionConfig-cloudFrontDistributionDistributionConfig defaultCacheBehaviorarg enabledarg originsarg =+cloudFrontDistributionDistributionConfig enabledarg =   CloudFrontDistributionDistributionConfig   { _cloudFrontDistributionDistributionConfigAliases = Nothing+  , _cloudFrontDistributionDistributionConfigCNAMEs = Nothing   , _cloudFrontDistributionDistributionConfigCacheBehaviors = Nothing   , _cloudFrontDistributionDistributionConfigComment = Nothing   , _cloudFrontDistributionDistributionConfigCustomErrorResponses = Nothing-  , _cloudFrontDistributionDistributionConfigDefaultCacheBehavior = defaultCacheBehaviorarg+  , _cloudFrontDistributionDistributionConfigCustomOrigin = Nothing+  , _cloudFrontDistributionDistributionConfigDefaultCacheBehavior = Nothing   , _cloudFrontDistributionDistributionConfigDefaultRootObject = Nothing   , _cloudFrontDistributionDistributionConfigEnabled = enabledarg   , _cloudFrontDistributionDistributionConfigHttpVersion = Nothing+  , _cloudFrontDistributionDistributionConfigIPV6Enabled = Nothing   , _cloudFrontDistributionDistributionConfigLogging = Nothing-  , _cloudFrontDistributionDistributionConfigOrigins = originsarg+  , _cloudFrontDistributionDistributionConfigOrigins = Nothing   , _cloudFrontDistributionDistributionConfigPriceClass = Nothing   , _cloudFrontDistributionDistributionConfigRestrictions = Nothing+  , _cloudFrontDistributionDistributionConfigS3Origin = Nothing   , _cloudFrontDistributionDistributionConfigViewerCertificate = Nothing   , _cloudFrontDistributionDistributionConfigWebACLId = Nothing   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distributionconfig.html#cfn-cloudfront-distributionconfig-aliases+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-aliases cfddcAliases :: Lens' CloudFrontDistributionDistributionConfig (Maybe (ValList Text)) cfddcAliases = lens _cloudFrontDistributionDistributionConfigAliases (\s a -> s { _cloudFrontDistributionDistributionConfigAliases = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distributionconfig.html#cfn-cloudfront-distributionconfig-cachebehaviors+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-cnames+cfddcCNAMEs :: Lens' CloudFrontDistributionDistributionConfig (Maybe (ValList Text))+cfddcCNAMEs = lens _cloudFrontDistributionDistributionConfigCNAMEs (\s a -> s { _cloudFrontDistributionDistributionConfigCNAMEs = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-cachebehaviors cfddcCacheBehaviors :: Lens' CloudFrontDistributionDistributionConfig (Maybe [CloudFrontDistributionCacheBehavior]) cfddcCacheBehaviors = lens _cloudFrontDistributionDistributionConfigCacheBehaviors (\s a -> s { _cloudFrontDistributionDistributionConfigCacheBehaviors = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distributionconfig.html#cfn-cloudfront-distributionconfig-comment+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-comment cfddcComment :: Lens' CloudFrontDistributionDistributionConfig (Maybe (Val Text)) cfddcComment = lens _cloudFrontDistributionDistributionConfigComment (\s a -> s { _cloudFrontDistributionDistributionConfigComment = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distributionconfig.html#cfn-cloudfront-distributionconfig-customerrorresponses+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-customerrorresponses cfddcCustomErrorResponses :: Lens' CloudFrontDistributionDistributionConfig (Maybe [CloudFrontDistributionCustomErrorResponse]) cfddcCustomErrorResponses = lens _cloudFrontDistributionDistributionConfigCustomErrorResponses (\s a -> s { _cloudFrontDistributionDistributionConfigCustomErrorResponses = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distributionconfig.html#cfn-cloudfront-distributionconfig-defaultcachebehavior-cfddcDefaultCacheBehavior :: Lens' CloudFrontDistributionDistributionConfig CloudFrontDistributionDefaultCacheBehavior+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-customorigin+cfddcCustomOrigin :: Lens' CloudFrontDistributionDistributionConfig (Maybe CloudFrontDistributionLegacyCustomOrigin)+cfddcCustomOrigin = lens _cloudFrontDistributionDistributionConfigCustomOrigin (\s a -> s { _cloudFrontDistributionDistributionConfigCustomOrigin = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-defaultcachebehavior+cfddcDefaultCacheBehavior :: Lens' CloudFrontDistributionDistributionConfig (Maybe CloudFrontDistributionDefaultCacheBehavior) cfddcDefaultCacheBehavior = lens _cloudFrontDistributionDistributionConfigDefaultCacheBehavior (\s a -> s { _cloudFrontDistributionDistributionConfigDefaultCacheBehavior = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distributionconfig.html#cfn-cloudfront-distributionconfig-defaultrootobject+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-defaultrootobject cfddcDefaultRootObject :: Lens' CloudFrontDistributionDistributionConfig (Maybe (Val Text)) cfddcDefaultRootObject = lens _cloudFrontDistributionDistributionConfigDefaultRootObject (\s a -> s { _cloudFrontDistributionDistributionConfigDefaultRootObject = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distributionconfig.html#cfn-cloudfront-distributionconfig-enabled+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-enabled cfddcEnabled :: Lens' CloudFrontDistributionDistributionConfig (Val Bool) cfddcEnabled = lens _cloudFrontDistributionDistributionConfigEnabled (\s a -> s { _cloudFrontDistributionDistributionConfigEnabled = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distributionconfig.html#cfn-cloudfront-distributionconfig-httpversion+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-httpversion cfddcHttpVersion :: Lens' CloudFrontDistributionDistributionConfig (Maybe (Val Text)) cfddcHttpVersion = lens _cloudFrontDistributionDistributionConfigHttpVersion (\s a -> s { _cloudFrontDistributionDistributionConfigHttpVersion = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distributionconfig.html#cfn-cloudfront-distributionconfig-logging+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-ipv6enabled+cfddcIPV6Enabled :: Lens' CloudFrontDistributionDistributionConfig (Maybe (Val Bool))+cfddcIPV6Enabled = lens _cloudFrontDistributionDistributionConfigIPV6Enabled (\s a -> s { _cloudFrontDistributionDistributionConfigIPV6Enabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-logging cfddcLogging :: Lens' CloudFrontDistributionDistributionConfig (Maybe CloudFrontDistributionLogging) cfddcLogging = lens _cloudFrontDistributionDistributionConfigLogging (\s a -> s { _cloudFrontDistributionDistributionConfigLogging = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distributionconfig.html#cfn-cloudfront-distributionconfig-origins-cfddcOrigins :: Lens' CloudFrontDistributionDistributionConfig [CloudFrontDistributionOrigin]+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-origins+cfddcOrigins :: Lens' CloudFrontDistributionDistributionConfig (Maybe [CloudFrontDistributionOrigin]) cfddcOrigins = lens _cloudFrontDistributionDistributionConfigOrigins (\s a -> s { _cloudFrontDistributionDistributionConfigOrigins = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distributionconfig.html#cfn-cloudfront-distributionconfig-priceclass+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-priceclass cfddcPriceClass :: Lens' CloudFrontDistributionDistributionConfig (Maybe (Val Text)) cfddcPriceClass = lens _cloudFrontDistributionDistributionConfigPriceClass (\s a -> s { _cloudFrontDistributionDistributionConfigPriceClass = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distributionconfig.html#cfn-cloudfront-distributionconfig-restrictions+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-restrictions cfddcRestrictions :: Lens' CloudFrontDistributionDistributionConfig (Maybe CloudFrontDistributionRestrictions) cfddcRestrictions = lens _cloudFrontDistributionDistributionConfigRestrictions (\s a -> s { _cloudFrontDistributionDistributionConfigRestrictions = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distributionconfig.html#cfn-cloudfront-distributionconfig-viewercertificate+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-s3origin+cfddcS3Origin :: Lens' CloudFrontDistributionDistributionConfig (Maybe CloudFrontDistributionLegacyS3Origin)+cfddcS3Origin = lens _cloudFrontDistributionDistributionConfigS3Origin (\s a -> s { _cloudFrontDistributionDistributionConfigS3Origin = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-viewercertificate cfddcViewerCertificate :: Lens' CloudFrontDistributionDistributionConfig (Maybe CloudFrontDistributionViewerCertificate) cfddcViewerCertificate = lens _cloudFrontDistributionDistributionConfigViewerCertificate (\s a -> s { _cloudFrontDistributionDistributionConfigViewerCertificate = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distributionconfig.html#cfn-cloudfront-distributionconfig-webaclid+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-webaclid cfddcWebACLId :: Lens' CloudFrontDistributionDistributionConfig (Maybe (Val Text)) cfddcWebACLId = lens _cloudFrontDistributionDistributionConfigWebACLId (\s a -> s { _cloudFrontDistributionDistributionConfigWebACLId = a })
library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionForwardedValues.hs view
@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-forwardedvalues.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-forwardedvalues.html  module Stratosphere.ResourceProperties.CloudFrontDistributionForwardedValues where @@ -58,18 +58,18 @@   , _cloudFrontDistributionForwardedValuesQueryStringCacheKeys = Nothing   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-forwardedvalues.html#cfn-cloudfront-forwardedvalues-cookies+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-forwardedvalues.html#cfn-cloudfront-distribution-forwardedvalues-cookies cfdfvCookies :: Lens' CloudFrontDistributionForwardedValues (Maybe CloudFrontDistributionCookies) cfdfvCookies = lens _cloudFrontDistributionForwardedValuesCookies (\s a -> s { _cloudFrontDistributionForwardedValuesCookies = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-forwardedvalues.html#cfn-cloudfront-forwardedvalues-headers+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-forwardedvalues.html#cfn-cloudfront-distribution-forwardedvalues-headers cfdfvHeaders :: Lens' CloudFrontDistributionForwardedValues (Maybe (ValList Text)) cfdfvHeaders = lens _cloudFrontDistributionForwardedValuesHeaders (\s a -> s { _cloudFrontDistributionForwardedValuesHeaders = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-forwardedvalues.html#cfn-cloudfront-forwardedvalues-querystring+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-forwardedvalues.html#cfn-cloudfront-distribution-forwardedvalues-querystring cfdfvQueryString :: Lens' CloudFrontDistributionForwardedValues (Val Bool) cfdfvQueryString = lens _cloudFrontDistributionForwardedValuesQueryString (\s a -> s { _cloudFrontDistributionForwardedValuesQueryString = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-forwardedvalues.html#cfn-cloudfront-forwardedvalues-querystringcachekeys+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-forwardedvalues.html#cfn-cloudfront-distribution-forwardedvalues-querystringcachekeys cfdfvQueryStringCacheKeys :: Lens' CloudFrontDistributionForwardedValues (Maybe (ValList Text)) cfdfvQueryStringCacheKeys = lens _cloudFrontDistributionForwardedValuesQueryStringCacheKeys (\s a -> s { _cloudFrontDistributionForwardedValuesQueryStringCacheKeys = a })
library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionGeoRestriction.hs view
@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distributionconfig-restrictions-georestriction.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-georestriction.html  module Stratosphere.ResourceProperties.CloudFrontDistributionGeoRestriction where @@ -49,10 +49,10 @@   , _cloudFrontDistributionGeoRestrictionRestrictionType = restrictionTypearg   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distributionconfig-restrictions-georestriction.html#cfn-cloudfront-distributionconfig-restrictions-georestriction-locations+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-georestriction.html#cfn-cloudfront-distribution-georestriction-locations cfdgrLocations :: Lens' CloudFrontDistributionGeoRestriction (Maybe (ValList Text)) cfdgrLocations = lens _cloudFrontDistributionGeoRestrictionLocations (\s a -> s { _cloudFrontDistributionGeoRestrictionLocations = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distributionconfig-restrictions-georestriction.html#cfn-cloudfront-distributionconfig-restrictions-georestriction-restrictiontype+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-georestriction.html#cfn-cloudfront-distribution-georestriction-restrictiontype cfdgrRestrictionType :: Lens' CloudFrontDistributionGeoRestriction (Val Text) cfdgrRestrictionType = lens _cloudFrontDistributionGeoRestrictionRestrictionType (\s a -> s { _cloudFrontDistributionGeoRestrictionRestrictionType = a })
+ library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionLambdaFunctionAssociation.hs view
@@ -0,0 +1,59 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-lambdafunctionassociation.html++module Stratosphere.ResourceProperties.CloudFrontDistributionLambdaFunctionAssociation where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for+-- CloudFrontDistributionLambdaFunctionAssociation. See+-- 'cloudFrontDistributionLambdaFunctionAssociation' for a more convenient+-- constructor.+data CloudFrontDistributionLambdaFunctionAssociation =+  CloudFrontDistributionLambdaFunctionAssociation+  { _cloudFrontDistributionLambdaFunctionAssociationEventType :: Maybe (Val Text)+  , _cloudFrontDistributionLambdaFunctionAssociationLambdaFunctionARN :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON CloudFrontDistributionLambdaFunctionAssociation where+  toJSON CloudFrontDistributionLambdaFunctionAssociation{..} =+    object $+    catMaybes+    [ fmap (("EventType",) . toJSON) _cloudFrontDistributionLambdaFunctionAssociationEventType+    , fmap (("LambdaFunctionARN",) . toJSON) _cloudFrontDistributionLambdaFunctionAssociationLambdaFunctionARN+    ]++instance FromJSON CloudFrontDistributionLambdaFunctionAssociation where+  parseJSON (Object obj) =+    CloudFrontDistributionLambdaFunctionAssociation <$>+      (obj .:? "EventType") <*>+      (obj .:? "LambdaFunctionARN")+  parseJSON _ = mempty++-- | Constructor for 'CloudFrontDistributionLambdaFunctionAssociation'+-- containing required fields as arguments.+cloudFrontDistributionLambdaFunctionAssociation+  :: CloudFrontDistributionLambdaFunctionAssociation+cloudFrontDistributionLambdaFunctionAssociation  =+  CloudFrontDistributionLambdaFunctionAssociation+  { _cloudFrontDistributionLambdaFunctionAssociationEventType = Nothing+  , _cloudFrontDistributionLambdaFunctionAssociationLambdaFunctionARN = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-lambdafunctionassociation.html#cfn-cloudfront-distribution-lambdafunctionassociation-eventtype+cfdlfaEventType :: Lens' CloudFrontDistributionLambdaFunctionAssociation (Maybe (Val Text))+cfdlfaEventType = lens _cloudFrontDistributionLambdaFunctionAssociationEventType (\s a -> s { _cloudFrontDistributionLambdaFunctionAssociationEventType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-lambdafunctionassociation.html#cfn-cloudfront-distribution-lambdafunctionassociation-lambdafunctionarn+cfdlfaLambdaFunctionARN :: Lens' CloudFrontDistributionLambdaFunctionAssociation (Maybe (Val Text))+cfdlfaLambdaFunctionARN = lens _cloudFrontDistributionLambdaFunctionAssociationLambdaFunctionARN (\s a -> s { _cloudFrontDistributionLambdaFunctionAssociationLambdaFunctionARN = a })
+ library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionLegacyCustomOrigin.hs view
@@ -0,0 +1,84 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-legacycustomorigin.html++module Stratosphere.ResourceProperties.CloudFrontDistributionLegacyCustomOrigin where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for CloudFrontDistributionLegacyCustomOrigin.+-- See 'cloudFrontDistributionLegacyCustomOrigin' for a more convenient+-- constructor.+data CloudFrontDistributionLegacyCustomOrigin =+  CloudFrontDistributionLegacyCustomOrigin+  { _cloudFrontDistributionLegacyCustomOriginDNSName :: Val Text+  , _cloudFrontDistributionLegacyCustomOriginHTTPPort :: Maybe (Val Integer)+  , _cloudFrontDistributionLegacyCustomOriginHTTPSPort :: Maybe (Val Integer)+  , _cloudFrontDistributionLegacyCustomOriginOriginProtocolPolicy :: Val Text+  , _cloudFrontDistributionLegacyCustomOriginOriginSSLProtocols :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON CloudFrontDistributionLegacyCustomOrigin where+  toJSON CloudFrontDistributionLegacyCustomOrigin{..} =+    object $+    catMaybes+    [ (Just . ("DNSName",) . toJSON) _cloudFrontDistributionLegacyCustomOriginDNSName+    , fmap (("HTTPPort",) . toJSON . fmap Integer') _cloudFrontDistributionLegacyCustomOriginHTTPPort+    , fmap (("HTTPSPort",) . toJSON . fmap Integer') _cloudFrontDistributionLegacyCustomOriginHTTPSPort+    , (Just . ("OriginProtocolPolicy",) . toJSON) _cloudFrontDistributionLegacyCustomOriginOriginProtocolPolicy+    , fmap (("OriginSSLProtocols",) . toJSON) _cloudFrontDistributionLegacyCustomOriginOriginSSLProtocols+    ]++instance FromJSON CloudFrontDistributionLegacyCustomOrigin where+  parseJSON (Object obj) =+    CloudFrontDistributionLegacyCustomOrigin <$>+      (obj .: "DNSName") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "HTTPPort") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "HTTPSPort") <*>+      (obj .: "OriginProtocolPolicy") <*>+      (obj .:? "OriginSSLProtocols")+  parseJSON _ = mempty++-- | Constructor for 'CloudFrontDistributionLegacyCustomOrigin' containing+-- required fields as arguments.+cloudFrontDistributionLegacyCustomOrigin+  :: Val Text -- ^ 'cfdlcoDNSName'+  -> Val Text -- ^ 'cfdlcoOriginProtocolPolicy'+  -> CloudFrontDistributionLegacyCustomOrigin+cloudFrontDistributionLegacyCustomOrigin dNSNamearg originProtocolPolicyarg =+  CloudFrontDistributionLegacyCustomOrigin+  { _cloudFrontDistributionLegacyCustomOriginDNSName = dNSNamearg+  , _cloudFrontDistributionLegacyCustomOriginHTTPPort = Nothing+  , _cloudFrontDistributionLegacyCustomOriginHTTPSPort = Nothing+  , _cloudFrontDistributionLegacyCustomOriginOriginProtocolPolicy = originProtocolPolicyarg+  , _cloudFrontDistributionLegacyCustomOriginOriginSSLProtocols = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-legacycustomorigin.html#cfn-cloudfront-distribution-legacycustomorigin-dnsname+cfdlcoDNSName :: Lens' CloudFrontDistributionLegacyCustomOrigin (Val Text)+cfdlcoDNSName = lens _cloudFrontDistributionLegacyCustomOriginDNSName (\s a -> s { _cloudFrontDistributionLegacyCustomOriginDNSName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-legacycustomorigin.html#cfn-cloudfront-distribution-legacycustomorigin-httpport+cfdlcoHTTPPort :: Lens' CloudFrontDistributionLegacyCustomOrigin (Maybe (Val Integer))+cfdlcoHTTPPort = lens _cloudFrontDistributionLegacyCustomOriginHTTPPort (\s a -> s { _cloudFrontDistributionLegacyCustomOriginHTTPPort = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-legacycustomorigin.html#cfn-cloudfront-distribution-legacycustomorigin-httpsport+cfdlcoHTTPSPort :: Lens' CloudFrontDistributionLegacyCustomOrigin (Maybe (Val Integer))+cfdlcoHTTPSPort = lens _cloudFrontDistributionLegacyCustomOriginHTTPSPort (\s a -> s { _cloudFrontDistributionLegacyCustomOriginHTTPSPort = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-legacycustomorigin.html#cfn-cloudfront-distribution-legacycustomorigin-originprotocolpolicy+cfdlcoOriginProtocolPolicy :: Lens' CloudFrontDistributionLegacyCustomOrigin (Val Text)+cfdlcoOriginProtocolPolicy = lens _cloudFrontDistributionLegacyCustomOriginOriginProtocolPolicy (\s a -> s { _cloudFrontDistributionLegacyCustomOriginOriginProtocolPolicy = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-legacycustomorigin.html#cfn-cloudfront-distribution-legacycustomorigin-originsslprotocols+cfdlcoOriginSSLProtocols :: Lens' CloudFrontDistributionLegacyCustomOrigin (Maybe (ValList Text))+cfdlcoOriginSSLProtocols = lens _cloudFrontDistributionLegacyCustomOriginOriginSSLProtocols (\s a -> s { _cloudFrontDistributionLegacyCustomOriginOriginSSLProtocols = a })
+ library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionLegacyS3Origin.hs view
@@ -0,0 +1,58 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-legacys3origin.html++module Stratosphere.ResourceProperties.CloudFrontDistributionLegacyS3Origin where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for CloudFrontDistributionLegacyS3Origin. See+-- 'cloudFrontDistributionLegacyS3Origin' for a more convenient constructor.+data CloudFrontDistributionLegacyS3Origin =+  CloudFrontDistributionLegacyS3Origin+  { _cloudFrontDistributionLegacyS3OriginDNSName :: Val Text+  , _cloudFrontDistributionLegacyS3OriginOriginAccessIdentity :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON CloudFrontDistributionLegacyS3Origin where+  toJSON CloudFrontDistributionLegacyS3Origin{..} =+    object $+    catMaybes+    [ (Just . ("DNSName",) . toJSON) _cloudFrontDistributionLegacyS3OriginDNSName+    , fmap (("OriginAccessIdentity",) . toJSON) _cloudFrontDistributionLegacyS3OriginOriginAccessIdentity+    ]++instance FromJSON CloudFrontDistributionLegacyS3Origin where+  parseJSON (Object obj) =+    CloudFrontDistributionLegacyS3Origin <$>+      (obj .: "DNSName") <*>+      (obj .:? "OriginAccessIdentity")+  parseJSON _ = mempty++-- | Constructor for 'CloudFrontDistributionLegacyS3Origin' containing+-- required fields as arguments.+cloudFrontDistributionLegacyS3Origin+  :: Val Text -- ^ 'cfdlsoDNSName'+  -> CloudFrontDistributionLegacyS3Origin+cloudFrontDistributionLegacyS3Origin dNSNamearg =+  CloudFrontDistributionLegacyS3Origin+  { _cloudFrontDistributionLegacyS3OriginDNSName = dNSNamearg+  , _cloudFrontDistributionLegacyS3OriginOriginAccessIdentity = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-legacys3origin.html#cfn-cloudfront-distribution-legacys3origin-dnsname+cfdlsoDNSName :: Lens' CloudFrontDistributionLegacyS3Origin (Val Text)+cfdlsoDNSName = lens _cloudFrontDistributionLegacyS3OriginDNSName (\s a -> s { _cloudFrontDistributionLegacyS3OriginDNSName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-legacys3origin.html#cfn-cloudfront-distribution-legacys3origin-originaccessidentity+cfdlsoOriginAccessIdentity :: Lens' CloudFrontDistributionLegacyS3Origin (Maybe (Val Text))+cfdlsoOriginAccessIdentity = lens _cloudFrontDistributionLegacyS3OriginOriginAccessIdentity (\s a -> s { _cloudFrontDistributionLegacyS3OriginOriginAccessIdentity = a })
library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionLogging.hs view
@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-logging.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-logging.html  module Stratosphere.ResourceProperties.CloudFrontDistributionLogging where @@ -53,14 +53,14 @@   , _cloudFrontDistributionLoggingPrefix = Nothing   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-logging.html#cfn-cloudfront-logging-bucket+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-logging.html#cfn-cloudfront-distribution-logging-bucket cfdlBucket :: Lens' CloudFrontDistributionLogging (Val Text) cfdlBucket = lens _cloudFrontDistributionLoggingBucket (\s a -> s { _cloudFrontDistributionLoggingBucket = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-logging.html#cfn-cloudfront-logging-includecookies+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-logging.html#cfn-cloudfront-distribution-logging-includecookies cfdlIncludeCookies :: Lens' CloudFrontDistributionLogging (Maybe (Val Bool)) cfdlIncludeCookies = lens _cloudFrontDistributionLoggingIncludeCookies (\s a -> s { _cloudFrontDistributionLoggingIncludeCookies = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-logging.html#cfn-cloudfront-logging-prefix+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-logging.html#cfn-cloudfront-distribution-logging-prefix cfdlPrefix :: Lens' CloudFrontDistributionLogging (Maybe (Val Text)) cfdlPrefix = lens _cloudFrontDistributionLoggingPrefix (\s a -> s { _cloudFrontDistributionLoggingPrefix = a })
library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionOrigin.hs view
@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-origin.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origin.html  module Stratosphere.ResourceProperties.CloudFrontDistributionOrigin where @@ -68,26 +68,26 @@   , _cloudFrontDistributionOriginS3OriginConfig = Nothing   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-origin.html#cfn-cloudfront-origin-customorigin+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origin.html#cfn-cloudfront-distribution-origin-customoriginconfig cfdoCustomOriginConfig :: Lens' CloudFrontDistributionOrigin (Maybe CloudFrontDistributionCustomOriginConfig) cfdoCustomOriginConfig = lens _cloudFrontDistributionOriginCustomOriginConfig (\s a -> s { _cloudFrontDistributionOriginCustomOriginConfig = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-origin.html#cfn-cloudfront-origin-domainname+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origin.html#cfn-cloudfront-distribution-origin-domainname cfdoDomainName :: Lens' CloudFrontDistributionOrigin (Val Text) cfdoDomainName = lens _cloudFrontDistributionOriginDomainName (\s a -> s { _cloudFrontDistributionOriginDomainName = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-origin.html#cfn-cloudfront-origin-id+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origin.html#cfn-cloudfront-distribution-origin-id cfdoId :: Lens' CloudFrontDistributionOrigin (Val Text) cfdoId = lens _cloudFrontDistributionOriginId (\s a -> s { _cloudFrontDistributionOriginId = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-origin.html#cfn-cloudfront-origin-origincustomheaders+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origin.html#cfn-cloudfront-distribution-origin-origincustomheaders cfdoOriginCustomHeaders :: Lens' CloudFrontDistributionOrigin (Maybe [CloudFrontDistributionOriginCustomHeader]) cfdoOriginCustomHeaders = lens _cloudFrontDistributionOriginOriginCustomHeaders (\s a -> s { _cloudFrontDistributionOriginOriginCustomHeaders = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-origin.html#cfn-cloudfront-origin-originpath+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origin.html#cfn-cloudfront-distribution-origin-originpath cfdoOriginPath :: Lens' CloudFrontDistributionOrigin (Maybe (Val Text)) cfdoOriginPath = lens _cloudFrontDistributionOriginOriginPath (\s a -> s { _cloudFrontDistributionOriginOriginPath = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-origin.html#cfn-cloudfront-origin-s3origin+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origin.html#cfn-cloudfront-distribution-origin-s3originconfig cfdoS3OriginConfig :: Lens' CloudFrontDistributionOrigin (Maybe CloudFrontDistributionS3OriginConfig) cfdoS3OriginConfig = lens _cloudFrontDistributionOriginS3OriginConfig (\s a -> s { _cloudFrontDistributionOriginS3OriginConfig = a })
library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionOriginCustomHeader.hs view
@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-origin-origincustomheader.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origincustomheader.html  module Stratosphere.ResourceProperties.CloudFrontDistributionOriginCustomHeader where @@ -51,10 +51,10 @@   , _cloudFrontDistributionOriginCustomHeaderHeaderValue = headerValuearg   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-origin-origincustomheader.html#cfn-cloudfront-origin-origincustomheader-headername+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origincustomheader.html#cfn-cloudfront-distribution-origincustomheader-headername cfdochHeaderName :: Lens' CloudFrontDistributionOriginCustomHeader (Val Text) cfdochHeaderName = lens _cloudFrontDistributionOriginCustomHeaderHeaderName (\s a -> s { _cloudFrontDistributionOriginCustomHeaderHeaderName = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-origin-origincustomheader.html#cfn-cloudfront-origin-origincustomheader-headervalue+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origincustomheader.html#cfn-cloudfront-distribution-origincustomheader-headervalue cfdochHeaderValue :: Lens' CloudFrontDistributionOriginCustomHeader (Val Text) cfdochHeaderValue = lens _cloudFrontDistributionOriginCustomHeaderHeaderValue (\s a -> s { _cloudFrontDistributionOriginCustomHeaderHeaderValue = a })
library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionRestrictions.hs view
@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distributionconfig-restrictions.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-restrictions.html  module Stratosphere.ResourceProperties.CloudFrontDistributionRestrictions where @@ -45,6 +45,6 @@   { _cloudFrontDistributionRestrictionsGeoRestriction = geoRestrictionarg   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distributionconfig-restrictions.html#cfn-cloudfront-distributionconfig-restrictions-georestriction+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-restrictions.html#cfn-cloudfront-distribution-restrictions-georestriction cfdrGeoRestriction :: Lens' CloudFrontDistributionRestrictions CloudFrontDistributionGeoRestriction cfdrGeoRestriction = lens _cloudFrontDistributionRestrictionsGeoRestriction (\s a -> s { _cloudFrontDistributionRestrictionsGeoRestriction = a })
library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionS3OriginConfig.hs view
@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-s3origin.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-s3originconfig.html  module Stratosphere.ResourceProperties.CloudFrontDistributionS3OriginConfig where @@ -44,6 +44,6 @@   { _cloudFrontDistributionS3OriginConfigOriginAccessIdentity = Nothing   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-s3origin.html#cfn-cloudfront-s3origin-originaccessidentity+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-s3originconfig.html#cfn-cloudfront-distribution-s3originconfig-originaccessidentity cfdsocOriginAccessIdentity :: Lens' CloudFrontDistributionS3OriginConfig (Maybe (Val Text)) cfdsocOriginAccessIdentity = lens _cloudFrontDistributionS3OriginConfigOriginAccessIdentity (\s a -> s { _cloudFrontDistributionS3OriginConfigOriginAccessIdentity = a })
library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionViewerCertificate.hs view
@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distributionconfig-viewercertificate.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-viewercertificate.html  module Stratosphere.ResourceProperties.CloudFrontDistributionViewerCertificate where @@ -61,22 +61,22 @@   , _cloudFrontDistributionViewerCertificateSslSupportMethod = Nothing   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distributionconfig-viewercertificate.html#cfn-cloudfront-distributionconfig-viewercertificate-acmcertificatearn+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-viewercertificate.html#cfn-cloudfront-distribution-viewercertificate-acmcertificatearn cfdvcAcmCertificateArn :: Lens' CloudFrontDistributionViewerCertificate (Maybe (Val Text)) cfdvcAcmCertificateArn = lens _cloudFrontDistributionViewerCertificateAcmCertificateArn (\s a -> s { _cloudFrontDistributionViewerCertificateAcmCertificateArn = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distributionconfig-viewercertificate.html#cfn-cloudfront-distributionconfig-viewercertificate-cloudfrontdefaultcertificate+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-viewercertificate.html#cfn-cloudfront-distribution-viewercertificate-cloudfrontdefaultcertificate cfdvcCloudFrontDefaultCertificate :: Lens' CloudFrontDistributionViewerCertificate (Maybe (Val Bool)) cfdvcCloudFrontDefaultCertificate = lens _cloudFrontDistributionViewerCertificateCloudFrontDefaultCertificate (\s a -> s { _cloudFrontDistributionViewerCertificateCloudFrontDefaultCertificate = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distributionconfig-viewercertificate.html#cfn-cloudfront-distributionconfig-viewercertificate-iamcertificateid+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-viewercertificate.html#cfn-cloudfront-distribution-viewercertificate-iamcertificateid cfdvcIamCertificateId :: Lens' CloudFrontDistributionViewerCertificate (Maybe (Val Text)) cfdvcIamCertificateId = lens _cloudFrontDistributionViewerCertificateIamCertificateId (\s a -> s { _cloudFrontDistributionViewerCertificateIamCertificateId = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distributionconfig-viewercertificate.html#cfn-cloudfront-distributionconfig-viewercertificate-sslsupportmethod+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-viewercertificate.html#cfn-cloudfront-distribution-viewercertificate-minimumprotocolversion cfdvcMinimumProtocolVersion :: Lens' CloudFrontDistributionViewerCertificate (Maybe (Val Text)) cfdvcMinimumProtocolVersion = lens _cloudFrontDistributionViewerCertificateMinimumProtocolVersion (\s a -> s { _cloudFrontDistributionViewerCertificateMinimumProtocolVersion = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distributionconfig-viewercertificate.html#cfn-cloudfront-distributionconfig-viewercertificate-minimumprotocolversion+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-viewercertificate.html#cfn-cloudfront-distribution-viewercertificate-sslsupportmethod cfdvcSslSupportMethod :: Lens' CloudFrontDistributionViewerCertificate (Maybe (Val Text)) cfdvcSslSupportMethod = lens _cloudFrontDistributionViewerCertificateSslSupportMethod (\s a -> s { _cloudFrontDistributionViewerCertificateSslSupportMethod = a })
+ library-gen/Stratosphere/ResourceProperties/CloudFrontStreamingDistributionLogging.hs view
@@ -0,0 +1,69 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-logging.html++module Stratosphere.ResourceProperties.CloudFrontStreamingDistributionLogging where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for CloudFrontStreamingDistributionLogging. See+-- 'cloudFrontStreamingDistributionLogging' for a more convenient+-- constructor.+data CloudFrontStreamingDistributionLogging =+  CloudFrontStreamingDistributionLogging+  { _cloudFrontStreamingDistributionLoggingBucket :: Val Text+  , _cloudFrontStreamingDistributionLoggingEnabled :: Val Bool+  , _cloudFrontStreamingDistributionLoggingPrefix :: Val Text+  } deriving (Show, Eq)++instance ToJSON CloudFrontStreamingDistributionLogging where+  toJSON CloudFrontStreamingDistributionLogging{..} =+    object $+    catMaybes+    [ (Just . ("Bucket",) . toJSON) _cloudFrontStreamingDistributionLoggingBucket+    , (Just . ("Enabled",) . toJSON . fmap Bool') _cloudFrontStreamingDistributionLoggingEnabled+    , (Just . ("Prefix",) . toJSON) _cloudFrontStreamingDistributionLoggingPrefix+    ]++instance FromJSON CloudFrontStreamingDistributionLogging where+  parseJSON (Object obj) =+    CloudFrontStreamingDistributionLogging <$>+      (obj .: "Bucket") <*>+      fmap (fmap unBool') (obj .: "Enabled") <*>+      (obj .: "Prefix")+  parseJSON _ = mempty++-- | Constructor for 'CloudFrontStreamingDistributionLogging' containing+-- required fields as arguments.+cloudFrontStreamingDistributionLogging+  :: Val Text -- ^ 'cfsdlBucket'+  -> Val Bool -- ^ 'cfsdlEnabled'+  -> Val Text -- ^ 'cfsdlPrefix'+  -> CloudFrontStreamingDistributionLogging+cloudFrontStreamingDistributionLogging bucketarg enabledarg prefixarg =+  CloudFrontStreamingDistributionLogging+  { _cloudFrontStreamingDistributionLoggingBucket = bucketarg+  , _cloudFrontStreamingDistributionLoggingEnabled = enabledarg+  , _cloudFrontStreamingDistributionLoggingPrefix = prefixarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-logging.html#cfn-cloudfront-streamingdistribution-logging-bucket+cfsdlBucket :: Lens' CloudFrontStreamingDistributionLogging (Val Text)+cfsdlBucket = lens _cloudFrontStreamingDistributionLoggingBucket (\s a -> s { _cloudFrontStreamingDistributionLoggingBucket = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-logging.html#cfn-cloudfront-streamingdistribution-logging-enabled+cfsdlEnabled :: Lens' CloudFrontStreamingDistributionLogging (Val Bool)+cfsdlEnabled = lens _cloudFrontStreamingDistributionLoggingEnabled (\s a -> s { _cloudFrontStreamingDistributionLoggingEnabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-logging.html#cfn-cloudfront-streamingdistribution-logging-prefix+cfsdlPrefix :: Lens' CloudFrontStreamingDistributionLogging (Val Text)+cfsdlPrefix = lens _cloudFrontStreamingDistributionLoggingPrefix (\s a -> s { _cloudFrontStreamingDistributionLoggingPrefix = a })
+ library-gen/Stratosphere/ResourceProperties/CloudFrontStreamingDistributionS3Origin.hs view
@@ -0,0 +1,60 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-s3origin.html++module Stratosphere.ResourceProperties.CloudFrontStreamingDistributionS3Origin where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for CloudFrontStreamingDistributionS3Origin.+-- See 'cloudFrontStreamingDistributionS3Origin' for a more convenient+-- constructor.+data CloudFrontStreamingDistributionS3Origin =+  CloudFrontStreamingDistributionS3Origin+  { _cloudFrontStreamingDistributionS3OriginDomainName :: Val Text+  , _cloudFrontStreamingDistributionS3OriginOriginAccessIdentity :: Val Text+  } deriving (Show, Eq)++instance ToJSON CloudFrontStreamingDistributionS3Origin where+  toJSON CloudFrontStreamingDistributionS3Origin{..} =+    object $+    catMaybes+    [ (Just . ("DomainName",) . toJSON) _cloudFrontStreamingDistributionS3OriginDomainName+    , (Just . ("OriginAccessIdentity",) . toJSON) _cloudFrontStreamingDistributionS3OriginOriginAccessIdentity+    ]++instance FromJSON CloudFrontStreamingDistributionS3Origin where+  parseJSON (Object obj) =+    CloudFrontStreamingDistributionS3Origin <$>+      (obj .: "DomainName") <*>+      (obj .: "OriginAccessIdentity")+  parseJSON _ = mempty++-- | Constructor for 'CloudFrontStreamingDistributionS3Origin' containing+-- required fields as arguments.+cloudFrontStreamingDistributionS3Origin+  :: Val Text -- ^ 'cfsdsoDomainName'+  -> Val Text -- ^ 'cfsdsoOriginAccessIdentity'+  -> CloudFrontStreamingDistributionS3Origin+cloudFrontStreamingDistributionS3Origin domainNamearg originAccessIdentityarg =+  CloudFrontStreamingDistributionS3Origin+  { _cloudFrontStreamingDistributionS3OriginDomainName = domainNamearg+  , _cloudFrontStreamingDistributionS3OriginOriginAccessIdentity = originAccessIdentityarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-s3origin.html#cfn-cloudfront-streamingdistribution-s3origin-domainname+cfsdsoDomainName :: Lens' CloudFrontStreamingDistributionS3Origin (Val Text)+cfsdsoDomainName = lens _cloudFrontStreamingDistributionS3OriginDomainName (\s a -> s { _cloudFrontStreamingDistributionS3OriginDomainName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-s3origin.html#cfn-cloudfront-streamingdistribution-s3origin-originaccessidentity+cfsdsoOriginAccessIdentity :: Lens' CloudFrontStreamingDistributionS3Origin (Val Text)+cfsdsoOriginAccessIdentity = lens _cloudFrontStreamingDistributionS3OriginOriginAccessIdentity (\s a -> s { _cloudFrontStreamingDistributionS3OriginOriginAccessIdentity = a })
+ library-gen/Stratosphere/ResourceProperties/CloudFrontStreamingDistributionStreamingDistributionConfig.hs view
@@ -0,0 +1,106 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-streamingdistributionconfig.html++module Stratosphere.ResourceProperties.CloudFrontStreamingDistributionStreamingDistributionConfig where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+import Stratosphere.ResourceProperties.CloudFrontStreamingDistributionLogging+import Stratosphere.ResourceProperties.CloudFrontStreamingDistributionS3Origin+import Stratosphere.ResourceProperties.CloudFrontStreamingDistributionTrustedSigners++-- | Full data type definition for+-- CloudFrontStreamingDistributionStreamingDistributionConfig. See+-- 'cloudFrontStreamingDistributionStreamingDistributionConfig' for a more+-- convenient constructor.+data CloudFrontStreamingDistributionStreamingDistributionConfig =+  CloudFrontStreamingDistributionStreamingDistributionConfig+  { _cloudFrontStreamingDistributionStreamingDistributionConfigAliases :: Maybe (ValList Text)+  , _cloudFrontStreamingDistributionStreamingDistributionConfigComment :: Val Text+  , _cloudFrontStreamingDistributionStreamingDistributionConfigEnabled :: Val Bool+  , _cloudFrontStreamingDistributionStreamingDistributionConfigLogging :: Maybe CloudFrontStreamingDistributionLogging+  , _cloudFrontStreamingDistributionStreamingDistributionConfigPriceClass :: Maybe (Val Text)+  , _cloudFrontStreamingDistributionStreamingDistributionConfigS3Origin :: CloudFrontStreamingDistributionS3Origin+  , _cloudFrontStreamingDistributionStreamingDistributionConfigTrustedSigners :: CloudFrontStreamingDistributionTrustedSigners+  } deriving (Show, Eq)++instance ToJSON CloudFrontStreamingDistributionStreamingDistributionConfig where+  toJSON CloudFrontStreamingDistributionStreamingDistributionConfig{..} =+    object $+    catMaybes+    [ fmap (("Aliases",) . toJSON) _cloudFrontStreamingDistributionStreamingDistributionConfigAliases+    , (Just . ("Comment",) . toJSON) _cloudFrontStreamingDistributionStreamingDistributionConfigComment+    , (Just . ("Enabled",) . toJSON . fmap Bool') _cloudFrontStreamingDistributionStreamingDistributionConfigEnabled+    , fmap (("Logging",) . toJSON) _cloudFrontStreamingDistributionStreamingDistributionConfigLogging+    , fmap (("PriceClass",) . toJSON) _cloudFrontStreamingDistributionStreamingDistributionConfigPriceClass+    , (Just . ("S3Origin",) . toJSON) _cloudFrontStreamingDistributionStreamingDistributionConfigS3Origin+    , (Just . ("TrustedSigners",) . toJSON) _cloudFrontStreamingDistributionStreamingDistributionConfigTrustedSigners+    ]++instance FromJSON CloudFrontStreamingDistributionStreamingDistributionConfig where+  parseJSON (Object obj) =+    CloudFrontStreamingDistributionStreamingDistributionConfig <$>+      (obj .:? "Aliases") <*>+      (obj .: "Comment") <*>+      fmap (fmap unBool') (obj .: "Enabled") <*>+      (obj .:? "Logging") <*>+      (obj .:? "PriceClass") <*>+      (obj .: "S3Origin") <*>+      (obj .: "TrustedSigners")+  parseJSON _ = mempty++-- | Constructor for+-- 'CloudFrontStreamingDistributionStreamingDistributionConfig' containing+-- required fields as arguments.+cloudFrontStreamingDistributionStreamingDistributionConfig+  :: Val Text -- ^ 'cfsdsdcComment'+  -> Val Bool -- ^ 'cfsdsdcEnabled'+  -> CloudFrontStreamingDistributionS3Origin -- ^ 'cfsdsdcS3Origin'+  -> CloudFrontStreamingDistributionTrustedSigners -- ^ 'cfsdsdcTrustedSigners'+  -> CloudFrontStreamingDistributionStreamingDistributionConfig+cloudFrontStreamingDistributionStreamingDistributionConfig commentarg enabledarg s3Originarg trustedSignersarg =+  CloudFrontStreamingDistributionStreamingDistributionConfig+  { _cloudFrontStreamingDistributionStreamingDistributionConfigAliases = Nothing+  , _cloudFrontStreamingDistributionStreamingDistributionConfigComment = commentarg+  , _cloudFrontStreamingDistributionStreamingDistributionConfigEnabled = enabledarg+  , _cloudFrontStreamingDistributionStreamingDistributionConfigLogging = Nothing+  , _cloudFrontStreamingDistributionStreamingDistributionConfigPriceClass = Nothing+  , _cloudFrontStreamingDistributionStreamingDistributionConfigS3Origin = s3Originarg+  , _cloudFrontStreamingDistributionStreamingDistributionConfigTrustedSigners = trustedSignersarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-streamingdistributionconfig.html#cfn-cloudfront-streamingdistribution-streamingdistributionconfig-aliases+cfsdsdcAliases :: Lens' CloudFrontStreamingDistributionStreamingDistributionConfig (Maybe (ValList Text))+cfsdsdcAliases = lens _cloudFrontStreamingDistributionStreamingDistributionConfigAliases (\s a -> s { _cloudFrontStreamingDistributionStreamingDistributionConfigAliases = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-streamingdistributionconfig.html#cfn-cloudfront-streamingdistribution-streamingdistributionconfig-comment+cfsdsdcComment :: Lens' CloudFrontStreamingDistributionStreamingDistributionConfig (Val Text)+cfsdsdcComment = lens _cloudFrontStreamingDistributionStreamingDistributionConfigComment (\s a -> s { _cloudFrontStreamingDistributionStreamingDistributionConfigComment = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-streamingdistributionconfig.html#cfn-cloudfront-streamingdistribution-streamingdistributionconfig-enabled+cfsdsdcEnabled :: Lens' CloudFrontStreamingDistributionStreamingDistributionConfig (Val Bool)+cfsdsdcEnabled = lens _cloudFrontStreamingDistributionStreamingDistributionConfigEnabled (\s a -> s { _cloudFrontStreamingDistributionStreamingDistributionConfigEnabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-streamingdistributionconfig.html#cfn-cloudfront-streamingdistribution-streamingdistributionconfig-logging+cfsdsdcLogging :: Lens' CloudFrontStreamingDistributionStreamingDistributionConfig (Maybe CloudFrontStreamingDistributionLogging)+cfsdsdcLogging = lens _cloudFrontStreamingDistributionStreamingDistributionConfigLogging (\s a -> s { _cloudFrontStreamingDistributionStreamingDistributionConfigLogging = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-streamingdistributionconfig.html#cfn-cloudfront-streamingdistribution-streamingdistributionconfig-priceclass+cfsdsdcPriceClass :: Lens' CloudFrontStreamingDistributionStreamingDistributionConfig (Maybe (Val Text))+cfsdsdcPriceClass = lens _cloudFrontStreamingDistributionStreamingDistributionConfigPriceClass (\s a -> s { _cloudFrontStreamingDistributionStreamingDistributionConfigPriceClass = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-streamingdistributionconfig.html#cfn-cloudfront-streamingdistribution-streamingdistributionconfig-s3origin+cfsdsdcS3Origin :: Lens' CloudFrontStreamingDistributionStreamingDistributionConfig CloudFrontStreamingDistributionS3Origin+cfsdsdcS3Origin = lens _cloudFrontStreamingDistributionStreamingDistributionConfigS3Origin (\s a -> s { _cloudFrontStreamingDistributionStreamingDistributionConfigS3Origin = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-streamingdistributionconfig.html#cfn-cloudfront-streamingdistribution-streamingdistributionconfig-trustedsigners+cfsdsdcTrustedSigners :: Lens' CloudFrontStreamingDistributionStreamingDistributionConfig CloudFrontStreamingDistributionTrustedSigners+cfsdsdcTrustedSigners = lens _cloudFrontStreamingDistributionStreamingDistributionConfigTrustedSigners (\s a -> s { _cloudFrontStreamingDistributionStreamingDistributionConfigTrustedSigners = a })
+ library-gen/Stratosphere/ResourceProperties/CloudFrontStreamingDistributionTrustedSigners.hs view
@@ -0,0 +1,60 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-trustedsigners.html++module Stratosphere.ResourceProperties.CloudFrontStreamingDistributionTrustedSigners where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for+-- CloudFrontStreamingDistributionTrustedSigners. See+-- 'cloudFrontStreamingDistributionTrustedSigners' for a more convenient+-- constructor.+data CloudFrontStreamingDistributionTrustedSigners =+  CloudFrontStreamingDistributionTrustedSigners+  { _cloudFrontStreamingDistributionTrustedSignersAwsAccountNumbers :: Maybe (ValList Text)+  , _cloudFrontStreamingDistributionTrustedSignersEnabled :: Val Bool+  } deriving (Show, Eq)++instance ToJSON CloudFrontStreamingDistributionTrustedSigners where+  toJSON CloudFrontStreamingDistributionTrustedSigners{..} =+    object $+    catMaybes+    [ fmap (("AwsAccountNumbers",) . toJSON) _cloudFrontStreamingDistributionTrustedSignersAwsAccountNumbers+    , (Just . ("Enabled",) . toJSON . fmap Bool') _cloudFrontStreamingDistributionTrustedSignersEnabled+    ]++instance FromJSON CloudFrontStreamingDistributionTrustedSigners where+  parseJSON (Object obj) =+    CloudFrontStreamingDistributionTrustedSigners <$>+      (obj .:? "AwsAccountNumbers") <*>+      fmap (fmap unBool') (obj .: "Enabled")+  parseJSON _ = mempty++-- | Constructor for 'CloudFrontStreamingDistributionTrustedSigners'+-- containing required fields as arguments.+cloudFrontStreamingDistributionTrustedSigners+  :: Val Bool -- ^ 'cfsdtsEnabled'+  -> CloudFrontStreamingDistributionTrustedSigners+cloudFrontStreamingDistributionTrustedSigners enabledarg =+  CloudFrontStreamingDistributionTrustedSigners+  { _cloudFrontStreamingDistributionTrustedSignersAwsAccountNumbers = Nothing+  , _cloudFrontStreamingDistributionTrustedSignersEnabled = enabledarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-trustedsigners.html#cfn-cloudfront-streamingdistribution-trustedsigners-awsaccountnumbers+cfsdtsAwsAccountNumbers :: Lens' CloudFrontStreamingDistributionTrustedSigners (Maybe (ValList Text))+cfsdtsAwsAccountNumbers = lens _cloudFrontStreamingDistributionTrustedSignersAwsAccountNumbers (\s a -> s { _cloudFrontStreamingDistributionTrustedSignersAwsAccountNumbers = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-trustedsigners.html#cfn-cloudfront-streamingdistribution-trustedsigners-enabled+cfsdtsEnabled :: Lens' CloudFrontStreamingDistributionTrustedSigners (Val Bool)+cfsdtsEnabled = lens _cloudFrontStreamingDistributionTrustedSignersEnabled (\s a -> s { _cloudFrontStreamingDistributionTrustedSignersEnabled = a })
library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupLoadBalancerInfo.hs view
@@ -14,6 +14,7 @@  import Stratosphere.Values import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupELBInfo+import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupTargetGroupInfo  -- | Full data type definition for CodeDeployDeploymentGroupLoadBalancerInfo. -- See 'codeDeployDeploymentGroupLoadBalancerInfo' for a more convenient@@ -21,6 +22,7 @@ data CodeDeployDeploymentGroupLoadBalancerInfo =   CodeDeployDeploymentGroupLoadBalancerInfo   { _codeDeployDeploymentGroupLoadBalancerInfoElbInfoList :: Maybe [CodeDeployDeploymentGroupELBInfo]+  , _codeDeployDeploymentGroupLoadBalancerInfoTargetGroupInfoList :: Maybe [CodeDeployDeploymentGroupTargetGroupInfo]   } deriving (Show, Eq)  instance ToJSON CodeDeployDeploymentGroupLoadBalancerInfo where@@ -28,12 +30,14 @@     object $     catMaybes     [ fmap (("ElbInfoList",) . toJSON) _codeDeployDeploymentGroupLoadBalancerInfoElbInfoList+    , fmap (("TargetGroupInfoList",) . toJSON) _codeDeployDeploymentGroupLoadBalancerInfoTargetGroupInfoList     ]  instance FromJSON CodeDeployDeploymentGroupLoadBalancerInfo where   parseJSON (Object obj) =     CodeDeployDeploymentGroupLoadBalancerInfo <$>-      (obj .:? "ElbInfoList")+      (obj .:? "ElbInfoList") <*>+      (obj .:? "TargetGroupInfoList")   parseJSON _ = mempty  -- | Constructor for 'CodeDeployDeploymentGroupLoadBalancerInfo' containing@@ -43,8 +47,13 @@ codeDeployDeploymentGroupLoadBalancerInfo  =   CodeDeployDeploymentGroupLoadBalancerInfo   { _codeDeployDeploymentGroupLoadBalancerInfoElbInfoList = Nothing+  , _codeDeployDeploymentGroupLoadBalancerInfoTargetGroupInfoList = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-loadbalancerinfo.html#cfn-codedeploy-deploymentgroup-loadbalancerinfo-elbinfolist cddglbiElbInfoList :: Lens' CodeDeployDeploymentGroupLoadBalancerInfo (Maybe [CodeDeployDeploymentGroupELBInfo]) cddglbiElbInfoList = lens _codeDeployDeploymentGroupLoadBalancerInfoElbInfoList (\s a -> s { _codeDeployDeploymentGroupLoadBalancerInfoElbInfoList = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-loadbalancerinfo.html#cfn-codedeploy-deploymentgroup-loadbalancerinfo-targetgroupinfolist+cddglbiTargetGroupInfoList :: Lens' CodeDeployDeploymentGroupLoadBalancerInfo (Maybe [CodeDeployDeploymentGroupTargetGroupInfo])+cddglbiTargetGroupInfoList = lens _codeDeployDeploymentGroupLoadBalancerInfoTargetGroupInfoList (\s a -> s { _codeDeployDeploymentGroupLoadBalancerInfoTargetGroupInfoList = a })
+ library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupTargetGroupInfo.hs view
@@ -0,0 +1,50 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-targetgroupinfo.html++module Stratosphere.ResourceProperties.CodeDeployDeploymentGroupTargetGroupInfo where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for CodeDeployDeploymentGroupTargetGroupInfo.+-- See 'codeDeployDeploymentGroupTargetGroupInfo' for a more convenient+-- constructor.+data CodeDeployDeploymentGroupTargetGroupInfo =+  CodeDeployDeploymentGroupTargetGroupInfo+  { _codeDeployDeploymentGroupTargetGroupInfoName :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON CodeDeployDeploymentGroupTargetGroupInfo where+  toJSON CodeDeployDeploymentGroupTargetGroupInfo{..} =+    object $+    catMaybes+    [ fmap (("Name",) . toJSON) _codeDeployDeploymentGroupTargetGroupInfoName+    ]++instance FromJSON CodeDeployDeploymentGroupTargetGroupInfo where+  parseJSON (Object obj) =+    CodeDeployDeploymentGroupTargetGroupInfo <$>+      (obj .:? "Name")+  parseJSON _ = mempty++-- | Constructor for 'CodeDeployDeploymentGroupTargetGroupInfo' containing+-- required fields as arguments.+codeDeployDeploymentGroupTargetGroupInfo+  :: CodeDeployDeploymentGroupTargetGroupInfo+codeDeployDeploymentGroupTargetGroupInfo  =+  CodeDeployDeploymentGroupTargetGroupInfo+  { _codeDeployDeploymentGroupTargetGroupInfoName = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-targetgroupinfo.html#cfn-codedeploy-deploymentgroup-targetgroupinfo-name+cddgtgiName :: Lens' CodeDeployDeploymentGroupTargetGroupInfo (Maybe (Val Text))+cddgtgiName = lens _codeDeployDeploymentGroupTargetGroupInfoName (\s a -> s { _codeDeployDeploymentGroupTargetGroupInfoName = a })
+ library-gen/Stratosphere/ResourceProperties/EC2InstanceElasticGpuSpecification.hs view
@@ -0,0 +1,50 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance-elasticgpuspecification.html++module Stratosphere.ResourceProperties.EC2InstanceElasticGpuSpecification where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for EC2InstanceElasticGpuSpecification. See+-- 'ec2InstanceElasticGpuSpecification' for a more convenient constructor.+data EC2InstanceElasticGpuSpecification =+  EC2InstanceElasticGpuSpecification+  { _eC2InstanceElasticGpuSpecificationType :: Val Text+  } deriving (Show, Eq)++instance ToJSON EC2InstanceElasticGpuSpecification where+  toJSON EC2InstanceElasticGpuSpecification{..} =+    object $+    catMaybes+    [ (Just . ("Type",) . toJSON) _eC2InstanceElasticGpuSpecificationType+    ]++instance FromJSON EC2InstanceElasticGpuSpecification where+  parseJSON (Object obj) =+    EC2InstanceElasticGpuSpecification <$>+      (obj .: "Type")+  parseJSON _ = mempty++-- | Constructor for 'EC2InstanceElasticGpuSpecification' containing required+-- fields as arguments.+ec2InstanceElasticGpuSpecification+  :: Val Text -- ^ 'eciegsType'+  -> EC2InstanceElasticGpuSpecification+ec2InstanceElasticGpuSpecification typearg =+  EC2InstanceElasticGpuSpecification+  { _eC2InstanceElasticGpuSpecificationType = typearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance-elasticgpuspecification.html#cfn-ec2-instance-elasticgpuspecification-type+eciegsType :: Lens' EC2InstanceElasticGpuSpecification (Val Text)+eciegsType = lens _eC2InstanceElasticGpuSpecificationType (\s a -> s { _eC2InstanceElasticGpuSpecificationType = a })
library-gen/Stratosphere/ResourceProperties/EC2SecurityGroupEgressProperty.hs view
@@ -21,6 +21,7 @@   EC2SecurityGroupEgressProperty   { _eC2SecurityGroupEgressPropertyCidrIp :: Maybe (Val Text)   , _eC2SecurityGroupEgressPropertyCidrIpv6 :: Maybe (Val Text)+  , _eC2SecurityGroupEgressPropertyDescription :: Maybe (Val Text)   , _eC2SecurityGroupEgressPropertyDestinationPrefixListId :: Maybe (Val Text)   , _eC2SecurityGroupEgressPropertyDestinationSecurityGroupId :: Maybe (Val Text)   , _eC2SecurityGroupEgressPropertyFromPort :: Maybe (Val Integer)@@ -34,6 +35,7 @@     catMaybes     [ fmap (("CidrIp",) . toJSON) _eC2SecurityGroupEgressPropertyCidrIp     , fmap (("CidrIpv6",) . toJSON) _eC2SecurityGroupEgressPropertyCidrIpv6+    , fmap (("Description",) . toJSON) _eC2SecurityGroupEgressPropertyDescription     , fmap (("DestinationPrefixListId",) . toJSON) _eC2SecurityGroupEgressPropertyDestinationPrefixListId     , fmap (("DestinationSecurityGroupId",) . toJSON) _eC2SecurityGroupEgressPropertyDestinationSecurityGroupId     , fmap (("FromPort",) . toJSON . fmap Integer') _eC2SecurityGroupEgressPropertyFromPort@@ -46,6 +48,7 @@     EC2SecurityGroupEgressProperty <$>       (obj .:? "CidrIp") <*>       (obj .:? "CidrIpv6") <*>+      (obj .:? "Description") <*>       (obj .:? "DestinationPrefixListId") <*>       (obj .:? "DestinationSecurityGroupId") <*>       fmap (fmap (fmap unInteger')) (obj .:? "FromPort") <*>@@ -62,6 +65,7 @@   EC2SecurityGroupEgressProperty   { _eC2SecurityGroupEgressPropertyCidrIp = Nothing   , _eC2SecurityGroupEgressPropertyCidrIpv6 = Nothing+  , _eC2SecurityGroupEgressPropertyDescription = Nothing   , _eC2SecurityGroupEgressPropertyDestinationPrefixListId = Nothing   , _eC2SecurityGroupEgressPropertyDestinationSecurityGroupId = Nothing   , _eC2SecurityGroupEgressPropertyFromPort = Nothing@@ -76,6 +80,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-rule.html#cfn-ec2-security-group-rule-cidripv6 ecsgepCidrIpv6 :: Lens' EC2SecurityGroupEgressProperty (Maybe (Val Text)) ecsgepCidrIpv6 = lens _eC2SecurityGroupEgressPropertyCidrIpv6 (\s a -> s { _eC2SecurityGroupEgressPropertyCidrIpv6 = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-rule.html#cfn-ec2-security-group-rule-description+ecsgepDescription :: Lens' EC2SecurityGroupEgressProperty (Maybe (Val Text))+ecsgepDescription = lens _eC2SecurityGroupEgressPropertyDescription (\s a -> s { _eC2SecurityGroupEgressPropertyDescription = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-rule.html#cfn-ec2-security-group-rule-destinationprefixlistid ecsgepDestinationPrefixListId :: Lens' EC2SecurityGroupEgressProperty (Maybe (Val Text))
library-gen/Stratosphere/ResourceProperties/EC2SecurityGroupIngressProperty.hs view
@@ -21,6 +21,7 @@   EC2SecurityGroupIngressProperty   { _eC2SecurityGroupIngressPropertyCidrIp :: Maybe (Val Text)   , _eC2SecurityGroupIngressPropertyCidrIpv6 :: Maybe (Val Text)+  , _eC2SecurityGroupIngressPropertyDescription :: Maybe (Val Text)   , _eC2SecurityGroupIngressPropertyFromPort :: Maybe (Val Integer)   , _eC2SecurityGroupIngressPropertyIpProtocol :: Val Text   , _eC2SecurityGroupIngressPropertySourceSecurityGroupId :: Maybe (Val Text)@@ -35,6 +36,7 @@     catMaybes     [ fmap (("CidrIp",) . toJSON) _eC2SecurityGroupIngressPropertyCidrIp     , fmap (("CidrIpv6",) . toJSON) _eC2SecurityGroupIngressPropertyCidrIpv6+    , fmap (("Description",) . toJSON) _eC2SecurityGroupIngressPropertyDescription     , fmap (("FromPort",) . toJSON . fmap Integer') _eC2SecurityGroupIngressPropertyFromPort     , (Just . ("IpProtocol",) . toJSON) _eC2SecurityGroupIngressPropertyIpProtocol     , fmap (("SourceSecurityGroupId",) . toJSON) _eC2SecurityGroupIngressPropertySourceSecurityGroupId@@ -48,6 +50,7 @@     EC2SecurityGroupIngressProperty <$>       (obj .:? "CidrIp") <*>       (obj .:? "CidrIpv6") <*>+      (obj .:? "Description") <*>       fmap (fmap (fmap unInteger')) (obj .:? "FromPort") <*>       (obj .: "IpProtocol") <*>       (obj .:? "SourceSecurityGroupId") <*>@@ -65,6 +68,7 @@   EC2SecurityGroupIngressProperty   { _eC2SecurityGroupIngressPropertyCidrIp = Nothing   , _eC2SecurityGroupIngressPropertyCidrIpv6 = Nothing+  , _eC2SecurityGroupIngressPropertyDescription = Nothing   , _eC2SecurityGroupIngressPropertyFromPort = Nothing   , _eC2SecurityGroupIngressPropertyIpProtocol = ipProtocolarg   , _eC2SecurityGroupIngressPropertySourceSecurityGroupId = Nothing@@ -80,6 +84,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-rule.html#cfn-ec2-security-group-rule-cidripv6 ecsgipCidrIpv6 :: Lens' EC2SecurityGroupIngressProperty (Maybe (Val Text)) ecsgipCidrIpv6 = lens _eC2SecurityGroupIngressPropertyCidrIpv6 (\s a -> s { _eC2SecurityGroupIngressPropertyCidrIpv6 = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-rule.html#cfn-ec2-security-group-rule-description+ecsgipDescription :: Lens' EC2SecurityGroupIngressProperty (Maybe (Val Text))+ecsgipDescription = lens _eC2SecurityGroupIngressPropertyDescription (\s a -> s { _eC2SecurityGroupIngressPropertyDescription = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-rule.html#cfn-ec2-security-group-rule-fromport ecsgipFromPort :: Lens' EC2SecurityGroupIngressProperty (Maybe (Val Integer))
+ library-gen/Stratosphere/ResourceProperties/EC2VPNConnectionVpnTunnelOptionsSpecification.hs view
@@ -0,0 +1,59 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-vpnconnection-vpntunneloptionsspecification.html++module Stratosphere.ResourceProperties.EC2VPNConnectionVpnTunnelOptionsSpecification where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for+-- EC2VPNConnectionVpnTunnelOptionsSpecification. See+-- 'ec2VPNConnectionVpnTunnelOptionsSpecification' for a more convenient+-- constructor.+data EC2VPNConnectionVpnTunnelOptionsSpecification =+  EC2VPNConnectionVpnTunnelOptionsSpecification+  { _eC2VPNConnectionVpnTunnelOptionsSpecificationPreSharedKey :: Maybe (Val Text)+  , _eC2VPNConnectionVpnTunnelOptionsSpecificationTunnelInsideCidr :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON EC2VPNConnectionVpnTunnelOptionsSpecification where+  toJSON EC2VPNConnectionVpnTunnelOptionsSpecification{..} =+    object $+    catMaybes+    [ fmap (("PreSharedKey",) . toJSON) _eC2VPNConnectionVpnTunnelOptionsSpecificationPreSharedKey+    , fmap (("TunnelInsideCidr",) . toJSON) _eC2VPNConnectionVpnTunnelOptionsSpecificationTunnelInsideCidr+    ]++instance FromJSON EC2VPNConnectionVpnTunnelOptionsSpecification where+  parseJSON (Object obj) =+    EC2VPNConnectionVpnTunnelOptionsSpecification <$>+      (obj .:? "PreSharedKey") <*>+      (obj .:? "TunnelInsideCidr")+  parseJSON _ = mempty++-- | Constructor for 'EC2VPNConnectionVpnTunnelOptionsSpecification'+-- containing required fields as arguments.+ec2VPNConnectionVpnTunnelOptionsSpecification+  :: EC2VPNConnectionVpnTunnelOptionsSpecification+ec2VPNConnectionVpnTunnelOptionsSpecification  =+  EC2VPNConnectionVpnTunnelOptionsSpecification+  { _eC2VPNConnectionVpnTunnelOptionsSpecificationPreSharedKey = Nothing+  , _eC2VPNConnectionVpnTunnelOptionsSpecificationTunnelInsideCidr = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-vpnconnection-vpntunneloptionsspecification.html#cfn-ec2-vpnconnection-vpntunneloptionsspecification-presharedkey+ecvpncvtosPreSharedKey :: Lens' EC2VPNConnectionVpnTunnelOptionsSpecification (Maybe (Val Text))+ecvpncvtosPreSharedKey = lens _eC2VPNConnectionVpnTunnelOptionsSpecificationPreSharedKey (\s a -> s { _eC2VPNConnectionVpnTunnelOptionsSpecificationPreSharedKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-vpnconnection-vpntunneloptionsspecification.html#cfn-ec2-vpnconnection-vpntunneloptionsspecification-tunnelinsidecidr+ecvpncvtosTunnelInsideCidr :: Lens' EC2VPNConnectionVpnTunnelOptionsSpecification (Maybe (Val Text))+ecvpncvtosTunnelInsideCidr = lens _eC2VPNConnectionVpnTunnelOptionsSpecificationTunnelInsideCidr (\s a -> s { _eC2VPNConnectionVpnTunnelOptionsSpecificationTunnelInsideCidr = a })
library-gen/Stratosphere/ResourceProperties/EMRClusterApplication.hs view
@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-application.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-application.html  module Stratosphere.ResourceProperties.EMRClusterApplication where @@ -56,18 +56,18 @@   , _eMRClusterApplicationVersion = Nothing   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-application.html#cfn-emr-cluster-application-additionalinfo+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-application.html#cfn-elasticmapreduce-cluster-application-additionalinfo emrcaAdditionalInfo :: Lens' EMRClusterApplication (Maybe Object) emrcaAdditionalInfo = lens _eMRClusterApplicationAdditionalInfo (\s a -> s { _eMRClusterApplicationAdditionalInfo = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-application.html#cfn-emr-cluster-application-args+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-application.html#cfn-elasticmapreduce-cluster-application-args emrcaArgs :: Lens' EMRClusterApplication (Maybe (ValList Text)) emrcaArgs = lens _eMRClusterApplicationArgs (\s a -> s { _eMRClusterApplicationArgs = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-application.html#cfn-emr-cluster-application-name+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-application.html#cfn-elasticmapreduce-cluster-application-name emrcaName :: Lens' EMRClusterApplication (Maybe (Val Text)) emrcaName = lens _eMRClusterApplicationName (\s a -> s { _eMRClusterApplicationName = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-application.html#cfn-emr-cluster-application-version+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-application.html#cfn-elasticmapreduce-cluster-application-version emrcaVersion :: Lens' EMRClusterApplication (Maybe (Val Text)) emrcaVersion = lens _eMRClusterApplicationVersion (\s a -> s { _eMRClusterApplicationVersion = a })
library-gen/Stratosphere/ResourceProperties/EMRClusterBootstrapActionConfig.hs view
@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-bootstrapactionconfig.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-bootstrapactionconfig.html  module Stratosphere.ResourceProperties.EMRClusterBootstrapActionConfig where @@ -50,10 +50,10 @@   , _eMRClusterBootstrapActionConfigScriptBootstrapAction = scriptBootstrapActionarg   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-bootstrapactionconfig.html#cfn-emr-cluster-bootstrapactionconfig-name+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-bootstrapactionconfig.html#cfn-elasticmapreduce-cluster-bootstrapactionconfig-name emrcbacName :: Lens' EMRClusterBootstrapActionConfig (Val Text) emrcbacName = lens _eMRClusterBootstrapActionConfigName (\s a -> s { _eMRClusterBootstrapActionConfigName = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-bootstrapactionconfig.html#cfn-emr-cluster-bootstrapactionconfig-scriptbootstrapaction+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-bootstrapactionconfig.html#cfn-elasticmapreduce-cluster-bootstrapactionconfig-scriptbootstrapaction emrcbacScriptBootstrapAction :: Lens' EMRClusterBootstrapActionConfig EMRClusterScriptBootstrapActionConfig emrcbacScriptBootstrapAction = lens _eMRClusterBootstrapActionConfigScriptBootstrapAction (\s a -> s { _eMRClusterBootstrapActionConfigScriptBootstrapAction = a })
library-gen/Stratosphere/ResourceProperties/EMRClusterConfiguration.hs view
@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-configuration.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-configuration.html  module Stratosphere.ResourceProperties.EMRClusterConfiguration where @@ -52,14 +52,14 @@   , _eMRClusterConfigurationConfigurations = Nothing   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-configuration.html#cfn-emr-cluster-configuration-classification+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-configuration.html#cfn-elasticmapreduce-cluster-configuration-classification emrccClassification :: Lens' EMRClusterConfiguration (Maybe (Val Text)) emrccClassification = lens _eMRClusterConfigurationClassification (\s a -> s { _eMRClusterConfigurationClassification = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-configuration.html#cfn-emr-cluster-configuration-configurationproperties+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-configuration.html#cfn-elasticmapreduce-cluster-configuration-configurationproperties emrccConfigurationProperties :: Lens' EMRClusterConfiguration (Maybe Object) emrccConfigurationProperties = lens _eMRClusterConfigurationConfigurationProperties (\s a -> s { _eMRClusterConfigurationConfigurationProperties = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-configuration.html#cfn-emr-cluster-configuration-configurations+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-configuration.html#cfn-elasticmapreduce-cluster-configuration-configurations emrccConfigurations :: Lens' EMRClusterConfiguration (Maybe [EMRClusterConfiguration]) emrccConfigurations = lens _eMRClusterConfigurationConfigurations (\s a -> s { _eMRClusterConfigurationConfigurations = a })
library-gen/Stratosphere/ResourceProperties/EMRClusterEbsBlockDeviceConfig.hs view
@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-ebsconfiguration-ebsblockdeviceconfig.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-ebsblockdeviceconfig.html  module Stratosphere.ResourceProperties.EMRClusterEbsBlockDeviceConfig where @@ -49,10 +49,10 @@   , _eMRClusterEbsBlockDeviceConfigVolumesPerInstance = Nothing   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-ebsconfiguration-ebsblockdeviceconfig.html#cfn-emr-ebsconfiguration-ebsblockdeviceconfig-volumespecification+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-ebsblockdeviceconfig.html#cfn-elasticmapreduce-cluster-ebsblockdeviceconfig-volumespecification emrcebdcVolumeSpecification :: Lens' EMRClusterEbsBlockDeviceConfig EMRClusterVolumeSpecification emrcebdcVolumeSpecification = lens _eMRClusterEbsBlockDeviceConfigVolumeSpecification (\s a -> s { _eMRClusterEbsBlockDeviceConfigVolumeSpecification = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-ebsconfiguration-ebsblockdeviceconfig.html#cfn-emr-ebsconfiguration-ebsblockdeviceconfig-volumesperinstance+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-ebsblockdeviceconfig.html#cfn-elasticmapreduce-cluster-ebsblockdeviceconfig-volumesperinstance emrcebdcVolumesPerInstance :: Lens' EMRClusterEbsBlockDeviceConfig (Maybe (Val Integer)) emrcebdcVolumesPerInstance = lens _eMRClusterEbsBlockDeviceConfigVolumesPerInstance (\s a -> s { _eMRClusterEbsBlockDeviceConfigVolumesPerInstance = a })
library-gen/Stratosphere/ResourceProperties/EMRClusterEbsConfiguration.hs view
@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-ebsconfiguration.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-ebsconfiguration.html  module Stratosphere.ResourceProperties.EMRClusterEbsConfiguration where @@ -48,10 +48,10 @@   , _eMRClusterEbsConfigurationEbsOptimized = Nothing   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-ebsconfiguration.html#cfn-emr-ebsconfiguration-ebsblockdeviceconfigs+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-ebsconfiguration.html#cfn-elasticmapreduce-cluster-ebsconfiguration-ebsblockdeviceconfigs emrcecEbsBlockDeviceConfigs :: Lens' EMRClusterEbsConfiguration (Maybe [EMRClusterEbsBlockDeviceConfig]) emrcecEbsBlockDeviceConfigs = lens _eMRClusterEbsConfigurationEbsBlockDeviceConfigs (\s a -> s { _eMRClusterEbsConfigurationEbsBlockDeviceConfigs = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-ebsconfiguration.html#cfn-emr-ebsconfiguration-ebsoptimized+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-ebsconfiguration.html#cfn-elasticmapreduce-cluster-ebsconfiguration-ebsoptimized emrcecEbsOptimized :: Lens' EMRClusterEbsConfiguration (Maybe (Val Bool)) emrcecEbsOptimized = lens _eMRClusterEbsConfigurationEbsOptimized (\s a -> s { _eMRClusterEbsConfigurationEbsOptimized = a })
library-gen/Stratosphere/ResourceProperties/EMRClusterInstanceGroupConfig.hs view
@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-jobflowinstancesconfig-instancegroupconfig.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-instancegroupconfig.html  module Stratosphere.ResourceProperties.EMRClusterInstanceGroupConfig where @@ -76,34 +76,34 @@   , _eMRClusterInstanceGroupConfigName = Nothing   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-jobflowinstancesconfig-instancegroupconfig.html#cfn-elasticmapreduce-cluster-instancegroupconfig-autoscalingpolicy+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-instancegroupconfig.html#cfn-elasticmapreduce-cluster-instancegroupconfig-autoscalingpolicy emrcigcAutoScalingPolicy :: Lens' EMRClusterInstanceGroupConfig (Maybe EMRClusterAutoScalingPolicy) emrcigcAutoScalingPolicy = lens _eMRClusterInstanceGroupConfigAutoScalingPolicy (\s a -> s { _eMRClusterInstanceGroupConfigAutoScalingPolicy = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-jobflowinstancesconfig-instancegroupconfig.html#cfn-emr-cluster-jobflowinstancesconfig-instancegroupconfig-bidprice+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-instancegroupconfig.html#cfn-elasticmapreduce-cluster-instancegroupconfig-bidprice emrcigcBidPrice :: Lens' EMRClusterInstanceGroupConfig (Maybe (Val Text)) emrcigcBidPrice = lens _eMRClusterInstanceGroupConfigBidPrice (\s a -> s { _eMRClusterInstanceGroupConfigBidPrice = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-jobflowinstancesconfig-instancegroupconfig.html#cfn-emr-cluster-jobflowinstancesconfig-instancegroupconfig-configurations+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-instancegroupconfig.html#cfn-elasticmapreduce-cluster-instancegroupconfig-configurations emrcigcConfigurations :: Lens' EMRClusterInstanceGroupConfig (Maybe [EMRClusterConfiguration]) emrcigcConfigurations = lens _eMRClusterInstanceGroupConfigConfigurations (\s a -> s { _eMRClusterInstanceGroupConfigConfigurations = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-jobflowinstancesconfig-instancegroupconfig.html#cfn-emr-cluster-jobflowinstancesconfig-instancegroupconfigConfigurations-ebsconfiguration+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-instancegroupconfig.html#cfn-elasticmapreduce-cluster-instancegroupconfig-ebsconfiguration emrcigcEbsConfiguration :: Lens' EMRClusterInstanceGroupConfig (Maybe EMRClusterEbsConfiguration) emrcigcEbsConfiguration = lens _eMRClusterInstanceGroupConfigEbsConfiguration (\s a -> s { _eMRClusterInstanceGroupConfigEbsConfiguration = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-jobflowinstancesconfig-instancegroupconfig.html#cfn-emr-cluster-jobflowinstancesconfig-instancegroupconfig-instancecount+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-instancegroupconfig.html#cfn-elasticmapreduce-cluster-instancegroupconfig-instancecount emrcigcInstanceCount :: Lens' EMRClusterInstanceGroupConfig (Val Integer) emrcigcInstanceCount = lens _eMRClusterInstanceGroupConfigInstanceCount (\s a -> s { _eMRClusterInstanceGroupConfigInstanceCount = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-jobflowinstancesconfig-instancegroupconfig.html#cfn-emr-cluster-jobflowinstancesconfig-instancegroupconfig-instancetype+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-instancegroupconfig.html#cfn-elasticmapreduce-cluster-instancegroupconfig-instancetype emrcigcInstanceType :: Lens' EMRClusterInstanceGroupConfig (Val Text) emrcigcInstanceType = lens _eMRClusterInstanceGroupConfigInstanceType (\s a -> s { _eMRClusterInstanceGroupConfigInstanceType = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-jobflowinstancesconfig-instancegroupconfig.html#cfn-emr-cluster-jobflowinstancesconfig-instancegroupconfig-market+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-instancegroupconfig.html#cfn-elasticmapreduce-cluster-instancegroupconfig-market emrcigcMarket :: Lens' EMRClusterInstanceGroupConfig (Maybe (Val Text)) emrcigcMarket = lens _eMRClusterInstanceGroupConfigMarket (\s a -> s { _eMRClusterInstanceGroupConfigMarket = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-jobflowinstancesconfig-instancegroupconfig.html#cfn-emr-cluster-jobflowinstancesconfig-instancegroupconfig-name+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-instancegroupconfig.html#cfn-elasticmapreduce-cluster-instancegroupconfig-name emrcigcName :: Lens' EMRClusterInstanceGroupConfig (Maybe (Val Text)) emrcigcName = lens _eMRClusterInstanceGroupConfigName (\s a -> s { _eMRClusterInstanceGroupConfigName = a })
library-gen/Stratosphere/ResourceProperties/EMRClusterJobFlowInstancesConfig.hs view
@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-jobflowinstancesconfig.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-jobflowinstancesconfig.html  module Stratosphere.ResourceProperties.EMRClusterJobFlowInstancesConfig where @@ -98,58 +98,58 @@   , _eMRClusterJobFlowInstancesConfigTerminationProtected = Nothing   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-jobflowinstancesconfig.html#cfn-emr-cluster-jobflowinstancesconfig-additionalmastersecuritygroups+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-jobflowinstancesconfig.html#cfn-elasticmapreduce-cluster-jobflowinstancesconfig-additionalmastersecuritygroups emrcjficAdditionalMasterSecurityGroups :: Lens' EMRClusterJobFlowInstancesConfig (Maybe (ValList Text)) emrcjficAdditionalMasterSecurityGroups = lens _eMRClusterJobFlowInstancesConfigAdditionalMasterSecurityGroups (\s a -> s { _eMRClusterJobFlowInstancesConfigAdditionalMasterSecurityGroups = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-jobflowinstancesconfig.html#cfn-emr-cluster-jobflowinstancesconfig-additionalslavesecuritygroups+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-jobflowinstancesconfig.html#cfn-elasticmapreduce-cluster-jobflowinstancesconfig-additionalslavesecuritygroups emrcjficAdditionalSlaveSecurityGroups :: Lens' EMRClusterJobFlowInstancesConfig (Maybe (ValList Text)) emrcjficAdditionalSlaveSecurityGroups = lens _eMRClusterJobFlowInstancesConfigAdditionalSlaveSecurityGroups (\s a -> s { _eMRClusterJobFlowInstancesConfigAdditionalSlaveSecurityGroups = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-jobflowinstancesconfig.html#cfn-elasticmapreduce-cluster-jobflowinstancesconfig-coreinstancefleet+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-jobflowinstancesconfig.html#cfn-elasticmapreduce-cluster-jobflowinstancesconfig-coreinstancefleet emrcjficCoreInstanceFleet :: Lens' EMRClusterJobFlowInstancesConfig (Maybe EMRClusterInstanceFleetConfig) emrcjficCoreInstanceFleet = lens _eMRClusterJobFlowInstancesConfigCoreInstanceFleet (\s a -> s { _eMRClusterJobFlowInstancesConfigCoreInstanceFleet = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-jobflowinstancesconfig.html#cfn-emr-cluster-jobflowinstancesconfig-coreinstancegroup+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-jobflowinstancesconfig.html#cfn-elasticmapreduce-cluster-jobflowinstancesconfig-coreinstancegroup emrcjficCoreInstanceGroup :: Lens' EMRClusterJobFlowInstancesConfig (Maybe EMRClusterInstanceGroupConfig) emrcjficCoreInstanceGroup = lens _eMRClusterJobFlowInstancesConfigCoreInstanceGroup (\s a -> s { _eMRClusterJobFlowInstancesConfigCoreInstanceGroup = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-jobflowinstancesconfig.html#cfn-emr-cluster-jobflowinstancesconfig-ec2keyname+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-jobflowinstancesconfig.html#cfn-elasticmapreduce-cluster-jobflowinstancesconfig-ec2keyname emrcjficEc2KeyName :: Lens' EMRClusterJobFlowInstancesConfig (Maybe (Val Text)) emrcjficEc2KeyName = lens _eMRClusterJobFlowInstancesConfigEc2KeyName (\s a -> s { _eMRClusterJobFlowInstancesConfigEc2KeyName = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-jobflowinstancesconfig.html#cfn-emr-cluster-jobflowinstancesconfig-ec2subnetid+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-jobflowinstancesconfig.html#cfn-elasticmapreduce-cluster-jobflowinstancesconfig-ec2subnetid emrcjficEc2SubnetId :: Lens' EMRClusterJobFlowInstancesConfig (Maybe (Val Text)) emrcjficEc2SubnetId = lens _eMRClusterJobFlowInstancesConfigEc2SubnetId (\s a -> s { _eMRClusterJobFlowInstancesConfigEc2SubnetId = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-jobflowinstancesconfig.html#cfn-emr-cluster-jobflowinstancesconfig-emrmanagedmastersecuritygroup+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-jobflowinstancesconfig.html#cfn-elasticmapreduce-cluster-jobflowinstancesconfig-emrmanagedmastersecuritygroup emrcjficEmrManagedMasterSecurityGroup :: Lens' EMRClusterJobFlowInstancesConfig (Maybe (Val Text)) emrcjficEmrManagedMasterSecurityGroup = lens _eMRClusterJobFlowInstancesConfigEmrManagedMasterSecurityGroup (\s a -> s { _eMRClusterJobFlowInstancesConfigEmrManagedMasterSecurityGroup = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-jobflowinstancesconfig.html#cfn-emr-cluster-jobflowinstancesconfig-emrmanagedslavesecuritygroup+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-jobflowinstancesconfig.html#cfn-elasticmapreduce-cluster-jobflowinstancesconfig-emrmanagedslavesecuritygroup emrcjficEmrManagedSlaveSecurityGroup :: Lens' EMRClusterJobFlowInstancesConfig (Maybe (Val Text)) emrcjficEmrManagedSlaveSecurityGroup = lens _eMRClusterJobFlowInstancesConfigEmrManagedSlaveSecurityGroup (\s a -> s { _eMRClusterJobFlowInstancesConfigEmrManagedSlaveSecurityGroup = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-jobflowinstancesconfig.html#cfn-emr-cluster-jobflowinstancesconfig-hadoopversion+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-jobflowinstancesconfig.html#cfn-elasticmapreduce-cluster-jobflowinstancesconfig-hadoopversion emrcjficHadoopVersion :: Lens' EMRClusterJobFlowInstancesConfig (Maybe (Val Text)) emrcjficHadoopVersion = lens _eMRClusterJobFlowInstancesConfigHadoopVersion (\s a -> s { _eMRClusterJobFlowInstancesConfigHadoopVersion = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-jobflowinstancesconfig.html#cfn-elasticmapreduce-cluster-jobflowinstancesconfig-masterinstancefleet+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-jobflowinstancesconfig.html#cfn-elasticmapreduce-cluster-jobflowinstancesconfig-masterinstancefleet emrcjficMasterInstanceFleet :: Lens' EMRClusterJobFlowInstancesConfig (Maybe EMRClusterInstanceFleetConfig) emrcjficMasterInstanceFleet = lens _eMRClusterJobFlowInstancesConfigMasterInstanceFleet (\s a -> s { _eMRClusterJobFlowInstancesConfigMasterInstanceFleet = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-jobflowinstancesconfig.html#cfn-emr-cluster-jobflowinstancesconfig-coreinstancegroup+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-jobflowinstancesconfig.html#cfn-elasticmapreduce-cluster-jobflowinstancesconfig-masterinstancegroup emrcjficMasterInstanceGroup :: Lens' EMRClusterJobFlowInstancesConfig (Maybe EMRClusterInstanceGroupConfig) emrcjficMasterInstanceGroup = lens _eMRClusterJobFlowInstancesConfigMasterInstanceGroup (\s a -> s { _eMRClusterJobFlowInstancesConfigMasterInstanceGroup = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-jobflowinstancesconfig.html#cfn-emr-cluster-jobflowinstancesconfig-placement+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-jobflowinstancesconfig.html#cfn-elasticmapreduce-cluster-jobflowinstancesconfig-placement emrcjficPlacement :: Lens' EMRClusterJobFlowInstancesConfig (Maybe EMRClusterPlacementType) emrcjficPlacement = lens _eMRClusterJobFlowInstancesConfigPlacement (\s a -> s { _eMRClusterJobFlowInstancesConfigPlacement = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-jobflowinstancesconfig.html#cfn-emr-cluster-jobflowinstancesconfig-serviceaccesssecuritygroup+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-jobflowinstancesconfig.html#cfn-elasticmapreduce-cluster-jobflowinstancesconfig-serviceaccesssecuritygroup emrcjficServiceAccessSecurityGroup :: Lens' EMRClusterJobFlowInstancesConfig (Maybe (Val Text)) emrcjficServiceAccessSecurityGroup = lens _eMRClusterJobFlowInstancesConfigServiceAccessSecurityGroup (\s a -> s { _eMRClusterJobFlowInstancesConfigServiceAccessSecurityGroup = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-jobflowinstancesconfig.html#cfn-emr-cluster-jobflowinstancesconfig-terminationprotected+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-jobflowinstancesconfig.html#cfn-elasticmapreduce-cluster-jobflowinstancesconfig-terminationprotected emrcjficTerminationProtected :: Lens' EMRClusterJobFlowInstancesConfig (Maybe (Val Bool)) emrcjficTerminationProtected = lens _eMRClusterJobFlowInstancesConfigTerminationProtected (\s a -> s { _eMRClusterJobFlowInstancesConfigTerminationProtected = a })
library-gen/Stratosphere/ResourceProperties/EMRClusterPlacementType.hs view
@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-jobflowinstancesconfig-placementtype.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-placementtype.html  module Stratosphere.ResourceProperties.EMRClusterPlacementType where @@ -45,6 +45,6 @@   { _eMRClusterPlacementTypeAvailabilityZone = availabilityZonearg   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-jobflowinstancesconfig-placementtype.html#aws-properties-emr-cluster-jobflowinstancesconfig-placementtype+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-placementtype.html#cfn-elasticmapreduce-cluster-placementtype-availabilityzone emrcptAvailabilityZone :: Lens' EMRClusterPlacementType (Val Text) emrcptAvailabilityZone = lens _eMRClusterPlacementTypeAvailabilityZone (\s a -> s { _eMRClusterPlacementTypeAvailabilityZone = a })
library-gen/Stratosphere/ResourceProperties/EMRClusterScriptBootstrapActionConfig.hs view
@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-bootstrapactionconfig-scriptbootstrapactionconfig.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-scriptbootstrapactionconfig.html  module Stratosphere.ResourceProperties.EMRClusterScriptBootstrapActionConfig where @@ -50,10 +50,10 @@   , _eMRClusterScriptBootstrapActionConfigPath = patharg   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-bootstrapactionconfig-scriptbootstrapactionconfig.html#cfn-emr-cluster-bootstrapactionconfig-scriptbootstrapaction-args+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-scriptbootstrapactionconfig.html#cfn-elasticmapreduce-cluster-scriptbootstrapactionconfig-args emrcsbacArgs :: Lens' EMRClusterScriptBootstrapActionConfig (Maybe (ValList Text)) emrcsbacArgs = lens _eMRClusterScriptBootstrapActionConfigArgs (\s a -> s { _eMRClusterScriptBootstrapActionConfigArgs = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-bootstrapactionconfig-scriptbootstrapactionconfig.html#cfn-emr-cluster-bootstrapactionconfig-scriptbootstrapaction-path+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-scriptbootstrapactionconfig.html#cfn-elasticmapreduce-cluster-scriptbootstrapactionconfig-path emrcsbacPath :: Lens' EMRClusterScriptBootstrapActionConfig (Val Text) emrcsbacPath = lens _eMRClusterScriptBootstrapActionConfigPath (\s a -> s { _eMRClusterScriptBootstrapActionConfigPath = a })
library-gen/Stratosphere/ResourceProperties/EMRClusterVolumeSpecification.hs view
@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-ebsconfiguration-ebsblockdeviceconfig-volumespecification.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-volumespecification.html  module Stratosphere.ResourceProperties.EMRClusterVolumeSpecification where @@ -54,14 +54,14 @@   , _eMRClusterVolumeSpecificationVolumeType = volumeTypearg   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-ebsconfiguration-ebsblockdeviceconfig-volumespecification.html#cfn-emr-ebsconfiguration-ebsblockdeviceconfig-volumespecification-iops+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-volumespecification.html#cfn-elasticmapreduce-cluster-volumespecification-iops emrcvsIops :: Lens' EMRClusterVolumeSpecification (Maybe (Val Integer)) emrcvsIops = lens _eMRClusterVolumeSpecificationIops (\s a -> s { _eMRClusterVolumeSpecificationIops = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-ebsconfiguration-ebsblockdeviceconfig-volumespecification.html#cfn-emr-ebsconfiguration-ebsblockdeviceconfig-volumespecification-sizeingb+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-volumespecification.html#cfn-elasticmapreduce-cluster-volumespecification-sizeingb emrcvsSizeInGB :: Lens' EMRClusterVolumeSpecification (Val Integer) emrcvsSizeInGB = lens _eMRClusterVolumeSpecificationSizeInGB (\s a -> s { _eMRClusterVolumeSpecificationSizeInGB = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-ebsconfiguration-ebsblockdeviceconfig-volumespecification.html#cfn-emr-ebsconfiguration-ebsblockdeviceconfig-volumespecification-volumetype+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-volumespecification.html#cfn-elasticmapreduce-cluster-volumespecification-volumetype emrcvsVolumeType :: Lens' EMRClusterVolumeSpecification (Val Text) emrcvsVolumeType = lens _eMRClusterVolumeSpecificationVolumeType (\s a -> s { _eMRClusterVolumeSpecificationVolumeType = a })
library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting.hs view
@@ -23,6 +23,7 @@   ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting   { _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingNamespace :: Val Text   , _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingOptionName :: Val Text+  , _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingResourceName :: Maybe (Val Text)   , _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingValue :: Maybe (Val Text)   } deriving (Show, Eq) @@ -32,6 +33,7 @@     catMaybes     [ (Just . ("Namespace",) . toJSON) _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingNamespace     , (Just . ("OptionName",) . toJSON) _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingOptionName+    , fmap (("ResourceName",) . toJSON) _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingResourceName     , fmap (("Value",) . toJSON) _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingValue     ] @@ -40,6 +42,7 @@     ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting <$>       (obj .: "Namespace") <*>       (obj .: "OptionName") <*>+      (obj .:? "ResourceName") <*>       (obj .:? "Value")   parseJSON _ = mempty @@ -54,6 +57,7 @@   ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting   { _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingNamespace = namespacearg   , _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingOptionName = optionNamearg+  , _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingResourceName = Nothing   , _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingValue = Nothing   } @@ -64,6 +68,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-option-settings.html#cfn-beanstalk-optionsettings-optionname ebctcosOptionName :: Lens' ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting (Val Text) ebctcosOptionName = lens _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingOptionName (\s a -> s { _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingOptionName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-option-settings.html#cfn-elasticbeanstalk-configurationtemplate-configurationoptionsetting-resourcename+ebctcosResourceName :: Lens' ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting (Maybe (Val Text))+ebctcosResourceName = lens _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingResourceName (\s a -> s { _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingResourceName = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-option-settings.html#cfn-beanstalk-optionsettings-value ebctcosValue :: Lens' ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting (Maybe (Val Text))
library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkEnvironmentOptionSetting.hs view
@@ -22,6 +22,7 @@   ElasticBeanstalkEnvironmentOptionSetting   { _elasticBeanstalkEnvironmentOptionSettingNamespace :: Val Text   , _elasticBeanstalkEnvironmentOptionSettingOptionName :: Val Text+  , _elasticBeanstalkEnvironmentOptionSettingResourceName :: Maybe (Val Text)   , _elasticBeanstalkEnvironmentOptionSettingValue :: Maybe (Val Text)   } deriving (Show, Eq) @@ -31,6 +32,7 @@     catMaybes     [ (Just . ("Namespace",) . toJSON) _elasticBeanstalkEnvironmentOptionSettingNamespace     , (Just . ("OptionName",) . toJSON) _elasticBeanstalkEnvironmentOptionSettingOptionName+    , fmap (("ResourceName",) . toJSON) _elasticBeanstalkEnvironmentOptionSettingResourceName     , fmap (("Value",) . toJSON) _elasticBeanstalkEnvironmentOptionSettingValue     ] @@ -39,6 +41,7 @@     ElasticBeanstalkEnvironmentOptionSetting <$>       (obj .: "Namespace") <*>       (obj .: "OptionName") <*>+      (obj .:? "ResourceName") <*>       (obj .:? "Value")   parseJSON _ = mempty @@ -52,6 +55,7 @@   ElasticBeanstalkEnvironmentOptionSetting   { _elasticBeanstalkEnvironmentOptionSettingNamespace = namespacearg   , _elasticBeanstalkEnvironmentOptionSettingOptionName = optionNamearg+  , _elasticBeanstalkEnvironmentOptionSettingResourceName = Nothing   , _elasticBeanstalkEnvironmentOptionSettingValue = Nothing   } @@ -62,6 +66,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-option-settings.html#cfn-beanstalk-optionsettings-optionname ebeosOptionName :: Lens' ElasticBeanstalkEnvironmentOptionSetting (Val Text) ebeosOptionName = lens _elasticBeanstalkEnvironmentOptionSettingOptionName (\s a -> s { _elasticBeanstalkEnvironmentOptionSettingOptionName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-option-settings.html#cfn-elasticbeanstalk-environment-optionsetting-resourcename+ebeosResourceName :: Lens' ElasticBeanstalkEnvironmentOptionSetting (Maybe (Val Text))+ebeosResourceName = lens _elasticBeanstalkEnvironmentOptionSettingResourceName (\s a -> s { _elasticBeanstalkEnvironmentOptionSettingResourceName = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-option-settings.html#cfn-beanstalk-optionsettings-value ebeosValue :: Lens' ElasticBeanstalkEnvironmentOptionSetting (Maybe (Val Text))
+ library-gen/Stratosphere/ResourceProperties/GlueClassifierGrokClassifier.hs view
@@ -0,0 +1,75 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-classifier-grokclassifier.html++module Stratosphere.ResourceProperties.GlueClassifierGrokClassifier where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for GlueClassifierGrokClassifier. See+-- 'glueClassifierGrokClassifier' for a more convenient constructor.+data GlueClassifierGrokClassifier =+  GlueClassifierGrokClassifier+  { _glueClassifierGrokClassifierClassification :: Val Text+  , _glueClassifierGrokClassifierCustomPatterns :: Maybe (Val Text)+  , _glueClassifierGrokClassifierGrokPattern :: Val Text+  , _glueClassifierGrokClassifierName :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON GlueClassifierGrokClassifier where+  toJSON GlueClassifierGrokClassifier{..} =+    object $+    catMaybes+    [ (Just . ("Classification",) . toJSON) _glueClassifierGrokClassifierClassification+    , fmap (("CustomPatterns",) . toJSON) _glueClassifierGrokClassifierCustomPatterns+    , (Just . ("GrokPattern",) . toJSON) _glueClassifierGrokClassifierGrokPattern+    , fmap (("Name",) . toJSON) _glueClassifierGrokClassifierName+    ]++instance FromJSON GlueClassifierGrokClassifier where+  parseJSON (Object obj) =+    GlueClassifierGrokClassifier <$>+      (obj .: "Classification") <*>+      (obj .:? "CustomPatterns") <*>+      (obj .: "GrokPattern") <*>+      (obj .:? "Name")+  parseJSON _ = mempty++-- | Constructor for 'GlueClassifierGrokClassifier' containing required fields+-- as arguments.+glueClassifierGrokClassifier+  :: Val Text -- ^ 'gcgcClassification'+  -> Val Text -- ^ 'gcgcGrokPattern'+  -> GlueClassifierGrokClassifier+glueClassifierGrokClassifier classificationarg grokPatternarg =+  GlueClassifierGrokClassifier+  { _glueClassifierGrokClassifierClassification = classificationarg+  , _glueClassifierGrokClassifierCustomPatterns = Nothing+  , _glueClassifierGrokClassifierGrokPattern = grokPatternarg+  , _glueClassifierGrokClassifierName = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-classifier-grokclassifier.html#cfn-glue-classifier-grokclassifier-classification+gcgcClassification :: Lens' GlueClassifierGrokClassifier (Val Text)+gcgcClassification = lens _glueClassifierGrokClassifierClassification (\s a -> s { _glueClassifierGrokClassifierClassification = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-classifier-grokclassifier.html#cfn-glue-classifier-grokclassifier-custompatterns+gcgcCustomPatterns :: Lens' GlueClassifierGrokClassifier (Maybe (Val Text))+gcgcCustomPatterns = lens _glueClassifierGrokClassifierCustomPatterns (\s a -> s { _glueClassifierGrokClassifierCustomPatterns = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-classifier-grokclassifier.html#cfn-glue-classifier-grokclassifier-grokpattern+gcgcGrokPattern :: Lens' GlueClassifierGrokClassifier (Val Text)+gcgcGrokPattern = lens _glueClassifierGrokClassifierGrokPattern (\s a -> s { _glueClassifierGrokClassifierGrokPattern = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-classifier-grokclassifier.html#cfn-glue-classifier-grokclassifier-name+gcgcName :: Lens' GlueClassifierGrokClassifier (Maybe (Val Text))+gcgcName = lens _glueClassifierGrokClassifierName (\s a -> s { _glueClassifierGrokClassifierName = a })
+ library-gen/Stratosphere/ResourceProperties/GlueConnectionConnectionInput.hs view
@@ -0,0 +1,91 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-connection-connectioninput.html++module Stratosphere.ResourceProperties.GlueConnectionConnectionInput where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+import Stratosphere.ResourceProperties.GlueConnectionPhysicalConnectionRequirements++-- | Full data type definition for GlueConnectionConnectionInput. See+-- 'glueConnectionConnectionInput' for a more convenient constructor.+data GlueConnectionConnectionInput =+  GlueConnectionConnectionInput+  { _glueConnectionConnectionInputConnectionProperties :: Object+  , _glueConnectionConnectionInputConnectionType :: Val Text+  , _glueConnectionConnectionInputDescription :: Maybe (Val Text)+  , _glueConnectionConnectionInputMatchCriteria :: Maybe (ValList Text)+  , _glueConnectionConnectionInputName :: Maybe (Val Text)+  , _glueConnectionConnectionInputPhysicalConnectionRequirements :: Maybe GlueConnectionPhysicalConnectionRequirements+  } deriving (Show, Eq)++instance ToJSON GlueConnectionConnectionInput where+  toJSON GlueConnectionConnectionInput{..} =+    object $+    catMaybes+    [ (Just . ("ConnectionProperties",) . toJSON) _glueConnectionConnectionInputConnectionProperties+    , (Just . ("ConnectionType",) . toJSON) _glueConnectionConnectionInputConnectionType+    , fmap (("Description",) . toJSON) _glueConnectionConnectionInputDescription+    , fmap (("MatchCriteria",) . toJSON) _glueConnectionConnectionInputMatchCriteria+    , fmap (("Name",) . toJSON) _glueConnectionConnectionInputName+    , fmap (("PhysicalConnectionRequirements",) . toJSON) _glueConnectionConnectionInputPhysicalConnectionRequirements+    ]++instance FromJSON GlueConnectionConnectionInput where+  parseJSON (Object obj) =+    GlueConnectionConnectionInput <$>+      (obj .: "ConnectionProperties") <*>+      (obj .: "ConnectionType") <*>+      (obj .:? "Description") <*>+      (obj .:? "MatchCriteria") <*>+      (obj .:? "Name") <*>+      (obj .:? "PhysicalConnectionRequirements")+  parseJSON _ = mempty++-- | Constructor for 'GlueConnectionConnectionInput' containing required+-- fields as arguments.+glueConnectionConnectionInput+  :: Object -- ^ 'gcciConnectionProperties'+  -> Val Text -- ^ 'gcciConnectionType'+  -> GlueConnectionConnectionInput+glueConnectionConnectionInput connectionPropertiesarg connectionTypearg =+  GlueConnectionConnectionInput+  { _glueConnectionConnectionInputConnectionProperties = connectionPropertiesarg+  , _glueConnectionConnectionInputConnectionType = connectionTypearg+  , _glueConnectionConnectionInputDescription = Nothing+  , _glueConnectionConnectionInputMatchCriteria = Nothing+  , _glueConnectionConnectionInputName = Nothing+  , _glueConnectionConnectionInputPhysicalConnectionRequirements = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-connection-connectioninput.html#cfn-glue-connection-connectioninput-connectionproperties+gcciConnectionProperties :: Lens' GlueConnectionConnectionInput Object+gcciConnectionProperties = lens _glueConnectionConnectionInputConnectionProperties (\s a -> s { _glueConnectionConnectionInputConnectionProperties = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-connection-connectioninput.html#cfn-glue-connection-connectioninput-connectiontype+gcciConnectionType :: Lens' GlueConnectionConnectionInput (Val Text)+gcciConnectionType = lens _glueConnectionConnectionInputConnectionType (\s a -> s { _glueConnectionConnectionInputConnectionType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-connection-connectioninput.html#cfn-glue-connection-connectioninput-description+gcciDescription :: Lens' GlueConnectionConnectionInput (Maybe (Val Text))+gcciDescription = lens _glueConnectionConnectionInputDescription (\s a -> s { _glueConnectionConnectionInputDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-connection-connectioninput.html#cfn-glue-connection-connectioninput-matchcriteria+gcciMatchCriteria :: Lens' GlueConnectionConnectionInput (Maybe (ValList Text))+gcciMatchCriteria = lens _glueConnectionConnectionInputMatchCriteria (\s a -> s { _glueConnectionConnectionInputMatchCriteria = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-connection-connectioninput.html#cfn-glue-connection-connectioninput-name+gcciName :: Lens' GlueConnectionConnectionInput (Maybe (Val Text))+gcciName = lens _glueConnectionConnectionInputName (\s a -> s { _glueConnectionConnectionInputName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-connection-connectioninput.html#cfn-glue-connection-connectioninput-physicalconnectionrequirements+gcciPhysicalConnectionRequirements :: Lens' GlueConnectionConnectionInput (Maybe GlueConnectionPhysicalConnectionRequirements)+gcciPhysicalConnectionRequirements = lens _glueConnectionConnectionInputPhysicalConnectionRequirements (\s a -> s { _glueConnectionConnectionInputPhysicalConnectionRequirements = a })
+ library-gen/Stratosphere/ResourceProperties/GlueConnectionPhysicalConnectionRequirements.hs view
@@ -0,0 +1,67 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-connection-physicalconnectionrequirements.html++module Stratosphere.ResourceProperties.GlueConnectionPhysicalConnectionRequirements where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for+-- GlueConnectionPhysicalConnectionRequirements. See+-- 'glueConnectionPhysicalConnectionRequirements' for a more convenient+-- constructor.+data GlueConnectionPhysicalConnectionRequirements =+  GlueConnectionPhysicalConnectionRequirements+  { _glueConnectionPhysicalConnectionRequirementsAvailabilityZone :: Maybe (Val Text)+  , _glueConnectionPhysicalConnectionRequirementsSecurityGroupIdList :: Maybe (ValList Text)+  , _glueConnectionPhysicalConnectionRequirementsSubnetId :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON GlueConnectionPhysicalConnectionRequirements where+  toJSON GlueConnectionPhysicalConnectionRequirements{..} =+    object $+    catMaybes+    [ fmap (("AvailabilityZone",) . toJSON) _glueConnectionPhysicalConnectionRequirementsAvailabilityZone+    , fmap (("SecurityGroupIdList",) . toJSON) _glueConnectionPhysicalConnectionRequirementsSecurityGroupIdList+    , fmap (("SubnetId",) . toJSON) _glueConnectionPhysicalConnectionRequirementsSubnetId+    ]++instance FromJSON GlueConnectionPhysicalConnectionRequirements where+  parseJSON (Object obj) =+    GlueConnectionPhysicalConnectionRequirements <$>+      (obj .:? "AvailabilityZone") <*>+      (obj .:? "SecurityGroupIdList") <*>+      (obj .:? "SubnetId")+  parseJSON _ = mempty++-- | Constructor for 'GlueConnectionPhysicalConnectionRequirements' containing+-- required fields as arguments.+glueConnectionPhysicalConnectionRequirements+  :: GlueConnectionPhysicalConnectionRequirements+glueConnectionPhysicalConnectionRequirements  =+  GlueConnectionPhysicalConnectionRequirements+  { _glueConnectionPhysicalConnectionRequirementsAvailabilityZone = Nothing+  , _glueConnectionPhysicalConnectionRequirementsSecurityGroupIdList = Nothing+  , _glueConnectionPhysicalConnectionRequirementsSubnetId = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-connection-physicalconnectionrequirements.html#cfn-glue-connection-physicalconnectionrequirements-availabilityzone+gcpcrAvailabilityZone :: Lens' GlueConnectionPhysicalConnectionRequirements (Maybe (Val Text))+gcpcrAvailabilityZone = lens _glueConnectionPhysicalConnectionRequirementsAvailabilityZone (\s a -> s { _glueConnectionPhysicalConnectionRequirementsAvailabilityZone = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-connection-physicalconnectionrequirements.html#cfn-glue-connection-physicalconnectionrequirements-securitygroupidlist+gcpcrSecurityGroupIdList :: Lens' GlueConnectionPhysicalConnectionRequirements (Maybe (ValList Text))+gcpcrSecurityGroupIdList = lens _glueConnectionPhysicalConnectionRequirementsSecurityGroupIdList (\s a -> s { _glueConnectionPhysicalConnectionRequirementsSecurityGroupIdList = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-connection-physicalconnectionrequirements.html#cfn-glue-connection-physicalconnectionrequirements-subnetid+gcpcrSubnetId :: Lens' GlueConnectionPhysicalConnectionRequirements (Maybe (Val Text))+gcpcrSubnetId = lens _glueConnectionPhysicalConnectionRequirementsSubnetId (\s a -> s { _glueConnectionPhysicalConnectionRequirementsSubnetId = a })
+ library-gen/Stratosphere/ResourceProperties/GlueCrawlerJdbcTarget.hs view
@@ -0,0 +1,65 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-jdbctarget.html++module Stratosphere.ResourceProperties.GlueCrawlerJdbcTarget where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for GlueCrawlerJdbcTarget. See+-- 'glueCrawlerJdbcTarget' for a more convenient constructor.+data GlueCrawlerJdbcTarget =+  GlueCrawlerJdbcTarget+  { _glueCrawlerJdbcTargetConnectionName :: Maybe (Val Text)+  , _glueCrawlerJdbcTargetExclusions :: Maybe (ValList Text)+  , _glueCrawlerJdbcTargetPath :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON GlueCrawlerJdbcTarget where+  toJSON GlueCrawlerJdbcTarget{..} =+    object $+    catMaybes+    [ fmap (("ConnectionName",) . toJSON) _glueCrawlerJdbcTargetConnectionName+    , fmap (("Exclusions",) . toJSON) _glueCrawlerJdbcTargetExclusions+    , fmap (("Path",) . toJSON) _glueCrawlerJdbcTargetPath+    ]++instance FromJSON GlueCrawlerJdbcTarget where+  parseJSON (Object obj) =+    GlueCrawlerJdbcTarget <$>+      (obj .:? "ConnectionName") <*>+      (obj .:? "Exclusions") <*>+      (obj .:? "Path")+  parseJSON _ = mempty++-- | Constructor for 'GlueCrawlerJdbcTarget' containing required fields as+-- arguments.+glueCrawlerJdbcTarget+  :: GlueCrawlerJdbcTarget+glueCrawlerJdbcTarget  =+  GlueCrawlerJdbcTarget+  { _glueCrawlerJdbcTargetConnectionName = Nothing+  , _glueCrawlerJdbcTargetExclusions = Nothing+  , _glueCrawlerJdbcTargetPath = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-jdbctarget.html#cfn-glue-crawler-jdbctarget-connectionname+gcjtConnectionName :: Lens' GlueCrawlerJdbcTarget (Maybe (Val Text))+gcjtConnectionName = lens _glueCrawlerJdbcTargetConnectionName (\s a -> s { _glueCrawlerJdbcTargetConnectionName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-jdbctarget.html#cfn-glue-crawler-jdbctarget-exclusions+gcjtExclusions :: Lens' GlueCrawlerJdbcTarget (Maybe (ValList Text))+gcjtExclusions = lens _glueCrawlerJdbcTargetExclusions (\s a -> s { _glueCrawlerJdbcTargetExclusions = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-jdbctarget.html#cfn-glue-crawler-jdbctarget-path+gcjtPath :: Lens' GlueCrawlerJdbcTarget (Maybe (Val Text))+gcjtPath = lens _glueCrawlerJdbcTargetPath (\s a -> s { _glueCrawlerJdbcTargetPath = a })
+ library-gen/Stratosphere/ResourceProperties/GlueCrawlerS3Target.hs view
@@ -0,0 +1,57 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-s3target.html++module Stratosphere.ResourceProperties.GlueCrawlerS3Target where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for GlueCrawlerS3Target. See+-- 'glueCrawlerS3Target' for a more convenient constructor.+data GlueCrawlerS3Target =+  GlueCrawlerS3Target+  { _glueCrawlerS3TargetExclusions :: Maybe (ValList Text)+  , _glueCrawlerS3TargetPath :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON GlueCrawlerS3Target where+  toJSON GlueCrawlerS3Target{..} =+    object $+    catMaybes+    [ fmap (("Exclusions",) . toJSON) _glueCrawlerS3TargetExclusions+    , fmap (("Path",) . toJSON) _glueCrawlerS3TargetPath+    ]++instance FromJSON GlueCrawlerS3Target where+  parseJSON (Object obj) =+    GlueCrawlerS3Target <$>+      (obj .:? "Exclusions") <*>+      (obj .:? "Path")+  parseJSON _ = mempty++-- | Constructor for 'GlueCrawlerS3Target' containing required fields as+-- arguments.+glueCrawlerS3Target+  :: GlueCrawlerS3Target+glueCrawlerS3Target  =+  GlueCrawlerS3Target+  { _glueCrawlerS3TargetExclusions = Nothing+  , _glueCrawlerS3TargetPath = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-s3target.html#cfn-glue-crawler-s3target-exclusions+gcstExclusions :: Lens' GlueCrawlerS3Target (Maybe (ValList Text))+gcstExclusions = lens _glueCrawlerS3TargetExclusions (\s a -> s { _glueCrawlerS3TargetExclusions = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-s3target.html#cfn-glue-crawler-s3target-path+gcstPath :: Lens' GlueCrawlerS3Target (Maybe (Val Text))+gcstPath = lens _glueCrawlerS3TargetPath (\s a -> s { _glueCrawlerS3TargetPath = a })
+ library-gen/Stratosphere/ResourceProperties/GlueCrawlerSchedule.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-schedule.html++module Stratosphere.ResourceProperties.GlueCrawlerSchedule where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for GlueCrawlerSchedule. See+-- 'glueCrawlerSchedule' for a more convenient constructor.+data GlueCrawlerSchedule =+  GlueCrawlerSchedule+  { _glueCrawlerScheduleScheduleExpression :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON GlueCrawlerSchedule where+  toJSON GlueCrawlerSchedule{..} =+    object $+    catMaybes+    [ fmap (("ScheduleExpression",) . toJSON) _glueCrawlerScheduleScheduleExpression+    ]++instance FromJSON GlueCrawlerSchedule where+  parseJSON (Object obj) =+    GlueCrawlerSchedule <$>+      (obj .:? "ScheduleExpression")+  parseJSON _ = mempty++-- | Constructor for 'GlueCrawlerSchedule' containing required fields as+-- arguments.+glueCrawlerSchedule+  :: GlueCrawlerSchedule+glueCrawlerSchedule  =+  GlueCrawlerSchedule+  { _glueCrawlerScheduleScheduleExpression = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-schedule.html#cfn-glue-crawler-schedule-scheduleexpression+gcsScheduleExpression :: Lens' GlueCrawlerSchedule (Maybe (Val Text))+gcsScheduleExpression = lens _glueCrawlerScheduleScheduleExpression (\s a -> s { _glueCrawlerScheduleScheduleExpression = a })
+ library-gen/Stratosphere/ResourceProperties/GlueCrawlerSchemaChangePolicy.hs view
@@ -0,0 +1,57 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-schemachangepolicy.html++module Stratosphere.ResourceProperties.GlueCrawlerSchemaChangePolicy where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for GlueCrawlerSchemaChangePolicy. See+-- 'glueCrawlerSchemaChangePolicy' for a more convenient constructor.+data GlueCrawlerSchemaChangePolicy =+  GlueCrawlerSchemaChangePolicy+  { _glueCrawlerSchemaChangePolicyDeleteBehavior :: Maybe (Val Text)+  , _glueCrawlerSchemaChangePolicyUpdateBehavior :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON GlueCrawlerSchemaChangePolicy where+  toJSON GlueCrawlerSchemaChangePolicy{..} =+    object $+    catMaybes+    [ fmap (("DeleteBehavior",) . toJSON) _glueCrawlerSchemaChangePolicyDeleteBehavior+    , fmap (("UpdateBehavior",) . toJSON) _glueCrawlerSchemaChangePolicyUpdateBehavior+    ]++instance FromJSON GlueCrawlerSchemaChangePolicy where+  parseJSON (Object obj) =+    GlueCrawlerSchemaChangePolicy <$>+      (obj .:? "DeleteBehavior") <*>+      (obj .:? "UpdateBehavior")+  parseJSON _ = mempty++-- | Constructor for 'GlueCrawlerSchemaChangePolicy' containing required+-- fields as arguments.+glueCrawlerSchemaChangePolicy+  :: GlueCrawlerSchemaChangePolicy+glueCrawlerSchemaChangePolicy  =+  GlueCrawlerSchemaChangePolicy+  { _glueCrawlerSchemaChangePolicyDeleteBehavior = Nothing+  , _glueCrawlerSchemaChangePolicyUpdateBehavior = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-schemachangepolicy.html#cfn-glue-crawler-schemachangepolicy-deletebehavior+gcscpDeleteBehavior :: Lens' GlueCrawlerSchemaChangePolicy (Maybe (Val Text))+gcscpDeleteBehavior = lens _glueCrawlerSchemaChangePolicyDeleteBehavior (\s a -> s { _glueCrawlerSchemaChangePolicyDeleteBehavior = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-schemachangepolicy.html#cfn-glue-crawler-schemachangepolicy-updatebehavior+gcscpUpdateBehavior :: Lens' GlueCrawlerSchemaChangePolicy (Maybe (Val Text))+gcscpUpdateBehavior = lens _glueCrawlerSchemaChangePolicyUpdateBehavior (\s a -> s { _glueCrawlerSchemaChangePolicyUpdateBehavior = a })
+ library-gen/Stratosphere/ResourceProperties/GlueCrawlerTargets.hs view
@@ -0,0 +1,58 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-targets.html++module Stratosphere.ResourceProperties.GlueCrawlerTargets where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+import Stratosphere.ResourceProperties.GlueCrawlerJdbcTarget+import Stratosphere.ResourceProperties.GlueCrawlerS3Target++-- | Full data type definition for GlueCrawlerTargets. See+-- 'glueCrawlerTargets' for a more convenient constructor.+data GlueCrawlerTargets =+  GlueCrawlerTargets+  { _glueCrawlerTargetsJdbcTargets :: Maybe [GlueCrawlerJdbcTarget]+  , _glueCrawlerTargetsS3Targets :: Maybe [GlueCrawlerS3Target]+  } deriving (Show, Eq)++instance ToJSON GlueCrawlerTargets where+  toJSON GlueCrawlerTargets{..} =+    object $+    catMaybes+    [ fmap (("JdbcTargets",) . toJSON) _glueCrawlerTargetsJdbcTargets+    , fmap (("S3Targets",) . toJSON) _glueCrawlerTargetsS3Targets+    ]++instance FromJSON GlueCrawlerTargets where+  parseJSON (Object obj) =+    GlueCrawlerTargets <$>+      (obj .:? "JdbcTargets") <*>+      (obj .:? "S3Targets")+  parseJSON _ = mempty++-- | Constructor for 'GlueCrawlerTargets' containing required fields as+-- arguments.+glueCrawlerTargets+  :: GlueCrawlerTargets+glueCrawlerTargets  =+  GlueCrawlerTargets+  { _glueCrawlerTargetsJdbcTargets = Nothing+  , _glueCrawlerTargetsS3Targets = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-targets.html#cfn-glue-crawler-targets-jdbctargets+gctJdbcTargets :: Lens' GlueCrawlerTargets (Maybe [GlueCrawlerJdbcTarget])+gctJdbcTargets = lens _glueCrawlerTargetsJdbcTargets (\s a -> s { _glueCrawlerTargetsJdbcTargets = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-targets.html#cfn-glue-crawler-targets-s3targets+gctS3Targets :: Lens' GlueCrawlerTargets (Maybe [GlueCrawlerS3Target])+gctS3Targets = lens _glueCrawlerTargetsS3Targets (\s a -> s { _glueCrawlerTargetsS3Targets = a })
+ library-gen/Stratosphere/ResourceProperties/GlueDatabaseDatabaseInput.hs view
@@ -0,0 +1,73 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-database-databaseinput.html++module Stratosphere.ResourceProperties.GlueDatabaseDatabaseInput where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for GlueDatabaseDatabaseInput. See+-- 'glueDatabaseDatabaseInput' for a more convenient constructor.+data GlueDatabaseDatabaseInput =+  GlueDatabaseDatabaseInput+  { _glueDatabaseDatabaseInputDescription :: Maybe (Val Text)+  , _glueDatabaseDatabaseInputLocationUri :: Maybe (Val Text)+  , _glueDatabaseDatabaseInputName :: Maybe (Val Text)+  , _glueDatabaseDatabaseInputParameters :: Maybe Object+  } deriving (Show, Eq)++instance ToJSON GlueDatabaseDatabaseInput where+  toJSON GlueDatabaseDatabaseInput{..} =+    object $+    catMaybes+    [ fmap (("Description",) . toJSON) _glueDatabaseDatabaseInputDescription+    , fmap (("LocationUri",) . toJSON) _glueDatabaseDatabaseInputLocationUri+    , fmap (("Name",) . toJSON) _glueDatabaseDatabaseInputName+    , fmap (("Parameters",) . toJSON) _glueDatabaseDatabaseInputParameters+    ]++instance FromJSON GlueDatabaseDatabaseInput where+  parseJSON (Object obj) =+    GlueDatabaseDatabaseInput <$>+      (obj .:? "Description") <*>+      (obj .:? "LocationUri") <*>+      (obj .:? "Name") <*>+      (obj .:? "Parameters")+  parseJSON _ = mempty++-- | Constructor for 'GlueDatabaseDatabaseInput' containing required fields as+-- arguments.+glueDatabaseDatabaseInput+  :: GlueDatabaseDatabaseInput+glueDatabaseDatabaseInput  =+  GlueDatabaseDatabaseInput+  { _glueDatabaseDatabaseInputDescription = Nothing+  , _glueDatabaseDatabaseInputLocationUri = Nothing+  , _glueDatabaseDatabaseInputName = Nothing+  , _glueDatabaseDatabaseInputParameters = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-database-databaseinput.html#cfn-glue-database-databaseinput-description+gddiDescription :: Lens' GlueDatabaseDatabaseInput (Maybe (Val Text))+gddiDescription = lens _glueDatabaseDatabaseInputDescription (\s a -> s { _glueDatabaseDatabaseInputDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-database-databaseinput.html#cfn-glue-database-databaseinput-locationuri+gddiLocationUri :: Lens' GlueDatabaseDatabaseInput (Maybe (Val Text))+gddiLocationUri = lens _glueDatabaseDatabaseInputLocationUri (\s a -> s { _glueDatabaseDatabaseInputLocationUri = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-database-databaseinput.html#cfn-glue-database-databaseinput-name+gddiName :: Lens' GlueDatabaseDatabaseInput (Maybe (Val Text))+gddiName = lens _glueDatabaseDatabaseInputName (\s a -> s { _glueDatabaseDatabaseInputName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-database-databaseinput.html#cfn-glue-database-databaseinput-parameters+gddiParameters :: Lens' GlueDatabaseDatabaseInput (Maybe Object)+gddiParameters = lens _glueDatabaseDatabaseInputParameters (\s a -> s { _glueDatabaseDatabaseInputParameters = a })
+ library-gen/Stratosphere/ResourceProperties/GlueJobConnectionsList.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-job-connectionslist.html++module Stratosphere.ResourceProperties.GlueJobConnectionsList where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for GlueJobConnectionsList. See+-- 'glueJobConnectionsList' for a more convenient constructor.+data GlueJobConnectionsList =+  GlueJobConnectionsList+  { _glueJobConnectionsListConnections :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON GlueJobConnectionsList where+  toJSON GlueJobConnectionsList{..} =+    object $+    catMaybes+    [ fmap (("Connections",) . toJSON) _glueJobConnectionsListConnections+    ]++instance FromJSON GlueJobConnectionsList where+  parseJSON (Object obj) =+    GlueJobConnectionsList <$>+      (obj .:? "Connections")+  parseJSON _ = mempty++-- | Constructor for 'GlueJobConnectionsList' containing required fields as+-- arguments.+glueJobConnectionsList+  :: GlueJobConnectionsList+glueJobConnectionsList  =+  GlueJobConnectionsList+  { _glueJobConnectionsListConnections = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-job-connectionslist.html#cfn-glue-job-connectionslist-connections+gjclConnections :: Lens' GlueJobConnectionsList (Maybe (ValList Text))+gjclConnections = lens _glueJobConnectionsListConnections (\s a -> s { _glueJobConnectionsListConnections = a })
+ library-gen/Stratosphere/ResourceProperties/GlueJobExecutionProperty.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-job-executionproperty.html++module Stratosphere.ResourceProperties.GlueJobExecutionProperty where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for GlueJobExecutionProperty. See+-- 'glueJobExecutionProperty' for a more convenient constructor.+data GlueJobExecutionProperty =+  GlueJobExecutionProperty+  { _glueJobExecutionPropertyMaxConcurrentRuns :: Maybe (Val Double)+  } deriving (Show, Eq)++instance ToJSON GlueJobExecutionProperty where+  toJSON GlueJobExecutionProperty{..} =+    object $+    catMaybes+    [ fmap (("MaxConcurrentRuns",) . toJSON . fmap Double') _glueJobExecutionPropertyMaxConcurrentRuns+    ]++instance FromJSON GlueJobExecutionProperty where+  parseJSON (Object obj) =+    GlueJobExecutionProperty <$>+      fmap (fmap (fmap unDouble')) (obj .:? "MaxConcurrentRuns")+  parseJSON _ = mempty++-- | Constructor for 'GlueJobExecutionProperty' containing required fields as+-- arguments.+glueJobExecutionProperty+  :: GlueJobExecutionProperty+glueJobExecutionProperty  =+  GlueJobExecutionProperty+  { _glueJobExecutionPropertyMaxConcurrentRuns = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-job-executionproperty.html#cfn-glue-job-executionproperty-maxconcurrentruns+gjepMaxConcurrentRuns :: Lens' GlueJobExecutionProperty (Maybe (Val Double))+gjepMaxConcurrentRuns = lens _glueJobExecutionPropertyMaxConcurrentRuns (\s a -> s { _glueJobExecutionPropertyMaxConcurrentRuns = a })
+ library-gen/Stratosphere/ResourceProperties/GlueJobJobCommand.hs view
@@ -0,0 +1,57 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-job-jobcommand.html++module Stratosphere.ResourceProperties.GlueJobJobCommand where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for GlueJobJobCommand. See 'glueJobJobCommand'+-- for a more convenient constructor.+data GlueJobJobCommand =+  GlueJobJobCommand+  { _glueJobJobCommandName :: Maybe (Val Text)+  , _glueJobJobCommandScriptLocation :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON GlueJobJobCommand where+  toJSON GlueJobJobCommand{..} =+    object $+    catMaybes+    [ fmap (("Name",) . toJSON) _glueJobJobCommandName+    , fmap (("ScriptLocation",) . toJSON) _glueJobJobCommandScriptLocation+    ]++instance FromJSON GlueJobJobCommand where+  parseJSON (Object obj) =+    GlueJobJobCommand <$>+      (obj .:? "Name") <*>+      (obj .:? "ScriptLocation")+  parseJSON _ = mempty++-- | Constructor for 'GlueJobJobCommand' containing required fields as+-- arguments.+glueJobJobCommand+  :: GlueJobJobCommand+glueJobJobCommand  =+  GlueJobJobCommand+  { _glueJobJobCommandName = Nothing+  , _glueJobJobCommandScriptLocation = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-job-jobcommand.html#cfn-glue-job-jobcommand-name+gjjcName :: Lens' GlueJobJobCommand (Maybe (Val Text))+gjjcName = lens _glueJobJobCommandName (\s a -> s { _glueJobJobCommandName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-job-jobcommand.html#cfn-glue-job-jobcommand-scriptlocation+gjjcScriptLocation :: Lens' GlueJobJobCommand (Maybe (Val Text))+gjjcScriptLocation = lens _glueJobJobCommandScriptLocation (\s a -> s { _glueJobJobCommandScriptLocation = a })
+ library-gen/Stratosphere/ResourceProperties/GluePartitionColumn.hs view
@@ -0,0 +1,66 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-column.html++module Stratosphere.ResourceProperties.GluePartitionColumn where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for GluePartitionColumn. See+-- 'gluePartitionColumn' for a more convenient constructor.+data GluePartitionColumn =+  GluePartitionColumn+  { _gluePartitionColumnComment :: Maybe (Val Text)+  , _gluePartitionColumnName :: Val Text+  , _gluePartitionColumnType :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON GluePartitionColumn where+  toJSON GluePartitionColumn{..} =+    object $+    catMaybes+    [ fmap (("Comment",) . toJSON) _gluePartitionColumnComment+    , (Just . ("Name",) . toJSON) _gluePartitionColumnName+    , fmap (("Type",) . toJSON) _gluePartitionColumnType+    ]++instance FromJSON GluePartitionColumn where+  parseJSON (Object obj) =+    GluePartitionColumn <$>+      (obj .:? "Comment") <*>+      (obj .: "Name") <*>+      (obj .:? "Type")+  parseJSON _ = mempty++-- | Constructor for 'GluePartitionColumn' containing required fields as+-- arguments.+gluePartitionColumn+  :: Val Text -- ^ 'gpcName'+  -> GluePartitionColumn+gluePartitionColumn namearg =+  GluePartitionColumn+  { _gluePartitionColumnComment = Nothing+  , _gluePartitionColumnName = namearg+  , _gluePartitionColumnType = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-column.html#cfn-glue-partition-column-comment+gpcComment :: Lens' GluePartitionColumn (Maybe (Val Text))+gpcComment = lens _gluePartitionColumnComment (\s a -> s { _gluePartitionColumnComment = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-column.html#cfn-glue-partition-column-name+gpcName :: Lens' GluePartitionColumn (Val Text)+gpcName = lens _gluePartitionColumnName (\s a -> s { _gluePartitionColumnName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-column.html#cfn-glue-partition-column-type+gpcType :: Lens' GluePartitionColumn (Maybe (Val Text))+gpcType = lens _gluePartitionColumnType (\s a -> s { _gluePartitionColumnType = a })
+ library-gen/Stratosphere/ResourceProperties/GluePartitionOrder.hs view
@@ -0,0 +1,58 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-order.html++module Stratosphere.ResourceProperties.GluePartitionOrder where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for GluePartitionOrder. See+-- 'gluePartitionOrder' for a more convenient constructor.+data GluePartitionOrder =+  GluePartitionOrder+  { _gluePartitionOrderColumn :: Val Text+  , _gluePartitionOrderSortOrder :: Maybe (Val Integer)+  } deriving (Show, Eq)++instance ToJSON GluePartitionOrder where+  toJSON GluePartitionOrder{..} =+    object $+    catMaybes+    [ (Just . ("Column",) . toJSON) _gluePartitionOrderColumn+    , fmap (("SortOrder",) . toJSON . fmap Integer') _gluePartitionOrderSortOrder+    ]++instance FromJSON GluePartitionOrder where+  parseJSON (Object obj) =+    GluePartitionOrder <$>+      (obj .: "Column") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "SortOrder")+  parseJSON _ = mempty++-- | Constructor for 'GluePartitionOrder' containing required fields as+-- arguments.+gluePartitionOrder+  :: Val Text -- ^ 'gpoColumn'+  -> GluePartitionOrder+gluePartitionOrder columnarg =+  GluePartitionOrder+  { _gluePartitionOrderColumn = columnarg+  , _gluePartitionOrderSortOrder = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-order.html#cfn-glue-partition-order-column+gpoColumn :: Lens' GluePartitionOrder (Val Text)+gpoColumn = lens _gluePartitionOrderColumn (\s a -> s { _gluePartitionOrderColumn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-order.html#cfn-glue-partition-order-sortorder+gpoSortOrder :: Lens' GluePartitionOrder (Maybe (Val Integer))+gpoSortOrder = lens _gluePartitionOrderSortOrder (\s a -> s { _gluePartitionOrderSortOrder = a })
+ library-gen/Stratosphere/ResourceProperties/GluePartitionPartitionInput.hs view
@@ -0,0 +1,66 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-partitioninput.html++module Stratosphere.ResourceProperties.GluePartitionPartitionInput where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+import Stratosphere.ResourceProperties.GluePartitionStorageDescriptor++-- | Full data type definition for GluePartitionPartitionInput. See+-- 'gluePartitionPartitionInput' for a more convenient constructor.+data GluePartitionPartitionInput =+  GluePartitionPartitionInput+  { _gluePartitionPartitionInputParameters :: Maybe Object+  , _gluePartitionPartitionInputStorageDescriptor :: Maybe GluePartitionStorageDescriptor+  , _gluePartitionPartitionInputValues :: ValList Text+  } deriving (Show, Eq)++instance ToJSON GluePartitionPartitionInput where+  toJSON GluePartitionPartitionInput{..} =+    object $+    catMaybes+    [ fmap (("Parameters",) . toJSON) _gluePartitionPartitionInputParameters+    , fmap (("StorageDescriptor",) . toJSON) _gluePartitionPartitionInputStorageDescriptor+    , (Just . ("Values",) . toJSON) _gluePartitionPartitionInputValues+    ]++instance FromJSON GluePartitionPartitionInput where+  parseJSON (Object obj) =+    GluePartitionPartitionInput <$>+      (obj .:? "Parameters") <*>+      (obj .:? "StorageDescriptor") <*>+      (obj .: "Values")+  parseJSON _ = mempty++-- | Constructor for 'GluePartitionPartitionInput' containing required fields+-- as arguments.+gluePartitionPartitionInput+  :: ValList Text -- ^ 'gppiValues'+  -> GluePartitionPartitionInput+gluePartitionPartitionInput valuesarg =+  GluePartitionPartitionInput+  { _gluePartitionPartitionInputParameters = Nothing+  , _gluePartitionPartitionInputStorageDescriptor = Nothing+  , _gluePartitionPartitionInputValues = valuesarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-partitioninput.html#cfn-glue-partition-partitioninput-parameters+gppiParameters :: Lens' GluePartitionPartitionInput (Maybe Object)+gppiParameters = lens _gluePartitionPartitionInputParameters (\s a -> s { _gluePartitionPartitionInputParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-partitioninput.html#cfn-glue-partition-partitioninput-storagedescriptor+gppiStorageDescriptor :: Lens' GluePartitionPartitionInput (Maybe GluePartitionStorageDescriptor)+gppiStorageDescriptor = lens _gluePartitionPartitionInputStorageDescriptor (\s a -> s { _gluePartitionPartitionInputStorageDescriptor = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-partitioninput.html#cfn-glue-partition-partitioninput-values+gppiValues :: Lens' GluePartitionPartitionInput (ValList Text)+gppiValues = lens _gluePartitionPartitionInputValues (\s a -> s { _gluePartitionPartitionInputValues = a })
+ library-gen/Stratosphere/ResourceProperties/GluePartitionSerdeInfo.hs view
@@ -0,0 +1,65 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-serdeinfo.html++module Stratosphere.ResourceProperties.GluePartitionSerdeInfo where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for GluePartitionSerdeInfo. See+-- 'gluePartitionSerdeInfo' for a more convenient constructor.+data GluePartitionSerdeInfo =+  GluePartitionSerdeInfo+  { _gluePartitionSerdeInfoName :: Maybe (Val Text)+  , _gluePartitionSerdeInfoParameters :: Maybe Object+  , _gluePartitionSerdeInfoSerializationLibrary :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON GluePartitionSerdeInfo where+  toJSON GluePartitionSerdeInfo{..} =+    object $+    catMaybes+    [ fmap (("Name",) . toJSON) _gluePartitionSerdeInfoName+    , fmap (("Parameters",) . toJSON) _gluePartitionSerdeInfoParameters+    , fmap (("SerializationLibrary",) . toJSON) _gluePartitionSerdeInfoSerializationLibrary+    ]++instance FromJSON GluePartitionSerdeInfo where+  parseJSON (Object obj) =+    GluePartitionSerdeInfo <$>+      (obj .:? "Name") <*>+      (obj .:? "Parameters") <*>+      (obj .:? "SerializationLibrary")+  parseJSON _ = mempty++-- | Constructor for 'GluePartitionSerdeInfo' containing required fields as+-- arguments.+gluePartitionSerdeInfo+  :: GluePartitionSerdeInfo+gluePartitionSerdeInfo  =+  GluePartitionSerdeInfo+  { _gluePartitionSerdeInfoName = Nothing+  , _gluePartitionSerdeInfoParameters = Nothing+  , _gluePartitionSerdeInfoSerializationLibrary = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-serdeinfo.html#cfn-glue-partition-serdeinfo-name+gpsiName :: Lens' GluePartitionSerdeInfo (Maybe (Val Text))+gpsiName = lens _gluePartitionSerdeInfoName (\s a -> s { _gluePartitionSerdeInfoName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-serdeinfo.html#cfn-glue-partition-serdeinfo-parameters+gpsiParameters :: Lens' GluePartitionSerdeInfo (Maybe Object)+gpsiParameters = lens _gluePartitionSerdeInfoParameters (\s a -> s { _gluePartitionSerdeInfoParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-serdeinfo.html#cfn-glue-partition-serdeinfo-serializationlibrary+gpsiSerializationLibrary :: Lens' GluePartitionSerdeInfo (Maybe (Val Text))+gpsiSerializationLibrary = lens _gluePartitionSerdeInfoSerializationLibrary (\s a -> s { _gluePartitionSerdeInfoSerializationLibrary = a })
+ library-gen/Stratosphere/ResourceProperties/GluePartitionSkewedInfo.hs view
@@ -0,0 +1,65 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-skewedinfo.html++module Stratosphere.ResourceProperties.GluePartitionSkewedInfo where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for GluePartitionSkewedInfo. See+-- 'gluePartitionSkewedInfo' for a more convenient constructor.+data GluePartitionSkewedInfo =+  GluePartitionSkewedInfo+  { _gluePartitionSkewedInfoSkewedColumnNames :: Maybe (ValList Text)+  , _gluePartitionSkewedInfoSkewedColumnValueLocationMaps :: Maybe Object+  , _gluePartitionSkewedInfoSkewedColumnValues :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON GluePartitionSkewedInfo where+  toJSON GluePartitionSkewedInfo{..} =+    object $+    catMaybes+    [ fmap (("SkewedColumnNames",) . toJSON) _gluePartitionSkewedInfoSkewedColumnNames+    , fmap (("SkewedColumnValueLocationMaps",) . toJSON) _gluePartitionSkewedInfoSkewedColumnValueLocationMaps+    , fmap (("SkewedColumnValues",) . toJSON) _gluePartitionSkewedInfoSkewedColumnValues+    ]++instance FromJSON GluePartitionSkewedInfo where+  parseJSON (Object obj) =+    GluePartitionSkewedInfo <$>+      (obj .:? "SkewedColumnNames") <*>+      (obj .:? "SkewedColumnValueLocationMaps") <*>+      (obj .:? "SkewedColumnValues")+  parseJSON _ = mempty++-- | Constructor for 'GluePartitionSkewedInfo' containing required fields as+-- arguments.+gluePartitionSkewedInfo+  :: GluePartitionSkewedInfo+gluePartitionSkewedInfo  =+  GluePartitionSkewedInfo+  { _gluePartitionSkewedInfoSkewedColumnNames = Nothing+  , _gluePartitionSkewedInfoSkewedColumnValueLocationMaps = Nothing+  , _gluePartitionSkewedInfoSkewedColumnValues = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-skewedinfo.html#cfn-glue-partition-skewedinfo-skewedcolumnnames+gpsiSkewedColumnNames :: Lens' GluePartitionSkewedInfo (Maybe (ValList Text))+gpsiSkewedColumnNames = lens _gluePartitionSkewedInfoSkewedColumnNames (\s a -> s { _gluePartitionSkewedInfoSkewedColumnNames = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-skewedinfo.html#cfn-glue-partition-skewedinfo-skewedcolumnvaluelocationmaps+gpsiSkewedColumnValueLocationMaps :: Lens' GluePartitionSkewedInfo (Maybe Object)+gpsiSkewedColumnValueLocationMaps = lens _gluePartitionSkewedInfoSkewedColumnValueLocationMaps (\s a -> s { _gluePartitionSkewedInfoSkewedColumnValueLocationMaps = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-skewedinfo.html#cfn-glue-partition-skewedinfo-skewedcolumnvalues+gpsiSkewedColumnValues :: Lens' GluePartitionSkewedInfo (Maybe (ValList Text))+gpsiSkewedColumnValues = lens _gluePartitionSkewedInfoSkewedColumnValues (\s a -> s { _gluePartitionSkewedInfoSkewedColumnValues = a })
+ library-gen/Stratosphere/ResourceProperties/GluePartitionStorageDescriptor.hs view
@@ -0,0 +1,140 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-storagedescriptor.html++module Stratosphere.ResourceProperties.GluePartitionStorageDescriptor where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+import Stratosphere.ResourceProperties.GluePartitionColumn+import Stratosphere.ResourceProperties.GluePartitionSerdeInfo+import Stratosphere.ResourceProperties.GluePartitionSkewedInfo+import Stratosphere.ResourceProperties.GluePartitionOrder++-- | Full data type definition for GluePartitionStorageDescriptor. See+-- 'gluePartitionStorageDescriptor' for a more convenient constructor.+data GluePartitionStorageDescriptor =+  GluePartitionStorageDescriptor+  { _gluePartitionStorageDescriptorBucketColumns :: Maybe (ValList Text)+  , _gluePartitionStorageDescriptorColumns :: Maybe [GluePartitionColumn]+  , _gluePartitionStorageDescriptorCompressed :: Maybe (Val Bool)+  , _gluePartitionStorageDescriptorInputFormat :: Maybe (Val Text)+  , _gluePartitionStorageDescriptorLocation :: Maybe (Val Text)+  , _gluePartitionStorageDescriptorNumberOfBuckets :: Maybe (Val Integer)+  , _gluePartitionStorageDescriptorOutputFormat :: Maybe (Val Text)+  , _gluePartitionStorageDescriptorParameters :: Maybe Object+  , _gluePartitionStorageDescriptorSerdeInfo :: Maybe GluePartitionSerdeInfo+  , _gluePartitionStorageDescriptorSkewedInfo :: Maybe GluePartitionSkewedInfo+  , _gluePartitionStorageDescriptorSortColumns :: Maybe [GluePartitionOrder]+  , _gluePartitionStorageDescriptorStoredAsSubDirectories :: Maybe (Val Bool)+  } deriving (Show, Eq)++instance ToJSON GluePartitionStorageDescriptor where+  toJSON GluePartitionStorageDescriptor{..} =+    object $+    catMaybes+    [ fmap (("BucketColumns",) . toJSON) _gluePartitionStorageDescriptorBucketColumns+    , fmap (("Columns",) . toJSON) _gluePartitionStorageDescriptorColumns+    , fmap (("Compressed",) . toJSON . fmap Bool') _gluePartitionStorageDescriptorCompressed+    , fmap (("InputFormat",) . toJSON) _gluePartitionStorageDescriptorInputFormat+    , fmap (("Location",) . toJSON) _gluePartitionStorageDescriptorLocation+    , fmap (("NumberOfBuckets",) . toJSON . fmap Integer') _gluePartitionStorageDescriptorNumberOfBuckets+    , fmap (("OutputFormat",) . toJSON) _gluePartitionStorageDescriptorOutputFormat+    , fmap (("Parameters",) . toJSON) _gluePartitionStorageDescriptorParameters+    , fmap (("SerdeInfo",) . toJSON) _gluePartitionStorageDescriptorSerdeInfo+    , fmap (("SkewedInfo",) . toJSON) _gluePartitionStorageDescriptorSkewedInfo+    , fmap (("SortColumns",) . toJSON) _gluePartitionStorageDescriptorSortColumns+    , fmap (("StoredAsSubDirectories",) . toJSON . fmap Bool') _gluePartitionStorageDescriptorStoredAsSubDirectories+    ]++instance FromJSON GluePartitionStorageDescriptor where+  parseJSON (Object obj) =+    GluePartitionStorageDescriptor <$>+      (obj .:? "BucketColumns") <*>+      (obj .:? "Columns") <*>+      fmap (fmap (fmap unBool')) (obj .:? "Compressed") <*>+      (obj .:? "InputFormat") <*>+      (obj .:? "Location") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "NumberOfBuckets") <*>+      (obj .:? "OutputFormat") <*>+      (obj .:? "Parameters") <*>+      (obj .:? "SerdeInfo") <*>+      (obj .:? "SkewedInfo") <*>+      (obj .:? "SortColumns") <*>+      fmap (fmap (fmap unBool')) (obj .:? "StoredAsSubDirectories")+  parseJSON _ = mempty++-- | Constructor for 'GluePartitionStorageDescriptor' containing required+-- fields as arguments.+gluePartitionStorageDescriptor+  :: GluePartitionStorageDescriptor+gluePartitionStorageDescriptor  =+  GluePartitionStorageDescriptor+  { _gluePartitionStorageDescriptorBucketColumns = Nothing+  , _gluePartitionStorageDescriptorColumns = Nothing+  , _gluePartitionStorageDescriptorCompressed = Nothing+  , _gluePartitionStorageDescriptorInputFormat = Nothing+  , _gluePartitionStorageDescriptorLocation = Nothing+  , _gluePartitionStorageDescriptorNumberOfBuckets = Nothing+  , _gluePartitionStorageDescriptorOutputFormat = Nothing+  , _gluePartitionStorageDescriptorParameters = Nothing+  , _gluePartitionStorageDescriptorSerdeInfo = Nothing+  , _gluePartitionStorageDescriptorSkewedInfo = Nothing+  , _gluePartitionStorageDescriptorSortColumns = Nothing+  , _gluePartitionStorageDescriptorStoredAsSubDirectories = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-storagedescriptor.html#cfn-glue-partition-storagedescriptor-bucketcolumns+gpsdBucketColumns :: Lens' GluePartitionStorageDescriptor (Maybe (ValList Text))+gpsdBucketColumns = lens _gluePartitionStorageDescriptorBucketColumns (\s a -> s { _gluePartitionStorageDescriptorBucketColumns = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-storagedescriptor.html#cfn-glue-partition-storagedescriptor-columns+gpsdColumns :: Lens' GluePartitionStorageDescriptor (Maybe [GluePartitionColumn])+gpsdColumns = lens _gluePartitionStorageDescriptorColumns (\s a -> s { _gluePartitionStorageDescriptorColumns = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-storagedescriptor.html#cfn-glue-partition-storagedescriptor-compressed+gpsdCompressed :: Lens' GluePartitionStorageDescriptor (Maybe (Val Bool))+gpsdCompressed = lens _gluePartitionStorageDescriptorCompressed (\s a -> s { _gluePartitionStorageDescriptorCompressed = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-storagedescriptor.html#cfn-glue-partition-storagedescriptor-inputformat+gpsdInputFormat :: Lens' GluePartitionStorageDescriptor (Maybe (Val Text))+gpsdInputFormat = lens _gluePartitionStorageDescriptorInputFormat (\s a -> s { _gluePartitionStorageDescriptorInputFormat = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-storagedescriptor.html#cfn-glue-partition-storagedescriptor-location+gpsdLocation :: Lens' GluePartitionStorageDescriptor (Maybe (Val Text))+gpsdLocation = lens _gluePartitionStorageDescriptorLocation (\s a -> s { _gluePartitionStorageDescriptorLocation = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-storagedescriptor.html#cfn-glue-partition-storagedescriptor-numberofbuckets+gpsdNumberOfBuckets :: Lens' GluePartitionStorageDescriptor (Maybe (Val Integer))+gpsdNumberOfBuckets = lens _gluePartitionStorageDescriptorNumberOfBuckets (\s a -> s { _gluePartitionStorageDescriptorNumberOfBuckets = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-storagedescriptor.html#cfn-glue-partition-storagedescriptor-outputformat+gpsdOutputFormat :: Lens' GluePartitionStorageDescriptor (Maybe (Val Text))+gpsdOutputFormat = lens _gluePartitionStorageDescriptorOutputFormat (\s a -> s { _gluePartitionStorageDescriptorOutputFormat = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-storagedescriptor.html#cfn-glue-partition-storagedescriptor-parameters+gpsdParameters :: Lens' GluePartitionStorageDescriptor (Maybe Object)+gpsdParameters = lens _gluePartitionStorageDescriptorParameters (\s a -> s { _gluePartitionStorageDescriptorParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-storagedescriptor.html#cfn-glue-partition-storagedescriptor-serdeinfo+gpsdSerdeInfo :: Lens' GluePartitionStorageDescriptor (Maybe GluePartitionSerdeInfo)+gpsdSerdeInfo = lens _gluePartitionStorageDescriptorSerdeInfo (\s a -> s { _gluePartitionStorageDescriptorSerdeInfo = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-storagedescriptor.html#cfn-glue-partition-storagedescriptor-skewedinfo+gpsdSkewedInfo :: Lens' GluePartitionStorageDescriptor (Maybe GluePartitionSkewedInfo)+gpsdSkewedInfo = lens _gluePartitionStorageDescriptorSkewedInfo (\s a -> s { _gluePartitionStorageDescriptorSkewedInfo = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-storagedescriptor.html#cfn-glue-partition-storagedescriptor-sortcolumns+gpsdSortColumns :: Lens' GluePartitionStorageDescriptor (Maybe [GluePartitionOrder])+gpsdSortColumns = lens _gluePartitionStorageDescriptorSortColumns (\s a -> s { _gluePartitionStorageDescriptorSortColumns = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-storagedescriptor.html#cfn-glue-partition-storagedescriptor-storedassubdirectories+gpsdStoredAsSubDirectories :: Lens' GluePartitionStorageDescriptor (Maybe (Val Bool))+gpsdStoredAsSubDirectories = lens _gluePartitionStorageDescriptorStoredAsSubDirectories (\s a -> s { _gluePartitionStorageDescriptorStoredAsSubDirectories = a })
+ library-gen/Stratosphere/ResourceProperties/GlueTableColumn.hs view
@@ -0,0 +1,66 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-column.html++module Stratosphere.ResourceProperties.GlueTableColumn where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for GlueTableColumn. See 'glueTableColumn' for+-- a more convenient constructor.+data GlueTableColumn =+  GlueTableColumn+  { _glueTableColumnComment :: Maybe (Val Text)+  , _glueTableColumnName :: Val Text+  , _glueTableColumnType :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON GlueTableColumn where+  toJSON GlueTableColumn{..} =+    object $+    catMaybes+    [ fmap (("Comment",) . toJSON) _glueTableColumnComment+    , (Just . ("Name",) . toJSON) _glueTableColumnName+    , fmap (("Type",) . toJSON) _glueTableColumnType+    ]++instance FromJSON GlueTableColumn where+  parseJSON (Object obj) =+    GlueTableColumn <$>+      (obj .:? "Comment") <*>+      (obj .: "Name") <*>+      (obj .:? "Type")+  parseJSON _ = mempty++-- | Constructor for 'GlueTableColumn' containing required fields as+-- arguments.+glueTableColumn+  :: Val Text -- ^ 'gtcName'+  -> GlueTableColumn+glueTableColumn namearg =+  GlueTableColumn+  { _glueTableColumnComment = Nothing+  , _glueTableColumnName = namearg+  , _glueTableColumnType = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-column.html#cfn-glue-table-column-comment+gtcComment :: Lens' GlueTableColumn (Maybe (Val Text))+gtcComment = lens _glueTableColumnComment (\s a -> s { _glueTableColumnComment = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-column.html#cfn-glue-table-column-name+gtcName :: Lens' GlueTableColumn (Val Text)+gtcName = lens _glueTableColumnName (\s a -> s { _glueTableColumnName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-column.html#cfn-glue-table-column-type+gtcType :: Lens' GlueTableColumn (Maybe (Val Text))+gtcType = lens _glueTableColumnType (\s a -> s { _glueTableColumnType = a })
+ library-gen/Stratosphere/ResourceProperties/GlueTableOrder.hs view
@@ -0,0 +1,58 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-order.html++module Stratosphere.ResourceProperties.GlueTableOrder where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for GlueTableOrder. See 'glueTableOrder' for a+-- more convenient constructor.+data GlueTableOrder =+  GlueTableOrder+  { _glueTableOrderColumn :: Val Text+  , _glueTableOrderSortOrder :: Val Integer+  } deriving (Show, Eq)++instance ToJSON GlueTableOrder where+  toJSON GlueTableOrder{..} =+    object $+    catMaybes+    [ (Just . ("Column",) . toJSON) _glueTableOrderColumn+    , (Just . ("SortOrder",) . toJSON . fmap Integer') _glueTableOrderSortOrder+    ]++instance FromJSON GlueTableOrder where+  parseJSON (Object obj) =+    GlueTableOrder <$>+      (obj .: "Column") <*>+      fmap (fmap unInteger') (obj .: "SortOrder")+  parseJSON _ = mempty++-- | Constructor for 'GlueTableOrder' containing required fields as arguments.+glueTableOrder+  :: Val Text -- ^ 'gtoColumn'+  -> Val Integer -- ^ 'gtoSortOrder'+  -> GlueTableOrder+glueTableOrder columnarg sortOrderarg =+  GlueTableOrder+  { _glueTableOrderColumn = columnarg+  , _glueTableOrderSortOrder = sortOrderarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-order.html#cfn-glue-table-order-column+gtoColumn :: Lens' GlueTableOrder (Val Text)+gtoColumn = lens _glueTableOrderColumn (\s a -> s { _glueTableOrderColumn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-order.html#cfn-glue-table-order-sortorder+gtoSortOrder :: Lens' GlueTableOrder (Val Integer)+gtoSortOrder = lens _glueTableOrderSortOrder (\s a -> s { _glueTableOrderSortOrder = a })
+ library-gen/Stratosphere/ResourceProperties/GlueTableSerdeInfo.hs view
@@ -0,0 +1,65 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-serdeinfo.html++module Stratosphere.ResourceProperties.GlueTableSerdeInfo where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for GlueTableSerdeInfo. See+-- 'glueTableSerdeInfo' for a more convenient constructor.+data GlueTableSerdeInfo =+  GlueTableSerdeInfo+  { _glueTableSerdeInfoName :: Maybe (Val Text)+  , _glueTableSerdeInfoParameters :: Maybe Object+  , _glueTableSerdeInfoSerializationLibrary :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON GlueTableSerdeInfo where+  toJSON GlueTableSerdeInfo{..} =+    object $+    catMaybes+    [ fmap (("Name",) . toJSON) _glueTableSerdeInfoName+    , fmap (("Parameters",) . toJSON) _glueTableSerdeInfoParameters+    , fmap (("SerializationLibrary",) . toJSON) _glueTableSerdeInfoSerializationLibrary+    ]++instance FromJSON GlueTableSerdeInfo where+  parseJSON (Object obj) =+    GlueTableSerdeInfo <$>+      (obj .:? "Name") <*>+      (obj .:? "Parameters") <*>+      (obj .:? "SerializationLibrary")+  parseJSON _ = mempty++-- | Constructor for 'GlueTableSerdeInfo' containing required fields as+-- arguments.+glueTableSerdeInfo+  :: GlueTableSerdeInfo+glueTableSerdeInfo  =+  GlueTableSerdeInfo+  { _glueTableSerdeInfoName = Nothing+  , _glueTableSerdeInfoParameters = Nothing+  , _glueTableSerdeInfoSerializationLibrary = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-serdeinfo.html#cfn-glue-table-serdeinfo-name+gtsiName :: Lens' GlueTableSerdeInfo (Maybe (Val Text))+gtsiName = lens _glueTableSerdeInfoName (\s a -> s { _glueTableSerdeInfoName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-serdeinfo.html#cfn-glue-table-serdeinfo-parameters+gtsiParameters :: Lens' GlueTableSerdeInfo (Maybe Object)+gtsiParameters = lens _glueTableSerdeInfoParameters (\s a -> s { _glueTableSerdeInfoParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-serdeinfo.html#cfn-glue-table-serdeinfo-serializationlibrary+gtsiSerializationLibrary :: Lens' GlueTableSerdeInfo (Maybe (Val Text))+gtsiSerializationLibrary = lens _glueTableSerdeInfoSerializationLibrary (\s a -> s { _glueTableSerdeInfoSerializationLibrary = a })
+ library-gen/Stratosphere/ResourceProperties/GlueTableSkewedInfo.hs view
@@ -0,0 +1,65 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-skewedinfo.html++module Stratosphere.ResourceProperties.GlueTableSkewedInfo where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for GlueTableSkewedInfo. See+-- 'glueTableSkewedInfo' for a more convenient constructor.+data GlueTableSkewedInfo =+  GlueTableSkewedInfo+  { _glueTableSkewedInfoSkewedColumnNames :: Maybe (ValList Text)+  , _glueTableSkewedInfoSkewedColumnValueLocationMaps :: Maybe Object+  , _glueTableSkewedInfoSkewedColumnValues :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON GlueTableSkewedInfo where+  toJSON GlueTableSkewedInfo{..} =+    object $+    catMaybes+    [ fmap (("SkewedColumnNames",) . toJSON) _glueTableSkewedInfoSkewedColumnNames+    , fmap (("SkewedColumnValueLocationMaps",) . toJSON) _glueTableSkewedInfoSkewedColumnValueLocationMaps+    , fmap (("SkewedColumnValues",) . toJSON) _glueTableSkewedInfoSkewedColumnValues+    ]++instance FromJSON GlueTableSkewedInfo where+  parseJSON (Object obj) =+    GlueTableSkewedInfo <$>+      (obj .:? "SkewedColumnNames") <*>+      (obj .:? "SkewedColumnValueLocationMaps") <*>+      (obj .:? "SkewedColumnValues")+  parseJSON _ = mempty++-- | Constructor for 'GlueTableSkewedInfo' containing required fields as+-- arguments.+glueTableSkewedInfo+  :: GlueTableSkewedInfo+glueTableSkewedInfo  =+  GlueTableSkewedInfo+  { _glueTableSkewedInfoSkewedColumnNames = Nothing+  , _glueTableSkewedInfoSkewedColumnValueLocationMaps = Nothing+  , _glueTableSkewedInfoSkewedColumnValues = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-skewedinfo.html#cfn-glue-table-skewedinfo-skewedcolumnnames+gtsiSkewedColumnNames :: Lens' GlueTableSkewedInfo (Maybe (ValList Text))+gtsiSkewedColumnNames = lens _glueTableSkewedInfoSkewedColumnNames (\s a -> s { _glueTableSkewedInfoSkewedColumnNames = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-skewedinfo.html#cfn-glue-table-skewedinfo-skewedcolumnvaluelocationmaps+gtsiSkewedColumnValueLocationMaps :: Lens' GlueTableSkewedInfo (Maybe Object)+gtsiSkewedColumnValueLocationMaps = lens _glueTableSkewedInfoSkewedColumnValueLocationMaps (\s a -> s { _glueTableSkewedInfoSkewedColumnValueLocationMaps = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-skewedinfo.html#cfn-glue-table-skewedinfo-skewedcolumnvalues+gtsiSkewedColumnValues :: Lens' GlueTableSkewedInfo (Maybe (ValList Text))+gtsiSkewedColumnValues = lens _glueTableSkewedInfoSkewedColumnValues (\s a -> s { _glueTableSkewedInfoSkewedColumnValues = a })
+ library-gen/Stratosphere/ResourceProperties/GlueTableStorageDescriptor.hs view
@@ -0,0 +1,140 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-storagedescriptor.html++module Stratosphere.ResourceProperties.GlueTableStorageDescriptor where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+import Stratosphere.ResourceProperties.GlueTableColumn+import Stratosphere.ResourceProperties.GlueTableSerdeInfo+import Stratosphere.ResourceProperties.GlueTableSkewedInfo+import Stratosphere.ResourceProperties.GlueTableOrder++-- | Full data type definition for GlueTableStorageDescriptor. See+-- 'glueTableStorageDescriptor' for a more convenient constructor.+data GlueTableStorageDescriptor =+  GlueTableStorageDescriptor+  { _glueTableStorageDescriptorBucketColumns :: Maybe (ValList Text)+  , _glueTableStorageDescriptorColumns :: Maybe [GlueTableColumn]+  , _glueTableStorageDescriptorCompressed :: Maybe (Val Bool)+  , _glueTableStorageDescriptorInputFormat :: Maybe (Val Text)+  , _glueTableStorageDescriptorLocation :: Maybe (Val Text)+  , _glueTableStorageDescriptorNumberOfBuckets :: Maybe (Val Integer)+  , _glueTableStorageDescriptorOutputFormat :: Maybe (Val Text)+  , _glueTableStorageDescriptorParameters :: Maybe Object+  , _glueTableStorageDescriptorSerdeInfo :: Maybe GlueTableSerdeInfo+  , _glueTableStorageDescriptorSkewedInfo :: Maybe GlueTableSkewedInfo+  , _glueTableStorageDescriptorSortColumns :: Maybe [GlueTableOrder]+  , _glueTableStorageDescriptorStoredAsSubDirectories :: Maybe (Val Bool)+  } deriving (Show, Eq)++instance ToJSON GlueTableStorageDescriptor where+  toJSON GlueTableStorageDescriptor{..} =+    object $+    catMaybes+    [ fmap (("BucketColumns",) . toJSON) _glueTableStorageDescriptorBucketColumns+    , fmap (("Columns",) . toJSON) _glueTableStorageDescriptorColumns+    , fmap (("Compressed",) . toJSON . fmap Bool') _glueTableStorageDescriptorCompressed+    , fmap (("InputFormat",) . toJSON) _glueTableStorageDescriptorInputFormat+    , fmap (("Location",) . toJSON) _glueTableStorageDescriptorLocation+    , fmap (("NumberOfBuckets",) . toJSON . fmap Integer') _glueTableStorageDescriptorNumberOfBuckets+    , fmap (("OutputFormat",) . toJSON) _glueTableStorageDescriptorOutputFormat+    , fmap (("Parameters",) . toJSON) _glueTableStorageDescriptorParameters+    , fmap (("SerdeInfo",) . toJSON) _glueTableStorageDescriptorSerdeInfo+    , fmap (("SkewedInfo",) . toJSON) _glueTableStorageDescriptorSkewedInfo+    , fmap (("SortColumns",) . toJSON) _glueTableStorageDescriptorSortColumns+    , fmap (("StoredAsSubDirectories",) . toJSON . fmap Bool') _glueTableStorageDescriptorStoredAsSubDirectories+    ]++instance FromJSON GlueTableStorageDescriptor where+  parseJSON (Object obj) =+    GlueTableStorageDescriptor <$>+      (obj .:? "BucketColumns") <*>+      (obj .:? "Columns") <*>+      fmap (fmap (fmap unBool')) (obj .:? "Compressed") <*>+      (obj .:? "InputFormat") <*>+      (obj .:? "Location") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "NumberOfBuckets") <*>+      (obj .:? "OutputFormat") <*>+      (obj .:? "Parameters") <*>+      (obj .:? "SerdeInfo") <*>+      (obj .:? "SkewedInfo") <*>+      (obj .:? "SortColumns") <*>+      fmap (fmap (fmap unBool')) (obj .:? "StoredAsSubDirectories")+  parseJSON _ = mempty++-- | Constructor for 'GlueTableStorageDescriptor' containing required fields+-- as arguments.+glueTableStorageDescriptor+  :: GlueTableStorageDescriptor+glueTableStorageDescriptor  =+  GlueTableStorageDescriptor+  { _glueTableStorageDescriptorBucketColumns = Nothing+  , _glueTableStorageDescriptorColumns = Nothing+  , _glueTableStorageDescriptorCompressed = Nothing+  , _glueTableStorageDescriptorInputFormat = Nothing+  , _glueTableStorageDescriptorLocation = Nothing+  , _glueTableStorageDescriptorNumberOfBuckets = Nothing+  , _glueTableStorageDescriptorOutputFormat = Nothing+  , _glueTableStorageDescriptorParameters = Nothing+  , _glueTableStorageDescriptorSerdeInfo = Nothing+  , _glueTableStorageDescriptorSkewedInfo = Nothing+  , _glueTableStorageDescriptorSortColumns = Nothing+  , _glueTableStorageDescriptorStoredAsSubDirectories = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-storagedescriptor.html#cfn-glue-table-storagedescriptor-bucketcolumns+gtsdBucketColumns :: Lens' GlueTableStorageDescriptor (Maybe (ValList Text))+gtsdBucketColumns = lens _glueTableStorageDescriptorBucketColumns (\s a -> s { _glueTableStorageDescriptorBucketColumns = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-storagedescriptor.html#cfn-glue-table-storagedescriptor-columns+gtsdColumns :: Lens' GlueTableStorageDescriptor (Maybe [GlueTableColumn])+gtsdColumns = lens _glueTableStorageDescriptorColumns (\s a -> s { _glueTableStorageDescriptorColumns = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-storagedescriptor.html#cfn-glue-table-storagedescriptor-compressed+gtsdCompressed :: Lens' GlueTableStorageDescriptor (Maybe (Val Bool))+gtsdCompressed = lens _glueTableStorageDescriptorCompressed (\s a -> s { _glueTableStorageDescriptorCompressed = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-storagedescriptor.html#cfn-glue-table-storagedescriptor-inputformat+gtsdInputFormat :: Lens' GlueTableStorageDescriptor (Maybe (Val Text))+gtsdInputFormat = lens _glueTableStorageDescriptorInputFormat (\s a -> s { _glueTableStorageDescriptorInputFormat = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-storagedescriptor.html#cfn-glue-table-storagedescriptor-location+gtsdLocation :: Lens' GlueTableStorageDescriptor (Maybe (Val Text))+gtsdLocation = lens _glueTableStorageDescriptorLocation (\s a -> s { _glueTableStorageDescriptorLocation = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-storagedescriptor.html#cfn-glue-table-storagedescriptor-numberofbuckets+gtsdNumberOfBuckets :: Lens' GlueTableStorageDescriptor (Maybe (Val Integer))+gtsdNumberOfBuckets = lens _glueTableStorageDescriptorNumberOfBuckets (\s a -> s { _glueTableStorageDescriptorNumberOfBuckets = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-storagedescriptor.html#cfn-glue-table-storagedescriptor-outputformat+gtsdOutputFormat :: Lens' GlueTableStorageDescriptor (Maybe (Val Text))+gtsdOutputFormat = lens _glueTableStorageDescriptorOutputFormat (\s a -> s { _glueTableStorageDescriptorOutputFormat = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-storagedescriptor.html#cfn-glue-table-storagedescriptor-parameters+gtsdParameters :: Lens' GlueTableStorageDescriptor (Maybe Object)+gtsdParameters = lens _glueTableStorageDescriptorParameters (\s a -> s { _glueTableStorageDescriptorParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-storagedescriptor.html#cfn-glue-table-storagedescriptor-serdeinfo+gtsdSerdeInfo :: Lens' GlueTableStorageDescriptor (Maybe GlueTableSerdeInfo)+gtsdSerdeInfo = lens _glueTableStorageDescriptorSerdeInfo (\s a -> s { _glueTableStorageDescriptorSerdeInfo = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-storagedescriptor.html#cfn-glue-table-storagedescriptor-skewedinfo+gtsdSkewedInfo :: Lens' GlueTableStorageDescriptor (Maybe GlueTableSkewedInfo)+gtsdSkewedInfo = lens _glueTableStorageDescriptorSkewedInfo (\s a -> s { _glueTableStorageDescriptorSkewedInfo = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-storagedescriptor.html#cfn-glue-table-storagedescriptor-sortcolumns+gtsdSortColumns :: Lens' GlueTableStorageDescriptor (Maybe [GlueTableOrder])+gtsdSortColumns = lens _glueTableStorageDescriptorSortColumns (\s a -> s { _glueTableStorageDescriptorSortColumns = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-storagedescriptor.html#cfn-glue-table-storagedescriptor-storedassubdirectories+gtsdStoredAsSubDirectories :: Lens' GlueTableStorageDescriptor (Maybe (Val Bool))+gtsdStoredAsSubDirectories = lens _glueTableStorageDescriptorStoredAsSubDirectories (\s a -> s { _glueTableStorageDescriptorStoredAsSubDirectories = a })
+ library-gen/Stratosphere/ResourceProperties/GlueTableTableInput.hs view
@@ -0,0 +1,122 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-tableinput.html++module Stratosphere.ResourceProperties.GlueTableTableInput where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+import Stratosphere.ResourceProperties.GlueTableColumn+import Stratosphere.ResourceProperties.GlueTableStorageDescriptor++-- | Full data type definition for GlueTableTableInput. See+-- 'glueTableTableInput' for a more convenient constructor.+data GlueTableTableInput =+  GlueTableTableInput+  { _glueTableTableInputDescription :: Maybe (Val Text)+  , _glueTableTableInputName :: Maybe (Val Text)+  , _glueTableTableInputOwner :: Maybe (Val Text)+  , _glueTableTableInputParameters :: Maybe Object+  , _glueTableTableInputPartitionKeys :: Maybe [GlueTableColumn]+  , _glueTableTableInputRetention :: Maybe (Val Integer)+  , _glueTableTableInputStorageDescriptor :: Maybe GlueTableStorageDescriptor+  , _glueTableTableInputTableType :: Maybe (Val Text)+  , _glueTableTableInputViewExpandedText :: Maybe (Val Text)+  , _glueTableTableInputViewOriginalText :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON GlueTableTableInput where+  toJSON GlueTableTableInput{..} =+    object $+    catMaybes+    [ fmap (("Description",) . toJSON) _glueTableTableInputDescription+    , fmap (("Name",) . toJSON) _glueTableTableInputName+    , fmap (("Owner",) . toJSON) _glueTableTableInputOwner+    , fmap (("Parameters",) . toJSON) _glueTableTableInputParameters+    , fmap (("PartitionKeys",) . toJSON) _glueTableTableInputPartitionKeys+    , fmap (("Retention",) . toJSON . fmap Integer') _glueTableTableInputRetention+    , fmap (("StorageDescriptor",) . toJSON) _glueTableTableInputStorageDescriptor+    , fmap (("TableType",) . toJSON) _glueTableTableInputTableType+    , fmap (("ViewExpandedText",) . toJSON) _glueTableTableInputViewExpandedText+    , fmap (("ViewOriginalText",) . toJSON) _glueTableTableInputViewOriginalText+    ]++instance FromJSON GlueTableTableInput where+  parseJSON (Object obj) =+    GlueTableTableInput <$>+      (obj .:? "Description") <*>+      (obj .:? "Name") <*>+      (obj .:? "Owner") <*>+      (obj .:? "Parameters") <*>+      (obj .:? "PartitionKeys") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "Retention") <*>+      (obj .:? "StorageDescriptor") <*>+      (obj .:? "TableType") <*>+      (obj .:? "ViewExpandedText") <*>+      (obj .:? "ViewOriginalText")+  parseJSON _ = mempty++-- | Constructor for 'GlueTableTableInput' containing required fields as+-- arguments.+glueTableTableInput+  :: GlueTableTableInput+glueTableTableInput  =+  GlueTableTableInput+  { _glueTableTableInputDescription = Nothing+  , _glueTableTableInputName = Nothing+  , _glueTableTableInputOwner = Nothing+  , _glueTableTableInputParameters = Nothing+  , _glueTableTableInputPartitionKeys = Nothing+  , _glueTableTableInputRetention = Nothing+  , _glueTableTableInputStorageDescriptor = Nothing+  , _glueTableTableInputTableType = Nothing+  , _glueTableTableInputViewExpandedText = Nothing+  , _glueTableTableInputViewOriginalText = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-tableinput.html#cfn-glue-table-tableinput-description+gttiDescription :: Lens' GlueTableTableInput (Maybe (Val Text))+gttiDescription = lens _glueTableTableInputDescription (\s a -> s { _glueTableTableInputDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-tableinput.html#cfn-glue-table-tableinput-name+gttiName :: Lens' GlueTableTableInput (Maybe (Val Text))+gttiName = lens _glueTableTableInputName (\s a -> s { _glueTableTableInputName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-tableinput.html#cfn-glue-table-tableinput-owner+gttiOwner :: Lens' GlueTableTableInput (Maybe (Val Text))+gttiOwner = lens _glueTableTableInputOwner (\s a -> s { _glueTableTableInputOwner = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-tableinput.html#cfn-glue-table-tableinput-parameters+gttiParameters :: Lens' GlueTableTableInput (Maybe Object)+gttiParameters = lens _glueTableTableInputParameters (\s a -> s { _glueTableTableInputParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-tableinput.html#cfn-glue-table-tableinput-partitionkeys+gttiPartitionKeys :: Lens' GlueTableTableInput (Maybe [GlueTableColumn])+gttiPartitionKeys = lens _glueTableTableInputPartitionKeys (\s a -> s { _glueTableTableInputPartitionKeys = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-tableinput.html#cfn-glue-table-tableinput-retention+gttiRetention :: Lens' GlueTableTableInput (Maybe (Val Integer))+gttiRetention = lens _glueTableTableInputRetention (\s a -> s { _glueTableTableInputRetention = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-tableinput.html#cfn-glue-table-tableinput-storagedescriptor+gttiStorageDescriptor :: Lens' GlueTableTableInput (Maybe GlueTableStorageDescriptor)+gttiStorageDescriptor = lens _glueTableTableInputStorageDescriptor (\s a -> s { _glueTableTableInputStorageDescriptor = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-tableinput.html#cfn-glue-table-tableinput-tabletype+gttiTableType :: Lens' GlueTableTableInput (Maybe (Val Text))+gttiTableType = lens _glueTableTableInputTableType (\s a -> s { _glueTableTableInputTableType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-tableinput.html#cfn-glue-table-tableinput-viewexpandedtext+gttiViewExpandedText :: Lens' GlueTableTableInput (Maybe (Val Text))+gttiViewExpandedText = lens _glueTableTableInputViewExpandedText (\s a -> s { _glueTableTableInputViewExpandedText = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-tableinput.html#cfn-glue-table-tableinput-vieworiginaltext+gttiViewOriginalText :: Lens' GlueTableTableInput (Maybe (Val Text))+gttiViewOriginalText = lens _glueTableTableInputViewOriginalText (\s a -> s { _glueTableTableInputViewOriginalText = a })
+ library-gen/Stratosphere/ResourceProperties/GlueTriggerAction.hs view
@@ -0,0 +1,57 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-action.html++module Stratosphere.ResourceProperties.GlueTriggerAction where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for GlueTriggerAction. See 'glueTriggerAction'+-- for a more convenient constructor.+data GlueTriggerAction =+  GlueTriggerAction+  { _glueTriggerActionArguments :: Maybe Object+  , _glueTriggerActionJobName :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON GlueTriggerAction where+  toJSON GlueTriggerAction{..} =+    object $+    catMaybes+    [ fmap (("Arguments",) . toJSON) _glueTriggerActionArguments+    , fmap (("JobName",) . toJSON) _glueTriggerActionJobName+    ]++instance FromJSON GlueTriggerAction where+  parseJSON (Object obj) =+    GlueTriggerAction <$>+      (obj .:? "Arguments") <*>+      (obj .:? "JobName")+  parseJSON _ = mempty++-- | Constructor for 'GlueTriggerAction' containing required fields as+-- arguments.+glueTriggerAction+  :: GlueTriggerAction+glueTriggerAction  =+  GlueTriggerAction+  { _glueTriggerActionArguments = Nothing+  , _glueTriggerActionJobName = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-action.html#cfn-glue-trigger-action-arguments+gtaArguments :: Lens' GlueTriggerAction (Maybe Object)+gtaArguments = lens _glueTriggerActionArguments (\s a -> s { _glueTriggerActionArguments = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-action.html#cfn-glue-trigger-action-jobname+gtaJobName :: Lens' GlueTriggerAction (Maybe (Val Text))+gtaJobName = lens _glueTriggerActionJobName (\s a -> s { _glueTriggerActionJobName = a })
+ library-gen/Stratosphere/ResourceProperties/GlueTriggerCondition.hs view
@@ -0,0 +1,65 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-condition.html++module Stratosphere.ResourceProperties.GlueTriggerCondition where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for GlueTriggerCondition. See+-- 'glueTriggerCondition' for a more convenient constructor.+data GlueTriggerCondition =+  GlueTriggerCondition+  { _glueTriggerConditionJobName :: Maybe (Val Text)+  , _glueTriggerConditionLogicalOperator :: Maybe (Val Text)+  , _glueTriggerConditionState :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON GlueTriggerCondition where+  toJSON GlueTriggerCondition{..} =+    object $+    catMaybes+    [ fmap (("JobName",) . toJSON) _glueTriggerConditionJobName+    , fmap (("LogicalOperator",) . toJSON) _glueTriggerConditionLogicalOperator+    , fmap (("State",) . toJSON) _glueTriggerConditionState+    ]++instance FromJSON GlueTriggerCondition where+  parseJSON (Object obj) =+    GlueTriggerCondition <$>+      (obj .:? "JobName") <*>+      (obj .:? "LogicalOperator") <*>+      (obj .:? "State")+  parseJSON _ = mempty++-- | Constructor for 'GlueTriggerCondition' containing required fields as+-- arguments.+glueTriggerCondition+  :: GlueTriggerCondition+glueTriggerCondition  =+  GlueTriggerCondition+  { _glueTriggerConditionJobName = Nothing+  , _glueTriggerConditionLogicalOperator = Nothing+  , _glueTriggerConditionState = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-condition.html#cfn-glue-trigger-condition-jobname+gtcJobName :: Lens' GlueTriggerCondition (Maybe (Val Text))+gtcJobName = lens _glueTriggerConditionJobName (\s a -> s { _glueTriggerConditionJobName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-condition.html#cfn-glue-trigger-condition-logicaloperator+gtcLogicalOperator :: Lens' GlueTriggerCondition (Maybe (Val Text))+gtcLogicalOperator = lens _glueTriggerConditionLogicalOperator (\s a -> s { _glueTriggerConditionLogicalOperator = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-condition.html#cfn-glue-trigger-condition-state+gtcState :: Lens' GlueTriggerCondition (Maybe (Val Text))+gtcState = lens _glueTriggerConditionState (\s a -> s { _glueTriggerConditionState = a })
+ library-gen/Stratosphere/ResourceProperties/GlueTriggerPredicate.hs view
@@ -0,0 +1,57 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-predicate.html++module Stratosphere.ResourceProperties.GlueTriggerPredicate where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+import Stratosphere.ResourceProperties.GlueTriggerCondition++-- | Full data type definition for GlueTriggerPredicate. See+-- 'glueTriggerPredicate' for a more convenient constructor.+data GlueTriggerPredicate =+  GlueTriggerPredicate+  { _glueTriggerPredicateConditions :: Maybe [GlueTriggerCondition]+  , _glueTriggerPredicateLogical :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON GlueTriggerPredicate where+  toJSON GlueTriggerPredicate{..} =+    object $+    catMaybes+    [ fmap (("Conditions",) . toJSON) _glueTriggerPredicateConditions+    , fmap (("Logical",) . toJSON) _glueTriggerPredicateLogical+    ]++instance FromJSON GlueTriggerPredicate where+  parseJSON (Object obj) =+    GlueTriggerPredicate <$>+      (obj .:? "Conditions") <*>+      (obj .:? "Logical")+  parseJSON _ = mempty++-- | Constructor for 'GlueTriggerPredicate' containing required fields as+-- arguments.+glueTriggerPredicate+  :: GlueTriggerPredicate+glueTriggerPredicate  =+  GlueTriggerPredicate+  { _glueTriggerPredicateConditions = Nothing+  , _glueTriggerPredicateLogical = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-predicate.html#cfn-glue-trigger-predicate-conditions+gtpConditions :: Lens' GlueTriggerPredicate (Maybe [GlueTriggerCondition])+gtpConditions = lens _glueTriggerPredicateConditions (\s a -> s { _glueTriggerPredicateConditions = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-predicate.html#cfn-glue-trigger-predicate-logical+gtpLogical :: Lens' GlueTriggerPredicate (Maybe (Val Text))+gtpLogical = lens _glueTriggerPredicateLogical (\s a -> s { _glueTriggerPredicateLogical = a })
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationInput.hs view
@@ -14,6 +14,7 @@  import Stratosphere.Values import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputParallelism+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputProcessingConfiguration import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputSchema import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationKinesisFirehoseInput import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationKinesisStreamsInput@@ -23,6 +24,7 @@ data KinesisAnalyticsApplicationInput =   KinesisAnalyticsApplicationInput   { _kinesisAnalyticsApplicationInputInputParallelism :: Maybe KinesisAnalyticsApplicationInputParallelism+  , _kinesisAnalyticsApplicationInputInputProcessingConfiguration :: Maybe KinesisAnalyticsApplicationInputProcessingConfiguration   , _kinesisAnalyticsApplicationInputInputSchema :: KinesisAnalyticsApplicationInputSchema   , _kinesisAnalyticsApplicationInputKinesisFirehoseInput :: Maybe KinesisAnalyticsApplicationKinesisFirehoseInput   , _kinesisAnalyticsApplicationInputKinesisStreamsInput :: Maybe KinesisAnalyticsApplicationKinesisStreamsInput@@ -34,6 +36,7 @@     object $     catMaybes     [ fmap (("InputParallelism",) . toJSON) _kinesisAnalyticsApplicationInputInputParallelism+    , fmap (("InputProcessingConfiguration",) . toJSON) _kinesisAnalyticsApplicationInputInputProcessingConfiguration     , (Just . ("InputSchema",) . toJSON) _kinesisAnalyticsApplicationInputInputSchema     , fmap (("KinesisFirehoseInput",) . toJSON) _kinesisAnalyticsApplicationInputKinesisFirehoseInput     , fmap (("KinesisStreamsInput",) . toJSON) _kinesisAnalyticsApplicationInputKinesisStreamsInput@@ -44,6 +47,7 @@   parseJSON (Object obj) =     KinesisAnalyticsApplicationInput <$>       (obj .:? "InputParallelism") <*>+      (obj .:? "InputProcessingConfiguration") <*>       (obj .: "InputSchema") <*>       (obj .:? "KinesisFirehoseInput") <*>       (obj .:? "KinesisStreamsInput") <*>@@ -59,6 +63,7 @@ kinesisAnalyticsApplicationInput inputSchemaarg namePrefixarg =   KinesisAnalyticsApplicationInput   { _kinesisAnalyticsApplicationInputInputParallelism = Nothing+  , _kinesisAnalyticsApplicationInputInputProcessingConfiguration = Nothing   , _kinesisAnalyticsApplicationInputInputSchema = inputSchemaarg   , _kinesisAnalyticsApplicationInputKinesisFirehoseInput = Nothing   , _kinesisAnalyticsApplicationInputKinesisStreamsInput = Nothing@@ -68,6 +73,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-input.html#cfn-kinesisanalytics-application-input-inputparallelism kaaiInputParallelism :: Lens' KinesisAnalyticsApplicationInput (Maybe KinesisAnalyticsApplicationInputParallelism) kaaiInputParallelism = lens _kinesisAnalyticsApplicationInputInputParallelism (\s a -> s { _kinesisAnalyticsApplicationInputInputParallelism = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-input.html#cfn-kinesisanalytics-application-input-inputprocessingconfiguration+kaaiInputProcessingConfiguration :: Lens' KinesisAnalyticsApplicationInput (Maybe KinesisAnalyticsApplicationInputProcessingConfiguration)+kaaiInputProcessingConfiguration = lens _kinesisAnalyticsApplicationInputInputProcessingConfiguration (\s a -> s { _kinesisAnalyticsApplicationInputInputProcessingConfiguration = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-input.html#cfn-kinesisanalytics-application-input-inputschema kaaiInputSchema :: Lens' KinesisAnalyticsApplicationInput KinesisAnalyticsApplicationInputSchema
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationInputLambdaProcessor.hs view
@@ -0,0 +1,61 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-inputlambdaprocessor.html++module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputLambdaProcessor where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for+-- KinesisAnalyticsApplicationInputLambdaProcessor. See+-- 'kinesisAnalyticsApplicationInputLambdaProcessor' for a more convenient+-- constructor.+data KinesisAnalyticsApplicationInputLambdaProcessor =+  KinesisAnalyticsApplicationInputLambdaProcessor+  { _kinesisAnalyticsApplicationInputLambdaProcessorResourceARN :: Val Text+  , _kinesisAnalyticsApplicationInputLambdaProcessorRoleARN :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsApplicationInputLambdaProcessor where+  toJSON KinesisAnalyticsApplicationInputLambdaProcessor{..} =+    object $+    catMaybes+    [ (Just . ("ResourceARN",) . toJSON) _kinesisAnalyticsApplicationInputLambdaProcessorResourceARN+    , (Just . ("RoleARN",) . toJSON) _kinesisAnalyticsApplicationInputLambdaProcessorRoleARN+    ]++instance FromJSON KinesisAnalyticsApplicationInputLambdaProcessor where+  parseJSON (Object obj) =+    KinesisAnalyticsApplicationInputLambdaProcessor <$>+      (obj .: "ResourceARN") <*>+      (obj .: "RoleARN")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsApplicationInputLambdaProcessor'+-- containing required fields as arguments.+kinesisAnalyticsApplicationInputLambdaProcessor+  :: Val Text -- ^ 'kaailpResourceARN'+  -> Val Text -- ^ 'kaailpRoleARN'+  -> KinesisAnalyticsApplicationInputLambdaProcessor+kinesisAnalyticsApplicationInputLambdaProcessor resourceARNarg roleARNarg =+  KinesisAnalyticsApplicationInputLambdaProcessor+  { _kinesisAnalyticsApplicationInputLambdaProcessorResourceARN = resourceARNarg+  , _kinesisAnalyticsApplicationInputLambdaProcessorRoleARN = roleARNarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-inputlambdaprocessor.html#cfn-kinesisanalytics-application-inputlambdaprocessor-resourcearn+kaailpResourceARN :: Lens' KinesisAnalyticsApplicationInputLambdaProcessor (Val Text)+kaailpResourceARN = lens _kinesisAnalyticsApplicationInputLambdaProcessorResourceARN (\s a -> s { _kinesisAnalyticsApplicationInputLambdaProcessorResourceARN = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-inputlambdaprocessor.html#cfn-kinesisanalytics-application-inputlambdaprocessor-rolearn+kaailpRoleARN :: Lens' KinesisAnalyticsApplicationInputLambdaProcessor (Val Text)+kaailpRoleARN = lens _kinesisAnalyticsApplicationInputLambdaProcessorRoleARN (\s a -> s { _kinesisAnalyticsApplicationInputLambdaProcessorRoleARN = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationInputProcessingConfiguration.hs view
@@ -0,0 +1,51 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-inputprocessingconfiguration.html++module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputProcessingConfiguration where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputLambdaProcessor++-- | Full data type definition for+-- KinesisAnalyticsApplicationInputProcessingConfiguration. See+-- 'kinesisAnalyticsApplicationInputProcessingConfiguration' for a more+-- convenient constructor.+data KinesisAnalyticsApplicationInputProcessingConfiguration =+  KinesisAnalyticsApplicationInputProcessingConfiguration+  { _kinesisAnalyticsApplicationInputProcessingConfigurationInputLambdaProcessor :: Maybe KinesisAnalyticsApplicationInputLambdaProcessor+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsApplicationInputProcessingConfiguration where+  toJSON KinesisAnalyticsApplicationInputProcessingConfiguration{..} =+    object $+    catMaybes+    [ fmap (("InputLambdaProcessor",) . toJSON) _kinesisAnalyticsApplicationInputProcessingConfigurationInputLambdaProcessor+    ]++instance FromJSON KinesisAnalyticsApplicationInputProcessingConfiguration where+  parseJSON (Object obj) =+    KinesisAnalyticsApplicationInputProcessingConfiguration <$>+      (obj .:? "InputLambdaProcessor")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsApplicationInputProcessingConfiguration'+-- containing required fields as arguments.+kinesisAnalyticsApplicationInputProcessingConfiguration+  :: KinesisAnalyticsApplicationInputProcessingConfiguration+kinesisAnalyticsApplicationInputProcessingConfiguration  =+  KinesisAnalyticsApplicationInputProcessingConfiguration+  { _kinesisAnalyticsApplicationInputProcessingConfigurationInputLambdaProcessor = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-inputprocessingconfiguration.html#cfn-kinesisanalytics-application-inputprocessingconfiguration-inputlambdaprocessor+kaaipcInputLambdaProcessor :: Lens' KinesisAnalyticsApplicationInputProcessingConfiguration (Maybe KinesisAnalyticsApplicationInputLambdaProcessor)+kaaipcInputLambdaProcessor = lens _kinesisAnalyticsApplicationInputProcessingConfigurationInputLambdaProcessor (\s a -> s { _kinesisAnalyticsApplicationInputProcessingConfigurationInputLambdaProcessor = a })
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamS3DestinationConfiguration.hs view
@@ -29,7 +29,7 @@   , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationCloudWatchLoggingOptions :: Maybe KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions   , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationCompressionFormat :: Val KinesisFirehoseS3CompressionFormat   , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationEncryptionConfiguration :: Maybe KinesisFirehoseDeliveryStreamEncryptionConfiguration-  , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationPrefix :: Val Text+  , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationPrefix :: Maybe (Val Text)   , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationRoleARN :: Val Text   } deriving (Show, Eq) @@ -42,7 +42,7 @@     , fmap (("CloudWatchLoggingOptions",) . toJSON) _kinesisFirehoseDeliveryStreamS3DestinationConfigurationCloudWatchLoggingOptions     , (Just . ("CompressionFormat",) . toJSON) _kinesisFirehoseDeliveryStreamS3DestinationConfigurationCompressionFormat     , fmap (("EncryptionConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamS3DestinationConfigurationEncryptionConfiguration-    , (Just . ("Prefix",) . toJSON) _kinesisFirehoseDeliveryStreamS3DestinationConfigurationPrefix+    , fmap (("Prefix",) . toJSON) _kinesisFirehoseDeliveryStreamS3DestinationConfigurationPrefix     , (Just . ("RoleARN",) . toJSON) _kinesisFirehoseDeliveryStreamS3DestinationConfigurationRoleARN     ] @@ -54,7 +54,7 @@       (obj .:? "CloudWatchLoggingOptions") <*>       (obj .: "CompressionFormat") <*>       (obj .:? "EncryptionConfiguration") <*>-      (obj .: "Prefix") <*>+      (obj .:? "Prefix") <*>       (obj .: "RoleARN")   parseJSON _ = mempty @@ -64,17 +64,16 @@   :: Val Text -- ^ 'kfdssdcBucketARN'   -> KinesisFirehoseDeliveryStreamBufferingHints -- ^ 'kfdssdcBufferingHints'   -> Val KinesisFirehoseS3CompressionFormat -- ^ 'kfdssdcCompressionFormat'-  -> Val Text -- ^ 'kfdssdcPrefix'   -> Val Text -- ^ 'kfdssdcRoleARN'   -> KinesisFirehoseDeliveryStreamS3DestinationConfiguration-kinesisFirehoseDeliveryStreamS3DestinationConfiguration bucketARNarg bufferingHintsarg compressionFormatarg prefixarg roleARNarg =+kinesisFirehoseDeliveryStreamS3DestinationConfiguration bucketARNarg bufferingHintsarg compressionFormatarg roleARNarg =   KinesisFirehoseDeliveryStreamS3DestinationConfiguration   { _kinesisFirehoseDeliveryStreamS3DestinationConfigurationBucketARN = bucketARNarg   , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationBufferingHints = bufferingHintsarg   , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationCloudWatchLoggingOptions = Nothing   , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationCompressionFormat = compressionFormatarg   , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationEncryptionConfiguration = Nothing-  , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationPrefix = prefixarg+  , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationPrefix = Nothing   , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationRoleARN = roleARNarg   } @@ -99,7 +98,7 @@ kfdssdcEncryptionConfiguration = lens _kinesisFirehoseDeliveryStreamS3DestinationConfigurationEncryptionConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamS3DestinationConfigurationEncryptionConfiguration = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-s3destinationconfiguration.html#cfn-kinesisfirehose-deliverystream-s3destinationconfiguration-prefix-kfdssdcPrefix :: Lens' KinesisFirehoseDeliveryStreamS3DestinationConfiguration (Val Text)+kfdssdcPrefix :: Lens' KinesisFirehoseDeliveryStreamS3DestinationConfiguration (Maybe (Val Text)) kfdssdcPrefix = lens _kinesisFirehoseDeliveryStreamS3DestinationConfigurationPrefix (\s a -> s { _kinesisFirehoseDeliveryStreamS3DestinationConfigurationPrefix = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-s3destinationconfiguration.html#cfn-kinesisfirehose-deliverystream-s3destinationconfiguration-rolearn
+ library-gen/Stratosphere/ResourceProperties/LambdaAliasAliasRoutingConfiguration.hs view
@@ -0,0 +1,50 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-alias-aliasroutingconfiguration.html++module Stratosphere.ResourceProperties.LambdaAliasAliasRoutingConfiguration where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+import Stratosphere.ResourceProperties.LambdaAliasVersionWeight++-- | Full data type definition for LambdaAliasAliasRoutingConfiguration. See+-- 'lambdaAliasAliasRoutingConfiguration' for a more convenient constructor.+data LambdaAliasAliasRoutingConfiguration =+  LambdaAliasAliasRoutingConfiguration+  { _lambdaAliasAliasRoutingConfigurationAdditionalVersionWeights :: [LambdaAliasVersionWeight]+  } deriving (Show, Eq)++instance ToJSON LambdaAliasAliasRoutingConfiguration where+  toJSON LambdaAliasAliasRoutingConfiguration{..} =+    object $+    catMaybes+    [ (Just . ("AdditionalVersionWeights",) . toJSON) _lambdaAliasAliasRoutingConfigurationAdditionalVersionWeights+    ]++instance FromJSON LambdaAliasAliasRoutingConfiguration where+  parseJSON (Object obj) =+    LambdaAliasAliasRoutingConfiguration <$>+      (obj .: "AdditionalVersionWeights")+  parseJSON _ = mempty++-- | Constructor for 'LambdaAliasAliasRoutingConfiguration' containing+-- required fields as arguments.+lambdaAliasAliasRoutingConfiguration+  :: [LambdaAliasVersionWeight] -- ^ 'laarcAdditionalVersionWeights'+  -> LambdaAliasAliasRoutingConfiguration+lambdaAliasAliasRoutingConfiguration additionalVersionWeightsarg =+  LambdaAliasAliasRoutingConfiguration+  { _lambdaAliasAliasRoutingConfigurationAdditionalVersionWeights = additionalVersionWeightsarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-alias-aliasroutingconfiguration.html#cfn-lambda-alias-aliasroutingconfiguration-additionalversionweights+laarcAdditionalVersionWeights :: Lens' LambdaAliasAliasRoutingConfiguration [LambdaAliasVersionWeight]+laarcAdditionalVersionWeights = lens _lambdaAliasAliasRoutingConfigurationAdditionalVersionWeights (\s a -> s { _lambdaAliasAliasRoutingConfigurationAdditionalVersionWeights = a })
+ library-gen/Stratosphere/ResourceProperties/LambdaAliasVersionWeight.hs view
@@ -0,0 +1,59 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-alias-versionweight.html++module Stratosphere.ResourceProperties.LambdaAliasVersionWeight where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for LambdaAliasVersionWeight. See+-- 'lambdaAliasVersionWeight' for a more convenient constructor.+data LambdaAliasVersionWeight =+  LambdaAliasVersionWeight+  { _lambdaAliasVersionWeightFunctionVersion :: Val Text+  , _lambdaAliasVersionWeightFunctionWeight :: Val Double+  } deriving (Show, Eq)++instance ToJSON LambdaAliasVersionWeight where+  toJSON LambdaAliasVersionWeight{..} =+    object $+    catMaybes+    [ (Just . ("FunctionVersion",) . toJSON) _lambdaAliasVersionWeightFunctionVersion+    , (Just . ("FunctionWeight",) . toJSON . fmap Double') _lambdaAliasVersionWeightFunctionWeight+    ]++instance FromJSON LambdaAliasVersionWeight where+  parseJSON (Object obj) =+    LambdaAliasVersionWeight <$>+      (obj .: "FunctionVersion") <*>+      fmap (fmap unDouble') (obj .: "FunctionWeight")+  parseJSON _ = mempty++-- | Constructor for 'LambdaAliasVersionWeight' containing required fields as+-- arguments.+lambdaAliasVersionWeight+  :: Val Text -- ^ 'lavwFunctionVersion'+  -> Val Double -- ^ 'lavwFunctionWeight'+  -> LambdaAliasVersionWeight+lambdaAliasVersionWeight functionVersionarg functionWeightarg =+  LambdaAliasVersionWeight+  { _lambdaAliasVersionWeightFunctionVersion = functionVersionarg+  , _lambdaAliasVersionWeightFunctionWeight = functionWeightarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-alias-versionweight.html#cfn-lambda-alias-versionweight-functionversion+lavwFunctionVersion :: Lens' LambdaAliasVersionWeight (Val Text)+lavwFunctionVersion = lens _lambdaAliasVersionWeightFunctionVersion (\s a -> s { _lambdaAliasVersionWeightFunctionVersion = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-alias-versionweight.html#cfn-lambda-alias-versionweight-functionweight+lavwFunctionWeight :: Lens' LambdaAliasVersionWeight (Val Double)+lavwFunctionWeight = lens _lambdaAliasVersionWeightFunctionWeight (\s a -> s { _lambdaAliasVersionWeightFunctionWeight = a })
library-gen/Stratosphere/ResourceProperties/RDSOptionGroupOptionConfiguration.hs view
@@ -22,6 +22,7 @@   { _rDSOptionGroupOptionConfigurationDBSecurityGroupMemberships :: Maybe (ValList Text)   , _rDSOptionGroupOptionConfigurationOptionName :: Val Text   , _rDSOptionGroupOptionConfigurationOptionSettings :: Maybe RDSOptionGroupOptionSetting+  , _rDSOptionGroupOptionConfigurationOptionVersion :: Maybe (Val Text)   , _rDSOptionGroupOptionConfigurationPort :: Maybe (Val Integer)   , _rDSOptionGroupOptionConfigurationVpcSecurityGroupMemberships :: Maybe (ValList Text)   } deriving (Show, Eq)@@ -33,6 +34,7 @@     [ fmap (("DBSecurityGroupMemberships",) . toJSON) _rDSOptionGroupOptionConfigurationDBSecurityGroupMemberships     , (Just . ("OptionName",) . toJSON) _rDSOptionGroupOptionConfigurationOptionName     , fmap (("OptionSettings",) . toJSON) _rDSOptionGroupOptionConfigurationOptionSettings+    , fmap (("OptionVersion",) . toJSON) _rDSOptionGroupOptionConfigurationOptionVersion     , fmap (("Port",) . toJSON . fmap Integer') _rDSOptionGroupOptionConfigurationPort     , fmap (("VpcSecurityGroupMemberships",) . toJSON) _rDSOptionGroupOptionConfigurationVpcSecurityGroupMemberships     ]@@ -43,6 +45,7 @@       (obj .:? "DBSecurityGroupMemberships") <*>       (obj .: "OptionName") <*>       (obj .:? "OptionSettings") <*>+      (obj .:? "OptionVersion") <*>       fmap (fmap (fmap unInteger')) (obj .:? "Port") <*>       (obj .:? "VpcSecurityGroupMemberships")   parseJSON _ = mempty@@ -57,6 +60,7 @@   { _rDSOptionGroupOptionConfigurationDBSecurityGroupMemberships = Nothing   , _rDSOptionGroupOptionConfigurationOptionName = optionNamearg   , _rDSOptionGroupOptionConfigurationOptionSettings = Nothing+  , _rDSOptionGroupOptionConfigurationOptionVersion = Nothing   , _rDSOptionGroupOptionConfigurationPort = Nothing   , _rDSOptionGroupOptionConfigurationVpcSecurityGroupMemberships = Nothing   }@@ -72,6 +76,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-optiongroup-optionconfigurations.html#cfn-rds-optiongroup-optionconfigurations-optionsettings rdsogocOptionSettings :: Lens' RDSOptionGroupOptionConfiguration (Maybe RDSOptionGroupOptionSetting) rdsogocOptionSettings = lens _rDSOptionGroupOptionConfigurationOptionSettings (\s a -> s { _rDSOptionGroupOptionConfigurationOptionSettings = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-optiongroup-optionconfigurations.html#cfn-rds-optiongroup-optionconfiguration-optionversion+rdsogocOptionVersion :: Lens' RDSOptionGroupOptionConfiguration (Maybe (Val Text))+rdsogocOptionVersion = lens _rDSOptionGroupOptionConfigurationOptionVersion (\s a -> s { _rDSOptionGroupOptionConfigurationOptionVersion = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-optiongroup-optionconfigurations.html#cfn-rds-optiongroup-optionconfigurations-port rdsogocPort :: Lens' RDSOptionGroupOptionConfiguration (Maybe (Val Integer))
+ library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskLoggingInfo.hs view
@@ -0,0 +1,67 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-logginginfo.html++module Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskLoggingInfo where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for SSMMaintenanceWindowTaskLoggingInfo. See+-- 'ssmMaintenanceWindowTaskLoggingInfo' for a more convenient constructor.+data SSMMaintenanceWindowTaskLoggingInfo =+  SSMMaintenanceWindowTaskLoggingInfo+  { _sSMMaintenanceWindowTaskLoggingInfoRegion :: Val Text+  , _sSMMaintenanceWindowTaskLoggingInfoS3Bucket :: Val Text+  , _sSMMaintenanceWindowTaskLoggingInfoS3Prefix :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON SSMMaintenanceWindowTaskLoggingInfo where+  toJSON SSMMaintenanceWindowTaskLoggingInfo{..} =+    object $+    catMaybes+    [ (Just . ("Region",) . toJSON) _sSMMaintenanceWindowTaskLoggingInfoRegion+    , (Just . ("S3Bucket",) . toJSON) _sSMMaintenanceWindowTaskLoggingInfoS3Bucket+    , fmap (("S3Prefix",) . toJSON) _sSMMaintenanceWindowTaskLoggingInfoS3Prefix+    ]++instance FromJSON SSMMaintenanceWindowTaskLoggingInfo where+  parseJSON (Object obj) =+    SSMMaintenanceWindowTaskLoggingInfo <$>+      (obj .: "Region") <*>+      (obj .: "S3Bucket") <*>+      (obj .:? "S3Prefix")+  parseJSON _ = mempty++-- | Constructor for 'SSMMaintenanceWindowTaskLoggingInfo' containing required+-- fields as arguments.+ssmMaintenanceWindowTaskLoggingInfo+  :: Val Text -- ^ 'ssmmwtliRegion'+  -> Val Text -- ^ 'ssmmwtliS3Bucket'+  -> SSMMaintenanceWindowTaskLoggingInfo+ssmMaintenanceWindowTaskLoggingInfo regionarg s3Bucketarg =+  SSMMaintenanceWindowTaskLoggingInfo+  { _sSMMaintenanceWindowTaskLoggingInfoRegion = regionarg+  , _sSMMaintenanceWindowTaskLoggingInfoS3Bucket = s3Bucketarg+  , _sSMMaintenanceWindowTaskLoggingInfoS3Prefix = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-logginginfo.html#cfn-ssm-maintenancewindowtask-logginginfo-region+ssmmwtliRegion :: Lens' SSMMaintenanceWindowTaskLoggingInfo (Val Text)+ssmmwtliRegion = lens _sSMMaintenanceWindowTaskLoggingInfoRegion (\s a -> s { _sSMMaintenanceWindowTaskLoggingInfoRegion = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-logginginfo.html#cfn-ssm-maintenancewindowtask-logginginfo-s3bucket+ssmmwtliS3Bucket :: Lens' SSMMaintenanceWindowTaskLoggingInfo (Val Text)+ssmmwtliS3Bucket = lens _sSMMaintenanceWindowTaskLoggingInfoS3Bucket (\s a -> s { _sSMMaintenanceWindowTaskLoggingInfoS3Bucket = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-logginginfo.html#cfn-ssm-maintenancewindowtask-logginginfo-s3prefix+ssmmwtliS3Prefix :: Lens' SSMMaintenanceWindowTaskLoggingInfo (Maybe (Val Text))+ssmmwtliS3Prefix = lens _sSMMaintenanceWindowTaskLoggingInfoS3Prefix (\s a -> s { _sSMMaintenanceWindowTaskLoggingInfoS3Prefix = a })
+ library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters.hs view
@@ -0,0 +1,60 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowautomationparameters.html++module Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for+-- SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters. See+-- 'ssmMaintenanceWindowTaskMaintenanceWindowAutomationParameters' for a+-- more convenient constructor.+data SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters =+  SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters+  { _sSMMaintenanceWindowTaskMaintenanceWindowAutomationParametersDocumentVersion :: Maybe (Val Text)+  , _sSMMaintenanceWindowTaskMaintenanceWindowAutomationParametersParameters :: Maybe Object+  } deriving (Show, Eq)++instance ToJSON SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters where+  toJSON SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters{..} =+    object $+    catMaybes+    [ fmap (("DocumentVersion",) . toJSON) _sSMMaintenanceWindowTaskMaintenanceWindowAutomationParametersDocumentVersion+    , fmap (("Parameters",) . toJSON) _sSMMaintenanceWindowTaskMaintenanceWindowAutomationParametersParameters+    ]++instance FromJSON SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters where+  parseJSON (Object obj) =+    SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters <$>+      (obj .:? "DocumentVersion") <*>+      (obj .:? "Parameters")+  parseJSON _ = mempty++-- | Constructor for+-- 'SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters'+-- containing required fields as arguments.+ssmMaintenanceWindowTaskMaintenanceWindowAutomationParameters+  :: SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters+ssmMaintenanceWindowTaskMaintenanceWindowAutomationParameters  =+  SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters+  { _sSMMaintenanceWindowTaskMaintenanceWindowAutomationParametersDocumentVersion = Nothing+  , _sSMMaintenanceWindowTaskMaintenanceWindowAutomationParametersParameters = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowautomationparameters.html#cfn-ssm-maintenancewindowtask-maintenancewindowautomationparameters-documentversion+ssmmwtmwapDocumentVersion :: Lens' SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters (Maybe (Val Text))+ssmmwtmwapDocumentVersion = lens _sSMMaintenanceWindowTaskMaintenanceWindowAutomationParametersDocumentVersion (\s a -> s { _sSMMaintenanceWindowTaskMaintenanceWindowAutomationParametersDocumentVersion = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowautomationparameters.html#cfn-ssm-maintenancewindowtask-maintenancewindowautomationparameters-parameters+ssmmwtmwapParameters :: Lens' SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters (Maybe Object)+ssmmwtmwapParameters = lens _sSMMaintenanceWindowTaskMaintenanceWindowAutomationParametersParameters (\s a -> s { _sSMMaintenanceWindowTaskMaintenanceWindowAutomationParametersParameters = a })
+ library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters.hs view
@@ -0,0 +1,68 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowlambdaparameters.html++module Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for+-- SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters. See+-- 'ssmMaintenanceWindowTaskMaintenanceWindowLambdaParameters' for a more+-- convenient constructor.+data SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters =+  SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters+  { _sSMMaintenanceWindowTaskMaintenanceWindowLambdaParametersClientContext :: Maybe (Val Text)+  , _sSMMaintenanceWindowTaskMaintenanceWindowLambdaParametersPayload :: Maybe (Val Text)+  , _sSMMaintenanceWindowTaskMaintenanceWindowLambdaParametersQualifier :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters where+  toJSON SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters{..} =+    object $+    catMaybes+    [ fmap (("ClientContext",) . toJSON) _sSMMaintenanceWindowTaskMaintenanceWindowLambdaParametersClientContext+    , fmap (("Payload",) . toJSON) _sSMMaintenanceWindowTaskMaintenanceWindowLambdaParametersPayload+    , fmap (("Qualifier",) . toJSON) _sSMMaintenanceWindowTaskMaintenanceWindowLambdaParametersQualifier+    ]++instance FromJSON SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters where+  parseJSON (Object obj) =+    SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters <$>+      (obj .:? "ClientContext") <*>+      (obj .:? "Payload") <*>+      (obj .:? "Qualifier")+  parseJSON _ = mempty++-- | Constructor for+-- 'SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters' containing+-- required fields as arguments.+ssmMaintenanceWindowTaskMaintenanceWindowLambdaParameters+  :: SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters+ssmMaintenanceWindowTaskMaintenanceWindowLambdaParameters  =+  SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters+  { _sSMMaintenanceWindowTaskMaintenanceWindowLambdaParametersClientContext = Nothing+  , _sSMMaintenanceWindowTaskMaintenanceWindowLambdaParametersPayload = Nothing+  , _sSMMaintenanceWindowTaskMaintenanceWindowLambdaParametersQualifier = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowlambdaparameters.html#cfn-ssm-maintenancewindowtask-maintenancewindowlambdaparameters-clientcontext+ssmmwtmwlpClientContext :: Lens' SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters (Maybe (Val Text))+ssmmwtmwlpClientContext = lens _sSMMaintenanceWindowTaskMaintenanceWindowLambdaParametersClientContext (\s a -> s { _sSMMaintenanceWindowTaskMaintenanceWindowLambdaParametersClientContext = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowlambdaparameters.html#cfn-ssm-maintenancewindowtask-maintenancewindowlambdaparameters-payload+ssmmwtmwlpPayload :: Lens' SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters (Maybe (Val Text))+ssmmwtmwlpPayload = lens _sSMMaintenanceWindowTaskMaintenanceWindowLambdaParametersPayload (\s a -> s { _sSMMaintenanceWindowTaskMaintenanceWindowLambdaParametersPayload = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowlambdaparameters.html#cfn-ssm-maintenancewindowtask-maintenancewindowlambdaparameters-qualifier+ssmmwtmwlpQualifier :: Lens' SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters (Maybe (Val Text))+ssmmwtmwlpQualifier = lens _sSMMaintenanceWindowTaskMaintenanceWindowLambdaParametersQualifier (\s a -> s { _sSMMaintenanceWindowTaskMaintenanceWindowLambdaParametersQualifier = a })
+ library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters.hs view
@@ -0,0 +1,116 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowruncommandparameters.html++module Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+import Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskNotificationConfig++-- | Full data type definition for+-- SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters. See+-- 'ssmMaintenanceWindowTaskMaintenanceWindowRunCommandParameters' for a+-- more convenient constructor.+data SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters =+  SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters+  { _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersComment :: Maybe (Val Text)+  , _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersDocumentHash :: Maybe (Val Text)+  , _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersDocumentHashType :: Maybe (Val Text)+  , _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersNotificationConfig :: Maybe SSMMaintenanceWindowTaskNotificationConfig+  , _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersOutputS3BucketName :: Maybe (Val Text)+  , _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersOutputS3KeyPrefix :: Maybe (Val Text)+  , _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersParameters :: Maybe Object+  , _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersServiceRoleArn :: Maybe (Val Text)+  , _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersTimeoutSeconds :: Maybe (Val Integer)+  } deriving (Show, Eq)++instance ToJSON SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters where+  toJSON SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters{..} =+    object $+    catMaybes+    [ fmap (("Comment",) . toJSON) _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersComment+    , fmap (("DocumentHash",) . toJSON) _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersDocumentHash+    , fmap (("DocumentHashType",) . toJSON) _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersDocumentHashType+    , fmap (("NotificationConfig",) . toJSON) _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersNotificationConfig+    , fmap (("OutputS3BucketName",) . toJSON) _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersOutputS3BucketName+    , fmap (("OutputS3KeyPrefix",) . toJSON) _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersOutputS3KeyPrefix+    , fmap (("Parameters",) . toJSON) _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersParameters+    , fmap (("ServiceRoleArn",) . toJSON) _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersServiceRoleArn+    , fmap (("TimeoutSeconds",) . toJSON . fmap Integer') _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersTimeoutSeconds+    ]++instance FromJSON SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters where+  parseJSON (Object obj) =+    SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters <$>+      (obj .:? "Comment") <*>+      (obj .:? "DocumentHash") <*>+      (obj .:? "DocumentHashType") <*>+      (obj .:? "NotificationConfig") <*>+      (obj .:? "OutputS3BucketName") <*>+      (obj .:? "OutputS3KeyPrefix") <*>+      (obj .:? "Parameters") <*>+      (obj .:? "ServiceRoleArn") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "TimeoutSeconds")+  parseJSON _ = mempty++-- | Constructor for+-- 'SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters'+-- containing required fields as arguments.+ssmMaintenanceWindowTaskMaintenanceWindowRunCommandParameters+  :: SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters+ssmMaintenanceWindowTaskMaintenanceWindowRunCommandParameters  =+  SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters+  { _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersComment = Nothing+  , _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersDocumentHash = Nothing+  , _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersDocumentHashType = Nothing+  , _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersNotificationConfig = Nothing+  , _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersOutputS3BucketName = Nothing+  , _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersOutputS3KeyPrefix = Nothing+  , _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersParameters = Nothing+  , _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersServiceRoleArn = Nothing+  , _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersTimeoutSeconds = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowruncommandparameters.html#cfn-ssm-maintenancewindowtask-maintenancewindowruncommandparameters-comment+ssmmwtmwrcpComment :: Lens' SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters (Maybe (Val Text))+ssmmwtmwrcpComment = lens _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersComment (\s a -> s { _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersComment = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowruncommandparameters.html#cfn-ssm-maintenancewindowtask-maintenancewindowruncommandparameters-documenthash+ssmmwtmwrcpDocumentHash :: Lens' SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters (Maybe (Val Text))+ssmmwtmwrcpDocumentHash = lens _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersDocumentHash (\s a -> s { _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersDocumentHash = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowruncommandparameters.html#cfn-ssm-maintenancewindowtask-maintenancewindowruncommandparameters-documenthashtype+ssmmwtmwrcpDocumentHashType :: Lens' SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters (Maybe (Val Text))+ssmmwtmwrcpDocumentHashType = lens _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersDocumentHashType (\s a -> s { _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersDocumentHashType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowruncommandparameters.html#cfn-ssm-maintenancewindowtask-maintenancewindowruncommandparameters-notificationconfig+ssmmwtmwrcpNotificationConfig :: Lens' SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters (Maybe SSMMaintenanceWindowTaskNotificationConfig)+ssmmwtmwrcpNotificationConfig = lens _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersNotificationConfig (\s a -> s { _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersNotificationConfig = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowruncommandparameters.html#cfn-ssm-maintenancewindowtask-maintenancewindowruncommandparameters-outputs3bucketname+ssmmwtmwrcpOutputS3BucketName :: Lens' SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters (Maybe (Val Text))+ssmmwtmwrcpOutputS3BucketName = lens _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersOutputS3BucketName (\s a -> s { _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersOutputS3BucketName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowruncommandparameters.html#cfn-ssm-maintenancewindowtask-maintenancewindowruncommandparameters-outputs3keyprefix+ssmmwtmwrcpOutputS3KeyPrefix :: Lens' SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters (Maybe (Val Text))+ssmmwtmwrcpOutputS3KeyPrefix = lens _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersOutputS3KeyPrefix (\s a -> s { _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersOutputS3KeyPrefix = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowruncommandparameters.html#cfn-ssm-maintenancewindowtask-maintenancewindowruncommandparameters-parameters+ssmmwtmwrcpParameters :: Lens' SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters (Maybe Object)+ssmmwtmwrcpParameters = lens _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersParameters (\s a -> s { _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowruncommandparameters.html#cfn-ssm-maintenancewindowtask-maintenancewindowruncommandparameters-servicerolearn+ssmmwtmwrcpServiceRoleArn :: Lens' SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters (Maybe (Val Text))+ssmmwtmwrcpServiceRoleArn = lens _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersServiceRoleArn (\s a -> s { _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersServiceRoleArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowruncommandparameters.html#cfn-ssm-maintenancewindowtask-maintenancewindowruncommandparameters-timeoutseconds+ssmmwtmwrcpTimeoutSeconds :: Lens' SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters (Maybe (Val Integer))+ssmmwtmwrcpTimeoutSeconds = lens _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersTimeoutSeconds (\s a -> s { _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersTimeoutSeconds = a })
+ library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters.hs view
@@ -0,0 +1,60 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowstepfunctionsparameters.html++module Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for+-- SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters. See+-- 'ssmMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters' for a+-- more convenient constructor.+data SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters =+  SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters+  { _sSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParametersInput :: Maybe (Val Text)+  , _sSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParametersName :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters where+  toJSON SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters{..} =+    object $+    catMaybes+    [ fmap (("Input",) . toJSON) _sSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParametersInput+    , fmap (("Name",) . toJSON) _sSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParametersName+    ]++instance FromJSON SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters where+  parseJSON (Object obj) =+    SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters <$>+      (obj .:? "Input") <*>+      (obj .:? "Name")+  parseJSON _ = mempty++-- | Constructor for+-- 'SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters'+-- containing required fields as arguments.+ssmMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters+  :: SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters+ssmMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters  =+  SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters+  { _sSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParametersInput = Nothing+  , _sSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParametersName = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowstepfunctionsparameters.html#cfn-ssm-maintenancewindowtask-maintenancewindowstepfunctionsparameters-input+ssmmwtmwsfpInput :: Lens' SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters (Maybe (Val Text))+ssmmwtmwsfpInput = lens _sSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParametersInput (\s a -> s { _sSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParametersInput = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowstepfunctionsparameters.html#cfn-ssm-maintenancewindowtask-maintenancewindowstepfunctionsparameters-name+ssmmwtmwsfpName :: Lens' SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters (Maybe (Val Text))+ssmmwtmwsfpName = lens _sSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParametersName (\s a -> s { _sSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParametersName = a })
+ library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskNotificationConfig.hs view
@@ -0,0 +1,66 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-notificationconfig.html++module Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskNotificationConfig where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for SSMMaintenanceWindowTaskNotificationConfig.+-- See 'ssmMaintenanceWindowTaskNotificationConfig' for a more convenient+-- constructor.+data SSMMaintenanceWindowTaskNotificationConfig =+  SSMMaintenanceWindowTaskNotificationConfig+  { _sSMMaintenanceWindowTaskNotificationConfigNotificationArn :: Maybe (Val Text)+  , _sSMMaintenanceWindowTaskNotificationConfigNotificationEvents :: Maybe (ValList Text)+  , _sSMMaintenanceWindowTaskNotificationConfigNotificationType :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON SSMMaintenanceWindowTaskNotificationConfig where+  toJSON SSMMaintenanceWindowTaskNotificationConfig{..} =+    object $+    catMaybes+    [ fmap (("NotificationArn",) . toJSON) _sSMMaintenanceWindowTaskNotificationConfigNotificationArn+    , fmap (("NotificationEvents",) . toJSON) _sSMMaintenanceWindowTaskNotificationConfigNotificationEvents+    , fmap (("NotificationType",) . toJSON) _sSMMaintenanceWindowTaskNotificationConfigNotificationType+    ]++instance FromJSON SSMMaintenanceWindowTaskNotificationConfig where+  parseJSON (Object obj) =+    SSMMaintenanceWindowTaskNotificationConfig <$>+      (obj .:? "NotificationArn") <*>+      (obj .:? "NotificationEvents") <*>+      (obj .:? "NotificationType")+  parseJSON _ = mempty++-- | Constructor for 'SSMMaintenanceWindowTaskNotificationConfig' containing+-- required fields as arguments.+ssmMaintenanceWindowTaskNotificationConfig+  :: SSMMaintenanceWindowTaskNotificationConfig+ssmMaintenanceWindowTaskNotificationConfig  =+  SSMMaintenanceWindowTaskNotificationConfig+  { _sSMMaintenanceWindowTaskNotificationConfigNotificationArn = Nothing+  , _sSMMaintenanceWindowTaskNotificationConfigNotificationEvents = Nothing+  , _sSMMaintenanceWindowTaskNotificationConfigNotificationType = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-notificationconfig.html#cfn-ssm-maintenancewindowtask-notificationconfig-notificationarn+ssmmwtncNotificationArn :: Lens' SSMMaintenanceWindowTaskNotificationConfig (Maybe (Val Text))+ssmmwtncNotificationArn = lens _sSMMaintenanceWindowTaskNotificationConfigNotificationArn (\s a -> s { _sSMMaintenanceWindowTaskNotificationConfigNotificationArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-notificationconfig.html#cfn-ssm-maintenancewindowtask-notificationconfig-notificationevents+ssmmwtncNotificationEvents :: Lens' SSMMaintenanceWindowTaskNotificationConfig (Maybe (ValList Text))+ssmmwtncNotificationEvents = lens _sSMMaintenanceWindowTaskNotificationConfigNotificationEvents (\s a -> s { _sSMMaintenanceWindowTaskNotificationConfigNotificationEvents = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-notificationconfig.html#cfn-ssm-maintenancewindowtask-notificationconfig-notificationtype+ssmmwtncNotificationType :: Lens' SSMMaintenanceWindowTaskNotificationConfig (Maybe (Val Text))+ssmmwtncNotificationType = lens _sSMMaintenanceWindowTaskNotificationConfigNotificationType (\s a -> s { _sSMMaintenanceWindowTaskNotificationConfigNotificationType = a })
+ library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskTarget.hs view
@@ -0,0 +1,58 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-target.html++module Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskTarget where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for SSMMaintenanceWindowTaskTarget. See+-- 'ssmMaintenanceWindowTaskTarget' for a more convenient constructor.+data SSMMaintenanceWindowTaskTarget =+  SSMMaintenanceWindowTaskTarget+  { _sSMMaintenanceWindowTaskTargetKey :: Val Text+  , _sSMMaintenanceWindowTaskTargetValues :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON SSMMaintenanceWindowTaskTarget where+  toJSON SSMMaintenanceWindowTaskTarget{..} =+    object $+    catMaybes+    [ (Just . ("Key",) . toJSON) _sSMMaintenanceWindowTaskTargetKey+    , fmap (("Values",) . toJSON) _sSMMaintenanceWindowTaskTargetValues+    ]++instance FromJSON SSMMaintenanceWindowTaskTarget where+  parseJSON (Object obj) =+    SSMMaintenanceWindowTaskTarget <$>+      (obj .: "Key") <*>+      (obj .:? "Values")+  parseJSON _ = mempty++-- | Constructor for 'SSMMaintenanceWindowTaskTarget' containing required+-- fields as arguments.+ssmMaintenanceWindowTaskTarget+  :: Val Text -- ^ 'ssmmwttKey'+  -> SSMMaintenanceWindowTaskTarget+ssmMaintenanceWindowTaskTarget keyarg =+  SSMMaintenanceWindowTaskTarget+  { _sSMMaintenanceWindowTaskTargetKey = keyarg+  , _sSMMaintenanceWindowTaskTargetValues = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-target.html#cfn-ssm-maintenancewindowtask-target-key+ssmmwttKey :: Lens' SSMMaintenanceWindowTaskTarget (Val Text)+ssmmwttKey = lens _sSMMaintenanceWindowTaskTargetKey (\s a -> s { _sSMMaintenanceWindowTaskTargetKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-target.html#cfn-ssm-maintenancewindowtask-target-values+ssmmwttValues :: Lens' SSMMaintenanceWindowTaskTarget (Maybe (ValList Text))+ssmmwttValues = lens _sSMMaintenanceWindowTaskTargetValues (\s a -> s { _sSMMaintenanceWindowTaskTargetValues = a })
+ library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskTaskInvocationParameters.hs view
@@ -0,0 +1,78 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-taskinvocationparameters.html++module Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskTaskInvocationParameters where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+import Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters+import Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters+import Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters+import Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters++-- | Full data type definition for+-- SSMMaintenanceWindowTaskTaskInvocationParameters. See+-- 'ssmMaintenanceWindowTaskTaskInvocationParameters' for a more convenient+-- constructor.+data SSMMaintenanceWindowTaskTaskInvocationParameters =+  SSMMaintenanceWindowTaskTaskInvocationParameters+  { _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowAutomationParameters :: Maybe SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters+  , _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowLambdaParameters :: Maybe SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters+  , _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowRunCommandParameters :: Maybe SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters+  , _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowStepFunctionsParameters :: Maybe SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters+  } deriving (Show, Eq)++instance ToJSON SSMMaintenanceWindowTaskTaskInvocationParameters where+  toJSON SSMMaintenanceWindowTaskTaskInvocationParameters{..} =+    object $+    catMaybes+    [ fmap (("MaintenanceWindowAutomationParameters",) . toJSON) _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowAutomationParameters+    , fmap (("MaintenanceWindowLambdaParameters",) . toJSON) _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowLambdaParameters+    , fmap (("MaintenanceWindowRunCommandParameters",) . toJSON) _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowRunCommandParameters+    , fmap (("MaintenanceWindowStepFunctionsParameters",) . toJSON) _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowStepFunctionsParameters+    ]++instance FromJSON SSMMaintenanceWindowTaskTaskInvocationParameters where+  parseJSON (Object obj) =+    SSMMaintenanceWindowTaskTaskInvocationParameters <$>+      (obj .:? "MaintenanceWindowAutomationParameters") <*>+      (obj .:? "MaintenanceWindowLambdaParameters") <*>+      (obj .:? "MaintenanceWindowRunCommandParameters") <*>+      (obj .:? "MaintenanceWindowStepFunctionsParameters")+  parseJSON _ = mempty++-- | Constructor for 'SSMMaintenanceWindowTaskTaskInvocationParameters'+-- containing required fields as arguments.+ssmMaintenanceWindowTaskTaskInvocationParameters+  :: SSMMaintenanceWindowTaskTaskInvocationParameters+ssmMaintenanceWindowTaskTaskInvocationParameters  =+  SSMMaintenanceWindowTaskTaskInvocationParameters+  { _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowAutomationParameters = Nothing+  , _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowLambdaParameters = Nothing+  , _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowRunCommandParameters = Nothing+  , _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowStepFunctionsParameters = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-taskinvocationparameters.html#cfn-ssm-maintenancewindowtask-taskinvocationparameters-maintenancewindowautomationparameters+ssmmwttipMaintenanceWindowAutomationParameters :: Lens' SSMMaintenanceWindowTaskTaskInvocationParameters (Maybe SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters)+ssmmwttipMaintenanceWindowAutomationParameters = lens _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowAutomationParameters (\s a -> s { _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowAutomationParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-taskinvocationparameters.html#cfn-ssm-maintenancewindowtask-taskinvocationparameters-maintenancewindowlambdaparameters+ssmmwttipMaintenanceWindowLambdaParameters :: Lens' SSMMaintenanceWindowTaskTaskInvocationParameters (Maybe SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters)+ssmmwttipMaintenanceWindowLambdaParameters = lens _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowLambdaParameters (\s a -> s { _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowLambdaParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-taskinvocationparameters.html#cfn-ssm-maintenancewindowtask-taskinvocationparameters-maintenancewindowruncommandparameters+ssmmwttipMaintenanceWindowRunCommandParameters :: Lens' SSMMaintenanceWindowTaskTaskInvocationParameters (Maybe SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters)+ssmmwttipMaintenanceWindowRunCommandParameters = lens _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowRunCommandParameters (\s a -> s { _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowRunCommandParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-taskinvocationparameters.html#cfn-ssm-maintenancewindowtask-taskinvocationparameters-maintenancewindowstepfunctionsparameters+ssmmwttipMaintenanceWindowStepFunctionsParameters :: Lens' SSMMaintenanceWindowTaskTaskInvocationParameters (Maybe SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters)+ssmmwttipMaintenanceWindowStepFunctionsParameters = lens _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowStepFunctionsParameters (\s a -> s { _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowStepFunctionsParameters = a })
+ library-gen/Stratosphere/ResourceProperties/SSMPatchBaselinePatchFilter.hs view
@@ -0,0 +1,57 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-patchbaseline-patchfilter.html++module Stratosphere.ResourceProperties.SSMPatchBaselinePatchFilter where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for SSMPatchBaselinePatchFilter. See+-- 'ssmPatchBaselinePatchFilter' for a more convenient constructor.+data SSMPatchBaselinePatchFilter =+  SSMPatchBaselinePatchFilter+  { _sSMPatchBaselinePatchFilterKey :: Maybe (Val Text)+  , _sSMPatchBaselinePatchFilterValues :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON SSMPatchBaselinePatchFilter where+  toJSON SSMPatchBaselinePatchFilter{..} =+    object $+    catMaybes+    [ fmap (("Key",) . toJSON) _sSMPatchBaselinePatchFilterKey+    , fmap (("Values",) . toJSON) _sSMPatchBaselinePatchFilterValues+    ]++instance FromJSON SSMPatchBaselinePatchFilter where+  parseJSON (Object obj) =+    SSMPatchBaselinePatchFilter <$>+      (obj .:? "Key") <*>+      (obj .:? "Values")+  parseJSON _ = mempty++-- | Constructor for 'SSMPatchBaselinePatchFilter' containing required fields+-- as arguments.+ssmPatchBaselinePatchFilter+  :: SSMPatchBaselinePatchFilter+ssmPatchBaselinePatchFilter  =+  SSMPatchBaselinePatchFilter+  { _sSMPatchBaselinePatchFilterKey = Nothing+  , _sSMPatchBaselinePatchFilterValues = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-patchbaseline-patchfilter.html#cfn-ssm-patchbaseline-patchfilter-key+ssmpbpfKey :: Lens' SSMPatchBaselinePatchFilter (Maybe (Val Text))+ssmpbpfKey = lens _sSMPatchBaselinePatchFilterKey (\s a -> s { _sSMPatchBaselinePatchFilterKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-patchbaseline-patchfilter.html#cfn-ssm-patchbaseline-patchfilter-values+ssmpbpfValues :: Lens' SSMPatchBaselinePatchFilter (Maybe (ValList Text))+ssmpbpfValues = lens _sSMPatchBaselinePatchFilterValues (\s a -> s { _sSMPatchBaselinePatchFilterValues = a })
+ library-gen/Stratosphere/ResourceProperties/SSMPatchBaselinePatchFilterGroup.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-patchbaseline-patchfiltergroup.html++module Stratosphere.ResourceProperties.SSMPatchBaselinePatchFilterGroup where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+import Stratosphere.ResourceProperties.SSMPatchBaselinePatchFilter++-- | Full data type definition for SSMPatchBaselinePatchFilterGroup. See+-- 'ssmPatchBaselinePatchFilterGroup' for a more convenient constructor.+data SSMPatchBaselinePatchFilterGroup =+  SSMPatchBaselinePatchFilterGroup+  { _sSMPatchBaselinePatchFilterGroupPatchFilters :: Maybe [SSMPatchBaselinePatchFilter]+  } deriving (Show, Eq)++instance ToJSON SSMPatchBaselinePatchFilterGroup where+  toJSON SSMPatchBaselinePatchFilterGroup{..} =+    object $+    catMaybes+    [ fmap (("PatchFilters",) . toJSON) _sSMPatchBaselinePatchFilterGroupPatchFilters+    ]++instance FromJSON SSMPatchBaselinePatchFilterGroup where+  parseJSON (Object obj) =+    SSMPatchBaselinePatchFilterGroup <$>+      (obj .:? "PatchFilters")+  parseJSON _ = mempty++-- | Constructor for 'SSMPatchBaselinePatchFilterGroup' containing required+-- fields as arguments.+ssmPatchBaselinePatchFilterGroup+  :: SSMPatchBaselinePatchFilterGroup+ssmPatchBaselinePatchFilterGroup  =+  SSMPatchBaselinePatchFilterGroup+  { _sSMPatchBaselinePatchFilterGroupPatchFilters = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-patchbaseline-patchfiltergroup.html#cfn-ssm-patchbaseline-patchfiltergroup-patchfilters+ssmpbpfgPatchFilters :: Lens' SSMPatchBaselinePatchFilterGroup (Maybe [SSMPatchBaselinePatchFilter])+ssmpbpfgPatchFilters = lens _sSMPatchBaselinePatchFilterGroupPatchFilters (\s a -> s { _sSMPatchBaselinePatchFilterGroupPatchFilters = a })
+ library-gen/Stratosphere/ResourceProperties/SSMPatchBaselineRule.hs view
@@ -0,0 +1,65 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-patchbaseline-rule.html++module Stratosphere.ResourceProperties.SSMPatchBaselineRule where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+import Stratosphere.ResourceProperties.SSMPatchBaselinePatchFilterGroup++-- | Full data type definition for SSMPatchBaselineRule. See+-- 'ssmPatchBaselineRule' for a more convenient constructor.+data SSMPatchBaselineRule =+  SSMPatchBaselineRule+  { _sSMPatchBaselineRuleApproveAfterDays :: Maybe (Val Integer)+  , _sSMPatchBaselineRuleComplianceLevel :: Maybe (Val Text)+  , _sSMPatchBaselineRulePatchFilterGroup :: Maybe SSMPatchBaselinePatchFilterGroup+  } deriving (Show, Eq)++instance ToJSON SSMPatchBaselineRule where+  toJSON SSMPatchBaselineRule{..} =+    object $+    catMaybes+    [ fmap (("ApproveAfterDays",) . toJSON . fmap Integer') _sSMPatchBaselineRuleApproveAfterDays+    , fmap (("ComplianceLevel",) . toJSON) _sSMPatchBaselineRuleComplianceLevel+    , fmap (("PatchFilterGroup",) . toJSON) _sSMPatchBaselineRulePatchFilterGroup+    ]++instance FromJSON SSMPatchBaselineRule where+  parseJSON (Object obj) =+    SSMPatchBaselineRule <$>+      fmap (fmap (fmap unInteger')) (obj .:? "ApproveAfterDays") <*>+      (obj .:? "ComplianceLevel") <*>+      (obj .:? "PatchFilterGroup")+  parseJSON _ = mempty++-- | Constructor for 'SSMPatchBaselineRule' containing required fields as+-- arguments.+ssmPatchBaselineRule+  :: SSMPatchBaselineRule+ssmPatchBaselineRule  =+  SSMPatchBaselineRule+  { _sSMPatchBaselineRuleApproveAfterDays = Nothing+  , _sSMPatchBaselineRuleComplianceLevel = Nothing+  , _sSMPatchBaselineRulePatchFilterGroup = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-patchbaseline-rule.html#cfn-ssm-patchbaseline-rule-approveafterdays+ssmpbrApproveAfterDays :: Lens' SSMPatchBaselineRule (Maybe (Val Integer))+ssmpbrApproveAfterDays = lens _sSMPatchBaselineRuleApproveAfterDays (\s a -> s { _sSMPatchBaselineRuleApproveAfterDays = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-patchbaseline-rule.html#cfn-ssm-patchbaseline-rule-compliancelevel+ssmpbrComplianceLevel :: Lens' SSMPatchBaselineRule (Maybe (Val Text))+ssmpbrComplianceLevel = lens _sSMPatchBaselineRuleComplianceLevel (\s a -> s { _sSMPatchBaselineRuleComplianceLevel = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-patchbaseline-rule.html#cfn-ssm-patchbaseline-rule-patchfiltergroup+ssmpbrPatchFilterGroup :: Lens' SSMPatchBaselineRule (Maybe SSMPatchBaselinePatchFilterGroup)+ssmpbrPatchFilterGroup = lens _sSMPatchBaselineRulePatchFilterGroup (\s a -> s { _sSMPatchBaselineRulePatchFilterGroup = a })
+ library-gen/Stratosphere/ResourceProperties/SSMPatchBaselineRuleGroup.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-patchbaseline-rulegroup.html++module Stratosphere.ResourceProperties.SSMPatchBaselineRuleGroup where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+import Stratosphere.ResourceProperties.SSMPatchBaselineRule++-- | Full data type definition for SSMPatchBaselineRuleGroup. See+-- 'ssmPatchBaselineRuleGroup' for a more convenient constructor.+data SSMPatchBaselineRuleGroup =+  SSMPatchBaselineRuleGroup+  { _sSMPatchBaselineRuleGroupPatchRules :: Maybe [SSMPatchBaselineRule]+  } deriving (Show, Eq)++instance ToJSON SSMPatchBaselineRuleGroup where+  toJSON SSMPatchBaselineRuleGroup{..} =+    object $+    catMaybes+    [ fmap (("PatchRules",) . toJSON) _sSMPatchBaselineRuleGroupPatchRules+    ]++instance FromJSON SSMPatchBaselineRuleGroup where+  parseJSON (Object obj) =+    SSMPatchBaselineRuleGroup <$>+      (obj .:? "PatchRules")+  parseJSON _ = mempty++-- | Constructor for 'SSMPatchBaselineRuleGroup' containing required fields as+-- arguments.+ssmPatchBaselineRuleGroup+  :: SSMPatchBaselineRuleGroup+ssmPatchBaselineRuleGroup  =+  SSMPatchBaselineRuleGroup+  { _sSMPatchBaselineRuleGroupPatchRules = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-patchbaseline-rulegroup.html#cfn-ssm-patchbaseline-rulegroup-patchrules+ssmpbrgPatchRules :: Lens' SSMPatchBaselineRuleGroup (Maybe [SSMPatchBaselineRule])+ssmpbrgPatchRules = lens _sSMPatchBaselineRuleGroupPatchRules (\s a -> s { _sSMPatchBaselineRuleGroupPatchRules = a })
library-gen/Stratosphere/Resources.hs view
@@ -65,6 +65,7 @@ import Stratosphere.Resources.ApiGatewayUsagePlanKey as X import Stratosphere.Resources.ApplicationAutoScalingScalableTarget as X import Stratosphere.Resources.ApplicationAutoScalingScalingPolicy as X+import Stratosphere.Resources.AthenaNamedQuery as X import Stratosphere.Resources.AutoScalingAutoScalingGroup as X import Stratosphere.Resources.AutoScalingLaunchConfiguration as X import Stratosphere.Resources.AutoScalingLifecycleHook as X@@ -78,7 +79,9 @@ import Stratosphere.Resources.CloudFormationStack as X import Stratosphere.Resources.CloudFormationWaitCondition as X import Stratosphere.Resources.CloudFormationWaitConditionHandle as X+import Stratosphere.Resources.CloudFrontCloudFrontOriginAccessIdentity as X import Stratosphere.Resources.CloudFrontDistribution as X+import Stratosphere.Resources.CloudFrontStreamingDistribution as X import Stratosphere.Resources.CloudTrailTrail as X import Stratosphere.Resources.CloudWatchAlarm as X import Stratosphere.Resources.CloudWatchDashboard as X@@ -182,6 +185,15 @@ import Stratosphere.Resources.GameLiftAlias as X import Stratosphere.Resources.GameLiftBuild as X import Stratosphere.Resources.GameLiftFleet as X+import Stratosphere.Resources.GlueClassifier as X+import Stratosphere.Resources.GlueConnection as X+import Stratosphere.Resources.GlueCrawler as X+import Stratosphere.Resources.GlueDatabase as X+import Stratosphere.Resources.GlueDevEndpoint as X+import Stratosphere.Resources.GlueJob as X+import Stratosphere.Resources.GluePartition as X+import Stratosphere.Resources.GlueTable as X+import Stratosphere.Resources.GlueTrigger as X import Stratosphere.Resources.IAMAccessKey as X import Stratosphere.Resources.IAMGroup as X import Stratosphere.Resources.IAMInstanceProfile as X@@ -248,7 +260,9 @@ import Stratosphere.Resources.SQSQueuePolicy as X import Stratosphere.Resources.SSMAssociation as X import Stratosphere.Resources.SSMDocument as X+import Stratosphere.Resources.SSMMaintenanceWindowTask as X import Stratosphere.Resources.SSMParameter as X+import Stratosphere.Resources.SSMPatchBaseline as X import Stratosphere.Resources.StepFunctionsActivity as X import Stratosphere.Resources.StepFunctionsStateMachine as X import Stratosphere.Resources.WAFByteMatchSet as X@@ -285,6 +299,7 @@ import Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyStepAdjustment as X import Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyStepScalingPolicyConfiguration as X import Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration as X+import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupLifecycleHookSpecification as X import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupMetricsCollection as X import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupNotificationConfiguration as X import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupTagProperty as X@@ -305,6 +320,7 @@ import Stratosphere.ResourceProperties.BatchJobDefinitionVolumesHost as X import Stratosphere.ResourceProperties.BatchJobQueueComputeEnvironmentOrder as X import Stratosphere.ResourceProperties.CertificateManagerCertificateDomainValidationOption as X+import Stratosphere.ResourceProperties.CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig as X import Stratosphere.ResourceProperties.CloudFrontDistributionCacheBehavior as X import Stratosphere.ResourceProperties.CloudFrontDistributionCookies as X import Stratosphere.ResourceProperties.CloudFrontDistributionCustomErrorResponse as X@@ -313,12 +329,19 @@ import Stratosphere.ResourceProperties.CloudFrontDistributionDistributionConfig as X import Stratosphere.ResourceProperties.CloudFrontDistributionForwardedValues as X import Stratosphere.ResourceProperties.CloudFrontDistributionGeoRestriction as X+import Stratosphere.ResourceProperties.CloudFrontDistributionLambdaFunctionAssociation as X+import Stratosphere.ResourceProperties.CloudFrontDistributionLegacyCustomOrigin as X+import Stratosphere.ResourceProperties.CloudFrontDistributionLegacyS3Origin as X import Stratosphere.ResourceProperties.CloudFrontDistributionLogging as X import Stratosphere.ResourceProperties.CloudFrontDistributionOrigin as X import Stratosphere.ResourceProperties.CloudFrontDistributionOriginCustomHeader as X import Stratosphere.ResourceProperties.CloudFrontDistributionRestrictions as X import Stratosphere.ResourceProperties.CloudFrontDistributionS3OriginConfig as X import Stratosphere.ResourceProperties.CloudFrontDistributionViewerCertificate as X+import Stratosphere.ResourceProperties.CloudFrontStreamingDistributionLogging as X+import Stratosphere.ResourceProperties.CloudFrontStreamingDistributionS3Origin as X+import Stratosphere.ResourceProperties.CloudFrontStreamingDistributionStreamingDistributionConfig as X+import Stratosphere.ResourceProperties.CloudFrontStreamingDistributionTrustedSigners as X import Stratosphere.ResourceProperties.CloudTrailTrailDataResource as X import Stratosphere.ResourceProperties.CloudTrailTrailEventSelector as X import Stratosphere.ResourceProperties.CloudWatchAlarmDimension as X@@ -341,6 +364,7 @@ import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupRevisionLocation as X import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupS3Location as X import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupTagFilter as X+import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupTargetGroupInfo as X import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupTriggerConfig as X import Stratosphere.ResourceProperties.CodePipelineCustomActionTypeArtifactDetails as X import Stratosphere.ResourceProperties.CodePipelineCustomActionTypeConfigurationProperties as X@@ -399,6 +423,7 @@ import Stratosphere.ResourceProperties.EC2InstanceAssociationParameter as X import Stratosphere.ResourceProperties.EC2InstanceBlockDeviceMapping as X import Stratosphere.ResourceProperties.EC2InstanceEbs as X+import Stratosphere.ResourceProperties.EC2InstanceElasticGpuSpecification as X import Stratosphere.ResourceProperties.EC2InstanceInstanceIpv6Address as X import Stratosphere.ResourceProperties.EC2InstanceNetworkInterface as X import Stratosphere.ResourceProperties.EC2InstanceNoDevice as X@@ -422,6 +447,7 @@ import Stratosphere.ResourceProperties.EC2SpotFleetSpotFleetMonitoring as X import Stratosphere.ResourceProperties.EC2SpotFleetSpotFleetRequestConfigData as X import Stratosphere.ResourceProperties.EC2SpotFleetSpotPlacement as X+import Stratosphere.ResourceProperties.EC2VPNConnectionVpnTunnelOptionsSpecification as X import Stratosphere.ResourceProperties.ECSServiceDeploymentConfiguration as X import Stratosphere.ResourceProperties.ECSServiceLoadBalancer as X import Stratosphere.ResourceProperties.ECSServicePlacementConstraint as X@@ -521,6 +547,33 @@ import Stratosphere.ResourceProperties.GameLiftAliasRoutingStrategy as X import Stratosphere.ResourceProperties.GameLiftBuildS3Location as X import Stratosphere.ResourceProperties.GameLiftFleetIpPermission as X+import Stratosphere.ResourceProperties.GlueClassifierGrokClassifier as X+import Stratosphere.ResourceProperties.GlueConnectionConnectionInput as X+import Stratosphere.ResourceProperties.GlueConnectionPhysicalConnectionRequirements as X+import Stratosphere.ResourceProperties.GlueCrawlerJdbcTarget as X+import Stratosphere.ResourceProperties.GlueCrawlerS3Target as X+import Stratosphere.ResourceProperties.GlueCrawlerSchedule as X+import Stratosphere.ResourceProperties.GlueCrawlerSchemaChangePolicy as X+import Stratosphere.ResourceProperties.GlueCrawlerTargets as X+import Stratosphere.ResourceProperties.GlueDatabaseDatabaseInput as X+import Stratosphere.ResourceProperties.GlueJobConnectionsList as X+import Stratosphere.ResourceProperties.GlueJobExecutionProperty as X+import Stratosphere.ResourceProperties.GlueJobJobCommand as X+import Stratosphere.ResourceProperties.GluePartitionColumn as X+import Stratosphere.ResourceProperties.GluePartitionOrder as X+import Stratosphere.ResourceProperties.GluePartitionPartitionInput as X+import Stratosphere.ResourceProperties.GluePartitionSerdeInfo as X+import Stratosphere.ResourceProperties.GluePartitionSkewedInfo as X+import Stratosphere.ResourceProperties.GluePartitionStorageDescriptor as X+import Stratosphere.ResourceProperties.GlueTableColumn as X+import Stratosphere.ResourceProperties.GlueTableOrder as X+import Stratosphere.ResourceProperties.GlueTableSerdeInfo as X+import Stratosphere.ResourceProperties.GlueTableSkewedInfo as X+import Stratosphere.ResourceProperties.GlueTableStorageDescriptor as X+import Stratosphere.ResourceProperties.GlueTableTableInput as X+import Stratosphere.ResourceProperties.GlueTriggerAction as X+import Stratosphere.ResourceProperties.GlueTriggerCondition as X+import Stratosphere.ResourceProperties.GlueTriggerPredicate as X import Stratosphere.ResourceProperties.IAMGroupPolicy as X import Stratosphere.ResourceProperties.IAMRolePolicy as X import Stratosphere.ResourceProperties.IAMUserLoginProfile as X@@ -543,7 +596,9 @@ import Stratosphere.ResourceProperties.IoTTopicRuleTopicRulePayload as X import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationCSVMappingParameters as X import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInput as X+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputLambdaProcessor as X import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputParallelism as X+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputProcessingConfiguration as X import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputSchema as X import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationJSONMappingParameters as X import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationKinesisFirehoseInput as X@@ -578,6 +633,8 @@ import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessorParameter as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamS3DestinationConfiguration as X+import Stratosphere.ResourceProperties.LambdaAliasAliasRoutingConfiguration as X+import Stratosphere.ResourceProperties.LambdaAliasVersionWeight as X import Stratosphere.ResourceProperties.LambdaFunctionCode as X import Stratosphere.ResourceProperties.LambdaFunctionDeadLetterConfig as X import Stratosphere.ResourceProperties.LambdaFunctionEnvironment as X@@ -653,6 +710,18 @@ import Stratosphere.ResourceProperties.SNSTopicSubscription as X import Stratosphere.ResourceProperties.SSMAssociationParameterValues as X import Stratosphere.ResourceProperties.SSMAssociationTarget as X+import Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskLoggingInfo as X+import Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters as X+import Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters as X+import Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters as X+import Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters as X+import Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskNotificationConfig as X+import Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskTarget as X+import Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskTaskInvocationParameters as X+import Stratosphere.ResourceProperties.SSMPatchBaselinePatchFilter as X+import Stratosphere.ResourceProperties.SSMPatchBaselinePatchFilterGroup as X+import Stratosphere.ResourceProperties.SSMPatchBaselineRule as X+import Stratosphere.ResourceProperties.SSMPatchBaselineRuleGroup as X import Stratosphere.ResourceProperties.WAFByteMatchSetByteMatchTuple as X import Stratosphere.ResourceProperties.WAFByteMatchSetFieldToMatch as X import Stratosphere.ResourceProperties.WAFIPSetIPSetDescriptor as X@@ -709,6 +778,7 @@   | ApiGatewayUsagePlanKeyProperties ApiGatewayUsagePlanKey   | ApplicationAutoScalingScalableTargetProperties ApplicationAutoScalingScalableTarget   | ApplicationAutoScalingScalingPolicyProperties ApplicationAutoScalingScalingPolicy+  | AthenaNamedQueryProperties AthenaNamedQuery   | AutoScalingAutoScalingGroupProperties AutoScalingAutoScalingGroup   | AutoScalingLaunchConfigurationProperties AutoScalingLaunchConfiguration   | AutoScalingLifecycleHookProperties AutoScalingLifecycleHook@@ -722,7 +792,9 @@   | CloudFormationStackProperties CloudFormationStack   | CloudFormationWaitConditionProperties CloudFormationWaitCondition   | CloudFormationWaitConditionHandleProperties CloudFormationWaitConditionHandle+  | CloudFrontCloudFrontOriginAccessIdentityProperties CloudFrontCloudFrontOriginAccessIdentity   | CloudFrontDistributionProperties CloudFrontDistribution+  | CloudFrontStreamingDistributionProperties CloudFrontStreamingDistribution   | CloudTrailTrailProperties CloudTrailTrail   | CloudWatchAlarmProperties CloudWatchAlarm   | CloudWatchDashboardProperties CloudWatchDashboard@@ -826,6 +898,15 @@   | GameLiftAliasProperties GameLiftAlias   | GameLiftBuildProperties GameLiftBuild   | GameLiftFleetProperties GameLiftFleet+  | GlueClassifierProperties GlueClassifier+  | GlueConnectionProperties GlueConnection+  | GlueCrawlerProperties GlueCrawler+  | GlueDatabaseProperties GlueDatabase+  | GlueDevEndpointProperties GlueDevEndpoint+  | GlueJobProperties GlueJob+  | GluePartitionProperties GluePartition+  | GlueTableProperties GlueTable+  | GlueTriggerProperties GlueTrigger   | IAMAccessKeyProperties IAMAccessKey   | IAMGroupProperties IAMGroup   | IAMInstanceProfileProperties IAMInstanceProfile@@ -892,7 +973,9 @@   | SQSQueuePolicyProperties SQSQueuePolicy   | SSMAssociationProperties SSMAssociation   | SSMDocumentProperties SSMDocument+  | SSMMaintenanceWindowTaskProperties SSMMaintenanceWindowTask   | SSMParameterProperties SSMParameter+  | SSMPatchBaselineProperties SSMPatchBaseline   | StepFunctionsActivityProperties StepFunctionsActivity   | StepFunctionsStateMachineProperties StepFunctionsStateMachine   | WAFByteMatchSetProperties WAFByteMatchSet@@ -1003,6 +1086,8 @@   [ "Type" .= ("AWS::ApplicationAutoScaling::ScalableTarget" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (ApplicationAutoScalingScalingPolicyProperties x) =   [ "Type" .= ("AWS::ApplicationAutoScaling::ScalingPolicy" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (AthenaNamedQueryProperties x) =+  [ "Type" .= ("AWS::Athena::NamedQuery" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (AutoScalingAutoScalingGroupProperties x) =   [ "Type" .= ("AWS::AutoScaling::AutoScalingGroup" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (AutoScalingLaunchConfigurationProperties x) =@@ -1029,8 +1114,12 @@   [ "Type" .= ("AWS::CloudFormation::WaitCondition" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (CloudFormationWaitConditionHandleProperties x) =   [ "Type" .= ("AWS::CloudFormation::WaitConditionHandle" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (CloudFrontCloudFrontOriginAccessIdentityProperties x) =+  [ "Type" .= ("AWS::CloudFront::CloudFrontOriginAccessIdentity" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (CloudFrontDistributionProperties x) =   [ "Type" .= ("AWS::CloudFront::Distribution" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (CloudFrontStreamingDistributionProperties x) =+  [ "Type" .= ("AWS::CloudFront::StreamingDistribution" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (CloudTrailTrailProperties x) =   [ "Type" .= ("AWS::CloudTrail::Trail" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (CloudWatchAlarmProperties x) =@@ -1237,6 +1326,24 @@   [ "Type" .= ("AWS::GameLift::Build" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (GameLiftFleetProperties x) =   [ "Type" .= ("AWS::GameLift::Fleet" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (GlueClassifierProperties x) =+  [ "Type" .= ("AWS::Glue::Classifier" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (GlueConnectionProperties x) =+  [ "Type" .= ("AWS::Glue::Connection" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (GlueCrawlerProperties x) =+  [ "Type" .= ("AWS::Glue::Crawler" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (GlueDatabaseProperties x) =+  [ "Type" .= ("AWS::Glue::Database" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (GlueDevEndpointProperties x) =+  [ "Type" .= ("AWS::Glue::DevEndpoint" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (GlueJobProperties x) =+  [ "Type" .= ("AWS::Glue::Job" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (GluePartitionProperties x) =+  [ "Type" .= ("AWS::Glue::Partition" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (GlueTableProperties x) =+  [ "Type" .= ("AWS::Glue::Table" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (GlueTriggerProperties x) =+  [ "Type" .= ("AWS::Glue::Trigger" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (IAMAccessKeyProperties x) =   [ "Type" .= ("AWS::IAM::AccessKey" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (IAMGroupProperties x) =@@ -1369,8 +1476,12 @@   [ "Type" .= ("AWS::SSM::Association" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (SSMDocumentProperties x) =   [ "Type" .= ("AWS::SSM::Document" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (SSMMaintenanceWindowTaskProperties x) =+  [ "Type" .= ("AWS::SSM::MaintenanceWindowTask" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (SSMParameterProperties x) =   [ "Type" .= ("AWS::SSM::Parameter" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (SSMPatchBaselineProperties x) =+  [ "Type" .= ("AWS::SSM::PatchBaseline" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (StepFunctionsActivityProperties x) =   [ "Type" .= ("AWS::StepFunctions::Activity" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (StepFunctionsStateMachineProperties x) =@@ -1433,6 +1544,7 @@          "AWS::ApiGateway::UsagePlanKey" -> ApiGatewayUsagePlanKeyProperties <$> (o .: "Properties")          "AWS::ApplicationAutoScaling::ScalableTarget" -> ApplicationAutoScalingScalableTargetProperties <$> (o .: "Properties")          "AWS::ApplicationAutoScaling::ScalingPolicy" -> ApplicationAutoScalingScalingPolicyProperties <$> (o .: "Properties")+         "AWS::Athena::NamedQuery" -> AthenaNamedQueryProperties <$> (o .: "Properties")          "AWS::AutoScaling::AutoScalingGroup" -> AutoScalingAutoScalingGroupProperties <$> (o .: "Properties")          "AWS::AutoScaling::LaunchConfiguration" -> AutoScalingLaunchConfigurationProperties <$> (o .: "Properties")          "AWS::AutoScaling::LifecycleHook" -> AutoScalingLifecycleHookProperties <$> (o .: "Properties")@@ -1446,7 +1558,9 @@          "AWS::CloudFormation::Stack" -> CloudFormationStackProperties <$> (o .: "Properties")          "AWS::CloudFormation::WaitCondition" -> CloudFormationWaitConditionProperties <$> (o .: "Properties")          "AWS::CloudFormation::WaitConditionHandle" -> CloudFormationWaitConditionHandleProperties <$> (o .: "Properties")+         "AWS::CloudFront::CloudFrontOriginAccessIdentity" -> CloudFrontCloudFrontOriginAccessIdentityProperties <$> (o .: "Properties")          "AWS::CloudFront::Distribution" -> CloudFrontDistributionProperties <$> (o .: "Properties")+         "AWS::CloudFront::StreamingDistribution" -> CloudFrontStreamingDistributionProperties <$> (o .: "Properties")          "AWS::CloudTrail::Trail" -> CloudTrailTrailProperties <$> (o .: "Properties")          "AWS::CloudWatch::Alarm" -> CloudWatchAlarmProperties <$> (o .: "Properties")          "AWS::CloudWatch::Dashboard" -> CloudWatchDashboardProperties <$> (o .: "Properties")@@ -1550,6 +1664,15 @@          "AWS::GameLift::Alias" -> GameLiftAliasProperties <$> (o .: "Properties")          "AWS::GameLift::Build" -> GameLiftBuildProperties <$> (o .: "Properties")          "AWS::GameLift::Fleet" -> GameLiftFleetProperties <$> (o .: "Properties")+         "AWS::Glue::Classifier" -> GlueClassifierProperties <$> (o .: "Properties")+         "AWS::Glue::Connection" -> GlueConnectionProperties <$> (o .: "Properties")+         "AWS::Glue::Crawler" -> GlueCrawlerProperties <$> (o .: "Properties")+         "AWS::Glue::Database" -> GlueDatabaseProperties <$> (o .: "Properties")+         "AWS::Glue::DevEndpoint" -> GlueDevEndpointProperties <$> (o .: "Properties")+         "AWS::Glue::Job" -> GlueJobProperties <$> (o .: "Properties")+         "AWS::Glue::Partition" -> GluePartitionProperties <$> (o .: "Properties")+         "AWS::Glue::Table" -> GlueTableProperties <$> (o .: "Properties")+         "AWS::Glue::Trigger" -> GlueTriggerProperties <$> (o .: "Properties")          "AWS::IAM::AccessKey" -> IAMAccessKeyProperties <$> (o .: "Properties")          "AWS::IAM::Group" -> IAMGroupProperties <$> (o .: "Properties")          "AWS::IAM::InstanceProfile" -> IAMInstanceProfileProperties <$> (o .: "Properties")@@ -1616,7 +1739,9 @@          "AWS::SQS::QueuePolicy" -> SQSQueuePolicyProperties <$> (o .: "Properties")          "AWS::SSM::Association" -> SSMAssociationProperties <$> (o .: "Properties")          "AWS::SSM::Document" -> SSMDocumentProperties <$> (o .: "Properties")+         "AWS::SSM::MaintenanceWindowTask" -> SSMMaintenanceWindowTaskProperties <$> (o .: "Properties")          "AWS::SSM::Parameter" -> SSMParameterProperties <$> (o .: "Properties")+         "AWS::SSM::PatchBaseline" -> SSMPatchBaselineProperties <$> (o .: "Properties")          "AWS::StepFunctions::Activity" -> StepFunctionsActivityProperties <$> (o .: "Properties")          "AWS::StepFunctions::StateMachine" -> StepFunctionsStateMachineProperties <$> (o .: "Properties")          "AWS::WAF::ByteMatchSet" -> WAFByteMatchSetProperties <$> (o .: "Properties")
library-gen/Stratosphere/Resources/ApiGatewayAuthorizer.hs view
@@ -19,7 +19,8 @@ -- 'apiGatewayAuthorizer' for a more convenient constructor. data ApiGatewayAuthorizer =   ApiGatewayAuthorizer-  { _apiGatewayAuthorizerAuthorizerCredentials :: Maybe (Val Text)+  { _apiGatewayAuthorizerAuthType :: Maybe (Val Text)+  , _apiGatewayAuthorizerAuthorizerCredentials :: Maybe (Val Text)   , _apiGatewayAuthorizerAuthorizerResultTtlInSeconds :: Maybe (Val Integer)   , _apiGatewayAuthorizerAuthorizerUri :: Maybe (Val Text)   , _apiGatewayAuthorizerIdentitySource :: Maybe (Val Text)@@ -34,7 +35,8 @@   toJSON ApiGatewayAuthorizer{..} =     object $     catMaybes-    [ fmap (("AuthorizerCredentials",) . toJSON) _apiGatewayAuthorizerAuthorizerCredentials+    [ fmap (("AuthType",) . toJSON) _apiGatewayAuthorizerAuthType+    , fmap (("AuthorizerCredentials",) . toJSON) _apiGatewayAuthorizerAuthorizerCredentials     , fmap (("AuthorizerResultTtlInSeconds",) . toJSON . fmap Integer') _apiGatewayAuthorizerAuthorizerResultTtlInSeconds     , fmap (("AuthorizerUri",) . toJSON) _apiGatewayAuthorizerAuthorizerUri     , fmap (("IdentitySource",) . toJSON) _apiGatewayAuthorizerIdentitySource@@ -48,6 +50,7 @@ instance FromJSON ApiGatewayAuthorizer where   parseJSON (Object obj) =     ApiGatewayAuthorizer <$>+      (obj .:? "AuthType") <*>       (obj .:? "AuthorizerCredentials") <*>       fmap (fmap (fmap unInteger')) (obj .:? "AuthorizerResultTtlInSeconds") <*>       (obj .:? "AuthorizerUri") <*>@@ -66,7 +69,8 @@   -> ApiGatewayAuthorizer apiGatewayAuthorizer restApiIdarg =   ApiGatewayAuthorizer-  { _apiGatewayAuthorizerAuthorizerCredentials = Nothing+  { _apiGatewayAuthorizerAuthType = Nothing+  , _apiGatewayAuthorizerAuthorizerCredentials = Nothing   , _apiGatewayAuthorizerAuthorizerResultTtlInSeconds = Nothing   , _apiGatewayAuthorizerAuthorizerUri = Nothing   , _apiGatewayAuthorizerIdentitySource = Nothing@@ -76,6 +80,10 @@   , _apiGatewayAuthorizerRestApiId = restApiIdarg   , _apiGatewayAuthorizerType = Nothing   }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-authorizer.html#cfn-apigateway-authorizer-authtype+agaAuthType :: Lens' ApiGatewayAuthorizer (Maybe (Val Text))+agaAuthType = lens _apiGatewayAuthorizerAuthType (\s a -> s { _apiGatewayAuthorizerAuthType = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-authorizer.html#cfn-apigateway-authorizer-authorizercredentials agaAuthorizerCredentials :: Lens' ApiGatewayAuthorizer (Maybe (Val Text))
library-gen/Stratosphere/Resources/ApiGatewayMethod.hs view
@@ -27,8 +27,10 @@   , _apiGatewayMethodHttpMethod :: Val HttpMethod   , _apiGatewayMethodIntegration :: Maybe ApiGatewayMethodIntegration   , _apiGatewayMethodMethodResponses :: Maybe [ApiGatewayMethodMethodResponse]+  , _apiGatewayMethodOperationName :: Maybe (Val Text)   , _apiGatewayMethodRequestModels :: Maybe Object   , _apiGatewayMethodRequestParameters :: Maybe Object+  , _apiGatewayMethodRequestValidatorId :: Maybe (Val Text)   , _apiGatewayMethodResourceId :: Val Text   , _apiGatewayMethodRestApiId :: Val Text   } deriving (Show, Eq)@@ -43,8 +45,10 @@     , (Just . ("HttpMethod",) . toJSON) _apiGatewayMethodHttpMethod     , fmap (("Integration",) . toJSON) _apiGatewayMethodIntegration     , fmap (("MethodResponses",) . toJSON) _apiGatewayMethodMethodResponses+    , fmap (("OperationName",) . toJSON) _apiGatewayMethodOperationName     , fmap (("RequestModels",) . toJSON) _apiGatewayMethodRequestModels     , fmap (("RequestParameters",) . toJSON) _apiGatewayMethodRequestParameters+    , fmap (("RequestValidatorId",) . toJSON) _apiGatewayMethodRequestValidatorId     , (Just . ("ResourceId",) . toJSON) _apiGatewayMethodResourceId     , (Just . ("RestApiId",) . toJSON) _apiGatewayMethodRestApiId     ]@@ -58,8 +62,10 @@       (obj .: "HttpMethod") <*>       (obj .:? "Integration") <*>       (obj .:? "MethodResponses") <*>+      (obj .:? "OperationName") <*>       (obj .:? "RequestModels") <*>       (obj .:? "RequestParameters") <*>+      (obj .:? "RequestValidatorId") <*>       (obj .: "ResourceId") <*>       (obj .: "RestApiId")   parseJSON _ = mempty@@ -79,8 +85,10 @@   , _apiGatewayMethodHttpMethod = httpMethodarg   , _apiGatewayMethodIntegration = Nothing   , _apiGatewayMethodMethodResponses = Nothing+  , _apiGatewayMethodOperationName = Nothing   , _apiGatewayMethodRequestModels = Nothing   , _apiGatewayMethodRequestParameters = Nothing+  , _apiGatewayMethodRequestValidatorId = Nothing   , _apiGatewayMethodResourceId = resourceIdarg   , _apiGatewayMethodRestApiId = restApiIdarg   }@@ -109,6 +117,10 @@ agmeMethodResponses :: Lens' ApiGatewayMethod (Maybe [ApiGatewayMethodMethodResponse]) agmeMethodResponses = lens _apiGatewayMethodMethodResponses (\s a -> s { _apiGatewayMethodMethodResponses = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-method.html#cfn-apigateway-method-operationname+agmeOperationName :: Lens' ApiGatewayMethod (Maybe (Val Text))+agmeOperationName = lens _apiGatewayMethodOperationName (\s a -> s { _apiGatewayMethodOperationName = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-method.html#cfn-apigateway-method-requestmodels agmeRequestModels :: Lens' ApiGatewayMethod (Maybe Object) agmeRequestModels = lens _apiGatewayMethodRequestModels (\s a -> s { _apiGatewayMethodRequestModels = a })@@ -116,6 +128,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-method.html#cfn-apigateway-method-requestparameters agmeRequestParameters :: Lens' ApiGatewayMethod (Maybe Object) agmeRequestParameters = lens _apiGatewayMethodRequestParameters (\s a -> s { _apiGatewayMethodRequestParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-method.html#cfn-apigateway-method-requestvalidatorid+agmeRequestValidatorId :: Lens' ApiGatewayMethod (Maybe (Val Text))+agmeRequestValidatorId = lens _apiGatewayMethodRequestValidatorId (\s a -> s { _apiGatewayMethodRequestValidatorId = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-method.html#cfn-apigateway-method-resourceid agmeResourceId :: Lens' ApiGatewayMethod (Val Text)
+ library-gen/Stratosphere/Resources/AthenaNamedQuery.hs view
@@ -0,0 +1,75 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-athena-namedquery.html++module Stratosphere.Resources.AthenaNamedQuery where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for AthenaNamedQuery. See 'athenaNamedQuery'+-- for a more convenient constructor.+data AthenaNamedQuery =+  AthenaNamedQuery+  { _athenaNamedQueryDatabase :: Val Text+  , _athenaNamedQueryDescription :: Maybe (Val Text)+  , _athenaNamedQueryName :: Maybe (Val Text)+  , _athenaNamedQueryQueryString :: Val Text+  } deriving (Show, Eq)++instance ToJSON AthenaNamedQuery where+  toJSON AthenaNamedQuery{..} =+    object $+    catMaybes+    [ (Just . ("Database",) . toJSON) _athenaNamedQueryDatabase+    , fmap (("Description",) . toJSON) _athenaNamedQueryDescription+    , fmap (("Name",) . toJSON) _athenaNamedQueryName+    , (Just . ("QueryString",) . toJSON) _athenaNamedQueryQueryString+    ]++instance FromJSON AthenaNamedQuery where+  parseJSON (Object obj) =+    AthenaNamedQuery <$>+      (obj .: "Database") <*>+      (obj .:? "Description") <*>+      (obj .:? "Name") <*>+      (obj .: "QueryString")+  parseJSON _ = mempty++-- | Constructor for 'AthenaNamedQuery' containing required fields as+-- arguments.+athenaNamedQuery+  :: Val Text -- ^ 'anqDatabase'+  -> Val Text -- ^ 'anqQueryString'+  -> AthenaNamedQuery+athenaNamedQuery databasearg queryStringarg =+  AthenaNamedQuery+  { _athenaNamedQueryDatabase = databasearg+  , _athenaNamedQueryDescription = Nothing+  , _athenaNamedQueryName = Nothing+  , _athenaNamedQueryQueryString = queryStringarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-athena-namedquery.html#cfn-athena-namedquery-database+anqDatabase :: Lens' AthenaNamedQuery (Val Text)+anqDatabase = lens _athenaNamedQueryDatabase (\s a -> s { _athenaNamedQueryDatabase = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-athena-namedquery.html#cfn-athena-namedquery-description+anqDescription :: Lens' AthenaNamedQuery (Maybe (Val Text))+anqDescription = lens _athenaNamedQueryDescription (\s a -> s { _athenaNamedQueryDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-athena-namedquery.html#cfn-athena-namedquery-name+anqName :: Lens' AthenaNamedQuery (Maybe (Val Text))+anqName = lens _athenaNamedQueryName (\s a -> s { _athenaNamedQueryName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-athena-namedquery.html#cfn-athena-namedquery-querystring+anqQueryString :: Lens' AthenaNamedQuery (Val Text)+anqQueryString = lens _athenaNamedQueryQueryString (\s a -> s { _athenaNamedQueryQueryString = a })
library-gen/Stratosphere/Resources/AutoScalingAutoScalingGroup.hs view
@@ -13,28 +13,30 @@ import Data.Text  import Stratosphere.Values+import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupTagProperty+import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupLifecycleHookSpecification import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupMetricsCollection import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupNotificationConfiguration-import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupTagProperty  -- | Full data type definition for AutoScalingAutoScalingGroup. See -- 'autoScalingAutoScalingGroup' for a more convenient constructor. data AutoScalingAutoScalingGroup =   AutoScalingAutoScalingGroup-  { _autoScalingAutoScalingGroupAvailabilityZones :: Maybe (ValList Text)+  { _autoScalingAutoScalingGroupAsTags :: Maybe [AutoScalingAutoScalingGroupTagProperty]+  , _autoScalingAutoScalingGroupAvailabilityZones :: Maybe (ValList Text)   , _autoScalingAutoScalingGroupCooldown :: Maybe (Val Text)   , _autoScalingAutoScalingGroupDesiredCapacity :: Maybe (Val Text)   , _autoScalingAutoScalingGroupHealthCheckGracePeriod :: Maybe (Val Integer)   , _autoScalingAutoScalingGroupHealthCheckType :: Maybe (Val Text)   , _autoScalingAutoScalingGroupInstanceId :: Maybe (Val Text)   , _autoScalingAutoScalingGroupLaunchConfigurationName :: Maybe (Val Text)+  , _autoScalingAutoScalingGroupLifecycleHookSpecificationList :: Maybe [AutoScalingAutoScalingGroupLifecycleHookSpecification]   , _autoScalingAutoScalingGroupLoadBalancerNames :: Maybe (ValList Text)   , _autoScalingAutoScalingGroupMaxSize :: Val Text   , _autoScalingAutoScalingGroupMetricsCollection :: Maybe [AutoScalingAutoScalingGroupMetricsCollection]   , _autoScalingAutoScalingGroupMinSize :: Val Text   , _autoScalingAutoScalingGroupNotificationConfigurations :: Maybe [AutoScalingAutoScalingGroupNotificationConfiguration]   , _autoScalingAutoScalingGroupPlacementGroup :: Maybe (Val Text)-  , _autoScalingAutoScalingGroupTags :: Maybe [AutoScalingAutoScalingGroupTagProperty]   , _autoScalingAutoScalingGroupTargetGroupARNs :: Maybe (ValList Text)   , _autoScalingAutoScalingGroupTerminationPolicies :: Maybe (ValList Text)   , _autoScalingAutoScalingGroupVPCZoneIdentifier :: Maybe (ValList Text)@@ -44,20 +46,21 @@   toJSON AutoScalingAutoScalingGroup{..} =     object $     catMaybes-    [ fmap (("AvailabilityZones",) . toJSON) _autoScalingAutoScalingGroupAvailabilityZones+    [ fmap (("AsTags",) . toJSON) _autoScalingAutoScalingGroupAsTags+    , fmap (("AvailabilityZones",) . toJSON) _autoScalingAutoScalingGroupAvailabilityZones     , fmap (("Cooldown",) . toJSON) _autoScalingAutoScalingGroupCooldown     , fmap (("DesiredCapacity",) . toJSON) _autoScalingAutoScalingGroupDesiredCapacity     , fmap (("HealthCheckGracePeriod",) . toJSON . fmap Integer') _autoScalingAutoScalingGroupHealthCheckGracePeriod     , fmap (("HealthCheckType",) . toJSON) _autoScalingAutoScalingGroupHealthCheckType     , fmap (("InstanceId",) . toJSON) _autoScalingAutoScalingGroupInstanceId     , fmap (("LaunchConfigurationName",) . toJSON) _autoScalingAutoScalingGroupLaunchConfigurationName+    , fmap (("LifecycleHookSpecificationList",) . toJSON) _autoScalingAutoScalingGroupLifecycleHookSpecificationList     , fmap (("LoadBalancerNames",) . toJSON) _autoScalingAutoScalingGroupLoadBalancerNames     , (Just . ("MaxSize",) . toJSON) _autoScalingAutoScalingGroupMaxSize     , fmap (("MetricsCollection",) . toJSON) _autoScalingAutoScalingGroupMetricsCollection     , (Just . ("MinSize",) . toJSON) _autoScalingAutoScalingGroupMinSize     , fmap (("NotificationConfigurations",) . toJSON) _autoScalingAutoScalingGroupNotificationConfigurations     , fmap (("PlacementGroup",) . toJSON) _autoScalingAutoScalingGroupPlacementGroup-    , fmap (("Tags",) . toJSON) _autoScalingAutoScalingGroupTags     , fmap (("TargetGroupARNs",) . toJSON) _autoScalingAutoScalingGroupTargetGroupARNs     , fmap (("TerminationPolicies",) . toJSON) _autoScalingAutoScalingGroupTerminationPolicies     , fmap (("VPCZoneIdentifier",) . toJSON) _autoScalingAutoScalingGroupVPCZoneIdentifier@@ -66,6 +69,7 @@ instance FromJSON AutoScalingAutoScalingGroup where   parseJSON (Object obj) =     AutoScalingAutoScalingGroup <$>+      (obj .:? "AsTags") <*>       (obj .:? "AvailabilityZones") <*>       (obj .:? "Cooldown") <*>       (obj .:? "DesiredCapacity") <*>@@ -73,13 +77,13 @@       (obj .:? "HealthCheckType") <*>       (obj .:? "InstanceId") <*>       (obj .:? "LaunchConfigurationName") <*>+      (obj .:? "LifecycleHookSpecificationList") <*>       (obj .:? "LoadBalancerNames") <*>       (obj .: "MaxSize") <*>       (obj .:? "MetricsCollection") <*>       (obj .: "MinSize") <*>       (obj .:? "NotificationConfigurations") <*>       (obj .:? "PlacementGroup") <*>-      (obj .:? "Tags") <*>       (obj .:? "TargetGroupARNs") <*>       (obj .:? "TerminationPolicies") <*>       (obj .:? "VPCZoneIdentifier")@@ -93,25 +97,30 @@   -> AutoScalingAutoScalingGroup autoScalingAutoScalingGroup maxSizearg minSizearg =   AutoScalingAutoScalingGroup-  { _autoScalingAutoScalingGroupAvailabilityZones = Nothing+  { _autoScalingAutoScalingGroupAsTags = Nothing+  , _autoScalingAutoScalingGroupAvailabilityZones = Nothing   , _autoScalingAutoScalingGroupCooldown = Nothing   , _autoScalingAutoScalingGroupDesiredCapacity = Nothing   , _autoScalingAutoScalingGroupHealthCheckGracePeriod = Nothing   , _autoScalingAutoScalingGroupHealthCheckType = Nothing   , _autoScalingAutoScalingGroupInstanceId = Nothing   , _autoScalingAutoScalingGroupLaunchConfigurationName = Nothing+  , _autoScalingAutoScalingGroupLifecycleHookSpecificationList = Nothing   , _autoScalingAutoScalingGroupLoadBalancerNames = Nothing   , _autoScalingAutoScalingGroupMaxSize = maxSizearg   , _autoScalingAutoScalingGroupMetricsCollection = Nothing   , _autoScalingAutoScalingGroupMinSize = minSizearg   , _autoScalingAutoScalingGroupNotificationConfigurations = Nothing   , _autoScalingAutoScalingGroupPlacementGroup = Nothing-  , _autoScalingAutoScalingGroupTags = Nothing   , _autoScalingAutoScalingGroupTargetGroupARNs = Nothing   , _autoScalingAutoScalingGroupTerminationPolicies = Nothing   , _autoScalingAutoScalingGroupVPCZoneIdentifier = Nothing   } +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-tags+asasgAsTags :: Lens' AutoScalingAutoScalingGroup (Maybe [AutoScalingAutoScalingGroupTagProperty])+asasgAsTags = lens _autoScalingAutoScalingGroupAsTags (\s a -> s { _autoScalingAutoScalingGroupAsTags = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-availabilityzones asasgAvailabilityZones :: Lens' AutoScalingAutoScalingGroup (Maybe (ValList Text)) asasgAvailabilityZones = lens _autoScalingAutoScalingGroupAvailabilityZones (\s a -> s { _autoScalingAutoScalingGroupAvailabilityZones = a })@@ -140,6 +149,10 @@ asasgLaunchConfigurationName :: Lens' AutoScalingAutoScalingGroup (Maybe (Val Text)) asasgLaunchConfigurationName = lens _autoScalingAutoScalingGroupLaunchConfigurationName (\s a -> s { _autoScalingAutoScalingGroupLaunchConfigurationName = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-autoscaling-autoscalinggroup-lifecyclehookspecificationlist+asasgLifecycleHookSpecificationList :: Lens' AutoScalingAutoScalingGroup (Maybe [AutoScalingAutoScalingGroupLifecycleHookSpecification])+asasgLifecycleHookSpecificationList = lens _autoScalingAutoScalingGroupLifecycleHookSpecificationList (\s a -> s { _autoScalingAutoScalingGroupLifecycleHookSpecificationList = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-loadbalancernames asasgLoadBalancerNames :: Lens' AutoScalingAutoScalingGroup (Maybe (ValList Text)) asasgLoadBalancerNames = lens _autoScalingAutoScalingGroupLoadBalancerNames (\s a -> s { _autoScalingAutoScalingGroupLoadBalancerNames = a })@@ -163,10 +176,6 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-placementgroup asasgPlacementGroup :: Lens' AutoScalingAutoScalingGroup (Maybe (Val Text)) asasgPlacementGroup = lens _autoScalingAutoScalingGroupPlacementGroup (\s a -> s { _autoScalingAutoScalingGroupPlacementGroup = a })---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-tags-asasgTags :: Lens' AutoScalingAutoScalingGroup (Maybe [AutoScalingAutoScalingGroupTagProperty])-asasgTags = lens _autoScalingAutoScalingGroupTags (\s a -> s { _autoScalingAutoScalingGroupTags = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-targetgrouparns asasgTargetGroupARNs :: Lens' AutoScalingAutoScalingGroup (Maybe (ValList Text))
library-gen/Stratosphere/Resources/AutoScalingLifecycleHook.hs view
@@ -22,6 +22,7 @@   { _autoScalingLifecycleHookAutoScalingGroupName :: Val Text   , _autoScalingLifecycleHookDefaultResult :: Maybe (Val Text)   , _autoScalingLifecycleHookHeartbeatTimeout :: Maybe (Val Integer)+  , _autoScalingLifecycleHookLifecycleHookName :: Maybe (Val Text)   , _autoScalingLifecycleHookLifecycleTransition :: Val Text   , _autoScalingLifecycleHookNotificationMetadata :: Maybe (Val Text)   , _autoScalingLifecycleHookNotificationTargetARN :: Maybe (Val Text)@@ -35,6 +36,7 @@     [ (Just . ("AutoScalingGroupName",) . toJSON) _autoScalingLifecycleHookAutoScalingGroupName     , fmap (("DefaultResult",) . toJSON) _autoScalingLifecycleHookDefaultResult     , fmap (("HeartbeatTimeout",) . toJSON . fmap Integer') _autoScalingLifecycleHookHeartbeatTimeout+    , fmap (("LifecycleHookName",) . toJSON) _autoScalingLifecycleHookLifecycleHookName     , (Just . ("LifecycleTransition",) . toJSON) _autoScalingLifecycleHookLifecycleTransition     , fmap (("NotificationMetadata",) . toJSON) _autoScalingLifecycleHookNotificationMetadata     , fmap (("NotificationTargetARN",) . toJSON) _autoScalingLifecycleHookNotificationTargetARN@@ -47,6 +49,7 @@       (obj .: "AutoScalingGroupName") <*>       (obj .:? "DefaultResult") <*>       fmap (fmap (fmap unInteger')) (obj .:? "HeartbeatTimeout") <*>+      (obj .:? "LifecycleHookName") <*>       (obj .: "LifecycleTransition") <*>       (obj .:? "NotificationMetadata") <*>       (obj .:? "NotificationTargetARN") <*>@@ -64,6 +67,7 @@   { _autoScalingLifecycleHookAutoScalingGroupName = autoScalingGroupNamearg   , _autoScalingLifecycleHookDefaultResult = Nothing   , _autoScalingLifecycleHookHeartbeatTimeout = Nothing+  , _autoScalingLifecycleHookLifecycleHookName = Nothing   , _autoScalingLifecycleHookLifecycleTransition = lifecycleTransitionarg   , _autoScalingLifecycleHookNotificationMetadata = Nothing   , _autoScalingLifecycleHookNotificationTargetARN = Nothing@@ -81,6 +85,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-as-lifecyclehook.html#cfn-as-lifecyclehook-heartbeattimeout aslhHeartbeatTimeout :: Lens' AutoScalingLifecycleHook (Maybe (Val Integer)) aslhHeartbeatTimeout = lens _autoScalingLifecycleHookHeartbeatTimeout (\s a -> s { _autoScalingLifecycleHookHeartbeatTimeout = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-as-lifecyclehook.html#cfn-autoscaling-lifecyclehook-lifecyclehookname+aslhLifecycleHookName :: Lens' AutoScalingLifecycleHook (Maybe (Val Text))+aslhLifecycleHookName = lens _autoScalingLifecycleHookLifecycleHookName (\s a -> s { _autoScalingLifecycleHookLifecycleHookName = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-as-lifecyclehook.html#cfn-as-lifecyclehook-lifecycletransition aslhLifecycleTransition :: Lens' AutoScalingLifecycleHook (Val Text)
+ library-gen/Stratosphere/Resources/CloudFrontCloudFrontOriginAccessIdentity.hs view
@@ -0,0 +1,51 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudfront-cloudfrontoriginaccessidentity.html++module Stratosphere.Resources.CloudFrontCloudFrontOriginAccessIdentity where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+import Stratosphere.ResourceProperties.CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig++-- | Full data type definition for CloudFrontCloudFrontOriginAccessIdentity.+-- See 'cloudFrontCloudFrontOriginAccessIdentity' for a more convenient+-- constructor.+data CloudFrontCloudFrontOriginAccessIdentity =+  CloudFrontCloudFrontOriginAccessIdentity+  { _cloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig :: CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig+  } deriving (Show, Eq)++instance ToJSON CloudFrontCloudFrontOriginAccessIdentity where+  toJSON CloudFrontCloudFrontOriginAccessIdentity{..} =+    object $+    catMaybes+    [ (Just . ("CloudFrontOriginAccessIdentityConfig",) . toJSON) _cloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig+    ]++instance FromJSON CloudFrontCloudFrontOriginAccessIdentity where+  parseJSON (Object obj) =+    CloudFrontCloudFrontOriginAccessIdentity <$>+      (obj .: "CloudFrontOriginAccessIdentityConfig")+  parseJSON _ = mempty++-- | Constructor for 'CloudFrontCloudFrontOriginAccessIdentity' containing+-- required fields as arguments.+cloudFrontCloudFrontOriginAccessIdentity+  :: CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig -- ^ 'cfcfoaiCloudFrontOriginAccessIdentityConfig'+  -> CloudFrontCloudFrontOriginAccessIdentity+cloudFrontCloudFrontOriginAccessIdentity cloudFrontOriginAccessIdentityConfigarg =+  CloudFrontCloudFrontOriginAccessIdentity+  { _cloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig = cloudFrontOriginAccessIdentityConfigarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudfront-cloudfrontoriginaccessidentity.html#cfn-cloudfront-cloudfrontoriginaccessidentity-cloudfrontoriginaccessidentityconfig+cfcfoaiCloudFrontOriginAccessIdentityConfig :: Lens' CloudFrontCloudFrontOriginAccessIdentity CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig+cfcfoaiCloudFrontOriginAccessIdentityConfig = lens _cloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig (\s a -> s { _cloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig = a })
library-gen/Stratosphere/Resources/CloudFrontDistribution.hs view
@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudfront-distribution.html  module Stratosphere.Resources.CloudFrontDistribution where @@ -14,12 +14,14 @@  import Stratosphere.Values import Stratosphere.ResourceProperties.CloudFrontDistributionDistributionConfig+import Stratosphere.ResourceProperties.Tag  -- | Full data type definition for CloudFrontDistribution. See -- 'cloudFrontDistribution' for a more convenient constructor. data CloudFrontDistribution =   CloudFrontDistribution   { _cloudFrontDistributionDistributionConfig :: CloudFrontDistributionDistributionConfig+  , _cloudFrontDistributionTags :: Maybe [Tag]   } deriving (Show, Eq)  instance ToJSON CloudFrontDistribution where@@ -27,12 +29,14 @@     object $     catMaybes     [ (Just . ("DistributionConfig",) . toJSON) _cloudFrontDistributionDistributionConfig+    , fmap (("Tags",) . toJSON) _cloudFrontDistributionTags     ]  instance FromJSON CloudFrontDistribution where   parseJSON (Object obj) =     CloudFrontDistribution <$>-      (obj .: "DistributionConfig")+      (obj .: "DistributionConfig") <*>+      (obj .:? "Tags")   parseJSON _ = mempty  -- | Constructor for 'CloudFrontDistribution' containing required fields as@@ -43,8 +47,13 @@ cloudFrontDistribution distributionConfigarg =   CloudFrontDistribution   { _cloudFrontDistributionDistributionConfig = distributionConfigarg+  , _cloudFrontDistributionTags = Nothing   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution.html#cfn-cloudfront-distribution-distributionconfig+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudfront-distribution.html#cfn-cloudfront-distribution-distributionconfig cfdDistributionConfig :: Lens' CloudFrontDistribution CloudFrontDistributionDistributionConfig cfdDistributionConfig = lens _cloudFrontDistributionDistributionConfig (\s a -> s { _cloudFrontDistributionDistributionConfig = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudfront-distribution.html#cfn-cloudfront-distribution-tags+cfdTags :: Lens' CloudFrontDistribution (Maybe [Tag])+cfdTags = lens _cloudFrontDistributionTags (\s a -> s { _cloudFrontDistributionTags = a })
+ library-gen/Stratosphere/Resources/CloudFrontStreamingDistribution.hs view
@@ -0,0 +1,60 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudfront-streamingdistribution.html++module Stratosphere.Resources.CloudFrontStreamingDistribution where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+import Stratosphere.ResourceProperties.CloudFrontStreamingDistributionStreamingDistributionConfig+import Stratosphere.ResourceProperties.Tag++-- | Full data type definition for CloudFrontStreamingDistribution. See+-- 'cloudFrontStreamingDistribution' for a more convenient constructor.+data CloudFrontStreamingDistribution =+  CloudFrontStreamingDistribution+  { _cloudFrontStreamingDistributionStreamingDistributionConfig :: CloudFrontStreamingDistributionStreamingDistributionConfig+  , _cloudFrontStreamingDistributionTags :: [Tag]+  } deriving (Show, Eq)++instance ToJSON CloudFrontStreamingDistribution where+  toJSON CloudFrontStreamingDistribution{..} =+    object $+    catMaybes+    [ (Just . ("StreamingDistributionConfig",) . toJSON) _cloudFrontStreamingDistributionStreamingDistributionConfig+    , (Just . ("Tags",) . toJSON) _cloudFrontStreamingDistributionTags+    ]++instance FromJSON CloudFrontStreamingDistribution where+  parseJSON (Object obj) =+    CloudFrontStreamingDistribution <$>+      (obj .: "StreamingDistributionConfig") <*>+      (obj .: "Tags")+  parseJSON _ = mempty++-- | Constructor for 'CloudFrontStreamingDistribution' containing required+-- fields as arguments.+cloudFrontStreamingDistribution+  :: CloudFrontStreamingDistributionStreamingDistributionConfig -- ^ 'cfsdStreamingDistributionConfig'+  -> [Tag] -- ^ 'cfsdTags'+  -> CloudFrontStreamingDistribution+cloudFrontStreamingDistribution streamingDistributionConfigarg tagsarg =+  CloudFrontStreamingDistribution+  { _cloudFrontStreamingDistributionStreamingDistributionConfig = streamingDistributionConfigarg+  , _cloudFrontStreamingDistributionTags = tagsarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudfront-streamingdistribution.html#cfn-cloudfront-streamingdistribution-streamingdistributionconfig+cfsdStreamingDistributionConfig :: Lens' CloudFrontStreamingDistribution CloudFrontStreamingDistributionStreamingDistributionConfig+cfsdStreamingDistributionConfig = lens _cloudFrontStreamingDistributionStreamingDistributionConfig (\s a -> s { _cloudFrontStreamingDistributionStreamingDistributionConfig = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudfront-streamingdistribution.html#cfn-cloudfront-streamingdistribution-tags+cfsdTags :: Lens' CloudFrontStreamingDistribution [Tag]+cfsdTags = lens _cloudFrontStreamingDistributionTags (\s a -> s { _cloudFrontStreamingDistributionTags = a })
library-gen/Stratosphere/Resources/EC2Instance.hs view
@@ -14,6 +14,7 @@  import Stratosphere.Values import Stratosphere.ResourceProperties.EC2InstanceBlockDeviceMapping+import Stratosphere.ResourceProperties.EC2InstanceElasticGpuSpecification import Stratosphere.ResourceProperties.EC2InstanceInstanceIpv6Address import Stratosphere.ResourceProperties.EC2InstanceNetworkInterface import Stratosphere.ResourceProperties.EC2InstanceSsmAssociation@@ -30,6 +31,7 @@   , _eC2InstanceBlockDeviceMappings :: Maybe [EC2InstanceBlockDeviceMapping]   , _eC2InstanceDisableApiTermination :: Maybe (Val Bool)   , _eC2InstanceEbsOptimized :: Maybe (Val Bool)+  , _eC2InstanceElasticGpuSpecifications :: Maybe [EC2InstanceElasticGpuSpecification]   , _eC2InstanceHostId :: Maybe (Val Text)   , _eC2InstanceIamInstanceProfile :: Maybe (Val Text)   , _eC2InstanceImageId :: Val Text@@ -65,6 +67,7 @@     , fmap (("BlockDeviceMappings",) . toJSON) _eC2InstanceBlockDeviceMappings     , fmap (("DisableApiTermination",) . toJSON . fmap Bool') _eC2InstanceDisableApiTermination     , fmap (("EbsOptimized",) . toJSON . fmap Bool') _eC2InstanceEbsOptimized+    , fmap (("ElasticGpuSpecifications",) . toJSON) _eC2InstanceElasticGpuSpecifications     , fmap (("HostId",) . toJSON) _eC2InstanceHostId     , fmap (("IamInstanceProfile",) . toJSON) _eC2InstanceIamInstanceProfile     , (Just . ("ImageId",) . toJSON) _eC2InstanceImageId@@ -99,6 +102,7 @@       (obj .:? "BlockDeviceMappings") <*>       fmap (fmap (fmap unBool')) (obj .:? "DisableApiTermination") <*>       fmap (fmap (fmap unBool')) (obj .:? "EbsOptimized") <*>+      (obj .:? "ElasticGpuSpecifications") <*>       (obj .:? "HostId") <*>       (obj .:? "IamInstanceProfile") <*>       (obj .: "ImageId") <*>@@ -136,6 +140,7 @@   , _eC2InstanceBlockDeviceMappings = Nothing   , _eC2InstanceDisableApiTermination = Nothing   , _eC2InstanceEbsOptimized = Nothing+  , _eC2InstanceElasticGpuSpecifications = Nothing   , _eC2InstanceHostId = Nothing   , _eC2InstanceIamInstanceProfile = Nothing   , _eC2InstanceImageId = imageIdarg@@ -184,6 +189,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-ebsoptimized eciEbsOptimized :: Lens' EC2Instance (Maybe (Val Bool)) eciEbsOptimized = lens _eC2InstanceEbsOptimized (\s a -> s { _eC2InstanceEbsOptimized = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-elasticgpuspecifications+eciElasticGpuSpecifications :: Lens' EC2Instance (Maybe [EC2InstanceElasticGpuSpecification])+eciElasticGpuSpecifications = lens _eC2InstanceElasticGpuSpecifications (\s a -> s { _eC2InstanceElasticGpuSpecifications = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-hostid eciHostId :: Lens' EC2Instance (Maybe (Val Text))
library-gen/Stratosphere/Resources/EC2Route.hs view
@@ -21,6 +21,7 @@   EC2Route   { _eC2RouteDestinationCidrBlock :: Maybe (Val Text)   , _eC2RouteDestinationIpv6CidrBlock :: Maybe (Val Text)+  , _eC2RouteEgressOnlyInternetGatewayId :: Maybe (Val Text)   , _eC2RouteGatewayId :: Maybe (Val Text)   , _eC2RouteInstanceId :: Maybe (Val Text)   , _eC2RouteNatGatewayId :: Maybe (Val Text)@@ -35,6 +36,7 @@     catMaybes     [ fmap (("DestinationCidrBlock",) . toJSON) _eC2RouteDestinationCidrBlock     , fmap (("DestinationIpv6CidrBlock",) . toJSON) _eC2RouteDestinationIpv6CidrBlock+    , fmap (("EgressOnlyInternetGatewayId",) . toJSON) _eC2RouteEgressOnlyInternetGatewayId     , fmap (("GatewayId",) . toJSON) _eC2RouteGatewayId     , fmap (("InstanceId",) . toJSON) _eC2RouteInstanceId     , fmap (("NatGatewayId",) . toJSON) _eC2RouteNatGatewayId@@ -48,6 +50,7 @@     EC2Route <$>       (obj .:? "DestinationCidrBlock") <*>       (obj .:? "DestinationIpv6CidrBlock") <*>+      (obj .:? "EgressOnlyInternetGatewayId") <*>       (obj .:? "GatewayId") <*>       (obj .:? "InstanceId") <*>       (obj .:? "NatGatewayId") <*>@@ -64,6 +67,7 @@   EC2Route   { _eC2RouteDestinationCidrBlock = Nothing   , _eC2RouteDestinationIpv6CidrBlock = Nothing+  , _eC2RouteEgressOnlyInternetGatewayId = Nothing   , _eC2RouteGatewayId = Nothing   , _eC2RouteInstanceId = Nothing   , _eC2RouteNatGatewayId = Nothing@@ -79,6 +83,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-route.html#cfn-ec2-route-destinationipv6cidrblock ecrDestinationIpv6CidrBlock :: Lens' EC2Route (Maybe (Val Text)) ecrDestinationIpv6CidrBlock = lens _eC2RouteDestinationIpv6CidrBlock (\s a -> s { _eC2RouteDestinationIpv6CidrBlock = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-route.html#cfn-ec2-route-egressonlyinternetgatewayid+ecrEgressOnlyInternetGatewayId :: Lens' EC2Route (Maybe (Val Text))+ecrEgressOnlyInternetGatewayId = lens _eC2RouteEgressOnlyInternetGatewayId (\s a -> s { _eC2RouteEgressOnlyInternetGatewayId = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-route.html#cfn-ec2-route-gatewayid ecrGatewayId :: Lens' EC2Route (Maybe (Val Text))
library-gen/Stratosphere/Resources/EC2SecurityGroupEgress.hs view
@@ -21,6 +21,7 @@   EC2SecurityGroupEgress   { _eC2SecurityGroupEgressCidrIp :: Maybe (Val Text)   , _eC2SecurityGroupEgressCidrIpv6 :: Maybe (Val Text)+  , _eC2SecurityGroupEgressDescription :: Maybe (Val Text)   , _eC2SecurityGroupEgressDestinationPrefixListId :: Maybe (Val Text)   , _eC2SecurityGroupEgressDestinationSecurityGroupId :: Maybe (Val Text)   , _eC2SecurityGroupEgressFromPort :: Maybe (Val Integer)@@ -35,6 +36,7 @@     catMaybes     [ fmap (("CidrIp",) . toJSON) _eC2SecurityGroupEgressCidrIp     , fmap (("CidrIpv6",) . toJSON) _eC2SecurityGroupEgressCidrIpv6+    , fmap (("Description",) . toJSON) _eC2SecurityGroupEgressDescription     , fmap (("DestinationPrefixListId",) . toJSON) _eC2SecurityGroupEgressDestinationPrefixListId     , fmap (("DestinationSecurityGroupId",) . toJSON) _eC2SecurityGroupEgressDestinationSecurityGroupId     , fmap (("FromPort",) . toJSON . fmap Integer') _eC2SecurityGroupEgressFromPort@@ -48,6 +50,7 @@     EC2SecurityGroupEgress <$>       (obj .:? "CidrIp") <*>       (obj .:? "CidrIpv6") <*>+      (obj .:? "Description") <*>       (obj .:? "DestinationPrefixListId") <*>       (obj .:? "DestinationSecurityGroupId") <*>       fmap (fmap (fmap unInteger')) (obj .:? "FromPort") <*>@@ -66,6 +69,7 @@   EC2SecurityGroupEgress   { _eC2SecurityGroupEgressCidrIp = Nothing   , _eC2SecurityGroupEgressCidrIpv6 = Nothing+  , _eC2SecurityGroupEgressDescription = Nothing   , _eC2SecurityGroupEgressDestinationPrefixListId = Nothing   , _eC2SecurityGroupEgressDestinationSecurityGroupId = Nothing   , _eC2SecurityGroupEgressFromPort = Nothing@@ -81,6 +85,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-security-group-egress.html#cfn-ec2-securitygroupegress-cidripv6 ecsgeCidrIpv6 :: Lens' EC2SecurityGroupEgress (Maybe (Val Text)) ecsgeCidrIpv6 = lens _eC2SecurityGroupEgressCidrIpv6 (\s a -> s { _eC2SecurityGroupEgressCidrIpv6 = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-security-group-egress.html#cfn-ec2-securitygroupegress-description+ecsgeDescription :: Lens' EC2SecurityGroupEgress (Maybe (Val Text))+ecsgeDescription = lens _eC2SecurityGroupEgressDescription (\s a -> s { _eC2SecurityGroupEgressDescription = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-security-group-egress.html#cfn-ec2-securitygroupegress-destinationprefixlistid ecsgeDestinationPrefixListId :: Lens' EC2SecurityGroupEgress (Maybe (Val Text))
library-gen/Stratosphere/Resources/EC2SecurityGroupIngress.hs view
@@ -21,6 +21,7 @@   EC2SecurityGroupIngress   { _eC2SecurityGroupIngressCidrIp :: Maybe (Val Text)   , _eC2SecurityGroupIngressCidrIpv6 :: Maybe (Val Text)+  , _eC2SecurityGroupIngressDescription :: Maybe (Val Text)   , _eC2SecurityGroupIngressFromPort :: Maybe (Val Integer)   , _eC2SecurityGroupIngressGroupId :: Maybe (Val Text)   , _eC2SecurityGroupIngressGroupName :: Maybe (Val Text)@@ -37,6 +38,7 @@     catMaybes     [ fmap (("CidrIp",) . toJSON) _eC2SecurityGroupIngressCidrIp     , fmap (("CidrIpv6",) . toJSON) _eC2SecurityGroupIngressCidrIpv6+    , fmap (("Description",) . toJSON) _eC2SecurityGroupIngressDescription     , fmap (("FromPort",) . toJSON . fmap Integer') _eC2SecurityGroupIngressFromPort     , fmap (("GroupId",) . toJSON) _eC2SecurityGroupIngressGroupId     , fmap (("GroupName",) . toJSON) _eC2SecurityGroupIngressGroupName@@ -52,6 +54,7 @@     EC2SecurityGroupIngress <$>       (obj .:? "CidrIp") <*>       (obj .:? "CidrIpv6") <*>+      (obj .:? "Description") <*>       fmap (fmap (fmap unInteger')) (obj .:? "FromPort") <*>       (obj .:? "GroupId") <*>       (obj .:? "GroupName") <*>@@ -71,6 +74,7 @@   EC2SecurityGroupIngress   { _eC2SecurityGroupIngressCidrIp = Nothing   , _eC2SecurityGroupIngressCidrIpv6 = Nothing+  , _eC2SecurityGroupIngressDescription = Nothing   , _eC2SecurityGroupIngressFromPort = Nothing   , _eC2SecurityGroupIngressGroupId = Nothing   , _eC2SecurityGroupIngressGroupName = Nothing@@ -88,6 +92,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-ingress.html#cfn-ec2-security-group-ingress-cidripv6 ecsgiCidrIpv6 :: Lens' EC2SecurityGroupIngress (Maybe (Val Text)) ecsgiCidrIpv6 = lens _eC2SecurityGroupIngressCidrIpv6 (\s a -> s { _eC2SecurityGroupIngressCidrIpv6 = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-ingress.html#cfn-ec2-security-group-ingress-description+ecsgiDescription :: Lens' EC2SecurityGroupIngress (Maybe (Val Text))+ecsgiDescription = lens _eC2SecurityGroupIngressDescription (\s a -> s { _eC2SecurityGroupIngressDescription = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-ingress.html#cfn-ec2-security-group-ingress-fromport ecsgiFromPort :: Lens' EC2SecurityGroupIngress (Maybe (Val Integer))
library-gen/Stratosphere/Resources/EC2VPNConnection.hs view
@@ -14,6 +14,7 @@  import Stratosphere.Values import Stratosphere.ResourceProperties.Tag+import Stratosphere.ResourceProperties.EC2VPNConnectionVpnTunnelOptionsSpecification  -- | Full data type definition for EC2VPNConnection. See 'ec2VPNConnection' -- for a more convenient constructor.@@ -24,6 +25,7 @@   , _eC2VPNConnectionTags :: Maybe [Tag]   , _eC2VPNConnectionType :: Val Text   , _eC2VPNConnectionVpnGatewayId :: Val Text+  , _eC2VPNConnectionVpnTunnelOptionsSpecifications :: Maybe [EC2VPNConnectionVpnTunnelOptionsSpecification]   } deriving (Show, Eq)  instance ToJSON EC2VPNConnection where@@ -35,6 +37,7 @@     , fmap (("Tags",) . toJSON) _eC2VPNConnectionTags     , (Just . ("Type",) . toJSON) _eC2VPNConnectionType     , (Just . ("VpnGatewayId",) . toJSON) _eC2VPNConnectionVpnGatewayId+    , fmap (("VpnTunnelOptionsSpecifications",) . toJSON) _eC2VPNConnectionVpnTunnelOptionsSpecifications     ]  instance FromJSON EC2VPNConnection where@@ -44,7 +47,8 @@       fmap (fmap (fmap unBool')) (obj .:? "StaticRoutesOnly") <*>       (obj .:? "Tags") <*>       (obj .: "Type") <*>-      (obj .: "VpnGatewayId")+      (obj .: "VpnGatewayId") <*>+      (obj .:? "VpnTunnelOptionsSpecifications")   parseJSON _ = mempty  -- | Constructor for 'EC2VPNConnection' containing required fields as@@ -61,6 +65,7 @@   , _eC2VPNConnectionTags = Nothing   , _eC2VPNConnectionType = typearg   , _eC2VPNConnectionVpnGatewayId = vpnGatewayIdarg+  , _eC2VPNConnectionVpnTunnelOptionsSpecifications = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpn-connection.html#cfn-ec2-vpnconnection-customergatewayid@@ -82,3 +87,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpn-connection.html#cfn-ec2-vpnconnection-vpngatewayid ecvpncVpnGatewayId :: Lens' EC2VPNConnection (Val Text) ecvpncVpnGatewayId = lens _eC2VPNConnectionVpnGatewayId (\s a -> s { _eC2VPNConnectionVpnGatewayId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpn-connection.html#cfn-ec2-vpnconnection-vpntunneloptionsspecifications+ecvpncVpnTunnelOptionsSpecifications :: Lens' EC2VPNConnection (Maybe [EC2VPNConnectionVpnTunnelOptionsSpecification])+ecvpncVpnTunnelOptionsSpecifications = lens _eC2VPNConnectionVpnTunnelOptionsSpecifications (\s a -> s { _eC2VPNConnectionVpnTunnelOptionsSpecifications = a })
library-gen/Stratosphere/Resources/EC2VPNGateway.hs view
@@ -19,7 +19,8 @@ -- more convenient constructor. data EC2VPNGateway =   EC2VPNGateway-  { _eC2VPNGatewayTags :: Maybe [Tag]+  { _eC2VPNGatewayAmazonSideAsn :: Maybe (Val Integer)+  , _eC2VPNGatewayTags :: Maybe [Tag]   , _eC2VPNGatewayType :: Val Text   } deriving (Show, Eq) @@ -27,13 +28,15 @@   toJSON EC2VPNGateway{..} =     object $     catMaybes-    [ fmap (("Tags",) . toJSON) _eC2VPNGatewayTags+    [ fmap (("AmazonSideAsn",) . toJSON . fmap Integer') _eC2VPNGatewayAmazonSideAsn+    , fmap (("Tags",) . toJSON) _eC2VPNGatewayTags     , (Just . ("Type",) . toJSON) _eC2VPNGatewayType     ]  instance FromJSON EC2VPNGateway where   parseJSON (Object obj) =     EC2VPNGateway <$>+      fmap (fmap (fmap unInteger')) (obj .:? "AmazonSideAsn") <*>       (obj .:? "Tags") <*>       (obj .: "Type")   parseJSON _ = mempty@@ -44,9 +47,14 @@   -> EC2VPNGateway ec2VPNGateway typearg =   EC2VPNGateway-  { _eC2VPNGatewayTags = Nothing+  { _eC2VPNGatewayAmazonSideAsn = Nothing+  , _eC2VPNGatewayTags = Nothing   , _eC2VPNGatewayType = typearg   }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpn-gateway.html#cfn-ec2-vpngateway-amazonsideasn+ecvpngAmazonSideAsn :: Lens' EC2VPNGateway (Maybe (Val Integer))+ecvpngAmazonSideAsn = lens _eC2VPNGatewayAmazonSideAsn (\s a -> s { _eC2VPNGatewayAmazonSideAsn = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpn-gateway.html#cfn-ec2-vpngateway-tags ecvpngTags :: Lens' EC2VPNGateway (Maybe [Tag])
library-gen/Stratosphere/Resources/EMRCluster.hs view
@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-emr-cluster.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html  module Stratosphere.Resources.EMRCluster where @@ -28,6 +28,7 @@   , _eMRClusterAutoScalingRole :: Maybe (Val Text)   , _eMRClusterBootstrapActions :: Maybe [EMRClusterBootstrapActionConfig]   , _eMRClusterConfigurations :: Maybe [EMRClusterConfiguration]+  , _eMRClusterCustomAmiId :: Maybe (Val Text)   , _eMRClusterInstances :: EMRClusterJobFlowInstancesConfig   , _eMRClusterJobFlowRole :: Val Text   , _eMRClusterLogUri :: Maybe (Val Text)@@ -49,6 +50,7 @@     , fmap (("AutoScalingRole",) . toJSON) _eMRClusterAutoScalingRole     , fmap (("BootstrapActions",) . toJSON) _eMRClusterBootstrapActions     , fmap (("Configurations",) . toJSON) _eMRClusterConfigurations+    , fmap (("CustomAmiId",) . toJSON) _eMRClusterCustomAmiId     , (Just . ("Instances",) . toJSON) _eMRClusterInstances     , (Just . ("JobFlowRole",) . toJSON) _eMRClusterJobFlowRole     , fmap (("LogUri",) . toJSON) _eMRClusterLogUri@@ -69,6 +71,7 @@       (obj .:? "AutoScalingRole") <*>       (obj .:? "BootstrapActions") <*>       (obj .:? "Configurations") <*>+      (obj .:? "CustomAmiId") <*>       (obj .: "Instances") <*>       (obj .: "JobFlowRole") <*>       (obj .:? "LogUri") <*>@@ -95,6 +98,7 @@   , _eMRClusterAutoScalingRole = Nothing   , _eMRClusterBootstrapActions = Nothing   , _eMRClusterConfigurations = Nothing+  , _eMRClusterCustomAmiId = Nothing   , _eMRClusterInstances = instancesarg   , _eMRClusterJobFlowRole = jobFlowRolearg   , _eMRClusterLogUri = Nothing@@ -107,62 +111,66 @@   , _eMRClusterVisibleToAllUsers = Nothing   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-emr-cluster.html#cfn-emr-cluster-additionalinfo+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-additionalinfo emrcAdditionalInfo :: Lens' EMRCluster (Maybe Object) emrcAdditionalInfo = lens _eMRClusterAdditionalInfo (\s a -> s { _eMRClusterAdditionalInfo = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-emr-cluster.html#cfn-emr-cluster-applications+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-applications emrcApplications :: Lens' EMRCluster (Maybe [EMRClusterApplication]) emrcApplications = lens _eMRClusterApplications (\s a -> s { _eMRClusterApplications = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-emr-cluster.html#cfn-elasticmapreduce-cluster-autoscalingrole+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-autoscalingrole emrcAutoScalingRole :: Lens' EMRCluster (Maybe (Val Text)) emrcAutoScalingRole = lens _eMRClusterAutoScalingRole (\s a -> s { _eMRClusterAutoScalingRole = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-emr-cluster.html#cfn-emr-cluster-bootstrapactions+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-bootstrapactions emrcBootstrapActions :: Lens' EMRCluster (Maybe [EMRClusterBootstrapActionConfig]) emrcBootstrapActions = lens _eMRClusterBootstrapActions (\s a -> s { _eMRClusterBootstrapActions = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-emr-cluster.html#cfn-emr-cluster-configurations+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-configurations emrcConfigurations :: Lens' EMRCluster (Maybe [EMRClusterConfiguration]) emrcConfigurations = lens _eMRClusterConfigurations (\s a -> s { _eMRClusterConfigurations = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-emr-cluster.html#cfn-emr-cluster-instances+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-customamiid+emrcCustomAmiId :: Lens' EMRCluster (Maybe (Val Text))+emrcCustomAmiId = lens _eMRClusterCustomAmiId (\s a -> s { _eMRClusterCustomAmiId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-instances emrcInstances :: Lens' EMRCluster EMRClusterJobFlowInstancesConfig emrcInstances = lens _eMRClusterInstances (\s a -> s { _eMRClusterInstances = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-emr-cluster.html#cfn-emr-cluster-jobflowrole+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-jobflowrole emrcJobFlowRole :: Lens' EMRCluster (Val Text) emrcJobFlowRole = lens _eMRClusterJobFlowRole (\s a -> s { _eMRClusterJobFlowRole = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-emr-cluster.html#cfn-emr-cluster-loguri+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-loguri emrcLogUri :: Lens' EMRCluster (Maybe (Val Text)) emrcLogUri = lens _eMRClusterLogUri (\s a -> s { _eMRClusterLogUri = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-emr-cluster.html#cfn-emr-cluster-name+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-name emrcName :: Lens' EMRCluster (Val Text) emrcName = lens _eMRClusterName (\s a -> s { _eMRClusterName = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-emr-cluster.html#cfn-emr-cluster-releaselabel+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-releaselabel emrcReleaseLabel :: Lens' EMRCluster (Maybe (Val Text)) emrcReleaseLabel = lens _eMRClusterReleaseLabel (\s a -> s { _eMRClusterReleaseLabel = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-emr-cluster.html#cfn-elasticmapreduce-cluster-scaledownbehavior+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-scaledownbehavior emrcScaleDownBehavior :: Lens' EMRCluster (Maybe (Val Text)) emrcScaleDownBehavior = lens _eMRClusterScaleDownBehavior (\s a -> s { _eMRClusterScaleDownBehavior = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-emr-cluster.html#cfn-emr-securityconfiguration+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-securityconfiguration emrcSecurityConfiguration :: Lens' EMRCluster (Maybe (Val Text)) emrcSecurityConfiguration = lens _eMRClusterSecurityConfiguration (\s a -> s { _eMRClusterSecurityConfiguration = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-emr-cluster.html#cfn-emr-cluster-servicerole+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-servicerole emrcServiceRole :: Lens' EMRCluster (Val Text) emrcServiceRole = lens _eMRClusterServiceRole (\s a -> s { _eMRClusterServiceRole = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-emr-cluster.html#cfn-elasticmapreduce-cluster-tags+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-tags emrcTags :: Lens' EMRCluster (Maybe [Tag]) emrcTags = lens _eMRClusterTags (\s a -> s { _eMRClusterTags = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-emr-cluster.html#cfn-emr-cluster-visibletoallusers+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-visibletoallusers emrcVisibleToAllUsers :: Lens' EMRCluster (Maybe (Val Bool)) emrcVisibleToAllUsers = lens _eMRClusterVisibleToAllUsers (\s a -> s { _eMRClusterVisibleToAllUsers = a })
+ library-gen/Stratosphere/Resources/GlueClassifier.hs view
@@ -0,0 +1,48 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-classifier.html++module Stratosphere.Resources.GlueClassifier where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+import Stratosphere.ResourceProperties.GlueClassifierGrokClassifier++-- | Full data type definition for GlueClassifier. See 'glueClassifier' for a+-- more convenient constructor.+data GlueClassifier =+  GlueClassifier+  { _glueClassifierGrokClassifier :: Maybe GlueClassifierGrokClassifier+  } deriving (Show, Eq)++instance ToJSON GlueClassifier where+  toJSON GlueClassifier{..} =+    object $+    catMaybes+    [ fmap (("GrokClassifier",) . toJSON) _glueClassifierGrokClassifier+    ]++instance FromJSON GlueClassifier where+  parseJSON (Object obj) =+    GlueClassifier <$>+      (obj .:? "GrokClassifier")+  parseJSON _ = mempty++-- | Constructor for 'GlueClassifier' containing required fields as arguments.+glueClassifier+  :: GlueClassifier+glueClassifier  =+  GlueClassifier+  { _glueClassifierGrokClassifier = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-classifier.html#cfn-glue-classifier-grokclassifier+gcGrokClassifier :: Lens' GlueClassifier (Maybe GlueClassifierGrokClassifier)+gcGrokClassifier = lens _glueClassifierGrokClassifier (\s a -> s { _glueClassifierGrokClassifier = a })
+ library-gen/Stratosphere/Resources/GlueConnection.hs view
@@ -0,0 +1,58 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-connection.html++module Stratosphere.Resources.GlueConnection where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+import Stratosphere.ResourceProperties.GlueConnectionConnectionInput++-- | Full data type definition for GlueConnection. See 'glueConnection' for a+-- more convenient constructor.+data GlueConnection =+  GlueConnection+  { _glueConnectionCatalogId :: Val Text+  , _glueConnectionConnectionInput :: GlueConnectionConnectionInput+  } deriving (Show, Eq)++instance ToJSON GlueConnection where+  toJSON GlueConnection{..} =+    object $+    catMaybes+    [ (Just . ("CatalogId",) . toJSON) _glueConnectionCatalogId+    , (Just . ("ConnectionInput",) . toJSON) _glueConnectionConnectionInput+    ]++instance FromJSON GlueConnection where+  parseJSON (Object obj) =+    GlueConnection <$>+      (obj .: "CatalogId") <*>+      (obj .: "ConnectionInput")+  parseJSON _ = mempty++-- | Constructor for 'GlueConnection' containing required fields as arguments.+glueConnection+  :: Val Text -- ^ 'gcCatalogId'+  -> GlueConnectionConnectionInput -- ^ 'gcConnectionInput'+  -> GlueConnection+glueConnection catalogIdarg connectionInputarg =+  GlueConnection+  { _glueConnectionCatalogId = catalogIdarg+  , _glueConnectionConnectionInput = connectionInputarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-connection.html#cfn-glue-connection-catalogid+gcCatalogId :: Lens' GlueConnection (Val Text)+gcCatalogId = lens _glueConnectionCatalogId (\s a -> s { _glueConnectionCatalogId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-connection.html#cfn-glue-connection-connectioninput+gcConnectionInput :: Lens' GlueConnection GlueConnectionConnectionInput+gcConnectionInput = lens _glueConnectionConnectionInput (\s a -> s { _glueConnectionConnectionInput = a })
+ library-gen/Stratosphere/Resources/GlueCrawler.hs view
@@ -0,0 +1,117 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-crawler.html++module Stratosphere.Resources.GlueCrawler where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+import Stratosphere.ResourceProperties.GlueCrawlerSchedule+import Stratosphere.ResourceProperties.GlueCrawlerSchemaChangePolicy+import Stratosphere.ResourceProperties.GlueCrawlerTargets++-- | Full data type definition for GlueCrawler. See 'glueCrawler' for a more+-- convenient constructor.+data GlueCrawler =+  GlueCrawler+  { _glueCrawlerClassifiers :: Maybe (ValList Text)+  , _glueCrawlerDatabaseName :: Val Text+  , _glueCrawlerDescription :: Maybe (Val Text)+  , _glueCrawlerName :: Maybe (Val Text)+  , _glueCrawlerRole :: Val Text+  , _glueCrawlerSchedule :: Maybe GlueCrawlerSchedule+  , _glueCrawlerSchemaChangePolicy :: Maybe GlueCrawlerSchemaChangePolicy+  , _glueCrawlerTablePrefix :: Maybe (Val Text)+  , _glueCrawlerTargets :: GlueCrawlerTargets+  } deriving (Show, Eq)++instance ToJSON GlueCrawler where+  toJSON GlueCrawler{..} =+    object $+    catMaybes+    [ fmap (("Classifiers",) . toJSON) _glueCrawlerClassifiers+    , (Just . ("DatabaseName",) . toJSON) _glueCrawlerDatabaseName+    , fmap (("Description",) . toJSON) _glueCrawlerDescription+    , fmap (("Name",) . toJSON) _glueCrawlerName+    , (Just . ("Role",) . toJSON) _glueCrawlerRole+    , fmap (("Schedule",) . toJSON) _glueCrawlerSchedule+    , fmap (("SchemaChangePolicy",) . toJSON) _glueCrawlerSchemaChangePolicy+    , fmap (("TablePrefix",) . toJSON) _glueCrawlerTablePrefix+    , (Just . ("Targets",) . toJSON) _glueCrawlerTargets+    ]++instance FromJSON GlueCrawler where+  parseJSON (Object obj) =+    GlueCrawler <$>+      (obj .:? "Classifiers") <*>+      (obj .: "DatabaseName") <*>+      (obj .:? "Description") <*>+      (obj .:? "Name") <*>+      (obj .: "Role") <*>+      (obj .:? "Schedule") <*>+      (obj .:? "SchemaChangePolicy") <*>+      (obj .:? "TablePrefix") <*>+      (obj .: "Targets")+  parseJSON _ = mempty++-- | Constructor for 'GlueCrawler' containing required fields as arguments.+glueCrawler+  :: Val Text -- ^ 'gcDatabaseName'+  -> Val Text -- ^ 'gcRole'+  -> GlueCrawlerTargets -- ^ 'gcTargets'+  -> GlueCrawler+glueCrawler databaseNamearg rolearg targetsarg =+  GlueCrawler+  { _glueCrawlerClassifiers = Nothing+  , _glueCrawlerDatabaseName = databaseNamearg+  , _glueCrawlerDescription = Nothing+  , _glueCrawlerName = Nothing+  , _glueCrawlerRole = rolearg+  , _glueCrawlerSchedule = Nothing+  , _glueCrawlerSchemaChangePolicy = Nothing+  , _glueCrawlerTablePrefix = Nothing+  , _glueCrawlerTargets = targetsarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-crawler.html#cfn-glue-crawler-classifiers+gcClassifiers :: Lens' GlueCrawler (Maybe (ValList Text))+gcClassifiers = lens _glueCrawlerClassifiers (\s a -> s { _glueCrawlerClassifiers = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-crawler.html#cfn-glue-crawler-databasename+gcDatabaseName :: Lens' GlueCrawler (Val Text)+gcDatabaseName = lens _glueCrawlerDatabaseName (\s a -> s { _glueCrawlerDatabaseName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-crawler.html#cfn-glue-crawler-description+gcDescription :: Lens' GlueCrawler (Maybe (Val Text))+gcDescription = lens _glueCrawlerDescription (\s a -> s { _glueCrawlerDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-crawler.html#cfn-glue-crawler-name+gcName :: Lens' GlueCrawler (Maybe (Val Text))+gcName = lens _glueCrawlerName (\s a -> s { _glueCrawlerName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-crawler.html#cfn-glue-crawler-role+gcRole :: Lens' GlueCrawler (Val Text)+gcRole = lens _glueCrawlerRole (\s a -> s { _glueCrawlerRole = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-crawler.html#cfn-glue-crawler-schedule+gcSchedule :: Lens' GlueCrawler (Maybe GlueCrawlerSchedule)+gcSchedule = lens _glueCrawlerSchedule (\s a -> s { _glueCrawlerSchedule = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-crawler.html#cfn-glue-crawler-schemachangepolicy+gcSchemaChangePolicy :: Lens' GlueCrawler (Maybe GlueCrawlerSchemaChangePolicy)+gcSchemaChangePolicy = lens _glueCrawlerSchemaChangePolicy (\s a -> s { _glueCrawlerSchemaChangePolicy = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-crawler.html#cfn-glue-crawler-tableprefix+gcTablePrefix :: Lens' GlueCrawler (Maybe (Val Text))+gcTablePrefix = lens _glueCrawlerTablePrefix (\s a -> s { _glueCrawlerTablePrefix = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-crawler.html#cfn-glue-crawler-targets+gcTargets :: Lens' GlueCrawler GlueCrawlerTargets+gcTargets = lens _glueCrawlerTargets (\s a -> s { _glueCrawlerTargets = a })
+ library-gen/Stratosphere/Resources/GlueDatabase.hs view
@@ -0,0 +1,58 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-database.html++module Stratosphere.Resources.GlueDatabase where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+import Stratosphere.ResourceProperties.GlueDatabaseDatabaseInput++-- | Full data type definition for GlueDatabase. See 'glueDatabase' for a more+-- convenient constructor.+data GlueDatabase =+  GlueDatabase+  { _glueDatabaseCatalogId :: Val Text+  , _glueDatabaseDatabaseInput :: GlueDatabaseDatabaseInput+  } deriving (Show, Eq)++instance ToJSON GlueDatabase where+  toJSON GlueDatabase{..} =+    object $+    catMaybes+    [ (Just . ("CatalogId",) . toJSON) _glueDatabaseCatalogId+    , (Just . ("DatabaseInput",) . toJSON) _glueDatabaseDatabaseInput+    ]++instance FromJSON GlueDatabase where+  parseJSON (Object obj) =+    GlueDatabase <$>+      (obj .: "CatalogId") <*>+      (obj .: "DatabaseInput")+  parseJSON _ = mempty++-- | Constructor for 'GlueDatabase' containing required fields as arguments.+glueDatabase+  :: Val Text -- ^ 'gdCatalogId'+  -> GlueDatabaseDatabaseInput -- ^ 'gdDatabaseInput'+  -> GlueDatabase+glueDatabase catalogIdarg databaseInputarg =+  GlueDatabase+  { _glueDatabaseCatalogId = catalogIdarg+  , _glueDatabaseDatabaseInput = databaseInputarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-database.html#cfn-glue-database-catalogid+gdCatalogId :: Lens' GlueDatabase (Val Text)+gdCatalogId = lens _glueDatabaseCatalogId (\s a -> s { _glueDatabaseCatalogId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-database.html#cfn-glue-database-databaseinput+gdDatabaseInput :: Lens' GlueDatabase GlueDatabaseDatabaseInput+gdDatabaseInput = lens _glueDatabaseDatabaseInput (\s a -> s { _glueDatabaseDatabaseInput = a })
+ library-gen/Stratosphere/Resources/GlueDevEndpoint.hs view
@@ -0,0 +1,107 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html++module Stratosphere.Resources.GlueDevEndpoint where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+++-- | Full data type definition for GlueDevEndpoint. See 'glueDevEndpoint' for+-- a more convenient constructor.+data GlueDevEndpoint =+  GlueDevEndpoint+  { _glueDevEndpointEndpointName :: Maybe (Val Text)+  , _glueDevEndpointExtraJarsS3Path :: Maybe (Val Text)+  , _glueDevEndpointExtraPythonLibsS3Path :: Maybe (Val Text)+  , _glueDevEndpointNumberOfNodes :: Maybe (Val Integer)+  , _glueDevEndpointPublicKey :: Val Text+  , _glueDevEndpointRoleArn :: Val Text+  , _glueDevEndpointSecurityGroupIds :: Maybe (ValList Text)+  , _glueDevEndpointSubnetId :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON GlueDevEndpoint where+  toJSON GlueDevEndpoint{..} =+    object $+    catMaybes+    [ fmap (("EndpointName",) . toJSON) _glueDevEndpointEndpointName+    , fmap (("ExtraJarsS3Path",) . toJSON) _glueDevEndpointExtraJarsS3Path+    , fmap (("ExtraPythonLibsS3Path",) . toJSON) _glueDevEndpointExtraPythonLibsS3Path+    , fmap (("NumberOfNodes",) . toJSON . fmap Integer') _glueDevEndpointNumberOfNodes+    , (Just . ("PublicKey",) . toJSON) _glueDevEndpointPublicKey+    , (Just . ("RoleArn",) . toJSON) _glueDevEndpointRoleArn+    , fmap (("SecurityGroupIds",) . toJSON) _glueDevEndpointSecurityGroupIds+    , fmap (("SubnetId",) . toJSON) _glueDevEndpointSubnetId+    ]++instance FromJSON GlueDevEndpoint where+  parseJSON (Object obj) =+    GlueDevEndpoint <$>+      (obj .:? "EndpointName") <*>+      (obj .:? "ExtraJarsS3Path") <*>+      (obj .:? "ExtraPythonLibsS3Path") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "NumberOfNodes") <*>+      (obj .: "PublicKey") <*>+      (obj .: "RoleArn") <*>+      (obj .:? "SecurityGroupIds") <*>+      (obj .:? "SubnetId")+  parseJSON _ = mempty++-- | Constructor for 'GlueDevEndpoint' containing required fields as+-- arguments.+glueDevEndpoint+  :: Val Text -- ^ 'gdePublicKey'+  -> Val Text -- ^ 'gdeRoleArn'+  -> GlueDevEndpoint+glueDevEndpoint publicKeyarg roleArnarg =+  GlueDevEndpoint+  { _glueDevEndpointEndpointName = Nothing+  , _glueDevEndpointExtraJarsS3Path = Nothing+  , _glueDevEndpointExtraPythonLibsS3Path = Nothing+  , _glueDevEndpointNumberOfNodes = Nothing+  , _glueDevEndpointPublicKey = publicKeyarg+  , _glueDevEndpointRoleArn = roleArnarg+  , _glueDevEndpointSecurityGroupIds = Nothing+  , _glueDevEndpointSubnetId = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html#cfn-glue-devendpoint-endpointname+gdeEndpointName :: Lens' GlueDevEndpoint (Maybe (Val Text))+gdeEndpointName = lens _glueDevEndpointEndpointName (\s a -> s { _glueDevEndpointEndpointName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html#cfn-glue-devendpoint-extrajarss3path+gdeExtraJarsS3Path :: Lens' GlueDevEndpoint (Maybe (Val Text))+gdeExtraJarsS3Path = lens _glueDevEndpointExtraJarsS3Path (\s a -> s { _glueDevEndpointExtraJarsS3Path = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html#cfn-glue-devendpoint-extrapythonlibss3path+gdeExtraPythonLibsS3Path :: Lens' GlueDevEndpoint (Maybe (Val Text))+gdeExtraPythonLibsS3Path = lens _glueDevEndpointExtraPythonLibsS3Path (\s a -> s { _glueDevEndpointExtraPythonLibsS3Path = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html#cfn-glue-devendpoint-numberofnodes+gdeNumberOfNodes :: Lens' GlueDevEndpoint (Maybe (Val Integer))+gdeNumberOfNodes = lens _glueDevEndpointNumberOfNodes (\s a -> s { _glueDevEndpointNumberOfNodes = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html#cfn-glue-devendpoint-publickey+gdePublicKey :: Lens' GlueDevEndpoint (Val Text)+gdePublicKey = lens _glueDevEndpointPublicKey (\s a -> s { _glueDevEndpointPublicKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html#cfn-glue-devendpoint-rolearn+gdeRoleArn :: Lens' GlueDevEndpoint (Val Text)+gdeRoleArn = lens _glueDevEndpointRoleArn (\s a -> s { _glueDevEndpointRoleArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html#cfn-glue-devendpoint-securitygroupids+gdeSecurityGroupIds :: Lens' GlueDevEndpoint (Maybe (ValList Text))+gdeSecurityGroupIds = lens _glueDevEndpointSecurityGroupIds (\s a -> s { _glueDevEndpointSecurityGroupIds = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html#cfn-glue-devendpoint-subnetid+gdeSubnetId :: Lens' GlueDevEndpoint (Maybe (Val Text))+gdeSubnetId = lens _glueDevEndpointSubnetId (\s a -> s { _glueDevEndpointSubnetId = a })
+ library-gen/Stratosphere/Resources/GlueJob.hs view
@@ -0,0 +1,124 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-job.html++module Stratosphere.Resources.GlueJob where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+import Stratosphere.ResourceProperties.GlueJobJobCommand+import Stratosphere.ResourceProperties.GlueJobConnectionsList+import Stratosphere.ResourceProperties.GlueJobExecutionProperty++-- | Full data type definition for GlueJob. See 'glueJob' for a more+-- convenient constructor.+data GlueJob =+  GlueJob+  { _glueJobAllocatedCapacity :: Maybe (Val Double)+  , _glueJobCommand :: GlueJobJobCommand+  , _glueJobConnections :: Maybe GlueJobConnectionsList+  , _glueJobDefaultArguments :: Maybe Object+  , _glueJobDescription :: Maybe (Val Text)+  , _glueJobExecutionProperty :: Maybe GlueJobExecutionProperty+  , _glueJobLogUri :: Maybe (Val Text)+  , _glueJobMaxRetries :: Maybe (Val Double)+  , _glueJobName :: Maybe (Val Text)+  , _glueJobRole :: Val Text+  } deriving (Show, Eq)++instance ToJSON GlueJob where+  toJSON GlueJob{..} =+    object $+    catMaybes+    [ fmap (("AllocatedCapacity",) . toJSON . fmap Double') _glueJobAllocatedCapacity+    , (Just . ("Command",) . toJSON) _glueJobCommand+    , fmap (("Connections",) . toJSON) _glueJobConnections+    , fmap (("DefaultArguments",) . toJSON) _glueJobDefaultArguments+    , fmap (("Description",) . toJSON) _glueJobDescription+    , fmap (("ExecutionProperty",) . toJSON) _glueJobExecutionProperty+    , fmap (("LogUri",) . toJSON) _glueJobLogUri+    , fmap (("MaxRetries",) . toJSON . fmap Double') _glueJobMaxRetries+    , fmap (("Name",) . toJSON) _glueJobName+    , (Just . ("Role",) . toJSON) _glueJobRole+    ]++instance FromJSON GlueJob where+  parseJSON (Object obj) =+    GlueJob <$>+      fmap (fmap (fmap unDouble')) (obj .:? "AllocatedCapacity") <*>+      (obj .: "Command") <*>+      (obj .:? "Connections") <*>+      (obj .:? "DefaultArguments") <*>+      (obj .:? "Description") <*>+      (obj .:? "ExecutionProperty") <*>+      (obj .:? "LogUri") <*>+      fmap (fmap (fmap unDouble')) (obj .:? "MaxRetries") <*>+      (obj .:? "Name") <*>+      (obj .: "Role")+  parseJSON _ = mempty++-- | Constructor for 'GlueJob' containing required fields as arguments.+glueJob+  :: GlueJobJobCommand -- ^ 'gjCommand'+  -> Val Text -- ^ 'gjRole'+  -> GlueJob+glueJob commandarg rolearg =+  GlueJob+  { _glueJobAllocatedCapacity = Nothing+  , _glueJobCommand = commandarg+  , _glueJobConnections = Nothing+  , _glueJobDefaultArguments = Nothing+  , _glueJobDescription = Nothing+  , _glueJobExecutionProperty = Nothing+  , _glueJobLogUri = Nothing+  , _glueJobMaxRetries = Nothing+  , _glueJobName = Nothing+  , _glueJobRole = rolearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-job.html#cfn-glue-job-allocatedcapacity+gjAllocatedCapacity :: Lens' GlueJob (Maybe (Val Double))+gjAllocatedCapacity = lens _glueJobAllocatedCapacity (\s a -> s { _glueJobAllocatedCapacity = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-job.html#cfn-glue-job-command+gjCommand :: Lens' GlueJob GlueJobJobCommand+gjCommand = lens _glueJobCommand (\s a -> s { _glueJobCommand = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-job.html#cfn-glue-job-connections+gjConnections :: Lens' GlueJob (Maybe GlueJobConnectionsList)+gjConnections = lens _glueJobConnections (\s a -> s { _glueJobConnections = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-job.html#cfn-glue-job-defaultarguments+gjDefaultArguments :: Lens' GlueJob (Maybe Object)+gjDefaultArguments = lens _glueJobDefaultArguments (\s a -> s { _glueJobDefaultArguments = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-job.html#cfn-glue-job-description+gjDescription :: Lens' GlueJob (Maybe (Val Text))+gjDescription = lens _glueJobDescription (\s a -> s { _glueJobDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-job.html#cfn-glue-job-executionproperty+gjExecutionProperty :: Lens' GlueJob (Maybe GlueJobExecutionProperty)+gjExecutionProperty = lens _glueJobExecutionProperty (\s a -> s { _glueJobExecutionProperty = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-job.html#cfn-glue-job-loguri+gjLogUri :: Lens' GlueJob (Maybe (Val Text))+gjLogUri = lens _glueJobLogUri (\s a -> s { _glueJobLogUri = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-job.html#cfn-glue-job-maxretries+gjMaxRetries :: Lens' GlueJob (Maybe (Val Double))+gjMaxRetries = lens _glueJobMaxRetries (\s a -> s { _glueJobMaxRetries = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-job.html#cfn-glue-job-name+gjName :: Lens' GlueJob (Maybe (Val Text))+gjName = lens _glueJobName (\s a -> s { _glueJobName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-job.html#cfn-glue-job-role+gjRole :: Lens' GlueJob (Val Text)+gjRole = lens _glueJobRole (\s a -> s { _glueJobRole = a })
+ library-gen/Stratosphere/Resources/GluePartition.hs view
@@ -0,0 +1,76 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-partition.html++module Stratosphere.Resources.GluePartition where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+import Stratosphere.ResourceProperties.GluePartitionPartitionInput++-- | Full data type definition for GluePartition. See 'gluePartition' for a+-- more convenient constructor.+data GluePartition =+  GluePartition+  { _gluePartitionCatalogId :: Val Text+  , _gluePartitionDatabaseName :: Val Text+  , _gluePartitionPartitionInput :: GluePartitionPartitionInput+  , _gluePartitionTableName :: Val Text+  } deriving (Show, Eq)++instance ToJSON GluePartition where+  toJSON GluePartition{..} =+    object $+    catMaybes+    [ (Just . ("CatalogId",) . toJSON) _gluePartitionCatalogId+    , (Just . ("DatabaseName",) . toJSON) _gluePartitionDatabaseName+    , (Just . ("PartitionInput",) . toJSON) _gluePartitionPartitionInput+    , (Just . ("TableName",) . toJSON) _gluePartitionTableName+    ]++instance FromJSON GluePartition where+  parseJSON (Object obj) =+    GluePartition <$>+      (obj .: "CatalogId") <*>+      (obj .: "DatabaseName") <*>+      (obj .: "PartitionInput") <*>+      (obj .: "TableName")+  parseJSON _ = mempty++-- | Constructor for 'GluePartition' containing required fields as arguments.+gluePartition+  :: Val Text -- ^ 'gpCatalogId'+  -> Val Text -- ^ 'gpDatabaseName'+  -> GluePartitionPartitionInput -- ^ 'gpPartitionInput'+  -> Val Text -- ^ 'gpTableName'+  -> GluePartition+gluePartition catalogIdarg databaseNamearg partitionInputarg tableNamearg =+  GluePartition+  { _gluePartitionCatalogId = catalogIdarg+  , _gluePartitionDatabaseName = databaseNamearg+  , _gluePartitionPartitionInput = partitionInputarg+  , _gluePartitionTableName = tableNamearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-partition.html#cfn-glue-partition-catalogid+gpCatalogId :: Lens' GluePartition (Val Text)+gpCatalogId = lens _gluePartitionCatalogId (\s a -> s { _gluePartitionCatalogId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-partition.html#cfn-glue-partition-databasename+gpDatabaseName :: Lens' GluePartition (Val Text)+gpDatabaseName = lens _gluePartitionDatabaseName (\s a -> s { _gluePartitionDatabaseName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-partition.html#cfn-glue-partition-partitioninput+gpPartitionInput :: Lens' GluePartition GluePartitionPartitionInput+gpPartitionInput = lens _gluePartitionPartitionInput (\s a -> s { _gluePartitionPartitionInput = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-partition.html#cfn-glue-partition-tablename+gpTableName :: Lens' GluePartition (Val Text)+gpTableName = lens _gluePartitionTableName (\s a -> s { _gluePartitionTableName = a })
+ library-gen/Stratosphere/Resources/GlueTable.hs view
@@ -0,0 +1,67 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-table.html++module Stratosphere.Resources.GlueTable where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+import Stratosphere.ResourceProperties.GlueTableTableInput++-- | Full data type definition for GlueTable. See 'glueTable' for a more+-- convenient constructor.+data GlueTable =+  GlueTable+  { _glueTableCatalogId :: Val Text+  , _glueTableDatabaseName :: Val Text+  , _glueTableTableInput :: GlueTableTableInput+  } deriving (Show, Eq)++instance ToJSON GlueTable where+  toJSON GlueTable{..} =+    object $+    catMaybes+    [ (Just . ("CatalogId",) . toJSON) _glueTableCatalogId+    , (Just . ("DatabaseName",) . toJSON) _glueTableDatabaseName+    , (Just . ("TableInput",) . toJSON) _glueTableTableInput+    ]++instance FromJSON GlueTable where+  parseJSON (Object obj) =+    GlueTable <$>+      (obj .: "CatalogId") <*>+      (obj .: "DatabaseName") <*>+      (obj .: "TableInput")+  parseJSON _ = mempty++-- | Constructor for 'GlueTable' containing required fields as arguments.+glueTable+  :: Val Text -- ^ 'gtCatalogId'+  -> Val Text -- ^ 'gtDatabaseName'+  -> GlueTableTableInput -- ^ 'gtTableInput'+  -> GlueTable+glueTable catalogIdarg databaseNamearg tableInputarg =+  GlueTable+  { _glueTableCatalogId = catalogIdarg+  , _glueTableDatabaseName = databaseNamearg+  , _glueTableTableInput = tableInputarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-table.html#cfn-glue-table-catalogid+gtCatalogId :: Lens' GlueTable (Val Text)+gtCatalogId = lens _glueTableCatalogId (\s a -> s { _glueTableCatalogId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-table.html#cfn-glue-table-databasename+gtDatabaseName :: Lens' GlueTable (Val Text)+gtDatabaseName = lens _glueTableDatabaseName (\s a -> s { _glueTableDatabaseName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-table.html#cfn-glue-table-tableinput+gtTableInput :: Lens' GlueTable GlueTableTableInput+gtTableInput = lens _glueTableTableInput (\s a -> s { _glueTableTableInput = a })
+ library-gen/Stratosphere/Resources/GlueTrigger.hs view
@@ -0,0 +1,91 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-trigger.html++module Stratosphere.Resources.GlueTrigger where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+import Stratosphere.ResourceProperties.GlueTriggerAction+import Stratosphere.ResourceProperties.GlueTriggerPredicate++-- | Full data type definition for GlueTrigger. See 'glueTrigger' for a more+-- convenient constructor.+data GlueTrigger =+  GlueTrigger+  { _glueTriggerActions :: [GlueTriggerAction]+  , _glueTriggerDescription :: Maybe (Val Text)+  , _glueTriggerName :: Maybe (Val Text)+  , _glueTriggerPredicate :: Maybe GlueTriggerPredicate+  , _glueTriggerSchedule :: Maybe (Val Text)+  , _glueTriggerType :: Val Text+  } deriving (Show, Eq)++instance ToJSON GlueTrigger where+  toJSON GlueTrigger{..} =+    object $+    catMaybes+    [ (Just . ("Actions",) . toJSON) _glueTriggerActions+    , fmap (("Description",) . toJSON) _glueTriggerDescription+    , fmap (("Name",) . toJSON) _glueTriggerName+    , fmap (("Predicate",) . toJSON) _glueTriggerPredicate+    , fmap (("Schedule",) . toJSON) _glueTriggerSchedule+    , (Just . ("Type",) . toJSON) _glueTriggerType+    ]++instance FromJSON GlueTrigger where+  parseJSON (Object obj) =+    GlueTrigger <$>+      (obj .: "Actions") <*>+      (obj .:? "Description") <*>+      (obj .:? "Name") <*>+      (obj .:? "Predicate") <*>+      (obj .:? "Schedule") <*>+      (obj .: "Type")+  parseJSON _ = mempty++-- | Constructor for 'GlueTrigger' containing required fields as arguments.+glueTrigger+  :: [GlueTriggerAction] -- ^ 'gtActions'+  -> Val Text -- ^ 'gtType'+  -> GlueTrigger+glueTrigger actionsarg typearg =+  GlueTrigger+  { _glueTriggerActions = actionsarg+  , _glueTriggerDescription = Nothing+  , _glueTriggerName = Nothing+  , _glueTriggerPredicate = Nothing+  , _glueTriggerSchedule = Nothing+  , _glueTriggerType = typearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-trigger.html#cfn-glue-trigger-actions+gtActions :: Lens' GlueTrigger [GlueTriggerAction]+gtActions = lens _glueTriggerActions (\s a -> s { _glueTriggerActions = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-trigger.html#cfn-glue-trigger-description+gtDescription :: Lens' GlueTrigger (Maybe (Val Text))+gtDescription = lens _glueTriggerDescription (\s a -> s { _glueTriggerDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-trigger.html#cfn-glue-trigger-name+gtName :: Lens' GlueTrigger (Maybe (Val Text))+gtName = lens _glueTriggerName (\s a -> s { _glueTriggerName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-trigger.html#cfn-glue-trigger-predicate+gtPredicate :: Lens' GlueTrigger (Maybe GlueTriggerPredicate)+gtPredicate = lens _glueTriggerPredicate (\s a -> s { _glueTriggerPredicate = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-trigger.html#cfn-glue-trigger-schedule+gtSchedule :: Lens' GlueTrigger (Maybe (Val Text))+gtSchedule = lens _glueTriggerSchedule (\s a -> s { _glueTriggerSchedule = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-trigger.html#cfn-glue-trigger-type+gtType :: Lens' GlueTrigger (Val Text)+gtType = lens _glueTriggerType (\s a -> s { _glueTriggerType = a })
library-gen/Stratosphere/Resources/LambdaAlias.hs view
@@ -13,7 +13,7 @@ import Data.Text  import Stratosphere.Values-+import Stratosphere.ResourceProperties.LambdaAliasAliasRoutingConfiguration  -- | Full data type definition for LambdaAlias. See 'lambdaAlias' for a more -- convenient constructor.@@ -23,6 +23,7 @@   , _lambdaAliasFunctionName :: Val Text   , _lambdaAliasFunctionVersion :: Val Text   , _lambdaAliasName :: Val Text+  , _lambdaAliasRoutingConfig :: Maybe LambdaAliasAliasRoutingConfiguration   } deriving (Show, Eq)  instance ToJSON LambdaAlias where@@ -33,6 +34,7 @@     , (Just . ("FunctionName",) . toJSON) _lambdaAliasFunctionName     , (Just . ("FunctionVersion",) . toJSON) _lambdaAliasFunctionVersion     , (Just . ("Name",) . toJSON) _lambdaAliasName+    , fmap (("RoutingConfig",) . toJSON) _lambdaAliasRoutingConfig     ]  instance FromJSON LambdaAlias where@@ -41,7 +43,8 @@       (obj .:? "Description") <*>       (obj .: "FunctionName") <*>       (obj .: "FunctionVersion") <*>-      (obj .: "Name")+      (obj .: "Name") <*>+      (obj .:? "RoutingConfig")   parseJSON _ = mempty  -- | Constructor for 'LambdaAlias' containing required fields as arguments.@@ -56,6 +59,7 @@   , _lambdaAliasFunctionName = functionNamearg   , _lambdaAliasFunctionVersion = functionVersionarg   , _lambdaAliasName = namearg+  , _lambdaAliasRoutingConfig = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-alias.html#cfn-lambda-alias-description@@ -73,3 +77,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-alias.html#cfn-lambda-alias-name laName :: Lens' LambdaAlias (Val Text) laName = lens _lambdaAliasName (\s a -> s { _lambdaAliasName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-alias.html#cfn-lambda-alias-routingconfig+laRoutingConfig :: Lens' LambdaAlias (Maybe LambdaAliasAliasRoutingConfiguration)+laRoutingConfig = lens _lambdaAliasRoutingConfig (\s a -> s { _lambdaAliasRoutingConfig = a })
library-gen/Stratosphere/Resources/OpsWorksLayer.hs view
@@ -16,6 +16,7 @@ import Stratosphere.ResourceProperties.OpsWorksLayerRecipes import Stratosphere.ResourceProperties.OpsWorksLayerLifecycleEventConfiguration import Stratosphere.ResourceProperties.OpsWorksLayerLoadBasedAutoScaling+import Stratosphere.ResourceProperties.Tag import Stratosphere.ResourceProperties.OpsWorksLayerVolumeConfiguration  -- | Full data type definition for OpsWorksLayer. See 'opsWorksLayer' for a@@ -37,6 +38,7 @@   , _opsWorksLayerPackages :: Maybe (ValList Text)   , _opsWorksLayerShortname :: Val Text   , _opsWorksLayerStackId :: Val Text+  , _opsWorksLayerTags :: Maybe [Tag]   , _opsWorksLayerType :: Val Text   , _opsWorksLayerUseEbsOptimizedInstances :: Maybe (Val Bool)   , _opsWorksLayerVolumeConfigurations :: Maybe [OpsWorksLayerVolumeConfiguration]@@ -61,6 +63,7 @@     , fmap (("Packages",) . toJSON) _opsWorksLayerPackages     , (Just . ("Shortname",) . toJSON) _opsWorksLayerShortname     , (Just . ("StackId",) . toJSON) _opsWorksLayerStackId+    , fmap (("Tags",) . toJSON) _opsWorksLayerTags     , (Just . ("Type",) . toJSON) _opsWorksLayerType     , fmap (("UseEbsOptimizedInstances",) . toJSON . fmap Bool') _opsWorksLayerUseEbsOptimizedInstances     , fmap (("VolumeConfigurations",) . toJSON) _opsWorksLayerVolumeConfigurations@@ -84,6 +87,7 @@       (obj .:? "Packages") <*>       (obj .: "Shortname") <*>       (obj .: "StackId") <*>+      (obj .:? "Tags") <*>       (obj .: "Type") <*>       fmap (fmap (fmap unBool')) (obj .:? "UseEbsOptimizedInstances") <*>       (obj .:? "VolumeConfigurations")@@ -116,6 +120,7 @@   , _opsWorksLayerPackages = Nothing   , _opsWorksLayerShortname = shortnamearg   , _opsWorksLayerStackId = stackIdarg+  , _opsWorksLayerTags = Nothing   , _opsWorksLayerType = typearg   , _opsWorksLayerUseEbsOptimizedInstances = Nothing   , _opsWorksLayerVolumeConfigurations = Nothing@@ -180,6 +185,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-layer.html#cfn-opsworks-layer-stackid owlStackId :: Lens' OpsWorksLayer (Val Text) owlStackId = lens _opsWorksLayerStackId (\s a -> s { _opsWorksLayerStackId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-layer.html#cfn-opsworks-layer-tags+owlTags :: Lens' OpsWorksLayer (Maybe [Tag])+owlTags = lens _opsWorksLayerTags (\s a -> s { _opsWorksLayerTags = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-layer.html#cfn-opsworks-layer-type owlType :: Lens' OpsWorksLayer (Val Text)
library-gen/Stratosphere/Resources/OpsWorksStack.hs view
@@ -18,6 +18,7 @@ import Stratosphere.ResourceProperties.OpsWorksStackSource import Stratosphere.ResourceProperties.OpsWorksStackElasticIp import Stratosphere.ResourceProperties.OpsWorksStackRdsDbInstance+import Stratosphere.ResourceProperties.Tag  -- | Full data type definition for OpsWorksStack. See 'opsWorksStack' for a -- more convenient constructor.@@ -44,6 +45,7 @@   , _opsWorksStackRdsDbInstances :: Maybe [OpsWorksStackRdsDbInstance]   , _opsWorksStackServiceRoleArn :: Val Text   , _opsWorksStackSourceStackId :: Maybe (Val Text)+  , _opsWorksStackTags :: Maybe [Tag]   , _opsWorksStackUseCustomCookbooks :: Maybe (Val Bool)   , _opsWorksStackUseOpsworksSecurityGroups :: Maybe (Val Bool)   , _opsWorksStackVpcId :: Maybe (Val Text)@@ -74,6 +76,7 @@     , fmap (("RdsDbInstances",) . toJSON) _opsWorksStackRdsDbInstances     , (Just . ("ServiceRoleArn",) . toJSON) _opsWorksStackServiceRoleArn     , fmap (("SourceStackId",) . toJSON) _opsWorksStackSourceStackId+    , fmap (("Tags",) . toJSON) _opsWorksStackTags     , fmap (("UseCustomCookbooks",) . toJSON . fmap Bool') _opsWorksStackUseCustomCookbooks     , fmap (("UseOpsworksSecurityGroups",) . toJSON . fmap Bool') _opsWorksStackUseOpsworksSecurityGroups     , fmap (("VpcId",) . toJSON) _opsWorksStackVpcId@@ -103,6 +106,7 @@       (obj .:? "RdsDbInstances") <*>       (obj .: "ServiceRoleArn") <*>       (obj .:? "SourceStackId") <*>+      (obj .:? "Tags") <*>       fmap (fmap (fmap unBool')) (obj .:? "UseCustomCookbooks") <*>       fmap (fmap (fmap unBool')) (obj .:? "UseOpsworksSecurityGroups") <*>       (obj .:? "VpcId")@@ -137,6 +141,7 @@   , _opsWorksStackRdsDbInstances = Nothing   , _opsWorksStackServiceRoleArn = serviceRoleArnarg   , _opsWorksStackSourceStackId = Nothing+  , _opsWorksStackTags = Nothing   , _opsWorksStackUseCustomCookbooks = Nothing   , _opsWorksStackUseOpsworksSecurityGroups = Nothing   , _opsWorksStackVpcId = Nothing@@ -225,6 +230,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-stack.html#cfn-opsworks-stack-sourcestackid owsSourceStackId :: Lens' OpsWorksStack (Maybe (Val Text)) owsSourceStackId = lens _opsWorksStackSourceStackId (\s a -> s { _opsWorksStackSourceStackId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-stack.html#cfn-opsworks-stack-tags+owsTags :: Lens' OpsWorksStack (Maybe [Tag])+owsTags = lens _opsWorksStackTags (\s a -> s { _opsWorksStackTags = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-stack.html#usecustcookbooks owsUseCustomCookbooks :: Lens' OpsWorksStack (Maybe (Val Bool))
+ library-gen/Stratosphere/Resources/SSMMaintenanceWindowTask.hs view
@@ -0,0 +1,154 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html++module Stratosphere.Resources.SSMMaintenanceWindowTask where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+import Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskLoggingInfo+import Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskTarget+import Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskTaskInvocationParameters++-- | Full data type definition for SSMMaintenanceWindowTask. See+-- 'ssmMaintenanceWindowTask' for a more convenient constructor.+data SSMMaintenanceWindowTask =+  SSMMaintenanceWindowTask+  { _sSMMaintenanceWindowTaskDescription :: Maybe (Val Text)+  , _sSMMaintenanceWindowTaskLoggingInfo :: Maybe SSMMaintenanceWindowTaskLoggingInfo+  , _sSMMaintenanceWindowTaskMaxConcurrency :: Val Text+  , _sSMMaintenanceWindowTaskMaxErrors :: Val Text+  , _sSMMaintenanceWindowTaskName :: Maybe (Val Text)+  , _sSMMaintenanceWindowTaskPriority :: Val Integer+  , _sSMMaintenanceWindowTaskServiceRoleArn :: Val Text+  , _sSMMaintenanceWindowTaskTargets :: [SSMMaintenanceWindowTaskTarget]+  , _sSMMaintenanceWindowTaskTaskArn :: Val Text+  , _sSMMaintenanceWindowTaskTaskInvocationParameters :: Maybe SSMMaintenanceWindowTaskTaskInvocationParameters+  , _sSMMaintenanceWindowTaskTaskParameters :: Maybe Object+  , _sSMMaintenanceWindowTaskTaskType :: Val Text+  , _sSMMaintenanceWindowTaskWindowId :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON SSMMaintenanceWindowTask where+  toJSON SSMMaintenanceWindowTask{..} =+    object $+    catMaybes+    [ fmap (("Description",) . toJSON) _sSMMaintenanceWindowTaskDescription+    , fmap (("LoggingInfo",) . toJSON) _sSMMaintenanceWindowTaskLoggingInfo+    , (Just . ("MaxConcurrency",) . toJSON) _sSMMaintenanceWindowTaskMaxConcurrency+    , (Just . ("MaxErrors",) . toJSON) _sSMMaintenanceWindowTaskMaxErrors+    , fmap (("Name",) . toJSON) _sSMMaintenanceWindowTaskName+    , (Just . ("Priority",) . toJSON . fmap Integer') _sSMMaintenanceWindowTaskPriority+    , (Just . ("ServiceRoleArn",) . toJSON) _sSMMaintenanceWindowTaskServiceRoleArn+    , (Just . ("Targets",) . toJSON) _sSMMaintenanceWindowTaskTargets+    , (Just . ("TaskArn",) . toJSON) _sSMMaintenanceWindowTaskTaskArn+    , fmap (("TaskInvocationParameters",) . toJSON) _sSMMaintenanceWindowTaskTaskInvocationParameters+    , fmap (("TaskParameters",) . toJSON) _sSMMaintenanceWindowTaskTaskParameters+    , (Just . ("TaskType",) . toJSON) _sSMMaintenanceWindowTaskTaskType+    , fmap (("WindowId",) . toJSON) _sSMMaintenanceWindowTaskWindowId+    ]++instance FromJSON SSMMaintenanceWindowTask where+  parseJSON (Object obj) =+    SSMMaintenanceWindowTask <$>+      (obj .:? "Description") <*>+      (obj .:? "LoggingInfo") <*>+      (obj .: "MaxConcurrency") <*>+      (obj .: "MaxErrors") <*>+      (obj .:? "Name") <*>+      fmap (fmap unInteger') (obj .: "Priority") <*>+      (obj .: "ServiceRoleArn") <*>+      (obj .: "Targets") <*>+      (obj .: "TaskArn") <*>+      (obj .:? "TaskInvocationParameters") <*>+      (obj .:? "TaskParameters") <*>+      (obj .: "TaskType") <*>+      (obj .:? "WindowId")+  parseJSON _ = mempty++-- | Constructor for 'SSMMaintenanceWindowTask' containing required fields as+-- arguments.+ssmMaintenanceWindowTask+  :: Val Text -- ^ 'ssmmwtMaxConcurrency'+  -> Val Text -- ^ 'ssmmwtMaxErrors'+  -> Val Integer -- ^ 'ssmmwtPriority'+  -> Val Text -- ^ 'ssmmwtServiceRoleArn'+  -> [SSMMaintenanceWindowTaskTarget] -- ^ 'ssmmwtTargets'+  -> Val Text -- ^ 'ssmmwtTaskArn'+  -> Val Text -- ^ 'ssmmwtTaskType'+  -> SSMMaintenanceWindowTask+ssmMaintenanceWindowTask maxConcurrencyarg maxErrorsarg priorityarg serviceRoleArnarg targetsarg taskArnarg taskTypearg =+  SSMMaintenanceWindowTask+  { _sSMMaintenanceWindowTaskDescription = Nothing+  , _sSMMaintenanceWindowTaskLoggingInfo = Nothing+  , _sSMMaintenanceWindowTaskMaxConcurrency = maxConcurrencyarg+  , _sSMMaintenanceWindowTaskMaxErrors = maxErrorsarg+  , _sSMMaintenanceWindowTaskName = Nothing+  , _sSMMaintenanceWindowTaskPriority = priorityarg+  , _sSMMaintenanceWindowTaskServiceRoleArn = serviceRoleArnarg+  , _sSMMaintenanceWindowTaskTargets = targetsarg+  , _sSMMaintenanceWindowTaskTaskArn = taskArnarg+  , _sSMMaintenanceWindowTaskTaskInvocationParameters = Nothing+  , _sSMMaintenanceWindowTaskTaskParameters = Nothing+  , _sSMMaintenanceWindowTaskTaskType = taskTypearg+  , _sSMMaintenanceWindowTaskWindowId = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-description+ssmmwtDescription :: Lens' SSMMaintenanceWindowTask (Maybe (Val Text))+ssmmwtDescription = lens _sSMMaintenanceWindowTaskDescription (\s a -> s { _sSMMaintenanceWindowTaskDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-logginginfo+ssmmwtLoggingInfo :: Lens' SSMMaintenanceWindowTask (Maybe SSMMaintenanceWindowTaskLoggingInfo)+ssmmwtLoggingInfo = lens _sSMMaintenanceWindowTaskLoggingInfo (\s a -> s { _sSMMaintenanceWindowTaskLoggingInfo = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-maxconcurrency+ssmmwtMaxConcurrency :: Lens' SSMMaintenanceWindowTask (Val Text)+ssmmwtMaxConcurrency = lens _sSMMaintenanceWindowTaskMaxConcurrency (\s a -> s { _sSMMaintenanceWindowTaskMaxConcurrency = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-maxerrors+ssmmwtMaxErrors :: Lens' SSMMaintenanceWindowTask (Val Text)+ssmmwtMaxErrors = lens _sSMMaintenanceWindowTaskMaxErrors (\s a -> s { _sSMMaintenanceWindowTaskMaxErrors = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-name+ssmmwtName :: Lens' SSMMaintenanceWindowTask (Maybe (Val Text))+ssmmwtName = lens _sSMMaintenanceWindowTaskName (\s a -> s { _sSMMaintenanceWindowTaskName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-priority+ssmmwtPriority :: Lens' SSMMaintenanceWindowTask (Val Integer)+ssmmwtPriority = lens _sSMMaintenanceWindowTaskPriority (\s a -> s { _sSMMaintenanceWindowTaskPriority = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-servicerolearn+ssmmwtServiceRoleArn :: Lens' SSMMaintenanceWindowTask (Val Text)+ssmmwtServiceRoleArn = lens _sSMMaintenanceWindowTaskServiceRoleArn (\s a -> s { _sSMMaintenanceWindowTaskServiceRoleArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-targets+ssmmwtTargets :: Lens' SSMMaintenanceWindowTask [SSMMaintenanceWindowTaskTarget]+ssmmwtTargets = lens _sSMMaintenanceWindowTaskTargets (\s a -> s { _sSMMaintenanceWindowTaskTargets = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-taskarn+ssmmwtTaskArn :: Lens' SSMMaintenanceWindowTask (Val Text)+ssmmwtTaskArn = lens _sSMMaintenanceWindowTaskTaskArn (\s a -> s { _sSMMaintenanceWindowTaskTaskArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-taskinvocationparameters+ssmmwtTaskInvocationParameters :: Lens' SSMMaintenanceWindowTask (Maybe SSMMaintenanceWindowTaskTaskInvocationParameters)+ssmmwtTaskInvocationParameters = lens _sSMMaintenanceWindowTaskTaskInvocationParameters (\s a -> s { _sSMMaintenanceWindowTaskTaskInvocationParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-taskparameters+ssmmwtTaskParameters :: Lens' SSMMaintenanceWindowTask (Maybe Object)+ssmmwtTaskParameters = lens _sSMMaintenanceWindowTaskTaskParameters (\s a -> s { _sSMMaintenanceWindowTaskTaskParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-tasktype+ssmmwtTaskType :: Lens' SSMMaintenanceWindowTask (Val Text)+ssmmwtTaskType = lens _sSMMaintenanceWindowTaskTaskType (\s a -> s { _sSMMaintenanceWindowTaskTaskType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-windowid+ssmmwtWindowId :: Lens' SSMMaintenanceWindowTask (Maybe (Val Text))+ssmmwtWindowId = lens _sSMMaintenanceWindowTaskWindowId (\s a -> s { _sSMMaintenanceWindowTaskWindowId = a })
+ library-gen/Stratosphere/Resources/SSMPatchBaseline.hs view
@@ -0,0 +1,115 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-patchbaseline.html++module Stratosphere.Resources.SSMPatchBaseline where++import Control.Lens hiding ((.=))+import Data.Aeson+import Data.Maybe (catMaybes)+import Data.Monoid (mempty)+import Data.Text++import Stratosphere.Values+import Stratosphere.ResourceProperties.SSMPatchBaselineRuleGroup+import Stratosphere.ResourceProperties.SSMPatchBaselinePatchFilterGroup++-- | Full data type definition for SSMPatchBaseline. See 'ssmPatchBaseline'+-- for a more convenient constructor.+data SSMPatchBaseline =+  SSMPatchBaseline+  { _sSMPatchBaselineApprovalRules :: Maybe SSMPatchBaselineRuleGroup+  , _sSMPatchBaselineApprovedPatches :: Maybe (ValList Text)+  , _sSMPatchBaselineApprovedPatchesComplianceLevel :: Maybe (Val Text)+  , _sSMPatchBaselineDescription :: Maybe (Val Text)+  , _sSMPatchBaselineGlobalFilters :: Maybe SSMPatchBaselinePatchFilterGroup+  , _sSMPatchBaselineName :: Val Text+  , _sSMPatchBaselineOperatingSystem :: Maybe (Val Text)+  , _sSMPatchBaselinePatchGroups :: Maybe (ValList Text)+  , _sSMPatchBaselineRejectedPatches :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON SSMPatchBaseline where+  toJSON SSMPatchBaseline{..} =+    object $+    catMaybes+    [ fmap (("ApprovalRules",) . toJSON) _sSMPatchBaselineApprovalRules+    , fmap (("ApprovedPatches",) . toJSON) _sSMPatchBaselineApprovedPatches+    , fmap (("ApprovedPatchesComplianceLevel",) . toJSON) _sSMPatchBaselineApprovedPatchesComplianceLevel+    , fmap (("Description",) . toJSON) _sSMPatchBaselineDescription+    , fmap (("GlobalFilters",) . toJSON) _sSMPatchBaselineGlobalFilters+    , (Just . ("Name",) . toJSON) _sSMPatchBaselineName+    , fmap (("OperatingSystem",) . toJSON) _sSMPatchBaselineOperatingSystem+    , fmap (("PatchGroups",) . toJSON) _sSMPatchBaselinePatchGroups+    , fmap (("RejectedPatches",) . toJSON) _sSMPatchBaselineRejectedPatches+    ]++instance FromJSON SSMPatchBaseline where+  parseJSON (Object obj) =+    SSMPatchBaseline <$>+      (obj .:? "ApprovalRules") <*>+      (obj .:? "ApprovedPatches") <*>+      (obj .:? "ApprovedPatchesComplianceLevel") <*>+      (obj .:? "Description") <*>+      (obj .:? "GlobalFilters") <*>+      (obj .: "Name") <*>+      (obj .:? "OperatingSystem") <*>+      (obj .:? "PatchGroups") <*>+      (obj .:? "RejectedPatches")+  parseJSON _ = mempty++-- | Constructor for 'SSMPatchBaseline' containing required fields as+-- arguments.+ssmPatchBaseline+  :: Val Text -- ^ 'ssmpbName'+  -> SSMPatchBaseline+ssmPatchBaseline namearg =+  SSMPatchBaseline+  { _sSMPatchBaselineApprovalRules = Nothing+  , _sSMPatchBaselineApprovedPatches = Nothing+  , _sSMPatchBaselineApprovedPatchesComplianceLevel = Nothing+  , _sSMPatchBaselineDescription = Nothing+  , _sSMPatchBaselineGlobalFilters = Nothing+  , _sSMPatchBaselineName = namearg+  , _sSMPatchBaselineOperatingSystem = Nothing+  , _sSMPatchBaselinePatchGroups = Nothing+  , _sSMPatchBaselineRejectedPatches = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-patchbaseline.html#cfn-ssm-patchbaseline-approvalrules+ssmpbApprovalRules :: Lens' SSMPatchBaseline (Maybe SSMPatchBaselineRuleGroup)+ssmpbApprovalRules = lens _sSMPatchBaselineApprovalRules (\s a -> s { _sSMPatchBaselineApprovalRules = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-patchbaseline.html#cfn-ssm-patchbaseline-approvedpatches+ssmpbApprovedPatches :: Lens' SSMPatchBaseline (Maybe (ValList Text))+ssmpbApprovedPatches = lens _sSMPatchBaselineApprovedPatches (\s a -> s { _sSMPatchBaselineApprovedPatches = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-patchbaseline.html#cfn-ssm-patchbaseline-approvedpatchescompliancelevel+ssmpbApprovedPatchesComplianceLevel :: Lens' SSMPatchBaseline (Maybe (Val Text))+ssmpbApprovedPatchesComplianceLevel = lens _sSMPatchBaselineApprovedPatchesComplianceLevel (\s a -> s { _sSMPatchBaselineApprovedPatchesComplianceLevel = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-patchbaseline.html#cfn-ssm-patchbaseline-description+ssmpbDescription :: Lens' SSMPatchBaseline (Maybe (Val Text))+ssmpbDescription = lens _sSMPatchBaselineDescription (\s a -> s { _sSMPatchBaselineDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-patchbaseline.html#cfn-ssm-patchbaseline-globalfilters+ssmpbGlobalFilters :: Lens' SSMPatchBaseline (Maybe SSMPatchBaselinePatchFilterGroup)+ssmpbGlobalFilters = lens _sSMPatchBaselineGlobalFilters (\s a -> s { _sSMPatchBaselineGlobalFilters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-patchbaseline.html#cfn-ssm-patchbaseline-name+ssmpbName :: Lens' SSMPatchBaseline (Val Text)+ssmpbName = lens _sSMPatchBaselineName (\s a -> s { _sSMPatchBaselineName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-patchbaseline.html#cfn-ssm-patchbaseline-operatingsystem+ssmpbOperatingSystem :: Lens' SSMPatchBaseline (Maybe (Val Text))+ssmpbOperatingSystem = lens _sSMPatchBaselineOperatingSystem (\s a -> s { _sSMPatchBaselineOperatingSystem = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-patchbaseline.html#cfn-ssm-patchbaseline-patchgroups+ssmpbPatchGroups :: Lens' SSMPatchBaseline (Maybe (ValList Text))+ssmpbPatchGroups = lens _sSMPatchBaselinePatchGroups (\s a -> s { _sSMPatchBaselinePatchGroups = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-patchbaseline.html#cfn-ssm-patchbaseline-rejectedpatches+ssmpbRejectedPatches :: Lens' SSMPatchBaseline (Maybe (ValList Text))+ssmpbRejectedPatches = lens _sSMPatchBaselineRejectedPatches (\s a -> s { _sSMPatchBaselineRejectedPatches = a })
stack.yaml view
@@ -1,3 +1,3 @@-resolver: nightly-2017-07-31+resolver: nightly-2017-10-11 packages:   - '.'
stratosphere.cabal view
@@ -3,7 +3,7 @@ -- see: https://github.com/sol/hpack  name:           stratosphere-version:        0.10.0+version:        0.11.0 synopsis:       EDSL for AWS CloudFormation description:    EDSL for AWS CloudFormation category:       AWS, Cloud@@ -78,6 +78,7 @@       Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyStepAdjustment       Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyStepScalingPolicyConfiguration       Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration+      Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupLifecycleHookSpecification       Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupMetricsCollection       Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupNotificationConfiguration       Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupTagProperty@@ -98,6 +99,7 @@       Stratosphere.ResourceProperties.BatchJobDefinitionVolumesHost       Stratosphere.ResourceProperties.BatchJobQueueComputeEnvironmentOrder       Stratosphere.ResourceProperties.CertificateManagerCertificateDomainValidationOption+      Stratosphere.ResourceProperties.CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig       Stratosphere.ResourceProperties.CloudFrontDistributionCacheBehavior       Stratosphere.ResourceProperties.CloudFrontDistributionCookies       Stratosphere.ResourceProperties.CloudFrontDistributionCustomErrorResponse@@ -106,12 +108,19 @@       Stratosphere.ResourceProperties.CloudFrontDistributionDistributionConfig       Stratosphere.ResourceProperties.CloudFrontDistributionForwardedValues       Stratosphere.ResourceProperties.CloudFrontDistributionGeoRestriction+      Stratosphere.ResourceProperties.CloudFrontDistributionLambdaFunctionAssociation+      Stratosphere.ResourceProperties.CloudFrontDistributionLegacyCustomOrigin+      Stratosphere.ResourceProperties.CloudFrontDistributionLegacyS3Origin       Stratosphere.ResourceProperties.CloudFrontDistributionLogging       Stratosphere.ResourceProperties.CloudFrontDistributionOrigin       Stratosphere.ResourceProperties.CloudFrontDistributionOriginCustomHeader       Stratosphere.ResourceProperties.CloudFrontDistributionRestrictions       Stratosphere.ResourceProperties.CloudFrontDistributionS3OriginConfig       Stratosphere.ResourceProperties.CloudFrontDistributionViewerCertificate+      Stratosphere.ResourceProperties.CloudFrontStreamingDistributionLogging+      Stratosphere.ResourceProperties.CloudFrontStreamingDistributionS3Origin+      Stratosphere.ResourceProperties.CloudFrontStreamingDistributionStreamingDistributionConfig+      Stratosphere.ResourceProperties.CloudFrontStreamingDistributionTrustedSigners       Stratosphere.ResourceProperties.CloudTrailTrailDataResource       Stratosphere.ResourceProperties.CloudTrailTrailEventSelector       Stratosphere.ResourceProperties.CloudWatchAlarmDimension@@ -134,6 +143,7 @@       Stratosphere.ResourceProperties.CodeDeployDeploymentGroupRevisionLocation       Stratosphere.ResourceProperties.CodeDeployDeploymentGroupS3Location       Stratosphere.ResourceProperties.CodeDeployDeploymentGroupTagFilter+      Stratosphere.ResourceProperties.CodeDeployDeploymentGroupTargetGroupInfo       Stratosphere.ResourceProperties.CodeDeployDeploymentGroupTriggerConfig       Stratosphere.ResourceProperties.CodePipelineCustomActionTypeArtifactDetails       Stratosphere.ResourceProperties.CodePipelineCustomActionTypeConfigurationProperties@@ -192,6 +202,7 @@       Stratosphere.ResourceProperties.EC2InstanceAssociationParameter       Stratosphere.ResourceProperties.EC2InstanceBlockDeviceMapping       Stratosphere.ResourceProperties.EC2InstanceEbs+      Stratosphere.ResourceProperties.EC2InstanceElasticGpuSpecification       Stratosphere.ResourceProperties.EC2InstanceInstanceIpv6Address       Stratosphere.ResourceProperties.EC2InstanceNetworkInterface       Stratosphere.ResourceProperties.EC2InstanceNoDevice@@ -215,6 +226,7 @@       Stratosphere.ResourceProperties.EC2SpotFleetSpotFleetMonitoring       Stratosphere.ResourceProperties.EC2SpotFleetSpotFleetRequestConfigData       Stratosphere.ResourceProperties.EC2SpotFleetSpotPlacement+      Stratosphere.ResourceProperties.EC2VPNConnectionVpnTunnelOptionsSpecification       Stratosphere.ResourceProperties.ECSServiceDeploymentConfiguration       Stratosphere.ResourceProperties.ECSServiceLoadBalancer       Stratosphere.ResourceProperties.ECSServicePlacementConstraint@@ -314,6 +326,33 @@       Stratosphere.ResourceProperties.GameLiftAliasRoutingStrategy       Stratosphere.ResourceProperties.GameLiftBuildS3Location       Stratosphere.ResourceProperties.GameLiftFleetIpPermission+      Stratosphere.ResourceProperties.GlueClassifierGrokClassifier+      Stratosphere.ResourceProperties.GlueConnectionConnectionInput+      Stratosphere.ResourceProperties.GlueConnectionPhysicalConnectionRequirements+      Stratosphere.ResourceProperties.GlueCrawlerJdbcTarget+      Stratosphere.ResourceProperties.GlueCrawlerS3Target+      Stratosphere.ResourceProperties.GlueCrawlerSchedule+      Stratosphere.ResourceProperties.GlueCrawlerSchemaChangePolicy+      Stratosphere.ResourceProperties.GlueCrawlerTargets+      Stratosphere.ResourceProperties.GlueDatabaseDatabaseInput+      Stratosphere.ResourceProperties.GlueJobConnectionsList+      Stratosphere.ResourceProperties.GlueJobExecutionProperty+      Stratosphere.ResourceProperties.GlueJobJobCommand+      Stratosphere.ResourceProperties.GluePartitionColumn+      Stratosphere.ResourceProperties.GluePartitionOrder+      Stratosphere.ResourceProperties.GluePartitionPartitionInput+      Stratosphere.ResourceProperties.GluePartitionSerdeInfo+      Stratosphere.ResourceProperties.GluePartitionSkewedInfo+      Stratosphere.ResourceProperties.GluePartitionStorageDescriptor+      Stratosphere.ResourceProperties.GlueTableColumn+      Stratosphere.ResourceProperties.GlueTableOrder+      Stratosphere.ResourceProperties.GlueTableSerdeInfo+      Stratosphere.ResourceProperties.GlueTableSkewedInfo+      Stratosphere.ResourceProperties.GlueTableStorageDescriptor+      Stratosphere.ResourceProperties.GlueTableTableInput+      Stratosphere.ResourceProperties.GlueTriggerAction+      Stratosphere.ResourceProperties.GlueTriggerCondition+      Stratosphere.ResourceProperties.GlueTriggerPredicate       Stratosphere.ResourceProperties.IAMGroupPolicy       Stratosphere.ResourceProperties.IAMRolePolicy       Stratosphere.ResourceProperties.IAMUserLoginProfile@@ -336,7 +375,9 @@       Stratosphere.ResourceProperties.IoTTopicRuleTopicRulePayload       Stratosphere.ResourceProperties.KinesisAnalyticsApplicationCSVMappingParameters       Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInput+      Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputLambdaProcessor       Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputParallelism+      Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputProcessingConfiguration       Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputSchema       Stratosphere.ResourceProperties.KinesisAnalyticsApplicationJSONMappingParameters       Stratosphere.ResourceProperties.KinesisAnalyticsApplicationKinesisFirehoseInput@@ -371,6 +412,8 @@       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessorParameter       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamS3DestinationConfiguration+      Stratosphere.ResourceProperties.LambdaAliasAliasRoutingConfiguration+      Stratosphere.ResourceProperties.LambdaAliasVersionWeight       Stratosphere.ResourceProperties.LambdaFunctionCode       Stratosphere.ResourceProperties.LambdaFunctionDeadLetterConfig       Stratosphere.ResourceProperties.LambdaFunctionEnvironment@@ -446,6 +489,18 @@       Stratosphere.ResourceProperties.SNSTopicSubscription       Stratosphere.ResourceProperties.SSMAssociationParameterValues       Stratosphere.ResourceProperties.SSMAssociationTarget+      Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskLoggingInfo+      Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters+      Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters+      Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters+      Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters+      Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskNotificationConfig+      Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskTarget+      Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskTaskInvocationParameters+      Stratosphere.ResourceProperties.SSMPatchBaselinePatchFilter+      Stratosphere.ResourceProperties.SSMPatchBaselinePatchFilterGroup+      Stratosphere.ResourceProperties.SSMPatchBaselineRule+      Stratosphere.ResourceProperties.SSMPatchBaselineRuleGroup       Stratosphere.ResourceProperties.Tag       Stratosphere.ResourceProperties.WAFByteMatchSetByteMatchTuple       Stratosphere.ResourceProperties.WAFByteMatchSetFieldToMatch@@ -492,6 +547,7 @@       Stratosphere.Resources.ApiGatewayUsagePlanKey       Stratosphere.Resources.ApplicationAutoScalingScalableTarget       Stratosphere.Resources.ApplicationAutoScalingScalingPolicy+      Stratosphere.Resources.AthenaNamedQuery       Stratosphere.Resources.AutoScalingAutoScalingGroup       Stratosphere.Resources.AutoScalingLaunchConfiguration       Stratosphere.Resources.AutoScalingLifecycleHook@@ -505,7 +561,9 @@       Stratosphere.Resources.CloudFormationStack       Stratosphere.Resources.CloudFormationWaitCondition       Stratosphere.Resources.CloudFormationWaitConditionHandle+      Stratosphere.Resources.CloudFrontCloudFrontOriginAccessIdentity       Stratosphere.Resources.CloudFrontDistribution+      Stratosphere.Resources.CloudFrontStreamingDistribution       Stratosphere.Resources.CloudTrailTrail       Stratosphere.Resources.CloudWatchAlarm       Stratosphere.Resources.CloudWatchDashboard@@ -609,6 +667,15 @@       Stratosphere.Resources.GameLiftAlias       Stratosphere.Resources.GameLiftBuild       Stratosphere.Resources.GameLiftFleet+      Stratosphere.Resources.GlueClassifier+      Stratosphere.Resources.GlueConnection+      Stratosphere.Resources.GlueCrawler+      Stratosphere.Resources.GlueDatabase+      Stratosphere.Resources.GlueDevEndpoint+      Stratosphere.Resources.GlueJob+      Stratosphere.Resources.GluePartition+      Stratosphere.Resources.GlueTable+      Stratosphere.Resources.GlueTrigger       Stratosphere.Resources.IAMAccessKey       Stratosphere.Resources.IAMGroup       Stratosphere.Resources.IAMInstanceProfile@@ -675,7 +742,9 @@       Stratosphere.Resources.SQSQueuePolicy       Stratosphere.Resources.SSMAssociation       Stratosphere.Resources.SSMDocument+      Stratosphere.Resources.SSMMaintenanceWindowTask       Stratosphere.Resources.SSMParameter+      Stratosphere.Resources.SSMPatchBaseline       Stratosphere.Resources.StepFunctionsActivity       Stratosphere.Resources.StepFunctionsStateMachine       Stratosphere.Resources.WAFByteMatchSet