stratosphere 0.53.0 → 0.54.0

raw patch · 69 files changed

+1895/−339 lines, 69 files

Files

CHANGELOG.md +4/−0
library-gen/Stratosphere/ResourceProperties/CertificateManagerCertificateDomainValidationOption.hs +12/−6
library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionOrigin.hs +17/−3
library-gen/Stratosphere/ResourceProperties/CloudWatchAlarmMetricDataQuery.hs +7/−0
library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicyCreateRule.hs +17/−12
library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicyCrossRegionCopyRetainRule.hs +12/−10
library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicyCrossRegionCopyRule.hs +12/−10
library-gen/Stratosphere/ResourceProperties/EC2ClientVpnEndpointClientAuthenticationRequest.hs +8/−0
library-gen/Stratosphere/ResourceProperties/EC2ClientVpnEndpointFederatedAuthenticationRequest.hs +41/−0
library-gen/Stratosphere/ResourceProperties/EC2PrefixListEntry.hs +46/−0
library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionInferenceAccelerator.hs +0/−7
library-gen/Stratosphere/ResourceProperties/EFSAccessPointAccessPointTag.hs +45/−0
library-gen/Stratosphere/ResourceProperties/EFSAccessPointCreationInfo.hs +55/−0
library-gen/Stratosphere/ResourceProperties/EFSAccessPointPosixUser.hs +54/−0
library-gen/Stratosphere/ResourceProperties/EFSAccessPointRootDirectory.hs +45/−0
library-gen/Stratosphere/ResourceProperties/EFSFileSystemElasticFileSystemTag.hs +3/−3
library-gen/Stratosphere/ResourceProperties/EFSFileSystemLifecyclePolicy.hs +2/−2
library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2LoadBalancerSubnetMapping.hs +13/−7
library-gen/Stratosphere/ResourceProperties/EventsRuleHttpParameters.hs +52/−0
library-gen/Stratosphere/ResourceProperties/EventsRuleTarget.hs +8/−0
library-gen/Stratosphere/ResourceProperties/IoTProvisioningTemplateProvisioningHook.hs +46/−0
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamBufferingHints.hs +10/−12
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration.hs +18/−22
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamElasticsearchBufferingHints.hs +10/−12
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration.hs +41/−32
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamElasticsearchRetryOptions.hs +6/−7
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration.hs +9/−11
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamInputFormatConfiguration.hs +6/−7
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamOutputFormatConfiguration.hs +6/−7
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamProcessor.hs +6/−7
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration.hs +22/−0
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamRedshiftRetryOptions.hs +40/−0
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamS3DestinationConfiguration.hs +9/−11
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamSchemaConfiguration.hs +26/−32
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamSplunkRetryOptions.hs +6/−7
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamVpcConfiguration.hs +57/−0
library-gen/Stratosphere/ResourceProperties/RDSDBProxyAuthFormat.hs +66/−0
library-gen/Stratosphere/ResourceProperties/RDSDBProxyTagFormat.hs +45/−0
library-gen/Stratosphere/ResourceProperties/RDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormat.hs +69/−0
library-gen/Stratosphere/ResourceProperties/S3BucketDeleteMarkerReplication.hs +38/−0
library-gen/Stratosphere/ResourceProperties/S3BucketMetrics.hs +47/−0
library-gen/Stratosphere/ResourceProperties/S3BucketReplicationDestination.hs +16/−0
library-gen/Stratosphere/ResourceProperties/S3BucketReplicationRule.hs +31/−9
library-gen/Stratosphere/ResourceProperties/S3BucketReplicationRuleAndOperator.hs +45/−0
library-gen/Stratosphere/ResourceProperties/S3BucketReplicationRuleFilter.hs +53/−0
library-gen/Stratosphere/ResourceProperties/S3BucketReplicationTime.hs +47/−0
library-gen/Stratosphere/ResourceProperties/S3BucketReplicationTimeValue.hs +39/−0
library-gen/Stratosphere/ResourceProperties/SSMAssociationParameterValues.hs +0/−39
library-gen/Stratosphere/ResourceProperties/StepFunctionsStateMachineS3Location.hs +54/−0
library-gen/Stratosphere/Resources.hs +25/−1
library-gen/Stratosphere/Resources/ApiGatewayV2Api.hs +0/−7
library-gen/Stratosphere/Resources/CertificateManagerCertificate.hs +17/−3
library-gen/Stratosphere/Resources/ChatbotSlackChannelConfiguration.hs +3/−10
library-gen/Stratosphere/Resources/CodeGuruProfilerProfilingGroup.hs +10/−3
library-gen/Stratosphere/Resources/EC2PrefixList.hs +72/−0
library-gen/Stratosphere/Resources/EC2Volume.hs +7/−0
library-gen/Stratosphere/Resources/EFSAccessPoint.hs +71/−0
library-gen/Stratosphere/Resources/EFSFileSystem.hs +10/−3
library-gen/Stratosphere/Resources/ElastiCacheReplicationGroup.hs +7/−0
library-gen/Stratosphere/Resources/GuardDutyFilter.hs +2/−10
library-gen/Stratosphere/Resources/IoTProvisioningTemplate.hs +85/−0
library-gen/Stratosphere/Resources/MacieFindingsFilter.hs +7/−6
library-gen/Stratosphere/Resources/NeptuneDBCluster.hs +28/−0
library-gen/Stratosphere/Resources/RDSDBProxy.hs +109/−0
library-gen/Stratosphere/Resources/RDSDBProxyTargetGroup.hs +63/−0
library-gen/Stratosphere/Resources/SNSTopic.hs +17/−3
library-gen/Stratosphere/Resources/SSMAssociation.hs +0/−8
library-gen/Stratosphere/Resources/StepFunctionsStateMachine.hs +14/−7
stratosphere.cabal +27/−3

CHANGELOG.md view

@@ -1,5 +1,9 @@ # Change Log +## 0.54.0++* Update resource specification document to version 15.1.0+ ## 0.53.0  * Update resource specification document to version 14.3.0

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

@@ -17,7 +17,8 @@ data CertificateManagerCertificateDomainValidationOption =   CertificateManagerCertificateDomainValidationOption   { _certificateManagerCertificateDomainValidationOptionDomainName :: Val Text-  , _certificateManagerCertificateDomainValidationOptionValidationDomain :: Val Text+  , _certificateManagerCertificateDomainValidationOptionHostedZoneId :: Maybe (Val Text)+  , _certificateManagerCertificateDomainValidationOptionValidationDomain :: Maybe (Val Text)   } deriving (Show, Eq)  instance ToJSON CertificateManagerCertificateDomainValidationOption where@@ -25,25 +26,30 @@     object $     catMaybes     [ (Just . ("DomainName",) . toJSON) _certificateManagerCertificateDomainValidationOptionDomainName-    , (Just . ("ValidationDomain",) . toJSON) _certificateManagerCertificateDomainValidationOptionValidationDomain+    , fmap (("HostedZoneId",) . toJSON) _certificateManagerCertificateDomainValidationOptionHostedZoneId+    , fmap (("ValidationDomain",) . toJSON) _certificateManagerCertificateDomainValidationOptionValidationDomain     ]  -- | Constructor for 'CertificateManagerCertificateDomainValidationOption' -- containing required fields as arguments. certificateManagerCertificateDomainValidationOption   :: Val Text -- ^ 'cmcdvoDomainName'-  -> Val Text -- ^ 'cmcdvoValidationDomain'   -> CertificateManagerCertificateDomainValidationOption-certificateManagerCertificateDomainValidationOption domainNamearg validationDomainarg =+certificateManagerCertificateDomainValidationOption domainNamearg =   CertificateManagerCertificateDomainValidationOption   { _certificateManagerCertificateDomainValidationOptionDomainName = domainNamearg-  , _certificateManagerCertificateDomainValidationOptionValidationDomain = validationDomainarg+  , _certificateManagerCertificateDomainValidationOptionHostedZoneId = Nothing+  , _certificateManagerCertificateDomainValidationOptionValidationDomain = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-certificatemanager-certificate-domainvalidationoption.html#cfn-certificatemanager-certificate-domainvalidationoptions-domainname cmcdvoDomainName :: Lens' CertificateManagerCertificateDomainValidationOption (Val Text) cmcdvoDomainName = lens _certificateManagerCertificateDomainValidationOptionDomainName (\s a -> s { _certificateManagerCertificateDomainValidationOptionDomainName = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-certificatemanager-certificate-domainvalidationoption.html#cfn-certificatemanager-certificate-domainvalidationoption-hostedzoneid+cmcdvoHostedZoneId :: Lens' CertificateManagerCertificateDomainValidationOption (Maybe (Val Text))+cmcdvoHostedZoneId = lens _certificateManagerCertificateDomainValidationOptionHostedZoneId (\s a -> s { _certificateManagerCertificateDomainValidationOptionHostedZoneId = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-certificatemanager-certificate-domainvalidationoption.html#cfn-certificatemanager-certificate-domainvalidationoption-validationdomain-cmcdvoValidationDomain :: Lens' CertificateManagerCertificateDomainValidationOption (Val Text)+cmcdvoValidationDomain :: Lens' CertificateManagerCertificateDomainValidationOption (Maybe (Val Text)) cmcdvoValidationDomain = lens _certificateManagerCertificateDomainValidationOptionValidationDomain (\s a -> s { _certificateManagerCertificateDomainValidationOptionValidationDomain = a })

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

@@ -16,7 +16,9 @@ -- 'cloudFrontDistributionOrigin' for a more convenient constructor. data CloudFrontDistributionOrigin =   CloudFrontDistributionOrigin-  { _cloudFrontDistributionOriginCustomOriginConfig :: Maybe CloudFrontDistributionCustomOriginConfig+  { _cloudFrontDistributionOriginConnectionAttempts :: Maybe (Val Integer)+  , _cloudFrontDistributionOriginConnectionTimeout :: Maybe (Val Integer)+  , _cloudFrontDistributionOriginCustomOriginConfig :: Maybe CloudFrontDistributionCustomOriginConfig   , _cloudFrontDistributionOriginDomainName :: Val Text   , _cloudFrontDistributionOriginId :: Val Text   , _cloudFrontDistributionOriginOriginCustomHeaders :: Maybe [CloudFrontDistributionOriginCustomHeader]@@ -28,7 +30,9 @@   toJSON CloudFrontDistributionOrigin{..} =     object $     catMaybes-    [ fmap (("CustomOriginConfig",) . toJSON) _cloudFrontDistributionOriginCustomOriginConfig+    [ fmap (("ConnectionAttempts",) . toJSON) _cloudFrontDistributionOriginConnectionAttempts+    , fmap (("ConnectionTimeout",) . toJSON) _cloudFrontDistributionOriginConnectionTimeout+    , fmap (("CustomOriginConfig",) . toJSON) _cloudFrontDistributionOriginCustomOriginConfig     , (Just . ("DomainName",) . toJSON) _cloudFrontDistributionOriginDomainName     , (Just . ("Id",) . toJSON) _cloudFrontDistributionOriginId     , fmap (("OriginCustomHeaders",) . toJSON) _cloudFrontDistributionOriginOriginCustomHeaders@@ -44,13 +48,23 @@   -> CloudFrontDistributionOrigin cloudFrontDistributionOrigin domainNamearg idarg =   CloudFrontDistributionOrigin-  { _cloudFrontDistributionOriginCustomOriginConfig = Nothing+  { _cloudFrontDistributionOriginConnectionAttempts = Nothing+  , _cloudFrontDistributionOriginConnectionTimeout = Nothing+  , _cloudFrontDistributionOriginCustomOriginConfig = Nothing   , _cloudFrontDistributionOriginDomainName = domainNamearg   , _cloudFrontDistributionOriginId = idarg   , _cloudFrontDistributionOriginOriginCustomHeaders = Nothing   , _cloudFrontDistributionOriginOriginPath = Nothing   , _cloudFrontDistributionOriginS3OriginConfig = Nothing   }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origin.html#cfn-cloudfront-distribution-origin-connectionattempts+cfdoConnectionAttempts :: Lens' CloudFrontDistributionOrigin (Maybe (Val Integer))+cfdoConnectionAttempts = lens _cloudFrontDistributionOriginConnectionAttempts (\s a -> s { _cloudFrontDistributionOriginConnectionAttempts = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origin.html#cfn-cloudfront-distribution-origin-connectiontimeout+cfdoConnectionTimeout :: Lens' CloudFrontDistributionOrigin (Maybe (Val Integer))+cfdoConnectionTimeout = lens _cloudFrontDistributionOriginConnectionTimeout (\s a -> s { _cloudFrontDistributionOriginConnectionTimeout = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origin.html#cfn-cloudfront-distribution-origin-customoriginconfig cfdoCustomOriginConfig :: Lens' CloudFrontDistributionOrigin (Maybe CloudFrontDistributionCustomOriginConfig)

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

@@ -18,6 +18,7 @@   , _cloudWatchAlarmMetricDataQueryId :: Val Text   , _cloudWatchAlarmMetricDataQueryLabel :: Maybe (Val Text)   , _cloudWatchAlarmMetricDataQueryMetricStat :: Maybe CloudWatchAlarmMetricStat+  , _cloudWatchAlarmMetricDataQueryPeriod :: Maybe (Val Integer)   , _cloudWatchAlarmMetricDataQueryReturnData :: Maybe (Val Bool)   } deriving (Show, Eq) @@ -29,6 +30,7 @@     , (Just . ("Id",) . toJSON) _cloudWatchAlarmMetricDataQueryId     , fmap (("Label",) . toJSON) _cloudWatchAlarmMetricDataQueryLabel     , fmap (("MetricStat",) . toJSON) _cloudWatchAlarmMetricDataQueryMetricStat+    , fmap (("Period",) . toJSON) _cloudWatchAlarmMetricDataQueryPeriod     , fmap (("ReturnData",) . toJSON) _cloudWatchAlarmMetricDataQueryReturnData     ] @@ -43,6 +45,7 @@   , _cloudWatchAlarmMetricDataQueryId = idarg   , _cloudWatchAlarmMetricDataQueryLabel = Nothing   , _cloudWatchAlarmMetricDataQueryMetricStat = Nothing+  , _cloudWatchAlarmMetricDataQueryPeriod = Nothing   , _cloudWatchAlarmMetricDataQueryReturnData = Nothing   } @@ -61,6 +64,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-alarm-metricdataquery.html#cfn-cloudwatch-alarm-metricdataquery-metricstat cwamdqMetricStat :: Lens' CloudWatchAlarmMetricDataQuery (Maybe CloudWatchAlarmMetricStat) cwamdqMetricStat = lens _cloudWatchAlarmMetricDataQueryMetricStat (\s a -> s { _cloudWatchAlarmMetricDataQueryMetricStat = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-alarm-metricdataquery.html#cfn-cloudwatch-alarm-metricdataquery-period+cwamdqPeriod :: Lens' CloudWatchAlarmMetricDataQuery (Maybe (Val Integer))+cwamdqPeriod = lens _cloudWatchAlarmMetricDataQueryPeriod (\s a -> s { _cloudWatchAlarmMetricDataQueryPeriod = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-alarm-metricdataquery.html#cfn-cloudwatch-alarm-metricdataquery-returndata cwamdqReturnData :: Lens' CloudWatchAlarmMetricDataQuery (Maybe (Val Bool))

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

@@ -14,8 +14,9 @@ -- 'dlmLifecyclePolicyCreateRule' for a more convenient constructor. data DLMLifecyclePolicyCreateRule =   DLMLifecyclePolicyCreateRule-  { _dLMLifecyclePolicyCreateRuleInterval :: Val Integer-  , _dLMLifecyclePolicyCreateRuleIntervalUnit :: Val Text+  { _dLMLifecyclePolicyCreateRuleCronExpression :: Maybe (Val Text)+  , _dLMLifecyclePolicyCreateRuleInterval :: Maybe (Val Integer)+  , _dLMLifecyclePolicyCreateRuleIntervalUnit :: Maybe (Val Text)   , _dLMLifecyclePolicyCreateRuleTimes :: Maybe (ValList Text)   } deriving (Show, Eq) @@ -23,30 +24,34 @@   toJSON DLMLifecyclePolicyCreateRule{..} =     object $     catMaybes-    [ (Just . ("Interval",) . toJSON) _dLMLifecyclePolicyCreateRuleInterval-    , (Just . ("IntervalUnit",) . toJSON) _dLMLifecyclePolicyCreateRuleIntervalUnit+    [ fmap (("CronExpression",) . toJSON) _dLMLifecyclePolicyCreateRuleCronExpression+    , fmap (("Interval",) . toJSON) _dLMLifecyclePolicyCreateRuleInterval+    , fmap (("IntervalUnit",) . toJSON) _dLMLifecyclePolicyCreateRuleIntervalUnit     , fmap (("Times",) . toJSON) _dLMLifecyclePolicyCreateRuleTimes     ]  -- | Constructor for 'DLMLifecyclePolicyCreateRule' containing required fields -- as arguments. dlmLifecyclePolicyCreateRule-  :: Val Integer -- ^ 'dlmlpcrInterval'-  -> Val Text -- ^ 'dlmlpcrIntervalUnit'-  -> DLMLifecyclePolicyCreateRule-dlmLifecyclePolicyCreateRule intervalarg intervalUnitarg =+  :: DLMLifecyclePolicyCreateRule+dlmLifecyclePolicyCreateRule  =   DLMLifecyclePolicyCreateRule-  { _dLMLifecyclePolicyCreateRuleInterval = intervalarg-  , _dLMLifecyclePolicyCreateRuleIntervalUnit = intervalUnitarg+  { _dLMLifecyclePolicyCreateRuleCronExpression = Nothing+  , _dLMLifecyclePolicyCreateRuleInterval = Nothing+  , _dLMLifecyclePolicyCreateRuleIntervalUnit = Nothing   , _dLMLifecyclePolicyCreateRuleTimes = Nothing   } +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-createrule.html#cfn-dlm-lifecyclepolicy-createrule-cronexpression+dlmlpcrCronExpression :: Lens' DLMLifecyclePolicyCreateRule (Maybe (Val Text))+dlmlpcrCronExpression = lens _dLMLifecyclePolicyCreateRuleCronExpression (\s a -> s { _dLMLifecyclePolicyCreateRuleCronExpression = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-createrule.html#cfn-dlm-lifecyclepolicy-createrule-interval-dlmlpcrInterval :: Lens' DLMLifecyclePolicyCreateRule (Val Integer)+dlmlpcrInterval :: Lens' DLMLifecyclePolicyCreateRule (Maybe (Val Integer)) dlmlpcrInterval = lens _dLMLifecyclePolicyCreateRuleInterval (\s a -> s { _dLMLifecyclePolicyCreateRuleInterval = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-createrule.html#cfn-dlm-lifecyclepolicy-createrule-intervalunit-dlmlpcrIntervalUnit :: Lens' DLMLifecyclePolicyCreateRule (Val Text)+dlmlpcrIntervalUnit :: Lens' DLMLifecyclePolicyCreateRule (Maybe (Val Text)) dlmlpcrIntervalUnit = lens _dLMLifecyclePolicyCreateRuleIntervalUnit (\s a -> s { _dLMLifecyclePolicyCreateRuleIntervalUnit = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-createrule.html#cfn-dlm-lifecyclepolicy-createrule-times

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

@@ -16,32 +16,34 @@ -- constructor. data DLMLifecyclePolicyCrossRegionCopyRetainRule =   DLMLifecyclePolicyCrossRegionCopyRetainRule-  { _dLMLifecyclePolicyCrossRegionCopyRetainRuleInterval :: Maybe (Val Integer)-  , _dLMLifecyclePolicyCrossRegionCopyRetainRuleIntervalUnit :: Maybe (Val Text)+  { _dLMLifecyclePolicyCrossRegionCopyRetainRuleInterval :: Val Integer+  , _dLMLifecyclePolicyCrossRegionCopyRetainRuleIntervalUnit :: Val Text   } deriving (Show, Eq)  instance ToJSON DLMLifecyclePolicyCrossRegionCopyRetainRule where   toJSON DLMLifecyclePolicyCrossRegionCopyRetainRule{..} =     object $     catMaybes-    [ fmap (("Interval",) . toJSON) _dLMLifecyclePolicyCrossRegionCopyRetainRuleInterval-    , fmap (("IntervalUnit",) . toJSON) _dLMLifecyclePolicyCrossRegionCopyRetainRuleIntervalUnit+    [ (Just . ("Interval",) . toJSON) _dLMLifecyclePolicyCrossRegionCopyRetainRuleInterval+    , (Just . ("IntervalUnit",) . toJSON) _dLMLifecyclePolicyCrossRegionCopyRetainRuleIntervalUnit     ]  -- | Constructor for 'DLMLifecyclePolicyCrossRegionCopyRetainRule' containing -- required fields as arguments. dlmLifecyclePolicyCrossRegionCopyRetainRule-  :: DLMLifecyclePolicyCrossRegionCopyRetainRule-dlmLifecyclePolicyCrossRegionCopyRetainRule  =+  :: Val Integer -- ^ 'dlmlpcrcrrInterval'+  -> Val Text -- ^ 'dlmlpcrcrrIntervalUnit'+  -> DLMLifecyclePolicyCrossRegionCopyRetainRule+dlmLifecyclePolicyCrossRegionCopyRetainRule intervalarg intervalUnitarg =   DLMLifecyclePolicyCrossRegionCopyRetainRule-  { _dLMLifecyclePolicyCrossRegionCopyRetainRuleInterval = Nothing-  , _dLMLifecyclePolicyCrossRegionCopyRetainRuleIntervalUnit = Nothing+  { _dLMLifecyclePolicyCrossRegionCopyRetainRuleInterval = intervalarg+  , _dLMLifecyclePolicyCrossRegionCopyRetainRuleIntervalUnit = intervalUnitarg   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-crossregioncopyretainrule.html#cfn-dlm-lifecyclepolicy-crossregioncopyretainrule-interval-dlmlpcrcrrInterval :: Lens' DLMLifecyclePolicyCrossRegionCopyRetainRule (Maybe (Val Integer))+dlmlpcrcrrInterval :: Lens' DLMLifecyclePolicyCrossRegionCopyRetainRule (Val Integer) dlmlpcrcrrInterval = lens _dLMLifecyclePolicyCrossRegionCopyRetainRuleInterval (\s a -> s { _dLMLifecyclePolicyCrossRegionCopyRetainRuleInterval = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-crossregioncopyretainrule.html#cfn-dlm-lifecyclepolicy-crossregioncopyretainrule-intervalunit-dlmlpcrcrrIntervalUnit :: Lens' DLMLifecyclePolicyCrossRegionCopyRetainRule (Maybe (Val Text))+dlmlpcrcrrIntervalUnit :: Lens' DLMLifecyclePolicyCrossRegionCopyRetainRule (Val Text) dlmlpcrcrrIntervalUnit = lens _dLMLifecyclePolicyCrossRegionCopyRetainRuleIntervalUnit (\s a -> s { _dLMLifecyclePolicyCrossRegionCopyRetainRuleIntervalUnit = a })

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

@@ -17,9 +17,9 @@   DLMLifecyclePolicyCrossRegionCopyRule   { _dLMLifecyclePolicyCrossRegionCopyRuleCmkArn :: Maybe (Val Text)   , _dLMLifecyclePolicyCrossRegionCopyRuleCopyTags :: Maybe (Val Bool)-  , _dLMLifecyclePolicyCrossRegionCopyRuleEncrypted :: Maybe (Val Bool)+  , _dLMLifecyclePolicyCrossRegionCopyRuleEncrypted :: Val Bool   , _dLMLifecyclePolicyCrossRegionCopyRuleRetainRule :: Maybe DLMLifecyclePolicyCrossRegionCopyRetainRule-  , _dLMLifecyclePolicyCrossRegionCopyRuleTargetRegion :: Maybe (Val Text)+  , _dLMLifecyclePolicyCrossRegionCopyRuleTargetRegion :: Val Text   } deriving (Show, Eq)  instance ToJSON DLMLifecyclePolicyCrossRegionCopyRule where@@ -28,22 +28,24 @@     catMaybes     [ fmap (("CmkArn",) . toJSON) _dLMLifecyclePolicyCrossRegionCopyRuleCmkArn     , fmap (("CopyTags",) . toJSON) _dLMLifecyclePolicyCrossRegionCopyRuleCopyTags-    , fmap (("Encrypted",) . toJSON) _dLMLifecyclePolicyCrossRegionCopyRuleEncrypted+    , (Just . ("Encrypted",) . toJSON) _dLMLifecyclePolicyCrossRegionCopyRuleEncrypted     , fmap (("RetainRule",) . toJSON) _dLMLifecyclePolicyCrossRegionCopyRuleRetainRule-    , fmap (("TargetRegion",) . toJSON) _dLMLifecyclePolicyCrossRegionCopyRuleTargetRegion+    , (Just . ("TargetRegion",) . toJSON) _dLMLifecyclePolicyCrossRegionCopyRuleTargetRegion     ]  -- | Constructor for 'DLMLifecyclePolicyCrossRegionCopyRule' containing -- required fields as arguments. dlmLifecyclePolicyCrossRegionCopyRule-  :: DLMLifecyclePolicyCrossRegionCopyRule-dlmLifecyclePolicyCrossRegionCopyRule  =+  :: Val Bool -- ^ 'dlmlpcrcrEncrypted'+  -> Val Text -- ^ 'dlmlpcrcrTargetRegion'+  -> DLMLifecyclePolicyCrossRegionCopyRule+dlmLifecyclePolicyCrossRegionCopyRule encryptedarg targetRegionarg =   DLMLifecyclePolicyCrossRegionCopyRule   { _dLMLifecyclePolicyCrossRegionCopyRuleCmkArn = Nothing   , _dLMLifecyclePolicyCrossRegionCopyRuleCopyTags = Nothing-  , _dLMLifecyclePolicyCrossRegionCopyRuleEncrypted = Nothing+  , _dLMLifecyclePolicyCrossRegionCopyRuleEncrypted = encryptedarg   , _dLMLifecyclePolicyCrossRegionCopyRuleRetainRule = Nothing-  , _dLMLifecyclePolicyCrossRegionCopyRuleTargetRegion = Nothing+  , _dLMLifecyclePolicyCrossRegionCopyRuleTargetRegion = targetRegionarg   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-crossregioncopyrule.html#cfn-dlm-lifecyclepolicy-crossregioncopyrule-cmkarn@@ -55,7 +57,7 @@ dlmlpcrcrCopyTags = lens _dLMLifecyclePolicyCrossRegionCopyRuleCopyTags (\s a -> s { _dLMLifecyclePolicyCrossRegionCopyRuleCopyTags = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-crossregioncopyrule.html#cfn-dlm-lifecyclepolicy-crossregioncopyrule-encrypted-dlmlpcrcrEncrypted :: Lens' DLMLifecyclePolicyCrossRegionCopyRule (Maybe (Val Bool))+dlmlpcrcrEncrypted :: Lens' DLMLifecyclePolicyCrossRegionCopyRule (Val Bool) dlmlpcrcrEncrypted = lens _dLMLifecyclePolicyCrossRegionCopyRuleEncrypted (\s a -> s { _dLMLifecyclePolicyCrossRegionCopyRuleEncrypted = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-crossregioncopyrule.html#cfn-dlm-lifecyclepolicy-crossregioncopyrule-retainrule@@ -63,5 +65,5 @@ dlmlpcrcrRetainRule = lens _dLMLifecyclePolicyCrossRegionCopyRuleRetainRule (\s a -> s { _dLMLifecyclePolicyCrossRegionCopyRuleRetainRule = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-crossregioncopyrule.html#cfn-dlm-lifecyclepolicy-crossregioncopyrule-targetregion-dlmlpcrcrTargetRegion :: Lens' DLMLifecyclePolicyCrossRegionCopyRule (Maybe (Val Text))+dlmlpcrcrTargetRegion :: Lens' DLMLifecyclePolicyCrossRegionCopyRule (Val Text) dlmlpcrcrTargetRegion = lens _dLMLifecyclePolicyCrossRegionCopyRuleTargetRegion (\s a -> s { _dLMLifecyclePolicyCrossRegionCopyRuleTargetRegion = a })

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

@@ -9,6 +9,7 @@  import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest+import Stratosphere.ResourceProperties.EC2ClientVpnEndpointFederatedAuthenticationRequest import Stratosphere.ResourceProperties.EC2ClientVpnEndpointCertificateAuthenticationRequest  -- | Full data type definition for@@ -18,6 +19,7 @@ data EC2ClientVpnEndpointClientAuthenticationRequest =   EC2ClientVpnEndpointClientAuthenticationRequest   { _eC2ClientVpnEndpointClientAuthenticationRequestActiveDirectory :: Maybe EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest+  , _eC2ClientVpnEndpointClientAuthenticationRequestFederatedAuthentication :: Maybe EC2ClientVpnEndpointFederatedAuthenticationRequest   , _eC2ClientVpnEndpointClientAuthenticationRequestMutualAuthentication :: Maybe EC2ClientVpnEndpointCertificateAuthenticationRequest   , _eC2ClientVpnEndpointClientAuthenticationRequestType :: Val Text   } deriving (Show, Eq)@@ -27,6 +29,7 @@     object $     catMaybes     [ fmap (("ActiveDirectory",) . toJSON) _eC2ClientVpnEndpointClientAuthenticationRequestActiveDirectory+    , fmap (("FederatedAuthentication",) . toJSON) _eC2ClientVpnEndpointClientAuthenticationRequestFederatedAuthentication     , fmap (("MutualAuthentication",) . toJSON) _eC2ClientVpnEndpointClientAuthenticationRequestMutualAuthentication     , (Just . ("Type",) . toJSON) _eC2ClientVpnEndpointClientAuthenticationRequestType     ]@@ -39,6 +42,7 @@ ec2ClientVpnEndpointClientAuthenticationRequest typearg =   EC2ClientVpnEndpointClientAuthenticationRequest   { _eC2ClientVpnEndpointClientAuthenticationRequestActiveDirectory = Nothing+  , _eC2ClientVpnEndpointClientAuthenticationRequestFederatedAuthentication = Nothing   , _eC2ClientVpnEndpointClientAuthenticationRequestMutualAuthentication = Nothing   , _eC2ClientVpnEndpointClientAuthenticationRequestType = typearg   }@@ -46,6 +50,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-clientvpnendpoint-clientauthenticationrequest.html#cfn-ec2-clientvpnendpoint-clientauthenticationrequest-activedirectory eccvecarActiveDirectory :: Lens' EC2ClientVpnEndpointClientAuthenticationRequest (Maybe EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest) eccvecarActiveDirectory = lens _eC2ClientVpnEndpointClientAuthenticationRequestActiveDirectory (\s a -> s { _eC2ClientVpnEndpointClientAuthenticationRequestActiveDirectory = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-clientvpnendpoint-clientauthenticationrequest.html#cfn-ec2-clientvpnendpoint-clientauthenticationrequest-federatedauthentication+eccvecarFederatedAuthentication :: Lens' EC2ClientVpnEndpointClientAuthenticationRequest (Maybe EC2ClientVpnEndpointFederatedAuthenticationRequest)+eccvecarFederatedAuthentication = lens _eC2ClientVpnEndpointClientAuthenticationRequestFederatedAuthentication (\s a -> s { _eC2ClientVpnEndpointClientAuthenticationRequestFederatedAuthentication = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-clientvpnendpoint-clientauthenticationrequest.html#cfn-ec2-clientvpnendpoint-clientauthenticationrequest-mutualauthentication eccvecarMutualAuthentication :: Lens' EC2ClientVpnEndpointClientAuthenticationRequest (Maybe EC2ClientVpnEndpointCertificateAuthenticationRequest)

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

@@ -0,0 +1,41 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-clientvpnendpoint-federatedauthenticationrequest.html++module Stratosphere.ResourceProperties.EC2ClientVpnEndpointFederatedAuthenticationRequest where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- EC2ClientVpnEndpointFederatedAuthenticationRequest. See+-- 'ec2ClientVpnEndpointFederatedAuthenticationRequest' for a more+-- convenient constructor.+data EC2ClientVpnEndpointFederatedAuthenticationRequest =+  EC2ClientVpnEndpointFederatedAuthenticationRequest+  { _eC2ClientVpnEndpointFederatedAuthenticationRequestSAMLProviderArn :: Val Text+  } deriving (Show, Eq)++instance ToJSON EC2ClientVpnEndpointFederatedAuthenticationRequest where+  toJSON EC2ClientVpnEndpointFederatedAuthenticationRequest{..} =+    object $+    catMaybes+    [ (Just . ("SAMLProviderArn",) . toJSON) _eC2ClientVpnEndpointFederatedAuthenticationRequestSAMLProviderArn+    ]++-- | Constructor for 'EC2ClientVpnEndpointFederatedAuthenticationRequest'+-- containing required fields as arguments.+ec2ClientVpnEndpointFederatedAuthenticationRequest+  :: Val Text -- ^ 'eccvefarSAMLProviderArn'+  -> EC2ClientVpnEndpointFederatedAuthenticationRequest+ec2ClientVpnEndpointFederatedAuthenticationRequest sAMLProviderArnarg =+  EC2ClientVpnEndpointFederatedAuthenticationRequest+  { _eC2ClientVpnEndpointFederatedAuthenticationRequestSAMLProviderArn = sAMLProviderArnarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-clientvpnendpoint-federatedauthenticationrequest.html#cfn-ec2-clientvpnendpoint-federatedauthenticationrequest-samlproviderarn+eccvefarSAMLProviderArn :: Lens' EC2ClientVpnEndpointFederatedAuthenticationRequest (Val Text)+eccvefarSAMLProviderArn = lens _eC2ClientVpnEndpointFederatedAuthenticationRequestSAMLProviderArn (\s a -> s { _eC2ClientVpnEndpointFederatedAuthenticationRequestSAMLProviderArn = a })

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

@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-prefixlist-entry.html++module Stratosphere.ResourceProperties.EC2PrefixListEntry where++import Stratosphere.ResourceImports+++-- | Full data type definition for EC2PrefixListEntry. See+-- 'ec2PrefixListEntry' for a more convenient constructor.+data EC2PrefixListEntry =+  EC2PrefixListEntry+  { _eC2PrefixListEntryCidr :: Val Text+  , _eC2PrefixListEntryDescription :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON EC2PrefixListEntry where+  toJSON EC2PrefixListEntry{..} =+    object $+    catMaybes+    [ (Just . ("Cidr",) . toJSON) _eC2PrefixListEntryCidr+    , fmap (("Description",) . toJSON) _eC2PrefixListEntryDescription+    ]++-- | Constructor for 'EC2PrefixListEntry' containing required fields as+-- arguments.+ec2PrefixListEntry+  :: Val Text -- ^ 'ecpleCidr'+  -> EC2PrefixListEntry+ec2PrefixListEntry cidrarg =+  EC2PrefixListEntry+  { _eC2PrefixListEntryCidr = cidrarg+  , _eC2PrefixListEntryDescription = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-prefixlist-entry.html#cfn-ec2-prefixlist-entry-cidr+ecpleCidr :: Lens' EC2PrefixListEntry (Val Text)+ecpleCidr = lens _eC2PrefixListEntryCidr (\s a -> s { _eC2PrefixListEntryCidr = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-prefixlist-entry.html#cfn-ec2-prefixlist-entry-description+ecpleDescription :: Lens' EC2PrefixListEntry (Maybe (Val Text))+ecpleDescription = lens _eC2PrefixListEntryDescription (\s a -> s { _eC2PrefixListEntryDescription = a })

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

@@ -16,7 +16,6 @@ data ECSTaskDefinitionInferenceAccelerator =   ECSTaskDefinitionInferenceAccelerator   { _eCSTaskDefinitionInferenceAcceleratorDeviceName :: Maybe (Val Text)-  , _eCSTaskDefinitionInferenceAcceleratorDevicePolicy :: Maybe (Val Text)   , _eCSTaskDefinitionInferenceAcceleratorDeviceType :: Maybe (Val Text)   } deriving (Show, Eq) @@ -25,7 +24,6 @@     object $     catMaybes     [ fmap (("DeviceName",) . toJSON) _eCSTaskDefinitionInferenceAcceleratorDeviceName-    , fmap (("DevicePolicy",) . toJSON) _eCSTaskDefinitionInferenceAcceleratorDevicePolicy     , fmap (("DeviceType",) . toJSON) _eCSTaskDefinitionInferenceAcceleratorDeviceType     ] @@ -36,17 +34,12 @@ ecsTaskDefinitionInferenceAccelerator  =   ECSTaskDefinitionInferenceAccelerator   { _eCSTaskDefinitionInferenceAcceleratorDeviceName = Nothing-  , _eCSTaskDefinitionInferenceAcceleratorDevicePolicy = Nothing   , _eCSTaskDefinitionInferenceAcceleratorDeviceType = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-inferenceaccelerator.html#cfn-ecs-taskdefinition-inferenceaccelerator-devicename ecstdiaDeviceName :: Lens' ECSTaskDefinitionInferenceAccelerator (Maybe (Val Text)) ecstdiaDeviceName = lens _eCSTaskDefinitionInferenceAcceleratorDeviceName (\s a -> s { _eCSTaskDefinitionInferenceAcceleratorDeviceName = a })---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-inferenceaccelerator.html#cfn-ecs-taskdefinition-inferenceaccelerator-devicepolicy-ecstdiaDevicePolicy :: Lens' ECSTaskDefinitionInferenceAccelerator (Maybe (Val Text))-ecstdiaDevicePolicy = lens _eCSTaskDefinitionInferenceAcceleratorDevicePolicy (\s a -> s { _eCSTaskDefinitionInferenceAcceleratorDevicePolicy = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-inferenceaccelerator.html#cfn-ecs-taskdefinition-inferenceaccelerator-devicetype ecstdiaDeviceType :: Lens' ECSTaskDefinitionInferenceAccelerator (Maybe (Val Text))

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

@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-efs-accesspoint-accesspointtag.html++module Stratosphere.ResourceProperties.EFSAccessPointAccessPointTag where++import Stratosphere.ResourceImports+++-- | Full data type definition for EFSAccessPointAccessPointTag. See+-- 'efsAccessPointAccessPointTag' for a more convenient constructor.+data EFSAccessPointAccessPointTag =+  EFSAccessPointAccessPointTag+  { _eFSAccessPointAccessPointTagKey :: Maybe (Val Text)+  , _eFSAccessPointAccessPointTagValue :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON EFSAccessPointAccessPointTag where+  toJSON EFSAccessPointAccessPointTag{..} =+    object $+    catMaybes+    [ fmap (("Key",) . toJSON) _eFSAccessPointAccessPointTagKey+    , fmap (("Value",) . toJSON) _eFSAccessPointAccessPointTagValue+    ]++-- | Constructor for 'EFSAccessPointAccessPointTag' containing required fields+-- as arguments.+efsAccessPointAccessPointTag+  :: EFSAccessPointAccessPointTag+efsAccessPointAccessPointTag  =+  EFSAccessPointAccessPointTag+  { _eFSAccessPointAccessPointTagKey = Nothing+  , _eFSAccessPointAccessPointTagValue = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-efs-accesspoint-accesspointtag.html#cfn-efs-accesspoint-accesspointtag-key+efsapaptKey :: Lens' EFSAccessPointAccessPointTag (Maybe (Val Text))+efsapaptKey = lens _eFSAccessPointAccessPointTagKey (\s a -> s { _eFSAccessPointAccessPointTagKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-efs-accesspoint-accesspointtag.html#cfn-efs-accesspoint-accesspointtag-value+efsapaptValue :: Lens' EFSAccessPointAccessPointTag (Maybe (Val Text))+efsapaptValue = lens _eFSAccessPointAccessPointTagValue (\s a -> s { _eFSAccessPointAccessPointTagValue = a })

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

@@ -0,0 +1,55 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-efs-accesspoint-creationinfo.html++module Stratosphere.ResourceProperties.EFSAccessPointCreationInfo where++import Stratosphere.ResourceImports+++-- | Full data type definition for EFSAccessPointCreationInfo. See+-- 'efsAccessPointCreationInfo' for a more convenient constructor.+data EFSAccessPointCreationInfo =+  EFSAccessPointCreationInfo+  { _eFSAccessPointCreationInfoOwnerGid :: Val Text+  , _eFSAccessPointCreationInfoOwnerUid :: Val Text+  , _eFSAccessPointCreationInfoPermissions :: Val Text+  } deriving (Show, Eq)++instance ToJSON EFSAccessPointCreationInfo where+  toJSON EFSAccessPointCreationInfo{..} =+    object $+    catMaybes+    [ (Just . ("OwnerGid",) . toJSON) _eFSAccessPointCreationInfoOwnerGid+    , (Just . ("OwnerUid",) . toJSON) _eFSAccessPointCreationInfoOwnerUid+    , (Just . ("Permissions",) . toJSON) _eFSAccessPointCreationInfoPermissions+    ]++-- | Constructor for 'EFSAccessPointCreationInfo' containing required fields+-- as arguments.+efsAccessPointCreationInfo+  :: Val Text -- ^ 'efsapciOwnerGid'+  -> Val Text -- ^ 'efsapciOwnerUid'+  -> Val Text -- ^ 'efsapciPermissions'+  -> EFSAccessPointCreationInfo+efsAccessPointCreationInfo ownerGidarg ownerUidarg permissionsarg =+  EFSAccessPointCreationInfo+  { _eFSAccessPointCreationInfoOwnerGid = ownerGidarg+  , _eFSAccessPointCreationInfoOwnerUid = ownerUidarg+  , _eFSAccessPointCreationInfoPermissions = permissionsarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-efs-accesspoint-creationinfo.html#cfn-efs-accesspoint-creationinfo-ownergid+efsapciOwnerGid :: Lens' EFSAccessPointCreationInfo (Val Text)+efsapciOwnerGid = lens _eFSAccessPointCreationInfoOwnerGid (\s a -> s { _eFSAccessPointCreationInfoOwnerGid = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-efs-accesspoint-creationinfo.html#cfn-efs-accesspoint-creationinfo-owneruid+efsapciOwnerUid :: Lens' EFSAccessPointCreationInfo (Val Text)+efsapciOwnerUid = lens _eFSAccessPointCreationInfoOwnerUid (\s a -> s { _eFSAccessPointCreationInfoOwnerUid = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-efs-accesspoint-creationinfo.html#cfn-efs-accesspoint-creationinfo-permissions+efsapciPermissions :: Lens' EFSAccessPointCreationInfo (Val Text)+efsapciPermissions = lens _eFSAccessPointCreationInfoPermissions (\s a -> s { _eFSAccessPointCreationInfoPermissions = a })

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

@@ -0,0 +1,54 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-efs-accesspoint-posixuser.html++module Stratosphere.ResourceProperties.EFSAccessPointPosixUser where++import Stratosphere.ResourceImports+++-- | Full data type definition for EFSAccessPointPosixUser. See+-- 'efsAccessPointPosixUser' for a more convenient constructor.+data EFSAccessPointPosixUser =+  EFSAccessPointPosixUser+  { _eFSAccessPointPosixUserGid :: Val Text+  , _eFSAccessPointPosixUserSecondaryGids :: Maybe (ValList Text)+  , _eFSAccessPointPosixUserUid :: Val Text+  } deriving (Show, Eq)++instance ToJSON EFSAccessPointPosixUser where+  toJSON EFSAccessPointPosixUser{..} =+    object $+    catMaybes+    [ (Just . ("Gid",) . toJSON) _eFSAccessPointPosixUserGid+    , fmap (("SecondaryGids",) . toJSON) _eFSAccessPointPosixUserSecondaryGids+    , (Just . ("Uid",) . toJSON) _eFSAccessPointPosixUserUid+    ]++-- | Constructor for 'EFSAccessPointPosixUser' containing required fields as+-- arguments.+efsAccessPointPosixUser+  :: Val Text -- ^ 'efsappuGid'+  -> Val Text -- ^ 'efsappuUid'+  -> EFSAccessPointPosixUser+efsAccessPointPosixUser gidarg uidarg =+  EFSAccessPointPosixUser+  { _eFSAccessPointPosixUserGid = gidarg+  , _eFSAccessPointPosixUserSecondaryGids = Nothing+  , _eFSAccessPointPosixUserUid = uidarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-efs-accesspoint-posixuser.html#cfn-efs-accesspoint-posixuser-gid+efsappuGid :: Lens' EFSAccessPointPosixUser (Val Text)+efsappuGid = lens _eFSAccessPointPosixUserGid (\s a -> s { _eFSAccessPointPosixUserGid = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-efs-accesspoint-posixuser.html#cfn-efs-accesspoint-posixuser-secondarygids+efsappuSecondaryGids :: Lens' EFSAccessPointPosixUser (Maybe (ValList Text))+efsappuSecondaryGids = lens _eFSAccessPointPosixUserSecondaryGids (\s a -> s { _eFSAccessPointPosixUserSecondaryGids = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-efs-accesspoint-posixuser.html#cfn-efs-accesspoint-posixuser-uid+efsappuUid :: Lens' EFSAccessPointPosixUser (Val Text)+efsappuUid = lens _eFSAccessPointPosixUserUid (\s a -> s { _eFSAccessPointPosixUserUid = a })

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

@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-efs-accesspoint-rootdirectory.html++module Stratosphere.ResourceProperties.EFSAccessPointRootDirectory where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.EFSAccessPointCreationInfo++-- | Full data type definition for EFSAccessPointRootDirectory. See+-- 'efsAccessPointRootDirectory' for a more convenient constructor.+data EFSAccessPointRootDirectory =+  EFSAccessPointRootDirectory+  { _eFSAccessPointRootDirectoryCreationInfo :: Maybe EFSAccessPointCreationInfo+  , _eFSAccessPointRootDirectoryPath :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON EFSAccessPointRootDirectory where+  toJSON EFSAccessPointRootDirectory{..} =+    object $+    catMaybes+    [ fmap (("CreationInfo",) . toJSON) _eFSAccessPointRootDirectoryCreationInfo+    , fmap (("Path",) . toJSON) _eFSAccessPointRootDirectoryPath+    ]++-- | Constructor for 'EFSAccessPointRootDirectory' containing required fields+-- as arguments.+efsAccessPointRootDirectory+  :: EFSAccessPointRootDirectory+efsAccessPointRootDirectory  =+  EFSAccessPointRootDirectory+  { _eFSAccessPointRootDirectoryCreationInfo = Nothing+  , _eFSAccessPointRootDirectoryPath = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-efs-accesspoint-rootdirectory.html#cfn-efs-accesspoint-rootdirectory-creationinfo+efsaprdCreationInfo :: Lens' EFSAccessPointRootDirectory (Maybe EFSAccessPointCreationInfo)+efsaprdCreationInfo = lens _eFSAccessPointRootDirectoryCreationInfo (\s a -> s { _eFSAccessPointRootDirectoryCreationInfo = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-efs-accesspoint-rootdirectory.html#cfn-efs-accesspoint-rootdirectory-path+efsaprdPath :: Lens' EFSAccessPointRootDirectory (Maybe (Val Text))+efsaprdPath = lens _eFSAccessPointRootDirectoryPath (\s a -> s { _eFSAccessPointRootDirectoryPath = a })

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

@@ -3,7 +3,7 @@ {-# LANGUAGE StrictData #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-efs-filesystem-filesystemtags.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-efs-filesystem-elasticfilesystemtag.html  module Stratosphere.ResourceProperties.EFSFileSystemElasticFileSystemTag where @@ -38,10 +38,10 @@   , _eFSFileSystemElasticFileSystemTagValue = valuearg   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-efs-filesystem-filesystemtags.html#cfn-efs-filesystem-filesystemtags-key+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-efs-filesystem-elasticfilesystemtag.html#cfn-efs-filesystem-elasticfilesystemtag-key efsfsefstKey :: Lens' EFSFileSystemElasticFileSystemTag (Val Text) efsfsefstKey = lens _eFSFileSystemElasticFileSystemTagKey (\s a -> s { _eFSFileSystemElasticFileSystemTagKey = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-efs-filesystem-filesystemtags.html#cfn-efs-filesystem-filesystemtags-value+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-efs-filesystem-elasticfilesystemtag.html#cfn-efs-filesystem-elasticfilesystemtag-value efsfsefstValue :: Lens' EFSFileSystemElasticFileSystemTag (Val Text) efsfsefstValue = lens _eFSFileSystemElasticFileSystemTagValue (\s a -> s { _eFSFileSystemElasticFileSystemTagValue = a })

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

@@ -3,7 +3,7 @@ {-# LANGUAGE StrictData #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticfilesystem-filesystem-lifecyclepolicy.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-efs-filesystem-lifecyclepolicy.html  module Stratosphere.ResourceProperties.EFSFileSystemLifecyclePolicy where @@ -34,6 +34,6 @@   { _eFSFileSystemLifecyclePolicyTransitionToIA = transitionToIAarg   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticfilesystem-filesystem-lifecyclepolicy.html#cfn-elasticfilesystem-filesystem-lifecyclepolicy-transitiontoia+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-efs-filesystem-lifecyclepolicy.html#cfn-efs-filesystem-lifecyclepolicy-transitiontoia efsfslpTransitionToIA :: Lens' EFSFileSystemLifecyclePolicy (Val Text) efsfslpTransitionToIA = lens _eFSFileSystemLifecyclePolicyTransitionToIA (\s a -> s { _eFSFileSystemLifecyclePolicyTransitionToIA = a })

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

@@ -16,7 +16,8 @@ -- constructor. data ElasticLoadBalancingV2LoadBalancerSubnetMapping =   ElasticLoadBalancingV2LoadBalancerSubnetMapping-  { _elasticLoadBalancingV2LoadBalancerSubnetMappingAllocationId :: Val Text+  { _elasticLoadBalancingV2LoadBalancerSubnetMappingAllocationId :: Maybe (Val Text)+  , _elasticLoadBalancingV2LoadBalancerSubnetMappingPrivateIPv4Address :: Maybe (Val Text)   , _elasticLoadBalancingV2LoadBalancerSubnetMappingSubnetId :: Val Text   } deriving (Show, Eq) @@ -24,25 +25,30 @@   toJSON ElasticLoadBalancingV2LoadBalancerSubnetMapping{..} =     object $     catMaybes-    [ (Just . ("AllocationId",) . toJSON) _elasticLoadBalancingV2LoadBalancerSubnetMappingAllocationId+    [ fmap (("AllocationId",) . toJSON) _elasticLoadBalancingV2LoadBalancerSubnetMappingAllocationId+    , fmap (("PrivateIPv4Address",) . toJSON) _elasticLoadBalancingV2LoadBalancerSubnetMappingPrivateIPv4Address     , (Just . ("SubnetId",) . toJSON) _elasticLoadBalancingV2LoadBalancerSubnetMappingSubnetId     ]  -- | Constructor for 'ElasticLoadBalancingV2LoadBalancerSubnetMapping' -- containing required fields as arguments. elasticLoadBalancingV2LoadBalancerSubnetMapping-  :: Val Text -- ^ 'elbvlbsmAllocationId'-  -> Val Text -- ^ 'elbvlbsmSubnetId'+  :: Val Text -- ^ 'elbvlbsmSubnetId'   -> ElasticLoadBalancingV2LoadBalancerSubnetMapping-elasticLoadBalancingV2LoadBalancerSubnetMapping allocationIdarg subnetIdarg =+elasticLoadBalancingV2LoadBalancerSubnetMapping subnetIdarg =   ElasticLoadBalancingV2LoadBalancerSubnetMapping-  { _elasticLoadBalancingV2LoadBalancerSubnetMappingAllocationId = allocationIdarg+  { _elasticLoadBalancingV2LoadBalancerSubnetMappingAllocationId = Nothing+  , _elasticLoadBalancingV2LoadBalancerSubnetMappingPrivateIPv4Address = Nothing   , _elasticLoadBalancingV2LoadBalancerSubnetMappingSubnetId = subnetIdarg   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-loadbalancer-subnetmapping.html#cfn-elasticloadbalancingv2-loadbalancer-subnetmapping-allocationid-elbvlbsmAllocationId :: Lens' ElasticLoadBalancingV2LoadBalancerSubnetMapping (Val Text)+elbvlbsmAllocationId :: Lens' ElasticLoadBalancingV2LoadBalancerSubnetMapping (Maybe (Val Text)) elbvlbsmAllocationId = lens _elasticLoadBalancingV2LoadBalancerSubnetMappingAllocationId (\s a -> s { _elasticLoadBalancingV2LoadBalancerSubnetMappingAllocationId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-loadbalancer-subnetmapping.html#cfn-elasticloadbalancingv2-loadbalancer-subnetmapping-privateipv4address+elbvlbsmPrivateIPv4Address :: Lens' ElasticLoadBalancingV2LoadBalancerSubnetMapping (Maybe (Val Text))+elbvlbsmPrivateIPv4Address = lens _elasticLoadBalancingV2LoadBalancerSubnetMappingPrivateIPv4Address (\s a -> s { _elasticLoadBalancingV2LoadBalancerSubnetMappingPrivateIPv4Address = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-loadbalancer-subnetmapping.html#cfn-elasticloadbalancingv2-loadbalancer-subnetmapping-subnetid elbvlbsmSubnetId :: Lens' ElasticLoadBalancingV2LoadBalancerSubnetMapping (Val Text)

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

@@ -0,0 +1,52 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-httpparameters.html++module Stratosphere.ResourceProperties.EventsRuleHttpParameters where++import Stratosphere.ResourceImports+++-- | Full data type definition for EventsRuleHttpParameters. See+-- 'eventsRuleHttpParameters' for a more convenient constructor.+data EventsRuleHttpParameters =+  EventsRuleHttpParameters+  { _eventsRuleHttpParametersHeaderParameters :: Maybe Object+  , _eventsRuleHttpParametersPathParameterValues :: Maybe (ValList Text)+  , _eventsRuleHttpParametersQueryStringParameters :: Maybe Object+  } deriving (Show, Eq)++instance ToJSON EventsRuleHttpParameters where+  toJSON EventsRuleHttpParameters{..} =+    object $+    catMaybes+    [ fmap (("HeaderParameters",) . toJSON) _eventsRuleHttpParametersHeaderParameters+    , fmap (("PathParameterValues",) . toJSON) _eventsRuleHttpParametersPathParameterValues+    , fmap (("QueryStringParameters",) . toJSON) _eventsRuleHttpParametersQueryStringParameters+    ]++-- | Constructor for 'EventsRuleHttpParameters' containing required fields as+-- arguments.+eventsRuleHttpParameters+  :: EventsRuleHttpParameters+eventsRuleHttpParameters  =+  EventsRuleHttpParameters+  { _eventsRuleHttpParametersHeaderParameters = Nothing+  , _eventsRuleHttpParametersPathParameterValues = Nothing+  , _eventsRuleHttpParametersQueryStringParameters = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-httpparameters.html#cfn-events-rule-httpparameters-headerparameters+erhpHeaderParameters :: Lens' EventsRuleHttpParameters (Maybe Object)+erhpHeaderParameters = lens _eventsRuleHttpParametersHeaderParameters (\s a -> s { _eventsRuleHttpParametersHeaderParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-httpparameters.html#cfn-events-rule-httpparameters-pathparametervalues+erhpPathParameterValues :: Lens' EventsRuleHttpParameters (Maybe (ValList Text))+erhpPathParameterValues = lens _eventsRuleHttpParametersPathParameterValues (\s a -> s { _eventsRuleHttpParametersPathParameterValues = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-httpparameters.html#cfn-events-rule-httpparameters-querystringparameters+erhpQueryStringParameters :: Lens' EventsRuleHttpParameters (Maybe Object)+erhpQueryStringParameters = lens _eventsRuleHttpParametersQueryStringParameters (\s a -> s { _eventsRuleHttpParametersQueryStringParameters = a })

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

@@ -10,6 +10,7 @@ import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.EventsRuleBatchParameters import Stratosphere.ResourceProperties.EventsRuleEcsParameters+import Stratosphere.ResourceProperties.EventsRuleHttpParameters import Stratosphere.ResourceProperties.EventsRuleInputTransformer import Stratosphere.ResourceProperties.EventsRuleKinesisParameters import Stratosphere.ResourceProperties.EventsRuleRunCommandParameters@@ -22,6 +23,7 @@   { _eventsRuleTargetArn :: Val Text   , _eventsRuleTargetBatchParameters :: Maybe EventsRuleBatchParameters   , _eventsRuleTargetEcsParameters :: Maybe EventsRuleEcsParameters+  , _eventsRuleTargetHttpParameters :: Maybe EventsRuleHttpParameters   , _eventsRuleTargetId :: Val Text   , _eventsRuleTargetInput :: Maybe (Val Text)   , _eventsRuleTargetInputPath :: Maybe (Val Text)@@ -39,6 +41,7 @@     [ (Just . ("Arn",) . toJSON) _eventsRuleTargetArn     , fmap (("BatchParameters",) . toJSON) _eventsRuleTargetBatchParameters     , fmap (("EcsParameters",) . toJSON) _eventsRuleTargetEcsParameters+    , fmap (("HttpParameters",) . toJSON) _eventsRuleTargetHttpParameters     , (Just . ("Id",) . toJSON) _eventsRuleTargetId     , fmap (("Input",) . toJSON) _eventsRuleTargetInput     , fmap (("InputPath",) . toJSON) _eventsRuleTargetInputPath@@ -60,6 +63,7 @@   { _eventsRuleTargetArn = arnarg   , _eventsRuleTargetBatchParameters = Nothing   , _eventsRuleTargetEcsParameters = Nothing+  , _eventsRuleTargetHttpParameters = Nothing   , _eventsRuleTargetId = idarg   , _eventsRuleTargetInput = Nothing   , _eventsRuleTargetInputPath = Nothing@@ -81,6 +85,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-target.html#cfn-events-rule-target-ecsparameters ertEcsParameters :: Lens' EventsRuleTarget (Maybe EventsRuleEcsParameters) ertEcsParameters = lens _eventsRuleTargetEcsParameters (\s a -> s { _eventsRuleTargetEcsParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-target.html#cfn-events-rule-target-httpparameters+ertHttpParameters :: Lens' EventsRuleTarget (Maybe EventsRuleHttpParameters)+ertHttpParameters = lens _eventsRuleTargetHttpParameters (\s a -> s { _eventsRuleTargetHttpParameters = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-target.html#cfn-events-rule-target-id ertId :: Lens' EventsRuleTarget (Val Text)

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

@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-provisioningtemplate-provisioninghook.html++module Stratosphere.ResourceProperties.IoTProvisioningTemplateProvisioningHook where++import Stratosphere.ResourceImports+++-- | Full data type definition for IoTProvisioningTemplateProvisioningHook.+-- See 'ioTProvisioningTemplateProvisioningHook' for a more convenient+-- constructor.+data IoTProvisioningTemplateProvisioningHook =+  IoTProvisioningTemplateProvisioningHook+  { _ioTProvisioningTemplateProvisioningHookPayloadVersion :: Maybe (Val Text)+  , _ioTProvisioningTemplateProvisioningHookTargetArn :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON IoTProvisioningTemplateProvisioningHook where+  toJSON IoTProvisioningTemplateProvisioningHook{..} =+    object $+    catMaybes+    [ fmap (("PayloadVersion",) . toJSON) _ioTProvisioningTemplateProvisioningHookPayloadVersion+    , fmap (("TargetArn",) . toJSON) _ioTProvisioningTemplateProvisioningHookTargetArn+    ]++-- | Constructor for 'IoTProvisioningTemplateProvisioningHook' containing+-- required fields as arguments.+ioTProvisioningTemplateProvisioningHook+  :: IoTProvisioningTemplateProvisioningHook+ioTProvisioningTemplateProvisioningHook  =+  IoTProvisioningTemplateProvisioningHook+  { _ioTProvisioningTemplateProvisioningHookPayloadVersion = Nothing+  , _ioTProvisioningTemplateProvisioningHookTargetArn = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-provisioningtemplate-provisioninghook.html#cfn-iot-provisioningtemplate-provisioninghook-payloadversion+itptphPayloadVersion :: Lens' IoTProvisioningTemplateProvisioningHook (Maybe (Val Text))+itptphPayloadVersion = lens _ioTProvisioningTemplateProvisioningHookPayloadVersion (\s a -> s { _ioTProvisioningTemplateProvisioningHookPayloadVersion = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-provisioningtemplate-provisioninghook.html#cfn-iot-provisioningtemplate-provisioninghook-targetarn+itptphTargetArn :: Lens' IoTProvisioningTemplateProvisioningHook (Maybe (Val Text))+itptphTargetArn = lens _ioTProvisioningTemplateProvisioningHookTargetArn (\s a -> s { _ioTProvisioningTemplateProvisioningHookTargetArn = a })

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

@@ -16,34 +16,32 @@ -- constructor. data KinesisFirehoseDeliveryStreamBufferingHints =   KinesisFirehoseDeliveryStreamBufferingHints-  { _kinesisFirehoseDeliveryStreamBufferingHintsIntervalInSeconds :: Val Integer-  , _kinesisFirehoseDeliveryStreamBufferingHintsSizeInMBs :: Val Integer+  { _kinesisFirehoseDeliveryStreamBufferingHintsIntervalInSeconds :: Maybe (Val Integer)+  , _kinesisFirehoseDeliveryStreamBufferingHintsSizeInMBs :: Maybe (Val Integer)   } deriving (Show, Eq)  instance ToJSON KinesisFirehoseDeliveryStreamBufferingHints where   toJSON KinesisFirehoseDeliveryStreamBufferingHints{..} =     object $     catMaybes-    [ (Just . ("IntervalInSeconds",) . toJSON) _kinesisFirehoseDeliveryStreamBufferingHintsIntervalInSeconds-    , (Just . ("SizeInMBs",) . toJSON) _kinesisFirehoseDeliveryStreamBufferingHintsSizeInMBs+    [ fmap (("IntervalInSeconds",) . toJSON) _kinesisFirehoseDeliveryStreamBufferingHintsIntervalInSeconds+    , fmap (("SizeInMBs",) . toJSON) _kinesisFirehoseDeliveryStreamBufferingHintsSizeInMBs     ]  -- | Constructor for 'KinesisFirehoseDeliveryStreamBufferingHints' containing -- required fields as arguments. kinesisFirehoseDeliveryStreamBufferingHints-  :: Val Integer -- ^ 'kfdsbhIntervalInSeconds'-  -> Val Integer -- ^ 'kfdsbhSizeInMBs'-  -> KinesisFirehoseDeliveryStreamBufferingHints-kinesisFirehoseDeliveryStreamBufferingHints intervalInSecondsarg sizeInMBsarg =+  :: KinesisFirehoseDeliveryStreamBufferingHints+kinesisFirehoseDeliveryStreamBufferingHints  =   KinesisFirehoseDeliveryStreamBufferingHints-  { _kinesisFirehoseDeliveryStreamBufferingHintsIntervalInSeconds = intervalInSecondsarg-  , _kinesisFirehoseDeliveryStreamBufferingHintsSizeInMBs = sizeInMBsarg+  { _kinesisFirehoseDeliveryStreamBufferingHintsIntervalInSeconds = Nothing+  , _kinesisFirehoseDeliveryStreamBufferingHintsSizeInMBs = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-bufferinghints.html#cfn-kinesisfirehose-deliverystream-bufferinghints-intervalinseconds-kfdsbhIntervalInSeconds :: Lens' KinesisFirehoseDeliveryStreamBufferingHints (Val Integer)+kfdsbhIntervalInSeconds :: Lens' KinesisFirehoseDeliveryStreamBufferingHints (Maybe (Val Integer)) kfdsbhIntervalInSeconds = lens _kinesisFirehoseDeliveryStreamBufferingHintsIntervalInSeconds (\s a -> s { _kinesisFirehoseDeliveryStreamBufferingHintsIntervalInSeconds = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-bufferinghints.html#cfn-kinesisfirehose-deliverystream-bufferinghints-sizeinmbs-kfdsbhSizeInMBs :: Lens' KinesisFirehoseDeliveryStreamBufferingHints (Val Integer)+kfdsbhSizeInMBs :: Lens' KinesisFirehoseDeliveryStreamBufferingHints (Maybe (Val Integer)) kfdsbhSizeInMBs = lens _kinesisFirehoseDeliveryStreamBufferingHintsSizeInMBs (\s a -> s { _kinesisFirehoseDeliveryStreamBufferingHintsSizeInMBs = a })

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

@@ -18,51 +18,47 @@ -- more convenient constructor. data KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration =   KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration-  { _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationEnabled :: Val Bool-  , _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationInputFormatConfiguration :: KinesisFirehoseDeliveryStreamInputFormatConfiguration-  , _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationOutputFormatConfiguration :: KinesisFirehoseDeliveryStreamOutputFormatConfiguration-  , _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationSchemaConfiguration :: KinesisFirehoseDeliveryStreamSchemaConfiguration+  { _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationEnabled :: Maybe (Val Bool)+  , _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationInputFormatConfiguration :: Maybe KinesisFirehoseDeliveryStreamInputFormatConfiguration+  , _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationOutputFormatConfiguration :: Maybe KinesisFirehoseDeliveryStreamOutputFormatConfiguration+  , _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationSchemaConfiguration :: Maybe KinesisFirehoseDeliveryStreamSchemaConfiguration   } deriving (Show, Eq)  instance ToJSON KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration where   toJSON KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration{..} =     object $     catMaybes-    [ (Just . ("Enabled",) . toJSON) _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationEnabled-    , (Just . ("InputFormatConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationInputFormatConfiguration-    , (Just . ("OutputFormatConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationOutputFormatConfiguration-    , (Just . ("SchemaConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationSchemaConfiguration+    [ fmap (("Enabled",) . toJSON) _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationEnabled+    , fmap (("InputFormatConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationInputFormatConfiguration+    , fmap (("OutputFormatConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationOutputFormatConfiguration+    , fmap (("SchemaConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationSchemaConfiguration     ]  -- | Constructor for -- 'KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration' -- containing required fields as arguments. kinesisFirehoseDeliveryStreamDataFormatConversionConfiguration-  :: Val Bool -- ^ 'kfdsdfccEnabled'-  -> KinesisFirehoseDeliveryStreamInputFormatConfiguration -- ^ 'kfdsdfccInputFormatConfiguration'-  -> KinesisFirehoseDeliveryStreamOutputFormatConfiguration -- ^ 'kfdsdfccOutputFormatConfiguration'-  -> KinesisFirehoseDeliveryStreamSchemaConfiguration -- ^ 'kfdsdfccSchemaConfiguration'-  -> KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration-kinesisFirehoseDeliveryStreamDataFormatConversionConfiguration enabledarg inputFormatConfigurationarg outputFormatConfigurationarg schemaConfigurationarg =+  :: KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration+kinesisFirehoseDeliveryStreamDataFormatConversionConfiguration  =   KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration-  { _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationEnabled = enabledarg-  , _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationInputFormatConfiguration = inputFormatConfigurationarg-  , _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationOutputFormatConfiguration = outputFormatConfigurationarg-  , _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationSchemaConfiguration = schemaConfigurationarg+  { _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationEnabled = Nothing+  , _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationInputFormatConfiguration = Nothing+  , _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationOutputFormatConfiguration = Nothing+  , _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationSchemaConfiguration = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-dataformatconversionconfiguration.html#cfn-kinesisfirehose-deliverystream-dataformatconversionconfiguration-enabled-kfdsdfccEnabled :: Lens' KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration (Val Bool)+kfdsdfccEnabled :: Lens' KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration (Maybe (Val Bool)) kfdsdfccEnabled = lens _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationEnabled (\s a -> s { _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationEnabled = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-dataformatconversionconfiguration.html#cfn-kinesisfirehose-deliverystream-dataformatconversionconfiguration-inputformatconfiguration-kfdsdfccInputFormatConfiguration :: Lens' KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration KinesisFirehoseDeliveryStreamInputFormatConfiguration+kfdsdfccInputFormatConfiguration :: Lens' KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration (Maybe KinesisFirehoseDeliveryStreamInputFormatConfiguration) kfdsdfccInputFormatConfiguration = lens _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationInputFormatConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationInputFormatConfiguration = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-dataformatconversionconfiguration.html#cfn-kinesisfirehose-deliverystream-dataformatconversionconfiguration-outputformatconfiguration-kfdsdfccOutputFormatConfiguration :: Lens' KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration KinesisFirehoseDeliveryStreamOutputFormatConfiguration+kfdsdfccOutputFormatConfiguration :: Lens' KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration (Maybe KinesisFirehoseDeliveryStreamOutputFormatConfiguration) kfdsdfccOutputFormatConfiguration = lens _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationOutputFormatConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationOutputFormatConfiguration = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-dataformatconversionconfiguration.html#cfn-kinesisfirehose-deliverystream-dataformatconversionconfiguration-schemaconfiguration-kfdsdfccSchemaConfiguration :: Lens' KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration KinesisFirehoseDeliveryStreamSchemaConfiguration+kfdsdfccSchemaConfiguration :: Lens' KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration (Maybe KinesisFirehoseDeliveryStreamSchemaConfiguration) kfdsdfccSchemaConfiguration = lens _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationSchemaConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationSchemaConfiguration = a })

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

@@ -16,35 +16,33 @@ -- convenient constructor. data KinesisFirehoseDeliveryStreamElasticsearchBufferingHints =   KinesisFirehoseDeliveryStreamElasticsearchBufferingHints-  { _kinesisFirehoseDeliveryStreamElasticsearchBufferingHintsIntervalInSeconds :: Val Integer-  , _kinesisFirehoseDeliveryStreamElasticsearchBufferingHintsSizeInMBs :: Val Integer+  { _kinesisFirehoseDeliveryStreamElasticsearchBufferingHintsIntervalInSeconds :: Maybe (Val Integer)+  , _kinesisFirehoseDeliveryStreamElasticsearchBufferingHintsSizeInMBs :: Maybe (Val Integer)   } deriving (Show, Eq)  instance ToJSON KinesisFirehoseDeliveryStreamElasticsearchBufferingHints where   toJSON KinesisFirehoseDeliveryStreamElasticsearchBufferingHints{..} =     object $     catMaybes-    [ (Just . ("IntervalInSeconds",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchBufferingHintsIntervalInSeconds-    , (Just . ("SizeInMBs",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchBufferingHintsSizeInMBs+    [ fmap (("IntervalInSeconds",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchBufferingHintsIntervalInSeconds+    , fmap (("SizeInMBs",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchBufferingHintsSizeInMBs     ]  -- | Constructor for -- 'KinesisFirehoseDeliveryStreamElasticsearchBufferingHints' containing -- required fields as arguments. kinesisFirehoseDeliveryStreamElasticsearchBufferingHints-  :: Val Integer -- ^ 'kfdsebhIntervalInSeconds'-  -> Val Integer -- ^ 'kfdsebhSizeInMBs'-  -> KinesisFirehoseDeliveryStreamElasticsearchBufferingHints-kinesisFirehoseDeliveryStreamElasticsearchBufferingHints intervalInSecondsarg sizeInMBsarg =+  :: KinesisFirehoseDeliveryStreamElasticsearchBufferingHints+kinesisFirehoseDeliveryStreamElasticsearchBufferingHints  =   KinesisFirehoseDeliveryStreamElasticsearchBufferingHints-  { _kinesisFirehoseDeliveryStreamElasticsearchBufferingHintsIntervalInSeconds = intervalInSecondsarg-  , _kinesisFirehoseDeliveryStreamElasticsearchBufferingHintsSizeInMBs = sizeInMBsarg+  { _kinesisFirehoseDeliveryStreamElasticsearchBufferingHintsIntervalInSeconds = Nothing+  , _kinesisFirehoseDeliveryStreamElasticsearchBufferingHintsSizeInMBs = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-elasticsearchbufferinghints.html#cfn-kinesisfirehose-deliverystream-elasticsearchbufferinghints-intervalinseconds-kfdsebhIntervalInSeconds :: Lens' KinesisFirehoseDeliveryStreamElasticsearchBufferingHints (Val Integer)+kfdsebhIntervalInSeconds :: Lens' KinesisFirehoseDeliveryStreamElasticsearchBufferingHints (Maybe (Val Integer)) kfdsebhIntervalInSeconds = lens _kinesisFirehoseDeliveryStreamElasticsearchBufferingHintsIntervalInSeconds (\s a -> s { _kinesisFirehoseDeliveryStreamElasticsearchBufferingHintsIntervalInSeconds = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-elasticsearchbufferinghints.html#cfn-kinesisfirehose-deliverystream-elasticsearchbufferinghints-sizeinmbs-kfdsebhSizeInMBs :: Lens' KinesisFirehoseDeliveryStreamElasticsearchBufferingHints (Val Integer)+kfdsebhSizeInMBs :: Lens' KinesisFirehoseDeliveryStreamElasticsearchBufferingHints (Maybe (Val Integer)) kfdsebhSizeInMBs = lens _kinesisFirehoseDeliveryStreamElasticsearchBufferingHintsSizeInMBs (\s a -> s { _kinesisFirehoseDeliveryStreamElasticsearchBufferingHintsSizeInMBs = a })

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

@@ -14,6 +14,7 @@ import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessingConfiguration import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamElasticsearchRetryOptions import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamS3DestinationConfiguration+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamVpcConfiguration  -- | Full data type definition for -- KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration. See@@ -21,75 +22,79 @@ -- a more convenient constructor. data KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration =   KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration-  { _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationBufferingHints :: KinesisFirehoseDeliveryStreamElasticsearchBufferingHints+  { _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationBufferingHints :: Maybe KinesisFirehoseDeliveryStreamElasticsearchBufferingHints   , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationCloudWatchLoggingOptions :: Maybe KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions-  , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationDomainARN :: Val Text+  , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationClusterEndpoint :: Maybe (Val Text)+  , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationDomainARN :: Maybe (Val Text)   , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationIndexName :: Val Text-  , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationIndexRotationPeriod :: Val Text+  , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationIndexRotationPeriod :: Maybe (Val Text)   , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationProcessingConfiguration :: Maybe KinesisFirehoseDeliveryStreamProcessingConfiguration-  , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationRetryOptions :: KinesisFirehoseDeliveryStreamElasticsearchRetryOptions+  , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationRetryOptions :: Maybe KinesisFirehoseDeliveryStreamElasticsearchRetryOptions   , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationRoleARN :: Val Text-  , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationS3BackupMode :: Val KinesisFirehoseElasticsearchS3BackupMode+  , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationS3BackupMode :: Maybe (Val KinesisFirehoseElasticsearchS3BackupMode)   , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationS3Configuration :: KinesisFirehoseDeliveryStreamS3DestinationConfiguration-  , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationTypeName :: Val Text+  , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationTypeName :: Maybe (Val Text)+  , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationVpcConfiguration :: Maybe KinesisFirehoseDeliveryStreamVpcConfiguration   } deriving (Show, Eq)  instance ToJSON KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration where   toJSON KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration{..} =     object $     catMaybes-    [ (Just . ("BufferingHints",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationBufferingHints+    [ fmap (("BufferingHints",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationBufferingHints     , fmap (("CloudWatchLoggingOptions",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationCloudWatchLoggingOptions-    , (Just . ("DomainARN",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationDomainARN+    , fmap (("ClusterEndpoint",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationClusterEndpoint+    , fmap (("DomainARN",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationDomainARN     , (Just . ("IndexName",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationIndexName-    , (Just . ("IndexRotationPeriod",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationIndexRotationPeriod+    , fmap (("IndexRotationPeriod",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationIndexRotationPeriod     , fmap (("ProcessingConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationProcessingConfiguration-    , (Just . ("RetryOptions",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationRetryOptions+    , fmap (("RetryOptions",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationRetryOptions     , (Just . ("RoleARN",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationRoleARN-    , (Just . ("S3BackupMode",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationS3BackupMode+    , fmap (("S3BackupMode",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationS3BackupMode     , (Just . ("S3Configuration",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationS3Configuration-    , (Just . ("TypeName",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationTypeName+    , fmap (("TypeName",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationTypeName+    , fmap (("VpcConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationVpcConfiguration     ]  -- | Constructor for -- 'KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration' -- containing required fields as arguments. kinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration-  :: KinesisFirehoseDeliveryStreamElasticsearchBufferingHints -- ^ 'kfdsedcBufferingHints'-  -> Val Text -- ^ 'kfdsedcDomainARN'-  -> Val Text -- ^ 'kfdsedcIndexName'-  -> Val Text -- ^ 'kfdsedcIndexRotationPeriod'-  -> KinesisFirehoseDeliveryStreamElasticsearchRetryOptions -- ^ 'kfdsedcRetryOptions'+  :: Val Text -- ^ 'kfdsedcIndexName'   -> Val Text -- ^ 'kfdsedcRoleARN'-  -> Val KinesisFirehoseElasticsearchS3BackupMode -- ^ 'kfdsedcS3BackupMode'   -> KinesisFirehoseDeliveryStreamS3DestinationConfiguration -- ^ 'kfdsedcS3Configuration'-  -> Val Text -- ^ 'kfdsedcTypeName'   -> KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration-kinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration bufferingHintsarg domainARNarg indexNamearg indexRotationPeriodarg retryOptionsarg roleARNarg s3BackupModearg s3Configurationarg typeNamearg =+kinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration indexNamearg roleARNarg s3Configurationarg =   KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration-  { _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationBufferingHints = bufferingHintsarg+  { _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationBufferingHints = Nothing   , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationCloudWatchLoggingOptions = Nothing-  , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationDomainARN = domainARNarg+  , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationClusterEndpoint = Nothing+  , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationDomainARN = Nothing   , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationIndexName = indexNamearg-  , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationIndexRotationPeriod = indexRotationPeriodarg+  , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationIndexRotationPeriod = Nothing   , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationProcessingConfiguration = Nothing-  , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationRetryOptions = retryOptionsarg+  , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationRetryOptions = Nothing   , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationRoleARN = roleARNarg-  , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationS3BackupMode = s3BackupModearg+  , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationS3BackupMode = Nothing   , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationS3Configuration = s3Configurationarg-  , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationTypeName = typeNamearg+  , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationTypeName = Nothing+  , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationVpcConfiguration = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-elasticsearchdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-elasticsearchdestinationconfiguration-bufferinghints-kfdsedcBufferingHints :: Lens' KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration KinesisFirehoseDeliveryStreamElasticsearchBufferingHints+kfdsedcBufferingHints :: Lens' KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamElasticsearchBufferingHints) kfdsedcBufferingHints = lens _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationBufferingHints (\s a -> s { _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationBufferingHints = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-elasticsearchdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-elasticsearchdestinationconfiguration-cloudwatchloggingoptions kfdsedcCloudWatchLoggingOptions :: Lens' KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions) kfdsedcCloudWatchLoggingOptions = lens _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationCloudWatchLoggingOptions (\s a -> s { _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationCloudWatchLoggingOptions = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-elasticsearchdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-elasticsearchdestinationconfiguration-clusterendpoint+kfdsedcClusterEndpoint :: Lens' KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration (Maybe (Val Text))+kfdsedcClusterEndpoint = lens _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationClusterEndpoint (\s a -> s { _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationClusterEndpoint = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-elasticsearchdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-elasticsearchdestinationconfiguration-domainarn-kfdsedcDomainARN :: Lens' KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration (Val Text)+kfdsedcDomainARN :: Lens' KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration (Maybe (Val Text)) kfdsedcDomainARN = lens _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationDomainARN (\s a -> s { _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationDomainARN = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-elasticsearchdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-elasticsearchdestinationconfiguration-indexname@@ -97,7 +102,7 @@ kfdsedcIndexName = lens _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationIndexName (\s a -> s { _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationIndexName = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-elasticsearchdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-elasticsearchdestinationconfiguration-indexrotationperiod-kfdsedcIndexRotationPeriod :: Lens' KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration (Val Text)+kfdsedcIndexRotationPeriod :: Lens' KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration (Maybe (Val Text)) kfdsedcIndexRotationPeriod = lens _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationIndexRotationPeriod (\s a -> s { _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationIndexRotationPeriod = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-elasticsearchdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-elasticsearchdestinationconfiguration-processingconfiguration@@ -105,7 +110,7 @@ kfdsedcProcessingConfiguration = lens _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationProcessingConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationProcessingConfiguration = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-elasticsearchdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-elasticsearchdestinationconfiguration-retryoptions-kfdsedcRetryOptions :: Lens' KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration KinesisFirehoseDeliveryStreamElasticsearchRetryOptions+kfdsedcRetryOptions :: Lens' KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamElasticsearchRetryOptions) kfdsedcRetryOptions = lens _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationRetryOptions (\s a -> s { _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationRetryOptions = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-elasticsearchdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-elasticsearchdestinationconfiguration-rolearn@@ -113,7 +118,7 @@ kfdsedcRoleARN = lens _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationRoleARN (\s a -> s { _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationRoleARN = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-elasticsearchdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-elasticsearchdestinationconfiguration-s3backupmode-kfdsedcS3BackupMode :: Lens' KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration (Val KinesisFirehoseElasticsearchS3BackupMode)+kfdsedcS3BackupMode :: Lens' KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration (Maybe (Val KinesisFirehoseElasticsearchS3BackupMode)) kfdsedcS3BackupMode = lens _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationS3BackupMode (\s a -> s { _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationS3BackupMode = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-elasticsearchdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-elasticsearchdestinationconfiguration-s3configuration@@ -121,5 +126,9 @@ kfdsedcS3Configuration = lens _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationS3Configuration (\s a -> s { _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationS3Configuration = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-elasticsearchdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-elasticsearchdestinationconfiguration-typename-kfdsedcTypeName :: Lens' KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration (Val Text)+kfdsedcTypeName :: Lens' KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration (Maybe (Val Text)) kfdsedcTypeName = lens _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationTypeName (\s a -> s { _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationTypeName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-elasticsearchdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-elasticsearchdestinationconfiguration-vpcconfiguration+kfdsedcVpcConfiguration :: Lens' KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamVpcConfiguration)+kfdsedcVpcConfiguration = lens _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationVpcConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationVpcConfiguration = a })

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

@@ -16,26 +16,25 @@ -- convenient constructor. data KinesisFirehoseDeliveryStreamElasticsearchRetryOptions =   KinesisFirehoseDeliveryStreamElasticsearchRetryOptions-  { _kinesisFirehoseDeliveryStreamElasticsearchRetryOptionsDurationInSeconds :: Val Integer+  { _kinesisFirehoseDeliveryStreamElasticsearchRetryOptionsDurationInSeconds :: Maybe (Val Integer)   } deriving (Show, Eq)  instance ToJSON KinesisFirehoseDeliveryStreamElasticsearchRetryOptions where   toJSON KinesisFirehoseDeliveryStreamElasticsearchRetryOptions{..} =     object $     catMaybes-    [ (Just . ("DurationInSeconds",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchRetryOptionsDurationInSeconds+    [ fmap (("DurationInSeconds",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchRetryOptionsDurationInSeconds     ]  -- | Constructor for 'KinesisFirehoseDeliveryStreamElasticsearchRetryOptions' -- containing required fields as arguments. kinesisFirehoseDeliveryStreamElasticsearchRetryOptions-  :: Val Integer -- ^ 'kfdseroDurationInSeconds'-  -> KinesisFirehoseDeliveryStreamElasticsearchRetryOptions-kinesisFirehoseDeliveryStreamElasticsearchRetryOptions durationInSecondsarg =+  :: KinesisFirehoseDeliveryStreamElasticsearchRetryOptions+kinesisFirehoseDeliveryStreamElasticsearchRetryOptions  =   KinesisFirehoseDeliveryStreamElasticsearchRetryOptions-  { _kinesisFirehoseDeliveryStreamElasticsearchRetryOptionsDurationInSeconds = durationInSecondsarg+  { _kinesisFirehoseDeliveryStreamElasticsearchRetryOptionsDurationInSeconds = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-elasticsearchretryoptions.html#cfn-kinesisfirehose-deliverystream-elasticsearchretryoptions-durationinseconds-kfdseroDurationInSeconds :: Lens' KinesisFirehoseDeliveryStreamElasticsearchRetryOptions (Val Integer)+kfdseroDurationInSeconds :: Lens' KinesisFirehoseDeliveryStreamElasticsearchRetryOptions (Maybe (Val Integer)) kfdseroDurationInSeconds = lens _kinesisFirehoseDeliveryStreamElasticsearchRetryOptionsDurationInSeconds (\s a -> s { _kinesisFirehoseDeliveryStreamElasticsearchRetryOptionsDurationInSeconds = a })

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

@@ -22,9 +22,9 @@ data KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration =   KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration   { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationBucketARN :: Val Text-  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationBufferingHints :: KinesisFirehoseDeliveryStreamBufferingHints+  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationBufferingHints :: Maybe KinesisFirehoseDeliveryStreamBufferingHints   , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCloudWatchLoggingOptions :: Maybe KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions-  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCompressionFormat :: Val Text+  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCompressionFormat :: Maybe (Val Text)   , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationDataFormatConversionConfiguration :: Maybe KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration   , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationEncryptionConfiguration :: Maybe KinesisFirehoseDeliveryStreamEncryptionConfiguration   , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationErrorOutputPrefix :: Maybe (Val Text)@@ -40,9 +40,9 @@     object $     catMaybes     [ (Just . ("BucketARN",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationBucketARN-    , (Just . ("BufferingHints",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationBufferingHints+    , fmap (("BufferingHints",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationBufferingHints     , fmap (("CloudWatchLoggingOptions",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCloudWatchLoggingOptions-    , (Just . ("CompressionFormat",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCompressionFormat+    , fmap (("CompressionFormat",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCompressionFormat     , fmap (("DataFormatConversionConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationDataFormatConversionConfiguration     , fmap (("EncryptionConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationEncryptionConfiguration     , fmap (("ErrorOutputPrefix",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationErrorOutputPrefix@@ -58,16 +58,14 @@ -- containing required fields as arguments. kinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration   :: Val Text -- ^ 'kfdsesdcBucketARN'-  -> KinesisFirehoseDeliveryStreamBufferingHints -- ^ 'kfdsesdcBufferingHints'-  -> Val Text -- ^ 'kfdsesdcCompressionFormat'   -> Val Text -- ^ 'kfdsesdcRoleARN'   -> KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration-kinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration bucketARNarg bufferingHintsarg compressionFormatarg roleARNarg =+kinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration bucketARNarg roleARNarg =   KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration   { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationBucketARN = bucketARNarg-  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationBufferingHints = bufferingHintsarg+  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationBufferingHints = Nothing   , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCloudWatchLoggingOptions = Nothing-  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCompressionFormat = compressionFormatarg+  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCompressionFormat = Nothing   , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationDataFormatConversionConfiguration = Nothing   , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationEncryptionConfiguration = Nothing   , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationErrorOutputPrefix = Nothing@@ -83,7 +81,7 @@ kfdsesdcBucketARN = lens _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationBucketARN (\s a -> s { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationBucketARN = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-extendeds3destinationconfiguration.html#cfn-kinesisfirehose-deliverystream-extendeds3destinationconfiguration-bufferinghints-kfdsesdcBufferingHints :: Lens' KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration KinesisFirehoseDeliveryStreamBufferingHints+kfdsesdcBufferingHints :: Lens' KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamBufferingHints) kfdsesdcBufferingHints = lens _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationBufferingHints (\s a -> s { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationBufferingHints = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-extendeds3destinationconfiguration.html#cfn-kinesisfirehose-deliverystream-extendeds3destinationconfiguration-cloudwatchloggingoptions@@ -91,7 +89,7 @@ kfdsesdcCloudWatchLoggingOptions = lens _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCloudWatchLoggingOptions (\s a -> s { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCloudWatchLoggingOptions = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-extendeds3destinationconfiguration.html#cfn-kinesisfirehose-deliverystream-extendeds3destinationconfiguration-compressionformat-kfdsesdcCompressionFormat :: Lens' KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration (Val Text)+kfdsesdcCompressionFormat :: Lens' KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration (Maybe (Val Text)) kfdsesdcCompressionFormat = lens _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCompressionFormat (\s a -> s { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCompressionFormat = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-extendeds3destinationconfiguration.html#cfn-kinesisfirehose-deliverystream-extendeds3destinationconfiguration-dataformatconversionconfiguration

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

@@ -16,26 +16,25 @@ -- convenient constructor. data KinesisFirehoseDeliveryStreamInputFormatConfiguration =   KinesisFirehoseDeliveryStreamInputFormatConfiguration-  { _kinesisFirehoseDeliveryStreamInputFormatConfigurationDeserializer :: KinesisFirehoseDeliveryStreamDeserializer+  { _kinesisFirehoseDeliveryStreamInputFormatConfigurationDeserializer :: Maybe KinesisFirehoseDeliveryStreamDeserializer   } deriving (Show, Eq)  instance ToJSON KinesisFirehoseDeliveryStreamInputFormatConfiguration where   toJSON KinesisFirehoseDeliveryStreamInputFormatConfiguration{..} =     object $     catMaybes-    [ (Just . ("Deserializer",) . toJSON) _kinesisFirehoseDeliveryStreamInputFormatConfigurationDeserializer+    [ fmap (("Deserializer",) . toJSON) _kinesisFirehoseDeliveryStreamInputFormatConfigurationDeserializer     ]  -- | Constructor for 'KinesisFirehoseDeliveryStreamInputFormatConfiguration' -- containing required fields as arguments. kinesisFirehoseDeliveryStreamInputFormatConfiguration-  :: KinesisFirehoseDeliveryStreamDeserializer -- ^ 'kfdsifcDeserializer'-  -> KinesisFirehoseDeliveryStreamInputFormatConfiguration-kinesisFirehoseDeliveryStreamInputFormatConfiguration deserializerarg =+  :: KinesisFirehoseDeliveryStreamInputFormatConfiguration+kinesisFirehoseDeliveryStreamInputFormatConfiguration  =   KinesisFirehoseDeliveryStreamInputFormatConfiguration-  { _kinesisFirehoseDeliveryStreamInputFormatConfigurationDeserializer = deserializerarg+  { _kinesisFirehoseDeliveryStreamInputFormatConfigurationDeserializer = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-inputformatconfiguration.html#cfn-kinesisfirehose-deliverystream-inputformatconfiguration-deserializer-kfdsifcDeserializer :: Lens' KinesisFirehoseDeliveryStreamInputFormatConfiguration KinesisFirehoseDeliveryStreamDeserializer+kfdsifcDeserializer :: Lens' KinesisFirehoseDeliveryStreamInputFormatConfiguration (Maybe KinesisFirehoseDeliveryStreamDeserializer) kfdsifcDeserializer = lens _kinesisFirehoseDeliveryStreamInputFormatConfigurationDeserializer (\s a -> s { _kinesisFirehoseDeliveryStreamInputFormatConfigurationDeserializer = a })

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

@@ -16,26 +16,25 @@ -- convenient constructor. data KinesisFirehoseDeliveryStreamOutputFormatConfiguration =   KinesisFirehoseDeliveryStreamOutputFormatConfiguration-  { _kinesisFirehoseDeliveryStreamOutputFormatConfigurationSerializer :: KinesisFirehoseDeliveryStreamSerializer+  { _kinesisFirehoseDeliveryStreamOutputFormatConfigurationSerializer :: Maybe KinesisFirehoseDeliveryStreamSerializer   } deriving (Show, Eq)  instance ToJSON KinesisFirehoseDeliveryStreamOutputFormatConfiguration where   toJSON KinesisFirehoseDeliveryStreamOutputFormatConfiguration{..} =     object $     catMaybes-    [ (Just . ("Serializer",) . toJSON) _kinesisFirehoseDeliveryStreamOutputFormatConfigurationSerializer+    [ fmap (("Serializer",) . toJSON) _kinesisFirehoseDeliveryStreamOutputFormatConfigurationSerializer     ]  -- | Constructor for 'KinesisFirehoseDeliveryStreamOutputFormatConfiguration' -- containing required fields as arguments. kinesisFirehoseDeliveryStreamOutputFormatConfiguration-  :: KinesisFirehoseDeliveryStreamSerializer -- ^ 'kfdsofcSerializer'-  -> KinesisFirehoseDeliveryStreamOutputFormatConfiguration-kinesisFirehoseDeliveryStreamOutputFormatConfiguration serializerarg =+  :: KinesisFirehoseDeliveryStreamOutputFormatConfiguration+kinesisFirehoseDeliveryStreamOutputFormatConfiguration  =   KinesisFirehoseDeliveryStreamOutputFormatConfiguration-  { _kinesisFirehoseDeliveryStreamOutputFormatConfigurationSerializer = serializerarg+  { _kinesisFirehoseDeliveryStreamOutputFormatConfigurationSerializer = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-outputformatconfiguration.html#cfn-kinesisfirehose-deliverystream-outputformatconfiguration-serializer-kfdsofcSerializer :: Lens' KinesisFirehoseDeliveryStreamOutputFormatConfiguration KinesisFirehoseDeliveryStreamSerializer+kfdsofcSerializer :: Lens' KinesisFirehoseDeliveryStreamOutputFormatConfiguration (Maybe KinesisFirehoseDeliveryStreamSerializer) kfdsofcSerializer = lens _kinesisFirehoseDeliveryStreamOutputFormatConfigurationSerializer (\s a -> s { _kinesisFirehoseDeliveryStreamOutputFormatConfigurationSerializer = a })

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

@@ -15,7 +15,7 @@ -- constructor. data KinesisFirehoseDeliveryStreamProcessor =   KinesisFirehoseDeliveryStreamProcessor-  { _kinesisFirehoseDeliveryStreamProcessorParameters :: [KinesisFirehoseDeliveryStreamProcessorParameter]+  { _kinesisFirehoseDeliveryStreamProcessorParameters :: Maybe [KinesisFirehoseDeliveryStreamProcessorParameter]   , _kinesisFirehoseDeliveryStreamProcessorType :: Val Text   } deriving (Show, Eq) @@ -23,24 +23,23 @@   toJSON KinesisFirehoseDeliveryStreamProcessor{..} =     object $     catMaybes-    [ (Just . ("Parameters",) . toJSON) _kinesisFirehoseDeliveryStreamProcessorParameters+    [ fmap (("Parameters",) . toJSON) _kinesisFirehoseDeliveryStreamProcessorParameters     , (Just . ("Type",) . toJSON) _kinesisFirehoseDeliveryStreamProcessorType     ]  -- | Constructor for 'KinesisFirehoseDeliveryStreamProcessor' containing -- required fields as arguments. kinesisFirehoseDeliveryStreamProcessor-  :: [KinesisFirehoseDeliveryStreamProcessorParameter] -- ^ 'kfdspParameters'-  -> Val Text -- ^ 'kfdspType'+  :: Val Text -- ^ 'kfdspType'   -> KinesisFirehoseDeliveryStreamProcessor-kinesisFirehoseDeliveryStreamProcessor parametersarg typearg =+kinesisFirehoseDeliveryStreamProcessor typearg =   KinesisFirehoseDeliveryStreamProcessor-  { _kinesisFirehoseDeliveryStreamProcessorParameters = parametersarg+  { _kinesisFirehoseDeliveryStreamProcessorParameters = Nothing   , _kinesisFirehoseDeliveryStreamProcessorType = typearg   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-processor.html#cfn-kinesisfirehose-deliverystream-processor-parameters-kfdspParameters :: Lens' KinesisFirehoseDeliveryStreamProcessor [KinesisFirehoseDeliveryStreamProcessorParameter]+kfdspParameters :: Lens' KinesisFirehoseDeliveryStreamProcessor (Maybe [KinesisFirehoseDeliveryStreamProcessorParameter]) kfdspParameters = lens _kinesisFirehoseDeliveryStreamProcessorParameters (\s a -> s { _kinesisFirehoseDeliveryStreamProcessorParameters = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-processor.html#cfn-kinesisfirehose-deliverystream-processor-type

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

@@ -11,6 +11,7 @@ import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamCopyCommand import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessingConfiguration+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamRedshiftRetryOptions import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamS3DestinationConfiguration  -- | Full data type definition for@@ -24,7 +25,10 @@   , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationCopyCommand :: KinesisFirehoseDeliveryStreamCopyCommand   , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationPassword :: Val Text   , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationProcessingConfiguration :: Maybe KinesisFirehoseDeliveryStreamProcessingConfiguration+  , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationRetryOptions :: Maybe KinesisFirehoseDeliveryStreamRedshiftRetryOptions   , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationRoleARN :: Val Text+  , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationS3BackupConfiguration :: Maybe KinesisFirehoseDeliveryStreamS3DestinationConfiguration+  , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationS3BackupMode :: Maybe (Val Text)   , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationS3Configuration :: KinesisFirehoseDeliveryStreamS3DestinationConfiguration   , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationUsername :: Val Text   } deriving (Show, Eq)@@ -38,7 +42,10 @@     , (Just . ("CopyCommand",) . toJSON) _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationCopyCommand     , (Just . ("Password",) . toJSON) _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationPassword     , fmap (("ProcessingConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationProcessingConfiguration+    , fmap (("RetryOptions",) . toJSON) _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationRetryOptions     , (Just . ("RoleARN",) . toJSON) _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationRoleARN+    , fmap (("S3BackupConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationS3BackupConfiguration+    , fmap (("S3BackupMode",) . toJSON) _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationS3BackupMode     , (Just . ("S3Configuration",) . toJSON) _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationS3Configuration     , (Just . ("Username",) . toJSON) _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationUsername     ]@@ -61,7 +68,10 @@   , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationCopyCommand = copyCommandarg   , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationPassword = passwordarg   , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationProcessingConfiguration = Nothing+  , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationRetryOptions = Nothing   , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationRoleARN = roleARNarg+  , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationS3BackupConfiguration = Nothing+  , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationS3BackupMode = Nothing   , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationS3Configuration = s3Configurationarg   , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationUsername = usernamearg   }@@ -86,9 +96,21 @@ kfdsrdcProcessingConfiguration :: Lens' KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamProcessingConfiguration) kfdsrdcProcessingConfiguration = lens _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationProcessingConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationProcessingConfiguration = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-redshiftdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-redshiftdestinationconfiguration-retryoptions+kfdsrdcRetryOptions :: Lens' KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamRedshiftRetryOptions)+kfdsrdcRetryOptions = lens _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationRetryOptions (\s a -> s { _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationRetryOptions = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-redshiftdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-redshiftdestinationconfiguration-rolearn kfdsrdcRoleARN :: Lens' KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration (Val Text) kfdsrdcRoleARN = lens _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationRoleARN (\s a -> s { _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationRoleARN = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-redshiftdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-redshiftdestinationconfiguration-s3backupconfiguration+kfdsrdcS3BackupConfiguration :: Lens' KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamS3DestinationConfiguration)+kfdsrdcS3BackupConfiguration = lens _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationS3BackupConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationS3BackupConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-redshiftdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-redshiftdestinationconfiguration-s3backupmode+kfdsrdcS3BackupMode :: Lens' KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration (Maybe (Val Text))+kfdsrdcS3BackupMode = lens _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationS3BackupMode (\s a -> s { _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationS3BackupMode = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-redshiftdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-redshiftdestinationconfiguration-s3configuration kfdsrdcS3Configuration :: Lens' KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration KinesisFirehoseDeliveryStreamS3DestinationConfiguration

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

@@ -0,0 +1,40 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-redshiftretryoptions.html++module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamRedshiftRetryOptions where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- KinesisFirehoseDeliveryStreamRedshiftRetryOptions. See+-- 'kinesisFirehoseDeliveryStreamRedshiftRetryOptions' for a more convenient+-- constructor.+data KinesisFirehoseDeliveryStreamRedshiftRetryOptions =+  KinesisFirehoseDeliveryStreamRedshiftRetryOptions+  { _kinesisFirehoseDeliveryStreamRedshiftRetryOptionsDurationInSeconds :: Maybe (Val Integer)+  } deriving (Show, Eq)++instance ToJSON KinesisFirehoseDeliveryStreamRedshiftRetryOptions where+  toJSON KinesisFirehoseDeliveryStreamRedshiftRetryOptions{..} =+    object $+    catMaybes+    [ fmap (("DurationInSeconds",) . toJSON) _kinesisFirehoseDeliveryStreamRedshiftRetryOptionsDurationInSeconds+    ]++-- | Constructor for 'KinesisFirehoseDeliveryStreamRedshiftRetryOptions'+-- containing required fields as arguments.+kinesisFirehoseDeliveryStreamRedshiftRetryOptions+  :: KinesisFirehoseDeliveryStreamRedshiftRetryOptions+kinesisFirehoseDeliveryStreamRedshiftRetryOptions  =+  KinesisFirehoseDeliveryStreamRedshiftRetryOptions+  { _kinesisFirehoseDeliveryStreamRedshiftRetryOptionsDurationInSeconds = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-redshiftretryoptions.html#cfn-kinesisfirehose-deliverystream-redshiftretryoptions-durationinseconds+kfdsrroDurationInSeconds :: Lens' KinesisFirehoseDeliveryStreamRedshiftRetryOptions (Maybe (Val Integer))+kfdsrroDurationInSeconds = lens _kinesisFirehoseDeliveryStreamRedshiftRetryOptionsDurationInSeconds (\s a -> s { _kinesisFirehoseDeliveryStreamRedshiftRetryOptionsDurationInSeconds = a })

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

@@ -20,9 +20,9 @@ data KinesisFirehoseDeliveryStreamS3DestinationConfiguration =   KinesisFirehoseDeliveryStreamS3DestinationConfiguration   { _kinesisFirehoseDeliveryStreamS3DestinationConfigurationBucketARN :: Val Text-  , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationBufferingHints :: KinesisFirehoseDeliveryStreamBufferingHints+  , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationBufferingHints :: Maybe KinesisFirehoseDeliveryStreamBufferingHints   , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationCloudWatchLoggingOptions :: Maybe KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions-  , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationCompressionFormat :: Val KinesisFirehoseS3CompressionFormat+  , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationCompressionFormat :: Maybe (Val KinesisFirehoseS3CompressionFormat)   , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationEncryptionConfiguration :: Maybe KinesisFirehoseDeliveryStreamEncryptionConfiguration   , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationErrorOutputPrefix :: Maybe (Val Text)   , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationPrefix :: Maybe (Val Text)@@ -34,9 +34,9 @@     object $     catMaybes     [ (Just . ("BucketARN",) . toJSON) _kinesisFirehoseDeliveryStreamS3DestinationConfigurationBucketARN-    , (Just . ("BufferingHints",) . toJSON) _kinesisFirehoseDeliveryStreamS3DestinationConfigurationBufferingHints+    , fmap (("BufferingHints",) . toJSON) _kinesisFirehoseDeliveryStreamS3DestinationConfigurationBufferingHints     , fmap (("CloudWatchLoggingOptions",) . toJSON) _kinesisFirehoseDeliveryStreamS3DestinationConfigurationCloudWatchLoggingOptions-    , (Just . ("CompressionFormat",) . toJSON) _kinesisFirehoseDeliveryStreamS3DestinationConfigurationCompressionFormat+    , fmap (("CompressionFormat",) . toJSON) _kinesisFirehoseDeliveryStreamS3DestinationConfigurationCompressionFormat     , fmap (("EncryptionConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamS3DestinationConfigurationEncryptionConfiguration     , fmap (("ErrorOutputPrefix",) . toJSON) _kinesisFirehoseDeliveryStreamS3DestinationConfigurationErrorOutputPrefix     , fmap (("Prefix",) . toJSON) _kinesisFirehoseDeliveryStreamS3DestinationConfigurationPrefix@@ -47,16 +47,14 @@ -- containing required fields as arguments. kinesisFirehoseDeliveryStreamS3DestinationConfiguration   :: Val Text -- ^ 'kfdssdcBucketARN'-  -> KinesisFirehoseDeliveryStreamBufferingHints -- ^ 'kfdssdcBufferingHints'-  -> Val KinesisFirehoseS3CompressionFormat -- ^ 'kfdssdcCompressionFormat'   -> Val Text -- ^ 'kfdssdcRoleARN'   -> KinesisFirehoseDeliveryStreamS3DestinationConfiguration-kinesisFirehoseDeliveryStreamS3DestinationConfiguration bucketARNarg bufferingHintsarg compressionFormatarg roleARNarg =+kinesisFirehoseDeliveryStreamS3DestinationConfiguration bucketARNarg roleARNarg =   KinesisFirehoseDeliveryStreamS3DestinationConfiguration   { _kinesisFirehoseDeliveryStreamS3DestinationConfigurationBucketARN = bucketARNarg-  , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationBufferingHints = bufferingHintsarg+  , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationBufferingHints = Nothing   , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationCloudWatchLoggingOptions = Nothing-  , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationCompressionFormat = compressionFormatarg+  , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationCompressionFormat = Nothing   , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationEncryptionConfiguration = Nothing   , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationErrorOutputPrefix = Nothing   , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationPrefix = Nothing@@ -68,7 +66,7 @@ kfdssdcBucketARN = lens _kinesisFirehoseDeliveryStreamS3DestinationConfigurationBucketARN (\s a -> s { _kinesisFirehoseDeliveryStreamS3DestinationConfigurationBucketARN = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-s3destinationconfiguration.html#cfn-kinesisfirehose-deliverystream-s3destinationconfiguration-bufferinghints-kfdssdcBufferingHints :: Lens' KinesisFirehoseDeliveryStreamS3DestinationConfiguration KinesisFirehoseDeliveryStreamBufferingHints+kfdssdcBufferingHints :: Lens' KinesisFirehoseDeliveryStreamS3DestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamBufferingHints) kfdssdcBufferingHints = lens _kinesisFirehoseDeliveryStreamS3DestinationConfigurationBufferingHints (\s a -> s { _kinesisFirehoseDeliveryStreamS3DestinationConfigurationBufferingHints = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-s3destinationconfiguration.html#cfn-kinesisfirehose-deliverystream-s3destinationconfiguration-cloudwatchloggingoptions@@ -76,7 +74,7 @@ kfdssdcCloudWatchLoggingOptions = lens _kinesisFirehoseDeliveryStreamS3DestinationConfigurationCloudWatchLoggingOptions (\s a -> s { _kinesisFirehoseDeliveryStreamS3DestinationConfigurationCloudWatchLoggingOptions = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-s3destinationconfiguration.html#cfn-kinesisfirehose-deliverystream-s3destinationconfiguration-compressionformat-kfdssdcCompressionFormat :: Lens' KinesisFirehoseDeliveryStreamS3DestinationConfiguration (Val KinesisFirehoseS3CompressionFormat)+kfdssdcCompressionFormat :: Lens' KinesisFirehoseDeliveryStreamS3DestinationConfiguration (Maybe (Val KinesisFirehoseS3CompressionFormat)) kfdssdcCompressionFormat = lens _kinesisFirehoseDeliveryStreamS3DestinationConfigurationCompressionFormat (\s a -> s { _kinesisFirehoseDeliveryStreamS3DestinationConfigurationCompressionFormat = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-s3destinationconfiguration.html#cfn-kinesisfirehose-deliverystream-s3destinationconfiguration-encryptionconfiguration

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

@@ -16,66 +16,60 @@ -- constructor. data KinesisFirehoseDeliveryStreamSchemaConfiguration =   KinesisFirehoseDeliveryStreamSchemaConfiguration-  { _kinesisFirehoseDeliveryStreamSchemaConfigurationCatalogId :: Val Text-  , _kinesisFirehoseDeliveryStreamSchemaConfigurationDatabaseName :: Val Text-  , _kinesisFirehoseDeliveryStreamSchemaConfigurationRegion :: Val Text-  , _kinesisFirehoseDeliveryStreamSchemaConfigurationRoleARN :: Val Text-  , _kinesisFirehoseDeliveryStreamSchemaConfigurationTableName :: Val Text-  , _kinesisFirehoseDeliveryStreamSchemaConfigurationVersionId :: Val Text+  { _kinesisFirehoseDeliveryStreamSchemaConfigurationCatalogId :: Maybe (Val Text)+  , _kinesisFirehoseDeliveryStreamSchemaConfigurationDatabaseName :: Maybe (Val Text)+  , _kinesisFirehoseDeliveryStreamSchemaConfigurationRegion :: Maybe (Val Text)+  , _kinesisFirehoseDeliveryStreamSchemaConfigurationRoleARN :: Maybe (Val Text)+  , _kinesisFirehoseDeliveryStreamSchemaConfigurationTableName :: Maybe (Val Text)+  , _kinesisFirehoseDeliveryStreamSchemaConfigurationVersionId :: Maybe (Val Text)   } deriving (Show, Eq)  instance ToJSON KinesisFirehoseDeliveryStreamSchemaConfiguration where   toJSON KinesisFirehoseDeliveryStreamSchemaConfiguration{..} =     object $     catMaybes-    [ (Just . ("CatalogId",) . toJSON) _kinesisFirehoseDeliveryStreamSchemaConfigurationCatalogId-    , (Just . ("DatabaseName",) . toJSON) _kinesisFirehoseDeliveryStreamSchemaConfigurationDatabaseName-    , (Just . ("Region",) . toJSON) _kinesisFirehoseDeliveryStreamSchemaConfigurationRegion-    , (Just . ("RoleARN",) . toJSON) _kinesisFirehoseDeliveryStreamSchemaConfigurationRoleARN-    , (Just . ("TableName",) . toJSON) _kinesisFirehoseDeliveryStreamSchemaConfigurationTableName-    , (Just . ("VersionId",) . toJSON) _kinesisFirehoseDeliveryStreamSchemaConfigurationVersionId+    [ fmap (("CatalogId",) . toJSON) _kinesisFirehoseDeliveryStreamSchemaConfigurationCatalogId+    , fmap (("DatabaseName",) . toJSON) _kinesisFirehoseDeliveryStreamSchemaConfigurationDatabaseName+    , fmap (("Region",) . toJSON) _kinesisFirehoseDeliveryStreamSchemaConfigurationRegion+    , fmap (("RoleARN",) . toJSON) _kinesisFirehoseDeliveryStreamSchemaConfigurationRoleARN+    , fmap (("TableName",) . toJSON) _kinesisFirehoseDeliveryStreamSchemaConfigurationTableName+    , fmap (("VersionId",) . toJSON) _kinesisFirehoseDeliveryStreamSchemaConfigurationVersionId     ]  -- | Constructor for 'KinesisFirehoseDeliveryStreamSchemaConfiguration' -- containing required fields as arguments. kinesisFirehoseDeliveryStreamSchemaConfiguration-  :: Val Text -- ^ 'kfdsscCatalogId'-  -> Val Text -- ^ 'kfdsscDatabaseName'-  -> Val Text -- ^ 'kfdsscRegion'-  -> Val Text -- ^ 'kfdsscRoleARN'-  -> Val Text -- ^ 'kfdsscTableName'-  -> Val Text -- ^ 'kfdsscVersionId'-  -> KinesisFirehoseDeliveryStreamSchemaConfiguration-kinesisFirehoseDeliveryStreamSchemaConfiguration catalogIdarg databaseNamearg regionarg roleARNarg tableNamearg versionIdarg =+  :: KinesisFirehoseDeliveryStreamSchemaConfiguration+kinesisFirehoseDeliveryStreamSchemaConfiguration  =   KinesisFirehoseDeliveryStreamSchemaConfiguration-  { _kinesisFirehoseDeliveryStreamSchemaConfigurationCatalogId = catalogIdarg-  , _kinesisFirehoseDeliveryStreamSchemaConfigurationDatabaseName = databaseNamearg-  , _kinesisFirehoseDeliveryStreamSchemaConfigurationRegion = regionarg-  , _kinesisFirehoseDeliveryStreamSchemaConfigurationRoleARN = roleARNarg-  , _kinesisFirehoseDeliveryStreamSchemaConfigurationTableName = tableNamearg-  , _kinesisFirehoseDeliveryStreamSchemaConfigurationVersionId = versionIdarg+  { _kinesisFirehoseDeliveryStreamSchemaConfigurationCatalogId = Nothing+  , _kinesisFirehoseDeliveryStreamSchemaConfigurationDatabaseName = Nothing+  , _kinesisFirehoseDeliveryStreamSchemaConfigurationRegion = Nothing+  , _kinesisFirehoseDeliveryStreamSchemaConfigurationRoleARN = Nothing+  , _kinesisFirehoseDeliveryStreamSchemaConfigurationTableName = Nothing+  , _kinesisFirehoseDeliveryStreamSchemaConfigurationVersionId = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-schemaconfiguration.html#cfn-kinesisfirehose-deliverystream-schemaconfiguration-catalogid-kfdsscCatalogId :: Lens' KinesisFirehoseDeliveryStreamSchemaConfiguration (Val Text)+kfdsscCatalogId :: Lens' KinesisFirehoseDeliveryStreamSchemaConfiguration (Maybe (Val Text)) kfdsscCatalogId = lens _kinesisFirehoseDeliveryStreamSchemaConfigurationCatalogId (\s a -> s { _kinesisFirehoseDeliveryStreamSchemaConfigurationCatalogId = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-schemaconfiguration.html#cfn-kinesisfirehose-deliverystream-schemaconfiguration-databasename-kfdsscDatabaseName :: Lens' KinesisFirehoseDeliveryStreamSchemaConfiguration (Val Text)+kfdsscDatabaseName :: Lens' KinesisFirehoseDeliveryStreamSchemaConfiguration (Maybe (Val Text)) kfdsscDatabaseName = lens _kinesisFirehoseDeliveryStreamSchemaConfigurationDatabaseName (\s a -> s { _kinesisFirehoseDeliveryStreamSchemaConfigurationDatabaseName = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-schemaconfiguration.html#cfn-kinesisfirehose-deliverystream-schemaconfiguration-region-kfdsscRegion :: Lens' KinesisFirehoseDeliveryStreamSchemaConfiguration (Val Text)+kfdsscRegion :: Lens' KinesisFirehoseDeliveryStreamSchemaConfiguration (Maybe (Val Text)) kfdsscRegion = lens _kinesisFirehoseDeliveryStreamSchemaConfigurationRegion (\s a -> s { _kinesisFirehoseDeliveryStreamSchemaConfigurationRegion = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-schemaconfiguration.html#cfn-kinesisfirehose-deliverystream-schemaconfiguration-rolearn-kfdsscRoleARN :: Lens' KinesisFirehoseDeliveryStreamSchemaConfiguration (Val Text)+kfdsscRoleARN :: Lens' KinesisFirehoseDeliveryStreamSchemaConfiguration (Maybe (Val Text)) kfdsscRoleARN = lens _kinesisFirehoseDeliveryStreamSchemaConfigurationRoleARN (\s a -> s { _kinesisFirehoseDeliveryStreamSchemaConfigurationRoleARN = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-schemaconfiguration.html#cfn-kinesisfirehose-deliverystream-schemaconfiguration-tablename-kfdsscTableName :: Lens' KinesisFirehoseDeliveryStreamSchemaConfiguration (Val Text)+kfdsscTableName :: Lens' KinesisFirehoseDeliveryStreamSchemaConfiguration (Maybe (Val Text)) kfdsscTableName = lens _kinesisFirehoseDeliveryStreamSchemaConfigurationTableName (\s a -> s { _kinesisFirehoseDeliveryStreamSchemaConfigurationTableName = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-schemaconfiguration.html#cfn-kinesisfirehose-deliverystream-schemaconfiguration-versionid-kfdsscVersionId :: Lens' KinesisFirehoseDeliveryStreamSchemaConfiguration (Val Text)+kfdsscVersionId :: Lens' KinesisFirehoseDeliveryStreamSchemaConfiguration (Maybe (Val Text)) kfdsscVersionId = lens _kinesisFirehoseDeliveryStreamSchemaConfigurationVersionId (\s a -> s { _kinesisFirehoseDeliveryStreamSchemaConfigurationVersionId = a })

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

@@ -16,26 +16,25 @@ -- constructor. data KinesisFirehoseDeliveryStreamSplunkRetryOptions =   KinesisFirehoseDeliveryStreamSplunkRetryOptions-  { _kinesisFirehoseDeliveryStreamSplunkRetryOptionsDurationInSeconds :: Val Integer+  { _kinesisFirehoseDeliveryStreamSplunkRetryOptionsDurationInSeconds :: Maybe (Val Integer)   } deriving (Show, Eq)  instance ToJSON KinesisFirehoseDeliveryStreamSplunkRetryOptions where   toJSON KinesisFirehoseDeliveryStreamSplunkRetryOptions{..} =     object $     catMaybes-    [ (Just . ("DurationInSeconds",) . toJSON) _kinesisFirehoseDeliveryStreamSplunkRetryOptionsDurationInSeconds+    [ fmap (("DurationInSeconds",) . toJSON) _kinesisFirehoseDeliveryStreamSplunkRetryOptionsDurationInSeconds     ]  -- | Constructor for 'KinesisFirehoseDeliveryStreamSplunkRetryOptions' -- containing required fields as arguments. kinesisFirehoseDeliveryStreamSplunkRetryOptions-  :: Val Integer -- ^ 'kfdssroDurationInSeconds'-  -> KinesisFirehoseDeliveryStreamSplunkRetryOptions-kinesisFirehoseDeliveryStreamSplunkRetryOptions durationInSecondsarg =+  :: KinesisFirehoseDeliveryStreamSplunkRetryOptions+kinesisFirehoseDeliveryStreamSplunkRetryOptions  =   KinesisFirehoseDeliveryStreamSplunkRetryOptions-  { _kinesisFirehoseDeliveryStreamSplunkRetryOptionsDurationInSeconds = durationInSecondsarg+  { _kinesisFirehoseDeliveryStreamSplunkRetryOptionsDurationInSeconds = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-splunkretryoptions.html#cfn-kinesisfirehose-deliverystream-splunkretryoptions-durationinseconds-kfdssroDurationInSeconds :: Lens' KinesisFirehoseDeliveryStreamSplunkRetryOptions (Val Integer)+kfdssroDurationInSeconds :: Lens' KinesisFirehoseDeliveryStreamSplunkRetryOptions (Maybe (Val Integer)) kfdssroDurationInSeconds = lens _kinesisFirehoseDeliveryStreamSplunkRetryOptionsDurationInSeconds (\s a -> s { _kinesisFirehoseDeliveryStreamSplunkRetryOptionsDurationInSeconds = a })

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

@@ -0,0 +1,57 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-vpcconfiguration.html++module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamVpcConfiguration where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- KinesisFirehoseDeliveryStreamVpcConfiguration. See+-- 'kinesisFirehoseDeliveryStreamVpcConfiguration' for a more convenient+-- constructor.+data KinesisFirehoseDeliveryStreamVpcConfiguration =+  KinesisFirehoseDeliveryStreamVpcConfiguration+  { _kinesisFirehoseDeliveryStreamVpcConfigurationRoleARN :: Val Text+  , _kinesisFirehoseDeliveryStreamVpcConfigurationSecurityGroupIds :: ValList Text+  , _kinesisFirehoseDeliveryStreamVpcConfigurationSubnetIds :: ValList Text+  } deriving (Show, Eq)++instance ToJSON KinesisFirehoseDeliveryStreamVpcConfiguration where+  toJSON KinesisFirehoseDeliveryStreamVpcConfiguration{..} =+    object $+    catMaybes+    [ (Just . ("RoleARN",) . toJSON) _kinesisFirehoseDeliveryStreamVpcConfigurationRoleARN+    , (Just . ("SecurityGroupIds",) . toJSON) _kinesisFirehoseDeliveryStreamVpcConfigurationSecurityGroupIds+    , (Just . ("SubnetIds",) . toJSON) _kinesisFirehoseDeliveryStreamVpcConfigurationSubnetIds+    ]++-- | Constructor for 'KinesisFirehoseDeliveryStreamVpcConfiguration'+-- containing required fields as arguments.+kinesisFirehoseDeliveryStreamVpcConfiguration+  :: Val Text -- ^ 'kfdsvcRoleARN'+  -> ValList Text -- ^ 'kfdsvcSecurityGroupIds'+  -> ValList Text -- ^ 'kfdsvcSubnetIds'+  -> KinesisFirehoseDeliveryStreamVpcConfiguration+kinesisFirehoseDeliveryStreamVpcConfiguration roleARNarg securityGroupIdsarg subnetIdsarg =+  KinesisFirehoseDeliveryStreamVpcConfiguration+  { _kinesisFirehoseDeliveryStreamVpcConfigurationRoleARN = roleARNarg+  , _kinesisFirehoseDeliveryStreamVpcConfigurationSecurityGroupIds = securityGroupIdsarg+  , _kinesisFirehoseDeliveryStreamVpcConfigurationSubnetIds = subnetIdsarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-vpcconfiguration.html#cfn-kinesisfirehose-deliverystream-vpcconfiguration-rolearn+kfdsvcRoleARN :: Lens' KinesisFirehoseDeliveryStreamVpcConfiguration (Val Text)+kfdsvcRoleARN = lens _kinesisFirehoseDeliveryStreamVpcConfigurationRoleARN (\s a -> s { _kinesisFirehoseDeliveryStreamVpcConfigurationRoleARN = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-vpcconfiguration.html#cfn-kinesisfirehose-deliverystream-vpcconfiguration-securitygroupids+kfdsvcSecurityGroupIds :: Lens' KinesisFirehoseDeliveryStreamVpcConfiguration (ValList Text)+kfdsvcSecurityGroupIds = lens _kinesisFirehoseDeliveryStreamVpcConfigurationSecurityGroupIds (\s a -> s { _kinesisFirehoseDeliveryStreamVpcConfigurationSecurityGroupIds = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-vpcconfiguration.html#cfn-kinesisfirehose-deliverystream-vpcconfiguration-subnetids+kfdsvcSubnetIds :: Lens' KinesisFirehoseDeliveryStreamVpcConfiguration (ValList Text)+kfdsvcSubnetIds = lens _kinesisFirehoseDeliveryStreamVpcConfigurationSubnetIds (\s a -> s { _kinesisFirehoseDeliveryStreamVpcConfigurationSubnetIds = a })

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

@@ -0,0 +1,66 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbproxy-authformat.html++module Stratosphere.ResourceProperties.RDSDBProxyAuthFormat where++import Stratosphere.ResourceImports+++-- | Full data type definition for RDSDBProxyAuthFormat. See+-- 'rdsdbProxyAuthFormat' for a more convenient constructor.+data RDSDBProxyAuthFormat =+  RDSDBProxyAuthFormat+  { _rDSDBProxyAuthFormatAuthScheme :: Maybe (Val Text)+  , _rDSDBProxyAuthFormatDescription :: Maybe (Val Text)+  , _rDSDBProxyAuthFormatIAMAuth :: Maybe (Val Text)+  , _rDSDBProxyAuthFormatSecretArn :: Maybe (Val Text)+  , _rDSDBProxyAuthFormatUserName :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON RDSDBProxyAuthFormat where+  toJSON RDSDBProxyAuthFormat{..} =+    object $+    catMaybes+    [ fmap (("AuthScheme",) . toJSON) _rDSDBProxyAuthFormatAuthScheme+    , fmap (("Description",) . toJSON) _rDSDBProxyAuthFormatDescription+    , fmap (("IAMAuth",) . toJSON) _rDSDBProxyAuthFormatIAMAuth+    , fmap (("SecretArn",) . toJSON) _rDSDBProxyAuthFormatSecretArn+    , fmap (("UserName",) . toJSON) _rDSDBProxyAuthFormatUserName+    ]++-- | Constructor for 'RDSDBProxyAuthFormat' containing required fields as+-- arguments.+rdsdbProxyAuthFormat+  :: RDSDBProxyAuthFormat+rdsdbProxyAuthFormat  =+  RDSDBProxyAuthFormat+  { _rDSDBProxyAuthFormatAuthScheme = Nothing+  , _rDSDBProxyAuthFormatDescription = Nothing+  , _rDSDBProxyAuthFormatIAMAuth = Nothing+  , _rDSDBProxyAuthFormatSecretArn = Nothing+  , _rDSDBProxyAuthFormatUserName = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbproxy-authformat.html#cfn-rds-dbproxy-authformat-authscheme+rdsdbpafAuthScheme :: Lens' RDSDBProxyAuthFormat (Maybe (Val Text))+rdsdbpafAuthScheme = lens _rDSDBProxyAuthFormatAuthScheme (\s a -> s { _rDSDBProxyAuthFormatAuthScheme = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbproxy-authformat.html#cfn-rds-dbproxy-authformat-description+rdsdbpafDescription :: Lens' RDSDBProxyAuthFormat (Maybe (Val Text))+rdsdbpafDescription = lens _rDSDBProxyAuthFormatDescription (\s a -> s { _rDSDBProxyAuthFormatDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbproxy-authformat.html#cfn-rds-dbproxy-authformat-iamauth+rdsdbpafIAMAuth :: Lens' RDSDBProxyAuthFormat (Maybe (Val Text))+rdsdbpafIAMAuth = lens _rDSDBProxyAuthFormatIAMAuth (\s a -> s { _rDSDBProxyAuthFormatIAMAuth = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbproxy-authformat.html#cfn-rds-dbproxy-authformat-secretarn+rdsdbpafSecretArn :: Lens' RDSDBProxyAuthFormat (Maybe (Val Text))+rdsdbpafSecretArn = lens _rDSDBProxyAuthFormatSecretArn (\s a -> s { _rDSDBProxyAuthFormatSecretArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbproxy-authformat.html#cfn-rds-dbproxy-authformat-username+rdsdbpafUserName :: Lens' RDSDBProxyAuthFormat (Maybe (Val Text))+rdsdbpafUserName = lens _rDSDBProxyAuthFormatUserName (\s a -> s { _rDSDBProxyAuthFormatUserName = a })

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

@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbproxy-tagformat.html++module Stratosphere.ResourceProperties.RDSDBProxyTagFormat where++import Stratosphere.ResourceImports+++-- | Full data type definition for RDSDBProxyTagFormat. See+-- 'rdsdbProxyTagFormat' for a more convenient constructor.+data RDSDBProxyTagFormat =+  RDSDBProxyTagFormat+  { _rDSDBProxyTagFormatKey :: Maybe (Val Text)+  , _rDSDBProxyTagFormatValue :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON RDSDBProxyTagFormat where+  toJSON RDSDBProxyTagFormat{..} =+    object $+    catMaybes+    [ fmap (("Key",) . toJSON) _rDSDBProxyTagFormatKey+    , fmap (("Value",) . toJSON) _rDSDBProxyTagFormatValue+    ]++-- | Constructor for 'RDSDBProxyTagFormat' containing required fields as+-- arguments.+rdsdbProxyTagFormat+  :: RDSDBProxyTagFormat+rdsdbProxyTagFormat  =+  RDSDBProxyTagFormat+  { _rDSDBProxyTagFormatKey = Nothing+  , _rDSDBProxyTagFormatValue = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbproxy-tagformat.html#cfn-rds-dbproxy-tagformat-key+rdsdbptfKey :: Lens' RDSDBProxyTagFormat (Maybe (Val Text))+rdsdbptfKey = lens _rDSDBProxyTagFormatKey (\s a -> s { _rDSDBProxyTagFormatKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbproxy-tagformat.html#cfn-rds-dbproxy-tagformat-value+rdsdbptfValue :: Lens' RDSDBProxyTagFormat (Maybe (Val Text))+rdsdbptfValue = lens _rDSDBProxyTagFormatValue (\s a -> s { _rDSDBProxyTagFormatValue = a })

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

@@ -0,0 +1,69 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbproxytargetgroup-connectionpoolconfigurationinfoformat.html++module Stratosphere.ResourceProperties.RDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormat where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- RDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormat. See+-- 'rdsdbProxyTargetGroupConnectionPoolConfigurationInfoFormat' for a more+-- convenient constructor.+data RDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormat =+  RDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormat+  { _rDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormatConnectionBorrowTimeout :: Maybe (Val Integer)+  , _rDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormatInitQuery :: Maybe (Val Text)+  , _rDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormatMaxConnectionsPercent :: Maybe (Val Integer)+  , _rDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormatMaxIdleConnectionsPercent :: Maybe (Val Integer)+  , _rDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormatSessionPinningFilters :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON RDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormat where+  toJSON RDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormat{..} =+    object $+    catMaybes+    [ fmap (("ConnectionBorrowTimeout",) . toJSON) _rDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormatConnectionBorrowTimeout+    , fmap (("InitQuery",) . toJSON) _rDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormatInitQuery+    , fmap (("MaxConnectionsPercent",) . toJSON) _rDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormatMaxConnectionsPercent+    , fmap (("MaxIdleConnectionsPercent",) . toJSON) _rDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormatMaxIdleConnectionsPercent+    , fmap (("SessionPinningFilters",) . toJSON) _rDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormatSessionPinningFilters+    ]++-- | Constructor for+-- 'RDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormat' containing+-- required fields as arguments.+rdsdbProxyTargetGroupConnectionPoolConfigurationInfoFormat+  :: RDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormat+rdsdbProxyTargetGroupConnectionPoolConfigurationInfoFormat  =+  RDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormat+  { _rDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormatConnectionBorrowTimeout = Nothing+  , _rDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormatInitQuery = Nothing+  , _rDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormatMaxConnectionsPercent = Nothing+  , _rDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormatMaxIdleConnectionsPercent = Nothing+  , _rDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormatSessionPinningFilters = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbproxytargetgroup-connectionpoolconfigurationinfoformat.html#cfn-rds-dbproxytargetgroup-connectionpoolconfigurationinfoformat-connectionborrowtimeout+rdsdbptgcpcifConnectionBorrowTimeout :: Lens' RDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormat (Maybe (Val Integer))+rdsdbptgcpcifConnectionBorrowTimeout = lens _rDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormatConnectionBorrowTimeout (\s a -> s { _rDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormatConnectionBorrowTimeout = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbproxytargetgroup-connectionpoolconfigurationinfoformat.html#cfn-rds-dbproxytargetgroup-connectionpoolconfigurationinfoformat-initquery+rdsdbptgcpcifInitQuery :: Lens' RDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormat (Maybe (Val Text))+rdsdbptgcpcifInitQuery = lens _rDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormatInitQuery (\s a -> s { _rDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormatInitQuery = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbproxytargetgroup-connectionpoolconfigurationinfoformat.html#cfn-rds-dbproxytargetgroup-connectionpoolconfigurationinfoformat-maxconnectionspercent+rdsdbptgcpcifMaxConnectionsPercent :: Lens' RDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormat (Maybe (Val Integer))+rdsdbptgcpcifMaxConnectionsPercent = lens _rDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormatMaxConnectionsPercent (\s a -> s { _rDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormatMaxConnectionsPercent = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbproxytargetgroup-connectionpoolconfigurationinfoformat.html#cfn-rds-dbproxytargetgroup-connectionpoolconfigurationinfoformat-maxidleconnectionspercent+rdsdbptgcpcifMaxIdleConnectionsPercent :: Lens' RDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormat (Maybe (Val Integer))+rdsdbptgcpcifMaxIdleConnectionsPercent = lens _rDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormatMaxIdleConnectionsPercent (\s a -> s { _rDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormatMaxIdleConnectionsPercent = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbproxytargetgroup-connectionpoolconfigurationinfoformat.html#cfn-rds-dbproxytargetgroup-connectionpoolconfigurationinfoformat-sessionpinningfilters+rdsdbptgcpcifSessionPinningFilters :: Lens' RDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormat (Maybe (ValList Text))+rdsdbptgcpcifSessionPinningFilters = lens _rDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormatSessionPinningFilters (\s a -> s { _rDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormatSessionPinningFilters = a })

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

@@ -0,0 +1,38 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-deletemarkerreplication.html++module Stratosphere.ResourceProperties.S3BucketDeleteMarkerReplication where++import Stratosphere.ResourceImports+++-- | Full data type definition for S3BucketDeleteMarkerReplication. See+-- 's3BucketDeleteMarkerReplication' for a more convenient constructor.+data S3BucketDeleteMarkerReplication =+  S3BucketDeleteMarkerReplication+  { _s3BucketDeleteMarkerReplicationStatus :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON S3BucketDeleteMarkerReplication where+  toJSON S3BucketDeleteMarkerReplication{..} =+    object $+    catMaybes+    [ fmap (("Status",) . toJSON) _s3BucketDeleteMarkerReplicationStatus+    ]++-- | Constructor for 'S3BucketDeleteMarkerReplication' containing required+-- fields as arguments.+s3BucketDeleteMarkerReplication+  :: S3BucketDeleteMarkerReplication+s3BucketDeleteMarkerReplication  =+  S3BucketDeleteMarkerReplication+  { _s3BucketDeleteMarkerReplicationStatus = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-deletemarkerreplication.html#cfn-s3-bucket-deletemarkerreplication-status+sbdmrStatus :: Lens' S3BucketDeleteMarkerReplication (Maybe (Val Text))+sbdmrStatus = lens _s3BucketDeleteMarkerReplicationStatus (\s a -> s { _s3BucketDeleteMarkerReplicationStatus = a })

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

@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-metrics.html++module Stratosphere.ResourceProperties.S3BucketMetrics where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.S3BucketReplicationTimeValue++-- | Full data type definition for S3BucketMetrics. See 's3BucketMetrics' for+-- a more convenient constructor.+data S3BucketMetrics =+  S3BucketMetrics+  { _s3BucketMetricsEventThreshold :: S3BucketReplicationTimeValue+  , _s3BucketMetricsStatus :: Val Text+  } deriving (Show, Eq)++instance ToJSON S3BucketMetrics where+  toJSON S3BucketMetrics{..} =+    object $+    catMaybes+    [ (Just . ("EventThreshold",) . toJSON) _s3BucketMetricsEventThreshold+    , (Just . ("Status",) . toJSON) _s3BucketMetricsStatus+    ]++-- | Constructor for 'S3BucketMetrics' containing required fields as+-- arguments.+s3BucketMetrics+  :: S3BucketReplicationTimeValue -- ^ 'sbmEventThreshold'+  -> Val Text -- ^ 'sbmStatus'+  -> S3BucketMetrics+s3BucketMetrics eventThresholdarg statusarg =+  S3BucketMetrics+  { _s3BucketMetricsEventThreshold = eventThresholdarg+  , _s3BucketMetricsStatus = statusarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-metrics.html#cfn-s3-bucket-metrics-eventthreshold+sbmEventThreshold :: Lens' S3BucketMetrics S3BucketReplicationTimeValue+sbmEventThreshold = lens _s3BucketMetricsEventThreshold (\s a -> s { _s3BucketMetricsEventThreshold = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-metrics.html#cfn-s3-bucket-metrics-status+sbmStatus :: Lens' S3BucketMetrics (Val Text)+sbmStatus = lens _s3BucketMetricsStatus (\s a -> s { _s3BucketMetricsStatus = a })

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

@@ -10,6 +10,8 @@ import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.S3BucketAccessControlTranslation import Stratosphere.ResourceProperties.S3BucketEncryptionConfiguration+import Stratosphere.ResourceProperties.S3BucketMetrics+import Stratosphere.ResourceProperties.S3BucketReplicationTime  -- | Full data type definition for S3BucketReplicationDestination. See -- 's3BucketReplicationDestination' for a more convenient constructor.@@ -19,6 +21,8 @@   , _s3BucketReplicationDestinationAccount :: Maybe (Val Text)   , _s3BucketReplicationDestinationBucket :: Val Text   , _s3BucketReplicationDestinationEncryptionConfiguration :: Maybe S3BucketEncryptionConfiguration+  , _s3BucketReplicationDestinationMetrics :: Maybe S3BucketMetrics+  , _s3BucketReplicationDestinationReplicationTime :: Maybe S3BucketReplicationTime   , _s3BucketReplicationDestinationStorageClass :: Maybe (Val Text)   } deriving (Show, Eq) @@ -30,6 +34,8 @@     , fmap (("Account",) . toJSON) _s3BucketReplicationDestinationAccount     , (Just . ("Bucket",) . toJSON) _s3BucketReplicationDestinationBucket     , fmap (("EncryptionConfiguration",) . toJSON) _s3BucketReplicationDestinationEncryptionConfiguration+    , fmap (("Metrics",) . toJSON) _s3BucketReplicationDestinationMetrics+    , fmap (("ReplicationTime",) . toJSON) _s3BucketReplicationDestinationReplicationTime     , fmap (("StorageClass",) . toJSON) _s3BucketReplicationDestinationStorageClass     ] @@ -44,6 +50,8 @@   , _s3BucketReplicationDestinationAccount = Nothing   , _s3BucketReplicationDestinationBucket = bucketarg   , _s3BucketReplicationDestinationEncryptionConfiguration = Nothing+  , _s3BucketReplicationDestinationMetrics = Nothing+  , _s3BucketReplicationDestinationReplicationTime = Nothing   , _s3BucketReplicationDestinationStorageClass = Nothing   } @@ -62,6 +70,14 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationconfiguration-rules-destination.html#cfn-s3-bucket-replicationdestination-encryptionconfiguration sbrdEncryptionConfiguration :: Lens' S3BucketReplicationDestination (Maybe S3BucketEncryptionConfiguration) sbrdEncryptionConfiguration = lens _s3BucketReplicationDestinationEncryptionConfiguration (\s a -> s { _s3BucketReplicationDestinationEncryptionConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationconfiguration-rules-destination.html#cfn-s3-bucket-replicationdestination-metrics+sbrdMetrics :: Lens' S3BucketReplicationDestination (Maybe S3BucketMetrics)+sbrdMetrics = lens _s3BucketReplicationDestinationMetrics (\s a -> s { _s3BucketReplicationDestinationMetrics = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationconfiguration-rules-destination.html#cfn-s3-bucket-replicationdestination-replicationtime+sbrdReplicationTime :: Lens' S3BucketReplicationDestination (Maybe S3BucketReplicationTime)+sbrdReplicationTime = lens _s3BucketReplicationDestinationReplicationTime (\s a -> s { _s3BucketReplicationDestinationReplicationTime = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationconfiguration-rules-destination.html#cfn-s3-bucket-replicationconfiguration-rules-destination-storageclass sbrdStorageClass :: Lens' S3BucketReplicationDestination (Maybe (Val Text))

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

@@ -8,16 +8,21 @@ module Stratosphere.ResourceProperties.S3BucketReplicationRule where  import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.S3BucketDeleteMarkerReplication import Stratosphere.ResourceProperties.S3BucketReplicationDestination+import Stratosphere.ResourceProperties.S3BucketReplicationRuleFilter import Stratosphere.ResourceProperties.S3BucketSourceSelectionCriteria  -- | Full data type definition for S3BucketReplicationRule. See -- 's3BucketReplicationRule' for a more convenient constructor. data S3BucketReplicationRule =   S3BucketReplicationRule-  { _s3BucketReplicationRuleDestination :: S3BucketReplicationDestination+  { _s3BucketReplicationRuleDeleteMarkerReplication :: Maybe S3BucketDeleteMarkerReplication+  , _s3BucketReplicationRuleDestination :: S3BucketReplicationDestination+  , _s3BucketReplicationRuleFilter :: Maybe S3BucketReplicationRuleFilter   , _s3BucketReplicationRuleId :: Maybe (Val Text)-  , _s3BucketReplicationRulePrefix :: Val Text+  , _s3BucketReplicationRulePrefix :: Maybe (Val Text)+  , _s3BucketReplicationRulePriority :: Maybe (Val Integer)   , _s3BucketReplicationRuleSourceSelectionCriteria :: Maybe S3BucketSourceSelectionCriteria   , _s3BucketReplicationRuleStatus :: Val Text   } deriving (Show, Eq)@@ -26,9 +31,12 @@   toJSON S3BucketReplicationRule{..} =     object $     catMaybes-    [ (Just . ("Destination",) . toJSON) _s3BucketReplicationRuleDestination+    [ fmap (("DeleteMarkerReplication",) . toJSON) _s3BucketReplicationRuleDeleteMarkerReplication+    , (Just . ("Destination",) . toJSON) _s3BucketReplicationRuleDestination+    , fmap (("Filter",) . toJSON) _s3BucketReplicationRuleFilter     , fmap (("Id",) . toJSON) _s3BucketReplicationRuleId-    , (Just . ("Prefix",) . toJSON) _s3BucketReplicationRulePrefix+    , fmap (("Prefix",) . toJSON) _s3BucketReplicationRulePrefix+    , fmap (("Priority",) . toJSON) _s3BucketReplicationRulePriority     , fmap (("SourceSelectionCriteria",) . toJSON) _s3BucketReplicationRuleSourceSelectionCriteria     , (Just . ("Status",) . toJSON) _s3BucketReplicationRuleStatus     ]@@ -37,29 +45,43 @@ -- arguments. s3BucketReplicationRule   :: S3BucketReplicationDestination -- ^ 'sbrrDestination'-  -> Val Text -- ^ 'sbrrPrefix'   -> Val Text -- ^ 'sbrrStatus'   -> S3BucketReplicationRule-s3BucketReplicationRule destinationarg prefixarg statusarg =+s3BucketReplicationRule destinationarg statusarg =   S3BucketReplicationRule-  { _s3BucketReplicationRuleDestination = destinationarg+  { _s3BucketReplicationRuleDeleteMarkerReplication = Nothing+  , _s3BucketReplicationRuleDestination = destinationarg+  , _s3BucketReplicationRuleFilter = Nothing   , _s3BucketReplicationRuleId = Nothing-  , _s3BucketReplicationRulePrefix = prefixarg+  , _s3BucketReplicationRulePrefix = Nothing+  , _s3BucketReplicationRulePriority = Nothing   , _s3BucketReplicationRuleSourceSelectionCriteria = Nothing   , _s3BucketReplicationRuleStatus = statusarg   } +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationconfiguration-rules.html#cfn-s3-bucket-replicationrule-deletemarkerreplication+sbrrDeleteMarkerReplication :: Lens' S3BucketReplicationRule (Maybe S3BucketDeleteMarkerReplication)+sbrrDeleteMarkerReplication = lens _s3BucketReplicationRuleDeleteMarkerReplication (\s a -> s { _s3BucketReplicationRuleDeleteMarkerReplication = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationconfiguration-rules.html#cfn-s3-bucket-replicationconfiguration-rules-destination sbrrDestination :: Lens' S3BucketReplicationRule S3BucketReplicationDestination sbrrDestination = lens _s3BucketReplicationRuleDestination (\s a -> s { _s3BucketReplicationRuleDestination = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationconfiguration-rules.html#cfn-s3-bucket-replicationrule-filter+sbrrFilter :: Lens' S3BucketReplicationRule (Maybe S3BucketReplicationRuleFilter)+sbrrFilter = lens _s3BucketReplicationRuleFilter (\s a -> s { _s3BucketReplicationRuleFilter = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationconfiguration-rules.html#cfn-s3-bucket-replicationconfiguration-rules-id sbrrId :: Lens' S3BucketReplicationRule (Maybe (Val Text)) sbrrId = lens _s3BucketReplicationRuleId (\s a -> s { _s3BucketReplicationRuleId = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationconfiguration-rules.html#cfn-s3-bucket-replicationconfiguration-rules-prefix-sbrrPrefix :: Lens' S3BucketReplicationRule (Val Text)+sbrrPrefix :: Lens' S3BucketReplicationRule (Maybe (Val Text)) sbrrPrefix = lens _s3BucketReplicationRulePrefix (\s a -> s { _s3BucketReplicationRulePrefix = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationconfiguration-rules.html#cfn-s3-bucket-replicationrule-priority+sbrrPriority :: Lens' S3BucketReplicationRule (Maybe (Val Integer))+sbrrPriority = lens _s3BucketReplicationRulePriority (\s a -> s { _s3BucketReplicationRulePriority = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationconfiguration-rules.html#cfn-s3-bucket-replicationrule-sourceselectioncriteria sbrrSourceSelectionCriteria :: Lens' S3BucketReplicationRule (Maybe S3BucketSourceSelectionCriteria)

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

@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationruleandoperator.html++module Stratosphere.ResourceProperties.S3BucketReplicationRuleAndOperator where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.S3BucketTagFilter++-- | Full data type definition for S3BucketReplicationRuleAndOperator. See+-- 's3BucketReplicationRuleAndOperator' for a more convenient constructor.+data S3BucketReplicationRuleAndOperator =+  S3BucketReplicationRuleAndOperator+  { _s3BucketReplicationRuleAndOperatorPrefix :: Maybe (Val Text)+  , _s3BucketReplicationRuleAndOperatorTagFilters :: Maybe [S3BucketTagFilter]+  } deriving (Show, Eq)++instance ToJSON S3BucketReplicationRuleAndOperator where+  toJSON S3BucketReplicationRuleAndOperator{..} =+    object $+    catMaybes+    [ fmap (("Prefix",) . toJSON) _s3BucketReplicationRuleAndOperatorPrefix+    , fmap (("TagFilters",) . toJSON) _s3BucketReplicationRuleAndOperatorTagFilters+    ]++-- | Constructor for 'S3BucketReplicationRuleAndOperator' containing required+-- fields as arguments.+s3BucketReplicationRuleAndOperator+  :: S3BucketReplicationRuleAndOperator+s3BucketReplicationRuleAndOperator  =+  S3BucketReplicationRuleAndOperator+  { _s3BucketReplicationRuleAndOperatorPrefix = Nothing+  , _s3BucketReplicationRuleAndOperatorTagFilters = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationruleandoperator.html#cfn-s3-bucket-replicationruleandoperator-prefix+sbrraoPrefix :: Lens' S3BucketReplicationRuleAndOperator (Maybe (Val Text))+sbrraoPrefix = lens _s3BucketReplicationRuleAndOperatorPrefix (\s a -> s { _s3BucketReplicationRuleAndOperatorPrefix = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationruleandoperator.html#cfn-s3-bucket-replicationruleandoperator-tagfilters+sbrraoTagFilters :: Lens' S3BucketReplicationRuleAndOperator (Maybe [S3BucketTagFilter])+sbrraoTagFilters = lens _s3BucketReplicationRuleAndOperatorTagFilters (\s a -> s { _s3BucketReplicationRuleAndOperatorTagFilters = a })

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

@@ -0,0 +1,53 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationrulefilter.html++module Stratosphere.ResourceProperties.S3BucketReplicationRuleFilter where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.S3BucketReplicationRuleAndOperator+import Stratosphere.ResourceProperties.S3BucketTagFilter++-- | Full data type definition for S3BucketReplicationRuleFilter. See+-- 's3BucketReplicationRuleFilter' for a more convenient constructor.+data S3BucketReplicationRuleFilter =+  S3BucketReplicationRuleFilter+  { _s3BucketReplicationRuleFilterAnd :: Maybe S3BucketReplicationRuleAndOperator+  , _s3BucketReplicationRuleFilterPrefix :: Maybe (Val Text)+  , _s3BucketReplicationRuleFilterTagFilter :: Maybe S3BucketTagFilter+  } deriving (Show, Eq)++instance ToJSON S3BucketReplicationRuleFilter where+  toJSON S3BucketReplicationRuleFilter{..} =+    object $+    catMaybes+    [ fmap (("And",) . toJSON) _s3BucketReplicationRuleFilterAnd+    , fmap (("Prefix",) . toJSON) _s3BucketReplicationRuleFilterPrefix+    , fmap (("TagFilter",) . toJSON) _s3BucketReplicationRuleFilterTagFilter+    ]++-- | Constructor for 'S3BucketReplicationRuleFilter' containing required+-- fields as arguments.+s3BucketReplicationRuleFilter+  :: S3BucketReplicationRuleFilter+s3BucketReplicationRuleFilter  =+  S3BucketReplicationRuleFilter+  { _s3BucketReplicationRuleFilterAnd = Nothing+  , _s3BucketReplicationRuleFilterPrefix = Nothing+  , _s3BucketReplicationRuleFilterTagFilter = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationrulefilter.html#cfn-s3-bucket-replicationrulefilter-and+sbrrfAnd :: Lens' S3BucketReplicationRuleFilter (Maybe S3BucketReplicationRuleAndOperator)+sbrrfAnd = lens _s3BucketReplicationRuleFilterAnd (\s a -> s { _s3BucketReplicationRuleFilterAnd = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationrulefilter.html#cfn-s3-bucket-replicationrulefilter-prefix+sbrrfPrefix :: Lens' S3BucketReplicationRuleFilter (Maybe (Val Text))+sbrrfPrefix = lens _s3BucketReplicationRuleFilterPrefix (\s a -> s { _s3BucketReplicationRuleFilterPrefix = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationrulefilter.html#cfn-s3-bucket-replicationrulefilter-tagfilter+sbrrfTagFilter :: Lens' S3BucketReplicationRuleFilter (Maybe S3BucketTagFilter)+sbrrfTagFilter = lens _s3BucketReplicationRuleFilterTagFilter (\s a -> s { _s3BucketReplicationRuleFilterTagFilter = a })

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

@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationtime.html++module Stratosphere.ResourceProperties.S3BucketReplicationTime where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.S3BucketReplicationTimeValue++-- | Full data type definition for S3BucketReplicationTime. See+-- 's3BucketReplicationTime' for a more convenient constructor.+data S3BucketReplicationTime =+  S3BucketReplicationTime+  { _s3BucketReplicationTimeStatus :: Val Text+  , _s3BucketReplicationTimeTime :: S3BucketReplicationTimeValue+  } deriving (Show, Eq)++instance ToJSON S3BucketReplicationTime where+  toJSON S3BucketReplicationTime{..} =+    object $+    catMaybes+    [ (Just . ("Status",) . toJSON) _s3BucketReplicationTimeStatus+    , (Just . ("Time",) . toJSON) _s3BucketReplicationTimeTime+    ]++-- | Constructor for 'S3BucketReplicationTime' containing required fields as+-- arguments.+s3BucketReplicationTime+  :: Val Text -- ^ 'sbrtStatus'+  -> S3BucketReplicationTimeValue -- ^ 'sbrtTime'+  -> S3BucketReplicationTime+s3BucketReplicationTime statusarg timearg =+  S3BucketReplicationTime+  { _s3BucketReplicationTimeStatus = statusarg+  , _s3BucketReplicationTimeTime = timearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationtime.html#cfn-s3-bucket-replicationtime-status+sbrtStatus :: Lens' S3BucketReplicationTime (Val Text)+sbrtStatus = lens _s3BucketReplicationTimeStatus (\s a -> s { _s3BucketReplicationTimeStatus = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationtime.html#cfn-s3-bucket-replicationtime-time+sbrtTime :: Lens' S3BucketReplicationTime S3BucketReplicationTimeValue+sbrtTime = lens _s3BucketReplicationTimeTime (\s a -> s { _s3BucketReplicationTimeTime = a })

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

@@ -0,0 +1,39 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationtimevalue.html++module Stratosphere.ResourceProperties.S3BucketReplicationTimeValue where++import Stratosphere.ResourceImports+++-- | Full data type definition for S3BucketReplicationTimeValue. See+-- 's3BucketReplicationTimeValue' for a more convenient constructor.+data S3BucketReplicationTimeValue =+  S3BucketReplicationTimeValue+  { _s3BucketReplicationTimeValueMinutes :: Val Integer+  } deriving (Show, Eq)++instance ToJSON S3BucketReplicationTimeValue where+  toJSON S3BucketReplicationTimeValue{..} =+    object $+    catMaybes+    [ (Just . ("Minutes",) . toJSON) _s3BucketReplicationTimeValueMinutes+    ]++-- | Constructor for 'S3BucketReplicationTimeValue' containing required fields+-- as arguments.+s3BucketReplicationTimeValue+  :: Val Integer -- ^ 'sbrtvMinutes'+  -> S3BucketReplicationTimeValue+s3BucketReplicationTimeValue minutesarg =+  S3BucketReplicationTimeValue+  { _s3BucketReplicationTimeValueMinutes = minutesarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationtimevalue.html#cfn-s3-bucket-replicationtimevalue-minutes+sbrtvMinutes :: Lens' S3BucketReplicationTimeValue (Val Integer)+sbrtvMinutes = lens _s3BucketReplicationTimeValueMinutes (\s a -> s { _s3BucketReplicationTimeValueMinutes = a })

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

@@ -1,39 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE StrictData #-}-{-# LANGUAGE TupleSections #-}---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-association-parametervalues.html--module Stratosphere.ResourceProperties.SSMAssociationParameterValues where--import Stratosphere.ResourceImports----- | Full data type definition for SSMAssociationParameterValues. See--- 'ssmAssociationParameterValues' for a more convenient constructor.-data SSMAssociationParameterValues =-  SSMAssociationParameterValues-  { _sSMAssociationParameterValuesParameterValues :: ValList Text-  } deriving (Show, Eq)--instance ToJSON SSMAssociationParameterValues where-  toJSON SSMAssociationParameterValues{..} =-    object $-    catMaybes-    [ (Just . ("ParameterValues",) . toJSON) _sSMAssociationParameterValuesParameterValues-    ]---- | Constructor for 'SSMAssociationParameterValues' containing required--- fields as arguments.-ssmAssociationParameterValues-  :: ValList Text -- ^ 'ssmapvParameterValues'-  -> SSMAssociationParameterValues-ssmAssociationParameterValues parameterValuesarg =-  SSMAssociationParameterValues-  { _sSMAssociationParameterValuesParameterValues = parameterValuesarg-  }---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-association-parametervalues.html#cfn-ssm-association-parametervalues-parametervalues-ssmapvParameterValues :: Lens' SSMAssociationParameterValues (ValList Text)-ssmapvParameterValues = lens _sSMAssociationParameterValuesParameterValues (\s a -> s { _sSMAssociationParameterValuesParameterValues = a })

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

@@ -0,0 +1,54 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-stepfunctions-statemachine-s3location.html++module Stratosphere.ResourceProperties.StepFunctionsStateMachineS3Location where++import Stratosphere.ResourceImports+++-- | Full data type definition for StepFunctionsStateMachineS3Location. See+-- 'stepFunctionsStateMachineS3Location' for a more convenient constructor.+data StepFunctionsStateMachineS3Location =+  StepFunctionsStateMachineS3Location+  { _stepFunctionsStateMachineS3LocationBucket :: Val Text+  , _stepFunctionsStateMachineS3LocationKey :: Val Text+  , _stepFunctionsStateMachineS3LocationVersion :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON StepFunctionsStateMachineS3Location where+  toJSON StepFunctionsStateMachineS3Location{..} =+    object $+    catMaybes+    [ (Just . ("Bucket",) . toJSON) _stepFunctionsStateMachineS3LocationBucket+    , (Just . ("Key",) . toJSON) _stepFunctionsStateMachineS3LocationKey+    , fmap (("Version",) . toJSON) _stepFunctionsStateMachineS3LocationVersion+    ]++-- | Constructor for 'StepFunctionsStateMachineS3Location' containing required+-- fields as arguments.+stepFunctionsStateMachineS3Location+  :: Val Text -- ^ 'sfsmslBucket'+  -> Val Text -- ^ 'sfsmslKey'+  -> StepFunctionsStateMachineS3Location+stepFunctionsStateMachineS3Location bucketarg keyarg =+  StepFunctionsStateMachineS3Location+  { _stepFunctionsStateMachineS3LocationBucket = bucketarg+  , _stepFunctionsStateMachineS3LocationKey = keyarg+  , _stepFunctionsStateMachineS3LocationVersion = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-stepfunctions-statemachine-s3location.html#cfn-stepfunctions-statemachine-s3location-bucket+sfsmslBucket :: Lens' StepFunctionsStateMachineS3Location (Val Text)+sfsmslBucket = lens _stepFunctionsStateMachineS3LocationBucket (\s a -> s { _stepFunctionsStateMachineS3LocationBucket = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-stepfunctions-statemachine-s3location.html#cfn-stepfunctions-statemachine-s3location-key+sfsmslKey :: Lens' StepFunctionsStateMachineS3Location (Val Text)+sfsmslKey = lens _stepFunctionsStateMachineS3LocationKey (\s a -> s { _stepFunctionsStateMachineS3LocationKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-stepfunctions-statemachine-s3location.html#cfn-stepfunctions-statemachine-s3location-version+sfsmslVersion :: Lens' StepFunctionsStateMachineS3Location (Maybe (Val Text))+sfsmslVersion = lens _stepFunctionsStateMachineS3LocationVersion (\s a -> s { _stepFunctionsStateMachineS3LocationVersion = a })

library-gen/Stratosphere/Resources.hs view

@@ -226,6 +226,7 @@ import Stratosphere.Resources.EC2NetworkInterfaceAttachment as X import Stratosphere.Resources.EC2NetworkInterfacePermission as X import Stratosphere.Resources.EC2PlacementGroup as X+import Stratosphere.Resources.EC2PrefixList as X import Stratosphere.Resources.EC2Route as X import Stratosphere.Resources.EC2RouteTable as X import Stratosphere.Resources.EC2SecurityGroup as X@@ -267,6 +268,7 @@ import Stratosphere.Resources.ECSService as X import Stratosphere.Resources.ECSTaskDefinition as X import Stratosphere.Resources.ECSTaskSet as X+import Stratosphere.Resources.EFSAccessPoint as X import Stratosphere.Resources.EFSFileSystem as X import Stratosphere.Resources.EFSMountTarget as X import Stratosphere.Resources.EKSCluster as X@@ -372,6 +374,7 @@ import Stratosphere.Resources.IoTCertificate as X import Stratosphere.Resources.IoTPolicy as X import Stratosphere.Resources.IoTPolicyPrincipalAttachment as X+import Stratosphere.Resources.IoTProvisioningTemplate as X import Stratosphere.Resources.IoTThing as X import Stratosphere.Resources.IoTThingPrincipalAttachment as X import Stratosphere.Resources.IoTTopicRule as X@@ -471,6 +474,8 @@ import Stratosphere.Resources.RDSDBClusterParameterGroup as X import Stratosphere.Resources.RDSDBInstance as X import Stratosphere.Resources.RDSDBParameterGroup as X+import Stratosphere.Resources.RDSDBProxy as X+import Stratosphere.Resources.RDSDBProxyTargetGroup as X import Stratosphere.Resources.RDSDBSecurityGroup as X import Stratosphere.Resources.RDSDBSecurityGroupIngress as X import Stratosphere.Resources.RDSDBSubnetGroup as X@@ -973,6 +978,7 @@ import Stratosphere.ResourceProperties.EC2ClientVpnEndpointClientAuthenticationRequest as X import Stratosphere.ResourceProperties.EC2ClientVpnEndpointConnectionLogOptions as X import Stratosphere.ResourceProperties.EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest as X+import Stratosphere.ResourceProperties.EC2ClientVpnEndpointFederatedAuthenticationRequest as X import Stratosphere.ResourceProperties.EC2ClientVpnEndpointTagSpecification as X import Stratosphere.ResourceProperties.EC2EC2FleetCapacityReservationOptionsRequest as X import Stratosphere.ResourceProperties.EC2EC2FleetFleetLaunchTemplateConfigRequest as X@@ -1025,6 +1031,7 @@ import Stratosphere.ResourceProperties.EC2NetworkAclEntryPortRange as X import Stratosphere.ResourceProperties.EC2NetworkInterfaceInstanceIpv6Address as X import Stratosphere.ResourceProperties.EC2NetworkInterfacePrivateIpAddressSpecification as X+import Stratosphere.ResourceProperties.EC2PrefixListEntry as X import Stratosphere.ResourceProperties.EC2SecurityGroupEgressProperty as X import Stratosphere.ResourceProperties.EC2SecurityGroupIngressProperty as X import Stratosphere.ResourceProperties.EC2SpotFleetBlockDeviceMapping as X@@ -1089,6 +1096,10 @@ import Stratosphere.ResourceProperties.ECSTaskSetNetworkConfiguration as X import Stratosphere.ResourceProperties.ECSTaskSetScale as X import Stratosphere.ResourceProperties.ECSTaskSetServiceRegistry as X+import Stratosphere.ResourceProperties.EFSAccessPointAccessPointTag as X+import Stratosphere.ResourceProperties.EFSAccessPointCreationInfo as X+import Stratosphere.ResourceProperties.EFSAccessPointPosixUser as X+import Stratosphere.ResourceProperties.EFSAccessPointRootDirectory as X import Stratosphere.ResourceProperties.EFSFileSystemElasticFileSystemTag as X import Stratosphere.ResourceProperties.EFSFileSystemLifecyclePolicy as X import Stratosphere.ResourceProperties.EKSClusterEncryptionConfig as X@@ -1210,6 +1221,7 @@ import Stratosphere.ResourceProperties.EventsRuleBatchParameters as X import Stratosphere.ResourceProperties.EventsRuleBatchRetryStrategy as X import Stratosphere.ResourceProperties.EventsRuleEcsParameters as X+import Stratosphere.ResourceProperties.EventsRuleHttpParameters as X import Stratosphere.ResourceProperties.EventsRuleInputTransformer as X import Stratosphere.ResourceProperties.EventsRuleKinesisParameters as X import Stratosphere.ResourceProperties.EventsRuleNetworkConfiguration as X@@ -1348,6 +1360,7 @@ import Stratosphere.ResourceProperties.ImageBuilderInfrastructureConfigurationS3Logs as X import Stratosphere.ResourceProperties.IoT1ClickProjectDeviceTemplate as X import Stratosphere.ResourceProperties.IoT1ClickProjectPlacementTemplate as X+import Stratosphere.ResourceProperties.IoTProvisioningTemplateProvisioningHook as X import Stratosphere.ResourceProperties.IoTThingAttributePayload as X import Stratosphere.ResourceProperties.IoTTopicRuleAction as X import Stratosphere.ResourceProperties.IoTTopicRuleAssetPropertyTimestamp as X@@ -1528,11 +1541,13 @@ import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessor as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessorParameter as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration as X+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamRedshiftRetryOptions as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamS3DestinationConfiguration as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamSchemaConfiguration as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamSerializer as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamSplunkDestinationConfiguration as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamSplunkRetryOptions as X+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamVpcConfiguration as X import Stratosphere.ResourceProperties.LakeFormationDataLakeSettingsDataLakePrincipal as X import Stratosphere.ResourceProperties.LakeFormationPermissionsColumnWildcard as X import Stratosphere.ResourceProperties.LakeFormationPermissionsDataLakePrincipal as X@@ -1691,6 +1706,9 @@ import Stratosphere.ResourceProperties.RDSDBClusterScalingConfiguration as X import Stratosphere.ResourceProperties.RDSDBInstanceDBInstanceRole as X import Stratosphere.ResourceProperties.RDSDBInstanceProcessorFeature as X+import Stratosphere.ResourceProperties.RDSDBProxyAuthFormat as X+import Stratosphere.ResourceProperties.RDSDBProxyTagFormat as X+import Stratosphere.ResourceProperties.RDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormat as X import Stratosphere.ResourceProperties.RDSDBSecurityGroupIngressProperty as X import Stratosphere.ResourceProperties.RDSOptionGroupOptionConfiguration as X import Stratosphere.ResourceProperties.RDSOptionGroupOptionSetting as X@@ -1730,6 +1748,7 @@ import Stratosphere.ResourceProperties.S3BucketCorsRule as X import Stratosphere.ResourceProperties.S3BucketDataExport as X import Stratosphere.ResourceProperties.S3BucketDefaultRetention as X+import Stratosphere.ResourceProperties.S3BucketDeleteMarkerReplication as X import Stratosphere.ResourceProperties.S3BucketDestination as X import Stratosphere.ResourceProperties.S3BucketEncryptionConfiguration as X import Stratosphere.ResourceProperties.S3BucketFilterRule as X@@ -1737,6 +1756,7 @@ import Stratosphere.ResourceProperties.S3BucketLambdaConfiguration as X import Stratosphere.ResourceProperties.S3BucketLifecycleConfiguration as X import Stratosphere.ResourceProperties.S3BucketLoggingConfiguration as X+import Stratosphere.ResourceProperties.S3BucketMetrics as X import Stratosphere.ResourceProperties.S3BucketMetricsConfiguration as X import Stratosphere.ResourceProperties.S3BucketNoncurrentVersionTransition as X import Stratosphere.ResourceProperties.S3BucketNotificationConfiguration as X@@ -1750,6 +1770,10 @@ import Stratosphere.ResourceProperties.S3BucketReplicationConfiguration as X import Stratosphere.ResourceProperties.S3BucketReplicationDestination as X import Stratosphere.ResourceProperties.S3BucketReplicationRule as X+import Stratosphere.ResourceProperties.S3BucketReplicationRuleAndOperator as X+import Stratosphere.ResourceProperties.S3BucketReplicationRuleFilter as X+import Stratosphere.ResourceProperties.S3BucketReplicationTime as X+import Stratosphere.ResourceProperties.S3BucketReplicationTimeValue as X import Stratosphere.ResourceProperties.S3BucketRoutingRule as X import Stratosphere.ResourceProperties.S3BucketRoutingRuleCondition as X import Stratosphere.ResourceProperties.S3BucketRule as X@@ -1782,7 +1806,6 @@ import Stratosphere.ResourceProperties.SESTemplateTemplate as X import Stratosphere.ResourceProperties.SNSTopicSubscription as X import Stratosphere.ResourceProperties.SSMAssociationInstanceAssociationOutputLocation as X-import Stratosphere.ResourceProperties.SSMAssociationParameterValues as X import Stratosphere.ResourceProperties.SSMAssociationS3OutputLocation as X import Stratosphere.ResourceProperties.SSMAssociationTarget as X import Stratosphere.ResourceProperties.SSMMaintenanceWindowTargetTargets as X@@ -1824,6 +1847,7 @@ import Stratosphere.ResourceProperties.StepFunctionsStateMachineCloudWatchLogsLogGroup as X import Stratosphere.ResourceProperties.StepFunctionsStateMachineLogDestination as X import Stratosphere.ResourceProperties.StepFunctionsStateMachineLoggingConfiguration as X+import Stratosphere.ResourceProperties.StepFunctionsStateMachineS3Location as X import Stratosphere.ResourceProperties.StepFunctionsStateMachineTagsEntry as X import Stratosphere.ResourceProperties.SyntheticsCanaryCode as X import Stratosphere.ResourceProperties.SyntheticsCanaryRunConfig as X

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

@@ -22,7 +22,6 @@   , _apiGatewayV2ApiCorsConfiguration :: Maybe ApiGatewayV2ApiCors   , _apiGatewayV2ApiCredentialsArn :: Maybe (Val Text)   , _apiGatewayV2ApiDescription :: Maybe (Val Text)-  , _apiGatewayV2ApiDisableExecuteApiEndpoint :: Maybe (Val Bool)   , _apiGatewayV2ApiDisableSchemaValidation :: Maybe (Val Bool)   , _apiGatewayV2ApiFailOnWarnings :: Maybe (Val Bool)   , _apiGatewayV2ApiName :: Maybe (Val Text)@@ -47,7 +46,6 @@         , fmap (("CorsConfiguration",) . toJSON) _apiGatewayV2ApiCorsConfiguration         , fmap (("CredentialsArn",) . toJSON) _apiGatewayV2ApiCredentialsArn         , fmap (("Description",) . toJSON) _apiGatewayV2ApiDescription-        , fmap (("DisableExecuteApiEndpoint",) . toJSON) _apiGatewayV2ApiDisableExecuteApiEndpoint         , fmap (("DisableSchemaValidation",) . toJSON) _apiGatewayV2ApiDisableSchemaValidation         , fmap (("FailOnWarnings",) . toJSON) _apiGatewayV2ApiFailOnWarnings         , fmap (("Name",) . toJSON) _apiGatewayV2ApiName@@ -73,7 +71,6 @@   , _apiGatewayV2ApiCorsConfiguration = Nothing   , _apiGatewayV2ApiCredentialsArn = Nothing   , _apiGatewayV2ApiDescription = Nothing-  , _apiGatewayV2ApiDisableExecuteApiEndpoint = Nothing   , _apiGatewayV2ApiDisableSchemaValidation = Nothing   , _apiGatewayV2ApiFailOnWarnings = Nothing   , _apiGatewayV2ApiName = Nothing@@ -112,10 +109,6 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-api.html#cfn-apigatewayv2-api-description agvapDescription :: Lens' ApiGatewayV2Api (Maybe (Val Text)) agvapDescription = lens _apiGatewayV2ApiDescription (\s a -> s { _apiGatewayV2ApiDescription = a })---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-api.html#cfn-apigatewayv2-api-disableexecuteapiendpoint-agvapDisableExecuteApiEndpoint :: Lens' ApiGatewayV2Api (Maybe (Val Bool))-agvapDisableExecuteApiEndpoint = lens _apiGatewayV2ApiDisableExecuteApiEndpoint (\s a -> s { _apiGatewayV2ApiDisableExecuteApiEndpoint = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-api.html#cfn-apigatewayv2-api-disableschemavalidation agvapDisableSchemaValidation :: Lens' ApiGatewayV2Api (Maybe (Val Bool))

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

@@ -15,7 +15,9 @@ -- 'certificateManagerCertificate' for a more convenient constructor. data CertificateManagerCertificate =   CertificateManagerCertificate-  { _certificateManagerCertificateDomainName :: Val Text+  { _certificateManagerCertificateCertificateAuthorityArn :: Maybe (Val Text)+  , _certificateManagerCertificateCertificateTransparencyLoggingPreference :: Maybe (Val Text)+  , _certificateManagerCertificateDomainName :: Val Text   , _certificateManagerCertificateDomainValidationOptions :: Maybe [CertificateManagerCertificateDomainValidationOption]   , _certificateManagerCertificateSubjectAlternativeNames :: Maybe (ValList Text)   , _certificateManagerCertificateTags :: Maybe [Tag]@@ -28,7 +30,9 @@     { resourcePropertiesType = "AWS::CertificateManager::Certificate"     , resourcePropertiesProperties =         hashMapFromList $ catMaybes-        [ (Just . ("DomainName",) . toJSON) _certificateManagerCertificateDomainName+        [ fmap (("CertificateAuthorityArn",) . toJSON) _certificateManagerCertificateCertificateAuthorityArn+        , fmap (("CertificateTransparencyLoggingPreference",) . toJSON) _certificateManagerCertificateCertificateTransparencyLoggingPreference+        , (Just . ("DomainName",) . toJSON) _certificateManagerCertificateDomainName         , fmap (("DomainValidationOptions",) . toJSON) _certificateManagerCertificateDomainValidationOptions         , fmap (("SubjectAlternativeNames",) . toJSON) _certificateManagerCertificateSubjectAlternativeNames         , fmap (("Tags",) . toJSON) _certificateManagerCertificateTags@@ -43,12 +47,22 @@   -> CertificateManagerCertificate certificateManagerCertificate domainNamearg =   CertificateManagerCertificate-  { _certificateManagerCertificateDomainName = domainNamearg+  { _certificateManagerCertificateCertificateAuthorityArn = Nothing+  , _certificateManagerCertificateCertificateTransparencyLoggingPreference = Nothing+  , _certificateManagerCertificateDomainName = domainNamearg   , _certificateManagerCertificateDomainValidationOptions = Nothing   , _certificateManagerCertificateSubjectAlternativeNames = Nothing   , _certificateManagerCertificateTags = Nothing   , _certificateManagerCertificateValidationMethod = Nothing   }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-certificatemanager-certificate.html#cfn-certificatemanager-certificate-certificateauthorityarn+cmcCertificateAuthorityArn :: Lens' CertificateManagerCertificate (Maybe (Val Text))+cmcCertificateAuthorityArn = lens _certificateManagerCertificateCertificateAuthorityArn (\s a -> s { _certificateManagerCertificateCertificateAuthorityArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-certificatemanager-certificate.html#cfn-certificatemanager-certificate-certificatetransparencyloggingpreference+cmcCertificateTransparencyLoggingPreference :: Lens' CertificateManagerCertificate (Maybe (Val Text))+cmcCertificateTransparencyLoggingPreference = lens _certificateManagerCertificateCertificateTransparencyLoggingPreference (\s a -> s { _certificateManagerCertificateCertificateTransparencyLoggingPreference = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-certificatemanager-certificate.html#cfn-certificatemanager-certificate-domainname cmcDomainName :: Lens' CertificateManagerCertificate (Val Text)

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

@@ -14,8 +14,7 @@ -- 'chatbotSlackChannelConfiguration' for a more convenient constructor. data ChatbotSlackChannelConfiguration =   ChatbotSlackChannelConfiguration-  { _chatbotSlackChannelConfigurationArn :: Maybe (Val Text)-  , _chatbotSlackChannelConfigurationConfigurationName :: Val Text+  { _chatbotSlackChannelConfigurationConfigurationName :: Val Text   , _chatbotSlackChannelConfigurationIamRoleArn :: Val Text   , _chatbotSlackChannelConfigurationLoggingLevel :: Maybe (Val LoggingLevel)   , _chatbotSlackChannelConfigurationSlackChannelId :: Val Text@@ -29,8 +28,7 @@     { resourcePropertiesType = "AWS::Chatbot::SlackChannelConfiguration"     , resourcePropertiesProperties =         hashMapFromList $ catMaybes-        [ fmap (("Arn",) . toJSON) _chatbotSlackChannelConfigurationArn-        , (Just . ("ConfigurationName",) . toJSON) _chatbotSlackChannelConfigurationConfigurationName+        [ (Just . ("ConfigurationName",) . toJSON) _chatbotSlackChannelConfigurationConfigurationName         , (Just . ("IamRoleArn",) . toJSON) _chatbotSlackChannelConfigurationIamRoleArn         , fmap (("LoggingLevel",) . toJSON) _chatbotSlackChannelConfigurationLoggingLevel         , (Just . ("SlackChannelId",) . toJSON) _chatbotSlackChannelConfigurationSlackChannelId@@ -49,18 +47,13 @@   -> ChatbotSlackChannelConfiguration chatbotSlackChannelConfiguration configurationNamearg iamRoleArnarg slackChannelIdarg slackWorkspaceIdarg =   ChatbotSlackChannelConfiguration-  { _chatbotSlackChannelConfigurationArn = Nothing-  , _chatbotSlackChannelConfigurationConfigurationName = configurationNamearg+  { _chatbotSlackChannelConfigurationConfigurationName = configurationNamearg   , _chatbotSlackChannelConfigurationIamRoleArn = iamRoleArnarg   , _chatbotSlackChannelConfigurationLoggingLevel = Nothing   , _chatbotSlackChannelConfigurationSlackChannelId = slackChannelIdarg   , _chatbotSlackChannelConfigurationSlackWorkspaceId = slackWorkspaceIdarg   , _chatbotSlackChannelConfigurationSnsTopicArns = Nothing   }---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-chatbot-slackchannelconfiguration.html#cfn-chatbot-slackchannelconfiguration-arn-csccArn :: Lens' ChatbotSlackChannelConfiguration (Maybe (Val Text))-csccArn = lens _chatbotSlackChannelConfigurationArn (\s a -> s { _chatbotSlackChannelConfigurationArn = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-chatbot-slackchannelconfiguration.html#cfn-chatbot-slackchannelconfiguration-configurationname csccConfigurationName :: Lens' ChatbotSlackChannelConfiguration (Val Text)

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

@@ -14,7 +14,8 @@ -- 'codeGuruProfilerProfilingGroup' for a more convenient constructor. data CodeGuruProfilerProfilingGroup =   CodeGuruProfilerProfilingGroup-  { _codeGuruProfilerProfilingGroupProfilingGroupName :: Val Text+  { _codeGuruProfilerProfilingGroupAgentPermissions :: Maybe Object+  , _codeGuruProfilerProfilingGroupProfilingGroupName :: Val Text   } deriving (Show, Eq)  instance ToResourceProperties CodeGuruProfilerProfilingGroup where@@ -23,7 +24,8 @@     { resourcePropertiesType = "AWS::CodeGuruProfiler::ProfilingGroup"     , resourcePropertiesProperties =         hashMapFromList $ catMaybes-        [ (Just . ("ProfilingGroupName",) . toJSON) _codeGuruProfilerProfilingGroupProfilingGroupName+        [ fmap (("AgentPermissions",) . toJSON) _codeGuruProfilerProfilingGroupAgentPermissions+        , (Just . ("ProfilingGroupName",) . toJSON) _codeGuruProfilerProfilingGroupProfilingGroupName         ]     } @@ -34,8 +36,13 @@   -> CodeGuruProfilerProfilingGroup codeGuruProfilerProfilingGroup profilingGroupNamearg =   CodeGuruProfilerProfilingGroup-  { _codeGuruProfilerProfilingGroupProfilingGroupName = profilingGroupNamearg+  { _codeGuruProfilerProfilingGroupAgentPermissions = Nothing+  , _codeGuruProfilerProfilingGroupProfilingGroupName = profilingGroupNamearg   }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codeguruprofiler-profilinggroup.html#cfn-codeguruprofiler-profilinggroup-agentpermissions+cgppgAgentPermissions :: Lens' CodeGuruProfilerProfilingGroup (Maybe Object)+cgppgAgentPermissions = lens _codeGuruProfilerProfilingGroupAgentPermissions (\s a -> s { _codeGuruProfilerProfilingGroupAgentPermissions = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codeguruprofiler-profilinggroup.html#cfn-codeguruprofiler-profilinggroup-profilinggroupname cgppgProfilingGroupName :: Lens' CodeGuruProfilerProfilingGroup (Val Text)

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

@@ -0,0 +1,72 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-prefixlist.html++module Stratosphere.Resources.EC2PrefixList where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.EC2PrefixListEntry+import Stratosphere.ResourceProperties.Tag++-- | Full data type definition for EC2PrefixList. See 'ec2PrefixList' for a+-- more convenient constructor.+data EC2PrefixList =+  EC2PrefixList+  { _eC2PrefixListAddressFamily :: Val Text+  , _eC2PrefixListEntries :: Maybe [EC2PrefixListEntry]+  , _eC2PrefixListMaxEntries :: Val Integer+  , _eC2PrefixListPrefixListName :: Val Text+  , _eC2PrefixListTags :: Maybe [Tag]+  } deriving (Show, Eq)++instance ToResourceProperties EC2PrefixList where+  toResourceProperties EC2PrefixList{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::EC2::PrefixList"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("AddressFamily",) . toJSON) _eC2PrefixListAddressFamily+        , fmap (("Entries",) . toJSON) _eC2PrefixListEntries+        , (Just . ("MaxEntries",) . toJSON) _eC2PrefixListMaxEntries+        , (Just . ("PrefixListName",) . toJSON) _eC2PrefixListPrefixListName+        , fmap (("Tags",) . toJSON) _eC2PrefixListTags+        ]+    }++-- | Constructor for 'EC2PrefixList' containing required fields as arguments.+ec2PrefixList+  :: Val Text -- ^ 'ecplAddressFamily'+  -> Val Integer -- ^ 'ecplMaxEntries'+  -> Val Text -- ^ 'ecplPrefixListName'+  -> EC2PrefixList+ec2PrefixList addressFamilyarg maxEntriesarg prefixListNamearg =+  EC2PrefixList+  { _eC2PrefixListAddressFamily = addressFamilyarg+  , _eC2PrefixListEntries = Nothing+  , _eC2PrefixListMaxEntries = maxEntriesarg+  , _eC2PrefixListPrefixListName = prefixListNamearg+  , _eC2PrefixListTags = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-prefixlist.html#cfn-ec2-prefixlist-addressfamily+ecplAddressFamily :: Lens' EC2PrefixList (Val Text)+ecplAddressFamily = lens _eC2PrefixListAddressFamily (\s a -> s { _eC2PrefixListAddressFamily = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-prefixlist.html#cfn-ec2-prefixlist-entries+ecplEntries :: Lens' EC2PrefixList (Maybe [EC2PrefixListEntry])+ecplEntries = lens _eC2PrefixListEntries (\s a -> s { _eC2PrefixListEntries = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-prefixlist.html#cfn-ec2-prefixlist-maxentries+ecplMaxEntries :: Lens' EC2PrefixList (Val Integer)+ecplMaxEntries = lens _eC2PrefixListMaxEntries (\s a -> s { _eC2PrefixListMaxEntries = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-prefixlist.html#cfn-ec2-prefixlist-prefixlistname+ecplPrefixListName :: Lens' EC2PrefixList (Val Text)+ecplPrefixListName = lens _eC2PrefixListPrefixListName (\s a -> s { _eC2PrefixListPrefixListName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-prefixlist.html#cfn-ec2-prefixlist-tags+ecplTags :: Lens' EC2PrefixList (Maybe [Tag])+ecplTags = lens _eC2PrefixListTags (\s a -> s { _eC2PrefixListTags = a })

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

@@ -20,6 +20,7 @@   , _eC2VolumeIops :: Maybe (Val Integer)   , _eC2VolumeKmsKeyId :: Maybe (Val Text)   , _eC2VolumeMultiAttachEnabled :: Maybe (Val Bool)+  , _eC2VolumeOutpostArn :: Maybe (Val Text)   , _eC2VolumeSize :: Maybe (Val Integer)   , _eC2VolumeSnapshotId :: Maybe (Val Text)   , _eC2VolumeTags :: Maybe [Tag]@@ -38,6 +39,7 @@         , fmap (("Iops",) . toJSON) _eC2VolumeIops         , fmap (("KmsKeyId",) . toJSON) _eC2VolumeKmsKeyId         , fmap (("MultiAttachEnabled",) . toJSON) _eC2VolumeMultiAttachEnabled+        , fmap (("OutpostArn",) . toJSON) _eC2VolumeOutpostArn         , fmap (("Size",) . toJSON) _eC2VolumeSize         , fmap (("SnapshotId",) . toJSON) _eC2VolumeSnapshotId         , fmap (("Tags",) . toJSON) _eC2VolumeTags@@ -57,6 +59,7 @@   , _eC2VolumeIops = Nothing   , _eC2VolumeKmsKeyId = Nothing   , _eC2VolumeMultiAttachEnabled = Nothing+  , _eC2VolumeOutpostArn = Nothing   , _eC2VolumeSize = Nothing   , _eC2VolumeSnapshotId = Nothing   , _eC2VolumeTags = Nothing@@ -86,6 +89,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ebs-volume.html#cfn-ec2-ebs-volume-multiattachenabled ecvMultiAttachEnabled :: Lens' EC2Volume (Maybe (Val Bool)) ecvMultiAttachEnabled = lens _eC2VolumeMultiAttachEnabled (\s a -> s { _eC2VolumeMultiAttachEnabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ebs-volume.html#cfn-ec2-ebs-volume-outpostarn+ecvOutpostArn :: Lens' EC2Volume (Maybe (Val Text))+ecvOutpostArn = lens _eC2VolumeOutpostArn (\s a -> s { _eC2VolumeOutpostArn = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ebs-volume.html#cfn-ec2-ebs-volume-size ecvSize :: Lens' EC2Volume (Maybe (Val Integer))

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

@@ -0,0 +1,71 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-accesspoint.html++module Stratosphere.Resources.EFSAccessPoint where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.EFSAccessPointAccessPointTag+import Stratosphere.ResourceProperties.EFSAccessPointPosixUser+import Stratosphere.ResourceProperties.EFSAccessPointRootDirectory++-- | Full data type definition for EFSAccessPoint. See 'efsAccessPoint' for a+-- more convenient constructor.+data EFSAccessPoint =+  EFSAccessPoint+  { _eFSAccessPointAccessPointTags :: Maybe [EFSAccessPointAccessPointTag]+  , _eFSAccessPointClientToken :: Maybe (Val Text)+  , _eFSAccessPointFileSystemId :: Val Text+  , _eFSAccessPointPosixUser :: Maybe EFSAccessPointPosixUser+  , _eFSAccessPointRootDirectory :: Maybe EFSAccessPointRootDirectory+  } deriving (Show, Eq)++instance ToResourceProperties EFSAccessPoint where+  toResourceProperties EFSAccessPoint{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::EFS::AccessPoint"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("AccessPointTags",) . toJSON) _eFSAccessPointAccessPointTags+        , fmap (("ClientToken",) . toJSON) _eFSAccessPointClientToken+        , (Just . ("FileSystemId",) . toJSON) _eFSAccessPointFileSystemId+        , fmap (("PosixUser",) . toJSON) _eFSAccessPointPosixUser+        , fmap (("RootDirectory",) . toJSON) _eFSAccessPointRootDirectory+        ]+    }++-- | Constructor for 'EFSAccessPoint' containing required fields as arguments.+efsAccessPoint+  :: Val Text -- ^ 'efsapFileSystemId'+  -> EFSAccessPoint+efsAccessPoint fileSystemIdarg =+  EFSAccessPoint+  { _eFSAccessPointAccessPointTags = Nothing+  , _eFSAccessPointClientToken = Nothing+  , _eFSAccessPointFileSystemId = fileSystemIdarg+  , _eFSAccessPointPosixUser = Nothing+  , _eFSAccessPointRootDirectory = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-accesspoint.html#cfn-efs-accesspoint-accesspointtags+efsapAccessPointTags :: Lens' EFSAccessPoint (Maybe [EFSAccessPointAccessPointTag])+efsapAccessPointTags = lens _eFSAccessPointAccessPointTags (\s a -> s { _eFSAccessPointAccessPointTags = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-accesspoint.html#cfn-efs-accesspoint-clienttoken+efsapClientToken :: Lens' EFSAccessPoint (Maybe (Val Text))+efsapClientToken = lens _eFSAccessPointClientToken (\s a -> s { _eFSAccessPointClientToken = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-accesspoint.html#cfn-efs-accesspoint-filesystemid+efsapFileSystemId :: Lens' EFSAccessPoint (Val Text)+efsapFileSystemId = lens _eFSAccessPointFileSystemId (\s a -> s { _eFSAccessPointFileSystemId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-accesspoint.html#cfn-efs-accesspoint-posixuser+efsapPosixUser :: Lens' EFSAccessPoint (Maybe EFSAccessPointPosixUser)+efsapPosixUser = lens _eFSAccessPointPosixUser (\s a -> s { _eFSAccessPointPosixUser = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-accesspoint.html#cfn-efs-accesspoint-rootdirectory+efsapRootDirectory :: Lens' EFSAccessPoint (Maybe EFSAccessPointRootDirectory)+efsapRootDirectory = lens _eFSAccessPointRootDirectory (\s a -> s { _eFSAccessPointRootDirectory = a })

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

@@ -16,6 +16,7 @@ data EFSFileSystem =   EFSFileSystem   { _eFSFileSystemEncrypted :: Maybe (Val Bool)+  , _eFSFileSystemFileSystemPolicy :: Maybe Object   , _eFSFileSystemFileSystemTags :: Maybe [EFSFileSystemElasticFileSystemTag]   , _eFSFileSystemKmsKeyId :: Maybe (Val Text)   , _eFSFileSystemLifecyclePolicies :: Maybe [EFSFileSystemLifecyclePolicy]@@ -31,6 +32,7 @@     , resourcePropertiesProperties =         hashMapFromList $ catMaybes         [ fmap (("Encrypted",) . toJSON) _eFSFileSystemEncrypted+        , fmap (("FileSystemPolicy",) . toJSON) _eFSFileSystemFileSystemPolicy         , fmap (("FileSystemTags",) . toJSON) _eFSFileSystemFileSystemTags         , fmap (("KmsKeyId",) . toJSON) _eFSFileSystemKmsKeyId         , fmap (("LifecyclePolicies",) . toJSON) _eFSFileSystemLifecyclePolicies@@ -46,6 +48,7 @@ efsFileSystem  =   EFSFileSystem   { _eFSFileSystemEncrypted = Nothing+  , _eFSFileSystemFileSystemPolicy = Nothing   , _eFSFileSystemFileSystemTags = Nothing   , _eFSFileSystemKmsKeyId = Nothing   , _eFSFileSystemLifecyclePolicies = Nothing@@ -58,6 +61,10 @@ efsfsEncrypted :: Lens' EFSFileSystem (Maybe (Val Bool)) efsfsEncrypted = lens _eFSFileSystemEncrypted (\s a -> s { _eFSFileSystemEncrypted = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-filesystem.html#cfn-efs-filesystem-filesystempolicy+efsfsFileSystemPolicy :: Lens' EFSFileSystem (Maybe Object)+efsfsFileSystemPolicy = lens _eFSFileSystemFileSystemPolicy (\s a -> s { _eFSFileSystemFileSystemPolicy = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-filesystem.html#cfn-efs-filesystem-filesystemtags efsfsFileSystemTags :: Lens' EFSFileSystem (Maybe [EFSFileSystemElasticFileSystemTag]) efsfsFileSystemTags = lens _eFSFileSystemFileSystemTags (\s a -> s { _eFSFileSystemFileSystemTags = a })@@ -66,7 +73,7 @@ efsfsKmsKeyId :: Lens' EFSFileSystem (Maybe (Val Text)) efsfsKmsKeyId = lens _eFSFileSystemKmsKeyId (\s a -> s { _eFSFileSystemKmsKeyId = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-filesystem.html#cfn-elasticfilesystem-filesystem-lifecyclepolicies+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-filesystem.html#cfn-efs-filesystem-lifecyclepolicies efsfsLifecyclePolicies :: Lens' EFSFileSystem (Maybe [EFSFileSystemLifecyclePolicy]) efsfsLifecyclePolicies = lens _eFSFileSystemLifecyclePolicies (\s a -> s { _eFSFileSystemLifecyclePolicies = a }) @@ -74,10 +81,10 @@ efsfsPerformanceMode :: Lens' EFSFileSystem (Maybe (Val Text)) efsfsPerformanceMode = lens _eFSFileSystemPerformanceMode (\s a -> s { _eFSFileSystemPerformanceMode = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-filesystem.html#cfn-elasticfilesystem-filesystem-provisionedthroughputinmibps+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-filesystem.html#cfn-efs-filesystem-provisionedthroughputinmibps efsfsProvisionedThroughputInMibps :: Lens' EFSFileSystem (Maybe (Val Double)) efsfsProvisionedThroughputInMibps = lens _eFSFileSystemProvisionedThroughputInMibps (\s a -> s { _eFSFileSystemProvisionedThroughputInMibps = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-filesystem.html#cfn-elasticfilesystem-filesystem-throughputmode+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-filesystem.html#cfn-efs-filesystem-throughputmode efsfsThroughputMode :: Lens' EFSFileSystem (Maybe (Val Text)) efsfsThroughputMode = lens _eFSFileSystemThroughputMode (\s a -> s { _eFSFileSystemThroughputMode = a })

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

@@ -26,6 +26,7 @@   , _elastiCacheReplicationGroupEngine :: Maybe (Val Text)   , _elastiCacheReplicationGroupEngineVersion :: Maybe (Val Text)   , _elastiCacheReplicationGroupKmsKeyId :: Maybe (Val Text)+  , _elastiCacheReplicationGroupMultiAZEnabled :: Maybe (Val Bool)   , _elastiCacheReplicationGroupNodeGroupConfiguration :: Maybe [ElastiCacheReplicationGroupNodeGroupConfiguration]   , _elastiCacheReplicationGroupNotificationTopicArn :: Maybe (Val Text)   , _elastiCacheReplicationGroupNumCacheClusters :: Maybe (Val Integer)@@ -64,6 +65,7 @@         , fmap (("Engine",) . toJSON) _elastiCacheReplicationGroupEngine         , fmap (("EngineVersion",) . toJSON) _elastiCacheReplicationGroupEngineVersion         , fmap (("KmsKeyId",) . toJSON) _elastiCacheReplicationGroupKmsKeyId+        , fmap (("MultiAZEnabled",) . toJSON) _elastiCacheReplicationGroupMultiAZEnabled         , fmap (("NodeGroupConfiguration",) . toJSON) _elastiCacheReplicationGroupNodeGroupConfiguration         , fmap (("NotificationTopicArn",) . toJSON) _elastiCacheReplicationGroupNotificationTopicArn         , fmap (("NumCacheClusters",) . toJSON) _elastiCacheReplicationGroupNumCacheClusters@@ -104,6 +106,7 @@   , _elastiCacheReplicationGroupEngine = Nothing   , _elastiCacheReplicationGroupEngineVersion = Nothing   , _elastiCacheReplicationGroupKmsKeyId = Nothing+  , _elastiCacheReplicationGroupMultiAZEnabled = Nothing   , _elastiCacheReplicationGroupNodeGroupConfiguration = Nothing   , _elastiCacheReplicationGroupNotificationTopicArn = Nothing   , _elastiCacheReplicationGroupNumCacheClusters = Nothing@@ -168,6 +171,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-kmskeyid ecrgKmsKeyId :: Lens' ElastiCacheReplicationGroup (Maybe (Val Text)) ecrgKmsKeyId = lens _elastiCacheReplicationGroupKmsKeyId (\s a -> s { _elastiCacheReplicationGroupKmsKeyId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-multiazenabled+ecrgMultiAZEnabled :: Lens' ElastiCacheReplicationGroup (Maybe (Val Bool))+ecrgMultiAZEnabled = lens _elastiCacheReplicationGroupMultiAZEnabled (\s a -> s { _elastiCacheReplicationGroupMultiAZEnabled = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-nodegroupconfiguration ecrgNodeGroupConfiguration :: Lens' ElastiCacheReplicationGroup (Maybe [ElastiCacheReplicationGroupNodeGroupConfiguration])

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

@@ -8,8 +8,8 @@ module Stratosphere.Resources.GuardDutyFilter where  import Stratosphere.ResourceImports-import Stratosphere.ResourceProperties.GuardDutyFilterFindingCriteria + -- | Full data type definition for GuardDutyFilter. See 'guardDutyFilter' for -- a more convenient constructor. data GuardDutyFilter =@@ -17,7 +17,6 @@   { _guardDutyFilterAction :: Val Text   , _guardDutyFilterDescription :: Val Text   , _guardDutyFilterDetectorId :: Val Text-  , _guardDutyFilterFindingCriteria :: GuardDutyFilterFindingCriteria   , _guardDutyFilterName :: Val Text   , _guardDutyFilterRank :: Val Integer   } deriving (Show, Eq)@@ -31,7 +30,6 @@         [ (Just . ("Action",) . toJSON) _guardDutyFilterAction         , (Just . ("Description",) . toJSON) _guardDutyFilterDescription         , (Just . ("DetectorId",) . toJSON) _guardDutyFilterDetectorId-        , (Just . ("FindingCriteria",) . toJSON) _guardDutyFilterFindingCriteria         , (Just . ("Name",) . toJSON) _guardDutyFilterName         , (Just . ("Rank",) . toJSON) _guardDutyFilterRank         ]@@ -43,16 +41,14 @@   :: Val Text -- ^ 'gdfAction'   -> Val Text -- ^ 'gdfDescription'   -> Val Text -- ^ 'gdfDetectorId'-  -> GuardDutyFilterFindingCriteria -- ^ 'gdfFindingCriteria'   -> Val Text -- ^ 'gdfName'   -> Val Integer -- ^ 'gdfRank'   -> GuardDutyFilter-guardDutyFilter actionarg descriptionarg detectorIdarg findingCriteriaarg namearg rankarg =+guardDutyFilter actionarg descriptionarg detectorIdarg namearg rankarg =   GuardDutyFilter   { _guardDutyFilterAction = actionarg   , _guardDutyFilterDescription = descriptionarg   , _guardDutyFilterDetectorId = detectorIdarg-  , _guardDutyFilterFindingCriteria = findingCriteriaarg   , _guardDutyFilterName = namearg   , _guardDutyFilterRank = rankarg   }@@ -68,10 +64,6 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-filter.html#cfn-guardduty-filter-detectorid gdfDetectorId :: Lens' GuardDutyFilter (Val Text) gdfDetectorId = lens _guardDutyFilterDetectorId (\s a -> s { _guardDutyFilterDetectorId = a })---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-filter.html#cfn-guardduty-filter-findingcriteria-gdfFindingCriteria :: Lens' GuardDutyFilter GuardDutyFilterFindingCriteria-gdfFindingCriteria = lens _guardDutyFilterFindingCriteria (\s a -> s { _guardDutyFilterFindingCriteria = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-filter.html#cfn-guardduty-filter-name gdfName :: Lens' GuardDutyFilter (Val Text)

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

@@ -0,0 +1,85 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot-provisioningtemplate.html++module Stratosphere.Resources.IoTProvisioningTemplate where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.IoTProvisioningTemplateProvisioningHook++-- | Full data type definition for IoTProvisioningTemplate. See+-- 'ioTProvisioningTemplate' for a more convenient constructor.+data IoTProvisioningTemplate =+  IoTProvisioningTemplate+  { _ioTProvisioningTemplateDescription :: Maybe (Val Text)+  , _ioTProvisioningTemplateEnabled :: Maybe (Val Bool)+  , _ioTProvisioningTemplatePreProvisioningHook :: Maybe IoTProvisioningTemplateProvisioningHook+  , _ioTProvisioningTemplateProvisioningRoleArn :: Val Text+  , _ioTProvisioningTemplateTags :: Maybe [Object]+  , _ioTProvisioningTemplateTemplateBody :: Val Text+  , _ioTProvisioningTemplateTemplateName :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToResourceProperties IoTProvisioningTemplate where+  toResourceProperties IoTProvisioningTemplate{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::IoT::ProvisioningTemplate"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("Description",) . toJSON) _ioTProvisioningTemplateDescription+        , fmap (("Enabled",) . toJSON) _ioTProvisioningTemplateEnabled+        , fmap (("PreProvisioningHook",) . toJSON) _ioTProvisioningTemplatePreProvisioningHook+        , (Just . ("ProvisioningRoleArn",) . toJSON) _ioTProvisioningTemplateProvisioningRoleArn+        , fmap (("Tags",) . toJSON) _ioTProvisioningTemplateTags+        , (Just . ("TemplateBody",) . toJSON) _ioTProvisioningTemplateTemplateBody+        , fmap (("TemplateName",) . toJSON) _ioTProvisioningTemplateTemplateName+        ]+    }++-- | Constructor for 'IoTProvisioningTemplate' containing required fields as+-- arguments.+ioTProvisioningTemplate+  :: Val Text -- ^ 'itptProvisioningRoleArn'+  -> Val Text -- ^ 'itptTemplateBody'+  -> IoTProvisioningTemplate+ioTProvisioningTemplate provisioningRoleArnarg templateBodyarg =+  IoTProvisioningTemplate+  { _ioTProvisioningTemplateDescription = Nothing+  , _ioTProvisioningTemplateEnabled = Nothing+  , _ioTProvisioningTemplatePreProvisioningHook = Nothing+  , _ioTProvisioningTemplateProvisioningRoleArn = provisioningRoleArnarg+  , _ioTProvisioningTemplateTags = Nothing+  , _ioTProvisioningTemplateTemplateBody = templateBodyarg+  , _ioTProvisioningTemplateTemplateName = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot-provisioningtemplate.html#cfn-iot-provisioningtemplate-description+itptDescription :: Lens' IoTProvisioningTemplate (Maybe (Val Text))+itptDescription = lens _ioTProvisioningTemplateDescription (\s a -> s { _ioTProvisioningTemplateDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot-provisioningtemplate.html#cfn-iot-provisioningtemplate-enabled+itptEnabled :: Lens' IoTProvisioningTemplate (Maybe (Val Bool))+itptEnabled = lens _ioTProvisioningTemplateEnabled (\s a -> s { _ioTProvisioningTemplateEnabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot-provisioningtemplate.html#cfn-iot-provisioningtemplate-preprovisioninghook+itptPreProvisioningHook :: Lens' IoTProvisioningTemplate (Maybe IoTProvisioningTemplateProvisioningHook)+itptPreProvisioningHook = lens _ioTProvisioningTemplatePreProvisioningHook (\s a -> s { _ioTProvisioningTemplatePreProvisioningHook = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot-provisioningtemplate.html#cfn-iot-provisioningtemplate-provisioningrolearn+itptProvisioningRoleArn :: Lens' IoTProvisioningTemplate (Val Text)+itptProvisioningRoleArn = lens _ioTProvisioningTemplateProvisioningRoleArn (\s a -> s { _ioTProvisioningTemplateProvisioningRoleArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot-provisioningtemplate.html#cfn-iot-provisioningtemplate-tags+itptTags :: Lens' IoTProvisioningTemplate (Maybe [Object])+itptTags = lens _ioTProvisioningTemplateTags (\s a -> s { _ioTProvisioningTemplateTags = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot-provisioningtemplate.html#cfn-iot-provisioningtemplate-templatebody+itptTemplateBody :: Lens' IoTProvisioningTemplate (Val Text)+itptTemplateBody = lens _ioTProvisioningTemplateTemplateBody (\s a -> s { _ioTProvisioningTemplateTemplateBody = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot-provisioningtemplate.html#cfn-iot-provisioningtemplate-templatename+itptTemplateName :: Lens' IoTProvisioningTemplate (Maybe (Val Text))+itptTemplateName = lens _ioTProvisioningTemplateTemplateName (\s a -> s { _ioTProvisioningTemplateTemplateName = a })

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

@@ -16,7 +16,7 @@   MacieFindingsFilter   { _macieFindingsFilterAction :: Maybe (Val Text)   , _macieFindingsFilterDescription :: Maybe (Val Text)-  , _macieFindingsFilterName :: Maybe (Val Text)+  , _macieFindingsFilterName :: Val Text   , _macieFindingsFilterPosition :: Maybe (Val Integer)   } deriving (Show, Eq) @@ -28,7 +28,7 @@         hashMapFromList $ catMaybes         [ fmap (("Action",) . toJSON) _macieFindingsFilterAction         , fmap (("Description",) . toJSON) _macieFindingsFilterDescription-        , fmap (("Name",) . toJSON) _macieFindingsFilterName+        , (Just . ("Name",) . toJSON) _macieFindingsFilterName         , fmap (("Position",) . toJSON) _macieFindingsFilterPosition         ]     }@@ -36,12 +36,13 @@ -- | Constructor for 'MacieFindingsFilter' containing required fields as -- arguments. macieFindingsFilter-  :: MacieFindingsFilter-macieFindingsFilter  =+  :: Val Text -- ^ 'mffName'+  -> MacieFindingsFilter+macieFindingsFilter namearg =   MacieFindingsFilter   { _macieFindingsFilterAction = Nothing   , _macieFindingsFilterDescription = Nothing-  , _macieFindingsFilterName = Nothing+  , _macieFindingsFilterName = namearg   , _macieFindingsFilterPosition = Nothing   } @@ -54,7 +55,7 @@ mffDescription = lens _macieFindingsFilterDescription (\s a -> s { _macieFindingsFilterDescription = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-macie-findingsfilter.html#cfn-macie-findingsfilter-name-mffName :: Lens' MacieFindingsFilter (Maybe (Val Text))+mffName :: Lens' MacieFindingsFilter (Val Text) mffName = lens _macieFindingsFilterName (\s a -> s { _macieFindingsFilterName = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-macie-findingsfilter.html#cfn-macie-findingsfilter-position

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

@@ -27,9 +27,13 @@   , _neptuneDBClusterPort :: Maybe (Val Integer)   , _neptuneDBClusterPreferredBackupWindow :: Maybe (Val Text)   , _neptuneDBClusterPreferredMaintenanceWindow :: Maybe (Val Text)+  , _neptuneDBClusterRestoreToTime :: Maybe (Val Text)+  , _neptuneDBClusterRestoreType :: Maybe (Val Text)   , _neptuneDBClusterSnapshotIdentifier :: Maybe (Val Text)+  , _neptuneDBClusterSourceDBClusterIdentifier :: Maybe (Val Text)   , _neptuneDBClusterStorageEncrypted :: Maybe (Val Bool)   , _neptuneDBClusterTags :: Maybe [Tag]+  , _neptuneDBClusterUseLatestRestorableTime :: Maybe (Val Bool)   , _neptuneDBClusterVpcSecurityGroupIds :: Maybe (ValList Text)   } deriving (Show, Eq) @@ -52,9 +56,13 @@         , fmap (("Port",) . toJSON) _neptuneDBClusterPort         , fmap (("PreferredBackupWindow",) . toJSON) _neptuneDBClusterPreferredBackupWindow         , fmap (("PreferredMaintenanceWindow",) . toJSON) _neptuneDBClusterPreferredMaintenanceWindow+        , fmap (("RestoreToTime",) . toJSON) _neptuneDBClusterRestoreToTime+        , fmap (("RestoreType",) . toJSON) _neptuneDBClusterRestoreType         , fmap (("SnapshotIdentifier",) . toJSON) _neptuneDBClusterSnapshotIdentifier+        , fmap (("SourceDBClusterIdentifier",) . toJSON) _neptuneDBClusterSourceDBClusterIdentifier         , fmap (("StorageEncrypted",) . toJSON) _neptuneDBClusterStorageEncrypted         , fmap (("Tags",) . toJSON) _neptuneDBClusterTags+        , fmap (("UseLatestRestorableTime",) . toJSON) _neptuneDBClusterUseLatestRestorableTime         , fmap (("VpcSecurityGroupIds",) . toJSON) _neptuneDBClusterVpcSecurityGroupIds         ]     }@@ -78,9 +86,13 @@   , _neptuneDBClusterPort = Nothing   , _neptuneDBClusterPreferredBackupWindow = Nothing   , _neptuneDBClusterPreferredMaintenanceWindow = Nothing+  , _neptuneDBClusterRestoreToTime = Nothing+  , _neptuneDBClusterRestoreType = Nothing   , _neptuneDBClusterSnapshotIdentifier = Nothing+  , _neptuneDBClusterSourceDBClusterIdentifier = Nothing   , _neptuneDBClusterStorageEncrypted = Nothing   , _neptuneDBClusterTags = Nothing+  , _neptuneDBClusterUseLatestRestorableTime = Nothing   , _neptuneDBClusterVpcSecurityGroupIds = Nothing   } @@ -136,10 +148,22 @@ ndbcPreferredMaintenanceWindow :: Lens' NeptuneDBCluster (Maybe (Val Text)) ndbcPreferredMaintenanceWindow = lens _neptuneDBClusterPreferredMaintenanceWindow (\s a -> s { _neptuneDBClusterPreferredMaintenanceWindow = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-restoretotime+ndbcRestoreToTime :: Lens' NeptuneDBCluster (Maybe (Val Text))+ndbcRestoreToTime = lens _neptuneDBClusterRestoreToTime (\s a -> s { _neptuneDBClusterRestoreToTime = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-restoretype+ndbcRestoreType :: Lens' NeptuneDBCluster (Maybe (Val Text))+ndbcRestoreType = lens _neptuneDBClusterRestoreType (\s a -> s { _neptuneDBClusterRestoreType = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-snapshotidentifier ndbcSnapshotIdentifier :: Lens' NeptuneDBCluster (Maybe (Val Text)) ndbcSnapshotIdentifier = lens _neptuneDBClusterSnapshotIdentifier (\s a -> s { _neptuneDBClusterSnapshotIdentifier = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-sourcedbclusteridentifier+ndbcSourceDBClusterIdentifier :: Lens' NeptuneDBCluster (Maybe (Val Text))+ndbcSourceDBClusterIdentifier = lens _neptuneDBClusterSourceDBClusterIdentifier (\s a -> s { _neptuneDBClusterSourceDBClusterIdentifier = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-storageencrypted ndbcStorageEncrypted :: Lens' NeptuneDBCluster (Maybe (Val Bool)) ndbcStorageEncrypted = lens _neptuneDBClusterStorageEncrypted (\s a -> s { _neptuneDBClusterStorageEncrypted = a })@@ -147,6 +171,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-tags ndbcTags :: Lens' NeptuneDBCluster (Maybe [Tag]) ndbcTags = lens _neptuneDBClusterTags (\s a -> s { _neptuneDBClusterTags = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-uselatestrestorabletime+ndbcUseLatestRestorableTime :: Lens' NeptuneDBCluster (Maybe (Val Bool))+ndbcUseLatestRestorableTime = lens _neptuneDBClusterUseLatestRestorableTime (\s a -> s { _neptuneDBClusterUseLatestRestorableTime = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-vpcsecuritygroupids ndbcVpcSecurityGroupIds :: Lens' NeptuneDBCluster (Maybe (ValList Text))

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

@@ -0,0 +1,109 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbproxy.html++module Stratosphere.Resources.RDSDBProxy where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.RDSDBProxyAuthFormat+import Stratosphere.ResourceProperties.RDSDBProxyTagFormat++-- | Full data type definition for RDSDBProxy. See 'rdsdbProxy' for a more+-- convenient constructor.+data RDSDBProxy =+  RDSDBProxy+  { _rDSDBProxyAuth :: [RDSDBProxyAuthFormat]+  , _rDSDBProxyDBProxyName :: Val Text+  , _rDSDBProxyDebugLogging :: Maybe (Val Bool)+  , _rDSDBProxyEngineFamily :: Val Text+  , _rDSDBProxyIdleClientTimeout :: Maybe (Val Integer)+  , _rDSDBProxyRequireTLS :: Maybe (Val Bool)+  , _rDSDBProxyRoleArn :: Val Text+  , _rDSDBProxyTags :: Maybe [RDSDBProxyTagFormat]+  , _rDSDBProxyVpcSecurityGroupIds :: Maybe (ValList Text)+  , _rDSDBProxyVpcSubnetIds :: ValList Text+  } deriving (Show, Eq)++instance ToResourceProperties RDSDBProxy where+  toResourceProperties RDSDBProxy{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::RDS::DBProxy"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("Auth",) . toJSON) _rDSDBProxyAuth+        , (Just . ("DBProxyName",) . toJSON) _rDSDBProxyDBProxyName+        , fmap (("DebugLogging",) . toJSON) _rDSDBProxyDebugLogging+        , (Just . ("EngineFamily",) . toJSON) _rDSDBProxyEngineFamily+        , fmap (("IdleClientTimeout",) . toJSON) _rDSDBProxyIdleClientTimeout+        , fmap (("RequireTLS",) . toJSON) _rDSDBProxyRequireTLS+        , (Just . ("RoleArn",) . toJSON) _rDSDBProxyRoleArn+        , fmap (("Tags",) . toJSON) _rDSDBProxyTags+        , fmap (("VpcSecurityGroupIds",) . toJSON) _rDSDBProxyVpcSecurityGroupIds+        , (Just . ("VpcSubnetIds",) . toJSON) _rDSDBProxyVpcSubnetIds+        ]+    }++-- | Constructor for 'RDSDBProxy' containing required fields as arguments.+rdsdbProxy+  :: [RDSDBProxyAuthFormat] -- ^ 'rdsdbpAuth'+  -> Val Text -- ^ 'rdsdbpDBProxyName'+  -> Val Text -- ^ 'rdsdbpEngineFamily'+  -> Val Text -- ^ 'rdsdbpRoleArn'+  -> ValList Text -- ^ 'rdsdbpVpcSubnetIds'+  -> RDSDBProxy+rdsdbProxy autharg dBProxyNamearg engineFamilyarg roleArnarg vpcSubnetIdsarg =+  RDSDBProxy+  { _rDSDBProxyAuth = autharg+  , _rDSDBProxyDBProxyName = dBProxyNamearg+  , _rDSDBProxyDebugLogging = Nothing+  , _rDSDBProxyEngineFamily = engineFamilyarg+  , _rDSDBProxyIdleClientTimeout = Nothing+  , _rDSDBProxyRequireTLS = Nothing+  , _rDSDBProxyRoleArn = roleArnarg+  , _rDSDBProxyTags = Nothing+  , _rDSDBProxyVpcSecurityGroupIds = Nothing+  , _rDSDBProxyVpcSubnetIds = vpcSubnetIdsarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbproxy.html#cfn-rds-dbproxy-auth+rdsdbpAuth :: Lens' RDSDBProxy [RDSDBProxyAuthFormat]+rdsdbpAuth = lens _rDSDBProxyAuth (\s a -> s { _rDSDBProxyAuth = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbproxy.html#cfn-rds-dbproxy-dbproxyname+rdsdbpDBProxyName :: Lens' RDSDBProxy (Val Text)+rdsdbpDBProxyName = lens _rDSDBProxyDBProxyName (\s a -> s { _rDSDBProxyDBProxyName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbproxy.html#cfn-rds-dbproxy-debuglogging+rdsdbpDebugLogging :: Lens' RDSDBProxy (Maybe (Val Bool))+rdsdbpDebugLogging = lens _rDSDBProxyDebugLogging (\s a -> s { _rDSDBProxyDebugLogging = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbproxy.html#cfn-rds-dbproxy-enginefamily+rdsdbpEngineFamily :: Lens' RDSDBProxy (Val Text)+rdsdbpEngineFamily = lens _rDSDBProxyEngineFamily (\s a -> s { _rDSDBProxyEngineFamily = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbproxy.html#cfn-rds-dbproxy-idleclienttimeout+rdsdbpIdleClientTimeout :: Lens' RDSDBProxy (Maybe (Val Integer))+rdsdbpIdleClientTimeout = lens _rDSDBProxyIdleClientTimeout (\s a -> s { _rDSDBProxyIdleClientTimeout = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbproxy.html#cfn-rds-dbproxy-requiretls+rdsdbpRequireTLS :: Lens' RDSDBProxy (Maybe (Val Bool))+rdsdbpRequireTLS = lens _rDSDBProxyRequireTLS (\s a -> s { _rDSDBProxyRequireTLS = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbproxy.html#cfn-rds-dbproxy-rolearn+rdsdbpRoleArn :: Lens' RDSDBProxy (Val Text)+rdsdbpRoleArn = lens _rDSDBProxyRoleArn (\s a -> s { _rDSDBProxyRoleArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbproxy.html#cfn-rds-dbproxy-tags+rdsdbpTags :: Lens' RDSDBProxy (Maybe [RDSDBProxyTagFormat])+rdsdbpTags = lens _rDSDBProxyTags (\s a -> s { _rDSDBProxyTags = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbproxy.html#cfn-rds-dbproxy-vpcsecuritygroupids+rdsdbpVpcSecurityGroupIds :: Lens' RDSDBProxy (Maybe (ValList Text))+rdsdbpVpcSecurityGroupIds = lens _rDSDBProxyVpcSecurityGroupIds (\s a -> s { _rDSDBProxyVpcSecurityGroupIds = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbproxy.html#cfn-rds-dbproxy-vpcsubnetids+rdsdbpVpcSubnetIds :: Lens' RDSDBProxy (ValList Text)+rdsdbpVpcSubnetIds = lens _rDSDBProxyVpcSubnetIds (\s a -> s { _rDSDBProxyVpcSubnetIds = a })

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

@@ -0,0 +1,63 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbproxytargetgroup.html++module Stratosphere.Resources.RDSDBProxyTargetGroup where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.RDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormat++-- | Full data type definition for RDSDBProxyTargetGroup. See+-- 'rdsdbProxyTargetGroup' for a more convenient constructor.+data RDSDBProxyTargetGroup =+  RDSDBProxyTargetGroup+  { _rDSDBProxyTargetGroupConnectionPoolConfigurationInfo :: Maybe RDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormat+  , _rDSDBProxyTargetGroupDBClusterIdentifiers :: Maybe (ValList Text)+  , _rDSDBProxyTargetGroupDBInstanceIdentifiers :: Maybe (ValList Text)+  , _rDSDBProxyTargetGroupDBProxyName :: Val Text+  } deriving (Show, Eq)++instance ToResourceProperties RDSDBProxyTargetGroup where+  toResourceProperties RDSDBProxyTargetGroup{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::RDS::DBProxyTargetGroup"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("ConnectionPoolConfigurationInfo",) . toJSON) _rDSDBProxyTargetGroupConnectionPoolConfigurationInfo+        , fmap (("DBClusterIdentifiers",) . toJSON) _rDSDBProxyTargetGroupDBClusterIdentifiers+        , fmap (("DBInstanceIdentifiers",) . toJSON) _rDSDBProxyTargetGroupDBInstanceIdentifiers+        , (Just . ("DBProxyName",) . toJSON) _rDSDBProxyTargetGroupDBProxyName+        ]+    }++-- | Constructor for 'RDSDBProxyTargetGroup' containing required fields as+-- arguments.+rdsdbProxyTargetGroup+  :: Val Text -- ^ 'rdsdbptgDBProxyName'+  -> RDSDBProxyTargetGroup+rdsdbProxyTargetGroup dBProxyNamearg =+  RDSDBProxyTargetGroup+  { _rDSDBProxyTargetGroupConnectionPoolConfigurationInfo = Nothing+  , _rDSDBProxyTargetGroupDBClusterIdentifiers = Nothing+  , _rDSDBProxyTargetGroupDBInstanceIdentifiers = Nothing+  , _rDSDBProxyTargetGroupDBProxyName = dBProxyNamearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbproxytargetgroup.html#cfn-rds-dbproxytargetgroup-connectionpoolconfigurationinfo+rdsdbptgConnectionPoolConfigurationInfo :: Lens' RDSDBProxyTargetGroup (Maybe RDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormat)+rdsdbptgConnectionPoolConfigurationInfo = lens _rDSDBProxyTargetGroupConnectionPoolConfigurationInfo (\s a -> s { _rDSDBProxyTargetGroupConnectionPoolConfigurationInfo = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbproxytargetgroup.html#cfn-rds-dbproxytargetgroup-dbclusteridentifiers+rdsdbptgDBClusterIdentifiers :: Lens' RDSDBProxyTargetGroup (Maybe (ValList Text))+rdsdbptgDBClusterIdentifiers = lens _rDSDBProxyTargetGroupDBClusterIdentifiers (\s a -> s { _rDSDBProxyTargetGroupDBClusterIdentifiers = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbproxytargetgroup.html#cfn-rds-dbproxytargetgroup-dbinstanceidentifiers+rdsdbptgDBInstanceIdentifiers :: Lens' RDSDBProxyTargetGroup (Maybe (ValList Text))+rdsdbptgDBInstanceIdentifiers = lens _rDSDBProxyTargetGroupDBInstanceIdentifiers (\s a -> s { _rDSDBProxyTargetGroupDBInstanceIdentifiers = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbproxytargetgroup.html#cfn-rds-dbproxytargetgroup-dbproxyname+rdsdbptgDBProxyName :: Lens' RDSDBProxyTargetGroup (Val Text)+rdsdbptgDBProxyName = lens _rDSDBProxyTargetGroupDBProxyName (\s a -> s { _rDSDBProxyTargetGroupDBProxyName = a })

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

@@ -15,7 +15,9 @@ -- convenient constructor. data SNSTopic =   SNSTopic-  { _sNSTopicDisplayName :: Maybe (Val Text)+  { _sNSTopicContentBasedDeduplication :: Maybe (Val Bool)+  , _sNSTopicDisplayName :: Maybe (Val Text)+  , _sNSTopicFifoTopic :: Maybe (Val Bool)   , _sNSTopicKmsMasterKeyId :: Maybe (Val Text)   , _sNSTopicSubscription :: Maybe [SNSTopicSubscription]   , _sNSTopicTags :: Maybe [Tag]@@ -28,7 +30,9 @@     { resourcePropertiesType = "AWS::SNS::Topic"     , resourcePropertiesProperties =         hashMapFromList $ catMaybes-        [ fmap (("DisplayName",) . toJSON) _sNSTopicDisplayName+        [ fmap (("ContentBasedDeduplication",) . toJSON) _sNSTopicContentBasedDeduplication+        , fmap (("DisplayName",) . toJSON) _sNSTopicDisplayName+        , fmap (("FifoTopic",) . toJSON) _sNSTopicFifoTopic         , fmap (("KmsMasterKeyId",) . toJSON) _sNSTopicKmsMasterKeyId         , fmap (("Subscription",) . toJSON) _sNSTopicSubscription         , fmap (("Tags",) . toJSON) _sNSTopicTags@@ -41,16 +45,26 @@   :: SNSTopic snsTopic  =   SNSTopic-  { _sNSTopicDisplayName = Nothing+  { _sNSTopicContentBasedDeduplication = Nothing+  , _sNSTopicDisplayName = Nothing+  , _sNSTopicFifoTopic = Nothing   , _sNSTopicKmsMasterKeyId = Nothing   , _sNSTopicSubscription = Nothing   , _sNSTopicTags = Nothing   , _sNSTopicTopicName = Nothing   } +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sns-topic.html#cfn-sns-topic-contentbaseddeduplication+snstContentBasedDeduplication :: Lens' SNSTopic (Maybe (Val Bool))+snstContentBasedDeduplication = lens _sNSTopicContentBasedDeduplication (\s a -> s { _sNSTopicContentBasedDeduplication = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sns-topic.html#cfn-sns-topic-displayname snstDisplayName :: Lens' SNSTopic (Maybe (Val Text)) snstDisplayName = lens _sNSTopicDisplayName (\s a -> s { _sNSTopicDisplayName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sns-topic.html#cfn-sns-topic-fifotopic+snstFifoTopic :: Lens' SNSTopic (Maybe (Val Bool))+snstFifoTopic = lens _sNSTopicFifoTopic (\s a -> s { _sNSTopicFifoTopic = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sns-topic.html#cfn-sns-topic-kmsmasterkeyid snstKmsMasterKeyId :: Lens' SNSTopic (Maybe (Val Text))

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

@@ -9,7 +9,6 @@  import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.SSMAssociationInstanceAssociationOutputLocation-import Stratosphere.ResourceProperties.SSMAssociationParameterValues import Stratosphere.ResourceProperties.SSMAssociationTarget  -- | Full data type definition for SSMAssociation. See 'ssmAssociation' for a@@ -25,7 +24,6 @@   , _sSMAssociationMaxErrors :: Maybe (Val Text)   , _sSMAssociationName :: Val Text   , _sSMAssociationOutputLocation :: Maybe SSMAssociationInstanceAssociationOutputLocation-  , _sSMAssociationParameters :: Maybe (Map Text SSMAssociationParameterValues)   , _sSMAssociationScheduleExpression :: Maybe (Val Text)   , _sSMAssociationSyncCompliance :: Maybe (Val Text)   , _sSMAssociationTargets :: Maybe [SSMAssociationTarget]@@ -47,7 +45,6 @@         , fmap (("MaxErrors",) . toJSON) _sSMAssociationMaxErrors         , (Just . ("Name",) . toJSON) _sSMAssociationName         , fmap (("OutputLocation",) . toJSON) _sSMAssociationOutputLocation-        , fmap (("Parameters",) . toJSON) _sSMAssociationParameters         , fmap (("ScheduleExpression",) . toJSON) _sSMAssociationScheduleExpression         , fmap (("SyncCompliance",) . toJSON) _sSMAssociationSyncCompliance         , fmap (("Targets",) . toJSON) _sSMAssociationTargets@@ -70,7 +67,6 @@   , _sSMAssociationMaxErrors = Nothing   , _sSMAssociationName = namearg   , _sSMAssociationOutputLocation = Nothing-  , _sSMAssociationParameters = Nothing   , _sSMAssociationScheduleExpression = Nothing   , _sSMAssociationSyncCompliance = Nothing   , _sSMAssociationTargets = Nothing@@ -112,10 +108,6 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-association.html#cfn-ssm-association-outputlocation ssmaOutputLocation :: Lens' SSMAssociation (Maybe SSMAssociationInstanceAssociationOutputLocation) ssmaOutputLocation = lens _sSMAssociationOutputLocation (\s a -> s { _sSMAssociationOutputLocation = a })---- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-association.html#cfn-ssm-association-parameters-ssmaParameters :: Lens' SSMAssociation (Maybe (Map Text SSMAssociationParameterValues))-ssmaParameters = lens _sSMAssociationParameters (\s a -> s { _sSMAssociationParameters = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-association.html#cfn-ssm-association-scheduleexpression ssmaScheduleExpression :: Lens' SSMAssociation (Maybe (Val Text))

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

@@ -8,6 +8,7 @@ module Stratosphere.Resources.StepFunctionsStateMachine where  import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.StepFunctionsStateMachineS3Location import Stratosphere.ResourceProperties.StepFunctionsStateMachineLoggingConfiguration import Stratosphere.ResourceProperties.StepFunctionsStateMachineTagsEntry @@ -15,7 +16,8 @@ -- 'stepFunctionsStateMachine' for a more convenient constructor. data StepFunctionsStateMachine =   StepFunctionsStateMachine-  { _stepFunctionsStateMachineDefinitionString :: Val Text+  { _stepFunctionsStateMachineDefinitionS3Location :: Maybe StepFunctionsStateMachineS3Location+  , _stepFunctionsStateMachineDefinitionString :: Maybe (Val Text)   , _stepFunctionsStateMachineLoggingConfiguration :: Maybe StepFunctionsStateMachineLoggingConfiguration   , _stepFunctionsStateMachineRoleArn :: Val Text   , _stepFunctionsStateMachineStateMachineName :: Maybe (Val Text)@@ -29,7 +31,8 @@     { resourcePropertiesType = "AWS::StepFunctions::StateMachine"     , resourcePropertiesProperties =         hashMapFromList $ catMaybes-        [ (Just . ("DefinitionString",) . toJSON) _stepFunctionsStateMachineDefinitionString+        [ fmap (("DefinitionS3Location",) . toJSON) _stepFunctionsStateMachineDefinitionS3Location+        , fmap (("DefinitionString",) . toJSON) _stepFunctionsStateMachineDefinitionString         , fmap (("LoggingConfiguration",) . toJSON) _stepFunctionsStateMachineLoggingConfiguration         , (Just . ("RoleArn",) . toJSON) _stepFunctionsStateMachineRoleArn         , fmap (("StateMachineName",) . toJSON) _stepFunctionsStateMachineStateMachineName@@ -41,12 +44,12 @@ -- | Constructor for 'StepFunctionsStateMachine' containing required fields as -- arguments. stepFunctionsStateMachine-  :: Val Text -- ^ 'sfsmDefinitionString'-  -> Val Text -- ^ 'sfsmRoleArn'+  :: Val Text -- ^ 'sfsmRoleArn'   -> StepFunctionsStateMachine-stepFunctionsStateMachine definitionStringarg roleArnarg =+stepFunctionsStateMachine roleArnarg =   StepFunctionsStateMachine-  { _stepFunctionsStateMachineDefinitionString = definitionStringarg+  { _stepFunctionsStateMachineDefinitionS3Location = Nothing+  , _stepFunctionsStateMachineDefinitionString = Nothing   , _stepFunctionsStateMachineLoggingConfiguration = Nothing   , _stepFunctionsStateMachineRoleArn = roleArnarg   , _stepFunctionsStateMachineStateMachineName = Nothing@@ -54,8 +57,12 @@   , _stepFunctionsStateMachineTags = Nothing   } +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-stepfunctions-statemachine.html#cfn-stepfunctions-statemachine-definitions3location+sfsmDefinitionS3Location :: Lens' StepFunctionsStateMachine (Maybe StepFunctionsStateMachineS3Location)+sfsmDefinitionS3Location = lens _stepFunctionsStateMachineDefinitionS3Location (\s a -> s { _stepFunctionsStateMachineDefinitionS3Location = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-stepfunctions-statemachine.html#cfn-stepfunctions-statemachine-definitionstring-sfsmDefinitionString :: Lens' StepFunctionsStateMachine (Val Text)+sfsmDefinitionString :: Lens' StepFunctionsStateMachine (Maybe (Val Text)) sfsmDefinitionString = lens _stepFunctionsStateMachineDefinitionString (\s a -> s { _stepFunctionsStateMachineDefinitionString = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-stepfunctions-statemachine.html#cfn-stepfunctions-statemachine-loggingconfiguration

stratosphere.cabal view

@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: bb5ed2583f74d8e58fc8662a2869847472c16ccaa71de969d995fa546e725e96+-- hash: 558d8697844ceae54a906e27f7ea27a528dee32d412141b9b7807a7bd4273cb6  name:           stratosphere-version:        0.53.0+version:        0.54.0 synopsis:       EDSL for AWS CloudFormation description:    EDSL for AWS CloudFormation category:       AWS, Cloud@@ -446,6 +446,7 @@       Stratosphere.ResourceProperties.EC2ClientVpnEndpointClientAuthenticationRequest       Stratosphere.ResourceProperties.EC2ClientVpnEndpointConnectionLogOptions       Stratosphere.ResourceProperties.EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest+      Stratosphere.ResourceProperties.EC2ClientVpnEndpointFederatedAuthenticationRequest       Stratosphere.ResourceProperties.EC2ClientVpnEndpointTagSpecification       Stratosphere.ResourceProperties.EC2EC2FleetCapacityReservationOptionsRequest       Stratosphere.ResourceProperties.EC2EC2FleetFleetLaunchTemplateConfigRequest@@ -498,6 +499,7 @@       Stratosphere.ResourceProperties.EC2NetworkAclEntryPortRange       Stratosphere.ResourceProperties.EC2NetworkInterfaceInstanceIpv6Address       Stratosphere.ResourceProperties.EC2NetworkInterfacePrivateIpAddressSpecification+      Stratosphere.ResourceProperties.EC2PrefixListEntry       Stratosphere.ResourceProperties.EC2SecurityGroupEgressProperty       Stratosphere.ResourceProperties.EC2SecurityGroupIngressProperty       Stratosphere.ResourceProperties.EC2SpotFleetBlockDeviceMapping@@ -562,6 +564,10 @@       Stratosphere.ResourceProperties.ECSTaskSetNetworkConfiguration       Stratosphere.ResourceProperties.ECSTaskSetScale       Stratosphere.ResourceProperties.ECSTaskSetServiceRegistry+      Stratosphere.ResourceProperties.EFSAccessPointAccessPointTag+      Stratosphere.ResourceProperties.EFSAccessPointCreationInfo+      Stratosphere.ResourceProperties.EFSAccessPointPosixUser+      Stratosphere.ResourceProperties.EFSAccessPointRootDirectory       Stratosphere.ResourceProperties.EFSFileSystemElasticFileSystemTag       Stratosphere.ResourceProperties.EFSFileSystemLifecyclePolicy       Stratosphere.ResourceProperties.EKSClusterEncryptionConfig@@ -683,6 +689,7 @@       Stratosphere.ResourceProperties.EventsRuleBatchParameters       Stratosphere.ResourceProperties.EventsRuleBatchRetryStrategy       Stratosphere.ResourceProperties.EventsRuleEcsParameters+      Stratosphere.ResourceProperties.EventsRuleHttpParameters       Stratosphere.ResourceProperties.EventsRuleInputTransformer       Stratosphere.ResourceProperties.EventsRuleKinesisParameters       Stratosphere.ResourceProperties.EventsRuleNetworkConfiguration@@ -886,6 +893,7 @@       Stratosphere.ResourceProperties.IoTEventsDetectorModelTransitionEvent       Stratosphere.ResourceProperties.IoTEventsInputAttribute       Stratosphere.ResourceProperties.IoTEventsInputInputDefinition+      Stratosphere.ResourceProperties.IoTProvisioningTemplateProvisioningHook       Stratosphere.ResourceProperties.IoTThingAttributePayload       Stratosphere.ResourceProperties.IoTThingsGraphFlowTemplateDefinitionDocument       Stratosphere.ResourceProperties.IoTTopicRuleAction@@ -1000,11 +1008,13 @@       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessor       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessorParameter       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration+      Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamRedshiftRetryOptions       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamS3DestinationConfiguration       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamSchemaConfiguration       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamSerializer       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamSplunkDestinationConfiguration       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamSplunkRetryOptions+      Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamVpcConfiguration       Stratosphere.ResourceProperties.KinesisStreamStreamEncryption       Stratosphere.ResourceProperties.LakeFormationDataLakeSettingsDataLakePrincipal       Stratosphere.ResourceProperties.LakeFormationPermissionsColumnWildcard@@ -1164,6 +1174,9 @@       Stratosphere.ResourceProperties.RDSDBClusterScalingConfiguration       Stratosphere.ResourceProperties.RDSDBInstanceDBInstanceRole       Stratosphere.ResourceProperties.RDSDBInstanceProcessorFeature+      Stratosphere.ResourceProperties.RDSDBProxyAuthFormat+      Stratosphere.ResourceProperties.RDSDBProxyTagFormat+      Stratosphere.ResourceProperties.RDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormat       Stratosphere.ResourceProperties.RDSDBSecurityGroupIngressProperty       Stratosphere.ResourceProperties.RDSOptionGroupOptionConfiguration       Stratosphere.ResourceProperties.RDSOptionGroupOptionSetting@@ -1203,6 +1216,7 @@       Stratosphere.ResourceProperties.S3BucketCorsRule       Stratosphere.ResourceProperties.S3BucketDataExport       Stratosphere.ResourceProperties.S3BucketDefaultRetention+      Stratosphere.ResourceProperties.S3BucketDeleteMarkerReplication       Stratosphere.ResourceProperties.S3BucketDestination       Stratosphere.ResourceProperties.S3BucketEncryptionConfiguration       Stratosphere.ResourceProperties.S3BucketFilterRule@@ -1210,6 +1224,7 @@       Stratosphere.ResourceProperties.S3BucketLambdaConfiguration       Stratosphere.ResourceProperties.S3BucketLifecycleConfiguration       Stratosphere.ResourceProperties.S3BucketLoggingConfiguration+      Stratosphere.ResourceProperties.S3BucketMetrics       Stratosphere.ResourceProperties.S3BucketMetricsConfiguration       Stratosphere.ResourceProperties.S3BucketNoncurrentVersionTransition       Stratosphere.ResourceProperties.S3BucketNotificationConfiguration@@ -1223,6 +1238,10 @@       Stratosphere.ResourceProperties.S3BucketReplicationConfiguration       Stratosphere.ResourceProperties.S3BucketReplicationDestination       Stratosphere.ResourceProperties.S3BucketReplicationRule+      Stratosphere.ResourceProperties.S3BucketReplicationRuleAndOperator+      Stratosphere.ResourceProperties.S3BucketReplicationRuleFilter+      Stratosphere.ResourceProperties.S3BucketReplicationTime+      Stratosphere.ResourceProperties.S3BucketReplicationTimeValue       Stratosphere.ResourceProperties.S3BucketRoutingRule       Stratosphere.ResourceProperties.S3BucketRoutingRuleCondition       Stratosphere.ResourceProperties.S3BucketRule@@ -1273,7 +1292,6 @@       Stratosphere.ResourceProperties.SESTemplateTemplate       Stratosphere.ResourceProperties.SNSTopicSubscription       Stratosphere.ResourceProperties.SSMAssociationInstanceAssociationOutputLocation-      Stratosphere.ResourceProperties.SSMAssociationParameterValues       Stratosphere.ResourceProperties.SSMAssociationS3OutputLocation       Stratosphere.ResourceProperties.SSMAssociationTarget       Stratosphere.ResourceProperties.SSMMaintenanceWindowTargetTargets@@ -1297,6 +1315,7 @@       Stratosphere.ResourceProperties.StepFunctionsStateMachineCloudWatchLogsLogGroup       Stratosphere.ResourceProperties.StepFunctionsStateMachineLogDestination       Stratosphere.ResourceProperties.StepFunctionsStateMachineLoggingConfiguration+      Stratosphere.ResourceProperties.StepFunctionsStateMachineS3Location       Stratosphere.ResourceProperties.StepFunctionsStateMachineTagsEntry       Stratosphere.ResourceProperties.SyntheticsCanaryCode       Stratosphere.ResourceProperties.SyntheticsCanaryRunConfig@@ -1568,6 +1587,7 @@       Stratosphere.Resources.EC2NetworkInterfaceAttachment       Stratosphere.Resources.EC2NetworkInterfacePermission       Stratosphere.Resources.EC2PlacementGroup+      Stratosphere.Resources.EC2PrefixList       Stratosphere.Resources.EC2Route       Stratosphere.Resources.EC2RouteTable       Stratosphere.Resources.EC2SecurityGroup@@ -1609,6 +1629,7 @@       Stratosphere.Resources.ECSService       Stratosphere.Resources.ECSTaskDefinition       Stratosphere.Resources.ECSTaskSet+      Stratosphere.Resources.EFSAccessPoint       Stratosphere.Resources.EFSFileSystem       Stratosphere.Resources.EFSMountTarget       Stratosphere.Resources.EKSCluster@@ -1720,6 +1741,7 @@       Stratosphere.Resources.IoTEventsInput       Stratosphere.Resources.IoTPolicy       Stratosphere.Resources.IoTPolicyPrincipalAttachment+      Stratosphere.Resources.IoTProvisioningTemplate       Stratosphere.Resources.IoTThing       Stratosphere.Resources.IoTThingPrincipalAttachment       Stratosphere.Resources.IoTThingsGraphFlowTemplate@@ -1813,6 +1835,8 @@       Stratosphere.Resources.RDSDBClusterParameterGroup       Stratosphere.Resources.RDSDBInstance       Stratosphere.Resources.RDSDBParameterGroup+      Stratosphere.Resources.RDSDBProxy+      Stratosphere.Resources.RDSDBProxyTargetGroup       Stratosphere.Resources.RDSDBSecurityGroup       Stratosphere.Resources.RDSDBSecurityGroupIngress       Stratosphere.Resources.RDSDBSubnetGroup