stratosphere 0.24.2 → 0.24.3

raw patch · 9 files changed

+277/−2 lines, 9 files

Files

• CHANGELOG.md +4/−0
• library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionCacheBehavior.hs +8/−0
• library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionDefaultCacheBehavior.hs +8/−0
• library-gen/Stratosphere/ResourceProperties/ConfigConfigurationAggregatorAccountAggregationSource.hs +62/−0
• library-gen/Stratosphere/ResourceProperties/ConfigConfigurationAggregatorOrganizationAggregationSource.hs +63/−0
• library-gen/Stratosphere/Resources.hs +12/−0
• library-gen/Stratosphere/Resources/ConfigAggregationAuthorization.hs +53/−0
• library-gen/Stratosphere/Resources/ConfigConfigurationAggregator.hs +61/−0
• stratosphere.cabal +6/−2

@@ -1,5 +1,9 @@ # Change Log +## 0.24.3++* Update resource specification document to new unspecified version+ ## 0.24.2  * Update resource specification document to version 2.5.0

@@ -18,6 +18,7 @@   , _cloudFrontDistributionCacheBehaviorCachedMethods :: Maybe (ValList Text)   , _cloudFrontDistributionCacheBehaviorCompress :: Maybe (Val Bool)   , _cloudFrontDistributionCacheBehaviorDefaultTTL :: Maybe (Val Double)+  , _cloudFrontDistributionCacheBehaviorFieldLevelEncryptionId :: Maybe (Val Text)   , _cloudFrontDistributionCacheBehaviorForwardedValues :: CloudFrontDistributionForwardedValues   , _cloudFrontDistributionCacheBehaviorLambdaFunctionAssociations :: Maybe [CloudFrontDistributionLambdaFunctionAssociation]   , _cloudFrontDistributionCacheBehaviorMaxTTL :: Maybe (Val Double)@@ -37,6 +38,7 @@     , fmap (("CachedMethods",) . toJSON) _cloudFrontDistributionCacheBehaviorCachedMethods     , fmap (("Compress",) . toJSON . fmap Bool') _cloudFrontDistributionCacheBehaviorCompress     , fmap (("DefaultTTL",) . toJSON . fmap Double') _cloudFrontDistributionCacheBehaviorDefaultTTL+    , fmap (("FieldLevelEncryptionId",) . toJSON) _cloudFrontDistributionCacheBehaviorFieldLevelEncryptionId     , (Just . ("ForwardedValues",) . toJSON) _cloudFrontDistributionCacheBehaviorForwardedValues     , fmap (("LambdaFunctionAssociations",) . toJSON) _cloudFrontDistributionCacheBehaviorLambdaFunctionAssociations     , fmap (("MaxTTL",) . toJSON . fmap Double') _cloudFrontDistributionCacheBehaviorMaxTTL@@ -55,6 +57,7 @@       (obj .:? "CachedMethods") <*>       fmap (fmap (fmap unBool')) (obj .:? "Compress") <*>       fmap (fmap (fmap unDouble')) (obj .:? "DefaultTTL") <*>+      (obj .:? "FieldLevelEncryptionId") <*>       (obj .: "ForwardedValues") <*>       (obj .:? "LambdaFunctionAssociations") <*>       fmap (fmap (fmap unDouble')) (obj .:? "MaxTTL") <*>@@ -80,6 +83,7 @@   , _cloudFrontDistributionCacheBehaviorCachedMethods = Nothing   , _cloudFrontDistributionCacheBehaviorCompress = Nothing   , _cloudFrontDistributionCacheBehaviorDefaultTTL = Nothing+  , _cloudFrontDistributionCacheBehaviorFieldLevelEncryptionId = Nothing   , _cloudFrontDistributionCacheBehaviorForwardedValues = forwardedValuesarg   , _cloudFrontDistributionCacheBehaviorLambdaFunctionAssociations = Nothing   , _cloudFrontDistributionCacheBehaviorMaxTTL = Nothing@@ -106,6 +110,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-defaultttl cfdcbDefaultTTL :: Lens' CloudFrontDistributionCacheBehavior (Maybe (Val Double)) cfdcbDefaultTTL = lens _cloudFrontDistributionCacheBehaviorDefaultTTL (\s a -> s { _cloudFrontDistributionCacheBehaviorDefaultTTL = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-fieldlevelencryptionid+cfdcbFieldLevelEncryptionId :: Lens' CloudFrontDistributionCacheBehavior (Maybe (Val Text))+cfdcbFieldLevelEncryptionId = lens _cloudFrontDistributionCacheBehaviorFieldLevelEncryptionId (\s a -> s { _cloudFrontDistributionCacheBehaviorFieldLevelEncryptionId = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-forwardedvalues cfdcbForwardedValues :: Lens' CloudFrontDistributionCacheBehavior CloudFrontDistributionForwardedValues

@@ -19,6 +19,7 @@   , _cloudFrontDistributionDefaultCacheBehaviorCachedMethods :: Maybe (ValList Text)   , _cloudFrontDistributionDefaultCacheBehaviorCompress :: Maybe (Val Bool)   , _cloudFrontDistributionDefaultCacheBehaviorDefaultTTL :: Maybe (Val Double)+  , _cloudFrontDistributionDefaultCacheBehaviorFieldLevelEncryptionId :: Maybe (Val Text)   , _cloudFrontDistributionDefaultCacheBehaviorForwardedValues :: CloudFrontDistributionForwardedValues   , _cloudFrontDistributionDefaultCacheBehaviorLambdaFunctionAssociations :: Maybe [CloudFrontDistributionLambdaFunctionAssociation]   , _cloudFrontDistributionDefaultCacheBehaviorMaxTTL :: Maybe (Val Double)@@ -37,6 +38,7 @@     , fmap (("CachedMethods",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorCachedMethods     , fmap (("Compress",) . toJSON . fmap Bool') _cloudFrontDistributionDefaultCacheBehaviorCompress     , fmap (("DefaultTTL",) . toJSON . fmap Double') _cloudFrontDistributionDefaultCacheBehaviorDefaultTTL+    , fmap (("FieldLevelEncryptionId",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorFieldLevelEncryptionId     , (Just . ("ForwardedValues",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorForwardedValues     , fmap (("LambdaFunctionAssociations",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorLambdaFunctionAssociations     , fmap (("MaxTTL",) . toJSON . fmap Double') _cloudFrontDistributionDefaultCacheBehaviorMaxTTL@@ -54,6 +56,7 @@       (obj .:? "CachedMethods") <*>       fmap (fmap (fmap unBool')) (obj .:? "Compress") <*>       fmap (fmap (fmap unDouble')) (obj .:? "DefaultTTL") <*>+      (obj .:? "FieldLevelEncryptionId") <*>       (obj .: "ForwardedValues") <*>       (obj .:? "LambdaFunctionAssociations") <*>       fmap (fmap (fmap unDouble')) (obj .:? "MaxTTL") <*>@@ -77,6 +80,7 @@   , _cloudFrontDistributionDefaultCacheBehaviorCachedMethods = Nothing   , _cloudFrontDistributionDefaultCacheBehaviorCompress = Nothing   , _cloudFrontDistributionDefaultCacheBehaviorDefaultTTL = Nothing+  , _cloudFrontDistributionDefaultCacheBehaviorFieldLevelEncryptionId = Nothing   , _cloudFrontDistributionDefaultCacheBehaviorForwardedValues = forwardedValuesarg   , _cloudFrontDistributionDefaultCacheBehaviorLambdaFunctionAssociations = Nothing   , _cloudFrontDistributionDefaultCacheBehaviorMaxTTL = Nothing@@ -102,6 +106,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-defaultttl cfddcbDefaultTTL :: Lens' CloudFrontDistributionDefaultCacheBehavior (Maybe (Val Double)) cfddcbDefaultTTL = lens _cloudFrontDistributionDefaultCacheBehaviorDefaultTTL (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorDefaultTTL = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-fieldlevelencryptionid+cfddcbFieldLevelEncryptionId :: Lens' CloudFrontDistributionDefaultCacheBehavior (Maybe (Val Text))+cfddcbFieldLevelEncryptionId = lens _cloudFrontDistributionDefaultCacheBehaviorFieldLevelEncryptionId (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorFieldLevelEncryptionId = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-forwardedvalues cfddcbForwardedValues :: Lens' CloudFrontDistributionDefaultCacheBehavior CloudFrontDistributionForwardedValues

@@ -0,0 +1,62 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-configurationaggregator-accountaggregationsource.html++module Stratosphere.ResourceProperties.ConfigConfigurationAggregatorAccountAggregationSource where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- ConfigConfigurationAggregatorAccountAggregationSource. See+-- 'configConfigurationAggregatorAccountAggregationSource' for a more+-- convenient constructor.+data ConfigConfigurationAggregatorAccountAggregationSource =+  ConfigConfigurationAggregatorAccountAggregationSource+  { _configConfigurationAggregatorAccountAggregationSourceAccountIds :: ValList Text+  , _configConfigurationAggregatorAccountAggregationSourceAllAwsRegions :: Maybe (Val Bool)+  , _configConfigurationAggregatorAccountAggregationSourceAwsRegions :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON ConfigConfigurationAggregatorAccountAggregationSource where+  toJSON ConfigConfigurationAggregatorAccountAggregationSource{..} =+    object $+    catMaybes+    [ (Just . ("AccountIds",) . toJSON) _configConfigurationAggregatorAccountAggregationSourceAccountIds+    , fmap (("AllAwsRegions",) . toJSON . fmap Bool') _configConfigurationAggregatorAccountAggregationSourceAllAwsRegions+    , fmap (("AwsRegions",) . toJSON) _configConfigurationAggregatorAccountAggregationSourceAwsRegions+    ]++instance FromJSON ConfigConfigurationAggregatorAccountAggregationSource where+  parseJSON (Object obj) =+    ConfigConfigurationAggregatorAccountAggregationSource <$>+      (obj .: "AccountIds") <*>+      fmap (fmap (fmap unBool')) (obj .:? "AllAwsRegions") <*>+      (obj .:? "AwsRegions")+  parseJSON _ = mempty++-- | Constructor for 'ConfigConfigurationAggregatorAccountAggregationSource'+-- containing required fields as arguments.+configConfigurationAggregatorAccountAggregationSource+  :: ValList Text -- ^ 'ccaaasAccountIds'+  -> ConfigConfigurationAggregatorAccountAggregationSource+configConfigurationAggregatorAccountAggregationSource accountIdsarg =+  ConfigConfigurationAggregatorAccountAggregationSource+  { _configConfigurationAggregatorAccountAggregationSourceAccountIds = accountIdsarg+  , _configConfigurationAggregatorAccountAggregationSourceAllAwsRegions = Nothing+  , _configConfigurationAggregatorAccountAggregationSourceAwsRegions = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-configurationaggregator-accountaggregationsource.html#cfn-config-configurationaggregator-accountaggregationsource-accountids+ccaaasAccountIds :: Lens' ConfigConfigurationAggregatorAccountAggregationSource (ValList Text)+ccaaasAccountIds = lens _configConfigurationAggregatorAccountAggregationSourceAccountIds (\s a -> s { _configConfigurationAggregatorAccountAggregationSourceAccountIds = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-configurationaggregator-accountaggregationsource.html#cfn-config-configurationaggregator-accountaggregationsource-allawsregions+ccaaasAllAwsRegions :: Lens' ConfigConfigurationAggregatorAccountAggregationSource (Maybe (Val Bool))+ccaaasAllAwsRegions = lens _configConfigurationAggregatorAccountAggregationSourceAllAwsRegions (\s a -> s { _configConfigurationAggregatorAccountAggregationSourceAllAwsRegions = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-configurationaggregator-accountaggregationsource.html#cfn-config-configurationaggregator-accountaggregationsource-awsregions+ccaaasAwsRegions :: Lens' ConfigConfigurationAggregatorAccountAggregationSource (Maybe (ValList Text))+ccaaasAwsRegions = lens _configConfigurationAggregatorAccountAggregationSourceAwsRegions (\s a -> s { _configConfigurationAggregatorAccountAggregationSourceAwsRegions = a })

@@ -0,0 +1,63 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-configurationaggregator-organizationaggregationsource.html++module Stratosphere.ResourceProperties.ConfigConfigurationAggregatorOrganizationAggregationSource where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- ConfigConfigurationAggregatorOrganizationAggregationSource. See+-- 'configConfigurationAggregatorOrganizationAggregationSource' for a more+-- convenient constructor.+data ConfigConfigurationAggregatorOrganizationAggregationSource =+  ConfigConfigurationAggregatorOrganizationAggregationSource+  { _configConfigurationAggregatorOrganizationAggregationSourceAllAwsRegions :: Maybe (Val Bool)+  , _configConfigurationAggregatorOrganizationAggregationSourceAwsRegions :: Maybe (ValList Text)+  , _configConfigurationAggregatorOrganizationAggregationSourceRoleArn :: Val Text+  } deriving (Show, Eq)++instance ToJSON ConfigConfigurationAggregatorOrganizationAggregationSource where+  toJSON ConfigConfigurationAggregatorOrganizationAggregationSource{..} =+    object $+    catMaybes+    [ fmap (("AllAwsRegions",) . toJSON . fmap Bool') _configConfigurationAggregatorOrganizationAggregationSourceAllAwsRegions+    , fmap (("AwsRegions",) . toJSON) _configConfigurationAggregatorOrganizationAggregationSourceAwsRegions+    , (Just . ("RoleArn",) . toJSON) _configConfigurationAggregatorOrganizationAggregationSourceRoleArn+    ]++instance FromJSON ConfigConfigurationAggregatorOrganizationAggregationSource where+  parseJSON (Object obj) =+    ConfigConfigurationAggregatorOrganizationAggregationSource <$>+      fmap (fmap (fmap unBool')) (obj .:? "AllAwsRegions") <*>+      (obj .:? "AwsRegions") <*>+      (obj .: "RoleArn")+  parseJSON _ = mempty++-- | Constructor for+-- 'ConfigConfigurationAggregatorOrganizationAggregationSource' containing+-- required fields as arguments.+configConfigurationAggregatorOrganizationAggregationSource+  :: Val Text -- ^ 'ccaoasRoleArn'+  -> ConfigConfigurationAggregatorOrganizationAggregationSource+configConfigurationAggregatorOrganizationAggregationSource roleArnarg =+  ConfigConfigurationAggregatorOrganizationAggregationSource+  { _configConfigurationAggregatorOrganizationAggregationSourceAllAwsRegions = Nothing+  , _configConfigurationAggregatorOrganizationAggregationSourceAwsRegions = Nothing+  , _configConfigurationAggregatorOrganizationAggregationSourceRoleArn = roleArnarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-configurationaggregator-organizationaggregationsource.html#cfn-config-configurationaggregator-organizationaggregationsource-allawsregions+ccaoasAllAwsRegions :: Lens' ConfigConfigurationAggregatorOrganizationAggregationSource (Maybe (Val Bool))+ccaoasAllAwsRegions = lens _configConfigurationAggregatorOrganizationAggregationSourceAllAwsRegions (\s a -> s { _configConfigurationAggregatorOrganizationAggregationSourceAllAwsRegions = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-configurationaggregator-organizationaggregationsource.html#cfn-config-configurationaggregator-organizationaggregationsource-awsregions+ccaoasAwsRegions :: Lens' ConfigConfigurationAggregatorOrganizationAggregationSource (Maybe (ValList Text))+ccaoasAwsRegions = lens _configConfigurationAggregatorOrganizationAggregationSourceAwsRegions (\s a -> s { _configConfigurationAggregatorOrganizationAggregationSourceAwsRegions = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-configurationaggregator-organizationaggregationsource.html#cfn-config-configurationaggregator-organizationaggregationsource-rolearn+ccaoasRoleArn :: Lens' ConfigConfigurationAggregatorOrganizationAggregationSource (Val Text)+ccaoasRoleArn = lens _configConfigurationAggregatorOrganizationAggregationSourceRoleArn (\s a -> s { _configConfigurationAggregatorOrganizationAggregationSourceRoleArn = a })

@@ -113,7 +113,9 @@ import Stratosphere.Resources.CognitoUserPoolGroup as X import Stratosphere.Resources.CognitoUserPoolUser as X import Stratosphere.Resources.CognitoUserPoolUserToGroupAttachment as X+import Stratosphere.Resources.ConfigAggregationAuthorization as X import Stratosphere.Resources.ConfigConfigRule as X+import Stratosphere.Resources.ConfigConfigurationAggregator as X import Stratosphere.Resources.ConfigConfigurationRecorder as X import Stratosphere.Resources.ConfigDeliveryChannel as X import Stratosphere.Resources.DAXCluster as X@@ -492,6 +494,8 @@ import Stratosphere.ResourceProperties.ConfigConfigRuleScope as X import Stratosphere.ResourceProperties.ConfigConfigRuleSource as X import Stratosphere.ResourceProperties.ConfigConfigRuleSourceDetail as X+import Stratosphere.ResourceProperties.ConfigConfigurationAggregatorAccountAggregationSource as X+import Stratosphere.ResourceProperties.ConfigConfigurationAggregatorOrganizationAggregationSource as X import Stratosphere.ResourceProperties.ConfigConfigurationRecorderRecordingGroup as X import Stratosphere.ResourceProperties.ConfigDeliveryChannelConfigSnapshotDeliveryProperties as X import Stratosphere.ResourceProperties.DMSEndpointDynamoDbSettings as X@@ -990,7 +994,9 @@   | CognitoUserPoolGroupProperties CognitoUserPoolGroup   | CognitoUserPoolUserProperties CognitoUserPoolUser   | CognitoUserPoolUserToGroupAttachmentProperties CognitoUserPoolUserToGroupAttachment+  | ConfigAggregationAuthorizationProperties ConfigAggregationAuthorization   | ConfigConfigRuleProperties ConfigConfigRule+  | ConfigConfigurationAggregatorProperties ConfigConfigurationAggregator   | ConfigConfigurationRecorderProperties ConfigConfigurationRecorder   | ConfigDeliveryChannelProperties ConfigDeliveryChannel   | DAXClusterProperties DAXCluster@@ -1405,8 +1411,12 @@   [ "Type" .= ("AWS::Cognito::UserPoolUser" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (CognitoUserPoolUserToGroupAttachmentProperties x) =   [ "Type" .= ("AWS::Cognito::UserPoolUserToGroupAttachment" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (ConfigAggregationAuthorizationProperties x) =+  [ "Type" .= ("AWS::Config::AggregationAuthorization" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (ConfigConfigRuleProperties x) =   [ "Type" .= ("AWS::Config::ConfigRule" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (ConfigConfigurationAggregatorProperties x) =+  [ "Type" .= ("AWS::Config::ConfigurationAggregator" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (ConfigConfigurationRecorderProperties x) =   [ "Type" .= ("AWS::Config::ConfigurationRecorder" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (ConfigDeliveryChannelProperties x) =@@ -1933,7 +1943,9 @@          "AWS::Cognito::UserPoolGroup" -> CognitoUserPoolGroupProperties <$> (o .: "Properties")          "AWS::Cognito::UserPoolUser" -> CognitoUserPoolUserProperties <$> (o .: "Properties")          "AWS::Cognito::UserPoolUserToGroupAttachment" -> CognitoUserPoolUserToGroupAttachmentProperties <$> (o .: "Properties")+         "AWS::Config::AggregationAuthorization" -> ConfigAggregationAuthorizationProperties <$> (o .: "Properties")          "AWS::Config::ConfigRule" -> ConfigConfigRuleProperties <$> (o .: "Properties")+         "AWS::Config::ConfigurationAggregator" -> ConfigConfigurationAggregatorProperties <$> (o .: "Properties")          "AWS::Config::ConfigurationRecorder" -> ConfigConfigurationRecorderProperties <$> (o .: "Properties")          "AWS::Config::DeliveryChannel" -> ConfigDeliveryChannelProperties <$> (o .: "Properties")          "AWS::DAX::Cluster" -> DAXClusterProperties <$> (o .: "Properties")

@@ -0,0 +1,53 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-aggregationauthorization.html++module Stratosphere.Resources.ConfigAggregationAuthorization where++import Stratosphere.ResourceImports+++-- | Full data type definition for ConfigAggregationAuthorization. See+-- 'configAggregationAuthorization' for a more convenient constructor.+data ConfigAggregationAuthorization =+  ConfigAggregationAuthorization+  { _configAggregationAuthorizationAuthorizedAccountId :: Val Text+  , _configAggregationAuthorizationAuthorizedAwsRegion :: Val Text+  } deriving (Show, Eq)++instance ToJSON ConfigAggregationAuthorization where+  toJSON ConfigAggregationAuthorization{..} =+    object $+    catMaybes+    [ (Just . ("AuthorizedAccountId",) . toJSON) _configAggregationAuthorizationAuthorizedAccountId+    , (Just . ("AuthorizedAwsRegion",) . toJSON) _configAggregationAuthorizationAuthorizedAwsRegion+    ]++instance FromJSON ConfigAggregationAuthorization where+  parseJSON (Object obj) =+    ConfigAggregationAuthorization <$>+      (obj .: "AuthorizedAccountId") <*>+      (obj .: "AuthorizedAwsRegion")+  parseJSON _ = mempty++-- | Constructor for 'ConfigAggregationAuthorization' containing required+-- fields as arguments.+configAggregationAuthorization+  :: Val Text -- ^ 'caaAuthorizedAccountId'+  -> Val Text -- ^ 'caaAuthorizedAwsRegion'+  -> ConfigAggregationAuthorization+configAggregationAuthorization authorizedAccountIdarg authorizedAwsRegionarg =+  ConfigAggregationAuthorization+  { _configAggregationAuthorizationAuthorizedAccountId = authorizedAccountIdarg+  , _configAggregationAuthorizationAuthorizedAwsRegion = authorizedAwsRegionarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-aggregationauthorization.html#cfn-config-aggregationauthorization-authorizedaccountid+caaAuthorizedAccountId :: Lens' ConfigAggregationAuthorization (Val Text)+caaAuthorizedAccountId = lens _configAggregationAuthorizationAuthorizedAccountId (\s a -> s { _configAggregationAuthorizationAuthorizedAccountId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-aggregationauthorization.html#cfn-config-aggregationauthorization-authorizedawsregion+caaAuthorizedAwsRegion :: Lens' ConfigAggregationAuthorization (Val Text)+caaAuthorizedAwsRegion = lens _configAggregationAuthorizationAuthorizedAwsRegion (\s a -> s { _configAggregationAuthorizationAuthorizedAwsRegion = a })

@@ -0,0 +1,61 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-configurationaggregator.html++module Stratosphere.Resources.ConfigConfigurationAggregator where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.ConfigConfigurationAggregatorAccountAggregationSource+import Stratosphere.ResourceProperties.ConfigConfigurationAggregatorOrganizationAggregationSource++-- | Full data type definition for ConfigConfigurationAggregator. See+-- 'configConfigurationAggregator' for a more convenient constructor.+data ConfigConfigurationAggregator =+  ConfigConfigurationAggregator+  { _configConfigurationAggregatorAccountAggregationSources :: Maybe [ConfigConfigurationAggregatorAccountAggregationSource]+  , _configConfigurationAggregatorConfigurationAggregatorName :: Val Text+  , _configConfigurationAggregatorOrganizationAggregationSource :: Maybe ConfigConfigurationAggregatorOrganizationAggregationSource+  } deriving (Show, Eq)++instance ToJSON ConfigConfigurationAggregator where+  toJSON ConfigConfigurationAggregator{..} =+    object $+    catMaybes+    [ fmap (("AccountAggregationSources",) . toJSON) _configConfigurationAggregatorAccountAggregationSources+    , (Just . ("ConfigurationAggregatorName",) . toJSON) _configConfigurationAggregatorConfigurationAggregatorName+    , fmap (("OrganizationAggregationSource",) . toJSON) _configConfigurationAggregatorOrganizationAggregationSource+    ]++instance FromJSON ConfigConfigurationAggregator where+  parseJSON (Object obj) =+    ConfigConfigurationAggregator <$>+      (obj .:? "AccountAggregationSources") <*>+      (obj .: "ConfigurationAggregatorName") <*>+      (obj .:? "OrganizationAggregationSource")+  parseJSON _ = mempty++-- | Constructor for 'ConfigConfigurationAggregator' containing required+-- fields as arguments.+configConfigurationAggregator+  :: Val Text -- ^ 'ccaConfigurationAggregatorName'+  -> ConfigConfigurationAggregator+configConfigurationAggregator configurationAggregatorNamearg =+  ConfigConfigurationAggregator+  { _configConfigurationAggregatorAccountAggregationSources = Nothing+  , _configConfigurationAggregatorConfigurationAggregatorName = configurationAggregatorNamearg+  , _configConfigurationAggregatorOrganizationAggregationSource = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-configurationaggregator.html#cfn-config-configurationaggregator-accountaggregationsources+ccaAccountAggregationSources :: Lens' ConfigConfigurationAggregator (Maybe [ConfigConfigurationAggregatorAccountAggregationSource])+ccaAccountAggregationSources = lens _configConfigurationAggregatorAccountAggregationSources (\s a -> s { _configConfigurationAggregatorAccountAggregationSources = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-configurationaggregator.html#cfn-config-configurationaggregator-configurationaggregatorname+ccaConfigurationAggregatorName :: Lens' ConfigConfigurationAggregator (Val Text)+ccaConfigurationAggregatorName = lens _configConfigurationAggregatorConfigurationAggregatorName (\s a -> s { _configConfigurationAggregatorConfigurationAggregatorName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-configurationaggregator.html#cfn-config-configurationaggregator-organizationaggregationsource+ccaOrganizationAggregationSource :: Lens' ConfigConfigurationAggregator (Maybe ConfigConfigurationAggregatorOrganizationAggregationSource)+ccaOrganizationAggregationSource = lens _configConfigurationAggregatorOrganizationAggregationSource (\s a -> s { _configConfigurationAggregatorOrganizationAggregationSource = a })

@@ -2,10 +2,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: d5cf6557d3fdc2c2df5c984ed31ff17e69db62fec5d9fb6f07a916d051517ea1+-- hash: 9a967e0f56d8f06f24e3d8b89033e5eee5691b6face3eae84ed633e35815a8d9  name:           stratosphere-version:        0.24.2+version:        0.24.3 synopsis:       EDSL for AWS CloudFormation description:    EDSL for AWS CloudFormation category:       AWS, Cloud@@ -198,6 +198,8 @@       Stratosphere.ResourceProperties.ConfigConfigRuleScope       Stratosphere.ResourceProperties.ConfigConfigRuleSource       Stratosphere.ResourceProperties.ConfigConfigRuleSourceDetail+      Stratosphere.ResourceProperties.ConfigConfigurationAggregatorAccountAggregationSource+      Stratosphere.ResourceProperties.ConfigConfigurationAggregatorOrganizationAggregationSource       Stratosphere.ResourceProperties.ConfigConfigurationRecorderRecordingGroup       Stratosphere.ResourceProperties.ConfigDeliveryChannelConfigSnapshotDeliveryProperties       Stratosphere.ResourceProperties.DataPipelinePipelineField@@ -686,7 +688,9 @@       Stratosphere.Resources.CognitoUserPoolGroup       Stratosphere.Resources.CognitoUserPoolUser       Stratosphere.Resources.CognitoUserPoolUserToGroupAttachment+      Stratosphere.Resources.ConfigAggregationAuthorization       Stratosphere.Resources.ConfigConfigRule+      Stratosphere.Resources.ConfigConfigurationAggregator       Stratosphere.Resources.ConfigConfigurationRecorder       Stratosphere.Resources.ConfigDeliveryChannel       Stratosphere.Resources.DataPipelinePipeline