stratosphere 0.13.0 → 0.14.0

raw patch · 34 files changed

+1579/−185 lines, 34 files

Files

CHANGELOG.md +4/−0
library-gen/Stratosphere/ResourceProperties/Cloud9EnvironmentEC2Repository.hs +59/−0
library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionDistributionConfig.hs +0/−26
library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionLegacyCustomOrigin.hs +0/−84
library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionLegacyS3Origin.hs +0/−58
library-gen/Stratosphere/ResourceProperties/CodeBuildProjectProjectCache.hs +58/−0
library-gen/Stratosphere/ResourceProperties/CodeBuildProjectVpcConfig.hs +68/−0
library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupDeploymentStyle.hs +9/−1
library-gen/Stratosphere/ResourceProperties/EC2SpotFleetSpotFleetRequestConfigData.hs +6/−7
library-gen/Stratosphere/ResourceProperties/ECSServiceAwsVpcConfiguration.hs +66/−0
library-gen/Stratosphere/ResourceProperties/ECSServiceNetworkConfiguration.hs +49/−0
library-gen/Stratosphere/ResourceProperties/LambdaAliasAliasRoutingConfiguration.hs +50/−0
library-gen/Stratosphere/ResourceProperties/LambdaAliasVersionWeight.hs +59/−0
library-gen/Stratosphere/ResourceProperties/ServiceDiscoveryServiceDnsConfig.hs +59/−0
library-gen/Stratosphere/ResourceProperties/ServiceDiscoveryServiceDnsRecord.hs +59/−0
library-gen/Stratosphere/ResourceProperties/ServiceDiscoveryServiceHealthCheckConfig.hs +67/−0
library-gen/Stratosphere/Resources.hs +65/−2
library-gen/Stratosphere/Resources/Cloud9EnvironmentEC2.hs +98/−0
library-gen/Stratosphere/Resources/CodeBuildProject.hs +27/−1
library-gen/Stratosphere/Resources/CodeDeployApplication.hs +9/−1
library-gen/Stratosphere/Resources/ECSService.hs +25/−0
library-gen/Stratosphere/Resources/ECSTaskDefinition.hs +32/−0
library-gen/Stratosphere/Resources/GuardDutyDetector.hs +50/−0
library-gen/Stratosphere/Resources/GuardDutyIPSet.hs +84/−0
library-gen/Stratosphere/Resources/GuardDutyThreatIntelSet.hs +85/−0
library-gen/Stratosphere/Resources/InspectorAssessmentTarget.hs +58/−0
library-gen/Stratosphere/Resources/InspectorAssessmentTemplate.hs +84/−0
library-gen/Stratosphere/Resources/InspectorResourceGroup.hs +50/−0
library-gen/Stratosphere/Resources/LambdaAlias.hs +10/−2
library-gen/Stratosphere/Resources/ServiceDiscoveryInstance.hs +67/−0
library-gen/Stratosphere/Resources/ServiceDiscoveryPrivateDnsNamespace.hs +67/−0
library-gen/Stratosphere/Resources/ServiceDiscoveryPublicDnsNamespace.hs +58/−0
library-gen/Stratosphere/Resources/ServiceDiscoveryService.hs +75/−0
stratosphere.cabal +22/−3

CHANGELOG.md view

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

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

@@ -0,0 +1,59 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloud9-environmentec2-repository.html++module Stratosphere.ResourceProperties.Cloud9EnvironmentEC2Repository 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 Cloud9EnvironmentEC2Repository. See+-- 'cloud9EnvironmentEC2Repository' for a more convenient constructor.+data Cloud9EnvironmentEC2Repository =+  Cloud9EnvironmentEC2Repository+  { _cloud9EnvironmentEC2RepositoryPathComponent :: Val Text+  , _cloud9EnvironmentEC2RepositoryRepositoryUrl :: Val Text+  } deriving (Show, Eq)++instance ToJSON Cloud9EnvironmentEC2Repository where+  toJSON Cloud9EnvironmentEC2Repository{..} =+    object $+    catMaybes+    [ (Just . ("PathComponent",) . toJSON) _cloud9EnvironmentEC2RepositoryPathComponent+    , (Just . ("RepositoryUrl",) . toJSON) _cloud9EnvironmentEC2RepositoryRepositoryUrl+    ]++instance FromJSON Cloud9EnvironmentEC2Repository where+  parseJSON (Object obj) =+    Cloud9EnvironmentEC2Repository <$>+      (obj .: "PathComponent") <*>+      (obj .: "RepositoryUrl")+  parseJSON _ = mempty++-- | Constructor for 'Cloud9EnvironmentEC2Repository' containing required+-- fields as arguments.+cloud9EnvironmentEC2Repository+  :: Val Text -- ^ 'ceecrPathComponent'+  -> Val Text -- ^ 'ceecrRepositoryUrl'+  -> Cloud9EnvironmentEC2Repository+cloud9EnvironmentEC2Repository pathComponentarg repositoryUrlarg =+  Cloud9EnvironmentEC2Repository+  { _cloud9EnvironmentEC2RepositoryPathComponent = pathComponentarg+  , _cloud9EnvironmentEC2RepositoryRepositoryUrl = repositoryUrlarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloud9-environmentec2-repository.html#cfn-cloud9-environmentec2-repository-pathcomponent+ceecrPathComponent :: Lens' Cloud9EnvironmentEC2Repository (Val Text)+ceecrPathComponent = lens _cloud9EnvironmentEC2RepositoryPathComponent (\s a -> s { _cloud9EnvironmentEC2RepositoryPathComponent = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloud9-environmentec2-repository.html#cfn-cloud9-environmentec2-repository-repositoryurl+ceecrRepositoryUrl :: Lens' Cloud9EnvironmentEC2Repository (Val Text)+ceecrRepositoryUrl = lens _cloud9EnvironmentEC2RepositoryRepositoryUrl (\s a -> s { _cloud9EnvironmentEC2RepositoryRepositoryUrl = a })

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

@@ -15,12 +15,10 @@ import Stratosphere.Values import Stratosphere.ResourceProperties.CloudFrontDistributionCacheBehavior import Stratosphere.ResourceProperties.CloudFrontDistributionCustomErrorResponse-import Stratosphere.ResourceProperties.CloudFrontDistributionLegacyCustomOrigin import Stratosphere.ResourceProperties.CloudFrontDistributionDefaultCacheBehavior import Stratosphere.ResourceProperties.CloudFrontDistributionLogging import Stratosphere.ResourceProperties.CloudFrontDistributionOrigin import Stratosphere.ResourceProperties.CloudFrontDistributionRestrictions-import Stratosphere.ResourceProperties.CloudFrontDistributionLegacyS3Origin import Stratosphere.ResourceProperties.CloudFrontDistributionViewerCertificate  -- | Full data type definition for CloudFrontDistributionDistributionConfig.@@ -29,11 +27,9 @@ data CloudFrontDistributionDistributionConfig =   CloudFrontDistributionDistributionConfig   { _cloudFrontDistributionDistributionConfigAliases :: Maybe (ValList Text)-  , _cloudFrontDistributionDistributionConfigCNAMEs :: Maybe (ValList Text)   , _cloudFrontDistributionDistributionConfigCacheBehaviors :: Maybe [CloudFrontDistributionCacheBehavior]   , _cloudFrontDistributionDistributionConfigComment :: Maybe (Val Text)   , _cloudFrontDistributionDistributionConfigCustomErrorResponses :: Maybe [CloudFrontDistributionCustomErrorResponse]-  , _cloudFrontDistributionDistributionConfigCustomOrigin :: Maybe CloudFrontDistributionLegacyCustomOrigin   , _cloudFrontDistributionDistributionConfigDefaultCacheBehavior :: Maybe CloudFrontDistributionDefaultCacheBehavior   , _cloudFrontDistributionDistributionConfigDefaultRootObject :: Maybe (Val Text)   , _cloudFrontDistributionDistributionConfigEnabled :: Val Bool@@ -43,7 +39,6 @@   , _cloudFrontDistributionDistributionConfigOrigins :: Maybe [CloudFrontDistributionOrigin]   , _cloudFrontDistributionDistributionConfigPriceClass :: Maybe (Val Text)   , _cloudFrontDistributionDistributionConfigRestrictions :: Maybe CloudFrontDistributionRestrictions-  , _cloudFrontDistributionDistributionConfigS3Origin :: Maybe CloudFrontDistributionLegacyS3Origin   , _cloudFrontDistributionDistributionConfigViewerCertificate :: Maybe CloudFrontDistributionViewerCertificate   , _cloudFrontDistributionDistributionConfigWebACLId :: Maybe (Val Text)   } deriving (Show, Eq)@@ -53,11 +48,9 @@     object $     catMaybes     [ fmap (("Aliases",) . toJSON) _cloudFrontDistributionDistributionConfigAliases-    , fmap (("CNAMEs",) . toJSON) _cloudFrontDistributionDistributionConfigCNAMEs     , fmap (("CacheBehaviors",) . toJSON) _cloudFrontDistributionDistributionConfigCacheBehaviors     , fmap (("Comment",) . toJSON) _cloudFrontDistributionDistributionConfigComment     , fmap (("CustomErrorResponses",) . toJSON) _cloudFrontDistributionDistributionConfigCustomErrorResponses-    , fmap (("CustomOrigin",) . toJSON) _cloudFrontDistributionDistributionConfigCustomOrigin     , fmap (("DefaultCacheBehavior",) . toJSON) _cloudFrontDistributionDistributionConfigDefaultCacheBehavior     , fmap (("DefaultRootObject",) . toJSON) _cloudFrontDistributionDistributionConfigDefaultRootObject     , (Just . ("Enabled",) . toJSON . fmap Bool') _cloudFrontDistributionDistributionConfigEnabled@@ -67,7 +60,6 @@     , fmap (("Origins",) . toJSON) _cloudFrontDistributionDistributionConfigOrigins     , fmap (("PriceClass",) . toJSON) _cloudFrontDistributionDistributionConfigPriceClass     , fmap (("Restrictions",) . toJSON) _cloudFrontDistributionDistributionConfigRestrictions-    , fmap (("S3Origin",) . toJSON) _cloudFrontDistributionDistributionConfigS3Origin     , fmap (("ViewerCertificate",) . toJSON) _cloudFrontDistributionDistributionConfigViewerCertificate     , fmap (("WebACLId",) . toJSON) _cloudFrontDistributionDistributionConfigWebACLId     ]@@ -76,11 +68,9 @@   parseJSON (Object obj) =     CloudFrontDistributionDistributionConfig <$>       (obj .:? "Aliases") <*>-      (obj .:? "CNAMEs") <*>       (obj .:? "CacheBehaviors") <*>       (obj .:? "Comment") <*>       (obj .:? "CustomErrorResponses") <*>-      (obj .:? "CustomOrigin") <*>       (obj .:? "DefaultCacheBehavior") <*>       (obj .:? "DefaultRootObject") <*>       fmap (fmap unBool') (obj .: "Enabled") <*>@@ -90,7 +80,6 @@       (obj .:? "Origins") <*>       (obj .:? "PriceClass") <*>       (obj .:? "Restrictions") <*>-      (obj .:? "S3Origin") <*>       (obj .:? "ViewerCertificate") <*>       (obj .:? "WebACLId")   parseJSON _ = mempty@@ -103,11 +92,9 @@ cloudFrontDistributionDistributionConfig enabledarg =   CloudFrontDistributionDistributionConfig   { _cloudFrontDistributionDistributionConfigAliases = Nothing-  , _cloudFrontDistributionDistributionConfigCNAMEs = Nothing   , _cloudFrontDistributionDistributionConfigCacheBehaviors = Nothing   , _cloudFrontDistributionDistributionConfigComment = Nothing   , _cloudFrontDistributionDistributionConfigCustomErrorResponses = Nothing-  , _cloudFrontDistributionDistributionConfigCustomOrigin = Nothing   , _cloudFrontDistributionDistributionConfigDefaultCacheBehavior = Nothing   , _cloudFrontDistributionDistributionConfigDefaultRootObject = Nothing   , _cloudFrontDistributionDistributionConfigEnabled = enabledarg@@ -117,7 +104,6 @@   , _cloudFrontDistributionDistributionConfigOrigins = Nothing   , _cloudFrontDistributionDistributionConfigPriceClass = Nothing   , _cloudFrontDistributionDistributionConfigRestrictions = Nothing-  , _cloudFrontDistributionDistributionConfigS3Origin = Nothing   , _cloudFrontDistributionDistributionConfigViewerCertificate = Nothing   , _cloudFrontDistributionDistributionConfigWebACLId = Nothing   }@@ -126,10 +112,6 @@ cfddcAliases :: Lens' CloudFrontDistributionDistributionConfig (Maybe (ValList Text)) cfddcAliases = lens _cloudFrontDistributionDistributionConfigAliases (\s a -> s { _cloudFrontDistributionDistributionConfigAliases = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-cnames-cfddcCNAMEs :: Lens' CloudFrontDistributionDistributionConfig (Maybe (ValList Text))-cfddcCNAMEs = lens _cloudFrontDistributionDistributionConfigCNAMEs (\s a -> s { _cloudFrontDistributionDistributionConfigCNAMEs = a })- -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-cachebehaviors cfddcCacheBehaviors :: Lens' CloudFrontDistributionDistributionConfig (Maybe [CloudFrontDistributionCacheBehavior]) cfddcCacheBehaviors = lens _cloudFrontDistributionDistributionConfigCacheBehaviors (\s a -> s { _cloudFrontDistributionDistributionConfigCacheBehaviors = a })@@ -142,10 +124,6 @@ cfddcCustomErrorResponses :: Lens' CloudFrontDistributionDistributionConfig (Maybe [CloudFrontDistributionCustomErrorResponse]) cfddcCustomErrorResponses = lens _cloudFrontDistributionDistributionConfigCustomErrorResponses (\s a -> s { _cloudFrontDistributionDistributionConfigCustomErrorResponses = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-customorigin-cfddcCustomOrigin :: Lens' CloudFrontDistributionDistributionConfig (Maybe CloudFrontDistributionLegacyCustomOrigin)-cfddcCustomOrigin = lens _cloudFrontDistributionDistributionConfigCustomOrigin (\s a -> s { _cloudFrontDistributionDistributionConfigCustomOrigin = a })- -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-defaultcachebehavior cfddcDefaultCacheBehavior :: Lens' CloudFrontDistributionDistributionConfig (Maybe CloudFrontDistributionDefaultCacheBehavior) cfddcDefaultCacheBehavior = lens _cloudFrontDistributionDistributionConfigDefaultCacheBehavior (\s a -> s { _cloudFrontDistributionDistributionConfigDefaultCacheBehavior = a })@@ -181,10 +159,6 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-restrictions cfddcRestrictions :: Lens' CloudFrontDistributionDistributionConfig (Maybe CloudFrontDistributionRestrictions) cfddcRestrictions = lens _cloudFrontDistributionDistributionConfigRestrictions (\s a -> s { _cloudFrontDistributionDistributionConfigRestrictions = a })---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-s3origin-cfddcS3Origin :: Lens' CloudFrontDistributionDistributionConfig (Maybe CloudFrontDistributionLegacyS3Origin)-cfddcS3Origin = lens _cloudFrontDistributionDistributionConfigS3Origin (\s a -> s { _cloudFrontDistributionDistributionConfigS3Origin = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-viewercertificate cfddcViewerCertificate :: Lens' CloudFrontDistributionDistributionConfig (Maybe CloudFrontDistributionViewerCertificate)

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

@@ -1,84 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TupleSections #-}---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-legacycustomorigin.html--module Stratosphere.ResourceProperties.CloudFrontDistributionLegacyCustomOrigin where--import Control.Lens hiding ((.=))-import Data.Aeson-import Data.Maybe (catMaybes)-import Data.Monoid (mempty)-import Data.Text--import Stratosphere.Values----- | Full data type definition for CloudFrontDistributionLegacyCustomOrigin.--- See 'cloudFrontDistributionLegacyCustomOrigin' for a more convenient--- constructor.-data CloudFrontDistributionLegacyCustomOrigin =-  CloudFrontDistributionLegacyCustomOrigin-  { _cloudFrontDistributionLegacyCustomOriginDNSName :: Val Text-  , _cloudFrontDistributionLegacyCustomOriginHTTPPort :: Maybe (Val Integer)-  , _cloudFrontDistributionLegacyCustomOriginHTTPSPort :: Maybe (Val Integer)-  , _cloudFrontDistributionLegacyCustomOriginOriginProtocolPolicy :: Val Text-  , _cloudFrontDistributionLegacyCustomOriginOriginSSLProtocols :: Maybe (ValList Text)-  } deriving (Show, Eq)--instance ToJSON CloudFrontDistributionLegacyCustomOrigin where-  toJSON CloudFrontDistributionLegacyCustomOrigin{..} =-    object $-    catMaybes-    [ (Just . ("DNSName",) . toJSON) _cloudFrontDistributionLegacyCustomOriginDNSName-    , fmap (("HTTPPort",) . toJSON . fmap Integer') _cloudFrontDistributionLegacyCustomOriginHTTPPort-    , fmap (("HTTPSPort",) . toJSON . fmap Integer') _cloudFrontDistributionLegacyCustomOriginHTTPSPort-    , (Just . ("OriginProtocolPolicy",) . toJSON) _cloudFrontDistributionLegacyCustomOriginOriginProtocolPolicy-    , fmap (("OriginSSLProtocols",) . toJSON) _cloudFrontDistributionLegacyCustomOriginOriginSSLProtocols-    ]--instance FromJSON CloudFrontDistributionLegacyCustomOrigin where-  parseJSON (Object obj) =-    CloudFrontDistributionLegacyCustomOrigin <$>-      (obj .: "DNSName") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "HTTPPort") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "HTTPSPort") <*>-      (obj .: "OriginProtocolPolicy") <*>-      (obj .:? "OriginSSLProtocols")-  parseJSON _ = mempty---- | Constructor for 'CloudFrontDistributionLegacyCustomOrigin' containing--- required fields as arguments.-cloudFrontDistributionLegacyCustomOrigin-  :: Val Text -- ^ 'cfdlcoDNSName'-  -> Val Text -- ^ 'cfdlcoOriginProtocolPolicy'-  -> CloudFrontDistributionLegacyCustomOrigin-cloudFrontDistributionLegacyCustomOrigin dNSNamearg originProtocolPolicyarg =-  CloudFrontDistributionLegacyCustomOrigin-  { _cloudFrontDistributionLegacyCustomOriginDNSName = dNSNamearg-  , _cloudFrontDistributionLegacyCustomOriginHTTPPort = Nothing-  , _cloudFrontDistributionLegacyCustomOriginHTTPSPort = Nothing-  , _cloudFrontDistributionLegacyCustomOriginOriginProtocolPolicy = originProtocolPolicyarg-  , _cloudFrontDistributionLegacyCustomOriginOriginSSLProtocols = Nothing-  }---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-legacycustomorigin.html#cfn-cloudfront-distribution-legacycustomorigin-dnsname-cfdlcoDNSName :: Lens' CloudFrontDistributionLegacyCustomOrigin (Val Text)-cfdlcoDNSName = lens _cloudFrontDistributionLegacyCustomOriginDNSName (\s a -> s { _cloudFrontDistributionLegacyCustomOriginDNSName = a })---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-legacycustomorigin.html#cfn-cloudfront-distribution-legacycustomorigin-httpport-cfdlcoHTTPPort :: Lens' CloudFrontDistributionLegacyCustomOrigin (Maybe (Val Integer))-cfdlcoHTTPPort = lens _cloudFrontDistributionLegacyCustomOriginHTTPPort (\s a -> s { _cloudFrontDistributionLegacyCustomOriginHTTPPort = a })---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-legacycustomorigin.html#cfn-cloudfront-distribution-legacycustomorigin-httpsport-cfdlcoHTTPSPort :: Lens' CloudFrontDistributionLegacyCustomOrigin (Maybe (Val Integer))-cfdlcoHTTPSPort = lens _cloudFrontDistributionLegacyCustomOriginHTTPSPort (\s a -> s { _cloudFrontDistributionLegacyCustomOriginHTTPSPort = a })---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-legacycustomorigin.html#cfn-cloudfront-distribution-legacycustomorigin-originprotocolpolicy-cfdlcoOriginProtocolPolicy :: Lens' CloudFrontDistributionLegacyCustomOrigin (Val Text)-cfdlcoOriginProtocolPolicy = lens _cloudFrontDistributionLegacyCustomOriginOriginProtocolPolicy (\s a -> s { _cloudFrontDistributionLegacyCustomOriginOriginProtocolPolicy = a })---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-legacycustomorigin.html#cfn-cloudfront-distribution-legacycustomorigin-originsslprotocols-cfdlcoOriginSSLProtocols :: Lens' CloudFrontDistributionLegacyCustomOrigin (Maybe (ValList Text))-cfdlcoOriginSSLProtocols = lens _cloudFrontDistributionLegacyCustomOriginOriginSSLProtocols (\s a -> s { _cloudFrontDistributionLegacyCustomOriginOriginSSLProtocols = a })

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

@@ -1,58 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TupleSections #-}---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-legacys3origin.html--module Stratosphere.ResourceProperties.CloudFrontDistributionLegacyS3Origin where--import Control.Lens hiding ((.=))-import Data.Aeson-import Data.Maybe (catMaybes)-import Data.Monoid (mempty)-import Data.Text--import Stratosphere.Values----- | Full data type definition for CloudFrontDistributionLegacyS3Origin. See--- 'cloudFrontDistributionLegacyS3Origin' for a more convenient constructor.-data CloudFrontDistributionLegacyS3Origin =-  CloudFrontDistributionLegacyS3Origin-  { _cloudFrontDistributionLegacyS3OriginDNSName :: Val Text-  , _cloudFrontDistributionLegacyS3OriginOriginAccessIdentity :: Maybe (Val Text)-  } deriving (Show, Eq)--instance ToJSON CloudFrontDistributionLegacyS3Origin where-  toJSON CloudFrontDistributionLegacyS3Origin{..} =-    object $-    catMaybes-    [ (Just . ("DNSName",) . toJSON) _cloudFrontDistributionLegacyS3OriginDNSName-    , fmap (("OriginAccessIdentity",) . toJSON) _cloudFrontDistributionLegacyS3OriginOriginAccessIdentity-    ]--instance FromJSON CloudFrontDistributionLegacyS3Origin where-  parseJSON (Object obj) =-    CloudFrontDistributionLegacyS3Origin <$>-      (obj .: "DNSName") <*>-      (obj .:? "OriginAccessIdentity")-  parseJSON _ = mempty---- | Constructor for 'CloudFrontDistributionLegacyS3Origin' containing--- required fields as arguments.-cloudFrontDistributionLegacyS3Origin-  :: Val Text -- ^ 'cfdlsoDNSName'-  -> CloudFrontDistributionLegacyS3Origin-cloudFrontDistributionLegacyS3Origin dNSNamearg =-  CloudFrontDistributionLegacyS3Origin-  { _cloudFrontDistributionLegacyS3OriginDNSName = dNSNamearg-  , _cloudFrontDistributionLegacyS3OriginOriginAccessIdentity = Nothing-  }---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-legacys3origin.html#cfn-cloudfront-distribution-legacys3origin-dnsname-cfdlsoDNSName :: Lens' CloudFrontDistributionLegacyS3Origin (Val Text)-cfdlsoDNSName = lens _cloudFrontDistributionLegacyS3OriginDNSName (\s a -> s { _cloudFrontDistributionLegacyS3OriginDNSName = a })---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-legacys3origin.html#cfn-cloudfront-distribution-legacys3origin-originaccessidentity-cfdlsoOriginAccessIdentity :: Lens' CloudFrontDistributionLegacyS3Origin (Maybe (Val Text))-cfdlsoOriginAccessIdentity = lens _cloudFrontDistributionLegacyS3OriginOriginAccessIdentity (\s a -> s { _cloudFrontDistributionLegacyS3OriginOriginAccessIdentity = a })

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

@@ -0,0 +1,58 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-projectcache.html++module Stratosphere.ResourceProperties.CodeBuildProjectProjectCache 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 CodeBuildProjectProjectCache. See+-- 'codeBuildProjectProjectCache' for a more convenient constructor.+data CodeBuildProjectProjectCache =+  CodeBuildProjectProjectCache+  { _codeBuildProjectProjectCacheLocation :: Maybe (Val Text)+  , _codeBuildProjectProjectCacheType :: Val Text+  } deriving (Show, Eq)++instance ToJSON CodeBuildProjectProjectCache where+  toJSON CodeBuildProjectProjectCache{..} =+    object $+    catMaybes+    [ fmap (("Location",) . toJSON) _codeBuildProjectProjectCacheLocation+    , (Just . ("Type",) . toJSON) _codeBuildProjectProjectCacheType+    ]++instance FromJSON CodeBuildProjectProjectCache where+  parseJSON (Object obj) =+    CodeBuildProjectProjectCache <$>+      (obj .:? "Location") <*>+      (obj .: "Type")+  parseJSON _ = mempty++-- | Constructor for 'CodeBuildProjectProjectCache' containing required fields+-- as arguments.+codeBuildProjectProjectCache+  :: Val Text -- ^ 'cbppcType'+  -> CodeBuildProjectProjectCache+codeBuildProjectProjectCache typearg =+  CodeBuildProjectProjectCache+  { _codeBuildProjectProjectCacheLocation = Nothing+  , _codeBuildProjectProjectCacheType = typearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-projectcache.html#cfn-codebuild-project-projectcache-location+cbppcLocation :: Lens' CodeBuildProjectProjectCache (Maybe (Val Text))+cbppcLocation = lens _codeBuildProjectProjectCacheLocation (\s a -> s { _codeBuildProjectProjectCacheLocation = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-projectcache.html#cfn-codebuild-project-projectcache-type+cbppcType :: Lens' CodeBuildProjectProjectCache (Val Text)+cbppcType = lens _codeBuildProjectProjectCacheType (\s a -> s { _codeBuildProjectProjectCacheType = a })

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

@@ -0,0 +1,68 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-vpcconfig.html++module Stratosphere.ResourceProperties.CodeBuildProjectVpcConfig 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 CodeBuildProjectVpcConfig. See+-- 'codeBuildProjectVpcConfig' for a more convenient constructor.+data CodeBuildProjectVpcConfig =+  CodeBuildProjectVpcConfig+  { _codeBuildProjectVpcConfigSecurityGroupIds :: ValList Text+  , _codeBuildProjectVpcConfigSubnets :: ValList Text+  , _codeBuildProjectVpcConfigVpcId :: Val Text+  } deriving (Show, Eq)++instance ToJSON CodeBuildProjectVpcConfig where+  toJSON CodeBuildProjectVpcConfig{..} =+    object $+    catMaybes+    [ (Just . ("SecurityGroupIds",) . toJSON) _codeBuildProjectVpcConfigSecurityGroupIds+    , (Just . ("Subnets",) . toJSON) _codeBuildProjectVpcConfigSubnets+    , (Just . ("VpcId",) . toJSON) _codeBuildProjectVpcConfigVpcId+    ]++instance FromJSON CodeBuildProjectVpcConfig where+  parseJSON (Object obj) =+    CodeBuildProjectVpcConfig <$>+      (obj .: "SecurityGroupIds") <*>+      (obj .: "Subnets") <*>+      (obj .: "VpcId")+  parseJSON _ = mempty++-- | Constructor for 'CodeBuildProjectVpcConfig' containing required fields as+-- arguments.+codeBuildProjectVpcConfig+  :: ValList Text -- ^ 'cbpvcSecurityGroupIds'+  -> ValList Text -- ^ 'cbpvcSubnets'+  -> Val Text -- ^ 'cbpvcVpcId'+  -> CodeBuildProjectVpcConfig+codeBuildProjectVpcConfig securityGroupIdsarg subnetsarg vpcIdarg =+  CodeBuildProjectVpcConfig+  { _codeBuildProjectVpcConfigSecurityGroupIds = securityGroupIdsarg+  , _codeBuildProjectVpcConfigSubnets = subnetsarg+  , _codeBuildProjectVpcConfigVpcId = vpcIdarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-vpcconfig.html#cfn-codebuild-project-vpcconfig-securitygroupids+cbpvcSecurityGroupIds :: Lens' CodeBuildProjectVpcConfig (ValList Text)+cbpvcSecurityGroupIds = lens _codeBuildProjectVpcConfigSecurityGroupIds (\s a -> s { _codeBuildProjectVpcConfigSecurityGroupIds = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-vpcconfig.html#cfn-codebuild-project-vpcconfig-subnets+cbpvcSubnets :: Lens' CodeBuildProjectVpcConfig (ValList Text)+cbpvcSubnets = lens _codeBuildProjectVpcConfigSubnets (\s a -> s { _codeBuildProjectVpcConfigSubnets = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-vpcconfig.html#cfn-codebuild-project-vpcconfig-vpcid+cbpvcVpcId :: Lens' CodeBuildProjectVpcConfig (Val Text)+cbpvcVpcId = lens _codeBuildProjectVpcConfigVpcId (\s a -> s { _codeBuildProjectVpcConfigVpcId = a })

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

@@ -21,6 +21,7 @@ data CodeDeployDeploymentGroupDeploymentStyle =   CodeDeployDeploymentGroupDeploymentStyle   { _codeDeployDeploymentGroupDeploymentStyleDeploymentOption :: Maybe (Val Text)+  , _codeDeployDeploymentGroupDeploymentStyleDeploymentType :: Maybe (Val Text)   } deriving (Show, Eq)  instance ToJSON CodeDeployDeploymentGroupDeploymentStyle where@@ -28,12 +29,14 @@     object $     catMaybes     [ fmap (("DeploymentOption",) . toJSON) _codeDeployDeploymentGroupDeploymentStyleDeploymentOption+    , fmap (("DeploymentType",) . toJSON) _codeDeployDeploymentGroupDeploymentStyleDeploymentType     ]  instance FromJSON CodeDeployDeploymentGroupDeploymentStyle where   parseJSON (Object obj) =     CodeDeployDeploymentGroupDeploymentStyle <$>-      (obj .:? "DeploymentOption")+      (obj .:? "DeploymentOption") <*>+      (obj .:? "DeploymentType")   parseJSON _ = mempty  -- | Constructor for 'CodeDeployDeploymentGroupDeploymentStyle' containing@@ -43,8 +46,13 @@ codeDeployDeploymentGroupDeploymentStyle  =   CodeDeployDeploymentGroupDeploymentStyle   { _codeDeployDeploymentGroupDeploymentStyleDeploymentOption = Nothing+  , _codeDeployDeploymentGroupDeploymentStyleDeploymentType = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-deploymentstyle.html#cfn-codedeploy-deploymentgroup-deploymentstyle-deploymentoption cddgdsDeploymentOption :: Lens' CodeDeployDeploymentGroupDeploymentStyle (Maybe (Val Text)) cddgdsDeploymentOption = lens _codeDeployDeploymentGroupDeploymentStyleDeploymentOption (\s a -> s { _codeDeployDeploymentGroupDeploymentStyleDeploymentOption = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-deploymentstyle.html#cfn-codedeploy-deploymentgroup-deploymentstyle-deploymenttype+cddgdsDeploymentType :: Lens' CodeDeployDeploymentGroupDeploymentStyle (Maybe (Val Text))+cddgdsDeploymentType = lens _codeDeployDeploymentGroupDeploymentStyleDeploymentType (\s a -> s { _codeDeployDeploymentGroupDeploymentStyleDeploymentType = a })

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

@@ -25,7 +25,7 @@   , _eC2SpotFleetSpotFleetRequestConfigDataIamFleetRole :: Val Text   , _eC2SpotFleetSpotFleetRequestConfigDataLaunchSpecifications :: [EC2SpotFleetSpotFleetLaunchSpecification]   , _eC2SpotFleetSpotFleetRequestConfigDataReplaceUnhealthyInstances :: Maybe (Val Bool)-  , _eC2SpotFleetSpotFleetRequestConfigDataSpotPrice :: Val Text+  , _eC2SpotFleetSpotFleetRequestConfigDataSpotPrice :: Maybe (Val Text)   , _eC2SpotFleetSpotFleetRequestConfigDataTargetCapacity :: Val Integer   , _eC2SpotFleetSpotFleetRequestConfigDataTerminateInstancesWithExpiration :: Maybe (Val Bool)   , _eC2SpotFleetSpotFleetRequestConfigDataType :: Maybe (Val Text)@@ -42,7 +42,7 @@     , (Just . ("IamFleetRole",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigDataIamFleetRole     , (Just . ("LaunchSpecifications",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigDataLaunchSpecifications     , fmap (("ReplaceUnhealthyInstances",) . toJSON . fmap Bool') _eC2SpotFleetSpotFleetRequestConfigDataReplaceUnhealthyInstances-    , (Just . ("SpotPrice",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigDataSpotPrice+    , fmap (("SpotPrice",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigDataSpotPrice     , (Just . ("TargetCapacity",) . toJSON . fmap Integer') _eC2SpotFleetSpotFleetRequestConfigDataTargetCapacity     , fmap (("TerminateInstancesWithExpiration",) . toJSON . fmap Bool') _eC2SpotFleetSpotFleetRequestConfigDataTerminateInstancesWithExpiration     , fmap (("Type",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigDataType@@ -58,7 +58,7 @@       (obj .: "IamFleetRole") <*>       (obj .: "LaunchSpecifications") <*>       fmap (fmap (fmap unBool')) (obj .:? "ReplaceUnhealthyInstances") <*>-      (obj .: "SpotPrice") <*>+      (obj .:? "SpotPrice") <*>       fmap (fmap unInteger') (obj .: "TargetCapacity") <*>       fmap (fmap (fmap unBool')) (obj .:? "TerminateInstancesWithExpiration") <*>       (obj .:? "Type") <*>@@ -71,17 +71,16 @@ ec2SpotFleetSpotFleetRequestConfigData   :: Val Text -- ^ 'ecsfsfrcdIamFleetRole'   -> [EC2SpotFleetSpotFleetLaunchSpecification] -- ^ 'ecsfsfrcdLaunchSpecifications'-  -> Val Text -- ^ 'ecsfsfrcdSpotPrice'   -> Val Integer -- ^ 'ecsfsfrcdTargetCapacity'   -> EC2SpotFleetSpotFleetRequestConfigData-ec2SpotFleetSpotFleetRequestConfigData iamFleetRolearg launchSpecificationsarg spotPricearg targetCapacityarg =+ec2SpotFleetSpotFleetRequestConfigData iamFleetRolearg launchSpecificationsarg targetCapacityarg =   EC2SpotFleetSpotFleetRequestConfigData   { _eC2SpotFleetSpotFleetRequestConfigDataAllocationStrategy = Nothing   , _eC2SpotFleetSpotFleetRequestConfigDataExcessCapacityTerminationPolicy = Nothing   , _eC2SpotFleetSpotFleetRequestConfigDataIamFleetRole = iamFleetRolearg   , _eC2SpotFleetSpotFleetRequestConfigDataLaunchSpecifications = launchSpecificationsarg   , _eC2SpotFleetSpotFleetRequestConfigDataReplaceUnhealthyInstances = Nothing-  , _eC2SpotFleetSpotFleetRequestConfigDataSpotPrice = spotPricearg+  , _eC2SpotFleetSpotFleetRequestConfigDataSpotPrice = Nothing   , _eC2SpotFleetSpotFleetRequestConfigDataTargetCapacity = targetCapacityarg   , _eC2SpotFleetSpotFleetRequestConfigDataTerminateInstancesWithExpiration = Nothing   , _eC2SpotFleetSpotFleetRequestConfigDataType = Nothing@@ -110,7 +109,7 @@ ecsfsfrcdReplaceUnhealthyInstances = lens _eC2SpotFleetSpotFleetRequestConfigDataReplaceUnhealthyInstances (\s a -> s { _eC2SpotFleetSpotFleetRequestConfigDataReplaceUnhealthyInstances = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata.html#cfn-ec2-spotfleet-spotfleetrequestconfigdata-spotprice-ecsfsfrcdSpotPrice :: Lens' EC2SpotFleetSpotFleetRequestConfigData (Val Text)+ecsfsfrcdSpotPrice :: Lens' EC2SpotFleetSpotFleetRequestConfigData (Maybe (Val Text)) ecsfsfrcdSpotPrice = lens _eC2SpotFleetSpotFleetRequestConfigDataSpotPrice (\s a -> s { _eC2SpotFleetSpotFleetRequestConfigDataSpotPrice = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata.html#cfn-ec2-spotfleet-spotfleetrequestconfigdata-targetcapacity

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

@@ -0,0 +1,66 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-awsvpcconfiguration.html++module Stratosphere.ResourceProperties.ECSServiceAwsVpcConfiguration 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 ECSServiceAwsVpcConfiguration. See+-- 'ecsServiceAwsVpcConfiguration' for a more convenient constructor.+data ECSServiceAwsVpcConfiguration =+  ECSServiceAwsVpcConfiguration+  { _eCSServiceAwsVpcConfigurationAssignPublicIp :: Maybe (Val Text)+  , _eCSServiceAwsVpcConfigurationSecurityGroups :: Maybe (ValList Text)+  , _eCSServiceAwsVpcConfigurationSubnets :: ValList Text+  } deriving (Show, Eq)++instance ToJSON ECSServiceAwsVpcConfiguration where+  toJSON ECSServiceAwsVpcConfiguration{..} =+    object $+    catMaybes+    [ fmap (("AssignPublicIp",) . toJSON) _eCSServiceAwsVpcConfigurationAssignPublicIp+    , fmap (("SecurityGroups",) . toJSON) _eCSServiceAwsVpcConfigurationSecurityGroups+    , (Just . ("Subnets",) . toJSON) _eCSServiceAwsVpcConfigurationSubnets+    ]++instance FromJSON ECSServiceAwsVpcConfiguration where+  parseJSON (Object obj) =+    ECSServiceAwsVpcConfiguration <$>+      (obj .:? "AssignPublicIp") <*>+      (obj .:? "SecurityGroups") <*>+      (obj .: "Subnets")+  parseJSON _ = mempty++-- | Constructor for 'ECSServiceAwsVpcConfiguration' containing required+-- fields as arguments.+ecsServiceAwsVpcConfiguration+  :: ValList Text -- ^ 'ecssavcSubnets'+  -> ECSServiceAwsVpcConfiguration+ecsServiceAwsVpcConfiguration subnetsarg =+  ECSServiceAwsVpcConfiguration+  { _eCSServiceAwsVpcConfigurationAssignPublicIp = Nothing+  , _eCSServiceAwsVpcConfigurationSecurityGroups = Nothing+  , _eCSServiceAwsVpcConfigurationSubnets = subnetsarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-awsvpcconfiguration.html#cfn-ecs-service-awsvpcconfiguration-assignpublicip+ecssavcAssignPublicIp :: Lens' ECSServiceAwsVpcConfiguration (Maybe (Val Text))+ecssavcAssignPublicIp = lens _eCSServiceAwsVpcConfigurationAssignPublicIp (\s a -> s { _eCSServiceAwsVpcConfigurationAssignPublicIp = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-awsvpcconfiguration.html#cfn-ecs-service-awsvpcconfiguration-securitygroups+ecssavcSecurityGroups :: Lens' ECSServiceAwsVpcConfiguration (Maybe (ValList Text))+ecssavcSecurityGroups = lens _eCSServiceAwsVpcConfigurationSecurityGroups (\s a -> s { _eCSServiceAwsVpcConfigurationSecurityGroups = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-awsvpcconfiguration.html#cfn-ecs-service-awsvpcconfiguration-subnets+ecssavcSubnets :: Lens' ECSServiceAwsVpcConfiguration (ValList Text)+ecssavcSubnets = lens _eCSServiceAwsVpcConfigurationSubnets (\s a -> s { _eCSServiceAwsVpcConfigurationSubnets = a })

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

@@ -0,0 +1,49 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-networkconfiguration.html++module Stratosphere.ResourceProperties.ECSServiceNetworkConfiguration 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.ECSServiceAwsVpcConfiguration++-- | Full data type definition for ECSServiceNetworkConfiguration. See+-- 'ecsServiceNetworkConfiguration' for a more convenient constructor.+data ECSServiceNetworkConfiguration =+  ECSServiceNetworkConfiguration+  { _eCSServiceNetworkConfigurationAwsvpcConfiguration :: Maybe ECSServiceAwsVpcConfiguration+  } deriving (Show, Eq)++instance ToJSON ECSServiceNetworkConfiguration where+  toJSON ECSServiceNetworkConfiguration{..} =+    object $+    catMaybes+    [ fmap (("AwsvpcConfiguration",) . toJSON) _eCSServiceNetworkConfigurationAwsvpcConfiguration+    ]++instance FromJSON ECSServiceNetworkConfiguration where+  parseJSON (Object obj) =+    ECSServiceNetworkConfiguration <$>+      (obj .:? "AwsvpcConfiguration")+  parseJSON _ = mempty++-- | Constructor for 'ECSServiceNetworkConfiguration' containing required+-- fields as arguments.+ecsServiceNetworkConfiguration+  :: ECSServiceNetworkConfiguration+ecsServiceNetworkConfiguration  =+  ECSServiceNetworkConfiguration+  { _eCSServiceNetworkConfigurationAwsvpcConfiguration = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-networkconfiguration.html#cfn-ecs-service-networkconfiguration-awsvpcconfiguration+ecssncAwsvpcConfiguration :: Lens' ECSServiceNetworkConfiguration (Maybe ECSServiceAwsVpcConfiguration)+ecssncAwsvpcConfiguration = lens _eCSServiceNetworkConfigurationAwsvpcConfiguration (\s a -> s { _eCSServiceNetworkConfigurationAwsvpcConfiguration = a })

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

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

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

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

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

@@ -0,0 +1,59 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicediscovery-service-dnsconfig.html++module Stratosphere.ResourceProperties.ServiceDiscoveryServiceDnsConfig 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.ServiceDiscoveryServiceDnsRecord++-- | Full data type definition for ServiceDiscoveryServiceDnsConfig. See+-- 'serviceDiscoveryServiceDnsConfig' for a more convenient constructor.+data ServiceDiscoveryServiceDnsConfig =+  ServiceDiscoveryServiceDnsConfig+  { _serviceDiscoveryServiceDnsConfigDnsRecords :: [ServiceDiscoveryServiceDnsRecord]+  , _serviceDiscoveryServiceDnsConfigNamespaceId :: Val Text+  } deriving (Show, Eq)++instance ToJSON ServiceDiscoveryServiceDnsConfig where+  toJSON ServiceDiscoveryServiceDnsConfig{..} =+    object $+    catMaybes+    [ (Just . ("DnsRecords",) . toJSON) _serviceDiscoveryServiceDnsConfigDnsRecords+    , (Just . ("NamespaceId",) . toJSON) _serviceDiscoveryServiceDnsConfigNamespaceId+    ]++instance FromJSON ServiceDiscoveryServiceDnsConfig where+  parseJSON (Object obj) =+    ServiceDiscoveryServiceDnsConfig <$>+      (obj .: "DnsRecords") <*>+      (obj .: "NamespaceId")+  parseJSON _ = mempty++-- | Constructor for 'ServiceDiscoveryServiceDnsConfig' containing required+-- fields as arguments.+serviceDiscoveryServiceDnsConfig+  :: [ServiceDiscoveryServiceDnsRecord] -- ^ 'sdsdcDnsRecords'+  -> Val Text -- ^ 'sdsdcNamespaceId'+  -> ServiceDiscoveryServiceDnsConfig+serviceDiscoveryServiceDnsConfig dnsRecordsarg namespaceIdarg =+  ServiceDiscoveryServiceDnsConfig+  { _serviceDiscoveryServiceDnsConfigDnsRecords = dnsRecordsarg+  , _serviceDiscoveryServiceDnsConfigNamespaceId = namespaceIdarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicediscovery-service-dnsconfig.html#cfn-servicediscovery-service-dnsconfig-dnsrecords+sdsdcDnsRecords :: Lens' ServiceDiscoveryServiceDnsConfig [ServiceDiscoveryServiceDnsRecord]+sdsdcDnsRecords = lens _serviceDiscoveryServiceDnsConfigDnsRecords (\s a -> s { _serviceDiscoveryServiceDnsConfigDnsRecords = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicediscovery-service-dnsconfig.html#cfn-servicediscovery-service-dnsconfig-namespaceid+sdsdcNamespaceId :: Lens' ServiceDiscoveryServiceDnsConfig (Val Text)+sdsdcNamespaceId = lens _serviceDiscoveryServiceDnsConfigNamespaceId (\s a -> s { _serviceDiscoveryServiceDnsConfigNamespaceId = a })

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

@@ -0,0 +1,59 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicediscovery-service-dnsrecord.html++module Stratosphere.ResourceProperties.ServiceDiscoveryServiceDnsRecord 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 ServiceDiscoveryServiceDnsRecord. See+-- 'serviceDiscoveryServiceDnsRecord' for a more convenient constructor.+data ServiceDiscoveryServiceDnsRecord =+  ServiceDiscoveryServiceDnsRecord+  { _serviceDiscoveryServiceDnsRecordTTL :: Val Text+  , _serviceDiscoveryServiceDnsRecordType :: Val Text+  } deriving (Show, Eq)++instance ToJSON ServiceDiscoveryServiceDnsRecord where+  toJSON ServiceDiscoveryServiceDnsRecord{..} =+    object $+    catMaybes+    [ (Just . ("TTL",) . toJSON) _serviceDiscoveryServiceDnsRecordTTL+    , (Just . ("Type",) . toJSON) _serviceDiscoveryServiceDnsRecordType+    ]++instance FromJSON ServiceDiscoveryServiceDnsRecord where+  parseJSON (Object obj) =+    ServiceDiscoveryServiceDnsRecord <$>+      (obj .: "TTL") <*>+      (obj .: "Type")+  parseJSON _ = mempty++-- | Constructor for 'ServiceDiscoveryServiceDnsRecord' containing required+-- fields as arguments.+serviceDiscoveryServiceDnsRecord+  :: Val Text -- ^ 'sdsdrTTL'+  -> Val Text -- ^ 'sdsdrType'+  -> ServiceDiscoveryServiceDnsRecord+serviceDiscoveryServiceDnsRecord tTLarg typearg =+  ServiceDiscoveryServiceDnsRecord+  { _serviceDiscoveryServiceDnsRecordTTL = tTLarg+  , _serviceDiscoveryServiceDnsRecordType = typearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicediscovery-service-dnsrecord.html#cfn-servicediscovery-service-dnsrecord-ttl+sdsdrTTL :: Lens' ServiceDiscoveryServiceDnsRecord (Val Text)+sdsdrTTL = lens _serviceDiscoveryServiceDnsRecordTTL (\s a -> s { _serviceDiscoveryServiceDnsRecordTTL = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicediscovery-service-dnsrecord.html#cfn-servicediscovery-service-dnsrecord-type+sdsdrType :: Lens' ServiceDiscoveryServiceDnsRecord (Val Text)+sdsdrType = lens _serviceDiscoveryServiceDnsRecordType (\s a -> s { _serviceDiscoveryServiceDnsRecordType = a })

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

@@ -0,0 +1,67 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicediscovery-service-healthcheckconfig.html++module Stratosphere.ResourceProperties.ServiceDiscoveryServiceHealthCheckConfig 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 ServiceDiscoveryServiceHealthCheckConfig.+-- See 'serviceDiscoveryServiceHealthCheckConfig' for a more convenient+-- constructor.+data ServiceDiscoveryServiceHealthCheckConfig =+  ServiceDiscoveryServiceHealthCheckConfig+  { _serviceDiscoveryServiceHealthCheckConfigFailureThreshold :: Maybe (Val Double)+  , _serviceDiscoveryServiceHealthCheckConfigResourcePath :: Maybe (Val Text)+  , _serviceDiscoveryServiceHealthCheckConfigType :: Val Text+  } deriving (Show, Eq)++instance ToJSON ServiceDiscoveryServiceHealthCheckConfig where+  toJSON ServiceDiscoveryServiceHealthCheckConfig{..} =+    object $+    catMaybes+    [ fmap (("FailureThreshold",) . toJSON . fmap Double') _serviceDiscoveryServiceHealthCheckConfigFailureThreshold+    , fmap (("ResourcePath",) . toJSON) _serviceDiscoveryServiceHealthCheckConfigResourcePath+    , (Just . ("Type",) . toJSON) _serviceDiscoveryServiceHealthCheckConfigType+    ]++instance FromJSON ServiceDiscoveryServiceHealthCheckConfig where+  parseJSON (Object obj) =+    ServiceDiscoveryServiceHealthCheckConfig <$>+      fmap (fmap (fmap unDouble')) (obj .:? "FailureThreshold") <*>+      (obj .:? "ResourcePath") <*>+      (obj .: "Type")+  parseJSON _ = mempty++-- | Constructor for 'ServiceDiscoveryServiceHealthCheckConfig' containing+-- required fields as arguments.+serviceDiscoveryServiceHealthCheckConfig+  :: Val Text -- ^ 'sdshccType'+  -> ServiceDiscoveryServiceHealthCheckConfig+serviceDiscoveryServiceHealthCheckConfig typearg =+  ServiceDiscoveryServiceHealthCheckConfig+  { _serviceDiscoveryServiceHealthCheckConfigFailureThreshold = Nothing+  , _serviceDiscoveryServiceHealthCheckConfigResourcePath = Nothing+  , _serviceDiscoveryServiceHealthCheckConfigType = typearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicediscovery-service-healthcheckconfig.html#cfn-servicediscovery-service-healthcheckconfig-failurethreshold+sdshccFailureThreshold :: Lens' ServiceDiscoveryServiceHealthCheckConfig (Maybe (Val Double))+sdshccFailureThreshold = lens _serviceDiscoveryServiceHealthCheckConfigFailureThreshold (\s a -> s { _serviceDiscoveryServiceHealthCheckConfigFailureThreshold = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicediscovery-service-healthcheckconfig.html#cfn-servicediscovery-service-healthcheckconfig-resourcepath+sdshccResourcePath :: Lens' ServiceDiscoveryServiceHealthCheckConfig (Maybe (Val Text))+sdshccResourcePath = lens _serviceDiscoveryServiceHealthCheckConfigResourcePath (\s a -> s { _serviceDiscoveryServiceHealthCheckConfigResourcePath = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicediscovery-service-healthcheckconfig.html#cfn-servicediscovery-service-healthcheckconfig-type+sdshccType :: Lens' ServiceDiscoveryServiceHealthCheckConfig (Val Text)+sdshccType = lens _serviceDiscoveryServiceHealthCheckConfigType (\s a -> s { _serviceDiscoveryServiceHealthCheckConfigType = a })

library-gen/Stratosphere/Resources.hs view

@@ -75,6 +75,7 @@ import Stratosphere.Resources.BatchJobDefinition as X import Stratosphere.Resources.BatchJobQueue as X import Stratosphere.Resources.CertificateManagerCertificate as X+import Stratosphere.Resources.Cloud9EnvironmentEC2 as X import Stratosphere.Resources.CloudFormationCustomResource as X import Stratosphere.Resources.CloudFormationStack as X import Stratosphere.Resources.CloudFormationWaitCondition as X@@ -194,6 +195,9 @@ import Stratosphere.Resources.GluePartition as X import Stratosphere.Resources.GlueTable as X import Stratosphere.Resources.GlueTrigger as X+import Stratosphere.Resources.GuardDutyDetector as X+import Stratosphere.Resources.GuardDutyIPSet as X+import Stratosphere.Resources.GuardDutyThreatIntelSet as X import Stratosphere.Resources.IAMAccessKey as X import Stratosphere.Resources.IAMGroup as X import Stratosphere.Resources.IAMInstanceProfile as X@@ -202,6 +206,9 @@ import Stratosphere.Resources.IAMRole as X import Stratosphere.Resources.IAMUser as X import Stratosphere.Resources.IAMUserToGroupAddition as X+import Stratosphere.Resources.InspectorAssessmentTarget as X+import Stratosphere.Resources.InspectorAssessmentTemplate as X+import Stratosphere.Resources.InspectorResourceGroup as X import Stratosphere.Resources.IoTCertificate as X import Stratosphere.Resources.IoTPolicy as X import Stratosphere.Resources.IoTPolicyPrincipalAttachment as X@@ -263,6 +270,10 @@ import Stratosphere.Resources.SSMMaintenanceWindowTask as X import Stratosphere.Resources.SSMParameter as X import Stratosphere.Resources.SSMPatchBaseline as X+import Stratosphere.Resources.ServiceDiscoveryInstance as X+import Stratosphere.Resources.ServiceDiscoveryPrivateDnsNamespace as X+import Stratosphere.Resources.ServiceDiscoveryPublicDnsNamespace as X+import Stratosphere.Resources.ServiceDiscoveryService as X import Stratosphere.Resources.StepFunctionsActivity as X import Stratosphere.Resources.StepFunctionsStateMachine as X import Stratosphere.Resources.WAFByteMatchSet as X@@ -324,6 +335,7 @@ import Stratosphere.ResourceProperties.BatchJobDefinitionVolumesHost as X import Stratosphere.ResourceProperties.BatchJobQueueComputeEnvironmentOrder as X import Stratosphere.ResourceProperties.CertificateManagerCertificateDomainValidationOption as X+import Stratosphere.ResourceProperties.Cloud9EnvironmentEC2Repository as X import Stratosphere.ResourceProperties.CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig as X import Stratosphere.ResourceProperties.CloudFrontDistributionCacheBehavior as X import Stratosphere.ResourceProperties.CloudFrontDistributionCookies as X@@ -334,8 +346,6 @@ import Stratosphere.ResourceProperties.CloudFrontDistributionForwardedValues as X import Stratosphere.ResourceProperties.CloudFrontDistributionGeoRestriction as X import Stratosphere.ResourceProperties.CloudFrontDistributionLambdaFunctionAssociation as X-import Stratosphere.ResourceProperties.CloudFrontDistributionLegacyCustomOrigin as X-import Stratosphere.ResourceProperties.CloudFrontDistributionLegacyS3Origin as X import Stratosphere.ResourceProperties.CloudFrontDistributionLogging as X import Stratosphere.ResourceProperties.CloudFrontDistributionOrigin as X import Stratosphere.ResourceProperties.CloudFrontDistributionOriginCustomHeader as X@@ -352,8 +362,10 @@ import Stratosphere.ResourceProperties.CodeBuildProjectArtifacts as X import Stratosphere.ResourceProperties.CodeBuildProjectEnvironment as X import Stratosphere.ResourceProperties.CodeBuildProjectEnvironmentVariable as X+import Stratosphere.ResourceProperties.CodeBuildProjectProjectCache as X import Stratosphere.ResourceProperties.CodeBuildProjectSource as X import Stratosphere.ResourceProperties.CodeBuildProjectSourceAuth as X+import Stratosphere.ResourceProperties.CodeBuildProjectVpcConfig as X import Stratosphere.ResourceProperties.CodeCommitRepositoryRepositoryTrigger as X import Stratosphere.ResourceProperties.CodeDeployDeploymentConfigMinimumHealthyHosts as X import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupAlarm as X@@ -453,8 +465,10 @@ import Stratosphere.ResourceProperties.EC2SpotFleetSpotPlacement as X import Stratosphere.ResourceProperties.EC2VPNConnectionVpnTunnelOptionsSpecification as X import Stratosphere.ResourceProperties.ECRRepositoryLifecyclePolicy as X+import Stratosphere.ResourceProperties.ECSServiceAwsVpcConfiguration as X import Stratosphere.ResourceProperties.ECSServiceDeploymentConfiguration as X import Stratosphere.ResourceProperties.ECSServiceLoadBalancer as X+import Stratosphere.ResourceProperties.ECSServiceNetworkConfiguration as X import Stratosphere.ResourceProperties.ECSServicePlacementConstraint as X import Stratosphere.ResourceProperties.ECSServicePlacementStrategy as X import Stratosphere.ResourceProperties.ECSTaskDefinitionContainerDefinition as X@@ -642,6 +656,8 @@ import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessorParameter as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamS3DestinationConfiguration as X+import Stratosphere.ResourceProperties.LambdaAliasAliasRoutingConfiguration as X+import Stratosphere.ResourceProperties.LambdaAliasVersionWeight as X import Stratosphere.ResourceProperties.LambdaFunctionCode as X import Stratosphere.ResourceProperties.LambdaFunctionDeadLetterConfig as X import Stratosphere.ResourceProperties.LambdaFunctionEnvironment as X@@ -730,6 +746,9 @@ import Stratosphere.ResourceProperties.SSMPatchBaselinePatchFilterGroup as X import Stratosphere.ResourceProperties.SSMPatchBaselineRule as X import Stratosphere.ResourceProperties.SSMPatchBaselineRuleGroup as X+import Stratosphere.ResourceProperties.ServiceDiscoveryServiceDnsConfig as X+import Stratosphere.ResourceProperties.ServiceDiscoveryServiceDnsRecord as X+import Stratosphere.ResourceProperties.ServiceDiscoveryServiceHealthCheckConfig as X import Stratosphere.ResourceProperties.WAFByteMatchSetByteMatchTuple as X import Stratosphere.ResourceProperties.WAFByteMatchSetFieldToMatch as X import Stratosphere.ResourceProperties.WAFIPSetIPSetDescriptor as X@@ -796,6 +815,7 @@   | BatchJobDefinitionProperties BatchJobDefinition   | BatchJobQueueProperties BatchJobQueue   | CertificateManagerCertificateProperties CertificateManagerCertificate+  | Cloud9EnvironmentEC2Properties Cloud9EnvironmentEC2   | CloudFormationCustomResourceProperties CloudFormationCustomResource   | CloudFormationStackProperties CloudFormationStack   | CloudFormationWaitConditionProperties CloudFormationWaitCondition@@ -915,6 +935,9 @@   | GluePartitionProperties GluePartition   | GlueTableProperties GlueTable   | GlueTriggerProperties GlueTrigger+  | GuardDutyDetectorProperties GuardDutyDetector+  | GuardDutyIPSetProperties GuardDutyIPSet+  | GuardDutyThreatIntelSetProperties GuardDutyThreatIntelSet   | IAMAccessKeyProperties IAMAccessKey   | IAMGroupProperties IAMGroup   | IAMInstanceProfileProperties IAMInstanceProfile@@ -923,6 +946,9 @@   | IAMRoleProperties IAMRole   | IAMUserProperties IAMUser   | IAMUserToGroupAdditionProperties IAMUserToGroupAddition+  | InspectorAssessmentTargetProperties InspectorAssessmentTarget+  | InspectorAssessmentTemplateProperties InspectorAssessmentTemplate+  | InspectorResourceGroupProperties InspectorResourceGroup   | IoTCertificateProperties IoTCertificate   | IoTPolicyProperties IoTPolicy   | IoTPolicyPrincipalAttachmentProperties IoTPolicyPrincipalAttachment@@ -984,6 +1010,10 @@   | SSMMaintenanceWindowTaskProperties SSMMaintenanceWindowTask   | SSMParameterProperties SSMParameter   | SSMPatchBaselineProperties SSMPatchBaseline+  | ServiceDiscoveryInstanceProperties ServiceDiscoveryInstance+  | ServiceDiscoveryPrivateDnsNamespaceProperties ServiceDiscoveryPrivateDnsNamespace+  | ServiceDiscoveryPublicDnsNamespaceProperties ServiceDiscoveryPublicDnsNamespace+  | ServiceDiscoveryServiceProperties ServiceDiscoveryService   | StepFunctionsActivityProperties StepFunctionsActivity   | StepFunctionsStateMachineProperties StepFunctionsStateMachine   | WAFByteMatchSetProperties WAFByteMatchSet@@ -1114,6 +1144,8 @@   [ "Type" .= ("AWS::Batch::JobQueue" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (CertificateManagerCertificateProperties x) =   [ "Type" .= ("AWS::CertificateManager::Certificate" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (Cloud9EnvironmentEC2Properties x) =+  [ "Type" .= ("AWS::Cloud9::EnvironmentEC2" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (CloudFormationCustomResourceProperties x) =   [ "Type" .= ("AWS::CloudFormation::CustomResource" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (CloudFormationStackProperties x) =@@ -1352,6 +1384,12 @@   [ "Type" .= ("AWS::Glue::Table" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (GlueTriggerProperties x) =   [ "Type" .= ("AWS::Glue::Trigger" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (GuardDutyDetectorProperties x) =+  [ "Type" .= ("AWS::GuardDuty::Detector" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (GuardDutyIPSetProperties x) =+  [ "Type" .= ("AWS::GuardDuty::IPSet" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (GuardDutyThreatIntelSetProperties x) =+  [ "Type" .= ("AWS::GuardDuty::ThreatIntelSet" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (IAMAccessKeyProperties x) =   [ "Type" .= ("AWS::IAM::AccessKey" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (IAMGroupProperties x) =@@ -1368,6 +1406,12 @@   [ "Type" .= ("AWS::IAM::User" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (IAMUserToGroupAdditionProperties x) =   [ "Type" .= ("AWS::IAM::UserToGroupAddition" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (InspectorAssessmentTargetProperties x) =+  [ "Type" .= ("AWS::Inspector::AssessmentTarget" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (InspectorAssessmentTemplateProperties x) =+  [ "Type" .= ("AWS::Inspector::AssessmentTemplate" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (InspectorResourceGroupProperties x) =+  [ "Type" .= ("AWS::Inspector::ResourceGroup" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (IoTCertificateProperties x) =   [ "Type" .= ("AWS::IoT::Certificate" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (IoTPolicyProperties x) =@@ -1490,6 +1534,14 @@   [ "Type" .= ("AWS::SSM::Parameter" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (SSMPatchBaselineProperties x) =   [ "Type" .= ("AWS::SSM::PatchBaseline" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (ServiceDiscoveryInstanceProperties x) =+  [ "Type" .= ("AWS::ServiceDiscovery::Instance" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (ServiceDiscoveryPrivateDnsNamespaceProperties x) =+  [ "Type" .= ("AWS::ServiceDiscovery::PrivateDnsNamespace" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (ServiceDiscoveryPublicDnsNamespaceProperties x) =+  [ "Type" .= ("AWS::ServiceDiscovery::PublicDnsNamespace" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (ServiceDiscoveryServiceProperties x) =+  [ "Type" .= ("AWS::ServiceDiscovery::Service" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (StepFunctionsActivityProperties x) =   [ "Type" .= ("AWS::StepFunctions::Activity" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (StepFunctionsStateMachineProperties x) =@@ -1562,6 +1614,7 @@          "AWS::Batch::JobDefinition" -> BatchJobDefinitionProperties <$> (o .: "Properties")          "AWS::Batch::JobQueue" -> BatchJobQueueProperties <$> (o .: "Properties")          "AWS::CertificateManager::Certificate" -> CertificateManagerCertificateProperties <$> (o .: "Properties")+         "AWS::Cloud9::EnvironmentEC2" -> Cloud9EnvironmentEC2Properties <$> (o .: "Properties")          "AWS::CloudFormation::CustomResource" -> CloudFormationCustomResourceProperties <$> (o .: "Properties")          "AWS::CloudFormation::Stack" -> CloudFormationStackProperties <$> (o .: "Properties")          "AWS::CloudFormation::WaitCondition" -> CloudFormationWaitConditionProperties <$> (o .: "Properties")@@ -1681,6 +1734,9 @@          "AWS::Glue::Partition" -> GluePartitionProperties <$> (o .: "Properties")          "AWS::Glue::Table" -> GlueTableProperties <$> (o .: "Properties")          "AWS::Glue::Trigger" -> GlueTriggerProperties <$> (o .: "Properties")+         "AWS::GuardDuty::Detector" -> GuardDutyDetectorProperties <$> (o .: "Properties")+         "AWS::GuardDuty::IPSet" -> GuardDutyIPSetProperties <$> (o .: "Properties")+         "AWS::GuardDuty::ThreatIntelSet" -> GuardDutyThreatIntelSetProperties <$> (o .: "Properties")          "AWS::IAM::AccessKey" -> IAMAccessKeyProperties <$> (o .: "Properties")          "AWS::IAM::Group" -> IAMGroupProperties <$> (o .: "Properties")          "AWS::IAM::InstanceProfile" -> IAMInstanceProfileProperties <$> (o .: "Properties")@@ -1689,6 +1745,9 @@          "AWS::IAM::Role" -> IAMRoleProperties <$> (o .: "Properties")          "AWS::IAM::User" -> IAMUserProperties <$> (o .: "Properties")          "AWS::IAM::UserToGroupAddition" -> IAMUserToGroupAdditionProperties <$> (o .: "Properties")+         "AWS::Inspector::AssessmentTarget" -> InspectorAssessmentTargetProperties <$> (o .: "Properties")+         "AWS::Inspector::AssessmentTemplate" -> InspectorAssessmentTemplateProperties <$> (o .: "Properties")+         "AWS::Inspector::ResourceGroup" -> InspectorResourceGroupProperties <$> (o .: "Properties")          "AWS::IoT::Certificate" -> IoTCertificateProperties <$> (o .: "Properties")          "AWS::IoT::Policy" -> IoTPolicyProperties <$> (o .: "Properties")          "AWS::IoT::PolicyPrincipalAttachment" -> IoTPolicyPrincipalAttachmentProperties <$> (o .: "Properties")@@ -1750,6 +1809,10 @@          "AWS::SSM::MaintenanceWindowTask" -> SSMMaintenanceWindowTaskProperties <$> (o .: "Properties")          "AWS::SSM::Parameter" -> SSMParameterProperties <$> (o .: "Properties")          "AWS::SSM::PatchBaseline" -> SSMPatchBaselineProperties <$> (o .: "Properties")+         "AWS::ServiceDiscovery::Instance" -> ServiceDiscoveryInstanceProperties <$> (o .: "Properties")+         "AWS::ServiceDiscovery::PrivateDnsNamespace" -> ServiceDiscoveryPrivateDnsNamespaceProperties <$> (o .: "Properties")+         "AWS::ServiceDiscovery::PublicDnsNamespace" -> ServiceDiscoveryPublicDnsNamespaceProperties <$> (o .: "Properties")+         "AWS::ServiceDiscovery::Service" -> ServiceDiscoveryServiceProperties <$> (o .: "Properties")          "AWS::StepFunctions::Activity" -> StepFunctionsActivityProperties <$> (o .: "Properties")          "AWS::StepFunctions::StateMachine" -> StepFunctionsStateMachineProperties <$> (o .: "Properties")          "AWS::WAF::ByteMatchSet" -> WAFByteMatchSetProperties <$> (o .: "Properties")

+ library-gen/Stratosphere/Resources/Cloud9EnvironmentEC2.hs view

@@ -0,0 +1,98 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloud9-environmentec2.html++module Stratosphere.Resources.Cloud9EnvironmentEC2 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.Cloud9EnvironmentEC2Repository++-- | Full data type definition for Cloud9EnvironmentEC2. See+-- 'cloud9EnvironmentEC2' for a more convenient constructor.+data Cloud9EnvironmentEC2 =+  Cloud9EnvironmentEC2+  { _cloud9EnvironmentEC2AutomaticStopTimeMinutes :: Maybe (Val Integer)+  , _cloud9EnvironmentEC2Description :: Maybe (Val Text)+  , _cloud9EnvironmentEC2InstanceType :: Val Text+  , _cloud9EnvironmentEC2Name :: Maybe (Val Text)+  , _cloud9EnvironmentEC2OwnerArn :: Maybe (Val Text)+  , _cloud9EnvironmentEC2Repositories :: Maybe [Cloud9EnvironmentEC2Repository]+  , _cloud9EnvironmentEC2SubnetId :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON Cloud9EnvironmentEC2 where+  toJSON Cloud9EnvironmentEC2{..} =+    object $+    catMaybes+    [ fmap (("AutomaticStopTimeMinutes",) . toJSON . fmap Integer') _cloud9EnvironmentEC2AutomaticStopTimeMinutes+    , fmap (("Description",) . toJSON) _cloud9EnvironmentEC2Description+    , (Just . ("InstanceType",) . toJSON) _cloud9EnvironmentEC2InstanceType+    , fmap (("Name",) . toJSON) _cloud9EnvironmentEC2Name+    , fmap (("OwnerArn",) . toJSON) _cloud9EnvironmentEC2OwnerArn+    , fmap (("Repositories",) . toJSON) _cloud9EnvironmentEC2Repositories+    , fmap (("SubnetId",) . toJSON) _cloud9EnvironmentEC2SubnetId+    ]++instance FromJSON Cloud9EnvironmentEC2 where+  parseJSON (Object obj) =+    Cloud9EnvironmentEC2 <$>+      fmap (fmap (fmap unInteger')) (obj .:? "AutomaticStopTimeMinutes") <*>+      (obj .:? "Description") <*>+      (obj .: "InstanceType") <*>+      (obj .:? "Name") <*>+      (obj .:? "OwnerArn") <*>+      (obj .:? "Repositories") <*>+      (obj .:? "SubnetId")+  parseJSON _ = mempty++-- | Constructor for 'Cloud9EnvironmentEC2' containing required fields as+-- arguments.+cloud9EnvironmentEC2+  :: Val Text -- ^ 'ceecInstanceType'+  -> Cloud9EnvironmentEC2+cloud9EnvironmentEC2 instanceTypearg =+  Cloud9EnvironmentEC2+  { _cloud9EnvironmentEC2AutomaticStopTimeMinutes = Nothing+  , _cloud9EnvironmentEC2Description = Nothing+  , _cloud9EnvironmentEC2InstanceType = instanceTypearg+  , _cloud9EnvironmentEC2Name = Nothing+  , _cloud9EnvironmentEC2OwnerArn = Nothing+  , _cloud9EnvironmentEC2Repositories = Nothing+  , _cloud9EnvironmentEC2SubnetId = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloud9-environmentec2.html#cfn-cloud9-environmentec2-automaticstoptimeminutes+ceecAutomaticStopTimeMinutes :: Lens' Cloud9EnvironmentEC2 (Maybe (Val Integer))+ceecAutomaticStopTimeMinutes = lens _cloud9EnvironmentEC2AutomaticStopTimeMinutes (\s a -> s { _cloud9EnvironmentEC2AutomaticStopTimeMinutes = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloud9-environmentec2.html#cfn-cloud9-environmentec2-description+ceecDescription :: Lens' Cloud9EnvironmentEC2 (Maybe (Val Text))+ceecDescription = lens _cloud9EnvironmentEC2Description (\s a -> s { _cloud9EnvironmentEC2Description = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloud9-environmentec2.html#cfn-cloud9-environmentec2-instancetype+ceecInstanceType :: Lens' Cloud9EnvironmentEC2 (Val Text)+ceecInstanceType = lens _cloud9EnvironmentEC2InstanceType (\s a -> s { _cloud9EnvironmentEC2InstanceType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloud9-environmentec2.html#cfn-cloud9-environmentec2-name+ceecName :: Lens' Cloud9EnvironmentEC2 (Maybe (Val Text))+ceecName = lens _cloud9EnvironmentEC2Name (\s a -> s { _cloud9EnvironmentEC2Name = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloud9-environmentec2.html#cfn-cloud9-environmentec2-ownerarn+ceecOwnerArn :: Lens' Cloud9EnvironmentEC2 (Maybe (Val Text))+ceecOwnerArn = lens _cloud9EnvironmentEC2OwnerArn (\s a -> s { _cloud9EnvironmentEC2OwnerArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloud9-environmentec2.html#cfn-cloud9-environmentec2-repositories+ceecRepositories :: Lens' Cloud9EnvironmentEC2 (Maybe [Cloud9EnvironmentEC2Repository])+ceecRepositories = lens _cloud9EnvironmentEC2Repositories (\s a -> s { _cloud9EnvironmentEC2Repositories = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloud9-environmentec2.html#cfn-cloud9-environmentec2-subnetid+ceecSubnetId :: Lens' Cloud9EnvironmentEC2 (Maybe (Val Text))+ceecSubnetId = lens _cloud9EnvironmentEC2SubnetId (\s a -> s { _cloud9EnvironmentEC2SubnetId = a })

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

@@ -14,15 +14,19 @@  import Stratosphere.Values import Stratosphere.ResourceProperties.CodeBuildProjectArtifacts+import Stratosphere.ResourceProperties.CodeBuildProjectProjectCache import Stratosphere.ResourceProperties.CodeBuildProjectEnvironment import Stratosphere.ResourceProperties.CodeBuildProjectSource import Stratosphere.ResourceProperties.Tag+import Stratosphere.ResourceProperties.CodeBuildProjectVpcConfig  -- | Full data type definition for CodeBuildProject. See 'codeBuildProject' -- for a more convenient constructor. data CodeBuildProject =   CodeBuildProject   { _codeBuildProjectArtifacts :: CodeBuildProjectArtifacts+  , _codeBuildProjectBadgeEnabled :: Maybe (Val Bool)+  , _codeBuildProjectCache :: Maybe CodeBuildProjectProjectCache   , _codeBuildProjectDescription :: Maybe (Val Text)   , _codeBuildProjectEncryptionKey :: Maybe (Val Text)   , _codeBuildProjectEnvironment :: CodeBuildProjectEnvironment@@ -31,6 +35,7 @@   , _codeBuildProjectSource :: CodeBuildProjectSource   , _codeBuildProjectTags :: Maybe [Tag]   , _codeBuildProjectTimeoutInMinutes :: Maybe (Val Integer)+  , _codeBuildProjectVpcConfig :: Maybe CodeBuildProjectVpcConfig   } deriving (Show, Eq)  instance ToJSON CodeBuildProject where@@ -38,6 +43,8 @@     object $     catMaybes     [ (Just . ("Artifacts",) . toJSON) _codeBuildProjectArtifacts+    , fmap (("BadgeEnabled",) . toJSON . fmap Bool') _codeBuildProjectBadgeEnabled+    , fmap (("Cache",) . toJSON) _codeBuildProjectCache     , fmap (("Description",) . toJSON) _codeBuildProjectDescription     , fmap (("EncryptionKey",) . toJSON) _codeBuildProjectEncryptionKey     , (Just . ("Environment",) . toJSON) _codeBuildProjectEnvironment@@ -46,12 +53,15 @@     , (Just . ("Source",) . toJSON) _codeBuildProjectSource     , fmap (("Tags",) . toJSON) _codeBuildProjectTags     , fmap (("TimeoutInMinutes",) . toJSON . fmap Integer') _codeBuildProjectTimeoutInMinutes+    , fmap (("VpcConfig",) . toJSON) _codeBuildProjectVpcConfig     ]  instance FromJSON CodeBuildProject where   parseJSON (Object obj) =     CodeBuildProject <$>       (obj .: "Artifacts") <*>+      fmap (fmap (fmap unBool')) (obj .:? "BadgeEnabled") <*>+      (obj .:? "Cache") <*>       (obj .:? "Description") <*>       (obj .:? "EncryptionKey") <*>       (obj .: "Environment") <*>@@ -59,7 +69,8 @@       (obj .: "ServiceRole") <*>       (obj .: "Source") <*>       (obj .:? "Tags") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "TimeoutInMinutes")+      fmap (fmap (fmap unInteger')) (obj .:? "TimeoutInMinutes") <*>+      (obj .:? "VpcConfig")   parseJSON _ = mempty  -- | Constructor for 'CodeBuildProject' containing required fields as@@ -73,6 +84,8 @@ codeBuildProject artifactsarg environmentarg serviceRolearg sourcearg =   CodeBuildProject   { _codeBuildProjectArtifacts = artifactsarg+  , _codeBuildProjectBadgeEnabled = Nothing+  , _codeBuildProjectCache = Nothing   , _codeBuildProjectDescription = Nothing   , _codeBuildProjectEncryptionKey = Nothing   , _codeBuildProjectEnvironment = environmentarg@@ -81,12 +94,21 @@   , _codeBuildProjectSource = sourcearg   , _codeBuildProjectTags = Nothing   , _codeBuildProjectTimeoutInMinutes = Nothing+  , _codeBuildProjectVpcConfig = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-project.html#cfn-codebuild-project-artifacts cbpArtifacts :: Lens' CodeBuildProject CodeBuildProjectArtifacts cbpArtifacts = lens _codeBuildProjectArtifacts (\s a -> s { _codeBuildProjectArtifacts = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-project.html#cfn-codebuild-project-badgeenabled+cbpBadgeEnabled :: Lens' CodeBuildProject (Maybe (Val Bool))+cbpBadgeEnabled = lens _codeBuildProjectBadgeEnabled (\s a -> s { _codeBuildProjectBadgeEnabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-project.html#cfn-codebuild-project-cache+cbpCache :: Lens' CodeBuildProject (Maybe CodeBuildProjectProjectCache)+cbpCache = lens _codeBuildProjectCache (\s a -> s { _codeBuildProjectCache = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-project.html#cfn-codebuild-project-description cbpDescription :: Lens' CodeBuildProject (Maybe (Val Text)) cbpDescription = lens _codeBuildProjectDescription (\s a -> s { _codeBuildProjectDescription = a })@@ -118,3 +140,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-project.html#cfn-codebuild-project-timeoutinminutes cbpTimeoutInMinutes :: Lens' CodeBuildProject (Maybe (Val Integer)) cbpTimeoutInMinutes = lens _codeBuildProjectTimeoutInMinutes (\s a -> s { _codeBuildProjectTimeoutInMinutes = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-project.html#cfn-codebuild-project-vpcconfig+cbpVpcConfig :: Lens' CodeBuildProject (Maybe CodeBuildProjectVpcConfig)+cbpVpcConfig = lens _codeBuildProjectVpcConfig (\s a -> s { _codeBuildProjectVpcConfig = a })

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

@@ -20,6 +20,7 @@ data CodeDeployApplication =   CodeDeployApplication   { _codeDeployApplicationApplicationName :: Maybe (Val Text)+  , _codeDeployApplicationComputePlatform :: Maybe (Val Text)   } deriving (Show, Eq)  instance ToJSON CodeDeployApplication where@@ -27,12 +28,14 @@     object $     catMaybes     [ fmap (("ApplicationName",) . toJSON) _codeDeployApplicationApplicationName+    , fmap (("ComputePlatform",) . toJSON) _codeDeployApplicationComputePlatform     ]  instance FromJSON CodeDeployApplication where   parseJSON (Object obj) =     CodeDeployApplication <$>-      (obj .:? "ApplicationName")+      (obj .:? "ApplicationName") <*>+      (obj .:? "ComputePlatform")   parseJSON _ = mempty  -- | Constructor for 'CodeDeployApplication' containing required fields as@@ -42,8 +45,13 @@ codeDeployApplication  =   CodeDeployApplication   { _codeDeployApplicationApplicationName = Nothing+  , _codeDeployApplicationComputePlatform = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codedeploy-application.html#cfn-codedeploy-application-applicationname cdaApplicationName :: Lens' CodeDeployApplication (Maybe (Val Text)) cdaApplicationName = lens _codeDeployApplicationApplicationName (\s a -> s { _codeDeployApplicationApplicationName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codedeploy-application.html#cfn-codedeploy-application-computeplatform+cdaComputePlatform :: Lens' CodeDeployApplication (Maybe (Val Text))+cdaComputePlatform = lens _codeDeployApplicationComputePlatform (\s a -> s { _codeDeployApplicationComputePlatform = a })

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

@@ -15,6 +15,7 @@ import Stratosphere.Values import Stratosphere.ResourceProperties.ECSServiceDeploymentConfiguration import Stratosphere.ResourceProperties.ECSServiceLoadBalancer+import Stratosphere.ResourceProperties.ECSServiceNetworkConfiguration import Stratosphere.ResourceProperties.ECSServicePlacementConstraint import Stratosphere.ResourceProperties.ECSServicePlacementStrategy @@ -25,9 +26,12 @@   { _eCSServiceCluster :: Maybe (Val Text)   , _eCSServiceDeploymentConfiguration :: Maybe ECSServiceDeploymentConfiguration   , _eCSServiceDesiredCount :: Maybe (Val Integer)+  , _eCSServiceLaunchType :: Maybe (Val Text)   , _eCSServiceLoadBalancers :: Maybe [ECSServiceLoadBalancer]+  , _eCSServiceNetworkConfiguration :: Maybe ECSServiceNetworkConfiguration   , _eCSServicePlacementConstraints :: Maybe [ECSServicePlacementConstraint]   , _eCSServicePlacementStrategies :: Maybe [ECSServicePlacementStrategy]+  , _eCSServicePlatformVersion :: Maybe (Val Text)   , _eCSServiceRole :: Maybe (Val Text)   , _eCSServiceServiceName :: Maybe (Val Text)   , _eCSServiceTaskDefinition :: Val Text@@ -40,9 +44,12 @@     [ fmap (("Cluster",) . toJSON) _eCSServiceCluster     , fmap (("DeploymentConfiguration",) . toJSON) _eCSServiceDeploymentConfiguration     , fmap (("DesiredCount",) . toJSON . fmap Integer') _eCSServiceDesiredCount+    , fmap (("LaunchType",) . toJSON) _eCSServiceLaunchType     , fmap (("LoadBalancers",) . toJSON) _eCSServiceLoadBalancers+    , fmap (("NetworkConfiguration",) . toJSON) _eCSServiceNetworkConfiguration     , fmap (("PlacementConstraints",) . toJSON) _eCSServicePlacementConstraints     , fmap (("PlacementStrategies",) . toJSON) _eCSServicePlacementStrategies+    , fmap (("PlatformVersion",) . toJSON) _eCSServicePlatformVersion     , fmap (("Role",) . toJSON) _eCSServiceRole     , fmap (("ServiceName",) . toJSON) _eCSServiceServiceName     , (Just . ("TaskDefinition",) . toJSON) _eCSServiceTaskDefinition@@ -54,9 +61,12 @@       (obj .:? "Cluster") <*>       (obj .:? "DeploymentConfiguration") <*>       fmap (fmap (fmap unInteger')) (obj .:? "DesiredCount") <*>+      (obj .:? "LaunchType") <*>       (obj .:? "LoadBalancers") <*>+      (obj .:? "NetworkConfiguration") <*>       (obj .:? "PlacementConstraints") <*>       (obj .:? "PlacementStrategies") <*>+      (obj .:? "PlatformVersion") <*>       (obj .:? "Role") <*>       (obj .:? "ServiceName") <*>       (obj .: "TaskDefinition")@@ -71,9 +81,12 @@   { _eCSServiceCluster = Nothing   , _eCSServiceDeploymentConfiguration = Nothing   , _eCSServiceDesiredCount = Nothing+  , _eCSServiceLaunchType = Nothing   , _eCSServiceLoadBalancers = Nothing+  , _eCSServiceNetworkConfiguration = Nothing   , _eCSServicePlacementConstraints = Nothing   , _eCSServicePlacementStrategies = Nothing+  , _eCSServicePlatformVersion = Nothing   , _eCSServiceRole = Nothing   , _eCSServiceServiceName = Nothing   , _eCSServiceTaskDefinition = taskDefinitionarg@@ -91,10 +104,18 @@ ecssDesiredCount :: Lens' ECSService (Maybe (Val Integer)) ecssDesiredCount = lens _eCSServiceDesiredCount (\s a -> s { _eCSServiceDesiredCount = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-launchtype+ecssLaunchType :: Lens' ECSService (Maybe (Val Text))+ecssLaunchType = lens _eCSServiceLaunchType (\s a -> s { _eCSServiceLaunchType = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-loadbalancers ecssLoadBalancers :: Lens' ECSService (Maybe [ECSServiceLoadBalancer]) ecssLoadBalancers = lens _eCSServiceLoadBalancers (\s a -> s { _eCSServiceLoadBalancers = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-networkconfiguration+ecssNetworkConfiguration :: Lens' ECSService (Maybe ECSServiceNetworkConfiguration)+ecssNetworkConfiguration = lens _eCSServiceNetworkConfiguration (\s a -> s { _eCSServiceNetworkConfiguration = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-placementconstraints ecssPlacementConstraints :: Lens' ECSService (Maybe [ECSServicePlacementConstraint]) ecssPlacementConstraints = lens _eCSServicePlacementConstraints (\s a -> s { _eCSServicePlacementConstraints = a })@@ -102,6 +123,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-placementstrategies ecssPlacementStrategies :: Lens' ECSService (Maybe [ECSServicePlacementStrategy]) ecssPlacementStrategies = lens _eCSServicePlacementStrategies (\s a -> s { _eCSServicePlacementStrategies = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-platformversion+ecssPlatformVersion :: Lens' ECSService (Maybe (Val Text))+ecssPlatformVersion = lens _eCSServicePlatformVersion (\s a -> s { _eCSServicePlatformVersion = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-role ecssRole :: Lens' ECSService (Maybe (Val Text))

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

@@ -22,9 +22,13 @@ data ECSTaskDefinition =   ECSTaskDefinition   { _eCSTaskDefinitionContainerDefinitions :: Maybe [ECSTaskDefinitionContainerDefinition]+  , _eCSTaskDefinitionCpu :: Maybe (Val Text)+  , _eCSTaskDefinitionExecutionRoleArn :: Maybe (Val Text)   , _eCSTaskDefinitionFamily :: Maybe (Val Text)+  , _eCSTaskDefinitionMemory :: Maybe (Val Text)   , _eCSTaskDefinitionNetworkMode :: Maybe (Val Text)   , _eCSTaskDefinitionPlacementConstraints :: Maybe [ECSTaskDefinitionTaskDefinitionPlacementConstraint]+  , _eCSTaskDefinitionRequiresCompatibilities :: Maybe (ValList Text)   , _eCSTaskDefinitionTaskRoleArn :: Maybe (Val Text)   , _eCSTaskDefinitionVolumes :: Maybe [ECSTaskDefinitionVolume]   } deriving (Show, Eq)@@ -34,9 +38,13 @@     object $     catMaybes     [ fmap (("ContainerDefinitions",) . toJSON) _eCSTaskDefinitionContainerDefinitions+    , fmap (("Cpu",) . toJSON) _eCSTaskDefinitionCpu+    , fmap (("ExecutionRoleArn",) . toJSON) _eCSTaskDefinitionExecutionRoleArn     , fmap (("Family",) . toJSON) _eCSTaskDefinitionFamily+    , fmap (("Memory",) . toJSON) _eCSTaskDefinitionMemory     , fmap (("NetworkMode",) . toJSON) _eCSTaskDefinitionNetworkMode     , fmap (("PlacementConstraints",) . toJSON) _eCSTaskDefinitionPlacementConstraints+    , fmap (("RequiresCompatibilities",) . toJSON) _eCSTaskDefinitionRequiresCompatibilities     , fmap (("TaskRoleArn",) . toJSON) _eCSTaskDefinitionTaskRoleArn     , fmap (("Volumes",) . toJSON) _eCSTaskDefinitionVolumes     ]@@ -45,9 +53,13 @@   parseJSON (Object obj) =     ECSTaskDefinition <$>       (obj .:? "ContainerDefinitions") <*>+      (obj .:? "Cpu") <*>+      (obj .:? "ExecutionRoleArn") <*>       (obj .:? "Family") <*>+      (obj .:? "Memory") <*>       (obj .:? "NetworkMode") <*>       (obj .:? "PlacementConstraints") <*>+      (obj .:? "RequiresCompatibilities") <*>       (obj .:? "TaskRoleArn") <*>       (obj .:? "Volumes")   parseJSON _ = mempty@@ -59,9 +71,13 @@ ecsTaskDefinition  =   ECSTaskDefinition   { _eCSTaskDefinitionContainerDefinitions = Nothing+  , _eCSTaskDefinitionCpu = Nothing+  , _eCSTaskDefinitionExecutionRoleArn = Nothing   , _eCSTaskDefinitionFamily = Nothing+  , _eCSTaskDefinitionMemory = Nothing   , _eCSTaskDefinitionNetworkMode = Nothing   , _eCSTaskDefinitionPlacementConstraints = Nothing+  , _eCSTaskDefinitionRequiresCompatibilities = Nothing   , _eCSTaskDefinitionTaskRoleArn = Nothing   , _eCSTaskDefinitionVolumes = Nothing   }@@ -70,10 +86,22 @@ ecstdContainerDefinitions :: Lens' ECSTaskDefinition (Maybe [ECSTaskDefinitionContainerDefinition]) ecstdContainerDefinitions = lens _eCSTaskDefinitionContainerDefinitions (\s a -> s { _eCSTaskDefinitionContainerDefinitions = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-cpu+ecstdCpu :: Lens' ECSTaskDefinition (Maybe (Val Text))+ecstdCpu = lens _eCSTaskDefinitionCpu (\s a -> s { _eCSTaskDefinitionCpu = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-executionrolearn+ecstdExecutionRoleArn :: Lens' ECSTaskDefinition (Maybe (Val Text))+ecstdExecutionRoleArn = lens _eCSTaskDefinitionExecutionRoleArn (\s a -> s { _eCSTaskDefinitionExecutionRoleArn = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-family ecstdFamily :: Lens' ECSTaskDefinition (Maybe (Val Text)) ecstdFamily = lens _eCSTaskDefinitionFamily (\s a -> s { _eCSTaskDefinitionFamily = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-memory+ecstdMemory :: Lens' ECSTaskDefinition (Maybe (Val Text))+ecstdMemory = lens _eCSTaskDefinitionMemory (\s a -> s { _eCSTaskDefinitionMemory = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-networkmode ecstdNetworkMode :: Lens' ECSTaskDefinition (Maybe (Val Text)) ecstdNetworkMode = lens _eCSTaskDefinitionNetworkMode (\s a -> s { _eCSTaskDefinitionNetworkMode = a })@@ -81,6 +109,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-placementconstraints ecstdPlacementConstraints :: Lens' ECSTaskDefinition (Maybe [ECSTaskDefinitionTaskDefinitionPlacementConstraint]) ecstdPlacementConstraints = lens _eCSTaskDefinitionPlacementConstraints (\s a -> s { _eCSTaskDefinitionPlacementConstraints = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-requirescompatibilities+ecstdRequiresCompatibilities :: Lens' ECSTaskDefinition (Maybe (ValList Text))+ecstdRequiresCompatibilities = lens _eCSTaskDefinitionRequiresCompatibilities (\s a -> s { _eCSTaskDefinitionRequiresCompatibilities = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-taskrolearn ecstdTaskRoleArn :: Lens' ECSTaskDefinition (Maybe (Val Text))

+ library-gen/Stratosphere/Resources/GuardDutyDetector.hs view

@@ -0,0 +1,50 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-detector.html++module Stratosphere.Resources.GuardDutyDetector 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 GuardDutyDetector. See 'guardDutyDetector'+-- for a more convenient constructor.+data GuardDutyDetector =+  GuardDutyDetector+  { _guardDutyDetectorEnable :: Val Bool+  } deriving (Show, Eq)++instance ToJSON GuardDutyDetector where+  toJSON GuardDutyDetector{..} =+    object $+    catMaybes+    [ (Just . ("Enable",) . toJSON . fmap Bool') _guardDutyDetectorEnable+    ]++instance FromJSON GuardDutyDetector where+  parseJSON (Object obj) =+    GuardDutyDetector <$>+      fmap (fmap unBool') (obj .: "Enable")+  parseJSON _ = mempty++-- | Constructor for 'GuardDutyDetector' containing required fields as+-- arguments.+guardDutyDetector+  :: Val Bool -- ^ 'gddEnable'+  -> GuardDutyDetector+guardDutyDetector enablearg =+  GuardDutyDetector+  { _guardDutyDetectorEnable = enablearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-detector.html#cfn-guardduty-detector-enable+gddEnable :: Lens' GuardDutyDetector (Val Bool)+gddEnable = lens _guardDutyDetectorEnable (\s a -> s { _guardDutyDetectorEnable = a })

+ library-gen/Stratosphere/Resources/GuardDutyIPSet.hs view

@@ -0,0 +1,84 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-ipset.html++module Stratosphere.Resources.GuardDutyIPSet 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 GuardDutyIPSet. See 'guardDutyIPSet' for a+-- more convenient constructor.+data GuardDutyIPSet =+  GuardDutyIPSet+  { _guardDutyIPSetActivate :: Val Bool+  , _guardDutyIPSetDetectorId :: Val Text+  , _guardDutyIPSetFormat :: Val Text+  , _guardDutyIPSetLocation :: Val Text+  , _guardDutyIPSetName :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON GuardDutyIPSet where+  toJSON GuardDutyIPSet{..} =+    object $+    catMaybes+    [ (Just . ("Activate",) . toJSON . fmap Bool') _guardDutyIPSetActivate+    , (Just . ("DetectorId",) . toJSON) _guardDutyIPSetDetectorId+    , (Just . ("Format",) . toJSON) _guardDutyIPSetFormat+    , (Just . ("Location",) . toJSON) _guardDutyIPSetLocation+    , fmap (("Name",) . toJSON) _guardDutyIPSetName+    ]++instance FromJSON GuardDutyIPSet where+  parseJSON (Object obj) =+    GuardDutyIPSet <$>+      fmap (fmap unBool') (obj .: "Activate") <*>+      (obj .: "DetectorId") <*>+      (obj .: "Format") <*>+      (obj .: "Location") <*>+      (obj .:? "Name")+  parseJSON _ = mempty++-- | Constructor for 'GuardDutyIPSet' containing required fields as arguments.+guardDutyIPSet+  :: Val Bool -- ^ 'gdipsActivate'+  -> Val Text -- ^ 'gdipsDetectorId'+  -> Val Text -- ^ 'gdipsFormat'+  -> Val Text -- ^ 'gdipsLocation'+  -> GuardDutyIPSet+guardDutyIPSet activatearg detectorIdarg formatarg locationarg =+  GuardDutyIPSet+  { _guardDutyIPSetActivate = activatearg+  , _guardDutyIPSetDetectorId = detectorIdarg+  , _guardDutyIPSetFormat = formatarg+  , _guardDutyIPSetLocation = locationarg+  , _guardDutyIPSetName = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-ipset.html#cfn-guardduty-ipset-activate+gdipsActivate :: Lens' GuardDutyIPSet (Val Bool)+gdipsActivate = lens _guardDutyIPSetActivate (\s a -> s { _guardDutyIPSetActivate = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-ipset.html#cfn-guardduty-ipset-detectorid+gdipsDetectorId :: Lens' GuardDutyIPSet (Val Text)+gdipsDetectorId = lens _guardDutyIPSetDetectorId (\s a -> s { _guardDutyIPSetDetectorId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-ipset.html#cfn-guardduty-ipset-format+gdipsFormat :: Lens' GuardDutyIPSet (Val Text)+gdipsFormat = lens _guardDutyIPSetFormat (\s a -> s { _guardDutyIPSetFormat = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-ipset.html#cfn-guardduty-ipset-location+gdipsLocation :: Lens' GuardDutyIPSet (Val Text)+gdipsLocation = lens _guardDutyIPSetLocation (\s a -> s { _guardDutyIPSetLocation = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-ipset.html#cfn-guardduty-ipset-name+gdipsName :: Lens' GuardDutyIPSet (Maybe (Val Text))+gdipsName = lens _guardDutyIPSetName (\s a -> s { _guardDutyIPSetName = a })

+ library-gen/Stratosphere/Resources/GuardDutyThreatIntelSet.hs view

@@ -0,0 +1,85 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-threatintelset.html++module Stratosphere.Resources.GuardDutyThreatIntelSet 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 GuardDutyThreatIntelSet. See+-- 'guardDutyThreatIntelSet' for a more convenient constructor.+data GuardDutyThreatIntelSet =+  GuardDutyThreatIntelSet+  { _guardDutyThreatIntelSetActivate :: Val Bool+  , _guardDutyThreatIntelSetDetectorId :: Val Text+  , _guardDutyThreatIntelSetFormat :: Val Text+  , _guardDutyThreatIntelSetLocation :: Val Text+  , _guardDutyThreatIntelSetName :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON GuardDutyThreatIntelSet where+  toJSON GuardDutyThreatIntelSet{..} =+    object $+    catMaybes+    [ (Just . ("Activate",) . toJSON . fmap Bool') _guardDutyThreatIntelSetActivate+    , (Just . ("DetectorId",) . toJSON) _guardDutyThreatIntelSetDetectorId+    , (Just . ("Format",) . toJSON) _guardDutyThreatIntelSetFormat+    , (Just . ("Location",) . toJSON) _guardDutyThreatIntelSetLocation+    , fmap (("Name",) . toJSON) _guardDutyThreatIntelSetName+    ]++instance FromJSON GuardDutyThreatIntelSet where+  parseJSON (Object obj) =+    GuardDutyThreatIntelSet <$>+      fmap (fmap unBool') (obj .: "Activate") <*>+      (obj .: "DetectorId") <*>+      (obj .: "Format") <*>+      (obj .: "Location") <*>+      (obj .:? "Name")+  parseJSON _ = mempty++-- | Constructor for 'GuardDutyThreatIntelSet' containing required fields as+-- arguments.+guardDutyThreatIntelSet+  :: Val Bool -- ^ 'gdtisActivate'+  -> Val Text -- ^ 'gdtisDetectorId'+  -> Val Text -- ^ 'gdtisFormat'+  -> Val Text -- ^ 'gdtisLocation'+  -> GuardDutyThreatIntelSet+guardDutyThreatIntelSet activatearg detectorIdarg formatarg locationarg =+  GuardDutyThreatIntelSet+  { _guardDutyThreatIntelSetActivate = activatearg+  , _guardDutyThreatIntelSetDetectorId = detectorIdarg+  , _guardDutyThreatIntelSetFormat = formatarg+  , _guardDutyThreatIntelSetLocation = locationarg+  , _guardDutyThreatIntelSetName = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-threatintelset.html#cfn-guardduty-threatintelset-activate+gdtisActivate :: Lens' GuardDutyThreatIntelSet (Val Bool)+gdtisActivate = lens _guardDutyThreatIntelSetActivate (\s a -> s { _guardDutyThreatIntelSetActivate = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-threatintelset.html#cfn-guardduty-threatintelset-detectorid+gdtisDetectorId :: Lens' GuardDutyThreatIntelSet (Val Text)+gdtisDetectorId = lens _guardDutyThreatIntelSetDetectorId (\s a -> s { _guardDutyThreatIntelSetDetectorId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-threatintelset.html#cfn-guardduty-threatintelset-format+gdtisFormat :: Lens' GuardDutyThreatIntelSet (Val Text)+gdtisFormat = lens _guardDutyThreatIntelSetFormat (\s a -> s { _guardDutyThreatIntelSetFormat = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-threatintelset.html#cfn-guardduty-threatintelset-location+gdtisLocation :: Lens' GuardDutyThreatIntelSet (Val Text)+gdtisLocation = lens _guardDutyThreatIntelSetLocation (\s a -> s { _guardDutyThreatIntelSetLocation = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-threatintelset.html#cfn-guardduty-threatintelset-name+gdtisName :: Lens' GuardDutyThreatIntelSet (Maybe (Val Text))+gdtisName = lens _guardDutyThreatIntelSetName (\s a -> s { _guardDutyThreatIntelSetName = a })

+ library-gen/Stratosphere/Resources/InspectorAssessmentTarget.hs view

@@ -0,0 +1,58 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-inspector-assessmenttarget.html++module Stratosphere.Resources.InspectorAssessmentTarget 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 InspectorAssessmentTarget. See+-- 'inspectorAssessmentTarget' for a more convenient constructor.+data InspectorAssessmentTarget =+  InspectorAssessmentTarget+  { _inspectorAssessmentTargetAssessmentTargetName :: Maybe (Val Text)+  , _inspectorAssessmentTargetResourceGroupArn :: Val Text+  } deriving (Show, Eq)++instance ToJSON InspectorAssessmentTarget where+  toJSON InspectorAssessmentTarget{..} =+    object $+    catMaybes+    [ fmap (("AssessmentTargetName",) . toJSON) _inspectorAssessmentTargetAssessmentTargetName+    , (Just . ("ResourceGroupArn",) . toJSON) _inspectorAssessmentTargetResourceGroupArn+    ]++instance FromJSON InspectorAssessmentTarget where+  parseJSON (Object obj) =+    InspectorAssessmentTarget <$>+      (obj .:? "AssessmentTargetName") <*>+      (obj .: "ResourceGroupArn")+  parseJSON _ = mempty++-- | Constructor for 'InspectorAssessmentTarget' containing required fields as+-- arguments.+inspectorAssessmentTarget+  :: Val Text -- ^ 'iatResourceGroupArn'+  -> InspectorAssessmentTarget+inspectorAssessmentTarget resourceGroupArnarg =+  InspectorAssessmentTarget+  { _inspectorAssessmentTargetAssessmentTargetName = Nothing+  , _inspectorAssessmentTargetResourceGroupArn = resourceGroupArnarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-inspector-assessmenttarget.html#cfn-inspector-assessmenttarget-assessmenttargetname+iatAssessmentTargetName :: Lens' InspectorAssessmentTarget (Maybe (Val Text))+iatAssessmentTargetName = lens _inspectorAssessmentTargetAssessmentTargetName (\s a -> s { _inspectorAssessmentTargetAssessmentTargetName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-inspector-assessmenttarget.html#cfn-inspector-assessmenttarget-resourcegrouparn+iatResourceGroupArn :: Lens' InspectorAssessmentTarget (Val Text)+iatResourceGroupArn = lens _inspectorAssessmentTargetResourceGroupArn (\s a -> s { _inspectorAssessmentTargetResourceGroupArn = a })

+ library-gen/Stratosphere/Resources/InspectorAssessmentTemplate.hs view

@@ -0,0 +1,84 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-inspector-assessmenttemplate.html++module Stratosphere.Resources.InspectorAssessmentTemplate 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.Tag++-- | Full data type definition for InspectorAssessmentTemplate. See+-- 'inspectorAssessmentTemplate' for a more convenient constructor.+data InspectorAssessmentTemplate =+  InspectorAssessmentTemplate+  { _inspectorAssessmentTemplateAssessmentTargetArn :: Val Text+  , _inspectorAssessmentTemplateAssessmentTemplateName :: Maybe (Val Text)+  , _inspectorAssessmentTemplateDurationInSeconds :: Val Integer+  , _inspectorAssessmentTemplateRulesPackageArns :: ValList Text+  , _inspectorAssessmentTemplateUserAttributesForFindings :: Maybe [Tag]+  } deriving (Show, Eq)++instance ToJSON InspectorAssessmentTemplate where+  toJSON InspectorAssessmentTemplate{..} =+    object $+    catMaybes+    [ (Just . ("AssessmentTargetArn",) . toJSON) _inspectorAssessmentTemplateAssessmentTargetArn+    , fmap (("AssessmentTemplateName",) . toJSON) _inspectorAssessmentTemplateAssessmentTemplateName+    , (Just . ("DurationInSeconds",) . toJSON . fmap Integer') _inspectorAssessmentTemplateDurationInSeconds+    , (Just . ("RulesPackageArns",) . toJSON) _inspectorAssessmentTemplateRulesPackageArns+    , fmap (("UserAttributesForFindings",) . toJSON) _inspectorAssessmentTemplateUserAttributesForFindings+    ]++instance FromJSON InspectorAssessmentTemplate where+  parseJSON (Object obj) =+    InspectorAssessmentTemplate <$>+      (obj .: "AssessmentTargetArn") <*>+      (obj .:? "AssessmentTemplateName") <*>+      fmap (fmap unInteger') (obj .: "DurationInSeconds") <*>+      (obj .: "RulesPackageArns") <*>+      (obj .:? "UserAttributesForFindings")+  parseJSON _ = mempty++-- | Constructor for 'InspectorAssessmentTemplate' containing required fields+-- as arguments.+inspectorAssessmentTemplate+  :: Val Text -- ^ 'iatAssessmentTargetArn'+  -> Val Integer -- ^ 'iatDurationInSeconds'+  -> ValList Text -- ^ 'iatRulesPackageArns'+  -> InspectorAssessmentTemplate+inspectorAssessmentTemplate assessmentTargetArnarg durationInSecondsarg rulesPackageArnsarg =+  InspectorAssessmentTemplate+  { _inspectorAssessmentTemplateAssessmentTargetArn = assessmentTargetArnarg+  , _inspectorAssessmentTemplateAssessmentTemplateName = Nothing+  , _inspectorAssessmentTemplateDurationInSeconds = durationInSecondsarg+  , _inspectorAssessmentTemplateRulesPackageArns = rulesPackageArnsarg+  , _inspectorAssessmentTemplateUserAttributesForFindings = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-inspector-assessmenttemplate.html#cfn-inspector-assessmenttemplate-assessmenttargetarn+iatAssessmentTargetArn :: Lens' InspectorAssessmentTemplate (Val Text)+iatAssessmentTargetArn = lens _inspectorAssessmentTemplateAssessmentTargetArn (\s a -> s { _inspectorAssessmentTemplateAssessmentTargetArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-inspector-assessmenttemplate.html#cfn-inspector-assessmenttemplate-assessmenttemplatename+iatAssessmentTemplateName :: Lens' InspectorAssessmentTemplate (Maybe (Val Text))+iatAssessmentTemplateName = lens _inspectorAssessmentTemplateAssessmentTemplateName (\s a -> s { _inspectorAssessmentTemplateAssessmentTemplateName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-inspector-assessmenttemplate.html#cfn-inspector-assessmenttemplate-durationinseconds+iatDurationInSeconds :: Lens' InspectorAssessmentTemplate (Val Integer)+iatDurationInSeconds = lens _inspectorAssessmentTemplateDurationInSeconds (\s a -> s { _inspectorAssessmentTemplateDurationInSeconds = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-inspector-assessmenttemplate.html#cfn-inspector-assessmenttemplate-rulespackagearns+iatRulesPackageArns :: Lens' InspectorAssessmentTemplate (ValList Text)+iatRulesPackageArns = lens _inspectorAssessmentTemplateRulesPackageArns (\s a -> s { _inspectorAssessmentTemplateRulesPackageArns = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-inspector-assessmenttemplate.html#cfn-inspector-assessmenttemplate-userattributesforfindings+iatUserAttributesForFindings :: Lens' InspectorAssessmentTemplate (Maybe [Tag])+iatUserAttributesForFindings = lens _inspectorAssessmentTemplateUserAttributesForFindings (\s a -> s { _inspectorAssessmentTemplateUserAttributesForFindings = a })

+ library-gen/Stratosphere/Resources/InspectorResourceGroup.hs view

@@ -0,0 +1,50 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-inspector-resourcegroup.html++module Stratosphere.Resources.InspectorResourceGroup 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.Tag++-- | Full data type definition for InspectorResourceGroup. See+-- 'inspectorResourceGroup' for a more convenient constructor.+data InspectorResourceGroup =+  InspectorResourceGroup+  { _inspectorResourceGroupResourceGroupTags :: [Tag]+  } deriving (Show, Eq)++instance ToJSON InspectorResourceGroup where+  toJSON InspectorResourceGroup{..} =+    object $+    catMaybes+    [ (Just . ("ResourceGroupTags",) . toJSON) _inspectorResourceGroupResourceGroupTags+    ]++instance FromJSON InspectorResourceGroup where+  parseJSON (Object obj) =+    InspectorResourceGroup <$>+      (obj .: "ResourceGroupTags")+  parseJSON _ = mempty++-- | Constructor for 'InspectorResourceGroup' containing required fields as+-- arguments.+inspectorResourceGroup+  :: [Tag] -- ^ 'irgResourceGroupTags'+  -> InspectorResourceGroup+inspectorResourceGroup resourceGroupTagsarg =+  InspectorResourceGroup+  { _inspectorResourceGroupResourceGroupTags = resourceGroupTagsarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-inspector-resourcegroup.html#cfn-inspector-resourcegroup-resourcegrouptags+irgResourceGroupTags :: Lens' InspectorResourceGroup [Tag]+irgResourceGroupTags = lens _inspectorResourceGroupResourceGroupTags (\s a -> s { _inspectorResourceGroupResourceGroupTags = a })

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

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

+ library-gen/Stratosphere/Resources/ServiceDiscoveryInstance.hs view

@@ -0,0 +1,67 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-instance.html++module Stratosphere.Resources.ServiceDiscoveryInstance 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 ServiceDiscoveryInstance. See+-- 'serviceDiscoveryInstance' for a more convenient constructor.+data ServiceDiscoveryInstance =+  ServiceDiscoveryInstance+  { _serviceDiscoveryInstanceInstanceAttributes :: Object+  , _serviceDiscoveryInstanceInstanceId :: Maybe (Val Text)+  , _serviceDiscoveryInstanceServiceId :: Val Text+  } deriving (Show, Eq)++instance ToJSON ServiceDiscoveryInstance where+  toJSON ServiceDiscoveryInstance{..} =+    object $+    catMaybes+    [ (Just . ("InstanceAttributes",) . toJSON) _serviceDiscoveryInstanceInstanceAttributes+    , fmap (("InstanceId",) . toJSON) _serviceDiscoveryInstanceInstanceId+    , (Just . ("ServiceId",) . toJSON) _serviceDiscoveryInstanceServiceId+    ]++instance FromJSON ServiceDiscoveryInstance where+  parseJSON (Object obj) =+    ServiceDiscoveryInstance <$>+      (obj .: "InstanceAttributes") <*>+      (obj .:? "InstanceId") <*>+      (obj .: "ServiceId")+  parseJSON _ = mempty++-- | Constructor for 'ServiceDiscoveryInstance' containing required fields as+-- arguments.+serviceDiscoveryInstance+  :: Object -- ^ 'sdiInstanceAttributes'+  -> Val Text -- ^ 'sdiServiceId'+  -> ServiceDiscoveryInstance+serviceDiscoveryInstance instanceAttributesarg serviceIdarg =+  ServiceDiscoveryInstance+  { _serviceDiscoveryInstanceInstanceAttributes = instanceAttributesarg+  , _serviceDiscoveryInstanceInstanceId = Nothing+  , _serviceDiscoveryInstanceServiceId = serviceIdarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-instance.html#cfn-servicediscovery-instance-instanceattributes+sdiInstanceAttributes :: Lens' ServiceDiscoveryInstance Object+sdiInstanceAttributes = lens _serviceDiscoveryInstanceInstanceAttributes (\s a -> s { _serviceDiscoveryInstanceInstanceAttributes = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-instance.html#cfn-servicediscovery-instance-instanceid+sdiInstanceId :: Lens' ServiceDiscoveryInstance (Maybe (Val Text))+sdiInstanceId = lens _serviceDiscoveryInstanceInstanceId (\s a -> s { _serviceDiscoveryInstanceInstanceId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-instance.html#cfn-servicediscovery-instance-serviceid+sdiServiceId :: Lens' ServiceDiscoveryInstance (Val Text)+sdiServiceId = lens _serviceDiscoveryInstanceServiceId (\s a -> s { _serviceDiscoveryInstanceServiceId = a })

+ library-gen/Stratosphere/Resources/ServiceDiscoveryPrivateDnsNamespace.hs view

@@ -0,0 +1,67 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-privatednsnamespace.html++module Stratosphere.Resources.ServiceDiscoveryPrivateDnsNamespace 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 ServiceDiscoveryPrivateDnsNamespace. See+-- 'serviceDiscoveryPrivateDnsNamespace' for a more convenient constructor.+data ServiceDiscoveryPrivateDnsNamespace =+  ServiceDiscoveryPrivateDnsNamespace+  { _serviceDiscoveryPrivateDnsNamespaceDescription :: Maybe (Val Text)+  , _serviceDiscoveryPrivateDnsNamespaceName :: Val Text+  , _serviceDiscoveryPrivateDnsNamespaceVpc :: Val Text+  } deriving (Show, Eq)++instance ToJSON ServiceDiscoveryPrivateDnsNamespace where+  toJSON ServiceDiscoveryPrivateDnsNamespace{..} =+    object $+    catMaybes+    [ fmap (("Description",) . toJSON) _serviceDiscoveryPrivateDnsNamespaceDescription+    , (Just . ("Name",) . toJSON) _serviceDiscoveryPrivateDnsNamespaceName+    , (Just . ("Vpc",) . toJSON) _serviceDiscoveryPrivateDnsNamespaceVpc+    ]++instance FromJSON ServiceDiscoveryPrivateDnsNamespace where+  parseJSON (Object obj) =+    ServiceDiscoveryPrivateDnsNamespace <$>+      (obj .:? "Description") <*>+      (obj .: "Name") <*>+      (obj .: "Vpc")+  parseJSON _ = mempty++-- | Constructor for 'ServiceDiscoveryPrivateDnsNamespace' containing required+-- fields as arguments.+serviceDiscoveryPrivateDnsNamespace+  :: Val Text -- ^ 'sdprdnName'+  -> Val Text -- ^ 'sdprdnVpc'+  -> ServiceDiscoveryPrivateDnsNamespace+serviceDiscoveryPrivateDnsNamespace namearg vpcarg =+  ServiceDiscoveryPrivateDnsNamespace+  { _serviceDiscoveryPrivateDnsNamespaceDescription = Nothing+  , _serviceDiscoveryPrivateDnsNamespaceName = namearg+  , _serviceDiscoveryPrivateDnsNamespaceVpc = vpcarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-privatednsnamespace.html#cfn-servicediscovery-privatednsnamespace-description+sdprdnDescription :: Lens' ServiceDiscoveryPrivateDnsNamespace (Maybe (Val Text))+sdprdnDescription = lens _serviceDiscoveryPrivateDnsNamespaceDescription (\s a -> s { _serviceDiscoveryPrivateDnsNamespaceDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-privatednsnamespace.html#cfn-servicediscovery-privatednsnamespace-name+sdprdnName :: Lens' ServiceDiscoveryPrivateDnsNamespace (Val Text)+sdprdnName = lens _serviceDiscoveryPrivateDnsNamespaceName (\s a -> s { _serviceDiscoveryPrivateDnsNamespaceName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-privatednsnamespace.html#cfn-servicediscovery-privatednsnamespace-vpc+sdprdnVpc :: Lens' ServiceDiscoveryPrivateDnsNamespace (Val Text)+sdprdnVpc = lens _serviceDiscoveryPrivateDnsNamespaceVpc (\s a -> s { _serviceDiscoveryPrivateDnsNamespaceVpc = a })

+ library-gen/Stratosphere/Resources/ServiceDiscoveryPublicDnsNamespace.hs view

@@ -0,0 +1,58 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-publicdnsnamespace.html++module Stratosphere.Resources.ServiceDiscoveryPublicDnsNamespace 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 ServiceDiscoveryPublicDnsNamespace. See+-- 'serviceDiscoveryPublicDnsNamespace' for a more convenient constructor.+data ServiceDiscoveryPublicDnsNamespace =+  ServiceDiscoveryPublicDnsNamespace+  { _serviceDiscoveryPublicDnsNamespaceDescription :: Maybe (Val Text)+  , _serviceDiscoveryPublicDnsNamespaceName :: Val Text+  } deriving (Show, Eq)++instance ToJSON ServiceDiscoveryPublicDnsNamespace where+  toJSON ServiceDiscoveryPublicDnsNamespace{..} =+    object $+    catMaybes+    [ fmap (("Description",) . toJSON) _serviceDiscoveryPublicDnsNamespaceDescription+    , (Just . ("Name",) . toJSON) _serviceDiscoveryPublicDnsNamespaceName+    ]++instance FromJSON ServiceDiscoveryPublicDnsNamespace where+  parseJSON (Object obj) =+    ServiceDiscoveryPublicDnsNamespace <$>+      (obj .:? "Description") <*>+      (obj .: "Name")+  parseJSON _ = mempty++-- | Constructor for 'ServiceDiscoveryPublicDnsNamespace' containing required+-- fields as arguments.+serviceDiscoveryPublicDnsNamespace+  :: Val Text -- ^ 'sdpudnName'+  -> ServiceDiscoveryPublicDnsNamespace+serviceDiscoveryPublicDnsNamespace namearg =+  ServiceDiscoveryPublicDnsNamespace+  { _serviceDiscoveryPublicDnsNamespaceDescription = Nothing+  , _serviceDiscoveryPublicDnsNamespaceName = namearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-publicdnsnamespace.html#cfn-servicediscovery-publicdnsnamespace-description+sdpudnDescription :: Lens' ServiceDiscoveryPublicDnsNamespace (Maybe (Val Text))+sdpudnDescription = lens _serviceDiscoveryPublicDnsNamespaceDescription (\s a -> s { _serviceDiscoveryPublicDnsNamespaceDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-publicdnsnamespace.html#cfn-servicediscovery-publicdnsnamespace-name+sdpudnName :: Lens' ServiceDiscoveryPublicDnsNamespace (Val Text)+sdpudnName = lens _serviceDiscoveryPublicDnsNamespaceName (\s a -> s { _serviceDiscoveryPublicDnsNamespaceName = a })

+ library-gen/Stratosphere/Resources/ServiceDiscoveryService.hs view

@@ -0,0 +1,75 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-service.html++module Stratosphere.Resources.ServiceDiscoveryService 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.ServiceDiscoveryServiceDnsConfig+import Stratosphere.ResourceProperties.ServiceDiscoveryServiceHealthCheckConfig++-- | Full data type definition for ServiceDiscoveryService. See+-- 'serviceDiscoveryService' for a more convenient constructor.+data ServiceDiscoveryService =+  ServiceDiscoveryService+  { _serviceDiscoveryServiceDescription :: Maybe (Val Text)+  , _serviceDiscoveryServiceDnsConfig :: ServiceDiscoveryServiceDnsConfig+  , _serviceDiscoveryServiceHealthCheckConfig :: Maybe ServiceDiscoveryServiceHealthCheckConfig+  , _serviceDiscoveryServiceName :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON ServiceDiscoveryService where+  toJSON ServiceDiscoveryService{..} =+    object $+    catMaybes+    [ fmap (("Description",) . toJSON) _serviceDiscoveryServiceDescription+    , (Just . ("DnsConfig",) . toJSON) _serviceDiscoveryServiceDnsConfig+    , fmap (("HealthCheckConfig",) . toJSON) _serviceDiscoveryServiceHealthCheckConfig+    , fmap (("Name",) . toJSON) _serviceDiscoveryServiceName+    ]++instance FromJSON ServiceDiscoveryService where+  parseJSON (Object obj) =+    ServiceDiscoveryService <$>+      (obj .:? "Description") <*>+      (obj .: "DnsConfig") <*>+      (obj .:? "HealthCheckConfig") <*>+      (obj .:? "Name")+  parseJSON _ = mempty++-- | Constructor for 'ServiceDiscoveryService' containing required fields as+-- arguments.+serviceDiscoveryService+  :: ServiceDiscoveryServiceDnsConfig -- ^ 'sdsDnsConfig'+  -> ServiceDiscoveryService+serviceDiscoveryService dnsConfigarg =+  ServiceDiscoveryService+  { _serviceDiscoveryServiceDescription = Nothing+  , _serviceDiscoveryServiceDnsConfig = dnsConfigarg+  , _serviceDiscoveryServiceHealthCheckConfig = Nothing+  , _serviceDiscoveryServiceName = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-service.html#cfn-servicediscovery-service-description+sdsDescription :: Lens' ServiceDiscoveryService (Maybe (Val Text))+sdsDescription = lens _serviceDiscoveryServiceDescription (\s a -> s { _serviceDiscoveryServiceDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-service.html#cfn-servicediscovery-service-dnsconfig+sdsDnsConfig :: Lens' ServiceDiscoveryService ServiceDiscoveryServiceDnsConfig+sdsDnsConfig = lens _serviceDiscoveryServiceDnsConfig (\s a -> s { _serviceDiscoveryServiceDnsConfig = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-service.html#cfn-servicediscovery-service-healthcheckconfig+sdsHealthCheckConfig :: Lens' ServiceDiscoveryService (Maybe ServiceDiscoveryServiceHealthCheckConfig)+sdsHealthCheckConfig = lens _serviceDiscoveryServiceHealthCheckConfig (\s a -> s { _serviceDiscoveryServiceHealthCheckConfig = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-service.html#cfn-servicediscovery-service-name+sdsName :: Lens' ServiceDiscoveryService (Maybe (Val Text))+sdsName = lens _serviceDiscoveryServiceName (\s a -> s { _serviceDiscoveryServiceName = a })

stratosphere.cabal view

@@ -3,7 +3,7 @@ -- see: https://github.com/sol/hpack  name:           stratosphere-version:        0.13.0+version:        0.14.0 synopsis:       EDSL for AWS CloudFormation description:    EDSL for AWS CloudFormation category:       AWS, Cloud@@ -103,6 +103,7 @@       Stratosphere.ResourceProperties.BatchJobDefinitionVolumesHost       Stratosphere.ResourceProperties.BatchJobQueueComputeEnvironmentOrder       Stratosphere.ResourceProperties.CertificateManagerCertificateDomainValidationOption+      Stratosphere.ResourceProperties.Cloud9EnvironmentEC2Repository       Stratosphere.ResourceProperties.CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig       Stratosphere.ResourceProperties.CloudFrontDistributionCacheBehavior       Stratosphere.ResourceProperties.CloudFrontDistributionCookies@@ -113,8 +114,6 @@       Stratosphere.ResourceProperties.CloudFrontDistributionForwardedValues       Stratosphere.ResourceProperties.CloudFrontDistributionGeoRestriction       Stratosphere.ResourceProperties.CloudFrontDistributionLambdaFunctionAssociation-      Stratosphere.ResourceProperties.CloudFrontDistributionLegacyCustomOrigin-      Stratosphere.ResourceProperties.CloudFrontDistributionLegacyS3Origin       Stratosphere.ResourceProperties.CloudFrontDistributionLogging       Stratosphere.ResourceProperties.CloudFrontDistributionOrigin       Stratosphere.ResourceProperties.CloudFrontDistributionOriginCustomHeader@@ -131,8 +130,10 @@       Stratosphere.ResourceProperties.CodeBuildProjectArtifacts       Stratosphere.ResourceProperties.CodeBuildProjectEnvironment       Stratosphere.ResourceProperties.CodeBuildProjectEnvironmentVariable+      Stratosphere.ResourceProperties.CodeBuildProjectProjectCache       Stratosphere.ResourceProperties.CodeBuildProjectSource       Stratosphere.ResourceProperties.CodeBuildProjectSourceAuth+      Stratosphere.ResourceProperties.CodeBuildProjectVpcConfig       Stratosphere.ResourceProperties.CodeCommitRepositoryRepositoryTrigger       Stratosphere.ResourceProperties.CodeDeployDeploymentConfigMinimumHealthyHosts       Stratosphere.ResourceProperties.CodeDeployDeploymentGroupAlarm@@ -232,8 +233,10 @@       Stratosphere.ResourceProperties.EC2SpotFleetSpotPlacement       Stratosphere.ResourceProperties.EC2VPNConnectionVpnTunnelOptionsSpecification       Stratosphere.ResourceProperties.ECRRepositoryLifecyclePolicy+      Stratosphere.ResourceProperties.ECSServiceAwsVpcConfiguration       Stratosphere.ResourceProperties.ECSServiceDeploymentConfiguration       Stratosphere.ResourceProperties.ECSServiceLoadBalancer+      Stratosphere.ResourceProperties.ECSServiceNetworkConfiguration       Stratosphere.ResourceProperties.ECSServicePlacementConstraint       Stratosphere.ResourceProperties.ECSServicePlacementStrategy       Stratosphere.ResourceProperties.ECSTaskDefinitionContainerDefinition@@ -421,6 +424,8 @@       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessorParameter       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamS3DestinationConfiguration+      Stratosphere.ResourceProperties.LambdaAliasAliasRoutingConfiguration+      Stratosphere.ResourceProperties.LambdaAliasVersionWeight       Stratosphere.ResourceProperties.LambdaFunctionCode       Stratosphere.ResourceProperties.LambdaFunctionDeadLetterConfig       Stratosphere.ResourceProperties.LambdaFunctionEnvironment@@ -494,6 +499,9 @@       Stratosphere.ResourceProperties.S3BucketTransition       Stratosphere.ResourceProperties.S3BucketVersioningConfiguration       Stratosphere.ResourceProperties.S3BucketWebsiteConfiguration+      Stratosphere.ResourceProperties.ServiceDiscoveryServiceDnsConfig+      Stratosphere.ResourceProperties.ServiceDiscoveryServiceDnsRecord+      Stratosphere.ResourceProperties.ServiceDiscoveryServiceHealthCheckConfig       Stratosphere.ResourceProperties.SNSTopicSubscription       Stratosphere.ResourceProperties.SSMAssociationParameterValues       Stratosphere.ResourceProperties.SSMAssociationTarget@@ -565,6 +573,7 @@       Stratosphere.Resources.BatchJobDefinition       Stratosphere.Resources.BatchJobQueue       Stratosphere.Resources.CertificateManagerCertificate+      Stratosphere.Resources.Cloud9EnvironmentEC2       Stratosphere.Resources.CloudFormationCustomResource       Stratosphere.Resources.CloudFormationStack       Stratosphere.Resources.CloudFormationWaitCondition@@ -684,6 +693,9 @@       Stratosphere.Resources.GluePartition       Stratosphere.Resources.GlueTable       Stratosphere.Resources.GlueTrigger+      Stratosphere.Resources.GuardDutyDetector+      Stratosphere.Resources.GuardDutyIPSet+      Stratosphere.Resources.GuardDutyThreatIntelSet       Stratosphere.Resources.IAMAccessKey       Stratosphere.Resources.IAMGroup       Stratosphere.Resources.IAMInstanceProfile@@ -692,6 +704,9 @@       Stratosphere.Resources.IAMRole       Stratosphere.Resources.IAMUser       Stratosphere.Resources.IAMUserToGroupAddition+      Stratosphere.Resources.InspectorAssessmentTarget+      Stratosphere.Resources.InspectorAssessmentTemplate+      Stratosphere.Resources.InspectorResourceGroup       Stratosphere.Resources.IoTCertificate       Stratosphere.Resources.IoTPolicy       Stratosphere.Resources.IoTPolicyPrincipalAttachment@@ -743,6 +758,10 @@       Stratosphere.Resources.S3Bucket       Stratosphere.Resources.S3BucketPolicy       Stratosphere.Resources.SDBDomain+      Stratosphere.Resources.ServiceDiscoveryInstance+      Stratosphere.Resources.ServiceDiscoveryPrivateDnsNamespace+      Stratosphere.Resources.ServiceDiscoveryPublicDnsNamespace+      Stratosphere.Resources.ServiceDiscoveryService       Stratosphere.Resources.SNSSubscription       Stratosphere.Resources.SNSTopic       Stratosphere.Resources.SNSTopicPolicy