packages feed

stratosphere 0.7.1 → 0.8.0

raw patch · 68 files changed

+3153/−163 lines, 68 filesdep −directorydep −hlintdep ~base

Dependencies removed: directory, hlint

Dependency ranges changed: base

Files

CHANGELOG.md view
@@ -1,5 +1,10 @@ # Change Log +## 0.8.0++* Update resource specification document (no version given in doc)+* GHC 8.2.1 compatibility+ ## 0.7.1  * Add `Export` field to the `Output` type. This allows you to declare
examples/apigw-lambda-dynamodb.hs view
@@ -58,8 +58,9 @@   ApiGatewayMethodProperties $   apiGatewayMethod     (Literal GET)+    (toRef apiGWResource)+    (toRef apiGWRestApi)     & agmeAuthorizationType ?~ Literal NONE-    & agmeResourceId ?~ toRef apiGWResource     & agmeAuthorizerId ?~ toRef apiGWRestApi     & agmeIntegration ?~ integration     & agmeMethodResponses ?~ [ methodResponse ]@@ -83,13 +84,12 @@      integrationResponse =       apiGatewayMethodIntegrationResponse+      "200"       & agmirResponseTemplates ?~ [ ("application/json", "$input.json('$.body')") ]-      & agmirStatusCode ?~ "200"      methodResponse =       apiGatewayMethodMethodResponse-      & agmmrStatusCode ?~ "200"-+      "200"  postMethod :: Resource postMethod = (@@ -97,8 +97,9 @@   ApiGatewayMethodProperties $   apiGatewayMethod     (Literal POST)+    (toRef apiGWResource)+    (toRef apiGWRestApi)     & agmeAuthorizationType ?~ Literal NONE-    & agmeResourceId ?~ toRef apiGWResource     & agmeAuthorizerId ?~ toRef apiGWRestApi     & agmeIntegration ?~ integration     & agmeMethodResponses ?~ [ methodResponse ]@@ -122,12 +123,12 @@      integrationResponse =       apiGatewayMethodIntegrationResponse+      "200"       & agmirResponseTemplates ?~ [ ("application/json", "$input.json('$.body')") ]-      & agmirStatusCode ?~ "200"      methodResponse =       apiGatewayMethodMethodResponse-      & agmmrStatusCode ?~ "200"+      "200"  apiGWDeployment :: Resource apiGWDeployment = (resource "ApiGWDeployment" $
library-gen/Stratosphere/ResourceProperties/ApiGatewayDeploymentMethodSetting.hs view
@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-deployment-stagedescription-methodsetting.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription-methodsetting.html  module Stratosphere.ResourceProperties.ApiGatewayDeploymentMethodSetting where @@ -80,42 +80,42 @@   , _apiGatewayDeploymentMethodSettingThrottlingRateLimit = Nothing   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-deployment-stagedescription-methodsetting.html#cfn-apigateway-deployment-stagedescription-methodsetting-cachedataencrypted+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription-methodsetting.html#cfn-apigateway-deployment-stagedescription-methodsetting-cachedataencrypted agdmsCacheDataEncrypted :: Lens' ApiGatewayDeploymentMethodSetting (Maybe (Val Bool)) agdmsCacheDataEncrypted = lens _apiGatewayDeploymentMethodSettingCacheDataEncrypted (\s a -> s { _apiGatewayDeploymentMethodSettingCacheDataEncrypted = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-deployment-stagedescription-methodsetting.html#cfn-apigateway-deployment-stagedescription-methodsetting-cachettlinseconds+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription-methodsetting.html#cfn-apigateway-deployment-stagedescription-methodsetting-cachettlinseconds agdmsCacheTtlInSeconds :: Lens' ApiGatewayDeploymentMethodSetting (Maybe (Val Integer)) agdmsCacheTtlInSeconds = lens _apiGatewayDeploymentMethodSettingCacheTtlInSeconds (\s a -> s { _apiGatewayDeploymentMethodSettingCacheTtlInSeconds = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-deployment-stagedescription-methodsetting.html#cfn-apigateway-deployment-stagedescription-methodsetting-cachingenabled+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription-methodsetting.html#cfn-apigateway-deployment-stagedescription-methodsetting-cachingenabled agdmsCachingEnabled :: Lens' ApiGatewayDeploymentMethodSetting (Maybe (Val Bool)) agdmsCachingEnabled = lens _apiGatewayDeploymentMethodSettingCachingEnabled (\s a -> s { _apiGatewayDeploymentMethodSettingCachingEnabled = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-deployment-stagedescription-methodsetting.html#cfn-apigateway-deployment-stagedescription-methodsetting-datatraceenabled+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription-methodsetting.html#cfn-apigateway-deployment-stagedescription-methodsetting-datatraceenabled agdmsDataTraceEnabled :: Lens' ApiGatewayDeploymentMethodSetting (Maybe (Val Bool)) agdmsDataTraceEnabled = lens _apiGatewayDeploymentMethodSettingDataTraceEnabled (\s a -> s { _apiGatewayDeploymentMethodSettingDataTraceEnabled = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-deployment-stagedescription-methodsetting.html#cfn-apigateway-deployment-stagedescription-methodsetting-httpmethod+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription-methodsetting.html#cfn-apigateway-deployment-stagedescription-methodsetting-httpmethod agdmsHttpMethod :: Lens' ApiGatewayDeploymentMethodSetting (Maybe (Val HttpMethod)) agdmsHttpMethod = lens _apiGatewayDeploymentMethodSettingHttpMethod (\s a -> s { _apiGatewayDeploymentMethodSettingHttpMethod = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-deployment-stagedescription-methodsetting.html#cfn-apigateway-deployment-stagedescription-methodsetting-logginglevel+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription-methodsetting.html#cfn-apigateway-deployment-stagedescription-methodsetting-logginglevel agdmsLoggingLevel :: Lens' ApiGatewayDeploymentMethodSetting (Maybe (Val LoggingLevel)) agdmsLoggingLevel = lens _apiGatewayDeploymentMethodSettingLoggingLevel (\s a -> s { _apiGatewayDeploymentMethodSettingLoggingLevel = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-deployment-stagedescription-methodsetting.html#cfn-apigateway-deployment-stagedescription-methodsetting-metricsenabled+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription-methodsetting.html#cfn-apigateway-deployment-stagedescription-methodsetting-metricsenabled agdmsMetricsEnabled :: Lens' ApiGatewayDeploymentMethodSetting (Maybe (Val Bool)) agdmsMetricsEnabled = lens _apiGatewayDeploymentMethodSettingMetricsEnabled (\s a -> s { _apiGatewayDeploymentMethodSettingMetricsEnabled = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-deployment-stagedescription-methodsetting.html#cfn-apigateway-deployment-stagedescription-methodsetting-resourcepath+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription-methodsetting.html#cfn-apigateway-deployment-stagedescription-methodsetting-resourcepath agdmsResourcePath :: Lens' ApiGatewayDeploymentMethodSetting (Maybe (Val Text)) agdmsResourcePath = lens _apiGatewayDeploymentMethodSettingResourcePath (\s a -> s { _apiGatewayDeploymentMethodSettingResourcePath = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-deployment-stagedescription-methodsetting.html#cfn-apigateway-deployment-stagedescription-methodsetting-throttlingburstlimit+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription-methodsetting.html#cfn-apigateway-deployment-stagedescription-methodsetting-throttlingburstlimit agdmsThrottlingBurstLimit :: Lens' ApiGatewayDeploymentMethodSetting (Maybe (Val Integer)) agdmsThrottlingBurstLimit = lens _apiGatewayDeploymentMethodSettingThrottlingBurstLimit (\s a -> s { _apiGatewayDeploymentMethodSettingThrottlingBurstLimit = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-deployment-stagedescription-methodsetting.html#cfn-apigateway-deployment-stagedescription-methodsetting-throttlingratelimit+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription-methodsetting.html#cfn-apigateway-deployment-stagedescription-methodsetting-throttlingratelimit agdmsThrottlingRateLimit :: Lens' ApiGatewayDeploymentMethodSetting (Maybe (Val Double)) agdmsThrottlingRateLimit = lens _apiGatewayDeploymentMethodSettingThrottlingRateLimit (\s a -> s { _apiGatewayDeploymentMethodSettingThrottlingRateLimit = a })
library-gen/Stratosphere/ResourceProperties/ApiGatewayDeploymentStageDescription.hs view
@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-deployment-stagedescription.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html  module Stratosphere.ResourceProperties.ApiGatewayDeploymentStageDescription where @@ -28,6 +28,7 @@   , _apiGatewayDeploymentStageDescriptionClientCertificateId :: Maybe (Val Text)   , _apiGatewayDeploymentStageDescriptionDataTraceEnabled :: Maybe (Val Bool)   , _apiGatewayDeploymentStageDescriptionDescription :: Maybe (Val Text)+  , _apiGatewayDeploymentStageDescriptionDocumentationVersion :: Maybe (Val Text)   , _apiGatewayDeploymentStageDescriptionLoggingLevel :: Maybe (Val LoggingLevel)   , _apiGatewayDeploymentStageDescriptionMethodSettings :: Maybe [ApiGatewayDeploymentMethodSetting]   , _apiGatewayDeploymentStageDescriptionMetricsEnabled :: Maybe (Val Bool)@@ -49,6 +50,7 @@     , fmap (("ClientCertificateId",) . toJSON) _apiGatewayDeploymentStageDescriptionClientCertificateId     , fmap (("DataTraceEnabled",) . toJSON . fmap Bool') _apiGatewayDeploymentStageDescriptionDataTraceEnabled     , fmap (("Description",) . toJSON) _apiGatewayDeploymentStageDescriptionDescription+    , fmap (("DocumentationVersion",) . toJSON) _apiGatewayDeploymentStageDescriptionDocumentationVersion     , fmap (("LoggingLevel",) . toJSON) _apiGatewayDeploymentStageDescriptionLoggingLevel     , fmap (("MethodSettings",) . toJSON) _apiGatewayDeploymentStageDescriptionMethodSettings     , fmap (("MetricsEnabled",) . toJSON . fmap Bool') _apiGatewayDeploymentStageDescriptionMetricsEnabled@@ -69,6 +71,7 @@       (obj .:? "ClientCertificateId") <*>       fmap (fmap (fmap unBool')) (obj .:? "DataTraceEnabled") <*>       (obj .:? "Description") <*>+      (obj .:? "DocumentationVersion") <*>       (obj .:? "LoggingLevel") <*>       (obj .:? "MethodSettings") <*>       fmap (fmap (fmap unBool')) (obj .:? "MetricsEnabled") <*>@@ -92,6 +95,7 @@   , _apiGatewayDeploymentStageDescriptionClientCertificateId = Nothing   , _apiGatewayDeploymentStageDescriptionDataTraceEnabled = Nothing   , _apiGatewayDeploymentStageDescriptionDescription = Nothing+  , _apiGatewayDeploymentStageDescriptionDocumentationVersion = Nothing   , _apiGatewayDeploymentStageDescriptionLoggingLevel = Nothing   , _apiGatewayDeploymentStageDescriptionMethodSettings = Nothing   , _apiGatewayDeploymentStageDescriptionMetricsEnabled = Nothing@@ -101,62 +105,66 @@   , _apiGatewayDeploymentStageDescriptionVariables = Nothing   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-cacheclusterenabled+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-cacheclusterenabled agdsdCacheClusterEnabled :: Lens' ApiGatewayDeploymentStageDescription (Maybe (Val Bool)) agdsdCacheClusterEnabled = lens _apiGatewayDeploymentStageDescriptionCacheClusterEnabled (\s a -> s { _apiGatewayDeploymentStageDescriptionCacheClusterEnabled = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-cacheclustersize+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-cacheclustersize agdsdCacheClusterSize :: Lens' ApiGatewayDeploymentStageDescription (Maybe (Val Text)) agdsdCacheClusterSize = lens _apiGatewayDeploymentStageDescriptionCacheClusterSize (\s a -> s { _apiGatewayDeploymentStageDescriptionCacheClusterSize = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-cachedataencrypted+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-cachedataencrypted agdsdCacheDataEncrypted :: Lens' ApiGatewayDeploymentStageDescription (Maybe (Val Bool)) agdsdCacheDataEncrypted = lens _apiGatewayDeploymentStageDescriptionCacheDataEncrypted (\s a -> s { _apiGatewayDeploymentStageDescriptionCacheDataEncrypted = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-cachettlinseconds+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-cachettlinseconds agdsdCacheTtlInSeconds :: Lens' ApiGatewayDeploymentStageDescription (Maybe (Val Integer)) agdsdCacheTtlInSeconds = lens _apiGatewayDeploymentStageDescriptionCacheTtlInSeconds (\s a -> s { _apiGatewayDeploymentStageDescriptionCacheTtlInSeconds = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-cachingenabled+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-cachingenabled agdsdCachingEnabled :: Lens' ApiGatewayDeploymentStageDescription (Maybe (Val Bool)) agdsdCachingEnabled = lens _apiGatewayDeploymentStageDescriptionCachingEnabled (\s a -> s { _apiGatewayDeploymentStageDescriptionCachingEnabled = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-clientcertificateid+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-clientcertificateid agdsdClientCertificateId :: Lens' ApiGatewayDeploymentStageDescription (Maybe (Val Text)) agdsdClientCertificateId = lens _apiGatewayDeploymentStageDescriptionClientCertificateId (\s a -> s { _apiGatewayDeploymentStageDescriptionClientCertificateId = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-datatraceenabled+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-datatraceenabled agdsdDataTraceEnabled :: Lens' ApiGatewayDeploymentStageDescription (Maybe (Val Bool)) agdsdDataTraceEnabled = lens _apiGatewayDeploymentStageDescriptionDataTraceEnabled (\s a -> s { _apiGatewayDeploymentStageDescriptionDataTraceEnabled = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-description+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-description agdsdDescription :: Lens' ApiGatewayDeploymentStageDescription (Maybe (Val Text)) agdsdDescription = lens _apiGatewayDeploymentStageDescriptionDescription (\s a -> s { _apiGatewayDeploymentStageDescriptionDescription = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-logginglevel+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-documentationversion+agdsdDocumentationVersion :: Lens' ApiGatewayDeploymentStageDescription (Maybe (Val Text))+agdsdDocumentationVersion = lens _apiGatewayDeploymentStageDescriptionDocumentationVersion (\s a -> s { _apiGatewayDeploymentStageDescriptionDocumentationVersion = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-logginglevel agdsdLoggingLevel :: Lens' ApiGatewayDeploymentStageDescription (Maybe (Val LoggingLevel)) agdsdLoggingLevel = lens _apiGatewayDeploymentStageDescriptionLoggingLevel (\s a -> s { _apiGatewayDeploymentStageDescriptionLoggingLevel = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-methodsettings+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-methodsettings agdsdMethodSettings :: Lens' ApiGatewayDeploymentStageDescription (Maybe [ApiGatewayDeploymentMethodSetting]) agdsdMethodSettings = lens _apiGatewayDeploymentStageDescriptionMethodSettings (\s a -> s { _apiGatewayDeploymentStageDescriptionMethodSettings = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-metricsenabled+-- | 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-apitgateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-stagename+-- | 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-apitgateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-throttlingburstlimit+-- | 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)) agdsdThrottlingBurstLimit = lens _apiGatewayDeploymentStageDescriptionThrottlingBurstLimit (\s a -> s { _apiGatewayDeploymentStageDescriptionThrottlingBurstLimit = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-throttlingratelimit+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-throttlingratelimit agdsdThrottlingRateLimit :: Lens' ApiGatewayDeploymentStageDescription (Maybe (Val Double)) agdsdThrottlingRateLimit = lens _apiGatewayDeploymentStageDescriptionThrottlingRateLimit (\s a -> s { _apiGatewayDeploymentStageDescriptionThrottlingRateLimit = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-variables+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-variables agdsdVariables :: Lens' ApiGatewayDeploymentStageDescription (Maybe Object) agdsdVariables = lens _apiGatewayDeploymentStageDescriptionVariables (\s a -> s { _apiGatewayDeploymentStageDescriptionVariables = a })
+ library-gen/Stratosphere/ResourceProperties/ApiGatewayDocumentationPartLocation.hs view
@@ -0,0 +1,81 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-documentationpart-location.html++module Stratosphere.ResourceProperties.ApiGatewayDocumentationPartLocation 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 ApiGatewayDocumentationPartLocation. See+-- 'apiGatewayDocumentationPartLocation' for a more convenient constructor.+data ApiGatewayDocumentationPartLocation =+  ApiGatewayDocumentationPartLocation+  { _apiGatewayDocumentationPartLocationMethod :: Maybe (Val Text)+  , _apiGatewayDocumentationPartLocationName :: Maybe (Val Text)+  , _apiGatewayDocumentationPartLocationPath :: Maybe (Val Text)+  , _apiGatewayDocumentationPartLocationStatusCode :: Maybe (Val Text)+  , _apiGatewayDocumentationPartLocationType :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON ApiGatewayDocumentationPartLocation where+  toJSON ApiGatewayDocumentationPartLocation{..} =+    object $+    catMaybes+    [ fmap (("Method",) . toJSON) _apiGatewayDocumentationPartLocationMethod+    , fmap (("Name",) . toJSON) _apiGatewayDocumentationPartLocationName+    , fmap (("Path",) . toJSON) _apiGatewayDocumentationPartLocationPath+    , fmap (("StatusCode",) . toJSON) _apiGatewayDocumentationPartLocationStatusCode+    , fmap (("Type",) . toJSON) _apiGatewayDocumentationPartLocationType+    ]++instance FromJSON ApiGatewayDocumentationPartLocation where+  parseJSON (Object obj) =+    ApiGatewayDocumentationPartLocation <$>+      (obj .:? "Method") <*>+      (obj .:? "Name") <*>+      (obj .:? "Path") <*>+      (obj .:? "StatusCode") <*>+      (obj .:? "Type")+  parseJSON _ = mempty++-- | Constructor for 'ApiGatewayDocumentationPartLocation' containing required+-- fields as arguments.+apiGatewayDocumentationPartLocation+  :: ApiGatewayDocumentationPartLocation+apiGatewayDocumentationPartLocation  =+  ApiGatewayDocumentationPartLocation+  { _apiGatewayDocumentationPartLocationMethod = Nothing+  , _apiGatewayDocumentationPartLocationName = Nothing+  , _apiGatewayDocumentationPartLocationPath = Nothing+  , _apiGatewayDocumentationPartLocationStatusCode = Nothing+  , _apiGatewayDocumentationPartLocationType = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-documentationpart-location.html#cfn-apigateway-documentationpart-location-method+agdplMethod :: Lens' ApiGatewayDocumentationPartLocation (Maybe (Val Text))+agdplMethod = lens _apiGatewayDocumentationPartLocationMethod (\s a -> s { _apiGatewayDocumentationPartLocationMethod = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-documentationpart-location.html#cfn-apigateway-documentationpart-location-name+agdplName :: Lens' ApiGatewayDocumentationPartLocation (Maybe (Val Text))+agdplName = lens _apiGatewayDocumentationPartLocationName (\s a -> s { _apiGatewayDocumentationPartLocationName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-documentationpart-location.html#cfn-apigateway-documentationpart-location-path+agdplPath :: Lens' ApiGatewayDocumentationPartLocation (Maybe (Val Text))+agdplPath = lens _apiGatewayDocumentationPartLocationPath (\s a -> s { _apiGatewayDocumentationPartLocationPath = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-documentationpart-location.html#cfn-apigateway-documentationpart-location-statuscode+agdplStatusCode :: Lens' ApiGatewayDocumentationPartLocation (Maybe (Val Text))+agdplStatusCode = lens _apiGatewayDocumentationPartLocationStatusCode (\s a -> s { _apiGatewayDocumentationPartLocationStatusCode = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-documentationpart-location.html#cfn-apigateway-documentationpart-location-type+agdplType :: Lens' ApiGatewayDocumentationPartLocation (Maybe (Val Text))+agdplType = lens _apiGatewayDocumentationPartLocationType (\s a -> s { _apiGatewayDocumentationPartLocationType = a })
library-gen/Stratosphere/ResourceProperties/ApiGatewayMethodIntegrationResponse.hs view
@@ -22,7 +22,7 @@   { _apiGatewayMethodIntegrationResponseResponseParameters :: Maybe Object   , _apiGatewayMethodIntegrationResponseResponseTemplates :: Maybe Object   , _apiGatewayMethodIntegrationResponseSelectionPattern :: Maybe (Val Text)-  , _apiGatewayMethodIntegrationResponseStatusCode :: Maybe (Val Text)+  , _apiGatewayMethodIntegrationResponseStatusCode :: Val Text   } deriving (Show, Eq)  instance ToJSON ApiGatewayMethodIntegrationResponse where@@ -32,7 +32,7 @@     [ fmap (("ResponseParameters",) . toJSON) _apiGatewayMethodIntegrationResponseResponseParameters     , fmap (("ResponseTemplates",) . toJSON) _apiGatewayMethodIntegrationResponseResponseTemplates     , fmap (("SelectionPattern",) . toJSON) _apiGatewayMethodIntegrationResponseSelectionPattern-    , fmap (("StatusCode",) . toJSON) _apiGatewayMethodIntegrationResponseStatusCode+    , (Just . ("StatusCode",) . toJSON) _apiGatewayMethodIntegrationResponseStatusCode     ]  instance FromJSON ApiGatewayMethodIntegrationResponse where@@ -41,19 +41,20 @@       (obj .:? "ResponseParameters") <*>       (obj .:? "ResponseTemplates") <*>       (obj .:? "SelectionPattern") <*>-      (obj .:? "StatusCode")+      (obj .: "StatusCode")   parseJSON _ = mempty  -- | Constructor for 'ApiGatewayMethodIntegrationResponse' containing required -- fields as arguments. apiGatewayMethodIntegrationResponse-  :: ApiGatewayMethodIntegrationResponse-apiGatewayMethodIntegrationResponse  =+  :: Val Text -- ^ 'agmirStatusCode'+  -> ApiGatewayMethodIntegrationResponse+apiGatewayMethodIntegrationResponse statusCodearg =   ApiGatewayMethodIntegrationResponse   { _apiGatewayMethodIntegrationResponseResponseParameters = Nothing   , _apiGatewayMethodIntegrationResponseResponseTemplates = Nothing   , _apiGatewayMethodIntegrationResponseSelectionPattern = Nothing-  , _apiGatewayMethodIntegrationResponseStatusCode = Nothing+  , _apiGatewayMethodIntegrationResponseStatusCode = statusCodearg   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-integration-integrationresponse.html#cfn-apigateway-method-integration-integrationresponse-responseparameters@@ -69,5 +70,5 @@ agmirSelectionPattern = lens _apiGatewayMethodIntegrationResponseSelectionPattern (\s a -> s { _apiGatewayMethodIntegrationResponseSelectionPattern = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-integration-integrationresponse.html#cfn-apigateway-method-integration-integrationresponse-statuscode-agmirStatusCode :: Lens' ApiGatewayMethodIntegrationResponse (Maybe (Val Text))+agmirStatusCode :: Lens' ApiGatewayMethodIntegrationResponse (Val Text) agmirStatusCode = lens _apiGatewayMethodIntegrationResponseStatusCode (\s a -> s { _apiGatewayMethodIntegrationResponseStatusCode = a })
library-gen/Stratosphere/ResourceProperties/ApiGatewayMethodMethodResponse.hs view
@@ -21,7 +21,7 @@   ApiGatewayMethodMethodResponse   { _apiGatewayMethodMethodResponseResponseModels :: Maybe Object   , _apiGatewayMethodMethodResponseResponseParameters :: Maybe Object-  , _apiGatewayMethodMethodResponseStatusCode :: Maybe (Val Text)+  , _apiGatewayMethodMethodResponseStatusCode :: Val Text   } deriving (Show, Eq)  instance ToJSON ApiGatewayMethodMethodResponse where@@ -30,7 +30,7 @@     catMaybes     [ fmap (("ResponseModels",) . toJSON) _apiGatewayMethodMethodResponseResponseModels     , fmap (("ResponseParameters",) . toJSON) _apiGatewayMethodMethodResponseResponseParameters-    , fmap (("StatusCode",) . toJSON) _apiGatewayMethodMethodResponseStatusCode+    , (Just . ("StatusCode",) . toJSON) _apiGatewayMethodMethodResponseStatusCode     ]  instance FromJSON ApiGatewayMethodMethodResponse where@@ -38,18 +38,19 @@     ApiGatewayMethodMethodResponse <$>       (obj .:? "ResponseModels") <*>       (obj .:? "ResponseParameters") <*>-      (obj .:? "StatusCode")+      (obj .: "StatusCode")   parseJSON _ = mempty  -- | Constructor for 'ApiGatewayMethodMethodResponse' containing required -- fields as arguments. apiGatewayMethodMethodResponse-  :: ApiGatewayMethodMethodResponse-apiGatewayMethodMethodResponse  =+  :: Val Text -- ^ 'agmmrStatusCode'+  -> ApiGatewayMethodMethodResponse+apiGatewayMethodMethodResponse statusCodearg =   ApiGatewayMethodMethodResponse   { _apiGatewayMethodMethodResponseResponseModels = Nothing   , _apiGatewayMethodMethodResponseResponseParameters = Nothing-  , _apiGatewayMethodMethodResponseStatusCode = Nothing+  , _apiGatewayMethodMethodResponseStatusCode = statusCodearg   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-methodresponse.html#cfn-apigateway-method-methodresponse-responsemodels@@ -61,5 +62,5 @@ agmmrResponseParameters = lens _apiGatewayMethodMethodResponseResponseParameters (\s a -> s { _apiGatewayMethodMethodResponseResponseParameters = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-methodresponse.html#cfn-apigateway-method-methodresponse-statuscode-agmmrStatusCode :: Lens' ApiGatewayMethodMethodResponse (Maybe (Val Text))+agmmrStatusCode :: Lens' ApiGatewayMethodMethodResponse (Val Text) agmmrStatusCode = lens _apiGatewayMethodMethodResponseStatusCode (\s a -> s { _apiGatewayMethodMethodResponseStatusCode = a })
+ library-gen/Stratosphere/ResourceProperties/AutoScalingScalingPolicyCustomizedMetricSpecification.hs view
@@ -0,0 +1,86 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-customizedmetricspecification.html++module Stratosphere.ResourceProperties.AutoScalingScalingPolicyCustomizedMetricSpecification 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.AutoScalingScalingPolicyMetricDimension++-- | Full data type definition for+-- AutoScalingScalingPolicyCustomizedMetricSpecification. See+-- 'autoScalingScalingPolicyCustomizedMetricSpecification' for a more+-- convenient constructor.+data AutoScalingScalingPolicyCustomizedMetricSpecification =+  AutoScalingScalingPolicyCustomizedMetricSpecification+  { _autoScalingScalingPolicyCustomizedMetricSpecificationDimensions :: Maybe [AutoScalingScalingPolicyMetricDimension]+  , _autoScalingScalingPolicyCustomizedMetricSpecificationMetricName :: Val Text+  , _autoScalingScalingPolicyCustomizedMetricSpecificationNamespace :: Val Text+  , _autoScalingScalingPolicyCustomizedMetricSpecificationStatistic :: Val Text+  , _autoScalingScalingPolicyCustomizedMetricSpecificationUnit :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON AutoScalingScalingPolicyCustomizedMetricSpecification where+  toJSON AutoScalingScalingPolicyCustomizedMetricSpecification{..} =+    object $+    catMaybes+    [ fmap (("Dimensions",) . toJSON) _autoScalingScalingPolicyCustomizedMetricSpecificationDimensions+    , (Just . ("MetricName",) . toJSON) _autoScalingScalingPolicyCustomizedMetricSpecificationMetricName+    , (Just . ("Namespace",) . toJSON) _autoScalingScalingPolicyCustomizedMetricSpecificationNamespace+    , (Just . ("Statistic",) . toJSON) _autoScalingScalingPolicyCustomizedMetricSpecificationStatistic+    , fmap (("Unit",) . toJSON) _autoScalingScalingPolicyCustomizedMetricSpecificationUnit+    ]++instance FromJSON AutoScalingScalingPolicyCustomizedMetricSpecification where+  parseJSON (Object obj) =+    AutoScalingScalingPolicyCustomizedMetricSpecification <$>+      (obj .:? "Dimensions") <*>+      (obj .: "MetricName") <*>+      (obj .: "Namespace") <*>+      (obj .: "Statistic") <*>+      (obj .:? "Unit")+  parseJSON _ = mempty++-- | Constructor for 'AutoScalingScalingPolicyCustomizedMetricSpecification'+-- containing required fields as arguments.+autoScalingScalingPolicyCustomizedMetricSpecification+  :: Val Text -- ^ 'asspcmsMetricName'+  -> Val Text -- ^ 'asspcmsNamespace'+  -> Val Text -- ^ 'asspcmsStatistic'+  -> AutoScalingScalingPolicyCustomizedMetricSpecification+autoScalingScalingPolicyCustomizedMetricSpecification metricNamearg namespacearg statisticarg =+  AutoScalingScalingPolicyCustomizedMetricSpecification+  { _autoScalingScalingPolicyCustomizedMetricSpecificationDimensions = Nothing+  , _autoScalingScalingPolicyCustomizedMetricSpecificationMetricName = metricNamearg+  , _autoScalingScalingPolicyCustomizedMetricSpecificationNamespace = namespacearg+  , _autoScalingScalingPolicyCustomizedMetricSpecificationStatistic = statisticarg+  , _autoScalingScalingPolicyCustomizedMetricSpecificationUnit = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-customizedmetricspecification.html#cfn-autoscaling-scalingpolicy-customizedmetricspecification-dimensions+asspcmsDimensions :: Lens' AutoScalingScalingPolicyCustomizedMetricSpecification (Maybe [AutoScalingScalingPolicyMetricDimension])+asspcmsDimensions = lens _autoScalingScalingPolicyCustomizedMetricSpecificationDimensions (\s a -> s { _autoScalingScalingPolicyCustomizedMetricSpecificationDimensions = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-customizedmetricspecification.html#cfn-autoscaling-scalingpolicy-customizedmetricspecification-metricname+asspcmsMetricName :: Lens' AutoScalingScalingPolicyCustomizedMetricSpecification (Val Text)+asspcmsMetricName = lens _autoScalingScalingPolicyCustomizedMetricSpecificationMetricName (\s a -> s { _autoScalingScalingPolicyCustomizedMetricSpecificationMetricName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-customizedmetricspecification.html#cfn-autoscaling-scalingpolicy-customizedmetricspecification-namespace+asspcmsNamespace :: Lens' AutoScalingScalingPolicyCustomizedMetricSpecification (Val Text)+asspcmsNamespace = lens _autoScalingScalingPolicyCustomizedMetricSpecificationNamespace (\s a -> s { _autoScalingScalingPolicyCustomizedMetricSpecificationNamespace = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-customizedmetricspecification.html#cfn-autoscaling-scalingpolicy-customizedmetricspecification-statistic+asspcmsStatistic :: Lens' AutoScalingScalingPolicyCustomizedMetricSpecification (Val Text)+asspcmsStatistic = lens _autoScalingScalingPolicyCustomizedMetricSpecificationStatistic (\s a -> s { _autoScalingScalingPolicyCustomizedMetricSpecificationStatistic = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-customizedmetricspecification.html#cfn-autoscaling-scalingpolicy-customizedmetricspecification-unit+asspcmsUnit :: Lens' AutoScalingScalingPolicyCustomizedMetricSpecification (Maybe (Val Text))+asspcmsUnit = lens _autoScalingScalingPolicyCustomizedMetricSpecificationUnit (\s a -> s { _autoScalingScalingPolicyCustomizedMetricSpecificationUnit = a })
+ library-gen/Stratosphere/ResourceProperties/AutoScalingScalingPolicyMetricDimension.hs view
@@ -0,0 +1,60 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-metricdimension.html++module Stratosphere.ResourceProperties.AutoScalingScalingPolicyMetricDimension 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 AutoScalingScalingPolicyMetricDimension.+-- See 'autoScalingScalingPolicyMetricDimension' for a more convenient+-- constructor.+data AutoScalingScalingPolicyMetricDimension =+  AutoScalingScalingPolicyMetricDimension+  { _autoScalingScalingPolicyMetricDimensionName :: Val Text+  , _autoScalingScalingPolicyMetricDimensionValue :: Val Text+  } deriving (Show, Eq)++instance ToJSON AutoScalingScalingPolicyMetricDimension where+  toJSON AutoScalingScalingPolicyMetricDimension{..} =+    object $+    catMaybes+    [ (Just . ("Name",) . toJSON) _autoScalingScalingPolicyMetricDimensionName+    , (Just . ("Value",) . toJSON) _autoScalingScalingPolicyMetricDimensionValue+    ]++instance FromJSON AutoScalingScalingPolicyMetricDimension where+  parseJSON (Object obj) =+    AutoScalingScalingPolicyMetricDimension <$>+      (obj .: "Name") <*>+      (obj .: "Value")+  parseJSON _ = mempty++-- | Constructor for 'AutoScalingScalingPolicyMetricDimension' containing+-- required fields as arguments.+autoScalingScalingPolicyMetricDimension+  :: Val Text -- ^ 'asspmdName'+  -> Val Text -- ^ 'asspmdValue'+  -> AutoScalingScalingPolicyMetricDimension+autoScalingScalingPolicyMetricDimension namearg valuearg =+  AutoScalingScalingPolicyMetricDimension+  { _autoScalingScalingPolicyMetricDimensionName = namearg+  , _autoScalingScalingPolicyMetricDimensionValue = valuearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-metricdimension.html#cfn-autoscaling-scalingpolicy-metricdimension-name+asspmdName :: Lens' AutoScalingScalingPolicyMetricDimension (Val Text)+asspmdName = lens _autoScalingScalingPolicyMetricDimensionName (\s a -> s { _autoScalingScalingPolicyMetricDimensionName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-metricdimension.html#cfn-autoscaling-scalingpolicy-metricdimension-value+asspmdValue :: Lens' AutoScalingScalingPolicyMetricDimension (Val Text)+asspmdValue = lens _autoScalingScalingPolicyMetricDimensionValue (\s a -> s { _autoScalingScalingPolicyMetricDimensionValue = a })
+ library-gen/Stratosphere/ResourceProperties/AutoScalingScalingPolicyPredefinedMetricSpecification.hs view
@@ -0,0 +1,60 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-predefinedmetricspecification.html++module Stratosphere.ResourceProperties.AutoScalingScalingPolicyPredefinedMetricSpecification 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+-- AutoScalingScalingPolicyPredefinedMetricSpecification. See+-- 'autoScalingScalingPolicyPredefinedMetricSpecification' for a more+-- convenient constructor.+data AutoScalingScalingPolicyPredefinedMetricSpecification =+  AutoScalingScalingPolicyPredefinedMetricSpecification+  { _autoScalingScalingPolicyPredefinedMetricSpecificationPredefinedMetricType :: Val Text+  , _autoScalingScalingPolicyPredefinedMetricSpecificationResourceLabel :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON AutoScalingScalingPolicyPredefinedMetricSpecification where+  toJSON AutoScalingScalingPolicyPredefinedMetricSpecification{..} =+    object $+    catMaybes+    [ (Just . ("PredefinedMetricType",) . toJSON) _autoScalingScalingPolicyPredefinedMetricSpecificationPredefinedMetricType+    , fmap (("ResourceLabel",) . toJSON) _autoScalingScalingPolicyPredefinedMetricSpecificationResourceLabel+    ]++instance FromJSON AutoScalingScalingPolicyPredefinedMetricSpecification where+  parseJSON (Object obj) =+    AutoScalingScalingPolicyPredefinedMetricSpecification <$>+      (obj .: "PredefinedMetricType") <*>+      (obj .:? "ResourceLabel")+  parseJSON _ = mempty++-- | Constructor for 'AutoScalingScalingPolicyPredefinedMetricSpecification'+-- containing required fields as arguments.+autoScalingScalingPolicyPredefinedMetricSpecification+  :: Val Text -- ^ 'assppmsPredefinedMetricType'+  -> AutoScalingScalingPolicyPredefinedMetricSpecification+autoScalingScalingPolicyPredefinedMetricSpecification predefinedMetricTypearg =+  AutoScalingScalingPolicyPredefinedMetricSpecification+  { _autoScalingScalingPolicyPredefinedMetricSpecificationPredefinedMetricType = predefinedMetricTypearg+  , _autoScalingScalingPolicyPredefinedMetricSpecificationResourceLabel = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-predefinedmetricspecification.html#cfn-autoscaling-scalingpolicy-predefinedmetricspecification-predefinedmetrictype+assppmsPredefinedMetricType :: Lens' AutoScalingScalingPolicyPredefinedMetricSpecification (Val Text)+assppmsPredefinedMetricType = lens _autoScalingScalingPolicyPredefinedMetricSpecificationPredefinedMetricType (\s a -> s { _autoScalingScalingPolicyPredefinedMetricSpecificationPredefinedMetricType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-predefinedmetricspecification.html#cfn-autoscaling-scalingpolicy-predefinedmetricspecification-resourcelabel+assppmsResourceLabel :: Lens' AutoScalingScalingPolicyPredefinedMetricSpecification (Maybe (Val Text))+assppmsResourceLabel = lens _autoScalingScalingPolicyPredefinedMetricSpecificationResourceLabel (\s a -> s { _autoScalingScalingPolicyPredefinedMetricSpecificationResourceLabel = a })
+ library-gen/Stratosphere/ResourceProperties/AutoScalingScalingPolicyTargetTrackingConfiguration.hs view
@@ -0,0 +1,77 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-targettrackingconfiguration.html++module Stratosphere.ResourceProperties.AutoScalingScalingPolicyTargetTrackingConfiguration 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.AutoScalingScalingPolicyCustomizedMetricSpecification+import Stratosphere.ResourceProperties.AutoScalingScalingPolicyPredefinedMetricSpecification++-- | Full data type definition for+-- AutoScalingScalingPolicyTargetTrackingConfiguration. See+-- 'autoScalingScalingPolicyTargetTrackingConfiguration' for a more+-- convenient constructor.+data AutoScalingScalingPolicyTargetTrackingConfiguration =+  AutoScalingScalingPolicyTargetTrackingConfiguration+  { _autoScalingScalingPolicyTargetTrackingConfigurationCustomizedMetricSpecification :: Maybe AutoScalingScalingPolicyCustomizedMetricSpecification+  , _autoScalingScalingPolicyTargetTrackingConfigurationDisableScaleIn :: Maybe (Val Bool)+  , _autoScalingScalingPolicyTargetTrackingConfigurationPredefinedMetricSpecification :: Maybe AutoScalingScalingPolicyPredefinedMetricSpecification+  , _autoScalingScalingPolicyTargetTrackingConfigurationTargetValue :: Val Double+  } deriving (Show, Eq)++instance ToJSON AutoScalingScalingPolicyTargetTrackingConfiguration where+  toJSON AutoScalingScalingPolicyTargetTrackingConfiguration{..} =+    object $+    catMaybes+    [ fmap (("CustomizedMetricSpecification",) . toJSON) _autoScalingScalingPolicyTargetTrackingConfigurationCustomizedMetricSpecification+    , fmap (("DisableScaleIn",) . toJSON . fmap Bool') _autoScalingScalingPolicyTargetTrackingConfigurationDisableScaleIn+    , fmap (("PredefinedMetricSpecification",) . toJSON) _autoScalingScalingPolicyTargetTrackingConfigurationPredefinedMetricSpecification+    , (Just . ("TargetValue",) . toJSON . fmap Double') _autoScalingScalingPolicyTargetTrackingConfigurationTargetValue+    ]++instance FromJSON AutoScalingScalingPolicyTargetTrackingConfiguration where+  parseJSON (Object obj) =+    AutoScalingScalingPolicyTargetTrackingConfiguration <$>+      (obj .:? "CustomizedMetricSpecification") <*>+      fmap (fmap (fmap unBool')) (obj .:? "DisableScaleIn") <*>+      (obj .:? "PredefinedMetricSpecification") <*>+      fmap (fmap unDouble') (obj .: "TargetValue")+  parseJSON _ = mempty++-- | Constructor for 'AutoScalingScalingPolicyTargetTrackingConfiguration'+-- containing required fields as arguments.+autoScalingScalingPolicyTargetTrackingConfiguration+  :: Val Double -- ^ 'asspttcTargetValue'+  -> AutoScalingScalingPolicyTargetTrackingConfiguration+autoScalingScalingPolicyTargetTrackingConfiguration targetValuearg =+  AutoScalingScalingPolicyTargetTrackingConfiguration+  { _autoScalingScalingPolicyTargetTrackingConfigurationCustomizedMetricSpecification = Nothing+  , _autoScalingScalingPolicyTargetTrackingConfigurationDisableScaleIn = Nothing+  , _autoScalingScalingPolicyTargetTrackingConfigurationPredefinedMetricSpecification = Nothing+  , _autoScalingScalingPolicyTargetTrackingConfigurationTargetValue = targetValuearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-targettrackingconfiguration.html#cfn-autoscaling-scalingpolicy-targettrackingconfiguration-customizedmetricspecification+asspttcCustomizedMetricSpecification :: Lens' AutoScalingScalingPolicyTargetTrackingConfiguration (Maybe AutoScalingScalingPolicyCustomizedMetricSpecification)+asspttcCustomizedMetricSpecification = lens _autoScalingScalingPolicyTargetTrackingConfigurationCustomizedMetricSpecification (\s a -> s { _autoScalingScalingPolicyTargetTrackingConfigurationCustomizedMetricSpecification = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-targettrackingconfiguration.html#cfn-autoscaling-scalingpolicy-targettrackingconfiguration-disablescalein+asspttcDisableScaleIn :: Lens' AutoScalingScalingPolicyTargetTrackingConfiguration (Maybe (Val Bool))+asspttcDisableScaleIn = lens _autoScalingScalingPolicyTargetTrackingConfigurationDisableScaleIn (\s a -> s { _autoScalingScalingPolicyTargetTrackingConfigurationDisableScaleIn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-targettrackingconfiguration.html#cfn-autoscaling-scalingpolicy-targettrackingconfiguration-predefinedmetricspecification+asspttcPredefinedMetricSpecification :: Lens' AutoScalingScalingPolicyTargetTrackingConfiguration (Maybe AutoScalingScalingPolicyPredefinedMetricSpecification)+asspttcPredefinedMetricSpecification = lens _autoScalingScalingPolicyTargetTrackingConfigurationPredefinedMetricSpecification (\s a -> s { _autoScalingScalingPolicyTargetTrackingConfigurationPredefinedMetricSpecification = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-targettrackingconfiguration.html#cfn-autoscaling-scalingpolicy-targettrackingconfiguration-targetvalue+asspttcTargetValue :: Lens' AutoScalingScalingPolicyTargetTrackingConfiguration (Val Double)+asspttcTargetValue = lens _autoScalingScalingPolicyTargetTrackingConfigurationTargetValue (\s a -> s { _autoScalingScalingPolicyTargetTrackingConfigurationTargetValue = a })
+ library-gen/Stratosphere/ResourceProperties/CloudTrailTrailDataResource.hs view
@@ -0,0 +1,58 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudtrail-trail-dataresource.html++module Stratosphere.ResourceProperties.CloudTrailTrailDataResource 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 CloudTrailTrailDataResource. See+-- 'cloudTrailTrailDataResource' for a more convenient constructor.+data CloudTrailTrailDataResource =+  CloudTrailTrailDataResource+  { _cloudTrailTrailDataResourceType :: Val Text+  , _cloudTrailTrailDataResourceValues :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON CloudTrailTrailDataResource where+  toJSON CloudTrailTrailDataResource{..} =+    object $+    catMaybes+    [ (Just . ("Type",) . toJSON) _cloudTrailTrailDataResourceType+    , fmap (("Values",) . toJSON) _cloudTrailTrailDataResourceValues+    ]++instance FromJSON CloudTrailTrailDataResource where+  parseJSON (Object obj) =+    CloudTrailTrailDataResource <$>+      (obj .: "Type") <*>+      (obj .:? "Values")+  parseJSON _ = mempty++-- | Constructor for 'CloudTrailTrailDataResource' containing required fields+-- as arguments.+cloudTrailTrailDataResource+  :: Val Text -- ^ 'cttdrType'+  -> CloudTrailTrailDataResource+cloudTrailTrailDataResource typearg =+  CloudTrailTrailDataResource+  { _cloudTrailTrailDataResourceType = typearg+  , _cloudTrailTrailDataResourceValues = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudtrail-trail-dataresource.html#cfn-cloudtrail-trail-dataresource-type+cttdrType :: Lens' CloudTrailTrailDataResource (Val Text)+cttdrType = lens _cloudTrailTrailDataResourceType (\s a -> s { _cloudTrailTrailDataResourceType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudtrail-trail-dataresource.html#cfn-cloudtrail-trail-dataresource-values+cttdrValues :: Lens' CloudTrailTrailDataResource (Maybe (ValList Text))+cttdrValues = lens _cloudTrailTrailDataResourceValues (\s a -> s { _cloudTrailTrailDataResourceValues = a })
+ library-gen/Stratosphere/ResourceProperties/CloudTrailTrailEventSelector.hs view
@@ -0,0 +1,65 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudtrail-trail-eventselector.html++module Stratosphere.ResourceProperties.CloudTrailTrailEventSelector 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.CloudTrailTrailDataResource++-- | Full data type definition for CloudTrailTrailEventSelector. See+-- 'cloudTrailTrailEventSelector' for a more convenient constructor.+data CloudTrailTrailEventSelector =+  CloudTrailTrailEventSelector+  { _cloudTrailTrailEventSelectorDataResources :: Maybe [CloudTrailTrailDataResource]+  , _cloudTrailTrailEventSelectorIncludeManagementEvents :: Maybe (Val Bool)+  , _cloudTrailTrailEventSelectorReadWriteType :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON CloudTrailTrailEventSelector where+  toJSON CloudTrailTrailEventSelector{..} =+    object $+    catMaybes+    [ fmap (("DataResources",) . toJSON) _cloudTrailTrailEventSelectorDataResources+    , fmap (("IncludeManagementEvents",) . toJSON . fmap Bool') _cloudTrailTrailEventSelectorIncludeManagementEvents+    , fmap (("ReadWriteType",) . toJSON) _cloudTrailTrailEventSelectorReadWriteType+    ]++instance FromJSON CloudTrailTrailEventSelector where+  parseJSON (Object obj) =+    CloudTrailTrailEventSelector <$>+      (obj .:? "DataResources") <*>+      fmap (fmap (fmap unBool')) (obj .:? "IncludeManagementEvents") <*>+      (obj .:? "ReadWriteType")+  parseJSON _ = mempty++-- | Constructor for 'CloudTrailTrailEventSelector' containing required fields+-- as arguments.+cloudTrailTrailEventSelector+  :: CloudTrailTrailEventSelector+cloudTrailTrailEventSelector  =+  CloudTrailTrailEventSelector+  { _cloudTrailTrailEventSelectorDataResources = Nothing+  , _cloudTrailTrailEventSelectorIncludeManagementEvents = Nothing+  , _cloudTrailTrailEventSelectorReadWriteType = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudtrail-trail-eventselector.html#cfn-cloudtrail-trail-eventselector-dataresources+cttesDataResources :: Lens' CloudTrailTrailEventSelector (Maybe [CloudTrailTrailDataResource])+cttesDataResources = lens _cloudTrailTrailEventSelectorDataResources (\s a -> s { _cloudTrailTrailEventSelectorDataResources = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudtrail-trail-eventselector.html#cfn-cloudtrail-trail-eventselector-includemanagementevents+cttesIncludeManagementEvents :: Lens' CloudTrailTrailEventSelector (Maybe (Val Bool))+cttesIncludeManagementEvents = lens _cloudTrailTrailEventSelectorIncludeManagementEvents (\s a -> s { _cloudTrailTrailEventSelectorIncludeManagementEvents = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudtrail-trail-eventselector.html#cfn-cloudtrail-trail-eventselector-readwritetype+cttesReadWriteType :: Lens' CloudTrailTrailEventSelector (Maybe (Val Text))+cttesReadWriteType = lens _cloudTrailTrailEventSelectorReadWriteType (\s a -> s { _cloudTrailTrailEventSelectorReadWriteType = a })
library-gen/Stratosphere/ResourceProperties/EC2SpotFleetSpotFleetRequestConfigData.hs view
@@ -24,9 +24,11 @@   , _eC2SpotFleetSpotFleetRequestConfigDataExcessCapacityTerminationPolicy :: Maybe (Val Text)   , _eC2SpotFleetSpotFleetRequestConfigDataIamFleetRole :: Val Text   , _eC2SpotFleetSpotFleetRequestConfigDataLaunchSpecifications :: [EC2SpotFleetSpotFleetLaunchSpecification]+  , _eC2SpotFleetSpotFleetRequestConfigDataReplaceUnhealthyInstances :: Maybe (Val Bool)   , _eC2SpotFleetSpotFleetRequestConfigDataSpotPrice :: Val Text   , _eC2SpotFleetSpotFleetRequestConfigDataTargetCapacity :: Val Integer   , _eC2SpotFleetSpotFleetRequestConfigDataTerminateInstancesWithExpiration :: Maybe (Val Bool)+  , _eC2SpotFleetSpotFleetRequestConfigDataType :: Maybe (Val Text)   , _eC2SpotFleetSpotFleetRequestConfigDataValidFrom :: Maybe (Val Text)   , _eC2SpotFleetSpotFleetRequestConfigDataValidUntil :: Maybe (Val Text)   } deriving (Show, Eq)@@ -39,9 +41,11 @@     , fmap (("ExcessCapacityTerminationPolicy",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigDataExcessCapacityTerminationPolicy     , (Just . ("IamFleetRole",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigDataIamFleetRole     , (Just . ("LaunchSpecifications",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigDataLaunchSpecifications+    , fmap (("ReplaceUnhealthyInstances",) . toJSON . fmap Bool') _eC2SpotFleetSpotFleetRequestConfigDataReplaceUnhealthyInstances     , (Just . ("SpotPrice",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigDataSpotPrice     , (Just . ("TargetCapacity",) . toJSON . fmap Integer') _eC2SpotFleetSpotFleetRequestConfigDataTargetCapacity     , fmap (("TerminateInstancesWithExpiration",) . toJSON . fmap Bool') _eC2SpotFleetSpotFleetRequestConfigDataTerminateInstancesWithExpiration+    , fmap (("Type",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigDataType     , fmap (("ValidFrom",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigDataValidFrom     , fmap (("ValidUntil",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigDataValidUntil     ]@@ -53,9 +57,11 @@       (obj .:? "ExcessCapacityTerminationPolicy") <*>       (obj .: "IamFleetRole") <*>       (obj .: "LaunchSpecifications") <*>+      fmap (fmap (fmap unBool')) (obj .:? "ReplaceUnhealthyInstances") <*>       (obj .: "SpotPrice") <*>       fmap (fmap unInteger') (obj .: "TargetCapacity") <*>       fmap (fmap (fmap unBool')) (obj .:? "TerminateInstancesWithExpiration") <*>+      (obj .:? "Type") <*>       (obj .:? "ValidFrom") <*>       (obj .:? "ValidUntil")   parseJSON _ = mempty@@ -74,9 +80,11 @@   , _eC2SpotFleetSpotFleetRequestConfigDataExcessCapacityTerminationPolicy = Nothing   , _eC2SpotFleetSpotFleetRequestConfigDataIamFleetRole = iamFleetRolearg   , _eC2SpotFleetSpotFleetRequestConfigDataLaunchSpecifications = launchSpecificationsarg+  , _eC2SpotFleetSpotFleetRequestConfigDataReplaceUnhealthyInstances = Nothing   , _eC2SpotFleetSpotFleetRequestConfigDataSpotPrice = spotPricearg   , _eC2SpotFleetSpotFleetRequestConfigDataTargetCapacity = targetCapacityarg   , _eC2SpotFleetSpotFleetRequestConfigDataTerminateInstancesWithExpiration = Nothing+  , _eC2SpotFleetSpotFleetRequestConfigDataType = Nothing   , _eC2SpotFleetSpotFleetRequestConfigDataValidFrom = Nothing   , _eC2SpotFleetSpotFleetRequestConfigDataValidUntil = Nothing   }@@ -97,6 +105,10 @@ ecsfsfrcdLaunchSpecifications :: Lens' EC2SpotFleetSpotFleetRequestConfigData [EC2SpotFleetSpotFleetLaunchSpecification] ecsfsfrcdLaunchSpecifications = lens _eC2SpotFleetSpotFleetRequestConfigDataLaunchSpecifications (\s a -> s { _eC2SpotFleetSpotFleetRequestConfigDataLaunchSpecifications = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata.html#cfn-ec2-spotfleet-spotfleetrequestconfigdata-replaceunhealthyinstances+ecsfsfrcdReplaceUnhealthyInstances :: Lens' EC2SpotFleetSpotFleetRequestConfigData (Maybe (Val Bool))+ecsfsfrcdReplaceUnhealthyInstances = lens _eC2SpotFleetSpotFleetRequestConfigDataReplaceUnhealthyInstances (\s a -> s { _eC2SpotFleetSpotFleetRequestConfigDataReplaceUnhealthyInstances = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata.html#cfn-ec2-spotfleet-spotfleetrequestconfigdata-spotprice ecsfsfrcdSpotPrice :: Lens' EC2SpotFleetSpotFleetRequestConfigData (Val Text) ecsfsfrcdSpotPrice = lens _eC2SpotFleetSpotFleetRequestConfigDataSpotPrice (\s a -> s { _eC2SpotFleetSpotFleetRequestConfigDataSpotPrice = a })@@ -108,6 +120,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata.html#cfn-ec2-spotfleet-spotfleetrequestconfigdata-terminateinstanceswithexpiration ecsfsfrcdTerminateInstancesWithExpiration :: Lens' EC2SpotFleetSpotFleetRequestConfigData (Maybe (Val Bool)) ecsfsfrcdTerminateInstancesWithExpiration = lens _eC2SpotFleetSpotFleetRequestConfigDataTerminateInstancesWithExpiration (\s a -> s { _eC2SpotFleetSpotFleetRequestConfigDataTerminateInstancesWithExpiration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata.html#cfn-ec2-spotfleet-spotfleetrequestconfigdata-type+ecsfsfrcdType :: Lens' EC2SpotFleetSpotFleetRequestConfigData (Maybe (Val Text))+ecsfsfrcdType = lens _eC2SpotFleetSpotFleetRequestConfigDataType (\s a -> s { _eC2SpotFleetSpotFleetRequestConfigDataType = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata.html#cfn-ec2-spotfleet-spotfleetrequestconfigdata-validfrom ecsfsfrcdValidFrom :: Lens' EC2SpotFleetSpotFleetRequestConfigData (Maybe (Val Text))
library-gen/Stratosphere/ResourceProperties/IoTTopicRuleDynamoDBAction.hs view
@@ -20,9 +20,11 @@ data IoTTopicRuleDynamoDBAction =   IoTTopicRuleDynamoDBAction   { _ioTTopicRuleDynamoDBActionHashKeyField :: Val Text+  , _ioTTopicRuleDynamoDBActionHashKeyType :: Maybe (Val Text)   , _ioTTopicRuleDynamoDBActionHashKeyValue :: Val Text   , _ioTTopicRuleDynamoDBActionPayloadField :: Maybe (Val Text)   , _ioTTopicRuleDynamoDBActionRangeKeyField :: Val Text+  , _ioTTopicRuleDynamoDBActionRangeKeyType :: Maybe (Val Text)   , _ioTTopicRuleDynamoDBActionRangeKeyValue :: Val Text   , _ioTTopicRuleDynamoDBActionRoleArn :: Val Text   , _ioTTopicRuleDynamoDBActionTableName :: Val Text@@ -33,9 +35,11 @@     object $     catMaybes     [ (Just . ("HashKeyField",) . toJSON) _ioTTopicRuleDynamoDBActionHashKeyField+    , fmap (("HashKeyType",) . toJSON) _ioTTopicRuleDynamoDBActionHashKeyType     , (Just . ("HashKeyValue",) . toJSON) _ioTTopicRuleDynamoDBActionHashKeyValue     , fmap (("PayloadField",) . toJSON) _ioTTopicRuleDynamoDBActionPayloadField     , (Just . ("RangeKeyField",) . toJSON) _ioTTopicRuleDynamoDBActionRangeKeyField+    , fmap (("RangeKeyType",) . toJSON) _ioTTopicRuleDynamoDBActionRangeKeyType     , (Just . ("RangeKeyValue",) . toJSON) _ioTTopicRuleDynamoDBActionRangeKeyValue     , (Just . ("RoleArn",) . toJSON) _ioTTopicRuleDynamoDBActionRoleArn     , (Just . ("TableName",) . toJSON) _ioTTopicRuleDynamoDBActionTableName@@ -45,9 +49,11 @@   parseJSON (Object obj) =     IoTTopicRuleDynamoDBAction <$>       (obj .: "HashKeyField") <*>+      (obj .:? "HashKeyType") <*>       (obj .: "HashKeyValue") <*>       (obj .:? "PayloadField") <*>       (obj .: "RangeKeyField") <*>+      (obj .:? "RangeKeyType") <*>       (obj .: "RangeKeyValue") <*>       (obj .: "RoleArn") <*>       (obj .: "TableName")@@ -66,9 +72,11 @@ ioTTopicRuleDynamoDBAction hashKeyFieldarg hashKeyValuearg rangeKeyFieldarg rangeKeyValuearg roleArnarg tableNamearg =   IoTTopicRuleDynamoDBAction   { _ioTTopicRuleDynamoDBActionHashKeyField = hashKeyFieldarg+  , _ioTTopicRuleDynamoDBActionHashKeyType = Nothing   , _ioTTopicRuleDynamoDBActionHashKeyValue = hashKeyValuearg   , _ioTTopicRuleDynamoDBActionPayloadField = Nothing   , _ioTTopicRuleDynamoDBActionRangeKeyField = rangeKeyFieldarg+  , _ioTTopicRuleDynamoDBActionRangeKeyType = Nothing   , _ioTTopicRuleDynamoDBActionRangeKeyValue = rangeKeyValuearg   , _ioTTopicRuleDynamoDBActionRoleArn = roleArnarg   , _ioTTopicRuleDynamoDBActionTableName = tableNamearg@@ -78,6 +86,10 @@ ittrddbaHashKeyField :: Lens' IoTTopicRuleDynamoDBAction (Val Text) ittrddbaHashKeyField = lens _ioTTopicRuleDynamoDBActionHashKeyField (\s a -> s { _ioTTopicRuleDynamoDBActionHashKeyField = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-dynamodb.html#cfn-iot-dynamodb-hashkeytype+ittrddbaHashKeyType :: Lens' IoTTopicRuleDynamoDBAction (Maybe (Val Text))+ittrddbaHashKeyType = lens _ioTTopicRuleDynamoDBActionHashKeyType (\s a -> s { _ioTTopicRuleDynamoDBActionHashKeyType = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-dynamodb.html#cfn-iot-dynamodb-hashkeyvalue ittrddbaHashKeyValue :: Lens' IoTTopicRuleDynamoDBAction (Val Text) ittrddbaHashKeyValue = lens _ioTTopicRuleDynamoDBActionHashKeyValue (\s a -> s { _ioTTopicRuleDynamoDBActionHashKeyValue = a })@@ -89,6 +101,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-dynamodb.html#cfn-iot-dynamodb-rangekeyfield ittrddbaRangeKeyField :: Lens' IoTTopicRuleDynamoDBAction (Val Text) ittrddbaRangeKeyField = lens _ioTTopicRuleDynamoDBActionRangeKeyField (\s a -> s { _ioTTopicRuleDynamoDBActionRangeKeyField = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-dynamodb.html#cfn-iot-dynamodb-rangeKeytype+ittrddbaRangeKeyType :: Lens' IoTTopicRuleDynamoDBAction (Maybe (Val Text))+ittrddbaRangeKeyType = lens _ioTTopicRuleDynamoDBActionRangeKeyType (\s a -> s { _ioTTopicRuleDynamoDBActionRangeKeyType = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-dynamodb.html#cfn-iot-dynamodb-rangekeyvalue ittrddbaRangeKeyValue :: Lens' IoTTopicRuleDynamoDBAction (Val Text)
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationCSVMappingParameters.hs view
@@ -0,0 +1,61 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-csvmappingparameters.html++module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationCSVMappingParameters 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+-- KinesisAnalyticsApplicationCSVMappingParameters. See+-- 'kinesisAnalyticsApplicationCSVMappingParameters' for a more convenient+-- constructor.+data KinesisAnalyticsApplicationCSVMappingParameters =+  KinesisAnalyticsApplicationCSVMappingParameters+  { _kinesisAnalyticsApplicationCSVMappingParametersRecordColumnDelimiter :: Val Text+  , _kinesisAnalyticsApplicationCSVMappingParametersRecordRowDelimiter :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsApplicationCSVMappingParameters where+  toJSON KinesisAnalyticsApplicationCSVMappingParameters{..} =+    object $+    catMaybes+    [ (Just . ("RecordColumnDelimiter",) . toJSON) _kinesisAnalyticsApplicationCSVMappingParametersRecordColumnDelimiter+    , (Just . ("RecordRowDelimiter",) . toJSON) _kinesisAnalyticsApplicationCSVMappingParametersRecordRowDelimiter+    ]++instance FromJSON KinesisAnalyticsApplicationCSVMappingParameters where+  parseJSON (Object obj) =+    KinesisAnalyticsApplicationCSVMappingParameters <$>+      (obj .: "RecordColumnDelimiter") <*>+      (obj .: "RecordRowDelimiter")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsApplicationCSVMappingParameters'+-- containing required fields as arguments.+kinesisAnalyticsApplicationCSVMappingParameters+  :: Val Text -- ^ 'kaacsvmpRecordColumnDelimiter'+  -> Val Text -- ^ 'kaacsvmpRecordRowDelimiter'+  -> KinesisAnalyticsApplicationCSVMappingParameters+kinesisAnalyticsApplicationCSVMappingParameters recordColumnDelimiterarg recordRowDelimiterarg =+  KinesisAnalyticsApplicationCSVMappingParameters+  { _kinesisAnalyticsApplicationCSVMappingParametersRecordColumnDelimiter = recordColumnDelimiterarg+  , _kinesisAnalyticsApplicationCSVMappingParametersRecordRowDelimiter = recordRowDelimiterarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-csvmappingparameters.html#cfn-kinesisanalytics-application-csvmappingparameters-recordcolumndelimiter+kaacsvmpRecordColumnDelimiter :: Lens' KinesisAnalyticsApplicationCSVMappingParameters (Val Text)+kaacsvmpRecordColumnDelimiter = lens _kinesisAnalyticsApplicationCSVMappingParametersRecordColumnDelimiter (\s a -> s { _kinesisAnalyticsApplicationCSVMappingParametersRecordColumnDelimiter = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-csvmappingparameters.html#cfn-kinesisanalytics-application-csvmappingparameters-recordrowdelimiter+kaacsvmpRecordRowDelimiter :: Lens' KinesisAnalyticsApplicationCSVMappingParameters (Val Text)+kaacsvmpRecordRowDelimiter = lens _kinesisAnalyticsApplicationCSVMappingParametersRecordRowDelimiter (\s a -> s { _kinesisAnalyticsApplicationCSVMappingParametersRecordRowDelimiter = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationInput.hs view
@@ -0,0 +1,86 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-input.html++module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInput 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.KinesisAnalyticsApplicationInputParallelism+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputSchema+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationKinesisFirehoseInput+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationKinesisStreamsInput++-- | Full data type definition for KinesisAnalyticsApplicationInput. See+-- 'kinesisAnalyticsApplicationInput' for a more convenient constructor.+data KinesisAnalyticsApplicationInput =+  KinesisAnalyticsApplicationInput+  { _kinesisAnalyticsApplicationInputInputParallelism :: Maybe KinesisAnalyticsApplicationInputParallelism+  , _kinesisAnalyticsApplicationInputInputSchema :: KinesisAnalyticsApplicationInputSchema+  , _kinesisAnalyticsApplicationInputKinesisFirehoseInput :: Maybe KinesisAnalyticsApplicationKinesisFirehoseInput+  , _kinesisAnalyticsApplicationInputKinesisStreamsInput :: Maybe KinesisAnalyticsApplicationKinesisStreamsInput+  , _kinesisAnalyticsApplicationInputNamePrefix :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsApplicationInput where+  toJSON KinesisAnalyticsApplicationInput{..} =+    object $+    catMaybes+    [ fmap (("InputParallelism",) . toJSON) _kinesisAnalyticsApplicationInputInputParallelism+    , (Just . ("InputSchema",) . toJSON) _kinesisAnalyticsApplicationInputInputSchema+    , fmap (("KinesisFirehoseInput",) . toJSON) _kinesisAnalyticsApplicationInputKinesisFirehoseInput+    , fmap (("KinesisStreamsInput",) . toJSON) _kinesisAnalyticsApplicationInputKinesisStreamsInput+    , (Just . ("NamePrefix",) . toJSON) _kinesisAnalyticsApplicationInputNamePrefix+    ]++instance FromJSON KinesisAnalyticsApplicationInput where+  parseJSON (Object obj) =+    KinesisAnalyticsApplicationInput <$>+      (obj .:? "InputParallelism") <*>+      (obj .: "InputSchema") <*>+      (obj .:? "KinesisFirehoseInput") <*>+      (obj .:? "KinesisStreamsInput") <*>+      (obj .: "NamePrefix")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsApplicationInput' containing required+-- fields as arguments.+kinesisAnalyticsApplicationInput+  :: KinesisAnalyticsApplicationInputSchema -- ^ 'kaaiInputSchema'+  -> Val Text -- ^ 'kaaiNamePrefix'+  -> KinesisAnalyticsApplicationInput+kinesisAnalyticsApplicationInput inputSchemaarg namePrefixarg =+  KinesisAnalyticsApplicationInput+  { _kinesisAnalyticsApplicationInputInputParallelism = Nothing+  , _kinesisAnalyticsApplicationInputInputSchema = inputSchemaarg+  , _kinesisAnalyticsApplicationInputKinesisFirehoseInput = Nothing+  , _kinesisAnalyticsApplicationInputKinesisStreamsInput = Nothing+  , _kinesisAnalyticsApplicationInputNamePrefix = namePrefixarg+  }++-- | 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-inputschema+kaaiInputSchema :: Lens' KinesisAnalyticsApplicationInput KinesisAnalyticsApplicationInputSchema+kaaiInputSchema = lens _kinesisAnalyticsApplicationInputInputSchema (\s a -> s { _kinesisAnalyticsApplicationInputInputSchema = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-input.html#cfn-kinesisanalytics-application-input-kinesisfirehoseinput+kaaiKinesisFirehoseInput :: Lens' KinesisAnalyticsApplicationInput (Maybe KinesisAnalyticsApplicationKinesisFirehoseInput)+kaaiKinesisFirehoseInput = lens _kinesisAnalyticsApplicationInputKinesisFirehoseInput (\s a -> s { _kinesisAnalyticsApplicationInputKinesisFirehoseInput = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-input.html#cfn-kinesisanalytics-application-input-kinesisstreamsinput+kaaiKinesisStreamsInput :: Lens' KinesisAnalyticsApplicationInput (Maybe KinesisAnalyticsApplicationKinesisStreamsInput)+kaaiKinesisStreamsInput = lens _kinesisAnalyticsApplicationInputKinesisStreamsInput (\s a -> s { _kinesisAnalyticsApplicationInputKinesisStreamsInput = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-input.html#cfn-kinesisanalytics-application-input-nameprefix+kaaiNamePrefix :: Lens' KinesisAnalyticsApplicationInput (Val Text)+kaaiNamePrefix = lens _kinesisAnalyticsApplicationInputNamePrefix (\s a -> s { _kinesisAnalyticsApplicationInputNamePrefix = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationInputParallelism.hs view
@@ -0,0 +1,51 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-inputparallelism.html++module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputParallelism 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+-- KinesisAnalyticsApplicationInputParallelism. See+-- 'kinesisAnalyticsApplicationInputParallelism' for a more convenient+-- constructor.+data KinesisAnalyticsApplicationInputParallelism =+  KinesisAnalyticsApplicationInputParallelism+  { _kinesisAnalyticsApplicationInputParallelismCount :: Maybe (Val Integer)+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsApplicationInputParallelism where+  toJSON KinesisAnalyticsApplicationInputParallelism{..} =+    object $+    catMaybes+    [ fmap (("Count",) . toJSON . fmap Integer') _kinesisAnalyticsApplicationInputParallelismCount+    ]++instance FromJSON KinesisAnalyticsApplicationInputParallelism where+  parseJSON (Object obj) =+    KinesisAnalyticsApplicationInputParallelism <$>+      fmap (fmap (fmap unInteger')) (obj .:? "Count")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsApplicationInputParallelism' containing+-- required fields as arguments.+kinesisAnalyticsApplicationInputParallelism+  :: KinesisAnalyticsApplicationInputParallelism+kinesisAnalyticsApplicationInputParallelism  =+  KinesisAnalyticsApplicationInputParallelism+  { _kinesisAnalyticsApplicationInputParallelismCount = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-inputparallelism.html#cfn-kinesisanalytics-application-inputparallelism-count+kaaipCount :: Lens' KinesisAnalyticsApplicationInputParallelism (Maybe (Val Integer))+kaaipCount = lens _kinesisAnalyticsApplicationInputParallelismCount (\s a -> s { _kinesisAnalyticsApplicationInputParallelismCount = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationInputSchema.hs view
@@ -0,0 +1,69 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-inputschema.html++module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputSchema 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.KinesisAnalyticsApplicationRecordColumn+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationRecordFormat++-- | Full data type definition for KinesisAnalyticsApplicationInputSchema. See+-- 'kinesisAnalyticsApplicationInputSchema' for a more convenient+-- constructor.+data KinesisAnalyticsApplicationInputSchema =+  KinesisAnalyticsApplicationInputSchema+  { _kinesisAnalyticsApplicationInputSchemaRecordColumns :: [KinesisAnalyticsApplicationRecordColumn]+  , _kinesisAnalyticsApplicationInputSchemaRecordEncoding :: Maybe (Val Text)+  , _kinesisAnalyticsApplicationInputSchemaRecordFormat :: KinesisAnalyticsApplicationRecordFormat+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsApplicationInputSchema where+  toJSON KinesisAnalyticsApplicationInputSchema{..} =+    object $+    catMaybes+    [ (Just . ("RecordColumns",) . toJSON) _kinesisAnalyticsApplicationInputSchemaRecordColumns+    , fmap (("RecordEncoding",) . toJSON) _kinesisAnalyticsApplicationInputSchemaRecordEncoding+    , (Just . ("RecordFormat",) . toJSON) _kinesisAnalyticsApplicationInputSchemaRecordFormat+    ]++instance FromJSON KinesisAnalyticsApplicationInputSchema where+  parseJSON (Object obj) =+    KinesisAnalyticsApplicationInputSchema <$>+      (obj .: "RecordColumns") <*>+      (obj .:? "RecordEncoding") <*>+      (obj .: "RecordFormat")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsApplicationInputSchema' containing+-- required fields as arguments.+kinesisAnalyticsApplicationInputSchema+  :: [KinesisAnalyticsApplicationRecordColumn] -- ^ 'kaaisRecordColumns'+  -> KinesisAnalyticsApplicationRecordFormat -- ^ 'kaaisRecordFormat'+  -> KinesisAnalyticsApplicationInputSchema+kinesisAnalyticsApplicationInputSchema recordColumnsarg recordFormatarg =+  KinesisAnalyticsApplicationInputSchema+  { _kinesisAnalyticsApplicationInputSchemaRecordColumns = recordColumnsarg+  , _kinesisAnalyticsApplicationInputSchemaRecordEncoding = Nothing+  , _kinesisAnalyticsApplicationInputSchemaRecordFormat = recordFormatarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-inputschema.html#cfn-kinesisanalytics-application-inputschema-recordcolumns+kaaisRecordColumns :: Lens' KinesisAnalyticsApplicationInputSchema [KinesisAnalyticsApplicationRecordColumn]+kaaisRecordColumns = lens _kinesisAnalyticsApplicationInputSchemaRecordColumns (\s a -> s { _kinesisAnalyticsApplicationInputSchemaRecordColumns = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-inputschema.html#cfn-kinesisanalytics-application-inputschema-recordencoding+kaaisRecordEncoding :: Lens' KinesisAnalyticsApplicationInputSchema (Maybe (Val Text))+kaaisRecordEncoding = lens _kinesisAnalyticsApplicationInputSchemaRecordEncoding (\s a -> s { _kinesisAnalyticsApplicationInputSchemaRecordEncoding = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-inputschema.html#cfn-kinesisanalytics-application-inputschema-recordformat+kaaisRecordFormat :: Lens' KinesisAnalyticsApplicationInputSchema KinesisAnalyticsApplicationRecordFormat+kaaisRecordFormat = lens _kinesisAnalyticsApplicationInputSchemaRecordFormat (\s a -> s { _kinesisAnalyticsApplicationInputSchemaRecordFormat = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationJSONMappingParameters.hs view
@@ -0,0 +1,52 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-jsonmappingparameters.html++module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationJSONMappingParameters 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+-- KinesisAnalyticsApplicationJSONMappingParameters. See+-- 'kinesisAnalyticsApplicationJSONMappingParameters' for a more convenient+-- constructor.+data KinesisAnalyticsApplicationJSONMappingParameters =+  KinesisAnalyticsApplicationJSONMappingParameters+  { _kinesisAnalyticsApplicationJSONMappingParametersRecordRowPath :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsApplicationJSONMappingParameters where+  toJSON KinesisAnalyticsApplicationJSONMappingParameters{..} =+    object $+    catMaybes+    [ (Just . ("RecordRowPath",) . toJSON) _kinesisAnalyticsApplicationJSONMappingParametersRecordRowPath+    ]++instance FromJSON KinesisAnalyticsApplicationJSONMappingParameters where+  parseJSON (Object obj) =+    KinesisAnalyticsApplicationJSONMappingParameters <$>+      (obj .: "RecordRowPath")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsApplicationJSONMappingParameters'+-- containing required fields as arguments.+kinesisAnalyticsApplicationJSONMappingParameters+  :: Val Text -- ^ 'kaajsonmpRecordRowPath'+  -> KinesisAnalyticsApplicationJSONMappingParameters+kinesisAnalyticsApplicationJSONMappingParameters recordRowPatharg =+  KinesisAnalyticsApplicationJSONMappingParameters+  { _kinesisAnalyticsApplicationJSONMappingParametersRecordRowPath = recordRowPatharg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-jsonmappingparameters.html#cfn-kinesisanalytics-application-jsonmappingparameters-recordrowpath+kaajsonmpRecordRowPath :: Lens' KinesisAnalyticsApplicationJSONMappingParameters (Val Text)+kaajsonmpRecordRowPath = lens _kinesisAnalyticsApplicationJSONMappingParametersRecordRowPath (\s a -> s { _kinesisAnalyticsApplicationJSONMappingParametersRecordRowPath = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationKinesisFirehoseInput.hs view
@@ -0,0 +1,61 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-kinesisfirehoseinput.html++module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationKinesisFirehoseInput 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+-- KinesisAnalyticsApplicationKinesisFirehoseInput. See+-- 'kinesisAnalyticsApplicationKinesisFirehoseInput' for a more convenient+-- constructor.+data KinesisAnalyticsApplicationKinesisFirehoseInput =+  KinesisAnalyticsApplicationKinesisFirehoseInput+  { _kinesisAnalyticsApplicationKinesisFirehoseInputResourceARN :: Val Text+  , _kinesisAnalyticsApplicationKinesisFirehoseInputRoleARN :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsApplicationKinesisFirehoseInput where+  toJSON KinesisAnalyticsApplicationKinesisFirehoseInput{..} =+    object $+    catMaybes+    [ (Just . ("ResourceARN",) . toJSON) _kinesisAnalyticsApplicationKinesisFirehoseInputResourceARN+    , (Just . ("RoleARN",) . toJSON) _kinesisAnalyticsApplicationKinesisFirehoseInputRoleARN+    ]++instance FromJSON KinesisAnalyticsApplicationKinesisFirehoseInput where+  parseJSON (Object obj) =+    KinesisAnalyticsApplicationKinesisFirehoseInput <$>+      (obj .: "ResourceARN") <*>+      (obj .: "RoleARN")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsApplicationKinesisFirehoseInput'+-- containing required fields as arguments.+kinesisAnalyticsApplicationKinesisFirehoseInput+  :: Val Text -- ^ 'kaakfiResourceARN'+  -> Val Text -- ^ 'kaakfiRoleARN'+  -> KinesisAnalyticsApplicationKinesisFirehoseInput+kinesisAnalyticsApplicationKinesisFirehoseInput resourceARNarg roleARNarg =+  KinesisAnalyticsApplicationKinesisFirehoseInput+  { _kinesisAnalyticsApplicationKinesisFirehoseInputResourceARN = resourceARNarg+  , _kinesisAnalyticsApplicationKinesisFirehoseInputRoleARN = roleARNarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-kinesisfirehoseinput.html#cfn-kinesisanalytics-application-kinesisfirehoseinput-resourcearn+kaakfiResourceARN :: Lens' KinesisAnalyticsApplicationKinesisFirehoseInput (Val Text)+kaakfiResourceARN = lens _kinesisAnalyticsApplicationKinesisFirehoseInputResourceARN (\s a -> s { _kinesisAnalyticsApplicationKinesisFirehoseInputResourceARN = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-kinesisfirehoseinput.html#cfn-kinesisanalytics-application-kinesisfirehoseinput-rolearn+kaakfiRoleARN :: Lens' KinesisAnalyticsApplicationKinesisFirehoseInput (Val Text)+kaakfiRoleARN = lens _kinesisAnalyticsApplicationKinesisFirehoseInputRoleARN (\s a -> s { _kinesisAnalyticsApplicationKinesisFirehoseInputRoleARN = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationKinesisStreamsInput.hs view
@@ -0,0 +1,61 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-kinesisstreamsinput.html++module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationKinesisStreamsInput 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+-- KinesisAnalyticsApplicationKinesisStreamsInput. See+-- 'kinesisAnalyticsApplicationKinesisStreamsInput' for a more convenient+-- constructor.+data KinesisAnalyticsApplicationKinesisStreamsInput =+  KinesisAnalyticsApplicationKinesisStreamsInput+  { _kinesisAnalyticsApplicationKinesisStreamsInputResourceARN :: Val Text+  , _kinesisAnalyticsApplicationKinesisStreamsInputRoleARN :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsApplicationKinesisStreamsInput where+  toJSON KinesisAnalyticsApplicationKinesisStreamsInput{..} =+    object $+    catMaybes+    [ (Just . ("ResourceARN",) . toJSON) _kinesisAnalyticsApplicationKinesisStreamsInputResourceARN+    , (Just . ("RoleARN",) . toJSON) _kinesisAnalyticsApplicationKinesisStreamsInputRoleARN+    ]++instance FromJSON KinesisAnalyticsApplicationKinesisStreamsInput where+  parseJSON (Object obj) =+    KinesisAnalyticsApplicationKinesisStreamsInput <$>+      (obj .: "ResourceARN") <*>+      (obj .: "RoleARN")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsApplicationKinesisStreamsInput'+-- containing required fields as arguments.+kinesisAnalyticsApplicationKinesisStreamsInput+  :: Val Text -- ^ 'kaaksiResourceARN'+  -> Val Text -- ^ 'kaaksiRoleARN'+  -> KinesisAnalyticsApplicationKinesisStreamsInput+kinesisAnalyticsApplicationKinesisStreamsInput resourceARNarg roleARNarg =+  KinesisAnalyticsApplicationKinesisStreamsInput+  { _kinesisAnalyticsApplicationKinesisStreamsInputResourceARN = resourceARNarg+  , _kinesisAnalyticsApplicationKinesisStreamsInputRoleARN = roleARNarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-kinesisstreamsinput.html#cfn-kinesisanalytics-application-kinesisstreamsinput-resourcearn+kaaksiResourceARN :: Lens' KinesisAnalyticsApplicationKinesisStreamsInput (Val Text)+kaaksiResourceARN = lens _kinesisAnalyticsApplicationKinesisStreamsInputResourceARN (\s a -> s { _kinesisAnalyticsApplicationKinesisStreamsInputResourceARN = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-kinesisstreamsinput.html#cfn-kinesisanalytics-application-kinesisstreamsinput-rolearn+kaaksiRoleARN :: Lens' KinesisAnalyticsApplicationKinesisStreamsInput (Val Text)+kaaksiRoleARN = lens _kinesisAnalyticsApplicationKinesisStreamsInputRoleARN (\s a -> s { _kinesisAnalyticsApplicationKinesisStreamsInputRoleARN = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationMappingParameters.hs view
@@ -0,0 +1,60 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-mappingparameters.html++module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationMappingParameters 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.KinesisAnalyticsApplicationCSVMappingParameters+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationJSONMappingParameters++-- | Full data type definition for+-- KinesisAnalyticsApplicationMappingParameters. See+-- 'kinesisAnalyticsApplicationMappingParameters' for a more convenient+-- constructor.+data KinesisAnalyticsApplicationMappingParameters =+  KinesisAnalyticsApplicationMappingParameters+  { _kinesisAnalyticsApplicationMappingParametersCSVMappingParameters :: Maybe KinesisAnalyticsApplicationCSVMappingParameters+  , _kinesisAnalyticsApplicationMappingParametersJSONMappingParameters :: Maybe KinesisAnalyticsApplicationJSONMappingParameters+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsApplicationMappingParameters where+  toJSON KinesisAnalyticsApplicationMappingParameters{..} =+    object $+    catMaybes+    [ fmap (("CSVMappingParameters",) . toJSON) _kinesisAnalyticsApplicationMappingParametersCSVMappingParameters+    , fmap (("JSONMappingParameters",) . toJSON) _kinesisAnalyticsApplicationMappingParametersJSONMappingParameters+    ]++instance FromJSON KinesisAnalyticsApplicationMappingParameters where+  parseJSON (Object obj) =+    KinesisAnalyticsApplicationMappingParameters <$>+      (obj .:? "CSVMappingParameters") <*>+      (obj .:? "JSONMappingParameters")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsApplicationMappingParameters' containing+-- required fields as arguments.+kinesisAnalyticsApplicationMappingParameters+  :: KinesisAnalyticsApplicationMappingParameters+kinesisAnalyticsApplicationMappingParameters  =+  KinesisAnalyticsApplicationMappingParameters+  { _kinesisAnalyticsApplicationMappingParametersCSVMappingParameters = Nothing+  , _kinesisAnalyticsApplicationMappingParametersJSONMappingParameters = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-mappingparameters.html#cfn-kinesisanalytics-application-mappingparameters-csvmappingparameters+kaampCSVMappingParameters :: Lens' KinesisAnalyticsApplicationMappingParameters (Maybe KinesisAnalyticsApplicationCSVMappingParameters)+kaampCSVMappingParameters = lens _kinesisAnalyticsApplicationMappingParametersCSVMappingParameters (\s a -> s { _kinesisAnalyticsApplicationMappingParametersCSVMappingParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-mappingparameters.html#cfn-kinesisanalytics-application-mappingparameters-jsonmappingparameters+kaampJSONMappingParameters :: Lens' KinesisAnalyticsApplicationMappingParameters (Maybe KinesisAnalyticsApplicationJSONMappingParameters)+kaampJSONMappingParameters = lens _kinesisAnalyticsApplicationMappingParametersJSONMappingParameters (\s a -> s { _kinesisAnalyticsApplicationMappingParametersJSONMappingParameters = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationOutputDestinationSchema.hs view
@@ -0,0 +1,51 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationoutput-destinationschema.html++module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationOutputDestinationSchema 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+-- KinesisAnalyticsApplicationOutputDestinationSchema. See+-- 'kinesisAnalyticsApplicationOutputDestinationSchema' for a more+-- convenient constructor.+data KinesisAnalyticsApplicationOutputDestinationSchema =+  KinesisAnalyticsApplicationOutputDestinationSchema+  { _kinesisAnalyticsApplicationOutputDestinationSchemaRecordFormatType :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsApplicationOutputDestinationSchema where+  toJSON KinesisAnalyticsApplicationOutputDestinationSchema{..} =+    object $+    catMaybes+    [ fmap (("RecordFormatType",) . toJSON) _kinesisAnalyticsApplicationOutputDestinationSchemaRecordFormatType+    ]++instance FromJSON KinesisAnalyticsApplicationOutputDestinationSchema where+  parseJSON (Object obj) =+    KinesisAnalyticsApplicationOutputDestinationSchema <$>+      (obj .:? "RecordFormatType")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsApplicationOutputDestinationSchema'+-- containing required fields as arguments.+kinesisAnalyticsApplicationOutputDestinationSchema+  :: KinesisAnalyticsApplicationOutputDestinationSchema+kinesisAnalyticsApplicationOutputDestinationSchema  =+  KinesisAnalyticsApplicationOutputDestinationSchema+  { _kinesisAnalyticsApplicationOutputDestinationSchemaRecordFormatType = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationoutput-destinationschema.html#cfn-kinesisanalytics-applicationoutput-destinationschema-recordformattype+kaaodsRecordFormatType :: Lens' KinesisAnalyticsApplicationOutputDestinationSchema (Maybe (Val Text))+kaaodsRecordFormatType = lens _kinesisAnalyticsApplicationOutputDestinationSchemaRecordFormatType (\s a -> s { _kinesisAnalyticsApplicationOutputDestinationSchemaRecordFormatType = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationOutputKinesisFirehoseOutput.hs view
@@ -0,0 +1,61 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationoutput-kinesisfirehoseoutput.html++module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationOutputKinesisFirehoseOutput 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+-- KinesisAnalyticsApplicationOutputKinesisFirehoseOutput. See+-- 'kinesisAnalyticsApplicationOutputKinesisFirehoseOutput' for a more+-- convenient constructor.+data KinesisAnalyticsApplicationOutputKinesisFirehoseOutput =+  KinesisAnalyticsApplicationOutputKinesisFirehoseOutput+  { _kinesisAnalyticsApplicationOutputKinesisFirehoseOutputResourceARN :: Val Text+  , _kinesisAnalyticsApplicationOutputKinesisFirehoseOutputRoleARN :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsApplicationOutputKinesisFirehoseOutput where+  toJSON KinesisAnalyticsApplicationOutputKinesisFirehoseOutput{..} =+    object $+    catMaybes+    [ (Just . ("ResourceARN",) . toJSON) _kinesisAnalyticsApplicationOutputKinesisFirehoseOutputResourceARN+    , (Just . ("RoleARN",) . toJSON) _kinesisAnalyticsApplicationOutputKinesisFirehoseOutputRoleARN+    ]++instance FromJSON KinesisAnalyticsApplicationOutputKinesisFirehoseOutput where+  parseJSON (Object obj) =+    KinesisAnalyticsApplicationOutputKinesisFirehoseOutput <$>+      (obj .: "ResourceARN") <*>+      (obj .: "RoleARN")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsApplicationOutputKinesisFirehoseOutput'+-- containing required fields as arguments.+kinesisAnalyticsApplicationOutputKinesisFirehoseOutput+  :: Val Text -- ^ 'kaaokfoResourceARN'+  -> Val Text -- ^ 'kaaokfoRoleARN'+  -> KinesisAnalyticsApplicationOutputKinesisFirehoseOutput+kinesisAnalyticsApplicationOutputKinesisFirehoseOutput resourceARNarg roleARNarg =+  KinesisAnalyticsApplicationOutputKinesisFirehoseOutput+  { _kinesisAnalyticsApplicationOutputKinesisFirehoseOutputResourceARN = resourceARNarg+  , _kinesisAnalyticsApplicationOutputKinesisFirehoseOutputRoleARN = roleARNarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationoutput-kinesisfirehoseoutput.html#cfn-kinesisanalytics-applicationoutput-kinesisfirehoseoutput-resourcearn+kaaokfoResourceARN :: Lens' KinesisAnalyticsApplicationOutputKinesisFirehoseOutput (Val Text)+kaaokfoResourceARN = lens _kinesisAnalyticsApplicationOutputKinesisFirehoseOutputResourceARN (\s a -> s { _kinesisAnalyticsApplicationOutputKinesisFirehoseOutputResourceARN = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationoutput-kinesisfirehoseoutput.html#cfn-kinesisanalytics-applicationoutput-kinesisfirehoseoutput-rolearn+kaaokfoRoleARN :: Lens' KinesisAnalyticsApplicationOutputKinesisFirehoseOutput (Val Text)+kaaokfoRoleARN = lens _kinesisAnalyticsApplicationOutputKinesisFirehoseOutputRoleARN (\s a -> s { _kinesisAnalyticsApplicationOutputKinesisFirehoseOutputRoleARN = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationOutputKinesisStreamsOutput.hs view
@@ -0,0 +1,61 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationoutput-kinesisstreamsoutput.html++module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationOutputKinesisStreamsOutput 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+-- KinesisAnalyticsApplicationOutputKinesisStreamsOutput. See+-- 'kinesisAnalyticsApplicationOutputKinesisStreamsOutput' for a more+-- convenient constructor.+data KinesisAnalyticsApplicationOutputKinesisStreamsOutput =+  KinesisAnalyticsApplicationOutputKinesisStreamsOutput+  { _kinesisAnalyticsApplicationOutputKinesisStreamsOutputResourceARN :: Val Text+  , _kinesisAnalyticsApplicationOutputKinesisStreamsOutputRoleARN :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsApplicationOutputKinesisStreamsOutput where+  toJSON KinesisAnalyticsApplicationOutputKinesisStreamsOutput{..} =+    object $+    catMaybes+    [ (Just . ("ResourceARN",) . toJSON) _kinesisAnalyticsApplicationOutputKinesisStreamsOutputResourceARN+    , (Just . ("RoleARN",) . toJSON) _kinesisAnalyticsApplicationOutputKinesisStreamsOutputRoleARN+    ]++instance FromJSON KinesisAnalyticsApplicationOutputKinesisStreamsOutput where+  parseJSON (Object obj) =+    KinesisAnalyticsApplicationOutputKinesisStreamsOutput <$>+      (obj .: "ResourceARN") <*>+      (obj .: "RoleARN")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsApplicationOutputKinesisStreamsOutput'+-- containing required fields as arguments.+kinesisAnalyticsApplicationOutputKinesisStreamsOutput+  :: Val Text -- ^ 'kaaoksoResourceARN'+  -> Val Text -- ^ 'kaaoksoRoleARN'+  -> KinesisAnalyticsApplicationOutputKinesisStreamsOutput+kinesisAnalyticsApplicationOutputKinesisStreamsOutput resourceARNarg roleARNarg =+  KinesisAnalyticsApplicationOutputKinesisStreamsOutput+  { _kinesisAnalyticsApplicationOutputKinesisStreamsOutputResourceARN = resourceARNarg+  , _kinesisAnalyticsApplicationOutputKinesisStreamsOutputRoleARN = roleARNarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationoutput-kinesisstreamsoutput.html#cfn-kinesisanalytics-applicationoutput-kinesisstreamsoutput-resourcearn+kaaoksoResourceARN :: Lens' KinesisAnalyticsApplicationOutputKinesisStreamsOutput (Val Text)+kaaoksoResourceARN = lens _kinesisAnalyticsApplicationOutputKinesisStreamsOutputResourceARN (\s a -> s { _kinesisAnalyticsApplicationOutputKinesisStreamsOutputResourceARN = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationoutput-kinesisstreamsoutput.html#cfn-kinesisanalytics-applicationoutput-kinesisstreamsoutput-rolearn+kaaoksoRoleARN :: Lens' KinesisAnalyticsApplicationOutputKinesisStreamsOutput (Val Text)+kaaoksoRoleARN = lens _kinesisAnalyticsApplicationOutputKinesisStreamsOutputRoleARN (\s a -> s { _kinesisAnalyticsApplicationOutputKinesisStreamsOutputRoleARN = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationOutputOutput.hs view
@@ -0,0 +1,77 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationoutput-output.html++module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationOutputOutput 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.KinesisAnalyticsApplicationOutputDestinationSchema+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationOutputKinesisFirehoseOutput+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationOutputKinesisStreamsOutput++-- | Full data type definition for KinesisAnalyticsApplicationOutputOutput.+-- See 'kinesisAnalyticsApplicationOutputOutput' for a more convenient+-- constructor.+data KinesisAnalyticsApplicationOutputOutput =+  KinesisAnalyticsApplicationOutputOutput+  { _kinesisAnalyticsApplicationOutputOutputDestinationSchema :: KinesisAnalyticsApplicationOutputDestinationSchema+  , _kinesisAnalyticsApplicationOutputOutputKinesisFirehoseOutput :: Maybe KinesisAnalyticsApplicationOutputKinesisFirehoseOutput+  , _kinesisAnalyticsApplicationOutputOutputKinesisStreamsOutput :: Maybe KinesisAnalyticsApplicationOutputKinesisStreamsOutput+  , _kinesisAnalyticsApplicationOutputOutputName :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsApplicationOutputOutput where+  toJSON KinesisAnalyticsApplicationOutputOutput{..} =+    object $+    catMaybes+    [ (Just . ("DestinationSchema",) . toJSON) _kinesisAnalyticsApplicationOutputOutputDestinationSchema+    , fmap (("KinesisFirehoseOutput",) . toJSON) _kinesisAnalyticsApplicationOutputOutputKinesisFirehoseOutput+    , fmap (("KinesisStreamsOutput",) . toJSON) _kinesisAnalyticsApplicationOutputOutputKinesisStreamsOutput+    , fmap (("Name",) . toJSON) _kinesisAnalyticsApplicationOutputOutputName+    ]++instance FromJSON KinesisAnalyticsApplicationOutputOutput where+  parseJSON (Object obj) =+    KinesisAnalyticsApplicationOutputOutput <$>+      (obj .: "DestinationSchema") <*>+      (obj .:? "KinesisFirehoseOutput") <*>+      (obj .:? "KinesisStreamsOutput") <*>+      (obj .:? "Name")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsApplicationOutputOutput' containing+-- required fields as arguments.+kinesisAnalyticsApplicationOutputOutput+  :: KinesisAnalyticsApplicationOutputDestinationSchema -- ^ 'kaaooDestinationSchema'+  -> KinesisAnalyticsApplicationOutputOutput+kinesisAnalyticsApplicationOutputOutput destinationSchemaarg =+  KinesisAnalyticsApplicationOutputOutput+  { _kinesisAnalyticsApplicationOutputOutputDestinationSchema = destinationSchemaarg+  , _kinesisAnalyticsApplicationOutputOutputKinesisFirehoseOutput = Nothing+  , _kinesisAnalyticsApplicationOutputOutputKinesisStreamsOutput = Nothing+  , _kinesisAnalyticsApplicationOutputOutputName = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationoutput-output.html#cfn-kinesisanalytics-applicationoutput-output-destinationschema+kaaooDestinationSchema :: Lens' KinesisAnalyticsApplicationOutputOutput KinesisAnalyticsApplicationOutputDestinationSchema+kaaooDestinationSchema = lens _kinesisAnalyticsApplicationOutputOutputDestinationSchema (\s a -> s { _kinesisAnalyticsApplicationOutputOutputDestinationSchema = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationoutput-output.html#cfn-kinesisanalytics-applicationoutput-output-kinesisfirehoseoutput+kaaooKinesisFirehoseOutput :: Lens' KinesisAnalyticsApplicationOutputOutput (Maybe KinesisAnalyticsApplicationOutputKinesisFirehoseOutput)+kaaooKinesisFirehoseOutput = lens _kinesisAnalyticsApplicationOutputOutputKinesisFirehoseOutput (\s a -> s { _kinesisAnalyticsApplicationOutputOutputKinesisFirehoseOutput = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationoutput-output.html#cfn-kinesisanalytics-applicationoutput-output-kinesisstreamsoutput+kaaooKinesisStreamsOutput :: Lens' KinesisAnalyticsApplicationOutputOutput (Maybe KinesisAnalyticsApplicationOutputKinesisStreamsOutput)+kaaooKinesisStreamsOutput = lens _kinesisAnalyticsApplicationOutputOutputKinesisStreamsOutput (\s a -> s { _kinesisAnalyticsApplicationOutputOutputKinesisStreamsOutput = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationoutput-output.html#cfn-kinesisanalytics-applicationoutput-output-name+kaaooName :: Lens' KinesisAnalyticsApplicationOutputOutput (Maybe (Val Text))+kaaooName = lens _kinesisAnalyticsApplicationOutputOutputName (\s a -> s { _kinesisAnalyticsApplicationOutputOutputName = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationRecordColumn.hs view
@@ -0,0 +1,68 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-recordcolumn.html++module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationRecordColumn 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 KinesisAnalyticsApplicationRecordColumn.+-- See 'kinesisAnalyticsApplicationRecordColumn' for a more convenient+-- constructor.+data KinesisAnalyticsApplicationRecordColumn =+  KinesisAnalyticsApplicationRecordColumn+  { _kinesisAnalyticsApplicationRecordColumnMapping :: Maybe (Val Text)+  , _kinesisAnalyticsApplicationRecordColumnName :: Val Text+  , _kinesisAnalyticsApplicationRecordColumnSqlType :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsApplicationRecordColumn where+  toJSON KinesisAnalyticsApplicationRecordColumn{..} =+    object $+    catMaybes+    [ fmap (("Mapping",) . toJSON) _kinesisAnalyticsApplicationRecordColumnMapping+    , (Just . ("Name",) . toJSON) _kinesisAnalyticsApplicationRecordColumnName+    , (Just . ("SqlType",) . toJSON) _kinesisAnalyticsApplicationRecordColumnSqlType+    ]++instance FromJSON KinesisAnalyticsApplicationRecordColumn where+  parseJSON (Object obj) =+    KinesisAnalyticsApplicationRecordColumn <$>+      (obj .:? "Mapping") <*>+      (obj .: "Name") <*>+      (obj .: "SqlType")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsApplicationRecordColumn' containing+-- required fields as arguments.+kinesisAnalyticsApplicationRecordColumn+  :: Val Text -- ^ 'kaarcName'+  -> Val Text -- ^ 'kaarcSqlType'+  -> KinesisAnalyticsApplicationRecordColumn+kinesisAnalyticsApplicationRecordColumn namearg sqlTypearg =+  KinesisAnalyticsApplicationRecordColumn+  { _kinesisAnalyticsApplicationRecordColumnMapping = Nothing+  , _kinesisAnalyticsApplicationRecordColumnName = namearg+  , _kinesisAnalyticsApplicationRecordColumnSqlType = sqlTypearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-recordcolumn.html#cfn-kinesisanalytics-application-recordcolumn-mapping+kaarcMapping :: Lens' KinesisAnalyticsApplicationRecordColumn (Maybe (Val Text))+kaarcMapping = lens _kinesisAnalyticsApplicationRecordColumnMapping (\s a -> s { _kinesisAnalyticsApplicationRecordColumnMapping = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-recordcolumn.html#cfn-kinesisanalytics-application-recordcolumn-name+kaarcName :: Lens' KinesisAnalyticsApplicationRecordColumn (Val Text)+kaarcName = lens _kinesisAnalyticsApplicationRecordColumnName (\s a -> s { _kinesisAnalyticsApplicationRecordColumnName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-recordcolumn.html#cfn-kinesisanalytics-application-recordcolumn-sqltype+kaarcSqlType :: Lens' KinesisAnalyticsApplicationRecordColumn (Val Text)+kaarcSqlType = lens _kinesisAnalyticsApplicationRecordColumnSqlType (\s a -> s { _kinesisAnalyticsApplicationRecordColumnSqlType = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationRecordFormat.hs view
@@ -0,0 +1,59 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-recordformat.html++module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationRecordFormat 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.KinesisAnalyticsApplicationMappingParameters++-- | Full data type definition for KinesisAnalyticsApplicationRecordFormat.+-- See 'kinesisAnalyticsApplicationRecordFormat' for a more convenient+-- constructor.+data KinesisAnalyticsApplicationRecordFormat =+  KinesisAnalyticsApplicationRecordFormat+  { _kinesisAnalyticsApplicationRecordFormatMappingParameters :: Maybe KinesisAnalyticsApplicationMappingParameters+  , _kinesisAnalyticsApplicationRecordFormatRecordFormatType :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsApplicationRecordFormat where+  toJSON KinesisAnalyticsApplicationRecordFormat{..} =+    object $+    catMaybes+    [ fmap (("MappingParameters",) . toJSON) _kinesisAnalyticsApplicationRecordFormatMappingParameters+    , (Just . ("RecordFormatType",) . toJSON) _kinesisAnalyticsApplicationRecordFormatRecordFormatType+    ]++instance FromJSON KinesisAnalyticsApplicationRecordFormat where+  parseJSON (Object obj) =+    KinesisAnalyticsApplicationRecordFormat <$>+      (obj .:? "MappingParameters") <*>+      (obj .: "RecordFormatType")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsApplicationRecordFormat' containing+-- required fields as arguments.+kinesisAnalyticsApplicationRecordFormat+  :: Val Text -- ^ 'kaarfRecordFormatType'+  -> KinesisAnalyticsApplicationRecordFormat+kinesisAnalyticsApplicationRecordFormat recordFormatTypearg =+  KinesisAnalyticsApplicationRecordFormat+  { _kinesisAnalyticsApplicationRecordFormatMappingParameters = Nothing+  , _kinesisAnalyticsApplicationRecordFormatRecordFormatType = recordFormatTypearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-recordformat.html#cfn-kinesisanalytics-application-recordformat-mappingparameters+kaarfMappingParameters :: Lens' KinesisAnalyticsApplicationRecordFormat (Maybe KinesisAnalyticsApplicationMappingParameters)+kaarfMappingParameters = lens _kinesisAnalyticsApplicationRecordFormatMappingParameters (\s a -> s { _kinesisAnalyticsApplicationRecordFormatMappingParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-recordformat.html#cfn-kinesisanalytics-application-recordformat-recordformattype+kaarfRecordFormatType :: Lens' KinesisAnalyticsApplicationRecordFormat (Val Text)+kaarfRecordFormatType = lens _kinesisAnalyticsApplicationRecordFormatRecordFormatType (\s a -> s { _kinesisAnalyticsApplicationRecordFormatRecordFormatType = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters.hs view
@@ -0,0 +1,62 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-csvmappingparameters.html++module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters 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+-- KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters. See+-- 'kinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters' for+-- a more convenient constructor.+data KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters =+  KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters+  { _kinesisAnalyticsApplicationReferenceDataSourceCSVMappingParametersRecordColumnDelimiter :: Val Text+  , _kinesisAnalyticsApplicationReferenceDataSourceCSVMappingParametersRecordRowDelimiter :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters where+  toJSON KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters{..} =+    object $+    catMaybes+    [ (Just . ("RecordColumnDelimiter",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceCSVMappingParametersRecordColumnDelimiter+    , (Just . ("RecordRowDelimiter",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceCSVMappingParametersRecordRowDelimiter+    ]++instance FromJSON KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters where+  parseJSON (Object obj) =+    KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters <$>+      (obj .: "RecordColumnDelimiter") <*>+      (obj .: "RecordRowDelimiter")+  parseJSON _ = mempty++-- | Constructor for+-- 'KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters'+-- containing required fields as arguments.+kinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters+  :: Val Text -- ^ 'kaardscsvmpRecordColumnDelimiter'+  -> Val Text -- ^ 'kaardscsvmpRecordRowDelimiter'+  -> KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters+kinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters recordColumnDelimiterarg recordRowDelimiterarg =+  KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters+  { _kinesisAnalyticsApplicationReferenceDataSourceCSVMappingParametersRecordColumnDelimiter = recordColumnDelimiterarg+  , _kinesisAnalyticsApplicationReferenceDataSourceCSVMappingParametersRecordRowDelimiter = recordRowDelimiterarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-csvmappingparameters.html#cfn-kinesisanalytics-applicationreferencedatasource-csvmappingparameters-recordcolumndelimiter+kaardscsvmpRecordColumnDelimiter :: Lens' KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters (Val Text)+kaardscsvmpRecordColumnDelimiter = lens _kinesisAnalyticsApplicationReferenceDataSourceCSVMappingParametersRecordColumnDelimiter (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceCSVMappingParametersRecordColumnDelimiter = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-csvmappingparameters.html#cfn-kinesisanalytics-applicationreferencedatasource-csvmappingparameters-recordrowdelimiter+kaardscsvmpRecordRowDelimiter :: Lens' KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters (Val Text)+kaardscsvmpRecordRowDelimiter = lens _kinesisAnalyticsApplicationReferenceDataSourceCSVMappingParametersRecordRowDelimiter (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceCSVMappingParametersRecordRowDelimiter = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters.hs view
@@ -0,0 +1,53 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-jsonmappingparameters.html++module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters 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+-- KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters. See+-- 'kinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters' for+-- a more convenient constructor.+data KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters =+  KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters+  { _kinesisAnalyticsApplicationReferenceDataSourceJSONMappingParametersRecordRowPath :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters where+  toJSON KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters{..} =+    object $+    catMaybes+    [ (Just . ("RecordRowPath",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceJSONMappingParametersRecordRowPath+    ]++instance FromJSON KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters where+  parseJSON (Object obj) =+    KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters <$>+      (obj .: "RecordRowPath")+  parseJSON _ = mempty++-- | Constructor for+-- 'KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters'+-- containing required fields as arguments.+kinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters+  :: Val Text -- ^ 'kaardsjsonmpRecordRowPath'+  -> KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters+kinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters recordRowPatharg =+  KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters+  { _kinesisAnalyticsApplicationReferenceDataSourceJSONMappingParametersRecordRowPath = recordRowPatharg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-jsonmappingparameters.html#cfn-kinesisanalytics-applicationreferencedatasource-jsonmappingparameters-recordrowpath+kaardsjsonmpRecordRowPath :: Lens' KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters (Val Text)+kaardsjsonmpRecordRowPath = lens _kinesisAnalyticsApplicationReferenceDataSourceJSONMappingParametersRecordRowPath (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceJSONMappingParametersRecordRowPath = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceMappingParameters.hs view
@@ -0,0 +1,61 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-mappingparameters.html++module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceMappingParameters 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.KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters++-- | Full data type definition for+-- KinesisAnalyticsApplicationReferenceDataSourceMappingParameters. See+-- 'kinesisAnalyticsApplicationReferenceDataSourceMappingParameters' for a+-- more convenient constructor.+data KinesisAnalyticsApplicationReferenceDataSourceMappingParameters =+  KinesisAnalyticsApplicationReferenceDataSourceMappingParameters+  { _kinesisAnalyticsApplicationReferenceDataSourceMappingParametersCSVMappingParameters :: Maybe KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters+  , _kinesisAnalyticsApplicationReferenceDataSourceMappingParametersJSONMappingParameters :: Maybe KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsApplicationReferenceDataSourceMappingParameters where+  toJSON KinesisAnalyticsApplicationReferenceDataSourceMappingParameters{..} =+    object $+    catMaybes+    [ fmap (("CSVMappingParameters",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceMappingParametersCSVMappingParameters+    , fmap (("JSONMappingParameters",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceMappingParametersJSONMappingParameters+    ]++instance FromJSON KinesisAnalyticsApplicationReferenceDataSourceMappingParameters where+  parseJSON (Object obj) =+    KinesisAnalyticsApplicationReferenceDataSourceMappingParameters <$>+      (obj .:? "CSVMappingParameters") <*>+      (obj .:? "JSONMappingParameters")+  parseJSON _ = mempty++-- | Constructor for+-- 'KinesisAnalyticsApplicationReferenceDataSourceMappingParameters'+-- containing required fields as arguments.+kinesisAnalyticsApplicationReferenceDataSourceMappingParameters+  :: KinesisAnalyticsApplicationReferenceDataSourceMappingParameters+kinesisAnalyticsApplicationReferenceDataSourceMappingParameters  =+  KinesisAnalyticsApplicationReferenceDataSourceMappingParameters+  { _kinesisAnalyticsApplicationReferenceDataSourceMappingParametersCSVMappingParameters = Nothing+  , _kinesisAnalyticsApplicationReferenceDataSourceMappingParametersJSONMappingParameters = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-mappingparameters.html#cfn-kinesisanalytics-applicationreferencedatasource-mappingparameters-csvmappingparameters+kaardsmpCSVMappingParameters :: Lens' KinesisAnalyticsApplicationReferenceDataSourceMappingParameters (Maybe KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters)+kaardsmpCSVMappingParameters = lens _kinesisAnalyticsApplicationReferenceDataSourceMappingParametersCSVMappingParameters (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceMappingParametersCSVMappingParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-mappingparameters.html#cfn-kinesisanalytics-applicationreferencedatasource-mappingparameters-jsonmappingparameters+kaardsmpJSONMappingParameters :: Lens' KinesisAnalyticsApplicationReferenceDataSourceMappingParameters (Maybe KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters)+kaardsmpJSONMappingParameters = lens _kinesisAnalyticsApplicationReferenceDataSourceMappingParametersJSONMappingParameters (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceMappingParametersJSONMappingParameters = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceRecordColumn.hs view
@@ -0,0 +1,70 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-recordcolumn.html++module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceRecordColumn 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+-- KinesisAnalyticsApplicationReferenceDataSourceRecordColumn. See+-- 'kinesisAnalyticsApplicationReferenceDataSourceRecordColumn' for a more+-- convenient constructor.+data KinesisAnalyticsApplicationReferenceDataSourceRecordColumn =+  KinesisAnalyticsApplicationReferenceDataSourceRecordColumn+  { _kinesisAnalyticsApplicationReferenceDataSourceRecordColumnMapping :: Maybe (Val Text)+  , _kinesisAnalyticsApplicationReferenceDataSourceRecordColumnName :: Val Text+  , _kinesisAnalyticsApplicationReferenceDataSourceRecordColumnSqlType :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsApplicationReferenceDataSourceRecordColumn where+  toJSON KinesisAnalyticsApplicationReferenceDataSourceRecordColumn{..} =+    object $+    catMaybes+    [ fmap (("Mapping",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceRecordColumnMapping+    , (Just . ("Name",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceRecordColumnName+    , (Just . ("SqlType",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceRecordColumnSqlType+    ]++instance FromJSON KinesisAnalyticsApplicationReferenceDataSourceRecordColumn where+  parseJSON (Object obj) =+    KinesisAnalyticsApplicationReferenceDataSourceRecordColumn <$>+      (obj .:? "Mapping") <*>+      (obj .: "Name") <*>+      (obj .: "SqlType")+  parseJSON _ = mempty++-- | Constructor for+-- 'KinesisAnalyticsApplicationReferenceDataSourceRecordColumn' containing+-- required fields as arguments.+kinesisAnalyticsApplicationReferenceDataSourceRecordColumn+  :: Val Text -- ^ 'kaardsrcName'+  -> Val Text -- ^ 'kaardsrcSqlType'+  -> KinesisAnalyticsApplicationReferenceDataSourceRecordColumn+kinesisAnalyticsApplicationReferenceDataSourceRecordColumn namearg sqlTypearg =+  KinesisAnalyticsApplicationReferenceDataSourceRecordColumn+  { _kinesisAnalyticsApplicationReferenceDataSourceRecordColumnMapping = Nothing+  , _kinesisAnalyticsApplicationReferenceDataSourceRecordColumnName = namearg+  , _kinesisAnalyticsApplicationReferenceDataSourceRecordColumnSqlType = sqlTypearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-recordcolumn.html#cfn-kinesisanalytics-applicationreferencedatasource-recordcolumn-mapping+kaardsrcMapping :: Lens' KinesisAnalyticsApplicationReferenceDataSourceRecordColumn (Maybe (Val Text))+kaardsrcMapping = lens _kinesisAnalyticsApplicationReferenceDataSourceRecordColumnMapping (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceRecordColumnMapping = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-recordcolumn.html#cfn-kinesisanalytics-applicationreferencedatasource-recordcolumn-name+kaardsrcName :: Lens' KinesisAnalyticsApplicationReferenceDataSourceRecordColumn (Val Text)+kaardsrcName = lens _kinesisAnalyticsApplicationReferenceDataSourceRecordColumnName (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceRecordColumnName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-recordcolumn.html#cfn-kinesisanalytics-applicationreferencedatasource-recordcolumn-sqltype+kaardsrcSqlType :: Lens' KinesisAnalyticsApplicationReferenceDataSourceRecordColumn (Val Text)+kaardsrcSqlType = lens _kinesisAnalyticsApplicationReferenceDataSourceRecordColumnSqlType (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceRecordColumnSqlType = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceRecordFormat.hs view
@@ -0,0 +1,61 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-recordformat.html++module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceRecordFormat 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.KinesisAnalyticsApplicationReferenceDataSourceMappingParameters++-- | Full data type definition for+-- KinesisAnalyticsApplicationReferenceDataSourceRecordFormat. See+-- 'kinesisAnalyticsApplicationReferenceDataSourceRecordFormat' for a more+-- convenient constructor.+data KinesisAnalyticsApplicationReferenceDataSourceRecordFormat =+  KinesisAnalyticsApplicationReferenceDataSourceRecordFormat+  { _kinesisAnalyticsApplicationReferenceDataSourceRecordFormatMappingParameters :: Maybe KinesisAnalyticsApplicationReferenceDataSourceMappingParameters+  , _kinesisAnalyticsApplicationReferenceDataSourceRecordFormatRecordFormatType :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsApplicationReferenceDataSourceRecordFormat where+  toJSON KinesisAnalyticsApplicationReferenceDataSourceRecordFormat{..} =+    object $+    catMaybes+    [ fmap (("MappingParameters",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceRecordFormatMappingParameters+    , (Just . ("RecordFormatType",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceRecordFormatRecordFormatType+    ]++instance FromJSON KinesisAnalyticsApplicationReferenceDataSourceRecordFormat where+  parseJSON (Object obj) =+    KinesisAnalyticsApplicationReferenceDataSourceRecordFormat <$>+      (obj .:? "MappingParameters") <*>+      (obj .: "RecordFormatType")+  parseJSON _ = mempty++-- | Constructor for+-- 'KinesisAnalyticsApplicationReferenceDataSourceRecordFormat' containing+-- required fields as arguments.+kinesisAnalyticsApplicationReferenceDataSourceRecordFormat+  :: Val Text -- ^ 'kaardsrfRecordFormatType'+  -> KinesisAnalyticsApplicationReferenceDataSourceRecordFormat+kinesisAnalyticsApplicationReferenceDataSourceRecordFormat recordFormatTypearg =+  KinesisAnalyticsApplicationReferenceDataSourceRecordFormat+  { _kinesisAnalyticsApplicationReferenceDataSourceRecordFormatMappingParameters = Nothing+  , _kinesisAnalyticsApplicationReferenceDataSourceRecordFormatRecordFormatType = recordFormatTypearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-recordformat.html#cfn-kinesisanalytics-applicationreferencedatasource-recordformat-mappingparameters+kaardsrfMappingParameters :: Lens' KinesisAnalyticsApplicationReferenceDataSourceRecordFormat (Maybe KinesisAnalyticsApplicationReferenceDataSourceMappingParameters)+kaardsrfMappingParameters = lens _kinesisAnalyticsApplicationReferenceDataSourceRecordFormatMappingParameters (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceRecordFormatMappingParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-recordformat.html#cfn-kinesisanalytics-applicationreferencedatasource-recordformat-recordformattype+kaardsrfRecordFormatType :: Lens' KinesisAnalyticsApplicationReferenceDataSourceRecordFormat (Val Text)+kaardsrfRecordFormatType = lens _kinesisAnalyticsApplicationReferenceDataSourceRecordFormatRecordFormatType (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceRecordFormatRecordFormatType = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource.hs view
@@ -0,0 +1,70 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-referencedatasource.html++module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource 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.KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource++-- | Full data type definition for+-- KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource. See+-- 'kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource' for a+-- more convenient constructor.+data KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource =+  KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource+  { _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSourceReferenceSchema :: KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema+  , _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSourceS3ReferenceDataSource :: Maybe KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource+  , _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSourceTableName :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource where+  toJSON KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource{..} =+    object $+    catMaybes+    [ (Just . ("ReferenceSchema",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSourceReferenceSchema+    , fmap (("S3ReferenceDataSource",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSourceS3ReferenceDataSource+    , fmap (("TableName",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSourceTableName+    ]++instance FromJSON KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource where+  parseJSON (Object obj) =+    KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource <$>+      (obj .: "ReferenceSchema") <*>+      (obj .:? "S3ReferenceDataSource") <*>+      (obj .:? "TableName")+  parseJSON _ = mempty++-- | Constructor for+-- 'KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource'+-- containing required fields as arguments.+kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource+  :: KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema -- ^ 'kaardsrdsReferenceSchema'+  -> KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource+kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource referenceSchemaarg =+  KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource+  { _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSourceReferenceSchema = referenceSchemaarg+  , _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSourceS3ReferenceDataSource = Nothing+  , _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSourceTableName = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-referencedatasource.html#cfn-kinesisanalytics-applicationreferencedatasource-referencedatasource-referenceschema+kaardsrdsReferenceSchema :: Lens' KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema+kaardsrdsReferenceSchema = lens _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSourceReferenceSchema (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSourceReferenceSchema = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-referencedatasource.html#cfn-kinesisanalytics-applicationreferencedatasource-referencedatasource-s3referencedatasource+kaardsrdsS3ReferenceDataSource :: Lens' KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource (Maybe KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource)+kaardsrdsS3ReferenceDataSource = lens _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSourceS3ReferenceDataSource (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSourceS3ReferenceDataSource = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-referencedatasource.html#cfn-kinesisanalytics-applicationreferencedatasource-referencedatasource-tablename+kaardsrdsTableName :: Lens' KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource (Maybe (Val Text))+kaardsrdsTableName = lens _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSourceTableName (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSourceTableName = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema.hs view
@@ -0,0 +1,71 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-referenceschema.html++module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema 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.KinesisAnalyticsApplicationReferenceDataSourceRecordColumn+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceRecordFormat++-- | Full data type definition for+-- KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema. See+-- 'kinesisAnalyticsApplicationReferenceDataSourceReferenceSchema' for a+-- more convenient constructor.+data KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema =+  KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema+  { _kinesisAnalyticsApplicationReferenceDataSourceReferenceSchemaRecordColumns :: [KinesisAnalyticsApplicationReferenceDataSourceRecordColumn]+  , _kinesisAnalyticsApplicationReferenceDataSourceReferenceSchemaRecordEncoding :: Maybe (Val Text)+  , _kinesisAnalyticsApplicationReferenceDataSourceReferenceSchemaRecordFormat :: KinesisAnalyticsApplicationReferenceDataSourceRecordFormat+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema where+  toJSON KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema{..} =+    object $+    catMaybes+    [ (Just . ("RecordColumns",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceReferenceSchemaRecordColumns+    , fmap (("RecordEncoding",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceReferenceSchemaRecordEncoding+    , (Just . ("RecordFormat",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceReferenceSchemaRecordFormat+    ]++instance FromJSON KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema where+  parseJSON (Object obj) =+    KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema <$>+      (obj .: "RecordColumns") <*>+      (obj .:? "RecordEncoding") <*>+      (obj .: "RecordFormat")+  parseJSON _ = mempty++-- | Constructor for+-- 'KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema'+-- containing required fields as arguments.+kinesisAnalyticsApplicationReferenceDataSourceReferenceSchema+  :: [KinesisAnalyticsApplicationReferenceDataSourceRecordColumn] -- ^ 'kaardsrsRecordColumns'+  -> KinesisAnalyticsApplicationReferenceDataSourceRecordFormat -- ^ 'kaardsrsRecordFormat'+  -> KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema+kinesisAnalyticsApplicationReferenceDataSourceReferenceSchema recordColumnsarg recordFormatarg =+  KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema+  { _kinesisAnalyticsApplicationReferenceDataSourceReferenceSchemaRecordColumns = recordColumnsarg+  , _kinesisAnalyticsApplicationReferenceDataSourceReferenceSchemaRecordEncoding = Nothing+  , _kinesisAnalyticsApplicationReferenceDataSourceReferenceSchemaRecordFormat = recordFormatarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-referenceschema.html#cfn-kinesisanalytics-applicationreferencedatasource-referenceschema-recordcolumns+kaardsrsRecordColumns :: Lens' KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema [KinesisAnalyticsApplicationReferenceDataSourceRecordColumn]+kaardsrsRecordColumns = lens _kinesisAnalyticsApplicationReferenceDataSourceReferenceSchemaRecordColumns (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceReferenceSchemaRecordColumns = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-referenceschema.html#cfn-kinesisanalytics-applicationreferencedatasource-referenceschema-recordencoding+kaardsrsRecordEncoding :: Lens' KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema (Maybe (Val Text))+kaardsrsRecordEncoding = lens _kinesisAnalyticsApplicationReferenceDataSourceReferenceSchemaRecordEncoding (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceReferenceSchemaRecordEncoding = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-referenceschema.html#cfn-kinesisanalytics-applicationreferencedatasource-referenceschema-recordformat+kaardsrsRecordFormat :: Lens' KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema KinesisAnalyticsApplicationReferenceDataSourceRecordFormat+kaardsrsRecordFormat = lens _kinesisAnalyticsApplicationReferenceDataSourceReferenceSchemaRecordFormat (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceReferenceSchemaRecordFormat = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource.hs view
@@ -0,0 +1,71 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-s3referencedatasource.html++module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource 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+-- KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource. See+-- 'kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource' for+-- a more convenient constructor.+data KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource =+  KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource+  { _kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSourceBucketARN :: Val Text+  , _kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSourceFileKey :: Val Text+  , _kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSourceReferenceRoleARN :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource where+  toJSON KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource{..} =+    object $+    catMaybes+    [ (Just . ("BucketARN",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSourceBucketARN+    , (Just . ("FileKey",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSourceFileKey+    , (Just . ("ReferenceRoleARN",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSourceReferenceRoleARN+    ]++instance FromJSON KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource where+  parseJSON (Object obj) =+    KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource <$>+      (obj .: "BucketARN") <*>+      (obj .: "FileKey") <*>+      (obj .: "ReferenceRoleARN")+  parseJSON _ = mempty++-- | Constructor for+-- 'KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource'+-- containing required fields as arguments.+kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource+  :: Val Text -- ^ 'kaardssrdsBucketARN'+  -> Val Text -- ^ 'kaardssrdsFileKey'+  -> Val Text -- ^ 'kaardssrdsReferenceRoleARN'+  -> KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource+kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource bucketARNarg fileKeyarg referenceRoleARNarg =+  KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource+  { _kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSourceBucketARN = bucketARNarg+  , _kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSourceFileKey = fileKeyarg+  , _kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSourceReferenceRoleARN = referenceRoleARNarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-s3referencedatasource.html#cfn-kinesisanalytics-applicationreferencedatasource-s3referencedatasource-bucketarn+kaardssrdsBucketARN :: Lens' KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource (Val Text)+kaardssrdsBucketARN = lens _kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSourceBucketARN (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSourceBucketARN = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-s3referencedatasource.html#cfn-kinesisanalytics-applicationreferencedatasource-s3referencedatasource-filekey+kaardssrdsFileKey :: Lens' KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource (Val Text)+kaardssrdsFileKey = lens _kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSourceFileKey (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSourceFileKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-s3referencedatasource.html#cfn-kinesisanalytics-applicationreferencedatasource-s3referencedatasource-referencerolearn+kaardssrdsReferenceRoleARN :: Lens' KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource (Val Text)+kaardssrdsReferenceRoleARN = lens _kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSourceReferenceRoleARN (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSourceReferenceRoleARN = a })
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration.hs view
@@ -16,6 +16,7 @@ import Stratosphere.Types import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamElasticsearchBufferingHints import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessingConfiguration import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamElasticsearchRetryOptions import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamS3DestinationConfiguration @@ -30,6 +31,7 @@   , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationDomainARN :: Val Text   , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationIndexName :: Val Text   , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationIndexRotationPeriod :: Val Text+  , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationProcessingConfiguration :: Maybe KinesisFirehoseDeliveryStreamProcessingConfiguration   , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationRetryOptions :: KinesisFirehoseDeliveryStreamElasticsearchRetryOptions   , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationRoleARN :: Val Text   , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationS3BackupMode :: Val KinesisFirehoseElasticsearchS3BackupMode@@ -46,6 +48,7 @@     , (Just . ("DomainARN",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationDomainARN     , (Just . ("IndexName",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationIndexName     , (Just . ("IndexRotationPeriod",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationIndexRotationPeriod+    , fmap (("ProcessingConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationProcessingConfiguration     , (Just . ("RetryOptions",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationRetryOptions     , (Just . ("RoleARN",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationRoleARN     , (Just . ("S3BackupMode",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationS3BackupMode@@ -61,6 +64,7 @@       (obj .: "DomainARN") <*>       (obj .: "IndexName") <*>       (obj .: "IndexRotationPeriod") <*>+      (obj .:? "ProcessingConfiguration") <*>       (obj .: "RetryOptions") <*>       (obj .: "RoleARN") <*>       (obj .: "S3BackupMode") <*>@@ -89,6 +93,7 @@   , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationDomainARN = domainARNarg   , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationIndexName = indexNamearg   , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationIndexRotationPeriod = indexRotationPeriodarg+  , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationProcessingConfiguration = Nothing   , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationRetryOptions = retryOptionsarg   , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationRoleARN = roleARNarg   , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationS3BackupMode = s3BackupModearg@@ -115,6 +120,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-kinesisdeliverystream-elasticsearchdestinationconfiguration.html#cfn-kinesisfirehose-kinesisdeliverystream-elasticsearchdestinationconfiguration-indexrotationperiod kfdsedcIndexRotationPeriod :: Lens' KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration (Val Text) kfdsedcIndexRotationPeriod = lens _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationIndexRotationPeriod (\s a -> s { _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationIndexRotationPeriod = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-kinesisdeliverystream-elasticsearchdestinationconfiguration.html#cfn-kinesisfirehose-kinesisdeliverystream-processingconfiguration+kfdsedcProcessingConfiguration :: Lens' KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamProcessingConfiguration)+kfdsedcProcessingConfiguration = lens _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationProcessingConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationProcessingConfiguration = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-kinesisdeliverystream-elasticsearchdestinationconfiguration.html#cfn-kinesisfirehose-kinesisdeliverystream-elasticsearchdestinationconfiguration-retryoptions kfdsedcRetryOptions :: Lens' KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration KinesisFirehoseDeliveryStreamElasticsearchRetryOptions
+ library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration.hs view
@@ -0,0 +1,133 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-kinesisdeliverystream-extendeds3destinationconfiguration.html++module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration 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.KinesisFirehoseDeliveryStreamBufferingHints+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamEncryptionConfiguration+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessingConfiguration+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamS3DestinationConfiguration++-- | Full data type definition for+-- KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration. See+-- 'kinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration' for a+-- more convenient constructor.+data KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration =+  KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration+  { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationBucketARN :: Val Text+  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationBufferingHints :: KinesisFirehoseDeliveryStreamBufferingHints+  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCloudWatchLoggingOptions :: Maybe KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions+  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCompressionFormat :: Val Text+  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationEncryptionConfiguration :: Maybe KinesisFirehoseDeliveryStreamEncryptionConfiguration+  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationPrefix :: Val Text+  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationProcessingConfiguration :: Maybe KinesisFirehoseDeliveryStreamProcessingConfiguration+  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationRoleARN :: Val Text+  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationS3BackupConfiguration :: Maybe KinesisFirehoseDeliveryStreamS3DestinationConfiguration+  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationS3BackupMode :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration where+  toJSON KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration{..} =+    object $+    catMaybes+    [ (Just . ("BucketARN",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationBucketARN+    , (Just . ("BufferingHints",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationBufferingHints+    , fmap (("CloudWatchLoggingOptions",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCloudWatchLoggingOptions+    , (Just . ("CompressionFormat",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCompressionFormat+    , fmap (("EncryptionConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationEncryptionConfiguration+    , (Just . ("Prefix",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationPrefix+    , fmap (("ProcessingConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationProcessingConfiguration+    , (Just . ("RoleARN",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationRoleARN+    , fmap (("S3BackupConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationS3BackupConfiguration+    , fmap (("S3BackupMode",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationS3BackupMode+    ]++instance FromJSON KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration where+  parseJSON (Object obj) =+    KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration <$>+      (obj .: "BucketARN") <*>+      (obj .: "BufferingHints") <*>+      (obj .:? "CloudWatchLoggingOptions") <*>+      (obj .: "CompressionFormat") <*>+      (obj .:? "EncryptionConfiguration") <*>+      (obj .: "Prefix") <*>+      (obj .:? "ProcessingConfiguration") <*>+      (obj .: "RoleARN") <*>+      (obj .:? "S3BackupConfiguration") <*>+      (obj .:? "S3BackupMode")+  parseJSON _ = mempty++-- | Constructor for+-- 'KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration'+-- containing required fields as arguments.+kinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration+  :: Val Text -- ^ 'kfdsesdcBucketARN'+  -> KinesisFirehoseDeliveryStreamBufferingHints -- ^ 'kfdsesdcBufferingHints'+  -> Val Text -- ^ 'kfdsesdcCompressionFormat'+  -> Val Text -- ^ 'kfdsesdcPrefix'+  -> Val Text -- ^ 'kfdsesdcRoleARN'+  -> KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration+kinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration bucketARNarg bufferingHintsarg compressionFormatarg prefixarg roleARNarg =+  KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration+  { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationBucketARN = bucketARNarg+  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationBufferingHints = bufferingHintsarg+  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCloudWatchLoggingOptions = Nothing+  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCompressionFormat = compressionFormatarg+  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationEncryptionConfiguration = Nothing+  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationPrefix = prefixarg+  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationProcessingConfiguration = Nothing+  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationRoleARN = roleARNarg+  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationS3BackupConfiguration = Nothing+  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationS3BackupMode = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-kinesisdeliverystream-extendeds3destinationconfiguration.html#cfn-kinesisfirehose-kinesisdeliverystream-s3destinationconfiguration-bucketarn+kfdsesdcBucketARN :: Lens' KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration (Val Text)+kfdsesdcBucketARN = lens _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationBucketARN (\s a -> s { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationBucketARN = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-kinesisdeliverystream-extendeds3destinationconfiguration.html#cfn-kinesisfirehose-kinesisdeliverystream-s3destinationconfiguration-bufferinghints+kfdsesdcBufferingHints :: Lens' KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration KinesisFirehoseDeliveryStreamBufferingHints+kfdsesdcBufferingHints = lens _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationBufferingHints (\s a -> s { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationBufferingHints = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-kinesisdeliverystream-extendeds3destinationconfiguration.html#cfn-kinesisfirehose-kinesisdeliverystream-s3destinationconfiguration-cloudwatchloggingoptions+kfdsesdcCloudWatchLoggingOptions :: Lens' KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions)+kfdsesdcCloudWatchLoggingOptions = lens _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCloudWatchLoggingOptions (\s a -> s { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCloudWatchLoggingOptions = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-kinesisdeliverystream-extendeds3destinationconfiguration.html#cfn-kinesisfirehose-kinesisdeliverystream-s3destinationconfiguration-compressionformat+kfdsesdcCompressionFormat :: Lens' KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration (Val Text)+kfdsesdcCompressionFormat = lens _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCompressionFormat (\s a -> s { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCompressionFormat = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-kinesisdeliverystream-extendeds3destinationconfiguration.html#cfn-kinesisfirehose-kinesisdeliverystream-s3destinationconfiguration-encryptionconfiguration+kfdsesdcEncryptionConfiguration :: Lens' KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamEncryptionConfiguration)+kfdsesdcEncryptionConfiguration = lens _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationEncryptionConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationEncryptionConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-kinesisdeliverystream-extendeds3destinationconfiguration.html#cfn-kinesisfirehose-kinesisdeliverystream-s3destinationconfiguration-prefix+kfdsesdcPrefix :: Lens' KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration (Val Text)+kfdsesdcPrefix = lens _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationPrefix (\s a -> s { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationPrefix = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-kinesisdeliverystream-extendeds3destinationconfiguration.html#cfn-kinesisfirehose-kinesisdeliverystream-processingconfiguration+kfdsesdcProcessingConfiguration :: Lens' KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamProcessingConfiguration)+kfdsesdcProcessingConfiguration = lens _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationProcessingConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationProcessingConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-kinesisdeliverystream-extendeds3destinationconfiguration.html#cfn-kinesisfirehose-kinesisdeliverystream-s3destinationconfiguration-rolearn+kfdsesdcRoleARN :: Lens' KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration (Val Text)+kfdsesdcRoleARN = lens _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationRoleARN (\s a -> s { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationRoleARN = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-kinesisdeliverystream-extendeds3destinationconfiguration.html#cfn-kinesisfirehose-kinesisdeliverystream-s3destinationconfiguration+kfdsesdcS3BackupConfiguration :: Lens' KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamS3DestinationConfiguration)+kfdsesdcS3BackupConfiguration = lens _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationS3BackupConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationS3BackupConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-kinesisdeliverystream-extendeds3destinationconfiguration.html#cfn-kinesisfirehose-kinesisdeliverystream-s3backupmode+kfdsesdcS3BackupMode :: Lens' KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration (Maybe (Val Text))+kfdsesdcS3BackupMode = lens _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationS3BackupMode (\s a -> s { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationS3BackupMode = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamProcessingConfiguration.hs view
@@ -0,0 +1,61 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-kinesisdeliverystream-processingconfiguration.html++module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessingConfiguration 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.KinesisFirehoseDeliveryStreamProcessor++-- | Full data type definition for+-- KinesisFirehoseDeliveryStreamProcessingConfiguration. See+-- 'kinesisFirehoseDeliveryStreamProcessingConfiguration' for a more+-- convenient constructor.+data KinesisFirehoseDeliveryStreamProcessingConfiguration =+  KinesisFirehoseDeliveryStreamProcessingConfiguration+  { _kinesisFirehoseDeliveryStreamProcessingConfigurationEnabled :: Val Bool+  , _kinesisFirehoseDeliveryStreamProcessingConfigurationProcessors :: [KinesisFirehoseDeliveryStreamProcessor]+  } deriving (Show, Eq)++instance ToJSON KinesisFirehoseDeliveryStreamProcessingConfiguration where+  toJSON KinesisFirehoseDeliveryStreamProcessingConfiguration{..} =+    object $+    catMaybes+    [ (Just . ("Enabled",) . toJSON . fmap Bool') _kinesisFirehoseDeliveryStreamProcessingConfigurationEnabled+    , (Just . ("Processors",) . toJSON) _kinesisFirehoseDeliveryStreamProcessingConfigurationProcessors+    ]++instance FromJSON KinesisFirehoseDeliveryStreamProcessingConfiguration where+  parseJSON (Object obj) =+    KinesisFirehoseDeliveryStreamProcessingConfiguration <$>+      fmap (fmap unBool') (obj .: "Enabled") <*>+      (obj .: "Processors")+  parseJSON _ = mempty++-- | Constructor for 'KinesisFirehoseDeliveryStreamProcessingConfiguration'+-- containing required fields as arguments.+kinesisFirehoseDeliveryStreamProcessingConfiguration+  :: Val Bool -- ^ 'kfdspcEnabled'+  -> [KinesisFirehoseDeliveryStreamProcessor] -- ^ 'kfdspcProcessors'+  -> KinesisFirehoseDeliveryStreamProcessingConfiguration+kinesisFirehoseDeliveryStreamProcessingConfiguration enabledarg processorsarg =+  KinesisFirehoseDeliveryStreamProcessingConfiguration+  { _kinesisFirehoseDeliveryStreamProcessingConfigurationEnabled = enabledarg+  , _kinesisFirehoseDeliveryStreamProcessingConfigurationProcessors = processorsarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-kinesisdeliverystream-processingconfiguration.html#cfn-kinesisfirehose-kinesisdeliverystream-processingconfiguration-enabled+kfdspcEnabled :: Lens' KinesisFirehoseDeliveryStreamProcessingConfiguration (Val Bool)+kfdspcEnabled = lens _kinesisFirehoseDeliveryStreamProcessingConfigurationEnabled (\s a -> s { _kinesisFirehoseDeliveryStreamProcessingConfigurationEnabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-kinesisdeliverystream-processingconfiguration.html#cfn-kinesisfirehose-kinesisdeliverystream-processingconfiguration-processors+kfdspcProcessors :: Lens' KinesisFirehoseDeliveryStreamProcessingConfiguration [KinesisFirehoseDeliveryStreamProcessor]+kfdspcProcessors = lens _kinesisFirehoseDeliveryStreamProcessingConfigurationProcessors (\s a -> s { _kinesisFirehoseDeliveryStreamProcessingConfigurationProcessors = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamProcessor.hs view
@@ -0,0 +1,60 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-kinesisdeliverystream-processingConfiguration-processor.html++module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessor 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.KinesisFirehoseDeliveryStreamProcessorParameter++-- | Full data type definition for KinesisFirehoseDeliveryStreamProcessor. See+-- 'kinesisFirehoseDeliveryStreamProcessor' for a more convenient+-- constructor.+data KinesisFirehoseDeliveryStreamProcessor =+  KinesisFirehoseDeliveryStreamProcessor+  { _kinesisFirehoseDeliveryStreamProcessorParameters :: [KinesisFirehoseDeliveryStreamProcessorParameter]+  , _kinesisFirehoseDeliveryStreamProcessorType :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisFirehoseDeliveryStreamProcessor where+  toJSON KinesisFirehoseDeliveryStreamProcessor{..} =+    object $+    catMaybes+    [ (Just . ("Parameters",) . toJSON) _kinesisFirehoseDeliveryStreamProcessorParameters+    , (Just . ("Type",) . toJSON) _kinesisFirehoseDeliveryStreamProcessorType+    ]++instance FromJSON KinesisFirehoseDeliveryStreamProcessor where+  parseJSON (Object obj) =+    KinesisFirehoseDeliveryStreamProcessor <$>+      (obj .: "Parameters") <*>+      (obj .: "Type")+  parseJSON _ = mempty++-- | Constructor for 'KinesisFirehoseDeliveryStreamProcessor' containing+-- required fields as arguments.+kinesisFirehoseDeliveryStreamProcessor+  :: [KinesisFirehoseDeliveryStreamProcessorParameter] -- ^ 'kfdspParameters'+  -> Val Text -- ^ 'kfdspType'+  -> KinesisFirehoseDeliveryStreamProcessor+kinesisFirehoseDeliveryStreamProcessor parametersarg typearg =+  KinesisFirehoseDeliveryStreamProcessor+  { _kinesisFirehoseDeliveryStreamProcessorParameters = parametersarg+  , _kinesisFirehoseDeliveryStreamProcessorType = typearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-kinesisdeliverystream-processingConfiguration-processor.html#cfn-kinesisfirehose-kinesisdeliverystream-processingconfiguration-processor-parameter+kfdspParameters :: Lens' KinesisFirehoseDeliveryStreamProcessor [KinesisFirehoseDeliveryStreamProcessorParameter]+kfdspParameters = lens _kinesisFirehoseDeliveryStreamProcessorParameters (\s a -> s { _kinesisFirehoseDeliveryStreamProcessorParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-kinesisdeliverystream-processingConfiguration-processor.html#cfn-kinesisfirehose-kinesisdeliverystream-processingConfiguration-processor-type+kfdspType :: Lens' KinesisFirehoseDeliveryStreamProcessor (Val Text)+kfdspType = lens _kinesisFirehoseDeliveryStreamProcessorType (\s a -> s { _kinesisFirehoseDeliveryStreamProcessorType = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamProcessorParameter.hs view
@@ -0,0 +1,61 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-kinesisdeliverystream-ProcessingConfiguration.html++module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessorParameter 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+-- KinesisFirehoseDeliveryStreamProcessorParameter. See+-- 'kinesisFirehoseDeliveryStreamProcessorParameter' for a more convenient+-- constructor.+data KinesisFirehoseDeliveryStreamProcessorParameter =+  KinesisFirehoseDeliveryStreamProcessorParameter+  { _kinesisFirehoseDeliveryStreamProcessorParameterParameterName :: Val Text+  , _kinesisFirehoseDeliveryStreamProcessorParameterParameterValue :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisFirehoseDeliveryStreamProcessorParameter where+  toJSON KinesisFirehoseDeliveryStreamProcessorParameter{..} =+    object $+    catMaybes+    [ (Just . ("ParameterName",) . toJSON) _kinesisFirehoseDeliveryStreamProcessorParameterParameterName+    , (Just . ("ParameterValue",) . toJSON) _kinesisFirehoseDeliveryStreamProcessorParameterParameterValue+    ]++instance FromJSON KinesisFirehoseDeliveryStreamProcessorParameter where+  parseJSON (Object obj) =+    KinesisFirehoseDeliveryStreamProcessorParameter <$>+      (obj .: "ParameterName") <*>+      (obj .: "ParameterValue")+  parseJSON _ = mempty++-- | Constructor for 'KinesisFirehoseDeliveryStreamProcessorParameter'+-- containing required fields as arguments.+kinesisFirehoseDeliveryStreamProcessorParameter+  :: Val Text -- ^ 'kfdsppParameterName'+  -> Val Text -- ^ 'kfdsppParameterValue'+  -> KinesisFirehoseDeliveryStreamProcessorParameter+kinesisFirehoseDeliveryStreamProcessorParameter parameterNamearg parameterValuearg =+  KinesisFirehoseDeliveryStreamProcessorParameter+  { _kinesisFirehoseDeliveryStreamProcessorParameterParameterName = parameterNamearg+  , _kinesisFirehoseDeliveryStreamProcessorParameterParameterValue = parameterValuearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-kinesisdeliverystream-ProcessingConfiguration.html#cfn-kinesisfirehose-kinesisdeliverystream-processingconfiguration-processor-parameter-parameterName+kfdsppParameterName :: Lens' KinesisFirehoseDeliveryStreamProcessorParameter (Val Text)+kfdsppParameterName = lens _kinesisFirehoseDeliveryStreamProcessorParameterParameterName (\s a -> s { _kinesisFirehoseDeliveryStreamProcessorParameterParameterName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-kinesisdeliverystream-ProcessingConfiguration.html#cfn-kinesisfirehose-kinesisdeliverystream-processingconfiguration-processor-parameter-parameterValue+kfdsppParameterValue :: Lens' KinesisFirehoseDeliveryStreamProcessorParameter (Val Text)+kfdsppParameterValue = lens _kinesisFirehoseDeliveryStreamProcessorParameterParameterValue (\s a -> s { _kinesisFirehoseDeliveryStreamProcessorParameterParameterValue = a })
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration.hs view
@@ -15,6 +15,7 @@ import Stratosphere.Values import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamCopyCommand+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessingConfiguration import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamS3DestinationConfiguration  -- | Full data type definition for@@ -27,6 +28,7 @@   , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationClusterJDBCURL :: Val Text   , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationCopyCommand :: KinesisFirehoseDeliveryStreamCopyCommand   , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationPassword :: Val Text+  , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationProcessingConfiguration :: Maybe KinesisFirehoseDeliveryStreamProcessingConfiguration   , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationRoleARN :: Val Text   , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationS3Configuration :: KinesisFirehoseDeliveryStreamS3DestinationConfiguration   , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationUsername :: Val Text@@ -40,6 +42,7 @@     , (Just . ("ClusterJDBCURL",) . toJSON) _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationClusterJDBCURL     , (Just . ("CopyCommand",) . toJSON) _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationCopyCommand     , (Just . ("Password",) . toJSON) _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationPassword+    , fmap (("ProcessingConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationProcessingConfiguration     , (Just . ("RoleARN",) . toJSON) _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationRoleARN     , (Just . ("S3Configuration",) . toJSON) _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationS3Configuration     , (Just . ("Username",) . toJSON) _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationUsername@@ -52,6 +55,7 @@       (obj .: "ClusterJDBCURL") <*>       (obj .: "CopyCommand") <*>       (obj .: "Password") <*>+      (obj .:? "ProcessingConfiguration") <*>       (obj .: "RoleARN") <*>       (obj .: "S3Configuration") <*>       (obj .: "Username")@@ -74,6 +78,7 @@   , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationClusterJDBCURL = clusterJDBCURLarg   , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationCopyCommand = copyCommandarg   , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationPassword = passwordarg+  , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationProcessingConfiguration = Nothing   , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationRoleARN = roleARNarg   , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationS3Configuration = s3Configurationarg   , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationUsername = usernamearg@@ -94,6 +99,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-kinesisdeliverystream-redshiftdestinationconfiguration.html#cfn-kinesisfirehose-kinesisdeliverystream-redshiftdestinationconfiguration-password kfdsrdcPassword :: Lens' KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration (Val Text) kfdsrdcPassword = lens _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationPassword (\s a -> s { _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationPassword = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-kinesisdeliverystream-redshiftdestinationconfiguration.html#cfn-kinesisfirehose-kinesisdeliverystream-processingconfiguration+kfdsrdcProcessingConfiguration :: Lens' KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamProcessingConfiguration)+kfdsrdcProcessingConfiguration = lens _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationProcessingConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationProcessingConfiguration = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-kinesisdeliverystream-redshiftdestinationconfiguration.html#cfn-kinesisfirehose-kinesisdeliverystream-redshiftdestinationconfiguration-rolearn kfdsrdcRoleARN :: Lens' KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration (Val Text)
+ library-gen/Stratosphere/ResourceProperties/S3BucketAbortIncompleteMultipartUpload.hs view
@@ -0,0 +1,51 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-abortincompletemultipartupload.html++module Stratosphere.ResourceProperties.S3BucketAbortIncompleteMultipartUpload 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 S3BucketAbortIncompleteMultipartUpload. See+-- 's3BucketAbortIncompleteMultipartUpload' for a more convenient+-- constructor.+data S3BucketAbortIncompleteMultipartUpload =+  S3BucketAbortIncompleteMultipartUpload+  { _s3BucketAbortIncompleteMultipartUploadDaysAfterInitiation :: Val Integer+  } deriving (Show, Eq)++instance ToJSON S3BucketAbortIncompleteMultipartUpload where+  toJSON S3BucketAbortIncompleteMultipartUpload{..} =+    object $+    catMaybes+    [ (Just . ("DaysAfterInitiation",) . toJSON . fmap Integer') _s3BucketAbortIncompleteMultipartUploadDaysAfterInitiation+    ]++instance FromJSON S3BucketAbortIncompleteMultipartUpload where+  parseJSON (Object obj) =+    S3BucketAbortIncompleteMultipartUpload <$>+      fmap (fmap unInteger') (obj .: "DaysAfterInitiation")+  parseJSON _ = mempty++-- | Constructor for 'S3BucketAbortIncompleteMultipartUpload' containing+-- required fields as arguments.+s3BucketAbortIncompleteMultipartUpload+  :: Val Integer -- ^ 'sbaimuDaysAfterInitiation'+  -> S3BucketAbortIncompleteMultipartUpload+s3BucketAbortIncompleteMultipartUpload daysAfterInitiationarg =+  S3BucketAbortIncompleteMultipartUpload+  { _s3BucketAbortIncompleteMultipartUploadDaysAfterInitiation = daysAfterInitiationarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-abortincompletemultipartupload.html#cfn-s3-bucket-abortincompletemultipartupload-daysafterinitiation+sbaimuDaysAfterInitiation :: Lens' S3BucketAbortIncompleteMultipartUpload (Val Integer)+sbaimuDaysAfterInitiation = lens _s3BucketAbortIncompleteMultipartUploadDaysAfterInitiation (\s a -> s { _s3BucketAbortIncompleteMultipartUploadDaysAfterInitiation = a })
+ library-gen/Stratosphere/ResourceProperties/S3BucketAccelerateConfiguration.hs view
@@ -0,0 +1,50 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-accelerateconfiguration.html++module Stratosphere.ResourceProperties.S3BucketAccelerateConfiguration 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 S3BucketAccelerateConfiguration. See+-- 's3BucketAccelerateConfiguration' for a more convenient constructor.+data S3BucketAccelerateConfiguration =+  S3BucketAccelerateConfiguration+  { _s3BucketAccelerateConfigurationAccelerationStatus :: Val Text+  } deriving (Show, Eq)++instance ToJSON S3BucketAccelerateConfiguration where+  toJSON S3BucketAccelerateConfiguration{..} =+    object $+    catMaybes+    [ (Just . ("AccelerationStatus",) . toJSON) _s3BucketAccelerateConfigurationAccelerationStatus+    ]++instance FromJSON S3BucketAccelerateConfiguration where+  parseJSON (Object obj) =+    S3BucketAccelerateConfiguration <$>+      (obj .: "AccelerationStatus")+  parseJSON _ = mempty++-- | Constructor for 'S3BucketAccelerateConfiguration' containing required+-- fields as arguments.+s3BucketAccelerateConfiguration+  :: Val Text -- ^ 'sbacAccelerationStatus'+  -> S3BucketAccelerateConfiguration+s3BucketAccelerateConfiguration accelerationStatusarg =+  S3BucketAccelerateConfiguration+  { _s3BucketAccelerateConfigurationAccelerationStatus = accelerationStatusarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-accelerateconfiguration.html#cfn-s3-bucket-accelerateconfiguration-accelerationstatus+sbacAccelerationStatus :: Lens' S3BucketAccelerateConfiguration (Val Text)+sbacAccelerationStatus = lens _s3BucketAccelerateConfigurationAccelerationStatus (\s a -> s { _s3BucketAccelerateConfigurationAccelerationStatus = a })
library-gen/Stratosphere/ResourceProperties/S3BucketRule.hs view
@@ -13,30 +13,35 @@ import Data.Text  import Stratosphere.Values+import Stratosphere.ResourceProperties.S3BucketAbortIncompleteMultipartUpload import Stratosphere.ResourceProperties.S3BucketNoncurrentVersionTransition+import Stratosphere.ResourceProperties.S3BucketTagFilter import Stratosphere.ResourceProperties.S3BucketTransition  -- | Full data type definition for S3BucketRule. See 's3BucketRule' for a more -- convenient constructor. data S3BucketRule =   S3BucketRule-  { _s3BucketRuleExpirationDate :: Maybe (Val Text)+  { _s3BucketRuleAbortIncompleteMultipartUpload :: Maybe S3BucketAbortIncompleteMultipartUpload+  , _s3BucketRuleExpirationDate :: Maybe (Val Text)   , _s3BucketRuleExpirationInDays :: Maybe (Val Integer)   , _s3BucketRuleId :: Maybe (Val Text)   , _s3BucketRuleNoncurrentVersionExpirationInDays :: Maybe (Val Integer)   , _s3BucketRuleNoncurrentVersionTransition :: Maybe S3BucketNoncurrentVersionTransition-  , _s3BucketRuleNoncurrentVersionTransitions :: Maybe S3BucketNoncurrentVersionTransition+  , _s3BucketRuleNoncurrentVersionTransitions :: Maybe [S3BucketNoncurrentVersionTransition]   , _s3BucketRulePrefix :: Maybe (Val Text)   , _s3BucketRuleStatus :: Val Text+  , _s3BucketRuleTagFilters :: Maybe [S3BucketTagFilter]   , _s3BucketRuleTransition :: Maybe S3BucketTransition-  , _s3BucketRuleTransitions :: Maybe S3BucketTransition+  , _s3BucketRuleTransitions :: Maybe [S3BucketTransition]   } deriving (Show, Eq)  instance ToJSON S3BucketRule where   toJSON S3BucketRule{..} =     object $     catMaybes-    [ fmap (("ExpirationDate",) . toJSON) _s3BucketRuleExpirationDate+    [ fmap (("AbortIncompleteMultipartUpload",) . toJSON) _s3BucketRuleAbortIncompleteMultipartUpload+    , fmap (("ExpirationDate",) . toJSON) _s3BucketRuleExpirationDate     , fmap (("ExpirationInDays",) . toJSON . fmap Integer') _s3BucketRuleExpirationInDays     , fmap (("Id",) . toJSON) _s3BucketRuleId     , fmap (("NoncurrentVersionExpirationInDays",) . toJSON . fmap Integer') _s3BucketRuleNoncurrentVersionExpirationInDays@@ -44,6 +49,7 @@     , fmap (("NoncurrentVersionTransitions",) . toJSON) _s3BucketRuleNoncurrentVersionTransitions     , fmap (("Prefix",) . toJSON) _s3BucketRulePrefix     , (Just . ("Status",) . toJSON) _s3BucketRuleStatus+    , fmap (("TagFilters",) . toJSON) _s3BucketRuleTagFilters     , fmap (("Transition",) . toJSON) _s3BucketRuleTransition     , fmap (("Transitions",) . toJSON) _s3BucketRuleTransitions     ]@@ -51,6 +57,7 @@ instance FromJSON S3BucketRule where   parseJSON (Object obj) =     S3BucketRule <$>+      (obj .:? "AbortIncompleteMultipartUpload") <*>       (obj .:? "ExpirationDate") <*>       fmap (fmap (fmap unInteger')) (obj .:? "ExpirationInDays") <*>       (obj .:? "Id") <*>@@ -59,6 +66,7 @@       (obj .:? "NoncurrentVersionTransitions") <*>       (obj .:? "Prefix") <*>       (obj .: "Status") <*>+      (obj .:? "TagFilters") <*>       (obj .:? "Transition") <*>       (obj .:? "Transitions")   parseJSON _ = mempty@@ -69,7 +77,8 @@   -> S3BucketRule s3BucketRule statusarg =   S3BucketRule-  { _s3BucketRuleExpirationDate = Nothing+  { _s3BucketRuleAbortIncompleteMultipartUpload = Nothing+  , _s3BucketRuleExpirationDate = Nothing   , _s3BucketRuleExpirationInDays = Nothing   , _s3BucketRuleId = Nothing   , _s3BucketRuleNoncurrentVersionExpirationInDays = Nothing@@ -77,10 +86,15 @@   , _s3BucketRuleNoncurrentVersionTransitions = Nothing   , _s3BucketRulePrefix = Nothing   , _s3BucketRuleStatus = statusarg+  , _s3BucketRuleTagFilters = Nothing   , _s3BucketRuleTransition = Nothing   , _s3BucketRuleTransitions = Nothing   } +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-lifecycleconfig-rule.html#cfn-s3-bucket-rule-abortincompletemultipartupload+sbrAbortIncompleteMultipartUpload :: Lens' S3BucketRule (Maybe S3BucketAbortIncompleteMultipartUpload)+sbrAbortIncompleteMultipartUpload = lens _s3BucketRuleAbortIncompleteMultipartUpload (\s a -> s { _s3BucketRuleAbortIncompleteMultipartUpload = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-lifecycleconfig-rule.html#cfn-s3-bucket-lifecycleconfig-rule-expirationdate sbrExpirationDate :: Lens' S3BucketRule (Maybe (Val Text)) sbrExpirationDate = lens _s3BucketRuleExpirationDate (\s a -> s { _s3BucketRuleExpirationDate = a })@@ -102,7 +116,7 @@ sbrNoncurrentVersionTransition = lens _s3BucketRuleNoncurrentVersionTransition (\s a -> s { _s3BucketRuleNoncurrentVersionTransition = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-lifecycleconfig-rule.html#cfn-s3-bucket-lifecycleconfig-rule-noncurrentversiontransitions-sbrNoncurrentVersionTransitions :: Lens' S3BucketRule (Maybe S3BucketNoncurrentVersionTransition)+sbrNoncurrentVersionTransitions :: Lens' S3BucketRule (Maybe [S3BucketNoncurrentVersionTransition]) sbrNoncurrentVersionTransitions = lens _s3BucketRuleNoncurrentVersionTransitions (\s a -> s { _s3BucketRuleNoncurrentVersionTransitions = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-lifecycleconfig-rule.html#cfn-s3-bucket-lifecycleconfig-rule-prefix@@ -113,10 +127,14 @@ sbrStatus :: Lens' S3BucketRule (Val Text) sbrStatus = lens _s3BucketRuleStatus (\s a -> s { _s3BucketRuleStatus = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-lifecycleconfig-rule.html#cfn-s3-bucket-rule-tagfilters+sbrTagFilters :: Lens' S3BucketRule (Maybe [S3BucketTagFilter])+sbrTagFilters = lens _s3BucketRuleTagFilters (\s a -> s { _s3BucketRuleTagFilters = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-lifecycleconfig-rule.html#cfn-s3-bucket-lifecycleconfig-rule-transition sbrTransition :: Lens' S3BucketRule (Maybe S3BucketTransition) sbrTransition = lens _s3BucketRuleTransition (\s a -> s { _s3BucketRuleTransition = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-lifecycleconfig-rule.html#cfn-s3-bucket-lifecycleconfig-rule-transitions-sbrTransitions :: Lens' S3BucketRule (Maybe S3BucketTransition)+sbrTransitions :: Lens' S3BucketRule (Maybe [S3BucketTransition]) sbrTransitions = lens _s3BucketRuleTransitions (\s a -> s { _s3BucketRuleTransitions = a })
+ library-gen/Stratosphere/ResourceProperties/S3BucketTagFilter.hs view
@@ -0,0 +1,59 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-tagfilter.html++module Stratosphere.ResourceProperties.S3BucketTagFilter 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 S3BucketTagFilter. See 's3BucketTagFilter'+-- for a more convenient constructor.+data S3BucketTagFilter =+  S3BucketTagFilter+  { _s3BucketTagFilterKey :: Val Text+  , _s3BucketTagFilterValue :: Val Text+  } deriving (Show, Eq)++instance ToJSON S3BucketTagFilter where+  toJSON S3BucketTagFilter{..} =+    object $+    catMaybes+    [ (Just . ("Key",) . toJSON) _s3BucketTagFilterKey+    , (Just . ("Value",) . toJSON) _s3BucketTagFilterValue+    ]++instance FromJSON S3BucketTagFilter where+  parseJSON (Object obj) =+    S3BucketTagFilter <$>+      (obj .: "Key") <*>+      (obj .: "Value")+  parseJSON _ = mempty++-- | Constructor for 'S3BucketTagFilter' containing required fields as+-- arguments.+s3BucketTagFilter+  :: Val Text -- ^ 'sbtfKey'+  -> Val Text -- ^ 'sbtfValue'+  -> S3BucketTagFilter+s3BucketTagFilter keyarg valuearg =+  S3BucketTagFilter+  { _s3BucketTagFilterKey = keyarg+  , _s3BucketTagFilterValue = valuearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-tagfilter.html#cfn-s3-bucket-tagfilter-key+sbtfKey :: Lens' S3BucketTagFilter (Val Text)+sbtfKey = lens _s3BucketTagFilterKey (\s a -> s { _s3BucketTagFilterKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-tagfilter.html#cfn-s3-bucket-tagfilter-value+sbtfValue :: Lens' S3BucketTagFilter (Val Text)+sbtfValue = lens _s3BucketTagFilterValue (\s a -> s { _s3BucketTagFilterValue = a })
library-gen/Stratosphere/Resources.hs view
@@ -51,9 +51,12 @@ import Stratosphere.Resources.ApiGatewayBasePathMapping as X import Stratosphere.Resources.ApiGatewayClientCertificate as X import Stratosphere.Resources.ApiGatewayDeployment as X+import Stratosphere.Resources.ApiGatewayDocumentationPart as X+import Stratosphere.Resources.ApiGatewayDocumentationVersion as X import Stratosphere.Resources.ApiGatewayDomainName as X import Stratosphere.Resources.ApiGatewayMethod as X import Stratosphere.Resources.ApiGatewayModel as X+import Stratosphere.Resources.ApiGatewayRequestValidator as X import Stratosphere.Resources.ApiGatewayResource as X import Stratosphere.Resources.ApiGatewayRestApi as X import Stratosphere.Resources.ApiGatewayStage as X@@ -189,6 +192,9 @@ import Stratosphere.Resources.KMSAlias as X import Stratosphere.Resources.KMSKey as X import Stratosphere.Resources.KinesisStream as X+import Stratosphere.Resources.KinesisAnalyticsApplication as X+import Stratosphere.Resources.KinesisAnalyticsApplicationOutput as X+import Stratosphere.Resources.KinesisAnalyticsApplicationReferenceDataSource as X import Stratosphere.Resources.KinesisFirehoseDeliveryStream as X import Stratosphere.Resources.LambdaAlias as X import Stratosphere.Resources.LambdaEventSourceMapping as X@@ -257,6 +263,7 @@ import Stratosphere.ResourceProperties.ApiGatewayApiKeyStageKey as X import Stratosphere.ResourceProperties.ApiGatewayDeploymentMethodSetting as X import Stratosphere.ResourceProperties.ApiGatewayDeploymentStageDescription as X+import Stratosphere.ResourceProperties.ApiGatewayDocumentationPartLocation as X import Stratosphere.ResourceProperties.ApiGatewayMethodIntegration as X import Stratosphere.ResourceProperties.ApiGatewayMethodIntegrationResponse as X import Stratosphere.ResourceProperties.ApiGatewayMethodMethodResponse as X@@ -276,7 +283,11 @@ import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupTagProperty as X import Stratosphere.ResourceProperties.AutoScalingLaunchConfigurationBlockDevice as X import Stratosphere.ResourceProperties.AutoScalingLaunchConfigurationBlockDeviceMapping as X+import Stratosphere.ResourceProperties.AutoScalingScalingPolicyCustomizedMetricSpecification as X+import Stratosphere.ResourceProperties.AutoScalingScalingPolicyMetricDimension as X+import Stratosphere.ResourceProperties.AutoScalingScalingPolicyPredefinedMetricSpecification as X import Stratosphere.ResourceProperties.AutoScalingScalingPolicyStepAdjustment as X+import Stratosphere.ResourceProperties.AutoScalingScalingPolicyTargetTrackingConfiguration as X import Stratosphere.ResourceProperties.CertificateManagerCertificateDomainValidationOption as X import Stratosphere.ResourceProperties.CloudFrontDistributionCacheBehavior as X import Stratosphere.ResourceProperties.CloudFrontDistributionCookies as X@@ -292,6 +303,8 @@ import Stratosphere.ResourceProperties.CloudFrontDistributionRestrictions as X import Stratosphere.ResourceProperties.CloudFrontDistributionS3OriginConfig as X import Stratosphere.ResourceProperties.CloudFrontDistributionViewerCertificate as X+import Stratosphere.ResourceProperties.CloudTrailTrailDataResource as X+import Stratosphere.ResourceProperties.CloudTrailTrailEventSelector as X import Stratosphere.ResourceProperties.CloudWatchAlarmDimension as X import Stratosphere.ResourceProperties.CodeBuildProjectArtifacts as X import Stratosphere.ResourceProperties.CodeBuildProjectEnvironment as X@@ -494,6 +507,28 @@ import Stratosphere.ResourceProperties.IoTTopicRuleSnsAction as X import Stratosphere.ResourceProperties.IoTTopicRuleSqsAction as X import Stratosphere.ResourceProperties.IoTTopicRuleTopicRulePayload as X+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationCSVMappingParameters as X+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInput as X+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputParallelism as X+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputSchema as X+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationJSONMappingParameters as X+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationKinesisFirehoseInput as X+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationKinesisStreamsInput as X+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationMappingParameters as X+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationRecordColumn as X+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationRecordFormat as X+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationOutputDestinationSchema as X+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationOutputKinesisFirehoseOutput as X+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationOutputKinesisStreamsOutput as X+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationOutputOutput as X+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters as X+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters as X+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceMappingParameters as X+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceRecordColumn as X+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceRecordFormat as X+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource as X+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema as X+import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamBufferingHints as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamCopyCommand as X@@ -501,7 +536,11 @@ import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamElasticsearchRetryOptions as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamEncryptionConfiguration as X+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamKMSEncryptionConfig as X+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessingConfiguration as X+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessor as X+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessorParameter as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamS3DestinationConfiguration as X import Stratosphere.ResourceProperties.LambdaFunctionCode as X@@ -544,6 +583,8 @@ import Stratosphere.ResourceProperties.Route53RecordSetGroupAliasTarget as X import Stratosphere.ResourceProperties.Route53RecordSetGroupGeoLocation as X import Stratosphere.ResourceProperties.Route53RecordSetGroupRecordSet as X+import Stratosphere.ResourceProperties.S3BucketAbortIncompleteMultipartUpload as X+import Stratosphere.ResourceProperties.S3BucketAccelerateConfiguration as X import Stratosphere.ResourceProperties.S3BucketCorsConfiguration as X import Stratosphere.ResourceProperties.S3BucketCorsRule as X import Stratosphere.ResourceProperties.S3BucketFilterRule as X@@ -563,6 +604,7 @@ import Stratosphere.ResourceProperties.S3BucketRoutingRuleCondition as X import Stratosphere.ResourceProperties.S3BucketRule as X import Stratosphere.ResourceProperties.S3BucketS3KeyFilter as X+import Stratosphere.ResourceProperties.S3BucketTagFilter as X import Stratosphere.ResourceProperties.S3BucketTopicConfiguration as X import Stratosphere.ResourceProperties.S3BucketTransition as X import Stratosphere.ResourceProperties.S3BucketVersioningConfiguration as X@@ -612,9 +654,12 @@   | ApiGatewayBasePathMappingProperties ApiGatewayBasePathMapping   | ApiGatewayClientCertificateProperties ApiGatewayClientCertificate   | ApiGatewayDeploymentProperties ApiGatewayDeployment+  | ApiGatewayDocumentationPartProperties ApiGatewayDocumentationPart+  | ApiGatewayDocumentationVersionProperties ApiGatewayDocumentationVersion   | ApiGatewayDomainNameProperties ApiGatewayDomainName   | ApiGatewayMethodProperties ApiGatewayMethod   | ApiGatewayModelProperties ApiGatewayModel+  | ApiGatewayRequestValidatorProperties ApiGatewayRequestValidator   | ApiGatewayResourceProperties ApiGatewayResource   | ApiGatewayRestApiProperties ApiGatewayRestApi   | ApiGatewayStageProperties ApiGatewayStage@@ -750,6 +795,9 @@   | KMSAliasProperties KMSAlias   | KMSKeyProperties KMSKey   | KinesisStreamProperties KinesisStream+  | KinesisAnalyticsApplicationProperties KinesisAnalyticsApplication+  | KinesisAnalyticsApplicationOutputProperties KinesisAnalyticsApplicationOutput+  | KinesisAnalyticsApplicationReferenceDataSourceProperties KinesisAnalyticsApplicationReferenceDataSource   | KinesisFirehoseDeliveryStreamProperties KinesisFirehoseDeliveryStream   | LambdaAliasProperties LambdaAlias   | LambdaEventSourceMappingProperties LambdaEventSourceMapping@@ -879,12 +927,18 @@   [ "Type" .= ("AWS::ApiGateway::ClientCertificate" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (ApiGatewayDeploymentProperties x) =   [ "Type" .= ("AWS::ApiGateway::Deployment" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (ApiGatewayDocumentationPartProperties x) =+  [ "Type" .= ("AWS::ApiGateway::DocumentationPart" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (ApiGatewayDocumentationVersionProperties x) =+  [ "Type" .= ("AWS::ApiGateway::DocumentationVersion" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (ApiGatewayDomainNameProperties x) =   [ "Type" .= ("AWS::ApiGateway::DomainName" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (ApiGatewayMethodProperties x) =   [ "Type" .= ("AWS::ApiGateway::Method" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (ApiGatewayModelProperties x) =   [ "Type" .= ("AWS::ApiGateway::Model" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (ApiGatewayRequestValidatorProperties x) =+  [ "Type" .= ("AWS::ApiGateway::RequestValidator" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (ApiGatewayResourceProperties x) =   [ "Type" .= ("AWS::ApiGateway::Resource" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (ApiGatewayRestApiProperties x) =@@ -1155,6 +1209,12 @@   [ "Type" .= ("AWS::KMS::Key" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (KinesisStreamProperties x) =   [ "Type" .= ("AWS::Kinesis::Stream" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (KinesisAnalyticsApplicationProperties x) =+  [ "Type" .= ("AWS::KinesisAnalytics::Application" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (KinesisAnalyticsApplicationOutputProperties x) =+  [ "Type" .= ("AWS::KinesisAnalytics::ApplicationOutput" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (KinesisAnalyticsApplicationReferenceDataSourceProperties x) =+  [ "Type" .= ("AWS::KinesisAnalytics::ApplicationReferenceDataSource" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (KinesisFirehoseDeliveryStreamProperties x) =   [ "Type" .= ("AWS::KinesisFirehose::DeliveryStream" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (LambdaAliasProperties x) =@@ -1297,9 +1357,12 @@          "AWS::ApiGateway::BasePathMapping" -> ApiGatewayBasePathMappingProperties <$> (o .: "Properties")          "AWS::ApiGateway::ClientCertificate" -> ApiGatewayClientCertificateProperties <$> (o .: "Properties")          "AWS::ApiGateway::Deployment" -> ApiGatewayDeploymentProperties <$> (o .: "Properties")+         "AWS::ApiGateway::DocumentationPart" -> ApiGatewayDocumentationPartProperties <$> (o .: "Properties")+         "AWS::ApiGateway::DocumentationVersion" -> ApiGatewayDocumentationVersionProperties <$> (o .: "Properties")          "AWS::ApiGateway::DomainName" -> ApiGatewayDomainNameProperties <$> (o .: "Properties")          "AWS::ApiGateway::Method" -> ApiGatewayMethodProperties <$> (o .: "Properties")          "AWS::ApiGateway::Model" -> ApiGatewayModelProperties <$> (o .: "Properties")+         "AWS::ApiGateway::RequestValidator" -> ApiGatewayRequestValidatorProperties <$> (o .: "Properties")          "AWS::ApiGateway::Resource" -> ApiGatewayResourceProperties <$> (o .: "Properties")          "AWS::ApiGateway::RestApi" -> ApiGatewayRestApiProperties <$> (o .: "Properties")          "AWS::ApiGateway::Stage" -> ApiGatewayStageProperties <$> (o .: "Properties")@@ -1435,6 +1498,9 @@          "AWS::KMS::Alias" -> KMSAliasProperties <$> (o .: "Properties")          "AWS::KMS::Key" -> KMSKeyProperties <$> (o .: "Properties")          "AWS::Kinesis::Stream" -> KinesisStreamProperties <$> (o .: "Properties")+         "AWS::KinesisAnalytics::Application" -> KinesisAnalyticsApplicationProperties <$> (o .: "Properties")+         "AWS::KinesisAnalytics::ApplicationOutput" -> KinesisAnalyticsApplicationOutputProperties <$> (o .: "Properties")+         "AWS::KinesisAnalytics::ApplicationReferenceDataSource" -> KinesisAnalyticsApplicationReferenceDataSourceProperties <$> (o .: "Properties")          "AWS::KinesisFirehose::DeliveryStream" -> KinesisFirehoseDeliveryStreamProperties <$> (o .: "Properties")          "AWS::Lambda::Alias" -> LambdaAliasProperties <$> (o .: "Properties")          "AWS::Lambda::EventSourceMapping" -> LambdaEventSourceMappingProperties <$> (o .: "Properties")
library-gen/Stratosphere/Resources/ApiGatewayAuthorizer.hs view
@@ -26,7 +26,7 @@   , _apiGatewayAuthorizerIdentityValidationExpression :: Maybe (Val Text)   , _apiGatewayAuthorizerName :: Maybe (Val Text)   , _apiGatewayAuthorizerProviderARNs :: Maybe (ValList Text)-  , _apiGatewayAuthorizerRestApiId :: Maybe (Val Text)+  , _apiGatewayAuthorizerRestApiId :: Val Text   , _apiGatewayAuthorizerType :: Maybe (Val AuthorizerType)   } deriving (Show, Eq) @@ -41,7 +41,7 @@     , fmap (("IdentityValidationExpression",) . toJSON) _apiGatewayAuthorizerIdentityValidationExpression     , fmap (("Name",) . toJSON) _apiGatewayAuthorizerName     , fmap (("ProviderARNs",) . toJSON) _apiGatewayAuthorizerProviderARNs-    , fmap (("RestApiId",) . toJSON) _apiGatewayAuthorizerRestApiId+    , (Just . ("RestApiId",) . toJSON) _apiGatewayAuthorizerRestApiId     , fmap (("Type",) . toJSON) _apiGatewayAuthorizerType     ] @@ -55,15 +55,16 @@       (obj .:? "IdentityValidationExpression") <*>       (obj .:? "Name") <*>       (obj .:? "ProviderARNs") <*>-      (obj .:? "RestApiId") <*>+      (obj .: "RestApiId") <*>       (obj .:? "Type")   parseJSON _ = mempty  -- | Constructor for 'ApiGatewayAuthorizer' containing required fields as -- arguments. apiGatewayAuthorizer-  :: ApiGatewayAuthorizer-apiGatewayAuthorizer  =+  :: Val Text -- ^ 'agaRestApiId'+  -> ApiGatewayAuthorizer+apiGatewayAuthorizer restApiIdarg =   ApiGatewayAuthorizer   { _apiGatewayAuthorizerAuthorizerCredentials = Nothing   , _apiGatewayAuthorizerAuthorizerResultTtlInSeconds = Nothing@@ -72,7 +73,7 @@   , _apiGatewayAuthorizerIdentityValidationExpression = Nothing   , _apiGatewayAuthorizerName = Nothing   , _apiGatewayAuthorizerProviderARNs = Nothing-  , _apiGatewayAuthorizerRestApiId = Nothing+  , _apiGatewayAuthorizerRestApiId = restApiIdarg   , _apiGatewayAuthorizerType = Nothing   } @@ -105,7 +106,7 @@ agaProviderARNs = lens _apiGatewayAuthorizerProviderARNs (\s a -> s { _apiGatewayAuthorizerProviderARNs = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-authorizer.html#cfn-apigateway-authorizer-restapiid-agaRestApiId :: Lens' ApiGatewayAuthorizer (Maybe (Val Text))+agaRestApiId :: Lens' ApiGatewayAuthorizer (Val Text) agaRestApiId = lens _apiGatewayAuthorizerRestApiId (\s a -> s { _apiGatewayAuthorizerRestApiId = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-authorizer.html#cfn-apigateway-authorizer-type
library-gen/Stratosphere/Resources/ApiGatewayBasePathMapping.hs view
@@ -20,7 +20,7 @@ data ApiGatewayBasePathMapping =   ApiGatewayBasePathMapping   { _apiGatewayBasePathMappingBasePath :: Maybe (Val Text)-  , _apiGatewayBasePathMappingDomainName :: Maybe (Val Text)+  , _apiGatewayBasePathMappingDomainName :: Val Text   , _apiGatewayBasePathMappingRestApiId :: Maybe (Val Text)   , _apiGatewayBasePathMappingStage :: Maybe (Val Text)   } deriving (Show, Eq)@@ -30,7 +30,7 @@     object $     catMaybes     [ fmap (("BasePath",) . toJSON) _apiGatewayBasePathMappingBasePath-    , fmap (("DomainName",) . toJSON) _apiGatewayBasePathMappingDomainName+    , (Just . ("DomainName",) . toJSON) _apiGatewayBasePathMappingDomainName     , fmap (("RestApiId",) . toJSON) _apiGatewayBasePathMappingRestApiId     , fmap (("Stage",) . toJSON) _apiGatewayBasePathMappingStage     ]@@ -39,7 +39,7 @@   parseJSON (Object obj) =     ApiGatewayBasePathMapping <$>       (obj .:? "BasePath") <*>-      (obj .:? "DomainName") <*>+      (obj .: "DomainName") <*>       (obj .:? "RestApiId") <*>       (obj .:? "Stage")   parseJSON _ = mempty@@ -47,11 +47,12 @@ -- | Constructor for 'ApiGatewayBasePathMapping' containing required fields as -- arguments. apiGatewayBasePathMapping-  :: ApiGatewayBasePathMapping-apiGatewayBasePathMapping  =+  :: Val Text -- ^ 'agbpmDomainName'+  -> ApiGatewayBasePathMapping+apiGatewayBasePathMapping domainNamearg =   ApiGatewayBasePathMapping   { _apiGatewayBasePathMappingBasePath = Nothing-  , _apiGatewayBasePathMappingDomainName = Nothing+  , _apiGatewayBasePathMappingDomainName = domainNamearg   , _apiGatewayBasePathMappingRestApiId = Nothing   , _apiGatewayBasePathMappingStage = Nothing   }@@ -61,7 +62,7 @@ agbpmBasePath = lens _apiGatewayBasePathMappingBasePath (\s a -> s { _apiGatewayBasePathMappingBasePath = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-basepathmapping.html#cfn-apigateway-basepathmapping-domainname-agbpmDomainName :: Lens' ApiGatewayBasePathMapping (Maybe (Val Text))+agbpmDomainName :: Lens' ApiGatewayBasePathMapping (Val Text) agbpmDomainName = lens _apiGatewayBasePathMappingDomainName (\s a -> s { _apiGatewayBasePathMappingDomainName = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-basepathmapping.html#cfn-apigateway-basepathmapping-restapiid
+ library-gen/Stratosphere/Resources/ApiGatewayDocumentationPart.hs view
@@ -0,0 +1,68 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-documentationpart.html++module Stratosphere.Resources.ApiGatewayDocumentationPart 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.ApiGatewayDocumentationPartLocation++-- | Full data type definition for ApiGatewayDocumentationPart. See+-- 'apiGatewayDocumentationPart' for a more convenient constructor.+data ApiGatewayDocumentationPart =+  ApiGatewayDocumentationPart+  { _apiGatewayDocumentationPartLocation :: ApiGatewayDocumentationPartLocation+  , _apiGatewayDocumentationPartProperties :: Val Text+  , _apiGatewayDocumentationPartRestApiId :: Val Text+  } deriving (Show, Eq)++instance ToJSON ApiGatewayDocumentationPart where+  toJSON ApiGatewayDocumentationPart{..} =+    object $+    catMaybes+    [ (Just . ("Location",) . toJSON) _apiGatewayDocumentationPartLocation+    , (Just . ("Properties",) . toJSON) _apiGatewayDocumentationPartProperties+    , (Just . ("RestApiId",) . toJSON) _apiGatewayDocumentationPartRestApiId+    ]++instance FromJSON ApiGatewayDocumentationPart where+  parseJSON (Object obj) =+    ApiGatewayDocumentationPart <$>+      (obj .: "Location") <*>+      (obj .: "Properties") <*>+      (obj .: "RestApiId")+  parseJSON _ = mempty++-- | Constructor for 'ApiGatewayDocumentationPart' containing required fields+-- as arguments.+apiGatewayDocumentationPart+  :: ApiGatewayDocumentationPartLocation -- ^ 'agdpLocation'+  -> Val Text -- ^ 'agdpProperties'+  -> Val Text -- ^ 'agdpRestApiId'+  -> ApiGatewayDocumentationPart+apiGatewayDocumentationPart locationarg propertiesarg restApiIdarg =+  ApiGatewayDocumentationPart+  { _apiGatewayDocumentationPartLocation = locationarg+  , _apiGatewayDocumentationPartProperties = propertiesarg+  , _apiGatewayDocumentationPartRestApiId = restApiIdarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-documentationpart.html#cfn-apigateway-documentationpart-location+agdpLocation :: Lens' ApiGatewayDocumentationPart ApiGatewayDocumentationPartLocation+agdpLocation = lens _apiGatewayDocumentationPartLocation (\s a -> s { _apiGatewayDocumentationPartLocation = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-documentationpart.html#cfn-apigateway-documentationpart-properties+agdpProperties :: Lens' ApiGatewayDocumentationPart (Val Text)+agdpProperties = lens _apiGatewayDocumentationPartProperties (\s a -> s { _apiGatewayDocumentationPartProperties = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-documentationpart.html#cfn-apigateway-documentationpart-restapiid+agdpRestApiId :: Lens' ApiGatewayDocumentationPart (Val Text)+agdpRestApiId = lens _apiGatewayDocumentationPartRestApiId (\s a -> s { _apiGatewayDocumentationPartRestApiId = a })
+ library-gen/Stratosphere/Resources/ApiGatewayDocumentationVersion.hs view
@@ -0,0 +1,67 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-documentationversion.html++module Stratosphere.Resources.ApiGatewayDocumentationVersion 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 ApiGatewayDocumentationVersion. See+-- 'apiGatewayDocumentationVersion' for a more convenient constructor.+data ApiGatewayDocumentationVersion =+  ApiGatewayDocumentationVersion+  { _apiGatewayDocumentationVersionDescription :: Maybe (Val Text)+  , _apiGatewayDocumentationVersionDocumentationVersion :: Val Text+  , _apiGatewayDocumentationVersionRestApiId :: Val Text+  } deriving (Show, Eq)++instance ToJSON ApiGatewayDocumentationVersion where+  toJSON ApiGatewayDocumentationVersion{..} =+    object $+    catMaybes+    [ fmap (("Description",) . toJSON) _apiGatewayDocumentationVersionDescription+    , (Just . ("DocumentationVersion",) . toJSON) _apiGatewayDocumentationVersionDocumentationVersion+    , (Just . ("RestApiId",) . toJSON) _apiGatewayDocumentationVersionRestApiId+    ]++instance FromJSON ApiGatewayDocumentationVersion where+  parseJSON (Object obj) =+    ApiGatewayDocumentationVersion <$>+      (obj .:? "Description") <*>+      (obj .: "DocumentationVersion") <*>+      (obj .: "RestApiId")+  parseJSON _ = mempty++-- | Constructor for 'ApiGatewayDocumentationVersion' containing required+-- fields as arguments.+apiGatewayDocumentationVersion+  :: Val Text -- ^ 'agdvDocumentationVersion'+  -> Val Text -- ^ 'agdvRestApiId'+  -> ApiGatewayDocumentationVersion+apiGatewayDocumentationVersion documentationVersionarg restApiIdarg =+  ApiGatewayDocumentationVersion+  { _apiGatewayDocumentationVersionDescription = Nothing+  , _apiGatewayDocumentationVersionDocumentationVersion = documentationVersionarg+  , _apiGatewayDocumentationVersionRestApiId = restApiIdarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-documentationversion.html#cfn-apigateway-documentationversion-description+agdvDescription :: Lens' ApiGatewayDocumentationVersion (Maybe (Val Text))+agdvDescription = lens _apiGatewayDocumentationVersionDescription (\s a -> s { _apiGatewayDocumentationVersionDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-documentationversion.html#cfn-apigateway-documentationversion-documentationversion+agdvDocumentationVersion :: Lens' ApiGatewayDocumentationVersion (Val Text)+agdvDocumentationVersion = lens _apiGatewayDocumentationVersionDocumentationVersion (\s a -> s { _apiGatewayDocumentationVersionDocumentationVersion = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-documentationversion.html#cfn-apigateway-documentationversion-restapiid+agdvRestApiId :: Lens' ApiGatewayDocumentationVersion (Val Text)+agdvRestApiId = lens _apiGatewayDocumentationVersionRestApiId (\s a -> s { _apiGatewayDocumentationVersionRestApiId = a })
library-gen/Stratosphere/Resources/ApiGatewayMethod.hs view
@@ -29,8 +29,8 @@   , _apiGatewayMethodMethodResponses :: Maybe [ApiGatewayMethodMethodResponse]   , _apiGatewayMethodRequestModels :: Maybe Object   , _apiGatewayMethodRequestParameters :: Maybe Object-  , _apiGatewayMethodResourceId :: Maybe (Val Text)-  , _apiGatewayMethodRestApiId :: Maybe (Val Text)+  , _apiGatewayMethodResourceId :: Val Text+  , _apiGatewayMethodRestApiId :: Val Text   } deriving (Show, Eq)  instance ToJSON ApiGatewayMethod where@@ -45,8 +45,8 @@     , fmap (("MethodResponses",) . toJSON) _apiGatewayMethodMethodResponses     , fmap (("RequestModels",) . toJSON) _apiGatewayMethodRequestModels     , fmap (("RequestParameters",) . toJSON) _apiGatewayMethodRequestParameters-    , fmap (("ResourceId",) . toJSON) _apiGatewayMethodResourceId-    , fmap (("RestApiId",) . toJSON) _apiGatewayMethodRestApiId+    , (Just . ("ResourceId",) . toJSON) _apiGatewayMethodResourceId+    , (Just . ("RestApiId",) . toJSON) _apiGatewayMethodRestApiId     ]  instance FromJSON ApiGatewayMethod where@@ -60,16 +60,18 @@       (obj .:? "MethodResponses") <*>       (obj .:? "RequestModels") <*>       (obj .:? "RequestParameters") <*>-      (obj .:? "ResourceId") <*>-      (obj .:? "RestApiId")+      (obj .: "ResourceId") <*>+      (obj .: "RestApiId")   parseJSON _ = mempty  -- | Constructor for 'ApiGatewayMethod' containing required fields as -- arguments. apiGatewayMethod   :: Val HttpMethod -- ^ 'agmeHttpMethod'+  -> Val Text -- ^ 'agmeResourceId'+  -> Val Text -- ^ 'agmeRestApiId'   -> ApiGatewayMethod-apiGatewayMethod httpMethodarg =+apiGatewayMethod httpMethodarg resourceIdarg restApiIdarg =   ApiGatewayMethod   { _apiGatewayMethodApiKeyRequired = Nothing   , _apiGatewayMethodAuthorizationType = Nothing@@ -79,8 +81,8 @@   , _apiGatewayMethodMethodResponses = Nothing   , _apiGatewayMethodRequestModels = Nothing   , _apiGatewayMethodRequestParameters = Nothing-  , _apiGatewayMethodResourceId = Nothing-  , _apiGatewayMethodRestApiId = Nothing+  , _apiGatewayMethodResourceId = resourceIdarg+  , _apiGatewayMethodRestApiId = restApiIdarg   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-method.html#cfn-apigateway-method-apikeyrequired@@ -116,9 +118,9 @@ agmeRequestParameters = lens _apiGatewayMethodRequestParameters (\s a -> s { _apiGatewayMethodRequestParameters = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-method.html#cfn-apigateway-method-resourceid-agmeResourceId :: Lens' ApiGatewayMethod (Maybe (Val Text))+agmeResourceId :: Lens' ApiGatewayMethod (Val Text) agmeResourceId = lens _apiGatewayMethodResourceId (\s a -> s { _apiGatewayMethodResourceId = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-method.html#cfn-apigateway-method-restapiid-agmeRestApiId :: Lens' ApiGatewayMethod (Maybe (Val Text))+agmeRestApiId :: Lens' ApiGatewayMethod (Val Text) agmeRestApiId = lens _apiGatewayMethodRestApiId (\s a -> s { _apiGatewayMethodRestApiId = a })
+ library-gen/Stratosphere/Resources/ApiGatewayRequestValidator.hs view
@@ -0,0 +1,74 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-requestvalidator.html++module Stratosphere.Resources.ApiGatewayRequestValidator 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 ApiGatewayRequestValidator. See+-- 'apiGatewayRequestValidator' for a more convenient constructor.+data ApiGatewayRequestValidator =+  ApiGatewayRequestValidator+  { _apiGatewayRequestValidatorName :: Maybe (Val Text)+  , _apiGatewayRequestValidatorRestApiId :: Val Text+  , _apiGatewayRequestValidatorValidateRequestBody :: Maybe (Val Bool)+  , _apiGatewayRequestValidatorValidateRequestParameters :: Maybe (Val Bool)+  } deriving (Show, Eq)++instance ToJSON ApiGatewayRequestValidator where+  toJSON ApiGatewayRequestValidator{..} =+    object $+    catMaybes+    [ fmap (("Name",) . toJSON) _apiGatewayRequestValidatorName+    , (Just . ("RestApiId",) . toJSON) _apiGatewayRequestValidatorRestApiId+    , fmap (("ValidateRequestBody",) . toJSON . fmap Bool') _apiGatewayRequestValidatorValidateRequestBody+    , fmap (("ValidateRequestParameters",) . toJSON . fmap Bool') _apiGatewayRequestValidatorValidateRequestParameters+    ]++instance FromJSON ApiGatewayRequestValidator where+  parseJSON (Object obj) =+    ApiGatewayRequestValidator <$>+      (obj .:? "Name") <*>+      (obj .: "RestApiId") <*>+      fmap (fmap (fmap unBool')) (obj .:? "ValidateRequestBody") <*>+      fmap (fmap (fmap unBool')) (obj .:? "ValidateRequestParameters")+  parseJSON _ = mempty++-- | Constructor for 'ApiGatewayRequestValidator' containing required fields+-- as arguments.+apiGatewayRequestValidator+  :: Val Text -- ^ 'agrvRestApiId'+  -> ApiGatewayRequestValidator+apiGatewayRequestValidator restApiIdarg =+  ApiGatewayRequestValidator+  { _apiGatewayRequestValidatorName = Nothing+  , _apiGatewayRequestValidatorRestApiId = restApiIdarg+  , _apiGatewayRequestValidatorValidateRequestBody = Nothing+  , _apiGatewayRequestValidatorValidateRequestParameters = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-requestvalidator.html#cfn-apigateway-requestvalidator-name+agrvName :: Lens' ApiGatewayRequestValidator (Maybe (Val Text))+agrvName = lens _apiGatewayRequestValidatorName (\s a -> s { _apiGatewayRequestValidatorName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-requestvalidator.html#cfn-apigateway-requestvalidator-restapiid+agrvRestApiId :: Lens' ApiGatewayRequestValidator (Val Text)+agrvRestApiId = lens _apiGatewayRequestValidatorRestApiId (\s a -> s { _apiGatewayRequestValidatorRestApiId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-requestvalidator.html#cfn-apigateway-requestvalidator-validaterequestbody+agrvValidateRequestBody :: Lens' ApiGatewayRequestValidator (Maybe (Val Bool))+agrvValidateRequestBody = lens _apiGatewayRequestValidatorValidateRequestBody (\s a -> s { _apiGatewayRequestValidatorValidateRequestBody = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-requestvalidator.html#cfn-apigateway-requestvalidator-validaterequestparameters+agrvValidateRequestParameters :: Lens' ApiGatewayRequestValidator (Maybe (Val Bool))+agrvValidateRequestParameters = lens _apiGatewayRequestValidatorValidateRequestParameters (\s a -> s { _apiGatewayRequestValidatorValidateRequestParameters = a })
library-gen/Stratosphere/Resources/ApiGatewayStage.hs view
@@ -24,8 +24,9 @@   , _apiGatewayStageClientCertificateId :: Maybe (Val Text)   , _apiGatewayStageDeploymentId :: Maybe (Val Text)   , _apiGatewayStageDescription :: Maybe (Val Text)+  , _apiGatewayStageDocumentationVersion :: Maybe (Val Text)   , _apiGatewayStageMethodSettings :: Maybe [ApiGatewayStageMethodSetting]-  , _apiGatewayStageRestApiId :: Maybe (Val Text)+  , _apiGatewayStageRestApiId :: Val Text   , _apiGatewayStageStageName :: Maybe (Val Text)   , _apiGatewayStageVariables :: Maybe Object   } deriving (Show, Eq)@@ -39,8 +40,9 @@     , fmap (("ClientCertificateId",) . toJSON) _apiGatewayStageClientCertificateId     , fmap (("DeploymentId",) . toJSON) _apiGatewayStageDeploymentId     , fmap (("Description",) . toJSON) _apiGatewayStageDescription+    , fmap (("DocumentationVersion",) . toJSON) _apiGatewayStageDocumentationVersion     , fmap (("MethodSettings",) . toJSON) _apiGatewayStageMethodSettings-    , fmap (("RestApiId",) . toJSON) _apiGatewayStageRestApiId+    , (Just . ("RestApiId",) . toJSON) _apiGatewayStageRestApiId     , fmap (("StageName",) . toJSON) _apiGatewayStageStageName     , fmap (("Variables",) . toJSON) _apiGatewayStageVariables     ]@@ -53,8 +55,9 @@       (obj .:? "ClientCertificateId") <*>       (obj .:? "DeploymentId") <*>       (obj .:? "Description") <*>+      (obj .:? "DocumentationVersion") <*>       (obj .:? "MethodSettings") <*>-      (obj .:? "RestApiId") <*>+      (obj .: "RestApiId") <*>       (obj .:? "StageName") <*>       (obj .:? "Variables")   parseJSON _ = mempty@@ -62,16 +65,18 @@ -- | Constructor for 'ApiGatewayStage' containing required fields as -- arguments. apiGatewayStage-  :: ApiGatewayStage-apiGatewayStage  =+  :: Val Text -- ^ 'agsRestApiId'+  -> ApiGatewayStage+apiGatewayStage restApiIdarg =   ApiGatewayStage   { _apiGatewayStageCacheClusterEnabled = Nothing   , _apiGatewayStageCacheClusterSize = Nothing   , _apiGatewayStageClientCertificateId = Nothing   , _apiGatewayStageDeploymentId = Nothing   , _apiGatewayStageDescription = Nothing+  , _apiGatewayStageDocumentationVersion = Nothing   , _apiGatewayStageMethodSettings = Nothing-  , _apiGatewayStageRestApiId = Nothing+  , _apiGatewayStageRestApiId = restApiIdarg   , _apiGatewayStageStageName = Nothing   , _apiGatewayStageVariables = Nothing   }@@ -96,12 +101,16 @@ agsDescription :: Lens' ApiGatewayStage (Maybe (Val Text)) agsDescription = lens _apiGatewayStageDescription (\s a -> s { _apiGatewayStageDescription = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-stage.html#cfn-apigateway-stage-documentationversion+agsDocumentationVersion :: Lens' ApiGatewayStage (Maybe (Val Text))+agsDocumentationVersion = lens _apiGatewayStageDocumentationVersion (\s a -> s { _apiGatewayStageDocumentationVersion = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-stage.html#cfn-apigateway-stage-methodsettings agsMethodSettings :: Lens' ApiGatewayStage (Maybe [ApiGatewayStageMethodSetting]) agsMethodSettings = lens _apiGatewayStageMethodSettings (\s a -> s { _apiGatewayStageMethodSettings = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-stage.html#cfn-apigateway-stage-restapiid-agsRestApiId :: Lens' ApiGatewayStage (Maybe (Val Text))+agsRestApiId :: Lens' ApiGatewayStage (Val Text) agsRestApiId = lens _apiGatewayStageRestApiId (\s a -> s { _apiGatewayStageRestApiId = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-stage.html#cfn-apigateway-stage-stagename
library-gen/Stratosphere/Resources/AutoScalingScalingPolicy.hs view
@@ -14,12 +14,13 @@  import Stratosphere.Values import Stratosphere.ResourceProperties.AutoScalingScalingPolicyStepAdjustment+import Stratosphere.ResourceProperties.AutoScalingScalingPolicyTargetTrackingConfiguration  -- | Full data type definition for AutoScalingScalingPolicy. See -- 'autoScalingScalingPolicy' for a more convenient constructor. data AutoScalingScalingPolicy =   AutoScalingScalingPolicy-  { _autoScalingScalingPolicyAdjustmentType :: Val Text+  { _autoScalingScalingPolicyAdjustmentType :: Maybe (Val Text)   , _autoScalingScalingPolicyAutoScalingGroupName :: Val Text   , _autoScalingScalingPolicyCooldown :: Maybe (Val Text)   , _autoScalingScalingPolicyEstimatedInstanceWarmup :: Maybe (Val Integer)@@ -28,13 +29,14 @@   , _autoScalingScalingPolicyPolicyType :: Maybe (Val Text)   , _autoScalingScalingPolicyScalingAdjustment :: Maybe (Val Integer)   , _autoScalingScalingPolicyStepAdjustments :: Maybe [AutoScalingScalingPolicyStepAdjustment]+  , _autoScalingScalingPolicyTargetTrackingConfiguration :: Maybe AutoScalingScalingPolicyTargetTrackingConfiguration   } deriving (Show, Eq)  instance ToJSON AutoScalingScalingPolicy where   toJSON AutoScalingScalingPolicy{..} =     object $     catMaybes-    [ (Just . ("AdjustmentType",) . toJSON) _autoScalingScalingPolicyAdjustmentType+    [ fmap (("AdjustmentType",) . toJSON) _autoScalingScalingPolicyAdjustmentType     , (Just . ("AutoScalingGroupName",) . toJSON) _autoScalingScalingPolicyAutoScalingGroupName     , fmap (("Cooldown",) . toJSON) _autoScalingScalingPolicyCooldown     , fmap (("EstimatedInstanceWarmup",) . toJSON . fmap Integer') _autoScalingScalingPolicyEstimatedInstanceWarmup@@ -43,12 +45,13 @@     , fmap (("PolicyType",) . toJSON) _autoScalingScalingPolicyPolicyType     , fmap (("ScalingAdjustment",) . toJSON . fmap Integer') _autoScalingScalingPolicyScalingAdjustment     , fmap (("StepAdjustments",) . toJSON) _autoScalingScalingPolicyStepAdjustments+    , fmap (("TargetTrackingConfiguration",) . toJSON) _autoScalingScalingPolicyTargetTrackingConfiguration     ]  instance FromJSON AutoScalingScalingPolicy where   parseJSON (Object obj) =     AutoScalingScalingPolicy <$>-      (obj .: "AdjustmentType") <*>+      (obj .:? "AdjustmentType") <*>       (obj .: "AutoScalingGroupName") <*>       (obj .:? "Cooldown") <*>       fmap (fmap (fmap unInteger')) (obj .:? "EstimatedInstanceWarmup") <*>@@ -56,18 +59,18 @@       fmap (fmap (fmap unInteger')) (obj .:? "MinAdjustmentMagnitude") <*>       (obj .:? "PolicyType") <*>       fmap (fmap (fmap unInteger')) (obj .:? "ScalingAdjustment") <*>-      (obj .:? "StepAdjustments")+      (obj .:? "StepAdjustments") <*>+      (obj .:? "TargetTrackingConfiguration")   parseJSON _ = mempty  -- | Constructor for 'AutoScalingScalingPolicy' containing required fields as -- arguments. autoScalingScalingPolicy-  :: Val Text -- ^ 'asspAdjustmentType'-  -> Val Text -- ^ 'asspAutoScalingGroupName'+  :: Val Text -- ^ 'asspAutoScalingGroupName'   -> AutoScalingScalingPolicy-autoScalingScalingPolicy adjustmentTypearg autoScalingGroupNamearg =+autoScalingScalingPolicy autoScalingGroupNamearg =   AutoScalingScalingPolicy-  { _autoScalingScalingPolicyAdjustmentType = adjustmentTypearg+  { _autoScalingScalingPolicyAdjustmentType = Nothing   , _autoScalingScalingPolicyAutoScalingGroupName = autoScalingGroupNamearg   , _autoScalingScalingPolicyCooldown = Nothing   , _autoScalingScalingPolicyEstimatedInstanceWarmup = Nothing@@ -76,10 +79,11 @@   , _autoScalingScalingPolicyPolicyType = Nothing   , _autoScalingScalingPolicyScalingAdjustment = Nothing   , _autoScalingScalingPolicyStepAdjustments = Nothing+  , _autoScalingScalingPolicyTargetTrackingConfiguration = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-policy.html#cfn-as-scalingpolicy-adjustmenttype-asspAdjustmentType :: Lens' AutoScalingScalingPolicy (Val Text)+asspAdjustmentType :: Lens' AutoScalingScalingPolicy (Maybe (Val Text)) asspAdjustmentType = lens _autoScalingScalingPolicyAdjustmentType (\s a -> s { _autoScalingScalingPolicyAdjustmentType = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-policy.html#cfn-as-scalingpolicy-autoscalinggroupname@@ -113,3 +117,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-policy.html#cfn-as-scalingpolicy-stepadjustments asspStepAdjustments :: Lens' AutoScalingScalingPolicy (Maybe [AutoScalingScalingPolicyStepAdjustment]) asspStepAdjustments = lens _autoScalingScalingPolicyStepAdjustments (\s a -> s { _autoScalingScalingPolicyStepAdjustments = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-policy.html#cfn-autoscaling-scalingpolicy-targettrackingconfiguration+asspTargetTrackingConfiguration :: Lens' AutoScalingScalingPolicy (Maybe AutoScalingScalingPolicyTargetTrackingConfiguration)+asspTargetTrackingConfiguration = lens _autoScalingScalingPolicyTargetTrackingConfiguration (\s a -> s { _autoScalingScalingPolicyTargetTrackingConfiguration = a })
library-gen/Stratosphere/Resources/CloudTrailTrail.hs view
@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudtrail-trail.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudtrail-trail.html  module Stratosphere.Resources.CloudTrailTrail where @@ -13,6 +13,7 @@ import Data.Text  import Stratosphere.Values+import Stratosphere.ResourceProperties.CloudTrailTrailEventSelector import Stratosphere.ResourceProperties.Tag  -- | Full data type definition for CloudTrailTrail. See 'cloudTrailTrail' for@@ -22,6 +23,7 @@   { _cloudTrailTrailCloudWatchLogsLogGroupArn :: Maybe (Val Text)   , _cloudTrailTrailCloudWatchLogsRoleArn :: Maybe (Val Text)   , _cloudTrailTrailEnableLogFileValidation :: Maybe (Val Bool)+  , _cloudTrailTrailEventSelectors :: Maybe [CloudTrailTrailEventSelector]   , _cloudTrailTrailIncludeGlobalServiceEvents :: Maybe (Val Bool)   , _cloudTrailTrailIsLogging :: Val Bool   , _cloudTrailTrailIsMultiRegionTrail :: Maybe (Val Bool)@@ -40,6 +42,7 @@     [ fmap (("CloudWatchLogsLogGroupArn",) . toJSON) _cloudTrailTrailCloudWatchLogsLogGroupArn     , fmap (("CloudWatchLogsRoleArn",) . toJSON) _cloudTrailTrailCloudWatchLogsRoleArn     , fmap (("EnableLogFileValidation",) . toJSON . fmap Bool') _cloudTrailTrailEnableLogFileValidation+    , fmap (("EventSelectors",) . toJSON) _cloudTrailTrailEventSelectors     , fmap (("IncludeGlobalServiceEvents",) . toJSON . fmap Bool') _cloudTrailTrailIncludeGlobalServiceEvents     , (Just . ("IsLogging",) . toJSON . fmap Bool') _cloudTrailTrailIsLogging     , fmap (("IsMultiRegionTrail",) . toJSON . fmap Bool') _cloudTrailTrailIsMultiRegionTrail@@ -57,6 +60,7 @@       (obj .:? "CloudWatchLogsLogGroupArn") <*>       (obj .:? "CloudWatchLogsRoleArn") <*>       fmap (fmap (fmap unBool')) (obj .:? "EnableLogFileValidation") <*>+      (obj .:? "EventSelectors") <*>       fmap (fmap (fmap unBool')) (obj .:? "IncludeGlobalServiceEvents") <*>       fmap (fmap unBool') (obj .: "IsLogging") <*>       fmap (fmap (fmap unBool')) (obj .:? "IsMultiRegionTrail") <*>@@ -79,6 +83,7 @@   { _cloudTrailTrailCloudWatchLogsLogGroupArn = Nothing   , _cloudTrailTrailCloudWatchLogsRoleArn = Nothing   , _cloudTrailTrailEnableLogFileValidation = Nothing+  , _cloudTrailTrailEventSelectors = Nothing   , _cloudTrailTrailIncludeGlobalServiceEvents = Nothing   , _cloudTrailTrailIsLogging = isLoggingarg   , _cloudTrailTrailIsMultiRegionTrail = Nothing@@ -90,50 +95,54 @@   , _cloudTrailTrailTrailName = Nothing   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudtrail-trail.html#aws-cloudtrail-trail-cloudwatchlogsloggroupaem+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudtrail-trail.html#cfn-cloudtrail-trail-cloudwatchlogsloggrouparn cttCloudWatchLogsLogGroupArn :: Lens' CloudTrailTrail (Maybe (Val Text)) cttCloudWatchLogsLogGroupArn = lens _cloudTrailTrailCloudWatchLogsLogGroupArn (\s a -> s { _cloudTrailTrailCloudWatchLogsLogGroupArn = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudtrail-trail.html#aws-cloudtrail-trail-cloudwatchlogsrolearn+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudtrail-trail.html#cfn-cloudtrail-trail-cloudwatchlogsrolearn cttCloudWatchLogsRoleArn :: Lens' CloudTrailTrail (Maybe (Val Text)) cttCloudWatchLogsRoleArn = lens _cloudTrailTrailCloudWatchLogsRoleArn (\s a -> s { _cloudTrailTrailCloudWatchLogsRoleArn = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudtrail-trail.html#aws-cloudtrail-trail-enablelogfilevalidation+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudtrail-trail.html#cfn-cloudtrail-trail-enablelogfilevalidation cttEnableLogFileValidation :: Lens' CloudTrailTrail (Maybe (Val Bool)) cttEnableLogFileValidation = lens _cloudTrailTrailEnableLogFileValidation (\s a -> s { _cloudTrailTrailEnableLogFileValidation = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudtrail-trail.html#aws-cloudtrail-trail-includeglobalserviceevents+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudtrail-trail.html#cfn-cloudtrail-trail-eventselectors+cttEventSelectors :: Lens' CloudTrailTrail (Maybe [CloudTrailTrailEventSelector])+cttEventSelectors = lens _cloudTrailTrailEventSelectors (\s a -> s { _cloudTrailTrailEventSelectors = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudtrail-trail.html#cfn-cloudtrail-trail-includeglobalserviceevents cttIncludeGlobalServiceEvents :: Lens' CloudTrailTrail (Maybe (Val Bool)) cttIncludeGlobalServiceEvents = lens _cloudTrailTrailIncludeGlobalServiceEvents (\s a -> s { _cloudTrailTrailIncludeGlobalServiceEvents = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudtrail-trail.html#aws-cloudtrail-trail-islogging+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudtrail-trail.html#cfn-cloudtrail-trail-islogging cttIsLogging :: Lens' CloudTrailTrail (Val Bool) cttIsLogging = lens _cloudTrailTrailIsLogging (\s a -> s { _cloudTrailTrailIsLogging = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudtrail-trail.html#aws-cloudtrail-trail-ismultiregiontrail+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudtrail-trail.html#cfn-cloudtrail-trail-ismultiregiontrail cttIsMultiRegionTrail :: Lens' CloudTrailTrail (Maybe (Val Bool)) cttIsMultiRegionTrail = lens _cloudTrailTrailIsMultiRegionTrail (\s a -> s { _cloudTrailTrailIsMultiRegionTrail = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudtrail-trail.html#aws-cloudtrail-trail-kmskeyid+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudtrail-trail.html#cfn-cloudtrail-trail-kmskeyid cttKMSKeyId :: Lens' CloudTrailTrail (Maybe (Val Text)) cttKMSKeyId = lens _cloudTrailTrailKMSKeyId (\s a -> s { _cloudTrailTrailKMSKeyId = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudtrail-trail.html#aws-cloudtrail-trail-s3bucketname+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudtrail-trail.html#cfn-cloudtrail-trail-s3bucketname cttS3BucketName :: Lens' CloudTrailTrail (Val Text) cttS3BucketName = lens _cloudTrailTrailS3BucketName (\s a -> s { _cloudTrailTrailS3BucketName = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudtrail-trail.html#aws-cloudtrail-trail-s3keyprefix+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudtrail-trail.html#cfn-cloudtrail-trail-s3keyprefix cttS3KeyPrefix :: Lens' CloudTrailTrail (Maybe (Val Text)) cttS3KeyPrefix = lens _cloudTrailTrailS3KeyPrefix (\s a -> s { _cloudTrailTrailS3KeyPrefix = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudtrail-trail.html#aws-cloudtrail-trail-snstopicname+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudtrail-trail.html#cfn-cloudtrail-trail-snstopicname cttSnsTopicName :: Lens' CloudTrailTrail (Maybe (Val Text)) cttSnsTopicName = lens _cloudTrailTrailSnsTopicName (\s a -> s { _cloudTrailTrailSnsTopicName = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudtrail-trail.html#cfn-cloudtrail-trail-tags+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudtrail-trail.html#cfn-cloudtrail-trail-tags cttTags :: Lens' CloudTrailTrail (Maybe [Tag]) cttTags = lens _cloudTrailTrailTags (\s a -> s { _cloudTrailTrailTags = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudtrail-trail.html#aws-cloudtrail-trail-trailname+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudtrail-trail.html#cfn-cloudtrail-trail-trailname cttTrailName :: Lens' CloudTrailTrail (Maybe (Val Text)) cttTrailName = lens _cloudTrailTrailTrailName (\s a -> s { _cloudTrailTrailTrailName = a })
library-gen/Stratosphere/Resources/EC2Subnet.hs view
@@ -19,8 +19,10 @@ -- convenient constructor. data EC2Subnet =   EC2Subnet-  { _eC2SubnetAvailabilityZone :: Maybe (Val Text)+  { _eC2SubnetAssignIpv6AddressOnCreation :: Maybe (Val Bool)+  , _eC2SubnetAvailabilityZone :: Maybe (Val Text)   , _eC2SubnetCidrBlock :: Val Text+  , _eC2SubnetIpv6CidrBlock :: Maybe (Val Text)   , _eC2SubnetMapPublicIpOnLaunch :: Maybe (Val Bool)   , _eC2SubnetTags :: Maybe [Tag]   , _eC2SubnetVpcId :: Val Text@@ -30,8 +32,10 @@   toJSON EC2Subnet{..} =     object $     catMaybes-    [ fmap (("AvailabilityZone",) . toJSON) _eC2SubnetAvailabilityZone+    [ fmap (("AssignIpv6AddressOnCreation",) . toJSON . fmap Bool') _eC2SubnetAssignIpv6AddressOnCreation+    , fmap (("AvailabilityZone",) . toJSON) _eC2SubnetAvailabilityZone     , (Just . ("CidrBlock",) . toJSON) _eC2SubnetCidrBlock+    , fmap (("Ipv6CidrBlock",) . toJSON) _eC2SubnetIpv6CidrBlock     , fmap (("MapPublicIpOnLaunch",) . toJSON . fmap Bool') _eC2SubnetMapPublicIpOnLaunch     , fmap (("Tags",) . toJSON) _eC2SubnetTags     , (Just . ("VpcId",) . toJSON) _eC2SubnetVpcId@@ -40,8 +44,10 @@ instance FromJSON EC2Subnet where   parseJSON (Object obj) =     EC2Subnet <$>+      fmap (fmap (fmap unBool')) (obj .:? "AssignIpv6AddressOnCreation") <*>       (obj .:? "AvailabilityZone") <*>       (obj .: "CidrBlock") <*>+      (obj .:? "Ipv6CidrBlock") <*>       fmap (fmap (fmap unBool')) (obj .:? "MapPublicIpOnLaunch") <*>       (obj .:? "Tags") <*>       (obj .: "VpcId")@@ -54,13 +60,19 @@   -> EC2Subnet ec2Subnet cidrBlockarg vpcIdarg =   EC2Subnet-  { _eC2SubnetAvailabilityZone = Nothing+  { _eC2SubnetAssignIpv6AddressOnCreation = Nothing+  , _eC2SubnetAvailabilityZone = Nothing   , _eC2SubnetCidrBlock = cidrBlockarg+  , _eC2SubnetIpv6CidrBlock = Nothing   , _eC2SubnetMapPublicIpOnLaunch = Nothing   , _eC2SubnetTags = Nothing   , _eC2SubnetVpcId = vpcIdarg   } +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-subnet.html#cfn-ec2-subnet-assignipv6addressoncreation+ecsAssignIpv6AddressOnCreation :: Lens' EC2Subnet (Maybe (Val Bool))+ecsAssignIpv6AddressOnCreation = lens _eC2SubnetAssignIpv6AddressOnCreation (\s a -> s { _eC2SubnetAssignIpv6AddressOnCreation = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-subnet.html#cfn-ec2-subnet-availabilityzone ecsAvailabilityZone :: Lens' EC2Subnet (Maybe (Val Text)) ecsAvailabilityZone = lens _eC2SubnetAvailabilityZone (\s a -> s { _eC2SubnetAvailabilityZone = a })@@ -68,6 +80,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-subnet.html#cfn-ec2-subnet-cidrblock ecsCidrBlock :: Lens' EC2Subnet (Val Text) ecsCidrBlock = lens _eC2SubnetCidrBlock (\s a -> s { _eC2SubnetCidrBlock = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-subnet.html#cfn-ec2-subnet-ipv6cidrblock+ecsIpv6CidrBlock :: Lens' EC2Subnet (Maybe (Val Text))+ecsIpv6CidrBlock = lens _eC2SubnetIpv6CidrBlock (\s a -> s { _eC2SubnetIpv6CidrBlock = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-subnet.html#cfn-ec2-subnet-mappubliciponlaunch ecsMapPublicIpOnLaunch :: Lens' EC2Subnet (Maybe (Val Bool))
+ library-gen/Stratosphere/Resources/KinesisAnalyticsApplication.hs view
@@ -0,0 +1,74 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalytics-application.html++module Stratosphere.Resources.KinesisAnalyticsApplication 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.KinesisAnalyticsApplicationInput++-- | Full data type definition for KinesisAnalyticsApplication. See+-- 'kinesisAnalyticsApplication' for a more convenient constructor.+data KinesisAnalyticsApplication =+  KinesisAnalyticsApplication+  { _kinesisAnalyticsApplicationApplicationCode :: Maybe (Val Text)+  , _kinesisAnalyticsApplicationApplicationDescription :: Maybe (Val Text)+  , _kinesisAnalyticsApplicationApplicationName :: Maybe (Val Text)+  , _kinesisAnalyticsApplicationInputs :: [KinesisAnalyticsApplicationInput]+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsApplication where+  toJSON KinesisAnalyticsApplication{..} =+    object $+    catMaybes+    [ fmap (("ApplicationCode",) . toJSON) _kinesisAnalyticsApplicationApplicationCode+    , fmap (("ApplicationDescription",) . toJSON) _kinesisAnalyticsApplicationApplicationDescription+    , fmap (("ApplicationName",) . toJSON) _kinesisAnalyticsApplicationApplicationName+    , (Just . ("Inputs",) . toJSON) _kinesisAnalyticsApplicationInputs+    ]++instance FromJSON KinesisAnalyticsApplication where+  parseJSON (Object obj) =+    KinesisAnalyticsApplication <$>+      (obj .:? "ApplicationCode") <*>+      (obj .:? "ApplicationDescription") <*>+      (obj .:? "ApplicationName") <*>+      (obj .: "Inputs")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsApplication' containing required fields+-- as arguments.+kinesisAnalyticsApplication+  :: [KinesisAnalyticsApplicationInput] -- ^ 'kaaInputs'+  -> KinesisAnalyticsApplication+kinesisAnalyticsApplication inputsarg =+  KinesisAnalyticsApplication+  { _kinesisAnalyticsApplicationApplicationCode = Nothing+  , _kinesisAnalyticsApplicationApplicationDescription = Nothing+  , _kinesisAnalyticsApplicationApplicationName = Nothing+  , _kinesisAnalyticsApplicationInputs = inputsarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalytics-application.html#cfn-kinesisanalytics-application-applicationcode+kaaApplicationCode :: Lens' KinesisAnalyticsApplication (Maybe (Val Text))+kaaApplicationCode = lens _kinesisAnalyticsApplicationApplicationCode (\s a -> s { _kinesisAnalyticsApplicationApplicationCode = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalytics-application.html#cfn-kinesisanalytics-application-applicationdescription+kaaApplicationDescription :: Lens' KinesisAnalyticsApplication (Maybe (Val Text))+kaaApplicationDescription = lens _kinesisAnalyticsApplicationApplicationDescription (\s a -> s { _kinesisAnalyticsApplicationApplicationDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalytics-application.html#cfn-kinesisanalytics-application-applicationname+kaaApplicationName :: Lens' KinesisAnalyticsApplication (Maybe (Val Text))+kaaApplicationName = lens _kinesisAnalyticsApplicationApplicationName (\s a -> s { _kinesisAnalyticsApplicationApplicationName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalytics-application.html#cfn-kinesisanalytics-application-inputs+kaaInputs :: Lens' KinesisAnalyticsApplication [KinesisAnalyticsApplicationInput]+kaaInputs = lens _kinesisAnalyticsApplicationInputs (\s a -> s { _kinesisAnalyticsApplicationInputs = a })
+ library-gen/Stratosphere/Resources/KinesisAnalyticsApplicationOutput.hs view
@@ -0,0 +1,59 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalytics-applicationoutput.html++module Stratosphere.Resources.KinesisAnalyticsApplicationOutput 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.KinesisAnalyticsApplicationOutputOutput++-- | Full data type definition for KinesisAnalyticsApplicationOutput. See+-- 'kinesisAnalyticsApplicationOutput' for a more convenient constructor.+data KinesisAnalyticsApplicationOutput =+  KinesisAnalyticsApplicationOutput+  { _kinesisAnalyticsApplicationOutputApplicationName :: Val Text+  , _kinesisAnalyticsApplicationOutputOutput :: KinesisAnalyticsApplicationOutputOutput+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsApplicationOutput where+  toJSON KinesisAnalyticsApplicationOutput{..} =+    object $+    catMaybes+    [ (Just . ("ApplicationName",) . toJSON) _kinesisAnalyticsApplicationOutputApplicationName+    , (Just . ("Output",) . toJSON) _kinesisAnalyticsApplicationOutputOutput+    ]++instance FromJSON KinesisAnalyticsApplicationOutput where+  parseJSON (Object obj) =+    KinesisAnalyticsApplicationOutput <$>+      (obj .: "ApplicationName") <*>+      (obj .: "Output")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsApplicationOutput' containing required+-- fields as arguments.+kinesisAnalyticsApplicationOutput+  :: Val Text -- ^ 'kaaoApplicationName'+  -> KinesisAnalyticsApplicationOutputOutput -- ^ 'kaaoOutput'+  -> KinesisAnalyticsApplicationOutput+kinesisAnalyticsApplicationOutput applicationNamearg outputarg =+  KinesisAnalyticsApplicationOutput+  { _kinesisAnalyticsApplicationOutputApplicationName = applicationNamearg+  , _kinesisAnalyticsApplicationOutputOutput = outputarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalytics-applicationoutput.html#cfn-kinesisanalytics-applicationoutput-applicationname+kaaoApplicationName :: Lens' KinesisAnalyticsApplicationOutput (Val Text)+kaaoApplicationName = lens _kinesisAnalyticsApplicationOutputApplicationName (\s a -> s { _kinesisAnalyticsApplicationOutputApplicationName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalytics-applicationoutput.html#cfn-kinesisanalytics-applicationoutput-output+kaaoOutput :: Lens' KinesisAnalyticsApplicationOutput KinesisAnalyticsApplicationOutputOutput+kaaoOutput = lens _kinesisAnalyticsApplicationOutputOutput (\s a -> s { _kinesisAnalyticsApplicationOutputOutput = a })
+ library-gen/Stratosphere/Resources/KinesisAnalyticsApplicationReferenceDataSource.hs view
@@ -0,0 +1,61 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalytics-applicationreferencedatasource.html++module Stratosphere.Resources.KinesisAnalyticsApplicationReferenceDataSource 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.KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource++-- | Full data type definition for+-- KinesisAnalyticsApplicationReferenceDataSource. See+-- 'kinesisAnalyticsApplicationReferenceDataSource' for a more convenient+-- constructor.+data KinesisAnalyticsApplicationReferenceDataSource =+  KinesisAnalyticsApplicationReferenceDataSource+  { _kinesisAnalyticsApplicationReferenceDataSourceApplicationName :: Val Text+  , _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource :: KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource+  } deriving (Show, Eq)++instance ToJSON KinesisAnalyticsApplicationReferenceDataSource where+  toJSON KinesisAnalyticsApplicationReferenceDataSource{..} =+    object $+    catMaybes+    [ (Just . ("ApplicationName",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceApplicationName+    , (Just . ("ReferenceDataSource",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource+    ]++instance FromJSON KinesisAnalyticsApplicationReferenceDataSource where+  parseJSON (Object obj) =+    KinesisAnalyticsApplicationReferenceDataSource <$>+      (obj .: "ApplicationName") <*>+      (obj .: "ReferenceDataSource")+  parseJSON _ = mempty++-- | Constructor for 'KinesisAnalyticsApplicationReferenceDataSource'+-- containing required fields as arguments.+kinesisAnalyticsApplicationReferenceDataSource+  :: Val Text -- ^ 'kaardsApplicationName'+  -> KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource -- ^ 'kaardsReferenceDataSource'+  -> KinesisAnalyticsApplicationReferenceDataSource+kinesisAnalyticsApplicationReferenceDataSource applicationNamearg referenceDataSourcearg =+  KinesisAnalyticsApplicationReferenceDataSource+  { _kinesisAnalyticsApplicationReferenceDataSourceApplicationName = applicationNamearg+  , _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource = referenceDataSourcearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalytics-applicationreferencedatasource.html#cfn-kinesisanalytics-applicationreferencedatasource-applicationname+kaardsApplicationName :: Lens' KinesisAnalyticsApplicationReferenceDataSource (Val Text)+kaardsApplicationName = lens _kinesisAnalyticsApplicationReferenceDataSourceApplicationName (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceApplicationName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalytics-applicationreferencedatasource.html#cfn-kinesisanalytics-applicationreferencedatasource-referencedatasource+kaardsReferenceDataSource :: Lens' KinesisAnalyticsApplicationReferenceDataSource KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource+kaardsReferenceDataSource = lens _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource = a })
library-gen/Stratosphere/Resources/KinesisFirehoseDeliveryStream.hs view
@@ -14,6 +14,7 @@  import Stratosphere.Values import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamS3DestinationConfiguration @@ -23,6 +24,7 @@   KinesisFirehoseDeliveryStream   { _kinesisFirehoseDeliveryStreamDeliveryStreamName :: Maybe (Val Text)   , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration :: Maybe KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration+  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration :: Maybe KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration   , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration :: Maybe KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration   , _kinesisFirehoseDeliveryStreamS3DestinationConfiguration :: Maybe KinesisFirehoseDeliveryStreamS3DestinationConfiguration   } deriving (Show, Eq)@@ -33,6 +35,7 @@     catMaybes     [ fmap (("DeliveryStreamName",) . toJSON) _kinesisFirehoseDeliveryStreamDeliveryStreamName     , fmap (("ElasticsearchDestinationConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration+    , fmap (("ExtendedS3DestinationConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration     , fmap (("RedshiftDestinationConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration     , fmap (("S3DestinationConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamS3DestinationConfiguration     ]@@ -42,6 +45,7 @@     KinesisFirehoseDeliveryStream <$>       (obj .:? "DeliveryStreamName") <*>       (obj .:? "ElasticsearchDestinationConfiguration") <*>+      (obj .:? "ExtendedS3DestinationConfiguration") <*>       (obj .:? "RedshiftDestinationConfiguration") <*>       (obj .:? "S3DestinationConfiguration")   parseJSON _ = mempty@@ -54,6 +58,7 @@   KinesisFirehoseDeliveryStream   { _kinesisFirehoseDeliveryStreamDeliveryStreamName = Nothing   , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration = Nothing+  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration = Nothing   , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration = Nothing   , _kinesisFirehoseDeliveryStreamS3DestinationConfiguration = Nothing   }@@ -65,6 +70,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisfirehose-deliverystream.html#cfn-kinesisfirehose-deliverstream-elasticsearchdestinationconfiguration kfdsElasticsearchDestinationConfiguration :: Lens' KinesisFirehoseDeliveryStream (Maybe KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration) kfdsElasticsearchDestinationConfiguration = lens _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisfirehose-deliverystream.html#cfn-kinesisfirehose-deliverystream-extendeds3destinationconfiguration+kfdsExtendedS3DestinationConfiguration :: Lens' KinesisFirehoseDeliveryStream (Maybe KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration)+kfdsExtendedS3DestinationConfiguration = lens _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisfirehose-deliverystream.html#cfn-kinesisfirehose-deliverystream-redshiftdestinationconfiguration kfdsRedshiftDestinationConfiguration :: Lens' KinesisFirehoseDeliveryStream (Maybe KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration)
library-gen/Stratosphere/Resources/S3Bucket.hs view
@@ -14,6 +14,7 @@  import Stratosphere.Values import Stratosphere.Types+import Stratosphere.ResourceProperties.S3BucketAccelerateConfiguration import Stratosphere.ResourceProperties.S3BucketCorsConfiguration import Stratosphere.ResourceProperties.S3BucketLifecycleConfiguration import Stratosphere.ResourceProperties.S3BucketLoggingConfiguration@@ -27,7 +28,8 @@ -- convenient constructor. data S3Bucket =   S3Bucket-  { _s3BucketAccessControl :: Maybe (Val CannedACL)+  { _s3BucketAccelerateConfiguration :: Maybe S3BucketAccelerateConfiguration+  , _s3BucketAccessControl :: Maybe (Val CannedACL)   , _s3BucketBucketName :: Maybe (Val Text)   , _s3BucketCorsConfiguration :: Maybe S3BucketCorsConfiguration   , _s3BucketLifecycleConfiguration :: Maybe S3BucketLifecycleConfiguration@@ -43,7 +45,8 @@   toJSON S3Bucket{..} =     object $     catMaybes-    [ fmap (("AccessControl",) . toJSON) _s3BucketAccessControl+    [ fmap (("AccelerateConfiguration",) . toJSON) _s3BucketAccelerateConfiguration+    , fmap (("AccessControl",) . toJSON) _s3BucketAccessControl     , fmap (("BucketName",) . toJSON) _s3BucketBucketName     , fmap (("CorsConfiguration",) . toJSON) _s3BucketCorsConfiguration     , fmap (("LifecycleConfiguration",) . toJSON) _s3BucketLifecycleConfiguration@@ -58,6 +61,7 @@ instance FromJSON S3Bucket where   parseJSON (Object obj) =     S3Bucket <$>+      (obj .:? "AccelerateConfiguration") <*>       (obj .:? "AccessControl") <*>       (obj .:? "BucketName") <*>       (obj .:? "CorsConfiguration") <*>@@ -75,7 +79,8 @@   :: S3Bucket s3Bucket  =   S3Bucket-  { _s3BucketAccessControl = Nothing+  { _s3BucketAccelerateConfiguration = Nothing+  , _s3BucketAccessControl = Nothing   , _s3BucketBucketName = Nothing   , _s3BucketCorsConfiguration = Nothing   , _s3BucketLifecycleConfiguration = Nothing@@ -86,6 +91,10 @@   , _s3BucketVersioningConfiguration = Nothing   , _s3BucketWebsiteConfiguration = Nothing   }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket.html#cfn-s3-bucket-accelerateconfiguration+sbAccelerateConfiguration :: Lens' S3Bucket (Maybe S3BucketAccelerateConfiguration)+sbAccelerateConfiguration = lens _s3BucketAccelerateConfiguration (\s a -> s { _s3BucketAccelerateConfiguration = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket.html#cfn-s3-bucket-accesscontrol sbAccessControl :: Lens' S3Bucket (Maybe (Val CannedACL))
library-gen/Stratosphere/Resources/S3BucketPolicy.hs view
@@ -49,10 +49,10 @@   , _s3BucketPolicyPolicyDocument = policyDocumentarg   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-policy.html#cfn-s3-bucketpolicy-bucket+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-policy.html#aws-properties-s3-policy-bucket sbpBucket :: Lens' S3BucketPolicy (Val Text) sbpBucket = lens _s3BucketPolicyBucket (\s a -> s { _s3BucketPolicyBucket = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-policy.html#cfn-s3-bucketpolicy-policydocument+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-policy.html#aws-properties-s3-policy-policydocument sbpPolicyDocument :: Lens' S3BucketPolicy Object sbpPolicyDocument = lens _s3BucketPolicyPolicyDocument (\s a -> s { _s3BucketPolicyPolicyDocument = a })
library-gen/Stratosphere/Resources/SQSQueue.hs view
@@ -22,6 +22,8 @@   { _sQSQueueContentBasedDeduplication :: Maybe (Val Bool)   , _sQSQueueDelaySeconds :: Maybe (Val Integer)   , _sQSQueueFifoQueue :: Maybe (Val Bool)+  , _sQSQueueKmsDataKeyReusePeriodSeconds :: Maybe (Val Integer)+  , _sQSQueueKmsMasterKeyId :: Maybe (Val Text)   , _sQSQueueMaximumMessageSize :: Maybe (Val Integer)   , _sQSQueueMessageRetentionPeriod :: Maybe (Val Integer)   , _sQSQueueQueueName :: Maybe (Val Text)@@ -37,6 +39,8 @@     [ fmap (("ContentBasedDeduplication",) . toJSON . fmap Bool') _sQSQueueContentBasedDeduplication     , fmap (("DelaySeconds",) . toJSON . fmap Integer') _sQSQueueDelaySeconds     , fmap (("FifoQueue",) . toJSON . fmap Bool') _sQSQueueFifoQueue+    , fmap (("KmsDataKeyReusePeriodSeconds",) . toJSON . fmap Integer') _sQSQueueKmsDataKeyReusePeriodSeconds+    , fmap (("KmsMasterKeyId",) . toJSON) _sQSQueueKmsMasterKeyId     , fmap (("MaximumMessageSize",) . toJSON . fmap Integer') _sQSQueueMaximumMessageSize     , fmap (("MessageRetentionPeriod",) . toJSON . fmap Integer') _sQSQueueMessageRetentionPeriod     , fmap (("QueueName",) . toJSON) _sQSQueueQueueName@@ -51,6 +55,8 @@       fmap (fmap (fmap unBool')) (obj .:? "ContentBasedDeduplication") <*>       fmap (fmap (fmap unInteger')) (obj .:? "DelaySeconds") <*>       fmap (fmap (fmap unBool')) (obj .:? "FifoQueue") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "KmsDataKeyReusePeriodSeconds") <*>+      (obj .:? "KmsMasterKeyId") <*>       fmap (fmap (fmap unInteger')) (obj .:? "MaximumMessageSize") <*>       fmap (fmap (fmap unInteger')) (obj .:? "MessageRetentionPeriod") <*>       (obj .:? "QueueName") <*>@@ -67,6 +73,8 @@   { _sQSQueueContentBasedDeduplication = Nothing   , _sQSQueueDelaySeconds = Nothing   , _sQSQueueFifoQueue = Nothing+  , _sQSQueueKmsDataKeyReusePeriodSeconds = Nothing+  , _sQSQueueKmsMasterKeyId = Nothing   , _sQSQueueMaximumMessageSize = Nothing   , _sQSQueueMessageRetentionPeriod = Nothing   , _sQSQueueQueueName = Nothing@@ -86,6 +94,14 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sqs-queues.html#aws-sqs-queue-fifoqueue sqsqFifoQueue :: Lens' SQSQueue (Maybe (Val Bool)) sqsqFifoQueue = lens _sQSQueueFifoQueue (\s a -> s { _sQSQueueFifoQueue = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sqs-queues.html#aws-sqs-queue-kmsdatakeyreuseperiodseconds+sqsqKmsDataKeyReusePeriodSeconds :: Lens' SQSQueue (Maybe (Val Integer))+sqsqKmsDataKeyReusePeriodSeconds = lens _sQSQueueKmsDataKeyReusePeriodSeconds (\s a -> s { _sQSQueueKmsDataKeyReusePeriodSeconds = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sqs-queues.html#aws-sqs-queue-kmsmasterkeyid+sqsqKmsMasterKeyId :: Lens' SQSQueue (Maybe (Val Text))+sqsqKmsMasterKeyId = lens _sQSQueueKmsMasterKeyId (\s a -> s { _sQSQueueKmsMasterKeyId = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sqs-queues.html#aws-sqs-queue-maxmesgsize sqsqMaximumMessageSize :: Lens' SQSQueue (Maybe (Val Integer))
stack.yaml view
@@ -1,4 +1,3 @@-resolver: nightly-2017-05-15+resolver: nightly-2017-07-31 packages:   - '.'-extra-deps: []
stratosphere.cabal view
@@ -3,7 +3,7 @@ -- see: https://github.com/sol/hpack  name:           stratosphere-version:        0.7.1+version:        0.8.0 synopsis:       EDSL for AWS CloudFormation description:    EDSL for AWS CloudFormation category:       AWS, Cloud@@ -63,6 +63,7 @@       Stratosphere.ResourceProperties.ApiGatewayApiKeyStageKey       Stratosphere.ResourceProperties.ApiGatewayDeploymentMethodSetting       Stratosphere.ResourceProperties.ApiGatewayDeploymentStageDescription+      Stratosphere.ResourceProperties.ApiGatewayDocumentationPartLocation       Stratosphere.ResourceProperties.ApiGatewayMethodIntegration       Stratosphere.ResourceProperties.ApiGatewayMethodIntegrationResponse       Stratosphere.ResourceProperties.ApiGatewayMethodMethodResponse@@ -82,7 +83,11 @@       Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupTagProperty       Stratosphere.ResourceProperties.AutoScalingLaunchConfigurationBlockDevice       Stratosphere.ResourceProperties.AutoScalingLaunchConfigurationBlockDeviceMapping+      Stratosphere.ResourceProperties.AutoScalingScalingPolicyCustomizedMetricSpecification+      Stratosphere.ResourceProperties.AutoScalingScalingPolicyMetricDimension+      Stratosphere.ResourceProperties.AutoScalingScalingPolicyPredefinedMetricSpecification       Stratosphere.ResourceProperties.AutoScalingScalingPolicyStepAdjustment+      Stratosphere.ResourceProperties.AutoScalingScalingPolicyTargetTrackingConfiguration       Stratosphere.ResourceProperties.CertificateManagerCertificateDomainValidationOption       Stratosphere.ResourceProperties.CloudFrontDistributionCacheBehavior       Stratosphere.ResourceProperties.CloudFrontDistributionCookies@@ -98,6 +103,8 @@       Stratosphere.ResourceProperties.CloudFrontDistributionRestrictions       Stratosphere.ResourceProperties.CloudFrontDistributionS3OriginConfig       Stratosphere.ResourceProperties.CloudFrontDistributionViewerCertificate+      Stratosphere.ResourceProperties.CloudTrailTrailDataResource+      Stratosphere.ResourceProperties.CloudTrailTrailEventSelector       Stratosphere.ResourceProperties.CloudWatchAlarmDimension       Stratosphere.ResourceProperties.CodeBuildProjectArtifacts       Stratosphere.ResourceProperties.CodeBuildProjectEnvironment@@ -300,6 +307,28 @@       Stratosphere.ResourceProperties.IoTTopicRuleSnsAction       Stratosphere.ResourceProperties.IoTTopicRuleSqsAction       Stratosphere.ResourceProperties.IoTTopicRuleTopicRulePayload+      Stratosphere.ResourceProperties.KinesisAnalyticsApplicationCSVMappingParameters+      Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInput+      Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputParallelism+      Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputSchema+      Stratosphere.ResourceProperties.KinesisAnalyticsApplicationJSONMappingParameters+      Stratosphere.ResourceProperties.KinesisAnalyticsApplicationKinesisFirehoseInput+      Stratosphere.ResourceProperties.KinesisAnalyticsApplicationKinesisStreamsInput+      Stratosphere.ResourceProperties.KinesisAnalyticsApplicationMappingParameters+      Stratosphere.ResourceProperties.KinesisAnalyticsApplicationOutputDestinationSchema+      Stratosphere.ResourceProperties.KinesisAnalyticsApplicationOutputKinesisFirehoseOutput+      Stratosphere.ResourceProperties.KinesisAnalyticsApplicationOutputKinesisStreamsOutput+      Stratosphere.ResourceProperties.KinesisAnalyticsApplicationOutputOutput+      Stratosphere.ResourceProperties.KinesisAnalyticsApplicationRecordColumn+      Stratosphere.ResourceProperties.KinesisAnalyticsApplicationRecordFormat+      Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters+      Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters+      Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceMappingParameters+      Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceRecordColumn+      Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceRecordFormat+      Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource+      Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema+      Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamBufferingHints       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamCopyCommand@@ -307,7 +336,11 @@       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamElasticsearchRetryOptions       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamEncryptionConfiguration+      Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamKMSEncryptionConfig+      Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessingConfiguration+      Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessor+      Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessorParameter       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamS3DestinationConfiguration       Stratosphere.ResourceProperties.LambdaFunctionCode@@ -350,6 +383,8 @@       Stratosphere.ResourceProperties.Route53RecordSetGroupAliasTarget       Stratosphere.ResourceProperties.Route53RecordSetGroupGeoLocation       Stratosphere.ResourceProperties.Route53RecordSetGroupRecordSet+      Stratosphere.ResourceProperties.S3BucketAbortIncompleteMultipartUpload+      Stratosphere.ResourceProperties.S3BucketAccelerateConfiguration       Stratosphere.ResourceProperties.S3BucketCorsConfiguration       Stratosphere.ResourceProperties.S3BucketCorsRule       Stratosphere.ResourceProperties.S3BucketFilterRule@@ -369,6 +404,7 @@       Stratosphere.ResourceProperties.S3BucketRoutingRuleCondition       Stratosphere.ResourceProperties.S3BucketRule       Stratosphere.ResourceProperties.S3BucketS3KeyFilter+      Stratosphere.ResourceProperties.S3BucketTagFilter       Stratosphere.ResourceProperties.S3BucketTopicConfiguration       Stratosphere.ResourceProperties.S3BucketTransition       Stratosphere.ResourceProperties.S3BucketVersioningConfiguration@@ -408,9 +444,12 @@       Stratosphere.Resources.ApiGatewayBasePathMapping       Stratosphere.Resources.ApiGatewayClientCertificate       Stratosphere.Resources.ApiGatewayDeployment+      Stratosphere.Resources.ApiGatewayDocumentationPart+      Stratosphere.Resources.ApiGatewayDocumentationVersion       Stratosphere.Resources.ApiGatewayDomainName       Stratosphere.Resources.ApiGatewayMethod       Stratosphere.Resources.ApiGatewayModel+      Stratosphere.Resources.ApiGatewayRequestValidator       Stratosphere.Resources.ApiGatewayResource       Stratosphere.Resources.ApiGatewayRestApi       Stratosphere.Resources.ApiGatewayStage@@ -543,6 +582,9 @@       Stratosphere.Resources.IoTThing       Stratosphere.Resources.IoTThingPrincipalAttachment       Stratosphere.Resources.IoTTopicRule+      Stratosphere.Resources.KinesisAnalyticsApplication+      Stratosphere.Resources.KinesisAnalyticsApplicationOutput+      Stratosphere.Resources.KinesisAnalyticsApplicationReferenceDataSource       Stratosphere.Resources.KinesisFirehoseDeliveryStream       Stratosphere.Resources.KinesisStream       Stratosphere.Resources.KMSAlias@@ -753,29 +795,5 @@     , hspec     , hspec-discover   other-modules:-      HLint-      Stratosphere.ValuesSpec-  default-language: Haskell2010--test-suite style-  type: exitcode-stdio-1.0-  main-is: HLint.hs-  hs-source-dirs:-      tests-  build-depends:-      base >= 4.8 && < 5-    , aeson >= 0.11-    , aeson-pretty >= 0.8-    , bytestring-    , hashable-    , lens >= 4.5-    , template-haskell >= 2.0-    , text >= 1.1-    , unordered-containers >= 0.2-    , base-    , directory-    , hlint-  other-modules:-      Spec       Stratosphere.ValuesSpec   default-language: Haskell2010
− tests/HLint.hs 
@@ -1,19 +0,0 @@-module Main (main) where--import Language.Haskell.HLint (hlint)-import System.Exit (exitFailure, exitSuccess)--arguments :: [String]-arguments =-  [ "library"-  , "library-gen"-  , "tests"-  , "-i", "Use newtype instead of data"-  , "-i", "Unused LANGUAGE pragma"-  , "-i", "Redundant do"-  ]--main :: IO ()-main = do-  hints <- hlint arguments-  if null hints then exitSuccess else exitFailure