stratosphere 0.12.0 → 0.13.0

raw patch · 33 files changed

+801/−177 lines, 33 files

Files

CHANGELOG.md +4/−0
library-gen/Stratosphere/ResourceProperties/ApiGatewayApiKeyStageKey.hs +3/−3
library-gen/Stratosphere/ResourceProperties/ApiGatewayDomainNameEndpointConfiguration.hs +50/−0
library-gen/Stratosphere/ResourceProperties/ApiGatewayRestApiEndpointConfiguration.hs +50/−0
library-gen/Stratosphere/ResourceProperties/ApiGatewayRestApiS3Location.hs +5/−5
library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalableTargetScalableTargetAction.hs +60/−0
library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalableTargetScheduledAction.hs +85/−0
library-gen/Stratosphere/ResourceProperties/ECRRepositoryLifecyclePolicy.hs +57/−0
library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionContainerDefinition.hs +9/−0
library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionDevice.hs +66/−0
library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionKernelCapabilities.hs +57/−0
library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionLinuxParameters.hs +66/−0
library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting.hs +5/−5
library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkConfigurationTemplateSourceConfiguration.hs +3/−3
library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainVPCOptions.hs +57/−0
library-gen/Stratosphere/ResourceProperties/LambdaAliasAliasRoutingConfiguration.hs +0/−50
library-gen/Stratosphere/ResourceProperties/LambdaAliasVersionWeight.hs +0/−59
library-gen/Stratosphere/ResourceProperties/Route53HostedZoneQueryLoggingConfig.hs +50/−0
library-gen/Stratosphere/Resources.hs +10/−2
library-gen/Stratosphere/Resources/ApiGatewayApiKey.hs +23/−7
library-gen/Stratosphere/Resources/ApiGatewayDomainName.hs +25/−10
library-gen/Stratosphere/Resources/ApiGatewayRestApi.hs +9/−0
library-gen/Stratosphere/Resources/ApplicationAutoScalingScalableTarget.hs +9/−1
library-gen/Stratosphere/Resources/ECRRepository.hs +12/−4
library-gen/Stratosphere/Resources/EMRCluster.hs +8/−0
library-gen/Stratosphere/Resources/ElastiCacheReplicationGroup.hs +28/−4
library-gen/Stratosphere/Resources/ElasticBeanstalkConfigurationTemplate.hs +8/−8
library-gen/Stratosphere/Resources/ElasticsearchDomain.hs +10/−1
library-gen/Stratosphere/Resources/LambdaAlias.hs +2/−10
library-gen/Stratosphere/Resources/RDSDBCluster.hs +2/−2
library-gen/Stratosphere/Resources/RDSDBInstance.hs +8/−0
library-gen/Stratosphere/Resources/Route53HostedZone.hs +9/−0
stratosphere.cabal +11/−3

CHANGELOG.md view

@@ -1,5 +1,9 @@ # Change Log +## 0.13.0++* Update resource specification document to version 1.11.0+ ## 0.12.0  * Update resource specification document to version 1.10.0

library-gen/Stratosphere/ResourceProperties/ApiGatewayApiKeyStageKey.hs view

@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-apikey-stagekey.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-apikey-stagekey.html  module Stratosphere.ResourceProperties.ApiGatewayApiKeyStageKey where @@ -48,10 +48,10 @@   , _apiGatewayApiKeyStageKeyStageName = Nothing   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-apikey-stagekey.html#cfn-apigateway-apikey-stagekey-restapiid+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-apikey-stagekey.html#cfn-apigateway-apikey-stagekey-restapiid agakskRestApiId :: Lens' ApiGatewayApiKeyStageKey (Maybe (Val Text)) agakskRestApiId = lens _apiGatewayApiKeyStageKeyRestApiId (\s a -> s { _apiGatewayApiKeyStageKeyRestApiId = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-apikey-stagekey.html#cfn-apigateway-apikey-stagekey-stagename+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-apikey-stagekey.html#cfn-apigateway-apikey-stagekey-stagename agakskStageName :: Lens' ApiGatewayApiKeyStageKey (Maybe (Val Text)) agakskStageName = lens _apiGatewayApiKeyStageKeyStageName (\s a -> s { _apiGatewayApiKeyStageKeyStageName = a })

+ library-gen/Stratosphere/ResourceProperties/ApiGatewayDomainNameEndpointConfiguration.hs view

@@ -0,0 +1,50 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-domainname-endpointconfiguration.html++module Stratosphere.ResourceProperties.ApiGatewayDomainNameEndpointConfiguration 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 ApiGatewayDomainNameEndpointConfiguration.+-- See 'apiGatewayDomainNameEndpointConfiguration' for a more convenient+-- constructor.+data ApiGatewayDomainNameEndpointConfiguration =+  ApiGatewayDomainNameEndpointConfiguration+  { _apiGatewayDomainNameEndpointConfigurationTypes :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON ApiGatewayDomainNameEndpointConfiguration where+  toJSON ApiGatewayDomainNameEndpointConfiguration{..} =+    object $+    catMaybes+    [ fmap (("Types",) . toJSON) _apiGatewayDomainNameEndpointConfigurationTypes+    ]++instance FromJSON ApiGatewayDomainNameEndpointConfiguration where+  parseJSON (Object obj) =+    ApiGatewayDomainNameEndpointConfiguration <$>+      (obj .:? "Types")+  parseJSON _ = mempty++-- | Constructor for 'ApiGatewayDomainNameEndpointConfiguration' containing+-- required fields as arguments.+apiGatewayDomainNameEndpointConfiguration+  :: ApiGatewayDomainNameEndpointConfiguration+apiGatewayDomainNameEndpointConfiguration  =+  ApiGatewayDomainNameEndpointConfiguration+  { _apiGatewayDomainNameEndpointConfigurationTypes = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-domainname-endpointconfiguration.html#cfn-apigateway-domainname-endpointconfiguration-types+agdnecTypes :: Lens' ApiGatewayDomainNameEndpointConfiguration (Maybe (ValList Text))+agdnecTypes = lens _apiGatewayDomainNameEndpointConfigurationTypes (\s a -> s { _apiGatewayDomainNameEndpointConfigurationTypes = a })

+ library-gen/Stratosphere/ResourceProperties/ApiGatewayRestApiEndpointConfiguration.hs view

@@ -0,0 +1,50 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-restapi-endpointconfiguration.html++module Stratosphere.ResourceProperties.ApiGatewayRestApiEndpointConfiguration 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 ApiGatewayRestApiEndpointConfiguration. See+-- 'apiGatewayRestApiEndpointConfiguration' for a more convenient+-- constructor.+data ApiGatewayRestApiEndpointConfiguration =+  ApiGatewayRestApiEndpointConfiguration+  { _apiGatewayRestApiEndpointConfigurationTypes :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON ApiGatewayRestApiEndpointConfiguration where+  toJSON ApiGatewayRestApiEndpointConfiguration{..} =+    object $+    catMaybes+    [ fmap (("Types",) . toJSON) _apiGatewayRestApiEndpointConfigurationTypes+    ]++instance FromJSON ApiGatewayRestApiEndpointConfiguration where+  parseJSON (Object obj) =+    ApiGatewayRestApiEndpointConfiguration <$>+      (obj .:? "Types")+  parseJSON _ = mempty++-- | Constructor for 'ApiGatewayRestApiEndpointConfiguration' containing+-- required fields as arguments.+apiGatewayRestApiEndpointConfiguration+  :: ApiGatewayRestApiEndpointConfiguration+apiGatewayRestApiEndpointConfiguration  =+  ApiGatewayRestApiEndpointConfiguration+  { _apiGatewayRestApiEndpointConfigurationTypes = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-restapi-endpointconfiguration.html#cfn-apigateway-restapi-endpointconfiguration-types+agraecTypes :: Lens' ApiGatewayRestApiEndpointConfiguration (Maybe (ValList Text))+agraecTypes = lens _apiGatewayRestApiEndpointConfigurationTypes (\s a -> s { _apiGatewayRestApiEndpointConfigurationTypes = a })

library-gen/Stratosphere/ResourceProperties/ApiGatewayRestApiS3Location.hs view

@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-restapi-bodys3location.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-restapi-s3location.html  module Stratosphere.ResourceProperties.ApiGatewayRestApiS3Location where @@ -56,18 +56,18 @@   , _apiGatewayRestApiS3LocationVersion = Nothing   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-restapi-bodys3location.html#cfn-apigateway-restapi-s3location-bucket+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-restapi-s3location.html#cfn-apigateway-restapi-s3location-bucket agraslBucket :: Lens' ApiGatewayRestApiS3Location (Maybe (Val Text)) agraslBucket = lens _apiGatewayRestApiS3LocationBucket (\s a -> s { _apiGatewayRestApiS3LocationBucket = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-restapi-bodys3location.html#cfn-apigateway-restapi-s3location-etag+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-restapi-s3location.html#cfn-apigateway-restapi-s3location-etag agraslETag :: Lens' ApiGatewayRestApiS3Location (Maybe (Val Text)) agraslETag = lens _apiGatewayRestApiS3LocationETag (\s a -> s { _apiGatewayRestApiS3LocationETag = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-restapi-bodys3location.html#cfn-apigateway-restapi-s3location-key+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-restapi-s3location.html#cfn-apigateway-restapi-s3location-key agraslKey :: Lens' ApiGatewayRestApiS3Location (Maybe (Val Text)) agraslKey = lens _apiGatewayRestApiS3LocationKey (\s a -> s { _apiGatewayRestApiS3LocationKey = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-restapi-bodys3location.html#cfn-apigateway-restapi-s3location-version+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-restapi-s3location.html#cfn-apigateway-restapi-s3location-version agraslVersion :: Lens' ApiGatewayRestApiS3Location (Maybe (Val Text)) agraslVersion = lens _apiGatewayRestApiS3LocationVersion (\s a -> s { _apiGatewayRestApiS3LocationVersion = a })

+ library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalableTargetScalableTargetAction.hs view

@@ -0,0 +1,60 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalabletarget-scalabletargetaction.html++module Stratosphere.ResourceProperties.ApplicationAutoScalingScalableTargetScalableTargetAction 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+-- ApplicationAutoScalingScalableTargetScalableTargetAction. See+-- 'applicationAutoScalingScalableTargetScalableTargetAction' for a more+-- convenient constructor.+data ApplicationAutoScalingScalableTargetScalableTargetAction =+  ApplicationAutoScalingScalableTargetScalableTargetAction+  { _applicationAutoScalingScalableTargetScalableTargetActionMaxCapacity :: Maybe (Val Integer)+  , _applicationAutoScalingScalableTargetScalableTargetActionMinCapacity :: Maybe (Val Integer)+  } deriving (Show, Eq)++instance ToJSON ApplicationAutoScalingScalableTargetScalableTargetAction where+  toJSON ApplicationAutoScalingScalableTargetScalableTargetAction{..} =+    object $+    catMaybes+    [ fmap (("MaxCapacity",) . toJSON . fmap Integer') _applicationAutoScalingScalableTargetScalableTargetActionMaxCapacity+    , fmap (("MinCapacity",) . toJSON . fmap Integer') _applicationAutoScalingScalableTargetScalableTargetActionMinCapacity+    ]++instance FromJSON ApplicationAutoScalingScalableTargetScalableTargetAction where+  parseJSON (Object obj) =+    ApplicationAutoScalingScalableTargetScalableTargetAction <$>+      fmap (fmap (fmap unInteger')) (obj .:? "MaxCapacity") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "MinCapacity")+  parseJSON _ = mempty++-- | Constructor for+-- 'ApplicationAutoScalingScalableTargetScalableTargetAction' containing+-- required fields as arguments.+applicationAutoScalingScalableTargetScalableTargetAction+  :: ApplicationAutoScalingScalableTargetScalableTargetAction+applicationAutoScalingScalableTargetScalableTargetAction  =+  ApplicationAutoScalingScalableTargetScalableTargetAction+  { _applicationAutoScalingScalableTargetScalableTargetActionMaxCapacity = Nothing+  , _applicationAutoScalingScalableTargetScalableTargetActionMinCapacity = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalabletarget-scalabletargetaction.html#cfn-applicationautoscaling-scalabletarget-scalabletargetaction-maxcapacity+aasststaMaxCapacity :: Lens' ApplicationAutoScalingScalableTargetScalableTargetAction (Maybe (Val Integer))+aasststaMaxCapacity = lens _applicationAutoScalingScalableTargetScalableTargetActionMaxCapacity (\s a -> s { _applicationAutoScalingScalableTargetScalableTargetActionMaxCapacity = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalabletarget-scalabletargetaction.html#cfn-applicationautoscaling-scalabletarget-scalabletargetaction-mincapacity+aasststaMinCapacity :: Lens' ApplicationAutoScalingScalableTargetScalableTargetAction (Maybe (Val Integer))+aasststaMinCapacity = lens _applicationAutoScalingScalableTargetScalableTargetActionMinCapacity (\s a -> s { _applicationAutoScalingScalableTargetScalableTargetActionMinCapacity = a })

+ library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalableTargetScheduledAction.hs view

@@ -0,0 +1,85 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalabletarget-scheduledaction.html++module Stratosphere.ResourceProperties.ApplicationAutoScalingScalableTargetScheduledAction 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.ApplicationAutoScalingScalableTargetScalableTargetAction++-- | Full data type definition for+-- ApplicationAutoScalingScalableTargetScheduledAction. See+-- 'applicationAutoScalingScalableTargetScheduledAction' for a more+-- convenient constructor.+data ApplicationAutoScalingScalableTargetScheduledAction =+  ApplicationAutoScalingScalableTargetScheduledAction+  { _applicationAutoScalingScalableTargetScheduledActionEndTime :: Maybe (Val Text)+  , _applicationAutoScalingScalableTargetScheduledActionScalableTargetAction :: Maybe ApplicationAutoScalingScalableTargetScalableTargetAction+  , _applicationAutoScalingScalableTargetScheduledActionSchedule :: Val Text+  , _applicationAutoScalingScalableTargetScheduledActionScheduledActionName :: Val Text+  , _applicationAutoScalingScalableTargetScheduledActionStartTime :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON ApplicationAutoScalingScalableTargetScheduledAction where+  toJSON ApplicationAutoScalingScalableTargetScheduledAction{..} =+    object $+    catMaybes+    [ fmap (("EndTime",) . toJSON) _applicationAutoScalingScalableTargetScheduledActionEndTime+    , fmap (("ScalableTargetAction",) . toJSON) _applicationAutoScalingScalableTargetScheduledActionScalableTargetAction+    , (Just . ("Schedule",) . toJSON) _applicationAutoScalingScalableTargetScheduledActionSchedule+    , (Just . ("ScheduledActionName",) . toJSON) _applicationAutoScalingScalableTargetScheduledActionScheduledActionName+    , fmap (("StartTime",) . toJSON) _applicationAutoScalingScalableTargetScheduledActionStartTime+    ]++instance FromJSON ApplicationAutoScalingScalableTargetScheduledAction where+  parseJSON (Object obj) =+    ApplicationAutoScalingScalableTargetScheduledAction <$>+      (obj .:? "EndTime") <*>+      (obj .:? "ScalableTargetAction") <*>+      (obj .: "Schedule") <*>+      (obj .: "ScheduledActionName") <*>+      (obj .:? "StartTime")+  parseJSON _ = mempty++-- | Constructor for 'ApplicationAutoScalingScalableTargetScheduledAction'+-- containing required fields as arguments.+applicationAutoScalingScalableTargetScheduledAction+  :: Val Text -- ^ 'aasstsaSchedule'+  -> Val Text -- ^ 'aasstsaScheduledActionName'+  -> ApplicationAutoScalingScalableTargetScheduledAction+applicationAutoScalingScalableTargetScheduledAction schedulearg scheduledActionNamearg =+  ApplicationAutoScalingScalableTargetScheduledAction+  { _applicationAutoScalingScalableTargetScheduledActionEndTime = Nothing+  , _applicationAutoScalingScalableTargetScheduledActionScalableTargetAction = Nothing+  , _applicationAutoScalingScalableTargetScheduledActionSchedule = schedulearg+  , _applicationAutoScalingScalableTargetScheduledActionScheduledActionName = scheduledActionNamearg+  , _applicationAutoScalingScalableTargetScheduledActionStartTime = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalabletarget-scheduledaction.html#cfn-applicationautoscaling-scalabletarget-scheduledaction-endtime+aasstsaEndTime :: Lens' ApplicationAutoScalingScalableTargetScheduledAction (Maybe (Val Text))+aasstsaEndTime = lens _applicationAutoScalingScalableTargetScheduledActionEndTime (\s a -> s { _applicationAutoScalingScalableTargetScheduledActionEndTime = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalabletarget-scheduledaction.html#cfn-applicationautoscaling-scalabletarget-scheduledaction-scalabletargetaction+aasstsaScalableTargetAction :: Lens' ApplicationAutoScalingScalableTargetScheduledAction (Maybe ApplicationAutoScalingScalableTargetScalableTargetAction)+aasstsaScalableTargetAction = lens _applicationAutoScalingScalableTargetScheduledActionScalableTargetAction (\s a -> s { _applicationAutoScalingScalableTargetScheduledActionScalableTargetAction = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalabletarget-scheduledaction.html#cfn-applicationautoscaling-scalabletarget-scheduledaction-schedule+aasstsaSchedule :: Lens' ApplicationAutoScalingScalableTargetScheduledAction (Val Text)+aasstsaSchedule = lens _applicationAutoScalingScalableTargetScheduledActionSchedule (\s a -> s { _applicationAutoScalingScalableTargetScheduledActionSchedule = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalabletarget-scheduledaction.html#cfn-applicationautoscaling-scalabletarget-scheduledaction-scheduledactionname+aasstsaScheduledActionName :: Lens' ApplicationAutoScalingScalableTargetScheduledAction (Val Text)+aasstsaScheduledActionName = lens _applicationAutoScalingScalableTargetScheduledActionScheduledActionName (\s a -> s { _applicationAutoScalingScalableTargetScheduledActionScheduledActionName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalabletarget-scheduledaction.html#cfn-applicationautoscaling-scalabletarget-scheduledaction-starttime+aasstsaStartTime :: Lens' ApplicationAutoScalingScalableTargetScheduledAction (Maybe (Val Text))+aasstsaStartTime = lens _applicationAutoScalingScalableTargetScheduledActionStartTime (\s a -> s { _applicationAutoScalingScalableTargetScheduledActionStartTime = a })

+ library-gen/Stratosphere/ResourceProperties/ECRRepositoryLifecyclePolicy.hs view

@@ -0,0 +1,57 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecr-repository-lifecyclepolicy.html++module Stratosphere.ResourceProperties.ECRRepositoryLifecyclePolicy 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 ECRRepositoryLifecyclePolicy. See+-- 'ecrRepositoryLifecyclePolicy' for a more convenient constructor.+data ECRRepositoryLifecyclePolicy =+  ECRRepositoryLifecyclePolicy+  { _eCRRepositoryLifecyclePolicyLifecyclePolicyText :: Maybe (Val Text)+  , _eCRRepositoryLifecyclePolicyRegistryId :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON ECRRepositoryLifecyclePolicy where+  toJSON ECRRepositoryLifecyclePolicy{..} =+    object $+    catMaybes+    [ fmap (("LifecyclePolicyText",) . toJSON) _eCRRepositoryLifecyclePolicyLifecyclePolicyText+    , fmap (("RegistryId",) . toJSON) _eCRRepositoryLifecyclePolicyRegistryId+    ]++instance FromJSON ECRRepositoryLifecyclePolicy where+  parseJSON (Object obj) =+    ECRRepositoryLifecyclePolicy <$>+      (obj .:? "LifecyclePolicyText") <*>+      (obj .:? "RegistryId")+  parseJSON _ = mempty++-- | Constructor for 'ECRRepositoryLifecyclePolicy' containing required fields+-- as arguments.+ecrRepositoryLifecyclePolicy+  :: ECRRepositoryLifecyclePolicy+ecrRepositoryLifecyclePolicy  =+  ECRRepositoryLifecyclePolicy+  { _eCRRepositoryLifecyclePolicyLifecyclePolicyText = Nothing+  , _eCRRepositoryLifecyclePolicyRegistryId = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecr-repository-lifecyclepolicy.html#cfn-ecr-repository-lifecyclepolicy-lifecyclepolicytext+ecrrlpLifecyclePolicyText :: Lens' ECRRepositoryLifecyclePolicy (Maybe (Val Text))+ecrrlpLifecyclePolicyText = lens _eCRRepositoryLifecyclePolicyLifecyclePolicyText (\s a -> s { _eCRRepositoryLifecyclePolicyLifecyclePolicyText = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecr-repository-lifecyclepolicy.html#cfn-ecr-repository-lifecyclepolicy-registryid+ecrrlpRegistryId :: Lens' ECRRepositoryLifecyclePolicy (Maybe (Val Text))+ecrrlpRegistryId = lens _eCRRepositoryLifecyclePolicyRegistryId (\s a -> s { _eCRRepositoryLifecyclePolicyRegistryId = a })

library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionContainerDefinition.hs view

@@ -15,6 +15,7 @@ import Stratosphere.Values import Stratosphere.ResourceProperties.ECSTaskDefinitionKeyValuePair import Stratosphere.ResourceProperties.ECSTaskDefinitionHostEntry+import Stratosphere.ResourceProperties.ECSTaskDefinitionLinuxParameters import Stratosphere.ResourceProperties.ECSTaskDefinitionLogConfiguration import Stratosphere.ResourceProperties.ECSTaskDefinitionMountPoint import Stratosphere.ResourceProperties.ECSTaskDefinitionPortMapping@@ -39,6 +40,7 @@   , _eCSTaskDefinitionContainerDefinitionHostname :: Maybe (Val Text)   , _eCSTaskDefinitionContainerDefinitionImage :: Val Text   , _eCSTaskDefinitionContainerDefinitionLinks :: Maybe (ValList Text)+  , _eCSTaskDefinitionContainerDefinitionLinuxParameters :: Maybe ECSTaskDefinitionLinuxParameters   , _eCSTaskDefinitionContainerDefinitionLogConfiguration :: Maybe ECSTaskDefinitionLogConfiguration   , _eCSTaskDefinitionContainerDefinitionMemory :: Maybe (Val Integer)   , _eCSTaskDefinitionContainerDefinitionMemoryReservation :: Maybe (Val Integer)@@ -71,6 +73,7 @@     , fmap (("Hostname",) . toJSON) _eCSTaskDefinitionContainerDefinitionHostname     , (Just . ("Image",) . toJSON) _eCSTaskDefinitionContainerDefinitionImage     , fmap (("Links",) . toJSON) _eCSTaskDefinitionContainerDefinitionLinks+    , fmap (("LinuxParameters",) . toJSON) _eCSTaskDefinitionContainerDefinitionLinuxParameters     , fmap (("LogConfiguration",) . toJSON) _eCSTaskDefinitionContainerDefinitionLogConfiguration     , fmap (("Memory",) . toJSON . fmap Integer') _eCSTaskDefinitionContainerDefinitionMemory     , fmap (("MemoryReservation",) . toJSON . fmap Integer') _eCSTaskDefinitionContainerDefinitionMemoryReservation@@ -102,6 +105,7 @@       (obj .:? "Hostname") <*>       (obj .: "Image") <*>       (obj .:? "Links") <*>+      (obj .:? "LinuxParameters") <*>       (obj .:? "LogConfiguration") <*>       fmap (fmap (fmap unInteger')) (obj .:? "Memory") <*>       fmap (fmap (fmap unInteger')) (obj .:? "MemoryReservation") <*>@@ -138,6 +142,7 @@   , _eCSTaskDefinitionContainerDefinitionHostname = Nothing   , _eCSTaskDefinitionContainerDefinitionImage = imagearg   , _eCSTaskDefinitionContainerDefinitionLinks = Nothing+  , _eCSTaskDefinitionContainerDefinitionLinuxParameters = Nothing   , _eCSTaskDefinitionContainerDefinitionLogConfiguration = Nothing   , _eCSTaskDefinitionContainerDefinitionMemory = Nothing   , _eCSTaskDefinitionContainerDefinitionMemoryReservation = Nothing@@ -207,6 +212,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-links ecstdcdLinks :: Lens' ECSTaskDefinitionContainerDefinition (Maybe (ValList Text)) ecstdcdLinks = lens _eCSTaskDefinitionContainerDefinitionLinks (\s a -> s { _eCSTaskDefinitionContainerDefinitionLinks = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-linuxparameters+ecstdcdLinuxParameters :: Lens' ECSTaskDefinitionContainerDefinition (Maybe ECSTaskDefinitionLinuxParameters)+ecstdcdLinuxParameters = lens _eCSTaskDefinitionContainerDefinitionLinuxParameters (\s a -> s { _eCSTaskDefinitionContainerDefinitionLinuxParameters = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-logconfiguration ecstdcdLogConfiguration :: Lens' ECSTaskDefinitionContainerDefinition (Maybe ECSTaskDefinitionLogConfiguration)

+ library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionDevice.hs view

@@ -0,0 +1,66 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-device.html++module Stratosphere.ResourceProperties.ECSTaskDefinitionDevice 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 ECSTaskDefinitionDevice. See+-- 'ecsTaskDefinitionDevice' for a more convenient constructor.+data ECSTaskDefinitionDevice =+  ECSTaskDefinitionDevice+  { _eCSTaskDefinitionDeviceContainerPath :: Maybe (Val Text)+  , _eCSTaskDefinitionDeviceHostPath :: Val Text+  , _eCSTaskDefinitionDevicePermissions :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON ECSTaskDefinitionDevice where+  toJSON ECSTaskDefinitionDevice{..} =+    object $+    catMaybes+    [ fmap (("ContainerPath",) . toJSON) _eCSTaskDefinitionDeviceContainerPath+    , (Just . ("HostPath",) . toJSON) _eCSTaskDefinitionDeviceHostPath+    , fmap (("Permissions",) . toJSON) _eCSTaskDefinitionDevicePermissions+    ]++instance FromJSON ECSTaskDefinitionDevice where+  parseJSON (Object obj) =+    ECSTaskDefinitionDevice <$>+      (obj .:? "ContainerPath") <*>+      (obj .: "HostPath") <*>+      (obj .:? "Permissions")+  parseJSON _ = mempty++-- | Constructor for 'ECSTaskDefinitionDevice' containing required fields as+-- arguments.+ecsTaskDefinitionDevice+  :: Val Text -- ^ 'ecstddHostPath'+  -> ECSTaskDefinitionDevice+ecsTaskDefinitionDevice hostPatharg =+  ECSTaskDefinitionDevice+  { _eCSTaskDefinitionDeviceContainerPath = Nothing+  , _eCSTaskDefinitionDeviceHostPath = hostPatharg+  , _eCSTaskDefinitionDevicePermissions = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-device.html#cfn-ecs-taskdefinition-device-containerpath+ecstddContainerPath :: Lens' ECSTaskDefinitionDevice (Maybe (Val Text))+ecstddContainerPath = lens _eCSTaskDefinitionDeviceContainerPath (\s a -> s { _eCSTaskDefinitionDeviceContainerPath = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-device.html#cfn-ecs-taskdefinition-device-hostpath+ecstddHostPath :: Lens' ECSTaskDefinitionDevice (Val Text)+ecstddHostPath = lens _eCSTaskDefinitionDeviceHostPath (\s a -> s { _eCSTaskDefinitionDeviceHostPath = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-device.html#cfn-ecs-taskdefinition-device-permissions+ecstddPermissions :: Lens' ECSTaskDefinitionDevice (Maybe (ValList Text))+ecstddPermissions = lens _eCSTaskDefinitionDevicePermissions (\s a -> s { _eCSTaskDefinitionDevicePermissions = a })

+ library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionKernelCapabilities.hs view

@@ -0,0 +1,57 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-kernelcapabilities.html++module Stratosphere.ResourceProperties.ECSTaskDefinitionKernelCapabilities 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 ECSTaskDefinitionKernelCapabilities. See+-- 'ecsTaskDefinitionKernelCapabilities' for a more convenient constructor.+data ECSTaskDefinitionKernelCapabilities =+  ECSTaskDefinitionKernelCapabilities+  { _eCSTaskDefinitionKernelCapabilitiesAdd :: Maybe (ValList Text)+  , _eCSTaskDefinitionKernelCapabilitiesDrop :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON ECSTaskDefinitionKernelCapabilities where+  toJSON ECSTaskDefinitionKernelCapabilities{..} =+    object $+    catMaybes+    [ fmap (("Add",) . toJSON) _eCSTaskDefinitionKernelCapabilitiesAdd+    , fmap (("Drop",) . toJSON) _eCSTaskDefinitionKernelCapabilitiesDrop+    ]++instance FromJSON ECSTaskDefinitionKernelCapabilities where+  parseJSON (Object obj) =+    ECSTaskDefinitionKernelCapabilities <$>+      (obj .:? "Add") <*>+      (obj .:? "Drop")+  parseJSON _ = mempty++-- | Constructor for 'ECSTaskDefinitionKernelCapabilities' containing required+-- fields as arguments.+ecsTaskDefinitionKernelCapabilities+  :: ECSTaskDefinitionKernelCapabilities+ecsTaskDefinitionKernelCapabilities  =+  ECSTaskDefinitionKernelCapabilities+  { _eCSTaskDefinitionKernelCapabilitiesAdd = Nothing+  , _eCSTaskDefinitionKernelCapabilitiesDrop = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-kernelcapabilities.html#cfn-ecs-taskdefinition-kernelcapabilities-add+ecstdkcAdd :: Lens' ECSTaskDefinitionKernelCapabilities (Maybe (ValList Text))+ecstdkcAdd = lens _eCSTaskDefinitionKernelCapabilitiesAdd (\s a -> s { _eCSTaskDefinitionKernelCapabilitiesAdd = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-kernelcapabilities.html#cfn-ecs-taskdefinition-kernelcapabilities-drop+ecstdkcDrop :: Lens' ECSTaskDefinitionKernelCapabilities (Maybe (ValList Text))+ecstdkcDrop = lens _eCSTaskDefinitionKernelCapabilitiesDrop (\s a -> s { _eCSTaskDefinitionKernelCapabilitiesDrop = a })

+ library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionLinuxParameters.hs view

@@ -0,0 +1,66 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-linuxparameters.html++module Stratosphere.ResourceProperties.ECSTaskDefinitionLinuxParameters 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.ECSTaskDefinitionKernelCapabilities+import Stratosphere.ResourceProperties.ECSTaskDefinitionDevice++-- | Full data type definition for ECSTaskDefinitionLinuxParameters. See+-- 'ecsTaskDefinitionLinuxParameters' for a more convenient constructor.+data ECSTaskDefinitionLinuxParameters =+  ECSTaskDefinitionLinuxParameters+  { _eCSTaskDefinitionLinuxParametersCapabilities :: Maybe ECSTaskDefinitionKernelCapabilities+  , _eCSTaskDefinitionLinuxParametersDevices :: Maybe [ECSTaskDefinitionDevice]+  , _eCSTaskDefinitionLinuxParametersInitProcessEnabled :: Maybe (Val Bool)+  } deriving (Show, Eq)++instance ToJSON ECSTaskDefinitionLinuxParameters where+  toJSON ECSTaskDefinitionLinuxParameters{..} =+    object $+    catMaybes+    [ fmap (("Capabilities",) . toJSON) _eCSTaskDefinitionLinuxParametersCapabilities+    , fmap (("Devices",) . toJSON) _eCSTaskDefinitionLinuxParametersDevices+    , fmap (("InitProcessEnabled",) . toJSON . fmap Bool') _eCSTaskDefinitionLinuxParametersInitProcessEnabled+    ]++instance FromJSON ECSTaskDefinitionLinuxParameters where+  parseJSON (Object obj) =+    ECSTaskDefinitionLinuxParameters <$>+      (obj .:? "Capabilities") <*>+      (obj .:? "Devices") <*>+      fmap (fmap (fmap unBool')) (obj .:? "InitProcessEnabled")+  parseJSON _ = mempty++-- | Constructor for 'ECSTaskDefinitionLinuxParameters' containing required+-- fields as arguments.+ecsTaskDefinitionLinuxParameters+  :: ECSTaskDefinitionLinuxParameters+ecsTaskDefinitionLinuxParameters  =+  ECSTaskDefinitionLinuxParameters+  { _eCSTaskDefinitionLinuxParametersCapabilities = Nothing+  , _eCSTaskDefinitionLinuxParametersDevices = Nothing+  , _eCSTaskDefinitionLinuxParametersInitProcessEnabled = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-linuxparameters.html#cfn-ecs-taskdefinition-linuxparameters-capabilities+ecstdlpCapabilities :: Lens' ECSTaskDefinitionLinuxParameters (Maybe ECSTaskDefinitionKernelCapabilities)+ecstdlpCapabilities = lens _eCSTaskDefinitionLinuxParametersCapabilities (\s a -> s { _eCSTaskDefinitionLinuxParametersCapabilities = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-linuxparameters.html#cfn-ecs-taskdefinition-linuxparameters-devices+ecstdlpDevices :: Lens' ECSTaskDefinitionLinuxParameters (Maybe [ECSTaskDefinitionDevice])+ecstdlpDevices = lens _eCSTaskDefinitionLinuxParametersDevices (\s a -> s { _eCSTaskDefinitionLinuxParametersDevices = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-linuxparameters.html#cfn-ecs-taskdefinition-linuxparameters-initprocessenabled+ecstdlpInitProcessEnabled :: Lens' ECSTaskDefinitionLinuxParameters (Maybe (Val Bool))+ecstdlpInitProcessEnabled = lens _eCSTaskDefinitionLinuxParametersInitProcessEnabled (\s a -> s { _eCSTaskDefinitionLinuxParametersInitProcessEnabled = a })

library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting.hs view

@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-option-settings.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-configurationtemplate-configurationoptionsetting.html  module Stratosphere.ResourceProperties.ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting where @@ -61,18 +61,18 @@   , _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingValue = Nothing   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-option-settings.html#cfn-beanstalk-optionsettings-namespace+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-configurationtemplate-configurationoptionsetting.html#cfn-elasticbeanstalk-configurationtemplate-configurationoptionsetting-namespace ebctcosNamespace :: Lens' ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting (Val Text) ebctcosNamespace = lens _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingNamespace (\s a -> s { _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingNamespace = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-option-settings.html#cfn-beanstalk-optionsettings-optionname+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-configurationtemplate-configurationoptionsetting.html#cfn-elasticbeanstalk-configurationtemplate-configurationoptionsetting-optionname ebctcosOptionName :: Lens' ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting (Val Text) ebctcosOptionName = lens _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingOptionName (\s a -> s { _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingOptionName = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-option-settings.html#cfn-elasticbeanstalk-configurationtemplate-configurationoptionsetting-resourcename+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-configurationtemplate-configurationoptionsetting.html#cfn-elasticbeanstalk-configurationtemplate-configurationoptionsetting-resourcename ebctcosResourceName :: Lens' ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting (Maybe (Val Text)) ebctcosResourceName = lens _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingResourceName (\s a -> s { _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingResourceName = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-option-settings.html#cfn-beanstalk-optionsettings-value+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-configurationtemplate-configurationoptionsetting.html#cfn-elasticbeanstalk-configurationtemplate-configurationoptionsetting-value ebctcosValue :: Lens' ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting (Maybe (Val Text)) ebctcosValue = lens _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingValue (\s a -> s { _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingValue = a })

library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkConfigurationTemplateSourceConfiguration.hs view

@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-configurationtemplate-sourceconfiguration.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-configurationtemplate-sourceconfiguration.html  module Stratosphere.ResourceProperties.ElasticBeanstalkConfigurationTemplateSourceConfiguration where @@ -53,10 +53,10 @@   , _elasticBeanstalkConfigurationTemplateSourceConfigurationTemplateName = templateNamearg   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-configurationtemplate-sourceconfiguration.html#cfn-beanstalk-configurationtemplate-sourceconfiguration-applicationname+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-configurationtemplate-sourceconfiguration.html#cfn-elasticbeanstalk-configurationtemplate-sourceconfiguration-applicationname ebctscApplicationName :: Lens' ElasticBeanstalkConfigurationTemplateSourceConfiguration (Val Text) ebctscApplicationName = lens _elasticBeanstalkConfigurationTemplateSourceConfigurationApplicationName (\s a -> s { _elasticBeanstalkConfigurationTemplateSourceConfigurationApplicationName = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-configurationtemplate-sourceconfiguration.html#cfn-beanstalk-configurationtemplate-sourceconfiguration-templatename+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-configurationtemplate-sourceconfiguration.html#cfn-elasticbeanstalk-configurationtemplate-sourceconfiguration-templatename ebctscTemplateName :: Lens' ElasticBeanstalkConfigurationTemplateSourceConfiguration (Val Text) ebctscTemplateName = lens _elasticBeanstalkConfigurationTemplateSourceConfigurationTemplateName (\s a -> s { _elasticBeanstalkConfigurationTemplateSourceConfigurationTemplateName = a })

+ library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainVPCOptions.hs view

@@ -0,0 +1,57 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-vpcoptions.html++module Stratosphere.ResourceProperties.ElasticsearchDomainVPCOptions 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 ElasticsearchDomainVPCOptions. See+-- 'elasticsearchDomainVPCOptions' for a more convenient constructor.+data ElasticsearchDomainVPCOptions =+  ElasticsearchDomainVPCOptions+  { _elasticsearchDomainVPCOptionsSecurityGroupIds :: Maybe (ValList Text)+  , _elasticsearchDomainVPCOptionsSubnetIds :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON ElasticsearchDomainVPCOptions where+  toJSON ElasticsearchDomainVPCOptions{..} =+    object $+    catMaybes+    [ fmap (("SecurityGroupIds",) . toJSON) _elasticsearchDomainVPCOptionsSecurityGroupIds+    , fmap (("SubnetIds",) . toJSON) _elasticsearchDomainVPCOptionsSubnetIds+    ]++instance FromJSON ElasticsearchDomainVPCOptions where+  parseJSON (Object obj) =+    ElasticsearchDomainVPCOptions <$>+      (obj .:? "SecurityGroupIds") <*>+      (obj .:? "SubnetIds")+  parseJSON _ = mempty++-- | Constructor for 'ElasticsearchDomainVPCOptions' containing required+-- fields as arguments.+elasticsearchDomainVPCOptions+  :: ElasticsearchDomainVPCOptions+elasticsearchDomainVPCOptions  =+  ElasticsearchDomainVPCOptions+  { _elasticsearchDomainVPCOptionsSecurityGroupIds = Nothing+  , _elasticsearchDomainVPCOptionsSubnetIds = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-vpcoptions.html#cfn-elasticsearch-domain-vpcoptions-securitygroupids+edvpcoSecurityGroupIds :: Lens' ElasticsearchDomainVPCOptions (Maybe (ValList Text))+edvpcoSecurityGroupIds = lens _elasticsearchDomainVPCOptionsSecurityGroupIds (\s a -> s { _elasticsearchDomainVPCOptionsSecurityGroupIds = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-vpcoptions.html#cfn-elasticsearch-domain-vpcoptions-subnetids+edvpcoSubnetIds :: Lens' ElasticsearchDomainVPCOptions (Maybe (ValList Text))+edvpcoSubnetIds = lens _elasticsearchDomainVPCOptionsSubnetIds (\s a -> s { _elasticsearchDomainVPCOptionsSubnetIds = a })

− library-gen/Stratosphere/ResourceProperties/LambdaAliasAliasRoutingConfiguration.hs

@@ -1,50 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TupleSections #-}---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-alias-aliasroutingconfiguration.html--module Stratosphere.ResourceProperties.LambdaAliasAliasRoutingConfiguration where--import Control.Lens hiding ((.=))-import Data.Aeson-import Data.Maybe (catMaybes)-import Data.Monoid (mempty)-import Data.Text--import Stratosphere.Values-import Stratosphere.ResourceProperties.LambdaAliasVersionWeight---- | Full data type definition for LambdaAliasAliasRoutingConfiguration. See--- 'lambdaAliasAliasRoutingConfiguration' for a more convenient constructor.-data LambdaAliasAliasRoutingConfiguration =-  LambdaAliasAliasRoutingConfiguration-  { _lambdaAliasAliasRoutingConfigurationAdditionalVersionWeights :: [LambdaAliasVersionWeight]-  } deriving (Show, Eq)--instance ToJSON LambdaAliasAliasRoutingConfiguration where-  toJSON LambdaAliasAliasRoutingConfiguration{..} =-    object $-    catMaybes-    [ (Just . ("AdditionalVersionWeights",) . toJSON) _lambdaAliasAliasRoutingConfigurationAdditionalVersionWeights-    ]--instance FromJSON LambdaAliasAliasRoutingConfiguration where-  parseJSON (Object obj) =-    LambdaAliasAliasRoutingConfiguration <$>-      (obj .: "AdditionalVersionWeights")-  parseJSON _ = mempty---- | Constructor for 'LambdaAliasAliasRoutingConfiguration' containing--- required fields as arguments.-lambdaAliasAliasRoutingConfiguration-  :: [LambdaAliasVersionWeight] -- ^ 'laarcAdditionalVersionWeights'-  -> LambdaAliasAliasRoutingConfiguration-lambdaAliasAliasRoutingConfiguration additionalVersionWeightsarg =-  LambdaAliasAliasRoutingConfiguration-  { _lambdaAliasAliasRoutingConfigurationAdditionalVersionWeights = additionalVersionWeightsarg-  }---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-alias-aliasroutingconfiguration.html#cfn-lambda-alias-aliasroutingconfiguration-additionalversionweights-laarcAdditionalVersionWeights :: Lens' LambdaAliasAliasRoutingConfiguration [LambdaAliasVersionWeight]-laarcAdditionalVersionWeights = lens _lambdaAliasAliasRoutingConfigurationAdditionalVersionWeights (\s a -> s { _lambdaAliasAliasRoutingConfigurationAdditionalVersionWeights = a })

− library-gen/Stratosphere/ResourceProperties/LambdaAliasVersionWeight.hs

@@ -1,59 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TupleSections #-}---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-alias-versionweight.html--module Stratosphere.ResourceProperties.LambdaAliasVersionWeight where--import Control.Lens hiding ((.=))-import Data.Aeson-import Data.Maybe (catMaybes)-import Data.Monoid (mempty)-import Data.Text--import Stratosphere.Values----- | Full data type definition for LambdaAliasVersionWeight. See--- 'lambdaAliasVersionWeight' for a more convenient constructor.-data LambdaAliasVersionWeight =-  LambdaAliasVersionWeight-  { _lambdaAliasVersionWeightFunctionVersion :: Val Text-  , _lambdaAliasVersionWeightFunctionWeight :: Val Double-  } deriving (Show, Eq)--instance ToJSON LambdaAliasVersionWeight where-  toJSON LambdaAliasVersionWeight{..} =-    object $-    catMaybes-    [ (Just . ("FunctionVersion",) . toJSON) _lambdaAliasVersionWeightFunctionVersion-    , (Just . ("FunctionWeight",) . toJSON . fmap Double') _lambdaAliasVersionWeightFunctionWeight-    ]--instance FromJSON LambdaAliasVersionWeight where-  parseJSON (Object obj) =-    LambdaAliasVersionWeight <$>-      (obj .: "FunctionVersion") <*>-      fmap (fmap unDouble') (obj .: "FunctionWeight")-  parseJSON _ = mempty---- | Constructor for 'LambdaAliasVersionWeight' containing required fields as--- arguments.-lambdaAliasVersionWeight-  :: Val Text -- ^ 'lavwFunctionVersion'-  -> Val Double -- ^ 'lavwFunctionWeight'-  -> LambdaAliasVersionWeight-lambdaAliasVersionWeight functionVersionarg functionWeightarg =-  LambdaAliasVersionWeight-  { _lambdaAliasVersionWeightFunctionVersion = functionVersionarg-  , _lambdaAliasVersionWeightFunctionWeight = functionWeightarg-  }---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-alias-versionweight.html#cfn-lambda-alias-versionweight-functionversion-lavwFunctionVersion :: Lens' LambdaAliasVersionWeight (Val Text)-lavwFunctionVersion = lens _lambdaAliasVersionWeightFunctionVersion (\s a -> s { _lambdaAliasVersionWeightFunctionVersion = a })---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-alias-versionweight.html#cfn-lambda-alias-versionweight-functionweight-lavwFunctionWeight :: Lens' LambdaAliasVersionWeight (Val Double)-lavwFunctionWeight = lens _lambdaAliasVersionWeightFunctionWeight (\s a -> s { _lambdaAliasVersionWeightFunctionWeight = a })

+ library-gen/Stratosphere/ResourceProperties/Route53HostedZoneQueryLoggingConfig.hs view

@@ -0,0 +1,50 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-hostedzone-queryloggingconfig.html++module Stratosphere.ResourceProperties.Route53HostedZoneQueryLoggingConfig 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 Route53HostedZoneQueryLoggingConfig. See+-- 'route53HostedZoneQueryLoggingConfig' for a more convenient constructor.+data Route53HostedZoneQueryLoggingConfig =+  Route53HostedZoneQueryLoggingConfig+  { _route53HostedZoneQueryLoggingConfigCloudWatchLogsLogGroupArn :: Val Text+  } deriving (Show, Eq)++instance ToJSON Route53HostedZoneQueryLoggingConfig where+  toJSON Route53HostedZoneQueryLoggingConfig{..} =+    object $+    catMaybes+    [ (Just . ("CloudWatchLogsLogGroupArn",) . toJSON) _route53HostedZoneQueryLoggingConfigCloudWatchLogsLogGroupArn+    ]++instance FromJSON Route53HostedZoneQueryLoggingConfig where+  parseJSON (Object obj) =+    Route53HostedZoneQueryLoggingConfig <$>+      (obj .: "CloudWatchLogsLogGroupArn")+  parseJSON _ = mempty++-- | Constructor for 'Route53HostedZoneQueryLoggingConfig' containing required+-- fields as arguments.+route53HostedZoneQueryLoggingConfig+  :: Val Text -- ^ 'rhzqlcCloudWatchLogsLogGroupArn'+  -> Route53HostedZoneQueryLoggingConfig+route53HostedZoneQueryLoggingConfig cloudWatchLogsLogGroupArnarg =+  Route53HostedZoneQueryLoggingConfig+  { _route53HostedZoneQueryLoggingConfigCloudWatchLogsLogGroupArn = cloudWatchLogsLogGroupArnarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-hostedzone-queryloggingconfig.html#cfn-route53-hostedzone-queryloggingconfig-cloudwatchlogsloggrouparn+rhzqlcCloudWatchLogsLogGroupArn :: Lens' Route53HostedZoneQueryLoggingConfig (Val Text)+rhzqlcCloudWatchLogsLogGroupArn = lens _route53HostedZoneQueryLoggingConfigCloudWatchLogsLogGroupArn (\s a -> s { _route53HostedZoneQueryLoggingConfigCloudWatchLogsLogGroupArn = a })

library-gen/Stratosphere/Resources.hs view

@@ -285,14 +285,18 @@ import Stratosphere.ResourceProperties.ApiGatewayDeploymentMethodSetting as X import Stratosphere.ResourceProperties.ApiGatewayDeploymentStageDescription as X import Stratosphere.ResourceProperties.ApiGatewayDocumentationPartLocation as X+import Stratosphere.ResourceProperties.ApiGatewayDomainNameEndpointConfiguration as X import Stratosphere.ResourceProperties.ApiGatewayMethodIntegration as X import Stratosphere.ResourceProperties.ApiGatewayMethodIntegrationResponse as X import Stratosphere.ResourceProperties.ApiGatewayMethodMethodResponse as X+import Stratosphere.ResourceProperties.ApiGatewayRestApiEndpointConfiguration as X import Stratosphere.ResourceProperties.ApiGatewayRestApiS3Location as X import Stratosphere.ResourceProperties.ApiGatewayStageMethodSetting as X import Stratosphere.ResourceProperties.ApiGatewayUsagePlanApiStage as X import Stratosphere.ResourceProperties.ApiGatewayUsagePlanQuotaSettings as X import Stratosphere.ResourceProperties.ApiGatewayUsagePlanThrottleSettings as X+import Stratosphere.ResourceProperties.ApplicationAutoScalingScalableTargetScalableTargetAction as X+import Stratosphere.ResourceProperties.ApplicationAutoScalingScalableTargetScheduledAction as X import Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyCustomizedMetricSpecification as X import Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyMetricDimension as X import Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyPredefinedMetricSpecification as X@@ -448,14 +452,18 @@ import Stratosphere.ResourceProperties.EC2SpotFleetSpotFleetRequestConfigData as X import Stratosphere.ResourceProperties.EC2SpotFleetSpotPlacement as X import Stratosphere.ResourceProperties.EC2VPNConnectionVpnTunnelOptionsSpecification as X+import Stratosphere.ResourceProperties.ECRRepositoryLifecyclePolicy as X import Stratosphere.ResourceProperties.ECSServiceDeploymentConfiguration as X import Stratosphere.ResourceProperties.ECSServiceLoadBalancer as X import Stratosphere.ResourceProperties.ECSServicePlacementConstraint as X import Stratosphere.ResourceProperties.ECSServicePlacementStrategy as X import Stratosphere.ResourceProperties.ECSTaskDefinitionContainerDefinition as X+import Stratosphere.ResourceProperties.ECSTaskDefinitionDevice as X import Stratosphere.ResourceProperties.ECSTaskDefinitionHostEntry as X import Stratosphere.ResourceProperties.ECSTaskDefinitionHostVolumeProperties as X+import Stratosphere.ResourceProperties.ECSTaskDefinitionKernelCapabilities as X import Stratosphere.ResourceProperties.ECSTaskDefinitionKeyValuePair as X+import Stratosphere.ResourceProperties.ECSTaskDefinitionLinuxParameters as X import Stratosphere.ResourceProperties.ECSTaskDefinitionLogConfiguration as X import Stratosphere.ResourceProperties.ECSTaskDefinitionMountPoint as X import Stratosphere.ResourceProperties.ECSTaskDefinitionPortMapping as X@@ -538,6 +546,7 @@ import Stratosphere.ResourceProperties.ElasticsearchDomainEBSOptions as X import Stratosphere.ResourceProperties.ElasticsearchDomainElasticsearchClusterConfig as X import Stratosphere.ResourceProperties.ElasticsearchDomainSnapshotOptions as X+import Stratosphere.ResourceProperties.ElasticsearchDomainVPCOptions as X import Stratosphere.ResourceProperties.EventsRuleEcsParameters as X import Stratosphere.ResourceProperties.EventsRuleInputTransformer as X import Stratosphere.ResourceProperties.EventsRuleKinesisParameters as X@@ -633,8 +642,6 @@ import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessorParameter as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamS3DestinationConfiguration as X-import Stratosphere.ResourceProperties.LambdaAliasAliasRoutingConfiguration as X-import Stratosphere.ResourceProperties.LambdaAliasVersionWeight as X import Stratosphere.ResourceProperties.LambdaFunctionCode as X import Stratosphere.ResourceProperties.LambdaFunctionDeadLetterConfig as X import Stratosphere.ResourceProperties.LambdaFunctionEnvironment as X@@ -669,6 +676,7 @@ import Stratosphere.ResourceProperties.Route53HealthCheckHealthCheckTag as X import Stratosphere.ResourceProperties.Route53HostedZoneHostedZoneConfig as X import Stratosphere.ResourceProperties.Route53HostedZoneHostedZoneTag as X+import Stratosphere.ResourceProperties.Route53HostedZoneQueryLoggingConfig as X import Stratosphere.ResourceProperties.Route53HostedZoneVPC as X import Stratosphere.ResourceProperties.Route53RecordSetAliasTarget as X import Stratosphere.ResourceProperties.Route53RecordSetGeoLocation as X

library-gen/Stratosphere/Resources/ApiGatewayApiKey.hs view

@@ -19,8 +19,10 @@ -- for a more convenient constructor. data ApiGatewayApiKey =   ApiGatewayApiKey-  { _apiGatewayApiKeyDescription :: Maybe (Val Text)+  { _apiGatewayApiKeyCustomerId :: Maybe (Val Text)+  , _apiGatewayApiKeyDescription :: Maybe (Val Text)   , _apiGatewayApiKeyEnabled :: Maybe (Val Bool)+  , _apiGatewayApiKeyGenerateDistinctId :: Maybe (Val Bool)   , _apiGatewayApiKeyName :: Maybe (Val Text)   , _apiGatewayApiKeyStageKeys :: Maybe [ApiGatewayApiKeyStageKey]   } deriving (Show, Eq)@@ -29,8 +31,10 @@   toJSON ApiGatewayApiKey{..} =     object $     catMaybes-    [ fmap (("Description",) . toJSON) _apiGatewayApiKeyDescription+    [ fmap (("CustomerId",) . toJSON) _apiGatewayApiKeyCustomerId+    , fmap (("Description",) . toJSON) _apiGatewayApiKeyDescription     , fmap (("Enabled",) . toJSON . fmap Bool') _apiGatewayApiKeyEnabled+    , fmap (("GenerateDistinctId",) . toJSON . fmap Bool') _apiGatewayApiKeyGenerateDistinctId     , fmap (("Name",) . toJSON) _apiGatewayApiKeyName     , fmap (("StageKeys",) . toJSON) _apiGatewayApiKeyStageKeys     ]@@ -38,8 +42,10 @@ instance FromJSON ApiGatewayApiKey where   parseJSON (Object obj) =     ApiGatewayApiKey <$>+      (obj .:? "CustomerId") <*>       (obj .:? "Description") <*>       fmap (fmap (fmap unBool')) (obj .:? "Enabled") <*>+      fmap (fmap (fmap unBool')) (obj .:? "GenerateDistinctId") <*>       (obj .:? "Name") <*>       (obj .:? "StageKeys")   parseJSON _ = mempty@@ -50,24 +56,34 @@   :: ApiGatewayApiKey apiGatewayApiKey  =   ApiGatewayApiKey-  { _apiGatewayApiKeyDescription = Nothing+  { _apiGatewayApiKeyCustomerId = Nothing+  , _apiGatewayApiKeyDescription = Nothing   , _apiGatewayApiKeyEnabled = Nothing+  , _apiGatewayApiKeyGenerateDistinctId = Nothing   , _apiGatewayApiKeyName = Nothing   , _apiGatewayApiKeyStageKeys = Nothing   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-apikey.html#cfn-apigateway-apigateway-apikey-description+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-apikey.html#cfn-apigateway-apikey-customerid+agakCustomerId :: Lens' ApiGatewayApiKey (Maybe (Val Text))+agakCustomerId = lens _apiGatewayApiKeyCustomerId (\s a -> s { _apiGatewayApiKeyCustomerId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-apikey.html#cfn-apigateway-apikey-description agakDescription :: Lens' ApiGatewayApiKey (Maybe (Val Text)) agakDescription = lens _apiGatewayApiKeyDescription (\s a -> s { _apiGatewayApiKeyDescription = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-apikey.html#cfn-apigateway-apigateway-apikey-enabled+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-apikey.html#cfn-apigateway-apikey-enabled agakEnabled :: Lens' ApiGatewayApiKey (Maybe (Val Bool)) agakEnabled = lens _apiGatewayApiKeyEnabled (\s a -> s { _apiGatewayApiKeyEnabled = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-apikey.html#cfn-apigateway-apigateway-apikey-name+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-apikey.html#cfn-apigateway-apikey-generatedistinctid+agakGenerateDistinctId :: Lens' ApiGatewayApiKey (Maybe (Val Bool))+agakGenerateDistinctId = lens _apiGatewayApiKeyGenerateDistinctId (\s a -> s { _apiGatewayApiKeyGenerateDistinctId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-apikey.html#cfn-apigateway-apikey-name agakName :: Lens' ApiGatewayApiKey (Maybe (Val Text)) agakName = lens _apiGatewayApiKeyName (\s a -> s { _apiGatewayApiKeyName = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-apikey.html#cfn-apigateway-apigateway-apikey-stagekeys+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-apikey.html#cfn-apigateway-apikey-stagekeys agakStageKeys :: Lens' ApiGatewayApiKey (Maybe [ApiGatewayApiKeyStageKey]) agakStageKeys = lens _apiGatewayApiKeyStageKeys (\s a -> s { _apiGatewayApiKeyStageKeys = a })

library-gen/Stratosphere/Resources/ApiGatewayDomainName.hs view

@@ -13,47 +13,62 @@ import Data.Text  import Stratosphere.Values-+import Stratosphere.ResourceProperties.ApiGatewayDomainNameEndpointConfiguration  -- | Full data type definition for ApiGatewayDomainName. See -- 'apiGatewayDomainName' for a more convenient constructor. data ApiGatewayDomainName =   ApiGatewayDomainName-  { _apiGatewayDomainNameCertificateArn :: Val Text+  { _apiGatewayDomainNameCertificateArn :: Maybe (Val Text)   , _apiGatewayDomainNameDomainName :: Val Text+  , _apiGatewayDomainNameEndpointConfiguration :: Maybe ApiGatewayDomainNameEndpointConfiguration+  , _apiGatewayDomainNameRegionalCertificateArn :: Maybe (Val Text)   } deriving (Show, Eq)  instance ToJSON ApiGatewayDomainName where   toJSON ApiGatewayDomainName{..} =     object $     catMaybes-    [ (Just . ("CertificateArn",) . toJSON) _apiGatewayDomainNameCertificateArn+    [ fmap (("CertificateArn",) . toJSON) _apiGatewayDomainNameCertificateArn     , (Just . ("DomainName",) . toJSON) _apiGatewayDomainNameDomainName+    , fmap (("EndpointConfiguration",) . toJSON) _apiGatewayDomainNameEndpointConfiguration+    , fmap (("RegionalCertificateArn",) . toJSON) _apiGatewayDomainNameRegionalCertificateArn     ]  instance FromJSON ApiGatewayDomainName where   parseJSON (Object obj) =     ApiGatewayDomainName <$>-      (obj .: "CertificateArn") <*>-      (obj .: "DomainName")+      (obj .:? "CertificateArn") <*>+      (obj .: "DomainName") <*>+      (obj .:? "EndpointConfiguration") <*>+      (obj .:? "RegionalCertificateArn")   parseJSON _ = mempty  -- | Constructor for 'ApiGatewayDomainName' containing required fields as -- arguments. apiGatewayDomainName-  :: Val Text -- ^ 'agdnCertificateArn'-  -> Val Text -- ^ 'agdnDomainName'+  :: Val Text -- ^ 'agdnDomainName'   -> ApiGatewayDomainName-apiGatewayDomainName certificateArnarg domainNamearg =+apiGatewayDomainName domainNamearg =   ApiGatewayDomainName-  { _apiGatewayDomainNameCertificateArn = certificateArnarg+  { _apiGatewayDomainNameCertificateArn = Nothing   , _apiGatewayDomainNameDomainName = domainNamearg+  , _apiGatewayDomainNameEndpointConfiguration = Nothing+  , _apiGatewayDomainNameRegionalCertificateArn = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-domainname.html#cfn-apigateway-domainname-certificatearn-agdnCertificateArn :: Lens' ApiGatewayDomainName (Val Text)+agdnCertificateArn :: Lens' ApiGatewayDomainName (Maybe (Val Text)) agdnCertificateArn = lens _apiGatewayDomainNameCertificateArn (\s a -> s { _apiGatewayDomainNameCertificateArn = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-domainname.html#cfn-apigateway-domainname-domainname agdnDomainName :: Lens' ApiGatewayDomainName (Val Text) agdnDomainName = lens _apiGatewayDomainNameDomainName (\s a -> s { _apiGatewayDomainNameDomainName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-domainname.html#cfn-apigateway-domainname-endpointconfiguration+agdnEndpointConfiguration :: Lens' ApiGatewayDomainName (Maybe ApiGatewayDomainNameEndpointConfiguration)+agdnEndpointConfiguration = lens _apiGatewayDomainNameEndpointConfiguration (\s a -> s { _apiGatewayDomainNameEndpointConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-domainname.html#cfn-apigateway-domainname-regionalcertificatearn+agdnRegionalCertificateArn :: Lens' ApiGatewayDomainName (Maybe (Val Text))+agdnRegionalCertificateArn = lens _apiGatewayDomainNameRegionalCertificateArn (\s a -> s { _apiGatewayDomainNameRegionalCertificateArn = a })

library-gen/Stratosphere/Resources/ApiGatewayRestApi.hs view

@@ -14,6 +14,7 @@  import Stratosphere.Values import Stratosphere.ResourceProperties.ApiGatewayRestApiS3Location+import Stratosphere.ResourceProperties.ApiGatewayRestApiEndpointConfiguration  -- | Full data type definition for ApiGatewayRestApi. See 'apiGatewayRestApi' -- for a more convenient constructor.@@ -24,6 +25,7 @@   , _apiGatewayRestApiBodyS3Location :: Maybe ApiGatewayRestApiS3Location   , _apiGatewayRestApiCloneFrom :: Maybe (Val Text)   , _apiGatewayRestApiDescription :: Maybe (Val Text)+  , _apiGatewayRestApiEndpointConfiguration :: Maybe ApiGatewayRestApiEndpointConfiguration   , _apiGatewayRestApiFailOnWarnings :: Maybe (Val Bool)   , _apiGatewayRestApiMode :: Maybe (Val Text)   , _apiGatewayRestApiName :: Maybe (Val Text)@@ -39,6 +41,7 @@     , fmap (("BodyS3Location",) . toJSON) _apiGatewayRestApiBodyS3Location     , fmap (("CloneFrom",) . toJSON) _apiGatewayRestApiCloneFrom     , fmap (("Description",) . toJSON) _apiGatewayRestApiDescription+    , fmap (("EndpointConfiguration",) . toJSON) _apiGatewayRestApiEndpointConfiguration     , fmap (("FailOnWarnings",) . toJSON . fmap Bool') _apiGatewayRestApiFailOnWarnings     , fmap (("Mode",) . toJSON) _apiGatewayRestApiMode     , fmap (("Name",) . toJSON) _apiGatewayRestApiName@@ -53,6 +56,7 @@       (obj .:? "BodyS3Location") <*>       (obj .:? "CloneFrom") <*>       (obj .:? "Description") <*>+      (obj .:? "EndpointConfiguration") <*>       fmap (fmap (fmap unBool')) (obj .:? "FailOnWarnings") <*>       (obj .:? "Mode") <*>       (obj .:? "Name") <*>@@ -70,6 +74,7 @@   , _apiGatewayRestApiBodyS3Location = Nothing   , _apiGatewayRestApiCloneFrom = Nothing   , _apiGatewayRestApiDescription = Nothing+  , _apiGatewayRestApiEndpointConfiguration = Nothing   , _apiGatewayRestApiFailOnWarnings = Nothing   , _apiGatewayRestApiMode = Nothing   , _apiGatewayRestApiName = Nothing@@ -95,6 +100,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-restapi.html#cfn-apigateway-restapi-description agraDescription :: Lens' ApiGatewayRestApi (Maybe (Val Text)) agraDescription = lens _apiGatewayRestApiDescription (\s a -> s { _apiGatewayRestApiDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-restapi.html#cfn-apigateway-restapi-endpointconfiguration+agraEndpointConfiguration :: Lens' ApiGatewayRestApi (Maybe ApiGatewayRestApiEndpointConfiguration)+agraEndpointConfiguration = lens _apiGatewayRestApiEndpointConfiguration (\s a -> s { _apiGatewayRestApiEndpointConfiguration = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-restapi.html#cfn-apigateway-restapi-failonwarnings agraFailOnWarnings :: Lens' ApiGatewayRestApi (Maybe (Val Bool))

library-gen/Stratosphere/Resources/ApplicationAutoScalingScalableTarget.hs view

@@ -13,7 +13,7 @@ import Data.Text  import Stratosphere.Values-+import Stratosphere.ResourceProperties.ApplicationAutoScalingScalableTargetScheduledAction  -- | Full data type definition for ApplicationAutoScalingScalableTarget. See -- 'applicationAutoScalingScalableTarget' for a more convenient constructor.@@ -24,6 +24,7 @@   , _applicationAutoScalingScalableTargetResourceId :: Val Text   , _applicationAutoScalingScalableTargetRoleARN :: Val Text   , _applicationAutoScalingScalableTargetScalableDimension :: Val Text+  , _applicationAutoScalingScalableTargetScheduledActions :: Maybe [ApplicationAutoScalingScalableTargetScheduledAction]   , _applicationAutoScalingScalableTargetServiceNamespace :: Val Text   } deriving (Show, Eq) @@ -36,6 +37,7 @@     , (Just . ("ResourceId",) . toJSON) _applicationAutoScalingScalableTargetResourceId     , (Just . ("RoleARN",) . toJSON) _applicationAutoScalingScalableTargetRoleARN     , (Just . ("ScalableDimension",) . toJSON) _applicationAutoScalingScalableTargetScalableDimension+    , fmap (("ScheduledActions",) . toJSON) _applicationAutoScalingScalableTargetScheduledActions     , (Just . ("ServiceNamespace",) . toJSON) _applicationAutoScalingScalableTargetServiceNamespace     ] @@ -47,6 +49,7 @@       (obj .: "ResourceId") <*>       (obj .: "RoleARN") <*>       (obj .: "ScalableDimension") <*>+      (obj .:? "ScheduledActions") <*>       (obj .: "ServiceNamespace")   parseJSON _ = mempty @@ -67,6 +70,7 @@   , _applicationAutoScalingScalableTargetResourceId = resourceIdarg   , _applicationAutoScalingScalableTargetRoleARN = roleARNarg   , _applicationAutoScalingScalableTargetScalableDimension = scalableDimensionarg+  , _applicationAutoScalingScalableTargetScheduledActions = Nothing   , _applicationAutoScalingScalableTargetServiceNamespace = serviceNamespacearg   } @@ -89,6 +93,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-applicationautoscaling-scalabletarget.html#cfn-applicationautoscaling-scalabletarget-scalabledimension aasstScalableDimension :: Lens' ApplicationAutoScalingScalableTarget (Val Text) aasstScalableDimension = lens _applicationAutoScalingScalableTargetScalableDimension (\s a -> s { _applicationAutoScalingScalableTargetScalableDimension = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-applicationautoscaling-scalabletarget.html#cfn-applicationautoscaling-scalabletarget-scheduledactions+aasstScheduledActions :: Lens' ApplicationAutoScalingScalableTarget (Maybe [ApplicationAutoScalingScalableTargetScheduledAction])+aasstScheduledActions = lens _applicationAutoScalingScalableTargetScheduledActions (\s a -> s { _applicationAutoScalingScalableTargetScheduledActions = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-applicationautoscaling-scalabletarget.html#cfn-applicationautoscaling-scalabletarget-servicenamespace aasstServiceNamespace :: Lens' ApplicationAutoScalingScalableTarget (Val Text)

library-gen/Stratosphere/Resources/ECRRepository.hs view

@@ -13,13 +13,14 @@ import Data.Text  import Stratosphere.Values-+import Stratosphere.ResourceProperties.ECRRepositoryLifecyclePolicy  -- | Full data type definition for ECRRepository. See 'ecrRepository' for a -- more convenient constructor. data ECRRepository =   ECRRepository-  { _eCRRepositoryRepositoryName :: Maybe (Val Text)+  { _eCRRepositoryLifecyclePolicy :: Maybe ECRRepositoryLifecyclePolicy+  , _eCRRepositoryRepositoryName :: Maybe (Val Text)   , _eCRRepositoryRepositoryPolicyText :: Maybe Object   } deriving (Show, Eq) @@ -27,13 +28,15 @@   toJSON ECRRepository{..} =     object $     catMaybes-    [ fmap (("RepositoryName",) . toJSON) _eCRRepositoryRepositoryName+    [ fmap (("LifecyclePolicy",) . toJSON) _eCRRepositoryLifecyclePolicy+    , fmap (("RepositoryName",) . toJSON) _eCRRepositoryRepositoryName     , fmap (("RepositoryPolicyText",) . toJSON) _eCRRepositoryRepositoryPolicyText     ]  instance FromJSON ECRRepository where   parseJSON (Object obj) =     ECRRepository <$>+      (obj .:? "LifecyclePolicy") <*>       (obj .:? "RepositoryName") <*>       (obj .:? "RepositoryPolicyText")   parseJSON _ = mempty@@ -43,9 +46,14 @@   :: ECRRepository ecrRepository  =   ECRRepository-  { _eCRRepositoryRepositoryName = Nothing+  { _eCRRepositoryLifecyclePolicy = Nothing+  , _eCRRepositoryRepositoryName = Nothing   , _eCRRepositoryRepositoryPolicyText = Nothing   }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecr-repository.html#cfn-ecr-repository-lifecyclepolicy+ecrrLifecyclePolicy :: Lens' ECRRepository (Maybe ECRRepositoryLifecyclePolicy)+ecrrLifecyclePolicy = lens _eCRRepositoryLifecyclePolicy (\s a -> s { _eCRRepositoryLifecyclePolicy = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecr-repository.html#cfn-ecr-repository-repositoryname ecrrRepositoryName :: Lens' ECRRepository (Maybe (Val Text))

library-gen/Stratosphere/Resources/EMRCluster.hs view

@@ -29,6 +29,7 @@   , _eMRClusterBootstrapActions :: Maybe [EMRClusterBootstrapActionConfig]   , _eMRClusterConfigurations :: Maybe [EMRClusterConfiguration]   , _eMRClusterCustomAmiId :: Maybe (Val Text)+  , _eMRClusterEbsRootVolumeSize :: Maybe (Val Integer)   , _eMRClusterInstances :: EMRClusterJobFlowInstancesConfig   , _eMRClusterJobFlowRole :: Val Text   , _eMRClusterLogUri :: Maybe (Val Text)@@ -51,6 +52,7 @@     , fmap (("BootstrapActions",) . toJSON) _eMRClusterBootstrapActions     , fmap (("Configurations",) . toJSON) _eMRClusterConfigurations     , fmap (("CustomAmiId",) . toJSON) _eMRClusterCustomAmiId+    , fmap (("EbsRootVolumeSize",) . toJSON . fmap Integer') _eMRClusterEbsRootVolumeSize     , (Just . ("Instances",) . toJSON) _eMRClusterInstances     , (Just . ("JobFlowRole",) . toJSON) _eMRClusterJobFlowRole     , fmap (("LogUri",) . toJSON) _eMRClusterLogUri@@ -72,6 +74,7 @@       (obj .:? "BootstrapActions") <*>       (obj .:? "Configurations") <*>       (obj .:? "CustomAmiId") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "EbsRootVolumeSize") <*>       (obj .: "Instances") <*>       (obj .: "JobFlowRole") <*>       (obj .:? "LogUri") <*>@@ -99,6 +102,7 @@   , _eMRClusterBootstrapActions = Nothing   , _eMRClusterConfigurations = Nothing   , _eMRClusterCustomAmiId = Nothing+  , _eMRClusterEbsRootVolumeSize = Nothing   , _eMRClusterInstances = instancesarg   , _eMRClusterJobFlowRole = jobFlowRolearg   , _eMRClusterLogUri = Nothing@@ -134,6 +138,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-customamiid emrcCustomAmiId :: Lens' EMRCluster (Maybe (Val Text)) emrcCustomAmiId = lens _eMRClusterCustomAmiId (\s a -> s { _eMRClusterCustomAmiId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-ebsrootvolumesize+emrcEbsRootVolumeSize :: Lens' EMRCluster (Maybe (Val Integer))+emrcEbsRootVolumeSize = lens _eMRClusterEbsRootVolumeSize (\s a -> s { _eMRClusterEbsRootVolumeSize = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-instances emrcInstances :: Lens' EMRCluster EMRClusterJobFlowInstancesConfig

library-gen/Stratosphere/Resources/ElastiCacheReplicationGroup.hs view

@@ -20,7 +20,9 @@ -- 'elastiCacheReplicationGroup' for a more convenient constructor. data ElastiCacheReplicationGroup =   ElastiCacheReplicationGroup-  { _elastiCacheReplicationGroupAutoMinorVersionUpgrade :: Maybe (Val Bool)+  { _elastiCacheReplicationGroupAtRestEncryptionEnabled :: Maybe (Val Bool)+  , _elastiCacheReplicationGroupAuthToken :: Maybe (Val Text)+  , _elastiCacheReplicationGroupAutoMinorVersionUpgrade :: Maybe (Val Bool)   , _elastiCacheReplicationGroupAutomaticFailoverEnabled :: Maybe (Val Bool)   , _elastiCacheReplicationGroupCacheNodeType :: Maybe (Val Text)   , _elastiCacheReplicationGroupCacheParameterGroupName :: Maybe (Val Text)@@ -46,13 +48,16 @@   , _elastiCacheReplicationGroupSnapshotWindow :: Maybe (Val Text)   , _elastiCacheReplicationGroupSnapshottingClusterId :: Maybe (Val Text)   , _elastiCacheReplicationGroupTags :: Maybe [Tag]+  , _elastiCacheReplicationGroupTransitEncryptionEnabled :: Maybe (Val Bool)   } deriving (Show, Eq)  instance ToJSON ElastiCacheReplicationGroup where   toJSON ElastiCacheReplicationGroup{..} =     object $     catMaybes-    [ fmap (("AutoMinorVersionUpgrade",) . toJSON . fmap Bool') _elastiCacheReplicationGroupAutoMinorVersionUpgrade+    [ fmap (("AtRestEncryptionEnabled",) . toJSON . fmap Bool') _elastiCacheReplicationGroupAtRestEncryptionEnabled+    , fmap (("AuthToken",) . toJSON) _elastiCacheReplicationGroupAuthToken+    , fmap (("AutoMinorVersionUpgrade",) . toJSON . fmap Bool') _elastiCacheReplicationGroupAutoMinorVersionUpgrade     , fmap (("AutomaticFailoverEnabled",) . toJSON . fmap Bool') _elastiCacheReplicationGroupAutomaticFailoverEnabled     , fmap (("CacheNodeType",) . toJSON) _elastiCacheReplicationGroupCacheNodeType     , fmap (("CacheParameterGroupName",) . toJSON) _elastiCacheReplicationGroupCacheParameterGroupName@@ -78,11 +83,14 @@     , fmap (("SnapshotWindow",) . toJSON) _elastiCacheReplicationGroupSnapshotWindow     , fmap (("SnapshottingClusterId",) . toJSON) _elastiCacheReplicationGroupSnapshottingClusterId     , fmap (("Tags",) . toJSON) _elastiCacheReplicationGroupTags+    , fmap (("TransitEncryptionEnabled",) . toJSON . fmap Bool') _elastiCacheReplicationGroupTransitEncryptionEnabled     ]  instance FromJSON ElastiCacheReplicationGroup where   parseJSON (Object obj) =     ElastiCacheReplicationGroup <$>+      fmap (fmap (fmap unBool')) (obj .:? "AtRestEncryptionEnabled") <*>+      (obj .:? "AuthToken") <*>       fmap (fmap (fmap unBool')) (obj .:? "AutoMinorVersionUpgrade") <*>       fmap (fmap (fmap unBool')) (obj .:? "AutomaticFailoverEnabled") <*>       (obj .:? "CacheNodeType") <*>@@ -108,7 +116,8 @@       fmap (fmap (fmap unInteger')) (obj .:? "SnapshotRetentionLimit") <*>       (obj .:? "SnapshotWindow") <*>       (obj .:? "SnapshottingClusterId") <*>-      (obj .:? "Tags")+      (obj .:? "Tags") <*>+      fmap (fmap (fmap unBool')) (obj .:? "TransitEncryptionEnabled")   parseJSON _ = mempty  -- | Constructor for 'ElastiCacheReplicationGroup' containing required fields@@ -118,7 +127,9 @@   -> ElastiCacheReplicationGroup elastiCacheReplicationGroup replicationGroupDescriptionarg =   ElastiCacheReplicationGroup-  { _elastiCacheReplicationGroupAutoMinorVersionUpgrade = Nothing+  { _elastiCacheReplicationGroupAtRestEncryptionEnabled = Nothing+  , _elastiCacheReplicationGroupAuthToken = Nothing+  , _elastiCacheReplicationGroupAutoMinorVersionUpgrade = Nothing   , _elastiCacheReplicationGroupAutomaticFailoverEnabled = Nothing   , _elastiCacheReplicationGroupCacheNodeType = Nothing   , _elastiCacheReplicationGroupCacheParameterGroupName = Nothing@@ -144,8 +155,17 @@   , _elastiCacheReplicationGroupSnapshotWindow = Nothing   , _elastiCacheReplicationGroupSnapshottingClusterId = Nothing   , _elastiCacheReplicationGroupTags = Nothing+  , _elastiCacheReplicationGroupTransitEncryptionEnabled = Nothing   } +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-atrestencryptionenabled+ecrgAtRestEncryptionEnabled :: Lens' ElastiCacheReplicationGroup (Maybe (Val Bool))+ecrgAtRestEncryptionEnabled = lens _elastiCacheReplicationGroupAtRestEncryptionEnabled (\s a -> s { _elastiCacheReplicationGroupAtRestEncryptionEnabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-authtoken+ecrgAuthToken :: Lens' ElastiCacheReplicationGroup (Maybe (Val Text))+ecrgAuthToken = lens _elastiCacheReplicationGroupAuthToken (\s a -> s { _elastiCacheReplicationGroupAuthToken = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-autominorversionupgrade ecrgAutoMinorVersionUpgrade :: Lens' ElastiCacheReplicationGroup (Maybe (Val Bool)) ecrgAutoMinorVersionUpgrade = lens _elastiCacheReplicationGroupAutoMinorVersionUpgrade (\s a -> s { _elastiCacheReplicationGroupAutoMinorVersionUpgrade = a })@@ -249,3 +269,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-tags ecrgTags :: Lens' ElastiCacheReplicationGroup (Maybe [Tag]) ecrgTags = lens _elastiCacheReplicationGroupTags (\s a -> s { _elastiCacheReplicationGroupTags = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-transitencryptionenabled+ecrgTransitEncryptionEnabled :: Lens' ElastiCacheReplicationGroup (Maybe (Val Bool))+ecrgTransitEncryptionEnabled = lens _elastiCacheReplicationGroupTransitEncryptionEnabled (\s a -> s { _elastiCacheReplicationGroupTransitEncryptionEnabled = a })

library-gen/Stratosphere/Resources/ElasticBeanstalkConfigurationTemplate.hs view

@@ -2,7 +2,7 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-beanstalk-configurationtemplate.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticbeanstalk-configurationtemplate.html  module Stratosphere.Resources.ElasticBeanstalkConfigurationTemplate where @@ -71,30 +71,30 @@   , _elasticBeanstalkConfigurationTemplateSourceConfiguration = Nothing   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-beanstalk-configurationtemplate.html#cfn-elasticbeanstalk-configurationtemplate-applicationname+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticbeanstalk-configurationtemplate.html#cfn-elasticbeanstalk-configurationtemplate-applicationname ebctApplicationName :: Lens' ElasticBeanstalkConfigurationTemplate (Val Text) ebctApplicationName = lens _elasticBeanstalkConfigurationTemplateApplicationName (\s a -> s { _elasticBeanstalkConfigurationTemplateApplicationName = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-beanstalk-configurationtemplate.html#cfn-elasticbeanstalk-configurationtemplate-description+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticbeanstalk-configurationtemplate.html#cfn-elasticbeanstalk-configurationtemplate-description ebctDescription :: Lens' ElasticBeanstalkConfigurationTemplate (Maybe (Val Text)) ebctDescription = lens _elasticBeanstalkConfigurationTemplateDescription (\s a -> s { _elasticBeanstalkConfigurationTemplateDescription = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-beanstalk-configurationtemplate.html#cfn-elasticbeanstalk-configurationtemplate-environmentid+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticbeanstalk-configurationtemplate.html#cfn-elasticbeanstalk-configurationtemplate-environmentid ebctEnvironmentId :: Lens' ElasticBeanstalkConfigurationTemplate (Maybe (Val Text)) ebctEnvironmentId = lens _elasticBeanstalkConfigurationTemplateEnvironmentId (\s a -> s { _elasticBeanstalkConfigurationTemplateEnvironmentId = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-beanstalk-configurationtemplate.html#cfn-elasticbeanstalk-configurationtemplate-optionsettings+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticbeanstalk-configurationtemplate.html#cfn-elasticbeanstalk-configurationtemplate-optionsettings ebctOptionSettings :: Lens' ElasticBeanstalkConfigurationTemplate (Maybe [ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting]) ebctOptionSettings = lens _elasticBeanstalkConfigurationTemplateOptionSettings (\s a -> s { _elasticBeanstalkConfigurationTemplateOptionSettings = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-beanstalk-configurationtemplate.html#cfn-elasticbeanstalk-configurationtemplate-platformarn+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticbeanstalk-configurationtemplate.html#cfn-elasticbeanstalk-configurationtemplate-platformarn ebctPlatformArn :: Lens' ElasticBeanstalkConfigurationTemplate (Maybe (Val Text)) ebctPlatformArn = lens _elasticBeanstalkConfigurationTemplatePlatformArn (\s a -> s { _elasticBeanstalkConfigurationTemplatePlatformArn = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-beanstalk-configurationtemplate.html#cfn-elasticbeanstalk-configurationtemplate-solutionstackname+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticbeanstalk-configurationtemplate.html#cfn-elasticbeanstalk-configurationtemplate-solutionstackname ebctSolutionStackName :: Lens' ElasticBeanstalkConfigurationTemplate (Maybe (Val Text)) ebctSolutionStackName = lens _elasticBeanstalkConfigurationTemplateSolutionStackName (\s a -> s { _elasticBeanstalkConfigurationTemplateSolutionStackName = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-beanstalk-configurationtemplate.html#cfn-elasticbeanstalk-configurationtemplate-sourceconfiguration+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticbeanstalk-configurationtemplate.html#cfn-elasticbeanstalk-configurationtemplate-sourceconfiguration ebctSourceConfiguration :: Lens' ElasticBeanstalkConfigurationTemplate (Maybe ElasticBeanstalkConfigurationTemplateSourceConfiguration) ebctSourceConfiguration = lens _elasticBeanstalkConfigurationTemplateSourceConfiguration (\s a -> s { _elasticBeanstalkConfigurationTemplateSourceConfiguration = a })

library-gen/Stratosphere/Resources/ElasticsearchDomain.hs view

@@ -17,6 +17,7 @@ import Stratosphere.ResourceProperties.ElasticsearchDomainElasticsearchClusterConfig import Stratosphere.ResourceProperties.ElasticsearchDomainSnapshotOptions import Stratosphere.ResourceProperties.Tag+import Stratosphere.ResourceProperties.ElasticsearchDomainVPCOptions  -- | Full data type definition for ElasticsearchDomain. See -- 'elasticsearchDomain' for a more convenient constructor.@@ -30,6 +31,7 @@   , _elasticsearchDomainElasticsearchVersion :: Maybe (Val Text)   , _elasticsearchDomainSnapshotOptions :: Maybe ElasticsearchDomainSnapshotOptions   , _elasticsearchDomainTags :: Maybe [Tag]+  , _elasticsearchDomainVPCOptions :: Maybe ElasticsearchDomainVPCOptions   } deriving (Show, Eq)  instance ToJSON ElasticsearchDomain where@@ -44,6 +46,7 @@     , fmap (("ElasticsearchVersion",) . toJSON) _elasticsearchDomainElasticsearchVersion     , fmap (("SnapshotOptions",) . toJSON) _elasticsearchDomainSnapshotOptions     , fmap (("Tags",) . toJSON) _elasticsearchDomainTags+    , fmap (("VPCOptions",) . toJSON) _elasticsearchDomainVPCOptions     ]  instance FromJSON ElasticsearchDomain where@@ -56,7 +59,8 @@       (obj .:? "ElasticsearchClusterConfig") <*>       (obj .:? "ElasticsearchVersion") <*>       (obj .:? "SnapshotOptions") <*>-      (obj .:? "Tags")+      (obj .:? "Tags") <*>+      (obj .:? "VPCOptions")   parseJSON _ = mempty  -- | Constructor for 'ElasticsearchDomain' containing required fields as@@ -73,6 +77,7 @@   , _elasticsearchDomainElasticsearchVersion = Nothing   , _elasticsearchDomainSnapshotOptions = Nothing   , _elasticsearchDomainTags = Nothing+  , _elasticsearchDomainVPCOptions = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticsearch-domain.html#cfn-elasticsearch-domain-accesspolicies@@ -106,3 +111,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticsearch-domain.html#cfn-elasticsearch-domain-tags edTags :: Lens' ElasticsearchDomain (Maybe [Tag]) edTags = lens _elasticsearchDomainTags (\s a -> s { _elasticsearchDomainTags = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticsearch-domain.html#cfn-elasticsearch-domain-vpcoptions+edVPCOptions :: Lens' ElasticsearchDomain (Maybe ElasticsearchDomainVPCOptions)+edVPCOptions = lens _elasticsearchDomainVPCOptions (\s a -> s { _elasticsearchDomainVPCOptions = a })

library-gen/Stratosphere/Resources/LambdaAlias.hs view

@@ -13,8 +13,8 @@ import Data.Text  import Stratosphere.Values-import Stratosphere.ResourceProperties.LambdaAliasAliasRoutingConfiguration + -- | Full data type definition for LambdaAlias. See 'lambdaAlias' for a more -- convenient constructor. data LambdaAlias =@@ -23,7 +23,6 @@   , _lambdaAliasFunctionName :: Val Text   , _lambdaAliasFunctionVersion :: Val Text   , _lambdaAliasName :: Val Text-  , _lambdaAliasRoutingConfig :: Maybe LambdaAliasAliasRoutingConfiguration   } deriving (Show, Eq)  instance ToJSON LambdaAlias where@@ -34,7 +33,6 @@     , (Just . ("FunctionName",) . toJSON) _lambdaAliasFunctionName     , (Just . ("FunctionVersion",) . toJSON) _lambdaAliasFunctionVersion     , (Just . ("Name",) . toJSON) _lambdaAliasName-    , fmap (("RoutingConfig",) . toJSON) _lambdaAliasRoutingConfig     ]  instance FromJSON LambdaAlias where@@ -43,8 +41,7 @@       (obj .:? "Description") <*>       (obj .: "FunctionName") <*>       (obj .: "FunctionVersion") <*>-      (obj .: "Name") <*>-      (obj .:? "RoutingConfig")+      (obj .: "Name")   parseJSON _ = mempty  -- | Constructor for 'LambdaAlias' containing required fields as arguments.@@ -59,7 +56,6 @@   , _lambdaAliasFunctionName = functionNamearg   , _lambdaAliasFunctionVersion = functionVersionarg   , _lambdaAliasName = namearg-  , _lambdaAliasRoutingConfig = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-alias.html#cfn-lambda-alias-description@@ -77,7 +73,3 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-alias.html#cfn-lambda-alias-name laName :: Lens' LambdaAlias (Val Text) laName = lens _lambdaAliasName (\s a -> s { _lambdaAliasName = a })---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-alias.html#cfn-lambda-alias-routingconfig-laRoutingConfig :: Lens' LambdaAlias (Maybe LambdaAliasAliasRoutingConfiguration)-laRoutingConfig = lens _lambdaAliasRoutingConfig (\s a -> s { _lambdaAliasRoutingConfig = a })

library-gen/Stratosphere/Resources/RDSDBCluster.hs view

@@ -19,7 +19,7 @@ -- convenient constructor. data RDSDBCluster =   RDSDBCluster-  { _rDSDBClusterAvailabilityZones :: Maybe (Val Text)+  { _rDSDBClusterAvailabilityZones :: Maybe (ValList Text)   , _rDSDBClusterBackupRetentionPeriod :: Maybe (Val Integer)   , _rDSDBClusterDBClusterParameterGroupName :: Maybe (Val Text)   , _rDSDBClusterDBSubnetGroupName :: Maybe (Val Text)@@ -113,7 +113,7 @@   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-availabilityzones-rdsdbcAvailabilityZones :: Lens' RDSDBCluster (Maybe (Val Text))+rdsdbcAvailabilityZones :: Lens' RDSDBCluster (Maybe (ValList Text)) rdsdbcAvailabilityZones = lens _rDSDBClusterAvailabilityZones (\s a -> s { _rDSDBClusterAvailabilityZones = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-backuprententionperiod

library-gen/Stratosphere/Resources/RDSDBInstance.hs view

@@ -52,6 +52,7 @@   , _rDSDBInstancePreferredMaintenanceWindow :: Maybe (Val Text)   , _rDSDBInstancePubliclyAccessible :: Maybe (Val Bool)   , _rDSDBInstanceSourceDBInstanceIdentifier :: Maybe (Val Text)+  , _rDSDBInstanceSourceRegion :: Maybe (Val Text)   , _rDSDBInstanceStorageEncrypted :: Maybe (Val Bool)   , _rDSDBInstanceStorageType :: Maybe (Val Text)   , _rDSDBInstanceTags :: Maybe [Tag]@@ -96,6 +97,7 @@     , fmap (("PreferredMaintenanceWindow",) . toJSON) _rDSDBInstancePreferredMaintenanceWindow     , fmap (("PubliclyAccessible",) . toJSON . fmap Bool') _rDSDBInstancePubliclyAccessible     , fmap (("SourceDBInstanceIdentifier",) . toJSON) _rDSDBInstanceSourceDBInstanceIdentifier+    , fmap (("SourceRegion",) . toJSON) _rDSDBInstanceSourceRegion     , fmap (("StorageEncrypted",) . toJSON . fmap Bool') _rDSDBInstanceStorageEncrypted     , fmap (("StorageType",) . toJSON) _rDSDBInstanceStorageType     , fmap (("Tags",) . toJSON) _rDSDBInstanceTags@@ -139,6 +141,7 @@       (obj .:? "PreferredMaintenanceWindow") <*>       fmap (fmap (fmap unBool')) (obj .:? "PubliclyAccessible") <*>       (obj .:? "SourceDBInstanceIdentifier") <*>+      (obj .:? "SourceRegion") <*>       fmap (fmap (fmap unBool')) (obj .:? "StorageEncrypted") <*>       (obj .:? "StorageType") <*>       (obj .:? "Tags") <*>@@ -185,6 +188,7 @@   , _rDSDBInstancePreferredMaintenanceWindow = Nothing   , _rDSDBInstancePubliclyAccessible = Nothing   , _rDSDBInstanceSourceDBInstanceIdentifier = Nothing+  , _rDSDBInstanceSourceRegion = Nothing   , _rDSDBInstanceStorageEncrypted = Nothing   , _rDSDBInstanceStorageType = Nothing   , _rDSDBInstanceTags = Nothing@@ -323,6 +327,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-sourcedbinstanceidentifier rdsdbiSourceDBInstanceIdentifier :: Lens' RDSDBInstance (Maybe (Val Text)) rdsdbiSourceDBInstanceIdentifier = lens _rDSDBInstanceSourceDBInstanceIdentifier (\s a -> s { _rDSDBInstanceSourceDBInstanceIdentifier = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-sourceregion+rdsdbiSourceRegion :: Lens' RDSDBInstance (Maybe (Val Text))+rdsdbiSourceRegion = lens _rDSDBInstanceSourceRegion (\s a -> s { _rDSDBInstanceSourceRegion = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-storageencrypted rdsdbiStorageEncrypted :: Lens' RDSDBInstance (Maybe (Val Bool))

library-gen/Stratosphere/Resources/Route53HostedZone.hs view

@@ -15,6 +15,7 @@ import Stratosphere.Values import Stratosphere.ResourceProperties.Route53HostedZoneHostedZoneConfig import Stratosphere.ResourceProperties.Route53HostedZoneHostedZoneTag+import Stratosphere.ResourceProperties.Route53HostedZoneQueryLoggingConfig import Stratosphere.ResourceProperties.Route53HostedZoneVPC  -- | Full data type definition for Route53HostedZone. See 'route53HostedZone'@@ -24,6 +25,7 @@   { _route53HostedZoneHostedZoneConfig :: Maybe Route53HostedZoneHostedZoneConfig   , _route53HostedZoneHostedZoneTags :: Maybe [Route53HostedZoneHostedZoneTag]   , _route53HostedZoneName :: Val Text+  , _route53HostedZoneQueryLoggingConfig :: Maybe Route53HostedZoneQueryLoggingConfig   , _route53HostedZoneVPCs :: Maybe [Route53HostedZoneVPC]   } deriving (Show, Eq) @@ -34,6 +36,7 @@     [ fmap (("HostedZoneConfig",) . toJSON) _route53HostedZoneHostedZoneConfig     , fmap (("HostedZoneTags",) . toJSON) _route53HostedZoneHostedZoneTags     , (Just . ("Name",) . toJSON) _route53HostedZoneName+    , fmap (("QueryLoggingConfig",) . toJSON) _route53HostedZoneQueryLoggingConfig     , fmap (("VPCs",) . toJSON) _route53HostedZoneVPCs     ] @@ -43,6 +46,7 @@       (obj .:? "HostedZoneConfig") <*>       (obj .:? "HostedZoneTags") <*>       (obj .: "Name") <*>+      (obj .:? "QueryLoggingConfig") <*>       (obj .:? "VPCs")   parseJSON _ = mempty @@ -56,6 +60,7 @@   { _route53HostedZoneHostedZoneConfig = Nothing   , _route53HostedZoneHostedZoneTags = Nothing   , _route53HostedZoneName = namearg+  , _route53HostedZoneQueryLoggingConfig = Nothing   , _route53HostedZoneVPCs = Nothing   } @@ -70,6 +75,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53-hostedzone.html#cfn-route53-hostedzone-name rhzName :: Lens' Route53HostedZone (Val Text) rhzName = lens _route53HostedZoneName (\s a -> s { _route53HostedZoneName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53-hostedzone.html#cfn-route53-hostedzone-queryloggingconfig+rhzQueryLoggingConfig :: Lens' Route53HostedZone (Maybe Route53HostedZoneQueryLoggingConfig)+rhzQueryLoggingConfig = lens _route53HostedZoneQueryLoggingConfig (\s a -> s { _route53HostedZoneQueryLoggingConfig = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53-hostedzone.html#cfn-route53-hostedzone-vpcs rhzVPCs :: Lens' Route53HostedZone (Maybe [Route53HostedZoneVPC])

stratosphere.cabal view

@@ -3,7 +3,7 @@ -- see: https://github.com/sol/hpack  name:           stratosphere-version:        0.12.0+version:        0.13.0 synopsis:       EDSL for AWS CloudFormation description:    EDSL for AWS CloudFormation category:       AWS, Cloud@@ -64,14 +64,18 @@       Stratosphere.ResourceProperties.ApiGatewayDeploymentMethodSetting       Stratosphere.ResourceProperties.ApiGatewayDeploymentStageDescription       Stratosphere.ResourceProperties.ApiGatewayDocumentationPartLocation+      Stratosphere.ResourceProperties.ApiGatewayDomainNameEndpointConfiguration       Stratosphere.ResourceProperties.ApiGatewayMethodIntegration       Stratosphere.ResourceProperties.ApiGatewayMethodIntegrationResponse       Stratosphere.ResourceProperties.ApiGatewayMethodMethodResponse+      Stratosphere.ResourceProperties.ApiGatewayRestApiEndpointConfiguration       Stratosphere.ResourceProperties.ApiGatewayRestApiS3Location       Stratosphere.ResourceProperties.ApiGatewayStageMethodSetting       Stratosphere.ResourceProperties.ApiGatewayUsagePlanApiStage       Stratosphere.ResourceProperties.ApiGatewayUsagePlanQuotaSettings       Stratosphere.ResourceProperties.ApiGatewayUsagePlanThrottleSettings+      Stratosphere.ResourceProperties.ApplicationAutoScalingScalableTargetScalableTargetAction+      Stratosphere.ResourceProperties.ApplicationAutoScalingScalableTargetScheduledAction       Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyCustomizedMetricSpecification       Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyMetricDimension       Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyPredefinedMetricSpecification@@ -227,14 +231,18 @@       Stratosphere.ResourceProperties.EC2SpotFleetSpotFleetRequestConfigData       Stratosphere.ResourceProperties.EC2SpotFleetSpotPlacement       Stratosphere.ResourceProperties.EC2VPNConnectionVpnTunnelOptionsSpecification+      Stratosphere.ResourceProperties.ECRRepositoryLifecyclePolicy       Stratosphere.ResourceProperties.ECSServiceDeploymentConfiguration       Stratosphere.ResourceProperties.ECSServiceLoadBalancer       Stratosphere.ResourceProperties.ECSServicePlacementConstraint       Stratosphere.ResourceProperties.ECSServicePlacementStrategy       Stratosphere.ResourceProperties.ECSTaskDefinitionContainerDefinition+      Stratosphere.ResourceProperties.ECSTaskDefinitionDevice       Stratosphere.ResourceProperties.ECSTaskDefinitionHostEntry       Stratosphere.ResourceProperties.ECSTaskDefinitionHostVolumeProperties+      Stratosphere.ResourceProperties.ECSTaskDefinitionKernelCapabilities       Stratosphere.ResourceProperties.ECSTaskDefinitionKeyValuePair+      Stratosphere.ResourceProperties.ECSTaskDefinitionLinuxParameters       Stratosphere.ResourceProperties.ECSTaskDefinitionLogConfiguration       Stratosphere.ResourceProperties.ECSTaskDefinitionMountPoint       Stratosphere.ResourceProperties.ECSTaskDefinitionPortMapping@@ -274,6 +282,7 @@       Stratosphere.ResourceProperties.ElasticsearchDomainEBSOptions       Stratosphere.ResourceProperties.ElasticsearchDomainElasticsearchClusterConfig       Stratosphere.ResourceProperties.ElasticsearchDomainSnapshotOptions+      Stratosphere.ResourceProperties.ElasticsearchDomainVPCOptions       Stratosphere.ResourceProperties.EMRClusterApplication       Stratosphere.ResourceProperties.EMRClusterAutoScalingPolicy       Stratosphere.ResourceProperties.EMRClusterBootstrapActionConfig@@ -412,8 +421,6 @@       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessorParameter       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamS3DestinationConfiguration-      Stratosphere.ResourceProperties.LambdaAliasAliasRoutingConfiguration-      Stratosphere.ResourceProperties.LambdaAliasVersionWeight       Stratosphere.ResourceProperties.LambdaFunctionCode       Stratosphere.ResourceProperties.LambdaFunctionDeadLetterConfig       Stratosphere.ResourceProperties.LambdaFunctionEnvironment@@ -448,6 +455,7 @@       Stratosphere.ResourceProperties.Route53HealthCheckHealthCheckTag       Stratosphere.ResourceProperties.Route53HostedZoneHostedZoneConfig       Stratosphere.ResourceProperties.Route53HostedZoneHostedZoneTag+      Stratosphere.ResourceProperties.Route53HostedZoneQueryLoggingConfig       Stratosphere.ResourceProperties.Route53HostedZoneVPC       Stratosphere.ResourceProperties.Route53RecordSetAliasTarget       Stratosphere.ResourceProperties.Route53RecordSetGeoLocation